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

   1 ;
   2 ; Ullrich von Bassewitz, 22.06.2002
   3 ;
   4 ; Helper function for tgi_line and tgi_lineto. Pops/stores X2/Y2.
   5 ;
   6
   7         .include        "tgi-kernel.inc"
   8
   9         .import         popax
  10         .importzp       ptr3, ptr4
  11
  12 tgi_linepop:
  13         sta     ptr4            ; Y2
  14         stx     ptr4+1
  15         sta     _tgi_cury
  16         stx     _tgi_cury+1
  17         jsr     popax
  18         sta     ptr3            ; X2
  19         stx     ptr3+1
  20         sta     _tgi_curx
  21         sta     _tgi_curx+1
  22         rts
  23
  24