diff --git a/src/id/pascal.a b/src/id/pascal.a index 3eefd3c..6c42efb 100644 --- a/src/id/pascal.a +++ b/src/id/pascal.a @@ -13,18 +13,20 @@ !macro IDPascal { ; ; Apple Pascal signature (version < 1.3) -; The wildcard in 7th position catches alternate jump +; 7th position not included, to catch alternate jump ; addresses (e.g. Wizardry I, Sundog Frozen Legacy) +; 8th position not included, to catch PFS ; lda #$00 tax - ldy #$08 + ldy #$06 jsr compare ; if T00,S00,$00 == !byte $01 !byte $E0,$60 !byte $F0,$03 - !byte $4C,WILDCARD,$08 + !byte $4C bcc @notPascal ; passport-test-suite/Wizplus.woz [C=0] matches + ; passport-test-suite/PFS A02.woz [C=0] matches ; ; Apple Pascal 1.3 signature [thanks Marco V.] ; diff --git a/src/strings/en.a b/src/strings/en.a index d112db9..cb9c1a9 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-09-14",$00 + !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-25",$00 .bar9 !text "_________",$00 .bar18