2002-06-22 21:40:24 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 22.06.2002
|
|
|
|
|
;
|
|
|
|
|
; Helper function for tgi_line and tgi_lineto. Pops/stores X2/Y2.
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.include "tgi-kernel.inc"
|
|
|
|
|
|
|
|
|
|
.import popax
|
|
|
|
|
|
2003-02-11 12:37:46 +00:00
|
|
|
.proc tgi_linepop
|
|
|
|
|
|
2009-11-06 15:26:46 +00:00
|
|
|
sta tgi_clip_y2 ; Y2
|
|
|
|
|
stx tgi_clip_y2+1
|
2002-06-22 21:40:24 +00:00
|
|
|
sta _tgi_cury
|
|
|
|
|
stx _tgi_cury+1
|
2009-11-06 15:26:46 +00:00
|
|
|
|
2002-06-22 21:40:24 +00:00
|
|
|
jsr popax
|
2009-11-06 15:26:46 +00:00
|
|
|
|
|
|
|
|
sta tgi_clip_x2 ; X2
|
|
|
|
|
stx tgi_clip_x2+1
|
2002-06-22 21:40:24 +00:00
|
|
|
sta _tgi_curx
|
2002-06-22 21:46:32 +00:00
|
|
|
stx _tgi_curx+1
|
2002-06-22 21:40:24 +00:00
|
|
|
rts
|
|
|
|
|
|
2003-02-11 12:37:46 +00:00
|
|
|
.endproc
|
2002-06-22 21:40:24 +00:00
|
|
|
|
