From ad6e5ee981f85839443cc359537bf2997f5ad11d Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Wed, 24 Feb 2016 16:25:39 -0500
Subject: remove some unused conio code, move newtitle.s variables to \$cb-\$ce

---
 conio/chline.s | 14 ++++++++------
 conio/cputs.s  | 16 +++++++++-------
 2 files changed, 17 insertions(+), 13 deletions(-)

(limited to 'conio')

diff --git a/conio/chline.s b/conio/chline.s
index 2ad7fed..85d2e28 100644
--- a/conio/chline.s
+++ b/conio/chline.s
@@ -1,3 +1,5 @@
+; modified for taipan:
+; - commented out _chlinexy as taipan never uses it.
 ;
 ; Ullrich von Bassewitz, 08.08.1998
 ;
@@ -5,7 +7,7 @@
 ; void chline (unsigned char length);
 ;
 
-        .export         _chlinexy, _chline
+        .export         _chline
         .import         popa, _gotoxy, cputdirect
         .importzp       tmp1
 
@@ -15,11 +17,11 @@ CHRCODE =       14
 CHRCODE =       $12+64
 .endif
 
-_chlinexy:
-        pha                     ; Save the length
-        jsr     popa            ; Get y
-        jsr     _gotoxy         ; Call this one, will pop params
-        pla                     ; Restore the length
+;_chlinexy:
+;        pha                     ; Save the length
+;        jsr     popa            ; Get y
+;        jsr     _gotoxy         ; Call this one, will pop params
+;        pla                     ; Restore the length
 
 _chline:
         cmp     #0              ; Is the length zero?
diff --git a/conio/cputs.s b/conio/cputs.s
index 13cf847..80b770e 100644
--- a/conio/cputs.s
+++ b/conio/cputs.s
@@ -1,3 +1,5 @@
+; modified for use with taipan:
+; - _cputsxy commented out as taipan never uses it.
 ;
 ; Ullrich von Bassewitz, 06.08.1998
 ;
@@ -5,16 +7,16 @@
 ; void cputs (char* s);
 ;
 
-        .export         _cputsxy, _cputs
+        .export         _cputs
         .import         popa, _gotoxy, _cputc
         .importzp       ptr1, tmp1
                  
-_cputsxy:
-        sta     ptr1            ; Save s for later
-        stx     ptr1+1
-        jsr     popa            ; Get Y
-        jsr     _gotoxy         ; Set cursor, pop x
-        jmp     L0              ; Same as cputs...
+;_cputsxy:
+;        sta     ptr1            ; Save s for later
+;        stx     ptr1+1
+;        jsr     popa            ; Get Y
+;        jsr     _gotoxy         ; Set cursor, pop x
+;        jmp     L0              ; Same as cputs...
 
 _cputs: sta     ptr1            ; Save s
         stx     ptr1+1
-- 
cgit v1.2.3