From 8f6482741a7f1a1945776acf1d1910ca492bd897 Mon Sep 17 00:00:00 2001
From: Mark Tearle <mtearle@ucc.asn.au>
Date: Sat, 17 Nov 2001 12:35:22 +0000
Subject: [PATCH] Modified to start pushing instructions through to
 as11/vend.asm

---
 ROM/makeasm.pl | 97 ++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 94 insertions(+), 3 deletions(-)

diff --git a/ROM/makeasm.pl b/ROM/makeasm.pl
index 786dfef..98faa9e 100755
--- a/ROM/makeasm.pl
+++ b/ROM/makeasm.pl
@@ -2,6 +2,44 @@
 
 print "\tORG\t\$8000\n";
 
+my %transtable = ( '02' => 'IDIV' ,
+			'03' => 'FDIV' ,
+			'08' => 'INX' , 
+			'09' => 'DEX',
+			'0A' => 'CLV',
+			'0D' => 'SEC',
+			'0E' => 'CLI',
+			'0F' => 'SEI',
+			'19' => 'DAA',
+			'30' => 'TSX',
+			'31' => 'INS',
+			'32' => 'PULA',
+			'33' => 'PULB',
+			'34' => 'DES',
+			'35' => 'TXS',
+			'36' => 'PSHA',
+			'37' => 'PSHB',
+			'3C' => 'PSHX',
+			'38' => 'PULX',
+			'3B' => 'RTI',
+			'3E' => 'WAI',
+			'43' => 'COMA',
+			'46' => 'RORA',
+			'49' => 'ROLA',
+			'4A' => 'DECA',
+			'4C' => 'INCA',
+			'4F' => 'CLRA',
+			'53' => 'COMB',
+			'56' => 'RORB',
+			'59' => 'ROLB',
+			'5A' => 'DECB',
+			'5F' => 'CLRB',
+			'8F' => 'XGDX',
+			'39' => 'RTS' );
+
+		#	'10' => 'SBA',
+
+
 LINE: while (<>) {
 
 # if blank line, print blank line
@@ -21,9 +59,7 @@ LINE: while (<>) {
 
 # otherwise, catch all, print bytes
   if (/^([A-F0-9]{4}) ((([A-F0-9]{2}) )*[A-F0-9]{2})/) {
-    print ";$_";
-    @_=split(' ',$2);
-    print "\tFCB\t\$".join(', $',@_)."\n";
+    instruction($_);
     next LINE;
   }
 
@@ -33,3 +69,58 @@ LINE: while (<>) {
 # FINAL print commented out
   print ";$_";
 }
+
+# Process one instruction
+# Usage: instruction line
+sub instruction {
+    my ($line) = @_;
+    print ";$line";
+
+    $instruction = substr($line,5,2);
+
+    if (defined $transtable{$instruction}) {
+    	print "\t$transtable{$instruction}";
+	$line =~ /$transtable{$instruction}(.*)$/i;
+	print "$1\n";
+	return;
+    }
+   
+    # FIXME: parse instruction
+    #if (defined($transtable{$instruction})) {
+    #	print "\t$transtable{$instruction}";
+#	if (defined($comment)) { print "; $comment"; }
+#	print "\n";
+#	return;
+#    }
+
+#        chomp;
+#        $l = length;
+#        if ($l == 42) {
+#                print "$_\n";
+#                next;
+#        } elsif ($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";
+#        }
+#        }
+
+    if ($line =~ /^([A-F0-9]{4}) ((([A-F0-9]{2}) )*[A-F0-9]{2})/) {
+        @_=split(' ',$2);
+        print "\tFCB\t\$".join(', $',@_)."\n";
+    }
+}
-- 
2.20.1