]> git.sur5r.net Git - cc65/blobdiff - libsrc/apple2/cvline.s
Made Apple II CONIO more flexible.
[cc65] / libsrc / apple2 / cvline.s
index c8ae1e269b8e585498638486fb20299ca51f9b0f..86bbf11f4b000f2ba38533e270ae6e0330fcd29e 100644 (file)
@@ -5,7 +5,7 @@
 ; void __fastcall__ cvline (unsigned char length);
 ;
 
-        .export         _cvlinexy, _cvline, cvlinedirect
+        .export         _cvlinexy, _cvline
         .import         gotoxy, putchar, newline
 
         .include        "zeropage.inc"
@@ -17,12 +17,11 @@ _cvlinexy:
 
 _cvline:
         .ifdef  __APPLE2ENH__
-        ldx     #'|' | $80      ; Vertical line, screen code
+        ldx     #$5F            ; Left vertical line MouseText character
         .else
-        ldx     #'!' | $80      ; Vertical line, screen code
+        ldx     #'!' | $80      ; Exclamation mark, screen code
         .endif
 
-cvlinedirect:
         stx     tmp1
         cmp     #$00            ; Is the length zero?
         beq     done            ; Jump if done