atari5200: conio now uses just four colors altogether

See discussion in PR #870.
2019-04-05 01:26:34 +02:00
parent 79b9a8d2df
commit be6bba66a9
11 changed files with 173 additions and 59 deletions
--- a/libsrc/atari5200/bgcolor.s
+++ b/libsrc/atari5200/bgcolor.s
@@ -1 +1,37 @@
-.include "../atari/bgcolor.s"
+;
+; Christian Groessler, 05-Apr-2019
+;
+
+        .import         conio_colors
+        .export         _bgcolor
+
+        .include        "atari5200.inc"
+
+        .constructor    init_old_bgcolor
+
+.bss
+
+old_bg_color:
+        .res    1
+
+.code
+
+_bgcolor:
+        and     #3
+        tax
+        lda     conio_colors,x
+        ldx     old_bg_color
+        sta     COLOR4                  ; set new value
+        sta     old_bg_color
+        txa
+        ldx     #0                      ; fix X
+        rts
+
+.segment        "ONCE"
+
+init_old_bgcolor:
+        lda     conio_colors+3          ; see also conioscreen.s for initialization
+        sta     old_bg_color
+        rts
+
+        .end