2 ; based on CBM implementation
5 ; Ullrich von Bassewitz, 08.08.1998
7 ; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
8 ; void chline (unsigned char length);
11 .export _chlinexy, _chline
12 .import popa, _gotoxy, cputdirect
18 jsr _gotoxy ; Call this one, will pop params
19 pla ; Restore the length
22 cmp #0 ; Is the length zero?
25 L1: lda #$94 ; Horizontal line, screen code
26 jsr cputdirect ; Direct output