;------紅外遙控聲光測試-------

		      ;------主程序------
	     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