2 ; Ullrich von Bassewitz, 08.08.1998
4 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cvline (unsigned char length);
8 .export _cvlinexy, _cvline
9 .import gotoxy, putchar, newline
16 jsr gotoxy ; Call this one, will pop params
17 pla ; Restore the length and run into _cvline
20 cmp #0 ; Is the length zero?
23 L1: lda #CH_VLINE ; Vertical bar
24 jsr putchar ; Write, no cursor advance
25 jsr newline ; Advance cursor to next line