	.TITLE	IMPURE AREA
	.PSECT	IMPURE,D,RW,GBL,CON
	.MACRO	ENTER NAME
	.GLOBL	NAME
NAME:	.WORD	0
	.ENDM
	.IF	DF,PREPRC
	ENTER	PRESW
	ENTER	FLXNO
	.ENDC
	ENTER	SUEXP
	ENTER	HIGPT
	ENTER	LOWPT
	ENTER	NOSRC			; FLAG-DO NOT LIST SRC IF .NE.0
	ENTER	HIGHAV			; HIGHEST LOC IN MEMORY AVAILABLE FOR BUFFER
	ENTER	LOWAV			; LOWEST LOC IN MEM AVAIL FOR HANDLERS AND BUFFER
	ENTER	LINCTR			; UPCOUNTER FOR LINES PER PAGE OF LISTING
	ENTER	PAGE			; PAGE NUMBER
	ENTER	VRSTPT
	ENTER	LINENO			; NUMBER OF LINE BEING PROCESSED
	ENTER	HIGPTR			; POINTER FOR TOP OF TABLE DOWN,ALOCATES HOW USED
					; ELEMENT SPACE
	ENTER	LOWPTR			; BOTTOM OF TABLE UP,ALLOCATES VARNAM/LABLE DEF
					; ELEMENT SPACE
	ENTER	LINTYP			; NO CORRESPONDING TO LINE TYPE-SEE SCANLN
	ENTER	EOF			; END OF FILE INDICATOR
	ENTER	LEOF
	ENTER	TMP			; TMP STORAGE
	.IF	NDF,RSX
	.GLOBL	IOARA
IOARA:	.BLKW	6
	.IFTF
	ENTER	SNGCOM			; SINGEN COMMON VAR FLAG
	ENTER	SUPER			; SUPER FLAG
	ENTER	SUPPTR			; SUPER BLOCK POINTER
	ENTER	SUPBLK			; SUPER BLOCK COUNTER
	ENTER	FLOPTR
	ENTER	FLOBLK
	ENTER	DOFLOW
	ENTER	PNMFLG			; UPDATE PROGRAM NAMER FLAG
	.GLOBL	SNAME
SNAME:	.ASCII	/        /
	.BYTE	200
	.EVEN
	.GLOBL	PNAME
PNAME:	.WORD	0,0
	.IFT
	ENTER	INBLK			; INPUT BLOCK NO
	ENTER	OUTBLK			; OUTPUT FILE BLOCK NO
	.IFTF
	ENTER	INBFPT			; POINTER USED TO GET LINES OUT OF INPUT BUFFER
	ENTER	OTBFPT			; POINTYER USED TO OUTPUT LINES INTO OUTPUT BUFFER
	.IFF
	ENTER	HIINBP
	.IFTF
	ENTER	PRSTAT			; FLAG TO PRINT STATUS
	ENTER	OPTN			; FLAG TO PRINT OPTIONS IN EFFECT
	ENTER	DEBUG			; FLAG TO INCLUDE DEBUG LINES IN COURCER CODE
	ENTER	SKIP
	ENTER	LOGOP
	ENTER	FINLIN
	ENTER	CHRWD
	.GLOBL	LIN
LIN:	.BLKB	100.
	ENTER	NAMCTR
	ENTER	ENTCTR
	ENTER	LINPT
	.GLOBL	DATE,TIME
DATE:	.BYTE	0,0,0,0,0,0,0,0,0,40
TIME:	.BYTE	0,0,0,0,0,0,0,0,40,0
	ENTER	SRCSYM
	ENTER	PLEVEL
	ENTER	EQFLG
	.GLOBL	VAR,LABL
VAR:
LABL:	.WORD	0,0,0
	.BYTE	40,40,200,0
	ENTER	VARTYP
	ENTER	TYPECH
	ENTER	ARGFLG
	.GLOBL	USED
USED:	.WORD	0
	.BYTE	40,200
	ENTER	ICHNO
	ENTER	SAVENO
	ENTER	SAVEPT
	.IFT
	.IF	DF,F4P
	.REPT	F4P
	.WORD	0,0,0
	.ENDM
SAVE::	.WORD	0
	.ENDC
	.IFF
	.IF	DF,F4P
SAVE::
	.REPT	F4P
	.WORD	0	;OLD LEOF
	.WORD	0	;OLD HIINBP
	.WORD	0	;OLD NOSRC
	.BLKB	134.	;OLD IBUFF
	.ENDR
	.ENDC
	.ENDC
	.GLOBL	VNM50
VNM50:	.WORD	0,0
	ENTER	ERRCNT
	ENTER	APND
	ENTER	HELP
	ENTER	SPOOL
	ENTER	GLOB
	ENTER	LEVEL
	ENTER	RECURS
EENT::	.ASCIZ	/        /
	.EVEN
OLDR5::	.BLKW	<INDENT*2>+2
	ENTER	REVTRE	;REVERSE INDNTED TREE FLAG
	ENTER	FWDTRE	;DELETE INDENTED TREE FLAG
	ENTER	SETEQU	;SELECT/DESELECT VARIABLES ASSIGNED VALUES
	ENTER	PRNFLG	;OPEN PAREN FLAG-USED AS PART OF LOGIC TO SEE IF VAR
			; IS AN  ARRAY OR FUNCTION CALL
			;=0 NO TRAILING '(' FOUND
			;=1 TRAILING '(' FOUND
			;=100000 ENTRY POINT NAME JUST FOUND IN CALL/FUNCTION/
			;	SUBROUTINE/EXTERNAL/INTRINSIC DEFINITION LINE
	ENTER LIF	;SECOND PART OF LOGICAL IF NEXT
	.END
                                                                                                