#include <reg51.h>
#include <absacc.h>

#define REG0   XBYTE[0x0000]	//LCD寫指令寄存器的地址，可根據配置修改
#define REG1   XBYTE[0x0001]	//LCD讀出數據到D0~D7的地址，可根據配置修改
#define REG2   XBYTE[0x0002]	//LCD寫數據寄存器的地址，可根據配置修改
#define REG3   XBYTE[0x0003]	//LCD讀數據寄存器的地址，可根據配置修改

unsigned char bdata busyflag;
unsigned char dat,datn;

unsigned char word1[16]={" This programm "};	//第1行顯示緩存
unsigned char word2[16]={"  by LiXueli "};		//第2行顯示緩存
code unsigned char word3[16]={"www.bitc.edu.cn!"};	//用于固定顯示的數據，固化到ROM中
code unsigned char word4[16]={"bitclxl@126.com!"};	//用于固定顯示的數據，固化到ROM中
code unsigned char word5[16]={"  Wellcome To "};	//用于固定顯示的數據，固化到ROM中
code unsigned char word6[16]={" Proteus Tools!"};	//用于固定顯示的數據，固化到ROM中


sbit busyflag_7=busyflag^7;
sbit p10=P1^0;
sbit p11=P1^1;
sbit p12=P1^2;
sbit p13=P1^3;
sbit p14=P1^4;
sbit p15=P1^5;
sbit p16=P1^6;
sbit p17=P1^7;
//////////////////////////////////////start of IIC ////////////////////////////
#define uchar unsigned char
#define uint  unsigned int
#include "reg51.h"
#include "intrins.h"

sbit	Scl=P3^4;	//串行時鐘
sbit	Sda=P3^5;	//串行數據



/*發送起始條件*/
void Start(void)        /*起始條件*/
{
        Sda=1;
        Scl=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Sda=0;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
}
void Stop(void) /*停止條件*/
{
        Sda=0;
        Scl=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Sda=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
}
void Ack(void)  /*應答位*/
{
        Sda=0;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Scl=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Scl=0;
}
void  NoAck(void)       /*反向應答位*/
{
        Sda=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Scl=1;
        _nop_ ();
        _nop_ ();
        _nop_ ();
        _nop_ ();
        Scl=0;
}
void Send(uchar Data)   /*發送數據子程序,Data為要求發送的數據*/
{
        uchar BitCounter=8;       /*位數控制*/
        uchar temp;     /*中間變量控制*/
        do
        {
           temp=Data;
           Scl=0;
           _nop_ ();
           _nop_ ();
           _nop_ ();
           _nop_ ();
           if((temp&0x80)==0x80)/* 如果最高位是1*/
                Sda=1;
           else
                Sda=0;
           Scl=1;
           temp=Data<<1;        /*RLC*/
           Data=temp;
           BitCounter--;
         }while(BitCounter);
         Scl=0;
}
uchar Read(void) /*讀一個字節的數據,并返回該字節值*/
{
        uchar temp=0;
        uchar temp1=0;
        uchar BitCounter=8;
        Sda=1;
        do{
          Scl=0;
          _nop_ ();
          _nop_ ();
          _nop_ ();
          _nop_ ();
          Scl=1;
          _nop_ ();
          _nop_ ();
          _nop_ ();
          _nop_ ();
          if(Sda)       /*如果Sda=1;*/
                temp=temp|0x01;  /*temp的最低位置1*/
          else
                temp=temp&0xfe;  /*否則temp的最低位清0*/
          if(BitCounter-1)
          {   temp1=temp<<1;
              temp=temp1;
          }
          BitCounter--;
        }while(BitCounter);
        return(temp);
}
void WrToROM(uchar Data[],uchar Address,uchar Num)//寫入一組數據到AT24C02中
{     //參數為數組的首地址，數據在AT24C02中的開始地址，數據個數
     uchar i=0;
     uchar *PData;
     PData=Data;
     Start();        
     Send(0xa0);    //A0、A1、A2接地，固AT24C02的寫地址為0XA0
     Ack();
     Send(Address);  
     Ack();
     for(i=0;i<Num;i++)
     {
        Send(*(PData+i));
        Ack();
     }
     Stop();
}
void  RdFromROM(uchar Data[],uchar Address,uchar Num)//讀出一組數據到AT24C02中
     //參數為數組的首地址，數據在AT24C02中的開始地址，數據個數
{
     uchar i=0;
     uchar *PData;
     PData=Data;
     for(i=0;i<Num;i++)
     {
        Start();
        Send(0xa0); //A0、A1、A2接地，固AT24C02的寫地址為0XA0
        Ack();
        Send(Address+i);
        Ack();
        Start();
        Send(0xa1); //A0、A1、A2接地，固AT24C02讀地址為0XA1
        Ack();
        *(PData+i)=Read();
        Scl=0;
        NoAck();
        Stop();
   }
}

/////////////////////////////////END of IIC/////////////////////////////////
void busy()		//查詢LCD是否忙碌子程序
{
	do
	{
		busyflag=REG1;
	}while(busyflag_7);
}

void wrc(unsigned char wcon)	//寫控制指令子程序
{
	busy();
	REG0=wcon;
}

void wrd(unsigned char wdat)	//寫數據寄存器子程序
{
	busy();
	REG2=wdat;
}

void rdd()	//讀數據寄存器子程序
{
	busy();
	dat=REG3;
}

void lcdint()	//LCD初始化子程序
{
	wrc(0x38);	
	wrc(0x01);
	wrc(0x06);
	wrc(0x0c);
}
void wrn(unsigned char word[])	//連續寫n個字符數據到LCD的數據寄存器中
{
	unsigned char i;
	for(i=0;i<16;i++)
	{
		wrd(word[i]);
	}
}


///////////////////////////////////
void main()
{
		unsigned char i;
		lcdint();	//初始化
		wrc(0x80);	//顯示第1行的第1個字符
		wrn(word1);
		wrc(0xc0);	//顯示第2行的第1個字符
		wrn(word2);

        while(1)
		{
            if(p10==0) //判斷P1.0是否按下，寫入數據到EEPROM中
			{
				for(i=0;i<16;i++)
					word1[i]='d';
				WrToROM(word1,0x00,16);
				wrc(0x80);
				wrn(word1);

			}
			if(p11==0) //判斷P1.1是否按下，并顯示數據
			{
				RdFromROM(word2,0x00,16);
				WrToROM(word2,0x80,16);
				wrc(0x80);
				wrn(word1);
				wrc(0xc0);
				wrn(word2);
			}
			if(p12==0) //判斷P1.2是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word3);
				wrc(0xc0);
				wrn(word4);
			}
			if(p13==0) //判斷P1.3是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word5);
				wrc(0xc0);
				wrn(word6);
			}
			if(p14==0) //判斷P1.4是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word3);
				wrc(0xc0);
				wrn(word4);
			}
			if(p15==0) //判斷P1.5是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word5);
				wrc(0xc0);
				wrn(word6);
			}
			if(p16==0)//判斷P1.6是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word3);
				wrc(0xc0);
				wrn(word4);
			}
			if(p17==0)//判斷P1.7是否按下，并顯示數據
			{
				wrc(0x80);
				wrn(word5);
				wrc(0xc0);
				wrn(word6);
			}
		}
}