mirror of
https://github.com/cc65/cc65.git
synced 2024-11-12 07:07:19 +00:00
59 lines
1.6 KiB
ArmAsm
59 lines
1.6 KiB
ArmAsm
|
; ---------------------------------------------------------------------------
|
||
|
|
; tapeio.s
|
||
|
|
;
|
||
|
|
; for Sym-1
|
||
|
|
;
|
||
|
|
; Wayne Parham
|
||
|
|
;
|
||
|
|
; wayne@parhamdata.com
|
||
|
|
; ---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
.include "sym1.inc"
|
||
|
|
|
||
|
|
.import popax
|
||
|
|
|
||
|
|
.export _loadt, _dumpt
|
||
|
|
|
||
|
|
.segment "CODE"
|
||
|
|
|
||
|
|
.proc _loadt: near
|
||
|
|
; ---------------------------------------------------------------------------
|
||
|
|
sta P1L ; Tape record ID to P1L
|
||
|
|
ldx #$00
|
||
|
|
stx P1H
|
||
|
|
ldy #$80
|
||
|
|
jsr LOADT ; Read data from tape
|
||
|
|
bcs error
|
||
|
|
lda #$00
|
||
|
|
ldx #$00 ; Return 0000 if successful
|
||
|
|
jmp done
|
||
|
|
error: ldx #$00
|
||
|
|
lda #$FF ; or 00FF if not
|
||
|
|
done: rts
|
||
|
|
; ---------------------------------------------------------------------------
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc _dumpt: near
|
||
|
|
; ---------------------------------------------------------------------------
|
||
|
|
sta P3L ; End address
|
||
|
|
stx P3H
|
||
|
|
jsr popax
|
||
|
|
sta P2L ; Start address
|
||
|
|
stx P2H
|
||
|
|
jsr popax
|
||
|
|
sta P1L ; Tape Record ID
|
||
|
|
ldx #$00
|
||
|
|
stx P1H
|
||
|
|
ldy #$80
|
||
|
|
jsr DUMPT ; Write data to tape
|
||
|
|
bcs error
|
||
|
|
lda #$00
|
||
|
|
ldx #$00 ; Return 0000 if successful
|
||
|
|
jmp done
|
||
|
|
error: ldx #$00
|
||
|
|
lda #$FF ; or 00FF if not
|
||
|
|
done: rts
|
||
|
|
; ---------------------------------------------------------------------------
|
||
|
|
.endproc
|
||
|
|
|