X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM%2Fmakeasm.pl;h=c7b3064d21cb36e7efc1d55518019836e84a0f6f;hb=c28c120384379ce09246ce3b05704140edab9785;hp=bdc48a9a47b4eda69aa52d797d81a65ff3aa8ad5;hpb=f043f6ba9839f1ca1c419da5970644284b3fe803;p=uccvend-snackrom.git

diff --git a/ROM/makeasm.pl b/ROM/makeasm.pl
index bdc48a9..c7b3064 100755
--- a/ROM/makeasm.pl
+++ b/ROM/makeasm.pl
@@ -48,6 +48,113 @@ my %twobytesecond = ( '18 38' => 'PULY',
 			'18 3A' => 'ABY',
 			'18 3C' => 'PSHY');
 
+my %twobytesecondword = ( '18 FE' => 'LDY\t%s',
+			'18 FF' => 'STY\t%s');
+
+my %onewitharg = ('60' => "NEG\t\$%s,X",
+			'63' => "COM\t\$%s,X",
+			'64' => "LSR\t\$%s,X",
+			'67' => "ASR\t\$%s,X",
+			'68' => "ASL\t\$%s,X",
+			'6A' => "DEC\t\$%s,X",
+			'6C' => "INC\t\$%s,X",
+			'6D' => "TST\t\$%s,X",
+			'6E' => "JMP\t\$%s,X",
+			'6F' => "CLR\t\$%s,X",
+			'80' => "SUBA\t#\$%s",
+			'81' => "CMPA\t#\$%s",
+			'82' => "SBCA\t#\$%s",
+			'84' => "ANDA\t#\$%s",
+			'85' => "BITA\t#\$%s",
+			'86' => "LDAA\t#\$%s",
+			'88' => "EORA\t#\$%s",
+			'8A' => "ORA\t#\$%s",
+			'A0' => "SUBA\t\$%s,X",
+			'A1' => "CMPA\t\$%s,X",
+			'A2' => "SBCA\t\$%s,X",
+			'A3' => "SUBD\t\$%s,X",
+			'A4' => "ANDA\t\$%s,X",
+			'A6' => "LDAA\t\$%s,X",
+			'A7' => "STA\t\$%s,X",
+			'A8' => "EORA\t\$%s,X",
+			'A9' => "ADCA\t\$%s,X",
+			'AA' => "ORAA\t\$%s,X",
+			'AB' => "ADDA\t\$%s,X",
+			'AC' => "CPX\t\$%s,X",
+			'AD' => "JSR\t\$%s,X",
+			'AE' => "LDS\t\$%s,X",
+			'AF' => "STS\t\$%s,X",
+			'C0' => "SUBB\t#\$%s",
+			'C1' => "CMPB\t#\$%s",
+			'C2' => "SBCB\t#\$%s",
+			'C4' => "ANDB\t#\$%s",
+			'C5' => "BITB\t#\$%s",
+			'C6' => "LDAB\t#\$%s",
+			'C8' => "EORB\t#\$%s",
+			'CA' => "ORB\t#\$%s",
+			'E0' => "SUBB\t\$%s,X",
+			'E1' => "CMPB\t\$%s,X",
+			'E2' => "SBCB\t\$%s,X",
+			'E3' => "ADDD\t\$%s,X",
+			'E4' => "ANDB\t\$%s,X",
+			'E6' => "LDAB\t\$%s,X",
+			'E7' => "STAB\t\$%s,X",
+			'E8' => "EORB\t\$%s,X",
+			'E9' => "ADCB\t\$%s,X",
+			'EA' => "ORAB\t\$%s,X",
+			'EB' => "ADDB\t\$%s,X",
+			'EC' => "LDD\t\$%s,X",
+			'ED' => "STD\t\$%s,X",
+			'EE' => "LDX\t\$%s,X",
+			'EF' => "STX\t\$%s,X" );
+
+
+my %onewithword = (
+		   '70' => "NEG\t%s",
+		   '73' => "COM\t%s",
+		   '74' => "LSR\t%s",
+		   '76' => "ROR\t%s",
+		   '77' => "ASR\t%s",
+		   '78' => "LSL\t%s",
+# LSL == ASL
+#		   '78' => "ASL\t%s",
+		   '79' => "ROL\t%s",
+		   '7A' => "DEC\t%s",
+		   '7C' => "INC\t%s",
+		   '7D' => "TST\t%s",
+		   '7F' => "CLR\t%s",
+		   'B0' => "SUBA\t%s",
+		   'B1' => "CMPA\t%s",
+		   'B2' => "SBCA\t%s",
+		   'B3' => "SUBD\t%s",
+		   'B4' => "ANDA\t%s",
+		   'B5' => "BITA\t%s",
+		   'B6' => "LDAA\t%s",
+		   'B7' => "STAA\t%s",
+		   'B9' => "ADCA\t%s",
+		   'BA' => "ORAA\t%s",
+		   'BB' => "ADDA\t%s",
+		   'BC' => "CPX\t%s",
+		   'BD' => "JSR\t%s",
+		   'BE' => "LDS\t%s",
+		   'BF' => "STS\t%s",
+		   'F0' => "SUBB\t%s",
+		   'F1' => "CMPB\t%s",
+		   'F2' => "SBCB\t%s",
+		   'F3' => "ADDD\t%s",
+		   'F4' => "ANDB\t%s",
+		   'F5' => "BITB\t%s",
+		   'F6' => "LDAB\t%s",
+		   'F7' => "STAB\t%s",
+		   'FA' => "ORAB\t%s",
+		   'FB' => "ADDB\t%s",
+		   'F8' => "EORB\t%s",
+		   'F9' => "ADCB\t%s",
+		   'FC' => "LDD\t%s",
+		   'FD' => "STD\t%s",
+		   'FE' => "LDX\t%s",
+		   'FF' => "STX\t%s" );
+
 LINE: while (<>) {
 
 # if blank line, print blank line
@@ -82,7 +189,6 @@ LINE: while (<>) {
 # Usage: instruction line
 sub instruction {
     my ($line) = @_;
-    print ";$line";
 
     $instruction = substr($line,5,2);
 
@@ -101,8 +207,44 @@ sub instruction {
 		print "$1\n";
 		return;
 	}
+    
+	if (defined $twobytesecondword{$thing}) {
+    		$athing = substr($line,11,2);
+    		$athing2 = substr($line,14,2);
+		if (!($athing2 =~ /\s+/)) {
+    		 $curraddr = substr($line,0,4);
+		 printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$athing,$athing2;
+    		 printf "\t$twobytesecondword{$thing}", ">FOO$curraddr";
+		 $line =~ /$twobytesecondword{$thing} [0-9A-F][0-9A-F][0-9A-F][0-9A-F](.*)$/i;
+		 print "\t;$1\n";
+		return;
+		}
+    	}
+    }
+    
+    if (defined $onewitharg{$instruction}) {
+    	$thing = substr($line,8,2);
+	
+	printf "\t$onewitharg{$instruction}", $thing;
+	$line =~ /$onewitharg{$instruction} [0-9A-F][0-9A-F](.*)$/i;
+	print "\t;$1\n";
+	return;
+    }
+   
+    if (defined $onewithword{$instruction}) {
+    	$thing = substr($line,8,2);
+    	$thing2 = substr($line,11,2);
+	if (!($thing2 =~ /\s+/)) {
+    	$curraddr = substr($line,0,4);
+	printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$thing,$thing2;
+    	printf "\t$onewithword{$instruction}", ">FOO$curraddr";
+	$line =~ /$onewithword{$instruction} [0-9A-F][0-9A-F][0-9A-F][0-9A-F](.*)$/i;
+	print "\t;$1\n";
+	return;
+	}
     }
    
+    print ";$line";
     if ($line =~ /^([A-F0-9]{4}) ((([A-F0-9]{2}) )*[A-F0-9]{2})/) {
         @_=split(' ',$2);
         print "\tFCB\t\$".join(', $',@_)."\n";