📄 csb.lst
字号:
A51 MACRO ASSEMBLER CSB 08/05/2008 21:41:42 PAGE 1
MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN csb.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE csb.asm SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
1 ;********WAVE-E6000/T*******************************
2 ;*MCU: AT89C51 *
3 ;*MCU-crystal: 12M *
4 ;*Version: 00 *
5 ;*Last Updata: *
6 ;*Author: www.picavr.com *
7 ;*Description: 超声波测距
8 ;晶振采用6M，P1口为事牍芏问涑隹冢琍3.0~P3.2为 *
9 ;事牍芪皇涑隹冢琍3.5超声波;发送输出，P3.7超声波收 *
10 ;***************************************************
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;; 中断入口程序 ;;
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0000 14 ORG 0000H
0000 02002B 15 ljmp start
002B 16 ORG 002BH
17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18 ;; 主 程 序 ;;
19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
002B 7870 20 START: MOV R0,#70H
002D 7F0B 21 MOV R7,#0BH
002F 752000 22 MOV 20H,#00H
0032 7600 23 CLEARDISP: MOV @R0,#00H
0034 08 24 INC R0
0035 DFFB 25 DJNZ R7,CLEARDISP
0037 758999 26 MOV TMOD,#99H
003A 758A00 27 cjzcx:MOV TL0,#00H
003D 758C00 28 MOV TH0,#00H
0040 780B 29 MOV R0,#0bH
0042 790B 30 mov r1,#0bh
0044 751603 31 mov 16h,#03H
0047 751554 32 mov 15h,#54H
004A 751790 33 mov 17h,#90h
004D 751432 34 puzel:mov 14h,#32h ;超声波发射持续200ms
0050 B290 35 here:cpl p1.0 ;输出40kHz方波
0052 00 36 nop
0053 00 37 nop
0054 00 38 nop
0055 D514F8 39 djnz 14h,here
0058 D28C 40 setb tr0
005A D2A6 41 setb p2.6
005C D515FD 42 mq:djnz 15h,$
005F D516FA 43 djnz 16h,mq
0062 30B204 44 QBA:JNB P3.2,QBC
0065 D9FB 45 DJNZ R1,QBA
0067 D8F9 46 DJNZ R0,QBA
0069 D517FD 47 QBC:djnz 17h,QBC
006C C2A6 48 clr p2.6
006E C28C 49 clr tr0
0070 858A70 50 mov 70h,tl0
0073 858C71 51 mov 71h,th0
0076 AA71 52 mov r2,71h
0078 AB70 53 mov r3,70h
007A 7E22 54 mov r6,#22H
007C 7F00 55 mov r7,#0H
007E 1200E4 56 LCALL MULD
0081 7E64 57 mov r6,#64H
0083 7F00 58 mov r7,#0H
A51 MACRO ASSEMBLER CSB 08/05/2008 21:41:42 PAGE 2
0085 12010C 59 LCALL DIVD
0088 8A73 60 MOV 73H,R2
008A 8B74 61 MOV 74H,R3
62 ;CLR R3
63 ;CLR R4
64 ;CLR R5
008C AE73 65 MOV R6,73H
008E AF74 66 MOV R7,74H
0090 12013F 67 LCALL HB2
0093 EC 68 MOV A,R4
0094 75F010 69 MOV B,#10H
0097 84 70 DIV AB
0098 F578 71 MOV 78H,A
009A 85F077 72 MOV 77H,B
009D ED 73 MOV A,R5
009E 75F010 74 MOV B,#10H
00A1 84 75 DIV AB
00A2 F576 76 MOV 76H,A
00A4 85F075 77 MOV 75H,B
00A7 E578 78 mov a,78h
00A9 B40015 79 cjne a,#0h,pdcx
00AC E577 80 mov a,77h
00AE B40510 81 cjne a,#5h,pdcx
00B1 E576 82 mov a,76h
00B3 B4000B 83 cjne a,#0h,pdcx
00B6 75780B 84 mov 78h,#0bh
00B9 75770B 85 mov 77h,#0bh
00BC 75760B 86 mov 76h,#0bh
00BF 01D9 87 ajmp xxcx
00C1 E578 88 pdcx:mov a,78h
00C3 B40413 89 cjne a,#4h,xxcx
00C6 E577 90 mov a,77h
00C8 B4000E 91 cjne a,#0h,xxcx
00CB E576 92 mov a,76H
00CD B40009 93 cjne a,#0h,xxcx
00D0 75780A 94 mov 78h,#0ah
00D3 75770A 95 mov 77h,#0ah
00D6 75760A 96 mov 76h,#0ah
00D9 757AFE 97 xxcx:MOV 7AH,#0FEH
00DC 120159 98 XXX:LCALL DISPLAY
00DF D57AFA 99 DJNZ 7AH,XXX
00E2 013A 100 ajmp cjzcx
101
00E4 EB 102 MULD:MOV A,R3
00E5 8FF0 103 MOV B,R7
00E7 A4 104 MUL AB
00E8 ACF0 105 MOV R4,B
00EA FD 106 MOV R5,A
00EB EB 107 MOV A,R3
00EC 8EF0 108 MOV B,R6
00EE A4 109 MUL AB
00EF 2C 110 ADD A,R4
00F0 FC 111 MOV R4,A
00F1 E4 112 CLR A
00F2 35F0 113 ADDC A,B
00F4 FB 114 MOV R3,A
00F5 EA 115 MOV A,R2
00F6 8FF0 116 MOV B,R7
00F8 A4 117 MUL AB
00F9 2C 118 ADD A,R4
00FA FC 119 MOV R4,A
00FB EB 120 MOV A,R3
00FC 35F0 121 ADDC A,B
00FE FB 122 MOV R3,A
00FF E4 123 CLR A
0100 33 124 RLC A
A51 MACRO ASSEMBLER CSB 08/05/2008 21:41:42 PAGE 3
0101 CA 125 XCH A,R2
0102 8EF0 126 MOV B,R6
0104 A4 127 MUL AB
0105 2B 128 ADD A,R3
0106 FB 129 MOV R3,A
0107 EA 130 MOV A,R2
0108 35F0 131 ADDC A,B
010A FA 132 MOV R2,A
010B 22 133 RET
134
010C C3 135 DIVD:CLR C
010D EB 136 MOV A,R3
010E 9F 137 SUBB A,R7
010F EA 138 MOV A,R2
0110 9E 139 SUBB A,R6
0111 4003 140 JC DVD1
0113 D2D2 141 SETB OV
0115 22 142 RET
0116 75F010 143 DVD1:MOV B,#10H
0119 C3 144 DVD2:CLR C
011A ED 145 MOV A,R5
011B 33 146 RLC A
011C FD 147 MOV R5,A
011D EC 148 MOV A,R4
011E 33 149 RLC A
011F FC 150 MOV R4,A
0120 EB 151 MOV A,R3
0121 33 152 RLC A
0122 FB 153 MOV R3,A
0123 CA 154 XCH A,R2
0124 33 155 RLC A
0125 CA 156 XCH A,R2
0126 92D5 157 MOV F0,C
0128 C3 158 CLR C
0129 9F 159 SUBB A,R7
012A F9 160 MOV R1,A
012B EA 161 MOV A,R2
012C 9E 162 SUBB A,R6
012D B0D5 163 ANL C,/F0
012F 4004 164 JC DVD3
0131 FA 165 MOV R2,A
0132 E9 166 MOV A,R1
0133 FB 167 MOV R3,A
0134 0D 168 INC R5
0135 D5F0E1 169 DVD3:DJNZ B,DVD2
0138 EC 170 MOV A,R4
0139 FA 171 MOV R2,A
013A ED 172 MOV A,R5
013B FB 173 MOV R3,A
013C C2D2 174 CLR OV
013E 22 175 RET
176 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
177 ;; BCD转换 ;;
178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
013F E4 179 HB2:CLR A ;BCD码初始化
0140 FB 180 MOV R3,A
0141 FC 181 MOV R4,A
0142 FD 182 MOV R5,A
0143 7A10 183 MOV R2,#10H ;转换双字节十六进制整⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -