>128-ber ( n -- str )

Vocabulary

asn1

Inputs

n

an object

Outputs

str

an object

Definition

USING: asn1.private kernel make math sequences ;

IN: asn1

: >128-ber ( n -- str )
    [ [ 127 bitand , ] keep -7 shift (>128-ber) ] { } make
    reverse ;