chline added

2024-12-23 19:29:37 +00:00 · 2018-04-14 22:05:03 +02:00 · 2018-04-14 22:05:03 +02:00 · 626fed88b7
commit 626fed88b7
parent e34ef0fc17
2 changed files with 22 additions and 1 deletions
--- a/libsrc/telestrat/chline.s
+++ 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
+
--- a/libsrc/telestrat/cputc.s
+++ b/libsrc/telestrat/cputc.s
@ -5,7 +5,6 @@
 ;

        .export         _cputc
-        

        .include        "telestrat.inc"