LIST			p=16F84A
		__config		_XT_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF
		#include			"P16F84A.INC"
;-----------------------------------------------------------------------------------------
		cblock			0x20
		loop
		endc
;-----------------------------------------------------------------------------------------
		org			0
		goto			main	
;-----------------------------------------------------------------------------------------
main	
		bsf				STATUS,RP0
		movlw			B'11111111'
		movwf			TRISA
		movlw			B'00000000'
		movwf			TRISB
		bcf				STATUS,RP0
		clrf			PORTB
	
find		
		BTFSC			PORTA,0
		GOTO 			IDE
		MOVLW			0XFF
		MOVWF			PORTB
		GOTO			find
IDE
		CLRF			PORTB
		GOTO			find
end