>ber-enumerated ( n -- byte-array )


Vocabulary
asn1

Inputs
nan object


Outputs
byte-arrayan object


Definition
USING: arrays kernel pack sequences ;

IN: asn1

: >ber-enumerated ( n -- byte-array )
>128-ber dup length 10 swap 2array "CC" pack-native
B{ } prepend-as ;