X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=sect.h;h=129b1cc08148228ea6ba3ec0c35f059a4dfc7404;hp=65264ae313e4113c7452ac8430f3c66794c6a380;hb=5cd8a4814b805f1ef8ce689423eb5eeba12573c5;hpb=ff2052bcaa1428a33a202822a81a6f9b8e567ef4 diff --git a/sect.h b/sect.h index 65264ae..129b1cc 100644 --- a/sect.h +++ b/sect.h @@ -59,7 +59,7 @@ // token.L expression list // (etc) // ENDEXPR.L (end of expression) -#define FUMASK 0x000F // Mask for fixup cases:(shouldn't this be $7F?) +#define FUMASK 0x000F // Mask for fixup cases: #define FU_QUICK 0x0000 // Fixup 3-bit quick instruction field #define FU_BYTE 0x0001 // Fixup byte #define FU_WORD 0x0002 // Fixup word @@ -113,6 +113,30 @@ SECT { CHUNK * sfix; // Last fixup chunk }; +// 680x0 defines +#define CPU_68000 1 +#define CPU_68020 2 +#define CPU_68030 4 +#define CPU_68040 8 +#define CPU_68060 16 +#define FPU_NONE 0 +#define FPU_68881 1 +#define FPU_68882 2 +#define FPU_68040 4 + +// Helper macros to test for active CPU +#define CHECK00 if (activecpu == CPU_68000) return error(unsupport) +#define CHECK20 if (activecpu == CPU_68020) return error(unsupport) +#define CHECK30 if (activecpu == CPU_68030) return error(unsupport) +#define CHECK40 if (activecpu == CPU_68040) return error(unsupport) +#define CHECK60 if (activecpu == CPU_68060) return error(unsupport) +#define CHECKNO00 if (activecpu != CPU_68000) return error(unsupport) +#define CHECKNO20 if (activecpu != CPU_68020) return error(unsupport) +#define CHECKNO30 if (activecpu != CPU_68030) return error(unsupport) +#define CHECKNO40 if (activecpu != CPU_68040) return error(unsupport) +#define CHECKNO60 if (activecpu != CPU_68060) return error(unsupport) + + // Globals, external etc extern uint32_t sloc; extern uint16_t scattr;