fix pin toggle bit order

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index acb4a5d..bc5c88e 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -9,7 +9,6 @@ use Storable;
 
 my $openocd_remote = shift @ARGV || 'picam:4444';
 
-
 my $bit2pin;
 my $io2bit;
 
@@ -157,17 +156,9 @@ sub diff_bits {
        print "# diff_bits $diff\n";
 }
 
-my $cmd = '';
-if ( $ENV{SLEEP} ) {
-       sleep $ENV{SLEEP};
-       $cmd = <DATA>;
-       exit if ! $cmd;
-} else {
-       print "[press enter]\n";
-       $cmd = <STDIN>;
-}
+print "[press enter]\n";
+my $cmd = <STDIN>;
 chomp $cmd;
-
 if ( $cmd =~ /(\d+)=(\d)/ ) {
        my ( $pin, $v ) = ( $1, $2 );
        warn "# pin $pin = $v\n";
@@ -197,73 +188,3 @@ if ( $cmd =~ /(\d+)=(\d)/ ) {
 
 
 }#while(1)
-
-__DATA__
-5=1
-a
-b
-c
-d
-e
-f
-a
-a
-a
-a
-a
-a
-a
-a
-a
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-b
-c
-d
-e
-f
-5=0
-a
-b
-c
-d
-e
-f