COUNTREG EQU 0x20 CNTVAL EQU 5 CLRF TRISB MOVLW CNTVAL MOVWF COUNTREG LFSR 2,0x330 B3 MOVF INDF2,W MOVWF PORTB INCF FSR2L DECF COUNTREG,F BNZ B3