📄 一路定时.lst
字号:
A51 MACRO ASSEMBLER 一路定时 12/16/2004 21:55:01 PAGE 1
MACRO ASSEMBLER A51 V1.11
OBJECT MODULE PLACED IN 一路定时.OBJ
ASSEMBLER INVOKED BY: E:\MEDWIN\A51.EXE 一路定时.ASM DB
LOC OBJ LINE SOURCE
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
3 ;; 中断入口程序 ;;
4
5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0000 6 ORG 0000H
0000 02002C 7 LJMP START
0003 8 ORG 0003H
0003 32 9 RETI
000B 10 ORG 000BH
000B 020065 11 LJMP INTT0
0013 12 ORG 0013H
0013 32 13 RETI
001B 14 ORG 001BH
001B 32 15 RETI
0023 16 ORG 0023H
0023 32 17 RETI
002B 18 ORG 002BH
002B 32 19 RETI
20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
21
22 ;; 主 程 序 ;;
23
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
002C 7830 25 START:MOV R0, #30H
002E 7F3C 26 MOV R7, #3CH
0030 752000 27 MOV 20H, #00H
0033 7600 28 CLEARDISP: MOV @R0, #00H
0035 08 29 INC R0
0036 DFFB 30 DJNZ R7,CLEARDISP
0038 C294 31 CLR P1.4
003A C295 32 CLR P1.5
003C C296 33 CLR P1.6
003E C297 34 CLR P1.7
0040 753A0A 35 MOV 3AH,#0AH
0043 758911 36 MOV TMOD,#11H
0046 758AB0 37 MOV TL0, #0B0H
0049 758CFE 38 MOV TH0, #0FEH
004C 758BB0 39 MOV TL1, #0B0H
004F 758D3C 40 MOV TH1, #3CH
0052 D2AF 41 SETB EA
0054 D2A9 42 SETB ET0
0056 D28C 43 SETB TR0
0058 7C14 44 MOV R4,#14H
005A 1204B3 45 START1: LCALL DISPLAY
005D 309002 46 JNB P1.0,SETMM1
0060 80F8 47 SJMP START1
0062 020104 48 SETMM1: LJMP SETMM
49 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
50
51 ;; 1秒定时 程 序 ;;
52
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0065 C0E0 54 INTT0: PUSH ACC
0067 C0D0 55 PUSH PSW
0069 C000 56 PUSH 00H
006B C2A9 57 CLR ET0
006D C28C 58 CLR TR0
A51 MACRO ASSEMBLER 一路定时 12/16/2004 21:55:01 PAGE 2
006F 74B7 59 MOV A,#0B7H ;中断同步修正
0071 258A 60 ADD A,TL0
0073 F58A 61 MOV TL0,A
0075 743C 62 MOV A,#3CH
0077 258C 63 ADD A,TH0
0079 F58C 64 MOV TH0,A
007B D28C 65 SETB TR0
007D DC2C 66 DJNZ R4, OUTT0
007F 7C14 67 ADDSS: MOV R4,#14H
0081 7831 68 MOV R0,#31H
0083 11ED 69 ACALL ADD1
0085 EB 70 MOV A,R3
0086 C3 71 CLR C
0087 B46000 72 CJNE A,#60H,ADDMM
008A 401F 73 ADDMM: JC OUTT0
008C 11FF 74 ACALL CLR0
008E 7837 75 MOV R0,#37H
0090 11ED 76 ACALL ADD1
0092 1200C0 77 LCALL CKLU1
0095 EB 78 MOV A,R3
0096 C3 79 CLR C
0097 B46000 80 CJNE A,#60H,ADDHH
009A 400F 81 ADDHH: JC OUTT0
009C 11FF 82 ACALL CLR0
009E 7839 83 MOV R0,#39H
00A0 11ED 84 ACALL ADD1
00A2 EB 85 MOV A,R3
00A3 C3 86 CLR C
00A4 B42400 87 CJNE A,#24H,HOUR
00A7 4002 88 HOUR: JC OUTT0
00A9 11FF 89 ACALL CLR0
00AB 853632 90 OUTT0: MOV 32H,36H
00AE 853733 91 MOV 33H,37H
00B1 853834 92 MOV 34H,38H
00B4 853935 93 MOV 35H,39H
00B7 D000 94 POP 00H
00B9 D0D0 95 POP PSW
00BB D0E0 96 POP ACC
00BD D2A9 97 SETB ET0
00BF 32 98 RETI
99 ;;;;;;;;;;;;比较;;;;;;;;;;;;;;;;;;;;;
00C0 E541 100 CKLU1:MOV A,41H
00C2 B53911 101 CJNE A,39H, CGLU1
00C5 E540 102 MOV A ,40H
00C7 B5380C 103 CJNE A,38H, CGLU1
00CA E53F 104 MOV A,3FH
00CC B53707 105 CJNE A ,37H, CGLU1
00CF E53E 106 MOV A,3EH
00D1 B53602 107 CJNE A ,36H, CGLU1
00D4 D294 108 SETB P1.4
00D6 E55B 109 CGLU1:MOV A,5bH
00D8 B53911 110 CJNE A,39H,QQQ
00DB E55A 111 MOV A ,5aH
00DD B5380C 112 CJNE A,38H,QQQ
00E0 E559 113 MOV A,59H
00E2 B53707 114 CJNE A,37H,QQQ
00E5 E558 115 MOV A,58H
00E7 B53602 116 CJNE A,36H,QQQ
00EA C294 117 CLR P1.4
00EC 22 118 QQQ:RET
119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
120
121 ;; 闪动调时 程 序 ;;
122
123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
124 ;INTT1: PUSH ACC
A51 MACRO ASSEMBLER 一路定时 12/16/2004 21:55:01 PAGE 3
125 ; PUSH PSW
126 ; MOV TL1, #0B0H
127 ;MOV TH1, #3CH
128 ; DJNZ R2,INTT1OUT
129 ;MOV R2,#06H
130 ; CPL 02H
131 ; JB 02H,FLASH1
132 ; MOV 32H,36H
133 ; MOV 33H,37H
134 ; MOV 34H,38H
135 ; MOV 35H,39H
136 ;INTT1OUT: POP PSW
137 ; POP ACC
138 ; RETI
139 ;FLASH1: ; JB 01H,FLASH2
140 ; MOV 32H,3AH
141 ;; MOV 33H,3AH
142 ; MOV 34H,38H
143 ; MOV 35H,39H
144 ; AJMP INTT1OUT
145 ;FLASH2: MOV 32H,36H
146 ; MOV 33H,37H
147 ; MOV 34H,3AH
148 ; MOV 35H,3AH
149 ; AJMP INTT1OUT
150 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
151
152 ;; 加1程序 ;;
153
154 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
00ED E6 155 ADD1: MOV A,@R0
00EE 18 156 DEC R0
00EF C4 157 SWAP A
00F0 46 158 ORL A,@R0
00F1 2401 159 ADD A,#01H
00F3 D4 160 DA A
00F4 FB 161 MOV R3,A
00F5 540F 162 ANL A,#0FH
00F7 F6 163 MOV @R0,A
00F8 EB 164 MOV A,R3
00F9 08 165 INC R0
00FA C4 166 SWAP A
00FB 540F 167 ANL A,#0FH
00FD F6 168 MOV @R0,A
00FE 22 169 RET
170
171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
172
173 ;; 清零程序 ;;
174
175 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
00FF E4 176 CLR0: CLR A
0100 F6 177 MOV @R0,A
0101 18 178 DEC R0
0102 F6 179 MOV @R0,A
0103 22 180 RET
181 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
182
183 ;; 调整程序 ;;
184
185 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0104 1204F7 186 SETMM:LCALL DS100MS
0107 1204B3 187 LCALL DISPLAY
010A 7A06 188 MOV R2,#06H
010C 120507 189 LCALL DS200MS
010F 2090F2 190 SETT1:JB P1.0,SETMM ;如果P1.0按下,转入时钟调整
A51 MACRO ASSEMBLER 一路定时 12/16/2004 21:55:01 PAGE 4
0112 120507 191 LCALL DS200MS
0115 020149 192 LJMP SFSET
0118 2090F4 193 SETT2:JB P1.0,SETT1;再按P1.0,转入定时关调整
011B 120507 194 LCALL DS200MS
011E 020267 195 LJMP SETKAI
0121 2090F4 196 SETT3:JB P1.0,SETT2
0124 120507 197 LCALL DS200MS
0127 020387 198 LJMP SETGUAN
012A 2090F4 199 SETT4:JB P1.0,SETT3 ;再按P1.0,退出调整
012D 120507 200 LCALL DS200MS
0130 D28C 201 HUI0:SETB TR0
0132 D2A9 202 SETB ET0
0134 C28E 203 CLR TR1
0136 C28E 204 CLR TR1
0138 75350A 205 MOV 35H,#0AH
013B 75340A 206 MOV 34H,#0AH
013E 75330A 207 MOV 33H,#0AH
0141 75320A 208 MOV 32H,#0AH
0144 120507 209 LCALL DS200MS
0147 015A 210 AJMP START1
211 ;;;;;;;;;;时钟调整;;;;;;;;;;;;;;;;;;;
0149 C2A9 212 SFSET: CLR ET0 ;定时器0中断
014B C28C 213 CLR TR0
014D 75350E 214 MOV 35H,#0EH
0150 75340B 215 MOV 34H,#0BH
0153 75330F 216 MOV 33H,#0FH
0156 75320A 217 MOV 32H,#0AH
0159 75310A 218 MOV 31H,#0AH
015C 75300A 219 MOV 30H,#0AH
015F 1204B3 220 LCALL DISPLAY
0162 120515 221 LCALL DL05S
0165 3090B0 222 JNB P1.0,SETT2
0168 1204B3 223 LCALL DISPLAY
016B 2091DB 224 JB P1.1,SFSET;P1.1切换调时还时调分
016E 1204B3 225 A1:LCALL DISPLAY
0171 120507 226 LCALL DS200MS
0174 020186 227 LJMP SETSZS1
0177 1204B3 228 B1:LCALL DISPLAY
017A 120507 229 LCALL DS200MS
017D 0201F7 230 LJMP SETSZS2
0180 3091EB 231 F1:JNB P1.1,A1;再按P1.1,又从头切换
0183 3090AA 232 JNB P1.0,HUI0;如果,此时按P1.0就退出调整
233 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
234 ;; 时调整 ;;;;;;;;;
235 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -