git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_outtextxy.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void __fastcall__ tgi_outtextxy (int x, int y, const char* s);
   5 ; /* Output text at the given position. */
   6
   7
   8         .include        "tgi-kernel.inc"
   9
  10         .import         addysp1
  11         .importzp       sp
  12
  13 .proc   _tgi_outtextxy
  14
  15 ; Get the X/Y parameters and store them into curx/cury. This enables us
  16 ; to use tgi_outtext for the actual output
  17
  18         pha                     ;
  19         ldy     #0
  20         lda     (sp),y
  21         sta     _tgi_cury
  22         iny
  23         lda     (sp),y
  24         sta     _tgi_cury+1
  25         iny
  26         lda     (sp),y
  27         sta     _tgi_curx
  28         iny
  29         lda     (sp),y
  30         sta     _tgi_curx+1
  31         pla
  32         jsr     addysp1         ; Drop arguments from stack
  33
  34         jmp     _tgi_outtext
  35
  36 .endproc
  37