URL https://opencores.org/ocsvn/thor/thor/trunk
Subversion Repositories thor

[/] [thor/] [trunk/] [FT64v5/] [software/] [AS64/] [source/] [main.cpp] - Blame information for rev 55

Go to most recent revision | Details | Compare with Previous | View Log

// ============================================================================
//        __
//   \\__/ o\    (C) 2016-2018  Robert Finch, Waterloo
//    \  __ /    All rights reserved.
//     \/_//     robfinch<remove>@finitron.ca
//       ||
//
// AS64 - Assembler
//  - 64 bit CPU
//
// This source file is free software: you can redistribute it and/or modify 
// it under the terms of the GNU Lesser General Public License as published 
// by the Free Software Foundation, either version 3 of the License, or     
// (at your option) any later version.                                      
//                                                                          
// This source file is distributed in the hope that it will be useful,      
// but WITHOUT ANY WARRANTY; without even the implied warranty of           
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            
// GNU General Public License for more details.                             
//                                                                          
// You should have received a copy of the GNU General Public License        
// along with this program.  If not, see <http://www.gnu.org/licenses/>.    
//                                                                          
// ============================================================================
//
#include "stdafx.h"
 
#define MAX_PASS  6
 
FilenameStack fns;
 
int gCpu = 888;
int verbose = 1;
int debug = 1;
int listing = 1;
int binary_out = 1;
int verilog_out = 1;
int elf_out = 1;
int rel_out = 0;
int coe_out = 0;
int code_bits = 32;
int data_bits = 32;
int pass;
int lineno;
char *inptr;
char *stptr;
char *pif1, *pif2;
int token;
int phasing_errors;
int pe1, pe2, pe3;
int bGen = 0;
bool bGenListing = false;
char fSeg = 0;
int segment;
int segprefix = -1;
int segmodel = 0;
int64_t program_address;
int64_t code_address;
int64_t data_address;
int64_t bss_address;
int64_t start_address;
FILE *ofp, *vfp;
std::ofstream mofs;
 
int regno;
char first_org = 1;
char current_label[500];
 
std::string mname;
char buf[10000];
int masterFileLength = 0;
char *masterFile;
char segmentFile[10000000];
int NumSections = 12;
clsElf64Section sections[12];
NameTable nmTable;
char codebuf[10000000];
char rodatabuf[10000000];
char databuf[10000000];
char bssbuf[10000000];
char tlsbuf[10000000];
uint8_t binfile[10000000];
uint64_t binfilex36[10000000];
int binndx;
int64_t binstart;
int mfndx;
int codendx;
int datandx;
int rodatandx;
int tlsndx;
int bssndx;
SYM *lastsym;
int isInitializationData;
float num_bytes;
int num_insns;
int num_cinsns;
HTBLE hTable[100000];
int htblmax;
int processOpt;
int gCanCompress = 1;
int expandedBlock;
int expand_flag;
int compress_flag;
int vebits = 128;
void emitCode(int cd);
void emitAlignedCode(int cd);
void process_shifti(int oc,int fn);
void processFile(char *fname, int searchincl);
void bump_address();
extern void Table888_bump_address();
extern void searchenv(char *filename, char *envname, char **pathname);
extern void Table888mmu_processMaster();
extern void Friscv_processMaster();
extern void FISA64_processMaster();
extern void Thor_processMaster();
extern void dsd6_processMaster();
extern void dsd7_processMaster();
extern void dsd9_processMaster();
extern void FT64_processMaster();
extern void FT64x36_processMaster();
extern void SymbolInit();
extern void dsd9_VerilogOut(FILE *fp);
 
Arg gArgs[12];
int gArgCount;
Arglist gArglist;
 
FILE *mfp;      // master file pointer
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void displayHelp()
{
     printf("a64 [options] file\r\n");
     printf("    +v      = verbose output\r\n");
     printf("    +r      = relocatable output\r\n");
     printf("    -s      = non-segmented\r\n");
     printf("    +g[n]   = cpu version 8=Table888, 9=Table888mmu V=RISCV 6=FISA64 T=Thor\r\n");
     printf("                          D=DSD6 7=DSD7 A=DSD9 F=FT64 G=FT64x36\r\n");
     printf("    -o[bvlc] = suppress output file b=binary, v=verilog, l=listing, c=coe\r\n");
}
 
