Jak odebrać impuls sygnału z silnika w PIC16F84A (C)?

;--------
; test for index in rotation and store period in period_dup
;--------
Check_index	movf	PORTA,w		;get the state of port a
		xorwf	flags,w		;compare with saved state
		andlw	b'00010000'	;only interested in bit 4
		btfsc	STATUS,Z	;test for edge
		retlw	0		;not an edge, same as last
		xorwf	flags,f		;save for next time
		btfsc	flags,4		;test for falling edge
		retlw	0		;must have been a rising edge
		movf	period_count,w	;make a working copy
		movwf	period_dup	;called period dup
		clrf	period_count	;a fresh start for next rotation
		clrf	digit_index	;set to first digit
		clrf	dot_index	;first column

temp = RA4; // zapisuje wartosc portu do temp-a
while(1) {  // nieskonczona petla
	if(RA4==1 && temp==0) {  // wykrywam zbocze narastajace
		...jakis kod...; 
		break; // wychodze z petli while
	}
	if(RA4==0 && temp==1) {  // wykrywam zbocze opadajace
		...jakis kod...; 
		break; // wychodze z petli while
	}
}