Working on the TGI library

git-svn-id: svn://svn.cc65.org/cc65/trunk@1323 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-06-22 21:40:24 +00:00
parent 897c1d8523
commit bf944755dd
16 changed files with 202 additions and 50 deletions
--- a/libsrc/tgi/tgi_lineto.s
+++ b/libsrc/tgi/tgi_lineto.s
@@ -0,0 +1,30 @@
+;
+; 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
+        .importzp       ptr1, ptr2, ptr3, ptr4
+        .export         _tgi_lineto
+
+_tgi_lineto:
+        ldy     _tgi_curx       ; X1
+        sty     ptr1
+        ldy     _tgi_curx+1
+        sty     ptr1+1
+
+        ldy     _tgi_cury       ; Y1
+        sty     ptr2
+        ldy     _tgi_cury+1
+        sty     ptr2+1
+
+        jsr     tgi_linepop
+
+        jmp     tgi_line        ; Call the driver
+
+