mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 15:05:14 +00:00
b0abf68505
is empty git-svn-id: svn://svn.cc65.org/cc65/trunk@1854 b7a2c559-68d2-44c3-8de9-860c34a00d81
35 lines
399 B
ArmAsm
35 lines
399 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
|
|
sta COLOR1
|
|
txa
|
|
rts
|
|
bright: lda #0
|
|
sta COLOR1
|
|
txa
|
|
rts
|
|
|
|
|
|
_bordercolor:
|
|
ldx COLOR4 ; get old value
|
|
sta COLOR4 ; set new value
|
|
txa
|
|
rts
|
|
|