- /*
- 單片機與組態王進行數據通訊（HEX模式）
- 測試通過
- 趙學軍
- */
- #include <reg51.h>
- #define byte unsigned char
- #define word unsigned int
- #define ENQ 0x05 //詢問
- #define ACK 0x06 //確認
- #define NAK 0x15 //否認
- #define EOT 0x04 //發送結束
- #define ETX 0x03 //應答結束
- #define DB 0x01 //字節
- #define DW 0x02 //字
- #define DF 0x03 //浮點
- #define BufMax 30
- #define time0 -100000
- bit RecvOk,CRCok;
- bit LED;
- sbit LIT=P0^0;
- byte idata Rbuf[BufMax],Tbuf[BufMax];
- byte data Rptr,Tptr,Tnum;
- byte data MyAddr,DelayMs,last,ReadMe;
- byte idata DatB[8];
- word idata DatW[8];
- float idata DatF[8];
- void CheckCRC()
- {
- byte i,n,crc;
- n=Rptr;
- crc=ENQ;
- for(i=0;i<n;i++) crc^=Rbuf[i];
- if(crc==0) CRCok=1;
- else CRCok=0;
- }
- void Uart() interrupt 4 using 1
- {
- byte m;
- if(RI) //ENQ.......EOT,CRC
- {
- RI=0;m=SBUF;
- if(last==ENQ &&(m==MyAddr ||m=='R' || m=='W')) Rptr=0;
- if(Rptr<BufMax)
- {
- Rbuf[Rptr]=m; Rptr++;
- }
- if(last==EOT) RecvOk=1;
- last=m;
- }
- else
- {
- TI=0;
- if(Tnum>0)
- {
- SBUF=Tbuf[Tptr];
- if(++Tptr>=BufMax) Tptr=0;
- Tnum--;
- }
- else if(ReadMe==2)
- {
- SM2=1; ReadMe=0;
- }
- }
- }
- void Timer1() interrupt 1 using 2
- {
- TH0=time0>>8; TL0=time0&0xff;
- if(DelayMs>0) DelayMs--;
- else SM2=1;
- }
- void main()
- {
- byte n,i,*p,crc,k;
- word ptr,num;
- IE=0x92;SCON=0xD0; SM2=1; TB8=0;
- TMOD=0x21; PCON=0x80;
- TH1=-2; TL1=-2; TR1=1;
- TH0=time0>>8; TL0=time0&0xff; TR0=1;
- 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[i];
- Tbuf[3]=crc;
- Tptr=0; Tnum=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];
- }
- 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; Tbuf[2]=n>>8;
- Tbuf[3+n]=ETX;
- crc=0; for(i=0;i<4+n;i++) crc^=Tbuf[i];
- 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[i]=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[i];
- Tbuf[3]=crc;
- Tptr=0; Tnum=4; TI=1;
- }
- }
- }
- }
- }
|
