【正文】 鍵１為向右移；鍵２為加１；鍵３為減１。 　　　　　　　　　　　　　　　 圖－a日期和時(shí)間的修改由3個(gè)按鍵構(gòu)成。R2中為日的值 DL1MS: MOV R6,14HDL1: MOV R7,19HDL2: DJNZ R7,DL2 DJNZ R6,DL1 RET。的最后一天 JNZ Y83 MOV 56H,30H MOV 57H,07H SETB F0 LJMP S_PLAYY83: MOV 57H,07H SETB F0 LJMP S_PLAYY82: MOV 56H,29H 。前一個(gè)月是閏月 MOV A,R4 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,07H SETB F0 LJMP S_PLAYY8: CJNE R2,00H,Y81 LCALL CHECKRE 。R2中為0，則為前一個(gè)月 MOV A,R5 。前一個(gè)月不是閏月 MOV A,R6 JB ,Y74 MOV 56H,30HY74: MOV 57H,06H CLR F0 LJMP S_PLAYY71: MOV A,R2 。R2中為0，則為前一個(gè)月 ANL A,0FH 。查前一個(gè)月是否為閏月 CJNE A,06H,Y72 MOV 56H,29H 。的最后一天 JB ,RY62 MOV 56H,30HRY62: MOV 57H,06H CLR F0 LJMP S_PLAYRY61: MOV A,R2 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,06H CLR F0 LJMP S_PLAYRY6: CJNE R2,00H,RY61 MOV 56H,29H 。的最后一天 JNZ Y63 MOV 56H,30H MOV 57H,05H SETB F0 LJMP S_PLAYY63: MOV 57H,05H SETB F0 LJMP S_PLAYY62: MOV 56H,29H 。前一個(gè)月是閏月 MOV A,R4 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,05H SETB F0 LJMP S_PLAYY6: CJNE R2,00H,Y61 LCALL CHECKRE 。R2中為0，則為前一個(gè)月 MOV A,R6 。前一個(gè)月不是閏月 MOV A,R6 JB ,Y54 MOV 56H,30HY54: MOV 57H,04H CLR F0 LJMP S_PLAYY51: MOV A,R2 。R2中為0，則為前一個(gè)月 ANL A,0FH 。查前一個(gè)月是否為閏月 CJNE A,04H,Y52 MOV 56H,29H 。的的最后一天 JB ,RY42 MOV 56H,30HRY42: MOV 57H,04H CLR F0 LJMP S_PLAYRY41: MOV A,R2 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,04H CLR F0 LJMP S_PLAYRY4: CJNE R2,00H,RY41 MOV 56H,29H 。的最后一天 JNZ Y43 MOV 56H,30H MOV 57H,03H SETB F0 LJMP S_PLAYY43: MOV 57H,03H SETB F0 LJMP S_PLAYY42: MOV 56H,29H 。前一個(gè)月是閏月 MOV A,R4 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,03H SETB F0 LJMP S_PLAYY4: CJNE R2,00H,Y41 LCALL CHECKRE 。R2中為0，則為前一個(gè)月 MOV 56H,30H 。前一個(gè)月不是閏月 MOV A,R6 JB ,Y34 MOV 56H,30HY34: MOV 57H,02H CLR F0 LJMP S_PLAYY31: MOV A,R2 MOV R0,A 。R2中為0，則為前一個(gè)月 JNZ Y33 。查前一個(gè)月是否為閏月 CJNE A,02H,Y32 MOV 56H,29H 。R2中為日的值 MOV R0,A LCALL D_BCD MOV 56H,A MOV 57H,02H SETB F0 。R2中為0，則為前一個(gè)月 MOV A,R6 。的的最后一天 JB ,Y22 MOV 56H,30HY22: MOV 57H,01H CLR F0 LJMP S_PLAYY21: MOV A,R2 MOV R0,A 。非閏月 LJMP S_PLAYY2: CJNE R2,00H,Y21 MOV A,R6 。還不夠，則轉(zhuǎn)Y12 MOV R3,00H LJMP M12Y1: MOV A,R2 MOV R0,A 。不為0，R3加到R2中 ADD A,R3 。R2減12月天數(shù) LJMP Y12 。再讓閏2月減 MOV R3,00H 。不夠減，判，R3為0否RM24: MOV A,R2 。轉(zhuǎn)3月 AJMP M3RM23: CJNE R3,00H,RM24 。轉(zhuǎn)3月RM2: MOV A,R4 ANL A,0FH JNZ RM21 MOV A,R2 CLR C SUBB A,30 MOV R1,A AJMP RM22RM21: MOV A,R2 CLR C SUBB A,29 MOV R1,ARM22: JC RM23 MOV A,R1 。還不夠，則轉(zhuǎn)Y2 MOV R3,00H AJMP M2MM2: LCALL CHECKRE 。不為0，R3加到R2中 ADD A,R3 。R2減2月天數(shù) LJMP Y2 。轉(zhuǎn)三月 SUBB A,29 MOV R1,A MOV A,R6 JB ,M21 MOV A,R2 CLR C SUBB A,30 MOV R1,AM21: JC M22 MOV A,R1 。還不夠，則轉(zhuǎn)Y1 MOV R3,00H AJMP M1M2: CLR C 。不為0，R3加到R2中 ADD A,R3 。R2減1月天數(shù) LJMP Y1 。R2減1月天數(shù)，夠減 MOV R2,A 。NEW此時(shí)R2中的值為FFH時(shí)，R3有值，否則為0NEW: NOPM1: MOV A,R2 。查一年數(shù)據(jù)程序~~~~~~~~~~~~~~~~CHECKMONTH: LCALL BCD_10。BCD碼轉(zhuǎn)換為10進(jìn)制程序~~~~~BCD_10: MOV A,R0 ANL A,0FH MOV R1,A 。送地址給1302 NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP NOP CLR SCLK NOP NOP DJNZ R4,READ1 MOV R4,8READ2: CLR SCLK 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程序~~~~~~~~~~~~~~~~~~~~~~~~~~WRITE: CLR SCLK NOP SETB RST NOP MOV A,32H MOV R4,8WRITE1: RRC A 。減一程序~~~~~~~~~~~~~~~~~~~~~~~~~JIAN1: MOV A,R7 DEC A CJNE A,4FH,KK1 MOV A,49HKK1: CJNE A,3FH,KK2 MOV A,39HKK2: CJNE A,2FH,KK3 MOV A,29HKK3: CJNE A,1FH,KK4 MOV A,19HKK4: CJNE A,0FH,KK5 MOV A,09HKK5: RET。調(diào)分鐘閃 MOV 72H,0FH AJMP GFLASHOUT。調(diào)星期閃 MOV 78H,0FH AJMP GFLASHOUTGFLASH5: JB 0EH,GFLASH6 。調(diào)月閃 MOV 7AH,0FH MOV 79H,0FH AJMP GFLASHOUTGFLASH3: JB 0CH,GFLASH4 。全部顯示 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,40HGFLASHOUT: POP PSW POP ACC RETIGFLASH1: JB 0AH,GFLASH2 。關(guān)閃中斷 CLR TR1 LJMP MAIN1。1302晶振開始振蕩 LCALL WRITE MOV 32H,8EH MOV 31H,80H 。分鐘值送人1302 MOV 31H,61H LCALL WRITE MOV R0,61H LCALL DIVIDE 。分鐘加一 LCALL ADD1 MOV 61H,A CJNE A,60H,GADDMINTUE1 MOV 61H,00H AJMP GADDMINTUE1JIANMINTUE: MOV R7,61H 。~~~~~~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT5 JNB ,WAITT5 AJMP SETG9SETG10: SETB 0EH 。小時(shí)值送人1302 MOV 31H,62H LCALL WRITE MOV R0,62H LCALL DIVIDE 。小時(shí)加一 LCALL ADD1 MOV 62H,A CJNE A,24H,GADDHOUR1 MOV 62H,00H AJMP GADDHOUR1JIANHOUR: MOV R7,62H 。~~~~~~~~~~~~~~~ ~~~~~ LCALL DISPLAY JNB ,WAITT4 JNB ,WAITT4 AJMP SETG7SETG8: SETB 0DH 。星期值送人1302 LCALL WRITE MOV R0,64H LCALL DIVIDE 。星期加一 LCALL ADD1 MOV 64H,A CJNE A,07H,GADDWEEK1 MOV 64H,00H AJMP GADDWEEK1JIANWEEK: MOV R7,64H 。~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT3 JNB ,WAITT3 AJMP SETG5SETG6: SETB 0CH 。日值送人1302 MOV 31H,63H LCALL WRITE MOV R0,63H LCALL DIVIDE 。日加一 LCALL ADD1 MOV 63H,A CJNE A,32H,GADDDAY1 MOV 63H,01HJIANDAY: MOV R7,63H 。~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT