19 lines
347 B
ArmAsm
19 lines
347 B
ArmAsm
;
|
|
; Oliver Schmidt, 2012-10-21
|
|
;
|
|
; unsigned char getcurrentdevice (void);
|
|
;
|
|
|
|
.export _getcurrentdevice
|
|
.import curunit
|
|
|
|
;------------------------------------------------------------------------------
|
|
; _getcurrentdevice
|
|
|
|
.proc _getcurrentdevice
|
|
|
|
lda curunit
|
|
ldx #$00
|
|
rts
|
|
|
|
.endproc
|