6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-02 04:41:35 +00:00
Code Issues Projects Releases Wiki Activity

fix initial text- and background colors

Browse Source
This commit is contained in:
mrdudz 2015-09-27 18:36:53 +02:00
parent 9e08c53b01
commit fba28f46f6
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libsrc/c64/soft80_color.s
View File

@ -25,15 +25,13 @@ soft80_textcolor:
asl a
asl a
ora __textcolor
sta CHARCOLOR
sta CHARCOLOR ; text/bg combo for new chars
txa ; get old value
rts
soft80_bgcolor:
cmp __bgcolor
beq _donothing
ldx __bgcolor ; get old value
sta __bgcolor ; set new value
asl a
@ -62,8 +60,8 @@ lp2:
.scope
lda soft80_vram+(page*$100),x
and #$0f
cmp tmp1 ; old bg color
bne as
;cmp tmp1 ; old bg color
;bne as
; is old bg color
; is space
;lda __bgcolor
@ -82,7 +80,6 @@ as:
cli
pla ; get old value
_donothing:
rts

12
libsrc/c64/soft80_conio.s
View File

@ -6,7 +6,7 @@
.destructor soft80_shutdown
.import soft80_kclrscr, soft80_plotinit
.import __textcolor, __bgcolor ; CHECK/FIX
.import soft80_textcolor, soft80_bgcolor
.include "c64.inc"
.include "soft80.inc"
@ -52,10 +52,12 @@ soft80_init:
jsr soft80_plotinit
lda #1
sta __textcolor
lda #0
sta __bgcolor
lda 646 ; use current textcolor
jsr soft80_textcolor
lda VIC_BG_COLOR0 ; use current bgcolor
and #$0f
jsr soft80_bgcolor
jmp soft80_kclrscr

9
testcode/lib/conio.c
View File

@ -5,13 +5,14 @@
void main(void)
{
int i, j;
unsigned char xsize, ysize, n;
int i, j, n;
unsigned char xsize, ysize, tcol;
clrscr();
screensize(&xsize, &ysize);
cputs("cc65 conio test");
tcol = textcolor(1);
cputsxy(0, 2, "colors:" );
for (i = 3; i < 6; ++i) {
gotoxy(i,i);
@ -20,7 +21,7 @@ void main(void)
cputc('X');
}
}
textcolor(1);
textcolor(tcol);
cprintf("\n\n\rscreensize is: %dx%d", xsize, ysize );