trs.sdi

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

,,,        ORG 0000H
0000,02 00 30,,        LJMP TRS
,,,        ORG 0030H
0030,7F 10,TRS,TRS:    MOV R7,#10H
0032,78 40,,        MOV R0,#40H
0034,74 00,,        MOV A,#0
0036,F6,TRS1,TRS1:   MOV @R0,A
0037,04,,        INC A
0038,08,,        INC R0
0039,DF FB,,        DJNZ R7,TRS1
003B,75 98 90,,        MOV SCON, #90H         ;设置串行口工作方式2
003E,75 87 80,,        MOV PCON, #80H         ;波特率为FOSC/32
0041,78 40,,        MOV R0, #40H           ;设置片内数据指针
0043,7A 10,,        MOV R2, #10H           ;数据长度送R2
0045,E6,LOOP,LOOP:   MOV A, @R0             ;取数据送A
0046,A2 D0,,        MOV C, P               ;奇偶位送TB8
0048,92 9B,,        MOV TB8, C
004A,F5 99,,        MOV SBUF, A            ;启动发送
004C,F5 90,,        MOV P1,A
004E,12 00 65,,        LCALL DELAY
0051,10 99 02,WAIT,WAIT:   JBC TI, CONT           ;判发送完标志
0054,80 FB,,        SJMP WAIT
0056,10 98 02,CONT,CONT:   JBC RI,RE              ;准备接收回送标志
0059,80 FB,,        SJMP CONT
005B,E5 99,RE,RE:     MOV A,SBUF             ;接收回送标志
005D,B4 00 03,,        CJNE A,#00H,L          ;回送标志错误，结束
0060,08,,        INC R0                 ;回送标志正确，继续
0061,DA E2,,        DJNZ R2, LOOP          ;发送16个数据
0063,80 FE,L,L:      SJMP L
,,,
0065,7F 03,DELAY,DELAY:  MOV R7,#3
0067,7E FF,DD1,DD1:    MOV R6,#0FFH
0069,7D FF,DD2,DD2:    MOV R5,#0FFH
006B,DD FE,,        DJNZ R5,$
006D,DE FA,,        DJNZ R6,DD2
006F,DF F6,,        DJNZ R7,DD1
0071,22,,        RET
000E,,,END