📄 52.lst
字号:
03B0 466 WAITT6:
03B0 120E8E 467 LCALL DISPLAY
03B3 3082FA 468 JNB P0.2,WAITT6
03B6 3083F7 469 JNB P0.3,WAITT6
03B9 6170 470 AJMP SETG11
471
03BB 472 SETGOUT:
03BB 120E8E 473 LCALL DISPLAY
03BE 3081FA 474 JNB P0.1,SETGOUT
03C1 120525 475 LCALL GENGXIAN
03C4 753280 476 MOV 32H,#80H
03C7 753100 477 MOV 31H,#00H ;1302晶振开始振荡
03CA 120489 478 LCALL WRITE
03CD 75328E 479 MOV 32H,#8EH
03D0 753180 480 MOV 31H,#80H ;禁止写入1302
03D3 120489 481 LCALL WRITE
03D6 C208 482 CLR 08H
03D8 C209 483 CLR 09H
03DA C20A 484 CLR 0AH
03DC C20B 485 CLR 0BH
03DE C20C 486 CLR 0CH
03E0 C20D 487 CLR 0DH
03E2 C20E 488 CLR 0EH
03E4 C20F 489 CLR 0FH
03E6 C2AB 490 CLR ET1 ;关闪中断
03E8 C28E 491 CLR TR1
03EA 02003E 492 LJMP MAIN1
493
494 ;;闪动调时程序~~~~~~~~~~~~~~~~~~~~~~~~~~~
03ED 495 INTT1:
03ED C0E0 496 PUSH ACC
03EF C0D0 497 PUSH PSW
03F1 498 GFLASH:
03F1 B20F 499 CPL 0FH
03F3 200F2C 500 JB 0FH,GFLASH1
03F6 854C7C 501 MOV 7CH,4CH ;全部显示
03F9 854B7B 502 MOV 7BH,4BH
03FC 854A7A 503 MOV 7AH,4AH
03FF 854979 504 MOV 79H,49H
0402 854878 505 MOV 78H,48H
0405 854777 506 MOV 77H,47H
0408 854676 507 MOV 76H,46H
040B 854575 508 MOV 75H,45H
040E 854474 509 MOV 74H,44H
0411 854373 510 MOV 73H,43H
0414 854272 511 MOV 72H,42H
0417 854171 512 MOV 71H,41H
041A 854070 513 MOV 70H,40H
041D 514 GFLASHOUT:
041D D0D0 515 POP PSW
041F D0E0 516 POP ACC
0421 32 517 RETI
0422 518 GFLASH1:
0422 200A08 519 JB 0AH,GFLASH2 ;调年闪
0425 757C0F 520 MOV 7CH,#0FH
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 9
0428 757B0F 521 MOV 7BH,#0FH
042B 811D 522 AJMP GFLASHOUT
042D 523 GFLASH2:
042D 200B08 524 JB 0BH,GFLASH3 ;调月闪
0430 757A0F 525 MOV 7AH,#0FH
0433 75790F 526 MOV 79H,#0FH
0436 811D 527 AJMP GFLASHOUT
0438 528 GFLASH3:
0438 200C08 529 JB 0CH,GFLASH4 ;调日闪
043B 75770F 530 MOV 77H,#0FH
043E 75760F 531 MOV 76H,#0FH
0441 811D 532 AJMP GFLASHOUT
0443 533 GFLASH4:
0443 200D05 534 JB 0DH,GFLASH5 ;调星期闪
0446 75780F 535 MOV 78H,#0FH
0449 811D 536 AJMP GFLASHOUT
044B 537 GFLASH5:
044B 200E08 538 JB 0EH,GFLASH6 ;调小时闪
044E 75750F 539 MOV 75H,#0FH
0451 75740F 540 MOV 74H,#0FH
0454 811D 541 AJMP GFLASHOUT
0456 542 GFLASH6:
543
0456 75730F 544 MOV 73H,#0FH ;调分钟闪
0459 75720F 545 MOV 72H,#0FH
045C 811D 546 AJMP GFLASHOUT
547
548 ;加一程序~~~~~~~~~~~~~~~~~~~~~~~~~
549
045E 550 ADD1:
045E EF 551 MOV A,R7
045F 2401 552 ADD A,#1
0461 D4 553 DA A
0462 22 554 RET
555 ;减一程序~~~~~~~~~~~~~~~~~~~~~~~~~
0463 556 JIAN1:
0463 EF 557 MOV A,R7
0464 14 558 DEC A
0465 B44F02 559 CJNE A,#4FH,KK1
0468 7449 560 MOV A,#49H
046A 561 KK1:
046A B43F02 562 CJNE A,#3FH,KK2
046D 7439 563 MOV A,#39H
046F 564 KK2:
046F B42F02 565 CJNE A,#2FH,KK3
0472 7429 566 MOV A,#29H
0474 567 KK3:
0474 B41F02 568 CJNE A,#1FH,KK4
0477 7419 569 MOV A,#19H
0479 570 KK4:
0479 B40F02 571 CJNE A,#0FH,KK5
047C 7409 572 MOV A,#09H
047E 573 KK5:
047E 22 574 RET
575
576 ;分离程序~~~~~~~~~~~~~~~~~~~~~~~~~
577
047F 578 DIVIDE:
047F E8 579 MOV A,R0
0480 540F 580 ANL A,#0FH
0482 F9 581 MOV R1,A
0483 E8 582 MOV A,R0
0484 C4 583 SWAP A
0485 540F 584 ANL A,#0FH
0487 FA 585 MOV R2,A
0488 22 586 RET
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 10
587
588 ;写1302程序~~~~~~~
589
0489 590 WRITE:
0489 C2B4 591 CLR SCLK
048B 00 592 NOP
048C D2B2 593 SETB RST
048E 00 594 NOP
048F E532 595 MOV A,32H
0491 7C08 596 MOV R4,#8
0493 597 WRITE1:
0493 13 598 RRC A ;送地址给1302
0494 00 599 NOP
0495 00 600 NOP
0496 C2B4 601 CLR SCLK
0498 00 602 NOP
0499 00 603 NOP
049A 00 604 NOP
049B 92B3 605 MOV IO,C
049D 00 606 NOP
049E 00 607 NOP
049F 00 608 NOP
04A0 D2B4 609 SETB SCLK
04A2 00 610 NOP
04A3 00 611 NOP
04A4 DCED 612 DJNZ R4,WRITE1
04A6 C2B4 613 CLR SCLK
04A8 00 614 NOP
04A9 E531 615 MOV A,31H
04AB 7C08 616 MOV R4,#8
04AD 617 WRITE2:
04AD 13 618 RRC A
04AE 00 619 NOP ;送数据给1302
04AF C2B4 620 CLR SCLK
04B1 00 621 NOP
04B2 00 622 NOP
04B3 92B3 623 MOV IO,C
04B5 00 624 NOP
04B6 00 625 NOP
04B7 00 626 NOP
04B8 D2B4 627 SETB SCLK
04BA 00 628 NOP
04BB 00 629 NOP
04BC DCEF 630 DJNZ R4,WRITE2
04BE C2B2 631 CLR RST
04C0 22 632 RET
633
634 ;读1302程序~~~~~~~~~~~~~~~~~~~~~~~~~
635
04C1 636 READ:
04C1 C2B4 637 CLR SCLK
04C3 00 638 NOP
04C4 00 639 NOP
04C5 D2B2 640 SETB RST
04C7 00 641 NOP
04C8 E532 642 MOV A,32H
04CA 7C08 643 MOV R4,#8
04CC 644 READ1:
04CC 13 645 RRC A ;送地址给1302
04CD 00 646 NOP
04CE 92B3 647 MOV IO,C
04D0 00 648 NOP
04D1 00 649 NOP
04D2 00 650 NOP
04D3 D2B4 651 SETB SCLK
04D5 00 652 NOP
A51 MACRO ASSEMBLER 52 03/31/2008 19:12:35 PAGE 11
04D6 00 653 NOP
04D7 00 654 NOP
04D8 C2B4 655 CLR SCLK
04DA 00 656 NOP
04DB 00 657 NOP
04DC DCEE 658 DJNZ R4,READ1
04DE 7C08 659 MOV R4,#8
04E0 660 READ2:
04E0 C2B4 661 CLR SCLK
04E2 00 662 NOP ;从1302中读出数据
04E3 00 663 NOP
04E4 00 664 NOP
04E5 A2B3 665 MOV C,IO
04E7 00 666 NOP
04E8 00 667 NOP
04E9 00 668 NOP
04EA 00 669 NOP
04EB 00 670 NOP
04EC 13 671 RRC A
04ED 00 672 NOP
04EE 00 673 NOP
04EF 00 674 NOP
04F0 00 675 NOP
04F1 D2B4 676 SETB SCLK
04F3 00 677 NOP
04F4 DCEA 678 DJNZ R4,READ2
04F6 F531 679 MOV 31H,A
04F8 C2B2 680 CLR RST
04FA 22 681 RET
682 ;BCD码转换为10进制程序~~~~~
683
04FB 684 BCD_10:
04FB E8 685 MOV A,R0
04FC 540F 686 ANL A,#0FH
04FE F9 687 MOV R1,A ;高位×10， 加低位
04FF E8 688 MOV A,R0
0500 C4 689 SWAP A
0501 540F 690 ANL A,#0FH
0503 75F00A 691 MOV B,#10
0506 A4 692 MUL AB
0507 29 693 ADD A,R1
0508 F8 694 MOV R0,A
0509 22 695 RET
696
697 ;查一年数据程序~~~~~~~~~~~~~~~~
698
050A 699 CHECKMONTH:
050A 1204FB 700 LCALL BCD_10
050D E8 701 MOV A,R0
050E 75F004 702 MOV B,#04
0511 A4 703 MUL AB
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -