mirror of
https://github.com/cc65/cc65.git
synced 2024-11-03 10:07:02 +00:00
23 lines
442 B
ArmAsm
23 lines
442 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 02.10.2002
|
||
|
|
;
|
||
|
|
; Helper function for tgi functions. Moves the current X/Y pos to ptr1/ptr2
|
||
|
|
;
|
||
|
|
|
||
|
|
.include "tgi-kernel.inc"
|
||
|
|
|
||
|
|
.importzp ptr1, ptr2
|
||
|
|
|
||
|
|
tgi_curtoxy:
|
||
|
|
ldy _tgi_curx ; X1
|
||
|
|
sty ptr1
|
||
|
|
ldy _tgi_curx+1
|
||
|
|
sty ptr1+1
|
||
|
|
|
||
|
|
ldy _tgi_cury ; Y1
|
||
|
|
sty ptr2
|
||
|
|
ldy _tgi_cury+1
|
||
|
|
sty ptr2+1
|
||
|
|
rts
|
||
|
|
|