mirror of
https://github.com/cc65/cc65.git
synced 2024-06-30 01:29:37 +00:00
40 lines
992 B
ArmAsm
40 lines
992 B
ArmAsm
|
;
|
||
|
|
; int __fastcall__ loadt (unsigned char id);
|
||
|
|
; int __fastcall__ dumpt (unsigned char id, void* start_addr, void* end_addr);
|
||
|
|
;
|
||
|
|
|
||
|
|
.include "kim1.inc"
|
||
|
|
|
||
|
|
.import popa, popax, return0, return1
|
||
|
|
|
||
|
|
.export _loadt, _dumpt
|
||
|
|
|
||
|
|
.segment "CODE"
|
||
|
|
|
||
|
|
.proc _loadt: near
|
||
|
|
|
||
|
|
sta ID ; Tape record ID to P1L
|
||
|
|
jsr LOADT ; Read data from tape
|
||
|
|
bcs error
|
||
|
|
jmp return0 ; Return 0 if sucessful
|
||
|
|
error: jmp return1 ; or 1 if not
|
||
|
|
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc _dumpt: near
|
||
|
|
|
||
|
|
sta EAL ; End address
|
||
|
|
stx EAH
|
||
|
|
jsr popax
|
||
|
|
sta SAL ; Start address
|
||
|
|
stx SAH
|
||
|
|
jsr popa
|
||
|
|
sta ID ; Tape Record ID
|
||
|
|
ldx #$00
|
||
|
|
jsr DUMPT ; Write data to tape
|
||
|
|
bcs error
|
||
|
|
jmp return0 ; Return 0 if sucessful
|
||
|
|
error: jmp return1 ; or 1 if not
|
||
|
|
|
||
|
|
.endproc
|