cc65/libsrc/apple2/isdevice.s

;
; Oliver Schmidt, 2012-10-15
;

        .export         isdevice

        .include        "zeropage.inc"
        .include        "mli.inc"

isdevice:
        ldy     DEVCNT
:       lda     DEVLST,y
        lsr
        lsr
        lsr
        lsr
        sta     tmp1
        cpx     tmp1
        beq     :+
        dey
        bpl     :-
:       rts
I wasn't aware that the unit numbers in the ProDOS device list contain device type identifiers in the low nibble. So if we can't use the device list entries as-is we can as well present the high nibble as low nibble to the user thus providing more meaningful device numbers. git-svn-id: svn://svn.cc65.org/cc65/trunk@5852 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-15 21:59:51 +00:00			`;`
			`; Oliver Schmidt, 2012-10-15`
			`;`

			`.export isdevice`

			`.include "zeropage.inc"`
			`.include "mli.inc"`

			`isdevice:`
			`ldy DEVCNT`
			`: lda DEVLST,y`
			`lsr`
			`lsr`
			`lsr`
			`lsr`
			`sta tmp1`
			`cpx tmp1`
			`beq :+`
			`dey`
			`bpl :-`
			`: rts`