X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=rmac.c;h=6bf5a5060fb8a23e109d308bc0a0109e9a1992ed;hp=5745d5274e82a1b35a2d66a846c4aae5337b96e8;hb=052be802baa4836564801c780b1d432cfe17c576;hpb=1feb728a9eb579b6441daf0124d81483f600365c

diff --git a/rmac.c b/rmac.c
index 5745d52..6bf5a50 100644
--- a/rmac.c
+++ b/rmac.c
@@ -25,6 +25,7 @@
 int perm_verb_flag;				// Permanently verbose, interactive mode
 int list_flag;					// "-l" listing flag on command line
 int verb_flag;					// Be verbose about what's going on
+int m6502;						// 1, assembling 6502 code
 int as68_flag;					// as68 kludge mode
 int glob_flag;					// Assume undefined symbols are global
 int lsym_flag;					// Include local symbols in object file
@@ -39,11 +40,11 @@ int rgpu, rdsp;					// Assembling Jaguar GPU or DSP code
 int list_fd;					// File to write listing to
 int regbank;					// RISC register bank
 int segpadsize;					// Segment padding size
-int endian;						// Host processor endianess
+int endian;						// Host processor endianess (0 = LE, 1 = BE)
 char * objfname;				// Object filename pointer
 char * firstfname;				// First source filename
 char * cmdlnexec;				// Executable name, pointer to ARGV[0]
-char * searchpath;				// Search path for include files 
+char * searchpath;				// Search path for include files
 char defname[] = "noname.o";	// Default output filename
 int optim_flags[OPT_COUNT];	// Specific optimisations on/off matrix
 
@@ -128,11 +129,18 @@ void DisplayHelp(void)
 		"  -f[format]        Output object file format\n"
 		"                    a: ALCYON (use this for ST)\n"
 		"                    b: BSD (use this for Jaguar)\n"
+		"                    e: ELF\n"
+        "                    x: com/exe/xex (Atari 800)\n"
 		"  -i[path]          Directory to search for include files\n"
 		"  -l[filename]      Create an output listing file\n"
 		"  -n                Don't do things behind your back in RISC assembler\n"
 		"  -o file           Output file name\n"
 		"  +o[value]         Turn a specific optimisation on\n"
+        "                    Available optimisation values and default settings:\n"
+        "                    o0: Absolute long adddresses to word (on)\n"
+        "                    o1: move.l #x,dn/an to moveq         (on)\n"
+        "                    o2: Word branches to short           (on)\n"
+        "                    o3: Outer displacement 0(an) to (an) (off)\n"
 		"  ~o[value]         Turn a specific optimisation off\n"
 		"  +oall             Turn all optimisations on\n"
 		"  ~oall             Turn all optimisations off\n"
@@ -209,7 +217,7 @@ int ParseOptimization(char * optstring)
 }
 
 
-// 
+//
 // Process command line arguments and do an assembly
 //
 int Process(int argc, char ** argv)
@@ -244,6 +252,7 @@ int Process(int argc, char ** argv)
 	orgactive = 0;					// Not in RISC org section
 	orgwarning = 0;					// No ORG warning issued
 	segpadsize = 2;					// Initialise segment padding size
+    m6502 = 0;                      // 6502 mode off by default
 
 	// Initialise modules
 	InitSymbolTable();				// Symbol table
@@ -254,6 +263,7 @@ int Process(int argc, char ** argv)
 	InitMark();						// Mark tape-recorder
 	InitMacro();					// Macro processor
 	InitListing();					// Listing generator
+    Init6502();						// 6502 assembler
 
 	// Process command line arguments and assemble source files
 	for(argno=0; argno<argc; ++argno)
@@ -304,10 +314,18 @@ int Process(int argc, char ** argv)
 				case 'A':
 					obj_format = ALCYON;
 					break;
-				case 'b':			// -fb = BSD (Jaguar Recommended)
+				case 'b':			// -fb = BSD (Jaguar Recommended: 3 out 4 jaguars recommend it!)
 				case 'B':
 					obj_format = BSD;
 					break;
+				case 'e':			// -fe = ELF
+				case 'E':
+					obj_format = ELF;
+					break;
+                case 'x':           // -fx = COM/EXE/XEX
+                case 'X':
+                    obj_format = XEX;
+                    break;
 				default:
 					printf("-f: unknown object format specified\n");
 					errcnt++;
@@ -482,6 +500,8 @@ int Process(int argc, char ** argv)
 	// o  save current section (no more code generation)
 	// o  do auto-even of all sections (or boundary alignment as requested
 	//    through '-r')
+    // o  save the last pc value for 6502 (if we used 6502 at all) and
+    //    detemine if the last section contains anything
 	// o  determine name of object file:
 	//    -  "foo.o" for linkable output;
 	//    -  "foo.prg" for GEMDOS executable (-p flag).
@@ -503,6 +523,13 @@ int Process(int argc, char ** argv)
 		SaveSection();
 	}
 
+    SwitchSection(M6502);
+    if (sloc != currentorg[0])
+    {
+        currentorg[1] = sloc;
+        currentorg += 2;
+    }
+
 	if (objfname == NULL)
 	{
 		if (firstfname == NULL)
@@ -585,9 +612,9 @@ int main(int argc, char ** argv)
 	// Set legacy optimisation flags to on
 	// and everything else to off
 	memset(optim_flags, 0, OPT_COUNT * sizeof(int));
-	optim_flags[OPT_ABS_SHORT] = 
+	optim_flags[OPT_ABS_SHORT] =
 		optim_flags[OPT_MOVEL_MOVEQ] =
-		optim_flags[OPT_BSR_BCC_S] = 1;  
+		optim_flags[OPT_BSR_BCC_S] = 1;
 
 	cmdlnexec = argv[0];			// Obtain executable name