sub reverse_bits_in_byte ($) {
my ($a) = @_;
my ($b,$c,$d);
- $b = (($a >> 1) & 0x55) | (($a << 1) & 0xaa);
- $c = (($b >> 2) & 0x33) | (($b << 2) & 0xcc);
- $d = (($c >> 4) & 0x0f) | (($c << 4) & 0xf0);
+ $b= (($a >> 1) & 0x55) | (($a << 1) & 0xaa);
+ $c= (($b >> 2) & 0x33) | (($b << 2) & 0xcc);
+ $d= (($c >> 4) & 0x0f) | (($c << 4) & 0xf0);
return $d;
}