#include<reg51.h>
#include<intrins.h>
#include<string.h>
#define uchar unsigned char
#define uint unsigned int
#define nop() _nop_()

sbit cs=P2^0;            // ye jing cs
sbit sid=P2^1;           //ye jing shu ju xian
sbit scl=P2^2;           //ye jing shi zhong xian
sbit sda=P2^4;
sbit sclk=P2^5;
sbit con=P2^6;          //ye jing bie guang
sbit dog=P2^3;


uchar mulk,mulb=0,count=0;//,ccount1,ccount2;
uint point1,point2; //eeprom di zhi zhi zhen
uchar address=0,state=0,err=0;//,which=0,;
uchar qi;
bit ms2=0,ms50,ms6,se;
uchar dis[8];
uchar code  lcd0[16]=" 9: 睡眠模式    ";
uchar code  lcd1[16]="通道號(hào):         ";
uchar code  lcd2[16]="電壓值:         ";
uchar code  lcd3[16]="開關(guān)量:         ";
uchar code  lcd4[16]="11: 返回上級(jí)    ";
uchar code  lcd5[16]="號(hào): 0~3 返回:11 ";
uchar code  lcd6[16]="0  1  2  3  4   ";
uchar code  lcd7[16]="                ";
uchar code  lcd8[16]="10: 實(shí)時(shí)監(jiān)控    ";
uchar code  lcd9[16]="11: 歷史瀏覽    ";
uchar code  lcd10[16]="9:  輪流顯示    ";
uchar code  lcd11[16]="10: 可選顯示    ";
uchar code  lcd12[16]="系統(tǒng)初始化中....";
uchar code  lcd13[16]="請(qǐng)選擇下面歷史點(diǎn)";
uchar code  lcd14[16]="5  6  7  8  9   ";
uchar code  lcd15[8]="通道號(hào):";
uchar code  lcd16[8]="電壓值: ";
uchar code  lcd17[8]="開關(guān)量: ";
uchar code  lcd18[16]="8:更新歷史數(shù)據(jù)  ";
uchar code  lcd19[16]="恭喜^_^ 成功更新";
uchar code  lcd20[16]=" 8: 激活狀態(tài)    ";

typedef struct ad
{
    unsigned char  adh;
    unsigned  char adl;
    unsigned  char adig;
}idata ad;   //bao cun cai ji hui lai de shu ju

ad  addate[14][4];
ad  adtemp[1][4];
ad temp[4];


//**********************延時(shí)7秒************************


void delay6ms(uchar qu)
{
   uchar ik,p;
   for(p=0;p<=qu;p++)
   for(ik=0;ik<100;ik++)
   {
      if(ms6==1)
      { ms6=0;
        break;

      }
      nop();
   }
}



void send(uchar sdda)         //發(fā)送數(shù)據(jù)給子機(jī)
{


    SBUF=sdda;
    while(!TI)
    {
         ;
    }
    TI=0;

}



void maxinit()
{

     TMOD=0x21;         //ding shi qi 1 fang shi 2  ,T0 fang shi 1
     SCON=0xd0;         //chuan kou fang shi 3 en=1 jie shou yun xu
     PCON=0x00;         // bo te lv bu bian
     ET1=0;             // jin zhi ding shi qi 1 zhong duan
     TH1=0xFD;          // bo te lv 9600
     TL1=0xFD;
     TR1=1;
     TL0=0x00;
     TH0=0x4c;
     //ET0=1;
     EX0=0;
     ES=1;           //WAI BU ZHONG DUAN 0 YOU XIAN JI ZUI GAO // DIAO DIAN BAO HU
     PX0=1;
     PS=1;
     EA=1;
     //TR0=1;             // chuan xing zhong duan you xian ji zui gao
}



void noop()		//I2C EEPROM延時(shí)函數(shù)
{
	_nop_();
	_nop_();
	_nop_();
	_nop_();

}



void init1()			//I2C初使化
{
	sda=1;
 	noop();
	sclk=1;
	noop();
}

