mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-28 18:55:36 +00:00
support Bejeweled save/load
This commit is contained in:
parent
0db9448400
commit
36bb29b73d
@ -14,8 +14,40 @@
|
|||||||
sta $4492
|
sta $4492
|
||||||
jmp $800 ; decompress
|
jmp $800 ; decompress
|
||||||
|
|
||||||
|
helper
|
||||||
|
lda $862D
|
||||||
|
cmp #$CB ; write file
|
||||||
|
bne nohelp
|
||||||
|
lda $8A4D ; write address
|
||||||
|
cmp #$F5 ; writing "valid"
|
||||||
|
beq nocall ; ignore it
|
||||||
|
ldx $8A4F
|
||||||
|
dex
|
||||||
|
bne write
|
||||||
|
lda #<(callback + 2)
|
||||||
|
sta $8A4D
|
||||||
|
lda #>(callback + 2)
|
||||||
|
sta $8A4E ; point to known zero
|
||||||
|
|
||||||
|
write
|
||||||
|
dec $8A4D ; write address
|
||||||
|
|
||||||
|
nohelp
|
||||||
|
jmp $D670 ; ProDOS_enter
|
||||||
|
|
||||||
|
nocall
|
||||||
|
plp
|
||||||
|
pla
|
||||||
|
pla
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
callback
|
callback
|
||||||
jsr $BE00
|
jsr $BE00
|
||||||
|
lda #<helper
|
||||||
|
sta $BF0B
|
||||||
|
lda #>helper
|
||||||
|
sta $BF0C
|
||||||
+DISABLE_ACCEL
|
+DISABLE_ACCEL
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user