mirror of
https://github.com/bobbimanners/ProDOS-Utils.git
synced 2025-03-23 01:32:38 +00:00
25 lines
420 B
ArmAsm
25 lines
420 B
ArmAsm
;
|
|
; 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
|