mirror of
https://github.com/cc65/cc65.git
synced 2024-06-01 13:41:34 +00:00
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
|