2 ; Copied from CBM implementation
5 ; Ullrich von Bassewitz, 08.08.1998
7 ; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
8 ; void cclear (unsigned char length);
11 .export _cclearxy, _cclear
12 .import gotoxy, cputdirect
17 jsr gotoxy ; Call this one, will pop params
18 pla ; Restore the length and run into _cclear
21 cmp #0 ; Is the length zero?
25 jsr cputdirect ; Direct output