TFT 480 X 320 falsche farben ILI9481

program ATXMEGA128A3_fist_try;

{ Declarations section }

// TFT display connections

var TFT_16bit_DataPort_Lo : byte at PORTB_OUT;

var TFT_16bit_DataPort_Hi : byte at PORTC_OUT;

var TFT_16bit_WR : sbit at PORTE_OUT.B1;

var TFT_16bit_RD : sbit at PORTE_OUT.B0;

var TFT_16bit_CS : sbit at PORTE_OUT.B3;

var TFT_16bit_RS : sbit at PORTE_OUT.B6;

var TFT_16bit_RST : sbit at PORTE_OUT.B4;

var TFT_16bit_DataPort_Lo_Direction : byte at PORTB_DIR;

var TFT_16bit_DataPort_Hi_Direction : byte at PORTC_DIR;

var TFT_16bit_WR_Direction : sbit at PORTE_DIR.B1;

var TFT_16bit_RD_Direction : sbit at PORTE_DIR.B0;

var TFT_16bit_CS_Direction : sbit at PORTE_DIR.B3;

var TFT_16bit_RS_Direction : sbit at PORTE_DIR.B6;

var TFT_16bit_RST_Direction : sbit at PORTE_DIR.B4;

// End of TFT display connections

begin

  { Main program }

    // Internal oscillator selection procedure

  OSC_CTRL := 0x02;  // 32MHz internal RC oscillator

   while RC32MRDY_bit = 0 do nop;

  CPU_CCP := 0xD8;   // The CCP register must be written with the correct signature to enable change of the protected

                     // I/O register or execution of the protected instruction for a maximum of 4 CPU instruction cycles.

  CLK_CTRL := 1;     // Internal oscillator

// Initialize 240x320 TFT display

TFT_Init_ILI9481(320,240);

delay_ms(10);

TFT_16bit_Set_Default_Mode();

while (TRUE) do                           // Endless loop

    begin

    TFT_16bit_Set_Font(@TFT_16bit_defaultFont, CL_blue_16bit, FO_HORIZONTAL_16bit);

    TFT_16bit_Write_Text('TFT 16-bit LIBRARY DEMO, WELCOME !', 0, 0);

        delay_ms(1000);

     TFT_16bit_Fill_Screen(CL_white_16bit);

        delay_ms(300);

    end;

end.