2 ; Ullrich von Bassewitz, 08.08.1998
4 ; void __fastcall__ cvlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void __fastcall__ cvline (unsigned char length);
8 .export _cvlinexy, _cvline
9 .import gotoxy, putchar, newline
11 .include "zeropage.inc"
15 jsr gotoxy ; Call this one, will pop params
16 pla ; Restore the length and run into _cvline
20 ldx #$5F ; Left vertical line MouseText character
22 ldx #'!' | $80 ; Exclamation mark, screen code
26 cmp #$00 ; Is the length zero?
27 beq done ; Jump if done
29 : lda tmp1 ; Screen code
30 jsr putchar ; Write, no cursor advance
31 jsr newline ; Advance cursor to next line