/* aslex.c */

/*
 *  Copyright (C) 1989-2021  Alan R. Baldwin
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 *
 * Alan R. Baldwin
 * 721 Berkeley St.
 * Kent, Ohio  44240
 *
 */

#include "asxxxx.h"

/*)Module	aslex.c
 *
 *	The module aslex.c includes the general lexical
 *	analysis routines for the assembler.
 *
 *	aslex.c contains the following functions:
 *		VOID	chopcrlf()
 *		int	comma()
 *		char	endline()
 *		int	get()
 *		int	getdlm()
 *		VOID	getid()
 *		int	getmap()
 *		int	getnb()
 *		int	getlnm()
 *		VOID	getst()
 *		int	more()
 *		int	nxtline()
 *		int	replace()
 *		VOID	scanline()
 *		VOID	unget()
 *
 *	aslex.c contains no local/static variables
 */

/*)Function	VOID	getid(id,c)
 *
 *		char *	id		a pointer to a string of
 *					maximum length NCPS-1
 *		int	c		mode flag
 *					>=0	this is first character to
 *						copy to the string buffer
 *					<0	skip white space, first
 *						character must be a LETTER
 *
 *	The function getid() scans the current assembler-source text line
 *	from the current position copying the next LETTER | DIGIT string
 *	into the external string buffer id[].  The string ends when a non
 *	LETTER or DIGIT character is found. The maximum number of characters
 *	copied is NCPS-1.  If the input string is larger than NCPS-1
 *	characters then the string is truncated.  The string is always
 *	NULL terminated.  If the mode argument (c) is >=0 then (c) is
 *	the first character copied to the string buffer, if (c) is <0
 *	then intervening white space (SPACES and TABS) are skipped and
 *	the first character found must be a LETTER else a 'q' error
 *	terminates the parse of this assembler-source text line.
 *
 *	local variables:
 *		char *	p		pointer to external string buffer
 *		int	c		current character value
 *
 *	global variables:
 *		char	ctype[]		a character array which defines the
 *					type of character being processed.
 *					This index is the character
 *					being processed.
 *
 *	called functions:
 *		int	get()		aslex.c
 *		int	getnb()		aslex.c
 *		VOID	getsub()	aslex.c
 *		VOID	unget()		aslex.c
 *
 *	side effects:
 *		Use of getnb(), get(), and unget() updates the
 *		global pointer ip, the position in the current
 *		assembler-source text line.
 */

VOID
getid(id, c)
int c;
char *id;
{
	char *p;

	if (c < 0) {
		c = getnb();
		if ((ctype[c] & LETTER) == 0)
			qerr();
	}
	p = id;
	do {
		if (p < &id[NCPS-1])
			*p++ = c;
	} while (ctype[c=get()] & (LETTER|DIGIT));
	unget(c);
	*p++ = 0;
}

/*)Function	VOID	getst(id,c)
 *
 *		char *	id		a pointer to a string of
 *					maximum length NCPS-1
 *		int	c		mode flag
 *					>=0	this is first character to
 *						copy to the string buffer
 *					<0	skip white space, first
 *						character must be a LETTER
 *
 *	The function getst() scans the current assembler-source text line
 *	from the current position copying the next character string into
 *	the external string buffer (id).  The string ends when a SPACE or
 *	ILL character is found. The maximum number of characters copied is
 *	NCPS-1.  If the input string is larger than NCPS-1 characters then
 *	the string is truncated.  The string is always NULL terminated.
 *	If the mode argument (c) is >=0 then (c) is the first character
 *	copied to the string buffer, if (c) is <0 then intervening white
 *	space (SPACES and TABS) are skipped and the first character found
 *	must be a LETTER else a 'q' error terminates the parse of this
 *	assembler-source text line.
 *
 *	local variables:
 *		char *	p		pointer to external string buffer
 *		int	c		current character value
 *
 *	global variables:
 *		char	ctype[]		a character array which defines the
 *					type of character being processed.
 *					This index is the character
 *					being processed.
 *
 *	called functions:
 *		int	get()		aslex.c
 *		int	getnb()		aslex.c
 *		VOID	unget()		aslex.c
 *
 *	side effects:
 *		use of getnb(), get(), and unget() updates the
 *		global pointer ip, the position in the current
 *		assembler-source text line.
 */

