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

   1 ;
   2 ; Ullrich von Bassewitz, 22.06.2002
   3 ;
   4 ; void __fastcall__ tgi_lineto (int x2, int y2);
   5 ; /* Draw a line in the current drawing color from the graphics cursor to the
   6 ; ** new end point.
   7 ; */
   8
   9         .include        "tgi-kernel.inc"
  10
  11         .import         popax
  12
  13 .proc   _tgi_lineto
  14
  15         pha
  16         ldy     #3              ; Copy curx/cury to tgi_clip_x1/tgi_clip_y1
  17 @L1:    lda     _tgi_curx,y
  18         sta     tgi_clip_x1,y
  19         dey
  20         bpl     @L1
  21         pla
  22         jsr     tgi_linepop     ; Pop x2/y2
  23         jmp     tgi_clippedline ; Call the line clipper
  24
  25 .endproc
  26