mirror of
https://github.com/cc65/cc65.git
synced 2024-07-01 08:29:37 +00:00
35 lines
688 B
ArmAsm
35 lines
688 B
ArmAsm
;
|
|
; Christian Groessler, 27-Dec-2002
|
|
;
|
|
|
|
.export _textcolor, _bgcolor, _bordercolor
|
|
.import return1
|
|
|
|
.include "atari.inc"
|
|
|
|
|
|
_textcolor = return1
|
|
|
|
_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
|
|
|
|
|
|
_bordercolor:
|
|
ldx COLOR4 ; get old value
|
|
sta COLOR4 ; set new value
|
|
txa
|
|
ldx #0 ; fix X
|
|
rts
|
|
|