From cafecddaa2cbdee1e8089ee9d2fbd155793c97ee Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sat, 25 Jun 2022 21:49:53 -0400
Subject: [PATCH] more PFS FBFF check variations [fixes PFS Write 1984-11-01]

---
 src/patchers/pfs.pascal.a | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a
index 4a19afa..108e16f 100644
--- a/src/patchers/pfs.pascal.a
+++ b/src/patchers/pfs.pascal.a
@@ -17,13 +17,27 @@
          !byte $AD,$EC,$C0; LDA $C0EC
          !byte $10,$FB    ; BPL -
          !byte $C9,$93    ; CMP #$93
-         bcs   @writeCheck; passport-test-suite/PFS Graph.woz [C=0] matches
+         bcs   @variation2; passport-test-suite/PFS Graph.woz [C=0] matches
          jsr   PrintByID
          !byte s_fbff
          inx
          jsr   modify1
          !byte $25        ; unconditional jump to success path
 
+@variation2
+         ldy   #$09
+         jsr   SearchTrack
+         !byte $F0,$31    ; BEQ +
+         !byte $AD,$EC,$C0; LDA $C0EC
+         !byte $10,$FB    ; BPL -
+         !byte $C9,$AD    ; CMP #$AD
+         bcs   @writeCheck; passport-test-suite/PFS Write 1984-11-01.woz [C=0] matches
+         jsr   PrintByID
+         !byte s_fbff
+         inx
+         jsr   modify1
+         !byte $2F        ; unconditional jump to success path
+
 @writeCheck
          ldy   #$09
          jsr   SearchTrack