use 'soft80_internal_cellcolor' for the current cell color, and CHARCOLOR for the actual textcolor

This commit is contained in:
mrdudz
2015-10-14 17:24:16 +02:00
parent ffda2a3603
commit c708031374
5 changed files with 22 additions and 22 deletions

View File

@@ -6,7 +6,7 @@
;
.export soft80_textcolor, soft80_bgcolor
.import soft80_internal_textcolor, soft80_internal_bgcolor
.import soft80_internal_cellcolor, soft80_internal_bgcolor
.import soft80_internal_cursorxlsb
.import soft80_kplot, soft80_checkchar
@@ -16,8 +16,8 @@
.include "soft80.inc"
soft80_textcolor:
ldx soft80_internal_textcolor ; get old value
sta soft80_internal_textcolor ; set new value
ldx CHARCOLOR ; get old value
sta CHARCOLOR ; set new value
mkcharcolor:
lda soft80_internal_bgcolor
@@ -26,8 +26,8 @@ mkcharcolor:
asl a
asl a
sta tmp1 ; remember new bg color (high nibble)
ora soft80_internal_textcolor
sta CHARCOLOR ; text/bg combo for new chars
ora CHARCOLOR
sta soft80_internal_cellcolor ; text/bg combo for new chars
txa ; get old value
rts