Removed the HORLINE entry point

git-svn-id: svn://svn.cc65.org/cc65/trunk@2652 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/geos/devel/geos-tgi.s b/libsrc/geos/devel/geos-tgi.s
index 65aec454a5a3cf42e5003a2d7c8a6a29742a8fb4..a16307bf9dd79fe86702341308ff3515fbe00049 100644 (file)
--- a/libsrc/geos/devel/geos-tgi.s
+++ b/libsrc/geos/devel/geos-tgi.s
@@ -69,7 +69,6 @@ pages:        .byte   1                       ; Number of screens available
         .word   GETDEFPALETTE
         .word   SETPIXEL
         .word   GETPIXEL
-        .word   HORLINE
         .word   LINE
         .word   BAR
         .word   CIRCLE
@@ -566,36 +565,6 @@ GETPIXEL:
        ldx     #0
        rts
 
-; ------------------------------------------------------------------------
-; HORLINE: Draw a horizontal line from X1/Y to X2/Y, where X1 = ptr1,
-; Y = ptr2 and X2 = ptr3, using the current drawing color.
-;
-; This is a special line drawing entry used when the line is know to be
-; horizontal, for example by the BAR emulation routine. If the driver does
-; not have special code for horizontal lines, it may just copy Y to Y2 and
-; proceed with the generic line drawing code.
-;
-; Note: Line coordinates will always be sorted (Y1 <= X2) and clipped.
-;
-; Must set an error code: NO
-;
-
-HORLINE:
-       lda     X1
-       ldx     X1+1
-       ldy     Y1
-       sta     r3L
-       stx     r3H
-       sty     r11L
-       lda     X2
-       ldx     X2+1
-       sta     r4L
-       stx     r4H
-       lda     BITMASK
-       beq     @L1
-       lda     #%11111111              ; pattern
-@L1:   jmp     HorizontalLine
-
 ; ------------------------------------------------------------------------
 ; LINE: Draw a line from X1/Y1 to X2/Y2, where X1/Y1 = ptr1/ptr2 and
 ; X2/Y2 = ptr3/ptr4 using the current drawing color.
@@ -670,7 +639,7 @@ CIRCLE:
        ; x = r;
        lda     #0
        sta     XX+1
-       sta     YY
+       sta     YY
        sta     YY+1
        sta     MaxO
        sta     MaxO+1