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
.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
cli
pla ; get old value
-_donothing:
rts
.destructor soft80_shutdown
.import soft80_kclrscr, soft80_plotinit
- .import __textcolor, __bgcolor ; CHECK/FIX
+ .import soft80_textcolor, soft80_bgcolor
.include "c64.inc"
.include "soft80.inc"
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
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);
cputc('X');
}
}
- textcolor(1);
+ textcolor(tcol);
cprintf("\n\n\rscreensize is: %dx%d", xsize, ysize );