VOID
getst(id, c)
int c;
char *id;
{
	char *p;

	if (c < 0) {
		c = getnb();
		if ((ctype[c] & LETTER) == 0)
			qerr();
	}
	p = id;
	do {
		if (p < &id[NCPS-1])
			*p++ = c;
	} while (ctype[c=get()] & ~(SPACE|ILL) & 0xFF);
	unget(c);
	*p++ = 0;
}

/*)Function	int	getdstr(str, slen)
 *
 *		char *	str		character array to return string in
 *		int	slen		charater array length
 *
 *	The function getdstr() returns the character string
 *	within delimiters.  If no delimiting character
 *	is found a 'q' error is generated.
 *
 *	local variables:
 *		int	c		current character from
 *					assembler-source text line
 *		int	d		the delimiting character
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	get()		aslex.c
 *		int	getdlm()	aslex.c
 *
 *	side effects:
 *		Returns the character string delimited by the
 *		character returned from getdlm().  SPACEs and
 *		TABs before the delimited string are skipped.
 *		A 'q' error is generated if no delimited string
 *		is found or the input line terminates unexpectedly.
 */

VOID
getdstr(str, slen)
char * str;
int slen;
{
	char *p;
	int c, d;

	d = getdlm();

	p = str;
	while ((c = get()) != d) {
		if (c == '\0') {
			qerr();
		}
		if (p < &str[slen-1]) {
			*p++ = c;
		} else {
			break;
		}
	}
	*p = 0;
}

/*)Function	int	getdlm()
 *
 *	The function getdlm() returns the delimiter character
 *	or if the end of the line is encountered a 'q' error
 *	is generated.
 *
 *	local variables:
 *		int	c		current character from
 *					assembler-source text line
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	get()		aslex.c
 *		int	getnb()		aslex.c
 *		int	more()		aslex.c
 *
 *	side effects:
 *		scans ip to the first non 'SPACE' or 'TAB' character
 *		and returns that character or the first character
 *		following a ^ character as the delimiting character.
 *		The end of the text line or the begining of a
 *		comment returns causes a 'q' error.
 */

int
getdlm()
{
	int c;

	if (more()) {
		if ((c = getnb()) == '^') {
			c = get();
		}
	} else {
		c = '\0';
	}
	if (c == '\0') {
		qerr();
	}
	return (c);
}

/*)Function	int	getnb()
 *
 *	The function getnb() scans the current assembler-source
 *	text line returning the first character not a SPACE or TAB.
 *
 *	local variables:
 *		int	c		current character from
 *					assembler-source text line
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	get()		aslex.c
 *
 *	side effects:
 *		use of get() updates the global pointer ip, the position
 *		in the current assembler-source text line
 */

int
getnb()
{
	int c;

	while ((c=get()) == ' ' || c == '\t')
		;
	return (c);
}

/*)Function	int	get()
 *
 *	The function get() returns the next character in the
 *	assembler-source text line, at the end of the line a
 *	NULL character is returned.
 *
 *	local variables:
 *		int	c		current character from
 *					assembler-source text line
 *
 *	global variables:
 *		char *	ip		pointer into the current
 *					assembler-source text line
 *
 *	called functions:
 *		none
 *
 *	side effects:
 *		updates ip to the next character position in the
 *		assembler-source text line.  If ip is at the end of the
 *		line, ip is not updated.
 */

int
get()
{
	int c;

	if ((c = *ip) != 0)
		++ip;
	return (c & 0x007F);
}

/*)Function	VOID	unget(c)
 *
 *		int	c		value of last character read from
 *					assembler-source text line
 *
 *	If (c) is not a NULL character then the global pointer ip
 *	is updated to point to the preceeding character in the
 *	assembler-source text line.
 *
 *	NOTE:	This function does not push the character (c)
 *		back into the assembler-source text line, only
 *		the pointer ip is changed.
 *
 *	local variables:
 *		int	c		last character read from
 *					assembler-source text line
 *
 *	global variables:
 *		char *	ip		position into the current
 *					assembler-source text line
 *
 *	called functions:
 *		none
 *
 *	side effects:
 *		ip decremented by 1 character position
 */

