红外遥控声光测试.txt

51单片机试验板-sch-pcb-4.0M.zip

    ;------红外遥控声光测试-------

		      ;------主程序------
	     ORG		0000H
START:   MOV      SP,#60H     ;开机CHUSHI化
         
		 MOV      P0,#0FFH
		 
		 MOV      P1,#0FFH
		 
		 MOV      P2,#0FFH
		 
		 MOV      P3,#0FFH

MAIN:    JB       P2.5,$       ;等待遥控出现
         
		 ACALL    DELAY        ;延迟,防止干扰信号误触发
		 
		 JB		  P2.5,MAIN     

		 MOV      P1,#00H       ;LED灯指示

		 ACALL     SOUND        ;声音指示

		 MOV      P1,#0FEH

		 AJMP     MAIN


		 ;-----------延迟子程序---------
DELAY:   MOV      R4,#28      ;延时子程序
  D1:    MOV      R5,#88   
         DJNZ	  R5,$         ;一直转移,直到寄存器R5为零
         DJNZ     R4,D1
         RET
		 ;-----------声音子程序--------
SOUND:   MOV      R7,#228      ; 声音延时子程序,更改该延时常数可以改变蜂鸣器发出的音调
  SD1:   CPL      P2.6        ;进位位取反,蜂鸣器驱动电平取反
         MOV      R6,#0FFH
  SD2:   DJNZ     R6,SD2
         DJNZ     R7,SD1
	 RET



		 END