电子钟实现参考程序文档格式.docx
《电子钟实现参考程序文档格式.docx》由会员分享，可在线阅读，更多相关《电子钟实现参考程序文档格式.docx（12页珍藏版）》请在冰豆网上搜索。
MOVA,#01H;
位选
TT:
MOVP3,A
MOVP0,#0CH;
段码"
P."
LCALLDELAY
MOVP3,#00H
DJNZR6,TT
LCALLDELAY1
RRA
JBP1.0,TT;
键是否按下，没按下则转移
LCALLDELAY;
延时去抖
JNBP1.0,KAI;
再次判断键是否按下
KAI:
SETBP1.0
CLRA;
状态恢复
MOVP0,#0FFH
LCALLDELAY1
SETB48H;
用于调时闪烁标志
SETB47H;
用于产生脉冲用于调时快进的脉冲
MOVR1,#0;
调整选择键功能标志：
0计时、1调时、2调分、3调秒
-------------------------------
清16位寄存器及初始化
50H用于控制秒基准时钟源的产生
51H清零秒寄存器
52H清零分寄存器
53H清零时寄存器
5FH用于秒个位；
5EH用于秒十位
5DH用于分个位；
5CH用于分十位
5BH用于时个位；
5AH用于时十位
54H用于控制调时闪烁
-------------------------------
MOVR0,#50H;
初始化
MOVR6,#10H
CLEARJCQ:
MOV@R0,#00H;
清寄存器
INCR0
DJNZR6,CLEARJCQ
MOVIP,#02H
SETBEA
SETBET0
MOVTMOD,#01H;
设定定时器0工作方式1
MOVTH0,#3CH
MOVTL0,#0B0H;
赋定时初值，定时50ms
SETBTR0;
启动定时器0
MOVSP,#70H;
堆栈
--------
主程序
--------
MAIN:
LCALLDISPLAY
LCALLKEY_SCAN
JZMAIN
LCALLSET_KEY
JB46H,MAIN;
如果已进行调时快进，则不再执行下面的调整
LCALLADD_KEY;
调用增加键处理子程序，加一
LCALLDEC_KEY;
调用减少键处理子程序，减一
LJMPMAIN;
重新循环
---------------
显示处理程序
DISPLAY:
MOVA,51H
ANLA,#0FH
MOV5FH,A;
转换出秒个位，存入5FH
MOVA,51H
ANLA,#0F0H
SWAPA
MOV5EH,A;
转换出秒十位，存入5EH
JB46H,MIN;
如果调时快进，则跳过闪烁处理程序
CJNER1,#3,MIN;
如果R1为3，闪烁秒位待调整
JB48H,MIN
MOV5FH,#0AH;
使该位为10，查表得到使该位不显示
MOV5EH,#0AH
MIN:
MOVA,52H
MOV5DH,A;
转换出分个位，存入5DH
MOVA,52H
MOV5CH,A;
转换出分十位，存入5CH
JB46H,HOUR
CJNER1,#2,HOUR;
如果R1为2，闪烁分位待调整
JB48H,HOUR
MOV5DH,#0AH
MOV5CH,#0AH
HOUR:
MOVA,53H
MOV5BH,A;
转换出时个位，存入5BH
MOVA,53H
MOV5AH,A;
转换出时十位，存入5AH
JB46H,DISP
CJNER1,#1,DISP;
如果R1为1，闪烁时位待调整
JB48H,DISP
MOV5BH,#0AH;
MOV5AH,#0AH
-------------------
数码管动态扫描显示
DISP:
MOVDPTR,#TABLE
MOVA,5FH
MOVCA,@A+DPTR
MOVP0,A
SETBP3.7
LCALLDELAY
CLRP3.7;
显示秒个位
MOVA,5EH
SETBP3.6
LCALLDELAY
CLRP3.6;
显示秒十位
MOVA,#0BFH
SETBP3.5
CLRP3.5;
显示“-”
MOVA,5DH
MOVCA,@A+DPTR
SETBP3.4
CLRP3.4;
显示分个位
MOVA,5CH
MOVCA,@A+DPTR
SETBP3.3
CLRP3.3;
显示分十位
SETBP3.2
CLRP3.2;
MOVA,5BH
MOVP0,A
SETBP3.1
CLRP3.1;
显示时个位
MOVDPTR,#TABLE1;
该位使用TABLE1以消除时的十位置0
MOVA,5AH
MOVCA,@A+DPTR
SETBP3.0
CLRP3.0;
显示时十位
RET
-----------------
定时器中断1s程序
TIMET0:
PUSHACC;
保护现场
PUSHPSW
MOVTH0,#3CH
MOVTL0,#0B0H
CPL47H;
产生脉冲用于调时快进
INC54H
MOVA,54H
CJNEA,#10,ADD_TIME;
产生0.5秒，用于调时闪烁
CPL48H;
取反调时闪烁标志位
MOV54H,#00H
ADD_TIME:
INC50H
MOVA,50H
CJNEA,#10,ZDBACD;
整点报时时蜂鸣器响延迟时间
SETBP2.1;
关蜂鸣器
ZDBACD:
CJNEA,#20,RETI1;
产生1秒时钟
MOV50H,#00H;
一秒钟时间到，清零50H
MOVA,51H
ADDA,#01H
DAA;
十进制调整
MOV51H,A
CJNEA,#60H,RETI1
MOV51H,#00H;
一分钟到
MOVA,52H
ADDA,#01H
DAA
MOV52H,A
CJNEA,#60H,RETI1
CLRP2.1
MOV52H,#00H;
一小时到，开蜂鸣器，清分显示
MOVA,53H
ADDA,#01H
MOV53H,A
CJNEA,#24H,RETI1
MOV53H,#00H;
到24点,清零小时
RETI1:
POPPSW
POPACC;
恢复现场
RETI;
中断返回
-------------
键盘扫描程序
R4设置为00H是为了在进入长按处理前加长延时,以区分长按与短按键
KEY_SCAN:
CLR46H;
关闭调时快进标志
MOVP1,#0FFH;
将P1口设置成输入状态
MOVA,P1
CPLA
ANLA,#07H;
1口低3位连接3个按键，只判断该3位
JZEXIT_KEY
LCALLDELAY;
延时去抖动
MOVA,P1;
重新判断
ANLA,#07H
MOVR5,A
MOVR4,#00H;
用于控制调时快进速度
LOOP:
LCALLDISPLAY;
进入长按处理
MOVA,P1
CPLA
ANLA,#07H
JB47H,LOOP1
INCR4;
调时快进间隔时间基准加1
LOOP1:
CJNER1,#03H,LOOP2;
如果调秒时长按，则不处理
LJMPLOOP3
LOOP2:
CJNER4,#99H,LOOP3
MOVR4,#70H;
确认长按后，加快调时快进速度
SETB46H
LCALLADD_KEY
LCALLDEC_KEY
LOOP3:
JNZLOOP;
等待键释放
MOVA,R5;
输出键值
EXIT_KEY:
RET
------------
延时子程序
DELAY:
MOVR7,#200
DJNZR7,$
RET
DELAY1:
MOVR3,#50
MOVTMOD,#00H
MOVTH1,#63H
MOVTL1,#18H
SETBTR1
LP1:
JBCTF1,LP2
SJMPLP1
LP2:
MOVTH1,#63H
MOVTL1,#18H
DJNZR3,LP1
选择键处理子程序
SET_KEY:
CJNER5,#01H,EXIT;
选择键键值
INCR1;
调整选择功能标志加一
CJNER1,#4,EXIT
MOVR1,#0
MOV54H,#00H;
调时闪烁清零
RET
----------
加1子程序
ADD_KEY:
CJNER5,#02H,EXIT;
加1键值
CJNER1,#01H,NEXT1;
选择键功能标志为1调时，否则跳出
MOVA,53H
ADDA,#01H
DAA
MOV53H,A
CJNEA,#24H,EXIT
MOV53H,#00H
NEXT1:
CJNER1,#02H,NEXT2;
选择键功能标志为2调分，否则跳出
MOVA,52H
DAA
MOV52H,A
CJNEA,#60H,EXIT
MOV52H,#00H
NEXT2:
CJNER1,#03H,EXIT;
选择键功能标志为3调秒，否则跳出
MOVA,51H
MOV51H,A
如加1键按下直接清零秒
减1子程序
----------
DEC_KEY:
CJNER5,#04H,EXIT;
减1键键值
CJNER1,#01H,NEXT3;
MOVA,53H
ADDA,#99H
DAA
MOV53H,A
CJNEA,#99H,EXIT
MOV53H,#23H
NEXT3:
CJNER1,#02H,NEXT4;
ADDA,#99H
CJNEA,#99H,EXIT
MOV52H,#59H
NEXT4:
MOV51H,#59H
返回子程序
EXIT:
数码管字形编码表
TABLE:
DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
;
"
0"
，"
1"
2"
3"
4"
5"
6"
7"
8"
，9"
不显示"
TABLE1:
DB0FFH,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH;
小时位的十位数编码
;
9"
程序结束
END
升级会员 