71 lines
1.2 KiB
ArmAsm
71 lines
1.2 KiB
ArmAsm
.segment "CODE"
|
|
|
|
SAVE:
|
|
beq L2739
|
|
sta P1L
|
|
jsr CHRGET
|
|
bne NULL-1
|
|
|
|
lda TXTTAB
|
|
ldy TXTTAB+1
|
|
sta P2L
|
|
sty P2H
|
|
|
|
lda VARTAB
|
|
ldy VARTAB+1
|
|
sta P3L
|
|
sty P3H
|
|
|
|
ldy #$80
|
|
jsr USR2
|
|
bcs LC6DD
|
|
lda #<SAVED
|
|
ldy #>SAVED
|
|
jmp STROUT
|
|
|
|
LOADED:
|
|
.byte "LOADED",CR,LF
|
|
.byte "OK",CR,LF,0
|
|
|
|
SAVED:
|
|
.byte "SAVED",CR,LF,0
|
|
|
|
LOAD:
|
|
beq L2739
|
|
sta $A64E
|
|
jsr CHRGET
|
|
bne L2738
|
|
ldy #$80
|
|
jsr USR3
|
|
bcs LC6EF
|
|
|
|
lda #<LOADED
|
|
ldy #>LOADED
|
|
jsr STROUT
|
|
|
|
ldx P3L
|
|
ldy P3H
|
|
txa
|
|
stx VARTAB
|
|
sty VARTAB+1
|
|
jmp FIX_LINKS
|
|
|
|
LC6DD:
|
|
lda #<BAD_SAVE
|
|
ldy #>BAD_SAVE
|
|
jmp STROUT
|
|
|
|
BAD_SAVE:
|
|
htasc "BAD SAVE"
|
|
.byte CR,LF,0
|
|
LC6EF:
|
|
lda #<BAD_LOAD
|
|
ldy #>BAD_LOAD
|
|
jsr STROUT
|
|
jsr SCRTCH
|
|
jmp RESTART
|
|
|
|
BAD_LOAD:
|
|
htasc "BAD LOAD"
|
|
.byte CR,LF,0
|