Add textcolor and bgcolor.s

2019-07-06 10:16:57 +02:00
parent 14ac1a7ff6
commit 7f9e73a1ce
8 changed files with 129 additions and 14 deletions
--- a/libsrc/telestrat/textcolor.s
+++ b/libsrc/telestrat/textcolor.s
@@ -0,0 +1,28 @@
+; 2019-07-02, Jede (jede@oric.org)
+;
+
+        .export         _textcolor
+        .import         CHARCOLOR
+        .import         CHARCOLOR_CHANGE
+        .include        "telestrat.inc"
+
+.proc _textcolor
+    cmp     CHARCOLOR       ; Do we set the same color? if we don't detect it, we loose one char on the screen for each textcolor call with the same color
+    bne     out             ; yes
+    lda     #$00
+    sta     CHARCOLOR_CHANGE
+    
+    lda     CHARCOLOR       ; return last color
+
+    rts
+out:
+    ldx     CHARCOLOR       ; get last color in order to return it
+    sta     CHARCOLOR
+
+    lda     #$01
+    sta     CHARCOLOR_CHANGE
+    txa                     ; return previous color
+    rts
+.endproc
+
+