Fix bug with bgcolor and textcolor

2019-07-17 21:48:53 +02:00
parent 6f7f6b5119
commit ede64f68a9
7 changed files with 59 additions and 89 deletions
--- a/libsrc/telestrat/bgcolor.s
+++ b/libsrc/telestrat/bgcolor.s
@@ -3,23 +3,10 @@

        .export         _bgcolor
        .import         BGCOLOR
-        .import         BGCOLOR_CHANGE
+
        .include        "telestrat.inc"

 .proc _bgcolor
-    cmp     BGCOLOR       ; Do we set the same color? If we don't detect it, we loose one char on the screen for each bgcolor call with the same color
-    bne     out           ; Yes
-    
-    ldy     #$00
-    sty     BGCOLOR_CHANGE
-
-    rts
-out:
-    ldx     BGCOLOR       ; Get last color in order to return it
    sta     BGCOLOR
-
-    lda     #$01          ; Notify the change color  
-    sta     BGCOLOR_CHANGE  
-    txa                   ; Return previous color
    rts
 .endproc