support Bejeweled save/load

2024-11-19 02:10:39 +00:00 · 2020-01-29 14:24:09 -08:00 · 2020-01-29 14:24:09 -08:00 · 36bb29b73d
commit 36bb29b73d
parent 0db9448400
1 changed files with 32 additions and 0 deletions
--- a/src/prelaunch/bejeweled.a
+++ b/src/prelaunch/bejeweled.a
@ -14,8 +14,40 @@
         sta   $4492
         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
         jsr   $BE00
+         lda   #<helper
+         sta   $BF0B
+         lda   #>helper
+         sta   $BF0C
         +DISABLE_ACCEL
         rts