From facc1b4914425baee3019035189b29beca649cb5 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Mon, 8 Mar 2021 21:16:44 +0100
Subject: [PATCH] Fix cputdirect

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

diff --git a/libsrc/telestrat/cputc.s b/libsrc/telestrat/cputc.s
index 994a2b9d4..6049d1174 100644
--- a/libsrc/telestrat/cputc.s
+++ b/libsrc/telestrat/cputc.s
@@ -6,14 +6,13 @@
 
         .export         _cputc, _cputcxy, cputdirect, display_conio
         .export         CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
-
         
         .import         update_adscr
         .import         popax
 
         .include        "telestrat.inc"
 
-cputdirect:
+
 _cputcxy:
     pha                           ; Save C
     jsr     popax                 ; Get X and Y
@@ -22,7 +21,7 @@ _cputcxy:
     jsr     update_adscr
     pla        
 
-.proc _cputc
+_cputc:
     cmp     #$0D
     bne     @not_CR
     ldy     #$00
@@ -30,12 +29,13 @@ _cputcxy:
     rts
 @not_CR:
     cmp     #$0A
-    bne     @not_LF
+    bne     not_LF
 
     inc     SCRY
     jmp     update_adscr
 
-@not_LF:
+cputdirect:
+not_LF:
     ldx     CHARCOLOR
     cpx     OLD_CHARCOLOR
     beq     do_not_change_color_foreground
@@ -67,7 +67,7 @@ do_not_change_color_foreground:
 do_not_change_color:
     ; it continues to display_conio
 
-.endproc
+
 
 .proc display_conio
     ; This routine is used to displays char on screen