mirror of https://github.com/mist64/msbasic.git
63 lines
1.3 KiB
ArmAsm
63 lines
1.3 KiB
ArmAsm
.segment "CODE"
|
|
SAVE:
|
|
tsx
|
|
stx INPUTFLG
|
|
lda #$37
|
|
sta $F2
|
|
lda #$FE
|
|
sta $17F9
|
|
lda TXTTAB
|
|
ldy TXTTAB+1
|
|
sta $17F5
|
|
sty $17F6
|
|
lda VARTAB
|
|
ldy VARTAB+1
|
|
sta $17F7
|
|
sty $17F8
|
|
jmp L1800
|
|
ldx INPUTFLG
|
|
txs
|
|
lda #<QT_SAVED
|
|
ldy #>QT_SAVED
|
|
jmp STROUT
|
|
QT_LOADED:
|
|
.byte "LOADED"
|
|
.byte $00
|
|
QT_SAVED:
|
|
.byte "SAVED"
|
|
.byte $0D,$0A,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00
|
|
LOAD:
|
|
lda TXTTAB
|
|
ldy TXTTAB+1
|
|
sta $17F5
|
|
sty $17F6
|
|
lda #$FF
|
|
sta $17F9
|
|
lda #<L27A6
|
|
ldy #>L27A6
|
|
sta GORESTART+1
|
|
sty GORESTART+2
|
|
jmp L1873
|
|
L27A6:
|
|
ldx #$FF
|
|
txs
|
|
lda #<RESTART
|
|
ldy #>RESTART
|
|
sta GORESTART+1
|
|
sty GORESTART+2
|
|
lda #<QT_LOADED
|
|
ldy #>QT_LOADED
|
|
jsr STROUT
|
|
ldx $17ED
|
|
ldy $17EE
|
|
txa
|
|
bne L27C2
|
|
nop
|
|
L27C2:
|
|
nop
|
|
stx VARTAB
|
|
sty VARTAB+1
|
|
jmp FIX_LINKS
|