分享一个防盗门的控制程序

一个防盗门的控制程序,采用无线遥控方式开门,步进马达执行动作。
采用at89c2051单片机控制,liweiqiang
;p3.3接峰鸣器
;p3.5接门状态开关信号输入,低电位表示门已关上,高电位表示门已打开
;p3.7摇控开门信号输入,低电位表示有开门信号。
org 0000h
ljmp start
org 000bh
ljmp int_0
start:
mov sp,#60h
mov tmod,#01h
mov th0,#0b0h
mov tl0,#0b8h
mov r1,#00h
mov r0,#00h
setb ea
setb et0
setb tr0
;============================================
main:;主循环开始
jb p3.5,kss;p35=0,表示门已关门.向下执行
jnb 20h.0,kss;20h.0=0表示已锁门.转手工开锁信号检测处
lcall gs;关锁
clr 20h.0;置20h.0=0,表示已锁一次门.
kss:;;手工开锁信号检测
jnb p3.5,kst;如果门被手动从里面打开过就向下执行清锁门标志位。
ajmp ddjm
kst:;摇控开锁信号检测
jb p3.7,kmjs;有低电平开锁信号?是向下执行
lcall delay;延时消抖动
jnb p3.7,kmjs;确认开锁按键是否已放开。是向下执行
lcall ks;开锁
setb tr0;开锁后计时
kmjs:;开门计时
cjne r0,#30,main;开门计时15秒后检测门的状态
mov r0,#00h
clr tr0
ddjm:
jb p3.5,$;等待门被关上
setb 20h.0;门关上后清已锁门标志位,
clr tr0; 停止计数
jmp main;反回主程式
;===========================================
int_0:
push psw
push acc
inc r1
cjne r1,#14,ext
inc r0
mov r1,#00h
ext:
mov th0,#0b0h
mov tl0,#0b8h
pop acc
pop psw
reti
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;开锁子程序
ks:
mov r0,#3
loop1:
mov p1,#10101111b
acall delay
mov p1,#11001111b
acall delay
mov p1,#11010111b
acall delay
mov p1,#10110111b
acall delay
djnz r0,loop1
mov p1,#0ffh
lcall delay1
lcall bz
mov r1,#00h
setb tr0
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;关锁子程序
gs:
lcall delay1
lcall delay1
lcall delay1
lcall delay1
mov r0,#3
loop2:
mov p1,#10110111b
acall delay
mov p1,#11010111b
acall delay
mov p1,#11001111b
acall delay
mov p1,#10101111b
acall delay
djnz r0,loop2
mov p1,#0ffh
lcall delay1
lcall bz
lcall delay
lcall bz
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
bz:
clr p3.3
lcall delay1
setb p3.3
ret
delay:
mov r6,#30
d1:mov r7,#0
d2:djnz r7,d2
djnz r6,d1
ret
delay1:
mov r5,#200
dd1: mov r4,#100
dd2: mov r3,#10
dd3: djnz r3,dd3
djnz r4,dd2
djnz r5,dd1
ret
end

最严直播新规今起实施,VR直播需未雨绸缪
新思科技和ADI公司宣布达成合作 助力客户加速产品上市时间
LG厨艺机器人投入使用 餐饮领域机器人应用已初见成效
车规保险丝“金标准”出台,谁家产品能率先“上车”?
报道称苹果准备将10%的iPhone12生产从中国转移到印度
分享一个防盗门的控制程序
发电机保护系统工作原理及作用
区块链究竟是“风口”还是“骗局”?区块链为何成为淘金地?
康耐视三维机器视觉家族与各行业应用案例
七个小技巧,帮助改善密码安全性及个人信息安全
汽车电子抛负载测试 瞬态电压抑制TVS二极管型号选用大全
京东方证实LCD屏下指纹识别技术正在到来的路上
餐饮油烟在线监测系统使用方便治理油烟问题
互联网对于金融领域有什么积极意义
关于汽车空调出问题的七个原因与解决办法
SiP封装在5G和IoT时代面临的挑战
无人机避障技术具有哪些优势
自动化视觉检测系统的应用范围
注意了!人工智能将挑战这六大行业
国星Mini LED IMD-M09标准版即将面世