【正文】 調 陰 歷 調 陽 歷暫 停延 時開 啟 定 時=1?=1?=1?YYYNNN圖 4　中斷 1 程序流程圖 圖 5　外部按鍵程序流程圖成都電子機械高等專科學校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）23附錄2（電子萬年歷程序）ORG 0000HLJMP MAINORG 000BH ；定時器 T1入口地址LJMP CTCO1ORG 001BH ；定時器 T2入口地址LJMP CTCO2ORG 0030HMAIN:MOV 30H,01HMOV 31H,00HMOV 32H,05HMOV 33H,00HMOV 34H,07HMOV 35H,00H ；顯示初始化MOV 40H,05HMOV 41H,01HMOV 42H,03HMOV 43H,00HMOV 44H,07HMOV 45H,00H ；顯示初始化MOV R3,10MOV R4,10MOV TMOD,11HMOV TH0,3CHMOV TL0,0B0HMOV TH1,3CHMOV TL1,0B0H成都電子機械高等專科學校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）24SETB EASETB ET0SETB TR0SETB ET1SETB TR1NEXT:JB ,MMM ；判 1？LCALL DISPLAY1 ；調陽歷顯示程序MMM:LACLL DEALY ；調用延時程序LCALL DISPLAY2 ；調陰歷顯示程序JB ,WWW ；判位 1？SJMP NEXT ；中斷返回WWW:CLR EA ；暫停JB ,Q ；判 1？CLR EA ；暫停Q:SETB EA ；開啟定時SJMP NEXTCTCO1:PUSH ACC ；開啟中斷 1PUSH PSWDJNZ R3,BACK1 ；減 1不為 0轉移MOV R3,10HINC 30HMOV A,31HCJNE A,03H,LOOP9 ；判斷十位是否等于 3？MOV A,30HCJNE A,02H,BACK1 ；判斷個位是否等于 01？MOV 30H,01HMOV 31H,00HSJMP BACK1LOOP9:MOV A,30H成都電子機械高等?？茖W校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）25CJNE A,0AH,BACK1 ；判斷個位是否等于10？INC 31H ；十位加 1MOV A,31HMOV 30H,00H ；個位清 0SJMP BACK1BACK1:MOV TH0,3CHMOV TL0,0B0H ；重裝初值，恢復現(xiàn)場POP PSWPOP ACCRETI ；中斷返回CTCO2:PUSH ACC ；開啟中斷 2PUSH PSWDJNZ R4,BACK2MOV R4,10INC 40HMOV A,42HCJNE A,04H,LOOP1 ；判斷百位是否等于4？MOV A,41HCJNE A,02H,LOOP3 ；判斷十位是否等于1？MOV A,40HCJNE A,07H,BACK2 ；判斷個位是否等于6？MOV 40H,05HMOV 41H,01HMOV 42H,03HSJMP BACK2成都電子機械高等專科學校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）26LOOP1:MOV A,41HCJNE A,03H,LOOP3 ；判斷十位是否等于3？MOV A,40HCJNE A,02H,BACK2 ；判斷個位是否等于1？INC 42H ；百位置 1MOV 41H,00H ；十位清 0MOV 40H,01H ；個位置 1SJMP BACK2LOOP2:MOV A,40HCJNE A,0AH,BACK2 ；判斷個位是否等于10？INC 41H ；十位加 1MOV 40H,00H ；個位清 0SJMP LOOP1LOOP3:MOV A,40HCJNE A,0AH,BACK2 ；判斷個位是否等于10？INC 41H ；十位加 1MOV 40H,00H ；個位清 0SJMP BACK2BACK2:MOV TH1,3CHMOV TL1,0B0H ；重裝初值POP PSWPOP ACCRETI ；子程序返回DISPLAY1:MOV R0,30H ；陽歷顯示程序MOV R2,01H成都電子機械高等?？茖W校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）27MOV DPTR ,TABL1:MOV A,@R0MOVC A,@A+DPTRCJNE R2,04H,K2ORL A,80H ；顯示小數(shù)點K2:CJNE R2,16H,K1 ；不顯示ORL A,80HK1:MOV P0,A ；段碼送到 P0端口MOV P2,R2 ；位碼送到 P2端口LCALL DEALY ；調用延時程序INC R0MOV A,R2JB ,L2RL A ；左移位碼MOV R2,ASJMP L1L2:RET ；子程序返回DISPLAY2:MOV R0,40H ；陰歷顯示程序MOV R5,01HMOV DPTR,TABL3:MOV A,@R0MOVC A,@A+DPTRCJNE R5,04H,K9ORL A,80HK9:CJNE R5,16H,K8ORL A,80HK8:MOV P0,A ；段碼送到 P0端口MOV P2,R5 ；位碼送到 P2端口LCALL DEALY成都電子機械高等?？茖W校成教院畢業(yè)論文（設計）　 （基 于 51 單 片 機 的 電 子 日 歷 設 計）28INC R0MOV A,R5JB ,L4RL A ；左移位碼MOV R5,ASJMP L3L4:RETTAB:DB 3FH,06H,5BH,4FH,66H,6DH ；查表顯示程序DB 7DH,07H,7FH,6FH,77H,7CHDB 39H,5EH,79H,71H,00HDEALY:MOV R6,05HLL2:MOV R7,200LL1:DJNZ R7,LL1DJNZ R6,LL2RET ；子程序返回END ；結束