mirror of
https://github.com/a2-4am/passport.git
synced 2025-01-03 08:33:18 +00:00
more PFS Pascal write checks
This commit is contained in:
parent
950fdf73fd
commit
e6c4dc14c7
@ -67,7 +67,16 @@
|
||||
!byte $00
|
||||
!byte $C3,$AB
|
||||
!byte $05,$A9
|
||||
bcs @exit ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
|
||||
bcc @foundWriteCheck ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
|
||||
|
||||
ldy #$09
|
||||
jsr SearchTrack
|
||||
!byte $9E,$06
|
||||
!byte $9E,$22
|
||||
!byte $00
|
||||
!byte $C3,$A1
|
||||
!byte $5D,$CD
|
||||
bcs @exit ; passport-test-suite/PFS Write 1984-09-27.woz [C=0] here
|
||||
|
||||
@foundWriteCheck
|
||||
jsr PrintByID
|
||||
|
@ -369,7 +369,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," 2022-06-26",$00
|
||||
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-27",$00
|
||||
.bar9
|
||||
!text "_________",$00
|
||||
.bar18
|
||||
|
Loading…
Reference in New Issue
Block a user