mirror of http://shamusworld.gotdns.org/git/rmac
317 lines
9.5 KiB
C
317 lines
9.5 KiB
C
//
|
|
// RMAC - Reboot's Macro Assembler for all Atari computers
|
|
// RMAC.H - Main Application Code
|
|
// Copyright (C) 199x Landon Dyer, 2011-2018 Reboot and Friends
|
|
// RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
|
|
// Source utilised with the kind permission of Landon Dyer
|
|
//
|
|
|
|
#ifndef __RMAC_H__
|
|
#define __RMAC_H__
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
|
|
//
|
|
// TARGET SPECIFIC BUILD SETTINGS
|
|
//
|
|
#if defined(WIN32) || defined(WIN64)
|
|
#include <io.h>
|
|
#include <fcntl.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
|
|
|
|
#ifdef _MSC_VER
|
|
#if _MSC_VER > 1000
|
|
#pragma warning(disable:4996)
|
|
#endif
|
|
|
|
// Makes warnings double clickable on visual studio (ggn)
|
|
#define STRINGIZE_HELPER(x) #x
|
|
#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...)
|
|
|
|
#else
|
|
// If we're not compiling for Visual Studio let's assume that we're using
|
|
// some flavour of gcc instead. So let's use the gcc compliant macro
|
|
// instead. If some weirdo uses something else (I dunno, Intel compiler or
|
|
// something?) this is probably going to explode spectacularly. Let's wait
|
|
// for the fireworks!
|
|
#define DO_PRAGMA(x) _Pragma (#x)
|
|
#define WARNING(desc) DO_PRAGMA(message (#desc))
|
|
|
|
#endif
|
|
|
|
#else
|
|
|
|
#ifdef __GCCUNIX__
|
|
|
|
#include <sys/fcntl.h>
|
|
#include <unistd.h>
|
|
// Release platform - Linux or mac OS-X
|
|
#define PLATFORM "Linux/OSX"
|
|
#define _OPEN_FLAGS O_TRUNC|O_CREAT|O_RDWR
|
|
#define _OPEN_INC O_RDONLY
|
|
#define _PERM_MODE S_IRUSR|S_IWUSR
|
|
|
|
#ifdef __MINGW32__
|
|
#define off64_t long
|
|
#define off_t long
|
|
#undef _OPEN_FLAGS
|
|
#undef _OPEN_INC
|
|
#define _OPEN_FLAGS _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
|
|
#define _OPEN_INC O_RDONLY|_O_BINARY
|
|
#endif
|
|
|
|
// WARNING WARNING WARNING
|
|
#define DO_PRAGMA(x) _Pragma (#x)
|
|
#define WARNING(desc) DO_PRAGMA(message (#desc))
|
|
|
|
#else
|
|
|
|
// Release platform - not specified
|
|
#include <sys/fcntl.h>
|
|
#define PLATFORM "Unknown"
|
|
#define _OPEN_FLAGS O_TRUNC|O_CREAT|O_RDWR
|
|
#define _OPEN_INC O_RDONLY
|
|
#define _PERM_MODE S_IREAD|S_IWRITE
|
|
// Defined here, even though the platform may not support it...
|
|
#define DO_PRAGMA(x) _Pragma (#x)
|
|
#define WARNING(desc) DO_PRAGMA(message (#desc))
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
//
|
|
// Endian related, for safe handling of endian-sensitive data
|
|
// USAGE: GETBExx() is *always* an rvalue, a = pointer to a uint8_t,
|
|
// r = offset from 0. SETBExx(), v = value to write into 'a'
|
|
//
|
|
#define GETBE16(a, r) \
|
|
(((uint16_t)(a)[(r + 0)] << 8) | ((uint16_t)(a)[(r + 1)]))
|
|
|
|
#define GETBE32(a, r) \
|
|
(((uint32_t)(a)[(r + 0)] << 24) | ((uint32_t)(a)[(r + 1)] << 16) \
|
|
| ((uint32_t)(a)[(r + 2)] << 8) | ((uint32_t)(a)[(r + 3)]))
|
|
|
|
#define GETBE64(a, r) \
|
|
(((uint64_t)(a)[(r + 0)] << 56) | ((uint64_t)(a)[(r + 1)] << 48) \
|
|
| ((uint64_t)(a)[(r + 2)] << 40) | ((uint64_t)(a)[(r + 3)] << 32) \
|
|
| ((uint64_t)(a)[(r + 4)] << 24) | ((uint64_t)(a)[(r + 5)] << 16) \
|
|
| ((uint64_t)(a)[(r + 6)] << 8) | ((uint64_t)(a)[(r + 7)]))
|
|
|
|
#define SETBE16(a, r, v) \
|
|
{ (a)[(r + 0)] = (uint8_t)((v) >> 8); \
|
|
(a)[(r + 1)] = (uint8_t)((v) & 0xFF); }
|
|
|
|
#define SETBE32(a, r, v) \
|
|
{ (a)[(r + 0)] = (uint8_t)((v) >> 24); \
|
|
(a)[(r + 1)] = (uint8_t)(((v) >> 16) & 0xFF); \
|
|
(a)[(r + 2)] = (uint8_t)(((v) >> 8) & 0xFF); \
|
|
(a)[(r + 3)] = (uint8_t)((v) & 0xFF); }
|
|
|
|
#define SETBE64(a, r, v) \
|
|
{ (a)[(r + 0)] = (uint8_t)((v) >> 56); \
|
|
(a)[(r + 1)] = (uint8_t)(((v) >> 48) & 0xFF); \
|
|
(a)[(r + 2)] = (uint8_t)(((v) >> 40) & 0xFF); \
|
|
(a)[(r + 3)] = (uint8_t)(((v) >> 32) & 0xFF); \
|
|
(a)[(r + 4)] = (uint8_t)(((v) >> 24) & 0xFF); \
|
|
(a)[(r + 5)] = (uint8_t)(((v) >> 16) & 0xFF); \
|
|
(a)[(r + 6)] = (uint8_t)(((v) >> 8) & 0xFF); \
|
|
(a)[(r + 7)] = (uint8_t)((v) & 0xFF); }
|
|
|
|
// In 6502 mode, turns out we need this:
|
|
#define SETLE16(a, r, v) \
|
|
{ (a)[(r + 0)] = (uint8_t)((v) & 0xFF); \
|
|
(a)[(r + 1)] = (uint8_t)((v) >> 8); }
|
|
|
|
// 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))
|
|
#define BYTESWAP64(x) (BYTESWAP32(x >> 32) | (BYTESWAP32(x & 0xFFFFFFFF) << 32))
|
|
#define WORDSWAP32(x) ((((x) & 0x0000FFFF) << 16) | (((x) & 0xFFFF0000) >> 16))
|
|
|
|
//
|
|
// Non-target specific stuff
|
|
//
|
|
#include <inttypes.h>
|
|
#include "symbol.h"
|
|
|
|
#define BYTE uint8_t
|
|
#define WORD uint16_t
|
|
#define LONG uint32_t
|
|
#define VOID void
|
|
|
|
#define ERROR (-1) // Generic error return
|
|
#define EOS '\0' // End of string
|
|
#define SPACE ' ' // ASCII space
|
|
#define SLASHCHAR '/'
|
|
#define SLASHSTRING "/"
|
|
#define FNSIZ 128 // Maximum size of a filename
|
|
#define OK 0 // OK return
|
|
#define DEBUG if (debug) // Debug conditional
|
|
#define MAXARGV 100 // Maximum number of commandline args
|
|
#define STDOUT 1 // Standard output
|
|
#define ERROUT 2 // Error output
|
|
#define CREATMASK 0
|
|
|
|
// Object code formats
|
|
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
|
|
};
|
|
|
|
// Assembler token
|
|
#define TOKEN uint32_t
|
|
|
|
// Pointer type that can point to (almost) anything
|
|
#define PTR union _ptr
|
|
PTR
|
|
{
|
|
uint8_t * cp; // Char pointer
|
|
uint16_t * wp; // WORD pointer
|
|
uint32_t * lp; // LONG pointer
|
|
uint32_t * u32; // 32-bit pointer
|
|
uint64_t * u64; // 64-bit pointer
|
|
uint32_t lw; // LONG (for some reason)
|
|
SYM ** sy; // SYM pointer
|
|
TOKEN * tk; // TOKEN pointer
|
|
double * dp; // Double pointer
|
|
int64_t * i64; // 64-bit signed int pointer
|
|
};
|
|
|
|
// Symbol spaces
|
|
#define LABEL 0 // User-defined symbol
|
|
#define MACRO 1 // Macro definition
|
|
#define MACARG 2 // Macro argument
|
|
#define SY_UNDEF -1 // Undefined (lookup never matches it)
|
|
|
|
// Symbol and expression attributes
|
|
#define DEFINED 0x8000 // Symbol has been defined
|
|
#define GLOBAL 0x4000 // Symbol has been .GLOBL'd
|
|
#define COMMON 0x2000 // Symbol has been .COMM'd
|
|
#define REFERENCED 0x1000 // Symbol has been referenced
|
|
#define EQUATED 0x0800 // Symbol was equated
|
|
#define SDECLLIST 0x0400 // Symbol is on 'sdecl'-order list
|
|
#define FLOAT 0x0200 // Symbol is a floating point value
|
|
|
|
// 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
|
|
#define M6502 0x0008 // 6502/microprocessor (absolute)
|
|
#define TDB (TEXT|DATA|BSS) // Mask for text+data+bss
|
|
|
|
// Sizes
|
|
#define SIZB 0x0001 // .b
|
|
#define SIZW 0x0002 // .w
|
|
#define SIZL 0x0004 // .l
|
|
#define SIZN 0x0008 // no .(size) specifier
|
|
#define SIZD 0x0010 // .d (FPU double precision real)
|
|
#define SIZS 0x0020 // .s (FPU single precision real)
|
|
#define SIZX 0x0040 // .x (FPU extended precision real)
|
|
#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
|
|
#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
|
|
{
|
|
OPT_ABS_SHORT = 0,
|
|
OPT_MOVEL_MOVEQ = 1,
|
|
OPT_BSR_BCC_S = 2,
|
|
OPT_INDIRECT_DISP = 3,
|
|
OPT_LEA_ADDQ = 4,
|
|
OPT_BASE_DISP = 5,
|
|
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
|
|
};
|
|
|
|
// 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 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 activecpu;
|
|
extern int activefpu;
|
|
|
|
// Exported functions
|
|
void strtoupper(char * s);
|
|
char * fext(char *, char *, int);
|
|
int nthpath(char *, int, char *);
|
|
int ParseOptimization(char * optstring);
|
|
|
|
#endif // __RMAC_H__
|
|
|