资源描述：
《为 六位数码管时钟程序倚天版直接使用.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、为六位数码管时钟程序倚天版直接使用,p3.2,p3.3,p3.4,p3.5四键控制！转载自无线电杂志2003年第10期。强烈推荐，实测24小时误差5秒。详细说明见无线电杂志2003年第10期（注意，有少许改动）;实用单片机电子钟的制作;主程序（MAIN），如下：ORG0000HAJMPMAINORG000BHAJMPTIMEORG0300HMAIN: mov20h,#00h MOV21H,#00HMOV22H,#00HMOV23H,#00HMOVIP,#02H;IP,IE初始化MOVIE,#82HMOVTMOD,#01H;设定定时器工作方式?MOVTL0,#0B0HMOVTH0,
2、#3CHSETBTR0;启动定时?MOVSP,#40H;重设堆栈指针NEXT:LCALLDISP;调用显示子程序?LCALLKEY;调用按键检测子程序JZNEXT;LCALLANKEY;调用按键处理子程序SJMPNEXT;重新循环NOPNOPNOP;定时中断处理程序：TIME:PUSHACC;保护现场PUSHPSWMOVTL0,#0B4H;赋定时初值MOVTH0,#3CHINC20H;MOVA,20HCJNEA,#20,RETI1MOV20H,#00H;一秒钟时间到MOVA,21HADDA,#01HDAAMOV21H,ACJNEA,#60H,RETI1MOV21H,#00H;一分
3、钟时间到MOVA,22HADDA,#01HDAAMOV22H,ACJNEA,#60H,RETI1MOV22H,#00H;一小时时间到MOVA,23HADDA,#01HDAAMOV23H,ACJNEA,#24H,RETI1MOV23H,#00H;到时间达到24小时,清零.RETI1:POPPSW;恢复现场POPACCRETI;中断返回?NOPNOP;显示子程序DISP:ANL2FH,#10H;处理小数点MOVA,21H;处理秒21H-->2DH,2EHANLA,#0FHORLA,2FHMOV2FH,AMOVA,21H ANLA,#0F0HSWAPAMOV2EH,AANL2DH,#1
4、0HMOVA,22H;处理分钟22H-->2CH,2DHANLA,#0FHORLA,2DHMOV2DH,AMOVA,22HANLA,#0F0HSWAPAMOV2CH,AANL2BH,#10HMOVA,23H;处理小时23H-->2AH,2BHANLA,#0FHORLA,2BHMOV2BH,AMOVA,23HANLA,#0F0HSWAPAMOV2AH,AMOVR0,#2FH;显示偏移量MOVR3,#06HMOVDPTR,#TABLEMOVA,#0BFHLOOP1:MOVB,A;MOVP2,aMOVA,@R0MOVCA,@A+DPTRMOVP0,a;送显示MOVR2,#80H;延时D
5、JNZR2,$DECR0MOVA,BRRADJNZR3,LOOP1;循环显示RETTABLE:db28h,7eh,0a2h,62h,74h,61h,21h;不带小数点DB7ah,20h,60h,00,00,00,00,00,00DB8H,5eH,82H,42H,54H,41H,1H,5aH;带小数点DB00H,40H,00,00,00,00,00,00NOPNOP;按键判断程序KEY:MOVP3,#0FFH;MOVA,P3CPLAANLA,#3CHJZRETX;无键按下则返回LCALLDISP;LCALLDISPMOVA,P3CPLAANLA,#3CHJZRETX;键盘去抖动。M
6、OVR6,A;将键值存入R6。LOOP2:LCALLDISP;MOVA,P3CPLAANLA,#3CHJNZLOOP2;等待键释放MOVA,R6RETX:RETNOPNOP;按键处理子程序ANKEY:CLREA;关中断LX:MOVA,R6JBACC.2,L1;是功能键转L1JBACC.3,L2;是确认键转L2JBACC.4,L3;是减1键转L3JNBACC.5,L12;不是增1键，转L12JB2BH.4,L6;判断使哪一位（时、分、秒）的值加1JB2DH.4,L8JB2FH.4,L9L12:LCALLDISP LCALLDISPLCALLKEY;判断有无键按下。JZL12LJMP
7、LXL2:MOV25H,#00H;确认键处理程序CLR2BH.4CLR2DH.4CLR2FH.4SETBEARETL3:JB2BH.4,L61;增一键处理程序JB2DH.4,L81JB2FH.4,L91AJMPL12L1:MOVA,25H;功能键处理程序JZLB1JBACC.0,LB2JBACC.1,LB3JNBACC.2,L12LB1:MOV25H,#01H;25H单元是标志位，（25H）=01H调节时单元的值SETB2BH.4 CLR2DH.4CLR2FH.4AJMPL12L
