mirror of
https://github.com/mist64/msbasic.git
synced 2025-03-13 06:30:46 +00:00
62 lines
1.3 KiB
ArmAsm
62 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 #$A6
|
||
|
|
ldy #$27 ; XXX
|
||
|
|
sta L0001
|
||
|
|
sty L0001+1
|
||
|
|
jmp L1873
|
||
|
|
ldx #$FF
|
||
|
|
txs
|
||
|
|
lda #$48
|
||
|
|
ldy #$23 ; XXX
|
||
|
|
sta L0001
|
||
|
|
sty L0001+1
|
||
|
|
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
|