ORG	00H
	LJMP	MAIN
MAIN:	MOV	TMOD,#20H
	MOV	TH1,#0FAH
	MOV	SCON,#50H
	SETB	TR1
	MOV	DPTR,#TEXT
AGAIN:	CLR	A
	MOVC	A,@A+DPTR
        JZ      STOP     < --- check for zero at end of text
	MOV	P1,A
	ACALL	SEND
	INC	DPTR
	SJMP	AGAIN
STOP:   SJMP    $        < --- endless loop here, stop program
SEND:	MOV	SBUF,A
BACK:	JNB	TI,BACK
	CLR	TI
	RET
RECVE:	JNB	RI,RECVE
	MOV	A,SBUF
	CLR	RI
	RET
TEXT: DB "I AM READY",0     < -- added zero
END