【導(dǎo)讀】單片計算機(jī)即單片微型計算機(jī)。由RAM,ROM,CPU構(gòu)成，定時，計數(shù)和多種接口。于一體的微控制器。它體積小，成本低，功能強(qiáng)，廣泛應(yīng)用于智能產(chǎn)業(yè)和工業(yè)自動化。而51系列單片機(jī)是各單片機(jī)中最為典型和最有代表性的一種。過對它的學(xué)習(xí)，應(yīng)用，從而達(dá)到學(xué)習(xí)、設(shè)計、開發(fā)軟、硬的能力?，F(xiàn)代的電子表是基于單片機(jī)的一種計時工具，采用延時程序產(chǎn)。分小時進(jìn)一，滿二十四小時小時清零。從而達(dá)到計時的功能，是人民日常生活不可缺。AT89S52具有以下標(biāo)準(zhǔn)功能：8k字節(jié)Flash，256字節(jié)RAM，32位I/O口線，另外，AT89S52可降至0Hz靜態(tài)邏輯。掉電保護(hù)方式下，RAM內(nèi)容被保存，振蕩器被。凍結(jié)，單片機(jī)一切工作停止，直到下一個中斷或硬件復(fù)位為止。P0口：P0口是一個8位漏極開路的雙向I/O口。對P0端口寫“1”時，引腳用作高阻抗輸入。數(shù)據(jù)存儲器時，P0口也被作為低8位地址/數(shù)據(jù)復(fù)用。P1口：P1口是一個具有內(nèi)部上拉電阻的8位雙向I/O口，

　　

