give PFS Pascal its own string since it's not really the Activision protection

This commit is contained in:
4am 2022-06-26 18:37:08 -04:00
parent defb7f2ec0
commit 4029dfbeac
3 changed files with 8 additions and 3 deletions

View File

@ -20,7 +20,7 @@
!byte $C9,$93 ; CMP #$93 !byte $C9,$93 ; CMP #$93
bcs @variation2; passport-test-suite/PFS Graph.woz [C=0] matches bcs @variation2; passport-test-suite/PFS Graph.woz [C=0] matches
jsr PrintByID jsr PrintByID
!byte s_fbff !byte s_pfs
inx inx
jsr modify1 jsr modify1
!byte $25 ; unconditional jump to success path !byte $25 ; unconditional jump to success path
@ -35,7 +35,7 @@
!byte $C9,$AD ; CMP #$AD !byte $C9,$AD ; CMP #$AD
bcs @writeCheck; passport-test-suite/PFS Write 1984-11-01.woz [C=0] matches bcs @writeCheck; passport-test-suite/PFS Write 1984-11-01.woz [C=0] matches
jsr PrintByID jsr PrintByID
!byte s_fbff !byte s_pfs
inx inx
jsr modify1 jsr modify1
!byte $2F ; unconditional jump to success path !byte $2F ; unconditional jump to success path

View File

@ -212,6 +212,7 @@ StringTableLow ; must be kept in sync with constants in enid.a
!byte <.lockitupserial !byte <.lockitupserial
!byte <.protection !byte <.protection
!byte <.baudville !byte <.baudville
!byte <.pfs
StringTableHigh ; must be kept in sync with constants in enid.a StringTableHigh ; must be kept in sync with constants in enid.a
!byte >.header !byte >.header
@ -363,11 +364,12 @@ StringTableHigh ; must be kept in sync with constants in enid.a
!byte >.lockitupserial !byte >.lockitupserial
!byte >.protection !byte >.protection
!byte >.baudville !byte >.baudville
!byte >.pfs
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .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 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .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 !text "@",s_found,"5-5-5 spiral @",s_bootloader,$8D,$00
.baudville .baudville
!text "@",s_found,"Baudville @",s_bootloader,$8D,$00 !text "@",s_found,"Baudville @",s_bootloader,$8D,$00
.pfs
!text "@",s_found,"PFS @",s_protectioncheck,$8D,$00

View File

@ -150,3 +150,4 @@ s_erasingserialnumber = $91
s_lockitupserial = $92 s_lockitupserial = $92
s_protection = $93 s_protection = $93
s_baudville = $94 s_baudville = $94
s_pfs = $95