Hallo. Probier es mal so. Ich hab es selbst aber nicht getestet!!

Code:
 start
                    movlw 3
                    movwf 0x20 
                    bcf PORTB, 0  

anf      
                    btfsc PORTA, 0     
                    goto punkt2

punkt1

                    btfss	PORTA, 0
                    goto	punkt1
                    decfsz     0x20, 1      

punkt2    	

                    goto anf
                    bsf PORTB, 0
                    clrw
                    goto start
      
	 end
MfG

frank