【正文】 MP NINE1 AAA:MOV COUNT,0 。 計時 15 MOV A,SECOND ADD A,01 DA A 。換成 bcd碼以方便顯示 MOV SECOND,A CJNE A,60H,INEAA MOV SECOND,0 MOV A,MIN ADD A,01 DA A MOV MIN,A CJNE A,60H,INEAA MOV MIN,0 MOV A,HOUR ADD A,01 DA A MOV HOUR,A CJNE A,24H,INEAA MOV HOUR,0 MOV A,DAY ADD A,01 DA A MOV DAY,A 。************************判斷平閏年及大小月 MOV A,MONTH CJNE A,02H,TEN6A MOV A,YEAR 。把年由 BCD 碼換成二進(jìn)制碼 ANL A,0F0H SWAP A MOV B,10 MUL AB 16 MOV 24H,A MOV A,YEAR ANL A,0FH ADD A,24H JB ,TEN5A 。二進(jìn)制碼后兩位為 00表示為閏年 JB ,TEN5A MOV 24H,01 MOV A,DAY CJNE A,30H,NINE1 MOV DAY,1 SJMP NINE0 TEN5A:MOV A,DAY CJNE A,29H,NINE1 MOV DAY,1 SJMP NINE0 。**************判斷大小月；大于等于 8 月時雙月為大月，小于 8月時單月為大月 TEN6A:MOV A,MONTH CJNE A,08H,TEN7A TEN7A:JC TEN9A JB 18H,TEN8A MOV A,DAY CJNE A,32H,NINE1 MOV DAY,1 SJMP NINE0 TEN8A:MOV A,DAY CJNE A,31H,NINE1 MOV DAY,1 SJMP NINE0 TEN9A:JNB 18H,TEN10A MOV A,DAY 17 CJNE A,32H,NINE1 MOV DAY,1 SJMP NINE0 TEN10A:MOV A,DAY CJNE A,31H,NINE1 MOV DAY,1 。******************* NINE0:MOV A,MONTH ADD A,01 DA A MOV MONTH,A SETB 05H CJNE A,13H,NINE1 MOV MONTH,1 MOV A,YEAR ADD A,01 DA A MOV YEAR,A NINE1:MOV A,MONTH CJNE A,BM,NINE2 MOV A,DAY CJNE A,BD,NINE2 JNB 05H,NINE2 SETB BS NINE2:RETI 。*****************************************TEN 中斷（ T1）預(yù)置加一程序由 INT0控制其的開啟與關(guān)閉 。*******************判斷預(yù)置項目 TEN:MOV TH1,3CH 18 MOV TL1,0B0H SETB TR1 INC COUNTS MOV A,COUNTS CJNE A,15,TENE MOV COUNTS,0 JB ,RBRB JB ,DAT SJMP TIME DAT: LJMP DATE RBRB:JB ,BDAT LJMP RTIME BDAT:LJMP BDATE TENE:RETI 。**********************預(yù)置時間 TIME: JNB ,TEN1 MOV A,MIN ADD A,01 DA A MOV MIN,A CJNE A,60H,TENA MOV MIN,0 SJMP TENA TEN1:JNB ,TENA MOV A,HOUR ADD A,01 DA A MOV HOUR,A CJNE A,24H,TENA MOV HOUR,0 19 TENA:RETI 。******************預(yù)置日期 DATE:JNB ,TEN3 MOV A,MONTH ADD A,01 DA A MOV MONTH,A CJNE A,13H,TENB MOV MONTH,1 SJMP TENB TEN3:JNB ,TEN4 MOV A,YEAR ADD A,01 DA A MOV YEAR,A SJMP TENB TEN4:JNB ,TENB MOV A,DAY ADD A,01 DA A MOV DAY,A 。***************判斷平閏年 MOV A,MONTH CJNE A,02H,TEN6 MOV A,YEAR ANL A,0F0H SWAP A MOV B,10 MUL AB MOV 24H,A 20 MOV A,YEAR ANL A,0FH ADD A,24H JB ,TEN5 JB ,TEN5 MOV A,DAY CJNE A,30H,TENB MOV DAY,1 SJMP TENB TEN5:MOV A,DAY CJNE A,29H,TENB MOV DAY,1 SJMP TENB 。**************判斷大小月 TEN6:CJNE A,08H,TEN7 TEN7:JC TEN9 JB 18H,TEN8 MOV A,DAY CJNE A,32H,TENB MOV DAY,1 SJMP TENB TEN8:MOV A,DAY CJNE A,31H,TENB MOV DAY,1 SJMP TENB TEN9:JNB 18H,TEN10 MOV A,DAY CJNE A,32H,TENB MOV DAY,1 SJMP TENB 21 TEN10:MOV A,DAY CJNE A,31H,TENB MOV DAY,1 TENB: RETI 。**************************預(yù)置鬧鈴時間 RTIME:JNB ,TEN12 MOV A,RM ADD A,01 DA A MOV RM,A CJNE A,60H,TENC MOV RM,0 SJMP TENC TEN12:JNB ,TENC MOV A,RH ADD A,01 DA A MOV RH,A CJNE A,24H,TENC MOV RH,0 TENC:RETI 。************************預(yù)置生日日期 BDATE:JNB ,TEN14 MOV A,BD ADD A,01 DA A MOV BD,A MOV A,BM CJNE A,02H,TEN15 MOV A,BD 22 CJNE A,30H,TEND MOV BD,1 SJMP TEND TEN15:CJNE A,08H,TEN16 TEN16:JC TEN18 JB 18H,TEN17 MOV A,BD CJNE A,32H,TEND MOV BD,1 SJMP TEND TEN17:MOV A,BD CJNE A,31H,TEND MOV BD,1 SJMP TEND TEN18:JNB 18H,TEN19 MOV A,BD CJNE A,32H,TEND MOV BD,1 SJMP TEND TEN19:MOV A,BD CJNE A,31H,TEND MOV BD,1 SJMP TEND TEN14:JNB ,TEND MOV A,BM ADD A,01 DA A MOV BM,A CJNE A,13H,TEND MOV BM,1 23 TEND:SETB 05H RETI 。*******************************ELEVEN 中斷（ INT0）控制了預(yù)置的開 \關(guān)以及生日信號的清除 ELEVEN:JNB SS,ELEVEN1 。預(yù)置有效時按一次 INT0 關(guān)預(yù)置 CLR SS CLR TR1 SJMP ELEVEN3 ELEVEN1:JNB BS,ELEVEN2 。預(yù)置無效判斷生日信號有效則清除生日信號 CLR 05H CLR BS SJMP ELEVEN3 ELEVEN2:SETB SS 。都無效則令預(yù)置有效 MOV TH1,3CH MOV TL1,0B0H SETB TR1 ELEVEN3:RETI 。***************************************************************TWELVE TWELVE:MOV P1,0 MOV P2,0 DJNZ R0,TWELVE TWELVE1:MOV P1,0 MOV P2,0 DJNZ R0,TWELVE1 RET 24