cc65/libsrc/atari5200/bgcolor.s

;
; Christian Groessler, 05-Apr-2019
;

        .export         _bgcolor

        .include        "atari5200.inc"

        .constructor    init_old_bgcolor

.bss

old_bg_color:
        .res    1

.code

_bgcolor:
        and     #3
        tax
        lda     COLOR0,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     COLOR0+3                ; see also conioscreen.s for initialization
        sta     old_bg_color
        rts

        .end
atari5200: conio now uses just four colors altogether See discussion in PR #870. 2019-04-04 23:26:34 +00:00			`;`
			`; Christian Groessler, 05-Apr-2019`
			`;`

			`.export _bgcolor`

			`.include "atari5200.inc"`

			`.constructor init_old_bgcolor`

			`.bss`

			`old_bg_color:`
			`.res 1`

			`.code`

			`_bgcolor:`
			`and #3`
			`tax`
atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda COLOR0,x`
atari5200: conio now uses just four colors altogether See discussion in PR #870. 2019-04-04 23:26:34 +00:00			`ldx old_bg_color`
			`sta COLOR4 ; set new value`
			`sta old_bg_color`
			`txa`
			`ldx #0 ; fix X`
			`rts`

			`.segment "ONCE"`

			`init_old_bgcolor:`
atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda COLOR0+3 ; see also conioscreen.s for initialization`
atari5200: conio now uses just four colors altogether See discussion in PR #870. 2019-04-04 23:26:34 +00:00			`sta old_bg_color`
			`rts`

			`.end`