两台8031单片机通过串行口进行数据交换程序

有两台8031单片机相距很近，直接将它们的串行口相连，1#机的TXD接2#机的RXD，2#机的TXD接1#机的RXD，二机的GND相连。二机的晶振频率均为11.0592MHZ，通信的波特率为4800bps。现将第一台8031单片机片内RAM40H～5FH单元内的数据，串行发送到第二台8031单片机片内RAM60H～7FH单元中。

发送与接收的参考程序如下：1#单片机发送程序：

ORG 1000H

TX:MOV  TMOD , #02H

      MOV  TH1 , #0FAH 

      MOV  TL1 , #0FAH

MOV  SCON , #80H      ；

设定工作方式2

MOV  PCON, #00H     ；

波特率为fosc/64 

SETB  TR0

MOV  R0 , #40H；设发送数据的地址指针

MOV  R2 , #20H；设发送数据长度 

LOOP:MOV  A , @R0；取发送数据送A 

MOV  C , PSW.0           

MOV  TB8 , C；奇偶位送TB8 

MOV  SBUF , A；启动发送

WAIT:JBC  TI , LL1；判发送中断标志

SJMP  WAIT                  

LL1:INC  R0                          

DJNZ  R2 , LOOP          

RET

2#单片机接收程序：

ORG 1000H

RX:MOV  TMOD , #02H      

MOV  TH1 , #0FAH             

MOV  TL1 , #0FAH       

MOV  SCON , #90H；设定工作方式2，并允许接收

MOV  PCON , #00H      

              SETB  TR0              

              MOV  R0 , #60H            

              MOV  R2 , #20H             

LOOP:   JBC  RI , MM1；等待接收数据 

              SJMP  LOOP                 

MM1:    MOV  A , SBUF；读入一帧数据

              JB  PSW.0 , PP1；判接收端奇偶 

              JB  RB8 , ERROR    ；判发送端奇偶

              SJMP  RIGHT                

PP1:JNB  RB8 , ERROR；接收出错 

RIGHT:  MOV  @R0 , A；接收正确 

              INC  R0                          

              DJNZ  R2 , LOOP          

ERROR: SETB  PSW.5；置出错标志 

              RET