display.c

用keil便宜代码超过64k的程序例子

    	if(len > 129) goto out ;  /*接收到的数据长度不会超过80个字节*/
    	sum+= len;	/*长度也进行累加*/
    	s++;
    	Ack_I2c(0);    //test /*发送应答位*/  

	    for(i=1;i<=len-1;i++)
    	{   
     		*s=RcvByte();      /*接收数据*/
     		sum+= *s;
     		s++;
     		Ack_I2c(0);     /*发送应答位*/  
  
    	} 
   	*s=RcvByte();  //07-22-03    /*接收校验和,最后字节*/
    	sum+=*s;
    	s++;
    	*s=sum;
    	if(sum==0xFF && !T0IR) //07-22-03	/*接收正确且在规定时间内*/
		{
		 	Ack_I2c(1);   /*发送非应位*/
		 	for(k=0;k<2;k++)		 
	    		{}
 			Stop_I2c();   /*结束总线*/ 
 			alar(KEYALARM1,KEYALARM2);
 			//alar(1);
  			return(OK);
  		}
  	out:Ack_I2c(0);   /*发送应位,重发5次*/
  	    for(k=0;k<2;k++)		 
	    		{}
  	    Stop_I2c();		
  	 if(T0IR)return(NOK);/*超时*/
 
	}
		
		//alarmrcv=1;
		 return(NOK);
}

recept(uchar *s)
{
	uchar i;
	uchar sum;
	uchar j;
	//uchar len;	/*保存长度字节*/
	uchar *pp;
	uchar	k;
//uint	tagesave;	
	startwait(5);/*80ms*/
	pp=s;	/*保存数据的原始指针*/
	TR0=1;
//	maxtr=0;
	for(j=0;j<5;j++)//07-22-03
	{
     	s=pp;	/*取指针*/
     	sum=0;
     	
//	maxtr=0;	/*整个帧传送时间20ms*/
     	Start_I2c();               /*启动总线*/

    	if(SendByte(READ932)!=OK) goto out;  /*发送932器件地址,无应答返回失败标志*/
    	

	    for(i=0;i<4;i++)
    	{   
     		*s=RcvByte();      /*接收数据*/
     		sum+= *s;
     		s++;
     		Ack_I2c(0);     /*发送应答位*/  
  
    	} 
   	*s=RcvByte();  //07-22-03    /*接收校验和,最后字节*/
    	sum+=*s;
    	s++;
    	*s=sum;
    	if(sum==0xFF && !T0IR) //07-22-03	/*接收正确且在规定时间内*/
		{
		 	Ack_I2c(1);   /*发送非应位*/
		 	for(k=0;k<2;k++)		 
	    		{}
 			Stop_I2c();   /*结束总线*/ 
 			
 			//alar(1);
  			return(OK);
  		}
  	out:Ack_I2c(0);   /*发送应位,重发5次*/
  	    for(k=0;k<5;k++)		 
	    		{}
  	    Stop_I2c();		
  	 if(T0IR)return(NOK);/*超时*/
 
	}
		
		//alarmrcv=1;
		 return(NOK);
}


/*******************************************************************
                 字节数据传送函数               
函数原型: void  SendByte(uchar c);2464使用
功能:  将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对
     此状态位进行操作.(不应答或非应答都使ack=0 假)     
     发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
********************************************************************/
bit  SendByte2464(uchar c)
{
bit sendack;
 uchar BitCnt;
	TOGGLE_WD(); 
 for(BitCnt=0;BitCnt<8;BitCnt++)  /*要传送的数据长度为8位*/
    {
     if((c<<BitCnt)&0x80)SDA=1;   /*判断发送位*/
       else  SDA=0;                
     _Nop();
     SCL=1;               /*置时钟线为高，通知被控器开始接收数据位*/
      _Nop(); 
      _Nop();               /*保证时钟高电平周期大于4μs*/
      _Nop();
      _Nop();
      _Nop();         
     SCL=0; 
    }
    
    _Nop();
    _Nop();
    SDA=1;               /*8位发送完后释放数据线，准备接收应答位*/
    _Nop();
    _Nop();   
    SCL=1;
    _Nop();
    _Nop();
    _Nop();
    if(SDA==1)
    		sendack=0;     
       else 
       		sendack=1;        /*判断是否接收到应答信号*/
    SCL=0;
    _Nop();
    _Nop();
	return(sendack);
}






