MOV	SBUF, A      ; <=== It is better to check before sending instead of waiting
H_1:	JNB	TI, H_1      ; <=== for the transmission to complete. This way you can do other
	CLR	TI           ; <=== things in the meantime.
	RET
	END