# 1x16-bit + 1x32-bit big-endian to 48-word
my $word48 = pack 'nN', $opcode, $operands;
# 3x16-bit little-endian to 48-bit word 
my $word48 = pack 'vvv', $op, $src, $dst;