453535367335.txt

基于89C51单片机的电子钟源代码,供新学者参考.

设计题目 电子钟 
具有6个led 显示器，分别显示 时，分，秒 
要求能设置时间，并且时间精度，每天误差小于30秒。 
主要任务 
1) 设计控制系统数字电子电路部分的电原理图 
2) 按照电原理图制作实物（制线路版，焊接） 
3) 编制单片机控制程序 
4) 综合调式 
以上设计先把电原理图和程序用电子邮件寄来，然后再做样机调式。 
程序范列 
;实用单片机电子钟的制作 
;主程序（MAIN），如下： 
ORG 0000H 
AJMP MAIN 
ORG 000BH 
AJMP TIME 

ORG 0300H 
MAIN: 
mov 20h,#00h 
MOV 21H,#00H 
MOV 22H,#00H 
MOV 23H,#00H 
MOV IP,#02H ;IP,IE初始化 
MOV IE,#82H 
MOV TMOD,#01H ;设定定时器工作方式? 
MOV TL0,#0B0H 
MOV TH0,#3CH 
SETB TR0 ;启动定时? 
MOV SP,#40H ;重设堆栈指针 
NEXT: LCALL DISP ;调用显示子程序? 
LCALL KEY ;调用按键检测子程序 
JZ NEXT ; 
LCALL ANKEY ;调用按键处理子程序 
SJMP NEXT ;重新循环 
NOP 
NOP 
NOP 
;定时中断处理程序： 
TIME: PUSH ACC ;保护现场 
PUSH PSW 
MOV TL0,#0B4H ;赋定时初值 
MOV TH0,#3CH 
INC 20H ; 
MOV A,20H 
CJNE A,#20,RETI1 
MOV 20H,#00H ;一秒钟时间到 
MOV A,21H 
ADD A,#01H 
DA A 
MOV 21H,A 
CJNE A,#60H,RETI1 
MOV 21H,#00H ;一分钟时间到 
MOV A,22H 
ADD A,#01H 
DA A 
MOV 22H,A 
CJNE A,#60H,RETI1 
MOV 22H,#00H ;一小时时间到 
MOV A,23H 
ADD A,#01H 
DA A 
MOV 23H,A 
CJNE A,#24H,RETI1 
MOV 23H,#00H ;到时间达到24小时,清零. 
RETI1: POP PSW ;恢复现场 
POP ACC 
RETI ;中断返回? 
NOP 
NOP 

;显示子程序 
DISP: ANL 2FH,#10H ;处理小数点 
MOV A,21H ;处理秒21H-->2DH,2EH 
ANL A,#0FH 
ORL A,2FH 
MOV 2FH,A 
MOV A,21H 
ANL A,#0F0H 
SWAP A 
MOV 2EH,A 
ANL 2DH,#10H 
MOV A,22H ;处理分钟22H-->2CH,2DH 
ANL A,#0FH 
ORL A,2DH 
MOV 2DH,A 
MOV A,22H 
ANL A,#0F0H 
SWAP A 
MOV 2CH,A 
ANL 2BH,#10H 
MOV A,23H ;处理小时23H-->2AH,2BH 
ANL A,#0FH 
ORL A,2BH 
MOV 2BH,A 
MOV A,23H 
ANL A,#0F0H 
SWAP A 
MOV 2AH,A 
MOV R0,#2FH ;显示偏移量 
MOV R3,#06H 
MOV DPTR,#TABLE 
MOV A,#0BFH 
LOOP1: MOV B,A ; 
MOV P2,a 
MOV A,@R0 
MOVC A,@A+DPTR 
MOV P0,a ;送显示 
MOV R2,#80H ;延时 
DJNZ R2,$ 
DEC R0 
MOV A,B 
RR A 
DJNZ R3,LOOP1 ;循环显示 
RET 

