📄 波形采集.lst
字号:
A51 MACRO ASSEMBLER __衉_杉_ 09/07/2008 22:40:59 PAGE 1
MACRO ASSEMBLER A51 V7.00a
OBJECT MODULE PLACED IN 波形采集.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE 波形采集.asm SET(SMALL) EP
LOC OBJ LINE SOURCE
1 ;*************************************
2 ;STC89C51RC单片机,6M晶振
3 ;P0.7为红外输入
4 ;P0.6为无线电信号输入
5 ;P0.5为外部信号输入
6 ;*************************************
0084 7 CS EQU P0.4
0080 8 A0 EQU P0.0
0082 9 DX EQU P0.2
0081 10 CE EQU P0.1
0083 11 GET EQU P0.3
0000 12 ORG 0000H
0000 020030 13 LJMP AMIT
0030 14 ORG 0030H
0030 7581FB 15 AMIT: MOV SP,#0FBH
0033 7580FF 16 MOV P0,#0FFH
0036 7590FF 17 MOV P1,#0FFH
0039 75A0FF 18 MOV P2,#0FFH
003C 75B0FF 19 MOV P3,#0FFH
003F 7808 20 MOV R0,#08H
0041 7F44 21 MOV R7,#68
0043 7A00 22 MOV R2,#00H
0045 C287 23 CLR P0.7
0047 758901 24 MOV TMOD,#01H
004A 758A00 25 MOV TL0,#00H
004D 758C00 26 MOV TH0,#00H
0050 C28C 27 CLR TR0
28 ;********CH372复位*********
0052 7405 29 FW: MOV A,#05H
0054 F5A0 30 MOV P2,A
0056 C284 31 CLR CS
0058 D280 32 SETB A0 ;写复位命令
005A C282 33 CLR DX
005C 00 34 NOP
005D 00 35 NOP ;50NS就可以
005E D282 36 SETB DX
0060 1201F3 37 LCALL DYL
38 ;********CH372调整模式**********
0063 7415 39 MOV A,#15H ;调整模式（内置模式）
0065 31CD 40 ACALL XML
0067 7402 41 MOV A,#02H
0069 31DA 42 ACALL XSJ
006B 31E7 43 ACALL DSJ
44 ;*******************
006D 2083FD 45 JSCS: JB GET,$
0070 7422 46 MOV A,#22H ;接受中断数据
0072 31CD 47 ACALL XML ;调用CH372写命令
0074 31E7 48 ACALL DSJ ;调用CH372读数据
0076 B40102 49 CJNE A,#01H,G1
0079 21C1 50 AJMP OUT1
007B B4F204 51 G1: CJNE A,#0F2H,G2
007E 31B6 52 ACALL OUT2 ;如果CH372返回0F2则读端口2的命令
0080 019A 53 AJMP CHKOF
0082 B4F502 54 G2: CJNE A,#0F5H,G3
0085 21C2 55 AJMP PEND
0087 B4F602 56 G3: CJNE A,#0F6H,G4
008A 21C3 57 AJMP LEEP
008C B4F904 58 G4: CJNE A,#0F9H,G5
A51 MACRO ASSEMBLER __衉_杉_ 09/07/2008 22:40:59 PAGE 2
008F 31C6 59 ACALL INO
0091 016D 60 AJMP JSCS
0093 B4FAD7 61 G5: CJNE A,#0FAH,JSCS
0096 31C6 62 ACALL INO
0098 016D 63 AJMP JSCS
64 ;*******采集子程序********
009A B4A102 65 CHKOF: CJNE A,#0A1H,F1 ;捕获输入信号。
009D 01CF 66 AJMP TIM
009F B4A202 67 F1: CJNE A,#0A2H,F2 ;如果收到A2则复位主程序。
00A2 0130 68 AJMP AMIT
00A4 B4A302 69 F2: CJNE A,#0A3H,F3 ;红外输入。
00A7 01BB 70 AJMP HWX
00A9 B4A402 71 F3: CJNE A,#0A4H,F4 ;无线电信号输入。
00AC 01C5 72 AJMP WXD
00AE B4A5BC 73 F4: CJNE A,#0A5H,JSCS ;外部信号输入。
00B1 D287 74 SETB P0.7
00B3 D286 75 SETB P0.6
00B5 C285 76 CLR P0.5
00B7 7A02 77 MOV R2,#02H
00B9 016D 78 AJMP JSCS
00BB D285 79 HWX: SETB P0.5
00BD D286 80 SETB P0.6
00BF C287 81 CLR P0.7
00C1 7A00 82 MOV R2,#00H
00C3 016D 83 AJMP JSCS
00C5 D285 84 WXD: SETB P0.5
00C7 D287 85 SETB P0.7
00C9 C286 86 CLR P0.6
00CB 7A01 87 MOV R2,#01H
00CD 016D 88 AML: AJMP JSCS
89 ;***********判断输入端***********
00CF BAF102 90 TIM: CJNE R2,#0F1H,TI1
00D2 2118 91 AJMP WTT
00D4 BAF202 92 TI1: CJNE R2,#0F2H,TI2
00D7 2154 93 AJMP UTT
00D9 BAF0F1 94 TI2: CJNE R2,#0F0H,AML
95 ;***********数据采集1红外输入************
00DC 308337 96 CT: JNB GET,QH_1
00DF 20B7FA 97 JB P3.7,CT
00E2 D28C 98 SETB TR0
00E4 30B7FD 99 THO: JNB P3.7,$
00E7 C28C 100 CLR TR0
00E9 E58C 101 MOV A,TH0
00EB A98A 102 MOV R1,TL0
00ED 758A01 103 MOV TL0,#01H
00F0 758C00 104 MOV TH0,#00H
00F3 D28C 105 SETB TR0
00F5 F6 106 MOV @R0,A
00F6 08 107 INC R0
00F7 E9 108 MOV A,R1
00F8 F6 109 MOV @R0,A
00F9 20B7FD 110 JB P3.7,$
00FC C28C 111 CLR TR0
00FE E58C 112 MOV A,TH0
0100 A98A 113 MOV R1,TL0
0102 758A01 114 MOV TL0,#01H
0105 758C00 115 MOV TH0,#00H
0108 D28C 116 SETB TR0
010A 08 117 INC R0
010B F6 118 MOV @R0,A
010C 08 119 INC R0
010D E9 120 MOV A,R1
010E F6 121 MOV @R0,A
010F 08 122 INC R0
0110 DFD2 123 DJNZ R7,THO
0112 C28C 124 CLR TR0
A51 MACRO ASSEMBLER __衉_杉_ 09/07/2008 22:40:59 PAGE 3
0114 218C 125 AJMP FZCX
0116 016D 126 QH_1: AJMP JSCS
127 ;***********数据采集2无线输入************
0118 308337 128 WTT: JNB GET,QH_2
011B 20B6FA 129 JB P3.6,WTT
011E D28C 130 SETB TR0
0120 30B6FD 131 THA: JNB P3.6,$
0123 C28C 132 CLR TR0
0125 E58C 133 MOV A,TH0
0127 A98A 134 MOV R1,TL0
0129 758A01 135 MOV TL0,#01H
012C 758C00 136 MOV TH0,#00H
012F D28C 137 SETB TR0
0131 F6 138 MOV @R0,A
0132 08 139 INC R0
0133 E9 140 MOV A,R1
0134 F6 141 MOV @R0,A
0135 20B6FD 142 JB P3.6,$
0138 C28C 143 CLR TR0
013A E58C 144 MOV A,TH0
013C A98A 145 MOV R1,TL0
013E 758A01 146 MOV TL0,#01H
0141 758C00 147 MOV TH0,#00H
0144 D28C 148 SETB TR0
0146 08 149 INC R0
0147 F6 150 MOV @R0,A
0148 08 151 INC R0
0149 E9 152 MOV A,R1
014A F6 153 MOV @R0,A
014B 08 154 INC R0
014C DFD2 155 DJNZ R7,THA
014E C28C 156 CLR TR0
0150 218C 157 AJMP FZCX
0152 016D 158 QH_2: AJMP JSCS
159 ;************数据采集3外部输入************
0154 3083FB 160 UTT: JNB GET,QH_2
0157 20B5FA 161 JB P3.5,UTT
015A D28C 162 SETB TR0
015C 30B5FD 163 THB: JNB P3.5,$
015F C28C 164 CLR TR0
0161 E58C 165 MOV A,TH0
0163 A98A 166 MOV R1,TL0
0165 758A01 167 MOV TL0,#01H
0168 758C00 168 MOV TH0,#00H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -