1 files changed, 620 insertions, 0 deletions

diff --git a/private/sdktools/masm/asmutl.c b/private/sdktools/masm/asmutl.c
new file mode 100644
index 000000000..9f36aa558
--- /dev/null
+++ b/private/sdktools/masm/asmutl.c
@@ -0,0 +1,620 @@
+/* asmutl.c -- microsoft 80x86 assembler
+**
+** microsoft (r) macro assembler
+** copyright (c) microsoft corp 1986.  all rights reserved
+**
+** randy nevin
+**
+** 10/90 - Quick conversion to 32 bit by Jeff Spencer
+*/
+
+#include <stdio.h>
+#include <string.h>
+#include "asm86.h"
+#include "asmfcn.h"
+#include "asmctype.h"
+#include "asmindex.h"
+#include "asmmsg.h"
+
+extern char *fname;
+extern char hexchar[];
+
+/* put a bunch of registers into the symbol table */
+VOID initregs(
+	struct mreg *makreg
+){
+	register struct mreg *index;
+	register char *p;
+	char * savelbufp;
+
+	savelbufp = lbufp;
+
+	for (index = makreg; *index->nm; index++)
+	{
+		lbufp = index->nm;
+		getatom();
+
+		if (symsearch())
+			/* register already defined */
+			errorn(E_RAD);
+
+		symcreate( M_NOCREF | M_BACKREF | M_DEFINED, REGISTER);
+		symptr->offset = index->val;
+		symptr->symu.regsym.regtype = index->rt;
+		symbolcnt--;
+	}
+	lbufp = savelbufp;
+}
+
+
+
+/***	scanorder - process symbol list in order
+ *
+ *	scanorder (root, fcn);
+ *
+ *	Entry	root = root of symbol list
+ *		fcn = pointer to function to be executed
+ *	Exit	none
+ *	Returns none
+ *	Calls
+ */
+
+#if !defined XENIX286 && !defined FLATMODEL
+# pragma alloc_text (FA_TEXT, scanorder)
+#endif
+
+VOID	PASCAL
+scanorder (
+	SYMBOL FARSYM	  *root,
+	SHORT	  (PASCAL *item) (SYMBOL FARSYM *)
+){
+	register SYMBOL FARSYM *p;
+
+	for (p = root; p; p = p->next) {
+		symptr = p;
+		(*item) (p);
+	}
+}
+
+
+/***	scanSorted - process symbol sorted order
+ *
+ *	Entry	root = root of symbol list
+ *		fcn = pointer to function to be executed
+ *	Exit	none
+ *	Returns none
+ *	Calls
+ */
+
+#if !defined XENIX286 && !defined FLATMODEL
+# pragma alloc_text (FA_TEXT, scanSorted)
+#endif
+
+VOID	 PASCAL
+scanSorted (
+	SYMBOL FARSYM	  *root,
+	SHORT	  (PASCAL *item) (SYMBOL FARSYM *)
+){
+	register SYMBOL FARSYM *p;
+
+	for (p = root; p; p = p->alpha) {
+		symptr = p;
+		if (!(M_PASSED & p->attr))
+			(*item) (p);
+	}
+}
+
+
+
+/***	assignemitsylinknum - assign link number
+ *
+ *	assignlinknum (sym);
+ *
+ *	Entry	*sym = symbol
+ *	Exit
+ *	Returns
+ *	Calls
+ *	Note	Turn off BACKREF and PASSED bits in symbol attributes and
+ *		if symbol is segment, group, public or external give it a
+ *		link dictionary number
+ */
+
+VOID	 PASCAL
+assignlinknum (
+	register SYMBOL FARSYM	*sym
+){
+	switch (sym->symkind) {
+
+	  case MACRO:	     /* make symbol unknown at start of p2 */
+	  case STRUC:
+	  case REC:
+		sym->attr &= ~M_BACKREF;
+		return;
+
+	  case SEGMENT:
+
+	    sym->symu.segmnt.lnameIndex = lnameIndex++;
+	    goto creatLname;
+
+	  case CLASS:
+
+	    sym->symu.ext.extIndex = lnameIndex++;
+	    goto creatLname;
+
+	  /* group indexs holds lname index temporary */
+
+	  case GROUP:
+	    sym->symu.grupe.groupIndex = lnameIndex++;
+
+creatLname:
+	    emitlname (sym);
+	}
+
+	if (sym->symkind == REGISTER)
+		sym->attr &= ~(M_PASSED);
+	else
+		sym->attr &= ~(M_PASSED | M_BACKREF);
+}
+
+
+/***	scansegment - output segment names
+ *
+ *	scansegment (sym);
+ *
+ *	Entry	*sym = segment symbol chain
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+VOID	 PASCAL
+scansegment (
+	register SYMBOL FARSYM	*sym
+){
+
+	if (sym->symu.segmnt.align == (char)-1)
+		/* PARA default */
+		sym->symu.segmnt.align = 3;
+
+	if (sym->symu.segmnt.combine == 7)
+		/* Default no combine */
+		sym->symu.segmnt.combine = 0;
+
+	sym->symu.segmnt.lastseg = NULL;
+
+	/* Output segment def */
+	emitsegment (sym);
+
+	/*     Clear Offset( current segment PC ) for pass 2 */
+	sym->offset = 0;
+	sym->symu.segmnt.seglen = 0;
+}
+
+
+/***	scangroup - output group names
+ *
+ *	scangroup (sym);
+ *
+ *	Entry	*sym = group chain
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+VOID	PASCAL
+scangroup (
+	SYMBOL FARSYM	  *sym
+){
+	if (sym->symkind == GROUP)
+		emitgroup (sym);
+
+}
+
+
+/***	scanextern - output external names
+ *
+ *	scanextern (sym);
+ *
+ *	Entry	*sym = chain of external names
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+VOID	PASCAL
+scanextern (
+	SYMBOL FARSYM	  *sym
+){
+	if (M_XTERN & sym->attr)
+		emitextern (sym);
+}
+
+/***	scanglobal - output global names
+ *
+ *	scanglobal (sym);
+ *
+ *	Entry	*sym = chain of external names
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+VOID	PASCAL
+scanglobal (
+	SYMBOL FARSYM	  *sym
+){
+	if (M_GLOBAL & sym->attr)
+		emitglobal (sym);
+}
+
+
+
+/***	dumpname - output module name
+ *
+ *	dumpname ();
+ *
+ *	Entry
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+VOID	PASCAL
+dumpname ()
+{
+	moduleflag = TRUE;
+
+	/* put file name instead of the usual */
+
+	emodule(createname(fname));
+
+}
+
+
+/***	showresults - display final assembly results
+ *
+ *	showresults (fil, verbose, mbytes);
+ *
+ *	Entry	fil = file to print statistics to
+ *		verbose = TRUE if all statistics to be displayed
+ *			  FALSE if only error messages to be displayed
+ *		mbytes = number of free bytes in symbol space
+ *	Exit	statistics written to file
+ *	Returns none
+ *	Calls	fprintf
+ */
+
+VOID	 PASCAL
+showresults (
+	FILE *fil,
+	char verbose,
+	char *pFreeBytes
+){
+	if (verbose) {
+		fprintf (fil, __NMSG_TEXT(ER_SOU), linessrc, linestot);
+		fprintf (fil, __NMSG_TEXT(ER_SY2), symbolcnt);
+	}
+	fprintf (fil, pFreeBytes);
+	fprintf (fil, "%7hd%s\n%7hd%s\n",
+		      warnnum, __NMSG_TEXT(ER_EM1),
+		      errornum, __NMSG_TEXT(ER_EM2));
+
+#ifdef BUF_STATS
+	if (verbose) {
+
+	    extern long DEBUGtl, DEBUGlb, DEBUGbp, DEBUGbl, DEBUGcs, DEBUGca;
+
+	    fprintf (fil, "\nTotal lines:           %ld\n", DEBUGtl);
+	    fprintf (fil, "Lines buffered:        %ld\n", DEBUGlb);
+	    fprintf (fil, "Stored as blank:       %ld\n", DEBUGbl);
+	    fprintf (fil, "Bad lbufp:             %ld\n", DEBUGbp);
+	    fprintf (fil, "Total Characters:      %ld\n", DEBUGca);
+	    fprintf (fil, "Characters buffered:   %ld\n", DEBUGcs);
+	}
+#endif
+
+#ifdef EXPR_STATS
+	if (verbose) {
+
+	    extern long cExpr, cHardExpr;
+
+	    fprintf(fil, "\nTotal Expressions(%ld), Simple(%ld): %hd%%\n",
+		    cExpr, cExpr - cHardExpr, (SHORT)((cExpr - cHardExpr)*100 / (cExpr+1)));
+	}
+#endif
+}
+
+/***	resetobjidx - reset listindex to correct column
+ *
+ *	resetobjidx ();
+ *
+ *	Entry
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+
+VOID PASCAL CODESIZE
+resetobjidx ()
+{
+
+	listindex = LSTDATA;
+	if (!emittext && duplevel)
+	    listindex += 3 + ((duplevel <= 8)? duplevel: 8);
+
+	if (highWord(pcoffset))       /* check for 32 bit listing */
+	    listindex += 4;
+
+#ifdef BCBOPT
+	if (fNotStored)
+	    storelinepb ();
+#endif
+
+	listline ();
+	linebuffer[0] = 0;
+}
+
+
+
+
+/***	copyascii - copy ASCII into list buffer
+ *
+ *	copyascii ();
+ *
+ *	Entry	objectascii = data to be copied
+ *		listindex = position for copy
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+
+VOID PASCAL CODESIZE
+copyascii ()
+{
+	register char *p2;
+	register char *p1;
+
+	if (listindex >= LSTMAX)
+		resetobjidx ();
+
+	if (!fNeedList)
+		return;
+
+	for (p1 = listbuffer + listindex, p2 = objectascii; *p2; )
+		*p1++ = *p2++;
+	listindex = p1 - listbuffer;
+}
+
+
+
+/***	copystring - copy ASCII into list buffer
+ *
+ *	copystring ();
+ *
+ *	Entry	objectascii = data to be copied
+ *		listindex = position for copy
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+
+VOID PASCAL CODESIZE
+copystring (
+	register char	 *strng
+){
+	register char *p1;
+
+	if (!fNeedList || fSkipList)
+		return;
+
+	goto firstTime;
+	while (*strng) {
+
+	    *p1++ = *strng++;
+
+	    if (*strng && ++listindex > LSTMAX + 2) {
+
+		resetobjidx ();
+firstTime:
+		listindex = 3;
+		p1 = listbuffer + 3;
+	    }
+
+	}
+}
+
+
+/***	copytext - copy two characters to text line
+ *
+ *	copytext (chrs)
+ *
+ *	Entry
+ *	Exit
+ *	Returns
+ *	Calls
+ */
+
+
+VOID	PASCAL CODESIZE
+copytext (
+	char	*chrs
+){
+	if (listindex > LSTMAX+1)
+		resetobjidx ();
+
+
+	listbuffer[listindex++] = *chrs++;
+	listbuffer[listindex++] = *chrs;
+}
+
+
+
+/***	pcdisplay - display program counter
+ *
+ *	pcdisplay();
+ *
+ *	Entry	pcoffset = value to display
+ *	Exit	hex or octal value of pc interted in list buffer
+ *	Returns none
+ *	Calls	copyascii, wordascii
+ */
+
+VOID PASCAL CODESIZE
+pcdisplay ()
+{
+
+	listindex = 1;
+	if (!fNeedList)
+		return;
+
+	offsetAscii (pcoffset);
+
+	copyascii ();
+	listindex = LSTDATA;
+
+	if (objectascii[4])	/* was a 32bit number */
+		listindex += 4;
+}
+
+
+
+/***	opdisplay - display program counter and opcode
+ *
+ *	opdisplay(v);
+ *
+ *	Entry	v = opcode to display
+ *	Exit	none
+ *	Returns none
+ *	Calls
+ */
+
+
+VOID PASCAL CODESIZE
+opdisplay (
+	UCHAR	v
+){
+	if (!fNeedList)
+		return;
+
+	if (listindex == 1)
+		pcdisplay ();
+
+	objectascii[1] = hexchar[v & 0xf];
+	objectascii[0] = hexchar[v >> 4];
+	objectascii[2] = 0;
+
+	copyascii ();
+
+	listindex++;
+}
+
+
+#ifndef M8086OPT
+
+/***	inset - check for value in a set of values
+ *
+ *	flag = inset (val, set);
+ *
+ *	Entry	val = value to check
+ *		set = array of values to check for
+ *		      set[0] = number of entries in set
+ *	Exit	none
+ *	Returns TRUE if val is in set
+ *		FALSE if val is not in set
+ *	Calls
+ */
+
+char CODESIZE
+inset (
+	register char v,
+	char *s
+){
+	register USHORT i;
+	register char *p;
+
+	for (i = *s, p = ++s; i; i--)
+		if (v == *p++)
+			return (TRUE);
+	return (FALSE);
+}
+
+#endif /* M8086OPT */
+
+
+/***	outofmem - issue an out of memory error message
+ *
+ *	outofmem (text);
+ *
+ *	Entry	*text = text to append to message
+ *	Exit	doesn't
+ *	Returns none
+ *	Calls	endblk, parse
+ *	Note	if not end of PROC, parse line as normal.  Otherwise,
+ *		terminate block.
+ */
+
+VOID	PASCAL
+outofmem ()
+{
+	closeOpenFiles();
+	terminate((SHORT)((EX_MEME<<12) | ER_MEM), pFCBCur->fname, errorlineno, NULL );
+}
+
+SHORT PASCAL CODESIZE
+tokenIS(
+	char *pLiteral
+){
+    return(_stricmp(naim.pszName, pLiteral) == 0);
+}
+
+#ifdef M8086
+
+/***	strnfcpy - copy string to near buffer
+ *
+ *	strnfcpy (dest, src);
+ *
+ *	Entry	dest = pointer to near buffer
+ *		src = pointer to far source buffer
+ *	Exit	source copied to destination
+ *	Returns none
+ *	Calls	none
+ */
+
+VOID	PASCAL
+strnfcpy (
+	register char	  *dest,
+	register char FAR *src
+){
+	while(*src)
+	    *dest++ = *src++;
+
+	*dest = NULL;
+
+}
+
+
+/***	strflen - compute length of far buffer
+ *
+ *	strnflen (s1);
+ *
+ *	Entry	s1 = pointer to far buffer
+ *	Exit	none
+ *	Returns  number of characters in buffer
+ *	Calls	none
+ */
+
+USHORT PASCAL
+strflen (
+	register char FAR *s1
+){
+	register USHORT i = 0;
+
+	while (*s1++)
+		i++;
+	return(i);
+}
+
+#endif /* M8086 */