From 161ff58b8d2b125feff8a70b19c46d5c314ea665 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 6 Dec 2023 00:14:41 -0500
Subject: [PATCH] add support for JMP0600 secondary RWTS with address parsing
 at BC56 [fixes Alphabet Zoo, Broadsides]

---
 src/patchers/t00_jmp600.a | 24 ++++++++++++++++++++++++
 src/strings/en.a          |  2 +-
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/src/patchers/t00_jmp600.a b/src/patchers/t00_jmp600.a
index ba2434d..8ab9fc3 100644
--- a/src/patchers/t00_jmp600.a
+++ b/src/patchers/t00_jmp600.a
@@ -80,11 +80,35 @@
 ;values
          !byte $AD,$AA,$D5,$96,$AA,$D5,$AD,$AA,$D5,$96,$AA,$D5
 
+.bc56multi ; length=12 dec
+;sectors
+         !byte $0C,$0C,$0C,$0C,$0C,$09,$09,$09,$09,$09,$09,$09
+;offsets
+         !byte $C4,$87,$78,$6A,$66,$B1,$F4,$F3,$F2,$A2,$94,$90
+;values
+         !byte $AA,$96,$AA,$D5,$2C,$AD,$0B,$F0,$DE,$AA,$D5,$2C
+
 .start
          lda   #<.jmp600multi
          ldy   #>.jmp600multi
          ldx   #12
          jsr   multimodify
 
+         lda   #$0C
+         ldx   #$61
+         ldy   #$09
+         jsr   compare
+         !byte $BD,$8C,$C0
+         !byte $10,$FB
+         !byte $20,$C8,$BC
+         !byte $C9
+         bcs   .notbc56
+
+         lda   #<.bc56multi
+         ldy   #>.bc56multi
+         ldx   #12
+         jsr   multimodify
+
+.notbc56
 .exit
 }
diff --git a/src/strings/en.a b/src/strings/en.a
index b524f9e..89dd0d7 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -387,7 +387,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," 2023-10-08",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2023-12-06",$00
 .bar9
          !text "_________",$00
 .bar18