From 185c4510005f974980a4725d03c097b0c5d244f5 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Mon, 1 Mar 2021 23:19:30 +0100
Subject: [PATCH] Fix cputdirect

---
 libsrc/telestrat/cputc.s | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libsrc/telestrat/cputc.s b/libsrc/telestrat/cputc.s
index a1ab145c2..f7bf5e2b6 100644
--- a/libsrc/telestrat/cputc.s
+++ b/libsrc/telestrat/cputc.s
@@ -4,7 +4,7 @@
 ; void cputc (char c);
 ;
 
-        .export         _cputc, _cputcxy, display_conio, CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
+        .export         _cputc, _cputcxy, cputdirect, display_conio, CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
 
         
         .import         update_adscr
@@ -12,6 +12,7 @@
 
         .include        "telestrat.inc"
 
+cputdirect:
 _cputcxy:
     pha                     ; Save C
     jsr     popax           ; Get X and Y
@@ -69,9 +70,8 @@ do_not_change_color:
 
 .endproc
 
-
-
 .proc display_conio
+    ; This routine is used to displays char on screen
     ldy     SCRX
     sta     (ADSCR),y
     iny