SBUF1	 EQU 0C1H		
		SCON1	 EQU 0C0H		
  		TI1	 BIT 0C1H		
		RI1	 BIT 0C0H		
		ORG	 0H			
MAIN:
		MOV	 TMOD,#20H		
		MOV	 TH1,#-6		
		MOV	 SCON1,#50H	
		SETB	 TR1			
AGAIN:	MOV	 A,#'A'		
		ACALL	 SENDCOM2
		SJMP	 AGAIN
SENDCOM2:
		MOV	 SBUF1,A		
HERE:		JNB	 TI1,HERE		
     	CLR	 TI1
     	RET
		END