51---51
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:MOV TMOD,#20H
MOV TH1,#0F4H
MOV TL1,#0F4H
MOV SCON,#50H
MOV PCON,#00H
MOV R1,#10H
SETB TR1
CLR TI
RECE:MOV R0,#30H
RE:JBC RI,RE2
SJMP RE
RE2:MOV A,SBUF
MOV @R0,A
;MOV SBUF,A
RE3:JBC TI,RE4
SJMP RE3
RE4:INC R0
DJNZ R1,RE
HERE:SJMP HERE
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:MOV TMOD,#20H
MOV TH1,#0F4H
MOV TL1,#0F4H
MOV SCON,#50H
MOV PCON,#00H
SETB TR1
CLR TI
SEND:MOV R3,#00H
MOV R0,#30H
SE1:MOV A,R3
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV SBUF,A
SE5:JBC TI,SE2
SJMP SE5
SE2:JBC RI,SE3
AJMP SE2
SE3:MOV A,SBUF
MOV @R0,A
INC R0
INC R3
DJNZ R1,SE1
HERE:SJMP HERE
TABLE:DB 10H, 11H,12H,13H,14H,15H,16H,17H
DB 18H,19H,1AH,1BH,1CH,1DH,1EH,1FH
51---PC
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:MOV TMOD,#20H
MOV TH1,#0F4H
MOV TL1,#0F4H
MOV SCON,#50H
MOV PCON,#00H
MOV R1,#10H
SETB TR1
L2:JBC RI,L1
SJMP L2
L1:MOV A,SBUF
JZ RECE
JNZ MAIN
RECE: MOV R0,#20H
MOV SBUF,A
REX:JBC TI,RE1
SJMP REX
RE1:NOP
RE:JBC TI,RE2
SJMP RE
RE2:MOV A,SBUF
MOV @R0,A
;MOV SBUF,A
RE3:JBC TI,RE4
SJMP RE3
RE4:CJNE @R0,#0FFH,RE5
LJMP MAIN
RE5:INC R0
LJMP RE
