print diff_bits( $BSR, $b ), $/;
+ print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
+ print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";
print $sock "irscan x300.tap 0x00\n"; # EXTEST
print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";
} else {