;
; Oliver Schmidt, 2012-10-15
;

        .export         isdevice

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

isdevice:
        lda     $bfff
        cmp     #$25
        lda     #$f0
        bcc     :+
        lda     #$f3
:       sta     tmp1
        ldy     DEVCNT
:       txa
        eor     DEVLST,y
        and     tmp1
        beq     :+
        dey
        bpl     :-
:       rts