Ovdje malo bolje izgleda :-)

 cblock	0x0C
	TEMP1
	TEMP2
 endc
 bsf	STATUS, RP0
 movlw	B'11111100'
 movwf	TRISA
 movlw	B'00000000'
 movwf	TRISB
 bcf	STATUS, RP0
 CLRF	PORTA
 CLRF	PORTB

MAIN	CLRWDT 			; Ovu naredbu mozes izbrisati ako iskljucis WDT u programatoru!
L1	BTFSS	PORTA, 0x07	; Prskace narednu naredbu ako je PORTA.7=1
	GOTO	L1
	BSF	PORTB, 0x07	;Pali navedeni pin
	MOVLW	0xFA
	MOVWF	TEMP1
	CALL	PAUZA		;Pauza 500mS
	MOVLW	0xFA
	MOVWF	TEMP1
	CALL	PAUZA		;Pauza 500mS
	BSF	PORTB, 0x06	;Pali navedeni pin
L2	BTFSS	PORTA, 0x06	; Prskace narednu naredbu ako je PORTA.6=1
	GOTO	L2
	BCF	PORTB, 0x06	;Gasi navedeni pin
L3	BTFSS	PORTA, 0x05	; Prskace narednu naredbu ako je PORTA.5=1
	GOTO	L3
	BSF	PORTB, 0x05	;Pali navedeni pin
L4	BTFSS	PORTA, 0x04	; Prskace narednu naredbu ako je PORTA.5=1
	GOTO	L4
	BSF	PORTB, 0x04	;Pali navedeni pin
	BCF	PORTB, 0x05	;Gasi navedeni pin
L5	BTFSS	PORTA, 0x03	; Prskace narednu naredbu ako je PORTA.5=1
	GOTO	L5
	BCF	PORTB, 0x04	;Gasi navedeni pin
	BCF	PORTB, 0x07	;Gasi navedeni pin
;*************************************************
OVAJ KORAK TI BAS NE KONTAM STA CE TI I STA RADI
PA GA NISAM NAPISAO!
sub procedure korakSesti 

While brojac<5 

zastavica = TestBit(PORTA, 7) 

If zastavica=0 Then ' profil je izvucen, vracaj se u glavnu petlju i zavrsi 
brojac=5 
End If 
Wend 

end sub 
;*************************************************
	GOTO MAIN

PAUZA	MOVLW	0x63
	MOVWF	TEMP2
PAUZAX	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	TEMP2,	F
	GOTO	PAUZAX
	DECFSZ	TEMP1,	F
	GOTO	PAUZA
	RETURN
	END