s52wnl.lst

AT89S52+1302+18B20,时钟芯片万年历

05CC 7BFF            808                                MOV R3,#0FFH
05CE A1DD            809                                AJMP TIAOZHENG1
05D0 A863            810                        GM12: MOV R0,day     
05D2 1204FB          811                                LCALL BCD_10   
05D5 E8              812                                MOV A,R0       
05D6 244F            813                                ADD A,#79      
05D8 FA              814                                MOV R2,A
05D9 7BFF            815                                MOV R3,#0FFH
05DB A1DD            816                                AJMP TIAOZHENG1
05DD E566            817                 TIAOZHENG1: MOV A,year
05DF 75F004          818                                MOV B,#04
05E2 84              819                                DIV AB
05E3 E5F0            820                                MOV A,B
05E5 7016            821                                JNZ GGG1
05E7 E565            822                                MOV A,65H   
05E9 B40102          823                                CJNE A,#01H,AAAA
05EC A1FD            824                                AJMP GGG1        
05EE B40202          825                     AAAA:   CJNE A,#02H,BBBB
05F1 A1FD            826                                AJMP GGG1       
05F3 BAFF06          827                     BBBB:   CJNE  R2,#0FFH,GGG2
05F6 7BFF            828                                MOV R3,#0FFH   
05F8 7A01            829                                MOV R2,#01H    
05FA A1FD            830                                AJMP GGG1
05FC 0A              831                     GGG2:   INC R2
05FD A866            832                     GGG1:   MOV R0,year    
05FF 12050A          833                                LCALL CHECKMONTH
0602 EA              834                                MOV A,R2
0603 C3              835                                CLR C
0604 9F              836                                SUBB A,R7
0605 92A7            837                                MOV P2.7,C
0607 B4010F          838                                CJNE A,#01H,GGG3
060A 7A01            839                                MOV R2,#01H
060C EB              840                                MOV A,R3
060D B40025          841                                CJNE A,#00H,NEW1
0610 755701          842                                MOV  57H,#01H   
0613 755601          843                                MOV  56H,#01H   
0616 020CF0          844                                LJMP S_PLAY
0619 B40003          845                       GGG3:  CJNE A,#00H,GGG6
061C FA              846                                MOV R2,A
061D C146            847                                AJMP OLD
061F 30A719          848                       GGG6: JNB P2.7,NEW2
0622 EF              849                                MOV A,R7
0623 C3              850                                CLR C
A51 MACRO ASSEMBLER  S52WNL                                                               01/14/2008 10:38:57 PAGE    14

0624 9A              851                                SUBB A,R2
0625 FF              852                                MOV R7,A
0626 BBFF08          853                                CJNE R3,#0FFH,GGG5
0629 EB              854                                MOV A,R3
062A C3              855                                CLR C
062B 9F              856                                SUBB A,R7
062C FA              857                                MOV R2,A
062D 7B00            858                                MOV R3,#00H
062F C1AC            859                                AJMP NEW
0631 EF              860                       GGG5:  MOV A,R7
0632 FA              861                                MOV R2,A
0633 C146            862                                AJMP OLD
0635 7AFF            863                        NEW1: MOV R2,#0FFH
0637 7B01            864                                MOV R3,#01H
0639 C1AC            865                                AJMP NEW
063B FA              866                        NEW2: MOV R2,A
063C EB              867                                MOV A,R3
063D B4FF04          868                                CJNE A,#0FFH,GGG4
0640 EA              869                                MOV A,R2
0641 FB              870                                MOV R3,A
0642 7AFF            871                                MOV R2,#0FFH
0644 C1AC            872                        GGG4: AJMP NEW
                     873     
                     874       
                     875     
