#include <htc.h>
#define _XTAL_FREQ 8000000

//===========================================================
// Definice proměnných
//===========================================================
#define LCD_PORT PORTC
#define LCD_DDR TRISC

//Definice pin for LCD
#define LCD_RS 5
#define LCD_E  4

#define LCD_D4 0
#define LCD_D5 1
#define LCD_D6 2
#define LCD_D7 3
 
#define SET_RS (LCD_PORT|=(1<<LCD_RS))
#define CLR_RS (LCD_PORT&=~(1<<LCD_RS))

#define	SET_E (LCD_PORT|=(1<<LCD_E))
#define CLR_E (LCD_PORT&=~(1<<LCD_E))

#define LCD_CLR 				0x01
#define LCD_HOME 				0x02
#define LCD_DEC 				0x04
#define LCD_INC 				0x06
#define LCD_CURSOR_ON 			0x0E
#define LCD_CURSOR_OFF 			0x0C
#define LCD_CURSOR_BLIK 		0x0F
#define LCD_MOVE_CURSOR_LEFT    0x10   // move cursor left  (decrement)          
#define LCD_MOVE_CURSOR_RIGHT   0x14   // move cursor right (increment)
#define LCD_MOVE_DISP_LEFT      0x18   // shift display left                     
#define LCD_MOVE_DISP_RIGHT     0x1C   // shift display right

//SPI
#define SS 6
#define CE_High (PORTC|=(1<<SS)) 
#define CE_Low (PORTC&=~(1<<SS))

//=======================================================================

unsigned char MSB;
unsigned char LSB;

unsigned int setiny;
unsigned int temp;
unsigned int teplota;

char text[7] ="000.00";

//================================
// Pogprogramy
//================================


//================================
// LCD
//================================ 

//Pošle příkaz
void Lcd_Cmd(unsigned char Cmd)
{	
 if(Cmd & 0x80) LCD_PORT|=(1<<LCD_D7);else LCD_PORT&=~(1<<LCD_D7);
 if(Cmd & 0x40) LCD_PORT|=(1<<LCD_D6);else LCD_PORT&=~(1<<LCD_D6);
 if(Cmd & 0x20) LCD_PORT|=(1<<LCD_D5);else LCD_PORT&=~(1<<LCD_D5);
 if(Cmd & 0x10) LCD_PORT|=(1<<LCD_D4);else LCD_PORT&=~(1<<LCD_D4);
 CLR_RS;	             			 	//RS = 0(příkaz)	
 SET_E;		      	        			//E = 1
 __delay_us(100);		     		 
 CLR_E;	                              	//E = 0(zápis)
 __delay_us(100);

 if(Cmd & 0x08) LCD_PORT|=(1<<LCD_D7);else LCD_PORT&=~(1<<LCD_D7);
 if(Cmd & 0x04) LCD_PORT|=(1<<LCD_D6);else LCD_PORT&=~(1<<LCD_D6);
 if(Cmd & 0x02) LCD_PORT|=(1<<LCD_D5);else LCD_PORT&=~(1<<LCD_D5);
 if(Cmd & 0x01) LCD_PORT|=(1<<LCD_D4);else LCD_PORT&=~(1<<LCD_D4);
 CLR_RS;	             	 			//RS = 0(příkaz)	
 SET_E;		      	        			//E = 1
 __delay_us(100);
 CLR_E;	                        		//E = 0(zápis)

/*
Pokud je výsledek v podmínce nula, jedná se o 
příkaz "Vymaž dislej" nebo "Návrat na začátek", které
vyžadují delší interval
*/
  if (Cmd & 0b11111100) __delay_us(100);else __delay_ms(2);
} 

//Zobraz znak
void Lcd_Chr(char c)
{
 if(c & 0x80) LCD_PORT|=(1<<LCD_D7);else LCD_PORT&=~(1<<LCD_D7);
 if(c & 0x40) LCD_PORT|=(1<<LCD_D6);else LCD_PORT&=~(1<<LCD_D6);
 if(c & 0x20) LCD_PORT|=(1<<LCD_D5);else LCD_PORT&=~(1<<LCD_D5);
 if(c & 0x10) LCD_PORT|=(1<<LCD_D4);else LCD_PORT&=~(1<<LCD_D4);

 SET_RS;	                			//RS = 1(data)
 SET_E;		               				//E = 1
 __delay_us(100);						
 CLR_E;                 				//E = 0(zápis)
 __delay_us(100);

 if(c & 0x08) LCD_PORT|=(1<<LCD_D7);else LCD_PORT&=~(1<<LCD_D7);
 if(c & 0x04) LCD_PORT|=(1<<LCD_D6);else LCD_PORT&=~(1<<LCD_D6);
 if(c & 0x02) LCD_PORT|=(1<<LCD_D5);else LCD_PORT&=~(1<<LCD_D5);
 if(c & 0x01) LCD_PORT|=(1<<LCD_D4);else LCD_PORT&=~(1<<LCD_D4);

  SET_RS;	                			//RS = 1(data)
 SET_E;		               				//E = 1
 __delay_us(100);						
 CLR_E;                 				//E = 0(zápis)
 __delay_us(100);
}

