From 626fed88b7b3bd30390be7b6e8da31581b6e8a9c Mon Sep 17 00:00:00 2001 From: jede Date: Sat, 14 Apr 2018 22:05:03 +0200 Subject: [PATCH] chline added --- libsrc/telestrat/chline.s | 22 ++++++++++++++++++++++ libsrc/telestrat/cputc.s | 1 - 2 files changed, 22 insertions(+), 1 deletion(-) create mode 100644 libsrc/telestrat/chline.s 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" -- 2.39.5