基于单片机数字时钟程序.txt

基于单片机数字时钟程序 该数字钟能方便地调节时钟、时间、定时时间等

//  基于单片机数字时钟程序

　　该数字钟可实现精度误差≤ 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 equ 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 　　　　　;中断数据地址
　　　　　　　count_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 　　　　　　;时间格式处理，码型变化等 
　　　　　　　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 　　　　　　　　　;禁止蜂鸣器 
　　　　　　　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,#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　　　　　　　　　　 ;为分单元加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,tend　　　　;当前分不等于定时的分单元，返回
　　　　　　　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 　　　　　　　　 ;数码显示
　　　　　　　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 　　　　　　　　　;取得当前需要转换的数据