VOID
unget(c)
int c;
{
	if (c)
		if (ip != ib)
			--ip;
}

/*)Function	int	getmap(d)
 *
 *		int	d		value to compare with the
 *					assembler-source text line character
 *
 *	The function getmap() converts the 'C' style characters \b, \f,
 *	\n, \r, and \t to their equivalent ascii values and also
 *	converts 'C' style octal constants '\123' to their equivalent
 *	numeric values.  If the first character is equivalent to (d) then
 *	a (-1) is returned, if the end of the line is detected then
 *	a 'q' error terminates the parse for this line, or if the first
 *	character is not a \ then the character value is returned.
 *
 *	local variables:
 *		int	c		value of character from the
 *					assembler-source text line
 *		int	n		looping counter
 *		int	v		current value of numeric conversion
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	get()		aslex.c
 *
 *	side effects:
 *		use of get() updates the global pointer ip the position
 *		in the current assembler-source text line
 */

int
getmap(d)
int d;
{
	int c, n, v;

	if ((c=get()) == '\0')
		qerr();
	if (c == d)
		return (-1);
	if (c == '\\') {
		c = get();
		switch (c) {

		default:
			unget(c);

		case '\\':
			c = '\\';
			break;

		case 'b':
			c = '\b';
			break;

		case 'f':
			c = '\f';
			break;

		case 'n':
			c = '\n';
			break;

		case 'r':
			c = '\r';
			break;

		case 't':
			c = '\t';
			break;

		case '0':
		case '1':
		case '2':
		case '3':
		case '4':
		case '5':
		case '6':
		case '7':
			n = 0;
			v = 0;
			while (++n<=3 && c>='0' && c<='7') {
				v = (v<<3) + c - '0';
				c = get();
			}
			unget(c);
			c = v;
			break;
		}
	}
	return (c);
}

/*)Function	int	comma(flag)
 *
 *		int	flag		when flag is non zero a 'q' error is
 *					generated if a COMMA is not found.
 *
 *	The function comma() skips SPACEs and TABs and returns
 *	a '1' if the next character is a COMMA else a '0' is
 *	returned.  If a COMMA is not found and flag is non zero
 *	then a 'q' error is reported.
 *
 *	local variables:
 *		int	c		last character read from
 *					assembler-source text line
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	getnb()		aslex.c
 *		VOID	unget()		aslex.c
 *		VOID	xerr()		assubr.c
 *
 *	side effects:
 *		assembler-source text line pointer updated
 */

int
comma(flag)
int flag;
{
	int c;

	if ((c = getnb()) != ',') {
		if (flag) {
			xerr('q', "Expected a ','.");
		} else {
			unget(c);
		}
		return(0);
	}
	return(1);
}

