Fix bgcolor and textcolor must return last color, jmp remove.

2019-07-18 20:48:10 +02:00
parent f9e13abc11
commit 0fe98a7ca8
4 changed files with 9 additions and 9 deletions
--- a/libsrc/telestrat/bgcolor.s
+++ b/libsrc/telestrat/bgcolor.s
@@ -7,6 +7,8 @@
        .include        "telestrat.inc"

 .proc _bgcolor
+    ldx     BGCOLOR     ; Get previous color
    sta     BGCOLOR
+    txa                 ; Return previous color
    rts
 .endproc