2 ; Maciej 'YTM/Elysium' Witkowiak
6 ; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
7 ; void cclear (unsigned char length);
9 .export _cclearxy, _cclear
10 .import gotoxy, fixcursor
11 .importzp cursor_x, cursor_y, cursor_c
13 .include "jumptab.inc"
14 .include "geossym.inc"
18 jsr gotoxy ; Call this one, will pop params
19 pla ; Restore the length
22 cmp #0 ; Is the length zero?
25 lda cursor_x ; left start
49 lda curPattern ; store current pattern
51 lda #0 ; set pattern to clear
55 jsr SetPattern ; restore pattern