TGI Implementation

git-svn-id: svn://svn.cc65.org/cc65/trunk@1313 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-06-21 13:39:32 +00:00
parent f82ac8a91c
commit 2614d20153
4 changed files with 73 additions and 0 deletions
--- a/libsrc/tgi/tgi_line.s
+++ b/libsrc/tgi/tgi_line.s
@@ -0,0 +1,29 @@
+;
+; Ullrich von Bassewitz, 21.06.2002
+;
+; void __fastcall__ tgi_line (int x1, int y1, int x2, int y2);
+; /* Draw a line in the current drawing color */
+
+
+        .include        "tgi-kernel.inc"
+
+        .import         popax
+        .importzp       ptr1, ptr2, ptr3, ptr4
+        .export         _tgi_line
+
+_tgi_line:
+        sta     ptr4            ; Get the coordinates
+        stx     ptr4+1
+        jsr     popax
+        sta     ptr3
+        stx     ptr3+1
+        jsr     popax
+        sta     ptr2
+        stx     ptr2+1
+        jsr     popax
+        sta     ptr1
+        stx     ptr1+1
+
+        jmp     tgi_line        ; Call the driver
+
+