2 ; Ullrich von Bassewitz, 08.08.1998
4 ; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void chline (unsigned char length);
8 .export _chlinexy, _chline
19 jsr popax ; Get X and Y
22 pla ; Restore the length and run into _chline
25 tax ; Is the length zero?
26 beq @L9 ; Jump if done
27 jsr setscrptr ; Set ptr2 to screen, won't use X
31 sta CURS_X ; Correct X position by length
32 lda #'-' ; Horizontal line screen code
34 @L1: sta (ptr2),y ; Write one char
37 inc ptr2+1 ; Bump high byte of screen pointer