/*)Function	int	nxtline()
 *
 *	The function nxtline() reads a line of assembler-source text
 *	from an assembly source text file, include file, or macro.
 *	Lines of text are processed from assembler-source files until
 *	all files have been read.  If an include file is opened then
 *	lines of text are read from the include file (or nested
 *	include file) until the end of the include file is found.
 *	The input text line is transferred into the global string
 *	ib[], converted to a NULL terminated string, and is used for
 *	for internal processing by the assembler.  The string
 *	is then copied into the global string ic[] which is used
 *	during the listing process.  The function scanline()
 *	is called to process any .define substitutions
 *	in the assembler-source text line.  The function
 *	nxtline() returns a (1) after succesfully reading
 *	a line,	or a (0) if all files have been read.
 *
 *	local variables:
 *		none
 *
 *	global variables:
 *		char	afn[]		afile() constructed filespec
 *		int	afp		afile constructed path length
 *		asmf *	asmc 		pointer to current assembler file structure
 *		asmf *	asmi 		pointer to a queued include file structure
 *		asmf *	asmp		pointer to first assembler file structure
 *		asmf *	asmq 		pointer to a queued macro structure
 *		char	ib[]		string buffer containing
 *					assembler-source text line for processing
 *		char	ic[]		string buffer containing
 *					assembler-source text line for listing
 *		int	asmline		source file line number
 *		int	incline		include file line number
 *		int	lnlist		LIST-NLIST state
 *		int	mcrline		macro line number
 *		int	srcline		current source line number
 *
 *	called functions:
 *		VOID	chopcrlf()	aslex.c
 *		int	fclose()	c_library
 *		char *	fgets()		c_library
 *		char *	fgetm()		asmcro.c
 *		VOID	scanline()	aslex.c
 *		char *	strcpy()	c_library
 *
 *	side effects:
 *		include file will be closed at detection of end of file.
 *		the next sequential source file may be selected.
 *		The current file specification afn[] and the path
 *		length afp may be changed.
 *		The respective line counter will be updated.
 *
 * --------------------------------------------------------------
 *
 * How the assembler sequences the -i command line strings,
 * command line assembler source files, include files, and
 * macros is shown in a simplified manner in the following.
 *
 *	main[asmain] sequences the assembly by creating a
 *	linked list of asmf structures, one for each command
 *	line string and one for each file.
 *
 *	asmf structures:
 *
 *	 ------       ------
 *	| asmo | --> | asmp |
 *	 ------       ------
 *
 *	At the beginning of each assembler pass set asmc = asmo
 *	which will process any -i command line string T_INSERT
 *	asmf structures and then process the files in sequence.
 *
 *	             -------------       -------------               -------------
 *                  | File 1      |     | File 2      |             | File N      |
 *	 ------     |       ------|     |       ------|             |       ------|      
 *	| asmp | -->|      | next | --> |      | next | --> ... --> |      | NULL |
 *	 ------      -------------       -------------               -------------
 *
 *	If the source file invokes the .include directive to process a
 *	file then a new asmf structure is prepended to the asmc structure
 *	currently being processed.  At the end of the include file the
 *	processing resumes at the point the asmc structure was interrupted.
 *	This is shown in the following:
 *
 *	             ------------- 
 *                  | Incl File 1 |
 *	            |       ------|
 *	            |      | next |
 *	             ------------- 
 *	                       |
 *	asmf structures:       |
 *	                       V
 *	             -------------       -------------               -------------
 *                  | File 1      |     | File 2      |             | File N      |
 *	 ------     |       ------|     |       ------|             |       ------|      
 *	| asmp | -->|      | next | --> |      | next | --> ... --> |      | NULL |
 *	 ------      -------------       -------------               -------------
 *
 *	At the .include point link the asmi structure to asmc
 *	and then set asmc = asmi (the include file asmf structure).
 *
 *	If a source file invokes a macro then a new asmf structure is
 *	prepended to the asmc structure currently being processed.  At the
 *	end of the macro the processing resumes at the point the asmc
 *	structure was interrupted.
 *	This is shown in the following:
 *
 *	             -------------       -------------
 *                  | Incl File 1 |     |    Macro    |
 *	            |       ------|     |       ------|
 *	            |      | next |     |      | next |
 *	             -------------       -------------
 *	                       |                   |
 *	asmf structures:       |                   |
 *	                       V                   V
 *	             -------------       -------------               -------------
 *                  | File 1      |     | File 2      |             | File N      |
 *	 ------     |       ------|     |       ------|             |       ------|      
 *	| asmp | -->|      | next | --> |      | next | --> ... --> |      | NULL |
 *	 ------      -------------       -------------               -------------
 *
 *	At the macro point link the asmq structure to asmc
 *	and then set asmc = asmq (the macro asmf structure).
 *
 *	Note that both include files and macros can be nested.
 *	Macros may be invoked within include files and include
 *	files can be invoked within macros.
 *
 *	Include files are opened, read, and closed on each pass
 *	of the assembler.
 *
 *	Macros are recreated during each pass of the assembler.
 *
 */

