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/chline.s
+++ b/libsrc/atari/chline.s
@@ -9,6 +9,12 @@
        .import         popa, _gotoxy, cputdirect, setcursor
        .importzp       tmp1

+.ifndef __ATARI5200__
+CHRCODE =       $12+64
+.else
+CHRCODE =       14
+.endif
+
 _chlinexy:
        pha                     ; Save the length
        jsr     popa            ; Get y
@@ -19,12 +25,8 @@ _chline:
        cmp     #0              ; Is the length zero?
        beq     L9              ; Jump if done
        sta     tmp1
-L1:     lda     #$12+64         ; Horizontal line, screen code
+L1:     lda     #CHRCODE        ; Horizontal line, screen code
        jsr     cputdirect      ; Direct output
        dec     tmp1
        bne     L1
 L9:     jmp     setcursor
-
-
-
-