2 ; Ullrich von Bassewitz, 2003-04-13
4 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cvline (unsigned char length);
8 .export _cvlinexy, _cvline
19 jsr popax ; Get X and Y
22 pla ; Restore the length and run into _cvline
25 tax ; Is the length zero?
26 beq @L9 ; Jump if done
27 @L1: jsr setscrptr ; Set ptr2 to screen, won't use X
30 sta (ptr2),y ; Write one char