点对点通信.asm

温度控制器的protell制图和各个能实现的程序。

ASTART:CLR EA
       MOV TMOD,#20H ;定时器1置为方式2
       MOV TH1,#0F4H ;装载定时器初值，波特率2400
       MOV TL1,#0F4H   
       MOV PCON,#00H    
       SETB TR1      ;启动定时器
       MOV SCON,#50H ;设定串行口方式1，且准备接受应答信号
ALOOP1:MOV SBUF,#0E1H ;发联络信号
       JNB TI,$       ;等待一桢发送完毕
       CLR TI         ;允许再发送
       JNB RI,$       ;等待2号机的应答信号
       CLR RI         ;允许再接收
       MOV A,SBUF     ;2号机应答后，读至A
       XRL A,#0E2H    ;判断2号机是否准备完毕 
       JNZ ALOOP1     ;2号机未准备好，继续联络
ALOOP2:MOV R0,#40H    ;2号机准备好，设数据块指针初值
       MOV R7,#10H    ;设数据块长度初值
       MOV R6,#00H    ;清校验和单元
ALOOP3:MOV SBUF,@R0   ;发送一个数据字节
       MOV A,R6       
       ADD A,@R0      ;求校验和
       MOV R6,A       ;保存校验和
       INC R0         
       JNB TI,$       
       CLR TI         
       DJNZ R7,ALOOP3 ;整个数据块是否发送完毕
       MOV SBUF,R6    ;发送校验和
       JNB TI,$       
       CLR TI         
       JNB RI,$       ;等待2号机的应答信号
       CLR RI         
       MOV A,SBUF     ;2号机应答，读至A
       JNZ ALOOP2     ;2号机应答“错误”，转重新发送