TABLE: db 28h,7eh,0a2h,62h,74h,61h,21h ;不带小数点 
DB 7ah,20h,60h,00,00,00,00,00,00 
DB 8H,5eH,82H,42H,54H,41H,1H,5aH ;带小数点 
DB 00H,40H,00,00,00,00,00,00 
NOP 
NOP 
;按键判断程序 
KEY: MOV P3,#0FFH ; 
MOV A,P3 
CPL A 
ANL A,#3CH 
JZ RETX ;无键按下则返回 
LCALL DISP ; 
LCALL DISP 
MOV A,P3 
CPL A 
ANL A,#3CH 
JZ RETX ;键盘去抖动。 
MOV R6,A ;将键值存入R6。 
LOOP2: LCALL DISP ; 
MOV A,P3 
CPL A 
ANL A,#3CH 
JNZ LOOP2 ;等待键释放 
MOV A,R6 
RETX: RET 
NOP 
NOP 
;按键处理子程序 
ANKEY: CLR EA ;关中断 
LX: MOV A,R6 
JB ACC.2,L1 ;是功能键转L1 
JB ACC.3,L2 ;是确认键转L2 
JB ACC.4,L3 ;是减1键转L3 
JNB ACC.5,L12 ;不是增1键，转L12 
JB 2BH.4,L6 ;判断使哪一位（时、分、秒）的值加1 
JB 2DH.4,L8 
JB 2FH.4,L9 

L12: LCALL DISP 
LCALL DISP 
LCALL KEY ;判断有无键按下。 
JZ L12 
LJMP LX 

L2: MOV 25H,#00H ;确认键处理程序 
CLR 2BH.4 
CLR 2DH.4 
CLR 2FH.4 
SETB EA 
RET 

L3: JB 2BH.4,L61 ;增一键处理程序 
JB 2DH.4,L81 
JB 2FH.4,L91 
AJMP L12 

L1: MOV A,25H ;功能键处理程序 
JZ LB1 
JB ACC.0,LB2 
JB ACC.1,LB3 
JNB ACC.2,L12 
LB1: MOV 25H,#01H ;25H单元是标志位，（25H）=01H调节时单元的值 
SETB 2BH.4 
CLR 2DH.4 
CLR 2FH.4 
AJMP L12 

LB3: MOV 25H,#04H ;25H单元是标志位，（25H）=01H调节秒单元的值 
SETB 2FH.4 
CLR 2DH.4 
CLR 2BH.4 
AJMP L12 

LB2: MOV 25H,#02H ;25H单元是标志位，（25H）=01H调节分单元的值 
SETB 2DH.4 
CLR 2BH.4 
CLR 2FH.4 
AJMP L12 

L61: AJMP L611 ; 
L81: AJMP L811 ; 
L91: AJMP L911 
L6: MOV A,23H ;时加一 
ADD A,#01H 
DA A 
MOV 23H,A 
CJNE A,#24H,L15 
L15: JC L112 
MOV 23H,#00H 
L112: AJMP L12 

L8: MOV A,22H ;分加一 
ADD A,#01H 
DA A 
MOV 22H,A 
CJNE A,#60H,L16 
L16: JC L112 
MOV 22H,#00H 
AJMP L12 

L9: MOV A,21H ;秒加一 
ADD A,#01H 
DA A 
MOV 21H,A 
CJNE A,#60H,L17 
L17: JC L112 
MOV 21H,#00H 
AJMP L12 

L611: MOV A,23H ;时减一 
ADD A,#99H 
DA A 
MOV 23H,A 
CJNE A,#99H,L112 
MOV 23H,#23H 
AJMP L12 

L811: MOV A,22H ;分减一 
ADD A,#99H 
DA A 
MOV 22H,A 
CJNE A,#99H,L112 
MOV 22H,#59H 
AJMP L12 

L911: MOV A,21H ;秒减一 
ADD A,#99H 
DA A 
MOV 21H,A 
CJNE A,#99H,L112 
MOV 21H,#59H 
AJMP L12 
NOP 
NOP 
END