my %commands;
$commands{'bra'}=1;
-$commands{'blt'}=1;
$commands{'bcc'}=1;
$commands{'bcs'}=1;
$commands{'beq'}=1;
+
$commands{'bge'}=1;
$commands{'bgt'}=1;
$commands{'bhi'}=1;
-$commands{'bhs'}=1;
$commands{'ble'}=1;
-$commands{'blo'}=1;
+
$commands{'bls'}=1;
$commands{'blt'}=1;
$commands{'bmi'}=1;
$commands{'bne'}=1;
+
+$commands{'bhs'}=1;
+$commands{'blo'}=1;
+$commands{'bsr'}=1;
+
$commands{'bpl'}=1;
$commands{'brn'}=1;
$commands{'bvc'}=1;
while(<>) {
chomp;
$l = length;
- if ($l != 33) {
+ if ($l == 42) {
+ print "$_\n";
+ next;
+ } elsif ($l != 33) {
print "$_\n";
next;
} else {
UCC git Repository :: git.ucc.asn.au