From 8a0fa78b9746785e232b348d4d9a11ad5deac749 Mon Sep 17 00:00:00 2001
From: Mark Tearle <mtearle@ucc.asn.au>
Date: Sun, 28 Oct 2001 17:33:10 +0000
Subject: [PATCH] Starting to map out branch instructions

---
 ROM/fixvendbra.pl | 65 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 ROM/fixvendbra.pl

diff --git a/ROM/fixvendbra.pl b/ROM/fixvendbra.pl
new file mode 100644
index 0000000..88a32a9
--- /dev/null
+++ b/ROM/fixvendbra.pl
@@ -0,0 +1,65 @@
+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{'bpl'}=1;
+$commands{'brn'}=1;
+$commands{'bvc'}=1;
+$commands{'bvs'}=1;
+
+sub convert {
+	($onum) = @_;
+
+	$num = hex $onum;
+
+	if ($num & 128) {
+		$num = $num - 256;
+	}
+
+	return $num;
+
+}
+
+#printf "%X", convert("E1");
+#printf "\n";
+#printf "%X", convert("71");
+#printf "\n";
+
+
+while(<>) {	
+	chomp;
+	$l = length;
+	if ($l != 33) {
+		print "$_\n";
+		next;
+	} else {
+
+	$addr = substr($_,0,4);
+	$inst = substr($_,27,3);
+	$val = substr($_,31,2);
+
+	#print "$val\n";
+	$daddr = (hex $addr) + 2 + convert($val);
+
+	
+	if (defined $commands{$inst}) {
+		print "$_\t\t;";
+		printf "%4X", $daddr;
+		#print " $addr $inst $val\n";
+		print "\n";
+	} 
+	}
+}
-- 
2.20.1