/*
 * DS18B20 
*/

#include <reg52.h>
#include <intrins.h> 

typedef unsigned char uint8;
typedef unsigned int uint16;
typedef char int8;
typedef int int16;
#define nops();  {_nop_(); _nop_(); _nop_(); _nop_();} //定義空指令

uint8 word4[1] ;
uint8 k;

code uint8 number[] = {0xc0,0xf9,0xa4,0xb0,
				   	   0x99,0x92,0x82,0xf8,
				 	   0x80,0x90,0xff};


sbit DQ  = P3^2;		    //溫度輸入口

sbit ENLED = P1^4;
sbit ADDR0 = P1^0;
sbit ADDR1 = P1^1;
sbit ADDR2 = P1^2;
sbit ADDR3 = P1^3;

uint8 i= 0;

void delay(uint16 n)
{
	while (n--);
}

void delay_ms(uint16 n)
{
	uint8 m=120;

	while (n--)
		while (m--);
}

/*
 * 18B20復位函數
*/
void DS18b20_reset(void)
{
	bit flag=1;

	while (flag)
	{
		while (flag)
	 	{
 			DQ = 1;
			delay(1);
 			DQ = 0;
 			delay(50); // 550us
 			DQ = 1; 
 			delay(6);  // 66us
 			flag = DQ;
   		}
		delay(45);    //延時500us
		flag = ~DQ;
	}
	DQ=1;
}


/*
 * 18B20寫1個字節函數
 * 向1-WIRE總線上寫一個字節
*/
void write_byte(uint8 val)
{
	uint8 i;

	for (i=0; i<8; i++)
	{
		DQ = 1;
		_nop_();
		DQ = 0;
		nops(); //4us
		DQ = val & 0x01;      //最低位移出
		delay(6);           //66us
		val >>= 1;          //右移一位
	}
	DQ = 1;
	delay(1);  
}

/*
 * 18B20讀1個字節函數
 * 從1-WIRE總線上讀取一個字節
*/
uint8 read_byte(void)
{
	uint8 i, value=0;

	for (i=0; i<8; i++)
	{
		DQ=1;
		_nop_();
		value >>= 1;
		DQ = 0;
		nops();   //4us
		DQ = 1;
		nops();   //4us 
		if (DQ)
			value|=0x80;
		delay(6);           //66us
	}
	DQ=1;

	return(value);
}

/*
 * 啟動溫度轉換
*/
void start_temp_sensor(void)
{
	DS18b20_reset();
	write_byte(0xCC); // 發Skip ROM命令
	write_byte(0x44); // 發轉換命令
}

/*
 * 讀出溫度
*/
int16 read_temp(void)
{
   
	uint8 temp_data[2]; // 讀出溫度暫放
	uint16 temp;

	DS18b20_reset();  // 復位
	write_byte(0xCC); // 發Skip ROM命令
	write_byte(0xBE); // 發讀命令
	temp_data[0]=read_byte();  //溫度低8位
	temp_data[1]=read_byte();  //溫度高8位

	temp = temp_data[1];
	temp <<= 8;
	temp |= temp_data[0];
	 temp >>= 4;
	 
	 
	return temp;
}


/**
 * UART初始化
 * 波特率：9600
*/
void uart_init(void)
{
    TMOD |= 0x21;        // 定時器1工作在方式2（自動重裝）
    SCON = 0x50;        // 10位uart，允許串行接受

    TH1 = 0xFD;
    TL1 = 0xFD;

    TR1 = 1;
}

/**
 * UART發送一字節
*/
void UART_Send_Byte(uint8 dat)
{
	SBUF = dat;
	while (TI == 0);
	TI = 0;
}

/**
 * 將數據轉換成ASC碼并通過UART發送出去
*/
void UART_Send_Dat(uint8 dat)
{
	UART_Send_Byte(dat/10%10 + '0');
	UART_Send_Byte(dat%10 + '0');
}



void timer1_init()
{
	TMOD  |= 0x01;
  
	TH0   = 0xFe;
	TL0   = 0x31;
	TR0   = 1;
}
void int_init()
{
	ET0 = 1;
	EA  = 1;
}


void transt(void)
 {
	 
	
	 int16 p;
	 int8 k;
	 ET0=0;
     p= read_temp();
	 ET0=1;
	 k=p;  //16為轉為8為

	 word4[0]=k/10;
	 word4[1]=k%10;


  }

void refresh_led()
{
	  static uint8 j = 0;
	   	P0=0xff;
		switch(j)
	   {
	   	
		case 1: ADDR0 = 0;ADDR1 = 0;ADDR2 = 0;ADDR3 = 1;P0 = number[word4[1]];break;
		case 2: ADDR0 = 1;ADDR1 = 0;ADDR2 = 0;ADDR3 = 1;P0 = number[word4[0]];break;

			
		default: break;
		}
		
		if(2 == j++) j = 0;
		  
		
}

  

void interrupt_timer0()	interrupt 1
									
{    
	  	 TH0   = 0xFe;
	     TL0   = 0x31;
			
		  refresh_led(); 
		   
	 TF0=0;				 
}

main()
{
    uint16 ans;
   	ENLED = 0; 
	 timer1_init();
  	 int_init();
   	uart_init();
	
	while (1)
	{
		start_temp_sensor();

		delay_ms (1000); // 延時1秒	//
		ET0=0;	 //關閉0號定時中斷
	  	ans=read_temp();
	 	ET0=1;	 //打開0號定時中斷
			transt();
		if (ans < 0)
		{
			UART_Send_Byte('-');
			ans = -ans;
		}
	
		UART_Send_Dat(ans);
		UART_Send_Byte('\r');
		UART_Send_Byte('\n');  
		
	}

}