mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
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 -
|
||
|
}
|