mirror of
https://github.com/cc65/cc65.git
synced 2025-02-07 04:31:38 +00:00
20 lines
347 B
ArmAsm
20 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
|