/* lkdata.c */

/*
 *  Copyright (C) 1989-2009  Alan R. Baldwin
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  This program 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/>.
 *
 *
 * Alan R. Baldwin
 * 721 Berkeley St.
 * Kent, Ohio  44240
 *
 *   With enhancements from
 *      John L. Hartman (JLH)
 *      jhartman@compuserve.com
 *
 */

#include "aslink.h"

/*)Module       lkdata.c
 *
 *      The module lkdata contains the global variables
 *      and structures used in the linker aslink.
 */

/*
 * Internal ASxxxx Version Variable
 */
int     ASxxxx_VERSION;


/*
 *      Definitions for all Global Variables
 */

char    *_abs_  = { ".  .ABS." };

char    afspec[FILSPC]; /*      The filespec created by afile()
                         */
int     lkerr;          /*      Linker error flag
                         */
char    *ip;            /*      Pointer into the REL file text line in ib[]
                         */
char    ib[NINPUT];     /*      REL file text line
                         */
char    *rp;            /*      pointer into the LST file
                         *      text line in rb[]
                         */
char    rb[NINPUT];     /*      LST file text line being
                         *      address relocated
                         */
int     oflag;          /*      Output file type flag
                         */
int     objflg;         /*      Linked file/library object output flag
                         */

#if NOICE
int     jflag;          /*      NoICE output flag
                         */
#endif

#if SDCDB
int     yflag;          /*      SDCDB output flag
                         */
#endif

int     mflag;          /*      Map output flag
                         */
int     xflag;          /*      Map file radix type flag
                         */
int     pflag;          /*      print linker command file flag
                         */
int     uflag;          /*      Listing relocation flag
                         */
int     wflag;          /*      Enable wide format listing
                         */
int     zflag;          /*      Disable symbol case sensitivity
                         */
int     radix;          /*      current number conversion radix:
                         *      2 (binary), 8 (octal), 10 (decimal),
                         *      16 (hexadecimal)
                         */
int     line;           /*      current line number
                         */
int     page;           /*      current page number
                         */
int     lop;            /*      current line number on page
                         */
int     pass;           /*      linker pass number
                         */
a_uint  pc;             /*      current relocation address
                         */
int     pcb;            /*      current bytes per pc word
                         */
int     rtcnt;          /*      count of elements in the
                         *      rtval[] and rtflg[] arrays
                         */
a_uint  rtval[NTXT];    /*      data associated with relocation
                         */
int     rtflg[NTXT];    /*      indicates if rtval[] value is
                         *      to be sent to the output file.
                         */
int     rterr[NTXT];    /*      indicates if rtval[] value should
                         *      be flagged as a relocation error.
                         */
char    rtbuf[NMAX];    /*      S19/IHX output buffer
                         */
struct  bank * rtabnk;  /*      rtbuf[] processing
                         */
int     rtaflg;         /*      rtbuf[] processing
                         */
a_uint  rtadr0 = 0;     /*
                         */
a_uint  rtadr1 = 0;     /*
                         */
a_uint  rtadr2 = 0;     /*
                         */
int     obj_flag = 0;   /*      Linked file/library object output flag
                         */
int     a_bytes;        /*      REL file T Line address length
                         */
int     hilo;           /*      REL file byte ordering
                         */
a_uint  a_mask;         /*      Address Mask
                         */
a_uint  s_mask;         /*      Sign Mask
                         */
a_uint  v_mask;         /*      Value Mask
                         */
int     gline;          /*      LST file relocation active
                         *      for current line
                         */
int     gcntr;          /*      LST file relocation active
                         *      counter
                         */
/* sdld specific */
char    *optsdcc;
char    *optsdcc_module;
int     sflag;          /*      JCF: Memory usage output flag
                         */
int     packflag=0;     /*      JCF: Pack internal memory flag
                         */
int     stacksize=0;    /*      JCF: Stack size
                         */
int     aflag;          /*      Overlapping area warning flag
                         */
int     rflag;          /*      Extended linear address record flag.
                         */
a_uint  iram_size;      /*      internal ram size
                         */
