atari5200: changes from discussions in #870

- rename screen_setup to initconio
- use Greg King's version of bgcolor()
This commit is contained in:
Christian Groessler
2019-04-10 22:15:27 +02:00
committed by Oliver Schmidt
parent d7eecb57f8
commit e1e6bec9ff
4 changed files with 24 additions and 32 deletions

View File

@@ -1,36 +1,26 @@
;
; Christian Groessler, 05-Apr-2019
; Greg King, 10-Apr-2019
;
.export _bgcolor
.include "atari5200.inc"
.constructor init_old_bgcolor
.data
.bss
old_bg_color:
.res 1
old_bg_index:
.byte COLOR_BLACK ; see conioscreen.s for default palette
.code
_bgcolor:
and #3
and #$03
tax
lda COLOR0,x
ldx old_bg_color
sta COLOR4 ; set new value
sta old_bg_color
txa
ldx #0 ; fix X
ldy COLOR0,x
lda old_bg_index
sty COLOR4 ; set new value
stx old_bg_index
ldx #0 ; fix high byte
rts
.segment "ONCE"
init_old_bgcolor:
lda COLOR0+3 ; see also conioscreen.s for initialization
sta old_bg_color
rts
.end
.end