void start()	//IIC開始信號(hào)
{
	sda=1;
	noop();
	sclk=1;
	noop();
	sda=0;
	noop();
}
void stop()				//IIC停止信號(hào)
{
	sda=0;
	noop();
	sclk=1;
	noop();
	sda=1;
	noop();
}

void respons()		//IIC應(yīng)答信號(hào)
{

        sda=1;
        noop();
	sclk=1;
	noop();

        //while(sda);
        sclk=0;
	noop();
        sda=1;
        noop();
}



void write_byte(uchar date)		//寫一個(gè)字節(jié)到I2C芯片中
{
	uchar temp,x;
	temp=date;
	for(x=0;x<8;x++)		//一個(gè)字節(jié)八位，
		{
			temp=temp<<1;	//向左移一位，最低位補(bǔ)0；
			sclk=0;
			noop();//低電平時(shí)，才允許sda線變化
			sda=CY;
			noop();
			sclk=1;
			noop();//保持?jǐn)?shù)據(jù)
		}
	sclk=0;		//時(shí)鐘線復(fù)位
	noop();
	sda=1;		//釋放
	noop();

}



uchar read_byte()		//讀一個(gè)字節(jié)的數(shù)據(jù)
{
	uchar j,k,y;
	sclk=0;
	noop();
	sda=1;
	noop();
	for(j=0;j<8;j++)
	{
		sclk=1;
		noop();
		if(sda==1)
			y=1;
		else
			y=0;

		k=(k<<1)|y;
		sclk=0;
		noop();
	}
	noop();
	return k;
}



void check()            //IIC 寫周期的應(yīng)答查詢
{
  doo:
      start();
      write_byte(0xa0);
      sclk=1;
      noop();
      sda=1;
      noop();
      if(sda==1)
      {
        goto doo;
      }
      sclk=0;
      noop();

}


void eepwrite(uchar addh,uchar addl,uchar date)   //IIC 寫數(shù)據(jù)到eeprom
//指定地址寫數(shù)據(jù)；
{

         	init1();
                start();
                write_byte(0xa0);
                respons();
                write_byte(addh);
                respons();
                write_byte(addl);
                respons();
                write_byte(date);
                respons();
                stop();

}


uchar eepread(uchar addh,uchar addl)         //從eeprom讀數(shù)據(jù)
//指定地址du數(shù)據(jù)
{
		uchar date;
	        start();
                write_byte(0xa0);
                respons();
                write_byte(addh);
                respons();
                write_byte(addl);
                respons();
                start();
                write_byte(0xa1);
                respons();
                date=read_byte();
                respons();
                stop();
		return date;
}

void delay(uchar ms)              //延時(shí)
{
     uchar i,j;
     for(i=0;i<=ms;i++)
     {
         for(j=0;j<=100;j++)
             nop();
     }
}






void write(uchar dat, bit rs)       //液晶屏寫數(shù)據(jù)或命令 RS=0 寫命令，RS=1 寫數(shù)據(jù)
{   uchar k,d,t;

    sid=1;
    for(k=0;k<5;k++)
    {
       scl=1;
       scl=0;
    }
    sid=0;
    scl=1;
    scl=0;

    sid=rs;
    scl=1;
    scl=0;

    sid=0;
    scl=1;
    scl=0;

    d=dat&0xf0;
    for(t=0;t<2;t++)
    {

      for(k=0;k<8;k++)
      {
        d=d<<1;
        sid=CY;
        scl=1;
        scl=0;
      }
      d=dat&0x0f;
      d=d<<4;
    }


}

void disinit(void)                      //液晶屏初始化
{
     delay(100);
     write(0x30,0);
     delay(1);
     write(0x30,0);
     delay(1);
     write(0x0c,0);
     delay(1);
     write(0x01,0);
     delay(100);
     write(0x06,0);
     delay(1);

}







