From 3d63a8bb6233875d985f4658612878c6016d9dbd Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Fri, 26 Jul 2019 23:11:34 +0200
Subject: [PATCH] Cleaning

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

diff --git a/libsrc/telestrat/cclear.s b/libsrc/telestrat/cclear.s
index bf875ec1a..a32919962 100644
--- a/libsrc/telestrat/cclear.s
+++ b/libsrc/telestrat/cclear.s
@@ -8,7 +8,7 @@
         .export         _cclearxy, _cclear
         .import         update_adscr
 
-		.importzp       tmp1 
+        .importzp       tmp1 
         .import         popax
         .include        "telestrat.inc"
 
@@ -22,14 +22,14 @@ _cclearxy:
         pla                     ; Restore the length and run into _cclear
 
 _cclear:
-        tax                     ; Is the length zero?
-        beq     @L9             ; Jump if done
+        tax                     ; Is the length equal to zero?
+        beq     @L2             ; Yes we skip
 @L1:
-        stx     tmp1  
-        lda     #' '
+        stx     tmp1            ; Save X
+        lda     #' '            ; Erase current char
         BRK_TELEMON     XFWR
         ldx     tmp1
         dex
         bne     @L1
-@L9:
+@L2:
         rts