汇编数字钟-8位数码管显示

汇编数字钟(8位数码管显示)这款数字钟是笔者亲自试验过的作品，电路图和程序都经过优化，供爱好者制作参考。显示格式依然是23-59-59（同样是小时十位如果为0则不显示），调整时间增加了一只按钮，通过调整选择键SET_KEY选择调整位，选中位开始闪烁，此时再按增加键ADD_KEY或减少键DEC_KEY调整选中位，如果长按ADD_KEY或DEC_KEY，系统识别后则进行调时快进，此时停止闪烁，方便人眼观察。同时还增加了调秒功能：如果选中位是秒，则按增加键或减少键都是将秒清零。汇编程序设计：/**************************************************************程序名称：51单片机8位数码管数字钟汇编程序简要说明：实现24小时制电子钟，8位数码管显示，显示时分秒显示格式：23-59-59（小时十位如果为0则不显示）通过3只按键来调整时间调整选择键SET_KEY：P1.0；通过选择键选择调整位，选中位闪烁增加键ADD_KEY：P1.1；按一次使选中位加1减少键DEC_KEY；P1.2；按一次使选中位减1如果长按ADD_KEY或DEC_KEY，识别后则进行调时快进，此时停止闪烁如果选中位是秒，则按增加键或减少键都是将秒清零P0口输出数码管段选信号，P2口输出数码管位选信号。晶振12M编写：JiangX.net最后更新：08/12/31晚**************************************************************/ORG0000H;程序入口地址LJMPSTARTORG000BH;定时器0中断入口地址LJMPTIMER_0ORG0300H/*****程序开始，初始化*****/START:SETB48H;使用一个bit位用于调时闪烁标志SETB47H;使用一个bit位用于产生脉冲用于调时快进时基MOVR1,#0;调整选择键功能标志：0正常走时、1调时、2调分、3调秒MOV20H,#00H;用于控制秒基准时钟源的产生MOV21H,#00H;清零秒寄存器MOV22H,#00H;清零分寄存器MOV23H,#00H;清零时寄存器MOV24H,#00H;用于控制调时闪烁的基准时钟的产生MOVIP,#02H;IP,IE初始化MOVIE,#82HMOVTMOD,#01H;设定定时器0工作方式1MOVTH0,#3CHMOVTL0,#0B0H;赋定时初值，定时50msSETBTR0;启动定时器0MOVSP,#40H;重设堆栈指针/*****主程序*****/MAIN:LCALLDISPLAY;调用显示子程序LCALLKEY_SCAN;调用按键检测子程序JZMAIN;无键按下则返回重新循环LCALLSET_KEY;调用选择键处理子程序JB46H,MAIN;如果已进行长按调整（调时快进），则不再执行下面的单步调整LCALLADD_KEY;调用增加键处理子程序，加一LCALLDEC_KEY;调用减少键处理子程序，减一LJMPMAIN;重新循环/*****定时器中断服务程序*****/TIMER_0:PUSHACCPUSHPSW;保护现场MOVTH0,#3CHMOVTL0,#0B0H;重新赋定时初值CPL47H;产生脉冲用于调时快进时基INC24HMOVA,24HCJNEA,#10,ADD_TIME;产生0.5秒基准时钟，用于调时闪烁CPL48H;取反调时闪烁标志位MOV24H,#00HADD_TIME:;走时INC20HMOVA,20HCJNEA,#20,RETI1;产生1秒基准时钟MOV20H,#00H;一秒钟时间到，清零20HMOVA,21HADDA,#01HDAA;作十进制调整MOV21H,ACJNEA,#60H,RETI1MOV21H,#00H;一分钟到MOVA,22HADDA,#01HDAAMOV22H,ACJNEA,#60H,RETI1MOV22H,#00H;一小时到MOVA,23HADDA,#01HDAAMOV23H,ACJNEA,#24H,RETI1MOV23H,#00H;到24点,清零小时RETI1:POPPSWPOPACC;恢复现场RETI;中断返回/*****显示处理*****/DISPLAY:MOVA,21H;秒ANLA,#0FHMOV2FH,A;转换出秒个位，存入2FHMOVA,21HANLA,#0F0HSWAPAMOV2EH,A;转换出秒十位，存入2EHJB46H,MIN;如果长按按键（调时快进），则跳过闪烁处理程序CJNER1,#3,MIN;如果R1为3，闪烁秒位待调整JB48H,MINMOV2FH,#0AH;使该位为10，查表得到使该位不显示的输出MOV2EH,#0AHMIN:MOVA,22H;分ANLA,#0FHMOV2DH,A;转换出分个位，存入2DHMOVA,22HANLA,#0F0HSWAPAMOV2CH,A;转换出分十位，存入2CHJB46H,HOUR;如果长按按键（调时快进），则跳过闪烁处理程序CJNER1,#2,HOUR;如果R1为2，闪烁分位待调整JB48H,HOURMOV2DH,#0AH;使该位为10，查表得到使该位不显示的输出MOV2CH,#0AHHOUR:MOVA,23H;时ANLA,#0FHMOV2BH,A;转换出时个位，存入2BHMOVA,23HANLA,#0F0HSWAPAMOV2AH,A;转换出时十位，存入2AHJB46H,DISP;如果长按按键（调时快进），则跳过闪烁处理程序CJNER1,#1,DISP;如果R1为1，闪烁时位待调整JB48H,DISPMOV2BH,#0AH;使该位为10，查表得到使该位不显示的输出MOV2AH,#0AH/*****数码管动态扫描显示*****/DISP:MOVDPTR,#TABLEMOVA,2FHMOVCA,@A+DPTRMOVP0,ACLRP2.7LCALLDELAYSETBP2.7;显示秒个位MOVA,2EHMOVCA,@A+DPTRMOVP0,ACLRP2.6LCALLDELAYSETBP2.6;显示秒十位MOVA,#0BFHMOVP0,ACLRP2.5LCALLDELAYSETBP2.5;显示“-”MOVA,2DHMOVCA,@A+DPTRMOVP0,ACLRP2.4LCALLDELAYSETBP2.4;显示分个位MOVA,2CHMOVCA,@A+DPTRMOVP0,ACLRP2.3LCALLDELAYSETBP2.3;显示分十位MOVA,#0BFHMOVP0,ACLRP2.2LCALLDELAYSETBP2.2;显示“-”MOVA,2BHMOVCA,@A+DPTRMOVP0,ACLRP2.1LCALLDELAYSETBP2.1;显示时个位MOVDPTR,#TABLE1;该位使用TABLE1以消除前置0MOVA,2AHMOVCA,@A+DPTRMOVP0,ACLRP2.0LCALLDELAYSETBP2.0;显示时十位RET/*****按键检测子程序*****/KEY_SCAN:CLR46H;关闭长按调整（调时快进）标志MOVP1,#0FFH;将P1口设置成输入状态MOVA,P1CPLAANLA,#07H;P1口低3位连接3个按键，只判断该3位JZEXIT_KEY;无键按下则返回LCALLDELAY;延时去抖动MOVA,P1;重新判断CPLAANLA,#07HJZEXIT_KEY;键盘去抖动MOVR5,A;临时将键值存入R5MOVR4,#00H;用于控制调时快进速度;设置为00H是为了在进入长按处理前加长延时区分用户的长按与短按，防止误快进LOOP:;进入长按处理LCALLDISPLAY;使长按时显示正常MOVA,P1CPLAANLA,#07HJB47H,LOOP1INCR4;调时快进间隔时间基准加1LOOP1:CJNER1,#03H,LOOP2;如果调秒时长按，则不处理LJMPLOOP3LOOP2:CJNER4,#99H,LOOP3MOVR4,#70H;确认用户长按后，重新设定起始值，加快调时快进速度SETB46H;长按调整（调时快进）标志LCALLADD_KEYLCALLDEC_KEYLOOP3:JNZLOOP;等待键释放MOVA,R5;输出键值RETEXIT_KEY:RET/*****延时子程序*****/DELAY:MOVR7,#150DJNZR7,$RET/*****选择键处理子程序*****/SET_KEY:CJNER5,#01H,EXIT;选择键键值INCR1;调整选择功能标志加一CJNER1,#4,EXITMOVR1,#0MOV24H,#00H;调时闪烁基准清零RET/*****增加键处理子程序*****/ADD_KEY:CJNER5,#02H,EXIT;增加键键值CJNER1,#01H,NEXT1;选择键功能标志为1，调时，否则跳出MOVA,23HADDA,#01HDAAMOV23H,ACJNEA,#24H,EXITMOV23H,#00HNEXT1:CJNER1,#02H,NEXT2;选择键功能标志为2，调分，否则跳出MOVA,22HADDA,#01HDAAMOV22H,ACJNEA,#60H,EXITMOV22H,#00HNEXT2:CJNER1,#03H,EXIT;选择键功能标志为3，调秒，否则跳出MOV21H,#00H;如增加键按下直接清零秒RET/*****减少键处理子程序*****/DEC_KEY:CJNER5,#04H,EXIT;减少键键值CJNER1,#01H,NEXT3;选择键功能标志为1，调时，否则跳出MOVA,23HADDA,#99HDAAMOV23H,ACJNEA,#99H,EXITMOV23H,#23HNEXT3:CJNER1,#02H,NEXT4;选择键功能标志为2，调分，否则跳出MOVA,22HADDA,#99HDAAMOV22H,ACJNEA,#99H,EXITMOV22H,#59HNEXT4:CJNER1,#03H,EXIT;选择键功能标志为3，调秒，否则跳出MOV21H,#00H;如较少键按下直接清零秒RET/*****万用返回子程序*****/EXIT:RET/*****数码管字形编码表*****/TABLE:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH;字形显示编码TABLE1:DB0FFH,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH;小时位的十位数编码，该位如果为0则不显示END;程序结束