Created By Marcelo Teixeira Silveira, 2008
http://marmsx.msxall.com

Thanks to Edison and his MSX Top Secret book, found at at:
http://www.msxtop.msxall.com/Portugues/Projeto_msx_top_secret.htm
http://www.msxtop.msxall.com/English/Msx_top_secret_project.htm


Colors configuration in memory:

BYTE n : RED
BYTE n+1 : GREEN
BYTE n+2 : BLUE

palette#0 - 3 bytes
palette#1 - 3 bytes
...
palette#n - 3bytes


How to change one color of the palette in GFX9000:

GBASIC Area: from &HA000 to &hCD00

ORG &HCE000
LD HL,<add>	; add is anywere. I suggest the address just after the last position of this program
LD A,&B00001110	; Register #14
OUT &H64	; Port #4
LD A,&Bpppppp00	; # palette (0-63). E.g. palette # 4: LD A,&B00010000  
OUT &H63	; Port #3
LD B,3		; Repeat 3x
L1:LD A,(HL)	; Load 
OUT &H61	; Port #1
DJNZ L1		; 


How to change entire palette colors in MSX 2:

C000  		   10 		ORG  &HC000
015F  		   20 EXTROM:	EQU  &H15F
014D  		   30 SETPLT:	EQU  &H14D
C000  060F	   40 		LD   B,15
C002  211FC0	   50 		LD   HL,&HC01F
C005  50	   60 LP1:	LD   D,B
C006  7E	   70 		LD   A,(HL)
C007  CB27	   80 		SLA  A
C009  CB27	   90 		SLA  A
C00B  CB27	  100 		SLA  A
C00D  CB27	  110 		SLA  A
C00F  4F	  120 		LD   C,A
C010  23	  130 		INC  HL
C011  5E	  140 		LD   E,(HL)
C012  23	  150 		INC  HL
C013  7E	  160 		LD   A,(HL)
C014  81	  170 		ADD  A,C
C015  DD214D01	  180 		LD   IX,SETPLT
C019  CD5F01	  190 		CALL EXTROM
C01C  10E7	  200 		DJNZ LP1
C01E  C9	  210 		RET 


How to change entire palette colors in GFX9000:

CE00  		   10 		ORG  &HCE00
CE00  2122CE	   20 		LD   HL,&HCE22
CE03  0640	   25 		LD   B,64
CE05  0E00	   26 		LD   C,0
CE07  3E0E	   30 LP1:	LD   A,&B00001110
CE09  D364	   40 		OUT  (&H64),A
CE0B  79	   50 		LD   A,C
CE0C  CB27	   55 		SLA  A
CE0E  CB27	   56 		SLA  A
CE10  D363	   60 		OUT  (&H63),A
CE12  7E	   80 		LD   A,(HL)
CE13  D361	   90 		OUT  (&H61),A
CE15  23	  100 		INC  HL
CE16  7E	  101 		LD   A,(HL)
CE17  D361	  102 		OUT  (&H61),A
CE19  23	  103 		INC  HL
CE1A  7E	  104 		LD   A,(HL)
CE1B  D361	  105 		OUT  (&H61),A
CE1D  23	  106 		INC  HL
CE1E  0C	  109 		INC  C
CE1F  10E6	  110 		DJNZ LP1
CE21  C9	  120 		RET