单片机 与单片机串口通讯程序

#include<reg51.h>
#define uchar unsigned char
#define SLAVE 0x00
#define BN 16 uchar idata tdata[16];

uchar idata rdata[16];
bit trdy;
bit rrdy;
void main(void)
{
  TMOD=0x20;                        //定时器T1为模式2
  TL1=0xfd;                        //定时器初值
  TH1=0xfd;
  PCON=0x00;
  TR1=1;
  SCON=0xf0;                        //串行口方式3
  ES=1;EA=1;                        //开串行口中断
  while(1){trdy=1;rrdy=1;}                //准备好发送和接收
} void slave(void) interrupt 4 using 1
{
  void str(void);
  void sre(void);
  uchar a;
  RI=0;                            //关串行口中断
  ES=0;
  if(SBUF!=SLAVE){ES=1;goto reti;}        //非本机地址，继续监听
  SM2=0;                            //取笑监听状态
SBUF=SLAVE;                    //发回从机地址
while(TI!=1);TI=0;
while(RI!=1);RI=0;
if(RB8==1){SM2=1;ES=1;goto reti;}        //确认地址不符，从机复位
a=SBUF;                        //接收命令
if(a==1){                        //从机接收主机的数据
if(rrdy==1) SBUF=0x01;            //接收准备好，发回0x01
else
SBUF=0x00;
while(TI!=1);TI=0;
while(RI!=1);RI=0;
if(RB8==1){SM2=1;ES=1;goto reti;}
sre();                        //接收数据
}
else
{
if(a==0x02)                    //从机向主机发送数据
{
if(trdy==1) SBUF=0x02;        //发送准备好
else
SBUF=0x00;
while(TI!=1);TI=0;
while(RI!=1);RI=0;
if(RB8==1){SM2=1;ES=1;goto reti;}
str( );                    //发送数据
}
else
{
SBUF=0x80;                //命令非法
while(TI!=1);TI=0;
SM2=1;ES=1;                //恢复监听
}
}
reti:;
} void str(void)                        //发送数据函数
{uchar p,i;
 trdy=0;
 do{p=0;                            //初始校验和为0
    for(i=0;i<BN;i++)
     {SBUF=tdata[i];                    //发送数据
      p+=tdata[i];
      while(TI!=1);TI=0;
     }
  SBUF=p;                        //发送校验和
while(TI!=1);TI=0;
while(RI!=1);RI=0;
}while(SBUF!=0);                    //主机接收不正确，重新发送
SM2=1;ES=1;
} void sre(void)                        //接收数据函数
{uchar p,i;
 rrdy=0;
 while(1)
{p=0;                                //初始化校验和为0
   for(i=0;i<BN;i++)
{while(RI!=1);RI=0;
   tdata[i]=SBUF;                    //接收数据
   p+=rdata[i];
  }
  while(RI!=1);RI=0;
if(SBUF==p){SBUF=0x00;break;}        //校验和相同，发00H
else{
SBUF=0xFF;while(TI!=1);TI=0;        //校验和不同，发FFH，重新接收
 }
}
SM2=1;ES=1;
}