int hcmp(const void *a1, const void *b1)
{
    HTBLE *a = (HTBLE *)a1;
    HTBLE *b = (HTBLE *)b1;
    return (a->count < b->count) ? 1 : (a->count==b->count) ? 0 : -1;
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void DumphTable()
{
    int nn;
    HTBLE *pt;
 
   pt = (HTBLE *)hTable;
 
   // Sort the table (already sorted)
//   qsort(pt, htblmax, sizeof(HTBLE), hcmp);
 
   if (gCpu=='F') {
    fprintf(ofp, "%d compressable instructions\n", htblmax);
    fprintf(ofp, "The top 256 are:\n", htblmax);
    fprintf(ofp, "Comp  Opcode  Count\n");
    for (nn = 0; nn < htblmax && nn < 256; nn++) {
        fprintf(ofp, " %03X %012I64X %d\n", nn, hTable[nn].opcode, hTable[nn].count);
    }
        return;
   }
    fprintf(ofp, "%d compressable instructions\n", htblmax);
    fprintf(ofp, "The top 1024 are:\n", htblmax);
    fprintf(ofp, "Comp  Opcode  Count\n");
    for (nn = 0; nn < htblmax && nn < 1024; nn++) {
        fprintf(ofp, " %03X %08X %d\n", nn, hTable[nn].opcode, hTable[nn].count);
    }
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
int processOptions(int argc, char **argv)
{
    int nn, mm;
 
    segmodel = 0;
    nn = 1;
    do {
        if (nn >= argc-1)
           break;
        if (argv[nn][0]=='-') {
           if (argv[nn][1]=='o') {
               mm = 2;
               while(argv[nn][mm] && !isspace(argv[nn][mm])) {
                   if (argv[nn][mm]=='b')
                       binary_out = 0;
                   else if (argv[nn][mm]=='l')
                       listing = 0;
                   else if (argv[nn][mm]=='v')
                       verilog_out = 0;
                   else if (argv[nn][mm]=='e')
                       elf_out = 0;
               }
           }
           if (argv[nn][1]=='s')
               fSeg = 0;
           nn++;
        }
        else if (argv[nn][0]=='+') {
           mm = 2;
           if (argv[nn][1]=='r') {
               rel_out = 1;
           }
           if (argv[nn][1]=='s')
               fSeg = 1;
           if (argv[nn][1]=='g') {
              if (argv[nn][2]=='9') {
                 gCpu=889;
                 fSeg = 1;
              }
              if (argv[nn][2]=='V') {
                 gCpu = 5;
              }
              if (argv[nn][2]=='6') {
                 gCpu = 64;
              }
              if (argv[nn][2]=='7') {
                 gCpu = 7;
                                 if (argv[nn][3]=='c')
                                         gCanCompress = 1;
                                 else
                                         gCanCompress = 0;
              }
              if (argv[nn][2]=='T') {
                 gCpu = 4;
                 if (argv[nn][3]=='2') {
                   segmodel = 2;
                 }
              }
              if (argv[nn][2]=='D') {
                 gCpu = 14;
              }
              if (argv[nn][2]=='A') {
                 gCpu = 'A';
                                 if (argv[nn][3]=='c')
                                         gCanCompress = 1;
                                 else
                                         gCanCompress = 0;
              }
              if (argv[nn][2]=='F') {
                 gCpu = 'F';
                                 mm = 3;
                                 gCanCompress = 0;
                                 while(argv[nn][mm]) {
                                         if (argv[nn][mm]=='3')
                                                 gCpu = 'H';
                                         else if (argv[nn][mm]=='c')
                                                 gCanCompress = 1;
                                         else if (argv[nn][mm]=='n')
                                                 vebits = 64;
                                         mm++;
                                 }
              }
              if (argv[nn][2]=='G') {
                 gCpu = 'G';
                                 if (argv[nn][3]=='n')
                                         vebits = 64;
                                 else if (argv[nn][3]=='c')
                                         gCanCompress = 1;
                                 else
                                         gCanCompress = 0;
              }
           }
           nn++;
        }
        else break;
    } while (1);
    return nn;
}
 
// ---------------------------------------------------------------------------
// Emit a byte, for DSD7 a byte is 16 bits.
// ---------------------------------------------------------------------------
 
void emitByte(int64_t cd)
{
     if (segment < 5) {
                 if (gCpu==7)
                        sections[segment].AddChar(cd);
                 else
                        sections[segment].AddByte(cd);
         }
    if (segment == codeseg || segment == rodataseg) {
                if (gCpu==7) {
                        binfile[binndx] = cd & 255LL;
                        binndx++;
                        binfile[binndx] = (cd >> 8) & 255LL;
                        binndx++;
                }
                else {
                        binfile[binndx] = cd & 255LL;
                        binndx++;
                }
    }
    if (segment==bssseg) {
       bss_address++;
    }
    else if (segment==dataseg)
         data_address++;
    else
        code_address++;
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void emitNybble(int64_t cd)
{
        static int64_t ln;
        static bool evn = false;
        static int byt = 0;
 
        if (cd > 15)
                evn = cd >> 4;
        if (!evn) {
                emitByte((cd << 4) | ln);
        }
        else
                ln = cd;
        evn = !evn;
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void emitChar(int64_t cd)
{
     emitByte(cd & 255LL);
     emitByte((cd >> 8) & 255LL);
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void emitHalf(int64_t cd)
{
        if (gCpu==7) {
                emitByte(cd & 65535LL);
                //emitByte((cd >> 16) & 65535LL);
        }
  else if (gCpu==5) {
     emitByte(cd & 255LL);
     emitByte((cd >> 8) & 255LL);
  }
  else {
     emitChar(cd & 65535LL);
     emitChar((cd >> 16) & 65535LL);
  }
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void emitWord(int64_t cd)
{
  if (gCpu==5 || gCpu==7) {
     emitHalf(cd & 0xFFFFLL);
     emitHalf((cd >> 16) & 0xFFFFLL);
  }
  else {
     emitHalf(cd & 0xFFFFFFFFLL);
     emitHalf((cd >> 32) & 0xFFFFFFFFLL);
  }
}
 
void emitDecibyte(Int128 cd)
{
        emitWord(cd.low);
        emitChar(cd.high & 0xFFFFLL);
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
 
void emitCode(int cd)
{
     emitByte(cd);
}
 
// ----------------------------------------------------------------------------
// Process a public declaration.
//     public code myfn
// ----------------------------------------------------------------------------
 
void process_public()
{
    SYM *sym;
    int64_t ca;
        int div = 1;
 
        if (gCpu==7)
                div = 2;
 
    NextToken();
    if (token==tk_code) {
        segment = codeseg;
    }
    else if (token==tk_rodata) {
         segment = rodataseg;
    }
    else if (token==tk_data) {
         if (isInitializationData)
             segment = rodataseg;
         else
             segment = dataseg;
    }
    else if (token==tk_bss) {
         segment = bssseg;
    }
    else
        prevToken();
    bump_address();
//    if (segment==bssseg)
//        ca = bss_address;
//    else
//        ca = code_address;
    switch(segment) {
    case codeseg:
         ca = code_address/div;
         ca = sections[0].address/div;
         break;
    case rodataseg:
         ca = sections[1].address/div;
         break;
    case dataseg:
         ca = sections[2].address/div;
         break;
    case bssseg:
         ca = sections[3].address/div;
         break;
    case tlsseg:
         ca = sections[4].address/div;
         break;
    }
    NextToken();
    if (token != tk_id) {
        printf("Identifier expected. Token %d\r\n", token);
        printf("Line:%.60s", stptr);
    }
    else {
         if (isInitializationData) {
             ScanToEOL();
             inptr++;
             return;
         }
        sym = find_symbol(lastid);
        if (pass == 4) {
            if (sym) {
                if (sym->defined)
                    printf("Symbol (%s) already defined.\r\n", lastid);
            }
            else {
                sym = new_symbol(lastid);
            }
            if (sym) {
                sym->defined = 1;
                                if (gCpu=='G')
                                        sym->value.low = ca & -4LL;
                                else
                                        sym->value.low = ca;
                                sym->value.high = 0;
                sym->segment = segment;
                sym->scope = 'P';
            }
        }
        else if (pass > 4) {
                        if (!sym)
                            printf("Symbol (%s) not defined.\r\n", lastid);
                        else {
                    if (sym->value.low != ca) {
                        phasing_errors++;
                        sym->phaserr = '*';
                         //if (bGen) printf("%s=%06I64x ca=%06I64x\r\n", nmTable.GetName(sym->name),  sym->value, code_address);
                    }
                    else
                         sym->phaserr = ' ';
                                if (gCpu=='G')
                                        sym->value.low = ca & -4LL;
                                else
                                        sym->value.low = ca;
                                sym->value.high = 0;
                }
        }
        strcpy_s(current_label, sizeof(current_label), lastid);
    }
    ScanToEOL();
    inptr++;
}
 
// ----------------------------------------------------------------------------
// extern somefn
// ----------------------------------------------------------------------------
 
void process_extern()
{
    SYM *sym;
 
//    printf("<process_extern>");
    NextToken();
    if (token != tk_id)
        printf("Expecting an identifier.\r\n");
    else {
        sym = find_symbol(lastid);
        if (pass == 4) {
            if (sym) {
 
            }
            else {
                sym = new_symbol(lastid);
            }
            if (sym) {
                sym->defined = 0;
                sym->value.low = 0;
                                sym->value.high = 0;
                sym->segment = segment;
                sym->scope = 'P';
                sym->isExtern = 1;
            }
        }
        else if (pass > 4) {
        }
        NextToken();
        if (token==':') {
           NextToken();
           if (sym)
               sym->bits = (int)expr();
        }
        else {
//    printf("J:sym=%p lastid=%s", sym, lastid);
           prevToken();
            if (sym)
               sym->bits = 32;
        }
    }
    ScanToEOL();
    inptr++;
//    printf("</process_extern>\r\n");
}
 
// ----------------------------------------------------------------------------
// .org $23E200
// .org is ignored for relocatable files.
// ----------------------------------------------------------------------------
 
void process_org()
{
    int64_t new_address;
        int mul = 1;
 
        if (gCpu==7)
                mul = 2;
    NextToken();
    new_address = expr();
    if (!rel_out) {
        if (segment==dataseg) {
            data_address = new_address*mul;
            sections[segment].address = new_address*mul;
        }
        else if (segment==bssseg || segment==tlsseg) {
            bss_address = new_address*mul;
            sections[segment].address = new_address*mul;
        }
        else {
            if (first_org && segment==codeseg) {
                                                        program_address = new_address;
              code_address = new_address;
              start_address = new_address*mul;
              sections[0].address = new_address*mul;
              first_org = 0;
            }
            else {
                                                        // Ignore the org directive in initialized data area of rodata
                                                        if (!isInitializationData)
                                                                while(sections[0].address < new_address*mul)
                                                                        emitByte(0x00);
            }
        }
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_align()
{
        int64_t v;
 
        NextToken();
        if (token == tk_code && gCpu=='F')
                v = 5;
        else
                v = expr();
        if (v == 0) {
                printf("Bad align directive. (%d)\r\n", lineno);
                return;
        }
    if (segment == codeseg || segment == rodataseg || segment == dataseg || segment==bssseg || segment==tlsseg) {
        while (sections[segment].address % v)
            emitByte(0x00);
    }
//    if (segment==bssseg) {
//        while (bss_address % v)
//            emitByte(0x00);
//    }
//    else {
//        while (code_address % v)
//            emitByte(0x00);
//    }
}
 
// ----------------------------------------------------------------------------
//      hint #1
//
// Process a compiler hint. Normally these instructions don't make it through
// the compile stage, but in case one does... It is just ignored.
// ----------------------------------------------------------------------------
 
void process_hint()
{
    int64_t v;
 
    NextToken();
    v = expr();
}
 
// ----------------------------------------------------------------------------
// code 0x8000 to 0xFFFF
// code 24 bits
// code
// ----------------------------------------------------------------------------
 
void process_code()
{
    int64_t st, nd;
 
    segment = codeseg;
    NextToken();
    if (token==tk_eol) {
        prevToken();
        return;
    }
    st = expr();
    if (token==tk_bits) {
        code_bits = (int)st;
        return;
    }
    if (token==tk_to) {
        NextToken();
        nd = expr();
        code_bits = (int)log((double)nd+1)/log(2.0);    // +1 to round up a little bit
    }
}
 
// ----------------------------------------------------------------------------
// data 0x8000 to 0xFFFF
// data 24 bits
// data
// ----------------------------------------------------------------------------
 
void process_data(int seg)
{
    int64_t st, nd;
 
    segment = seg;
    NextToken();
    if (token==tk_eol) {
        prevToken();
        return;
    }
    st = expr();
    if (token==tk_bits) {
        data_bits = (int)st;
        return;
    }
    if (token==tk_to) {
        NextToken();
        nd = expr();
        data_bits = (int)log((double)nd+1)/log((double)2.0);    // +1 to round up a little bit
    }
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_db()
{
    int64_t val;
 
    SkipSpaces();
    //NextToken();
    while(token!=tk_eol) {
        SkipSpaces();
        if (*inptr=='\n') break;
        if (*inptr=='"') {
            inptr++;
            while (*inptr!='"') {
                if (*inptr=='\\') {
                    inptr++;
                    switch(*inptr) {
                    case '\\': emitByte('\\'); inptr++; break;
                    case 'r': emitByte(0x0D); inptr++; break;
                    case 'n': emitByte(0x0A); inptr++; break;
                    case 'b': emitByte('\b'); inptr++; break;
                    case '"': emitByte('"'); inptr++; break;
                    default: inptr++; break;
                    }
                }
                else {
                    emitByte(*inptr);
                    inptr++;
                }
            }
            inptr++;
        }
/*
        else if (*inptr=='\'') {
            inptr++;
            emitByte(*inptr);
            inptr++;
            if (*inptr!='\'') {
                printf("Missing ' in character constant.\r\n");
            }
        }
*/
        else {
            NextToken();
            val = expr();
            emitByte(val & 255);
            prevToken();
        }
        SkipSpaces();
        if (*inptr!=',')
            break;
        inptr++;
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_dc()
{
    int64_t val;
 
    SkipSpaces();
    while(token!=tk_eol) {
        SkipSpaces();
        if (*inptr=='"') {
            inptr++;
            while (*inptr!='"') {
                if (*inptr=='\\') {
                    inptr++;
                    switch(*inptr) {
                    case '\\': emitChar('\\'); inptr++; break;
                    case 'r': emitChar(0x0D); inptr++; break;
                    case 'n': emitChar(0x0A); inptr++; break;
                    case 'b': emitChar('\b'); inptr++; break;
                    case '"': emitChar('"'); inptr++; break;
                    default: inptr++; break;
                    }
                }
                else {
                    emitChar(*inptr);
                    inptr++;
                }
            }
            inptr++;
        }
        else if (*inptr=='\'') {
            inptr++;
            emitChar(*inptr);
            inptr++;
            if (*inptr!='\'') {
                printf("Missing ' in character constant.\r\n");
            }
        }
        else {
             NextToken();
            val = expr();
            emitChar(val);
            prevToken();
        }
        SkipSpaces();
        if (*inptr!=',')
            break;
        inptr++;
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_dh()
{
    int64_t val;
 
    SkipSpaces();
    while(token!=tk_eol) {
        SkipSpaces();
        if (*inptr=='"') {
            inptr++;
            while (*inptr!='"') {
                if (*inptr=='\\') {
                    inptr++;
                    switch(*inptr) {
                    case '\\': emitHalf('\\'); inptr++; break;
                    case 'r': emitHalf(0x0D); inptr++; break;
                    case 'n': emitHalf(0x0A); inptr++; break;
                    case 'b': emitHalf('\b'); inptr++; break;
                    case '"': emitHalf('"'); inptr++; break;
                    default: inptr++; break;
                    }
                }
                else {
                    emitHalf(*inptr);
                    inptr++;
                }
            }
            inptr++;
        }
        else if (*inptr=='\'') {
            inptr++;
            emitHalf(*inptr);
            inptr++;
            if (*inptr!='\'') {
                printf("Missing ' in character constant.\r\n");
            }
        }
        else {
             NextToken();
            val = expr();
            emitHalf(val);
            prevToken();
        }
        SkipSpaces();
        if (*inptr!=',')
            break;
        inptr++;
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_dh_htbl()
{
        int nn;
 
        if (gCpu=='F') {
                emitWord(htblmax > 1024 ? 1024 : htblmax);
                for (nn = 0; nn < htblmax && nn < 1024; nn++) {
                        emitWord(hTable[nn].opcode);
                }
                return;
        }
        else if (gCpu==7)
                emitByte(htblmax > 1024 ? 1024 : htblmax);
        else
                emitHalf(htblmax > 1024 ? 1024 : htblmax);
        for (nn = 0; nn < htblmax && nn < 1024; nn++) {
                emitWord(hTable[nn].opcode);
        }
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_dw()
{
    int64_t val;
 
    SkipSpaces();
    while(token!=tk_eol) {
        SkipSpaces();
        if (*inptr=='"') {
            inptr++;
            while (*inptr!='"') {
                if (*inptr=='\\') {
                    inptr++;
                    switch(*inptr) {
                    case '\\': emitWord('\\'); inptr++; break;
                    case 'r': emitWord(0x0D); inptr++; break;
                    case 'n': emitWord(0x0A); inptr++; break;
                    case 'b': emitWord('\b'); inptr++; break;
                    case '"': emitWord('"'); inptr++; break;
                    default: inptr++; break;
                    }
                }
                else {
                    emitWord(*inptr);
                    inptr++;
                }
            }
            inptr++;
        }
        else if (*inptr=='\'') {
            inptr++;
            emitWord(*inptr);
            inptr++;
            if (*inptr!='\'') {
                printf("Missing ' in character constant.\r\n");
            }
        }
        else {
             NextToken();
            val = expr();
    // A pointer to an object might be emitted as a data word.
    if (bGen && lastsym)
    if( lastsym->segment < 5)
    sections[segment+7].AddRel(sections[segment].index,((int64_t)(lastsym->ord+1) << 32) | 6 | (lastsym->isExtern ? 128 : 0));
            emitWord(val);
            prevToken();
        }
        SkipSpaces();
        if (*inptr!=',')
            break;
        inptr++;
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void process_dd()
{
    Int128 val;
 
    SkipSpaces();
    while(token!=tk_eol) {
        SkipSpaces();
        if (*inptr=='"') {
            inptr++;
            while (*inptr!='"') {
                if (*inptr=='\\') {
                    inptr++;
                    switch(*inptr) {
                    case '\\': emitWord('\\'); emitChar(0); inptr++; break;
                    case 'r': emitWord(0x0D); emitChar(0); inptr++; break;
                    case 'n': emitWord(0x0A); emitChar(0); inptr++; break;
                    case 'b': emitWord('\b'); emitChar(0); inptr++; break;
                    case '"': emitWord('"'); emitChar(0); inptr++; break;
                    default: inptr++; break;
                    }
                }
                else {
                    emitWord(*inptr);
                                        emitChar(0);
                    inptr++;
                }
            }
            inptr++;
        }
        else if (*inptr=='\'') {
            inptr++;
            emitWord(*inptr);
                        emitChar(0);
            inptr++;
            if (*inptr!='\'') {
                printf("Missing ' in character constant.\r\n");
            }
        }
        else {
             NextToken();
            val = expr128();
    // A pointer to an object might be emitted as a data word.
    if (bGen && lastsym)
    if( lastsym->segment < 5)
    sections[segment+7].AddRel(sections[segment].index,((int64_t)(lastsym->ord+1) << 32) | 6 | (lastsym->isExtern ? 128 : 0));
            emitDecibyte(val);
            prevToken();
        }
        SkipSpaces();
        if (*inptr!=',')
            break;
        inptr++;
    }
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// fill.b 252,0x00
// ----------------------------------------------------------------------------
 
void process_fill()
{
    char sz = 'b';
    int64_t count;
    int64_t val;
    int64_t nn;
 
    if (*inptr=='.') {
        inptr++;
        if (strchr("bchwBCHW",*inptr)) {
            sz = tolower(*inptr);
            inptr++;
        }
        else
            printf("Illegal fill size.\r\n");
    }
    SkipSpaces();
    NextToken();
    count = expr();
    prevToken();
    need(',');
    NextToken();
    val = expr();
    prevToken();
    for (nn = 0; nn < count; nn++)
        switch(sz) {
        case 'b': emitByte(val); break;
        case 'c': emitChar(val); break;
        case 'h': emitHalf(val); break;
        case 'w': emitWord(val); break;
        }
}
 
// ----------------------------------------------------------------------------
// Bump up the address to the next aligned code address.
// ----------------------------------------------------------------------------
 
void bump_address()
{
     if (gCpu==888 || gCpu==889)
        Table888_bump_address();
}
 
// ---------------------------------------------------------------------------
// macro <name> (<arg1, arg2, arg3, ...>)
//      < macro body >
// endm
// ---------------------------------------------------------------------------
 
void process_macro()
{
        SYM *sym;
        Macro *macr;
        bool alreadyDef = false;
        char *p;
 
        if (pass == 3) {
                macr = new Macro;
                SkipSpaces();
                getIdentifier();
                sym = find_symbol(lastid);
                if (sym != nullptr) {
                        printf("Macro already defined %d.", lineno);
                        alreadyDef = true;
                }
                else {
                        sym = new_symbol(lastid);
                        sym->defined = 1;
                        sym->isMacro = true;
                        sym->macro = macr;
                }
                NextToken();
                if (token == '(') {
                        macr->GetParmList();
                        NextToken();
                        need(')');
                }
                p = inptr;
                macr->GetBody();
                if (alreadyDef)
                        delete macr;
        }
        else if (pass > 3) {
                Macro mthrowaway;
                SkipSpaces();
                getIdentifier();
                NextToken();
                if (token == '(') {
                        mthrowaway.GetParmList();
                        NextToken();
                        need(')');
                }
                mthrowaway.GetBody();
        }
}
 
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
void process_message()
{
    char buf[200];
    int nn;
 
    while(*inptr != '"' && *inptr != '\n') inptr++;
    if (*inptr=='\n') { NextToken(); return; }
    nn = 0;
    inptr++;
    while (*inptr != '"' && *inptr != '\n' && nn < 197) {
        buf[nn] = *inptr;
        inptr++;
        nn++;
    }
    buf[nn] = '\0';
    strcat_s(buf, sizeof(buf), "\r\n");
    printf(buf);
    ScanToEOL();
}
 
// ----------------------------------------------------------------------------
// label:
// ----------------------------------------------------------------------------
 
void process_label()
{
  SYM *sym;
  static char nm[500];
  int64_t ca;
  Int128 val;
  int isEquate;
  int shft = 0;
 
        val.low = 0;
        val.high = 0;
        if (gCpu==7)
                shft = 1;
 
//    printf("<process_label>");
    isEquate = 0;
    // Bump up the address to align it with a valid code address if needed.
    bump_address();
    switch(segment) {
    case codeseg:
         ca = code_address >> shft;
         ca = sections[0].address >> shft;
         break;
    case rodataseg:
         ca = sections[1].address >> shft;
         break;
    case dataseg:
         ca = sections[2].address >> shft;
         break;
    case bssseg:
         ca = sections[3].address >> shft;
         break;
    case tlsseg:
         ca = sections[4].address >> shft;
         break;
        default:
                 ca = code_address >> shft;
                 ca = sections[0].address >> shft;
                 break;
        }
//    if (segment==bssseg)
//       ca = bss_address;
//    else
//        ca = code_address;
    if (lastid[0]=='.') {
        sprintf_s(nm, sizeof(nm), "%s%s", current_label, lastid);
    }
    else {
        strcpy_s(current_label, sizeof(current_label), lastid);
        strcpy_s(nm, sizeof(nm), lastid);
    }
    if (strcmp("end_init_data", nm)==0)
       isInitializationData = 0;
    NextToken();
//    SkipSpaces();
    if (token==tk_equ || token==tk_eq) {
        NextToken();
        val = expr128();
        isEquate = 1;
    }
    else {
                prevToken();
                val.low = ca;
                val.high = 0;
        }
//    if (token==tk_eol)
//       prevToken();
    //else if (token==':') inptr++;
    // ignore the labels in initialization data
    if (isInitializationData)
       return;
    sym = find_symbol(nm);
    if (pass==4 || pass==3) {
        if (sym) {
            if (sym->defined) {
                //if (!Int128::IsEqual(&sym->value, &val)) {
                //    printf("Label %s already defined %ld vs %ld.\r\n", nm, sym->value.low, val.low);
                //    printf("Line %d: %.60s\r\n", lineno, stptr);
                //}
            }
            sym->defined = 1;
            if (isEquate) {
                sym->value = val;
                sym->segment = constseg;
                sym->bits = (int)ceil(log(fabs((double)val.low)+1) / log(2.0))+1;
            }
            else {
                                if (gCpu=='G')
                                        sym->value.low = ca & -4LL;
                                else
                                        sym->value.low = ca;
                                sym->value.high = 0;
                sym->segment = segment;
                if (segment==codeseg)
                   sym->bits = code_bits;
                else
                    sym->bits = data_bits;
            }
        }
        else {
            sym = new_symbol(nm);
            sym->defined = 1;
            if (isEquate) {
                sym->value = val;
                sym->segment = constseg;
                sym->bits = (int)ceil(log(fabs((double)val.low)+1) / log(2.0))+1;
            }
            else {
                                if (gCpu=='G')
                                        sym->value.low = ca & -4LL;
                                else
                                        sym->value.low = ca;
                                sym->value.high = 0;
                                sym->segment = segment;
                if (segment==codeseg)
                   sym->bits = code_bits;
                else
                    sym->bits = data_bits;
            }
        }
    }
    else if (pass>4) {
         if (!sym) {
            printf("Internal error: SYM is NULL.\r\n");
            printf("Couldn't find <%s>\r\n", nm);
         }
         else {
             if (isEquate) {
                 sym->value = val;
             }
             else {
                                 if ((sym->value.low != ca && gCpu!='G') || (sym->value.low != (ca & -4LL) && gCpu=='G')) {
                     phasing_errors++;
                     sym->phaserr = '*';
                     //if (bGen) printf("%s=%06llx ca=%06llx\r\n", nmTable.GetName(sym->name),  sym->value, code_address);
                 }
                 else
                     sym->phaserr = ' ';
                                        if (gCpu=='G')
                                                sym->value.low = ca & -4LL;
                                        else
                                                sym->value.low = ca;
                                 sym->value.high = 0;
                         }
         }
    }
    if (strcmp("begin_init_data", nm)==0)
       isInitializationData = 1;
//    printf("</process_ label>\r\n");
}
 
// ----------------------------------------------------------------------------
// Group and reorder the segments in the master file.
//     code          placed first
//     rodata        followed by
//     data
//     tls
// ----------------------------------------------------------------------------
 
void processSegments()
{
  char *pinptr;
  int segment = codeseg;
  int inComment;
        std::string fname;
        bool setname = false;
 
  if (verbose)
    printf("Processing segments.\r\n");
  inptr = &masterFile[0];
  pinptr = inptr;
  codendx = 0;
  datandx = 0;
  rodatandx = 0;
  tlsndx = 0;
  bssndx = 0;
  ZeroMemory(codebuf,sizeof(codebuf));
  ZeroMemory(databuf,sizeof(databuf));
  ZeroMemory(rodatabuf,sizeof(rodatabuf));
  ZeroMemory(tlsbuf,sizeof(tlsbuf));
  ZeroMemory(bssbuf,sizeof(bssbuf));
  inComment = 0;
 
        lineno = 1;
        while (*inptr) {
                if (*inptr == '\n')
                        lineno++;
                SkipSpaces();
                if (*inptr == ';')
                        goto j1;
                if (inptr[0] == '/' && inptr[1] == '/')
                        goto j1;
                //        if (inptr[0]=='/' && inptr[1]=='*') {
                //              inComment = 1;
                //              goto j1;
                //              }
                //              if (inComment && inptr[0]=='*' && inptr[1]=='/')
                //                      inComment = 0;
                //              if (inComment)
                //                      goto j1;
                if (*inptr == '.') inptr++;
                if ((_strnicmp(inptr, "file", 4)==0) && !isIdentChar(inptr[4])) {
                        inptr += 4;
                        NextToken();
                        if (token == tk_strconst)
                                fname = std::string(laststr);
                        else
                                fname = std::string("<unknown file>");
                        NextToken();
                        lineno = expr();
                        setname = true;
                }
    else if ((_strnicmp(inptr,"code",4)==0) && !isIdentChar(inptr[4])) {
      segment = codeseg;
                        setname = true;
    }
    else if ((_strnicmp(inptr,"data",4)==0) && !isIdentChar(inptr[4])) {
        segment = dataseg;
    }
    else if ((_strnicmp(inptr,"rodata",6)==0) && !isIdentChar(inptr[6])) {
        segment = rodataseg;
    }
    else if ((_strnicmp(inptr,"tls",3)==0) && !isIdentChar(inptr[3])) {
        segment = tlsseg;
    }
    else if ((_strnicmp(inptr,"bss",3)==0) && !isIdentChar(inptr[3])) {
        segment = bssseg;
    }
j1:
        ScanToEOL();
        inptr++;
        switch(segment) {
        case codeseg:
                                        if (setname) {
                                                setname = false;
                                                if (fname.length() > 0) {
                                                        sprintf(&codebuf[codendx], ".file \x22%s\x22,%d\n", fname.c_str(), lineno);
                                                        codendx += strlen(&codebuf[codendx]);
                                                }
                                        }
          strncpy(&codebuf[codendx], pinptr, inptr-pinptr);
          codendx += inptr-pinptr;
          break;
              case dataseg:
             strncpy(&databuf[datandx], pinptr, inptr-pinptr);
             datandx += inptr-pinptr;
             break;
        case rodataseg:
             strncpy(&rodatabuf[rodatandx], pinptr, inptr-pinptr);
             rodatandx += inptr-pinptr;
             break;
        case tlsseg:
             strncpy(&tlsbuf[tlsndx], pinptr, inptr-pinptr);
             tlsndx += inptr-pinptr;
             break;
        case bssseg:
             strncpy(&bssbuf[bssndx], pinptr, inptr-pinptr);
             bssndx += inptr-pinptr;
             break;
        }
        pinptr = inptr;
    }
    ZeroMemory(masterFile,sizeof(masterFile));
    strcat(masterFile, codebuf);
    strcat(masterFile, rodatabuf);
    strcat(masterFile, "\r\n\trodata\r\n");
    strcat(masterFile, "\talign 8\r\n");
    strcat(masterFile, "begin_init_data:\r\n");
    strcat(masterFile, databuf);
    strcat(masterFile, "\r\n\trodata\r\n");
    strcat(masterFile, "\talign 8\r\n");
    strcat(masterFile, "end_init_data:\r\n");
    strcat(masterFile, databuf);
    strcat(masterFile, bssbuf);
    strcat(masterFile, tlsbuf);
    if (debug) {
        FILE *fp;
        fp = fopen("a64-segments.asm", "w");
        if (fp) {
                fwrite(masterFile, 1, strlen(masterFile), fp);
                fclose(fp);
        }
    }
}
 
void ProcessSegments2()
{
        char buf[1000];
        char *lptr;
        char fname[600];
        bool setname = false;
 
        std::ifstream ifs("as64-master.asm");
        std::ofstream codeofs("as64-code.asm");
        std::ofstream dataofs("as64-data.asm");
        std::ofstream idataofs("as64-idata.asm");
        std::ofstream rodataofs("as64-rodata.asm");
        std::ofstream bssofs("as64-bss.asm");
        std::ofstream tlsofs("as64-tls.asm");
 
        ZeroMemory(buf, sizeof(buf));
        ZeroMemory(fname, sizeof(fname));
        while (ifs.getline(buf, sizeof(buf))) {
                inptr = buf;
                SkipSpaces();
                if (*inptr == ';')
                        goto j1;
                if (inptr[0] == '/' && inptr[1] == '/')
                        goto j1;
                if (*inptr == '.') inptr++;
                if ((_strnicmp(inptr, "file", 4)==0) && !isIdentChar(inptr[4])) {
                        inptr += 4;
                        if (inptr[0] == ':')
                                inptr++;
                        getIdentifier();
                        strcpy_s(fname, sizeof(fname), lastid);
                }
                if ((_strnicmp(inptr, "code", 4) == 0) && !isIdentChar(inptr[4])) {
                        segment = codeseg;
                        setname = true;
                }
                else if ((_strnicmp(inptr, "data", 4) == 0) && !isIdentChar(inptr[4])) {
                        segment = dataseg;
                }
                else if ((_strnicmp(inptr, "rodata", 6) == 0) && !isIdentChar(inptr[6])) {
                        segment = rodataseg;
                }
                else if ((_strnicmp(inptr, "tls", 3) == 0) && !isIdentChar(inptr[3])) {
                        segment = tlsseg;
                }
                else if ((_strnicmp(inptr, "bss", 3) == 0) && !isIdentChar(inptr[3])) {
                        segment = bssseg;
                }
                j1:
                        switch (segment) {
                        case codeseg:
                                if (setname) {
                                        setname = false;
                                        codeofs << ".file: ";
                                        codeofs << fname;
                                }
                                codeofs << buf;
                                break;
                        case dataseg:
                                dataofs << buf;
                                break;
                        case rodataseg:
                                rodataofs << buf;
                                break;
                        case tlsseg:
                                tlsofs << buf;
                                break;
                        case bssseg:
                                bssofs << buf;
                                break;
                        }
        }
        codeofs.close();
        dataofs.close();
        idataofs.close();
        rodataofs.close();
        bssofs.close();
        tlsofs.close();
        ifs.close();
        system("type as64-code.asm > as64-segments.asm");
        system("type as64-rodata.asm >> as64-segments.asm");
        std::ofstream ofs("as64-segments.asm", std::ofstream::out | std::ofstream::app);
        ofs << "\nrodata\n";
        ofs << "\talign 8\n";
        ofs << "begin_init_data:\n";
        ofs.close();
        system("type as64-data.asm >> as64-segments.asm");
        ofs.open("as64-segments.asm", std::ofstream::out | std::ofstream::app);
        ofs << "\nrodata\n";
        ofs << "\talign 8\n";
        ofs << "end_init_data:\n";
        ofs.close();
        system("type as64-data.asm >> as64-segments.asm");
        system("type as64-bss.asm >> as64-segments.asm");
        system("type as64-tls.asm >> as64-segments.asm");
}
 
void skipif(int64_t val)
{
        int iflevel = 1;
        char *p1, *p2, *p3;
        bool codecut = false;
 
        // Cut out the if statement
        p1 = pif1;
        memmove(pif1,pif2,sizeof(masterFile)-(pif2-masterFile));
 
        p1 = inptr = pif1;
        while(*inptr) {
                SkipSpaces();
                p2 = inptr;
                NextToken();
                p3 = inptr;
                if (token==tk_if || token==tk_ifdef || token==tk_ifndef)
                        iflevel++;
                else if (token==tk_endif) {
                        iflevel--;
                        if (iflevel==0) {
                                // If the if was false cut out the code between
                                // if and endif
                                if (val==0 && !codecut) {
                                        memmove(pif1,p3,sizeof(masterFile)-(p3-masterFile));
                                        inptr = pif1;
                                        return;
                                }
                                else {
                                        // remove endif but leave remaining text
                                        memmove(p2,inptr,sizeof(masterFile)-(inptr-masterFile));
                                        inptr = p2;
                                }
                        }
                }
                else if (token==tk_else) {
                        if (iflevel==0) {
                                // cut out code between if and else
                                // and keep going until endif
                                if (val==0) {
                                        memmove(pif1,p2+4,sizeof(masterFile)-(p2+4-masterFile));
                                        inptr = pif1;
                                        codecut = true;
                                }
                                else {
                                        // remove the else from text
                                        // and keep going until endif
                                        memmove(p2,inptr,sizeof(masterFile)-(inptr-masterFile));
                                        inptr = p2;
                                }
                        }
                }
                else
                        ScanToEOL();
                if (*inptr=='\n')
                        inptr++;
        }
}
 
void doif()
{
        int64_t val;
 
        NextToken();
        val = expr();
        pif2 = inptr;
        ScanToEOL();
        skipif(val);
}
 
void doifdef()
{
        int64_t val;
 
        if (getIdentifier()==0)
                printf("Expecting an identifier %d.\n", lineno);
    val = (find_symbol(lastid)!=nullptr);
        ScanToEOL();
        pif2 = inptr;
        skipif(val);
}
 
void doifndef()
{
        int64_t val;
 
        if (getIdentifier()==0)
                printf("Expecting an identifier %d.\n", lineno);
    val = (find_symbol(lastid)==nullptr);
        ScanToEOL();
        pif2 = inptr;
        skipif(val);
}
 
// ----------------------------------------------------------------------------
// Look for .include directives and include the files.
// ----------------------------------------------------------------------------
 
void processLine(char *line)
{
  char *p;
  int quoteType;
  static char fnm[300];
  char *fname;
  int nn;
  int lb;
 
  p = line;
        fns.GetTos()->lineno = lineno;
        while(isspace(*p)) p++;
  if (!*p) goto addToMaster;
  // see if the first thing on the line is an include directive
  if (*p=='.') p++;
  if (strnicmp(p, "include", 7)==0 && !isIdentChar(p[7]))
  {
    p += 7;
    // Capture the file name
    while(isspace(*p)) p++;
    if (*p=='"') { quoteType = '"'; p++; }
    else if (*p=='<') { quoteType = '>'; p++; }
    else quoteType = ' ';
    nn = 0;
    do {
      fnm[nn] = *p;
      p++; nn++;
      if (quoteType==' ' && isspace(*p)) break;
      else if (*p == quoteType) break;
      else if (*p=='\n') break;
    } while(nn < sizeof(fnm)/sizeof(char));
    fnm[nn] = '\0';
    fname = strdup(fnm);
    lb = lineno;
    lineno = 1;
    processFile(fname,1);
    lineno = lb;
    free(fname);
    return;
  }
  // Not an include directive, then just copy the line to the master buffer.
addToMaster:
  //strcpy(&masterFile[mfndx], line);
  //mfndx += strlen(line);
        mofs << line;
}
 
// ----------------------------------------------------------------------------
// Build a aggregate of all the included files into a single master buffer.
// ----------------------------------------------------------------------------
 
void processFile(char *fname, int searchincl)
{
  FILE *fp;
        std::ifstream ifs;
  char *pathname;
        char buf[700];
 
        fns.Push(mname, lineno);
        mname = std::string(fname);
        lineno = 1;
        mofs << ".file \x22";
        mofs << mname.c_str();
        mofs << "\x22," << lineno << "\n";
        if (verbose)
    printf("Processing file:%s\n", fname);
  pathname = (char *)NULL;
        ifs.open(fname);
  if (ifs.fail()) {
    if (searchincl) {
      searchenv(fname, "INCLUDE", &pathname);
      if (strlen(pathname)) {
        ifs.open(pathname);
        if (!ifs.fail()) goto j1;
      }
    }
    printf("Can't open file <%s>\n", fname);
    goto j2;
  }
j1:
        while (ifs.getline(buf, sizeof(buf))) {
                strcat(buf,"\n");
                processLine(buf);
        }
        ifs.close();
j2:
  if (pathname)
      free(pathname);
        fns.Pop(&mname, &lineno);
        mofs << ".file \x22";
        mofs << mname.c_str();
        mofs << "\x22," << lineno << "\n";
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
int checksum(int32_t *val)
{
    int nn;
    int cs;
 
    cs = 0;
    for (nn = 0; nn < 32; nn++)
        cs ^= (*val & (1 << nn))!=0;
    return cs;
}
 
 
int checksum64(int64_t *val)
{
    int nn;
    int cs;
 
    cs = 0;
    for (nn = 0; nn < 64; nn++)
        cs ^= (*val & (1LL << nn))!=0;
    return cs;
}
 
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void processMaster()
{
  expandedBlock = 0;
        switch(gCpu) {
        case 888:       Table888_processMaster();       break;
        case 889:       Table888mmu_processMaster();    break;
        case 64:        FISA64_processMaster(); break;
        case 5:         Friscv_processMaster(); break;
        case 4:         Thor_processMaster();   break;
        case 14:        dsd6_processMaster();   break;
        case 7:         dsd7_processMaster();   break;
        case 'A':       dsd9_processMaster();   break;
        case 'F':       FT64_processMaster();   break;
        case 'G':       FT64x36_processMaster();        break;
        default:        FT64_processMaster();
        }
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
int64_t Round512(int64_t n)
{
    return (n + 511LL) & 0xFFFFFFFFFFFFFE00LL;
}
 
int64_t Round4096(int64_t n)
{
    return (n + 4095LL) & 0xFFFFFFFFFFFFF000LL;
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
void WriteELFFile(FILE *fp)
{
    int nn;
    Elf64Symbol elfsym;
    clsElf64File elf;
    SYM *sym,*syms;
    int64_t start;
 
    sections[0].hdr.sh_name = nmTable.AddName(".text");
    sections[0].hdr.sh_type = clsElf64Shdr::SHT_PROGBITS;
    sections[0].hdr.sh_flags = clsElf64Shdr::SHF_ALLOC | clsElf64Shdr::SHF_EXECINSTR;
    sections[0].hdr.sh_addr = rel_out ? 0 : sections[0].start;
    sections[0].hdr.sh_offset = 512;  // offset in file
    sections[0].hdr.sh_size = sections[0].index;
    sections[0].hdr.sh_link = 0;
    sections[0].hdr.sh_info = 0;
    sections[0].hdr.sh_addralign = 16;
    sections[0].hdr.sh_entsize = 0;
 
    sections[1].hdr.sh_name = nmTable.AddName(".rodata");
    sections[1].hdr.sh_type = clsElf64Shdr::SHT_PROGBITS;
    sections[1].hdr.sh_flags = clsElf64Shdr::SHF_ALLOC;
    sections[1].hdr.sh_addr = sections[0].hdr.sh_addr + sections[0].index;
    sections[1].hdr.sh_offset = sections[0].hdr.sh_offset + sections[0].index; // offset in file
    sections[1].hdr.sh_size = sections[1].index;
    sections[1].hdr.sh_link = 0;
    sections[1].hdr.sh_info = 0;
    sections[1].hdr.sh_addralign = 8;
    sections[1].hdr.sh_entsize = 0;
 
    sections[2].hdr.sh_name = nmTable.AddName(".data");
    sections[2].hdr.sh_type = clsElf64Shdr::SHT_PROGBITS;
    sections[2].hdr.sh_flags = clsElf64Shdr::SHF_ALLOC | clsElf64Shdr::SHF_WRITE;
    sections[2].hdr.sh_addr = sections[1].hdr.sh_addr + sections[1].index;
    sections[2].hdr.sh_offset = sections[1].hdr.sh_offset + sections[1].index; // offset in file
    sections[2].hdr.sh_size = sections[2].index;
    sections[2].hdr.sh_link = 0;
    sections[2].hdr.sh_info = 0;
    sections[2].hdr.sh_addralign = 8;
    sections[2].hdr.sh_entsize = 0;
 
    sections[3].hdr.sh_name = nmTable.AddName(".bss");
    sections[3].hdr.sh_type = clsElf64Shdr::SHT_PROGBITS;
    sections[3].hdr.sh_flags = clsElf64Shdr::SHF_ALLOC | clsElf64Shdr::SHF_WRITE;
    sections[3].hdr.sh_addr = sections[2].hdr.sh_addr + sections[2].index;
    sections[3].hdr.sh_offset = sections[2].hdr.sh_offset + sections[2].index; // offset in file
    sections[3].hdr.sh_size = 0;
    sections[3].hdr.sh_link = 0;
    sections[3].hdr.sh_info = 0;
    sections[3].hdr.sh_addralign = 8;
    sections[3].hdr.sh_entsize = 0;
 
    sections[4].hdr.sh_name = nmTable.AddName(".tls");
    sections[4].hdr.sh_type = clsElf64Shdr::SHT_PROGBITS;
    sections[4].hdr.sh_flags = clsElf64Shdr::SHF_ALLOC | clsElf64Shdr::SHF_WRITE;
    sections[4].hdr.sh_addr = sections[3].hdr.sh_addr + sections[3].index;;
    sections[4].hdr.sh_offset = sections[2].hdr.sh_offset + sections[2].index; // offset in file
    sections[4].hdr.sh_size = 0;
    sections[4].hdr.sh_link = 0;
    sections[4].hdr.sh_info = 0;
    sections[4].hdr.sh_addralign = 8;
    sections[4].hdr.sh_entsize = 0;
 
    sections[5].hdr.sh_name = nmTable.AddName(".strtab");
    // The following line must be before the name table is copied to the section.
    sections[6].hdr.sh_name = nmTable.AddName(".symtab");
    sections[7].hdr.sh_name = nmTable.AddName(".reltext");
    sections[8].hdr.sh_name = nmTable.AddName(".relrodata");
    sections[9].hdr.sh_name = nmTable.AddName(".reldata");
    sections[10].hdr.sh_name = nmTable.AddName(".relbss");
    sections[11].hdr.sh_name = nmTable.AddName(".reltls");
    sections[5].hdr.sh_type = clsElf64Shdr::SHT_STRTAB;
    sections[5].hdr.sh_flags = 0;
    sections[5].hdr.sh_addr = 0;
    sections[5].hdr.sh_offset = 512 + sections[0].index + sections[1].index + sections[2].index; // offset in file
    sections[5].hdr.sh_size = nmTable.length;
    sections[5].hdr.sh_link = 0;
    sections[5].hdr.sh_info = 0;
    sections[5].hdr.sh_addralign = 1;
    sections[5].hdr.sh_entsize = 0;
    memcpy(sections[5].bytes, nmTable.text, nmTable.length);
 
    sections[6].hdr.sh_type = clsElf64Shdr::SHT_SYMTAB;
    sections[6].hdr.sh_flags = 0;
    sections[6].hdr.sh_addr = 0;
    sections[6].hdr.sh_offset = Round512(512 + sections[0].index + sections[1].index + sections[2].index) + nmTable.length; // offset in file
    sections[6].hdr.sh_size = (numsym + 1) * 24;
    sections[6].hdr.sh_link = 5;
    sections[6].hdr.sh_info = 0;
    sections[6].hdr.sh_addralign = 1;
    sections[6].hdr.sh_entsize = 24;
 
    for(nn = 7; nn < 12; nn++) {
        sections[nn].hdr.sh_type = clsElf64Shdr::SHT_REL;
        sections[nn].hdr.sh_flags = 0;
        sections[nn].hdr.sh_addr = 0;
        sections[nn].hdr.sh_offset = sections[nn-1].hdr.sh_offset + sections[nn-1].hdr.sh_size; // offset in file
        sections[nn].hdr.sh_size = sections[nn].index;
        sections[nn].hdr.sh_link = 6;
        sections[nn].hdr.sh_info = 0;
        sections[nn].hdr.sh_addralign = 1;
        sections[nn].hdr.sh_entsize = 16;
    }
 
    nn = 1;
    // The first entry is an NULL symbol
    elfsym.st_name = 0;
    elfsym.st_info = 0;
    elfsym.st_other = 0;
    elfsym.st_shndx = 0;
    elfsym.st_value = 0;
    elfsym.st_size = 0;
    sections[6].Add(&elfsym);
    syms = (SYM*)HashInfo.table;
    for (nn = 0; nn < HashInfo.size; nn++) {
        // Don't output the constants
//        if (syms[nn].segment < 5) {
          if (syms[nn].name) {
            elfsym.st_name = syms[nn].name;
            elfsym.st_info = syms[nn].scope == 'P' ? STB_GLOBAL << 4 : 0;
            elfsym.st_other = 0;
            elfsym.st_shndx = syms[nn].segment;
            elfsym.st_value = syms[nn].value.low;
            elfsym.st_size = 8;
            sections[6].Add(&elfsym);
//        }
        }
    }
 
    elf.hdr.e_ident[0] = 127;
    elf.hdr.e_ident[1] = 'E';
    elf.hdr.e_ident[2] = 'L';
    elf.hdr.e_ident[3] = 'F';
    elf.hdr.e_ident[4] = clsElf64Header::ELFCLASS64;   // 64 bit file format
    elf.hdr.e_ident[5] = clsElf64Header::ELFDATA2LSB;  // little endian
    elf.hdr.e_ident[6] = 1;        // header version always 1
    elf.hdr.e_ident[7] = 255;      // OS/ABI indentification, 255 = standalone
    elf.hdr.e_ident[8] = 255;      // ABI version
    elf.hdr.e_ident[9] = 0;
    elf.hdr.e_ident[10] = 0;
    elf.hdr.e_ident[11] = 0;
    elf.hdr.e_ident[12] = 0;
    elf.hdr.e_ident[13] = 0;
    elf.hdr.e_ident[14] = 0;
    elf.hdr.e_ident[15] = 0;
    elf.hdr.e_type = rel_out ? 1 : 2;
    elf.hdr.e_machine = 888;         // machine architecture
    elf.hdr.e_version = 1;
    sym = find_symbol("start");
    if (sym)
        start = sym->value.low;
    else
        start = 0xC00200;
    elf.hdr.e_entry = start;
    elf.hdr.e_phoff = 0;
    elf.hdr.e_shoff = sections[11].hdr.sh_offset + sections[11].index;
    elf.hdr.e_flags = 0;
    elf.hdr.e_ehsize = Elf64HdrSz;
    elf.hdr.e_phentsize = 0;
    elf.hdr.e_phnum = 0;
    elf.hdr.e_shentsize = Elf64ShdrSz;
    elf.hdr.e_shnum = 0;              // This will be incremented by AddSection()
    elf.hdr.e_shstrndx = 5;           // index into section table of string table header
 
    for (nn = 0; nn < 12; nn++)
        elf.AddSection(&sections[nn]);
    elf.Write(fp);
 
}
 
int IHChecksum(char *ibuf, int payloadCount)
{
    char buf[20];
    int nn;
    int ii;
    int sum;
 
    sum = 0;
    for (nn = 0; nn < payloadCount +4; nn++) {
        buf[0] = ibuf[nn*2+1];
        buf[1] = ibuf[nn*2+2];
        buf[2] = '\0';
        ii = strtoul(buf,NULL,16);
        sum = sum + ii;
    }
    sum = -sum;
    sprintf(&ibuf[(payloadCount+4) * 2+1],"%02X\n", sum & 0xFF);
        return sum;
}
 
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
int64_t getbit(int n, int bit)
{
        return (n >> bit) & 1;
}
 
// ----------------------------------------------------------------------------
// Compute 38 bit ECC (32+6 bits EDC).
// ----------------------------------------------------------------------------
 
int checkbits(unsigned int i)
{
/*
        unsigned int p0,p1,p2,p3,p4,p5,p;
        unsigned int t1,t2,t3;
 
        p0 = u ^ (u >> 2);
        p0 = p0 ^ (p0 >> 4);
        p0 = p0 ^ (p0 >> 8);
        p0 = p0 ^ (p0 >> 16);
 
        t1 = u ^ (u >> 1);
        p1 = t1 ^ (t1 >> 4);
        p1 = p1 ^ (p1 >> 8);
        p1 = p1 ^ (p1 >> 16);
 
        t2 = t1 ^ (t1 >> 2);
        p2 = t2 ^ (t2 >> 8);
        p2 = p2 ^ (p2 >> 16);
 
        t3 = t2 ^ (t2 >> 4);
        p3 = t3 ^ (t3 >> 16);
 
        p4 = t3 ^ (t3 >> 8);
 
        p5 = p4 ^ (p4 >> 16);
 
        p = ((p0 >> 1)&1) | ((p1 >> 1)&2) | ((p2>>2)&4) |
                ((p3 >> 5)&8) | ((p4 >> 12)&16) | ((p5 & 1)<<5);
 
        p = p ^ (-(u & 1)&0x3f);        // now account for u[0]
        return p;
*/
 
        static int8_t g1[18] = {0,1,3,4,6,8,10,11,13,15,17,19,21,23,25,26,28,30};
        static int8_t g2[18] = {0,2,3,5,6,9,10,12,13,16,17,20,21,24,25,27,28,31};
        static int8_t g4[18] = {1,2,3,7,8,9,10,14,15,16,17,22,23,24,25,29,30,31};
        static int8_t g8[15] = {4,5,6,7,8,9,10,18,19,20,21,22,23,24,25};
        static int8_t g16[15] = {11,12,13,14,15,16,17,18,19,20,21,22,23,24,25};
        static int8_t g32[6] = {26,27,28,29,30,31};
        unsigned int p1,p2,p4,p8,p16,p32,pg,b,o;
        int nn;
 
        p1 = 0;
        for (nn = 0; nn < 18; nn++) {
                b = getbit(i,g1[nn]);
                p1 = p1 ^ b;
        }
        p2 = 0;
        for (nn = 0; nn < 18; nn++) {
                b = getbit(i,g2[nn]);
                p2 = p2 ^ b;
        }
        p4 = 0;
        for (nn = 0; nn < 18; nn++) {
                b = getbit(i,g4[nn]);
                p4 = p4 ^ b;
        }
        p8 = 0;
        for (nn = 0; nn < 15; nn++) {
                b = getbit(i,g8[nn]);
                p8 = p8 ^ b;
        }
        p16 = 0;
        for (nn = 0; nn < 15; nn++) {
                b = getbit(i,g16[nn]);
                p16 = p16 ^ b;
        }
        p32 = 0;
        for (nn = 0; nn < 6; nn++) {
                b = getbit(i,g32[nn]);
                p32 = p32 ^ b;
        }
/*
        o = p1|(p2<<1)|(getbit(i,0)<<2)|(p4<<3);
        o = o | (getbit(i,1)<<4)| (getbit(i,2)<<5)| (getbit(i,3)<<6)|(p8<<7);
        for (nn = 4; nn <= 10; nn++)
                o = o | (getbit(i,nn)<<(nn+4));
        o = o | (p16 << 15);
        for (nn = 11; nn <= 25; nn++)
                o = o | (getbit(i,nn)<<(nn+5));
        o = o | (p32 << 31);
        for (nn = 26; nn <= 31; nn++)
                o = o | (getbit(i,nn)<<(nn+6));
*/
        pg = checksum((int32_t*)&i)^p1^p2^p4^p8^p16^p32;
//      o = i | (p32<<37)|(p16<<36)|(p8<<35)|(p4<<34)|(p2<<33)|(p1<<32) | (pg << 38);
        o = (p32<<5)|(p16<<4)|(p8<<3)|(p4<<2)|(p2<<1)|p1|(pg<<6);
        return o;
}
 
/*
int PreProcessFile(char *nm)
{
        static char outname[1000];
        static char sysbuf[500];
 
        strcpy_s(outname, sizeof(outname), nm);
        strcat_s(outname,sizeof(outname),".app.asm");
        sprintf_s(sysbuf, sizeof(sysbuf), "app -V %s %s", nm, outname);
        return system(sysbuf);
}
*/
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
 
int main(int argc, char *argv[])
{
  int nn,qq,kk;
  static char fname[500];
  static char hexbuf[500];
  char *p;
  uint64_t lsa;      // last start address
  double bpi;
  int64_t i64;
  uint32_t u32;
        float nc2;
        std::ifstream ifs;
 
  processOpt = 1;
        sections[bssseg].storebyte = 0;
  ofp = stdout;
  nn = processOptions(argc, argv);
  if (nn > argc-1) {
      displayHelp();
      return 0;
  }
  SymbolInit();
  strcpy_s(fname, sizeof(fname), argv[nn]);
  mfndx = 0;
  start_address = 0;
  code_address = 0;
  bss_address = 0;
  data_address = 0;
  isInitializationData = 0;
  for (qq = 0; qq < 12; qq++)
    sections[qq].Clear();
  nmTable.Clear();
        mofs.open("as64-master.asm");
  if (verbose) printf("Pass 1 - collect all input files.\r\n");
        //PreProcessFile(fname);
        //strcat_s(fname,sizeof(fname),".app.asm");
        mname = std::string(fname);
  processFile(fname,0);   // Pass 1, collect all include files
        masterFileLength = mofs.tellp();
        mofs.close();
        masterFile = new char[masterFileLength + 10000];
  //if (debug) {
  //  FILE *fp;
  //  fopen_s(&fp, "a64-master.asm", "w");
  //  if (fp) {
  //    fwrite(masterFile, 1, strlen(masterFile), fp);
  //    fclose(fp);
  //  }
  //}
        ZeroMemory(masterFile, masterFileLength + 10000);
        ifs.open("as64-master.asm");
        ifs.read(masterFile, masterFileLength + 10000);
        ifs.close();
  if (verbose) printf("Pass 2 - group and reorder segments\r\n");
  first_org = 1;
  processSegments();     // Pass 2, group and order segments
//      ProcessSegments2();
 
  pass = 3;
  processMaster();       // Pass 3 collect up opcodes
  printf("Qsorting\r\n");
  qsort((HTBLE*)hTable, htblmax, sizeof(HTBLE), hcmp);
 
    pass = 4;
    if (verbose) printf("Pass 4 - get all symbols, set initial values.\r\n");
    first_org = 1;
    processMaster();
    pass = 5;
    phasing_errors = 0;
    if (verbose) printf("Pass 5 - assemble code.\r\n");
    first_org = 1;
    processMaster();
    if (verbose) printf("Pass 6: phase errors: %d\r\n", phasing_errors);
    pass = 6;
        pe3 = pe2 = pe1 = 0;
    while (phasing_errors && pass < 40) {
        phasing_errors = 0;
        num_bytes = 0;
        num_insns = 0;
                num_cinsns = 0;
            first_org = 1;
        processMaster();
        if (verbose) printf("Pass %d: phase errors: %d\r\n", pass, phasing_errors);
        pass++;
                pe3 = pe2;
                pe2 = pe1;
                pe1 = phasing_errors;
                if (pe1==pe2 && pe2==pe3 && pe1==pe3) {
                        if (verbose)
                                printf("Non converging phase errors\r\n");
                        break;
                }
    }
    //processMaster();
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output listing file.
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    ofp = (FILE *)NULL;
    if (listing) {
        if (verbose) printf("Generating listing file %s.\r\n", argv[nn]);
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".lst");
        fopen_s(&ofp, fname,"w");
        if (!ofp)
           printf("Can't open output file <%s>\r\n", fname);
        bGen = 1;
    }
    processOpt = 2;
        bGenListing = true;
    processMaster();
        bGenListing = false;
    DumpSymbols();
    DumphTable();
    fprintf(ofp, "\nnumber of bytes: %f\n", num_bytes);
    fprintf(ofp, "number of instructions: %d\n", num_insns);
        fprintf(ofp, "number of compressed instructions: %d\n", num_cinsns);
        bpi = (double)num_bytes/(double)num_insns;
    fprintf(ofp, "%0.6f bytes (%d bits) per instruction\n", bpi, (int)(bpi*8));
        nc2 = (float)num_cinsns * 2.0;
        fprintf(ofp, "Compression ratio: %f%%", (nc2 / (num_bytes + nc2)) * 100.0);
 
/*
    chksum = 0;
    for (nn = 0; nn < binndx; nn+=4) {
        chksum += binfile[nn] +
                  (binfile[nn+1] << 8) +
                  (binfile[nn+2] << 16) +
                  (binfile[nn+3] << 24)
                  ;
    }
 
    fprintf(ofp, "\r\nChecksum: %08X\r\n", chksum);
*/
    if (listing)
        fclose(ofp);
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output binary file.
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if (binary_out) {
        if (verbose) printf("Generating binary file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".bin");
        fopen_s(&ofp, fname,"wb");
        if (ofp) {
            fwrite((void*)sections[0].bytes,sections[0].index,1,ofp);
            fwrite((void*)sections[1].bytes,sections[1].index,1,ofp);
            //fwrite((void*)sections[2].bytes,sections[2].index,1,ofp);
            //fwrite(binfile,binndx,1,ofp);
            fclose(ofp);
        }
        else
            printf("Can't create .bin file.\r\n");
    }
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output ELF file.
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if (elf_out) {
        if (verbose) printf("Generating ELF file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        if (rel_out)
            strcat_s(fname, sizeof(fname), ".rel");
        else
            strcat_s(fname, sizeof(fname), ".elf");
        fopen_s(&ofp, fname,"wb");
        if (ofp) {
            WriteELFFile(ofp);
            fclose(ofp);
        }
        else
            printf("Can't create .elf file.\r\n");
    }
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output coe file
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if (coe_out) {
            if (verbose) printf("Generating COE file.\r\n");
            strcpy_s(fname, sizeof(fname), argv[nn]);
            p = strrchr(fname,'.');
            if (p) {
                *p = '\0';
            }
            strcat_s(fname, sizeof(fname), ".coe");
            fopen_s(&vfp, fname, "w");
            if (vfp) {
                fprintf(vfp, "memory_initialization_radix=16;\r\n");
                fprintf(vfp, "memory_initialization_vector=\r\n");
                for (kk = 0;kk < binndx; kk+=4) {
                        u32 = (binfile[kk+3]<<24)|(binfile[kk+2]<<16)|(binfile[kk+1]<<8)|binfile[kk];
                    i64 = ((uint64_t)checkbits(u32) << 32)|(uint64_t)u32;
                    fprintf(vfp, "%010I64X,\r\n", i64);
                }
                fprintf(vfp,"000000;\r\n");
                fclose(vfp);
                }
        }
 
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output Verilog memory declaration
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if (verilog_out) {
        if (verbose) printf("Generating Verilog file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".ve0");
        fopen_s(&vfp, fname, "w");
        if (vfp) {
                        /*
                        if (gCpu=='A') {
                                dsd9_VerilogOut(vfp);
                        }
            else
                        */
                        if (gCpu=='F' || gCpu=='G') {
                                if (vebits==128) {
                                        for (kk = 0; kk < binndx; kk+=16) {
                                                fprintf(vfp, "\trommem[%d] = 128'h%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                                                        ((((unsigned int)start_address+kk)/16)%16384), //checksum64((int64_t *)&binfile[kk]),
                                                        binfile[kk+15], binfile[kk+14], binfile[kk+13], binfile[kk+12],
                                                        binfile[kk+11], binfile[kk+10], binfile[kk+9], binfile[kk+8],
                                                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                                                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                                        }
                                }
                                else if (vebits==64) {
                                        for (kk = 0; kk < binndx; kk+=8) {
                                                fprintf(vfp, "\trommem[%d] = 64'h%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                                                        ((((unsigned int)start_address+kk)/8)%16384), //checksum64((int64_t *)&binfile[kk]),
                                                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                                                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                                        }
                                }
            }
                        /*
                        else if (gCpu=='G') {
                for (kk = 0; kk < binndx; kk+=32) {
                    fprintf(vfp, "\trommem[%d] = 256'h%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X"
                                                "%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        ((((unsigned int)start_address+kk)/32)%16384), //checksum64((int64_t *)&binfile[kk]),
                        binfile[kk+31], binfile[kk+30], binfile[kk+29], binfile[kk+28],
                        binfile[kk+27], binfile[kk+26], binfile[kk+25], binfile[kk+24],
                        binfile[kk+23], binfile[kk+22], binfile[kk+21], binfile[kk+20],
                        binfile[kk+19], binfile[kk+18], binfile[kk+17], binfile[kk+16],
                        binfile[kk+15], binfile[kk+14], binfile[kk+13], binfile[kk+12],
                        binfile[kk+11], binfile[kk+10], binfile[kk+9], binfile[kk+8],
                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
            }
                        */
                        else if (gCpu==64) {
                for (kk = 0; kk < binndx; kk+=8) {
                    fprintf(vfp, "\trommem0[%d] = 65'h%01d%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        (((0+kk)/8)%16384), checksum64((int64_t *)&binfile[kk]),
                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
            }
            else if (gCpu==5) {
                for (kk = 0;kk < binndx; kk+=4) {
                        u32 = (binfile[kk+3]<<24)|(binfile[kk+2]<<16)|(binfile[kk+1]<<8)|binfile[kk];
                    i64 = (uint64_t)u32;
                    fprintf(vfp, "\trommem[%d] = 32'h%08I64X;\n",
                        (int)(((start_address+kk)/4)%32768), i64);
                }
            }
                        else if (gCpu=='A') {
                for (kk = 0; kk < binndx; kk+=16) {
                    fprintf(vfp, "\trommem[%d] = 128'h%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        (((0+kk)/16)%16384),
                        binfile[kk+15], binfile[kk+14], binfile[kk+13], binfile[kk+12],
                        binfile[kk+11], binfile[kk+10], binfile[kk+9], binfile[kk+8],
                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
                                if (kk != binndx)
                    fprintf(vfp, "\trommem[%d] = 128'h%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        (((0+kk)/16)%16384),
                        binfile[kk+15], binfile[kk+14], binfile[kk+13], binfile[kk+12],
                        binfile[kk+11], binfile[kk+10], binfile[kk+9], binfile[kk+8],
                        binfile[kk+7], binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
            }
            else {
                for (kk = 0;kk < binndx; kk+=4) {
                        u32 = (binfile[kk+3]<<24)|(binfile[kk+2]<<16)|(binfile[kk+1]<<8)|binfile[kk];
                    i64 = ((uint64_t)checkbits(u32) << 32)|(uint64_t)u32;
                    fprintf(vfp, "\trommem0[%d] = 39'h%010I64X;\n",
                        (int)(((0+kk)/4)%32768), i64);
                }
            }
            fclose(vfp);
        }
        else
            printf("Can't create .ver file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".ve1");
        fopen_s(&vfp, fname, "w");
        if (vfp) {
            if (gCpu==64) {
                for (kk = 0; kk < binndx; kk+=8) {
                    fprintf(vfp, "\trommem1[%d] = 65'h%01d%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        (((0+kk)/8)%16384), checksum64((int64_t *)&binfile[kk]),
                        binfile[kk+7]^0xAA, binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
            }
            else {
                for (kk = 0;kk < binndx; kk+=4) {
                    fprintf(vfp, "\trommem1[%d] = 32'h%02X%02X%02X%02X;\n",
                        (((start_address+kk)/4)%32768), binfile[kk+3]^0xAA, binfile[kk+2]^0xAA, binfile[kk+1]^0xAA, binfile[kk]^0xAA);
                }
            }
            fclose(vfp);
        }
        else
            printf("Can't create .ver file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".ve2");
        fopen_s(&vfp, fname, "w");
        if (vfp) {
            if (gCpu==64) {
                for (kk = 0; kk < binndx; kk+=8) {
                    fprintf(vfp, "\trommem2[%d] = 65'h%01d%02X%02X%02X%02X%02X%02X%02X%02X;\n",
                        (((0+kk)/8)%16384), checksum64((int64_t *)&binfile[kk]),
                        binfile[kk+7]^0x55, binfile[kk+6], binfile[kk+5], binfile[kk+4],
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
            }
            else {
                for (kk = 0;kk < binndx; kk+=4) {
                    fprintf(vfp, "\trommem2[%d] = 32'h%02X%02X%02X%02X;\n",
                        (((start_address+kk)/4)%32768), binfile[kk+3]^0x55, binfile[kk+2]^0x55, binfile[kk+1]^0x55, binfile[kk]^0x55);
                }
            }
            fclose(vfp);
        }
        else
            printf("Can't create .ver file.\r\n");
    }
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output Verilog memory declaration
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        if (verbose) printf("Generating Text file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        strcat_s(fname, sizeof(fname), ".txt");
        printf("fname:%s\r\n", fname);
        fopen_s(&vfp, fname, "w");
        if (vfp) {
            if (gCpu==64) {
                for (kk = 0; kk < binndx; kk+=4) {
                    fprintf(vfp, "%06X,%02X%02X%02X%02X\n",
                        (((start_address+kk))),
                        binfile[kk+3], binfile[kk+2], binfile[kk+1], binfile[kk]);
                }
            }
            fclose(vfp);
        }
        else
            printf("Can't create .txt file.\r\n");
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Output Intel hex file
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        if (verbose) printf("Generating Hex file.\r\n");
        strcpy_s(fname, sizeof(fname), argv[nn]);
        p = strrchr(fname,'.');
        if (p) {
            *p = '\0';
        }
        lsa = 0;
        strcat_s(fname, sizeof(fname), ".hex");
        printf("fname:%s\r\n", fname);
        fopen_s(&vfp, fname, "w");
        if (vfp) {
            if (gCpu==64||gCpu=='F'||gCpu=='G') {
                for (kk = 0; kk < binndx; kk+=4) {
                    if (lsa != (start_address + kk) >> 16) {
                        sprintf_s(hexbuf, sizeof(hexbuf), ":02000004%04X00\n", (int)((start_address+kk) >> 16));
                        IHChecksum(hexbuf, 2);
                        fprintf(vfp, hexbuf);
                        lsa = (start_address+kk) >> 16;
                    }
                    sprintf_s(hexbuf, sizeof(hexbuf), ":%02X%04X00%02X%02X%02X%02X\n",
                        4, (int)(start_address + kk) & 0xFFFF,
                        binfile[kk], binfile[kk+1], binfile[kk+2], binfile[kk+3]
                    );
                    IHChecksum(hexbuf, 4);
                    fprintf(vfp, hexbuf);
                }
            }
            else if (gCpu==4) {
                for (kk = 0; kk < binndx; kk+=8) {
                    if (lsa != (start_address + kk) >> 16) {
                        sprintf_s(hexbuf, sizeof(hexbuf), ":02000004%04X00\n", (int)((start_address+kk) >> 16));
                        IHChecksum(hexbuf, 2);
                        fprintf(vfp, hexbuf);
                        lsa = (start_address+kk) >> 16;
                    }
                    sprintf_s(hexbuf, sizeof(hexbuf), ":%02X%04X00%02X%02X%02X%02X%02X%02X%02X%02X\n",
                        8, (start_address + kk) & 0xFFFF,
                        binfile[kk], binfile[kk+1], binfile[kk+2],binfile[kk+3],
                        binfile[kk+4],binfile[kk+5],binfile[kk+6],binfile[kk+7]
                    );
                    IHChecksum(hexbuf, 8);
                    fprintf(vfp, hexbuf);
                }
            }
            fprintf(vfp, ":00000001FF\n%c",26);        // end of file record
            fclose(vfp);
        }
        else
            printf("Can't create .hex file.\r\n");
        delete[] masterFile;
  return (0);
}
 
bool IsNBit(int64_t val, int64_t n)
{
        int64_t low, high;
 
        low = -(1LL << (n - 1LL));
        high = (1LL << (n - 1LL));
        return (val >= low && val < high);
}
Browse

Tools

Subversion Repositories thor

[/] [thor/] [trunk/] [FT64v5/] [software/] [AS64/] [source/] [main.cpp] - Blame information for rev 55

Line No.	Rev	Author	Line
1	48	robfinch	`// ============================================================================`
2			`// __`
3			`// \\__/ o\ (C) 2016-2018 Robert Finch, Waterloo`
4			`// \ __ / All rights reserved.`
5			`// \/_// robfinch<remove>@finitron.ca`
6			`// \|\|`
7			`//`
8			`// AS64 - Assembler`
9			`// - 64 bit CPU`
10			`//`
11			`// This source file is free software: you can redistribute it and/or modify`
12			`// it under the terms of the GNU Lesser General Public License as published`
13			`// by the Free Software Foundation, either version 3 of the License, or`
14			`// (at your option) any later version.`
15			`//`
16			`// This source file is distributed in the hope that it will be useful,`
17			`// but WITHOUT ANY WARRANTY; without even the implied warranty of`
18			`// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
19			`// GNU General Public License for more details.`
20			`//`
21			`// You should have received a copy of the GNU General Public License`
22			`// along with this program. If not, see <http://www.gnu.org/licenses/>.`
23			`//`
24			`// ============================================================================`
25			`//`
26			`#include "stdafx.h"`
27
28			`#define MAX_PASS 6`
29
30	54	robfinch	`FilenameStack fns;`
31
32	48	robfinch	`int gCpu = 888;`
33			`int verbose = 1;`
34			`int debug = 1;`
35			`int listing = 1;`
36			`int binary_out = 1;`
37			`int verilog_out = 1;`
38			`int elf_out = 1;`
39			`int rel_out = 0;`
40			`int coe_out = 0;`