From be3787a015115385b386f14d9722cdc385f6b0c8 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Thu, 7 Oct 2021 15:42:11 -0400
Subject: [PATCH] check for multiple PFS write checks per track

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

diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a
index c8efc4d..c4d089b 100644
--- a/src/patchers/pfs.pascal.a
+++ b/src/patchers/pfs.pascal.a
@@ -17,13 +17,14 @@
          !byte $AD,$EC,$C0; LDA $C0EC
          !byte $10,$FB    ; BPL -
          !byte $C9,$93    ; CMP #$93
-         bcs   +          ; passport-test-suite/PFS Graph.woz [C=0] matches
+         bcs   @writeCheck; passport-test-suite/PFS Graph.woz [C=0] matches
          jsr   PrintByID
          !byte s_fbff
          inx
          jsr   modify1
          !byte $25        ; unconditional jump to success path
-+
+
+@writeCheck
          ldy   #$09
          jsr   SearchTrack
          !byte $9E,$06
@@ -51,4 +52,5 @@
          jsr   inx4
          jsr   modify1
          !byte $CB        ; NEQI instead of EQUI because we expect the UREAD to succeed
+         bvc   @writeCheck; always branches (may find additional write checks on same track)
 @exit
diff --git a/src/strings/en.a b/src/strings/en.a
index 6a23b27..97240c3 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-05",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-10-07",$00
 .bar9
          !text "_________",$00
 .bar18