X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM%2Ffixvendbra.pl;h=496f98de3c4789d73841f97d2fa23891043d9e18;hb=77f2f2b514bc8b3a5e4c23ab02afc16bdcedb3c6;hp=88a32a9159ef2a08baf7925276317e0bfe9f4830;hpb=8a0fa78b9746785e232b348d4d9a11ad5deac749;p=uccvend-snackrom.git

diff --git a/ROM/fixvendbra.pl b/ROM/fixvendbra.pl
index 88a32a9..496f98d 100644
--- 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 {