Fixed several aspects of the GEOS CONIO implementation:

[cc65] / libsrc / geos-common / conio / cvline.s

diff --git a/libsrc/geos-common/conio/cvline.s b/libsrc/geos-common/conio/cvline.s
index 70475cef553e82320295e758566f53be46e0dd36..e60af74a3bfd128f47b768d5a6578285851db993 100644 (file)
--- a/libsrc/geos-common/conio/cvline.s
+++ b/libsrc/geos-common/conio/cvline.s
@@ -25,7 +25,7 @@ _cvline:
        tax
        lda cursor_x            ; x position
        clc
-       adc #4                  ; in the middle of cell
+       adc #3                  ; in the middle of cell
        sta r4L
        lda cursor_x+1
        adc #0
@@ -36,10 +36,12 @@ _cvline:
        clc
        adc cursor_r
        sta cursor_r
+       asl a
+       asl a
+       asl a
+       clc                     ; one pixel less
+       sbc #0
        sta r3H
-       asl r3H
-       asl r3H
-       asl r3H
        lda #%11111111          ; pattern
        jsr VerticalLine
        jsr fixcursor