TXD 	EQU 	P1.0
RXD 	EQU 	P1.1 			;定義89C51 P1.0 為發送端，P1.1 為接收端
ORG 	0000H
AJMP 	MAIN
ORG 	0100H
MAIN: 	MOV 	A, 		#30H
MOV 	R5,		#5
SETB 	RXD 				;P1.0 置高

TX: 	LCALL 	OUTPUT 				;調用發送子程序，將寄存器A 中內容發給PC 機
SETB 	TXD 				;P1.1 置高
MOV 	R0,		#40H

RX: 		LCALL 	OUTPUT 				;調用接收子程序 
MOV 	@R0,	A
INC 		R0
DJNZ 	R5, 		RX 			;N 個數據接收結束，則等待，否則轉RX 繼續接收
AJMP $

;**************延時833μs 子程序*****
DELAY: 	MOV 	R7 ,		#205
MS: 		DJNZ 	R7,		MS
RET

;******** 89C51發送數據給PC 機子程序****
OUTPUT: CLR 		C
MOV 	TXD,		C 			;發送起始位
LCALL 	DELAY 				;延時
MOV 	R3,		#8
OUT: 	RRC 	A
MOV	TXD ,	C
LCALL 	DELAY
DJNZ 	R3,		OUT 		;發送8 位數據
SETB 	C 					;發送停止位
MOV 	TXD,		C
LCALL 	DELAY
RET