原创 单片机与组态王通信源程序

void main()
{
  byte n,i,*p,crc,k;
  word ptr,num;
  IE="0x92";//开总中断EA串行中断ES定时器中断ET1，ET0外部中断EX1，EX0
  SCON="0xD0"; //串行工作方式3九位异步收发波特率可变（有定时器控制）REN允许串行接收
  SM2=1; //管理多机通信
  TB8=0;//在SM2=1的情况下表示发送内容为数据帧
  TMOD="0x21";//(定时器工作方式控制寄存器)设定T1为工作方式2T0为工作方式1 由TCON中的TRx控制
  PCON="0x80";//设定SMOD=1
/************************************************************************************
波特率的产生：因为SMOD=1 定时器工作在模式3 波特率=2eqrSMOD/64*晶振频率/12*[256-(TH1)]
************************************************************************************/
  TH1=-2;
  TL1=-2;
  TR1=1;//（计数运行控制位）允许T1计数
  TH0=time0>>8;
  TL0=time0&0xff;
  TR0=1;//允许T0计数
  Tptr="0"; Tnum="0";  Rptr="0";
  ReadMe="0"; RecvOk=0;MyAddr=0;
/*********************************************************************************
                             以下数组为待发送数组
*********************************************************************************/
  DatB[0]=123;DatB[1]=234;DatB[2]=111; DatB[3]=222;
  DatW[0]=1234;DatW[1]=5678;DatW[2]=7890;DatW[3]=17890;
  DatF[0]=12.34; DatF[1]=123.4; DatF[2]=1234.5;

 
while(1)
  {
    DatB[1]=P1;
 if(RecvOk)
 {
       RecvOk="0";
       CheckCRC();//调用校验函数
     if(Rbuf[0]==MyAddr && CRCok==1 && SM2==1)  //对PC的查询命令进行应答
    {
          LED=!LED; LIT="LED"; //开始应答时点灯
       Tbuf[0]=ACK; //格式二
              Tbuf[1]=MyAddr;
              Tbuf[2]=ETX;
              crc="0";
            for(i=0;i<3;i++)
                crc^=Tbuf;//发送前校验
    Tbuf[3]=crc; //将校验结果作为校验位
    Tptr="0"; //在发送程序里作为循环变量
                  Tnum="4"; //发送数据个数为4个
                  TI="1";  //发送缓存器空
    DelayMs="10";
                  ReadMe="1";
                  SM2=0;
    }
    else if(SM2==0 && CRCok==1)     //在应答后进行数据传送控制
    { 
          ReadMe="2";
       n="Rbuf"[4];//格式
    ptr="Rbuf"[3]<<8 | Rbuf[2]; //由于地址偏移量为两字节所以存在数组的两个元素中
               //这个操作将低八位在前高八位在后，转化为高前低后并合成一个十六位的地址偏移量
       if(Rbuf[0]=='R')//判断读
       {
       switch(Rbuf[1])//判断读和种类型的数据
       {
      case DB:num=n; //读字节
                    DatB[0]++;
              p=(byte*)DatB+ptr;//获取数组首地址并加上地址偏移量确定指针一次移多少位
              for(i=0;i<num;i++)
        {
          k="i";
          Tbuf[3+k]=p[k];//将指针数组指向的内容赋给发送数组
                    //之所以从3+K开始是因为发送数组的前三位是ACK和Datalong（两字节）
        }
              break;
      case DW:num=n/2;
              DatW[0]++;
              p=(byte*)DatW+ptr*2;
              for(i=0;i<num;i++)
        {
          k="i"*2;
          Tbuf[3+k]=p[k+1];
          Tbuf[4+k]=p[k];
        }
              break;
      case DF:num=n/4;
              DatF[0]+=0.01;
                       p=(byte*)DatF+ptr*4;
              for(i=0;i<num;i++)
        {
          k="4"*i;
          Tbuf[6+k]=p[k];
          Tbuf[5+k]=p[k+1];
          Tbuf[4+k]=p[k+2];
          Tbuf[3+k]=p[k+3];
        }
              break;
    }
                 Tbuf[0]=ACK; 
                        Tbuf[1]=n&0xff; //将Datalong低前高后存入数组
                        Tbuf[2]=n>>8;
   Tbuf[3+n]=ETX;
                         crc="0"; 
                       for(i=0;i<4+n;i++)
                         crc^=Tbuf;
    Tbuf[4+n]=crc;
    Tptr="0";
                         Tnum="n"+5;//发送数据个数
                         TI="1";//发送寄存器空
    }
    else if(Rbuf[0]=='W')//判断写 格式六
    {
                     n="Rptr-6";
       switch(Rbuf[1])
       {
      case DB:num=n;
              p=(byte*)DatB+ptr;
              for(i=0;i<num;i++)
        {
                k="i";
          p=Rbuf[k+4];
        }
              break;
      case DW:num=n/2;
              p=(byte*)DatW+ptr*2;
              for(i=0;i<num;i++)
        {
          k="i"*2;
          p[k+1]=Rbuf[k+4];
          p[k]=Rbuf[k+5];
        }
              break;
      case DF:num=n/4;
                       p=(byte*)DatF+ptr*4;
              for(i=0;i<num;i++)
        {
          k="4"*i;
          p[k+3]=Rbuf[k+4];
          p[k+2]=Rbuf[k+5];
          p[k+1]=Rbuf[k+6];
          p[k]=Rbuf[k+7];
        }
              break;
    }
          Tbuf[0]=ACK; Tbuf[1]=MyAddr; Tbuf[2]=ETX;
             crc="0";  for(i=0;i<3;i++) crc^=Tbuf;
    Tbuf[3]=crc;
    Tptr="0"; Tnum="4"; TI="1";
    }
    }
 }
  }
}