mirror of https://github.com/a2-4am/passport.git
37 lines
767 B
Plaintext
37 lines
767 B
Plaintext
;-------------------------------
|
|
; ScanForDiskII
|
|
; scan all slots for things that look like Disk II cards
|
|
;
|
|
; in: X = 0
|
|
; Y = 0
|
|
; out: DiskIIArray populated
|
|
; X = 0
|
|
; all other registers and flags clobbered
|
|
;-------------------------------
|
|
!macro ScanForDiskII {
|
|
;X=0,Y=0
|
|
stx cmp1
|
|
ldx #$07
|
|
- txa
|
|
ora #$C0
|
|
sta cmp1+1
|
|
ldy #$01
|
|
lda (cmp1), y
|
|
cmp #$20
|
|
bne +
|
|
ldy #$03
|
|
lda (cmp1), y
|
|
bne +
|
|
ldy #$05
|
|
lda (cmp1), y
|
|
cmp #$03
|
|
bne +
|
|
ldy #$FF
|
|
lda (cmp1), y
|
|
bne +
|
|
tya
|
|
sta DiskIIArray-1, x
|
|
+ dex
|
|
bne -
|
|
}
|