chline added

diff --git a/libsrc/telestrat/chline.s b/libsrc/telestrat/chline.s
new file mode 100644 (file)
index 0000000..16e57d5
--- /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 d107446c3306dbc4b9b0c80a2ca91bb42d9d246b..b4f2966a4d68589b3a394066cefcbf70337dbbb3 100644 (file)
--- a/libsrc/telestrat/cputc.s
+++ b/libsrc/telestrat/cputc.s
@@ -5,7 +5,6 @@
 ;
 
         .export         _cputc
-        
 
         .include        "telestrat.inc"