#include "INTRINS.H"
#include "LCD.h"
#define CLR_RI (RI=0)
#define CLR_TI (TI=0)

unsigned char code ID[2][8]={ 0x28,0x1D,0x25,0x1D,0x00,0x00,0x00,0x80,
0x28,0x0e,0x9e,0x1c,0x00,0x00,0x00,0x32};
unsigned char currSensorNo=0;

sbit TMDAT = P1^7;
sbit RUN_LED = P1^6;

/*------------------------------------------------
*
*------------------------------------------------*/
void serial_initial()
{
TMOD=0X20;
SCON=0X50;
PCON=0X00;
TL1=TH1=0XE8;
TR1=1;
}

/*------------------------------------------------
*
*------------------------------------------------*/
void send(unsigned char count,unsigned char SEND_Buf[])
{
unsigned char i;
for(i=0;i{
SBUF=SEND_Buf[i];
while(!TI);
CLR_TI;
}
}

/*----------------------------------------------------
* delay N ms
*----------------------------------------------------*/
void Delay_ms (unsigned int Nms )
{
unsigned char i;
while(Nms--)
for(i=0; i<125; i++) ;
}

/*----------------------------------------------------
* delay N count
*----------------------------------------------------*/
void Delay_Count (unsigned char Count )
{
while(Count>0) Count--;
}

/*----------------------------------------------------
* start Reset Pulse
----------------------------------------------------*/
void tmreset(void)
{
TMDAT=0;
Delay_Count(103);

TMDAT=1;
Delay_Count(4);
}

/*----------------------------------------------------
* ACK
*----------------------------------------------------*/
void tmpre(void)
{
while(TMDAT);
while(~TMDAT);
Delay_Count(4);
}

/*----------------------------------------------------
* Read a bit from 1820
*----------------------------------------------------*/
bit tmrbit(void)
{
int i=0;
bit dat;
TMDAT=0;i++;
TMDAT=1;i++;i++;
dat = TMDAT;
Delay_Count(8);
return dat;
}

/*----------------------------------------------------
* Read a byte from 1820
*----------------------------------------------------*/
unsigned char tmrbyte(void)
{
unsigned char i,j,dat=0;

for(i=1;i<=8;i++)
{
j=tmrbit();
dat=(j<<7)|(dat>>1);
}
return dat;
}

/*----------------------------------------------------
* Read a byte from 1820
*----------------------------------------------------*/
void tmwbyte(unsigned char dat)
{
signed char i=0;
unsigned char j;
bit testb;

for(j=1;j<=8;j++)
{
testb=dat & 0x01;
dat = dat>>1;
if(testb)
{
TMDAT=0;
i++;i++;
TMDAT=1;
Delay_Count(8);
}
else
{
TMDAT=0;
Delay_Count(8);
TMDAT=1;
i++;i++;
}
}
}

/*----------------------------------------------------
* send convert command to 1820
*----------------------------------------------------*/
void tmstart(void)
{
unsigned char i;
tmreset();
tmpre();
Delay_ms(1);
/* tmwbyte(0xcc);*/
tmwbyte(0x55);
for(i=0;i<8;i++)
tmwbyte(ID[currSensorNo][i]);
tmwbyte(0x44);
}

/*----------------------------------------------------
* Read tempreature from 1820
*----------------------------------------------------*/
unsigned int tmrtemp_all(void)
{
unsigned char a,b;
unsigned int y3;
unsigned char i;

tmreset();
tmpre();
Delay_ms(1);
/*tmwbyte(0xcc);*/
tmwbyte(0x55);
for(i=0;i<8;i++)
tmwbyte(ID[currSensorNo][i]);

tmwbyte(0xbe);
a = tmrbyte();
b = tmrbyte();
y3 = ((unsigned int)b) << 8;

return ((y3+a) & 0x7ff) ;
}

/*----------------------------------------------------
* Start Test tempreature, All
*
*----------------------------------------------------*/
void Display_AllTemp(void )
{
unsigned int last;
unsigned char i,Dot;

RUN_LED=0;
Part=0;
LED_DISPLAY();
Delay_ms(1);

tmstart();

Delay_ms(800);
last=tmrtemp_all();
RUN_LED=1;

Dot= (last & 0x0f)*6.25 ;
Digit[0]= Dot%10;
Digit[1]=Dot/10;

last=(last>>4) & 0x7f ;
if( (last == 0x7f) ) // erro
{
for(i=0;i<5;i++) Digit[i]=16;
}
else
{
for(i=2;i<5;i++)
{
Digit[i] = last %10;
last = last/10;
}
if(Digit[4]==0)Digit[4]=17;
Part=1;
}
Digit[5]=currSensorNo;

LED_DISPLAY();

}

/*----------------------------------------------------
*
*----------------------------------------------------*/
/* void Read_Id()
{
unsigned char i,id[8];
tmreset();
tmpre();
Delay_ms(1);
tmwbyte(0x33);

for(i=0;i<8;i++)
id[i]=tmrbyte();
send(8,id);
}*/

/*----------------------------------------------------
*
* Main
*----------------------------------------------------*/
void main(void)
{
unsigned char id[8]={1,2,3,4,5,6,7,8};

serial_initial();
send(8,id);
for(;;)
{
RUN_LED=!RUN_LED;
/* Read_Id();*/
TX_C =!TX_C ;
currSensorNo=(currSensorNo==1)?0:1;
Display_AllTemp();
/*Change();*/
send(6,Digit);
Delay_ms(1000);
_nop_();
}
}