6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-08 15:29:37 +00:00
Code Issues Projects Releases Wiki Activity

remove chline/cvline dupes

Browse Source
This commit is contained in:
mrdudz 2015-10-12 21:23:27 +02:00
parent f876ff4c09
commit 362a172477
3 changed files with 7 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/c64/extra/soft80.s
View File

@ -9,12 +9,6 @@
.import soft80_cgetc
.export _cgetc := soft80_cgetc
; soft80_chline.s
.import soft80_chlinexy
.import soft80_chline
.export _chlinexy := soft80_chlinexy
.export _chline := soft80_chline
; soft80_color.s
.import soft80_textcolor
.import soft80_bgcolor
@ -39,12 +33,6 @@
.export newline := soft80_newline
.export plot := soft80_plot
; soft80_cvline.s
.import soft80_cvlinexy
.import soft80_cvline
.export _cvlinexy := soft80_cvlinexy
.export _cvline := soft80_cvline
; soft80_kclrscr.s
.import soft80_kclrscr
.export _clrscr := soft80_kclrscr
@ -58,5 +46,10 @@
.import soft80_screensize
.export screensize := soft80_screensize
.export mcb_spritememory := soft80_spriteblock
.export mcb_spritepointer := (soft80_vram + $03F8)
; VIC sprite data for the mouse pointer
.export mcb_spritememory := soft80_spriteblock
.export mcb_spritepointer := (soft80_vram + $03F8)
; Chars used by chline () and cvline ()
.exportzp chlinechar = CH_HLINE
.exportzp cvlinechar = CH_VLINE

33
libsrc/c64/soft80_chline.s
View File

@ -1,33 +0,0 @@
;
; Groepaz/Hitmen, 12.10.2015
;
; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
; void chline (unsigned char length);
;
.export soft80_chlinexy, soft80_chline
.import popa, _gotoxy, soft80_cputdirect
.importzp tmp1
.include "c64.inc"
.include "soft80.inc"
soft80_chlinexy:
pha ; Save the length
jsr popa ; Get y
jsr _gotoxy ; Call this one, will pop params
pla ; Restore the length
soft80_chline:
cmp #0 ; Is the length zero?
beq L9 ; Jump if done
sta tmp1
L1: lda #CH_HLINE ; Horizontal line, petscii code
jsr soft80_cputdirect ; Direct output
dec tmp1
bne L1
L9: rts

33
libsrc/c64/soft80_cvline.s
View File

@ -1,33 +0,0 @@
;
; Groepaz/Hitmen, 12.10.2015
;
; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
; void cvline (unsigned char length);
;
.export soft80_cvline, soft80_cvlinexy
.import popa, _gotoxy, soft80_putchar, soft80_newline
.importzp tmp1
.include "c64.inc"
.include "soft80.inc"
soft80_cvlinexy:
pha ; Save the length
jsr popa ; Get y
jsr _gotoxy ; Call this one, will pop params
pla ; Restore the length and run into soft80_cvlinexy
soft80_cvline:
cmp #0 ; Is the length zero?
beq L9 ; Jump if done
sta tmp1
L1: lda #CH_VLINE ; Vertical bar, petscii code
jsr soft80_putchar ; Write, no cursor advance
jsr soft80_newline ; Advance cursor to next line
dec tmp1
bne L1
L9: rts