0646 E566            876                      OLD:    MOV A,year
0648 14              877                                DEC A
0649 F8              878                                MOV R0,A
064A 12050A          879                                LCALL CHECKMONTH
064D EA              880                                MOV A,R2
064E C3              881                                CLR C
064F 941D            882                                SUBB A,#29
0651 92A7            883                                MOV P2.7,C
0653 FE              884                                MOV R6,A
0654 ED              885                                MOV A,R5
0655 20E007          886                                JB ACC.0,AAA 
0658 EA              887                                MOV A,R2
0659 C3              888                                CLR C
065A 941E            889                                SUBB A,#30
065C 92A7            890                                MOV P2.7,C
065E FE              891                                MOV R6,A
065F EE              892                          AAA:MOV A,R6
0660 B40010          893                                CJNE A,#00H,BBB
0663 755629          894                                MOV 56H,#29H 
0666 ED              895                                MOV A,R5    
0667 20E103          896                                JB ACC.1,CCC
066A 755630          897                                MOV 56H,#30H  
066D 755711          898                          CCC:MOV 57H,#11H
0670 020CF0          899                                LJMP S_PLAY
0673 30A71B          900                          BBB:JNB P2.7, DDD
0676 741D            901                                MOV A,#29  
0678 C3              902                                CLR C
0679 9A              903                                SUBB A,R2
067A FC              904                                MOV R4,A
067B ED              905                                MOV A,R5
067C 20E005          906                                JB ACC.0,EEE
067F 741E            907                                MOV A,#30
0681 C3              908                                CLR C
0682 9A              909                                SUBB A,R2
0683 FC              910                                MOV R4,A
0684 EC              911                         EEE: MOV A,R4
0685 F8              912                                MOV R0,A
0686 120D08          913                                LCALL D_BCD
0689 F556            914                                MOV 56H,A
068B 755712          915                                MOV 57H,#12H
068E 020CF0          916                                LJMP S_PLAY
A51 MACRO ASSEMBLER  S52WNL                                                               01/14/2008 10:38:57 PAGE    15

0691 741D            917                         DDD: MOV A,#29 
0693 C3              918                                CLR C
0694 9C              919                                SUBB A,R4
0695 F9              920                                MOV R1,A
0696 ED              921                                MOV A,R5
0697 20E105          922                                JB ACC.1, FFF
069A 741E            923                                MOV A,#30
069C C3              924                                CLR C
069D 9C              925                                SUBB A,R4
069E F9              926                                MOV R1,A
069F E9              927                        FFF:   MOV A,R1
06A0 F8              928                                MOV R0,A
06A1 120D08          929                                LCALL D_BCD
06A4 F556            930                                MOV 56H,A
06A6 755711          931                                MOV 57H,#11H
06A9 020CF0          932                                LJMP S_PLAY
                     933      
                     934      
06AC                 935     NEW:
06AC 00              936       NOP
06AD                 937     M1:
06AD EA              938       MOV A,R2   
06AE C3              939       CLR C
06AF 941D            940       SUBB A,#29
06B1 F9              941       MOV R1,A
06B2 EE              942       MOV A,R6
06B3 20E605          943       JB ACC.6,SM11
06B6 EA              944       MOV A,R2
06B7 C3              945       CLR C
06B8 941E            946       SUBB A,#30
06BA F9              947       MOV R1,A
06BB                 948     SM11:
06BB 4004            949       JC SM12
06BD E9              950       MOV A,R1  
06BE FA              951       MOV R2,A  
06BF C1CE            952       AJMP M2
06C1                 953     SM12:
06C1 BB0003          954       CJNE R3,#00H,M13 
06C4 020972          955       LJMP Y1           
06C7                 956     M13:
06C7 EA              957       MOV A,R2          
06C8 2B              958       ADD A,R3          
06C9 FA              959       MOV R2,A          
06CA 7B00            960       MOV R3,#00H
06CC C1AD            961       AJMP M1
06CE                 962     M2:
06CE C3              963       CLR C    
06CF EA              964       MOV A,R2 
06D0 941D            965       SUBB A,#29
06D2 F9              966       MOV R1,A
06D3 EE              967       MOV A,R6
06D4 20E505          968       JB ACC.5,M21
06D7 EA              969       MOV A,R2
06D8 C3              970       CLR C
06D9 941E            971       SUBB A,#30
06DB F9              972       MOV R1,A
06DC                 973     M21:
06DC 4004            974       JC M22
06DE E9              975       MOV A,R1  
06DF FA              976       MOV R2,A
06E0 C1EF            977       AJMP MM2
06E2                 978     M22:
06E2 BB0003          979       CJNE R3,#00H,M23  
06E5 020981          980       LJMP Y2         
06E8                 981     M23:
06E8 EA              982       MOV A,R2        
A51 MACRO ASSEMBLER  S52WNL                                                               01/14/2008 10:38:57 PAGE    16

