mirror of
https://github.com/cc65/cc65.git
synced 2024-09-13 20:56:58 +00:00
be6bba66a9
See discussion in PR #870.
38 lines
680 B
ArmAsm
38 lines
680 B
ArmAsm
;
|
|
; 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
|