Select Code to Download

my $m0; vec($m0, $_, 1) = 1 for 0,2,8,9,10;

my $m0l; vec($m0l, $_,   1) = 1 for 0,2;
my $m0h; vec($m0h, $_-8, 1) = 1 for 8,9,10;
my $m0 = $m0l . $m0h;

unpack "B16", scalar reverse $mo

sprintf "%016b", unpack "v", $m0