mirror of https://github.com/a2-4am/passport.git
78 lines
2.0 KiB
Plaintext
Executable File
78 lines
2.0 KiB
Plaintext
Executable File
;-------------------------------
|
|
; ID8b3
|
|
; identify a bootloader that JSRs to $08B3
|
|
; to alter the nibble translate table used
|
|
; by the drive firmware at $C600
|
|
;
|
|
; in: track buffer contains T00,S00
|
|
; out: C clear if this bootloader was found
|
|
; C set otherwise
|
|
; all other flags clobbered
|
|
; all registers clobbered
|
|
;-------------------------------
|
|
ID8b3
|
|
lda #$00
|
|
ldx #$00
|
|
ldy #$5A
|
|
jsr compare
|
|
!byte 01,$20,$B3,08,$D0,$19,$EA,$A5
|
|
!byte $2B,$4A,$4A,$4A,$4A,09,$C0,$85
|
|
!byte $3F,$A9,$5C,$85,$3E,$18,$AD,$FE
|
|
!byte 08,$6D,$FF,08,$8D,$FE,08,$AE
|
|
!byte $FF,08,$F0,$15,$8A,$EA,$EA,$85
|
|
!byte $3D,$CE,$FF,08,$AD,$FE,08,$85
|
|
!byte $27,$CE,$FE,08,$A6,$2B,$6C,$3E
|
|
!byte 00,$EE,$FE,08,$EE,$FE,08,$20
|
|
!byte $89,$FE,$20,$93,$FE,$20,$2F,$FB
|
|
!byte $A2,$FF,$BD,00,08,$9D,00,$B6
|
|
!byte $CA,$E0,$FF,$D0,$F5,$20,$CC,08
|
|
!byte $A6,$2B
|
|
bcc jsr8b3_maybe
|
|
rts
|
|
|
|
jsr8b3_maybe
|
|
lda #$00
|
|
ldx #$B3
|
|
ldy #$36
|
|
jsr compare
|
|
!byte $A9,$3F,$8D,$6C,03
|
|
!byte $A9,$1C,$8D,$CC,03,$A9,00,$8D
|
|
!byte $D5,03,$A9,$37,$8D,$A3,03,$A5
|
|
!byte $27,$C9,09,$60,$A9,00,$85,00
|
|
!byte $A9,$B5,$85,01,$A0,$FF,$C8,$B9
|
|
!byte 00,$F0,$91,00,$C0,$FF,$D0,$F6
|
|
!byte $C6,01,$A9,08,$C5,01,$D0,$EC
|
|
!byte $60
|
|
rts
|
|
|
|
found8b3
|
|
tya
|
|
pha
|
|
ldy #$0F
|
|
lda #$00
|
|
A8b3 sta T00,y
|
|
dey
|
|
bpl A8b3
|
|
ldy #$0B
|
|
B8b3 sta T02,y
|
|
iny
|
|
cpy #$10
|
|
bne B8b3
|
|
pla
|
|
tay
|
|
lda #$4C
|
|
sta $085A
|
|
lda #<Inspect1_8b3
|
|
sta $085B
|
|
lda #>Inspect1_8b3
|
|
sta $085C
|
|
lda #$60
|
|
sta $08CC
|
|
lda #$2C
|
|
sta $083F
|
|
sta $0842
|
|
sta $0845
|
|
pla
|
|
plp
|
|
jmp $0801
|