Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-09-29 15:54:59 +00:00
Code Issues Projects Releases Wiki Activity

shorten Pascal signature to catch early PFS

Browse Source
This commit is contained in:
4am 2021-09-25 19:40:29 -04:00
parent 55856a2dc3
commit bff35a1895
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/id/pascal.a
View File

@ -13,18 +13,20 @@
!macro IDPascal { !macro IDPascal {
; ;
; Apple Pascal signature (version < 1.3) ; 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) ; addresses (e.g. Wizardry I, Sundog Frozen Legacy)
; 8th position not included, to catch PFS
; ;
lda #$00 lda #$00
tax tax
ldy #$08 ldy #$06
jsr compare ; if T00,S00,$00 == jsr compare ; if T00,S00,$00 ==
!byte $01 !byte $01
!byte $E0,$60 !byte $E0,$60
!byte $F0,$03 !byte $F0,$03
!byte $4C,WILDCARD,$08 !byte $4C
bcc @notPascal ; passport-test-suite/Wizplus.woz [C=0] matches 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.] ; Apple Pascal 1.3 signature [thanks Marco V.]
; ;

2
src/strings/en.a
View File

@ -365,7 +365,7 @@ StringTableHigh ; must be kept in sync with constants in enid.a
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .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 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .bar18