📄 s52wnl.lst
字号:
A51 MACRO ASSEMBLER S52WNL 01/14/2008 10:38:57 PAGE 1
MACRO ASSEMBLER A51 V8.00
OBJECT MODULE PLACED IN S52wnl.OBJ
ASSEMBLER INVOKED BY: C:\KEIL\C51\BIN\KE51.EXE S52wnl.ASM SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
007F 1 CONFIG12 EQU 7FH
0021 2 TEMPH EQU 21H
0020 3 TEMPL EQU 20H
0022 4 REG2 EQU 22H
0023 5 REG3 EQU 23H
0024 6 REG4 EQU 24H
0087 7 DAT EQU P0.7
00B2 8 SCLK EQU P3.2
00B3 9 IO EQU P3.3
00B4 10 RST EQU P3.4
0066 11 year DATA 66H
0065 12 month DATA 65H
0064 13 week DATA 64H
0063 14 day DATA 63H
0062 15 hour DATA 62H
0061 16 mintue DATA 61H
0060 17 second DATA 60H
18
0000 19 ORG 0000H
0000 02001E 20 LJMP START
001B 21 ORG 001BH
001B 0203ED 22 LJMP INTT1
23
001E 24 START:
001E 120F30 25 LCALL ZJ
0021 D2AF 26 SETB EA
0023 758910 27 MOV TMOD,#10H
0026 758B00 28 MOV TL1,#00H
0029 758D00 29 MOV TH1,#00H
002C 75328E 30 MOV 32H,#8EH
002F 753100 31 MOV 31H,#00H
0032 120489 32 LCALL WRITE
0035 753290 33 MOV 32H,#90H
0038 7531A6 34 MOV 31H,#0A6H
003B 120489 35 LCALL WRITE
36
003E 37 MAIN1:
003E 75328D 38 MOV 32H,#8DH
0041 1204C1 39 LCALL READ
0044 853166 40 MOV year,31H
41
0047 75328B 42 MOV 32H,#8BH
004A 1204C1 43 LCALL READ
004D 853164 44 MOV week,31H
45
0050 753289 46 MOV 32H,#89H
0053 1204C1 47 LCALL READ
0056 853165 48 MOV month,31H
49
0059 753287 50 MOV 32H,#87H
005C 1204C1 51 LCALL READ
005F 853163 52 MOV day,31H
53
0062 753285 54 MOV 32H,#85H
0065 1204C1 55 LCALL READ
0068 853162 56 MOV hour,31H
57
006B 753283 58 MOV 32H,#83H
A51 MACRO ASSEMBLER S52WNL 01/14/2008 10:38:57 PAGE 2
006E 1204C1 59 LCALL READ
0071 853161 60 MOV mintue,31H
61
0074 753281 62 MOV 32H,#81H
0077 1204C1 63 LCALL READ
007A 853160 64 MOV second,31H
65
007D A866 66 MOV R0,year
007F 12047F 67 LCALL DIVIDE
0082 897B 68 MOV 7BH,R1
0084 894B 69 MOV 4BH,R1
0086 8A7C 70 MOV 7CH,R2
0088 8A4C 71 MOV 4CH,R2
008A 856478 72 MOV 78H,week
008D 856448 73 MOV 48H,week
0090 A865 74 MOV R0,month
0092 12047F 75 LCALL DIVIDE
0095 8979 76 MOV 79H,R1
0097 8949 77 MOV 49H,R1
0099 8A7A 78 MOV 7AH,R2
009B 8A4A 79 MOV 4AH,R2
009D A863 80 MOV R0,day
009F 12047F 81 LCALL DIVIDE
00A2 8976 82 MOV 76H,R1
00A4 8946 83 MOV 46H,R1
00A6 8A77 84 MOV 77H,R2
00A8 8A47 85 MOV 47H,R2
00AA A862 86 MOV R0,hour
00AC 12047F 87 LCALL DIVIDE
00AF 8974 88 MOV 74H,R1
00B1 8944 89 MOV 44H,R1
00B3 8A75 90 MOV 75H,R2
00B5 8A45 91 MOV 45H,R2
00B7 A861 92 MOV R0,mintue
00B9 12047F 93 LCALL DIVIDE
00BC 8972 94 MOV 72H,R1
00BE 8942 95 MOV 42H,R1
00C0 8A73 96 MOV 73H,R2
00C2 8A43 97 MOV 43H,R2
00C4 A860 98 MOV R0,second
00C6 12047F 99 LCALL DIVIDE
00C9 8970 100 MOV 70H,R1
00CB 8940 101 MOV 40H,R1
00CD 8A71 102 MOV 71H,R2
00CF 8A41 103 MOV 41H,R2
00D1 C2AF 104 CLR EA
00D3 1200F4 105 LCALL TOUTOU
00D6 120D11 106 LCALL NS
00D9 D2AF 107 SETB EA
00DB 120E8E 108 LCALL DISPLAY
00DE 120525 109 LCALL GENGXIAN
00E1 308108 110 JNB P0.1,SETG111
00E4 30D508 111 JNB F0,SSS
00E7 D284 112 SETB P0.4
00E9 02003E 113 LJMP MAIN1
00EC 114 SETG111:
00EC 0201BB 115 LJMP SETG
00EF 116 SSS:
00EF C284 117 CLR P0.4
00F1 02003E 118 LJMP MAIN1
119
120
121
00F4 122 TOUTOU:
00F4 12011B 123 LCALL CHUSHI
00F7 12012E 124 LCALL RDTEMP
A51 MACRO ASSEMBLER S52WNL 01/14/2008 10:38:57 PAGE 3
00FA E520 125 MOV A,TEMPL
00FC 54F0 126 ANL A,#11110000B
00FE F520 127 MOV TEMPL,A
0100 E521 128 MOV A,TEMPH
0102 5407 129 ANL A,#00000111B
0104 4520 130 ORL A,TEMPL
0106 C4 131 SWAP A
0107 F525 132 MOV 25H,A
0109 E525 133 MOV A,25H
010B 75F064 134 MOV B,#64H
010E 84 135 DIV AB
010F E5F0 136 MOV A,B
0111 75F00A 137 MOV B,#0AH
0114 84 138 DIV AB
0115 C4 139 SWAP A
0116 45F0 140 ORL A,B
0118 F510 141 MOV 10H,A
011A 22 142 RET
011B 143 CHUSHI:
011B 120156 144 LCALL RESET
011E 74CC 145 MOV A,#0CCH
0120 120180 146 LCALL WRITE111
0123 744E 147 MOV A,#4EH
0125 120180 148 LCALL WRITE111
0128 747F 149 MOV A,#CONFIG12
012A 120180 150 LCALL WRITE111
012D 22 151 RET
012E 152 RDTEMP:
012E 120156 153 LCALL RESET
0131 74CC 154 MOV A,#0CCH
0133 120180 155 LCALL WRITE111
0136 7444 156 MOV A,#44H
0138 120180 157 LCALL WRITE111
013B 120F82 158 LCALL DL1MS
013E 120156 159 LCALL RESET
0141 74CC 160 MOV A,#0CCH
0143 120180 161 LCALL WRITE111
0146 74BE 162 MOV A,#0BEH
0148 120180 163 LCALL WRITE111
014B 12019C 164 LCALL ERAD111
014E F520 165 MOV TEMPL,A
0150 12019C 166 LCALL ERAD111
0153 F521 167 MOV TEMPH,A
0155 22 168 RET
0156 169 RESET:
0156 170 LA:
0156 D287 171 SETB DAT
0158 7552C8 172 MOV 52H,#200
015B 173 LB:
015B C287 174 CLR DAT
015D D552FB 175 DJNZ 52H,LB
0160 D287 176 SETB DAT
0162 75521E 177 MOV 52H,#30
0165 178 LC:
0165 D552FD 179 DJNZ 52H,LC
0168 C3 180 CLR C
0169 7287 181 ORL C,DAT
016B 40EE 182 JC LB
016D 755850 183 MOV 58H,#80
0170 184 LD:
0170 7287 185 ORL C,DAT
0172 4005 186 JC LP
0174 D558F9 187 DJNZ 58H,LD
0177 80DD 188 SJMP LA
0179 189 LP:
0179 7552FA 190 MOV 52H,#250
A51 MACRO ASSEMBLER S52WNL 01/14/2008 10:38:57 PAGE 4
017C 191 LF:
017C D552FD 192 DJNZ 52H,LF
017F 22 193 RET
0180 194 WRITE111:
0180 755308 195 MOV 53H,#8
0183 196 W51HA:
0183 D287 197 SETB DAT
0185 755408 198 MOV 54H,#8
0188 13 199 RRC A
0189 C287 200 CLR DAT
018B 201 W52HA:
018B D554FD 202 DJNZ 54H,W52HA
018E 9287 203 MOV DAT,C
0190 75541E 204 MOV 54H,#30
0193 205 W53HA:
0193 D554FD 206 DJNZ 54H,W53HA
0196 D553EA 207 DJNZ 53H,W51HA
0199 D287 208 SETB DAT
019B 22 209 RET
019C 210 ERAD111:
019C C2AF 211 CLR EA
019E 755808 212 MOV 58H,#8
01A1 213 RD1A:
01A1 C287 214 CLR DAT
01A3 755406 215 MOV 54H,#6
01A6 00 216 NOP
01A7 D287 217 SETB DAT
01A9 218 RD2A:
01A9 D554FD 219 DJNZ 54H,RD2A
01AC A287 220 MOV C,DAT
01AE 13 221 RRC A
01AF 75551E 222 MOV 55H,#30
01B2 223 RD3A:
01B2 D555FD 224 DJNZ 55H,RD3A
01B5 D558E9 225 DJNZ 58H,RD1A
01B8 D287 226 SETB DAT
01BA 22 227 RET
228
229
230
231
01BB 232 SETG :
01BB D28E 233 SETB TR1
01BD D2AB 234 SETB ET1
01BF 75328E 235 MOV 32H,#8EH
01C2 753100 236 MOV 31H,#00H
01C5 120489 237 LCALL WRITE
01C8 753280 238 MOV 32H,#80H
01CB 753180 239 MOV 31H,#80H
01CE 120489 240 LCALL WRITE
01D1 241 GWAIT:
01D1 120E8E 242 LCALL DISPLAY
01D4 3081FA 243 JNB P0.1,GWAIT
01D7 244 SETG1:
01D7 120E8E 245 LCALL DISPLAY
01DA 308145 246 JNB P0.1,SETG2
01DD 308205 247 JNB P0.2,GADDYEAR
01E0 308311 248 JNB P0.3,JIANYEAR
01E3 21D7 249 AJMP SETG1
01E5 250 GADDYEAR:
01E5 AF66 251 MOV R7,66H
01E7 12045E 252 LCALL ADD1
01EA F566 253 MOV 66H,A
01EC B45112 254 CJNE A,#51H,GADDYEAR1
01EF 756600 255 MOV 66H,#00H
01F2 4101 256 AJMP GADDYEAR1
A51 MACRO ASSEMBLER S52WNL 01/14/2008 10:38:57 PAGE 5
01F4 257 JIANYEAR:
01F4 AF66 258 MOV R7,66H
01F6 120463 259 LCALL JIAN1
01F9 F566 260 MOV 66H,A
01FB B40003 261 CJNE A,#00H,GADDYEAR1
01FE 756651 262 MOV 66H,#51H
0201 263 GADDYEAR1:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -