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

   1 ;
   2 ; Ullrich von Bassewitz, 02.10.2002
   3 ;
   4 ; Helper function for tgi functions. Moves the current X/Y pos to ptr1/ptr2
   5 ;
   6
   7         .include        "tgi-kernel.inc"
   8
   9         .importzp       ptr1, ptr2
  10
  11 tgi_curtoxy:
  12         ldy     _tgi_curx       ; X1
  13         sty     ptr1
  14         ldy     _tgi_curx+1
  15         sty     ptr1+1
  16
  17         ldy     _tgi_cury       ; Y1
  18         sty     ptr2
  19         ldy     _tgi_cury+1
  20         sty     ptr2+1
  21         rts
  22