6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-09 17:33:00 +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 .export _chlinexy, _chline
.import popa, _gotoxy, cputdirect .import popa, _gotoxy, cputdirect
.importzp tmp1 .importzp tmp1, chlinechar
_chlinexy: _chlinexy:
pha ; Save the length pha ; Save the length
@ -19,7 +19,7 @@ _chline:
cmp #0 ; Is the length zero? cmp #0 ; Is the length zero?
beq L9 ; Jump if done beq L9 ; Jump if done
sta tmp1 sta tmp1
L1: lda #64 ; Horizontal line, screen code L1: lda #chlinechar ; Horizontal line, screen code
jsr cputdirect ; Direct output jsr cputdirect ; Direct output
dec tmp1 dec tmp1
bne L1 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 .export _cvlinexy, _cvline
.import popa, _gotoxy, putchar, newline .import popa, _gotoxy, putchar, newline
.importzp tmp1 .importzp tmp1, cvlinechar
_cvlinexy: _cvlinexy:
pha ; Save the length pha ; Save the length
@ -19,7 +19,7 @@ _cvline:
cmp #0 ; Is the length zero? cmp #0 ; Is the length zero?
beq L9 ; Jump if done beq L9 ; Jump if done
sta tmp1 sta tmp1
L1: lda #93 ; Vertical bar L1: lda #cvlinechar ; Vertical bar
jsr putchar ; Write, no cursor advance jsr putchar ; Write, no cursor advance
jsr newline ; Advance cursor to next line jsr newline ; Advance cursor to next line
dec tmp1 dec tmp1