//inicializace LCD
void Lcd_Init(void)
{
  __delay_ms(40);	                    //čekej 40ms
 LCD_PORT=0b11111111;
 LCD_DDR = 0b00000000;

//Nastavení PORTu na výstup	
 LCD_DDR&=~(1<<LCD_D7|1<<LCD_D6|1<<LCD_D5|1<<LCD_D4);
 LCD_DDR&=~(1<<LCD_E|1<<LCD_RS);

//zapiš 03h 8bitová komunikace
 LCD_PORT=(0<<LCD_D7|0<<LCD_D6|1<<LCD_D5|1<<LCD_D4); 
 SET_E;				      
 CLR_RS;                              	//E = 1,RS = 0
 __delay_us(100);		      			
 CLR_E;	     			      			
 __delay_ms(5);	                      	//čekej > 4,1ms

//zapiš 03h 8bitová komunikace
 LCD_PORT=(0<<LCD_D7|0<<LCD_D6|1<<LCD_D5|1<<LCD_D4); 
 SET_E;
 CLR_RS; 								//E = 1,RS = 0
 __delay_us(100);		      			
 CLR_E;	                              	//E = 0(zápis)
 __delay_us(100);			  

//zapiš 03h 8bitová komunikace
 LCD_PORT=(0<<LCD_D7|0<<LCD_D6|1<<LCD_D5|1<<LCD_D4); 
 SET_E;
 CLR_RS;                               	//E = 1,RS = 0
 __delay_us(100);		       			
 CLR_E;	                               	//E = 0(zápis)
 __delay_us(100);
 
//4bitová komunikace
LCD_PORT=(0<<LCD_D7|0<<LCD_D6|1<<LCD_D5|0<<LCD_D4); 
 SET_E;
 CLR_RS;                              	//E = 1,RS = 0
 __delay_us(100);		       		  	
 CLR_E;	                              	//E = 0(zápis)
 __delay_us(100);

 Lcd_Cmd(0b00101000);		  			//dva řádky
 Lcd_Cmd(LCD_HOME);		  				//smaž LCD
 Lcd_Cmd(LCD_CURSOR_OFF);		  		//cursor_OFF
 Lcd_Cmd(LCD_INC);		  				//incrementace
}

//Začátek výpisu textu souřadnic x,y

void Lcd_Out(const char *str)
{
	unsigned char x = 0;

 	while(str[x]!=0)
  		{
			__delay_ms(1);
			Lcd_Chr(str[x]);
			x++;
  		}
}
//Nastav na souřadnice x,y
void Lcd_Gotoxy(unsigned char row,unsigned char col)
{
	switch(row)
  	{
   		case 0:row=0x00;break;
   		case 1:row=0x40;break;
   		case 2:row=0x14;break;
   		case 3:row=0x54;break;
  	}	
 Lcd_Cmd(0b10000000 | row | col);
}

//=====================================================
// SPI
//=====================================================
void Init_SPI(void)
{
	CE_Low;
	TRISB = 0b10111111;

	CKP = 0;
	CKE = 0;
	SMP = 1;
	WCOL = 0;

	SSPOV = 0;
	SSPM0 = 0;
	SSPM1 = 1;
	SSPM2 = 0;
	SSPM3 = 0;

	SSPEN = 1;
}

void Write_SPI(unsigned char data)
{
	unsigned char byte;
	while (SSPSTAT & (1<<BF));
	byte = SSPBUF;
	SSPBUF = data;
	while (!(SSPSTAT&(1<<BF)));
	byte = SSPBUF;
}

int Read_SPI(void)
{
	unsigned char byte;
	while (SSPSTAT & (1<<BF));
	byte = SSPBUF;
	SSPBUF = 0x00; 
	while (!(SSPSTAT&(1<<BF)));
	byte = SSPBUF;
	return byte;
}


//================================
// Hlavní program
//================================
int main(void)
{
	ANSEL=0;
	ANSELH=0;

	TRISA = 0b11111100;	

	Lcd_Init();
	Init_SPI();

	Lcd_Out("PIC16F690");
	Lcd_Gotoxy(1,0);
	Lcd_Out("SPI_TC72");

	__delay_ms(500);
	Lcd_Cmd(LCD_CLR);
	Lcd_Cmd(LCD_HOME);	

	while(1)
	{
		CE_High;
		Write_SPI(0x80);
		Write_SPI(0b00000100);	//control byte pro TC72
		CE_Low;

		__delay_ms(200);

		CE_High;
		Write_SPI(0x02);

		MSB = Read_SPI();
		LSB = Read_SPI();

		CE_Low;

		teplota = (MSB<<8)|LSB;

//přepočet při záporné teplotě 	
		if(teplota&0x8000)
		{
			teplota = ~teplota + 64;
			text[0] = '-';
		}
		else 
 		{ 
   			text[0] = ' '; 
 		} 

//převod teploty pro zobrazení na LCD		
		temp = teplota >> 8;
		 
		if (temp/100)
 			text[0] = temp/100  + 48; 	//Výpočet stovek
 		else
   		{ 
    	  if(text[0]!=45) 
       		{ 
          		text[0] = ' '; 
       		} 
 		}	

		text[1] = ((temp%100)/10) + 48 ;//Výpočet desitek
		text[2] = (temp%10) + 48 ;	  	//Výpočet jednotek  

//převod desetin a setin teploty
		setiny = (teplota & 0x00FF) >> 6;  
		setiny *= 250;

		text[4] = (setiny/100) + 48 ;	  	
		text[5] = ((setiny%100)/10) + 48 ;
			  	  
//Zobrazení na LCD		 
        Lcd_Out("Teplota=");
		Lcd_Gotoxy(0,8);
		Lcd_Out(text);
		Lcd_Chr(0xDF);					//Zobrazení °
		Lcd_Chr('C');					//Zobrazení C
	}
}