AT89C2051时钟程序

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AT89C2051时钟程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定时器T0、T1溢出周期为50MS，T0为秒计数用，T1为调整时闪烁用，;P3.7为调整按钮，P1口为字符输出口，采用共阳显示管。;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;中断入口程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ORG0000H;程序执行开始地址LJMPSTART;跳到标号START执行ORG0003H;外中断0中断程序入口RETI;外中断0中断返回ORG000BH;定时器T0中断程序入口LJMPINTT0;跳至INTTO执行ORG0013H;外中断1中断程序入口RETI;外中断1中断返回ORG001BH;定时器T1中断程序入口LJMPINTT1;跳至INTT1执行ORG0023H;串行中断程序入口地址RETI;串行中断程序返回;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;主程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;START:MOVR0,#70H;清70H-7AH共11个内存单元MOVR7,#0BH;CLEARDISP:MOV@R0,#00H;INCR0;DJNZR7,CLEARDISP;MOV20H,#00H;清20H（标志用）MOV7AH,#0AH;放入熄灭符数据MOVTMOD,#11H;设T0、T1为16位定时器MOVTL0,#0B0H;50MS定时初值（T0计时用）MOVTH0,#3CH;50MS定时初值MOVTL1,#0B0H;50MS定时初值（T1闪烁定时用）MOVTH1,#3CH;50MS定时初值SETBEA;总中断开放SETBET0;允许T0中断SETBTR0;开启T0定时器MOVR4,#14H;1秒定时用初值（50MS×20）START1:LCALLDISPLAY;调用显示子程序JNBP3.7,SETMM1;P3.7口为0时转时间调整程序SJMPSTART1;P3.7口为1时跳回START1SETMM1:LJMPSETMM;转到时间调整程序SETMM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;1秒计时程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;T0中断服务程序INTT0:PUSHACC;累加器入栈保护PUSHPSW;状态字入栈保护CLRET0;关T0中断允许CLRTR0;关闭定时器T0MOVA,#0B7H;中断响应时间同步修正ADDA,TL0;低8位初值修正MOVTL0,A;重装初值（低8位修正值）MOVA,#3CH;高8位初值修正ADDCA,TH0;MOVTH0,A;重装初值（高8位修正值）SETBTR0;开启定时器T0DJNZR4,OUTT0;20次中断未到中断退出ADDSS:MOVR4,#14H;20次中断到（1秒）重赋初值MOVR0,#71H;指向秒计时单元（71H-72H）ACALLADD1;调用加1程序（加1秒操作）MOVA,R3;秒数据放入A（R3为2位十进制数组合）CLRC;清进位标志CJNEA,#60H,ADDMM;ADDMM:JCOUTT0;小于60秒时中断退出ACALLCLR0;大于或等于60秒时对秒计时单元清0MOVR0,#77H;指向分计时单元（76H-77H）ACALLADD1;分计时单元加1分钟MOVA,R3;分数据放入ACLRC;清进位标志CJNEA,#60H,ADDHH;ADDHH:JCOUTT0;小于60分时中断退出ACALLCLR0;大于或等于60分时分计时单元清0MOVR0,#79H;指向小时计时单元（78H-79H）ACALLADD1;小时计时单元加1小时MOVA,R3;时数据放入ACLRC;清进位标志CJNEA,#24H,HOUR;HOUR:JCOUTT0;小于24小时中断退出ACALLCLR0;大于或等于24小时小时计时单元清0OUTT0:MOV72H,76H;中断退出时将分、时计时单元数据移MOV73H,77H;入对应显示单元MOV74H,78H;MOV75H,79H;POPPSW;恢复状态字（出栈）POPACC;恢复累加器SETBET0;开放T0中断RETI;中断返回INTT1:PUSHACC;中断现场保护PUSHPSW;MOVTL1,#0B0H;装定时器T1定时初值MOVTH1,#3CH;DJNZR2,INTT1OUT;0.3秒未到退出中断（50MS中断6次）MOVR2,#06H;重装0.3秒定时用初值CPL02H;0.3秒定时到对闪烁标志取反JB02H,FLASH1;02H位为1时显示单元熄灭MOV72H,76H;02H位为0时正常显示MOV73H,77H;MOV74H,78H;MOV75H,79H;INTT1OUT:POPPSW;恢复现场POPACC;RETI;中断退出FLASH1:JB01H,FLASH2;01H位为1时，转小时熄灭控制MOV72H,7AH;01H位为0时，熄灭符数据放入分MOV73H,7AH;显示单元（72H-73H），将不显示分数据MOV74H,78H;MOV75H,79H;AJMPINTT1OUT;转中断退出FLASH2:MOV72H,76H;01H位为1时，熄灭符数据放入小时MOV73H,77H;显示单元（74H-75H），小时数据将不显示MOV74H,7AH;MOV75H,7AH;AJMPINTT1OUT;转中断退出;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;加1子程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ADD1:MOVA,@R0;取当前计时单元数据到ADECR0;指向前一地址SWAPA;A中数据高四位与低四位交换ORLA,@R0;前一地址中数据放入A中低四位ADDA,#01H;A加1操作DAA;十进制调整MOVR3,A;移入R3寄存器ANLA,#0FH;高四位变0MOV@R0,A;放回前一地址单元MOVA,R3;取回R3中暂存数据INCR0;指向当前地址单元SWAPA;A中数据高四位与低四位交换ANLA,#0FH;高四位变0MOV@R0,A;数据放入当削地址单元中RET;子程序返回;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;清零程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;对计时单元复零用CLR0:CLRA;清累加器MOV@R0,A;清当前地址单元DECR0;指向前一地址MOV@R0,A;前一地址单元清0RET;子程序返回;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;时钟调整程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;当调时按键按下时进入此程序SETMM:cLRET0;关定时器T0中断CLRTR0;关闭定时器T0LCALLDL1S;调用1秒延时程序JBP3.7,CLOSEDIS;键按下时间小于1秒，关闭显示（省电）MOVR2,#06H;进入调时状态，赋闪烁定时初值SETBET1;允许T1中断SETBTR1;开启定时器T1SET2:JNBP3.7,SET1;P3.7口为0（键未释放），等待SETB00H;键释放，分调整闪烁标志置1SET4:JBP3.7,SET3;等待键按下LCALLDL05S;有键按下，延时0.5秒JNBP3.7,SETHH;按下时间大于0.5秒转调小时状态MOVR0,#77H;按下时间小于0.5秒加1分钟操作LCALLADD1;调用加1子程序MOVA,R3;取调整单元数据CLRC;清进位标志CJNEA,#60H,HHH;调整单元数据与60比较HHH:JCSET4;调整单元数据小于60转SET4循环LCALLCLR0;调整单元数据大于或等于60时清0CLRC;清进位标志AJMPSET4;跳转到SET4循环CLOSEDIS:SETBET0;省电（LED不显示）状态。开T0中断SETBTR0;开启T0定时器（开时钟）CLOSE:JBP3.7,CLOSE;无按键按下，等待。LCALLDISPLAY;有键按下，调显示子程序延时削抖JBP3.7,CLOSE;是干扰返回CLOSE等待WAITH:JNBP3.7,WAITH;等待键释放LJMPSTART1;返回主程序（LED数据显示亮）SETHH:CLR00H;分闪烁标志清除（进入调小时状态）SETHH1:JNBP3.7,SET5;等待键释放SETB01H;小时调整标志置1SET6:JBP3.7,SET7;等待按键按下LCALLDL05S;有键按下延时0.5秒JNBP3.7,SETOUT;按下时间大于0.5秒退出时间调整MOVR0,#79H;按下时间小于0.5秒加1小时操作LCALLADD1;调加1子程序MOVA,R3;CLRC;CJNEA,#24H,HOUU;计时单元数据与24比较HOUU:JCSET6;小于24转SET6循环LCALLCLR0;大于或等于24时清0操作AJMPSET6;跳转到SET6循环SETOUT:JNBP3.7,SETOUT1;调时退出程序。等待键释放LCALLDISPLAY;延时削抖JNBP3.7,SETOUT;是抖动，返回SETOUT再等待CLR01H;清调小时标志CLR00H;清调分标志CLR02H;清闪烁标志CLRTR1;关闭定时器T1CLRET1;关定时器T1中断SETBTR0;开启定时器T0SETBET0;开定时器T0中断（计时开始）LJMPSTART1;跳回主程序SET1:LCALLDISPLAY;键释放等待时调用显示程序（调分）AJMPSET2;防止键按下时无时钟显示SET3:LCALLDISPLAY;等待调分按键时时钟显示用AJMPSET4SET5:LCALLDISPLAY;键释放等待时调用显示程序（调小时）AJMPSETHH1;防止键按下时无时钟显示SET7:LCALLDISPLAY;等待调小时按键时时钟显示用AJMPSET6SETOUT1:LCALLDISPLAY;退出时钟调整时键释放等待AJMPSETOUT;防止键按下时无时钟显示;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显示程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显示数据在70H-75H单元内，用六位LED共阳数码管显示，P1口输出段码数据，P3口作;扫描控制，每个LED数码管亮1MS时间再逐位循环。DISPLAY:MOVR1,#70H;指向显示数据首址MOVR5,#0FEH;扫描控制字初值PLAY:MOVA,R5;扫描字放入AMOVP3,A;从P3口输出MOVA,@R1;取显示数据到AMOVDPTR,#TAB;取段码表地址MOVCA,@A+DPTR;查显示数据对应段码MOVP1,A;段码放入P1口LCALLDL1MS;显示1MSINCR1;指向下一地址MOVA,R5;扫描控制字放入AJNBACC.5,ENDOUT;ACC.5=0时一次显示结束RLA;A中数据循环左移MOVR5,A;放回R5内AJMPPLAY;跳回PLAY循环ENDOUT:SETBP3.5;一次显示结束，P3口复位MOVP1,#0FFH;P1口复位RET;子程序返回TAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH;共阳段码表0123456789不亮;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;延时程序;;;;;;;;;;;;;;;;;;;;;;