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
|
||
|
|
|