AT89C51数字电子钟(已测试通过)

1、.：.；AT89C51数字电子钟(已测试经过)该数字钟可实现精度误差 1S/天的变精度时钟，并能方便地调理时钟、时间、定时时间等. led1 bit p1.0 ;LED定义 led2 bit p1.1 led3 bit p1.2 led4 bit p1.3 led5 bit p1.4 led6 bit p1.5 led7 bit p1.6 led8 bit p1.7 s1 bit p0.0 ;数码管位数定义 s2 bit p0.1 s3 bit p0.2 s4 bit p0.3 s5 bit p0.4 s6 bit p0.5 s7 bit p0.6 s8 bit p0.7 led_data e

2、qu p2;数码管定义 key1 bit p3.5 ;按键定义 key2 bit p3.6 key3 bit p3.7 key equ 56h time_h equ 57h ;定时初值高位 time_l equ 58h ;低位 t_h equ 60h;时分秒对应的地址 t_s equ 61h t_m equ 62h time equ 63h ;时钟计数单元 timer_h equ 64h ;定时时单元 timer_m equ 65h;定时分单元 timset bit 00h ;设置时间标志 disstart equ 70h ;显示单元首地址 int_data equ 45h ;中断数据地址 c

3、ount_data equ 44h ;计数单元地址 timer_data equ 43h ;定时地址 ; * 以上为预定义部分 ; * 以下程序开场 org 00h;程序开场地址 jmp main ;跳转到代码开场处 org 1bh;定时器 T1 中断效力程序入口 jmp tim1 org 030h ;主程序开场的地址 30H main:MOV sp,#30h;首先定义堆栈 lcall rest ;初始化 lcall pro_set;设置定时器开场任务 lpp:lcall time_set ;接受用户设置时间 lcall timer;时钟处置 lcall time_pro ;时间格式处置，码型

4、变化等 lcall time_display ;显示 jmp lpp ； * 初始化程序 * rest:MOV a,#00h ;累加器清零 MOV b,#00h MOV p0,#0 ;数码控制止显示 MOV t_h,#0 ;时单元 MOV t_m,#0 ;分单元 MOV t_s,#0 ;秒单元 MOV time,#00h;计数溢出次数，溢出20次为一秒 clr timset ;定时设置标志位，0-添加 1 -减少 MOV timer_h,#12;定时器时单元，设置定时为 12:00 MOV timer_m,#00h ;定时器分单元 MOV p2,#255;制止显示数码管 clr beep ;制

5、止蜂鸣器 ret;前往 ; * 定时器 T1 中断效力程序 * tim1:clr tr1;首先停顿定时操作 MOV th1,time_h ; MOV tl1,time_l inc time ;自增 MOV a,time ;获得溢出次数 cjne a,#20,retend ;假设满20此表示到 1 秒 cpl p1.0 ;取反p1.0,p1.1指示秒钟 cpl p1.1 MOV time,#00h;重新开场等待1秒 inc t_s;秒单元加1 retend:setb tr1 ;定时开场 reti ;中断前往 ; * 设置定时器初始化，定时时间为 50ms * pro_set:MOV dptr,#

6、0000h ;数据指针清零 MOV tmod,#10h;设置定时器1任务在方式1 MOV time_h,#3ch ;计算定时50ms需求的初值 MOV th1,time_h ;保管高位 MOV time_l,#0c1h ;低位 MOV tl1,time_l ;保管低位 setb ea;总的中断允许 setb et1 ;定时器1允许 setb tr1 ;定时器1开场运转 ret ;前往 ; * timer 程序主要完成数据的处置 * timer:MOV a,t_s ;获得秒单元数据 cjne a,#60,tend ;秒不到60前往 MOV t_s,#00h ;去除秒单元 inc t_m ;为分单

7、元加1 MOV a,t_m ;获得分单元数据 cjne a,#60,tend ;分不等于60前往 MOV t_m,#00h;分单元清零 setb beep ;整点短鸣提示 lcall delay ;鸣叫延时 clr beep;停顿蜂鸣器 inc t_h ;同时为时单元加1 MOV a,t_h ;获得时单元数据 cjne a,#24,timetest ;假设不等于24，查看定时 MOV t_h,#00h;时单元清零 jmp tend ;前往 timetest:cjne a,timer_h,tend;不等于定时的时单元，前往 MOV a,t_m;获得定时的分单元 cjne a,timer_m,te

8、nd;当前分不等于定时的分单元，前往 setb beep ;定时到，蜂鸣提示 lcall delay clr beep lcall delay setb beep lcall delay clr beep ;延续发出短音提示 tend:ret;前往 ; * time_display 程序主要为显示时间值用 * time_display: MOV r0,#disstart ;获得显示单元首地址 MOV r1,#01h;从第一个数码管开场 MOV r2,#06h;共6个数码管 dislp:MOV led_data,r0 ;获得当前单元数据 inc r0 ;指向下一个单元 MOV p0,r1 ;数码

9、显示 MOV a,r1 ;为下一个数预备 rl a ;下一个单元 MOV r1,a ;保管 lcall delay5ms ;为了保证数码管亮度， ;但要防止闪烁，延时5ms djnz r2,dislp;反复显示，直到全部数据刷新过 ret ;前往 ; * time_pro 时间处置，主要为 bcd码转换，查表 * time_pro:lcall bcd ;BCD码转换 MOV r0,#disstart;获得显示单元首地址 MOV r2,#06h ;需求转换的个数 prlp:MOV a,r0 ;获得当前需求转换的数据 MOV dptr,#tab_nu;获得表头 MOVc a,a+dptr;获得转换

