atari5200: changes from discussions in #870
- rename screen_setup to initconio - use Greg King's version of bgcolor()
This commit is contained in:
committed by
Oliver Schmidt
parent
d7eecb57f8
commit
e1e6bec9ff
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user