From 81a3352ac5a91198f5f880d252e7cfc2899c56af Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sat, 25 Jun 2022 21:00:11 -0400
Subject: [PATCH] more PFS write check variations [fixes PFS Graph 1983-01-12]

---
 src/patchers/pfs.pascal.a | 11 ++++++++++-
 src/strings/en.a          |  2 +-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a
index c4d089b..4a19afa 100644
--- a/src/patchers/pfs.pascal.a
+++ b/src/patchers/pfs.pascal.a
@@ -41,7 +41,16 @@
          !byte $00
          !byte $C3,$A1
          !byte $2E,$C7
-         bcs   @exit
+         bcc   @foundWriteCheck
+
+         ldy   #$09
+         jsr   SearchTrack
+         !byte $9E,$06
+         !byte $9E,$22
+         !byte $00
+         !byte $C3,$AB
+         !byte $05,$A9
+         bcs   @exit      ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
 
 @foundWriteCheck
          jsr   PrintByID
diff --git a/src/strings/en.a b/src/strings/en.a
index 4e4d882..374933a 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -367,7 +367,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," 2022-06-24",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-25",$00
 .bar9
          !text "_________",$00
 .bar18