2 ; Ullrich von Bassewitz, 08.08.1998
4 ; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cclear (unsigned char length);
8 .export _cclearxy, _cclear
9 .import gotoxy, cputdirect
14 jsr gotoxy ; Call this one, will pop params
15 pla ; Restore the length and run into _cclear
18 cmp #0 ; Is the length zero?
21 L1: lda #$20 ; Blank - screen code
22 jsr cputdirect ; Direct output