C
C Version:	'V04-000'
C
C****************************************************************************
C*									    *
C*  COPYRIGHT (c) 1978, 1980, 1982, 1984 BY				    *
C*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
C*  ALL RIGHTS RESERVED.						    *
C* 									    *
C*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
C*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
C*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
C*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
C*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
C*  TRANSFERRED.							    *
C* 									    *
C*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
C*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
C*  CORPORATION.							    *
C* 									    *
C*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
C*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
C* 									    *
C*									    *
C****************************************************************************

	IMPLICIT INTEGER*4 (A-Z)

C	DEFINE MAXIMUM STRING SIZES (INCLUDING TRAILING ZERO BYTE)
	PARAMETER MAXSYMSIZ=32,MAXTOKSIZ=16,MAXFAC=2000

	LOGICAL*1 LINE(132),NAME(MAXSYMSIZ),SYMBOL_NAME(MAXSYMSIZ)
	LOGICAL*1 PREFIX(MAXTOKSIZ),MACRO_NAME(MAXTOKSIZ)
	LOGICAL*1 MACRO_SUFFIX(MAXTOKSIZ)
	LOGICAL*1 FSPEC(80),OUTLINE(132),LASTPREFIX(MAXTOKSIZ)
	LOGICAL*1 FACILITIES(MAXSYMSIZ,MAXFAC+1)

	COMMON /TEXT/ LINE,PREFIX,MACRO_NAME,NAME,SYMBOL_NAME,FSPEC
	COMMON /TEXT/ MACRO_SUFFIX
	COMMON /VARS/ NUM,COL,INDEX,CODE,ERRCNT,BINVAL
	COMMON /LOGVAR/ OUTFLAG
	COMMON /OUT/ OUTCOL,OUTLINE,CURNUM,CURSEV,LASTFACNUM,LASTPREFIX
	COMMON /FACNAMS/ FACILITIES
