2 ; Ullrich von Bassewitz, 08.08.1998
4 ; void __fastcall__ chlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void __fastcall__ chline (unsigned char length);
8 .export _chlinexy, _chline, chlinedirect
9 .import gotoxy, cputdirect
11 .include "zeropage.inc"
16 jsr gotoxy ; Call this one, will pop params
17 pla ; Restore the length and run into _chline
21 ldx #'_' | $80 ; Underscore, screen code
23 ldx #'-' | $80 ; Minus, screen code
28 cmp #$00 ; Is the length zero?
29 beq done ; Jump if done
31 : lda tmp1 ; Screen code
32 jsr cputdirect ; Direct output