Select Code to Download

#!/usr/bin/perl
use strict;
...
$t += $_ for @memory;
print "\nThe sum:\n";
printf "% 10u : %032b\n", $t, $t;

Original values:
  0 : 00000000
  0 : 00000000
...

The sum:
 123813888 : 00000111011000010100000000000000

sub plonk {
    my ($b0, $b1, $b2, $b3) = @_;
...
            + ($b2 & 0x7f) << 14
            + ($b3 & 0x7f) << 21;
}