ir-dete.asm

Infra red dectect, only dectect a signal it will pass to pc

$MOD51
	ORG 00H
	AJMP START
	ORG 0BH
	CPL P1.0
	RETI
			
START:	MOV TMOD,#00100010B 
	MOV SCON,#01000000B
	MOV TH0,#244                      ; INFRA RED PULSE
	MOV TH1,#253                      ; 9600 BAUD RATE USING 11.0592MHZ
	MOV IE,#10000010B
	SETB TR0
	SETB TR1
	
LOOP:	SETB P1.4
	JB P1.1,$
	ACALL DELAY
	CLR P1.4
	MOV A,#1
	MOV SBUF,A
	JNB TI,$
	CLR TI
	JNB P1.1,$
	AJMP LOOP
		
DELAY:	MOV R7,#10
DL1:	MOV R6,#100
DL2:	DJNZ R6,DL2
	DJNZ R7,DL1
	RET

	END