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 .proc   tgi_linepop
  13
  14         sta     ptr4            ; Y2
  15         stx     ptr4+1
  16         sta     _tgi_cury
  17         stx     _tgi_cury+1
  18         jsr     popax
  19         sta     ptr3            ; X2
  20         stx     ptr3+1
  21         sta     _tgi_curx
  22         stx     _tgi_curx+1
  23         rts
  24
  25 .endproc
  26