add some conio functions

[cc65] / libsrc / atari / cvline.s

diff --git a/libsrc/atari/cvline.s b/libsrc/atari/cvline.s
index 608da23deafb68adbdd8cbe481b86cd1b2e838c3..5b1c3fd094cf05b79a7fa6283448713575d869a6 100644 (file)
--- a/libsrc/atari/cvline.s
+++ b/libsrc/atari/cvline.s
@@ -10,6 +10,12 @@
         .import         popa, _gotoxy, putchar, setcursor
         .importzp       tmp1
 
+.ifndef __ATARI5200__
+CHRCODE =       $7C             ; Vertical bar
+.else
+CHRCODE =       1               ; exclamation mark
+.endif
+
 _cvlinexy:
         pha                     ; Save the length
         jsr     popa            ; Get y
@@ -22,7 +28,7 @@ _cvline:
         sta     tmp1
 L1:     lda     COLCRS
         pha
-        lda     #$7C            ; Vertical bar
+        lda     #CHRCODE        ; Vertical bar
         jsr     putchar         ; Write, no cursor advance
         pla
         sta     COLCRS
@@ -30,6 +36,3 @@ L1:     lda     COLCRS
         dec     tmp1
         bne     L1
 L9:     jmp     setcursor
-
-
-