add some conio functions

2014-03-11 01:17:59 +01:00
parent 361da29e51
commit 889783bedb
7 changed files with 91 additions and 9 deletions
--- 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
-
-
-