;/************************************
;          配電通信程序設計
;*************************************/
;             宏定義區
;/************************************/

SUM                     EQU    20H       ;選擇在片內的寄存器
PMR                     EQU     0C4H
;/***********************************/
;            主程序區
;
;/***********************************/
 ORG 0000H
                                                                                                                  LJMP START
 ORG 0400H

START:
       MOV SP,#60H
       MOV TMOD,#20H
       MOV SCON,#50H
       MOV TH1,#0FDH
       MOV TL1,#0FDH
       SETB TR1
       CLR EA
LAB1:  ORL PMR,#01H




MAIN:
       MOV R3,#0CH
       MOV DPTR,#30H;MOV R1,#30H

WAIT:
       JNB RI,WAIT
       MOV A,SBUF
       CLR RI
       MOVX @DPTR,A;MOV @R1,A
       MOV SUM,A
       INC DPTR;INC R1
       DEC R3
       MOV A,R3
       XRL A,#00H
       JNZ WAIT

       MOV R3,#0AH
       MOV DPTR,#30H;MOV R1,#30H
       MOVX A,@DPTR;MOV A,@R1
       MOV R2,A
Lab:
       INC DPTR;INC R1
       DEC R3
       MOVX A,@DPTR;MOV A,@R1
       ADD A,R2
       MOV R2,A
       MOV A,R3
       XRL A,#00H
       JNZ Lab
       MOV A,SUM
       XRL A,R2
       JNZ MAIN

       MOV R3,#0CH
       MOV DPTR,#30H;MOV R1,#30H
Lab3:  MOVX A,@DPTR;MOV A,@R1
       CLR TI
       INC DPTR;INC R1
       DEC R3
       MOV SBUF,A
Lab2:  JNB TI,Lab2
       MOV A,R3
       XRL A,#00H
       JNZ Lab3

       AJMP MAIN
       END