密码锁程序Word下载.docx
- 文档编号:16141075
- 上传时间:2022-11-20
- 格式:DOCX
- 页数:22
- 大小:18KB
密码锁程序Word下载.docx
《密码锁程序Word下载.docx》由会员分享,可在线阅读,更多相关《密码锁程序Word下载.docx(22页珍藏版)》请在冰豆网上搜索。
MTAB:
AJMPWORK0;
转移到时间设定模块
AJMPWORK1;
转移到走时模块
AJMPWORK2;
转移到密码模块
AJMPWORK3;
转移到音乐模块
-------时间设定模块-----------------
WORK0:
SETBFLON
SETBLED4
JNBESW1,WK01;
设置闪烁位
CLRESW1
MOVA,TZSTA
ADDA,#02H
MOVTZSTA,A
CJNEA,#06H,WK01
MOVTZSTA,#00H
MOVSTA,#01H;
转到走时模块
LJMPMLOOP
WK01:
JNBSW2,WK03
JNBTF0,ESDIP
CLRTF0
SETBTR0
MOVTH0,#0F0H
MOVTL0,#60H
DJNZY400MS,WK01
MOVY400MS,#100
ANLA,#07H
MOVDPTR,#MTAB1
MTAB1:
AJMPWK020
AJMPWK021
AJMPWK022
ESDIP:
LCALLSDISP
WK020:
MOVA,HOUR
ADDA,#01H
DAA
CJNEA,#24H,W0
MOVHOUR,#00H
MOVHOUL,#00H
MOVHOUH,#00H
LJMPWK03
W0:
MOVHOUR,A
MOVXS,A
ANLA,#0F0H
SWAPA
MOVHOUH,A
MOVA,XS
ANLA,#0FH
MOVHOUL,A
WK021:
MOVA,MINH
INCA
CJNEA,#06H,W1
MOVMINH,#00H
W1:
MOVMINH,A
WK022:
MOVA,MINL
CJNEA,#0AH,W2
MOVMINL,#00H
W2:
MOVMINL,A
WK03:
-------走时模块-----------------------------
WORK1:
CLRFLON
CLRLED6
JBEK7,WK10
JBEK9,WK11
JNBESW1,WK12
MOVSTA,#00H
LJMPWK13
WK10:
MOVSNUM0,#00H
MOVSNUM1,#00H
MOVSNUM2,#00H
MOVR2,#00H
SETBLED0
MOVSTA,#02H
WK11:
MOVSTA,#03H
WK12:
LCALLJIS;
调用计时子程序
JNBJS,WK13
CLRJS
WK13:
-------调用计时子程序------------------------------
JIS:
DJNZJ500,JS5
CLRLED4
MOVJ500,#125
DJNZJS1S,JS5
MOVJS1S,#2
MOVA,SECL
CJNEA,#09H,JS0
MOVSECL,#0
MOVA,SECH
CJNEA,#05H,JS1
MOVSECH,#0
CJNEA,#09H,JS2
MOVMINL,#0
CJNEA,#05H,JS3
MOVMINH,#0
CJNEA,#23H,JS4
LCALLBJ1S1
RET
JS0:
INCSECL
JS1:
INCSECH
JS2:
INCMINL
JS3:
INCMINH
JS4:
JS5:
-------密码模块------------------
WORK2:
LCALLJIS
CLRA;
查询数字"
0"
JBEK0,WK20
INCA;
1"
JBEK1,WK20
JBEK2,WK20
JBEK3,WK20
JBEK4,WK20
JBEK5,WK20
JBEK6,WK20
JBEK7,WK20
JBEK8,WK20
9"
JBEK9,WK20
JBEK10,ENTER;
确定
JBEK11,ESC1;
退出
JBESW1,SHEZ1;
设置
JBESW2,BACK;
删除
SHEZ1:
LJMPSHEZ
ESC1:
LJMPESC
WK20:
CJNER2,#06H,WK21;
R2数字键输入次数计数器
LJMPWK23
WK21:
CLRLED2
CLRLD7
INCR2
XCHA,SNUM2;
键值从数据的右边移入
MOVR7,A
ORLSNUM2,A
MOVA,R7
XCHA,SNUM1
ORLSNUM1,A
XCHA,SNUM0
ORLSNUM0,A
BACK:
CJNER2,#0,BACK1
BACK1:
SETBLD7
CLRLED3
ENTER:
CJNER2,#06H,EN1
JNBXMMBZ,BIJ;
没有新密码标志则进行比较
JNBSZBZ,EN1;
没有设置标志跳回主程序
LCALLXMM
EN1:
XMM1:
MOVA,SNUM2
CJNEA,SNUM1,XMM2
LCALLBJ3S1
XMM2:
CJNEA,SNUM0,XMM3
LJMPWK33
XMM3:
MOVA,SNUM0
CJNEA,SNUM1,XMM
XMM:
MOVMM0,SNUM2;
把密码存储位送给密码位
MOVMM1,SNUM1
MOVMM2,SNUM0
LCALLEEPW;
写EEPROM子程序
SETBLED3
CLRXMMBZ;
清除新密码标志位
CLRSZBZ;
清楚设置标志位
CLRLED1
MOVR2,#06H
----------------------
BIJ:
CJNEA,MM0,CUOWU
MOVA,SNUM1
CJNEA,MM1,CUOWU
CJNEA,MM2,CUOWU
SETBMMZQ
CUOWU:
SETBLED2
INCCONV;
CONV错误次数计数器
MOVA,CONV
CJNEA,#03H,WK23
SETBCWBZ;
CONV错误3次转入报警模块
SJMPWK22
SHEZ:
JNBMMZQ,WK23;
没有密码正确标志,则无效
CLRMMZQ;
有的话清除密码正确标志
SETBXMMBZ;
新密码标志置1,可以输入值
SETBSZBZ
SETBLED1
ESC:
CLRLED0
回到走时模块
SJMPWK23
WK22:
CLRCWBZ;
清除错误标志,转入报警模块
LCALLBJING
WK23:
-------音乐模块---------
WORK3:
MOVA,JPM
MOVDPTR,#TABLE1
MOVCA,@A+DPTR
MOVR3,A
JZEND0
MOVR4,A
MOVA,R3
JNZWK32
CLRTR1
END0:
MOVJPM,#00H
LJMPWK35
WK32:
DECA
MOVYFM,A
MOVDPTR,#TABLE
MOVTH1,A
MOVSJCZ1,A
MOVA,YFM
MOVTL1,A
MOVSJCZ0,A
SETBTR1
WK33:
MOVTMOD
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 密码锁 程序