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 popa, _gotoxy, fixcursor
11 .importzp cursor_x, cursor_y, cursor_c
13 .include "jumptab.inc"
14 .include "geossym.inc"
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
50 lda curPattern ; store current pattern
52 lda #0 ; set pattern to clear
56 jsr SetPattern ; restore pattern