COUNTREG EQU 0x10 CNTVAL EQU D'16' MOVLW CNTVAL MOVWF COUNTREG LFSR 1,0x160 MOVLW 0xFF B3 MOVWF POSTINC1, 0 DECF COUNTREG,F BNZ B3