uchar key(void)                     //鍵盤檢測(cè)
{
     uchar db,da;
     P1=0x0f;
     da=P1;
     if(da==0x0f)
      {
          return (0xff);
      }
      else
       { delay(200);//xiao chu dao dong shi jian
         //delay(100);//xiao chu dao dong shi jian
         P1=0x0f;
         db=P1;//hang zhi
         if(da!=db)
            return (0xff);
          else
          {
            P1=0xf0;
            da=P1; // lie zhi
            switch(da|db)
            {
               case 0xee: return (0);
               case 0xde: return (1);
               case 0xbe: return (2);
               case 0x7e: return (3);
               case 0xed: return (4);
               case 0xdd: return (5);
               case 0xbd: return (6);
               case 0x7d: return (7);
               case 0xeb: return (8);
               case 0xdb: return (9);
               case 0xbb: return (10);
               case 0xb7: return (11);
             }// switch
           } // else


       }// else

} // end








void ext0() interrupt 0      //中斷0 看門狗掉電
{
     uchar ji;

     con=1;
//**********************point1 he point2 的值存放在最后的4個(gè)字節(jié)里面******************************
     check();

     eepwrite(0x7f,0xff,((point2+12)%0x7fef)/256);
     check();

     eepwrite(0x7f,0xfe,((point2+12)%0x7fef)%256);
     check();




      for(ji=0;ji<4;ji++)
     {
             //指向前一個(gè)最后保存數(shù)據(jù)的地址

        eepwrite(point2/256,point2%256,adtemp[0][ji].adh);
        check();

        point2++;
        point2=point2%0x7fef;
        eepwrite(point2/256,point2%256,adtemp[0][ji].adl);
        check();
        point2++;
        point2=point2%0x7fef;
        eepwrite(point2/256,point2%256,adtemp[0][ji].adig);
        check();
        point2++;

     }


     while(1);

}




void time0() interrupt 1
{
      uchar y,a;
      uint b,c;

      TL0=0x00;
      TH0=0x4c;

      dog=1;
      nop();
      dog=0;
      nop();    //喂狗

       count++;
      if(count==19)
      { ms50=1;        // 1s 時(shí)間到了 開始發(fā)送
        count=0;       //恢復(fù)準(zhǔn)備
        ms2=1;         //還不知道用來(lái)干什么
        err=0;
        address=0;
        qi=0; //發(fā)送前把接收的位置清零 從高位其接收存到addate中
      }
       if(ms50==1)
      {
         for(y=0;y<2;y++)
           { se=0;

             send(address); //收回來(lái)的是哪一路 共有四路模擬量
             delay6ms(10);         //延時(shí)需要7MS 發(fā)送1 接收3個(gè) 用了4 在給出一半的冗余時(shí)間
             if(se==1)
               {  se=0;
                  address++;
                  break ;
               }
              else
              {
                  if(y+1==2)
                  {
                     adtemp[0][address].adh=0xaa;
                     adtemp[0][address].adl=0xaa;
                     adtemp[0][address].adig=0x0f;
                     address++;
                     //err++;
                  }
              }
            }






        // address++;

         if((address==4))

          {  if(err==7)
            { err=0;
             b=point1;
             c=point2;
             point1=(point1+12)%0x7fef;

             point2=(point2+12)%0x7fef;
             for(a=0;a<4;a++)
              {
                    eepwrite(c/256,c%256,adtemp[0][a].adh);
                    temp[a].adh=adtemp[0][a].adh;
                    check();

                    c=c++;
                    c=c%0x7fef;


                    eepwrite(c/256,c%256,adtemp[0][a].adl);
                    temp[a].adl=adtemp[0][a].adl;
                    check();

                    c++;
                    c=c%0x7fef;


                    eepwrite(c/256,c%256,adtemp[0][a].adig);
                    temp[a].adig=adtemp[0][a].adig;
                    check();
                    c++;
                    c=c%0x7fef;
               }

             }




            address=0;
            ms50=0;

          }

      }



}