home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / asxsrc / asdata.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  3.0 KB  |  110 lines
  1. /* asdata.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989
  5.  * All Rights Reserved
  6.  *
  7.  * Alan R. Baldwin
  8.  * 721 Berkeley St.
  9.  * Kent, Ohio  44240
  10.  */
  11.  
  12. #include <stdio.h>
  13. #include <setjmp.h>
  14. #include "asm.h"
  15.  
  16. jmp_buf    jump_env;
  17. int    inpfil;
  18. int    incfil;
  19. int    cfile;
  20. int    flevel;
  21. int    tlevel;
  22. int    ifcnd[MAXIF+1];
  23. int    iflvl[MAXIF+1];
  24. int    radix;
  25. int    line;
  26. addr_t    fuzz;
  27. int    page;
  28. int    lop;
  29. int    pass;
  30. int    lflag;
  31. int    oflag;
  32. int    aflag;
  33. int    gflag;
  34. int    sflag;
  35. int    xflag;
  36. addr_t    laddr;
  37. int    lmode;
  38.  
  39. char    *ep;
  40. char    eb[NERR];
  41. char    *ip;
  42. char    ib[NINPUT];
  43. char    *cp;
  44. char    cb[NCODE];
  45. char    tb[NTITL];
  46. char    stb[NSBTL];
  47. char    symtbl[] = { "Symbol Table" };
  48. char    aretbl[] = { "Area Table" };
  49. char    module[NCPS];
  50.  
  51. struct    mne    *mnehash[NHASH];
  52.  
  53. struct    sym    sym[] = {
  54.     NULL,    NULL,    ".",    S_USER,    S_END,    NULL,    0,    0
  55. };
  56. struct    sym    *symp;
  57. struct    sym    *symhash[NHASH];
  58.  
  59. struct    area    area[] = {
  60.     NULL,    "_CODE",    0,    0,    0,    A_CON|A_REL
  61. };
  62. struct    area    *areap;
  63.  
  64. FILE    *lfp;
  65. FILE    *ofp;
  66. FILE    *tfp;
  67. FILE    *sfp[MAXFIL];
  68. FILE    *ifp[MAXINC];
  69.  
  70. char    ctype[128] = {
  71.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  72.     ILL,    SPACE,    ILL,    ILL,    SPACE,    ILL,    ILL,    ILL,
  73.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  74.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  75.     SPACE,    ETC,    ETC,    ETC,    LETTER,    BINOP,    BINOP,    ETC,
  76.     ETC,    ETC,    BINOP,    BINOP,    ETC,    BINOP,    LETTER,    BINOP,
  77.     DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,
  78.     DIGIT,    DIGIT,    ETC,    ETC,    BINOP,    ETC,    BINOP,    ETC,
  79.     ETC,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  80.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  81.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  82.     LETTER,    LETTER,    LETTER,    ETC,    ETC,    ETC,    BINOP,    LETTER,
  83.     ETC,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  84.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  85.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  86.     LETTER,    LETTER,    LETTER,    ETC,    BINOP,    ETC,    ETC,    ETC
  87. };
  88.  
  89. #if    CASE_SENSITIVE
  90. #else
  91. char    ccase[128] = {
  92.     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  93.     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  94.     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  95.     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  96.     '\040',    '\041',    '\042',    '\043',    '\044',    '\045',    '\046',    '\047',
  97.     '\050',    '\051',    '\052',    '\053',    '\054',    '\055',    '\056',    '\057',
  98.     '\060',    '\061',    '\062',    '\063',    '\064',    '\065',    '\066',    '\067',
  99.     '\070',    '\071',    '\072',    '\073',    '\074',    '\075',    '\076',    '\077',
  100.     '\100',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  101.     '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  102.     '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  103.     '\170',    '\171',    '\172',    '\133',    '\134',    '\135',    '\136',    '\137',
  104.     '\140',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  105.     '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  106.     '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  107.     '\170',    '\171',    '\172',    '\173',    '\174',    '\175',    '\176',    '\177'
  108. };    
  109. #endif
  110.