subseq>bits-be ( bignum n bs -- bits )

Vocabulary

bitstreams

Inputs

bignum	an object
n	an object
bs	an object

Outputs

bits

an object

Definition

USING: accessors kernel math math.bitwise ;

IN: bitstreams

:: subseq>bits-be ( bignum n bs -- bits )
    bignum 8 bs bit-pos>> - n - 8 mod dup 0 < [ 8 + ] when
    neg shift n bits ;