/*******************************************************************
                 字节数据传送函数               
函数原型: uchar  RcvByte();2464使用
功能:  用来接收从器件传来的数据,并判断总线错误(不发应答信号)，
     发完后请用应答函数。  
********************************************************************/	
uchar  RcvByte2464()
{
  uchar retc;
  uchar BitCnt;
TOGGLE_WD();  
  retc=0; 
  SDA=1;             /*置数据线为输入方式*/
  for(BitCnt=0;BitCnt<8;BitCnt++)
      {
        _Nop();           
        SCL=0;       /*置时钟线为低，准备接收数据位*/
        _Nop();
        _Nop();         /*时钟低电平周期大于4.7μs*/
        _Nop();
        _Nop();
        _Nop();
        SCL=1;       /*置时钟线为高使数据线上数据有效*/
        _Nop();
        _Nop();
        retc=retc<<1;
        if(SDA==1)retc=retc+1; /*读数据位,接收的数据位放入retc中 */
        _Nop();
        _Nop(); 
      }
  SCL=0;    
  _Nop();
  _Nop();
  return(retc);
}

/*******************************************************************
                    向无子地址器件发送字节数据函数               
函数原型: bit  ISendByte(uchar sla,ucahr c);  
功能:     从启动总线到发送地址，数据，结束总线的全过程,从器件地址sla.
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
bit ISendByte(uchar sla,uchar c)
{

   Start_I2c();               /*启动总线*/
   if(SendByte2464(sla)==0)            /*发送器件地址*/
     	return(0);
   if(SendByte2464(c)==0)               /*发送数据*/
       return(0);
  Stop_I2c();                 /*结束总线*/ 
  return(1);
}




/*******************************************************************
                    向有子地址器件发送多字节数据函数               
函数原型: bit  ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);  
功能:     从启动总线到发送地址，子地址,数据，结束总线的全过程,从器件
          地址sla，子地址suba，发送内容是s指向的内容，发送no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
bit ISendStr(uchar sla,uchar masa,uchar suba,uchar *s,uchar no)
{
   uchar i;
TOGGLE_WD();
	startwait(5);	/*80ms*/
   Start_I2c();               /*启动总线*/
   if(SendByte2464(sla)==0)            /*发送器件地址*/
     return(0);
   if(sla!=i8563)
   	{
	   if(SendByte2464(masa)==0)            /*发送器件子地址high*/
     			return(0);
     	}
   if(SendByte2464(suba)==0)            /*发送器件子地址*/
     return(0);

   for(i=0;i<no;i++)
    {   TOGGLE_WD();
     if(SendByte2464(*s)==0)               /*发送数据*/
       return(0);
     s++;
    } 
 Stop_I2c();                 /*结束总线*/ 
  return(1);
}






/*******************************************************************
                    向无子地址器件读字节数据函数               
函数原型: bit  IRcvByte(uchar sla,ucahr *c);  
功能:     从启动总线到发送地址，读数据，结束总线的全过程,从器件地
          址sla，返回值在c.
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
bit IRcvByte(uchar sla,uchar *c)
{
   Start_I2c();                /*启动总线*/
   if(SendByte2464(sla+1)==0)           /*发送器件地址*/
     return(0);
   *c=RcvByte();               /*读取数据*/
     Ack_I2c(1);               /*发送非就答位*/
  Stop_I2c();                  /*结束总线*/ 
  return(1);
}



/*******************************************************************
                    向有子地址器件读取多字节数据函数               
函数原型: bit  ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);  
功能:     从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件
          地址sla，子地址suba，读出的内容放入s指向的存储区，读no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
bit IRcvStr(uchar sla,uchar masa,uchar suba,uchar *s,uchar no)
{
   uchar i;
TOGGLE_WD();
	startwait(5);	/*80ms*/
   Start_I2c();               /*启动总线*/
   if(SendByte2464(sla)==0)            /*发送器件地址*/
	     return(0);
   if(sla!=i8563)
   	{
   	if(SendByte2464(masa)==0)            /*发送器件子地址high*/
     		return(0);
     	}
   if(SendByte2464(suba)==0)            /*发送器件子地址*/
	     return(0);

   Start_I2c();
   if(SendByte2464(sla+1)==0)
      	return(0);
	
   for(i=0;i<no-1;i++)
    {   TOGGLE_WD();
     *s=RcvByte2464();               /*发送数据*/
      Ack_I2c(0);                /*发送就答位*/  
     s++;
    } 
   *s=RcvByte2464();
    Ack_I2c(1);                 /*发送非应位*/
   Stop_I2c();                    /*结束总线*/ 
 	TOGGLE_WD();
  return(1);
}



                        /*    完毕      */