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);
9 .export _cvlinexy, _cvline
10 .import gotoxy, putchar, setcursor
14 CHRCODE = 1 ; exclamation mark
16 CHRCODE = $7C ; Vertical bar
21 jsr gotoxy ; Call this one, will pop params
22 pla ; Restore the length and run into _cvline
25 cmp #0 ; Is the length zero?
30 lda #CHRCODE ; Vertical bar
31 jsr putchar ; Write, no cursor advance