6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
Code Issues 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
Show Stats 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