xin giúp đở về vi điều khiển!

[electronicskt4]

Mình làm chương trình truyền dữ liệu giữa 2 con 8051 với nhau bằng pinnacle 52 nhưng dài dòng quá có bạn nào biết cách viết ngắn gọi lại giúp mình với, cái này dùng con trỏ dử liệu thi gọn lắm nhưng mình ko biết. thanks!
đây là chương trình của mình:

;chuong trinh truyen

ORG 0
INIT:
MOV SCON,#52H
MOV TMOD,#21H
MOV TH1,#-13

MAIN:

JNB TI,$
CLR TI
MOV A,#78
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#71
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#85
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#89
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#69
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#78
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#255
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#72
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#79
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#65
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#78
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#71
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#255
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#72
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#85
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#89
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#255
MOV SBUF,A
CALL DELAY

JNB TI,$
CLR TI
MOV A,#0
MOV SBUF,A
CALL DELAY




JMP MAIN

DELAY:
MOV R0,#32
LOOP:
MOV TH0,#128
MOV TL0,#128
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP
RET
END

;chuong trinh nhan

ORG 0
INIT:
MOV SCON,#52H
MOV TMOD,#20H
MOV TH1,#-13
SETB TR1
MAIN:
JNB RI,MAIN
CLR RI
MOV A,SBUF
MOV P1,A
JMP MAIN
END