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

Style changes.

Browse Source
This commit is contained in:
Greg King
2015-10-02 10:50:22 -04:00
committed by Oliver Schmidt
parent 203200e259
commit b5d939c858
23 changed files with 142 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
libsrc/pce/color.s
View File

@@ -4,14 +4,15 @@
; unsigned char __fastcall__ bordercolor (unsigned char color);
;
.export _textcolor, _bgcolor, _bordercolor
.export colors
.import return0
.include "pce.inc"
.include "extzp.inc"
_bordercolor = return0
_bordercolor := return0
_textcolor:
ldx CHARCOLOR ; get old value
@@ -35,27 +36,25 @@ _bgcolor:
txa
rts
.rodata
.export colors
.rodata
colors:
; G R B
.word ((0<<6)+(0<<3)+(0)) ; 0 black
.word ((7<<6)+(7<<3)+(7)) ; 1 white
.word ((0<<6)+(7<<3)+(0)) ; 2 red
.word ((7<<6)+(0<<3)+(7)) ; 3 cyan
.word ((0<<6)+(5<<3)+(7)) ; 4 violett
.word ((7<<6)+(0<<3)+(0)) ; 5 green
.word ((0<<6)+(0<<3)+(7)) ; 6 blue
.word ((7<<6)+(7<<3)+(0)) ; 7 yellow
.word ((5<<6)+(7<<3)+(0)) ; 8 orange
.word ((3<<6)+(4<<3)+(3)) ; 9 brown
.word ((4<<6)+(7<<3)+(4)) ; a light red
.word ((3<<6)+(3<<3)+(3)) ; b dark grey
.word ((4<<6)+(4<<3)+(4)) ; c middle grey
.word ((7<<6)+(4<<3)+(4)) ; d light green
.word ((4<<6)+(4<<3)+(7)) ; e light blue
.word ((6<<6)+(6<<3)+(6)) ; f light gray
; G R B
colors: .word ((0<<6)+(0<<3)+(0)) ; $0 black
.word ((7<<6)+(7<<3)+(7)) ; $1 white
.word ((0<<6)+(7<<3)+(0)) ; $2 red
.word ((7<<6)+(0<<3)+(7)) ; $3 cyan
.word ((0<<6)+(5<<3)+(7)) ; $4 violett
.word ((7<<6)+(0<<3)+(0)) ; $5 green
.word ((0<<6)+(0<<3)+(7)) ; $6 blue
.word ((7<<6)+(7<<3)+(0)) ; $7 yellow
.word ((5<<6)+(7<<3)+(0)) ; $8 orange
.word ((3<<6)+(4<<3)+(3)) ; $9 brown
.word ((4<<6)+(7<<3)+(4)) ; $A light red
.word ((3<<6)+(3<<3)+(3)) ; $B dark grey
.word ((4<<6)+(4<<3)+(4)) ; $C middle grey
.word ((7<<6)+(4<<3)+(4)) ; $D light green
.word ((4<<6)+(4<<3)+(7)) ; $E light blue
.word ((6<<6)+(6<<3)+(6)) ; $F light gray
;-------------------------------------------------------------------------------
; force the init constructor to be imported