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

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

/* lkdata.c */

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

#include
#include
#include
#include "aslink.h"

int inpfil;
int cfile;
int radix;
int line;
int page;
int lop;
int pass;
int oflag;
int mflag;
int xflag;
int pflag;
int hilo;
char *ip;
char ib[NINPUT];

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

int rtcnt;
addr_t rtval[NTXT];
int rtflg[NTXT];

struct sym *symhash[NHASH];
struct lfile *startp;
struct lfile *linkp;
struct lfile *lfp;
struct lfile *filep;
struct lfile *cfp;
struct head *headp;
struct head *hp;
struct area *areap;
struct area *ap;
struct areax *axp;
struct base *basep;
struct base *bsp;
struct globl *globlp;
struct globl *gsp;
struct sdp sdp;
struct rerr rerr;

FILE *sfp;
FILE *ofp;
FILE *mfp;

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