CONFIG12 EQU 7FH TEMPH EQU 21H TEMPL EQU 20H REG2 EQU 22H REG3 EQU 23H REG4 EQU 24H DAT EQU P0.7 SCLK EQU P3.2 IO EQU P3.3 RST EQU P3.4 year DATA 66H month DATA 65H week DATA 64H day DATA 63H hour DATA 62H mintue DATA 61H second DATA 60H ORG 0000H LJMP START ORG 001BH LJMP INTT1 START: ;初值 LCALL ZJ SETB EA MOV SCON,#00H ; 串行輸出，方式0 MOV TMOD,#10H ;計數(shù)器1，方式1 MOV TL1,#00H MOV TH1,#00H MOV 32H,#8EH MOV 31H,#00H ;允許寫1302 LCALL WRITE MOV 32H,#90H MOV 31H,#0A6H ;1302充電，充電電流1.1MA LCALL WRITE ;主程序~~~~~~~~~~~~~~~~~~~~~ MAIN1: MOV 32H,#8DH ;讀出年 LCALL READ MOV year,31H MOV 32H,#8BH ;讀出星期 LCALL READ MOV week,31H MOV 32H,#89H ;讀出月 LCALL READ MOV month,31H MOV 32H,#87H ;讀出日 LCALL READ MOV day,31H MOV 32H,#85H ;讀出小時 LCALL READ MOV hour,31H MOV 32H,#83H ;讀出分鐘 LCALL READ MOV mintue,31H MOV 32H,#81H ;讀出秒 LCALL READ MOV second,31H ;~~~~~~~~~~~~分離緩存~~~~~~~~ MOV R0,year ;年分離，送顯示緩存 LCALL DIVIDE MOV 7BH,R1 MOV 4BH,R1 MOV 7CH,R2 MOV 4CH,R2 MOV 78H,week MOV 48H,week MOV R0,month ;月分離，送顯示緩存 LCALL DIVIDE MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2 MOV R0,day ;日分離，送顯示緩存 LCALL DIVIDE MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2 MOV R0,hour ;小時分離，送顯示緩存 LCALL DIVIDE MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2 MOV R0,mintue ;分鐘分離，送顯示緩存 LCALL DIVIDE MOV 72H,R1 MOV 42H,R1 MOV 73H,R2 MOV 43H,R2 MOV R0,second ;秒分離，送顯示緩存 LCALL DIVIDE MOV 70H,R1 MOV 40H,R1 MOV 71H,R2 MOV 41H,R2 CLR EA LCALL TOUTOU SETB EA LCALL DISPLAY LCALL GENGXIAN ;更新農(nóng)歷程序 JNB P0.1,SETG111 JNB F0,SSS setb P0.4 ;非閏月，則p0.4清零,指示燈亮 LJMP MAIN1 SETG111: LJMP SETG SSS: clr P0.4 ;閏月，則p0.4置位，指示燈不亮 LJMP MAIN1 ;~~~~~~~~~~~~~~ 溫度 TOUTOU: LCALL CHUSHI LCALL RDTEMP MOV A,TEMPL ANL A,#11110000B MOV TEMPL,A MOV A,TEMPH ANL A,#00000111B ORL A,TEMPL SWAP A MOV 25H,A MOV A,25H MOV B,#64H DIV AB MOV A,B MOV B,#0AH DIV AB SWAP A ORL A,B MOV 10H,A RET CHUSHI: LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#4EH LCALL WRITE111 MOV A,#CONFIG12 LCALL WRITE111 RET RDTEMP: LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#44H LCALL WRITE111 LCALL DL1MS LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#0BEH LCALL WRITE111 LCALL ERAD111 MOV TEMPL,A LCALL ERAD111 MOV TEMPH,A RET RESET: LA: SETB DAT MOV 52H,#200 LB: CLR DAT DJNZ 52H,LB SETB DAT MOV 52H,#30 LC: DJNZ 52H,LC CLR C ORL C,DAT JC LB MOV 58H,#80 LD: ORL C,DAT JC LP DJNZ 58H,LD SJMP LA LP: MOV 52H,#250 LF: DJNZ 52H,LF RET WRITE111: MOV 53H,#8 W51HA: SETB DAT MOV 54H,#8 RRC A CLR DAT W52HA: DJNZ 54H,W52HA MOV DAT,C MOV 54H,#30 W53HA: DJNZ 54H,W53HA DJNZ 53H,W51HA SETB DAT RET ERAD111: CLR EA MOV 58H,#8 RD1A: CLR DAT MOV 54H,#6 NOP SETB DAT RD2A: DJNZ 54H,RD2A MOV C,DAT RRC A MOV 55H,#30 RD3A: DJNZ 55H,RD3A DJNZ 58H,RD1A SETB DAT RET ;公歷設(shè)置程序~~~~~~~~~~~~~~~~~~~~~ SETG : SETB TR1 SETB ET1 MOV 32H,#8EH MOV 31H,#00H ;允許寫1302 LCALL WRITE MOV 32H,#80H MOV 31H,#80H ;1302停止振蕩 LCALL WRITE GWAIT: ;~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.1,GWAIT SETG1: LCALL DISPLAY JNB P0.1,SETG2 JNB P0.2,GADDYEAR JNB P0.3,JIANYEAR AJMP SETG1 GADDYEAR: MOV R7,66H ;年加一 LCALL ADD1 MOV 66H,A CJNE A,#51H,GADDYEAR1 MOV 66H,#00H AJMP GADDYEAR1 JIANYEAR: MOV R7,66H ;年減一 LCALL JIAN1 MOV 66H,A CJNE A,#00H,GADDYEAR1 MOV 66H,#51H GADDYEAR1: MOV 32H,#8CH ;年值送人1302 MOV 31H,66H LCALL WRITE MOV R0,66H LCALL DIVIDE ;年分離送顯示緩存 MOV 4BH,R1 MOV 7BH,R1 MOV 4CH,R2 MOV 7CH,R2 WAITT1: ;~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT1 JNB P0.3,WAITT1 AJMP SETG1 SETG2: SETB 0AH ;調(diào)月時閃標(biāo)志 GWAIT2: LCALL DISPLAY JNB P0.1,GWAIT2 SETG3: LCALL DISPLAY JNB P0.1,SETG4 JNB P0.2,GADDMONTH JNB P0.3,JIANMONTH AJMP SETG3 GADDMONTH: MOV R7,65H ;月加一 LCALL ADD1 MOV 65H,A CJNE A,#13H,GADDMONTH1 MOV 65H,#01H AJMP GADDMONTH1 JIANMONTH: MOV R7,65H ;月減一 LCALL JIAN1 MOV 65H,A CJNE A,#00H,GADDMONTH1 MOV 65H,#12H GADDMONTH1: MOV 32H,#88H ;月值送人1302 MOV 31H,65H LCALL WRITE MOV R0,65H LCALL DIVIDE ;月分離，送顯示緩存 MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2 WAITT2: ;~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT2 JNB P0.3,WAITT2 AJMP SETG3 SETG4: SETB 0BH ;調(diào)日時閃標(biāo)志 GWAIT4: LCALL DISPLAY JNB P0.1,GWAIT4 SETG5: LCALL DISPLAY JNB P0.1,SETG6 JNB P0.2,GADDDAY JNB P0.3,JIANDAY AJMP SETG5 GADDDAY: MOV R7,63H ;日加一 LCALL ADD1 MOV 63H,A CJNE A,#32H,GADDDAY1 MOV 63H,#01H JIANDAY: MOV R7,63H ;日減一 LCALL JIAN1 MOV 63H,A CJNE A,#00H,GADDDAY1 MOV 63H,#31H GADDDAY1: MOV 32H,#86H ;日值送人1302 MOV 31H,63H LCALL WRITE MOV R0,63H LCALL DIVIDE ;日分離，送顯示緩存 MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2 WAITT3: ;~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT3 JNB P0.3,WAITT3 AJMP SETG5 SETG6: SETB 0CH ;調(diào)星期時閃標(biāo)志 GWAIT6: LCALL DISPLAY JNB P0.1,GWAIT6 SETG7: LCALL DISPLAY JNB P0.1,SETG8 JNB P0.2,GADDWEEK JNB P0.3,JIANWEEK AJMP SETG7 GADDWEEK: MOV R7,64H ;星期加一 LCALL ADD1 MOV 64H,A CJNE A,#07H,GADDWEEK1 MOV 64H,#00H AJMP GADDWEEK1 JIANWEEK: MOV R7,64H ;星期減一 LCALL JIAN1 MOV 64H,A CJNE A,#00H,GADDWEEK1 MOV 64H,#06H GADDWEEK1: MOV 32H,#8AH MOV 31H,64H ;星期值送人1302 LCALL WRITE MOV R0,64H LCALL DIVIDE ;星期值分離送顯示緩存 MOV 48H,R1 MOV 78H,R1 WAITT4: ;~~~~~~~~~~~~~~~ ~~~~~ LCALL DISPLAY JNB P0.2,WAITT4 JNB P0.3,WAITT4 AJMP SETG7 SETG8: SETB 0DH ;調(diào)小時時閃標(biāo)志 GWAIT8: LCALL DISPLAY JNB P0.1,GWAIT8 SETG9: LCALL DISPLAY JNB P0.1,SETG10 JNB P0.2,GADDHOUR JNB P0.3,JIANHOUR AJMP SETG9 GADDHOUR: MOV R7,62H ;小時加一 LCALL ADD1 MOV 62H,A CJNE A,#24H,GADDHOUR1 MOV 62H,#00H AJMP GADDHOUR1 JIANHOUR: MOV R7,62H ;小時減一 LCALL JIAN1 MOV 62H,A CJNE A,#00H,GADDHOUR1 MOV 62H,#23H GADDHOUR1: MOV 32H,#84H ;小時值送人1302 MOV 31H,62H LCALL WRITE MOV R0,62H LCALL DIVIDE ;小時值分離送顯示緩存 MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2 WAITT5: ;~~~~~~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT5 JNB P0.3,WAITT5 AJMP SETG9 SETG10: SETB 0EH ;調(diào)分時候閃標(biāo)志 GWAIT10: LCALL DISPLAY JNB P0.1,GWAIT10 SETG11: LCALL DISPLAY JNB P0.1,SETGOUT JNB P0.2,GADDMINTUE JNB P0.3,JIANMINTUE AJMP SETG11 GADDMINTUE: MOV R7,61H ;分鐘加一 LCALL ADD1 MOV 61H,A CJNE A,#60H,GADDMINTUE1 MOV 61H,#00H AJMP GADDMINTUE1 JIANMINTUE: MOV R7,61H ;分鐘減一 LCALL JIAN1 MOV 61H,A CJNE A,#00H,GADDMINTUE1 MOV 61H,#59H GADDMINTUE1: MOV 32H,#82H ;分鐘值送人1302 MOV 31H,61H LCALL WRITE MOV R0,61H LCALL DIVIDE ;分鐘值分離送顯示緩存 MOV 72H,R1 MOV 42H,R1 MOV 73H,R2 MOV 43H,R2 WAITT6: LCALL DISPLAY JNB P0.2,WAITT6 JNB P0.3,WAITT6 AJMP SETG11 SETGOUT: LCALL DISPLAY JNB P0.1,SETGOUT LCALL GENGXIAN MOV 32H,#80H MOV 31H,#00H ;1302晶振開始振蕩 LCALL WRITE MOV 32H,#8EH MOV 31H,#80H ;禁止寫入1302 LCALL WRITE CLR 08H CLR 09H CLR 0AH CLR 0BH CLR 0CH CLR 0DH CLR 0EH CLR 0FH CLR ET1 ;關(guān)閃中斷 CLR TR1 LJMP MAIN1 ;;閃動調(diào)時程序~~~~~~~~~~~~~~~~ INTT1: PUSH ACC PUSH PSW GFLASH: CPL 0FH JB 0FH,GFLASH1 MOV 7CH,4CH ;全部顯示 MOV 7BH,4BH MOV 7AH,4AH MOV 79H,49H MOV 78H,48H MOV 77H,47H MOV 76H,46H MOV 75H,45H MOV 74H,44H MOV 73H,43H MOV 72H,42H MOV 71H,41H MOV 70H,40H GFLASHOUT: POP PSW POP ACC RETI GFLASH1: JB 0AH,GFLASH2 ;調(diào)年閃 MOV 7CH,#0FH MOV 7BH,#0FH AJMP GFLASHOUT GFLASH2: JB 0BH,GFLASH3 ;調(diào)月閃 MOV 7AH,#0FH MOV 79H,#0FH AJMP GFLASHOUT GFLASH3: JB 0CH,GFLASH4 ;調(diào)日閃 MOV 77H,#0FH MOV 76H,#0FH AJMP GFLASHOUT GFLASH4: JB 0DH,GFLASH5 ;調(diào)星期閃 MOV 78H,#0FH AJMP GFLASHOUT GFLASH5: JB 0EH,GFLASH6 ;調(diào)小時閃 MOV 75H,#0FH MOV 74H,#0FH AJMP GFLASHOUT GFLASH6: MOV 73H,#0FH ;調(diào)分鐘閃 MOV 72H,#0FH AJMP GFLASHOUT ;加一程序~~~~~~~~~~~~~~~~~~~~~~~~~ ADD1: MOV A,R7 ADD A,#1 DA A RET ;減一程序~~~~~~~~~~~~~~~~~~~~~~~~~ JIAN1: MOV A,R7 DEC A CJNE A,#4FH,KK1 MOV A,#49H KK1: CJNE A,#3FH,KK2 MOV A,#39H KK2: CJNE A,#2FH,KK3 MOV A,#29H KK3: CJNE A,#1FH,KK4 MOV A,#19H KK4: CJNE A,#0FH,KK5 MOV A,#09H KK5: RET ;分離程序~~~~~~~~~~~~~~~~~~~~~~~~~ DIVIDE: MOV A,R0 ANL A,#0FH MOV R1,A MOV A,R0 SWAP A ANL A,#0FH MOV R2,A RET ;寫1302程序~~~~~~~~~~~~~~~~~~~~~~~~~~ WRITE: CLR SCLK NOP SETB RST NOP MOV A,32H MOV R4,#8 WRITE1: RRC A ;送地址給1302 NOP NOP CLR SCLK NOP NOP NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP DJNZ R4,WRITE1 CLR SCLK NOP MOV A,31H MOV R4,#8 WRITE2: RRC A NOP ;送數(shù)據(jù)給1302 CLR SCLK NOP NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP DJNZ R4,WRITE2 CLR RST RET ;讀1302程序~~~~~~~~~~~~~~~~~~~~~~~~~ READ: CLR SCLK NOP NOP SETB RST NOP MOV A,32H MOV R4,#8 READ1: RRC A ;送地址給1302 NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP NOP CLR SCLK NOP NOP DJNZ R4,READ1 MOV R4,#8 READ2: CLR SCLK NOP ;從1302中讀出數(shù)據(jù) NOP NOP MOV C,IO NOP NOP NOP NOP NOP RRC A NOP NOP NOP NOP SETB SCLK NOP DJNZ R4,READ2 MOV 31H,A CLR RST RET ;BCD碼轉(zhuǎn)換為10進(jìn)制程序~~~~~ BCD_10: MOV A,R0 ANL A,#0FH MOV R1,A ;高位×10， 加低位 MOV A,R0 SWAP A ANL A,#0FH MOV B,#10 MUL AB ADD A,R1 MOV R0,A RET ;查一年數(shù)據(jù)程序~~~~~~~~~~~~~~~~ CHECKMONTH: LCALL BCD_10 ;農(nóng)歷和公歷為同一年， ;NEW此時R2中的值為FFH時，R3有值，否則為0 NEW: NOP M1: MOV A,R2 ;R2減一月天數(shù) CLR C SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.6,SM11 MOV A,R2 CLR C SUBB A,#30 MOV R1,A SM11: JC SM12 MOV A,R1 ;R2減1月天數(shù)，夠減 MOV R2,A ;轉(zhuǎn)二月 AJMP M2 SM12: CJNE R3,#00H,M13 ;R2減1月天數(shù) LJMP Y1 ;不夠減，判R3為0否 M13: MOV A,R2 ;不為0，R3加到R2中 ADD A,R3 ;再讓一月減 MOV R2,A ;還不夠，則轉(zhuǎn)Y1 MOV R3,#00H AJMP M1 M2: CLR C ;R2減一月天數(shù)，夠減 MOV A,R2 ;轉(zhuǎn)三月 SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.5,M21 MOV A,R2 CLR C SUBB A,#30 MOV R1,A M21: JC M22 MOV A,R1 ;R2減2月天數(shù)，夠減 MOV R2,A AJMP MM2 M22: CJNE R3,#00H,M23 ;R2減2月天數(shù) LJMP Y2 ;不夠減，判，R3為0否 M23: MOV A,R2 ;不為0，R3加到R2中 ADD A,R3 ;再讓二月減 MOV R2,A ;還不夠，則轉(zhuǎn)Y2 MOV R3,#00H AJMP M2 MM2: LCALL CHECKRE ;查2月，如果不為閏月 CJNE A,#02H,M3 ;轉(zhuǎn)3月 RM2: MOV A,R4 ANL A,#0FH JNZ RM21 MOV A,R2 CLR C SUBB A,#30 MOV R1,A AJMP RM22 RM21: MOV A,R2 CLR C SUBB A,#29 MOV R1,A RM22: JC RM23 MOV A,R1 ;R2減閏2月天數(shù)，夠減 MOV R2,A ;轉(zhuǎn)3月 AJMP M3 RM23: CJNE R3,#00H,RM24 ;R2減閏2月天數(shù) LJMP RY2 ;不夠減，判，R3為0否 RM24: MOV A,R2 ;不為0，R3加到R2中 ADD A,R3 ;再讓閏2月減 MOV R3,#00H ;還不夠，則轉(zhuǎn)RY2 SUBB A,#30 MOV R1,A M121: CJNE R3,#00H,M122 ;R2減12月天數(shù) LJMP Y12 ;不夠減，判，R3為0否 M122: MOV A,R2 ;不為0，R3加到R2中 ADD A,R3 ;再讓12月減 MOV R2,A ;還不夠，則轉(zhuǎn)Y12 MOV R3,#00H LJMP M12 Y1: MOV A,R2 MOV R0,A ;R2中為日的值 LCALL D_BCD MOV 56H,A MOV 57H,#01H CLR F0 ;非閏月 LJMP S_PLAY Y2: CJNE R2,#00H,Y21 MOV A,R6 ;R2中為0，則為前一個月 MOV 56H,#29H ;的的最后一天 JB ACC.6,Y22 MOV 56H,#30H Y22: MOV 57H,#01H CLR F0 LJMP S_PLAY Y21: MOV A,R2 MOV R0,A ;R2中為日的值 LCALL D_BCD MOV 56H,A MOV 57H,#02H CLR F0 LJMP S_PLAY RY2: CJNE R2,#00H,RY21 MOV 56H,#29H ;R2中為0，則為前一個月 MOV A,R6 ;的的最后一天 JB ACC.5,RY22 MOV 56H,#30H RY22: MOV 57H,#02H CLR F0 LJMP S_PLAY RY21: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#02H SETB F0 ;閏月 LJMP S_PLAY Y3: CJNE R2,#00H,Y31 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#02H,Y32 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ANL A,#0FH ;R2中為0，則為前一個月 JNZ Y33 ;的的最后一天 MOV 56H,#30H MOV 57H,#02H SETB F0 LJMP S_PLAY Y33: MOV 57H,#02H SETB F0 LJMP S_PLAY Y32: MOV 56H,#29H ;前一個月不是閏月 MOV A,R6 JB ACC.5,Y34 MOV 56H,#30H Y34: MOV 57H,#02H CLR F0 LJMP S_PLAY Y31: MOV A,R2 MOV R0,A ;R2中為日的值 LCALL D_BCD MOV 56H,A MOV 57H,#03H CLR F0 LJMP S_PLAY RY3: CJNE R2,#00H,RY31 MOV 56H,#29H MOV A,R6 JB ACC.4,RY32 ;R2中為0，則為前一個月 MOV 56H,#30H ;的的最后一天 RY32: MOV 57H,#03H CLR F0 LJMP S_PLAY RY31: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#03H SETB F0 LJMP S_PLAY Y4: CJNE R2,#00H,Y41 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#03H,Y42 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ;R2中為0，則為前一個月 ANL A,#0FH ;的最后一天 JNZ Y43 MOV 56H,#30H MOV 57H,#03H SETB F0 LJMP S_PLAY Y43: MOV 57H,#03H SETB F0 LJMP S_PLAY Y42: MOV 56H,#29H ;前一個月不是閏月 MOV A,R6 JB ACC.4,Y44 MOV 56H,#30H Y44: MOV 57H,#03H CLR F0 LJMP S_PLAY Y41: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#04H CLR F0 LJMP S_PLAY RY4: CJNE R2,#00H,RY41 MOV 56H,#29H ;R2中為0，則為前一個月 MOV A,R6 ;的的最后一天 JB ACC.2,RY42 MOV 56H,#30H RY42: MOV 57H,#04H CLR F0 LJMP S_PLAY RY41: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#04H SETB F0 LJMP S_PLAY Y5: CJNE R2,#00H,Y51 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#04H,Y52 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ;R2中為0，則為前一個月 ANL A,#0FH ;的最后一天 JNZ Y53 MOV 56H,#30H MOV 57H,#04H SETB F0 LJMP S_PLAY Y53: MOV 57H,#04H SETB F0 LJMP S_PLAY Y52: MOV 56H,#29H ;前一個月不是閏月 MOV A,R6 JB ACC.2,Y54 MOV 56H,#30H Y54: MOV 57H,#04H CLR F0 LJMP S_PLAY Y51: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#05H CLR F0 LJMP S_PLAY RY5: CJNE R2,#00H,RY51 MOV 56H,#29H ;R2中為0，則為前一個月 MOV A,R6 ;的最后一天 JB ACC.1,RY52 MOV 56H,#30H RY52: MOV 57H,#05H CLR F0 LJMP S_PLAY RY51: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#05H SETB F0 LJMP S_PLAY Y6: CJNE R2,#00H,Y61 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#05H,Y62 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ;R2中為0，則為前一個月 ANL A,#0FH ;的最后一天 JNZ Y63 MOV 56H,#30H MOV 57H,#05H SETB F0 LJMP S_PLAY Y63: MOV 57H,#05H SETB F0 LJMP S_PLAY Y62: MOV 56H,#29H ;前一個月不是閏月 MOV A,R6 JB ACC.1,Y64 MOV 56H,#30H Y64: MOV 57H,#05H CLR F0 LJMP S_PLAY Y61: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#06H CLR F0 LJMP S_PLAY RY6: CJNE R2,#00H,RY61 MOV 56H,#29H ;R2中為0，則為前一個月 MOV A,R6 ;的最后一天 JB ACC.0,RY62 MOV 56H,#30H RY62: MOV 57H,#06H CLR F0 LJMP S_PLAY RY61: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#06H SETB F0 LJMP S_PLAY Y7: CJNE R2,#00H,Y71 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#06H,Y72 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ;R2中為0，則為前一個月 ANL A,#0FH ;的最后一天 JNZ Y73 MOV 56H,#30H MOV 57H,#06H SETB F0 LJMP S_pLAY Y73: MOV 57H,#06H SETB F0 LJMP S_PLAY Y72: MOV 56H,#29H ;前一個月不是閏月 MOV A,R6 JB ACC.0,Y74 MOV 56H,#30H Y74: MOV 57H,#06H CLR F0 LJMP S_PLAY Y71: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#07H CLR F0 LJMP S_PLAY RY7: CJNE R2,#00H,RY71 MOV 56H,#29H ;R2中為0，則為前一個月 MOV A,R5 ;的最后一天 JB ACC.6,RY72 MOV 56H,#30H RY72: MOV 57H,#07H CLR F0 LJMP S_PLAY RY71: MOV A,R2 ;R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,#07H SETB F0 LJMP S_PLAY Y8: CJNE R2,#00H,Y81 LCALL CHECKRE ;查前一個月是否為閏月 CJNE A,#07H,Y82 MOV 56H,#29H ;前一個月是閏月 MOV A,R4 ;R2中為0，則為前一個月 ANL A,#0FH ;的最后一天 JNZ Y83 MOV 56H,#30H MOV 57H,#07H SETB F0 LJMP S_PLAY Y83: MOV 57H,#07H SETB F0 LJMP S_PLAY Y82: MOV 56H,#29H ;前一個月不是閏月 MOV A,R5 JB ACC.6,Y84 MOV 56H,#30H Y84: MOV 57H,#07H CLR F0 LJMP S_PLAY Y81: MOV A,R2 ;R2中為日的值 DL1MS: MOV R6,#14H DL1: MOV R7,#19H DL2: DJNZ R7,DL2 DJNZ R6,DL1 RET ;數(shù)據(jù)表~~~~~~~~~~~~~~~~~~~`~~ TAB: DB35,15H,51H,00H,23,11H,52H,41H,42,12H,65H,00H DB31,11H,32H,00H,21,42H,52H,21H,39,52H,25H,00H DB28,25H,04H,71H,48,66H,42H,00H,37,33H,22H,00H DB25,15H,24H,51H,44,05H,52H,00H,33,22H,65H,00H DB22,21H,25H,41H,40,24H,52H,00H,30,52H,42H,91H DB49,55H,05H,00H,38,26H,44H,00H,27,53H,50H,60H DB 46,53H,24H,00H,35,25H,54H,00H,24,41H,52H,41H DB42,45H,25H,00H,31,24H,52H,00H,21,51H,12H,21H DB40,55H,11H,00H,28,26H,21H,61H,47,26H,61H,00H DB36,13H,31H,00H,25,05H,31H,51H,43,12H,54H,00H DB33,51H,25H,00H,22,42H,25H,31H,41,32H,22H,00H DB 30,55H,02H,71H,49,55H,22H,00H,38,26H,62H,00H DB27,13H,64H,60H,45,13H,32H,00H,34,12H,55H,00H DB23,10H,53H,51H,42,22H,45H,00H,31,52H,22H,00H DB21,52H,44H,21H,40,55H,44H,00H,29,26H,50H,71H DB47,26H,64H,00H,36,25H,32H,00H,25,23H,32H,50H DB 44,44H,55H,00H,32,24H,45H,00H,22,55H,11H,30H END