36 #printf "%X", convert("E1");
38 #printf "%X", convert("71");
50 $addr = substr($_,0,4);
51 $inst = substr($_,27,3);
52 $val = substr($_,31,2);
55 $daddr = (hex $addr) + 2 + convert($val);
58 if (defined $commands{$inst}) {
61 #print " $addr $inst $val\n";