(>128-ber) ( n -- )

Vocabulary

asn1.private

Inputs

n

an object

Outputs

None

Definition

USING: kernel make math ;

IN: asn1.private

: (>128-ber) ( n -- )
    dup 0 >
    [ [ 127 bitand 128 bitor , ] keep -7 shift (>128-ber) ]
    [ drop ] if ;