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 032/170] 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 bf875ec1..a3291996 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
--
2.26.0