;
-; Ullrich von Bassewitz, 06.08.1998
+; Christian Groessler, 27-Dec-2002
;
-; unsigned char __fastcall__ textcolor (unsigned char color);
-; unsigned char __fastcall__ bgcolor (unsigned char color);
-; unsigned char __fastcall__ bordercolor (unsigned char color);
-;
-
.export _textcolor, _bgcolor, _bordercolor
+ .import return1
.include "atari.inc"
-_textcolor:
- ldx COLOR1 ; get old value
- sta COLOR1 ; set new value
- txa
- rts
+_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
ldx COLOR4 ; get old value
sta COLOR4 ; set new value
txa
+ ldx #0 ; fix X
rts