1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-01 13:41:34 +00:00
cc65/libsrc/apple2/isdevice.s

23 lines
352 B
ArmAsm

;
; 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