RESET:=0;
delay_ms(100);
RESET:=1;
delay_ms(1000);
write(cmd,0x01); //reset sw
delay_ms(50);
write(cmd,0x03); //Booster voltage ON
delay_ms(40);
Write(cmd,0x11); //sleep out
delay_ms(40);
Write(cmd,0xc6); //initial escape
delay_ms(40);
Write(cmd,0xb9); //Refresh set
write(dat,0x00);
write(cmd,0xb6); //Display control
Write(dat,0x80); //
Write(dat,0x04); //
Write(dat,0x8a); //
write(dat,0x54); //
write(dat,0x45); //
Write(dat,0x52); //
Write(dat,0x43); //
write(cmd,0xb3); //Gray scale position set 0
Write(dat,0x02); //
Write(dat,0x0a); //
Write(dat,0x15); //
write(dat,0x1f); //
write(dat,0x28); //
Write(dat,0x30); //
Write(dat,0x37); //
Write(dat,0x3f); //
Write(dat,0x47); //
Write(dat,0x4c); //
write(dat,0x54); //
write(dat,0x65); //
Write(dat,0x75); //
Write(dat,0x80); //
Write(dat,0x85); //
write(cmd,0xb5); //Gamma curve
Write(dat,0x01); //
write(cmd,0xb7); //Temperature gradient
Write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
write(dat,0x00); //
write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
write(dat,0x00); //
write(dat,0x00); //
Write(dat,0x00); //
Write(dat,0x00); //
write(cmd,0xbd); //Common driver output select
Write(dat,0x00); //
write(cmd,0x36); //Memory access control
Write(dat,0x48); //
write(cmd,0x2d); //Colour set
Write(dat,0x00); //
Write(dat,0x03); //
Write(dat,0x05); //
write(dat,0x07); //
write(dat,0x09); //
Write(dat,0x0b); //
Write(dat,0x0d); //
Write(dat,0x0f); //
Write(dat,0x00); //
Write(dat,0x03); //
write(dat,0x05); //
write(dat,0x07); //
write(dat,0x09); //
Write(dat,0x0b); //
Write(dat,0x0d); //
Write(dat,0x0f); //
Write(dat,0x00); //
Write(dat,0x05); //
write(dat,0x0b); //
write(dat,0x0f); //
write(cmd,0xba); //Voltage control
Write(dat,0x2f); //
Write(dat,0x03); //
write(cmd,0x25); //Write contrast
Write(dat,0x7f); //
write(cmd,0xbe); //Power control
Write(dat,0x59); //
write(cmd,0x3a); //interfase pixel format
Write(dat,0x03); //

write(cmd,0x29); //Display ON
end;

const
CMD:boolean=0;
DAT:boolean=1;
procedure write(w:boolean;datt:byte);
var i:byte;
begin
Clk:=0; // ставлю все в 0
Outd:=0;
if (old=1) and (w=0) then // проверяю старое значение RS
   begin
   CS:=1;
   RS:=w;
   CS:=0;
   end;
if (old=0) and (w=1) then // собсно тоже
   begin
   CS:=1;
   RS:=w;
   CS:=0;
   end;
if (old=0) and (w=0) then // и тут  (мол если прутся одни команды то дергаем CS)
   begin
   CS:=1;
   RS:=w;
   CS:=0;
   end;
for i:=0 to 7 do  //собсно цикл передачи данных
    begin
    Outd:=datt.B7;  // ставлю в порт DAT  7бит
    Clk:=1;  // защелкиваю в дисплей
    datt:=datt shl 1; // делаю смещение влево Байта
    Clk:=0;  //  готовлю к следующей защелке
    delay_us(40);  // тяну время 40 микросекунд
    end;
old:=w;  // запоминаю значение RS
end;

write(cmd,0xba); //Voltage control
Write(dat,0x2f); //
Write(dat,0x03); //
write(cmd,0x25); //Write contrast
Write(dat,0x64); // Стоит поиграться со значением контраста, у меня в примере контраст 100, если больше то на дисплее ничего нет
write(cmd,0xbe); //Power control
Write(dat,0x58); // У меня пишется в этот регистр значение 0х58
write(cmd,0x3a); //interfase pixel format
Write(dat,0x03); //

_delay_ms(20); Перед включением ждем 20 миллисекунд

write(cmd,0x29); //Display ON

void LCD_Pixel(uint8_t xPos, uint8_t yPos,uint16_t color)
{
    LCD_LO(LCD_CS);
   
    //x-координата
    lcd_Command(0x2A);
    lcd_Data(xPos);         
    lcd_Data(100);
         
    //Y-координата
    lcd_Command(0x2B);
    lcd_Data(yPos+1);
    lcd_Data(80);

    lcd_Command(0x2C); // WR_MEM
   

    lcd_clr16(color); после mem wr рисуем на экране  0xFFFF - белый цвет, 0х0000 черный цвет



    LCD_HI(LCD_CS);
}

void lcd_clr16   (uint16_t dat)   //данные 16 бит
{
    uint8_t c = (dat>>8) & 0xff;
    lcd_Data(c);
    c = dat & 0xff; сдвигаем данные
    lcd_Data(c);
}

procedure init_m();
var
i:word;
begin
old:=0;
RS:=0;
CS:=1;
RESET:=0;
delay_ms(500);
RESET:=1;
delay_ms(500);
Write(cmd,0x01); //Софт резет контроллера дисплея
delay_ms(20);
write(cmd,0x36);//Способ передачи внутренней памяти в дисплейную (Зеркально по Х или по Y, сканировать слева направо или наоборот
write(dat,0x80);
Write(cmd,0x11); //Выходим из слип режима
delay_ms(20);
write(cmd,0x3a); //Информация о выводе пикселя
Write(dat,0x55); //Два байта на пиксель 65536 цветов
delay_ms(20);
write(cmd,0x29); //Включаем дисплей
end;