trs.asm

《单片机原理实用教程——基于Proteus虚拟仿真》一书的配套光盘

	ORG 0000H
	LJMP TRS
	ORG 0030H
TRS: 	MOV R7,#10H
	MOV R0,#40H
	MOV A,#0
TRS1:	MOV @R0,A
	INC A
	INC R0
	DJNZ R7,TRS1
	MOV SCON, #90H         ;设置串行口工作方式2
     	MOV PCON, #80H         ;波特率为FOSC/32
     	MOV R0, #40H           ;设置片内数据指针
     	MOV R2, #10H           ;数据长度送R2
LOOP:	MOV A, @R0             ;取数据送A
     	MOV C, P               ;奇偶位送TB8
     	MOV TB8, C
     	MOV SBUF, A            ;启动发送
	MOV P1,A
	LCALL DELAY
WAIT:	JBC TI, CONT           ;判发送完标志
     	SJMP WAIT
CONT:	JBC RI,RE              ;准备接收回送标志
	SJMP CONT
RE:  	MOV A,SBUF             ;接收回送标志
	CJNE A,#00H,L          ;回送标志错误，结束
	INC R0	               ;回送标志正确，继续
     	DJNZ R2, LOOP          ;发送16个数据
L:	SJMP L

DELAY:  MOV R7,#3
DD1:	MOV R6,#0FFH
DD2:	MOV R5,#0FFH
	DJNZ R5,$
	DJNZ R6,DD2
	DJNZ R7,DD1
	RET
END