mirror of
https://github.com/cc65/cc65.git
synced 2024-10-30 12:28:25 +00:00
38 lines
794 B
ArmAsm
38 lines
794 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 21.06.2002
|
|
;
|
|
; void __fastcall__ tgi_outtextxy (int x, int y, const char* s);
|
|
; /* Output text at the given position. */
|
|
|
|
|
|
.include "tgi-kernel.inc"
|
|
|
|
.import addysp1
|
|
.importzp sp
|
|
|
|
.proc _tgi_outtextxy
|
|
|
|
; Get the X/Y parameters and store them into curx/cury. This enables us
|
|
; to use tgi_outtext for the actual output
|
|
|
|
pha ;
|
|
ldy #0
|
|
lda (sp),y
|
|
sta _tgi_cury
|
|
iny
|
|
lda (sp),y
|
|
sta _tgi_cury+1
|
|
iny
|
|
lda (sp),y
|
|
sta _tgi_curx
|
|
iny
|
|
lda (sp),y
|
|
sta _tgi_curx+1
|
|
pla
|
|
jsr addysp1 ; Drop arguments from stack
|
|
|
|
jmp _tgi_outtext
|
|
|
|
.endproc
|
|
|