use Data::Dump qw(dump);
use IO::Socket::INET;
+my $openocd_remote = shift @ARGV || 'picam:4444';
+
my $bit2pin;
my $io2bit;
my $in_pin_map = 0;
my $pin_map = '';
+$|=1; # flush stdout
open(my $bsdl, '<', '_3128at100.bsd');
while(<$bsdl>) {
my $bits = shift;
my $i = 0;
# foreach my $io ( @sort ) {
- print "pin off io___ I C O | " x 4, "\n";
+ print "pin off io___ I C O | " x 4, $openocd_remote,"\n";
foreach my $i ( 0 .. ($#$pin2io/4)-1 ) {
foreach my $j ( 0 .. 3 ) {
#my $pin = ($i*4) + $j + 1; # rows
# printf "hex = %4s binary = %16s\n", $h, hex2bin($h);
#}
-my $sock = IO::Socket::INET->new('picam:4444');
+my $sock = IO::Socket::INET->new($openocd_remote);
sub hex2bin {
my $h = shift;
if ( /^\s*([A-F0-9]+)/ ) {
my $hex = $1;
my $bin = hex2bin($hex);
+ diff_bits($BSR, $bin);
$BSR = $bin;
print_io $bin;
last;