1; 2; Ullrich von Bassewitz, 08.08.1998 3; 4; void chlinexy (unsigned char x, unsigned char y, unsigned char length); 5; void chline (unsigned char length); 6; 7 8 .export _chlinexy, _chline 9 .import gotoxy, cputdirect 10 .importzp tmp1, chlinechar 11 12_chlinexy: 13 pha ; Save the length 14 jsr gotoxy ; Call this one, will pop params 15 pla ; Restore the length 16 17_chline: 18 cmp #0 ; Is the length zero? 19 beq L9 ; Jump if done 20 sta tmp1 21L1: lda #chlinechar ; Horizontal line, screen code 22 jsr cputdirect ; Direct output 23 dec tmp1 24 bne L1 25L9: rts 26