基于51单片机的红外自动感应卷帘门(10)

31

基于51单片机的红外自动感应卷帘门

附录2：程序

;************************************* ;* * ;* 主程序和中断程序入口 * ;* * ;*************************************

ORG 0000H

;程序执行开始地址

AJMP START ;跳至START执行 ORG 0003H

;外中断0中断入口地址

;中断返回（不开中断）

RETI

ORG 000BH RETI

;定时器T0中断入口地址

;中断返回（不开中断）

;外中断1中断入口地址

ORG 0013H ;

;************************************* ;* * ;* 初 始 化 程 序 * ;* * ;************************************* CLEARMEMIO: CLR A

DEC

A

RETI

;中断返回（不开中断） ;定时器T1中断入口地址

ORG 001BH

RETI ;跳至INTT1中断服务程序 ORG 0023H RETI

;串行口中断入口地址

;中断返回（不开中断）

;定时器T2中断入口地址

ORG 002BH RETI

;中断返回（不开中断）

;A清0

;A为#0FFH

;P0-P3口置1

MOV P0,A

32

基于51单片机的红外自动感应卷帘门

MOV P1,A MOV P2,A MOV P3,A

; ; ;

CLEARMEM: MOV SP,#70H ;设堆栈基址为70H MOV IE,#00H ;关所有中断

MOV IP,#01H

;设优先级 RET

;返回

;; ;

;************************************* ;* * ;* 主 程 序 * ;* * ;*************************************

START: LCALL CLEARMEMIO 子程序 ;

MAIN: LCALL WORK 查键子程序 LJMP MAIN

;转MAIN循环

NOP

;PC值出错处理

NOP NOP

LJMP START

;重新初始化

;************************************* ;* 查 询 工 作 程 序 * ;* * ;*************************************

33

;调用初始化主体程序。调用 ;

基于51单片机的红外自动感应卷帘门

WORK:

JNB P0.4,K1 JNB P0.6,K2

OUT: RET

;************************************* ;* 正 转 工 作 程 序 * ;* * ;************************************* K1:

JB P0.4,OUT

LCALL DELAY10MS JB P0.4,OUT CLR P0.2 SETB P0.0 CLR P0.1 MOV R5,#0 D1: MOV R4,#0 DJNZ R4,$ DJNZ R5,D1 JB P0.5,$ LCALL DELAY10MS SETB P0.2 SETB P0.0 SETB P0.1 LJMP OUT

34

基于51单片机的红外自动感应卷帘门

;************************************* ;* 反 转 工 作 程 序 * ;* * ;************************************* K2:

JB P0.6,OUT

LCALL DELAY10MS JB P0.6,OUT CLR P0.3 CLR P0.0 SETB P0.1 MOV R5,#0 D2: MOV R4,#0 DJNZ R4,$ DJNZ R5,D2 JB P0.5,$ LCALL DELAY10MS SETB P0.3 SETB P0.0 SETB P0.1 LJMP OUT

;************************************* ;* 延 时 子 程 序 * ;* * ;************************************* DELAY10MS:

35