A little sanity checker.

[uccvend-snackrom.git] / ROM / fixvendbra.pl

diff --git a/ROM/fixvendbra.pl b/ROM/fixvendbra.pl
index 88a32a9..496f98d 100644 (file)
--- a/ROM/fixvendbra.pl
+++ b/ROM/fixvendbra.pl
@@ -1,20 +1,24 @@
 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;
@@ -42,7 +46,10 @@ sub convert {
 while(<>) {    
        chomp;
        $l = length;
-       if ($l != 33) {
+       if ($l == 42) {
+               print "$_\n";
+               next;
+       } elsif ($l != 33) {
                print "$_\n";
                next;
        } else {