long    xram_size = -1; /*      external ram size
                         */
long    code_size = -1; /*      code size
                         */
/* end sdld specific */

/*
 *      The structure lfile contains a pointer to a
 *      file specification string, an index which points
 *      to the file name (past the 'path'), the file type,
 *      an object output flag, and a link to the next
 *      lfile structure.
 *
 *      struct  lfile
 *      {
 *              struct  lfile   *f_flp;         lfile link
 *              int     f_type;                 File type
 *              char    *f_idp;                 Pointer to file spec
 *              int     f_obj;                  Object output flag
 *      };
 */
struct  lfile   *filep; /*      The pointers (lfile *) filep,
                         *      (lfile *) cfp, and (FILE *) sfp
                         *      are used in conjunction with
                         *      the routine nxtline() to read
                         *      asmlnk commands from
                         *      (1) the standard input or
                         *      (2) or a command file
                         *      and to read the REL files
                         *      sequentially as defined by the
                         *      asmlnk input commands.
                         *
                         *      The pointer *filep points to the
                         *      beginning of a linked list of
                         *      lfile structures.
                         */
struct  lfile   *cfp;   /*      The pointer *cfp points to the
                         *      current lfile structure
                         */
struct  lfile   *startp;/*      aslink startup file structure
                         */
struct  lfile   *linkp; /*      pointer to first lfile structure
                         *      containing an input REL file
                         *      specification
                         */
struct  lfile   *lfp;   /*      pointer to current lfile structure
                         *      being processed by parse()
                         */
FILE    *ofp = NULL;    /*      Output file handle
                         *      for word formats
                         */

#if NOICE
FILE    *jfp = NULL;    /*      NoICE output file handle
                         */
#endif

#if SDCDB
FILE    *yfp = NULL;    /*      SDCDB output file handle
                         */
#endif

FILE    *mfp = NULL;    /*      Map output file handle
                         */
FILE    *rfp = NULL;    /*      File handle for output
                         *      address relocated ASxxxx
                         *      listing file
                         */
FILE    *sfp = NULL;    /*      The file handle sfp points to the
                         *      currently open file
                         */
FILE    *tfp = NULL;    /*      File handle for input
                         *      ASxxxx listing file
                         */

/*
 *      The structures of head, bank, area, areax, and sym
 *      are created as the REL files are read during the first
 *      pass of the linker.  The struct head is created upon
 *      encountering a H directive in the REL file.  The
 *      structure contains a link to a link file structure
 *      (struct lfile) which describes the file containing the H
 *      directive, a pointer to an array of merge mode
 *      definition pointers, the number of data/code areas
 *      contained in this header segment, the number of
 *      symbols referenced/defined in this header segment, a pointer
 *      to an array of pointers to areax structures (struct areax)
 *      created as each A directive is read, a pointer to an
 *      array of pointers to symbol structures (struct sym) for
 *      all referenced/defined symbols and a pointer to an array
 *      of pointers to bank structures (struct bank) referenced
 *      by this module.  As H directives are read
 *      from the REL files a linked list of head structures is
 *      created by placing a link to the new head structure
 *      in the previous head structure.
 *
 *      struct  head
 *      {
 *              struct  head   *h_hp;           Header link
 *              struct  lfile  *h_lfile;        Associated file
 *              int     h_narea;                # of areas
 *              struct  areax **a_list;         Area list
 *              int     h_nsym;                 # of symbols
 *              struct  sym   **s_list;         Symbol list
 *              int     h_nbank;                # of banks
 *              struct  bank  **b_list;         Bank list
 *              int     h_nmode;                # of modes
 *              struct  mode  **m_list;         Mode list
 *              char *  m_id;                   Module name
 *      };
 */
struct  head    *headp; /*      The pointer to the first
                         *      head structure of a linked list
                         */
struct  head    *hp;    /*      Pointer to the current
                         *      head structure
                         */

