display.c

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

#include "main.h"
//#include "Sm8958k.h"
#include <intrins.h>
//#include "i2c.h"
//#include "rc500.h"
//#define uchar unsigned char
#define  _Nop()  _nop_()        /*定义空指令*/
//#define OK	0
//#define NOK	1
#define	WRITE932	0x54
#define	READ932		0x55
extern void alar(uint,uchar);
extern startwait(uchar time);
extern bit keyflag;
//extern uint tage;
extern bit T0IR;

bit	ack;
//bit alarm;	/*接收出错报警状态标志*/
//bit	alarmrcv;	/*发送出错报警状态标志*/

//bit SendStr(uchar sla,uchar *s);/*主发送函数*/
//bit RcvStr(uchar sla,uchar *s);/*主接收函数，在中断中调用*/
//bit IRcvStr(uchar sla,uchar subah,uchar subal,uchar *s,uchar no);/*test*/
//bit ISendStr(uchar sla,uchar subah,uchar subal,uchar *s,uchar no);/*test*/
//void delay_ms(uchar t)	;
//uchar maxtr;	/*一帧传送的最长时间，暂定20ms*/
//uchar maxack;	/*等待应答的最长时间，暂定20ms*/
//uchar idata sendata[15]={0x06,0x21,0x22,0x23,0x24,0x25};	/*发送数据缓冲区指针*/
//uchar idata rcvdata[15];	/*接收数据缓冲区指针*/
//uchar	N;	/*重发次数应小于5*/




/*******************************************************************
                     起动总线函数               
函数原型: void  Start_I2c();  
功能:       启动I2C总线,即发送I2C起始条件.
  
********************************************************************/
void Start_I2c()
{
  SDA=1;   /*发送起始条件的数据信号*/
 TOGGLE_WD();
  _Nop();
  SCL=1;
  _Nop();    /*起始条件建立时间大于4.7us,延时*/
  _Nop();
  _Nop();
  _Nop();
  _Nop();    
  SDA=0;   /*发送起始信号*/
  _Nop();    /* 起始条件锁定时间大于4μs*/
  _Nop();
  _Nop();
  _Nop();
  _Nop();       
  SCL=0;   /*钳住I2C总线，准备发送或接收数据 */
  _Nop();
  _Nop();
}

/*******************************************************************
                      结束总线函数               
函数原型: void  Stop_I2c();  
功能:       结束I2C总线,即发送I2C结束条件.
  
********************************************************************/
void Stop_I2c()
{
  SDA=0;  /*发送结束条件的数据信号*/
  _Nop();   /*发送结束条件的时钟信号*/
  SCL=1;  /*结束条件建立时间大于4μs*/
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  SDA=1;  /*发送I2C总线结束信号*/
  _Nop();
  _Nop();
  _Nop();
  _Nop();
TOGGLE_WD();
}

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

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

/********************************************************************
                     应答子函数
原型:  void Ack_I2c(bit a);
 
功能:主控器进行应答信号,(可以是应答或非应答信号)
********************************************************************/
void Ack_I2c(bit a)
{
  
  if(a==0)SDA=0;     /*在此发出应答或非应答信号 */
        else SDA=1;
  _Nop();
  _Nop();
  _Nop();      
  SCL=1;
    _Nop();
    _Nop();              /*时钟低电平周期大于4μs*/
    _Nop();
    _Nop();
    _Nop();  
 SCL=0;                /*清时钟线，钳住I2C总线以便继续接收*/
    _Nop();
    _Nop();    
TOGGLE_WD();
}

/*******************************************************************
                    向932发送多字节数据子函数               
函数原型: bit  SendStr(uchar sla,uchar *s);  
功能:     从启动总线到发送地址，数据，结束总线的全过程,从器件地址sla.
返回：    如果返回1表示操作成功，否则操作有误。
参数说明：sla为932器件写地址54H;*s为发送数据缓冲区指针，其指向的首地址
		  存放的是数据长度＝长度＋类型码＋数据＋校验；	
********************************************************************/
bit display(uchar *s)
{
	uchar i;
	uchar sum;
	uchar j;
	uchar len;
	uchar	*pt;
	uchar	k;
	startwait(10);	/*80ms*/
	pt=s;	/*保存数据的原始指针*/
	for(j=0;j<5;i++)
	{
		s=pt;	/*取指针*/
		sum=0;
		EX1=0;
		I2C_BUSY=0;
	_Nop();
	_Nop();
	_Nop();
	_Nop();
		I2C_BUSY=1;
		IE1=0;
		EX1=1;
		TR0=1;  /*启动定时器*/
//		maxtr=0;	/*整个帧传送时间20ms*/
	    Start_I2c();               /*启动总线*/
	    if(SendByte(WRITE932)!=OK) goto next;  /*发送932器件地址,无应答返回失败标志*/
		len=*s;
		
		for(i=0;i<len;i++)
   		{
			if(SendByte(*s)!=OK) goto next;  /*发送数据*/	
	    		sum+=*s;	
		  	s++;
		  	for(k=0;k<2;k++)		 
	    		{}
    		}
    		*s=~sum;	/*test*/
   		if(SendByte(*s)!=OK) goto next;   /*发送取反的校验和*/
		for(k=0;k<6;k++)		 
	    	{;;}
	    	if(SendByte(*s)!=OK) goto next;   /*发送取反的校验和*/
		for(k=0;k<6;k++)		 
	    	{;;}
		Stop_I2c();    /*结束总线*/ 
		return(OK);	/*返回成功*/
		
	  next:Stop_I2c();    /*结束总线*/ 		  	
	  if(T0IR)return(NOK);
  	}
  	//alarm=1;	/*置报警位表发送失败*/
	return(NOK);	/*返回失败*/
}
/*******************************************************************
                    读取932数据函数               
函数原型: bit  RcvStr(uchar sla,ucahr *s);  
功能:     从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件
          地址sla，子地址suba，读出的内容放入s指向的存储区，读no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
bit keyboard(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器件地址,无应答返回失败标志*/

    	*s=RcvByte();    /*接收长度字节*/
    	len=*s;
    	//len=s[0];