mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-08 16:29:33 +00:00
26 lines
724 B
Plaintext
26 lines
724 B
Plaintext
;-------------------------------
|
|
; #A5COUNT
|
|
; nibble count between $A5 and
|
|
; address prologue
|
|
; e.g. Game Frame One, Game Frame Two
|
|
;-------------------------------
|
|
!zone {
|
|
; gIsPascal is TRUE here
|
|
; (only ever seen this protection on Pascal disks)
|
|
|
|
ldy #$0A
|
|
jsr SearchTrack
|
|
!byte $07
|
|
!byte $E6,$02 ; INC $02
|
|
!byte $D0,$03 ; BNE +3
|
|
!byte $4C,$A5,$00; JMP $00A5
|
|
!byte $C9,$A5 ; CMP #$A5
|
|
bcs .exit ; passport-test-suite/Game Frame One.woz [C=0] matches
|
|
jsr inx8
|
|
jsr PrintByID
|
|
!byte s_a5count
|
|
jsr modify2
|
|
!byte $D0,$7B ; BNE +$7B
|
|
.exit
|
|
}
|