/*
 *      The bank structure contains the parameter values for a
 *      specific program or data bank.  The bank structure
 *      is a linked list of banks.  The initial default bank
 *      is unnamed and is defined in lkdata.c, the next bank structure
 *      will be linked to this structure through the structure
 *      element 'struct bank *b_bp'.  The structure contains the
 *      bank name, the bank base address (default = 0)
 *      the bank size, (default = 0, whole addressing space)
 *      and the file name suffix. (default is none)  These optional
 *      parameters are from  the .bank assembler directive.
 *      The bank structure also contains the bank data output
 *      file specificatiion, file handle pointer and the
 *      bank first output flag.
 *
 *      struct  bank
 *      {
 *              struct  bank *b_bp;     Bank link
 *              char *  b_id;           Bank Name
 *              char *  b_fsfx;         Bank File Suffix
 *              a_uint  b_base;         Bank base address
 *              a_uint  b_size;         Bank size
 *              a_uint  b_map           Bank mapping
 *              int     b_flag;         Bank flags
 *              char *  b_fspec;        Bank File Specification
 *              FILE *  b_ofp;          Bank File Handle
 *              int     b_oflag;        Bank has output flag
 *              int     b_rtaflg        Bank First Output flag
 *      };
 */
struct  bank    bank[1] = {
    {   NULL,   "",     "",     0,      0,      0,      0,      "",     NULL,   0,      1       }
};

struct  bank    *bankp = &bank[0];
                        /*      The pointer to the first
                         *      bank structure
                         */
struct  bank    *bp;    /*      Pointer to the current
                         *      bank structure
                         */

/*
 *      A structure area is created for each 'unique' data/code
 *      area definition found as the REL files are read.  The
 *      struct area contains the name of the area, a flag byte
 *      which contains the area attributes (REL/CON/OVR/ABS),
 *      the area base address set flag byte (-b option), and the
 *      area base address and total size which will be filled
 *      in at the end of the first pass through the REL files.
 *      The area structure also contains a link to the bank
 *      this area is a part of and a data output file handle
 *      pointer which is loaded from from the bank structure.
 *      As A directives are read from the REL files a linked
 *      list of unique area structures is created by placing a
 *      link to the new area structure in the previous area structure.
 *
 *      struct  area
 *      {
 *              struct  area    *a_ap;          Area link
 *              struct  areax   *a_axp;         Area extension link
 *              struct  bank    *a_bp;          Bank link
 *              FILE *  a_ofp;                  Area File Handle
 *              a_uint  a_addr;                 Beginning address of area
 *              a_uint  a_size;                 Total size of the area
 *              int     a_bset;                 Area base address set
 *              int     a_flag;                 Flags
 *              char *  a_id;                   Name
 *      };
 */
struct  area    *areap; /*      The pointer to the first
                         *      area structure of a linked list
                         */
struct  area    *ap;    /*      Pointer to the current
                         *      area structure
                         */

/*
 *      An areax structure is created for every A directive found
 *      while reading the REL files.  The struct areax contains a
 *      link to the 'unique' area structure referenced by the A
 *      directive and to the head structure this area segment is
 *      a part of.  The size of this area segment as read from the
 *      A directive is placed in the areax structure.  The beginning
 *      address of this segment will be filled in at the end of the
 *      first pass through the REL files.  As A directives are read
 *      from the REL files a linked list of areax structures is
 *      created for each unique area.  The final areax linked
 *      list has at its head the 'unique' area structure linked
 *      to the linked areax structures (one areax structure for
 *      each A directive for this area).
 *
 *      struct  areax
 *      {
 *              struct  areax   *a_axp;         Area extension link
 *              struct  area    *a_bap;         Base area link
 *              struct  head    *a_bhp;         Base header link
 *              a_uint  a_addr;                 Beginning address of section
 *              a_uint  a_size;                 Size of the area in section
 *      };
 */
struct  areax   *axp;   /*      Pointer to the current
                         *      areax structure
                         */

