4 ; Ullrich von Bassewitz, 08.08.1998
6 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
7 ; void cvline (unsigned char length);
10 .export _cvlinexy, _cvline
11 .import popa, _gotoxy, putchar, newline
17 jsr _gotoxy ; Call this one, will pop params
18 pla ; Restore the length and run into _cvline
21 cmp #0 ; Is the length zero?
24 L1: lda #$95 ; Vertical bar
25 jsr putchar ; Write, no cursor advance
26 jsr newline ; Advance cursor to next line