使用单片机制作的6位数字钟

万家正

51单片机作的电子钟程序在很多地方已经有了介绍， 对于单片机学习者而言这个程序基本上是一道门槛，掌握了电子钟程序， 基本上可以说51单片机就掌握了80%。常见的电子钟程序由显示部分， 计算部分， 时钟调整部分构成。
, d, {+ X5 ]) B# ?: M0 i4 r6 X    时钟的基本显示原理：时钟开始显示为0时0分0秒，也就是数码管显示000000，然后每秒秒位加1 ，到9后，10秒位加1，秒位回0。10秒位到5后，即59秒 ，分钟加1，10秒位回0。依次类推，时钟最大的显示值为23小时59分59秒。这里只要确定了1秒的定时时间， 其他位均以此为基准往上累加。
    开始程序定义了秒， 十秒， 分， 十分，小时， 十小时，共6位的寄存器， 分别存在30h，31h，32h，33h，34h，35h单元，便于程序以后调用和理解。
: T5 V% ^! z1 F$ d, ^! e    6个数码管分别显示时、分、秒，一个功能键，可以切换调整时分秒、增加数值、熄灭节电等功能全部集一键。
1 H9 `) }% C& x! H

- B" e; v- ~/ h, C  }  V5 \5 T# U

以下是部分汇编源程序，购买我们产品后我们用光盘将完整的单片机汇编源程序和烧写文件送给客户。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 中断入口程序 ;;  (仅供参考)
/ U& g1 k% a0 l4 O) x;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
2 T- V! k+ H; N( XORG 0000H ;程序执行开始地址
LJMP START ;跳到标号START执行
ORG 0003H ;外中断0中断程序入口
- q1 y8 k2 w; I+ [. D5 W8 Q! s" ^RETI ;外中断0中断返回
ORG 000BH ;定时器T0中断程序入口
4 W1 x: H- M0 M9 fLJMP INTT0 ;跳至INTTO执行
ORG 0013H ;外中断1中断程序入口
6 U0 R7 V  r6 a2 }0 G, lRETI ;外中断1中断返回
ORG 001BH ;定时器T1中断程序入口
' S2 K  ]" Q, p! n; `/ HLJMP INTT1 ;跳至INTT1执行
8 r+ A; @& p; s4 y! b5 e, EORG 0023H ;串行中断程序入口地址
) ]# l+ o1 q2 U# ]RETI ;串行中断程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
' w/ M6 a; _' m9 W;; 主 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
START: MOV R0,#70H ;清70H-7AH共11个内存单元
6 v  M2 S- F; x* |0 @6 y* C1 vMOV R7,#0BH
;clr P3.7 ;
CLEARDISP: MOV @R0,#00H ;
; i, y9 x  E, BINC R0 ;
DJNZ R7,CLEARDISP ;
2 J; l/ S2 Z5 cMOV 20H,#00H ;清20H（标志用）
* E& S+ g" h& B" Q7 zMOV 7AH,#0AH ;放入"熄灭符"数据
MOV TMOD,#11H ;设T0、T1为16位定时器
MOV TL0,#0B0H ;50MS定时初值（T0计时用）
MOV TH0,#3CH ;50MS定时初值
4 f2 z8 e1 y3 V* E% ~MOV TL1,#0B0H ;50MS定时初值（T1闪烁定时用）
MOV TH1,#3CH ;50MS定时初值
SETB EA ;总中断开放
5 r! n2 Y7 i  d0 ?0 N- XSETB ET0 ;答应T0中断
9 K6 r6 Y8 ~9 j% R' z0 q! _SETB TR0 ;开启T0定时器
0 {. Z! K. i* k# K9 \- nMOV R4,#14H ;1秒定时用初值（50MS×20）
START1: LCALL DISPLAY ;调用显示子程序
JNB P3.7,SETMM1 ;P3.7口为0时转时间调整程序
SJMP START1 ;P3.7口为1时跳回START1
SETMM1: LJMP SETMM ;转到时间调整程序SETMM
;
4 z# n4 i0 ?' o! U) S" m" A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 1秒计时程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T0中断服务程序
6 _) l5 V6 S/ U* z9 O% ?INTT0: PUSH ACC ;累加器入栈保护
PUSH PSW ;状态字入栈保护
CLR ET0 ;关T0中断答应
CLR TR0 ;封闭定时器T0
! l% A8 q' i! t( _) \5 Y% `5 U! Z# yMOV A,#0B7H ;中断响应时间同步修正
5 o: A4 X) J5 c/ Z: CADD A,TL0 ;低8位初值修正
MOV TL0,A ;重装初值（低8位修正值）
MOV A,#3CH ;高8位初值修正
9 `7 h6 `& O5 YADDC A,TH0 ;
MOV TH0,A ;重装初值（高8位修正值）
SETB TR0 ;开启定时器T0
9 i6 j1 ~) N3 _( |0 cDJNZ R4, OUTT0 ;20次中断未到中断退出
ADDSS: MOV R4,#14H ;20次中断到（1秒）重赋初值
; R% o7 _# V2 F0 X4 t( h1 ~% xMOV R0,#71H ;指向秒计时单元（71H-72H）
ACALL ADD1 ;调用加1程序（加1秒操作）
9 W7 @" }5 l- {' S  G2 l3 ?MOV A,R3 ;秒数据放入A（R3为2位十进制数组合）
CLR C ;清进位标志
1 @  w# m6 ^" WCJNE A,#60H,ADDMM ;
4 @+ s& |) H/ J3 d* _; NADDMM: JC OUTT0 ;小于60秒时中断退出
, g, H% T0 Z: |" }& sACALL CLR0 ;大于或即是60秒时对秒计时单元清0
MOV R0,#77H ;指向分计时单元（76H-77H）
2 }0 `0 L( _$ x/ iACALL ADD1 ;分计时单元加1分钟
MOV A,R3 ;分数据放入A
CLR C ;清进位标志
: k; g5 G* ^/ b2 d8 qCJNE A,#60H,ADDHH ;
7 H# p# f! [1 R% E& N: M, h' ~1 DADDHH: JC OUTT0 ;小于60分时中断退出
ACALL CLR0 ;大于或即是60分时分计时单元清0
MOV R0,#79H ;指向小时计时单（78H-79H）
  V/ b/ C8 o" @" zACALL ADD1 ;小时计时单元加1小时
" v9 u& j3 R$ q3 FMOV A,R3 ;时数据放入A
& w# S2 ?$ f, Y8 y# w& jCLR C ;清进位标志
CJNE A,#24H,HOUR ;
1 r, ^+ e" H4 i) r1 KHOUR: JC OUTT0 ;小于24小时中断退出
0 a( [9 c3 G0 _5 E) b* uACALL CLR0 ;大于或即是24小时小时计时单元清0
OUTT0: MOV 72H,76H ;中断退出时将分、时计时单元数据移
MOV 73H,77H ;入对应显示单元
' J/ [# l; d8 A: C1 aMOV 74H,78H ;
9 N4 F3 ^! ?" \3 BMOV 75H,79H ;
( @8 ~! w3 N4 v) i( A# _POP PSW ;恢复状态字（出栈）
2 Z- u3 |3 b' C' SPOP ACC ;恢复累加器
7 m: `* b9 K, g  u8 h2 zSETB ET0 ;开放T0中断
RETI ;中断返回
: L, u- d  o+ |$ S9 G9 l/ x;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 闪动调时 程 序 ;;
2 H1 \: o- `3 v;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T1中断服务程序，用作时间调整时调整单元闪烁指示
, \, n+ N2 a# Z6 [2 z, T" fINTT1: PUSH ACC ;中断现场保护
; ^- b1 C) U! UPUSH PSW ;
MOV TL1, #0B0H ;装定时器T1定时初值
MOV TH1, #3CH ;
DJNZ R2,INTT1OUT ;0.3秒未到退出中断（50MS中断6次）
( \5 D5 B' e/ n( t" i/ PMOV R2,#06H ;重装0.3秒定时用初值
CPL 02H ;0.3秒定时到对闪烁标志取反
JB 02H,FLASH1 ;02H位为1时显示单元"熄灭"
6 D: L3 s9 k' w1 D3 GMOV 72H,76H ;02H位为0时正常显示
MOV 73H,77H ;
MOV 74H,78H ;
2 g9 A; A6 G; E7 C& t: lMOV 75H,79H ;
* l: U0 q& N: [! i  CINTT1OUT: POP PSW ;恢复现场
6 u7 E9 }) K$ |& l0 c( a( r/ l3 X: mPOP ACC ;
RETI ;中断退出
FLASH1: JB 01H,FLASH2 ;01H位为1时，转小时熄灭控制
# T+ f: z" }# \MOV 72H,7AH ;01H位为0时，"熄灭符"数据放入分
MOV 73H,7AH ;显示单元（72H-73H），将不显示分数据
MOV 74H,78H ;
MOV 75H,79H ;
AJMP INTT1OUT ;转中断退出
FLASH2: MOV 72H,76H ;01H位为1时，"熄灭符"数据放入小时
4 `3 V5 S5 Q- C( m( T% BMOV 73H,77H ;显示单元（74H-75H），小时数据将不显示
MOV 74H,7AH ;
MOV 75H,7AH ;
AJMP INTT1OUT ;转中断退出
;
4 p) P% ]& Y# d+ J! I;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 [) C" {6 |0 L, y( c5 U* U;; 加1子 程 序 ;;
7 M# d8 y1 L; ?7 ?: O;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  P0 a( B7 o4 `7 \8 _  ?. i. V. k;
9 f8 Y5 `" r  f. vADD1: MOV A,@R0 ;取当前计时单元数据到A
. {# _+ l3 B6 O% _8 U8 RDEC R0 ;指向前一地址
1 \1 |+ Q8 Z" b8 Y# Q% Z* SSWAP A ;A中数据高四位与低四位交换
ORL A,@R0 ;前一地址中数据放入A中低四位
ADD A,#01H ;A加1操作
DA A ;十进制调整
) ^* @8 N- I2 V7 x6 sMOV R3,A ;移入R3寄存器
ANL A,#0FH ;高四位变0
( E; I7 i$ C. j+ V8 K+ m1 K# j, rMOV @R0,A ;放回前一地址单元
( v! y3 Y1 f6 k% x6 ?/ e! ]3 }MOV A,R3 ;取回R3中暂存数据
INC R0 ;指向当前地址单元
' F' U1 v. j% }, oSWAP A ;A中数据高四位与低四位交换
: u9 K& B! j* u0 H( }+ E. }- G; I  ~2 O/ OANL A,#0FH ;高四位变0
MOV @R0,A ;数据放入当削地址单元中
8 B9 g3 i9 X7 l2 E3 |RET ;子程序返回
;
: X  {- X: j  Z1 O% g4 x9 g;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 清零程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;.............
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 时钟调整程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; F, L" _7 J. w% t/ |7 g;当调时按键按下时进入此程序
/ p; J: B1 f  e3 jSETMM: cLR ET0 ;关定时器T0中断
% S$ m9 R  u* x$ C6 tCLR TR0 ;封闭定时器T0
3 z1 a9 b8 K; O) k4 q7 ~- mLCALL DL1S ;调用1秒延时程序
0 k' Z( w+ v2 O! {. S, c3 G, a9 ZJB P3.7,CLOSEDIS ;键按下时间小于1秒，封闭显示（省电）
9 C; z; N$ p: r6 w; m7 t! JMOV R2,#06H ;进入调时状态，赋闪烁定时初值
' p8 [* K9 ~! G# a' A+ r; b0 DSETB ET1 ;答应T1中断
SETB TR1 ;开启定时器T1
SET2: JNB P3.7,SET1 ;P3.7口为0（键未开释），等待
  s$ _9 s! U4 a, USETB 00H ;键开释，分调整闪烁标志置1
SET4: JB P3.7,SET3 ;等待键按下
) ~3 v1 v& J! {& t- cLCALL DL05S ;有键按下，延时0.5秒
JNB P3.7,SETHH ;按下时间大于0.5秒转调小时状态
" n8 }; J( w: k. WMOV R0,#77H ;按下时间小于0.5秒加1分钟操作
6 S0 n8 d0 R; A9 U4 |* a+ G6 {8 fLCALL ADD1 ;调用加1子程序
- P$ U0 o6 ~- t$ }$ M; WMOV A,R3 ;取调整单元数据
' p  J1 ^$ K' G% RCLR C ;清进位标志
0 n6 F+ ]4 O* n' `CJNE A,#60H,HHH ;调整单元数据与60比较
+ z9 @: ?, D, x' x, EHHH: JC SET4 ;调整单元数据小于60转SET4循环
LCALL CLR0 ;调整单元数据大于或即是60时清0
2 R" x! M, Q4 \) [2 ^0 nCLR C ;清进位标志
AJMP SET4 ;跳转到SET4循环
0 [: O: ~# ~8 A. V" b" lCLOSEDIS: SETB ET0 ;省电（LED不显示）状态。开T0中断
SETB TR0 ;开启T0定时器（开时钟）
CLOSE: JB P3.7,CLOSE ;无按键按下，等待。
LCALL DISPLAY ;有键按下，调显示子程序延时削抖
JB P3.7,CLOSE ;是干扰返回CLOSE等待
$ Z" Z0 a0 q, [WAITH: JNB P3.7,WAITH ;等待键开释
3 a0 q2 a: [# f* L7 cLJMP START1 ;返回主程序（LED数据显示亮）
# ]) P- d( b( |! c# GSETHH: CLR 00H ;分闪烁标志清除（进入调小时状态）
SETHH1: JNB P3.7,SET5 ;等待键开释
SETB 01H ;小时调整标志置1
SET6: JB P3.7,SET7 ;等待按键按下
, `; _2 l# y" R  o3 LLCALL DL05S ;有键按下延时0.5秒
JNB P3.7,SETOUT ;按下时间大于0.5秒退出时间调整
MOV R0,#79H ;按下时间小于0.5秒加1小时操作
LCALL ADD1 ;调加1子程序
MOV A,R3 ;
5 V# x/ a. }7 s) G9 ECLR C ;
CJNE A,#24H,HOUU ;计时单元数据与24比较
* b! R; M2 A% v, U/ `, iHOUU: JC SET6 ;小于24转SET6循环
LCALL CLR0 ;大于或即是24时清0操作
AJMP SET6 ;跳转到SET6循环
2 L/ f+ t% ]+ tSETOUT: JNB P3.7,SETOUT1 ;调时退出程序。等待键开释
5 {2 m/ [! C4 @) f: P8 TLCALL DISPLAY ;延时削抖
JNB P3.7,SETOUT ;是抖动，返回SETOUT再等待
CLR 01H ;清调小时标志
CLR 00H ;清调分标志
CLR 02H ;清闪烁标志
CLR TR1 ;封闭定时器T1
2 h0 [# {5 k# S  O6 j) t, zCLR ET1 ;关定时器T1中断
SETB TR0 ;开启定时器T0
SETB ET0 ;开定时器T0中断（计时开始）
LJMP START1 ;跳回主程序
, K; ?7 Y  e0 |/ PSET1: LCALL DISPLAY ;键开释等待时调用显示程序（调分）
AJMP SET2 ;防止键按下时无时钟显示
) K) @! @+ z1 s: Q$ O; VSET3: LCALL DISPLAY ;等待调分按键时时钟显示用
AJMP SET4
  C( R& s2 ?( Y' SSET5: LCALL DISPLAY ;键开释等待时调用显示程序（调小时）
AJMP SETHH1 ;防止键按下时无时钟显示
* Q$ {" X2 M0 {  b- _" |6 w! SSET7: LCALL DISPLAY ;等待调小时按键时时钟显示用
AJMP SET6
# ?( d8 r- o$ [1 H. m4 ~SETOUT1: LCALL DISPLAY ;退出时钟调整时键开释等待
AJMP SETOUT ;防止键按下时无时钟显示
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 显示程序 ;;
+ a% M* |  N  X  `9 C, t1 s;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$$$$$$$$$$$$$$$$$$$$$
2 w4 `/ g. q; c7 G+ k. K8 F* }+ N: _, A;1MS延时程序，LED显示程序用
DL1MS: MOV R6,#14H
( }: Q8 c/ i# C* C1 {DL1: MOV R7,#19H
DL2: DJNZ R7,DL2
1 d! ]' p5 C, N' c& O0 qDJNZ R6,DL1
RET
' \; |; w, x7 \  K;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
" d8 z1 j9 t1 x+ ?- ]$ O2 qDS20MS: ACALL DISPLAY
7 Y; Z% n0 n$ `ACALL DISPLAY
ACALL DISPLAY
- Y% @* y9 I7 Q/ r# \2 K. F: `RET
;延时程序，用作按键时间的长短判定
DL1S: LCALL DL05S
4 H& x9 @6 v) b# T" \7 A7 BLCALL DL05S
7 M8 N- R( s7 vRET
8 q2 I5 @5 k% IDL05S: MOV R3,#20H ;8毫秒*32=0.196秒
+ W/ H- b' ]8 H: kDL05S1: LCALL DISPLAY
$ {( i5 }8 \, a: [DJNZ R3,DL05S1
' q: p9 C& b5 X8 J1 }! cRET
END ;程序结束