+

基于单片机的家庭无线红外报警系统（程序）

//；系统程序：
 
ORG 000H                                         
AJMP CSH
ORG   0030H
CSH:  MOV  SP,#4FH; // 初始化
MOV  P2,#00H
CLR P3.4
LCALL  BJS
YX:   CLR P2.0
SETB   P2.7
ACALL  YS1MS
JB  P0.0,YX2
ACALL  YS1MS
JB  P0.0,YX2
CLR P2.7
ACALL  BJS
MOV  R7,#10H
YX1:  ACALL  FS
DJNZ  R7,YX1
CLR P3.4
YX2:  CLR P2.7
SETB  P2.6
ACALL  YS1MS
JB  P0.1,YX3
ACALL YS1MS
JB P0.1,YX3
CLR P2.6
ACALL BJS
MOV  R7,#10H
YX21:  ACALL FS
DJNZ  R7,YX21
CLR P3.4
YX3:  CLR P2.6
SETB  P2.0
ACALL YS1MS
JB P0.3,YX
CLR P2.0
ACALL BJS
MOV  R7,#10H
YX31:  ACALL FS
DJNZ  R7,YX31
CLR P3.4
AJMP   YX
BJS: MOV  R7,#58H
MOV  A,#78H
BJS1:  MOV   R6,#18H
BJS2:  CPL P2.1
MOV    R5,A
BJS3:   DJNZ   R5,BJS3
DJNZ   R6,BJS2
    DEC    A
DJNZ   R7,BJS1
CLR P2.1
SJMP   YS1MS
AJS: MOV   R7,#00H
AJS1:CPL P2.1
MOV   R6,#38H
AJS2:  DJNZ   R6,AJS2
DJNZ   R7,AJS1
CLR P2.1
YS1MS: MOV   R7,#00H
AJS4:  NOP
NOP
NOP
DJNZ   R7,AJS4
RET
FS:  NOP
NOP
RET
END
 

/*程序说明：通过单片机CPU向P2.7、P2.6、P2.0口分时发出高电平，分时检测P0.0、P0.1、P0.3口是否也为高电平，如果是高电平，则表明光栅束没有被切割，不发报警信号。如果在P0.0、P0.1、P0.3口上有一个或多个低电平，则表明光栅被切割，发出报警信号。*/