ORG	0000H
	CLR	P1.4
	CLR	P1.5

	MOV	SCON, #01010000B
	MOV	TMOD, #21h
	
	MOV	TH1, #high(232)
	SETB	TR1

WAIT:	CLR	TI
	JNB	P1.5, $ ;this thing is just so that I send one 'A' at a time
	JNB	P1.4, $
	MOV	SBUF, #'A'
	JNB	TI, $
	CLR	P1.5
	CLR	P1.4
	JMP	WAIT

	END