📄 52.lst
字号:
230
231 ;公历设置程序~~~~~~
232
01BB 233 SETG :
01BB D28E 234 SETB TR1
01BD D2AB 235 SETB ET1
01BF 75328E 236 MOV 32H,#8EH
01C2 753100 237 MOV 31H,#00H ;允许写1302
01C5 120489 238 LCALL WRITE
01C8 753280 239 MOV 32H,#80H
01CB 753180 240 MOV 31H,#80H ;1302停止振荡
01CE 120489 241 LCALL WRITE
01D1 242 GWAIT: ;~
01D1 120E8E 243 LCALL DISPLAY
01D4 3081FA 244 JNB P0.1,GWAIT
01D7 245 SETG1:
01D7 120E8E 246 LCALL DISPLAY
01DA 308145 247 JNB P0.1,SETG2
01DD 308205 248 JNB P0.2,GADDYEAR
01E0 308311 249 JNB P0.3,JIANYEAR
01E3 21D7 250 AJMP SETG1
01E5 251 GADDYEAR:
01E5 AF66 252 MOV R7,66H ;年加一
01E7 12045E 253 LCALL ADD1
01EA F566 254 MOV 66H,A
01EC B45112 255 CJNE A,#51H,GADDYEAR1
01EF 756600 256 MOV 66H,#00H
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 5
01F2 4101 257 AJMP GADDYEAR1
01F4 258 JIANYEAR:
01F4 AF66 259 MOV R7,66H ;年减一
01F6 120463 260 LCALL JIAN1
01F9 F566 261 MOV 66H,A
01FB B40003 262 CJNE A,#00H,GADDYEAR1
01FE 756651 263 MOV 66H,#51H
0201 264 GADDYEAR1:
0201 75328C 265 MOV 32H,#8CH ;年值送人1302
0204 856631 266 MOV 31H,66H
0207 120489 267 LCALL WRITE
020A A866 268 MOV R0,66H
020C 12047F 269 LCALL DIVIDE ;年分离送显示缓存
020F 894B 270 MOV 4BH,R1
0211 897B 271 MOV 7BH,R1
0213 8A4C 272 MOV 4CH,R2
0215 8A7C 273 MOV 7CH,R2
0217 274 WAITT1: ;~~~~~~~
0217 120E8E 275 LCALL DISPLAY
021A 3082FA 276 JNB P0.2,WAITT1
021D 3083F7 277 JNB P0.3,WAITT1
0220 21D7 278 AJMP SETG1
0222 279 SETG2:
0222 D20A 280 SETB 0AH ;调月时闪标志
0224 281 GWAIT2:
0224 120E8E 282 LCALL DISPLAY
0227 3081FA 283 JNB P0.1,GWAIT2
022A 284 SETG3:
022A 120E8E 285 LCALL DISPLAY
022D 308145 286 JNB P0.1,SETG4
0230 308205 287 JNB P0.2,GADDMONTH
0233 308311 288 JNB P0.3,JIANMONTH
0236 412A 289 AJMP SETG3
0238 290 GADDMONTH:
0238 AF65 291 MOV R7,65H ;月加一
023A 12045E 292 LCALL ADD1
023D F565 293 MOV 65H,A
023F B41312 294 CJNE A,#13H,GADDMONTH1
0242 756501 295 MOV 65H,#01H
0245 4154 296 AJMP GADDMONTH1
0247 297 JIANMONTH:
0247 AF65 298 MOV R7,65H ;月减一
0249 120463 299 LCALL JIAN1
024C F565 300 MOV 65H,A
024E B40003 301 CJNE A,#00H,GADDMONTH1
0251 756512 302 MOV 65H,#12H
0254 303 GADDMONTH1:
0254 753288 304 MOV 32H,#88H ;月值送人1302
0257 856531 305 MOV 31H,65H
025A 120489 306 LCALL WRITE
025D A865 307 MOV R0,65H
025F 12047F 308 LCALL DIVIDE ;月分离，送显示缓存
0262 8979 309 MOV 79H,R1
0264 8949 310 MOV 49H,R1
0266 8A7A 311 MOV 7AH,R2
0268 8A4A 312 MOV 4AH,R2
026A 313 WAITT2: ;~
026A 120E8E 314 LCALL DISPLAY
026D 3082FA 315 JNB P0.2,WAITT2
0270 3083F7 316 JNB P0.3,WAITT2
0273 412A 317 AJMP SETG3
0275 318 SETG4:
0275 D20B 319 SETB 0BH ;调日时闪标志
0277 320 GWAIT4:
0277 120E8E 321 LCALL DISPLAY
027A 3081FA 322 JNB P0.1,GWAIT4
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 6
027D 323 SETG5:
027D 120E8E 324 LCALL DISPLAY
0280 308143 325 JNB P0.1,SETG6
0283 308205 326 JNB P0.2,GADDDAY
0286 30830F 327 JNB P0.3,JIANDAY
0289 417D 328 AJMP SETG5
028B 329 GADDDAY:
028B AF63 330 MOV R7,63H ;日加一
028D 12045E 331 LCALL ADD1
0290 F563 332 MOV 63H,A
0292 B43210 333 CJNE A,#32H,GADDDAY1
0295 756301 334 MOV 63H,#01H
0298 335 JIANDAY:
0298 AF63 336 MOV R7,63H ;日减一
029A 120463 337 LCALL JIAN1
029D F563 338 MOV 63H,A
029F B40003 339 CJNE A,#00H,GADDDAY1
02A2 756331 340 MOV 63H,#31H
02A5 341 GADDDAY1:
02A5 753286 342 MOV 32H,#86H ;日值送人1302
02A8 856331 343 MOV 31H,63H
02AB 120489 344 LCALL WRITE
02AE A863 345 MOV R0,63H
02B0 12047F 346 LCALL DIVIDE ;日分离，送显示缓存
02B3 8976 347 MOV 76H,R1
02B5 8946 348 MOV 46H,R1
02B7 8A77 349 MOV 77H,R2
02B9 8A47 350 MOV 47H,R2
02BB 351 WAITT3: ;~~~
02BB 120E8E 352 LCALL DISPLAY
02BE 3082FA 353 JNB P0.2,WAITT3
02C1 3083F7 354 JNB P0.3,WAITT3
02C4 417D 355 AJMP SETG5
02C6 356 SETG6:
02C6 D20C 357 SETB 0CH ;调星期时闪标志
02C8 358 GWAIT6:
02C8 120E8E 359 LCALL DISPLAY
02CB 3081FA 360 JNB P0.1,GWAIT6
02CE 361 SETG7:
02CE 120E8E 362 LCALL DISPLAY
02D1 308141 363 JNB P0.1,SETG8
02D4 308205 364 JNB P0.2,GADDWEEK
02D7 308311 365 JNB P0.3,JIANWEEK
02DA 41CE 366 AJMP SETG7
02DC 367 GADDWEEK:
02DC AF64 368 MOV R7,64H ;星期加一
02DE 12045E 369 LCALL ADD1
02E1 F564 370 MOV 64H,A
02E3 B40712 371 CJNE A,#07H,GADDWEEK1
02E6 756400 372 MOV 64H,#00H
02E9 41F8 373 AJMP GADDWEEK1
02EB 374 JIANWEEK:
02EB AF64 375 MOV R7,64H ;星期减一
02ED 120463 376 LCALL JIAN1
02F0 F564 377 MOV 64H,A
02F2 B40003 378 CJNE A,#00H,GADDWEEK1
02F5 756406 379 MOV 64H,#06H
02F8 380 GADDWEEK1:
02F8 75328A 381 MOV 32H,#8AH
02FB 856431 382 MOV 31H,64H ;星期值送人1302
02FE 120489 383 LCALL WRITE
0301 A864 384 MOV R0,64H
0303 12047F 385 LCALL DIVIDE ;星期值分离送显示缓存
0306 8948 386 MOV 48H,R1
0308 8978 387 MOV 78H,R1
030A 388 WAITT4: ;~~~~
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 7
030A 120E8E 389 LCALL DISPLAY
030D 3082FA 390 JNB P0.2,WAITT4
0310 3083F7 391 JNB P0.3,WAITT4
0313 41CE 392 AJMP SETG7
0315 393 SETG8:
0315 D20D 394 SETB 0DH ;调小时时闪标志
0317 395 GWAIT8:
0317 120E8E 396 LCALL DISPLAY
031A 3081FA 397 JNB P0.1,GWAIT8
031D 398 SETG9:
031D 120E8E 399 LCALL DISPLAY
0320 308145 400 JNB P0.1,SETG10
0323 308205 401 JNB P0.2,GADDHOUR
0326 308311 402 JNB P0.3,JIANHOUR
0329 611D 403 AJMP SETG9
032B 404 GADDHOUR:
032B AF62 405 MOV R7,62H ;小时加一
032D 12045E 406 LCALL ADD1
0330 F562 407 MOV 62H,A
0332 B42412 408 CJNE A,#24H,GADDHOUR1
0335 756200 409 MOV 62H,#00H
0338 6147 410 AJMP GADDHOUR1
033A 411 JIANHOUR:
033A AF62 412 MOV R7,62H ;小时减一
033C 120463 413 LCALL JIAN1
033F F562 414 MOV 62H,A
0341 B40003 415 CJNE A,#00H,GADDHOUR1
0344 756223 416 MOV 62H,#23H
0347 417 GADDHOUR1:
0347 753284 418 MOV 32H,#84H ;小时值送人1302
034A 856231 419 MOV 31H,62H
034D 120489 420 LCALL WRITE
0350 A862 421 MOV R0,62H
0352 12047F 422 LCALL DIVIDE ;小时值分离送显示缓存
0355 8974 423 MOV 74H,R1
0357 8944 424 MOV 44H,R1
0359 8A75 425 MOV 75H,R2
035B 8A45 426 MOV 45H,R2
035D 427 WAITT5: ;~~~~~
035D 120E8E 428 LCALL DISPLAY
0360 3082FA 429 JNB P0.2,WAITT5
0363 3083F7 430 JNB P0.3,WAITT5
0366 611D 431 AJMP SETG9
0368 432 SETG10:
0368 D20E 433 SETB 0EH ;调分时候闪标志
036A 434 GWAIT10:
036A 120E8E 435 LCALL DISPLAY
036D 3081FA 436 JNB P0.1,GWAIT10
0370 437 SETG11:
0370 120E8E 438 LCALL DISPLAY
0373 308145 439 JNB P0.1,SETGOUT
0376 308205 440 JNB P0.2,GADDMINTUE
0379 308311 441 JNB P0.3,JIANMINTUE
037C 6170 442 AJMP SETG11
037E 443 GADDMINTUE:
037E AF61 444 MOV R7,61H ;分钟加一
0380 12045E 445 LCALL ADD1
0383 F561 446 MOV 61H,A
0385 B46012 447 CJNE A,#60H,GADDMINTUE1
0388 756100 448 MOV 61H,#00H
038B 619A 449 AJMP GADDMINTUE1
038D 450 JIANMINTUE:
038D AF61 451 MOV R7,61H ;分钟减一
038F 120463 452 LCALL JIAN1
0392 F561 453 MOV 61H,A
0394 B40003 454 CJNE A,#00H,GADDMINTUE1
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 8
0397 756159 455 MOV 61H,#59H
039A 456 GADDMINTUE1:
039A 753282 457 MOV 32H,#82H ;分钟值送人1302
039D 856131 458 MOV 31H,61H
03A0 120489 459 LCALL WRITE
03A3 A861 460 MOV R0,61H
03A5 12047F 461 LCALL DIVIDE ;分钟值分离送显示缓存
03A8 8972 462 MOV 72H,R1
03AA 8942 463 MOV 42H,R1
03AC 8A73 464 MOV 73H,R2
03AE 8A43 465 MOV 43H,R2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -