ORG 0H
RESET
       MOV TMOD,#00100000B
       MOV TH1,#34           ;2400 baud
       MOV SCON,#01000000B    ;8,n,1 UART
       MOV A,#0
AGAIN
       MOV SBUF,A
       INC A
       CALL DELAY
       JMP AGAIN
DELAY:
       MOV R7,#10
       DJNZ R7,$
       RET
       END