Added a blank line between .include statements and .import/.export statements

[cc65] / libsrc / atari / color.s

diff --git a/libsrc/atari/color.s b/libsrc/atari/color.s
index ea398edb24f586cefd445d781f34acb1716e31d8..57d0036c9e8cbdd41b2eac2c9349ada7c2ad5b43 100644 (file)
--- a/libsrc/atari/color.s
+++ b/libsrc/atari/color.s
@@ -1,33 +1,34 @@
 ;
-; 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
+        .export         _textcolor, _bgcolor, _bordercolor
+        .import         return1
 
-       .include        "atari.inc"
+        .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
-       txa
-       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
-       rts
+        ldx     COLOR4  ; get old value
+        sta     COLOR4  ; set new value
+        txa
+        ldx     #0      ; fix X
+        rts