bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

_bgcolor now also sets the fg luminance to max. contrast; _textcolor

Browse Source 
is empty


git-svn-id: svn://svn.cc65.org/cc65/trunk@1854 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg
2002-12-27 20:45:01 +00:00
parent a72745267b
commit b0abf68505
1 changed files with 27 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
libsrc/atari/color.s
View File

@@ -1,18 +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 return0, return1 .import return1
.include "atari.inc"
_textcolor = return1 _textcolor = return1
_bgcolor = return0 _bgcolor:
ldx COLOR2 ; get old value
_bordercolor = return0 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