From 36bb29b73d2e4b34d3ad94f0f62cc9803c27cca8 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 29 Jan 2020 14:24:09 -0800
Subject: [PATCH] support Bejeweled save/load

---
 src/prelaunch/bejeweled.a | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/src/prelaunch/bejeweled.a b/src/prelaunch/bejeweled.a
index 544353e94..fee53a18b 100644
--- 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