COUNTREG EQU 0x10 CNTVAL EQU D'16' MOVLW CNTVAL MOVWF COUNTREG LFSR 1,0x160 MOVLW 0xFF B2 MOVWF INDF1,0 INCF FSR1L DECF COUNTREG,F BNZ B2