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

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

diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a
index 108e16f..bd12990 100644
--- a/src/patchers/pfs.pascal.a
+++ b/src/patchers/pfs.pascal.a
@@ -11,6 +11,7 @@
 ;-------------------------------
          ; gIsPascal is TRUE here
 
+@variation1
          ldy   #$09
          jsr   SearchTrack
          !byte $F0,$27    ; BEQ +
@@ -23,6 +24,7 @@
          inx
          jsr   modify1
          !byte $25        ; unconditional jump to success path
+         bvc   @variation1; always branches (may find additional protection checks on same track)
 
 @variation2
          ldy   #$09
@@ -37,6 +39,7 @@
          inx
          jsr   modify1
          !byte $2F        ; unconditional jump to success path
+         bvc   @variation2; always branches (may find additional protection checks on same track)
 
 @writeCheck
          ldy   #$09