mirror of
https://github.com/cc65/cc65.git
synced 2024-06-24 18:28:53 +00:00
23 lines
433 B
ArmAsm
23 lines
433 B
ArmAsm
;
|
|
; 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
|
|
|