主机通信子程序如下.docVIP

主机通信子程序如下： MOV TMOD,#20H MOV TL1,#0F3H MOV TH1,#0F3H SETB TR1 MOV PCON,#80H STAT：MOV SCON，#0D8H ；串口方式3，允许接收，TB8=1 CLR ES ；禁止串行中断 CLP1：MOV SBUF ，#0FFH ；发送命令，所有从机SM2=1 JNB TI，$ ；等待发送完毕 CLR TI ；清发送中断标志 MOV A,R2 ；取寻址的从机地址 MOV SBUF,A ；发送寻址的从机地址 JNB TI,$ ；等待发送完毕 CLR TI JNB RI,$ ；等待寻址的从机应答（返回地址） CLR RI MOV A,SBUF ；读从机应答信号 XRL A,R2 ；核对地址（异或，相同为0） JNZ CLP1 ；若地址不符合，则重发 CLP2: CLR TB8 ；准备发送数据帧（只有寻址的从机才能接收） MOV SBUF,R3 ；发送命令帧 JNB TI，$ ；等待发送完毕 CLR TI JNB RI,$ ；等待从机应答 CLR RI MOV A,SBUF ；读应答信息 JB Acc.7, CLP2 ；若是非法命令则重发（ERR=1） CJNE R3， #01H，SRX0 ；若原命令不要求从机发送，则转 STX:JNB Acc.1,CLP2 ；R3=01H要求从机发送，发送未准备好，则重新联络 STX1:JNB RI,$ ；从机发送数据块长度，主机等待接收完毕 CLR RI MOV A,SBUF ；主机接收数据块长度 MOV R5,A ；保存数据块长度 MOV R7,A ；暂存数据块长度 RX_DATA:JNB RI,$ ；接收从机发来的数据 CLR RI MOV A,SBUF MOV @R1,A ；存放数据并计算校验和 ADD A, R6 MOV R6, A ；存放校验和 INC R1 ；指向下一数据存储单元 DJNZ R5,STX1 ；判全部数据接收完毕否？未完继续 JNB RI,$ ；接收主机发来的数据校验和 CLR RI MOV A,SBUF CJNE A,R6,ERROR ；校验和不正确，则发81H表明数据出错 RET ；正确接收完毕，返回 ERROR: MOV SBUF, #81H JNB TI, $ CLR TI MOV A， R7 ；恢复R5（收到该数据块的长度）以便恢复R1值 MOV R5， A LOOP：DEC R1 ；恢复R1首地址 DJNZ R5， LOOP MOV R6，00H ；恢复累加和 AJMP STX1 ；重新等待接收 SRX0：JC SRX ；若原命令要求从机接收，转从机接收 RET ；否则返回 SRX:JNB Acc.0, CLP2 ；从机接收未准备好，重新联络 SRX1:MOV A,R4 ；从机接收已准备好则主机发送数据块长度 MOV SBUF,A WAIT1:JBC TI, SRX1 ；等待主机发送完毕 SJMP WAIT1 TX_DATA:MOV A, @R0 ；主机发送数据，并计算校验和 MOV SBUF， A JNB TI,$ CLR TI ADD A，R6 MOV R6， A INC R0 ；指向下一发送数据 DJNZ R4, TX_DATA ；判全部数据发送完毕否？未完继续 MOV A,R6 ；主机发送校验和 MOV SBUF, A JNB TI, $ CLR TI JNB RI, $ ；等待从机应答 CLR RI MOV A, SBUF ；接受应答信 CLR Cy SUBB A，#81H JZ RE_SEND ；收到应答是81H则重新发送数据 RET ；全部数据发送成功，则返回