int
nxtline()
{
	struct asmf *asmt;

loop:	if (asmc == NULL) return(0);

	/*
	 * Insert Include File
	 */
	if (asmi != NULL) {
		asmc = asmi;
		asmi = NULL;
		incline = 0;
	}
	/*
	 * Insert Queued Macro
	 */
	if (asmq != NULL) {
		asmc = asmq;
		asmq = NULL;
		mcrline = 0;
	}

	switch(asmc->objtyp) {
	case T_INSERT:
		strcpy(ib,asmc->afn);
		if (asmc->lnlist != 0) {
			srcline++;
		}
		asmc = asmc->next;
		break;

	case T_ASM:
		if (fgets(ib, NINPUT, asmc->fp) == NULL) {
			if ((asmc->flevel != flevel) || (asmc->tlevel != tlevel)) {
				err('i');
				fprintf(stderr, "?ASxxxx-Error-<i> at end of assembler file\n");
				fprintf(stderr, "              %s\n", geterr('i'));
			}
			flevel = asmc->flevel;
			tlevel = asmc->tlevel;
			lnlist = asmc->lnlist;
			asmc = asmc->next;
			if (asmc != NULL) {
				asmline = 0;
			}
			if ((lnlist & LIST_PAG) || (uflag == 1)) {
				lop = NLPP;
			}
			goto loop;
		} else {
			if (asmline++ == 0) {
				strcpy(afn, asmc->afn);
				afp = asmc->afp;
			}
			srcline = asmline;
		}
		break;

	case T_INCL:
		if (fgets(ib, NINPUT, asmc->fp) == NULL) {
			fclose(asmc->fp);
			incfil -= 1;
			if ((asmc->flevel != flevel) || (asmc->tlevel != tlevel)) {
				err('i');
				fprintf(stderr, "?ASxxxx-Error-<i> at end of include file\n");
				fprintf(stderr, "              %s\n", geterr('i'));
			}
			srcline = asmc->line;
			flevel = asmc->flevel;
			tlevel = asmc->tlevel;
			lnlist = asmc->lnlist;
			asmc = asmc->next;
			switch (asmc->objtyp) {
			default:
			case T_ASM:	asmline = srcline;	break;
			case T_INCL:	incline = srcline;	break;
			case T_MACRO:	mcrline = srcline;	break;
			}
			/*
		 	 * Scan for parent file
		 	 */
			asmt = asmc;
			while (asmt != NULL) {
				if (asmt->objtyp != T_MACRO) {
					strcpy(afn, asmt->afn);
					afp = asmt->afp;
					break;
				}
				asmt = asmt->next;
			}
			if ((lnlist & LIST_PAG) || (uflag == 1)) {
				lop = NLPP;
			}
			goto loop;
		} else {
			if (incline++ == 0) {
				strcpy(afn, asmc->afn);
				afp = asmc->afp;
			}
			srcline = incline;
		}
		break;

	case T_MACRO:
		if (fgetm(ib, NINPUT, asmc->fp) == NULL) {
			mcrfil -= 1;
			srcline = asmc->line;
			flevel = asmc->flevel;
			tlevel = asmc->tlevel;
			lnlist = asmc->lnlist;
			asmc = asmc->next;
			switch (asmc->objtyp) {
			default:
			case T_ASM:	asmline = srcline;	break;
			case T_INCL:	incline = srcline;	break;
			case T_MACRO:	mcrline = srcline;	break;
			}
			goto loop;
		} else {
			if (mcrline++ == 0) {
				;
			}
			srcline = mcrline;
		}
		break;

	default:
		fprintf(stderr, "?ASxxxx-Internal-nxtline(objtyp)-Error.\n\n");
		asexit(ER_FATAL);
		break;
	}
	chopcrlf(ib);
	strcpy(ic, ib);
	scanline();
	return(1);
}


/*)Function	VOID	scanline()
 *
 *	The function scanline() scans the assembler-source text line
 *	for a valid substitutable string.  The only valid targets
 *	for substitution strings are strings beginning with a
 *	LETTER and containing any combination of DIGITS and LETTERS.
 *	If a valid target is found then the function replace() is
 *	called to search the ".define" substitution list.  If there
 *	is some string substitution error (or error caused by a
 *	runaway recursion in replace) then scanline() returns a
 *	value of 1 else 0 is returned.
 *
 *	If the assembler mnemonic .define, .undefine, .ifdef, or .ifndef
 *	is found then the function exits.
 *
 *	local variables:
 *		int	c		temporary character value
 *		char	id[]		a string of maximum length NINPUT
 *
 *	global variables:
 *		char	ctype[]		a character array which defines the
 *					type of character being processed.
 *					The index is the character
 *					being processed.
 *		int	flevel		IF-ELSE-ENDIF level
 *		char	ib[]		assembler-source text line
 *		char *	ip		pointer into the assembler-source text line
 *
 *	called functions:
 *		int	endline()	aslex.c
 *		int	getid()		aslex.c
 *		int	unget()		aslex.c
 *		int	replace()	aslex.c
 *		int	symeq()		assym.c
 *
 *	side effects:
 *		The assembler-source text line may be updated
 *		and a substitution made for the string id[].
 */

