mirror of
https://github.com/cc65/cc65.git
synced 2024-11-03 10:07:02 +00:00
23 lines
444 B
ArmAsm
23 lines
444 B
ArmAsm
;
|
|
; Christian Groessler, 02-Apr-2019
|
|
;
|
|
|
|
.export _bgcolor
|
|
|
|
.include "atari.inc"
|
|
|
|
|
|
_bgcolor:
|
|
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
|