Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-02-22 21:29:00 +00:00
Code Issues Projects Releases Wiki Activity

simplify a6bc95 matching [fixes EasyGraph rev. 2]

Browse Source
This commit is contained in:
4am 2025-01-19 22:05:58 -05:00
parent 2a42be7ee5
commit 29c52f6bcf
2 changed files with 2 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/patchers/a6bc95.a
View File

@ -7,30 +7,11 @@
; gIsPascal is TRUE here
; (only ever seen this protection on Pascal disks)
ldy #$09
jsr SearchTrack
!byte $BD,$8C,$C0; LDA $C08C,X
!byte $10,$FB ; BPL -$FB
!byte $C9,$A6 ; CMP #$A6
!byte $D0,$ED ; BNE -$ED
bcs .exit
ldy #$07
jsr SearchTrack
!byte $BD,$8C,$C0; LDA $C08C,X
!byte $10,$FB ; BPL -$FB
!byte $C9,$BC ; CMP #$BC
bcs .exit
ldy #$07
jsr SearchTrack
!byte $BD,$8C,$C0; LDA $C08C,X
!byte $10,$FB ; BPL -$FB
!byte $C9,$95 ; CMP #$95
bcs .exit ; passport-test-suite/Writing Skills Volume 2.woz [C=0] matches
ldy #$04
jsr SearchTrack
!byte $AE,$F8,$01; LDX $01F8
!byte $A9
bcs .exit
bcs .exit ; passport-test-suite/Writing Skills Volume 2.woz [C=0] matches
jsr PrintByID
!byte s_a6bc95
jsr modify1

2
src/strings/en.a
View File

@ -387,7 +387,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," 2024-11-19",$00
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2025-01-19",$00
.bar9
!text "_________",$00
.bar18