Dear bmcculla here is the code and thx for your support
Mov A, # 40 H ; Transfer “@”
Lcall Trans
Mov A, #40 H ; Transfer “@”
Lcall Trans
Mov A, # 45H ; Transfer “E”
Lcall Trans
Mov A, #71H ; Transfer “q”
Lcall Trans
Mov A, # 00H ; Transfer “r” output rate
Lcall Trans
Mov A, # 34 H ; Transfer checksum
Lcall Trans
Mov A, # 0D H ; Transfer < SR >
Lcall Trans
Mov A, # 0A H ; Transfer < LF>
Lcall Trans
Mov R2, #96 ; Load counter
Mov R0, # 30 H ; Load pointer R0 =30 RAM address
Nina: JNB RI, Nina ; Wait for char. to come in
Mov A, SBUF ; Save incoming byte in A
Mov @R0, A ; Copy A to RAM location R0 points to
INC R0 ; Increment R0 pointer
CLR RI ; Get ready to receive next byte
DJNZ R2, Nina ; decrement and jump to Nina if it is not Zero
Mov A, #38 H ; Init LCD 2 lines, 5*7 Matrix
LCALL Command ; Issue command
LCALL Sarah ;
Mov A, # 'D' ; Display letter D
LCALL Romeo
Mov A, # ' a'
LCALL Romeo
Mov A, #'t'
LCALL Romeo
Mov A, #' e'
LCALL Romeo
LCALL Is
Mov R2, #09 ; Load counter
Mov R0, #35 H ; Load pointer R0= 35H RAM address
LCALL Juliet
LCALL Sarah
Mov A, #'T' ; Display letter T
LCALL Romeo
Mov A, #'i'
LCALL Romeo
Mov A, #'m'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
LCALL Is
Mov R2, #09 ; Load counter
Mov R0, 3E H ; Load pointer R0 = 3E RAM address
LCALL Juliet
LCALL Sarah
Mov A, #'L' ; Display letter L
LCALL Romeo
Mov A, #'a'
LCALL Romeo
Mov A, #'t'
LCALL Romeo
Mov A, #'i'
LCALL Romeo
Mov A, #'t'
LCALL Romeo
Mov A, #'u'
LCALL Romeo
Mov A, #'d'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
LCALL Is
Mov R2, #13 ; Load counter
Mov R0, #47H ; Load pointer R0= 47 RAM address
LCALL Juliet
LCALL Sarah
Mov A, #'L'
LCALL Romeo
Mov A, #'o'
LCALL Romeo
Mov A, #'n'
LCALL Romeo
Mov A, #'g'
LCALL Romeo
Mov A, #'i'
LCALL Romeo
Mov A, #'t'
LCALL Romeo
Mov A, #'u'
LCALL Romeo
Mov A, #'d'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
LCALL Is
Mov R2,# 14 ;Load counter
Mov R0, #54H ; Load pointer
LCALL Juliet
LCALL Sarah
Mov A, #'H'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
Mov A, #'i'
LCALL Romeo
Mov A, #'g'
LCALL Romeo
Mov A, #'h'
LCALL Romeo
Mov A, #'t'
LCALL Romeo
LCALL Is
Mov R2,# 09 ;Load counter
Mov R0, #62H ; Load pointer
LCALL Juliet
LCALL Sarah
Mov A, #'S'
LCALL Romeo
Mov A, #'p'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
Mov A, #'e'
LCALL Romeo
Mov A, #'d'
LCALL Romeo
LCALL Is
Mov R2,# 05 ;Load counter
Mov R0, #6BH ; Load pointer
LCALL Juliet
LJMP Again;
Sarah: Mov A, #0E H ; LCD on, cursor on
LCALL Command ; issue command
Mov A, #01 H ; Clear LCD command
LCALL Command ; issue command
Mov A, #06 H ; Shift cursor right
LCALL Command ; issue command
Mov A, #80 H ; Force cursor at the beginning of the 1st
;line
LCALL Command ; issue command
RET
Is: Mov A, #' '
LCALL Romeo
Mov A, #'i'
LCALL Romeo
Mov A, #'s'
LCALL Romeo
Mov A, #':'
LCALL Romeo
Mov A, # 40 H ; Force cursor at the beginning of the2nd line
LCALL Command
RET
Juliet: Mov A, @R0 ; Move contents of RAM location @R0 to A
LCALL Romeo
INC R0 ; increment pointer
DJNZ R2, Juliet ;
LCALL LCD_Delay
RET
Command: ACALL Ready
Mov P1, A
CLR P2.5
CLR P2.6
SETB P2.7
CLR P2.7
RET
Romeo: ACALL Ready
Mov P1, A
SETB P2.5
CLR P2.6
SETB P2.7
CLR P2.7
RET
Ready: SETB P1.7
CLR P2.5
SETB P2.6
Back: CLR P2.7
SETB P2.7
JB P1.7, Back
RET
Delay:Mov R4,#230
Here:Nop
Nop
DJNZ R4, Here
RET
DDelay: Mov R5, #02
Delayy: Mov R4, # 230
Hero: Nop
Nop
DJNZ R4, Hero
DJNZ R5, Delayy
RET
LCD_Delay: Mov R4, #07
Pet: Mov R5, #255
Mag: Mov R6, #255
Hera: NOP
NOP
DJNZ R6, Hera
DJNZ R5, Mag
DJNZ R4, Pet
RET
Delai: Mov R4, #114
Herb: NOP
NOP
DJNZ R4, Herb
RET
Thx again