diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a index bd12990..2abbae7 100644 --- a/src/patchers/pfs.pascal.a +++ b/src/patchers/pfs.pascal.a @@ -20,7 +20,7 @@ !byte $C9,$93 ; CMP #$93 bcs @variation2; passport-test-suite/PFS Graph.woz [C=0] matches jsr PrintByID - !byte s_fbff + !byte s_pfs inx jsr modify1 !byte $25 ; unconditional jump to success path @@ -35,7 +35,7 @@ !byte $C9,$AD ; CMP #$AD bcs @writeCheck; passport-test-suite/PFS Write 1984-11-01.woz [C=0] matches jsr PrintByID - !byte s_fbff + !byte s_pfs inx jsr modify1 !byte $2F ; unconditional jump to success path diff --git a/src/strings/en.a b/src/strings/en.a index 374933a..b5093b7 100755 --- a/src/strings/en.a +++ b/src/strings/en.a @@ -212,6 +212,7 @@ StringTableLow ; must be kept in sync with constants in enid.a !byte <.lockitupserial !byte <.protection !byte <.baudville + !byte <.pfs StringTableHigh ; must be kept in sync with constants in enid.a !byte >.header @@ -363,11 +364,12 @@ StringTableHigh ; must be kept in sync with constants in enid.a !byte >.lockitupserial !byte >.protection !byte >.baudville + !byte >.pfs .passport !text "Passport ",$00 .header - !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-25",$00 + !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-26",$00 .bar9 !text "_________",$00 .bar18 @@ -752,3 +754,5 @@ StringTableHigh ; must be kept in sync with constants in enid.a !text "@",s_found,"5-5-5 spiral @",s_bootloader,$8D,$00 .baudville !text "@",s_found,"Baudville @",s_bootloader,$8D,$00 +.pfs + !text "@",s_found,"PFS @",s_protectioncheck,$8D,$00 diff --git a/src/strings/enid.a b/src/strings/enid.a index 7617c91..f15c2a8 100644 --- a/src/strings/enid.a +++ b/src/strings/enid.a @@ -150,3 +150,4 @@ s_erasingserialnumber = $91 s_lockitupserial = $92 s_protection = $93 s_baudville = $94 +s_pfs = $95