Main	acall	Init		; initialise
run	jnb	RI,	$	; Wait for  RI flag
	mov	A,	SBUF	; Read character
	mov	P1,	A	; move acc to P1
	clr	RI
	sjmp	run
	.end


Init    mov	SCON,	#10011100b	;
	mov	TH1,	#254
	ret			; return