2 ; Ullrich von Bassewitz, 2003-04-13
4 ; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cclear (unsigned char length);
8 .export _cclearxy, _cclear
19 jsr popax ; Get X and Y
22 pla ; Restore the length and run into _cclear
25 tax ; Is the length zero?
26 beq @L9 ; Jump if done
27 jsr setscrptr ; Set ptr2 to screen, won't use X
30 @L1: sta (ptr2),y ; Write one char
33 inc ptr2+1 ; Bump high byte of screen pointer