From c4eedb55bcbd747d963ff4526b90cbe433ff485e Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 2 Mar 2020 09:58:43 -0800
Subject: [PATCH] fix Berzap grader speech

---
 src/prelaunch/berzap.mb.a | 34 ++++++++++++++++++++++++++++++----
 1 file changed, 30 insertions(+), 4 deletions(-)

diff --git a/src/prelaunch/berzap.mb.a b/src/prelaunch/berzap.mb.a
index c9f0f9b26..f8133caa5 100644
--- a/src/prelaunch/berzap.mb.a
+++ b/src/prelaunch/berzap.mb.a
@@ -35,29 +35,55 @@
          cpx   #$C4
          beq   skipmb
          txa
+
+         ldx   $3FCD      ;find #$C4s
+         cpx   #$C4
+         bne   ++
          ldy   #0
 -        ldx   $3FCD,Y    ;find #$C4s
          cpx   #$C4
          bne   +
          sta   $3FCD,Y    ;Replace #$C4 with detected slot
-+        ldx   $9743,Y    ;find #$C4s
++        iny
+         bne   -
+
+++       ldx   $9743      ;find #$C4s
+         cpx   #$C4
+         bne   ++
+-        ldx   $9743,Y    ;find #$C4s
          cpx   #$C4
          bne   +
          sta   $9743,Y    ;Replace #$C4 with detected slot
-+        ldx   $988D,Y    ;find #$C4s
+         ldx   $988D,Y    ;find #$C4s
          cpx   #$C4
          bne   +
          sta   $988D,Y    ;Replace #$C4 with detected slot
-+        ldx   $ACE0,Y    ;find #$C4s
+         ldx   $ACE0,Y    ;find #$C4s
          cpx   #$C4
          bne   +
          sta   $ACE0,Y    ;Replace #$C4 with detected slot
 +        iny
          bne   -
-
          sta   $9A63
          sta   $9A6B
          sta   $AB1D
 
+++       ldx   $89D5      ;find #$C4s
+         cpx   #$C4
+         bne   ++
+         ldy   #0
+-        ldx   $89D5,Y    ;find #$C4s
+         cpx   #$C4
+         bne   +
+         sta   $89D5,Y    ;Replace #$C4 with detected slot
++        ldx   $9464,Y    ;find #$C4s
+         cpx   #$C4
+         bne   +
+         sta   $9464,Y    ;Replace #$C4 with detected slot
++        iny
+         bne   -
+
+++
+
 skipmb
          jmp   ($b2ce)