ORG 0000H
     LJMP SENDA
     ORG 4000H
SENDA:MOV TMOD,#20H
      MOV  TH1,#0E8H
      MOV  TL1,#0E8H
      MOV  PCON,#00H
      SETB  TR1
T1A:  MOV SBUF,#0AAH
S1A:  JBC  TI,R1A
      SJMP  S1A
R1A:  JBC  RI,R2A
      SJMP  R1A
R2A:  MOV A, SBUF
      XRL  A,#55H
      JNZ T1A
T2A:  MOV SBUF ,#16
      JNB TI,$
      CLR TI
      MOV R0 ,#40H
     MOV R7,#10
     MOV R6,#00H
T3A: MOV SBUF,@R0
     MOV A,R6
     ADD A,@R0
     MOV R6,A
     INC R0 
S2A: JBC TI,T4A
     SJMP S2A
T4A: DJNZ R7,T3A
     MOV SBUF ,R6
S4A:JBC TI,R3A
     SJMP S4A
R3A: JBC TI, R4A
     SJMP R3A
R4A: MOV A,SBUF 
     JNZ T2A
     RET
    END