2018年05月20日 | 用51模拟I2C从机程序

/********************************************************************/
//宏观声明
#include
#include
#define nop() _nop_()
#define uchar unsigned char
#define uint unsigned int
/*
P3 Bit Registers (Mnemonics & Ports)
------------------------------------------------*/
sbit P3_0 = 0xB0;
sbit P3_1 = 0xB1;
sbit P3_2 = 0xB2;
sbit P3_3 = 0xB3;
sbit P3_4 = 0xB4;
sbit P3_5 = 0xB5;
sbit P3_6 = 0xB6;
sbit P3_7 = 0xB7;
/********************************************************************/
//EEPROM 声明文件
#define CMD_IDLE 0
#define CMD_READ 1
#define CMD_PROGRAM 2
#define CMD_ERASE 3
#define ENABLE_IAP 0x83
/********************************************************************/
//红外学习声明
uchar data IRcode[4],IRcode2[4];
uchar CodeTemp;
uchar i,j,k,p,studyi,num;
uchar IRS_STATE=0;
uchar idata key_ircode[30][4];
sbit IRsignal=P3^2;
sbit LED1=P1^6; 
sbit LED2=P1^7;
/********************************************************************
sbit Skey=P2^7;
sbit key1=P2^0;
sbit key2=P2^1;
sbit key3=P2^2;
sbit key4=P2^3;
sbit key5=P2^4;
/********************************************************************/ 
//I2C声明文件
sbit SDA=P3^3;
sbit SCL=P3^7; 
/********************************************************************/ 
uchar data keynum;
/********************************************************************/
//-----------------------------------------------------
//static bit OP;        //红外发射管的亮灭
//static unsigned int count;       //延时计数器
//static unsigned int endcount; //终止延时计数
static unsigned char Flag;      //红外发送标志
char iraddr1;  //十六位地址的第一个字节
char iraddr2;  //十六位地址的第二个字节
sbit IR_SEND=P1^3;
uchar cnt;
uint value;
//------------------------------------------------------------
#define FOSC    11059200
#define T38KHz (FOSC / 4 / 37900)
/********************************************************************/
void Delay0_9ms(void)//0.9毫秒延迟
{
unsigned char i, j;
 _nop_();
 _nop_();
 _nop_();
 i = 10;
 j = 170;
 do
 {
  while (--j);
 } while (--i);
}
void Delay1ms(void)//1毫秒延迟
{
/*********************************************************************/
unsigned char i, j;

 _nop_();
 i = 11;
 j = 190;
 do
 {
  while (--j);
 } while (--i);
}
/********************************************************************/
void Delay4ms(void)//4毫秒延迟
{
unsigned char i, j;

 _nop_();
 _nop_();
 _nop_();
 i = 44;
 j = 3;
 do
 {
  while (--j);
 } while (--i);
}
/********************************************************************
void Delay500us()//0.5毫秒延迟  //@11.0592MHz
{
 unsigned char i, j;

 i = 6;
 j = 93;
 do
 {
  while (--j);
 } while (--i);
}
********************************************************************/
void Delay(void)//  普通延迟
{
uchar i,j,k;
  for(i=200;i>0;i--)
  for(j=200;j>0;j--)
  for(k=3;k>0;k--);
}
/*****************************************************************/
void putchar(unsigned char data1)//字符发送函数 
{
SBUF = data1; //将待发送的字符送入发送缓冲器
while(TI == 0); //等待发送完成
TI = 0; //发送中断标志请0
}
/*****************************************************************/
void putstring(unsigned char *dat)//字符串发送函数
{
for(i=0;i<4;i++) //判断字符串是否发送完毕
{
putchar(*dat); //发送单个字符
dat++; //字符地址加1，指向先下一个字符
}
}
/****************************************************************/
void initUart(void)//串口初始化
{
    TMOD=0x20;     //用定时器设置串口波特率
 TH1=0xfd;
 TL1=0xfd;
 TR1=1;
 REN=1;          //串口初始化
 SM0=0;
 SM1=1;
 EA=1;           //开启总中断
 ES=1;
}

