From dc9333a3bbeef7d07535a505120af0205824d0c0 Mon Sep 17 00:00:00 2001 From: Wayne Parham Date: Mon, 7 Jun 2021 00:18:26 -0500 Subject: [PATCH] tapeio.s updates --- libsrc/sym1/tapeio.s | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/libsrc/sym1/tapeio.s b/libsrc/sym1/tapeio.s index e956b6eee..dbb6963ca 100644 --- a/libsrc/sym1/tapeio.s +++ b/libsrc/sym1/tapeio.s @@ -7,7 +7,7 @@ .include "sym1.inc" -.import popax +.import popax, return0, return1 .export _loadt, _dumpt @@ -21,12 +21,8 @@ ldy #$80 jsr LOADT ; Read data from tape bcs error - lda #$00 - ldx #$00 ; Return 0000 if successful - jmp done -error: ldx #>$0000 - lda #$FF ; or 00FF if not -done: rts + jmp return 0 ; Return 0 if sucessful +error: jmp return 1 ; or 1 if not .endproc @@ -44,12 +40,8 @@ done: rts ldy #$80 jsr DUMPT ; Write data to tape bcs error - lda #$00 - ldx #$00 ; Return 0000 if successful - jmp done -error: ldx #>$0000 - lda #$FF ; or 00FF if not -done: rts + jmp return 0 ; Return 0 if sucessful +error: jmp return 1 ; or 1 if not .endproc