82 lines
1.3 KiB
NASM
82 lines
1.3 KiB
NASM
|
;******** LOAD & SAVE PATCH FOR ENHANCED BASIC ON 65C02 Simulator
|
||
|
|
|
||
|
|
bsetup
|
||
|
|
lda #<ACIA1_Scan
|
||
|
|
sta VEC_IN
|
||
|
|
lda #>ACIA1_Scan
|
||
|
|
sta VEC_IN+1
|
||
|
|
lda #<ACIA1_Output
|
||
|
|
sta VEC_OUT
|
||
|
|
lda #>ACIA1_OUTPUT
|
||
|
|
sta VEC_OUT+1
|
||
|
|
lda #<Psave
|
||
|
|
sta VEC_SV
|
||
|
|
Lda #>Psave
|
||
|
|
sta VEC_SV+1
|
||
|
|
lda #<pload
|
||
|
|
sta VEC_LD
|
||
|
|
lda #>pload
|
||
|
|
sta VEC_LD+1
|
||
|
|
jmp LAB_COLD
|
||
|
|
|
||
|
|
psave
|
||
|
|
jsr pscan
|
||
|
|
ldy #$00
|
||
|
|
lda itempl
|
||
|
|
sta (itempl),y
|
||
|
|
iny
|
||
|
|
lda itemph
|
||
|
|
sta (itempl),y
|
||
|
|
ldx smeml
|
||
|
|
lda smemh
|
||
|
|
jsr print2byte
|
||
|
|
jsr print_cr
|
||
|
|
sec
|
||
|
|
lda itempl
|
||
|
|
sbc smeml
|
||
|
|
tax
|
||
|
|
lda itemph
|
||
|
|
sbc smemh
|
||
|
|
jsr print2byte
|
||
|
|
jsr print_cr
|
||
|
|
rts
|
||
|
|
|
||
|
|
pload
|
||
|
|
jsr pscan
|
||
|
|
lda itempl
|
||
|
|
sta svarl
|
||
|
|
sta sarryl
|
||
|
|
sta earryl
|
||
|
|
lda itemph
|
||
|
|
sta svarh
|
||
|
|
sta sarryh
|
||
|
|
sta earryh
|
||
|
|
JMP LAB_1319
|
||
|
|
pscan
|
||
|
|
lda smeml
|
||
|
|
sta itempl
|
||
|
|
lda smemh
|
||
|
|
sta itemph
|
||
|
|
pscan1 ldy #$00
|
||
|
|
lda (itempl),y
|
||
|
|
bne pscan2
|
||
|
|
iny
|
||
|
|
lda (itempl),y
|
||
|
|
bne pscan2
|
||
|
|
clc
|
||
|
|
lda #$02
|
||
|
|
adc itempl
|
||
|
|
sta itempl
|
||
|
|
lda #$00
|
||
|
|
adc itemph
|
||
|
|
sta itemph
|
||
|
|
rts
|
||
|
|
pscan2 ldy #$00
|
||
|
|
lda (itempl),y
|
||
|
|
tax
|
||
|
|
iny
|
||
|
|
lda (itempl),y
|
||
|
|
sta itemph
|
||
|
|
stx itempl
|
||
|
|
bra pscan1
|