#include<reg52.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[16];
//uchar code  lcd0[16]=" 9: 睡眠模式    ";
//uchar code  lcd1[16]="通道號:         ";
//uchar code  lcd2[16]="電壓值:         ";
//uchar code  lcd3[16]="開關量:         ";
//uchar code  lcd4[16]="11: 返回上級    ";
//uchar code  lcd5[16]="號: 0~3 返回:11 ";
//uchar code  lcd6[16]="0  1  2  3  4   ";
//uchar code  lcd7[16]="                ";
//uchar code  lcd8[16]="10: 實時監(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]="請選擇下面歷史點";
//uchar code  lcd14[16]="5  6  7  8  9   ";
uchar code  lcd15[8]="通道號:";
uchar code  lcd16[8]="電壓值: ";
uchar code  lcd17[8]="開關量: ";

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[10][4];
ad  adtemp[1][4];
ad temp[4];
//ad red[4];

//**********************延時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ù)給子機
{


    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;
     IE0=1;
     EA=1;
     TR0=1;             // chuan xing zhong duan you xian ji zui gao
}



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

}



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

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

void respons()		//IIC應答信號
{

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

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



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

}



uchar read_byte()		//讀一個字節(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 寫周期的應答查詢
{
  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)              //延時
{
     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)                      //液晶屏初始化
{
     delay6ms(1);
     write(0x30,0);
     noop();
     noop();
     //delay(1);
     write(0x30,0);
     noop();
     noop();
     //delay(1);
     write(0x0c,0);
     noop();
     noop();//delay(1);
     write(0x01,0);
     delay6ms(1);//delay(100);
     write(0x06,0);
     noop();
     noop();//delay(1);

}







uchar key(void)                     //鍵盤檢測
{
     uchar db,da;
     P1=0x0f;
     da=P1;
     if(da==0x0f)
      {
          return (0xff);
      }
      else
       {
          delay6ms(120);
        // 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個字節(jié)里面******************************
     check();

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

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




      for(ji=0;ji<4;ji++)
     {
             //指向前一個最后保存數(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 a;
      uint c;

      TL0=0x00;
      TH0=0x4c;

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

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

             send(address); //收回來的是哪一路 共有四路模擬量
             delay6ms(10);         //延時需要7MS 發(fā)送1 接收3個 用了4 在給出一半的冗余時間
             if(se==1)
               {  se=0;
                  address++;
                  break ;
               }
              else
              {
                  if(a==1)
                  {
                     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;

          }

      }



}