use autodie;
use Data::Dump qw(dump);
use IO::Socket::INET;
+use Storable;
my $openocd_remote = shift @ARGV || 'picam:4444';
}
warn "# pin2io = ",dump( $pin2io );
+store \$pin2io, '/dev/shm/pin2io.storable';
my @sort = sort {
my $aa = $a; $aa =~ s/\D+//g;
$o[$i].='>'.$n[$i];
}
}
- return join('', @o);
+ my $diff = join('', @o);
+ print "# diff_bits $diff\n";
}
print "[press enter]\n";
. substr($BSR,$bit+3)
;
- print diff_bits( $BSR, $b ), $/;
+ diff_bits( $BSR, $b ), $/;
print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";