mirror of https://github.com/a2-4am/passport.git
29 lines
853 B
Plaintext
Executable File
29 lines
853 B
Plaintext
Executable File
;-------------------------------
|
|
; #A6BC95
|
|
; nibble count after "A6 BC 95" prologue
|
|
; e.g. The Secrets of Science Island
|
|
;-------------------------------
|
|
_a6bc95
|
|
lda gIsPascal ; only ever seen this protection
|
|
bne a6bc95_exit ; on Pascal disks
|
|
|
|
ldy #$33
|
|
jsr SearchTrack
|
|
!byte $AE,$F8,01,$A9,$0A,$8D,$FE,01
|
|
!byte $BD,$8E,$C0,$BD,$89,$C0,$A9,$3A
|
|
!byte $8D,$DF,01,$A0,$20,$84,02,$88
|
|
!byte $D0,07,$C6,02,$D0,03,$4C,$F8
|
|
!byte 00,$BD,$8C,$C0,$10,$FB,$C9,$A6
|
|
!byte $D0,$ED,$BD,$8C,$C0,$10,$FB,$C9
|
|
!byte $BC,$D0,$E4
|
|
bcs a6bc95_exit
|
|
sta gDisplayBytes
|
|
pha
|
|
lda #s_a6bc95
|
|
jsr PrintByID
|
|
pla
|
|
ldy #$01
|
|
jsr modify
|
|
!byte $60
|
|
a6bc95_exit
|