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