Apple-2-SW
/
passport
mirror of https://github.com/a2-4am/passport.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

more PFS FBFF check variations [fixes PFS Write 1984-11-01]

This commit is contained in:
4am 2022-06-25 21:49:53 -04:00
parent 81a3352ac5
commit cafecddaa2
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/patchers/pfs.pascal.a
View File

@ -17,13 +17,27 @@
!byte $AD,$EC,$C0; LDA $C0EC
!byte $10,$FB ; BPL -
!byte $C9,$93 ; CMP #$93
bcs @writeCheck; passport-test-suite/PFS Graph.woz [C=0] matches
bcs @variation2; passport-test-suite/PFS Graph.woz [C=0] matches
jsr PrintByID
!byte s_fbff
inx
jsr modify1
!byte $25 ; unconditional jump to success path
@variation2
ldy #$09
jsr SearchTrack
!byte $F0,$31 ; BEQ +
!byte $AD,$EC,$C0; LDA $C0EC
!byte $10,$FB ; BPL -
!byte $C9,$AD ; CMP #$AD
bcs @writeCheck; passport-test-suite/PFS Write 1984-11-01.woz [C=0] matches
jsr PrintByID
!byte s_fbff
inx
jsr modify1
!byte $2F ; unconditional jump to success path
@writeCheck
ldy #$09
jsr SearchTrack