//******************************************************************
//**** Functions for LCD WH1602 teste on WH1602A-NGG-CT (hd44780)
//******************************************************************
//Controller:   AVR
//Compiler:     mikroPascal PRO for AVR v.5.6.0
//Author:   Vladimir Bejevetc (Ukraine)
//      www.voov.com.ua
//ver:          1.0
//
//******************************************************************

unit lcd1602;

const

  LCD_FIRST_ROW = 128;
  LCD_SECOND_ROW = 192;
  LCD_CLEAR = 1;
  LCD_RETURN_HOME = 2;
  LCD_CURSOR_OFF = 12;
  LCD_UNDERLINE_ON = 14;
  LCD_BLINK_CURSOR_ON = 15;
  LCD_MOVE_CURSOR_LEFT = 16;
  LCD_MOVE_CURSOR_RIGHT = 20;
  LCD_TURN_ON = 12;
  LCD_TURN_OFF = 8;
  LCD_SHIFT_LEFT = 24;
  LCD_SHIFT_RIGHT = 28;

procedure lcd_init;
procedure lcd_cmd(p: byte);
procedure lcd_dat(p: byte);
procedure lcd_goto_cursor(row, column: byte);
procedure lcd_out(x, y: byte; msg: ^byte; max_len: byte);
procedure lcd_out_current_pos(msg: ^byte; max_len: byte);
procedure lcd_out_const(x, y: byte; const msg: ^byte; max_len: byte);
procedure lcd_out_const_current_pos(const msg: ^byte; max_len: byte);

var
  lcd_port: byte; sfr; external;
  lcd_ddr: byte;  sfr; external;

implementation

const
  RS = 0;
  EN = 1;

procedure lcd_init();
begin
  lcd_ddr := 0xFF; // Порт на выход.
  delay_ms(100);
  lcd_cmd(0x02); // Шина 4 бит. .
  delay_ms(10);
  lcd_cmd(0x28); // Шина 4 бит, 2 строки, 5*8 пикселей.
  delay_ms(10);
  lcd_cmd(LCD_CURSOR_OFF); // Включить отображение, выключить курсор.
  lcd_cmd(LCD_CLEAR); // Очистить дисплей.
end;

procedure lcd_cmd(p: byte);
begin
  lcd_port := (p and 0xF0) or (1 shl EN);
  delay_1ms();
  lcd_port := lcd_port and not (1 shl EN);
  delay_1ms();
  lcd_port := ((p shl 4) and 0xF0) or (1 shl EN);
  delay_1ms();
  lcd_port := lcd_port and not (1 shl EN);
  delay_1ms();
end;

procedure lcd_dat(p: byte);
begin
  lcd_port := ((p and 0xF0) or (1 shl RS)) or (1 shl EN);
  delay_1ms();
  lcd_port := lcd_port and not (1 shl EN);
  delay_1ms();
  lcd_port := ((p shl 4) and 0xF0) or (1 shl RS) or (1 shl EN);
  delay_1ms();
  lcd_port := lcd_port and not (1 shl EN);
  delay_1ms();
end;

procedure lcd_goto_cursor(x, y: byte);
begin
  case y of
    1: y := LCD_FIRST_ROW;
    2: y := LCD_SECOND_ROW
  else
    y := LCD_FIRST_ROW;
  end;
  y := y + x - 1;
  lcd_cmd(y);
end;

procedure lcd_out(x, y: byte; msg: ^byte; max_len: byte);
var
  i: byte;
begin
  lcd_goto_cursor(x, y);
  i := 0;
  while (msg^ <> 0) and (i < max_len) do
  begin
    lcd_dat(msg^);
    inc(msg);
    inc(i);
  end;
end;

procedure lcd_out_current_pos(msg: ^byte; max_len: byte);
var
  i: byte;
begin
  i := 0;
  while (msg^ <> 0) and (i < max_len) do
  begin
    lcd_dat(msg^);
    inc(msg);
    inc(i);
  end;
end;

procedure lcd_out_const(x, y: byte; const msg: ^byte; max_len: byte);
var
  i: byte;
begin
  lcd_goto_cursor(x, y);
  i := 0;
  while (msg^ <> 0) and (i < max_len) do
  begin
    lcd_dat(msg^);
    inc(msg);
    inc(i);
  end;
end;

procedure lcd_out_const_current_pos(const msg: ^byte; max_len: byte);
var
  i: byte;
begin
  i := 0;
  while (msg^ <> 0) and (i < max_len) do
  begin
    lcd_dat(msg^);
    inc(msg);
    inc(i);
  end;
end;

end.

#include <avr/io.h>
#include <avr/pgmspace.h>
#include <string.h>
#include "lcd-library.h"

   
int main(void)
{
   lcdInit();//ОБЯЗАТЕЛЬНО
   lcdClear();//ОБЯЗАТЕЛЬНО
   unsigned char myString[] = "Длина этого сообщение 100 символов, для тестирования вывода большой строки более 40 символов!!!!!!!";   
   unsigned int myArray1[5][40];//Объявляю 2мерный массив из 5 массивов по 40 символов
   unsigned char b = 0;
   unsigned char i = 0;
   lcdGotoXY(0, 0);//Переходим на начало верхней строки
   for (unsigned char k = 0; k < 99; k++){
      myArray1[b][i] = myString[k];//Заполняем массив значениями
      i++;
      if (i == 40){//Если конец массива, то переходим к следующему
         i = 0;
         b++;
      }
   }
   lcdPuts(myArray1[0]);//Загружаем в lcd первый массив из 40ка символов
   //Теперь в myArray1 двумерный массив, с разбитой строкой, по 40 символов
   while(1)
    {
      lcdDisplayScroll(1, LCD_SCROLL_LEFT);//Прокручиваем на позицию влево
       _delay_ms(600);
   }
}