From: Oliver Schmidt Date: Mon, 12 Oct 2015 19:04:06 +0000 (+0200) Subject: Allow to override chars used for horizontal and vertical lines. X-Git-Tag: V2.16~216 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=5e960d106e050abe01616618907a95dbe8bf7dd0;p=cc65 Allow to override chars used for horizontal and vertical lines. --- diff --git a/libsrc/cbm/chline.s b/libsrc/cbm/chline.s index 26603b2fe..fe7e7255d 100644 --- a/libsrc/cbm/chline.s +++ b/libsrc/cbm/chline.s @@ -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 diff --git a/libsrc/cbm/clinechars.s b/libsrc/cbm/clinechars.s new file mode 100644 index 000000000..54896574b --- /dev/null +++ b/libsrc/cbm/clinechars.s @@ -0,0 +1,6 @@ +; +; Chars used by chline () and cvline () +; + + .exportzp chlinechar = 64 + .exportzp cvlinechar = 93 diff --git a/libsrc/cbm/cvline.s b/libsrc/cbm/cvline.s index f310e4322..2cf231e98 100644 --- a/libsrc/cbm/cvline.s +++ b/libsrc/cbm/cvline.s @@ -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