2 ; Groepaz/Hitmen, 12.10.2015
4 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cvline (unsigned char length);
8 .export soft80_cvline, soft80_cvlinexy
9 .import popa, _gotoxy, soft80_putchar, soft80_newline
18 jsr _gotoxy ; Call this one, will pop params
19 pla ; Restore the length and run into soft80_cvlinexy
22 cmp #0 ; Is the length zero?
25 L1: lda #CH_VLINE ; Vertical bar, petscii code
26 jsr soft80_putchar ; Write, no cursor advance
27 jsr soft80_newline ; Advance cursor to next line