mirror of
https://github.com/cc65/cc65.git
synced 2024-10-30 12:28:25 +00:00
23 lines
352 B
ArmAsm
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
|