1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/atari5200/bgcolor.s
Christian Groessler e1e6bec9ff atari5200: changes from discussions in #870
- rename screen_setup to initconio
- use Greg King's version of bgcolor()
2019-04-12 12:49:38 +02:00

27 lines
446 B
ArmAsm

;
; Greg King, 10-Apr-2019
;
.export _bgcolor
.include "atari5200.inc"
.data
old_bg_index:
.byte COLOR_BLACK ; see conioscreen.s for default palette
.code
_bgcolor:
and #$03
tax
ldy COLOR0,x
lda old_bg_index
sty COLOR4 ; set new value
stx old_bg_index
ldx #0 ; fix high byte
rts
.end