HOUR EQU 40H ;存放時信息的單元 
MINUTE EQU 41H ;存放分信息的單元 
SECOND EQU 42H ;存放秒信息的單元 
NUM EQU 43H ;存放T0溢出次數的單元 
ORG 0000H ;程序入口 
AJMP MAIN 
ORG 0030H ;主程序入口 
MAIN:MOV SP,#60H ;指定堆棧棧底 
MOV HOUR,#00H 
MOV MINUTE,#00H 
MOV SECOND,#00H ;將時、分、秒分別清零 
MOV NUM,#0 
MOV TMOD,#01H ;設T0工作于方式1，用于定時 
MOV TH0,#4CH ;設置T0的初始值 
MOV TL0,#00H 
MOV IE,#00H ;關中斷 
SETB TR0 ;開啟定時器T0 
LOOP:NOP 
NOP 
ACALL DISPLAY ;調用顯示子程序 
NOP 
NOP 
LOOP1:JB TF0,TIME ;等待定時溢出 
LJMP LOOP1 
TIME:CLR TR0 ;關閉定時器 
PUSH DPL ;保護現場 
PUSH DPH 
PUSH ACC 
MOV TH0,#4CH ;重新設置T0的值 
MOV TL0,#00H 
SETB TR0 ;開啟T0 
MOV A,NUM 
INC A ;溢出次數+1 
MOV NUM,A 
CJNE A,#0AH,TT1 ;檢測鍵盤 
MOV P1,#0FH ;設鍵盤初值 
MOV R0,#04H ;延時消抖 
LCALL DELAY 
JNB P1.0,T0C1 ;為0表示P1.0按下,轉T0C1調整秒 
JNB P1.1,T0C2 ;為0表示P1.1按下,轉T0C2調整分 
JNB P1.2,T0C3 ;為0表示P1.2按下，轉T0C3調整時 
TT1: CJNE A,#140,RR4 
MOV NUM,#00H 
T0C1:MOV A,SECOND 
INC A ;秒單元內容加1 
DA A ;調整為BCD碼 
MOV SECOND,A 
CJNE A,#60H,RR4 ;不為60秒繼續等待 
setb flag: 
clr flag 
RR1: MOV SECOND,#00H ;為60秒將秒單元清零 
T0C2:MOV A,MINUTE 
INC A ;分單元內容加1 
DA A ;調整為BCD碼 
MOV MINUTE,A 
CJNE A,#60H,RR4 ;不為60分繼續等待 
RR2: MOV MINUTE,#00H ;為60分，分單元清零 
T0C3:MOV P1,#0F0H ; 1小時閃一次 
LCALL DELAY ;延時 
MOV P1,#0FH 
MOV A,HOUR 
INC A ;時單元內容加1 
DA A ;調整為BCD碼 
MOV HOUR,A 
CJNE A,#24H,RR4 ;不為24小時繼續等待 
RR3: MOV HOUR,#00H ;為24小時，時單元清零 
RR4: POP ACC ;恢復現場 
POP DPH 
POP DPL 
LJMP LOOP 
DELAY:MOV R1,#10H ;延時子程序 
DELAY1:MOV R2,#20H 
DJNZ R2,$ 
DJNZ R1,DELAY1 
DJNZ R0,DELAY 
RET 
DISPLAY:MOV DPTR,#TAB ;送表頭基地址 
MOV A,HOUR 
ANL A,#0FH ;屏蔽時高位 
MOVC A,@A+DPTR ;查時高位 
MOV P0,A 
CLR P2.6 ;開顯示 
MOV R0,#1 ;延時消除鬼影 
LCALL DELAY 
SETB P2.6 ;關顯示 
MOV A,HOUR 
ANL A,#0F0H 
SWAP A 
MOVC A,@A+DPTR 
MOV P0,A 
CLR P2.7 
MOV R0,#1 
LCALL DELAY 
SETB P2.7 
MOV A,MINUTE 
ANL A,#0FH 
MOVC A,@A+DPTR 
MOV P0,A 
CLR P2.4 
MOV R0,#1 
LCALL DELAY 
SETB P2.4 
MOV A,MINUTE 
ANL A,#0F0H 
SWAP A 
MOVC A,@A+DPTR 
MOV P0,A 
CLR P2.5 
MOV R0,#1 
LCALL DELAY 
SETB P2.5 
MOV A,SECOND 
ANL A,#0FH 
MOVC A,@A+DPTR 
MOV P0,A 
CLR P2.2 
MOV R0,#1 
LCALL DELAY 
SETB P2.2 
MOV A,SECOND 
ANL A,#0F0H 
SWAP A 
MOVC A,@A+DPTR 
MOV P0,A 
CLR P2.3 
MOV R0,#1 
LCALL DELAY 
SETB P2.3 
RET 
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H 
END