mirror of
https://github.com/a2-4am/passport.git
synced 2025-03-13 23:30:16 +00:00
40 lines
1.2 KiB
Plaintext
Executable File
40 lines
1.2 KiB
Plaintext
Executable File
;-------------------------------
|
|
; #A6BC95
|
|
; nibble count after "A6 BC 95" prologue
|
|
; e.g. The Secrets of Science Island
|
|
;-------------------------------
|
|
!zone {
|
|
; 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
|
|
jsr PrintByID
|
|
!byte s_a6bc95
|
|
jsr modify1
|
|
!byte $60 ; RTS
|
|
.exit
|
|
}
|