atari5200: conio now uses just four colors altogether

[cc65] / libsrc / atari5200 / bgcolor.s

diff --git a/libsrc/atari5200/bgcolor.s b/libsrc/atari5200/bgcolor.s
index 1f9f772601fd196ccec6b7d627c19d3bfc68838e..bf10dff2cd4f9572c9cd861530a2444d8bf29378 100644 (file)
--- 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