; Christian Groessler, 27-Dec-2002
;
- .export _textcolor, _bgcolor, _bordercolor
- .import return1
+ .export _textcolor, _bgcolor, _bordercolor
+ .import return1
- .include "atari.inc"
+ .include "atari.inc"
-_textcolor = return1
+_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 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
+ ldx COLOR4 ; get old value
+ sta COLOR4 ; set new value
+ txa
+ ldx #0 ; fix X
+ rts