Shamusworld >> Repos - rmac/blob - rmac.h

   1 //
   2 // RMAC - Reboot's Macro Assembler for all Atari computers
   3 // RMAC.H - Main Application Code
   4 // Copyright (C) 199x Landon Dyer, 2011-2018 Reboot and Friends
   5 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
   6 // Source utilised with the kind permission of Landon Dyer
   7 //
   8
   9 #ifndef __RMAC_H__
  10 #define __RMAC_H__
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <ctype.h>
  16 #include <sys/types.h>
  17 #include <sys/stat.h>
  18
  19 //
  20 // TARGET SPECIFIC BUILD SETTINGS
  21 //
  22 #if defined(WIN32) || defined(WIN64)
  23         #include <io.h>
  24         #include <fcntl.h>
  25         // Release platform - windows
  26         #define PLATFORM        "Win32"
  27         #define _OPEN_FLAGS     _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
  28         #define _OPEN_INC       _O_RDONLY|_O_BINARY
  29         #define _PERM_MODE      _S_IREAD|_S_IWRITE
  30
  31         #ifdef _MSC_VER
  32                 #if _MSC_VER > 1000
  33                         #pragma warning(disable:4996)
  34                 #endif
  35
  36         // Makes warnings double clickable on visual studio (ggn)
  37         #define STRINGIZE_HELPER(x) #x
  38         #define STRINGIZE(x) STRINGIZE_HELPER(x)
  39         #define WARNING(desc) __pragma(message(__FILE__ "(" STRINGIZE(__LINE__) ") : Warning: " #desc))
  40         #define inline __inline
  41
  42         // usage:
  43         // WARNING(FIXME: Code removed because...)
  44
  45         #else
  46         // If we're not compiling for Visual Studio let's assume that we're using
  47         // some flavour of gcc instead. So let's use the gcc compliant macro
  48         // instead. If some weirdo uses something else (I dunno, Intel compiler or
  49         // something?) this is probably going to explode spectacularly. Let's wait
  50         // for the fireworks!
  51         #define DO_PRAGMA(x) _Pragma (#x)
  52         #define WARNING(desc) DO_PRAGMA(message (#desc))
  53
  54         #endif
  55
  56 #else
  57
  58         #ifdef __GCCUNIX__
  59
  60         #include <sys/fcntl.h>
  61         #include <unistd.h>
  62         // Release platform - Linux or mac OS-X
  63         #define PLATFORM        "Linux/OSX"
  64         #define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
  65         #define _OPEN_INC       O_RDONLY
  66         #define _PERM_MODE      S_IRUSR|S_IWUSR
  67
  68         #ifdef __MINGW32__
  69         #define off64_t long
  70         #define off_t long
  71         #undef _OPEN_FLAGS
  72         #undef _OPEN_INC
  73         #define _OPEN_FLAGS     _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
  74         #define _OPEN_INC       O_RDONLY|_O_BINARY
  75         #endif
  76
  77         // WARNING WARNING WARNING
  78         #define DO_PRAGMA(x) _Pragma (#x)
  79         #define WARNING(desc) DO_PRAGMA(message (#desc))
  80
  81         #else
  82
  83         // Release platform - not specified
  84         #include <sys/fcntl.h>
  85         #define PLATFORM        "Unknown"
  86         #define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
  87         #define _OPEN_INC       O_RDONLY
  88         #define _PERM_MODE      S_IREAD|S_IWRITE
  89         // Defined here, even though the platform may not support it...
  90         #define DO_PRAGMA(x) _Pragma (#x)
  91         #define WARNING(desc) DO_PRAGMA(message (#desc))
  92         #endif
  93
  94 #endif
  95
  96
  97 //
  98 // Endian related, for safe handling of endian-sensitive data
  99 // USAGE: GETBExx() is *always* an rvalue, a = pointer to a uint8_t,
 100 //        r = offset from 0. SETBExx(), v = value to write into 'a'
 101 //
 102 #define GETBE16(a, r) \
 103         (((uint16_t)(a)[(r + 0)] << 8) | ((uint16_t)(a)[(r + 1)]))
 104
 105 #define GETBE32(a, r) \
 106         (((uint32_t)(a)[(r + 0)] << 24) | ((uint32_t)(a)[(r + 1)] << 16) \
 107         | ((uint32_t)(a)[(r + 2)] << 8) | ((uint32_t)(a)[(r + 3)]))
 108
 109 #define GETBE64(a, r) \
 110         (((uint64_t)(a)[(r + 0)] << 56) | ((uint64_t)(a)[(r + 1)] << 48) \
 111         | ((uint64_t)(a)[(r + 2)] << 40) | ((uint64_t)(a)[(r + 3)] << 32) \
 112         | ((uint64_t)(a)[(r + 4)] << 24) | ((uint64_t)(a)[(r + 5)] << 16) \
 113         | ((uint64_t)(a)[(r + 6)] << 8) | ((uint64_t)(a)[(r + 7)]))
 114
 115 #define SETBE16(a, r, v) \
 116         { (a)[(r + 0)] = (uint8_t)((v) >> 8); \
 117         (a)[(r + 1)] = (uint8_t)((v) & 0xFF); }
 118
 119 #define SETBE32(a, r, v) \
 120         { (a)[(r + 0)] = (uint8_t)((v) >> 24); \
 121         (a)[(r + 1)] = (uint8_t)(((v) >> 16) & 0xFF); \
 122         (a)[(r + 2)] = (uint8_t)(((v) >> 8) & 0xFF); \
 123         (a)[(r + 3)] = (uint8_t)((v) & 0xFF); }
 124
 125 #define SETBE64(a, r, v) \
 126         { (a)[(r + 0)] = (uint8_t)((v) >> 56); \
 127         (a)[(r + 1)] = (uint8_t)(((v) >> 48) & 0xFF); \
 128         (a)[(r + 2)] = (uint8_t)(((v) >> 40) & 0xFF); \
 129         (a)[(r + 3)] = (uint8_t)(((v) >> 32) & 0xFF); \
 130         (a)[(r + 4)] = (uint8_t)(((v) >> 24) & 0xFF); \
 131         (a)[(r + 5)] = (uint8_t)(((v) >> 16) & 0xFF); \
 132         (a)[(r + 6)] = (uint8_t)(((v) >> 8) & 0xFF); \
 133         (a)[(r + 7)] = (uint8_t)((v) & 0xFF); }
 134
 135 // In 6502 mode, turns out we need this:
 136 #define SETLE16(a, r, v) \
 137         { (a)[(r + 0)] = (uint8_t)((v) & 0xFF); \
 138         (a)[(r + 1)] = (uint8_t)((v) >> 8); }
 139
 140 // Byteswap crap
 141 #define BYTESWAP16(x) ((((x) & 0x00FF) << 8) | (((x) & 0xFF00) >> 8))
 142 #define BYTESWAP32(x) ((((x) & 0x000000FF) << 24) | (((x) & 0x0000FF00) << 8) | (((x) & 0x00FF0000) >> 8) | (((x) & 0xFF000000) >> 24))
 143 #define BYTESWAP64(x) (BYTESWAP32(x >> 32) | (BYTESWAP32(x & 0xFFFFFFFF) << 32))
 144 #define WORDSWAP32(x) ((((x) & 0x0000FFFF) << 16) | (((x) & 0xFFFF0000) >> 16))
 145
 146 //
 147 // Non-target specific stuff
 148 //
 149 #include <inttypes.h>
 150 #include "symbol.h"
 151
 152 #define BYTE         uint8_t
 153 #define WORD         uint16_t
 154 #define LONG         uint32_t
 155 #define VOID         void
 156
 157 #define ERROR        (-1)               // Generic error return
 158 #define EOS          '\0'               // End of string
 159 #define SPACE        ' '                // ASCII space
 160 #define SLASHCHAR    '/'
 161 #define SLASHSTRING  "/"
 162 #define FNSIZ        128                // Maximum size of a filename
 163 #define OK           0                  // OK return
 164 #define DEBUG        if (debug) // Debug conditional
 165 #define MAXARGV      100                // Maximum number of commandline args
 166 #define STDOUT       1                  // Standard output
 167 #define ERROUT       2                  // Error output
 168 #define CREATMASK    0
 169
 170 // Object code formats
 171 enum
 172 {
 173 ALCYON,                         // Alcyon/DRI C object format
 174 MWC,                            // Mark Williams object format
 175 BSD,                            // BSD object format
 176 ELF,                            // ELF object format
 177 LOD,                            // DSP 56001 object format
 178 P56,                            // DSP 56001 object format
 179 XEX,                            // COM/EXE/XEX/whatever a8 object format
 180 };
 181
 182 // Assembler token
 183 #define TOKEN   uint32_t
 184
 185 // Pointer type that can point to (almost) anything
 186 #define PTR union _ptr
 187 PTR
 188 {
 189         uint8_t *  cp;                          // Char pointer
 190         uint16_t * wp;                          // WORD pointer
 191         uint32_t * lp;                          // LONG pointer
 192         uint32_t * u32;                         // 32-bit pointer
 193         uint64_t * u64;                         // 64-bit pointer
 194         uint32_t   lw;                          // LONG (for some reason)
 195         SYM **     sy;                          // SYM pointer
 196         TOKEN *    tk;                          // TOKEN pointer
 197         double *   dp;                          // Double pointer
 198         int64_t *  i64;                         // 64-bit signed int pointer
 199 };
 200
 201 // Symbol spaces
 202 #define LABEL        0                  // User-defined symbol
 203 #define MACRO        1                  // Macro definition
 204 #define MACARG       2                  // Macro argument
 205 #define SY_UNDEF     -1                 // Undefined (lookup never matches it)
 206
 207 // Symbol and expression attributes
 208 #define DEFINED      0x8000             // Symbol has been defined
 209 #define GLOBAL       0x4000             // Symbol has been .GLOBL'd
 210 #define COMMON       0x2000             // Symbol has been .COMM'd
 211 #define REFERENCED   0x1000             // Symbol has been referenced
 212 #define EQUATED      0x0800             // Symbol was equated
 213 #define SDECLLIST    0x0400             // Symbol is on 'sdecl'-order list
 214 #define FLOAT        0x0200             // Symbol is a floating point value
 215
 216 // Expression spaces, ORed with symbol and expression attributes above
 217 #define ABS          0x0000             // In absolute space
 218 #define TEXT         0x0001             // Relative to text
 219 #define DATA         0x0002             // Relative to data
 220 #define BSS          0x0004             // Relative to BSS
 221 #define M6502        0x0008             // 6502/microprocessor (absolute)
 222 #define TDB          (TEXT|DATA|BSS)    // Mask for text+data+bss
 223
 224 // Sizes
 225 #define SIZB         0x0001             // .b
 226 #define SIZW         0x0002             // .w
 227 #define SIZL         0x0004             // .l
 228 #define SIZN         0x0008             // no .(size) specifier
 229 #define SIZD         0x0010             // .d (FPU double precision real)
 230 #define SIZS         0x0020             // .s (FPU single precision real)
 231 #define SIZX         0x0040             // .x (FPU extended precision real)
 232 #define SIZP         0x0080             // .p (FPU pakced decimal real)
 233 #define SIZQ         0x0100             // .q (quad word)
 234
 235 // RISC register bank definitions (used in extended symbol attributes also)
 236 #define BANK_N       0x0000             // No register bank specified
 237 #define BANK_0       0x0001             // Register bank zero specified
 238 #define BANK_1       0x0002             // Register bank one specified
 239 #define EQUATEDREG   0x0008             // Equated register symbol
 240 #define UNDEF_EQUR   0x0010
 241 #define EQUATEDCC    0x0020
 242 #define UNDEF_CC     0x0040
 243
 244 // Construct binary constants at compile time
 245 // Code by Tom Torfs
 246
 247 // Helper macros
 248 #define HEX__(n) 0x##n##LU
 249 #define B8__(x) \
 250  ((x&0x0000000FLU)?1:0) \
 251 +((x&0x000000F0LU)?2:0) \
 252 +((x&0x00000F00LU)?4:0) \
 253 +((x&0x0000F000LU)?8:0) \
 254 +((x&0x000F0000LU)?16:0) \
 255 +((x&0x00F00000LU)?32:0) \
 256 +((x&0x0F000000LU)?64:0) \
 257 +((x&0xF0000000LU)?128:0)
 258
 259 // User macros
 260 #define B8(d) ((uint8_t)B8__(HEX__(d)))
 261 #define B16(dmsb,dlsb) (((uint16_t)B8(dmsb)<<8) + B8(dlsb))
 262 #define B32(dmsb,db2,db3,dlsb) (((uint32_t)B8(dmsb)<<24) \
 263 + ((uint32_t)B8(db2)<<16) \
 264 + ((uint32_t)B8(db3)<<8) \
 265 + B8(dlsb))
 266
 267 // Optimisation defines
 268 enum
 269 {
 270         OPT_ABS_SHORT     = 0,
 271         OPT_MOVEL_MOVEQ   = 1,
 272         OPT_BSR_BCC_S     = 2,
 273         OPT_INDIRECT_DISP = 3,
 274         OPT_LEA_ADDQ      = 4,
 275         OPT_BASE_DISP     = 5,
 276         OPT_NULL_BRA      = 6,
 277         OPT_CLR_DX        = 7,
 278         OPT_ADDA_ADDQ     = 8,
 279         OPT_ADDA_LEA      = 9,
 280         OPT_COUNT   // Dummy, used to count number of optimisation switches
 281 };
 282
 283 // Exported variables
 284 extern int verb_flag;
 285 extern int debug;
 286 extern int rgpu, rdsp;
 287 extern int robjproc;
 288 extern int dsp56001;
 289 extern int err_flag;
 290 extern int err_fd;
 291 extern int regbank;
 292 extern char * firstfname;
 293 extern int list_fd;
 294 extern int list_pag;
 295 extern int as68_flag;
 296 extern int m6502;
 297 extern int list_flag;
 298 extern int glob_flag;
 299 extern int lsym_flag;
 300 extern int sbra_flag;
 301 extern int obj_format;
 302 extern int legacy_flag;
 303 extern int prg_flag;    // 1 = write ".PRG" relocatable executable
 304 extern LONG PRGFLAGS;
 305 extern int optim_flags[OPT_COUNT];
 306 extern int activecpu;
 307 extern int activefpu;
 308
 309 // Exported functions
 310 void strtoupper(char * s);
 311 char * fext(char *, char *, int);
 312 int nthpath(char *, int, char *);
 313 int ParseOptimization(char * optstring);
 314
 315 #endif // __RMAC_H__
 316