2 ; Maciej 'YTM/Elysium' Witkowiak
6 ; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
7 ; void chline (unsigned char length);
9 .include "../inc/jumptab.inc"
10 .include "../inc/geossym.inc"
12 .export _chlinexy, _chline
13 .import popa, _gotoxy, fixcursor
14 .importzp cursor_x, cursor_y, cursor_c
19 jsr _gotoxy ; Call this one, will pop params
20 pla ; Restore the length
23 cmp #0 ; Is the length zero?
26 lda cursor_x ; left start
32 sbc #4 ; in the middle of a cell
42 lda #%11111111 ; pattern