【文章內(nèi)容簡介】 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 INTT1START: 。初值 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充電， 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 ,SETG111 JNB F0,SSS setb 。非閏月，,指示燈亮 LJMP MAIN1SETG111: LJMP SETGSSS: clr 。閏月，指示燈不亮 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 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。公歷設置程序~~~~~~~~~~~~~~~~~~~~~SETG : SETB TR1 SETB ET1 MOV 32H,8EH MOV 31H,00H 。允許寫1302 LCALL WRITE MOV 32H,80H MOV 31H,80H 。1302停止振蕩 LCALL WRITEGWAIT: 。~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,GWAITSETG1: LCALL DISPLAY JNB ,SETG2 JNB ,GADDYEAR JNB ,JIANYEAR AJMP SETG1GADDYEAR: MOV R7,66H 。年加一 LCALL ADD1 MOV 66H,A CJNE A,51H,GADDYEAR1 MOV 66H,00H AJMP GADDYEAR1JIANYEAR: MOV R7,66H 。年減一 LCALL JIAN1 MOV 66H,A CJNE A,00H,GADDYEAR1 MOV 66H,51HGADDYEAR1: 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,R2WAITT1: 。~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT1 JNB ,WAITT1 AJMP SETG1SETG2: SETB 0AH 。調(diào)月時閃標志GWAIT2: LCALL DISPLAY JNB ,GWAIT2SETG3: LCALL DISPLAY JNB ,SETG4 JNB ,GADDMONTH JNB ,JIANMONTH AJMP SETG3GADDMONTH: MOV R7,65H 。月加一 LCALL ADD1 MOV 65H,A CJNE A,13H,GADDMONTH1 MOV 65H,01H AJMP GADDMONTH1JIANMONTH: MOV R7,65H 。月減一 LCALL JIAN1 MOV 65H,A CJNE A,00H,GADDMONTH1 MOV 65H,12HGADDMONTH1: 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,R2WAITT2: 。~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT2 JNB ,WAITT2 AJMP SETG3SETG4: SETB 0BH 。調(diào)日時閃標志GWAIT4: LCALL DISPLAY JNB ,GWAIT4SETG5: LCALL DISPLAY JNB ,SETG6 JNB ,GADDDAY JNB ,JIANDAY AJMP SETG5GADDDAY: MOV R7,63H 。日加一 LCALL ADD1 MOV 63H,A CJNE A,32H,GADDDAY1 MOV 63H,01HJIANDAY: MOV R7,63H 。日減一 LCALL JIAN1 MOV 63H,A CJNE A,00H,GADDDAY1 MOV 63H,31HGADDDAY1: 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,R2WAITT3: 。~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB ,WAITT3 JNB ,WAITT3 AJMP SETG5SETG6: SETB 0CH 。調(diào)星期時閃標志GWAIT6: LCALL DISPLAY JNB ,GWAIT6SETG7: LCALL DISPLAY JNB ,SETG8 JNB ,GADDWEEK JNB ,JIANWEEK AJMP SETG7GADDWEEK: MOV R7,64H 。星期加一 LCALL ADD1 MOV 64H,A CJNE A,07H,GADDWEEK1 MOV 64H,00H AJMP GADDWEEK1JIANWEEK: MOV R7,64H 。星期減一 LCALL JIAN1 MOV 64H,A CJNE A,00H,GADDWEEK1 MOV 64H,06HGADDWEEK1: MOV 32H,8AH MOV 31H,64H 。星期值送人1302 LCALL WRITE MOV R0,64H LCALL DIVIDE 。星期值分離送顯示緩存 MOV 48H,R1 MOV 78H,R1WAITT4: 。~~~~~~~~~~~~~~~ ~~~~~ LCALL DISPLAY JNB ,WAITT4 JNB ,WAITT4 AJMP SETG7SETG8: SETB 0DH