
	.TITLE	IMPURE AREA
	.PSECT	IMPURE,D,RW,GBL
	.MACRO	ENTER NAME
	.GLOBL	NAME
NAME:	.WORD	0
	.ENDM
	ENTER	SUEXP
	ENTER	HIGPT
	ENTER	LOWPT
	ENTER	NOSRC			; FLAG-DO NOT LIST SRC IF .NE.0
	ENTER	HIGHAV			; HIGHEST6 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	TMP			; TMP STORAGE
	.GLOBL	IOARA
IOARA:	.BLKW	6
	ENTER	SNGCOM			; SINGEN COMMON VAR FLAG
	ENTER	SUPER			; SUPER FLAG
	ENTER	SUPPTR			; SUPER BLOCK POINTER
	ENTER	SUPBLK			; SUPER BLOCK COUNTER
	ENTER	PNMFLG			; UPDATE PROGRAM NAMER FLAG
	.GLOBL	SNAME
SNAME:	.ASCII	/        /
	.BYTE	200
	.EVEN
	.GLOBL	PNAME
PNAME:	.WORD	0,0
	ENTER	INBLK			; INPUT BLOCK NO
	ENTER	OUTBLK			; OUTPUT FILE BLOCK NO
	ENTER	INBFPT			; POINTER USED TO GET LINES OUT OF INPUT BUFFER
	ENTER	OTBFPT			; POINTYER USED TO OUTPUT LINES INTO OUTPUT BUFFER
	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
	.GLOBL	SAVE
	.REPT	6.
	.WORD	0,0
	.ENDM
SAVE:	.WORD	0
	.GLOBL	VNM50
VNM50:	.WORD	0,0
	ENTER	ERRCNT
	.END
                      