#include <reg52.h>			    // 引用標準庫的頭文件
#include <stdio.h>
#include <string.h>

#define uchar unsigned char 
#define uint unsigned int
 
#define ACTIVE  	0x11
#define GETDATA  	0x22
#define READY  		0x33
#define SENDDATA	0x44	

#define RECFRMMAXLEN 16 		// 接收幀的最大長度，超過此值認為幀超長錯誤
#define STATUSMAXLEN 10			// 設備狀態信息最大長度	  

uchar DevNo;					// 設備號
xdata uchar StatusBuf[STATUSMAXLEN];

//為簡化起見，假設了10位固定的采集數據
#define DATA0  	0x10
#define DATA1  	0x20
#define DATA2  	0x30
#define DATA3  	0x40
#define DATA4  	0x50
#define DATA5  	0x60
#define DATA6  	0x70
#define DATA7  	0x80
#define DATA8  	0x90
#define DATA9  	0xA0

sbit DE = P1^6;			//驅動器使能，1有效
sbit RE = P1^7;			//接收器使能，0有效

void init();					// 系統初始化
void Get_Stat();				// 簡化的數據采集函數
bit Recv_Data(uchar *type);		// 接收數據幀函數
void Send(uchar m);					// 發送單字節數據
void Send_Data(uchar type,uchar len,uchar *buf);				// 發送數據幀函數	
void Clr_StatusBuf();			//  清除設備狀態信息緩沖區函數   

void main(void)
{
	uchar type;

	/* 初始化 */
	init();
	
	while (1) 
	{
		if (Recv_Data(&type)==0)			// 接收幀錯誤或者地址不符合，丟棄
			continue;
		switch (type)
		{
			case ACTIVE:				// 主機詢問從機是否在位
				Send_Data(READY,0,StatusBuf);	// 發送READY指令
				break;
			case GETDATA:				// 主機讀設備請求
				Clr_StatusBuf();
				Get_Stat();				// 數據采集函數
				Send_Data(SENDDATA,strlen(StatusBuf),StatusBuf);
				break;
			default:
				break;					// 指令類型錯誤，丟棄當前幀
		}
	}
}

/* 初始化 */
void init(void)
{
	P1 = 0xff;
	DevNo = (P1&0x00111111);			// 讀取本機設備號

	TMOD = 0x20;
	SCON = 0x50;
	TH1 = 0xfd;
	TL1 = 0xfd;
	TR1 = 1;
	PCON = 0x00;						// SMOD=0
	EA = 0;
						
}

/* 接收數據幀函數，實際上接收的是主機的指令 */
bit Recv_Data(uchar *type)
{
	uchar tmp,rCount,i;
	uchar r_buf[RECFRMMAXLEN];			// 保存接收到的幀
	uchar Flag_RecvOver;				// 一幀接收結束標志	
	uchar Flag_StartRec;				// 一幀開始接收標志
	uchar CheckSum;						// 校驗和
	uchar DataLen;						// 數據字節長度變量
		
	/* 禁止發送，允許接收 */
	DE = 0;
	RE = 0;

	/* 接收一幀數據 */
	rCount = 0;
	Flag_StartRec = 0;
    Flag_RecvOver = 0;
	while (!Flag_RecvOver)
	{
		RI = 0;
		while (!RI);
		tmp = SBUF;
		RI=0;

		/* 判斷是否收到字符'$',其數值為0x24 */          
		if ((!Flag_StartRec) && (tmp == 0x24))
		{
			Flag_StartRec = 1;	
		}

		if (Flag_StartRec) 
		{
			r_buf[rCount] = tmp;
			rCount ++;		
			
			/* 判斷是否收到字符'*'，其數值為0x2A，根據接收的指令設置相應標志位 */
			if (tmp == 0x2A)
				Flag_RecvOver = 1;
		}

		if (rCount == RECFRMMAXLEN)		// 幀超長錯誤，返回0
			return 0;
	}
	
	/* 計算校驗和字節 */
	CheckSum = 0;
	DataLen = r_buf[3];
	for (i=0;i++;i<3+DataLen)
	{
		CheckSum = CheckSum + r_buf[i+1];
	}
	
	/* 判斷幀是否錯誤 */
	if (rCount<6)						// 幀過短錯誤，返回0，最短的指令幀為6個字節						
		return 0;
	if (r_buf[1]!=DevNo)  				// 地址不符合，錯誤，返回0
		return 0;
	if (r_buf[rCount-2]!=CheckSum)		// 校驗錯誤，返回0
    	return 0;

	*type = r_buf[2];					// 獲取指令類型

	return 1;							// 成功，返回1
}

/* 發送數據幀函數 */
void Send_Data(uchar type,uchar len,uchar *buf)
{
	uchar i,tmp;
	uchar CheckSum = 0;
	
	/* 允許發送，禁止接收 */
	DE = 1;
	RE = 1;
	
	/* 發送幀起始字節 */
	tmp = 0x24;
	Send(tmp);
	
	Send(DevNo);						// 發送地址字節，也即設備號
	CheckSum = CheckSum + DevNo;
 
	Send(type);							// 發送類型字節
	CheckSum = CheckSum + type;

	Send(len);							// 發送數據長度字節
	CheckSum = CheckSum + len;
 
	/* 發送數據 */
	for (i=0;i<len;i++)			
	{
		Send(*buf);
		CheckSum = CheckSum + *buf;
		buf++;
	}
	
	Send(CheckSum);						// 發送校驗和字節

	/* 發送幀結束字節 */
	tmp = 0x2A;
	Send(tmp);
}

/* 采集數據函數經過簡化處理，取固定的10個字節數據 */
void Get_Stat(void)
{
	StatusBuf[0]=DATA0;
	StatusBuf[1]=DATA1;
	StatusBuf[2]=DATA2;
	StatusBuf[3]=DATA3;
	StatusBuf[4]=DATA4;
	StatusBuf[5]=DATA5;
	StatusBuf[6]=DATA6;
	StatusBuf[7]=DATA7;
	StatusBuf[8]=DATA8;
	StatusBuf[9]=DATA9;
}

/* 發送單字節數據 */
void Send(uchar m)
{
	TI = 0;
	SBUF = m;
    while(!TI);
	TI = 0;	
}

/* 清除設備狀態信息緩沖區函數*/
void Clr_StatusBuf(void)
{
	uchar i;
	for (i=0;i<STATUSMAXLEN;i++)
		StatusBuf[i] = 0;	
}