Hi John

As Michael said, try this way

START EQU 8100H

ORG START

INIT: MOV SCON, #52H
MOV TMOD, #20H
MOV TH1, #0FDH ; set baud rate 9600
SETB TR1

MAIN:

LCALL INCHAR
ANL A, #05FH
LCALL OUTCHAR
JMP MAIN


INCHAR:
JNB RI,$
CLR RI
MOV A, SBUF
RET

OUTCHAR:
CLR TI
MOV SBUF,A
AGAIN: JNB TI, AGAIN
RET

END



Good Luck
Daniel