nachalo:
movlw skoka_bit,w
movwf x1 ; Bit shift counter
nextbit:
lfsr 0,nachalo_massiva ; Init byte array ptr
movlw dlina,x2 ; Array byte counter
nextbyte:
rlcf postinc0,f ; Rotate a byte 1 bit left, increment byte ptr
decfsz x2 ; Skip to next bit iteration sequence if all bytes processed
bra nextbyte ; Process next array byte otherwise
decfsz x1 ; Finish if all bits are processed
bra nextbit ; Process next bit shift otherwise
return