6 local(@r,$i,$j,$k,$d,@z);
11 @z=split(/\^/,$r[$i]);
12 for ($j=0; $j <= $#z; $j++)
14 ($d)=($z[$j] =~ /^(..)/);
15 ($k)=($z[$j] =~ /\[(.*)\]$/);
16 $k.=",$n" if ($k ne "");
17 $k="$n" if ($k eq "");
48 { @f=&rotatel(*a,$n); }
50 { @f=&rotater(*a,-$n); }
125 printf "%2s ",$a[$i];
126 print "\n" if (($i%8) == 7);
139 $r[$i]=&compress($a[$i].'^'.$b[$i]);
140 # $r[$i]=$a[$i]."^".$b[$i];
153 $r[$i]=(($m & (1<<$i))?($a[$i]):('--'));
166 $r[$i]='--' if (($a[$i] eq '--') && ($b[$i] eq '--'));
167 $r[$i]=$a[$i] if (($a[$i] ne '--') && ($b[$i] eq '--'));
168 $r[$i]=$b[$i] if (($a[$i] eq '--') && ($b[$i] ne '--'));
169 $r[$i]='++' if (($a[$i] ne '--') && ($b[$i] ne '--'));
177 local($_,$i,@a,%a,$r);
190 foreach $i (sort keys %a)
192 next if ($a{$i}%2 == 0);