mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +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
|
||||
|
||||
|
||||
.include "telestrat.inc"
|
||||
|
||||
.proc _cputc
|
||||
|
Loading…
Reference in New Issue
Block a user