Tansmission Part

PCON EQU 87H
;
ORG 00H
AJMP MAIN

MAIN: MOV SCON,#01000000B
MOV TMOD,#00100000B MOV TH1,#244
ANL PCON,#01111111B
SETB TR1 START TIMER 1
CLR TI
LOOP: MOV A,#41H
MOV SBUF,A
JNB TI,$
CLR TI
MOV A,#42H
MOV SBUF,A
JNB TI,$
CLR TI
MOV A,#43H
MOV SBUF,A
JNB TI,$
CLR TI
JMP LOOP
END
-----------------------------
Receiption Part
PCON EQU 87H
RS REG P2.0
RW REG P2.1
EN REG P2.2
;
ORG 00H
AJMP MAIN
ORG 023H
JMP SERIAL_INT

MAIN: ACALL INIT
MOV 20H,#0
MOV SCON,#01010000B
MOV TMOD,#00100000B
MOV TH1,#244
ANL PCON,#01111111B SETB TR1
MOV IE,#90H
CLR RI
LOOP: JMP LOOP
LINE1: DB "TESTING",00H
;
SERIAL_INT:CLR RI
MOV A,SBUF
MOV 20H,#0
MOV 20H,A
ACALL DISPLAY RETI
;
DISPLAY:
MOV A,#11000000B ACALL W_INS
MOV A,20H
ACALL W_DATA
ACALL DELAY2
ACALL DELAY2
RET
;

END

(the subroutines for LCDM are tested to be ok so they are not included here)