remove superfluous ".code" line

[cc65] / libsrc / tgi / tgi_lineto.s

diff --git a/libsrc/tgi/tgi_lineto.s b/libsrc/tgi/tgi_lineto.s
index 1add867443e83bf2a3303e58d16bc46447ba9e2d..868f4cf4222cd2ab05ad98bd78f52ee4302f940b 100644 (file)
--- a/libsrc/tgi/tgi_lineto.s
+++ b/libsrc/tgi/tgi_lineto.s
@@ -9,22 +9,18 @@
         .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
+.proc   _tgi_lineto
 
-        ldy     _tgi_cury       ; Y1
-        sty     ptr2
-        ldy     _tgi_cury+1
-        sty     ptr2+1
-
-        jsr     tgi_linepop
-
-        jmp     tgi_line        ; Call the driver
+        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