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