mirror of
https://github.com/bobbimanners/ProDOS-Utils.git
synced 2024-06-01 03:41:34 +00:00
19 lines
304 B
ArmAsm
19 lines
304 B
ArmAsm
;
|
|
; Oliver Schmidt, 2012-10-15
|
|
;
|
|
|
|
.export isdevice
|
|
|
|
.include "zeropage.inc"
|
|
.include "mli.inc"
|
|
|
|
isdevice:
|
|
ldy DEVCNT
|
|
: lda DEVLST,y
|
|
sta tmp1
|
|
cpx tmp1
|
|
beq :+
|
|
dey
|
|
bpl :-
|
|
: rts
|