06E9 2B              983       ADD A,R3        
06EA FA              984       MOV R2,A        
06EB 7B00            985       MOV R3,#00H
06ED C1CE            986       AJMP M2
06EF                 987     MM2:
06EF 120D03          988       LCALL CHECKRE   
06F2 B40223          989       CJNE A,#02H,M3  
06F5                 990     RM2:
06F5 EC              991       MOV A,R4
06F6 540F            992       ANL A,#0FH
06F8 7007            993       JNZ RM21
06FA EA              994       MOV A,R2
06FB C3              995       CLR C
06FC 941E            996       SUBB A,#30
06FE F9              997       MOV R1,A
06FF E106            998       AJMP RM22
0701                 999     RM21:
0701 EA             1000       MOV A,R2
0702 C3             1001       CLR C
0703 941D           1002       SUBB A,#29
0705 F9             1003       MOV R1,A
0706                1004     RM22:
0706 4004           1005       JC RM23
0708 E9             1006       MOV A,R1  
0709 FA             1007       MOV R2,A   
070A E118           1008       AJMP M3
070C                1009     RM23:
070C BB0003         1010       CJNE R3,#00H,RM24 
070F 0209A5         1011       LJMP RY2          
0712                1012     RM24:
0712 EA             1013       MOV A,R2          
0713 2B             1014       ADD A,R3          
0714 7B00           1015       MOV R3,#00H       
0716 C1F5           1016       AJMP RM2
0718                1017     M3:
0718 EA             1018       MOV A,R2       
0719 C3             1019       CLR C
071A 941D           1020       SUBB A,#29
071C F9             1021       MOV R1,A
071D EE             1022       MOV A,R6
071E 20E405         1023       JB ACC.4,M31
0721 C3             1024       CLR C
0722 EA             1025       MOV A,R2
0723 941E           1026       SUBB A,#30
0725 F9             1027       MOV R1,A
0726                1028     M31:
0726 4004           1029       JC M32
0728 E9             1030       MOV A,R1    
0729 FA             1031       MOV R2,A
072A E139           1032       AJMP MM3
072C                1033     M32:
072C BB0003         1034       CJNE R3,#00H,M33  
072F 0209C9         1035       LJMP Y3           
0732                1036     M33:
0732 EA             1037       MOV A,R2           
0733 2B             1038       ADD A,R3           
0734 FA             1039       MOV R2,A            
0735 7B00           1040       MOV R3,#00H
0737 E118           1041       AJMP M3
0739                1042     MM3:
0739 120D03         1043       LCALL CHECKRE    
073C B40324         1044       CJNE A,#03H,M4   
073F                1045     RM3:
073F EC             1046       MOV A,R4
0740 540F           1047       ANL A,#0FH     
0742 7007           1048       JNZ RM31
A51 MACRO ASSEMBLER  S52WNL                                                               01/14/2008 10:38:57 PAGE    17

0744 EA             1049       MOV A,R2
0745 C3             1050       CLR C
0746 941E           1051       SUBB A,#30
0748 F9             1052       MOV R1,A
0749 E150           1053       AJMP RM32
074B                1054     RM31:
074B EA             1055       MOV A,R2
074C C3             1056       CLR C
074D 941D           1057       SUBB A,#29
074F F9             1058       MOV R1,A
0750                1059     RM32:
0750 4004           1060       JC RM33
0752 E9             1061       MOV A,R1  
0753 FA             1062       MOV R2,A  
0754 E163           1063       AJMP M4
0756                1064     RM33:
0756 BB0003         1065       CJNE R3,#00H,RM34 
0759 020A0E         1066       LJMP RY3          
075C                1067     RM34:
075C EA             1068       MOV A,R2          
075D 2B             1069       ADD A,R3            
075E FA             1070       MOV R2,A           
075F 7B00           1071       MOV R3,#00H
0761 E13F           1072       AJMP RM3
0763                1073     M4:
0763 EA             1074       MOV A,R2
0764 C3             1075       CLR C           
0765 941D           1076       SUBB A,#29
0767 F9             1077       MOV R1,A
0768 EE             1078       MOV A,R6
0769 20E205         1079       JB ACC.2,M41