X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=direct.c;h=10189a65a3ec1d4c2d35e83c0e75a54eb0a37f97;hp=15ce236287200236f9ce403ef7db7c5055144f65;hb=5f23454f7155f0c77ea1bede3f9e60b39da99fa8;hpb=052be802baa4836564801c780b1d432cfe17c576 diff --git a/direct.c b/direct.c index 15ce236..10189a6 100644 --- a/direct.c +++ b/direct.c @@ -7,16 +7,19 @@ // #include "direct.h" -#include "sect.h" -#include "riscasm.h" +#include "6502.h" +#include "amode.h" #include "error.h" -#include "token.h" -#include "procln.h" #include "expr.h" -#include "mach.h" #include "listing.h" +#include "mach.h" +#include "macro.h" #include "mark.h" +#include "procln.h" +#include "riscasm.h" +#include "sect.h" #include "symbol.h" +#include "token.h" #define DEF_KW #include "kwtab.h" @@ -26,12 +29,60 @@ SYM * symbolPtr[1000000]; // Symbol pointers table static long unused; // For supressing 'write' warnings char buffer[256]; // Scratch buffer for messages +// Function prototypes +int d_unimpl(void); +int d_68000(void); +int d_68000(void); +int d_68020(void); +int d_68030(void); +int d_68040(void); +int d_68060(void); +int d_68881(void); +int d_68882(void); +int d_56001(void); +int d_nofpu(void); +int d_bss(void); +int d_data(void); +int d_text(void); +int d_abs(void); +int d_comm(void); +int d_dc(WORD); +int d_ds(WORD); +int d_dcb(WORD); +int d_globl(void); +int d_gpu(void); +int d_dsp(void); +int d_assert(void); +int d_include(void); +int d_list(void); +int d_nlist(void); +int d_error(char *); +int d_warn(char *); +int d_org(void); +int d_init(WORD); +int d_cargs(void); +int d_undmac(void); +int d_regbank0(void); +int d_regbank1(void); +int d_incbin(void); +int d_noclear(void); +int d_equrundef(void); +int d_ccundef(void); +int d_print(void); +int d_gpumain(void); +int d_jpad(void); +int d_nojpad(void); +int d_fail(void); +int d_cstruct(void); +int d_prgflags(void); +int d_opt(void); +int d_dsp(void); // Directive handler table int (*dirtab[])() = { d_org, // 0 org d_even, // 1 even - d_6502, // 2 .6502 + d_6502, // 2 .6502 d_68000, // 3 .68000 d_bss, // 4 bss d_data, // 5 data @@ -87,6 +138,14 @@ int (*dirtab[])() = { d_nojpad, // 55 .nojpad (deprecated) d_gpumain, // 56 .gpumain (deprecated) d_prgflags, // 57 .prgflags + d_68020, // 58 .68020 + d_68030, // 59 .68030 + d_68040, // 60 .68040 + d_68060, // 61 .68060 + d_68881, // 62 .68881 + d_68882, // 63 .68882 + d_56001, // 64 .56001 + d_nofpu, // 65 nofpu d_opt, // 58 .opt }; @@ -138,53 +197,45 @@ int d_warn(char *str) // int d_org(void) { - VALUE address; - - if (!rgpu && !rdsp && !m6502) - return error(".org permitted only in gpu/dsp and 6502 sections"); - - if (rgpu | rdsp) - { - orgaddr = 0; - - if (abs_expr(&address) == ERROR) - { - error("cannot determine org'd address"); - return ERROR; - } - - orgaddr = address; - orgactive = 1; - //printf("ORG: address = $%08X...\n", orgaddr); - - return 0; - } - else - { - // 6502 - // We also kludge `lsloc' so the listing generator doesn't - // try to spew out megabytes. - VALUE eval; - - //if (m6502 == 0) return error(".org permitted only in .6502 section"); - if (abs_expr(&eval) < 0) return 0; - if (eval >= 0x10000L) return error(range_error); - - if (sloc != currentorg[0]) - { - currentorg[1] = sloc; - currentorg += 2; - } - - currentorg[0] = eval; - ch_size = 0; - lsloc = sloc = eval; - chptr = scode->chptr + eval; - orgactive = 1; - orgaddr = eval; - at_eol(); - return 0; - } + VALUE address; + + if (!rgpu && !rdsp && !m6502) + return error(".org permitted only in gpu/dsp and 6502 sections"); + + if (abs_expr(&address) == ERROR) + { + error("cannot determine org'd address"); + return ERROR; + } + + if (rgpu | rdsp) + { + orgaddr = address; + orgactive = 1; + } + else + { + // 6502. We also kludge `lsloc' so the listing generator doesn't try + // to spew out megabytes. + if (address > 0xFFFF) + return error(range_error); + + if (sloc != currentorg[0]) + { + currentorg[1] = sloc; + currentorg += 2; + } + + currentorg[0] = address; + ch_size = 0; + lsloc = sloc = address; + chptr = scode->chptr + address; + orgaddr = address; + orgactive = 1; + at_eol(); + } + + return 0; } @@ -495,8 +546,8 @@ static inline void SkipBytes(unsigned bytesToSkip) // int d_even(void) { - if (m6502) - return error(in_6502mode); + if (m6502) + return error(in_6502mode); unsigned skip = (rgpu || rdsp ? orgaddr : sloc) & 0x01; @@ -593,16 +644,16 @@ int d_qphrase(void) // void auto_even(void) { - if (cursect != M6502) - { - if (scattr & SBSS) - sloc++; // Bump BSS section - else - D_byte(0); // Deposit 0.b in non-BSS + if (cursect != M6502) + { + if (scattr & SBSS) + sloc++; // Bump BSS section + else + D_byte(0); // Deposit 0.b in non-BSS - if (lab_sym != NULL) // Bump label if we have to - lab_sym->svalue++; - } + if (lab_sym != NULL) // Bump label if we have to + lab_sym->svalue++; + } } @@ -771,8 +822,8 @@ int globl1(char * p) int d_globl(void) { - if (m6502) - return error(in_6502mode); + if (m6502) + return error(in_6502mode); symlist(globl1); return 0; @@ -807,9 +858,9 @@ int d_abs(void) { VALUE eval; - if (m6502) - return error(in_6502mode); - + if (m6502) + return error(in_6502mode); + SaveSection(); if (*tok == EOL) @@ -830,8 +881,8 @@ int d_text(void) { if (rgpu || rdsp) return error("directive forbidden in gpu/dsp mode"); - if (m6502) - return error(in_6502mode); + else if (m6502) + return error(in_6502mode); if (cursect != TEXT) { @@ -847,8 +898,8 @@ int d_data(void) { if (rgpu || rdsp) return error("directive forbidden in gpu/dsp mode"); - if (m6502) - return error(in_6502mode); + else if (m6502) + return error(in_6502mode); if (cursect != DATA) { @@ -864,8 +915,8 @@ int d_bss(void) { if (rgpu || rdsp) return error("directive forbidden in gpu/dsp mode"); - if (m6502) - return error(in_6502mode); + else if (m6502) + return error(in_6502mode); if (cursect != BSS) { @@ -886,18 +937,20 @@ int d_ds(WORD siz) VALUE eval; - if (cursect != M6502) - { - if ((siz != SIZB) && (sloc & 1)) // Automatic .even - auto_even(); - } + if (cursect != M6502) + { + if ((siz != SIZB) && (sloc & 1)) // Automatic .even + auto_even(); + } if (abs_expr(&eval) != OK) return 0; // Check to see if the value being passed in is negative (who the hell does // that?--nobody does; it's the code gremlins, or rum, that does it) - if (eval < 0) + // N.B.: Since VALUE is of type uint32_t, if it goes negative, it will have + // its high bit set. + if (eval & 0x80000000) return error("negative sizes not allowed"); // In non-TDB section (BSS, ABS and M6502) just advance the location @@ -908,7 +961,10 @@ int d_ds(WORD siz) listvalue(eval); eval *= siz; sloc += eval; - if (cursect == M6502) chptr += eval; + + if (cursect == M6502) + chptr += eval; + just_bss = 1; // No data deposited (8-bit CPU mode) } else @@ -947,15 +1003,27 @@ int d_dc(WORD siz) for(;; tok++) { // dc.b 'string' [,] ... - if (siz == SIZB && *tok == STRING && (tok[2] == ',' || tok[2] == EOL)) + if (siz == SIZB && (*tok == STRING || *tok == STRINGA8) && (tok[2] == ',' || tok[2] == EOL)) { uint32_t i = strlen(string[tok[1]]); if ((challoc - ch_size) < i) chcheck(i); - for(p=string[tok[1]]; *p!=EOS; p++) - D_byte(*p); + if (*tok == STRING) + { + for(p=string[tok[1]]; *p!=EOS; p++) + D_byte(*p); + } + else if(*tok == STRINGA8) + { + for(p=string[tok[1]]; *p!=EOS; p++) + D_byte(strtoa8[*p]); + } + else + { + error("String format not supported... yet"); + } tok += 2; goto comma; @@ -992,15 +1060,15 @@ int d_dc(WORD siz) } else { + if (tdb) + return error("non-absolute byte value"); + if (eval + 0x100 >= 0x200) { sprintf(buffer, "%s (value = $%X)", range_error, eval); return error(buffer); } - if (tdb) - return error("non-absolute byte value"); - D_byte(eval); } @@ -1021,21 +1089,16 @@ int d_dc(WORD siz) MarkRelocatable(cursect, sloc, tdb, MWORD, NULL); // Deposit 68000 or 6502 (byte-reversed) word - if (cursect != M6502) - { - D_word(eval); - } - else - { - D_rword(eval); - } - + if (cursect != M6502) + D_word(eval) + else + D_rword(eval) } break; case SIZL: - if (m6502) - return error(in_6502mode); + if (m6502) + return error(in_6502mode); if (!defined) { @@ -1222,13 +1285,9 @@ int dep_block(VALUE count, WORD siz, VALUE eval, WORD eattr, TOKEN * exprbuf) // Deposit 68000 or 6502 (byte-reversed) word if (cursect != M6502) - { - D_word(eval); - } + D_word(eval) else - { - D_rword(eval); - } + D_rword(eval) } @@ -1236,7 +1295,7 @@ int dep_block(VALUE count, WORD siz, VALUE eval, WORD eattr, TOKEN * exprbuf) case SIZL: if (m6502) return error(in_6502mode); - + if (!defined) { AddFixup(FU_LONG, sloc, exprbuf); @@ -1336,10 +1395,98 @@ int d_68000(void) orgwarning = 0; SaveSection(); SwitchSection(TEXT); + activecpu = CPU_68000; + return 0; +} + + +// +// .68020 - Back to 68000 TEXT segment and select 68020 +// +int d_68020(void) +{ + d_68000(); + activecpu = CPU_68020; return 0; } +// +// .68030 - Back to 68000 TEXT segment and select 68030 +// +int d_68030(void) +{ + d_68000(); + activecpu = CPU_68030; + return 0; +} + + +// +// .68040 - Back to 68000 TEXT segment and select 68040 +// +int d_68040(void) +{ + d_68000(); + activecpu = CPU_68040; + activefpu = FPU_68040; + return 0; +} + + +// +// .68060 - Back to 68000 TEXT segment and select 68060 +// +int d_68060(void) +{ + d_68000(); + activecpu = CPU_68060; + activefpu = FPU_68040; + return 0; +} + + +// +// .68881 - Back to 68000 TEXT segment and select 68881 FPU +// +int d_68881(void) +{ + d_68000(); + activefpu = FPU_68881; + return 0; +} + + +// +// .68882 - Back to 68000 TEXT segment and select 68882 FPU +// +int d_68882(void) +{ + d_68000(); + activefpu = FPU_68881; + return 0; +} + + +// +// nofpu - Deselect FPUs. +// +int d_nofpu(void) +{ + activefpu = FPU_NONE; + return 0; +} + + +// +// DSP56001 +// +int d_56001(void) +{ + return error("Not yet, child. Be patient."); +} + + // // .gpu - Switch to GPU assembler //