时钟.lst
来自「刚学时编的小程序」· LST 代码 · 共 780 行 · 第 1/3 页
LST
780 行
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 1
MACRO ASSEMBLER A51 V8.00
OBJECT MODULE PLACED IN 时钟.OBJ
ASSEMBLER INVOKED BY: d:\Keil 8\C51\BIN\A51.EXE 时钟.asm SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
0030 1 SECOND EQU 30H
0031 2 MINITE EQU 31H
0032 3 HOUR EQU 32H
0033 4 COUNT EQU 33H
0034 5 COUNT1 EQU 34H
0035 6 COUNT2 EQU 35H
0036 7 COUNT3 EQU 36H
0037 8 COUNT4 EQU 37H
0038 9 UUU EQU 38H
0039 10 UUU2 EQU 39H
003A 11 UUU3 EQU 3AH
003B 12 UUU4 EQU 3BH
0040 13 SHIJIAN EQU 40H
0048 14 JIAGE EQU 48H
0050 15 ZJ EQU 50H
0070 16 LC EQU 70H
0011 17 WEI1 BIT 22H.1
0012 18 WEI2 BIT 22H.2
0013 19 WEI3 BIT 22H.3
0014 20 WEI4 BIT 22H.4
0015 21 WEI5 BIT 22H.5
0016 22 WEI6 BIT 22H.6
0017 23 WEI7 BIT 22H.7
0018 24 WEI8 BIT 23H.0
0019 25 WEI9 BIT 23H.1
001A 26 WEI10 BIT 23H.2
0000 27 ORG 0000H
0000 020030 28 LJMP MAIN
000B 29 ORG 000BH
000B 020173 30 LJMP T0X
0013 31 ORG 0013H
0013 020401 32 LJMP INT_1
0030 33 ORG 0030H
34
0030 758160 35 MAIN: MOV SP,#60H
0033 753000 36 MOV SECOND,#00
0036 753100 37 MOV MINITE,#00
0039 753200 38 MOV HOUR,#00
003C 753300 39 MOV COUNT,#00
003F 753400 40 MOV COUNT1,#00
0042 753600 41 MOV COUNT3,#00
0045 7B09 42 MOV R3,#9
0047 D211 43 SETB WEI1
0049 C212 44 CLR WEI2
004B C213 45 CLR WEI3
004D C215 46 CLR WEI5
004F C216 47 CLR WEI6
0051 C3 48 CLR C
0052 120097 49 LCALL DISP
0055 758901 50 MOV TMOD,#01H
0058 758CEC 51 MOV TH0,#(65535-5000) / 256
005B 758A77 52 MOV TL0,#(65535-5000) MOD 256
005E D2AF 53 SETB EA
0060 D2A9 54 SETB ET0
0062 D28C 55 SETB TR0
0064 1203A1 56 LCALL CSLC
0067 1202AA 57 LCALL CSHJ
006A 1203D1 58 LCALL CSZJ
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 2
006D 209006 59 KEY: JB P1.0,JIAN2
0070 3090FD 60 JNB P1.0,$
0073 12022F 61 LCALL TIAOSHI
0076 209106 62 JIAN2: JB P1.1,JIAN3
0079 3091FD 63 JNB P1.1,$
007C 120348 64 LCALL JIJIA
007F 209206 65 JIAN3: JB P1.2,JIAN4
0082 3092FD 66 JNB P1.2,$
0085 1202D2 67 LCALL GAIJIA
0088 209306 68 JIAN4: JB P1.3,BAITIAN
008B 1200D1 69 LCALL WSJ
008E 02006D 70 LJMP KEY
0091 1200CA 71 BAITIAN:LCALL BTJ
0094 02006D 72 LJMP KEY
73
0097 7440 74 DISP: MOV A,#SHIJIAN
0099 2408 75 ADD A,#8
009B 14 76 DEC A
009C F8 77 MOV R0,A
009D E532 78 MOV A,HOUR
009F 75F00A 79 MOV B,#10
00A2 84 80 DIV AB
00A3 F6 81 MOV @R0,A
00A4 18 82 DEC R0
00A5 E5F0 83 MOV A,B
00A7 F6 84 MOV @R0,A
00A8 18 85 DEC R0
00A9 7415 86 MOV A,#21
00AB F6 87 MOV @R0,A
00AC 18 88 DEC R0
00AD E531 89 MOV A,MINITE
00AF 75F00A 90 MOV B,#10
00B2 84 91 DIV AB
00B3 F6 92 MOV @R0,A
00B4 18 93 DEC R0
00B5 E5F0 94 MOV A,B
00B7 F6 95 MOV @R0,A
00B8 18 96 DEC R0
00B9 7415 97 MOV A,#21
00BB F6 98 MOV @R0,A
00BC 18 99 DEC R0
00BD E530 100 MOV A,SECOND
00BF 75F00A 101 MOV B,#10
00C2 84 102 DIV AB
00C3 F6 103 MOV @R0,A
00C4 18 104 DEC R0
00C5 E5F0 105 MOV A,B
00C7 F6 106 MOV @R0,A
00C8 18 107 DEC R0
00C9 22 108 RET
109
00CA 854850 110 BTJ: MOV 50H,48H
00CD 854951 111 MOV 51H,49H
00D0 22 112 RET
113
00D1 854E50 114 WSJ: MOV 50H,4EH
00D4 854F51 115 MOV 51H,4FH
00D7 22 116 RET
117
00D8 854B50 118 ZTJ: MOV 50H,4BH
00DB 854C51 119 MOV 51H,4CH
00DE 22 120 RET
121
00DF E570 122 DISP2: MOV A,70H
00E1 04 123 INC A
00E2 B40A79 124 CJNE A,#10,DI0
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 3
00E5 757000 125 MOV 70H,#00
00E8 208B58 126 JB IE1,D
00EB 053B 127 INC UUU4
00ED E53B 128 MOV A,UUU4
00EF B40445 129 CJNE A,#4,DD
00F2 753B00 130 MOV UUU4,#0
00F5 1200D8 131 LCALL ZTJ
00F8 E555 132 MOV A,55H
00FA 2550 133 ADD A,50H
00FC 75F00A 134 MOV B,#10
00FF 84 135 DIV AB
0100 85F055 136 MOV 55H,B
0103 6002 137 JZ ZTJ3
0105 D217 138 SETB WEI7
0107 E556 139 ZTJ3: MOV A,56H
0109 3551 140 ADDC A,51H
010B 301703 141 JNB WEI7,ZTJ2
010E 04 142 INC A
010F C217 143 CLR WEI7
0111 75F00A 144 ZTJ2: MOV B,#10
0114 84 145 DIV AB
0115 B40209 146 CJNE A,#2,ZTJ0
0118 E5F0 147 MOV A,B
011A 240A 148 ADD A,#10
011C F556 149 MOV 56H,A
011E 020143 150 LJMP D
0121 B4031F 151 ZTJ0: CJNE A,#3,D
0124 E5F0 152 MOV A,B
0126 240A 153 ADD A,#10
0128 F556 154 MOV 56H,A
012A 0557 155 ZTJ1: INC 57H
012C E557 156 MOV A,57H
012E B40A12 157 CJNE A,#10,D
0131 755700 158 MOV 57H,#0
0134 020143 159 LJMP D
0137 209306 160 DD: JB P1.3,DDD
013A 1200D1 161 LCALL WSJ
013D 020143 162 LJMP D
0140 1200CA 163 DDD: LCALL BTJ
0143 E571 164 D: MOV A,71H
0145 04 165 INC A
0146 B4061A 166 CJNE A,#6,DI1
0149 757100 167 MOV 71H,#00
014C E572 168 MOV A,72H
014E 04 169 INC A
014F B41416 170 CJNE A,#20,DI2
0152 75720A 171 MOV 72H,#10
0155 E573 172 MOV A,73H
0157 04 173 INC A
0158 B40612 174 CJNE A,#6,DI3
015B 757300 175 MOV 73H,#00
015E F570 176 DI0: MOV 70H,A
0160 020172 177 LJMP EXIT4
0163 F571 178 DI1: MOV 71H,A
0165 020172 179 LJMP EXIT4
0168 F572 180 DI2: MOV 72H,A
016A 020172 181 LJMP EXIT4
016D F573 182 DI3: MOV 73H,A
016F 020172 183 LJMP EXIT4
0172 22 184 EXIT4: RET
185
0173 C0D0 186 T0X: PUSH PSW
0175 C0E0 187 PUSH ACC
0177 758CEC 188 MOV TH0,#(65535-5000) / 256
017A 758A77 189 MOV TL0,#(65535-5000) MOD 256
017D 0534 190 INC COUNT1
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 4
017F E534 191 MOV A,COUNT1
0181 B40803 192 CJNE A,#8,NEXT
0184 753400 193 MOV COUNT1,#00
194
0187 E534 195 NEXT: MOV A,COUNT1
0189 9004BB 196 MOV DPTR,#TAB
018C 93 197 MOVC A,@A+DPTR
018D F5A0 198 MOV P2,A
018F E534 199 MOV A,COUNT1
0191 201551 200 JB WEI5,XLCZJ
0194 20133F 201 JB WEI3,XLC
0197 8B38 202 MOV UUU,R3
0199 B53803 203 CJNE A,UUU,NEXT0
019C 0201A7 204 LJMP SHANG
019F 201213 205 NEXT0: JB WEI2,NEXT1
01A2 1538 206 DEC UUU
01A4 B5380E 207 CJNE A,UUU,NEXT1
01A7 E533 208 SHANG: MOV A,COUNT
01A9 75F064 209 MOV B,#100
01AC 84 210 DIV AB
01AD 6006 211 JZ NEXT1
01AF 758000 212 MOV P0,#00H
01B2 0201F4 213 LJMP NEXT2
01B5 20120F 214 NEXT1: JB WEI2, XIANJIA
01B8 7440 215 MOV A,#SHIJIAN
01BA 2534 216 ADD A,COUNT1
01BC F8 217 MOV R0,A
01BD E6 218 MOV A,@R0
01BE 9004A5 219 MOV DPTR,#TABLE
01C1 93 220 MOVC A,@A+DPTR
01C2 F580 221 MOV P0,A
01C4 0201F4 222 LJMP NEXT2
01C7 7448 223 XIANJIA:MOV A,#JIAGE
01C9 2534 224 ADD A,COUNT1
01CB F9 225 MOV R1,A
01CC E7 226 MOV A,@R1
01CD 9004A5 227 MOV DPTR,#TABLE
01D0 93 228 MOVC A,@A+DPTR
01D1 F580 229 MOV P0,A
01D3 0201F4 230 LJMP NEXT2
231
01D6 7470 232 XLC: MOV A,#LC
01D8 2534 233 ADD A,COUNT1
01DA F9 234 MOV R1,A
01DB E7 235 MOV A,@R1
01DC 9004A5 236 MOV DPTR,#TABLE
01DF 93 237 MOVC A,@A+DPTR
01E0 F580 238 MOV P0,A
01E2 0201F4 239 LJMP NEXT2
01E5 7450 240 XLCZJ: MOV A,#ZJ
01E7 2534 241 ADD A,COUNT1
01E9 F9 242 MOV R1,A
01EA E7 243 MOV A,@R1
01EB 9004A5 244 MOV DPTR,#TABLE
01EE 93 245 MOVC A,@A+DPTR
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?