【正文】 TART: 。 串行輸出，方式0 MOV TMOD,10H 。允許寫1302 LCALL WRITE MOV 32H,90H MOV 31H,0A6H 。主程序~~~~~~~~~~~~~~~~~~~~~MAIN1: MOV 32H,8DH 。讀出星期 LCALL READ MOV week,31H MOV 32H,89H 。讀出日 LCALL READ MOV day,31H MOV 32H,85H 。讀出分鐘 LCALL READ MOV mintue,31H MOV 32H,81H 。~~~~~~~~~~~~分離緩存~~~~~~~~ MOV R0,year 。月分離，送顯示緩存 LCALL DIVIDE MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2 MOV R0,day 。小時分離，送顯示緩存 LCALL DIVIDE MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2 MOV R0,mintue 。秒分離，送顯示緩存 LCALL DIVIDE MOV 70H,R1 MOV 40H,R1 MOV 71H,R2 MOV 41H,R2 CLR EA LCALL TOUTOU SETB EA LCALL DISPLAY LCALL GENGXIAN 。非閏月，,指示燈亮 LJMP MAIN1SETG111: LJMP SETGSSS: clr 。~~~~~~~~~~~~~~ 溫度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 RETCHUSHI: LCALL RESET MOV A,0CCH LCALL WRITE111 MOV A,4EH LCALL WRITE111 MOV A,CONFIG12 LCALL WRITE111 RETRDTEMP: 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 RETRESET:LA: SETB DAT MOV 52H,200LB: CLR DAT DJNZ 52H,LB SETB DAT MOV 52H,30LC: DJNZ 52H,LC CLR C ORL C,DAT JC LB MOV 58H,80LD: ORL C,DAT JC LP DJNZ 58H,LD SJMP LALP: MOV 52H,250LF: DJNZ 52H,LF RETWRITE111: MOV 53H,8W51HA: SETB DAT MOV 54H,8 RRC A CLR DATW52HA: DJNZ 54H,W52HA MOV DAT,C MOV 54H,30W53HA: DJNZ 54H,W53HA DJNZ 53H,W51HA SETB DAT RETERAD111: CLR EA MOV 58H,8RD1A: CLR DAT MOV 54H,6 NOP SETB DATRD2A: DJNZ 54H,RD2A MOV C,DAT RRC A MOV 55H,30RD3A: DJNZ 55H,RD3A DJNZ 58H,RD1A SETB DAT RET。允許寫1302 LCALL WRITE MOV 32H,80H MOV 31H,80H 。~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,GWAITSETG1: LCALL DISPLAY JNB ,SETG2 JNB ,GADDYEAR JNB ,JIANYEAR AJMP SETG1GADDYEAR: MOV R7,66H 。年減一 LCALL JIAN1 MOV 66H,A CJNE A,00H,GADDYEAR1 MOV 66H,51HGADDYEAR1: MOV 32H,8CH 。年分離送顯示緩存 MOV 4BH,R1 MOV 7BH,R1 MOV 4CH,R2 MOV 7CH,R2WAITT1: 。調月時閃標志GWAIT2: LCALL DISPLAY JNB ,GWAIT2SETG3: LCALL DISPLAY JNB ,SETG4 JNB ,GADDMONTH JNB ,JIANMONTH AJMP SETG3GADDMONTH: MOV R7,65H 。月減一 LCALL JIAN1 MOV 65H,A CJNE A,00H,GADDMONTH1 MOV 65H,12HGADDMONTH1: MOV 32H,88H 。月分離，送顯示緩存 MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2WAITT2: 。調日時閃標志GWAIT4: LCALL DISPLAY JNB ,GWAIT4SETG5: LCALL DISPLAY JNB ,SETG6 JNB ,GADDDAY JNB ,JIANDAY AJMP SETG5GADDDAY: MOV R7,63H 。日減一 LCALL JIAN1 MOV 63H,A CJNE A,00H,GADDDAY1 MOV 63H,31HGADDDAY1: MOV 32H,86H 。日分離，送顯示緩存 MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2WAITT3: 。調星期時閃標志GWAIT6: LCALL DISPLAY JNB ,GWAIT6SETG7: LCALL DISPLAY JNB ,SETG8 JNB ,GADDWEEK JNB ,JIANWEEK AJMP SETG7GADDWEEK: MOV R7,64H 。星期減一 LCALL JIAN1 MOV 64H,A CJNE A,00H,GADDWEEK1 MOV 64H,06HGADDWEEK1: MOV 32H,8AH MOV 31H,64H 。星期值分離送顯示緩存 MOV 48H,R1 MOV 78H,R1WAITT4: 。調小時時閃標志GWAIT8: LCALL DISPLAY JNB ,GWAIT8SETG9: LCALL DISPLAY JNB ,SETG10 JNB ,GADDHOUR JNB ,JIANHOUR AJMP SETG9GADDHOUR: MOV R7,62H 。小時減一 LCALL JIAN1 MOV 62H,A CJNE A,00H,GADDHOUR1 MOV 62H,23HGADDHOUR1: MOV 32H,84H 。小時值分離送顯示緩存 MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2WAITT5: 。調分時候閃標志GWAIT10: LCALL DISPLAY JNB ,GWAIT10SETG11: LCALL DISPLAY JNB ,SETGOUT JNB ,GADDMINTUE JNB ,JIANMINTUE AJMP SETG11GADDMINTUE: MOV R7,61H 。分鐘減一 LCALL JIAN1 MOV 61H,A CJNE A,00H,GADDMINTUE1 MOV 61H,59HGADDMINTUE1: MOV 32H,82H 。分鐘值分離送顯示緩存 MOV 72H,R1 MOV 42H,R1 MOV 73H,R2 MOV 43H,R2WAITT6: LCALL DISPLAY JNB ,WAITT6 JNB ,WAITT6 AJMP SETG11SETGOUT: LCALL DISPLAY JNB ,SETGOUT LCALL GENGXIAN MOV 32H,80H MOV 31H,00H 。禁止寫入1302 LCALL WRITE CLR 08H CLR 09H CLR 0AH CLR 0BH CLR 0CH CLR 0DH CLR 0EH CLR 0FH CLR ET1 。閃動調時程序~~~~~~~~~~~~~~~~INTT1: PUSH ACC PUSH PSWGFLASH: CPL 0FH JB 0FH,GFLASH1 MOV 7CH,4CH 。調年閃 MOV 7CH,0FH MOV 7BH,0FH AJMP GFLASHOUTGFLASH2: JB 0BH,GFLASH3 。調日閃 MOV 77H,0FH MOV 76H,0FH AJMP GFLASHOUTGFLASH4: JB 0DH,GFLASH5 。調小時閃 MOV 75H,0FH MOV 74H,0FH AJMP GFLASHOUTGFLASH6: MOV 73H,0FH 。加一程序~~~~~~~~~~~~~~~~~~~~~~~~~ADD1: MOV A,R7 ADD A,1 DA A RET。分離程序~~~~~