双机通信例题.docVIP

；串口的初始化工作 MTD EQ 40H ;定义和用户发送数据缓冲区 COM_INIT:MOV PCON,#00H;SMOD=0 MOV TMOD,#20H;T1工作于方式2 MOV TH1，#0FAH MOV TL1，#0FAH;初值 SETB TR1 MOV SCON,#50H;串口工作于方式1 ;组装数据块 MAKEDATA:MOV R0，#MTD MOV @R0,#6;数据长度6送入数据块 INC R0 MOV R3，#0;R3用于进行异或校验 MOV R2，#6 MOV R1，#30H TRANFER:MOV A,@R1 MOV @R0，A MOV A,R3 XRL A,@R1 MOV R3，A;异或校验字送R3 INC R0 INC R1 DJNZ R2，TRANSFER MOV @RO,A;异或校验字送数据块中 ;发送呼叫信号 TX_ACK:MOV A,#00H；发送呼叫信号 MOV SBUF,A WAIT1：JBC TI,NEXT1;等待发送完毕 SJMP WAIT1 ；接收应答，判断#01H NEXT1：JBC RI,ACK_OK;有接受，则判断应答类型 SJMP NEXT1 ACK_OK:MOV A,SBUF CJNE A,#01H,TX_ACK;若不同意接收，继续呼叫，否则，往下执行发送数据程序 ；发送数据块 TX_DATA: MOV R1，#8;总共发送8个字节 MOV R0，#MTD TX_BYTE :MOV A,@R0 MOV SBUF,A;发送一个数据 WAIT2: JBC TI,NEXT2 SJMP WAIT2 NEXT2: INC R0 DJNZ R1,TX_BYTE;未发送完毕继续，否则，等待乙机应答 ；接收结束标志#0FFH，否则重发 WAIT3: JBC RI,RX_OK SJMP WAIT3 RX_OK: MOV A,SBUF;判断乙机应答是否正确 CJNE A,#0FFH,TX_ACK；若发送失败，重新发送，否则，发送结束返回。 RET ；串口的初始化工作 MRD EQ #30H;定义用户接收缓冲区首地址 COM_INIT:MOV PCON,#00H；SMOD=0 MOV TMOD,#20H;T1方式2 MOV TH1，#0FAH MOV TL1，#0FAH;设置初值 SETB TR1 MOV SCON,#50H;串口工作于方式1 ；清数据区 MOV R1,#6；开辟一块以MRD为首地址的接 MOV R0,#MRD；收缓冲区，并清空8个字节 CLR_DATA:MOV @R0,#0；的空间 INC R0 DJNZ R1,CLR_DATA ；接收呼叫信号并回送#01H RX_ACK:JBC RI,NEXT1；接收呼叫信号 SJMP RX_ACK NEXT1:MOV A,SBUF；判断是否呼叫信号 CJNE A,#00H,RX_ACK；若不是，等待 MOV A,#01H；若是，回送#01H MOV SBUF,A WAIT1:JBC TI,RC_DATA SJMP WAIT1 ；接收数据并计算校验字 RC_DATA:MOV R0,#MRD；接收数据块 MOV R3,#0；R3用来计算校验字 WAIT2: JBC RI,NEXT2 SJMP WAIT2 NEXT2: MOV A,SBUF；接收第一个字节，即长度 MOV R1,A；保存到R1 WAIT3: JBC RI,NEXT3 SJMP WAIT3 NEXT3: MOV A,SBUF；接收数据 MOV @R0,A INC R0 XRL A,R3；计算异或校验字 MOV R3,A DJNZ R1,WAIT3；数据未接收完，则继续 ;比较校验字 WAIT4: JBC RI,NEXT4 SJMP WAIT4 NEXT4: MOV A,SBUF；接收校验字 MOV 50H,R3；本地校验字送50H CJNE A,50H,RC_NOT；比较校验字 RC_OK: MOV A,#0FFH；正确，回送FF到甲，返回 MOV SBUF,A WAIT5: JBC