VOID
scanline()
{
	int c;
	char id[NINPUT];

	if (flevel)
		return;

	ip = ib;
	while ((c = endline()) != 0) {
		if (ctype[c] & DIGIT) {
			while (ctype[c] & (LETTER|DIGIT)) c = get();
			unget(c);
		} else
		if (ctype[c] & LETTER) {
			getid(id, c);
			if (symeq(id, ".define", 1)) {
				break;
			} else
			if (symeq(id, ".undefine", 1)) {
				break;
			} else
			if (symeq(id, ".ifdef", 1)) {
				break;
			} else
			if (symeq(id, ".ifndef", 1)) {
				break;
			} else
			if (symeq(id, ".iifdef", 1)) {
				break;
			} else
			if (symeq(id, ".iifndef", 1)) {
				break;
			} else
			if (symeq(id, ".if", 1) || symeq(id, ".iif", 1)) {
				comma(0);
				getid(id, getnb());
				if (symeq(id, "def", 1)) {
					break;
				} else
				if (symeq(id, "ndef", 1)) {
					break;
				}
			}
			if (replace(id)) {
				err('s');
				break;
			}
		}
	}
}


/*)Function	int	replace(id)
 *
 *		char *	id		a pointer to a string of
 *					maximum length NINPUT
 *
 *	The function replace() scans the .define substitution list
 *	for a match to the string id[].  After the substitution is made
 *	to the assembler-source text line the current character position,
 *	ip, is set to the beginning of the substitution string.  The
 *	function replace() returns a non-zero value if a substitutuion
 *	error is made else zero is returned.
 *
 *	If the -bb option was specified and a listing file is open then
 *	the current assembler-source text line is listed before the
 *	substitution is made.  
 *
 *	local variables:
 *		char *	p		pointer to beginning of id
 *		char	str[]		temporary string
 *		char *	frmt		temporary listing format specifier
 *		struct def *dp		pointer to .define definitions
 *
 *	global variables:
 *		int	a_bytes		T line addressing size
 *		int	bflag		list source before substitution flag
 *		int	cfile		current input file number
 *		char	ctype[]		a character array which defines the
 *					type of character being processed.
 *					The index is the character
 *					being processed.
 *		char	ib[]		assembler-source text line
 *		char *	ip		pointer into the assembler-source text line
 *		FILE *	lfp		list output file handle
 *		int	line		current assembler source line number
 *		int	lmode		listing mode
 *		int	lnlist		LIST-NLIST state
 *		int	pass		assembler pass number
 *		int	pflag		paging flag
 *		int	srcline		source file line number
 *		int	uflag		-u, disable .list/.nlist processing
 *		int	zflag		case sensitivity flag
 *
 *	called functions:
 *		int	fprintf()	c_library
 *		int	getlnm()	assubr.c
 *		VOID	slew()		aslist.c
 *		char *	strcat()	c_library
 *		char *	strcpy()	c_library
 *		int	strlen()	c_library
 *		int	symeq()		assym.c
 *
 *	side effects:
 *		The assembler-source text line may be updated
 *		and a substitution made for the string id[].
 */

