From 5000366bc6ed5e9ba8676ea54a5111f8c83e052f Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 12 Nov 2021 12:27:58 -0800
Subject: [PATCH] support Fax (#106)

---
 src/patchers/555.a | 17 ++++++++++++++++-
 src/strings/en.a   |  2 +-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/patchers/555.a b/src/patchers/555.a
index 087c2f8..a6a0c6f 100644
--- a/src/patchers/555.a
+++ b/src/patchers/555.a
@@ -193,10 +193,25 @@ Do555
          ;so we can count calls to whole-track seek
          ; static boot tracer!
 
+.skip2jsr
          ldy   $801,x
          lda   $800,y
          cmp   #$A9       ; LDA
-         beq   .nohalf
+         bne   .maybehalf
+         lda   $806,x
+         cmp   #$20       ; JSR $xxxx
+         bne   .nohalf
+         lda   $808,x
+         eor   .patch+1
+         bne   .nohalf
+         txa
+         adc   #5         ; try the next JSR instead
+         tax
+         inc   .curtrk+1
+         inc   .curtrk+1
+         bne   .skip2jsr  ; always taken
+
+.maybehalf
          lda   $801,y
          tay
          lda   $800,y
diff --git a/src/strings/en.a b/src/strings/en.a
index 97240c3..9966a6a 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-10-07",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-11-11",$00
 .bar9
          !text "_________",$00
 .bar18