From b87b0266e30cd267f74c2e510dca8a8ca73aa8c8 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 6 Sep 2021 22:06:04 -0700
Subject: [PATCH] support Boulder Dash II

---
 src/patchers/ea.a | 19 +++++++++++++++++++
 src/strings/en.a  |  2 +-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/patchers/ea.a b/src/patchers/ea.a
index ec5d257..d19beaa 100644
--- a/src/patchers/ea.a
+++ b/src/patchers/ea.a
@@ -532,6 +532,25 @@
          jsr   modify1
          !byte $7F         ;lda from known-zero instead
 
++        ldy   #16
+         jsr   SearchTrack
+         !byte $49,$4E     ;EOR #$4E
+         !byte $09,$A1     ;ORA #$A1
+         !byte $48         ;PHA
+         !byte $A9,$04     ;LDA #$04
+         !byte $48         ;PHA
+         !byte $A5,$4F     ;LDA $4F
+         !byte $45,$4F     ;EOR $4F
+         !byte $18         ;CLC
+         !byte $E9,$00     ;SBC #$00
+         !byte $48         ;PHA
+         bcs   +
+         jsr   PrintByID
+         !byte s_tamper
+         inx
+         jsr   modify1
+         !byte $E8         ;new checksum value for eor
+
 +
 
 .dostitles
diff --git a/src/strings/en.a b/src/strings/en.a
index 99f0108..eaba188 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -365,7 +365,7 @@ StringTableHigh           ; must be kept in sync with constants in enid.a
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-05",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-06",$00
 .bar9
          !text "_________",$00
 .bar18