/*
 *      A sym structure is created for every unique symbol
 *      referenced/defined while reading the REL files.  The
 *      struct sym contains the symbol's name, a flag value
 *      (not used in this linker), a symbol type denoting
 *      referenced/defined, and an address which is loaded
 *      with the relative address within the area in which
 *      the symbol was defined.  The sym structure also
 *      contains a link to the area where the symbol was defined.
 *      The sym structures are linked into linked lists using
 *      the symbol link element.
 *
 *      struct  sym
 *      {
 *              struct  sym     *s_sp;          Symbol link
 *              struct  areax   *s_axp;         Symbol area link
 *              char    s_type;                 Symbol subtype
 *              char    s_flag;                 Flag byte
 *              a_uint  s_addr;                 Address
 *              char    *s_id;                  Name (JLH)
 *              char    *m_id;                  Module
 *      };
 */
struct  sym *symhash[NHASH]; /* array of pointers to NHASH
                              * linked symbol lists
                              */
/*
 *      The struct base contains a pointer to a
 *      base definition string and a link to the next
 *      base structure.
 *
 *      struct  base
 *      {
 *              struct  base  *b_base;          Base link
 *              char          *b_strp;          String pointer
 *      };
 */
struct  base    *basep; /*      The pointer to the first
                         *      base structure
                         */
struct  base    *bsp;   /*      Pointer to the current
                         *      base structure
                         */

/*
 *      The struct globl contains a pointer to a
 *      global definition string and a link to the next
 *      global structure.
 *
 *      struct  globl
 *      {
 *              struct  globl *g_globl;         Global link
 *              char          *g_strp;          String pointer
 *      };
 */
struct  globl   *globlp;/*      The pointer to the first
                         *      globl structure
                         */
struct  globl   *gsp;   /*      Pointer to the current
                         *      globl structure
                         */

/*
 *      A structure sdp is created for each 'unique' paged
 *      area definition found as the REL files are read.
 *      As P directives are read from the REL files a linked
 *      list of unique sdp structures is created by placing a
 *      link to the new sdp structure in the previous area structure.
 *
 *      struct  sdp
 *      {
 *              struct  area  *s_area;  Paged Area link
 *              struct  areax *s_areax; Paged Area Extension Link
 *              a_uint  s_addr;         Page address offset
 *      };
 */
struct  sdp     sdp;    /* Base Page Structure */

/*
 *      The structure rerr is loaded with the information
 *      required to report an error during the linking
 *      process.  The structure contains an index value
 *      which selects the areax structure from the header
 *      areax structure list, a mode value which selects
 *      symbol or area relocation, the base address in the
 *      area section, an area/symbol list index value, and
 *      an area/symbol offset value.
 *
 *      struct  rerr
 *      {
 *              int     aindex;         Linking area
 *              int     mode;           Relocation mode
 *              a_uint  rtbase;         Base address in section
 *              int     rindex;         Area/Symbol relocation index
 *              a_uint  rval;           Area/Symbol offset value
 *      };
 */
struct  rerr    rerr;   /*      Structure containing the
                         *      linker error information
                         */

/*
 *      The structure lbpath is created for each library
 *      path specification input by the -k option.  The
 *      lbpath structures are linked into a list using
 *      the next link element.
 *
 *      struct lbpath {
 *              struct  lbpath  *next;
 *              char            *path;
 *      };
 */
struct  lbpath  *lbphead;       /*      pointer to the first
                                 *      library path structure
                                 */

/*
 *      The structure lbname is created for all combinations of the
 *      library path specifications (input by the -k option) and the
 *      library file specifications (input by the -l option) that
 *      lead to an existing file.  The element path points to
 *      the path string, element libfil points to the library
 *      file string, and the element libspc is the concatenation
 *      of the valid path and libfil strings.
 *
 *      The lbpath structures are linked into a list
 *      using the next link element.
 *
 *      Each library file contains a list of object files
 *      that are contained in the particular library. e.g.:
 *
 *              \iolib\termio
 *              \inilib\termio
 *
 *      Only one specification per line is allowed.
 *
 *      struct lbname {
 *              struct  lbname  *next;
 *              char            *path;
 *              char            *libfil;
 *              char            *libspc;
 *              char            f_obj;
 *      };
 */