/****************************************************************/
void IRinit()//红外学习声明初始化
{
    IT0=1;
 EX0=0;
 EA=1;
 CodeTemp=0;
}
void IICinitSteve()//I2C从总线初始化
{
 IT1=0;
 EX1=1;
 EA=1;
}
/****************************************************************/
void PCAinit()//PCA定时器0初始化
{
 CCON = 0;                       //Initial PCA control register
                                    //PCA timer stop running
                                    //Clear CF flag
                                   //Clear all module interrupt flag
    CL = 0;                         //Reset PCA base timer
    CH = 0;
    CMOD = 0x02;                    //Set PCA timer clock source as Fosc/2
                                    //Disable PCA timer overflow interrupt
    value = T38KHz;
    CCAP0L = value;                 //P1.3 output 100KHz square wave
 CCAP0H = value >> 8;            //Initial PCA module-0
    value += T38KHz;            //Initial PCA module-0
    CCAPM0 = 0x4d;                  //PCA module-0 work in 16-bit timer mode and enable PCA interrupt, toggle the output pin CEX0(P1.3)

    CR = 0;                         //PCA timer start run
    EA = 1;
    cnt = 0; 
}
/****************************************************************/
void T0init()
{
  Flag = 0;
  P3_4 = 1;
  EA = 1; //允许CPU中断 
  TMOD |= 0x01; //设定时器0和1为16位模式1 
  ET0 = 1; //定时器0中断允许
}
/****************************************************************/
void IapIdle()//EEPROM初始化
{
 IAP_CONTR=0;
 IAP_CMD=0;
 IAP_TRIG=0;
 IAP_ADDRH=0X80;
 IAP_ADDRL=0;
}
/****************************************************************/
uchar IapReadByte(uint addr)//EEPROM读取命令
{
 uchar dat;
 IAP_CONTR=ENABLE_IAP;
 IAP_CMD=CMD_READ;
 IAP_ADDRL=addr;
 IAP_ADDRH=addr>>8;
 IAP_TRIG=0x5a;
 IAP_TRIG=0xa5;
 nop();

 dat=IAP_DATA;
 IapIdle();

 return dat;
}
/****************************************************************/
void IapProgramByte(uint addr,uchar dat)//EEPROM 写入命令
{
 IAP_CONTR=ENABLE_IAP;
 IAP_CMD=CMD_PROGRAM;
 IAP_ADDRL=addr;
 IAP_ADDRH=addr>>8;
 IAP_DATA=dat;
 IAP_TRIG=0x5a;
 IAP_TRIG=0xa5;
 nop();

 IapIdle();
}
/****************************************************************/
void IapEraseSector(uint addr)//EEPROM清除命令
{
 IAP_CONTR=ENABLE_IAP;
 IAP_CMD=CMD_ERASE;
 IAP_ADDRL=addr;
 IAP_ADDRH=addr>>8;
 IAP_TRIG=0x5a;
 IAP_TRIG=0xa5;
 nop();

 IapIdle();
}
/****************************************************************
void keycan()
{
 if(key1==0)
 {
  Delay();
  if(key1==0)
  {
   while(key1==0);
   keynum=0;
  }
 }
 else if(key2==0)
 {
  Delay();
  if(key2==0)
  {
   while(key2==0);
   keynum=1;
  }
 } 
 else if(key3==0)
 {
  Delay();
  if(key3==0)
  {
   while(key3==0);
   keynum=2;
  }
 } 
 else if(key4==0)
 {
  Delay();
  if(key4==0)
  {
   while(key4==0);
   keynum=3;
  }
 } 
 else if(key5==0)
 {
  Delay();
  if(key5==0)
  {
   while(key5==0);
   keynum=4;
  }
 }

 
}
/****************************************************************/
void int0(void) interrupt 0 using 2//红外学习命令
{  
 EA=0; 
 for(k=0;k<10;k++)
 {
  Delay0_9ms();
  if(IRsignal==1)
  {
  k=10;break;
  }
  else if(k==9)
  {
   while(IRsignal==0);
   Delay4ms();
   Delay1ms();
//   Delay500us();
   for(i=0;i<4;i++)
   {
    for(j=1;j<=8;j++)
    {
     while(IRsignal==0);
     Delay0_9ms();
     
     if(IRsignal==1)
     {
      Delay1ms();
      CodeTemp=CodeTemp|0x80;
      if(j<8) CodeTemp=CodeTemp>>1;
     }
     else
     if(j<8)CodeTemp=CodeTemp>>1;
    }
    IRcode[i]=CodeTemp;
    CodeTemp=0; 
   }
   
   Delay();
    studyi++;
  }
 }
 if(studyi==1)
 {
  for(i=0;i<4;i++)
  {
  IRcode2[i]=IRcode[i]; 
  }
 }
 if(studyi==2)
 {
  for(i=0;i<4;i++)
  {
  if(IRcode2[i]!=IRcode[i])
  {
   studyi=0;
   break;
  }
  if(i==3)
  {
  for(i=0;i<4;i++)
  {
  key_ircode[keynum][i]=IRcode[i];
  }
  EX0=0;
  LED2=1;
  } 
  }
  studyi=0;
 }
 EA=1;
}
void SendIRdata(uchar IR[])
{
  int i;       
  char irdata;
  //---发红外码
  CR = 1;
  //发送9ms的起始码
  TH0 = 0xDF; 
  TL0 = 0x98; //设定时值0为38K 也就是每隔26us中断一次  
  TR0 = 1;//开始计数
  Flag=1;
  P3_4=0;  
  do{}while(Flag!=0);
  CR=0;
  IR_SEND=1;
  //发送4.5ms的结果码
  TH0 = 0xEF; 
  TL0 = 0xcb; //设定时值0为38K 也就是每隔26us中断一次  
  TR0 = 1;//开始计数
  Flag=1;
  P3_4=1;
  do{}while(Flag!=0);

  //发送十六位地址的前八位
  irdata=IR[0];
  for(i=0;i<8;i++)
  {

     //先发送0.56ms的38KHZ红外波（即编码中0.56ms的低电平）
     CR=1;
    TH0 = 0xfd; 
    TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次  
    TR0 = 1;
     Flag=1;
  P3_4=0;
     do{}while(Flag!=0);
  CR=0;
  IR_SEND=1;
    //停止发送红外信号（即编码中的高电平）
     if(irdata-(irdata/2)*2)  //判断二进制数个位为1还是0
     {
       TH0 = 0xf9; 
       TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次  
       TR0 = 1;  //1为宽的高电平
     }
    else
     {
      TH0 = 0xfd; 
     TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次  
     TR0 = 1;   //0为窄的高电平
     }
    Flag=1;
 P3_4=1;
    do{}while(Flag!=0);

    irdata=irdata>>1;
  }

  //发送十六位地址的后八位
  irdata=IR[1];
  for(i=0;i<8;i++)
  {
    //先发送0.56ms的38KHZ红外波（即编码中0.56ms的低电平）
     CR=1;
    TH0 = 0xfd; 
    TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次  
    TR0 = 1;
     Flag=1;
  P3_4=0;
     do{}while(Flag!=0);
  CR=0;
  IR_SEND=1;
    //停止发送红外信号（即编码中的高电平）
     if(irdata-(irdata/2)*2)  //判断二进制数个位为1还是0
     {
       TH0 = 0xf9; 
       TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次  
       TR0 = 1;  //1为宽的高电平
     }
    else
     {
      TH0 = 0xfd; 
     TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次  
     TR0 = 1;   //0为窄的高电平
     }
    Flag=1;
 P3_4=1;
    do{}while(Flag!=0);

    irdata=irdata>>1;
  }

  //发送八位数据
  irdata=IR[2];
  for(i=0;i<8;i++)
  {
     //先发送0.56ms的38KHZ红外波（即编码中0.56ms的低电平）
     CR=1;
    TH0 = 0xfd; 
    TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次  
    TR0 = 1;
     Flag=1;
  P3_4=0;
     do{}while(Flag!=0);
  CR=0;
  IR_SEND=1;
    //停止发送红外信号（即编码中的高电平）
     if(irdata-(irdata/2)*2)  //判断二进制数个位为1还是0
     {
       TH0 = 0xf9; 
       TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次  
       TR0 = 1;  //1为宽的高电平
     }
    else
     {
      TH0 = 0xfd; 
     TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次  
     TR0 = 1;   //0为窄的高电平
     }
    Flag=1;
 P3_4=1;
    do{}while(Flag!=0);

    irdata=irdata>>1;
  }

  //发送八位数据的反码
  irdata=IR[3];
  for(i=0;i<8;i++)
  {
    //先发送0.56ms的38KHZ红外波（即编码中0.56ms的低电平）
     CR=1;
    TH0 = 0xfd; 
    TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次  
    TR0 = 1;
     Flag=1;
  P3_4=0;
     do{}while(Flag!=0);
  CR=0;
  IR_SEND=1;
    //停止发送红外信号（即编码中的高电平）
     if(irdata-(irdata/2)*2)  //判断二进制数个位为1还是0
     {
       TH0 = 0xf9; 
       TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次  
       TR0 = 1;  //1为宽的高电平
     }
    else
     {
      TH0 = 0xfd; 
     TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次  
     TR0 = 1;   //0为窄的高电平
     }
    Flag=1;
 P3_4=1;
    do{}while(Flag!=0);

    irdata=irdata>>1;
  }
    CR=1;
    TH0 = 0xfd; 
    TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次  
    TR0 = 1;
  Flag=1;
   P3_4=0;
 do{}while(Flag!=0);
 CR=0;
 IR_SEND=1;
  P3_4=1;
  Flag=0;
}
/****************************************************************/
 bit iic_start_decide()////IIC 开始判断
{
 while(SCL==0);////开始不满足条件
 while((SCL==1)&&(SDA==1));///开始条件
 if((SCL==1)&&(SDA==0))////开始
 {
  while(SCL==1);///等待到时钟开始低跳变
  return 1;
 }
 else
 return 0;
}
/****************************************************************/
bit iic_stop_decide()////IIC 结束判断
{
 while(SCL==0);////结束不满足条件
 if((SCL==1)&&(0==SDA))////结束
 {
  while(SDA==0);///等待到数据开始高跳变
  return 1;
 }
 else
 {
 return 0;}
}
/****************************************************************/
uchar iic_receive()
{
 uchar i;
 uchar rdata='0';
 SDA=1;
 for(i=0;i<8;i++)
 {
  rdata<<=1;
  while(SCL==0);///当时钟为低时，数据无效，等待
  if(SDA==1)
  rdata++;
  while(SCL==1);///防止在一个高电平时读8次
 }
 return (rdata);
}
/****************************************************************/
bit iic_ack_decide()
{
bit ack_flag;///局部变量
SDA=0;////8位发送完毕，释放数据线SDA，准备接收应答位
while(SCL==0);///等待SCL变高电平
//ack_flag=0;
while(SCL==1);///等待SCL变高电平
SDA=1;
ack_flag=1;
return(ack_flag);
}
void keynum_receive()
{
     iic_start_decide();
  iic_receive();
  iic_ack_decide();
  iic_receive();
  iic_ack_decide();
  keynum=iic_receive();
  iic_ack_decide();
  iic_stop_decide();
}
/****************************************************************/
void main()//主程序
{

/*******************************************************************/
//初始化动作    
 studyi=0;     //红外学习状态
   initUart();   //串口初始化
 IRinit();   //红外学习初始化
 IICinitSteve();
 PCAinit();
 T0init();              
 keynum=0xff;   //按键初始化
/********************************************************************/
 for(p=0;p<30;p++)
 {
 for(i=0;i<4;i++)
 {
  key_ircode[p][i]=IapReadByte(0x0000+(p*4)+i);
 }
 } 
/*******************************************************************/ 
  while(1)
  { 
//   keycan();
 while(keynum==0xff);
   if(IRS_STATE==0)//遥控状态
 {
 /********************************************************************
  if(Skey==0)//触发学习键
  {
   Delay();
   if(Skey==0);
   {
   while(Skey==0);
   LED1=0;
   IRS_STATE=1;
   } 
  }
 /********************************************************************/ 
  if(keynum==16)//触发学习键
  {
   LED1=0;
   IRS_STATE=1; 
  }
  else if(keynum!=0xff)
  {
  putstring(key_ircode[keynum]);
  SendIRdata(key_ircode[keynum]); 
  }
 }
 else if(IRS_STATE==1)//学习状态
 {
/********************************************************************/ 
  if((keynum!=0xff)&&(keynum!=16))
  {
    EX0=1;
    LED2=0;
    while(LED2==0); 
  }
/********************************************************************/     
  if(keynum==16)//触发学习键
  {
   LED1=1;
   LED2=1;
   EX0=0;
   IapEraseSector(0x0000);
   for(p=0;p<30;p++)
    {
    for(i=0;i<4;i++)
     {
       IapProgramByte((0x0000+(p*4)+i), key_ircode[p][i]);
     }
    }
   IRS_STATE=0;
   } 
 }
 keynum=0xff;
  }

}
/****************************************************************/
void ser() interrupt 4 //串口中断
{
 RI=0;
 num=1;
}
void PCA_isr() interrupt 7 using 1
{
    CCF0 = 0;                       //Clear interrupt flag
    CCAP0L = value;
 CCAP0H = value >> 8;            //Update compare value
    value += T38KHz;                     //Clear interrupt flag
}
void timeint(void) interrupt 1 
{ 
  Flag=0;
  TR0=0;
}
void II2C_INT1(void) interrupt 2
{
 EX1=0;
 keynum_receive();
 EX1=1;
}