mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +00:00
39 lines
677 B
ArmAsm
39 lines
677 B
ArmAsm
|
;
|
||
|
|
; Oliver Schmidt, 2010-05-24
|
||
|
|
;
|
||
|
|
; unsigned char drivecount (void);
|
||
|
|
; unsigned char* drivelist (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _drivecount, _drivelist
|
||
|
|
.import __dos_type
|
||
|
|
|
||
|
|
.include "mli.inc"
|
||
|
|
|
||
|
|
_drivecount:
|
||
|
|
ldx #$00
|
||
|
|
|
||
|
|
; Check for ProDOS 8
|
||
|
|
lda __dos_type
|
||
|
|
bne :+
|
||
|
|
rts
|
||
|
|
|
||
|
|
; Number of on-line devices (minus 1)
|
||
|
|
: ldy DEVCNT
|
||
|
|
iny
|
||
|
|
tya
|
||
|
|
rts
|
||
|
|
|
||
|
|
_drivelist:
|
||
|
|
ldx #$00
|
||
|
|
|
||
|
|
; Check for ProDOS 8
|
||
|
|
lda __dos_type
|
||
|
|
bne :+
|
||
|
|
rts
|
||
|
|
|
||
|
|
; Up to 14 units may be active
|
||
|
|
: lda #<DEVLST
|
||
|
|
ldx #>DEVLST
|
||
|
|
rts
|