2000-05-28 13:40:48 +00:00
|
|
|
;
|
2002-12-27 20:45:01 +00:00
|
|
|
; Christian Groessler, 27-Dec-2002
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _textcolor, _bgcolor, _bordercolor
|
|
|
|
|
.import return1
|
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
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
_textcolor = return1
|
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
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
|
2002-12-27 20:45:01 +00:00
|
|
|
_bordercolor:
|
2013-05-09 11:56:54 +00:00
|
|
|
ldx COLOR4 ; get old value
|
|
|
|
|
sta COLOR4 ; set new value
|
|
|
|
|
txa
|
|
|
|
|
ldx #0 ; fix X
|
|
|
|
|
rts
|
2000-05-28 13:40:48 +00:00
|
|
|
|
