mirror of
https://github.com/cc65/cc65.git
synced 2025-01-12 02:30:44 +00:00
chline added
This commit is contained in:
parent
e34ef0fc17
commit
626fed88b7
22
libsrc/telestrat/chline.s
Normal file
22
libsrc/telestrat/chline.s
Normal file
@ -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
|
||||||
|
|
@ -6,7 +6,6 @@
|
|||||||
|
|
||||||
.export _cputc
|
.export _cputc
|
||||||
|
|
||||||
|
|
||||||
.include "telestrat.inc"
|
.include "telestrat.inc"
|
||||||
|
|
||||||
.proc _cputc
|
.proc _cputc
|
||||||
|
Loading…
x
Reference in New Issue
Block a user