;本程序收發數據采用查詢方式
ORG 0000H
AJMP START
ORG 0030H
START:MOV TMOD,#20H  ;定時器1置為方式2
      MOV TH1,#0F4H  ;裝載定時器初值，波特率2400
      MOV TL1,#0F4H  
      CLR EA         
      SETB TR1       ;啟動定時器
      MOV PCON,#00H  
      MOV SCON,#50H  ;設定串口方式1，且準備接收
LOOP1:JNB RI,$       ;等待1號機的聯絡信號
      CLR RI
      MOV A,SBUF     ;收到1號機信號
      XRL A,#0E1H    ;判是否為1號機聯絡信號
      JNZ LOOP1      ;不是一號機聯絡信號，再等待
      MOV SBUF,#0E2H ;是1號機聯絡信號，發應答信號
      JNB TI,$
      CLR TI
      MOV R0,#30H    ;設定數據快地址指針初值
      MOV R7,#10H    ;設定數據塊長度初值
      MOV R6,#00H    ;清校驗和單元
LOOP2:JNB RI,$
      CLR RI
      MOV A,SBUF
      MOV @R0,A      ;接收數據轉儲
      INC R0
      ADD A,R6       ;求校驗和
      MOV R6,A
      DJNZ R7,LOOP2  ;判斷數據塊是否接收完畢

      JNB RI,$       ;完畢，接收1號機發來的校驗和
      CLR RI
      MOV A,SBUF
      XRL A,R6       ;比較校驗和
      JZ END1        ;校驗和相等，跳至發正確標志
      MOV SBUF,#0FFH ;校驗和不相等，發錯誤標志
      JNB TI,$       ;轉重新接收
      CLR TI
      SJMP LOOP2
END1: MOV SBUF,#00H
JS1:  MOV R0,#30H     ;顯示接到的數據
JS3:  MOV A,@R0
      MOV P0,A
      ACALL DELAY
      INC R0
      MOV A,R0
      CJNE A,#40H,JS2
      AJMP JS1
JS2:  AJMP JS3

DELAY: MOV  R4,#04H
   D1: MOV  R7,#0FFH
   D2: MOV  R6,#0FFH
       DJNZ R6,$
       DJNZ R7,D2
       DJNZ R4,D1
       RET
       END