int
replace(id)
char *id;
{
	char *p;
	char str[NINPUT*2];
	char *frmt;
	struct def *dp;

	/*
	 * Check for .define substitution
	 */
	dp = defp;
	while (dp) {
		if (dp->d_dflag && symeq(id, dp->d_id, zflag)) {
			if ((pass == 2) && (bflag == 2)) {
				if (lfp == NULL || lmode == NLIST) {
					;
				} else
				if ((lnlist & LIST_SRC) || (uflag == 1)) {
					/*
					 * Get Correct Line Number
					 */
					line = getlnm();

					/*
					 * Move to next line.
					 */
					slew(lfp, !pflag && ((lnlist & LIST_PAG) || (uflag == 1)));

					/*
					 * Source listing only option.
					 */
					switch(a_bytes) {
					default:
					case 2: frmt = "  %24s%5u %s\n"; break;
					case 3:
					case 4: frmt = "  %32s%5u %s\n"; break;
					}
					fprintf(lfp, frmt, "", line, ib);
				}
			}
			/*
			 * Verify string space is available
			 */
			if ((strlen(ib) - strlen(id) + strlen(dp->d_define)) > (NINPUT*2 - 1)) {
				return(1);
			}
			/*
			 * Beginning of Substitutable string
			 */
			p  = ip - strlen(id);
			/*
			 * Make a copy of the string from the end of the
			 * substitutable string to the end of the line.
			 */
			strcpy(str, ip);
			/*
			 * Replace the substitutable string
			 * with the new string and append
			 * the tail of the original string.
			 */
			*p = 0;
			strcat(ib, dp->d_define);
			strcat(ib, str);
			ip = p;
			return(0);
		}
		dp = dp->d_dp;
	}
	return(0);
}


/*)Function:	int	getlnm()
 *
 *	The function getlnm() returns the line number of the
 *	originating assembler or include file.
 *
 *	local variables:
 *		struct asmf	*asmt	temporary pointer to the processing structure
 *
 *	global variables:
 *		struct asmf	*asmc	pointer to the current input processing structure
 *		int		asmline	line number in current assembler file
 *		int		line	line number
 *
 *	functions called:
 *		none
 *
 *	side effects:
 *		Sets line to the source file line number.
 */

int
getlnm()
{
	struct asmf *asmt;

	line = srcline;
	if (asmc->objtyp == T_MACRO) {
		asmt = asmc->next;
		while (asmt != NULL) {
			switch (asmt->objtyp) {
			case T_ASM:	return(line = asmline);
			case T_INCL:	return(line = asmt->line);
			default:	asmt = asmt->next;		break;
			}
		}
	}
	return(line);
}


/*)Function	int	more()
 *
 *	The function more() scans the assembler-source text line
 *	skipping white space (SPACES and TABS) and returns a (0)
 *	if the end of the line or a comment delimeter (;) is found,
 *	or a (1) if their are additional characters in the line.
 *
 *	local variables:
 *		int	c		next character from the
 *					assembler-source text line
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	getnb()		aslex.c
 *		VOID	unget()		aslex.c
 *
 *	side effects:
 *		use of getnb() and unget() updates the global pointer ip
 *		the position in the current assembler-source text line
 */

int
more()
{
	int c;

	c = getnb();
	unget(c);
	return( (c == '\0' || c == ';') ? 0 : 1 );
}

/*)Function	char	endline()
 *
 *	The function endline() scans the assembler-source text line
 *	skipping white space (SPACES and TABS) and returns the next
 *	character or a (0) if the end of the line is found or a
 *	comment delimiter (;) is found.
 *
 *	local variables:
 *		int	c		next character from the
 *					assembler-source text line
 *
 *	global variables:
 *		none
 *
 *	called functions:
 *		int	getnb()		aslex.c
 *
 *	side effects:
 *		use of getnb() updates the global pointer ip the
 *		position in the current assembler-source text line
 */

char
endline()
{
	int c;

	c = getnb();
	return( (c == '\0' || c == ';') ? 0 : c );
}

/*)Function	VOID	chopcrlf(str)
 *
 *		char	*str		string to chop
 *
 *	The function chopcrlf() removes
 *	LF, CR, LF/CR, or CR/LF from str.
 *
 *	local variables:
 *		char *	p		temporary string pointer
 *		char	c		temporary character
 *
 *	global variables:
 *		none
 *
 *	functions called:
 *		none
 *
 *	side effects:
 *		All CR and LF characters removed.
 */

VOID
chopcrlf(str)
char *str;
{
	char *p;
	char c;

	p = str;
	do {
		c = *p++ = *str++;
		if ((c == '\r') || (c == '\n')) {
			p--;
		}
	} while (c != 0);
}


