To perform MESSAGE PASSING in 8051 Programming

MOV TMOD,#20H
MOV TH1,#0faH
MOV SCON,#050H
SETB TR1
START: MOV A,#'M'
ACALL F1
MOV A,#'e'
ACALL F1
MOV A,#'s'
ACALL F1
MOV A,#'s'
ACALL F1
MOV A,#'a'
ACALL F1
MOV A,#'g'
ACALL F1
MOV A,#'e' 
ACALL F1
SJMP START

F1: MOV SBUF,A
HERE:JNB TI,HERE
CLR TI
RET