10、后的数据 MOV r0,a ;存回去 inc r0 ;指向下一个 djnz r2,prlp ;反复转换，直到6个全部完成 ret ;前往 ; * 码型变换 * bcd:MOV r0,#disstart;获得首地址 MOV a,t_s ;获得待转化的低位 MOV b,#10 ;转化进制，假设要进展十进制转换 改为 10 div ab ;计算 A/B MOV r0,b ;第一位转换终了，保管低位转化后的数据 inc r0 ;自增 MOV r0,a ;保管高位 inc r0;取第二个数据地址 MOV a,t_m ;获得第二个需求转换的数据 MOV b,#10 ;十六进制 div ab ;计算 MOV

11、 r0,b ;存低位 inc r0 MOV r0,a ;存高位 inc r0 ;第三位 MOV a,t_h ;获得数据 MOV b,#10 ;十六进制 div ab;计算 MOV r0,b ;存低位 inc r0 MOV r0,a ;存高位 ret ;终了，前往 ;* ;* time_set 设置时间 * ; * * ; * 检测用户按键，1- 设置时单元 2- 设置分单元，3-设置增减方式* ; * 假设需求添加 时，先将方式设置为 添加默以为减，即，按下 KEY3一下， * ; * 然后按 KEY1 ,假设要减少时单元，需求再次按下KEY3，然后按KEY1； * ; * 分的设置也是如此。

12、* ;* time_set:MOV p0,#00h ;制止数码管显示 MOV p2,#255 ;防止按键时闪烁 lcall pro_key ;查找用户按键情况 MOV a,key ;查找键值 jz tsend;假设等于0，表示没用按键，直接前往 cjne a,#1,tset1 ;能否等于1？没有到下一个处置程序 MOV key,#00h;等于1，表示设置时 请零,否那么会引起反复设置 jb timset,tset10;时间设置标志位，1 -减少，0-添加 MOV a,t_h ;标志位 0 ，添加，获得时单元 cjne a,#23,ts1;假设时单元不等于23，转移到添加操作 jmp tsend

13、 ;等于23 直接前往 ts1:inc t_h ;时单元添加1 jmp tsend ;前往 tset10: MOV a,t_h ;这里处置为减少的情况 jz tsend ;假设时单元为0，直接前往 dec t_h ;否那么，数据减1 jmp tsend ;前往，以下关于分的设置一样 tset1:cjne a,#2,tset2 ;假设按键不是 2 那么 转移到下一个处置 MOV key,#00h;是2，表示设置 分 jb timset,tset20;其他同上 MOV a,t_m cjne a,#59, ts2 jmp tsend ts2:inc t_m jmp tsend tset20:MOV

14、a,t_m jz tsend dec t_m jmp tsend tset2:cjne a,#3,tsend ;等于 3 表示设置标志 MOV key,#00h;清零 cpl timset;标志取反 tsend:ret ;前往 ;* 按键处置 读取键盘 * ;参见有关键盘查询的阐明，和前面的有关程序 pro_key:;键盘查询子程序 setb key1 ;首先输出高电平，检测低电平的到来 setb key2;不同电路，能够检测方式不一样 setb key3 jb key1,ke1;假设用户没有按第一个键，到第下个处置部分， MOV key,#1;表示用户按了第一个键 lcall delay20

15、ms ;软件延时，防止干扰 jmp pro_key ;重新查询，直到用户释放按键 ke1:jb key2,ke2;处置第二个按键，假设没有到下一个处置部分 MOV key,#2;以下和第一个处置单元类似。 lcall delay20ms jmp pro_key ke2:jb key3,ke3 MOV key,#3 lcall delay20ms jmp pro_key ke3:ret ;* ;* 定时器 T0 设置 * ;定时器任务在方式1，为提高精度，总定时时间为50ms， ;定时器溢出20次为1秒， pro_timer:MOV tmod,#01h ;设置定时器为定时方式1 MOV th0,

16、#0ffh ;初始化定时初值 MOV tl0,#0a1h ; setb ea ;总中断允许 setb et0 ;定时器0 允许 setb tr0 ;开场定时 ret ;前往 ; * ; * 软件延时 * delay:push psw;保管原来的存放器内容 clr psw.3 ; clr psw.4 ;设置新的存放器组 MOV r0,#2 ;延时参数1 MOV r1,#250 ;延时参数2 MOV r2,#2 ;延时参数3 dl1:djnz r0,dl1 ;延时循环1 MOV r0,#250 ; dl2:djnz r1,dl1 ;延时循环2 MOV r0,#240 ; MOV r1,#248 ;

17、 dl3:djnz r2,dl1 ;延时循环3 nop ;定时精度调整 pop psw ;恢复原来的存放器 ret ;前往 ;* ;* 键盘延时 * delay20ms:push psw clr psw.3 clr psw.4 MOV r0,#250 MOV r1,#40 d20:djnz r0,d20 MOV r0,#250 djnz r1,d20 pop psw ret ;* ;* 延时 5ms * delay5ms:push psw clr psw.3 setb psw.4 MOV r0,#250 MOV r1,#10 d5:djnz r0,d5 MOV r0,#250 djnz r1,d5 pop psw ret ;* ;这是数字显示表格，其中 带小数点的数字比不带小数点的数字大16 ; 比如 0 的显示代码为 0;那么 0.的显示