mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 00:07:21 +00:00
25 lines
442 B
ArmAsm
25 lines
442 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 2003-05-02
|
||
|
|
;
|
||
|
|
; unsigned char wherex (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _wherex
|
||
|
|
|
||
|
|
.include "pce.inc"
|
||
|
|
.include "extzp.inc"
|
||
|
|
|
||
|
|
.proc _wherex
|
||
|
|
|
||
|
|
lda CURS_X
|
||
|
|
ldx #$00
|
||
|
|
rts
|
||
|
|
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
;-------------------------------------------------------------------------------
|
||
|
|
; force the init constructor to be imported
|
||
|
|
|
||
|
|
.import initconio
|
||
|
|
conio_init = initconio
|