1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-31 04:04:49 +00:00
cc65/libsrc/tgi/tgi_lineto.s
2022-04-17 16:06:22 +02:00

27 lines
588 B
ArmAsm

;
; Ullrich von Bassewitz, 22.06.2002
;
; void __fastcall__ tgi_lineto (int x2, int y2);
; /* Draw a line in the current drawing color from the graphics cursor to the
; ** new end point.
; */
.include "tgi-kernel.inc"
.import popax
.proc _tgi_lineto
pha
ldy #3 ; Copy curx/cury to tgi_clip_x1/tgi_clip_y1
@L1: lda _tgi_curx,y
sta tgi_clip_x1,y
dey
bpl @L1
pla
jsr tgi_linepop ; Pop x2/y2
jmp tgi_clippedline ; Call the line clipper
.endproc