rs485通信程序

#ifndef __485_C__
#define __485_C__
#include <reg51.h>
#include <string.h>
#define unsigned char uchar
#define unsigned int uint
/* 通信命令 */
#define __ACTIVE_ 0x01 // 主机询问从机是否存在
#define __GETDATA_ 0x02 // 主机发送读设备请求
#define __OK_ 0x03 // 从机应答
#define __STATUS_ 0x04 // 从机发送设备状态信息
#define __MAXSIZE 0x08 // 缓冲区长度
#define __ERRLEN 12 // 任何通信帧长度超过12则表示出错
uchar dbuf[__MAXSIZE]; // 该缓冲区用于保存设备状态信息
uchar dev; // 该字节用于保存本机设备号
sbit M_DE = P1^0; // 驱动器使能，1有效
sbit M_RE = P1^1; // 接收器使能，0有效
void get_status(); // 调用该函数获得设备状态信息，函数代码未给出
void send_data(uchar type, uchar len, uchar *buf); // 发送数据帧
bit recv_cmd(uchar *type); // 接收主机命令，主机请求仅包含命令信息
void send_byte(uchar da); // 该函数发送一帧数据中的一个字节，由send_data()函数调用
void main()
{
uchar type;
uchar len;
/* 系统初始化 */
P1 = 0xff; // 读取本机设备号
dev = (P1>>2);
TMOD = 0x20; // 定时器T1使用工作方式2
TH1 = 250; // 设置初值
TL1 = 250;
TR1 = 1; // 开始计时
PCON = 0x80; // SMOD = 1
SCON = 0x50; // 工作方式1，波特率9600bps，允许接收
ES = 0; // 关闭串口中断
IT0 = 0; // 外部中断0使用电平触发模式
EX0 = 1; // 开启外部中断0
EA = 1; // 开启中断
/* 主程序流程 */
while(1) // 主循环
{
if(recv_cmd(&type) == 0) // 发生帧错误或帧地址与本机地址不符，丢弃当前帧后返回
continue;
switch(type)
{
case __ACTIVE_: // 主机询问从机是否存在
send_data(__OK_, 0, dbuf); // 发送应答信息，这里buf的内容并未用到
break;
case __GETDATA_:
len = strlen(dbuf);
send_data(__STATUS_, len, dbuf); // 发送设备状态信息
break;
default:
break; // 命令类型错误，丢弃当前帧后返回
}
}
}
void READSTATUS() interrupt 0 using 1 // 产生外部中断0时表示设备状态发生改变，该函数使用寄存器组1
{
get_status(); // 获得设备状态信息，并将其存入dbuf指向的存储区，数据最后一字节置0表示数据结束
}
/* 该函数接收一帧数据并进行检测，无论该帧是否错误，函数均会返回
* 函数参数type保存接收到的命令字
* 当接收到数据帧错误或其地址位不为0时（非主机发送帧），函数返回0，反之返回1 */
bit recv_cmd(uchar *type)
{
bit db = 0; // 当接收到的上一个字节为0xdb时，该位置位
bit c0 = 0; // 当接收到的上一个字节为0xc0时，该位置位
uchar data_buf[__ERRLEN]; // 保存接收到的帧
uchar tmp;
uchar ecc = 0;
uchar i;
M_DE = 0; // 置发送禁止，接收允许
M_RE = 0;
/* 接收一帧数据 */
i = 0;
while(!c0) // 循环直至帧接收完毕
{
RI = 0;
while(!RI);
tmp = SBUF;
RI = 0;
if(db == 1) // 接收到的上一个字节为0xdb
{
switch(tmp)
{
case 0xdd:
data_buf[i] = 0xdb; // 0xdbdd表示0xdb
ecc = ecc^0xdb;
db = 0;
break;
case 0xdc
data_buf[i] = 0xc0; // 0xdbdc表示0xc0
ecc = ecc^0xc0;
db = 0;
break;
default
return 0; // 帧错误，返回
}
i++;
}
switch(tmp) // 正常情况
{
case 0xc0: // 帧结束
c0 = 1;
break;
case 0xdb: // 检测到转义字符
db = 1;
break;
default: // 普通数据
data_buf[i] = tmp; // 保存数据
ecc = ecc^tmp; // 计算校验字节
i++;
}
if(i == __ERRLEN) // 帧超长，错误，返回
return 0;
}
/* 判断帧是否错误 */
if(i<4) // 帧过短，错误，返回
return 0;
if(ecc != 0) // 校验错误，返回
return 0;
if(data_buf[0] != dev) // 非访问本机命令，错误，返回
return 0;
*type = data_buf[1]; // 获得命令字
return 1; // 函数成功返回
}
/* 该函数发送一帧数据帧，参数type为命令字、len为数据长度、buf为要发送的数据内容 */
void send_data(uchar type, uchar len, uchar *buf)
{
uchar i;
uchar ecc = 0; // 该字节用于保存校验字节
M_DE = 1; // 置发送允许，接收禁止
M_RE = 1;
send_byte(dev); // 发送本机地址
ecc = dev;
send_byte(type); // 发送命令字
ecc = ecc^type;
send_byte(len); // 发送长度
ecc = ecc^len;
for(i=0; i<len; i++) // 发送数据
{
send_byte(*buf);
ecc = ecc^(*buf);
buf++;
}
send_byte(ecc); // 发送校验字节
TI = 0; // 发送帧结束标志
SBUF = 0xc0;
while(!TI);
TI = 0;
}
/* 该函数发送一个数据字节，若该字节为0xdb，则发送0xdbdd，若该字节为0xc0则，发送0xdbdc */
void send_byte(uchar da)
{
switch(da)
{
case 0xdb: // 字节为0xdb，发送0xdbdd
TI = 0;
SBUF = 0xdb;
while(!TI);
TI = 0;
SBUF = 0xdd;
while(!TI)
TI = 0;
break;
case 0xc0: // 字节为0xc0，发送0xdbdc
TI = 0;
SBUF = 0xdb;
while(!TI);
TI = 0;
SBUF = 0xdc;
while(!TI)
TI = 0;
break;
default: // 普通数据则直接发送
TI = 0;
SBUF = da;
while(!TI);
TI = 0;
}
}
#endif。