1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1984-07-02 15:35:56 +00:00
|
|
|
/*
|
|
|
|
|
* global data
|
|
|
|
|
*/
|
|
|
|
|
|
1984-11-08 12:08:31 +00:00
|
|
|
#define RCS_EX "$Header$"
|
|
|
|
|
|
1984-07-02 15:35:56 +00:00
|
|
|
extern int wordsize;
|
|
|
|
|
extern int ptrsize;
|
|
|
|
|
extern cons_t maxadr;
|
|
|
|
|
extern cons_t maxint;
|
|
|
|
|
extern cons_t maxdint;
|
|
|
|
|
extern cons_t maxunsig;
|
|
|
|
|
extern cons_t maxdunsig;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* tables loaded from em_libraries
|
|
|
|
|
*/
|
|
|
|
|
extern char em_flag[];
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
The structure containing used for procedure environment stacking
|
|
|
|
|
*/
|
|
|
|
|
extern stat_t pstate ;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* pointers to not yet allocated storage
|
|
|
|
|
*/
|
|
|
|
|
extern glob_t *mglobs;
|
|
|
|
|
extern glob_t *xglobs;
|
|
|
|
|
extern proc_t *mprocs;
|
|
|
|
|
extern proc_t *xprocs;
|
|
|
|
|
extern ptab_t *proctab;
|
|
|
|
|
|
|
|
|
|
extern FILE *ifile;
|
|
|
|
|
extern FILE *tfile;
|
|
|
|
|
extern FILE *dfile;
|
|
|
|
|
extern FILE *rtfile;
|
|
|
|
|
extern FILE *rdfile;
|
|
|
|
|
extern char string[];
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* some other pointers
|
|
|
|
|
*/
|
|
|
|
|
extern glob_t *lastglosym;
|
|
|
|
|
extern glob_t *curglosym;
|
|
|
|
|
extern size_t *oursize;
|
|
|
|
|
extern relc_t *f_data;
|
|
|
|
|
extern relc_t *l_data;
|
|
|
|
|
extern relc_t *f_text;
|
|
|
|
|
extern relc_t *l_text;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* some indices
|
|
|
|
|
*/
|
|
|
|
|
extern int strlngth;
|
|
|
|
|
extern FOFFSET inpoff;
|
|
|
|
|
extern FOFFSET libeof;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* some other counters
|
|
|
|
|
*/
|
|
|
|
|
extern int procnum;
|
|
|
|
|
extern cons_t prog_size;
|
|
|
|
|
extern int max_bytes;
|
|
|
|
|
extern int pass;
|
|
|
|
|
extern int line_num;
|
|
|
|
|
extern int nerrors;
|
|
|
|
|
extern cons_t textbytes;
|
|
|
|
|
extern cons_t databytes;
|
|
|
|
|
extern FOFFSET dataoff;
|
|
|
|
|
extern FOFFSET textoff;
|
|
|
|
|
extern FOFFSET lastoff;
|
|
|
|
|
extern int datamode;
|
|
|
|
|
extern int datablocks;
|
|
|
|
|
extern relc_t *lastheader;
|
|
|
|
|
extern cons_t holbase;
|
|
|
|
|
extern cons_t holsize;
|
|
|
|
|
extern int unresolved;
|
|
|
|
|
extern int sourcelines;
|
|
|
|
|
extern int intflags;
|
|
|
|
|
/*
|
|
|
|
|
* some flags
|
|
|
|
|
*/
|
|
|
|
|
extern int archmode;
|
|
|
|
|
extern int procflag;
|
|
|
|
|
#ifdef DUMP
|
|
|
|
|
extern int c_flag;
|
|
|
|
|
extern char opcnt1[];
|
|
|
|
|
extern char opcnt2[];
|
|
|
|
|
extern char opcnt3[];
|
|
|
|
|
#endif
|
|
|
|
|
extern int d_flag;
|
|
|
|
|
extern int r_flag;
|
|
|
|
|
#ifdef JOHAN
|
|
|
|
|
extern int jflag;
|
|
|
|
|
#endif
|
|
|
|
|
extern int wflag;
|
|
|
|
|
extern int eof_seen;
|
|
|
|
|
extern int mod_sizes;
|
|
|
|
|
/*
|
|
|
|
|
* miscellaneous
|
|
|
|
|
*/
|
|
|
|
|
extern cons_t consiz;
|
|
|
|
|
extern char *progname;
|
|
|
|
|
extern char *curfile;
|
|
|
|
|
extern char *eout;
|
|
|
|
|
extern arch_t archhdr;
|
|
|
|
|
extern size_t sizes[];
|
|
|
|
|
|
|
|
|
|
extern char linesize[];
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* from asstb.c
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
extern char *opindex[] ;
|
|
|
|
|
extern char opchoice[] ;
|
|
|
|
|
extern int maxinsl ;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* types of value returning routines
|
|
|
|
|
*/
|
|
|
|
|
#ifndef CPM
|
|
|
|
|
extern int tmpfil();
|
|
|
|
|
extern FILE *frewind();
|
|
|
|
|
#endif
|
|
|
|
|
extern int xgetc();
|
|
|
|
|
extern unsigned get8();
|
|
|
|
|
extern int get16();
|
|
|
|
|
extern cons_t get32();
|
|
|
|
|
extern cons_t xgeta();
|
|
|
|
|
extern cons_t parval();
|
|
|
|
|
extern cons_t valsize();
|
|
|
|
|
extern cons_t xgetarb();
|
|
|
|
|
extern char *findnop();
|
|
|
|
|
extern char *findfit();
|
|
|
|
|
extern glob_t *glolookup();
|
|
|
|
|
extern glob_t *glo2lookup();
|
|
|
|
|
extern glob_t *xglolookup();
|
|
|
|
|
extern locl_t *loclookup();
|
|
|
|
|
extern proc_t *prolookup();
|
|
|
|
|
extern proc_t *enterproc();
|
|
|
|
|
extern proc_t *searchproc();
|
|
|
|
|
extern relc_t *text_reloc();
|
|
|
|
|
extern relc_t *data_reloc();
|
|
|
|
|
extern area_t getarea();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* all used library routines
|
|
|
|
|
*/
|
|
|
|
|
extern char *malloc();
|
|
|
|
|
extern int open();
|
|
|
|
|
extern int creat();
|
|
|
|
|
extern int getpid();
|
|
|
|
|
extern int unlink();
|
|
|
|
|
extern int close();
|
|
|
|
|
extern int strcmp();
|
|
|
|
|
extern char *strcpy();
|
|
|
|
|
|
|
|
|
|
#define void int
|
