Category : Assembly Language Source Code
Archive   : CUG292.ZIP
Filename : ASDATA.C

 
Output of file : ASDATA.C contained in archive : CUG292.ZIP

/* asdata.c */

/*
* (C) Copyright 1989,1990
* All Rights Reserved
*
* Alan R. Baldwin
* 721 Berkeley St.
* Kent, Ohio 44240
*/

#include
#include
#include
#include
#include "asm.h"

jmp_buf jump_env;
int inpfil;
int incfil;
int cfile;
int flevel;
int tlevel;
int ifcnd[MAXIF+1];
int iflvl[MAXIF+1];
int radix;
int line;
addr_t fuzz;
int page;
int lop;
int pass;
int lflag;
int oflag;
int aflag;
int gflag;
int sflag;
int xflag;
int fflag;
addr_t laddr;
int lmode;

char *ep;
char eb[NERR];
char *ip;
char ib[NINPUT];
char *cp;
char cb[NCODE];
int *cpt;
int cbt[NCODE];
char tb[NTITL];
char stb[NSBTL];
char symtbl[] = { "Symbol Table" };
char aretbl[] = { "Area Table" };
char module[NCPS];

struct mne *mnehash[NHASH];

struct sym sym[] = {
NULL, NULL, ".", S_USER, S_END, NULL, 0, 0
};
struct sym *symp;
struct sym *symhash[NHASH];

struct area area[] = {
NULL, "_CODE", 0, 0, 0, A_CON|A_REL
};
struct area *areap;

FILE *lfp;
FILE *ofp;
FILE *tfp;
FILE *sfp[MAXFIL];
FILE *ifp[MAXINC];

char ctype[128] = {
/*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, ETC, 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
};

#if CASE_SENSITIVE
#else
char ccase[128] = {
/*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'
};
#endif