//
-// RMAC - Reboot's Macro Assembler for all Atari computers
+// RMAC - Renamed Macro Assembler for all Atari computers
// RMAC.H - Main Application Code
-// Copyright (C) 199x Landon Dyer, 2011-2017 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2022 Reboot and Friends
// RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
// Source utilised with the kind permission of Landon Dyer
//
#if defined(WIN32) || defined(WIN64)
#include <io.h>
#include <fcntl.h>
+ #include "dirent_lose.h"
// Release platform - windows
#define PLATFORM "Win32"
#define _OPEN_FLAGS _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
#define _OPEN_INC _O_RDONLY|_O_BINARY
#define _PERM_MODE _S_IREAD|_S_IWRITE
+ #define PATH_SEPS ";"
+ #define realpath(_fn, _abs) _fullpath((_abs), (_fn), _MAX_PATH)
#ifdef _MSC_VER
#if _MSC_VER > 1000
#define STRINGIZE(x) STRINGIZE_HELPER(x)
#define WARNING(desc) __pragma(message(__FILE__ "(" STRINGIZE(__LINE__) ") : Warning: " #desc))
#define inline __inline
-
// usage:
// WARNING(FIXME: Code removed because...)
#endif
+ // Ever since Visual Studio... 2017? 2019? the following constants come
+ // defined in the platform SDK, which leads to endless warnings from the
+ // compiler. So let's just put the pacifier on and undef them, sheesh! (No,
+ // we won't rename the defines, we've been here since 1986, Visual Studio
+ // wasn't even a glimpse in the milkman's eyes, if you catch my drift)
+ #undef CONST
+ #undef ERROR
+ #undef TEXT
+
#else
+ #include <dirent.h>
+
#ifdef __GCCUNIX__
#include <sys/fcntl.h>
#define _OPEN_FLAGS O_TRUNC|O_CREAT|O_RDWR
#define _OPEN_INC O_RDONLY
#define _PERM_MODE S_IRUSR|S_IWUSR
+ #define PATH_SEPS ";:"
#ifdef __MINGW32__
#define off64_t long
#define _OPEN_FLAGS O_TRUNC|O_CREAT|O_RDWR
#define _OPEN_INC O_RDONLY
#define _PERM_MODE S_IREAD|S_IWRITE
+ #define PATH_SEPS ":;"
// Defined here, even though the platform may not support it...
#define DO_PRAGMA(x) _Pragma (#x)
#define WARNING(desc) DO_PRAGMA(message (#desc))
{ (a)[(r + 0)] = (uint8_t)((v) & 0xFF); \
(a)[(r + 1)] = (uint8_t)((v) >> 8); }
+// In DSP56001 mode, this is useful:
+#define SETBE24(a, v) \
+ { (a)[0] = (uint8_t)(((v) >> 16) & 0xFF); \
+ (a)[1] = (uint8_t)(((v) >> 8) & 0xFF); \
+ (a)[2] = (uint8_t)((v) & 0xFF); }
+
// Byteswap crap
#define BYTESWAP16(x) ((((x) & 0x00FF) << 8) | (((x) & 0xFF00) >> 8))
#define BYTESWAP32(x) ((((x) & 0x000000FF) << 24) | (((x) & 0x0000FF00) << 8) | (((x) & 0x00FF0000) >> 8) | (((x) & 0xFF000000) >> 24))
enum
{
ALCYON, // Alcyon/DRI C object format
-MWC, // Mark Williams object format
BSD, // BSD object format
ELF, // ELF object format
LOD, // DSP 56001 object format
P56, // DSP 56001 object format
XEX, // COM/EXE/XEX/whatever a8 object format
+RAW, // Output at absolute address
+C64PRG, // C64 .PRG format
};
// Assembler token
#define LABEL 0 // User-defined symbol
#define MACRO 1 // Macro definition
#define MACARG 2 // Macro argument
+#define DBGSYM 3 // stabs debug symbol
#define SY_UNDEF -1 // Undefined (lookup never matches it)
// Symbol and expression attributes
#define EQUATED 0x0800 // Symbol was equated
#define SDECLLIST 0x0400 // Symbol is on 'sdecl'-order list
#define FLOAT 0x0200 // Symbol is a floating point value
+#define RISCREG 0x0100 // Symbol is a RISC register
// Expression spaces, ORed with symbol and expression attributes above
#define ABS 0x0000 // In absolute space
#define TEXT 0x0001 // Relative to text
#define DATA 0x0002 // Relative to data
#define BSS 0x0004 // Relative to BSS
+//OK, this is bad, mmkay? These are treated as indices into an array which means that this was never meant to be defined this way--at least if it was, it was a compromise that has come home to bite us all in the ass. !!! FIX !!!
#define M6502 0x0008 // 6502/microprocessor (absolute)
-#define TDB (TEXT|DATA|BSS) // Mask for text+data+bss
+#define M56001P 0x0010 // DSP 56001 Program RAM
+#define M56001X 0x0020 // DSP 56001 X RAM
+#define M56001Y 0x0040 // DSP 56001 Y RAM
+#define M56001L 0x0080 // DSP 56001 L RAM
+#define TDB (TEXT|DATA|BSS) // Mask for TEXT+DATA+BSS
+#define M56KPXYL (M56001P|M56001X|M56001Y|M56001L) // Mask for 56K stuff
// Sizes
#define SIZB 0x0001 // .b
#define SIZP 0x0080 // .p (FPU pakced decimal real)
#define SIZQ 0x0100 // .q (quad word)
-// RISC register bank definitions (used in extended symbol attributes also)
-#define BANK_N 0x0000 // No register bank specified
-#define BANK_0 0x0001 // Register bank zero specified
-#define BANK_1 0x0002 // Register bank one specified
+// Extended attributes
#define EQUATEDREG 0x0008 // Equated register symbol
#define UNDEF_EQUR 0x0010
#define EQUATEDCC 0x0020
#define UNDEF_CC 0x0040
-// Construct binary constants at compile time
-// Code by Tom Torfs
-
-// Helper macros
-#define HEX__(n) 0x##n##LU
-#define B8__(x) \
- ((x&0x0000000FLU)?1:0) \
-+((x&0x000000F0LU)?2:0) \
-+((x&0x00000F00LU)?4:0) \
-+((x&0x0000F000LU)?8:0) \
-+((x&0x000F0000LU)?16:0) \
-+((x&0x00F00000LU)?32:0) \
-+((x&0x0F000000LU)?64:0) \
-+((x&0xF0000000LU)?128:0)
-
-// User macros
-#define B8(d) ((uint8_t)B8__(HEX__(d)))
-#define B16(dmsb,dlsb) (((uint16_t)B8(dmsb)<<8) + B8(dlsb))
-#define B32(dmsb,db2,db3,dlsb) (((uint32_t)B8(dmsb)<<24) \
-+ ((uint32_t)B8(db2)<<16) \
-+ ((uint32_t)B8(db3)<<8) \
-+ B8(dlsb))
-
// Optimisation defines
enum
{
+ // These will be set to on/off when .opt "+Oall"/"~Oall" is called
OPT_ABS_SHORT = 0,
OPT_MOVEL_MOVEQ = 1,
OPT_BSR_BCC_S = 2,
- OPT_INDIRECT_DISP = 3,
+ OPT_OUTER_DISP = 3,
OPT_LEA_ADDQ = 4,
- OPT_BASE_DISP = 5,
+ OPT_020_DISP = 5, // 020+ base and outer displacements (bd, od) absolute long to short
OPT_NULL_BRA = 6,
OPT_CLR_DX = 7,
OPT_ADDA_ADDQ = 8,
OPT_ADDA_LEA = 9,
- OPT_COUNT // Dummy, used to count number of optimisation switches
+ OPT_56K_SHORT = 10,
+ OPT_56K_AUTO_LONG = 11,
+ OPT_COUNT, // Dummy, used to count number of optimisation switches
+ // These will be unaffected by "Oall"
+ OPT_PC_RELATIVE = 30, // Enforce PC relative
+ OPT_COUNT_ALL // Dummy, used to count all switches
};
// Exported variables
extern int verb_flag;
extern int debug;
extern int rgpu, rdsp;
+extern int robjproc;
extern int dsp56001;
extern int err_flag;
extern int err_fd;
-extern int regbank;
extern char * firstfname;
extern int list_fd;
extern int list_pag;
-extern int as68_flag;
extern int m6502;
extern int list_flag;
extern int glob_flag;
extern int lsym_flag;
-extern int sbra_flag;
+extern int dsym_flag;
+extern int optim_warn_flag;
extern int obj_format;
extern int legacy_flag;
extern int prg_flag; // 1 = write ".PRG" relocatable executable
extern LONG PRGFLAGS;
-extern int optim_flags[OPT_COUNT];
+extern int optim_flags[OPT_COUNT_ALL];
extern int activecpu;
extern int activefpu;
+extern uint32_t org68k_address;
+extern int org68k_active;
+extern int *regbase;
+extern int *regtab;
+extern int *regcheck;
+extern int *regaccept;
+extern uint32_t used_architectures;
// Exported functions
+void strtoupper(char * s);
char * fext(char *, char *, int);
int nthpath(char *, int, char *);
int ParseOptimization(char * optstring);
projects / rmac / blobdiff