Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 8000 (CPM8K)/P-CP M-Z8K SOURCES/as8000/aglocom.c

@@ -0,0 +1,180 @@
+#include "stdio.h"
+/*
+ * Changed to use the Standard I/O library  9/13/82  FZ
+ */
+#include "acom.h"
+
+#define NOBSS
+
+/*
+ * Version 3.3, 9/19/82.  Added conditional compilation on NOBSS to
+ * avoid explicit initialization (and bulky load modules) where possible.
+ *
+ * Version 3.2, 5/27/82.  Added uext switch.
+ */
+static	char	ident[] = "@(#)a.glocom.c	3.3";
+
+/*
+ * Global variable definitions and initializations common to all of the
+ * cross assemblers.
+ */
+char		argchr = '?';
+struct	aside	*ashead = &aspool[0];
+struct	aside	aspool[] = {
+	{ &aspool[1] },
+	{ &aspool[2] },
+	{ &aspool[3] },
+	{ &aspool[4] },
+	{ &aspool[5] },
+	{ &aspool[6] },
+	{ &aspool[7] },
+	{ &aspool[8] },
+	{ &aspool[9] },
+	{ &aspool[10] },
+	{ &aspool[11] },
+	{ &aspool[12] },
+	{ &aspool[13] },
+	{ &aspool[14] },
+	{ &aspool[15] },
+	{ &aspool[16] },
+	{ &aspool[17] },
+	{ &aspool[18] },
+	{ &aspool[19] },
+	{ &aspool[20] },
+	{ &aspool[21] },
+	{ &aspool[22] },
+	{ &aspool[23] },
+	{ &aspool[24] },
+	{ &aspool[25] },
+	{ &aspool[26] },
+	{ &aspool[27] },
+	{ &aspool[28] },
+	{ &aspool[29] },
+	{ 0 }
+};
+char		condlst = 1;
+uns		curext = 32;
+uns		curlst = 255;
+struct	output	errout = { &errout.ou_buf[0], 0, 1 };
+char		escchr = '\\';
+struct	psframe	*iipsp = &iips[0];
+struct	psframe	*iipspl = &iips[0];
+char		*insp = instk;
+char		lbrchr = '{';
+char		*llert = &llerr[0];
+char		*llobt = &llobj[0];
+struct	output	lstout = { &lstout.ou_buf[0], 0, -1 };
+char		mctchr = '#';
+/*		ntdflt	is initialized in as*gram.c */
+struct	output	objout = { &objout.ou_buf[0], 0, -1 };
+char		*objtop = &objbuf[0];
+char		*phylim;
+char		*phytop;
+/*		ptab	is initialized in as*gram.c */
+char		rbrchr = '}';
+char		reading = 1;
+char		*relbot = &objbuf[OBJSIZ];
+uns		rmarg = 80;
+char		*scanpt = &sline[0];
+/*		scntab	is initialized in as*gram.c */
+uns		secct = 1;
+/*		semtab	is initialized in as*gram.c */
+vmadr		virtop = 2;
+struct	vmbuf	*vmhead = &vmpool[0];
+struct	vmbuf	vmpool[] = {
+	{ &vmpool[1], -1 },
+	{ &vmpool[2], -1 },
+	{ &vmpool[3], -1 },
+	{ &vmpool[4], -1 },
+	{ &vmpool[5], -1 },
+	{ &vmpool[6], -1 },
+	{ &vmpool[7], -1 },
+	{ &vmpool[8], -1 },
+	{ &vmpool[9], -1 },
+	{ &vmpool[10], -1 },
+	{ &vmpool[11], -1 },
+	{ 0, -1}
+};
+
+/*
+ * The following variables all have initial values of zero.  We need
+ * not explicitly initialize them if the loader we use has a BSS segment.
+ */
+#ifdef NOBSS
+
+int		ch = 0;
+uns		condlev = 0;
+uns		curaln = 0;
+uns		curatr = 0;
+struct	octab	*curdef = 0;
+exprval		curloc = 0;
+struct	operand	curop = { 0 };
+uns		cursec = 0;
+int		curxpl = 0;
+char		datstr[26] = 0;
+uns		deflev = 0;
+char		eflg = 0;
+uns		errct = 0;
+struct	psframe	iilexeme = { 0 };
+int		iilset = 0;
+int		iilsym = 0;
+struct	psframe	iips[IISIZ] = 0;
+struct	input	*infp = 0;
+int		instk[INSIZ] = 0;
+vmadr		label = 0;
+char		labstr[SYMSIZ+1] = 0;
+char		lflag = 0;
+uns		linect = 0;
+char		llerr[LLERR+1] = 0;
+char		llfull = 0;
+char		llloc[LLLOC+1] = 0;
+char		llobj[LLOBJ+1] = 0;
+char		llseq[LLSEQ+1] = 0;
+char		llsrc[SLINSIZ+2] = 0;
+uns		mexct = 0;
+exprval		nxtloc = 0;
+uns		nxtsec = 0;
+char		objbuf[OBJSIZ] = 0;
+char		objtyp = 0;
+struct	octab	*ochtab[1<<OHSHLOG] = 0;
+struct	octab	*opcode = 0;
+char		opcstr[SYMSIZ+1] = 0;
+uns		pagect = 0;
+char		parsing = 0;
+char		pass2 = 0;
+char		pflag = 0;
+int		prevsem = 0;
+char		*prname = 0;
+char		rptct = 0;
+uns		rptlev = 0;
+vmadr		rptstr = 0;
+int		savlen = 0;
+char		savstr[STRSIZ+1] = 0;
+struct	section	sectab[SECSIZ] = 0;
+char		sline[SLINSIZ+2] = 0;
+char		*srcfile = 0;
+vmadr		syhtab[1<<SHSHLOG] = 0;
+char		titl1[TITSIZ+1] = 0;
+char		titl2[TITSIZ+1] = 0;
+char		tokstr[STRSIZ+1] = 0;
+int		toktyp = 0;
+exprval		tokval = 0;
+uns		truelev = 0;
+char		uext = 0;
+char		uflg = 0;
+int		vmfd = 0;
+uns		warnct = 0;
+char		xflag = 0;
+
+#ifdef STATS
+uns		ashct = 0;
+uns		chnct = 0;
+char		stats = 0;
+uns		sylct = 0;
+uns		symct = 0;
+uns		vmgct = 0;
+uns		vmrct = 0;
+uns		vmwct = 0;
+#endif STATS
+
+#endif NOBSS