热释电红外传感器程序.txt

（1）汇编语言编程如下
ORG  2000H
MAIN: MOV  P0,#0C0H          ;数码管1显示0
      MOV  P2,#03H            ;数码管2显示0
      SETB  P2.0               ;蜂鸣器不响
  LP: JNB    P1.0,LA            ;传感器1有信号输入则转
      MOV  P0,#0C0H          
  LQ: JNB   P1.2,LB             ;传感器2有信号输入则转
      MOV  P2,#03H
      AJMP LP                 ;继续下一次扫描
  LA: ACALL DELAY
      MOV  P0,#0F9H          ;数码管1显示1
      JNB   P1.0,ALARM        ;再一次确认，有信号输入转蜂鸣器程序1
    J: AJMP LQ
  LB: ACALL DELAY           
      MOV  P2,#025H          ;数码管2显示2
      JNB   P1.2,ALARM1       ;再一次确认，有信号输入转蜂鸣器程序2
    K:AJMP LP
DELAY:MOV R7,#200            ;延时50ms程序
DEL1: MOV R6,#123
      NOP
DEL2: DJNZ R6,DEL2
      DJNZ R7,DEL1
      RET
ALARM:CLR P2.0               ;蜂鸣器报警程序1，设置P2.0为低电平报警
      ACALL DEL5             ;蜂鸣器响一定时间
      SETB  P2.0              ;设置P2.0为高电平不报警
      AJMP j
ALARM1:CLR P2.0              ;蜂鸣器报警程序2，设置P2.0为低电平报警
      ACALL DEL5