bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

tapeio.s updates

Browse Source
This commit is contained in:
Wayne Parham
2021-06-07 00:18:26 -05:00
parent c961782192
commit dc9333a3bb
1 changed files with 5 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/sym1/tapeio.s
View File

@@ -7,7 +7,7 @@
.include "sym1.inc" .include "sym1.inc"
.import popax .import popax, return0, return1
.export _loadt, _dumpt .export _loadt, _dumpt
@@ -21,12 +21,8 @@
ldy #$80 ldy #$80
jsr LOADT ; Read data from tape jsr LOADT ; Read data from tape
bcs error bcs error
lda #$00 jmp return 0 ; Return 0 if sucessful
ldx #$00 ; Return 0000 if successful error: jmp return 1 ; or 1 if not
jmp done
error: ldx #>$0000
lda #$FF ; or 00FF if not
done: rts
.endproc .endproc
@@ -44,12 +40,8 @@ done: rts
ldy #$80 ldy #$80
jsr DUMPT ; Write data to tape jsr DUMPT ; Write data to tape
bcs error bcs error
lda #$00 jmp return 0 ; Return 0 if sucessful
ldx #$00 ; Return 0000 if successful error: jmp return 1 ; or 1 if not
jmp done
error: ldx #>$0000
lda #$FF ; or 00FF if not
done: rts
.endproc .endproc