6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-04 13:32:54 +00:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'upstream/master' into soft80

Browse Source
This commit is contained in:
mrdudz 2015-10-12 21:13:32 +02:00
commit f876ff4c09
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