2000-05-28 13:40:48 +00:00
|
|
|
;
|
2019-04-02 17:10:52 +00:00
|
|
|
; Christian Groessler, 02-Apr-2019
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
|
2019-04-02 17:10:52 +00:00
|
|
|
.export _bgcolor
|
2002-12-27 20:45:01 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "atari.inc"
|
2002-12-27 20:45:01 +00:00
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2002-12-27 20:45:01 +00:00
|
|
|
_bgcolor:
|
2013-05-09 11:56:54 +00:00
|
|
|
ldx COLOR2 ; get old value
|
|
|
|
|
sta COLOR2 ; set new value
|
|
|
|
|
and #$0e
|
|
|
|
|
cmp #8
|
|
|
|
|
bcs bright
|
|
|
|
|
lda #$0e
|
|
|
|
|
.byte $2c ; bit opcode, eats the next 2 bytes
|
|
|
|
|
bright: lda #0
|
|
|
|
|
sta COLOR1
|
|
|
|
|
txa
|
|
|
|
|
ldx #0 ; fix X
|
|
|
|
|
rts
|
