git.sur5r.net Git - cc65/blob - libsrc/apple2/isdevice.s

   1 ;
   2 ; Oliver Schmidt, 2012-10-15
   3 ;
   4
   5         .export         isdevice
   6
   7         .include        "zeropage.inc"
   8         .include        "mli.inc"
   9
  10 isdevice:
  11         ldy     DEVCNT
  12 :       lda     DEVLST,y
  13         lsr
  14         lsr
  15         lsr
  16         lsr
  17         sta     tmp1
  18         cpx     tmp1
  19         beq     :+
  20         dey
  21         bpl     :-
  22 :       rts