From: jede <jede@oric.org>
Date: Sat, 14 Apr 2018 20:05:03 +0000 (+0200)
Subject: chline added
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=626fed88b7b3bd30390be7b6e8da31581b6e8a9c;p=cc65

chline added
---

diff --git a/libsrc/telestrat/chline.s b/libsrc/telestrat/chline.s
new file mode 100644
index 000000000..16e57d5fd
--- /dev/null
+++ b/libsrc/telestrat/chline.s
@@ -0,0 +1,22 @@
+;
+; jede jede@oric.org 2018-04-17
+;
+
+; void chline (unsigned char length);
+;
+
+        .export         _chline
+        .include        "telestrat.inc"
+        .include        "zeropage.inc"        
+
+
+.proc _chline
+    sta     tmp1
+@loop:
+    lda     #'-'            ; Horizontal line screen code
+    BRK_TELEMON  XWR0       ; macro send char to screen (channel 0 in telemon terms)
+    dec     tmp1
+    bne     @loop
+    rts
+.endproc
+
diff --git a/libsrc/telestrat/cputc.s b/libsrc/telestrat/cputc.s
index d107446c3..b4f2966a4 100644
--- a/libsrc/telestrat/cputc.s
+++ b/libsrc/telestrat/cputc.s
@@ -5,7 +5,6 @@
 ;
 
         .export         _cputc
-        
 
         .include        "telestrat.inc"