六位数码管时钟.doc

《六位数码管时钟.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、STRTEQUP2.6STPEQUP2.7CLRREQUP3.0SECEQUP3.5MINEQUP3.6HOUREQUP3.7ORG00HSJMPMAINORG0BHAJMPT0INT0ORG30HMAIN:MOVSP,#60HMOVR4,#20MOVTMOD,#01HMOVTH0,#03CH;#9EH12M晶振时定时初值取#3CB0H，还可细调，如TL=#0B7H，可以更准MOVTL0,#0B0H;#58HSETBET0SETBEA;MOV28H,#12kS:LCALLDISP;秒调整按键JBSEC,KMLCALLDISPJ

2、NBSEC,$-3AJMPSINCkM:JBMIN,KH;分调整按键LCALLDISPJNBMIN,$-3AJMPMINCKH:JBHOUR,K1;时调整按键LCALLDISPJNBHOUR,$-3AJMPHINCSINC:INC26H;秒调整MOVA,26HCJNEA,#60,SINC0MOV26H,#0SINC0:AJMPKSMINC:INC27H;分调整MOVA,27HCJNEA,#60,MINC0MOV27H,#0MINC0:AJMPKMHINC:INC28H;时调整MOVA,28HCJNEA,#24,HINC0MOV

3、28H,#0HINC0:AJMPKHk1:LCALLDISP;开始键JBSTRT,K2LCALLDISPJNBSTRT,$-3AJMPSTARTk2:JBSTP,K3;暂停键LCALLDISPJNBSTP,STOPK3:JBCLRR,KSLCALLDISPJNBCLRR,CLEAR;清零键AJMPKSSTART:SETBTR0;开始AJMPK1STOP:CLRTR0;暂停AJMPK2CLEAR:CLRTR0;清零MOVA,#0MOV26H,AMOV27H,AMOV28H,AAJMPKSDISP:MOVA,26HMOVB,#10

4、DIVABMOV20H,B;余数（秒个位数）MOV21H,A;商（秒十位数）MOVA,27HMOVB,#10DIVABMOV22H,B;余数（分个位数）MOV23H,A;商（分十位数）MOVA,28HMOVB,#10DIVABMOV24H,B;余数（时个位数）MOV25H,A;商（时十位数）MOVA,20H;秒个位ACALLSEG7MOVP0,ACLRP2.0ACALLDLYSETBP2.0MOVA,21H;秒十位ACALLSEG7MOVP0,ACLRP2.1ACALLDLYSETBP2.1MOVA,22H;分个位ACALLS

5、EG7MOVP0,ASETBP0.7CLRP2.2ACALLDLYSETBP2.2MOVA,23H;分十位ACALLSEG7MOVP0,ACLRP2.3ACALLDLYSETBP2.3MOVA,24H;时个位ACALLSEG7MOVP0,ASETBP0.7CLRP2.4ACALLDLYSETBP2.4MOVA,25H;时十位ACALLSEG7MOVP0,ACLRP2.5ACALLDLYSETBP2.5RETT0INT0:MOVTH0,#03CH;#9EH;定时中断子程序。重装定时常数MOVTL0,#0B0H;#58HDJNZR

6、4,T0INTR;50msX20=1S，未满20次，跳出中断子程序MOVR4,#20INC26H;1S，秒存储单元内数+1MOVA,26HCJNEA,#60,T0INTR;未满60S，跳出中断。MOV26H,#0;满60S,秒单元清零INC27H;分+1MOVA,27HCJNEA,#60,T0INTRMOV27H,#0INC28HMOVA,28HCJNEA,#24,T0INTRMOV28H,#0T0INTR:RETIDLY10:MOVR3,#30D0:ACALLDLYDJNZR3,D0RETDLY:MOVR7,#2D1:MOV

7、R6,#40DJNZR6,$DJNZR7,D1RETSEG7:INCAMOVCA,@A+PCRETDB03FH;0共阴DB006H;1DB05BH;2DB04FH;3DB066H;4DB06DH;5DB07DH;6DB007H;7DB07FH;8DB06FH;9END本人测试过，也自己做过，可以，不过你做的时候可以再输出的段码加NPN三极管，放大电流，不然数码管会显示的很暗。另外这个程序也可以改成共阳的数码管，只需要改程序就行了。上面数码管是共阴的。晶振12兆赫兹。