fix initial text- and background colors

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

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