1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/apple2/getdevice.s
2018-09-02 23:07:26 +02:00

35 lines
683 B
ArmAsm

;
; Oliver Schmidt, 2012-09-04
;
; unsigned char getfirstdevice (void);
; unsigned char __fastcall__ getnextdevice (unsigned char device);
;
.export _getfirstdevice
.export _getnextdevice
.import __dos_type, isdevice
.include "zeropage.inc"
_getfirstdevice:
lda #$FF
; Fall through
_getnextdevice:
tax
next: inx
cpx #$FF ; INVALID_DEVICE
beq done
; Check for ProDOS 8
lda __dos_type
beq next
; Check for valid device
jsr isdevice
bne next
done: txa
ldx #$00
rts