; void cvline (unsigned char length);
;
- .export _cvlinexy, _cvline
- .import popa, _gotoxy, putchar, newline
- .importzp tmp1
+ .export _cvlinexy, _cvline
+ .import gotoxy, putchar, newline
+ .importzp tmp1, cvlinechar
_cvlinexy:
- pha ; Save the length
- jsr popa ; Get y
- jsr _gotoxy ; Call this one, will pop params
- pla ; Restore the length and run into _cvline
+ pha ; Save the length
+ jsr gotoxy ; Call this one, will pop params
+ pla ; Restore the length and run into _cvline
_cvline:
- cmp #0 ; Is the length zero?
- beq L9 ; Jump if done
- sta tmp1
-L1: lda #93 ; Vertical bar
- jsr putchar ; Write, no cursor advance
- jsr newline ; Advance cursor to next line
- dec tmp1
- bne L1
-L9: rts
-
-
-
+ cmp #0 ; Is the length zero?
+ beq L9 ; Jump if done
+ sta tmp1
+L1: lda #cvlinechar ; Vertical bar
+ jsr putchar ; Write, no cursor advance
+ jsr newline ; Advance cursor to next line
+ dec tmp1
+ bne L1
+L9: rts