📄 温控器.lst
字号:
A51 MACRO ASSEMBLER 温縚芲 10/27/2007 16:37:00 PAGE 1
MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN 温控器.OBJ
ASSEMBLER INVOKED BY: D:\Program Files\keil\C51\BIN\A51.EXE 温控器.ASM SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
0029 1 TMPL EQU 29H
0028 2 TMPH EQU 28H
0038 3 FLAG1 EQU 38H
00B7 4 DATAIN BIT P3.7
5
0000 6 ORG 00H
0000 020030 7 LJMP MAIN1
0003 8 ORG 03H
0003 0201C0 9 LJMP ZINT0
0013 10 ORG 13H
0013 0201CF 11 LJMP ZINT1
0030 12 ORG 30H
0030 D288 13 MAIN1: SETB IT0
0032 D2AF 14 SETB EA
0034 D2A8 15 SETB EX0
0036 D28A 16 SETB IT1
0038 D2AA 17 SETB EX1
003A D2B6 18 SETB P3.6
003C D2B2 19 SETB P3.2
003E 757400 20 MOV 74H,#0
0041 757500 21 MOV 75H,#0
0044 757609 22 MOV 76H,#9
0047 757700 23 MOV 77H,#0
004A 12007D 24 MAIN: LCALL GET_TEMPER
004D 1200E0 25 LCALL CVTTMP
0050 12014F 26 LCALL DISP1
0053 014A 27 AJMP MAIN
0055 D2B7 28 INIT_1820: SETB DATAIN
0057 00 29 NOP
0058 C2B7 30 CLR DATAIN
005A 7903 31 MOV R1,#3
005C 786B 32 TSR1: MOV R0,#107
005E D8FE 33 DJNZ R0,$
0060 D9FA 34 DJNZ R1,TSR1
0062 D2B7 35 SETB DATAIN
0064 00 36 NOP
0065 00 37 NOP
0066 00 38 NOP
0067 7825 39 MOV R0,#25H
0069 30B706 40 TSR2: JNB DATAIN,TSR3
006C D8FB 41 DJNZ R0,TSR2
006E C238 42 CLR FLAG1
0070 8008 43 SJMP TSR7
0072 D238 44 TSR3: SETB FLAG1
0074 C297 45 CLR P1.7
0076 7875 46 MOV R0,#117
0078 D8FE 47 TSR6: DJNZ R0,$
007A D2B7 48 TSR7: SETB DATAIN
007C 22 49 RET
50
007D D2B7 51 GET_TEMPER: SETB DATAIN
007F 120055 52 LCALL INIT_1820
0082 203802 53 JB FLAG1,TSS2
0085 00 54 NOP
0086 22 55 RET
56
0087 74CC 57 TSS2: MOV A,#0CCH
0089 1200A4 58 LCALL WRITE_1820
A51 MACRO ASSEMBLER 温縚芲 10/27/2007 16:37:00 PAGE 2
008C 7444 59 MOV A,#44H
008E 1200A4 60 LCALL WRITE_1820
0091 314F 61 ACALL DISP1
0093 120055 62 LCALL INIT_1820
0096 74CC 63 MOV A,#0CCH
0098 1200A4 64 LCALL WRITE_1820
009B 74BE 65 MOV A,#0BEH
009D 1200A4 66 LCALL WRITE_1820
00A0 1200BC 67 LCALL READ_1820
00A3 22 68 RET
69
00A4 7A08 70 WRITE_1820: MOV R2,#8
00A6 C3 71 CLR C
00A7 C2B7 72 WR1: CLR DATAIN
00A9 7B06 73 MOV R3,#6
00AB DBFE 74 DJNZ R3,$
00AD 13 75 RRC A
00AE 92B7 76 MOV DATAIN,C
00B0 7B17 77 MOV R3,#23
00B2 DBFE 78 DJNZ R3,$
00B4 D2B7 79 SETB DATAIN
00B6 00 80 NOP
00B7 DAEE 81 DJNZ R2,WR1
00B9 D2B7 82 SETB DATAIN
00BB 22 83 RET
84
00BC 7C02 85 READ_1820: MOV R4,#2
00BE 7929 86 MOV R1,#29H
00C0 7A08 87 RE00: MOV R2,#8
00C2 C3 88 RE01: CLR C
00C3 D2B7 89 SETB DATAIN
00C5 00 90 NOP
00C6 00 91 NOP
00C7 C2B7 92 CLR DATAIN
00C9 00 93 NOP
00CA 00 94 NOP
00CB 00 95 NOP
00CC D2B7 96 SETB DATAIN
00CE 7B09 97 MOV R3,#9
00D0 DBFE 98 RE10: DJNZ R3,RE10
00D2 A2B7 99 MOV C,DATAIN
00D4 7B17 100 MOV R3,#23
00D6 DBFE 101 RE20: DJNZ R3,RE20
00D8 13 102 RRC A
00D9 DAE7 103 DJNZ R2,RE01
00DB F7 104 MOV @R1,A
00DC 19 105 DEC R1
00DD DCE1 106 DJNZ R4,RE00
00DF 22 107 RET
108
00E0 E528 109 CVTTMP: MOV A,TMPH
00E2 5480 110 ANL A,#80H
00E4 6014 111 JZ TMPC1
00E6 C3 112 CLR C
00E7 E529 113 MOV A,TMPL
00E9 F4 114 CPL A
00EA 2401 115 ADD A,#1
00EC F529 116 MOV TMPL,A
00EE E528 117 MOV A,TMPH
00F0 F4 118 CPL A
00F1 3400 119 ADDC A,#0
00F3 F528 120 MOV TMPH,A
00F5 75730B 121 MOV 73H,#0BH
00F8 8003 122 SJMP TMPC11
00FA 75730A 123 TMPC1: MOV 73H,#0AH
00FD E529 124 TMPC11: MOV A,TMPL
A51 MACRO ASSEMBLER 温縚芲 10/27/2007 16:37:00 PAGE 3
00FF 540F 125 ANL A,#0FH
0101 90013F 126 MOV DPTR,#TMPTAB
0104 93 127 MOVC A,@A+DPTR
0105 F570 128 MOV 70H,A
0107 E529 129 MOV A,TMPL
0109 54F0 130 ANL A,#0F0H
010B C4 131 SWAP A
010C F529 132 MOV TMPL,A
010E E528 133 MOV A,TMPH
0110 540F 134 ANL A,#0FH
0112 C4 135 SWAP A
0113 4529 136 ORL A,TMPL
0115 75F064 137 H2BCD: MOV B,#100
0118 84 138 DIV AB
0119 6002 139 JZ B2BCD1
011B F573 140 MOV 73H,A
011D 740A 141 B2BCD1: MOV A,#10
011F C5F0 142 XCH A,B
0121 84 143 DIV AB
0122 F572 144 MOV 72H,A
0124 85F071 145 MOV 71H,B
0127 00 146 TMPC12: NOP
0128 E573 147 DISBCD: MOV A,73H
012A 540F 148 ANL A,#0FH
012C B40102 149 CJNE A,#1,DISBCD0
012F 800D 150 SJMP DISBCD1
0131 E572 151 DISBCD0: MOV A,72H
0133 540F 152 ANL A,#0FH
0135 7007 153 JNZ DISBCD1
0137 E573 154 MOV A,73H
0139 F572 155 MOV 72H,A
013B 75730A 156 MOV 73H,#0AH
013E 22 157 DISBCD1: RET
013F 00010102 158 TMPTAB: DB 0,1,1,2,3,3,4,4,5,6,6,7,8,8,9,9
0143 03030404
0147 05060607
014B 08080909
014F 7970 159 DISP1: MOV R1,#70H
0151 7874 160 MOV R0,#74H
0153 7DFE 161 MOV R5,#0FEH
0155 7590FF 162 PLAY: MOV P1,#0FFH
0158 ED 163 MOV A,R5
0159 F5A0 164 MOV P2,A
015B E7 165 MOV A,@R1
015C 9001AB 166 MOV DPTR,#TAB
015F 93 167 MOVC A,@A+DPTR
0160 F590 168 MOV P1,A
0162 E6 169 MOV A,@R0
0163 93 170 MOVC A,@A+DPTR
0164 F580 171 MOV P0,A
0166 ED 172 MOV A,R5
0167 20E104 173 JB ACC.1,LOOP1
016A C297 174 CLR P1.7
016C C287 175 CLR P0.7
016E 1201B7 176 LOOP1: LCALL DL1MS
0171 09 177 INC R1
0172 08 178 INC R0
0173 ED 179 MOV A,R5
0174 30E32D 180 JNB ACC.3,ENDOUT
0177 23 181 RL A
0178 FD 182 MOV R5,A
0179 E573 183 MOV A,73H
017B B40102 184 CJNE A,#1,DD2
017E 801C 185 SJMP LEDH
0180 E572 186 DD2: MOV A,72H
0182 B40A03 187 CJNE A,#0AH,DD3
A51 MACRO ASSEMBLER 温縚芲 10/27/2007 16:37:00 PAGE 4
0185 757200 188 MOV 72H,#0
0188 E576 189 DD3: MOV A,76H
018A B57202 190 CJNE A,72H,DDH
018D 8004 191 SJMP DDL
018F 500F 192 DDH: JNC PLAY1
0191 8009 193 SJMP LEDH
0193 E575 194 DDL: MOV A,75H
0195 B57102 195 CJNE A,71H,DDL1
0198 8002 196 SJMP LEDH
019A 5004 197 DDL1: JNC PLAY1
019C C2B6 198 LEDH: CLR P3.6
019E 80B5 199 SJMP PLAY
01A0 D2B6 200 PLAY1: SETB P3.6
01A2 80B1 201 SJMP PLAY
202
01A4 7590FF 203 ENDOUT: MOV P1,#0FFH
01A7 75A0FF 204 MOV P2,#0FFH
01AA 22 205 RET
206
01AB C0F9A4B0 207 TAB: DB 0C0H,0F9H,0A4H,0B0H,99H
01AF 99
01B0 9282F880 208 DB 92H,82H,0F8H,80H,90H,0FFH,0BFH
01B4 90FFBF
209
01B7 7E32 210 DL1MS: MOV R6,#50
01B9 7F64 211 DL1: MOV R7,#100
01BB DFFE 212 DJNZ R7,$
01BD DEFA 213 DJNZ R6,DL1
01BF 22 214 RET
01C0 C0E0 215 ZINT0: PUSH ACC
01C2 0575 216 INC 75H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -