#ifndef DELAY_DELAY_H_
#define DELAY_DELAY_H_

#include "stm32f1xx.h"

#define F_CPU 72000000UL
#define US F_CPU/1000000
#define MS F_CPU/1000
#define SYSTICK_MAX_VALUE 16777215
#define US_MAX_VALUE SYSTICK_MAX_VALUE/(US)
#define MS_MAX_VALUE SYSTICK_MAX_VALUE/(MS)


void delay_us(uint32_t us); // до 233 мкс
void delay_ms(uint32_t ms); // до 233 мс
void delay_s(uint32_t s);

#endif /* DELAY_DELAY_H_ */

#include "delay.h"


/* Функции задержек на микросекунды и миллисекунды*/

void delay_us(uint32_t us){ // до 233 016 мкс

	if (us > US_MAX_VALUE || us == 0)
		return;

	SysTick->CTRL &= ~SysTick_CTRL_TICKINT_Msk; // запретить прерывания по достижении 0
	SysTick->CTRL |= SysTick_CTRL_CLKSOURCE_Msk; // ставим тактирование от процессора
	SysTick->LOAD = (US * us-1); // устанавливаем в регистр число от которого считать
	SysTick->VAL = 0; // обнуляем текущее значение регистра SYST_CVR
	SysTick->CTRL |= SysTick_CTRL_ENABLE_Msk; // запускаем счетчик

	while(!(SysTick->CTRL & SysTick_CTRL_COUNTFLAG_Msk)); // ждем установку флага COUNFLAG в регистре SYST_CSR

	SysTick->CTRL &= ~SysTick_CTRL_COUNTFLAG_Msk;	// скидываем бит COUNTFLAG
	SysTick->CTRL &= ~SysTick_CTRL_ENABLE_Msk; // выключаем счетчик

}

void delay_ms(uint32_t ms){ // до 233 мс

	if(ms > MS_MAX_VALUE || ms ==0)
		return;

	SysTick->CTRL &= ~SysTick_CTRL_TICKINT_Msk;
	SysTick->CTRL |= SysTick_CTRL_CLKSOURCE_Msk;
	SysTick->LOAD = (MS * ms);
	SysTick->VAL = 0;
	SysTick->CTRL |= SysTick_CTRL_ENABLE_Msk;

	while(!(SysTick->CTRL & SysTick_CTRL_COUNTFLAG_Msk));

	SysTick->CTRL &= ~SysTick_CTRL_COUNTFLAG_Msk;
	SysTick->CTRL &= ~SysTick_CTRL_ENABLE_Msk;


}

void delay_s(uint32_t s){

	for(int i=0; i<s*5;i++) delay_ms(200);
}

#ifndef LCD_LCD_20X4_2004A_LCD_20X4_H_
#define LCD_LCD_20X4_2004A_LCD_20X4_H_

#include "stm32f1xx.h"
#include "delay.h"

// display commands

#define CLEAR_DISPLAY 0x1
#define RETURN_HOME 0x2
#define ENTRY_MODE_SET 0x6 // mode cursor shift rihgt, display non shift
#define DISPLAY_ON 0xC // non cursor
#define DISPLAY_OFF 0x8
#define CURSOR_SHIFT_LEFT 0x10
#define CURSOR_SHIFT_RIGHT 0x14
#define DISPLAY_SHIFT_LEFT 0x18
#define DISPLAY_SHIFT_RIGHT 0x1C
#define DATA_BUS_4BIT_PAGE0 0x28
#define DATA_BUS_4BIT_PAGE1 0x2A
#define DATA_BUS_8BIT_PAGE0 0x38
#define SET_CGRAM_ADDRESS 0x40 // usage address |= SET_CGRAM_ADDRESS
#define SET_DDRAM_ADDRESS 0x80


// положение битов в порте ODR
#define PIN_RS 0x1
#define PIN_EN 0x2
#define PIN_D7 0x80
#define PIN_D6 0x40
#define PIN_D5 0x20
#define PIN_D4 0x400



#define     LCD_PORT               	GPIOB
#define		LCD_ODR 				LCD_PORT->ODR

#define     LCD_PIN_RS()     		LCD_PORT->CRL &= ~GPIO_CRL_CNF0; 									LCD_PORT->CRL |= GPIO_CRL_MODE0;    // PB0  выход тяни-толкай, частота 50 Мгц

#define     LCD_PIN_EN()            LCD_PORT->CRL &= ~GPIO_CRL_CNF1;									LCD_PORT->CRL |= GPIO_CRL_MODE1;        // PB1

#define     LCD_PIN_D7()            LCD_PORT->CRL &= ~GPIO_CRL_CNF7;									LCD_PORT->CRL |= GPIO_CRL_MODE7;          // PB7

#define     LCD_PIN_D6()            LCD_PORT->CRL &= ~GPIO_CRL_CNF6;									LCD_PORT->CRL |= GPIO_CRL_MODE6;       // PB6

#define     LCD_PIN_D5()            LCD_PORT->CRL &= ~GPIO_CRL_CNF5;									LCD_PORT->CRL |= GPIO_CRL_MODE5;         // PB5

#define     LCD_PIN_D4()            LCD_PORT->CRH &= ~GPIO_CRH_CNF10;									LCD_PORT->CRH |= GPIO_CRH_MODE10;         // PB10

#define     LCD_PIN_MASK   (PIN_RS | PIN_EN | PIN_D7 | PIN_D6 | PIN_D5 | PIN_D4) // 0b0000000011110011 маска пинов для экрана

void portInit(void); // инициализация ножек порта под экран
void sendByte(char byte, int isData);
void lcdInit(void); // инициализация дисплея
void sendStr(char *str, int row ); // вывод строки

#endif /* LCD_LCD_20X4_2004A_LCD_20X4_H_ */

#include "lcd_20x4.h"

// посылка байта в порт LCD

void sendByte(char byte, int isData){

	//обнуляем все пины дисплея
	LCD_ODR &= ~LCD_PIN_MASK;

	if(isData == 1) LCD_ODR |= PIN_RS; // если данные ставмим RS
		else LCD_ODR &= ~(PIN_RS);		   // иначе скидываем RS

	// ставим старшую тетраду на порт
	if(byte & 0x80) LCD_ODR |= PIN_D7;
	if(byte & 0x40) LCD_ODR |= PIN_D6;
	if(byte & 0x20) LCD_ODR |= PIN_D5;
	if(byte & 0x10) LCD_ODR |= PIN_D4;

	// поднимаем пин E
	LCD_ODR |= PIN_EN;
	LCD_ODR &= ~PIN_EN; // сбрасываем пин Е

	//обнуляем все пины дисплея кроме RS

	LCD_ODR &= ~(LCD_PIN_MASK & ~PIN_RS);

	// ставим младшую тетраду на порт
	if(byte & 0x8) LCD_ODR |= PIN_D7;
	if(byte & 0x4) LCD_ODR |= PIN_D6;
	if(byte & 0x2) LCD_ODR |= PIN_D5;
	if(byte & 0x1) LCD_ODR |= PIN_D4;

	// поднимаем пин E

	LCD_ODR |= PIN_EN;
	//delay_us(10);

	// сбрасываем пин Е

	LCD_ODR &= ~(PIN_EN);
	delay_us(40);


	return;
}

// функция тактирует порт под дисплей и задает пины на выход тяни толкай и частоту 50 Мгц

void portInit(void){

//----------------------включаем тактирование порта----------------------------------------------------

	if(LCD_PORT == GPIOB) RCC->APB2ENR |= RCC_APB2ENR_IOPBEN;
	else if (LCD_PORT == GPIOA) RCC->APB2ENR |= RCC_APB2ENR_IOPAEN;
	else return;

//--------------------- инициализация пинов для LCD-----------------------------------------------------

		LCD_PIN_RS();
		LCD_PIN_EN();
		LCD_PIN_D7();
		LCD_PIN_D6();
		LCD_PIN_D5();
		LCD_PIN_D4();

		lcdInit();

	return ;
}

//--------------------- инициализация дисплея-----------------------------------------------------------
void lcdInit(void){

			delay_ms(15); // ждем пока стабилизируется питание

			sendByte(0x33, 0); // шлем в одном байте два 0011
			delay_us(100);

			sendByte(0x32, 0); // шлем в одном байте  00110010
			delay_us(40);

			sendByte(DATA_BUS_4BIT_PAGE0, 0); // включаем режим 4 бит
			delay_us(40);
			sendByte(DISPLAY_OFF, 0); // выключаем дисплей
			delay_us(40);
			sendByte(CLEAR_DISPLAY, 0); // очищаем дисплей
			delay_ms(2);
			sendByte(ENTRY_MODE_SET, 0); //ставим режим смещение курсора экран не смещается
			delay_us(40);
			sendByte(DISPLAY_ON, 0);// включаем дисплей и убираем курсор
			delay_us(40);


	return ;
}

void sendStr(char *str, int row ){

	char start_address;

	switch (row) {

	case 1:
		start_address = 0x0; // 1 строка
		break;

	case 2:
		start_address = 0x40; // 2 строка
		break;

	case 3:
		start_address = 0x14; // 3 строка
		break;

	case 4:
		start_address = 0x54; // 4 строка
		break;

	}

	sendByte((start_address |= SET_DDRAM_ADDRESS), 0); // ставим курсор на начало нужной строки  в DDRAM

	delay_ms(4);
	while(*str != '\0'){

		sendByte(*str, 1);
		str++;
		//delay_ms(100);

	}// while
}