struct  lbname  *lbnhead;       /*      pointer to the first
                                 *      library name structure
                                 */

/*
 *      The function fndsym() searches through all combinations of the
 *      library path specifications (input by the -k option) and the
 *      library file specifications (input by the -l option) that
 *      lead to an existing file for a symbol definition.
 *
 *      The structure lbfile is created for the first library
 *      object file which contains the definition for the
 *      specified undefined symbol.
 *
 *      The element libspc points to the library file path specification
 *      and element relfil points to the object file specification string.
 *      The element filspc is the complete path/file specification for
 *      the library file to be imported into the linker.  The f_obj
 *      flag specifies if the object code from this file is
 *      to be output by the linker.  The file specification
 *      may be formed in one of two ways:
 *
 *      (1)     If the library file contained an absolute
 *              path/file specification then this becomes filspc.
 *              (i.e. C:\...)
 *
 *      (2)     If the library file contains a relative path/file
 *              specification then the concatenation of the path
 *              and this file specification becomes filspc.
 *              (i.e. \...)
 *
 *      The lbpath structures are linked into a list
 *      using the next link element.
 *
 *      struct lbfile {
 *              struct  lbfile  *next;
 *              char            *libspc;
 *              char            *relfil;
 *              char            *filspc;
 *              int             f_obj;
 *      };
 */
struct  lbfile  *lbfhead;       /*      pointer to the first
                                 *      library file structure
                                 */
/* sdld 8051 specific */
char idatamap[256];
/* end sdld 8051 specific */

/*
 *      array of character types, one per
 *      ASCII character
 */
char   ctype[256] = {
/*NUL*/ ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
/*BS*/  ILL,    SPACE,  ILL,    ILL,    SPACE,  ILL,    ILL,    ILL,
/*DLE*/ ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
/*CAN*/ ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
/*SPC*/ SPACE,  ETC,    ETC,    ETC,    LETTER, BINOP,  BINOP,  ETC,
/*(*/   ETC,    ETC,    BINOP,  BINOP,  ETC,    BINOP,  LETTER, BINOP,
/*0*/   DGT2,   DGT2,   DGT8,   DGT8,   DGT8,   DGT8,   DGT8,   DGT8,
/*8*/   DGT10,  DGT10,  ETC,    ETC,    BINOP,  ETC,    BINOP,  ETC,
/*@*/   ETC,    LTR16,  LTR16,  LTR16,  LTR16,  LTR16,  LTR16,  LETTER,
/*H*/   LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
/*P*/   LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
/*X*/   LETTER, LETTER, LETTER, BINOP,  ETC,    ETC,    BINOP,  LETTER,
/*`*/   ETC,    LTR16,  LTR16,  LTR16,  LTR16,  LTR16,  LTR16,  LETTER,
/*h*/   LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
/*p*/   LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
/*x*/   LETTER, LETTER, LETTER, ETC,    BINOP,  ETC,    ETC,    ETC,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
        LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER
};

/*
 *      an array of characters which
 *      perform the case translation function
 */
char    ccase[256] = {
/*NUL*/ '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007',
/*BS*/  '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017',
/*DLE*/ '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027',
/*CAN*/ '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037',
/*SPC*/ '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047',
/*(*/   '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057',
/*0*/   '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067',
/*8*/   '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077',
/*@*/   '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
/*H*/   '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157',
/*P*/   '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167',
/*X*/   '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137',
/*`*/   '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
/*h*/   '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157',
/*p*/   '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167',
/*x*/   '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177',
        '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207',
        '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217',
        '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227',
        '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237',
        '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247',
        '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257',
        '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267',
        '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277',
        '\300', '\301', '\302', '\303', '\304', '\305', '\306', '\307',
        '\310', '\311', '\312', '\313', '\314', '\315', '\316', '\317',
        '\320', '\321', '\322', '\323', '\324', '\325', '\326', '\327',
        '\330', '\331', '\332', '\333', '\334', '\335', '\336', '\337',
        '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347',
        '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357',
        '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367',
        '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377'
};
