2012-09-09 13:38:32 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 2012-09-04
|
|
|
|
|
;
|
|
|
|
|
; unsigned char getfirstdevice (void);
|
|
|
|
|
; unsigned char __fastcall__ getnextdevice (unsigned char device);
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _getfirstdevice
|
|
|
|
|
.export _getnextdevice
|
|
|
|
|
|
|
|
|
|
.import __dos_type
|
|
|
|
|
|
|
|
|
|
.include "zeropage.inc"
|
|
|
|
|
.include "mli.inc"
|
|
|
|
|
|
|
|
|
|
_getfirstdevice:
|
|
|
|
|
lda #$FF
|
|
|
|
|
; Fall through
|
|
|
|
|
|
|
|
|
|
_getnextdevice:
|
|
|
|
|
next: tax
|
|
|
|
|
inx
|
|
|
|
|
txa
|
|
|
|
|
cmp #$FF
|
|
|
|
|
beq done
|
|
|
|
|
|
|
|
|
|
; Check for ProDOS 8
|
|
|
|
|
ldx __dos_type
|
|
|
|
|
beq next
|
|
|
|
|
|
|
|
|
|
; Up to 14 units may be active
|
|
|
|
|
ldx #<DEVLST
|
|
|
|
|
ldy #>DEVLST
|
|
|
|
|
stx ptr1
|
|
|
|
|
sty ptr1+1
|
|
|
|
|
|
|
|
|
|
; Number of on-line devices (minus 1)
|
|
|
|
|
ldy DEVCNT
|
|
|
|
|
|
2012-10-14 12:51:02 +00:00
|
|
|
; Does the list contain the device?
|
2012-09-09 13:38:32 +00:00
|
|
|
: cmp (ptr1),y
|
2012-10-14 12:51:02 +00:00
|
|
|
beq done
|
2012-09-09 13:38:32 +00:00
|
|
|
dey
|
|
|
|
|
bpl :-
|
|
|
|
|
bmi next ; Branch always
|
|
|
|
|
|
|
|
|
|
done: ldx #$00
|
|
|
|
|
rts
|
