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 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