From f898176dd3871dcb15ecfbb3eca46f539d284b8b Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Tue, 23 Feb 2016 17:22:47 -0500
Subject: modify conio so it no longer needs carriage returns, now 7454 bytes
 free

---
 conio/cputc.s | 36 +++++++++++++++++++++++-------------
 1 file changed, 23 insertions(+), 13 deletions(-)

(limited to 'conio/cputc.s')

diff --git a/conio/cputc.s b/conio/cputc.s
index 5955b42..fb60ffc 100644
--- a/conio/cputc.s
+++ b/conio/cputc.s
@@ -1,3 +1,10 @@
+; this file modified for use with taipan:
+; - \n treated like \r\n used to: moves cursor to
+;   start of next line.
+; - \r no longer special (prints a graphics character)
+; - $0a no longer treated as as \n (prints graphics char)
+; - _cputcxy removed as taipan never uses it
+
 ;
 ; Mark Keates, Christian Groessler
 ;
@@ -5,7 +12,8 @@
 ; void cputc (char c);
 ;
 
-        .export         _cputcxy, _cputc
+        ;.export         _cputcxy, _cputc
+        .export         _cputc
         .export         plot, cputdirect, putchar
         .import         popa, _gotoxy, mul40
         .importzp       tmp4,ptr4
@@ -13,21 +21,21 @@
 
         .include        "atari.inc"
 
-_cputcxy:
-        pha                     ; Save C
-        jsr     popa            ; Get Y
-        jsr     _gotoxy         ; Set cursor, drop x
-        pla                     ; Restore C
+;_cputcxy:
+        ;pha                     ; Save C
+        ;jsr     popa            ; Get Y
+        ;jsr     _gotoxy         ; Set cursor, drop x
+        ;pla                     ; Restore C
 
 _cputc:
-        cmp     #$0D            ; CR
-        bne     L4
-        lda     #0
-        sta     COLCRS
-        beq     plot            ; return
+;        cmp     #$0D            ; CR
+;        bne     L4
+;        lda     #0
+;        sta     COLCRS
+;        beq     plot            ; return
 
-L4:     cmp     #$0A            ; LF
-        beq     newline
+L4:     ;cmp     #$0A            ; LF
+        ;beq     newline
         cmp     #ATEOL          ; Atari-EOL?
         beq     newline
 
@@ -55,6 +63,8 @@ cputdirect:                     ; accepts screen code
 
         .export newline
 newline:
+        lda     #0
+        sta     COLCRS
         inc     ROWCRS
         lda     ROWCRS
         cmp     #24
-- 
cgit v1.2.3