6502
/
cc65
mirror of https://github.com/cc65/cc65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Allow to override chars used for horizontal and vertical lines.

This commit is contained in:
Oliver Schmidt 2015-10-12 21:04:06 +02:00
parent 08efc299ff
commit 5e960d106e
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/cbm/chline.s
View File

@ -7,7 +7,7 @@
.export _chlinexy, _chline
.import popa, _gotoxy, cputdirect
.importzp tmp1
.importzp tmp1, chlinechar
_chlinexy:
pha ; Save the length
@ -19,7 +19,7 @@ _chline:
cmp #0 ; Is the length zero?
beq L9 ; Jump if done
sta tmp1
L1: lda #64 ; Horizontal line, screen code
L1: lda #chlinechar ; Horizontal line, screen code
jsr cputdirect ; Direct output
dec tmp1
bne L1

6
libsrc/cbm/clinechars.s Normal file
View File

@ -0,0 +1,6 @@
;
; Chars used by chline () and cvline ()
;
.exportzp chlinechar = 64
.exportzp cvlinechar = 93

4
libsrc/cbm/cvline.s
View File

@ -7,7 +7,7 @@
.export _cvlinexy, _cvline
.import popa, _gotoxy, putchar, newline
.importzp tmp1
.importzp tmp1, cvlinechar
_cvlinexy:
pha ; Save the length
@ -19,7 +19,7 @@ _cvline:
cmp #0 ; Is the length zero?
beq L9 ; Jump if done
sta tmp1
L1: lda #93 ; Vertical bar
L1: lda #cvlinechar ; Vertical bar
jsr putchar ; Write, no cursor advance
jsr newline ; Advance cursor to next line
dec tmp1