Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/impure.mac
There are 23 other files named impure.mac in the archive. Click here to see a list.
; UPD ID= 1586 on 5/14/84 at 8:54 AM by HOFFMAN                         
TITLE	IMPURE FOR COBOL V13
SUBTTL	DEFINITION OF IMPURE AREA



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION


	SEARCH	P
	%%P==:%%P
	MCS==:MCS
	DBMS==:DBMS
	DEBUG==:DEBUG
	ONESEG==:ONESEG
	TOPS20==:TOPS20

;EDITS
;NAME	DATE		COMMENTS

;V13*****************
;MJC	24-OCT-85	[1610] Add location for RD pointer in CLEANC
;MJC	21-JUN-85	[1600] Add locations for INITIALIZE of tables
;JEH	20-MAR-85	[1561] If a reference modification is being done 
;;				within the scope of an IF expression 
;;				then save the open paren. count and 
;;				restore when the modifications are done.
;MJC	31-DEC-84	[1553] Add flag words for END-XXX to phase D
;JEH	14-May-84	[1525] Make 'MYPPN' common to both TOPS10 and TOPS20

;V12B****************
;DMN	28-Apr-83	[1465] Fix edit 1354 to use DKEYSZ rather than KEYRLN.
;SMI	22-Nov-82	[1433] Declare RPWDPR for RPWGEN code generation.
;JEH	 7-Jun-82	[1362] Declare HLDSAV outside of MCS conditional.
;JEH	18-Mar-82	[1345] Trap illegal UUO's on TOPS-10.
;JEH	 2-Feb-82	[1335] Declare DATAB entries for all indices if REPORT SECTION
;				for their use in REPORT WRITER statements.
;JSM	 1-Oct-81	[1316] COPY REPLACING gives spurious fatal error with
;				comment followed by Paragraph name.
;WTK	 2-Sep-81	[1315] [1140] Catastrophe in phase E during SEARCH because BLT A/B is one word short.
;JSM	18-Sep-81	[1307] [1141] Have different literals for signed and unsigned COMP-3 literal 0.
;JSM	1-Oct-81	[1300] Define HLDBRO as temp for testing for REDEFINEd item in LINKAGE SECTION.

;V12B****************
;DAW	18-Nov-80	[1077] "?ILL MEM REF" in PHASE E
;DAW	 5-Nov-80	[1070] FIX MOVE CORRESPONDING WITH SUBSCRIPTED ITEMS
;DAW	31-OCT-80	[1067] ADD ESAVBI AREA FOR "IF NUMERIC = NON-NUMERIC"
;JSM	 2-SEP-80	[1051] GET MCS FLAG WORDS OUT OF OVLAY AREA
;DMN	26-JUN-80	[1031] ADD VARIABLES FOR DBMS VERSION 6.
;JEH	24-JUN-80	[1027] BUILD RECORD NAME TABLE IF NESTED READS
;DMN	29-MAY-80	[1023] ADD FLAG FOR MULTIPLE WORDS IN COPY REPLACING TEST.
;DMN	22-APR-80	[1013] FIX LOOP IF MISSING == ON COPY REPLACING.
;DMN	 1-APR-80	[1004] MAKE ASCII & EBCDIC COLLATING SEQUENCES WORK.
;DAW	31-JAN-80	[765] MORE SPACE FOR SUBSCRIPTS IN "STRSAV"
;DMN	30-JAN-80	[763] CHECK FOR DUPLICATE LINKAGE AND REPORT SECTIONS
;DMN	 1-FEB-80	[762] IMPLEMENT AND USE D. P. FLOATING POINT LITERALS

;V12A****************
;MFY	 3-Jul-79	[717] ADD ECNTA FOR "IF A NOT = SPACES" PROBLEM
;CLRH	 3-APR-79	[674] GENERATE ERROR FOR BAD VALUE CLAUSE OF 88 LEVEL ITEM
;JSM	28-MAR-79	[670] FIX NESTED IF . ELSE PROBLEM
;DMN	13-MAR-79	[662] FIX EDIT 557, DEFINE PICNXT COMMON TO PHASES B, C, AND D
;DMN	 9-MAR-79	[657] FIX PROBLEM WITH LOOKAHEAD IN COPY REPLACING INTEGER.
;DAW	 8-MAR-79	[656] FIX PROBLEMS WITH DBMS USE PROCEDURES
;DMN	 9-FEB-79	[633] GIVE BETTER WARNING ON LINE NUMBER WRAP-AROUND
;DMN	 1-DEC-78	[605] MAKE VARIABLE LENGTH READS WORK USEFULLY

;V12*****************
;DMN	 5-OCT-78	[566] SET FLAG WHEN TARGET OF DIVIDE IS COMP-1.
;DMN	19-SEP-78	[557] VARIOUS COPY REPLACING BUGS
;EHM	17-SEP-78	[553] GIVE ERROR IF RECORDS PER RERUN TOO LARGE

;V10*****************
;EHM	11-APR-77	[466] FIX COMPUTE FLOATING DIVIDE WITH ROUNDING
;	10-AUG-76	[435] ADD DCLTAG, ENDCLR
;	 4-APR-76	[415] REPORT WRITER CLEANUP IN CLEANC
;	01/29/76	[401] ADD DBONLY FOR DBMS USE PROCS BEING THE ONLY ONES
;JEC	19/01/76	[374] ADD LITERR ERROR IN CONVERSION OF LITERAL
;GPS	12/23/74	ADD TEMPS FOR SIMULTANEOUS UPDATE
;ACK	12-JAN-75	1.  ADD LOC FOR "/X" VALUE
;			2.  ADD 2 LOC'S FOR OBJECT TIME PDL SIZE.
;SSC	6-FEB-75	ALTER THE DBMS PART OF COBOLC'S LOW SEG FOR THE
;			CHANGES MADE TO DBDML MODULE.
;ACK	10-MAR-75	ADD LOC FOR CONVERSION INDEX FOR LITERALS.
;ACK	22-APR-75	ADD LOC'S FOR RUNTIME ADDRESSES OF EBCDIC
;			FIGURATIVE CONSTANTS.
;DBT	5/5/75		ADD PICSAV AND MSKTMP FOR PICTURE PROCESSING
;SSC	11/10/75	FINISHED DATA CHANGES FOR V.4+DBMS INTERFACE
;********************

; EDIT 360 ADD NEGCMP
; EDIT 342 ADD RWSV10
; EDIT 340 - NOT DONE STRING/UNSTRING WAS REWRITTEN FOR V10.
; EDIT 335 ADD RPWERR
; EDIT 324 ADD DECLR.
; EDIT 315 ADDED HLDSRC AND HLDNAM AND LASCOL	AND SAVDAT
; EDIT 306 ADD ESAVMD SAVE MODE OF FATHER.
; EDIT 305 ADD RWSAV9 INTRA GROUP REPORT LINE CNT
;EDIT 245 ADDED EINTR
;**EDIT 222 INCREASE THE SIZE OF VARBLK FROM ^D81 TO ^D135.
;**EDIT 167 ADD CURSIZ SIZE OF LITERAL

	SALL


IMPURE:	ENTRY IMPURE


	DEFINE DEFIN (A,B),<INTERNAL A
	A: BLOCK B>

	DEFINE SETVAL (A,B),<INTERNAL A
	A==B>
;ENTRY POINT FOR "KILL"

	DEFIN WEDIED,2;


;GET NEXT PHASE

;ENTER WITH PHASE NAME IN GETFNM+1, STARTING ADDRESS INCREMENT IN GETFST,
;	ADDRESS OF GETFNM IN TA.
;FOR A DESCRIPTION OF LOAD ROUTINE, SEE COBOLA.
;THE FOLLOWING ROUTINE IS COPIED FROM HI-SEGMENT BY COBOLA.
;IF COBOLA IS CHANGED THEN THESE DEFINITIONS MUST BE CHANGED ALSO

IFE ONESEG,<
	DEFIN CANTGO,7		;ERROR ROUTINE FOR "REENT" COMMAND

	DEFIN GETLOD,^D14		;THE LOAD ROUTINE ADDRESS
 IFN DEBUG,<
	BLOCK	1		;CLEAR .JBSYM
 >
 IFE DEBUG,<
	DEFIN DDTSTP,1		;(JRST COBEXO)
 >
 IFN DEBUG,<
	DDTSTP=:.		;PLACE FOR BREAKPOINT AFTER LOADING SEGMT
	JRST	COBEXO##
 >

	GETEND=:.-1
>;END IFE ONESEG

IFE TOPS20,<
	DEFIN GETFNM,6		;THE LOAD PARAMETERS
	DEFIN GETPTH,9		;ARG FOR LOAD PATH TO SFD
	DEFIN GETFST,1		;STARTING ADDRESS INCREMENT
>
;WORKING STORAGE


	DEFIN IMPAT.,^D20	;FOR PATCHING
IFN TOPS20,<
	DEFIN SPLIST,^D40	;EXTRA WORDS FOR NATIVE SCANNER
>
	DEFIN PPLIST,^D80;	;[%316] ADDED 20 WORDS -- PUSH-DOWN LIST
	SETVAL PPSIZE,PPLIST-.
IFN TOPS20,<
	SETVAL SPSIZE,SPLIST-.
>

	DEFIN	CCLSW,1		;CCL START OFFSET, EITHER 0 OR 1
	DEFIN PHASEN,1;		;CURRENT PHASE NUMBER
	DEFIN TOPLOC,1;		;LOCATION AFTER HIGHEST LOC IN IMPURE AREA
	DEFIN SAVJFF,1;		;FIRST LOCATION AFTER COMMAND BUFFER
	DEFIN VERZUN,4		;VERSION NUMBER (IN ASCII)

IFE TOPS20,<
	DEFIN COMBH,3;		;BUFFER HEADER IF COMMANDS FROM DISK OR TMPCOR
	DEFIN COMEXT,1		;EXTENSION FOR INDIRECT COMMAND FILE (IN RH)
	DEFIN RUNPPN,1		;PPN OF COBOL RUN COMMAND
	DEFIN RUNDEV,1		;DEVICE OF COBOL RUN COMMAND
	DEFIN SRCFIL,3		;SOURCE FILE INFO FOR LISTING

;USED TO INTERCEPT ILLEGAL UUO'S
	DEFIN UUOKIL,4		;[1345] ARG BLOCK FOR .JBINT
>
IFN DEBUG,<
	DEFIN %ATIME,2;
	DEFIN %RATIM,2;
	DEFIN %BTIME,2;
	DEFIN %RBTIM,2;
	DEFIN %CTIME,2;
	DEFIN %RCTIM,2;
	DEFIN %DTIME,2;
	DEFIN %RDTIM,2;
	DEFIN %ETIME,2;
	DEFIN %RETIM,2;
	DEFIN %OTIME,2;
	DEFIN %ROTIM,2;
	DEFIN %FTIME,2;
	DEFIN %RFTIM,2;
	DEFIN %GTIME,2;
	DEFIN %RGTIM,2;
	DEFIN %TTIME,1;
	DEFIN %RTIME,1;

	DEFIN %SRCLN,1		;TOTAL NUMBER OF SOURCE LINES IN CPY FILE

;FOR HANDAN
	DEFIN TXTBUF,<TXTLEN/5+1>
 IFE TOPS20,<
	DEFIN ATMBUF,<TXTLEN/5+1>
 >
	DEFIN DEBC0,^D16	;SAVED ACS FOR DEBUGGER
 IFN TOPS20,<
	DEFIN NOIBLK,2		;NOISE BLOCK
	DEFIN CMDBLK,^D10	;COMMAND JSYS BLOCK
 >;END IFN TOPS20
 IFE TOPS20,<
	DEFIN PRSBBP,1		;SAVED BP TO PARSE LINE
	DEFIN TXTBBP,1		; (AND ANOTHER)
	DEFIN HLPTXT,1		;ADDRESS OF ASCII HELP TEXT
	DEFIN PRSCHR,1		;SAVED PARSE CHARACTER
 >;END IFE TOPS20
>;END OF IFN DEBUG

	DEFIN RVBLT,3		;IMPLEMENT REVERSE BLT USING TE
;LOCATIONS USED BY "KILL"
	DEFIN KILLAC,20;		;SAVE AC'S FOR KILL
IFN TOPS20,<
	DEFIN KILLPL,40;	;PUSH-DOWN LIST
	DEFIN	KDATA,0		;HOLDS LPT PAGE OF DATA AT 6 WORDS PER LINE
>
IFE TOPS20,<
	DEFIN KILLPL,20;	;PUSH-DOWN LIST
	DEFIN KBHO,3;		;BUFFER HEADER FOR DUMP OUTPUT
	DEFIN KBHI,3;		;BUFFER HEADER FOR SCRATCH INPUT
	DEFIN KBUFI,0;		;START OF INPUT BUFFER
	SETVAL KDATA,KBUFI+406	;HOLDS A PAGE OF DATA
>
	SETVAL TYPFLG,KILLPL	;1ST PDL LOC IS TYPEOUT FLAG FOR COBOLK
;FIRST LOCATION TO BE CLEARED UPON INITIALIZATION
	SETVAL FSTCLR,.;

	DEFIN COBVER,1		;ADDR OF ARGUMENTS FOR SELOTS CALL
	DEFIN SUBPRG,1		;0=MAIN PROGRAM, -1=SUBPROGRAM
	DEFIN SLASHJ,1		;0=/J NOT USED, -1=/J ON
	DEFIN DEFDSP,1		;DEFAULT DISPLAY MODE
	DEFIN DEFSGN,1		;DEFAULT NUMERIC SIGN POSITION
	DEFIN OJPPSZ,2		;SIZE OF THE OBJECT TIME PDL.
	DEFIN RETPTR,1		;%PARAM ADDR OF RETURN PTR FOR PROGRAM
	DEFIN PRGENT,1		;PROGRAM-ID ENTRY POINT
	DEFIN PCHOLD,1		;STORE FOR EAS1PC WHILE DOING LINKAGE SECTION
	DEFIN SEQIN,1		;NON-ZERO IF INPUT HAS SEQUENCE NUMBERS
	DEFIN PAGCNT,1;		;COUNT OF LINES PER PAGE FOR LISTING
	DEFIN PROGID,1;		;PROGRAM-ID
	DEFIN PIDLNK,1		;LINK TO EXTAB ENTRY FOR PROGRAM-ID
	DEFIN PROGIF,1		;INITIAL PROGRAM FLAG
	DEFIN OBJSIZ,1;		;SIZE OF CORE, IN WORDS
	DEFIN SEGLIM,1;		;THE SEGMENT LIMIT
	DEFIN STDATE,2;		;STARTING DATE (DD-MMM-YY)
	DEFIN STTIME,1;		;STARTING TIME (HH:MM)

	DEFIN DCPNT.,1;		;CHARACTER FOR DECIMAL POINT
	DEFIN COMA.,1;		;CHARACTER FOR COMMA
	DEFIN DOLLR.,1;		;CHARACTER FOR CURRENCY SIGN
	DEFIN SAVEAC,20;	;SAVE AC'S

	DEFIN FILTBL,1		;STARTING LOCATION FOR OBJECT FILE TABLES
	DEFIN IMPPAR,1;		;STARTING LOCATION OF OBJECT PARAMS IN IMPURE AREA
	DEFIN RPWPRS,1		;PHASE D: # OF PARAMS USED FOR RPW
				;PHASE E: %PARAM OFFSET FOR RPW PARAMS
	DEFIN ALTBAS,1		;STARTING LOCATION FOR OBJECT ALTER TABLE
	DEFIN A50BAS,1		;STARTING LOCATION FOR ALTER TABLE FOR >49
	DEFIN DATBAS,1		;START OF DATA DIVISION
	DEFIN TEMBAS,1		;START OF TEMPORARIES
	DEFIN USEBAS,1		;BASE OF USE TABLE
	DEFIN RESDNT,1		;STARTING LOCATION FOR OBJECT RESIDENT CODING
	DEFIN NONRES,1;		;STARTING LOCATION FOR NON-RESIDENT OBJECT CODING
	DEFIN TAGCNT,1		;NEXT SPECIAL TAG NUMBER TO USE
	DEFIN PROGST,1		;TABLE-LINK TO FIRST EXECUTED PROCEDURE-NAME
	DEFIN	PROGLN,1	;LINE NUMBER OF PROCEDURE-NAME IN PROGST
	DEFIN DECLR.,1		; [324] IF NON-ZERO PROGRAM HAS DECLARITIVES


	DEFIN RPWERR,1		;[335] IF NON-ZERO FATAL ERROR IN REPORT GENERATION
	DEFIN BLDIX,1		;[1335] BUILD INDICES EARLY FOR REPORT WRITER USE
	DEFIN HDRPAG,1		;PAGE NUMBER FOR LISTING
	DEFIN ARGSTR,1

; ** NEW STRING/UNSTRING LOCS **
	DEFIN STFLGS,1		; FLAGS FOR RH OF FIRST WORD OF STRING ARGS
	DEFIN STSSO,1		;STRING SOURCE-SERIES OFFSET IN TEMTAB
	DEFIN STPTO,1		;IF POINTER ITEM, POINTS TO TEMTAB WHERE
				; POINTER ITEM IS STORED.
	DEFIN SDSTIN,1		;STRING DEST. INFO  (BSI.DEST)
	DEFIN NSTRSE,1		;# OF SOURCE-SERIES
	DEFIN STSEST,1		;START OF STRING-SERIES IN EOPTAB
	DEFIN STSELS,1		;LAST OPERAND SEEN IN STRING-SERIES
	DEFIN STSENS,1		;# SOURCES IN THIS STRING-SERIES
	DEFIN STSENX,1		;REL ADDR IN EOPTAB OF START OF NEXT
				; STRING-SERIES
	DEFIN STSETP,1		;POINTER TO TEMTAB ENTRY OF FIRST STRING-SERIES
	DEFIN CURSSE,1		;PTR INTO TEMTAB FOR CURRENT SS ENTRY
	DEFIN CURSRE,1		;PTR INTO TEMTAB FOR CURRENT SOURCE ENTRY

	DEFIN UNSNMF,1		;-1 IF UNSTRING SENDING ITEM IS NUMERIC, ELSE 0
	DEFIN USENII,1		;LH= MAX SIZE OF SENDING ITEM
				;RH = BSI OF SENDING ITEM
	DEFIN UNSFLG,1		;RH= UNSTRING FLAGS
	DEFIN UNSTLY,1		;LH = TAG OF ROUTINE TO STORE TALLY VALUE
				;RH = PTR IN TEMTAB OF TALLY OPERAND
	DEFIN UNSDLE,1		;PTR TO FIRST DELIM ENTRY IN TEMTAB
	DEFIN CURDE,1		;CURRENT DELIM ENTRY PTR IN TEMTAB
	DEFIN CURUS,1		;CURRENT UNSTRING-SERIES ENTRY PTR IN TEMTAB
;[765] STRSAV IS THE SAVED INFORMATION OF A PARSED ITEM, POSSIBLY
;[765] WITH SUBSCRIPTS.  THE FIRST TWO WORDS IS THE ITEM ITSELF,
;[765] AND STRSAV+2 CONTAINS THE NUMBER OF SUBSCRIPTS. STARTING AT
;[765] STRSAV+3 THERE IS ROOM FOR SUBSCRIPTS, FOUR WORDS FOR EACH (TWO
;[765] FOR THE ITEM AND TWO FOR AN ADDITIVE).
	DEFIN	STRSAV,3+<MAXSUB*4> ;[765] TEMP STORAGE FOR STRING SUBSCPT STUFF
; ** END OF NEW STRING/UNSTRING LOCS **
IFN MCS,<
	DEFIN	M.IARG,1	;ADDR OF ARG LIST FOR MCS INIT ROUTINE
	DEFIN	M.AFLG,1	;FLAG WORD FOR SEND GENERATOR
	DEFIN	CSSEEN,1	;NON-ZERO IF COMMUN. SECTION SEEN ;[1051]
	DEFIN	FINITL,1	;"INITIAL" SEEN FLAG 		  ;[1051]
>
; THE FOLLOWING ARE USED BY STRGEN AS WELL AS MCS  GENERATORS
	DEFIN	M.ARG1,1	;PTR TO ARG1
	DEFIN	M.ARG2,1
	DEFIN	M.ARG3,1
	DEFIN	M.ARG4,1
	DEFIN	M.ARG5,1
IFN DBMS,<DEFIN SCHSEC,1	;NON-ZERO IF SCHEMA SECTION SEEN
	DEFIN DBONLY,1		;[401] =0 IF ONLY USE PROC IS DBMS, =-1 OTHERWISE
	DEFIN INVSEE,1		;[%316] SEEN AN INVOKE
	DEFIN DBUSES,1>		;ADDR OF ARG LIST FOR DBMS INITDB ROUTINE

	DEFIN EAS1PC,1		;PROGRAM COUNTER FOR DATA AREA
	DEFIN EAS2PC,1		;PROGRAM COUNTER FOR RESIDENT SEGMENT
	DEFIN GENWRD,1		;NEXT RELATIVE WORD TO BE WRITTEN ONTO GENFIL
	DEFIN HILOC,1		;LIGHEST LOC IN RUN-TIME IMPURE AREA
	DEFIN HPLOC,1		;HIGHEST LOC IN RUN-TIME RESIDENT SEGMENT
	DEFIN SEGFLG,1		;NON-ZERO IF WE HAVE OVERLAY SEGMENTS
IFN DEBUG,<
	DEFIN CORESW,1		;FLAGS USED TO HELP IN NODE TRACING
	DEFIN TRCLN1,1		;LOWER BOUND OF TRACE
	DEFIN TRCLN2,1		;UPPER BOUND OF TRACE
>
	DEFIN CREFSW,1		;NON-ZERO IF '/C' IN COMMAND STRING
	DEFIN NOCPYL,1		;NON-ZERO IF '/G' IN COMMAND STRING
	DEFIN OPTSW,1		;NON-ZERO IF '/O' TYPED IN COMMAND STRING
	DEFIN PRODSW,1		;NON-ZERO IF '/P' TYPED IN COMMAND STRING
	DEFIN QUIKSW,1		;NON-ZERO IF '/Q' TYPED IN COMMAND STRING
	DEFIN AS7482,1		;/V -1 OR 0 IF 74 SYNTAX, +1 IF 82 SYNTAX
	DEFIN ABSEEN,1		;APPLY BASIC-LOCKING SEEN FLAG
	DEFIN PRGLVL,1		;LEVEL OF CONTAINED PROGRAMS 1 = OUTER PROGRAM
IFN TOPS20,<
	DEFIN ABRTSW,1		;ABORT ON FATAL ERROR IF NON-ZERO
	DEFIN RENSW,1		;-1 IF /R SEEN ON TOPS-20
				; GIVES 2-SEG CODE BUT NON-SHAREABLE OTS
>
	DEFIN COBXSW,1		;EXTRA FEATURE TESTS FOR OTS SET BY COBOL SYNTAX
	DEFIN INDELC,1		;# INSTRUCTIONS DELETED BY PHASE O
	DEFIN TAGDLC,1		;# TAGS DELETED BY O AND G
	DEFIN RELKEY,1		;-1 IF RELATIVE KEY  CONVERSION REQUIRED
	DEFIN COLSEQ,1		;PROGRAM COLLATING SEQUENCE ALPHABET-NAME PTR
				;[1004] LHS = -1, IF RHS = ASCII OR EBCDIC
	DEFIN COLSCP,1		;[1004] -1 IF SPECIAL ACTION REQUIRED IN SUBSCRIPTOR FOR COLL. SEQ.
	DEFIN COLNCP,1		;STORES LN,,CP FOR ALPHABET-NAME INCASE OF ERROR
	DEFIN RCLNCP,1		;LN,,CP OF "RECORD" CLAUSE IN SELECT AND FD
	DEFIN DEBSW,1		;-1 IF DEBUG CODE TO BE GENERATED
	DEFIN FLGSW,1		;-1 IF EXTENSIONS TO ANS-74 ARE TO BE FLAGGED
	DEFIN DEBALP,1		;-1 IF USE ON DEBUGGING ALL PROCEDURES WAS SEEN
	DEFIN DBPARM,1		;HOLDS %PARAM+N FOR DEBUGGING USE PROCEDURE

	DEFIN DWLNCP,1		;HOLDS LN,,CP OF SOME ITEM WHICH IS PRESERVED
				; OVER CALLS TO GETITM.  NOW USED JUST FOR
				;"START.." STATEMENT TO FLAG START USED AS
				; A PARAGRAPH NAME.

	SETVAL NTNSIZ,-^D19	;NUMBER OF ENTRIES IN SIZTAB (NEGATIVE)
	DEFIN SIZTAB,^D19	;TABLE OF QUANTUM SIZES FOR NM1TAB,NM2TAB
	DEFIN NRESSN,1		;-1 IF NON-RESIDENT SECTION SEEN (USED BY EXIT)
IFE TOPS20,<
	DEFIN MYPATH,2		;FIRST PART OF DEFAULT PATH
	DEFIN MYSFD,6		;REST OF DEFAULT PATH
>
	DEFIN MYPPN,1		;[1525] LOGGED IN PPN
	DEFIN WRAPNO,1		;[633] NUMBER OF TIMES LINE NUMBER WRAP-AROUND HAS OCCURED
	DEFIN EBASEA,1	;TABLE-LINK TO "A" OPERAND  (RH)
	SETVAL ERESA,EBASEA	;RESIDUE FOR "A" (LH)
	DEFIN EINCRA,1	;CURRENT INCREMENT FOR "A" OPERAND
	DEFIN ESIZEA,1	;SIZE OF "A"
	DEFIN EMODEA,1	;USAGE OF "A"
	DEFIN EDPLA,1	;DECIMAL PLACES IN "A" OPERAND
	DEFIN EBYTEA,1	;BYTE POINTER TO LITERAL VALUE
	DEFIN ETABLA,1	;TABLE LINK TO ITEM
	DEFIN EFLAGA,1	;VARIOUS FLAGS FOR "A"

	DEFIN EBASEB,1	;TABLE-LINK TO "B" OPERAND (RH)
	SETVAL ERESB,EBASEB	;RESIDUE FOR "B" (LH)
	DEFIN EINCRB,1	;INCREMENT FOR "B"
	DEFIN ESIZEB,1	;SIZE OF "B"
	DEFIN EMODEB,1	;USAGE OF "B"
	DEFIN EDPLB,1	;DECIMAL PLACES OF "B"
	DEFIN EBYTEB,1	;BYTE POINTER TO LITERAL VALUE
	DEFIN ETABLB,1	;TABLE LINK TO "B"
	DEFIN EFLAGB,1	;VARIOUS FLAGS FOR "B"

	SETVAL EBASEX,0;
	SETVAL ERESX,0;
	SETVAL EINCRX,1;
	SETVAL ESIZEX,2;
	SETVAL EMODEX,3;
	SETVAL EDPLX,4;
	SETVAL EBYTEX,5;
	SETVAL ETABLX,6;
	SETVAL EFLAGX,7;
	DEFINE TABSET (A,B,C,E,F,G,H), <
		IFIDN <NAM><A><
		SETVAL NAMPSZ,^D'B
		SETVAL NAMNSZ,-NAMPSZ>

		DEFIN A'LOC,1;
		DEFIN A'NXT,1;
		DEFIN CUR'A,1;
		>

	TABLES
	DEFIN ENDFT,1		;END OF FILE TABLES (SET TO ZERO BY COBOLA)
IFN XPNTST,<
	DEFIN TYPXPN,1;		;SET TO NON-ZERO WHEN DEBUGGING AND
				; WANT TO WATCH THE TABLES EXPAND
>

	DEFIN	FREESP,1;	;NUMBER OF FREE WORDS IN LH, FIRST FREE WORD IN RH


;NM1TAB, NM2TAB
	IFN DEBUG,<
	DEFIN NAMCT0,1		;USED AS A COUNTER IN TRYNAM
	DEFIN NAMCT1,1		;COUNT OF THE NUMBER OF CALLS TO TRYNAM
	DEFIN NAMCT2,1		;COUNT OF THE NUMBER OF ITERATIONS IN TRYNAM
	DEFIN NAMCT3,1		;COUNT OF THE NUMBER OF ENTRIES IN NAMTAB
	SETVAL DISTSZ,13		;SIZE OF NAMDIS
	DEFIN NAMDIS,DISTSZ	;A TABLE OF SEARCH DISTRIBUTIONS
	>

	SETVAL NM1SIZ,^D1499;
	SETVAL NAMBAS,2*NM1SIZ+NAMPSZ+2;
	DEFIN NM1LOC,1		;ADDRESS OF FIRST WORD OF NM1TAB
	DEFIN NM2LOC,1		;ADDRESS OF FIRST WORD OF NM2TAB
	DEFIN NM12SZ,1		;SIZE OF BOTH NM1TAB AND NM2TAB
	DEFIN NSZPTR,1		;POINTER TO SIZE TABLE FOR NAMTAB

	DEFIN NAMIOL,2		;I/O LIST TO READ/WRITE NAMTAB
	DEFIN	FTOOBG,1	;-1 IF LOW SEG GOT TOO BIG

	DEFIN	USP.I,1		; ADDRESS OF AT END USE PROCEDURE FOR INPUT
	DEFIN	USP.O,1		; ... FOR OUTPUT
	DEFIN	USP.IO,1	; ... FOR INPUT-OUTPUT
	DEFIN	USP.X,1		; ... FOR EXTEND
	DEFIN	PRGCOL,400	;PROGRAM COLLATING SEQUENCE
	PRGZRL==:.-1		;LAST LOCATION TO INITIALIZE
	DEFIN	ILCSIX,1	;COUNT OF ILLEGAL SIXBIT CHARS. SEEN SO FAR IN PRG COL SEQ
	DEFIN	EXCEBC,1	;COUNT OF EBCDIC ONLY CHARS. SEEN SO FAR IN PRG COL SEQ
	DEFIN	COHVLV,6	;HIGH-VALUE & LOW-VALUE IN PROG COL SEQ

	DEFIN	RMSFLS,1	;-1 IF RMS FILES ARE USED IN THE PROGRAM
	DEFIN	NFILES,1	;# OF FILES USED IN THE PROGRAM MODULE
;I/O DATA TABLE

	DEFINE IOLIST (A,C), <
	DEFIN A'DEV,1
	DEFIN A'HDR,2
	DEFIN A'BLK,1
	DEFIN A'BUF,1
	IFN TOPS20,<DEFIN A'JFN,1>
	IFE C-1 <DEFIN A'PP,1
		DEFIN A'SWS,1
		DEFIN A'BH,3>
	IFE C-2 <DEFIN A'BHI,3
	IFN TOPS20,<SETVAL A'BH,A'BHI>
		DEFIN A'BHO,3>
	IFE TOPS20,<IFE C-1,<DEFIN A'PTH,9>>
	>


	IOLIST SRC,1;
	IOLIST LST,1;
	IOLIST BIN,1;
	IOLIST LIB,1;
	IOLIST NAM,2;
	IOLIST ERA,2;
	IOLIST GEN,2;
	IOLIST CPY,2;
	IOLIST AS1,2;
	IOLIST AS2,2;
	IOLIST AS3,2;
	IOLIST LIT,2;
	IOLIST CRF,2;
IFN TOPS20,<
	IOLIST DMP,2;
 IFN DBMS,<
	IOLIST DBC,2
	IOLIST DBD,2
	SETVAL	DBBUFH,DBCBH
 >
>

IFN TOPS20,<
	SETVAL TFIJFN,CRFJFN
	SETVAL TFIBH,CRFBH
>


;ACCOUNT FOR DIFFERENT SIZE OF BLOCK BETWEEN TOPS-20 AND TOPS-10
IFN TOPS20,<ZZ==1>
IFE TOPS20,<ZZ==0>
;STORAGE FOR ADDITIONAL FILES

	SETVAL DEVSIZ,7+ZZ		;SIZE OF SRC, LST, BIN & LIB ENTRIES
	DEFIN IOSRCS,DEVSIZ*^D11	;ADDITIONAL ENTRIES
	DEFIN SRCEND,1		;ADDRESS OF FIRST EMPTY "IOSRCS" ENTRY

;VALUES USED TO ADDRESS WORDS OF AN ENTRY

	SETVAL DEVDEV,0		;DEVICE NAME
	SETVAL DEVFIL,1		;FILE NAME
	SETVAL DEVEXT,2		;EXTENSION
	SETVAL DEVTIM,3		;CREATION TIME OF FILE
	SETVAL DEVBLK,3		;SEGMENT COUNT DURING READ/WRITE
	SETVAL DEVBUF,4		;STARTING LOCATION FOR BUFFERS
IFN TOPS20<
	SETVAL DEVJFN,5		;JFN OF DEVICE
>
	SETVAL DEVPP,5+ZZ	;PROJECT-PROGRAMMER NUMBER
	SETVAL DEVSW,6+ZZ	;SWITCHES SEEN WHEN SCANNING COMMAND
	SETVAL DEVBH,7+ZZ	;3-WORD BUFFER CONTROL FOR ONE-WAY DEVICE
	SETVAL DEVBHI,5+ZZ	;3-WORD BUFFER CONTROL FOR INPUT SIDE
	SETVAL DEVBHO,10+ZZ	;3-WORD CONTROL FOR OUTPUT SIDE
IFE TOPS20,<
	SETVAL DEVPTH,12	;START OF PATH BLOCK
	SETVAL DEVDIR,14	;PPN
	SETVAL DEVSFD,15	;START OF SFD LIST

>

	SETVAL LIBTOP,LIBDEV+DEVSIZ-1	;LAST LOC IN LIB AREA
	SETVAL SRCTOP,SRCDEV+DEVSIZ-1	;LAST LOC IN SRC AREA

	DEFIN	EVSSCT,1	;Cnt of Sel. Sub. for Evaluate, used in D and E
	DEFIN	EVSOCT,1	;Cnt of Sel. Ob. for Evaluate, used in D and E

;;End of permanent data areas;;

OVLAY==.

;AREA USED BY PHASES B, C & D WHICH MAY BE OVERLAYED BY PHASE E

		RELOC OVLAY

;Note, do not split the following xxxxLN and xxxxCP word pairs.
;They are used by DMOVE/DMOVEM instructions.

	DEFIN SAVELN,1	;"LN" SAVED IN "GETCH"
	DEFIN SAVECP,1	;"CP" SAVED IN "GETCH"

	DEFIN SAVLN1,1	;"LN" SAVED IN "GETWRD"
	DEFIN SAVCP1,1	;"CP" SAVED IN "GETWRD"

	DEFIN WORDLN,1	;"LN" FOR FIRST CHAR OF DATUM
	DEFIN WORDCP,1	;"CP" FOR FIRST CHARACTER OF DATUM

	DEFIN SAVPLN,1	;[553] 'LN' FOR INTEGER ON SAVPTR STACK
	DEFIN SAVPCP,1	;[553] AND 'CP'

	DEFIN BLNKLN,1	;LINE NUMBER OF A SERIES OF BLANKS
	DEFIN BLNKCP,1	;CHARACTER POSITION OF FIRST OF A SERIES OF BLANKS

	DEFIN SAVBLN,1	;SAVE FOR BLNKLN
	DEFIN SAVBCP,1	;SAVE FOR BLNKCP

	DEFIN SAVECH,1	;TERMINATING PUNCTUATION OF A WORD
	DEFIN SAVSEQ,2	;SAVE SEQUENCE NUMBER
	DEFIN SRCCOL,1	;INPUT COLUMN (SAME AS INPTCP UNLESS TABS)
	DEFIN NAMWRD,5	;INPUT FOR "TRYNAM"
	DEFIN SAVNAM,5	;SAVE 'NAMWRD' DURING NAMTAB EXPANSION
	DEFIN HLDSRC,3	; [315] HOLD W1,W2 AND CT FOR LATER REGET
	DEFIN	HLDNAM,5	; [315] HOLD NAMWRD FOR LATER REGET
	DEFIN	SAVDAT,1	; [315] SAVES CURRENT DATAB ADDRESS OF ITEM FOR RPWDAT
	DEFIN LITVAL,MAXWLT	;HOLDS A LITERAL OUT OF "GETWRD"
	DEFIN SAVLIT,MAXWLT	;SAVE LITVAL FOR IN-LINE PERFORM
	DEFIN INPTCP,1	;INPUT CHARACTER POSITION FOR SEQUENCED SOURCE
	DEFIN INPTST,1	;FIRST INPUT CHAR POSITION FOR ITEM
	DEFIN LASTDV,1	;LAST DEVICE SEEN ON A COMMAND STRING
	DEFIN NXTNAM,1	;PLACE FOR NEXT NAMTAB ENTRY
	DEFIN SAVEWD,3	;TO SAVE "W1" & "W2"
	DEFIN ITEMCT,1	;TO SAVE "CT"
	DEFIN NOCONT,1	;IF NON-ZERO, CONTINUATION CARDS ARE ILLEGAL
	DEFIN AMARFL,1	;[1316] Flag for LF seen after * comment in COPY REPLACING
	DEFIN LIBNAM,2	;A LIBRARY NAME
	DEFIN CPYCP,1	;CHARACTER POSITION OF WORD FOLLOWING COPY STATEMENT
	DEFIN CPYW2,1	;SAVE "W2" DURING COPY
	DEFIN PRVTOK,1	; [670] TO HOLD PREVIOUS TOKEN
IFN DEBUG,<DEFIN TRACFL,1>	;SYNTAX SCAN TRACE FLAG

	DEFIN EOLKAR,1	;END-OF-LINE CHARACTER FOR LAST LINE
	DEFIN REGKAR,1	;A CHARACTER FROM SRCFIL, SAVED UPON ENTERING SETLIB
	DEFIN SAVAS1,1
	DEFIN FSTIDX,1
	DEFIN TERMQ,1	;CHARACTER DELIMITING ALPHA LITERAL
	DEFIN LSTW77,1	;IF THE LAST LEVEL NUMBER SEEN WAS 77, 0 OTHERWISE -1.

	DEFIN SAVETA,1
	DEFIN CTR,1
	DEFIN CTRREM,1	;TO HOLD REM OF DIVIDING ASCII VAL OF ID BY 5
	DEFIN PNTR,1
;One of the uses of TBLOCK is to hold subscripts
;Thus it must be large enough to hold the count plus 4 words per subscript.
IFL MAXSUB-6,<
	DEFIN TBLOCK,25
>
IFGE MAXSUB-6,<
	DEFIN TBLOCK,MAXSUB*4+1
>
	DEFIN NODLST,100
	SETVAL NDLNTH,.-NODLST
	SETVAL	NNDLNT,-NDLNTH
	DEFIN NEWENT,1
	DEFIN NEWTYP,1
	DEFIN SLNK,1
	DEFIN SAVE1,1
	DEFIN CFLM,1
	DEFIN NAMADR,1
	DEFIN VALADR,1
	DEFIN ESIZE,1
	DEFIN LSIZE,1
	DEFIN MNETYP,1
	DEFIN LSTFIL,1
	DEFIN NDEV,1

;DO NOT CHANGE ORDER OF OPRTR, ARG1, ARG2, ARG3
	DEFIN OPRTR,2
	DEFIN ARG1,2
	DEFIN ARG2,2
	DEFIN ARG3,2

;NSBSC1 must follow ARG3 or else you must change COBOLD at PA1.
;Do not change order of NSBSC* and SBSCR*
;All subscript things save 4 words per subscript.
	DEFIN NSBSC1,1
	DEFIN SBSCR1,MAXSUB*4
	DEFIN NSBSC2,1
	DEFIN SBSCR2,MAXSUB*4
	DEFIN NSBSC3,1
	DEFIN SBSCR3,MAXSUB*4

	DEFIN LSTPRI,1
	DEFIN PRIOR,1
	DEFIN CURPAR,1
	DEFIN GOTQUA,1
	DEFIN NQUAL,1
	DEFIN QUALT,^D102
	DEFIN CURQUA,1
	DEFIN FILSEC,1		;FILE SECTION HAS BEEN SEEN
	DEFIN SAVLST,100
	SETVAL SVLNTH,.-SAVLST
	SETVAL NSVLNT,-SVLNTH

;NOTE ... ARGL2 MUST IMMEDIATELY FOLLOW ARGLST
	DEFIN ARGLST,IF.DEP
	SETVAL ARGLSZ,ARGLST-.
	DEFIN ARGL2,IF.DEP
	SETVAL ARG2SZ,ARGL2-.

	DEFIN SAMSRT,1	;FLAG TO INDICATE 'SAME SORT' CLAUSE IN EFFECT

	DEFIN WASERC,1	;NON-ZERO IF PREVIOUS SOURCE WORD WAS 'SEARCH'
	DEFIN	RSSEEN,1	;NON-ZERO IF REPORT SECTION SEEN
	DEFIN	COMSEC,1	;COMMUNICATION SECTION ACTIVE FLAG
	DEFIN DBNODE,1	;SAVE NODE PTR HERE
	DEFIN FINVD,1	;NON-ZERO IF PHASE D IS TO PERFORM DBMS STUFF
	DEFIN FINVOK,1	;NON-ZERO IF WE ARE IN AN INVOKE STATEMENT
IFN DBMS,<

	;;;	STUFF THAT REMAINS FROM BEFORE V. 2A
	DEFIN	DBCNTC,1		;COUNT OF INVOKES IN PHASE C
	DEFIN	DBCNTD,1		;COUNT IF INVOKES PROCESSED IN D

 IFE TOPS20,<
	DEFIN	SBUFF1,204		;SCHEMA FILE BUFFER
	DEFIN	DBUFF1,204		;DBMS BUFFER RING
 >

;Do not change order of next two item, they are referenced by DMOVE/DMOVEM
	DEFIN INVLN,1	;STORAGE FOR "INVOKE" LINE.
	DEFIN INVCP,1	;SAME FOR CHAR POS

	DEFIN SCHASC,1		;[%316]TO MAKE DMLVOK SIMPLER  PROCESS IN ASCII
				;[%316]EXTRA SPACE IS TO CONVERT "IN PLACE"
	DEFIN SCHEMA,1	;SAVE AREA FOR SCHEMA NAME
	DEFIN SSASC,1	;[%316]
	DEFIN S.SCH,5	;[%316] CAN BE 30 CHARS ...AND SUB-SCHEMA
	DEFIN PKASC,1	;[%316]
	DEFIN PKEY,1	;AND PRIVACY KEY.
IFE TOPS20,<
	DEFIN DBBUFH,3	;INPUT BUFFER HEADER
	DEFIN DBDEV,1	;DEVICE NAME [DSK]
	DEFIN DBBLCK,4	;LOOKUP BLOCK
	DEFIN DBOPBK,3	;OPEN BLOCK
>

	;[%316] THE NEW DECLARATIONS FOLLOW

	;;;	STUFF REFFED AS EXTERN'S FROM BOTH HOSTS
	DEFIN ACCSEE,1		;[%316] SEEN AN ACCESS
	DEFIN(SYM.TB,^D31)
	DEFIN(SYMTAB,1)

	;;;	FOR DMLIO

	DEFIN(OBJAREA,^D14)		;STORAGE FOR .FOR LINES
	DEFIN(VOKAREA,^D14)
	DEFIN(TEMPBP,2)			;USED IN WRITE
	DEFIN(BUF.CP,2)			;ARG TO CHKSTR IN WRITE
	DEFIN(LINCHK,2)			;DITTO FOR OBJOUT
	DEFIN(NLEFT,1)			;FOR CHKSTR, IN OBJOUT
	DEFIN(NN,1)
	DEFIN(BUF.CN,1)			;DITTO FOR WRITE
	DEFIN(B.OR.L,1)			;BUF OR LINE

	;;;	DMLVOK IS CHANGED BY USE OF SCHIO
	;;;	AND BY FUNCTIONAL EXPANSIONS OF V.4--AND CLEANUP

	DEFIN(SIZAREA,2)
	DEFIN(TMPNAM,2)			;FOR DUPLIC SYMBOLS
	DEFIN(UNWIND,1)			;FOR HANDLING FATAL ERRORS
	DEFIN(FILENM,1)
	DEFIN(DASH,1)
	DEFIN(UNDIDX,1)
	DEFIN(PSUNYM,1)
	DEFIN(NULLREC,1)
	DEFIN(TXTIDX,1)
	DEFIN(LEVNO,2)			;STRING PTR, WILL CONTAIN 01 OR 02
	DEFIN(PICBP,2)			;DITTO FOR PICTURE
	DEFIN(CURN2,2)			;REALLY CURNAM, BUT COBOL ALREADY USES
					;PTS AT CURR REC,AREA,DAT,ETC. NAME
  IFN DBMS6,<
	DEFIN(CURREC,2)			;[1031] RECORD NAME FOR QUALIFIED REFERENCES
	DEFIN(VOKFLG,1)			;[1031] FLAG FOR NBUF DATANAME
  >
	DEFIN(A.TMP1,1)			;FOR CALLING STRLIB
	DEFIN(A.TMP2,1)			;DITTO

	;;;	FOR DMLERR
	DEFIN(ARG.T1,1)
	DEFIN(ERRAREA,16)

	;[%316] THESE DECLARATIONS MUST BE CONSECUTIVE AND AS ORDERED
	;[%316] NON-ZERO VALUES ARE BLTED FROM HISEG

BL.NZ::					;BEGIN BLT
	DEFIN(RELCHAN,4)		;RESPEC BINDS AND SUCH; DECLARATIONS
	DEFIN(RELHDR,4)
	DEFIN(VOKCHAN,4)
	DEFIN(VOKHDR,4)
	DEFIN(RELOPN,3)
	DEFIN(VOKOPN,3)
	DEFIN(RELENT,5)
	DEFIN(VOKENT,5)

	DEFIN(OBJPTR,2)
	DEFIN(VOKPTR,2)
	DEFIN(FILLER,1)			;ARG CNT WORD
	DEFIN(ARGWRI,5)
	DEFIN(WRIFILL,^D8)

	DEFIN(SCH.PT,2)
	DEFIN(SS.PT,2)
	DEFIN(KEY.PT,2)
	DEFIN(SIZONL,2)
	DEFIN(ERRPTR,2)
EL.NZ==:.-1
>;END IFN DBMS
IFN MCS,<
	DEFIN	DATSAV,1		;SAVE AREA FOR LEVEL 1 DATAB PTR
	DEFIN	CDBLK,^D11
	DEFIN	CDINDX,1		;INDEX INTO CD BLK
	DEFIN	FILLNM,1		;ADDRESS OF FILLER IN NAMTAB
>
	DEFIN	HLDSAV,1		;[1362] NOT CONDITIONAL ON MSC
	DEFIN	MCSCTR,1		;NUMBER OF ARGS FOR SEND
	DEFIN	$LFPTR,1		;DBP TO EOL CHAR IN PUTCPY
	DEFIN	NOIDHY,1		;-1 IF NO HYPHEN CONT. IN ID DIV.
	DEFIN	$LFCNT,1		;CPYBHO+2 WHEN EOL STORED
	DEFIN	DCCFLG,1		;-1 IF IN DATE-COMPILED COMMENT FIELD.
					;<0,,-1> IF LINE SHOULD BE IGNORED

;THESE ARE FOR COBOL-74 COPY SYNTAX
	DEFIN	LIBDV,1			;ACTUAL DEVICE SPECIFIED FOR COPY
	SETVAL	PSTLEN,^D1000		;MAX. NUMBER OF CHAR. IN PSEUDO-TEXT
	DEFIN	RPLFLG,1		;FLAGS STORED BEFORE COPY REPLACING
	DEFIN	CPYFLG,1		;STORE STATUS OF FSEQ DURING COPY
	DEFIN	NCPYSW,1		;-1 IF FNOCPY WAS SET EXTERNALLY
	DEFIN	RPLCP,1			;STORE CP SO WE CAN BACKUP
	DEFIN	RPLICP,1		;DITTO FOR INPUT COUNT
	DEFIN	RPLCST,1		;INPTST STORED ON FIRST REPLACEMENT
	DEFIN	RPLBLK,1		;CURRENT LIBRARY BLOCK NUMBER
	DEFIN	RPLLOC,1		;POINTER TO START OF REPLACEMENT LIST
	DEFIN	RPLNXT,1		;POINTER TO NEXT REPLACEMENT ITEM
	DEFIN	RPLNXW,1		;POINTER TO NEXT REPLACEMENT WORD
	DEFIN	RPLCNT,1		;COUNT OF REPLACEMENTS
	DEFIN	RPLBH,3			;STORE BUFFER HEADER INFO
	DEFIN	TKNBH,3			;[1576] bfr hdr when 1st tkn char found
	DEFIN	TKNSIZ,1		;[1576] size of scanned token
	DEFIN	ENDTKN,3		;[1576] bfr hdr when last tkn found
	DEFIN	PADCNT,1		;NO. OF SPACES TO OUTPUT
	DEFIN	PARCNT,1		;NO. OF PARENS SEEN DURING REPLACEMENT TEST
	DEFIN	TERSCN,1		;[657] IF NON-ZERO TERMINATE CHAR. SCAN IF SAME CHARACTER
	DEFIN	PICNXT,1		;[662] [557] -1 WHEN NEXT DATUM IS, OR COULD BE, A PICTURE STRING
	DEFIN	CPYRMW,1		;[1023] -1 IF COPY REPLACING READ MULTIPLE WORDS
	DEFIN	SRCBFC,1		;SOURCE BUFFER COUNT

	DEFIN	L1BH0,1			;BLOCK NO. OF LIBRARY BEFORE
	DEFIN	L1BH1,1			;BYTE PTR
	DEFIN	L1BH2,1			;CHAR. COUNT
	DEFIN	L1CPO,1			;OUTPUT CHAR POS.
	DEFIN	L1CPI,1			;INPUT CHAR POS.

	DEFIN	L2BH0,1			;BLOCK NO. OF LIBRARY IFTER
	DEFIN	L2BH1,1			;BYTE PTR
	DEFIN	L2BH2,1			;CHAR. COUNT
	DEFIN	L2CPO,1			;OUTPUT CHAR POS.
	DEFIN	L2CPI,1			;INPUT CHAR POS.

	DEFIN	R1LNO,1			;[1013] OUTPUT LINE NUMBER
	DEFIN	R1CPO,1			;OUTPUT CHAR POS.
	DEFIN	R1CPI,1			;INPUT CHAR POS.

	DEFIN	R2BH0,1			;SRC BUFFER COUNT
	DEFIN	R2BH1,1			;SRC BYTE PTR
	DEFIN	R2BH2,1			;SRC BYTE COUNT
	DEFIN	R2CPO,1			;OUTPUT CHAR POS.
	DEFIN	R2CPI,1			;INPUT CHAR POS.

;SAVE FIRST SPACE AT GETKAR
	DEFIN	R3BH0,1			;SRC BUFFER COUNT
	DEFIN	R3BH1,1			;SRC BYTE PTR
	DEFIN	R3BH2,1			;SRC BYTE COUNT
	DEFIN	R3CPO,1			;OUTPUT CHAR POS.
	DEFIN	R3CPI,1			;INPUT CHAR POS.

;SAVE PERIOD BEFORE CALL TO GETKAR
	DEFIN	R4BH0,1			;SRC BUFFER COUNT
	DEFIN	R4BH1,1			;SRC BYTE PTR
	DEFIN	R4BH2,1			;SRC BYTE COUNT
	DEFIN	R4CPO,1			;OUTPUT CHAR POS.
	DEFIN	R4CPI,1			;INPUT CHAR POS.

	DEFIN	PSTBUF,PSTLEN/5		;PSEUDO-TEXT

	DEFIN MAXDBC,1	;MAXIMUM SIZE OF DEBUG-CONTENTS REQUIRED IF DEBUGGING MODE IS ON
	DEFIN	FLRADD,1	;DATAB ADDRESS OF "FILLER". USED BY PHASE D AND E

	HIGHB==.
;AREA USED BY PHASE B WHICH MAY BE OVERLAYED BY PHASE C

	DEFIN	SEENRU		;FLAG TO INDICATE WE HAVE SEEN /R OR /U
				;/R = -1, /U = +1
	DEFIN	CURLNC,1	;LN AND CP OF CURRENT CLAUSE FOR FIPS FLAGGER
	DEFIN	CURORG,1	;HOLD FILE ORGANIZATION FOR VARIOUS FIPS FLAGGING ACTIONS
	DEFIN	RSLNCP,1	;LN AND CP OF [RESERVE N AREAS] FOR FIPS FLAGGER
	DEFIN	SAMLNC,1	;LN AND CP OF "SAME AREA" FOR FIPS FLAGGER
	DEFIN	SRALNC,1	;LN AND CP OF "SAME RECORD AREA" FOR FIPS FLAGGER
	DEFIN	ASLNCP,1	;LN AND CP OF ASSIGN CLAUSE FOR FIPS FLAGGER
	DEFIN	SYLNCP,1	;LN AND CP OF SYMBOLIC CHARACTER IN CASE OF ERROR
	DEFIN	SYCHVF,1	;ADDRESS OF MNETAB ENTRY FOR VERY FIRST SYMBOLIC CHAR
	DEFIN	SYCHAD,1	;ADDRESS OF MNETAB ENTRY FOR FIRST SYMBOLIC CHAR IN CURRENT LIST
	DEFIN	SYCHNO,1	;COUNT OF SYMBOLIC CHARACTERS SEEN OR LEFT TO PROCESS
	DEFIN	SYCHTC,1	;TOTAL COUNT OF SYMBOLIC CHARACTERS SEEN
	DEFIN	SPNMCP,1	;LN AND CP OF TERMINAL PERIOD IN SPECIAL NAMES CLAUSES
;AREA USED BY PHASE C WHICH MAY BE OVERLAYED BY PHASE D

	RELOC HIGHB

	DEFIN RPTSRT,0	; [415] START OF REPORT WRITER CLEANC ITEMS
	DEFIN RPTRPT,1	; [415] CURRENT RD FOR SUM COUNTERS
	DEFIN RPTNEW,1	; [415] NEW RD FOUND TO PROCESS SUM COUNTERS
	DEFIN RPTCID,1	; [415] CID POINTER IN RD IN PROCESSES
	DEFIN RPTNID,1	; [415] NUMBER OF CID IN THIS  RD
	DEFIN RPTRHT,1	; [415] REL,REAL TEMTAB LOC FOR CURREMT RD HEADER
	DEFIN RPTNHT,1	; [415] REL,REAL TEMTAB LOC FOR NEW RD HEADER
	DEFIN RPTCIT,1	; [415] TEMTAB LINK FOR 1ST ID IN RD,,0
	DEFIN RPTFIN,0	; [415] LAST LOCATION OF REPORT WRITER DATA
	DEFIN RPWTYP,1	; USED TO GENERATE ERROR IN CLEANC
	DEFIN RPWLN,1	; LINE NUMBER LINE IS NEXT PAGE USED TO GEN ERROR

;ALL LN AND CP WORDS MUST BE IN ORDERED PAIRS FOR DMOVE/DMOVEM
	DEFIN RPWCP,1	; CHARACTER POINTER OF LINE IS NEXT PAGE
	DEFIN RPWLN1,1	; LINE NUMBER OF NEXT GROUP STATEMENT TO GENERATE ERROR
	DEFIN RPWCP1,1	; CHARACTER POSITION OF NEXT GROUP STATEMENT
	DEFIN RPWLN2,1	; LINE NUMBER OF NEXT WHEN WE DON'T KNOW IF ITS PAGE OR GROUP
	DEFIN RPWCP2,1	; DITTO FOR CP

	DEFIN RPWPFL,1	; NON ZERO WHEN FIRST LINE CLAUSE IS NOT RELATIVE LINE
	DEFIN DPSIZE,1	;NUMBER OF DECIMAL PLACES IN A DATA ITEM
	DEFIN EXSIZE,1	;EXTERNAL SIZE OF DATA ITEM
	DEFIN INSIZE,1	;INTERNAL SIZE OF DATA ITEM
	DEFIN MSKSIZ,1	;NUMBER OF WORDS NEEDED TO CONTAIN MASK
	DEFIN MSKWRD,4	;CONTAINS MASK
	DEFIN PICSAV,1	;SAVE LOOKAHEAD PICTURE CHARACTER
	DEFIN PNTS,1;
	DEFIN PNTS2,1;
	DEFIN LEVEL,1;
	DEFIN NPADL,1;
	DEFIN NPADR,1;
	DEFIN ITMLOC,1;
	DEFIN ITMRES,1;
	DEFIN NCHITM,1;
	DEFIN NCHLIT,1;
	DEFIN NCHLI2,1;
	DEFIN PADCHR,1;
	DEFIN SVDWRD,1;
	DEFIN SVDADR,1;
	DEFIN NCHWRD,1;
	DEFIN BYTEPT,1;
	DEFIN BYTEP2,1;
	DEFIN SIGNED,1;
	DEFIN NLEADZ,1;
	DEFIN NTRALZ,1;
	DEFIN NINTGD,1;
	DEFIN NFRACD,1;
	DEFIN VALUE1,1;
	DEFIN VALUE2,3;		;MUST BE AT VALUE1+1
	DEFIN CONVR2,1;	;CONVERSION INDEX FOR DISPLAY LITERALS.
			; 0 ASCII TO COMP-3
			; 1 ASCII TO SIXBIT
			; 2 ASCII TO ASCII (ACTUALLY NO CONVERSION)
			; 3 ASCII TO EBCDIC
	DEFIN SEPSGN,1;		;=1 IF SIGN IS SEPARATE CHARACTER
	DEFIN LDNSGN,1;		;=1 IF SIGN IS LEADING
	DEFIN RENAM1,1;
	DEFIN RENAM2,1;
	DEFIN RNREC1,1;
	DEFIN RNREC2,1;
	DEFIN RDFLVL,1	;LEVEL COUNTER FOR 'RDEFPC' STACK
	DEFIN RDEFPC,^D12	;LAST SEEN PC FOR REDEFINES NESTING
	SETVAL RDFSIZ,^D12	;SIZE OF RDEFPC TABLE
	DEFIN DATLVL,1	;INDEX INTO 'LSTDAT' AND 'RDFDAT'
	DEFIN RDFDAT,^D50	;LAST REDEFINING ITEM AT A GIVEN LEVEL
	DEFIN LSTDAT,^D50	;LAST ITEM AT A GIVEN LEVEL WITHOUT REDEFINES CLAUSE
	DEFIN IDXLST,1;
	DEFIN WSAS1P,1;
	DEFIN RUSAGE,1	;USAGE OF CURRENT RECORD
	DEFIN REPSEC,1	;NON-ZERO IF WE ARE IN REPORT SECTION
	DEFIN LNKSEC,1	;NON-ZERO IF WE ARE IN LINKAGE SECTION
	DEFIN LNKSSN,1	;[763] NON-ZERO IF LINKAGE SECTION SEEN
	DEFIN REPSSN,1	;[763] NON-ZERO IF REPORT SECTION SEEN
	DEFIN SIXHLD,1	;6-DIGIT SIXBIT NUMBER
	DEFIN SAVCOL,1	;LAST 'COLUMN' SEEN
	DEFIN RPWRDL,1	;SAVE FOR CURRPW TO RD
	DEFIN RWLCS.,1	;A LINE CLAUSE WAS SEEN FOR THIS REPORT GROUP.
	DEFIN RWCCS.,1	;A COLUMN CLAUSE WAS SEEN FOR THIS REPORT GROUP.
	DEFIN LASTYP,1	;LAST 'TYPE' CODE SEEN IN RPW ITEM
	DEFIN LASCOL,1	; [315] LAST HIGHEST COLUMN IN REPORT LINE
	DEFIN THSCTL,1	;CONTROL ENTRY FOR CURRENT RPW GROUP
	DEFIN LAST01,1	;DATAB LINK TO LAST LEVEL-01 ITEM
	DEFIN LASTRD,1	;LAST RD ENTRY IN RPWTAB
	DEFIN FLOTBZ,1	;-1 IMPLIES ALL DIGITS REPRESENTED BY FLOAT CHARS
	DEFIN WRKSEC,1	;-1 MEANS WORKING-STORAGE SECTION SEEN
	DEFIN PICPTR,1	;POINTER TO SAVE PIC CHARS.
	DEFIN PICBUF,7	;WHERE PIC CHARS. ARE SAVED
	DEFIN LNK1PC,1	;SAVE EAS1PC DURING LINKAGE SECTION
	DEFIN FLG88,1	;[674] FLAG FOR AN 88 LEVEL LITERAL
	DEFIN CURDTT,1	;SAVED CURDAT WHEN PARSING SUBSCRIPTS

	DEFIN	NMAKYS,1	;NUMBER OF ALTERNATE KEYS IN THIS FILE, 
			; FOR RMS INDEXED FILES
	DEFIN CURRD,1	;[1610]RD RPWTAB POINTER FOR SUM REPORT CHECKING

	HIGHC==.
;AREA USED BY PHASE D WHICH MAY BE OVERLAYED BY PHASE E

	RELOC HIGHB

	DEFIN IFLVL,1;
	DEFIN SPFLVL,1;
	DEFIN SPFNIO,1;;	;FLAG - SPECIAL IF, NOT I-O
	DEFIN CLEVEL,1;
	DEFIN ELEVEL,1;
	SETVAL USES.L,^D27
	DEFIN USES,USES.L
	DEFIN TRMLVL,1;
	DEFIN TOPLVL,1;
	DEFIN NXTSNT,1;
	DEFIN IMPLOP,2;
	DEFIN CORRSP,.CORSZ;	;[1070]
	DEFIN MVARY,1;
	DEFIN NVARY,1;

;VARBLK saves many thing including 3 * 3 copies of all subscripts
;Because the offsets change with the number of subscripts all references MUST be symbolic.
;Do not change the order of the items.
	DEFIN VARBLK,2		;SUBJECT OF PERFORM VARYING
	DEFIN VARSSB,MAXSUB*4+1	;SUBSCRIPTS FOR SUBJECT OF PERFORM VARYING
	DEFIN VARIVL,2		;INITIAL VALUE OF PERFORM VARYING
	DEFIN VARSIV,MAXSUB*4+1	;SUBSCRIPTS FOR INITIAL VALUE OF PERFORM VARYING
	DEFIN VARINC,2		;INCREMENT OF VALUE OF PERFORM VARYING
	DEFIN VARSIN,MAXSUB*4+1	;SUBSCRIPTS FOR INCREMENT OF VALUE OF PERFORM VARYING
	SETVAL VARSIZ,.-VARBLK	;SIZE OF ONE COPY OF VARYING STUFF
	DEFIN VARNXT,2*VARSIZ	;2 MORE COPIES OF ABOVE
	SETVAL VARLST,.-1	;LAST WORD IN VARBLK
	DEFIN VARTAG,7;

	DEFIN SAVPRF,6;
	DEFIN UNTTAG,2;
	DEFIN HROUND,1		;ARG2 SAVED (FOR 'ROUND' FLAG) DURING CORRESPONDING
	DEFIN REINTO,1		;NON-ZERO IF 'READ INTO' SEEN
	DEFIN BUFCTR,1		;COUNTER FOR # OF ENTRIES IN "OPEN" TBL
	DEFIN BUFFER,^D160	;BUFFER FOR OPEN AREA AND OPEN FILE NAMES.
	DEFIN	SU8FLG,1;	THIS AND THE NEXT 9 ENTRIES ARE FOR SIMULTANEOUS UPDATE
	DEFIN	SU41TP,1;	TEMP FOR ACTION PASU41
	DEFIN	SU8CNT,1
	DEFIN	SU8SVC,1
	DEFIN	SU8SVA,1
	DEFIN	SU8SVB,1
	DEFIN	SU30F1,1
	DEFIN	SU30F2,1
	DEFIN	SU30FG,1
	DEFIN	PASU4T,1
	DEFIN	CURMKY,1	;CURRENT RMS RETAINED KEY FOR PASU31 AND PASU3A

	DEFIN	SURRTM,1	;SPACE REQUIRED IN THE RETAINED
				;RECORDS TABLE BY THE CURRENT STATEMENT

	DEFIN	SURRT.,1	;SPACE REQUIRED IN THE RETAINED RECORDS
				;TABLE BY THIS COMPILE UNIT

	DEFIN	SUEQTM,1	;SPACE REQUIRED IN EACH OF THE ENQ/DEQ
				;TABLES BY THIS RETAIN STATEMENT

	DEFIN	SUEQT.,1	;SPACE REQUIRED IN EACH OF THE ENQ/DEQ
				;TABLES BY THIS COMPILE UNIT

	DEFIN	SUFBT.,1	;SPACE REQUIRED IN THE FILL/FLUSH
				;BUFFER TABLE FOR THIS COMPILE UNIT

	DEFIN	SUFBTM,1	;SPACE REQUIRED IN THE FILL/FLUSH
				;BUFFER TABLE FOR THIS RETAIN STATEMENT
	DEFIN	SVINSP,2	;HOLD DATA ITEM ON TYPE 3 INSPECT
	DEFIN	SVINSO,1	; OP CODE FOR INSPECT TALLYING/ REPLACING
	DEFIN	IFPERF,1	;SET TO -1 WHEN IF IS IN PERFORM CONTROL LOGIC
	DEFIN	INNOR,1		;IF A COMPLEX CONDITION, SAW:
				; NOT ( ... OR
				;TO ALLOW US TO REPLACE "OR" WITH ") OR ("

	DEFIN	SWHEN,1		;SAW "WHEN" AT END OF SENTENCE IF -1
	DEFIN	PERLNC,1	;DIDN'T SEE WHEN-- STORE LN AND CP INCASE
	DEFIN	SRTMRG,1	;0 IF IN SORT, -1 IF MERGE; FOR FIPS FLAGGER
				; NEXT THING IS WHEN
	DEFIN	INUPRG,1	;IN USE PROCEDURE REPORT GROUP - RPWTAB LINK
	DEFIN	ERSKIP,1	;If set to -1, means syntax error while parsing
				;a statement which caused a skip to next period.
	DEFIN	DKEYSZ,1	;[1465] HOLD SIZE OF START KEY IN PHASE D
	DEFIN	REFCON,1	;0 if CALL BY REFERENCE, -1 if CALL BY CONTENT
	DEFIN	PERFAB,1	;0 if PERFORM BEFORE TEST, -1 if PERFORM AFTER TEST
	DEFIN	ILPERF,1	;No. of nested in-line PERFORMs
	DEFIN	INPTAG,1	;Tag number for in-line perform
	DEFIN	EV.LVL,1	;EVALUATE depth for nesting
	DEFIN	EVALFL,1	;EVALUATE verb flag word
	DEFIN	EVNXTS,1	;Tag for jrst on match failure in selection set
	DEFIN	EVDONE,1	;Tag for jrst after completing imperative stmt
	DEFIN	EVCOND,1	;Condition-name scanned
	DEFIN	EVNOT,1		;'NOT' scanned
	DEFIN	EVLNCP,1	;LN, CP of expression scanned for SO
	DEFIN	EV.TAB,EV.STK	;Table to hold parameters if nest EVALUATE's
	DEFIN	RMFLG,1		;Ref. Mod. - flag word
	DEFIN	RMOPND,2	;Ref. Mod. - store operand being modified
	DEFIN	RMOPR,2		;Ref. Mod. - store current verb's op code
	DEFIN	NBRSUB,1	;Hold count of nbr of subs required for a field
	DEFIN	ATGFLG,1	;Set to -1 if ADD TO see so we can handle GIVING
	DEFIN	PEREPR,1	;[1553] Flag END-PERFORM needs no op if -1
	DEFIN	SCPTRM,1	;[1553] An END-XXX scope term. seen if -1 or 1
	DEFIN	ENDTOK,1	;[1553] Token of the last END-XXX scanned
	DEFIN	EWFLG,1		;[1553] Flag ELSE or WHEN seen if -1
	DEFIN	INIDAT,1	;[1600] DATAB pointer of INITIALIZE counter
	DEFIN	INIVAL,1	;[1600] VALTAB of "1" for INITIALIZE dummy sub
	DEFIN	REPSUB,1	;[1600] Number of subscripts for REPLACING item
	HIGHD==.
;AREA USED BY PHASE E WHICH MAY BE OVERLAYED BY PHASE F

	RELOC OVLAY

	SETVAL EINITL,.		;FIRST PHASE E WORK LOC TO CLEAR UPON INITIALIZATION

	DEFIN	INSDAT,1	;DATAB LINK TO INSPECT CONVERTING DATA-NAME
	DEFIN	RPWDPR,1	;[1433] THE PAGE ROUTINE IS A DUMMY ROUTINE
	DEFIN	LITNN,1		;ADDRESS OF 1ST ARG
	DEFIN	M.ARGP,1	;CURRENT MCS ARGUMENT
	DEFIN	M.SIXL,1	;0=ASCII LITERAL, ELSE=SIXBIT LITERAL
	DEFIN	M.STR,1		;NON-0 IF SPECIAL STRING/UNSTRING ITEM
				;   E.G., STRING SOURCE-ITEM OR DELIMITER
				;   WHICH GET SPECIAL SUBSCRIPT TREATMENT
	DEFIN	SSU.FL,1	;FLAGS TO BE PUT INTO SUBSCRIPT BLOCK
				; FOR SPECIAL STRING/UNSTRING ITEMS.
	DEFIN	SSU.MD,1	;PLACE TO SAVE MODE WHILE DOING MXAC.
	DEFIN	SSU.CT,1	;COUNT OF SUBSCRIPTS THAT NEED SPECIAL
				; HANDLING.
	DEFIN	SSU.PT,3	;POINTERS TO THE PARAMETERS FOR
				; SUBSCRIPTS THAT GET HANDLED SPECIAL.
	DEFIN	NODPPF,1	;FLAG TO INDICATE THAT THIS DATANAME MAY
				; NOT HAVE ANY DECIMAL PLACES OR BE P-SHIFTED
	DEFIN	UUOSV%,1	;SAVE UUO FOR CONVERSION TO PUSHJ
	DEFIN	UUINC%,1	;SAVE UUO INCREMENT FOR CONVERSION
	DEFIN	LITASY,1	;IF -1 LITERAL TABLE BEING COPIED TO ASY
	DEFIN	MSKTMP,4	;AREA TO BUILD EDIT MASK TO DISPLAY
				;NUMERIC DATA ITEMS
	DEFIN	CURSIZ,1	;CURRENT SIZE OF LITERAL [167]
	DEFIN	LITERR,1	; [374] IF NON-ZERO ELITERAL TO BE CONVERTED OUT OF BOUNDS FOR CONVERSION
	DEFIN	XWDRH,1		;USED BY XWDGEN
	DEFIN	EPSECT,1	;TABLE-LINK TO PREVIOUS SECTION
	DEFIN	EPPARA,1	;TABLE-LINK TO PREVIOUS PARAGRAPH
	DEFIN	ESIZEZ,1	;SIZE OF OPERAND BEING USED IN A "MOVE" SUB-GENERATOR
	DEFIN	EWORDB,1	;NUMBER OF FULL WORDS IN OPERAND
	DEFIN	EREMAN,1	;REMAINING CHARACTERS NOT INCLUDED IN EWORDB
	DEFIN	EMASK,1	;A MASK BEING CREATED BY "MOVE" SUB-GENERATOR
	DEFIN	OPERND,1	;LH HAS "A" OPERAND, RH HAS "B" OPERAND DURING "MOVE"
	DEFIN	EIMPPC,1	;PC FOR RUN-TIME IMPURE PARAMETERS
	DEFIN	EALTPC,1	;PC FOR RUN-TIME ALTER TABLE
	DEFIN	EALTMX,1	;SIZE OF RUN-TIME AREA FOR ALTERS OF SEGS > 49
	DEFIN	ETEMPC,1	;PC FOR RUN-TIME TEMPS
	DEFIN	ETEMAX,1	;SIZE OF RUN-TIME TEMPORARY AREA
	DEFIN	EAC,1	;CURRENT ACCUMULATOR BEING USED BY GENERATED CODE
	DEFIN	LITHLD,20	;[FCCTS NC105] TO HOLD A NUMERIC LITERAL DURING CONVERSION
	DEFIN	ERESDP,1	;NUMBER OF DECIMAL PLACES IN ARITHMETIC RESULT
	DEFIN	ESAVDP,1	;[466] NUMBER OF DECIMAL PLACES SHIFTED FOR COMPUTATION.
	DEFIN	ESAVAC,4	;TO HOLD AC'S WHEN CALLING MOVGEN

	DEFIN	EINTO,<OPNSIZ+OPNMAX> ;OPERANDS FOR READ..INTO OR RETURN..INTO
	DEFIN	EINTR,2	;[245] INTO FOR RPWGEN
	DEFIN	PTRHLD,1	;[1027] POINTS TO CURRENT ENTRY IN READ INTO TABLE
	DEFIN	THISPH,1	;CURRENT OFFSET INTO PTRHLD
	DEFIN	EDEPFT,1	;[605] STORE FILE-TABLE POINTER IF WE NEED TO RESTORE DEPENDING ITEM
	DEFIN	NEGCMP,1	; [360] NEGATE FINAL OUTPUT FOR COMPUTE SW
	DEFIN	ESZERA,1	;TO SAVE SPECIAL TAG FOR TRUE PATH OF SIZE ERROR
	DEFIN	ENDIFT,1	;THE TAG TO GENERATE AT "ENDIF"
	DEFIN	ESAVEA,EFLAGX+1	;TO SAVE "A" PARAMETERS
	DEFIN	ESAVEB,EFLAGX+1	;TO SAVE "B" PARAMETERS
	DEFIN	ESAVES,2*EFLAGX+2	;TO SAVE PARAMETERS DURING SUBSCRIPT GENERATION
	DEFIN	ESAVER,EFLAGX+1	;TO HOLD "B" PARAMETER DURING "RESULT"
	DEFIN	ESAVMA,2*EFLAGX+2	;TO SAVE PARAMETERS DURING MOVES
	DEFIN	ESAVRW,EFLAGX+1	;TO HOLD 'B' PARAM FOR RPW
	SETVAL	ESAVDV,ESAVRW	;TO HOLD "B" DURING DIVIDE INTO SERIES
	DEFIN	ESAVSC,2*EFLAGX+2	;TO SAVE EBASEA&EBASEB DURING 'SEARCH'
	DEFIN	ESAVTT,EFLAGX+1	;TO SAVE 'A' PARAMETERS DURING 'MOVE A TO B1,B2'
	DEFIN	ESAVBI,EFLAGX+1	;[1067] TO SAVE 'B' PARAMETERS DURING 'IF'
	DEFIN	AINTEM,1	;-1 IF ESAVTT HAS 'A' PARAMETERS FOR MOVE
	DEFIN	SAVEPP,1	;TO HOLD PUSHDOWN POINTER AT START OF EXPRESSION
	DEFIN	ELITHI,1	;HI-ORDER WORD OF A 2-WORD LITERAL
	DEFIN	ELITLO,3	;LOW-ORDER WORD  "      "       "
				;PLUS TWO EXTRA WORDS IN CASE 4-WORD LITERAL
	DEFIN	EOPHLD,1	;TO HOLD LN&CP OF OPERATOR DURING EXPRESSIONS
	DEFIN	ECARRY,1	;NUMBER OF CARRIES INTO HI-ORDER DIGIT IN ARITHMETICS
	DEFIN	OPLINE,1	;LN&CP OF OPERATOR
	DEFIN	ECTRUE,1	;TAG ADDRESS FOR TRUE PATH OF "IFC"
	DEFIN	ECFALS,1	;TAG ADDRESS FOR FALSE PATH OF "IFC"
	DEFIN	ECNAME,2	;HOLDS 2-WORD OPERAND FOR DUMMY "B" OF "IFC"
	DEFIN	EXPBEG,1	;RELATIVE LOC OF EOPNXT WHEN EXPRESSION STARTED
	DEFIN	ARGCTR,1	;COUNTER FOR CALL ARGS
	DEFIN	SUBLST,1	;LITERAL ADDR OF LIST OF SUBPROGRAMS CALLED
	DEFIN ENTAGS,1	;ENTRY POINT JRST TAG
	DEFIN ARGPTR,1	;%PARAM ADDR OF CALLER'S ARG PTR
	DEFIN ELNKSF,1	;FLAG SET IF CURRENT OPERAND IS IN LINKAGE SECTION
	DEFIN HLDBRO,1	;[1300] TEMP FOR REDEFINES IN LINKAGE SECTION
	DEFIN HLDEOP,1	;HOLD CUREOP WHILE WORKING ON SUBSCRIPTS
	DEFIN CONCTR,1	;COUNTER FOR CONDITION NAME VALUES
	DEFIN ECNBP,1	;BYTE POINTER TO NEXT CONTAB HALF-WORD
	DEFIN ECSTEP,1	;A TAG ADDRESS FOR INTERMEDIATE BRANCH OF COMPLEX "IFC"
	DEFIN ECXTRA,1	;A TAG ADDRESS FOR INSTRUCTION FOLLOWING COMPLEX "IFC"
	DEFIN TAGTRU,1	;%TAG TO WHICH TO GO IF CONDITION TRUE
	DEFIN ESAVOP,1;
	DEFIN ENOCC1,1	;COUNTER USED BY SUBSCRIPT GENERATOR
	DEFIN ENOCC2,1	;ANOTHER COUNTER USED BY SUBSCRIPT GENERATOR
	DEFIN SUBNUM,1	;NUMBER OF SUBSCRIPTS
;; USED BY INLINE SUBSCRIPT GENERATOR:
	DEFIN SSMODE,1	;USAGE MODE OF THE VARIABLE BEING SUBSCRIPTED
	DEFIN BASITM,1	;XWD EINCR,EBASE OF ITEM BEING SUBSCRIPTED
			; (IF USAGE IS COMP)
	DEFIN SUBNM1,1	;NUMBER OF THE SUBSCRIPT WE'RE LOOKING AT
	DEFIN DEPITM,1	;DEPENDING ITEM INFO (OR 0)
	DEFIN SUBITM,1	;SUBSCRIPT ITEM INFO
	DEFIN SSMACV,1	;SIMULATED RUNTIME AC VALUE
	DEFIN SSMACF,1	;FLAG (-1 = SIMULATING, VALUE IN SSMACV), ELSE 0
	DEFIN NOIDVF,1	;-1 IF NO IDIVI NEEDED
	DEFIN ZEROSB,1	;-1 IF NO SUBSCRIPTS
;; END OF AREA USED BY INLINE SUBSCRIPT GENERATOR
	DEFIN SUBCON,1	;INPUT CONSTANT FOR SUBSCRIPT GENERATOR
	DEFIN USE510,1	;-1 IF SUBSC ROUTINE SHOULD LEAVE BYTE PTRS IN
			;ACS 5,10
	DEFIN SUSEAC,1	;AC VALUE TO PUT SUBSCRIPT IN (OR 0)
	DEFIN IBPFLG,1	;-1 IF BYTE PTR LEFT BY SUBSCRIPT GENERATOR
			;WILL BE ILDB'D OR IDPB'D.
	DEFIN MAKBPB,1	;-1 TO TELL MBYTPA AND MBYTPB TO PUT A BYTE PTR IN
			;LITAB THAT CAN BE "LDB'D" FROM.
	DEFIN PCXPTR,1	;XWD <LOC OF "A" PTR>,<LOC OF "B" PTR>
			; USED BY MOVGEN,CMNGEN,IFGEN FOR MOVE/COMPARE
			; OF 1 BYTE.
;;USED BY GETNB ROUTINE AND FRIENDS FOR THE "USE LARGER BYTES"
; OPTIMIZATION
	DEFIN USENBT,1	;-1 IF SUBSCR SHOULD USE LARGER BYTES
			; (MULTIPLY # BITS BY C(NBYTES).)
	DEFIN NBYTES,1	;VALUE RETURNED BY GETNB
	DEFIN ONLYEX,1	;-1 TO TELL SUBSCR TO NOT GENERATE ANY CODE
			;AND RETURN VALUE IN S1SIZ
	DEFIN ALSTMP,1	;-1 TO TELL SUBSCR TO PUT ALL SUBSCRIPTS INTO %TEMP,
			; EVEN IF THEY ARE COMP.
	DEFIN S1SIZ,1	;SIZE (SMALL BYTES) OF ELEMENTARY SUBSCRIPTED ITEM
	DEFIN NCHARS,1	;NUMBER OF CHARACTERS BEING MOVED (INPUT TO GETNB)
;; END OF AREA USED BY GETNB...
	DEFIN MOVEDN,1	;FOR LONG MOVES, -1 IF ALL MOVE CODE GENERATED
			; THAT IS NECESSARY
	DEFIN INDIND,1	;FOR LONG MOVES, THIS IS THE INCREMENT WHICH
			; IS ADDED TO THE STARTING INCREMENT
	DEFIN SAVENW,1	;FOR LONG MOVES, # OF FULL WORDS BEING MOVED IN THE
			; "MIDDLE PART" OF THE MOVE
	DEFIN USEXJR,1	;FLAG FOR XFRGEN TO USE "XJRST" INSTEAD OF "JRST"
			; SO OPTIMIZER DOESN'T TRY TO FIDDLE WITH THEM
	DEFIN HRRIFL,1	;GEN "HRRI" NOT "HRRZI" AT GMOV7B
;
	DEFIN DPITM,1	;FOR CMNGEN ROUTINE "SZDPVA" AND "SZDPVB"
	DEFIN DPLNK,1	; FOR LNKSET TO DEPENDING VARIABLE
	DEFIN DPVAR,1	; SIZE OF DEPENDING VARIABLE
	DEFIN DEPVB,1	; SET TO AC USED IF SIZE WAS SETUP, ELSE SET TO -1
	DEFIN CONVSV,1	;IF NON-ZERO, MUST PRESERVE THIS RUNTIME AC
	DEFIN SAVPR0,1	;-1 IF SZDPV? MUST PRESERVE %PARAM+0
			; THIS IS ALWAYS RESET TO 0 BY SZDPV?
;
	DEFIN NODEPV,1	;SET TO -1 IF DEPENDING VARIABLE NOT ALLOWED FOR
			; THIS ITEM  (SEE MSCGEN)
	DEFIN WDPITM,1	;LH = -1 IF WE MUST PRESERVE %PARAM+0
			;RH = LINK TO DEPENDING ITEM AT WRITE. UUO, 0 IF NONE
	DEFIN SUBINP,1	;SET TO -1 TO TELL B1PAR THAT THE GENERATED PARAMETER
			; MUST NOT BE PUT INTO LITTAB, BECAUSE IT WILL BE
			; MODIFIED AT RUNTIME
	DEFIN ERCNT,1	;COUNT OF NUMBER OF RESULTS
	DEFIN ETEMPR,2	;USED BY RESULT GENERATOR--CONTAINS ADDRESS OF TEMP
	DEFIN RESTYP,1	;RESULT TYPE
	DEFIN ESMAX,1	;MAXIMUM NUMBER OF SUBSCRIPTS ALLOWED FOR AN ITEM
	DEFIN REMPAR,1	;PARAMETERS FOR "REMAINDER"
	DEFIN ADDTMP,1	;USED TO KEEP TRACK OF SIZE OF INTERMEDIATE TEMP IN ADD SO WE CAN USE D.P. IF REQUIRED
; THE FOLLOWING ARE USED WHEN DIVISION IS BOTH ROUNDED AND HAS REMAINDER
	DEFIN REMRND,1	;ADDRESS OF EXTRA TEMP IF REMAINDER AND ROUNDING BOTH
	DEFIN REMRN1,1	; AND INCREMENT IF ROUNDING & REMAINDER
	DEFIN SGNREM,1	;REMAINDER MAY BE NEGATIVE
	DEFIN SGNDIV,1	;DIVISOR MAY BE NEGATIVE
; (END)
	DEFIN EMULSZ,1	;IF NON-ZERO, THERE ARE MULTIPLE RESULTS WITH SIZE ERROR
	DEFIN EMOVHL,1	;CONTAINS INSTRUCTION TO MOVE HIGH OR LOW VALUE TO MEMORY
	DEFIN ECONLJ,1	;CONTAINS AC WHICH CONTAINS AN ASCII CONSTANT, LEFT JUST
	DEFIN ECONRJ,1	;CONTAINS AC WHICH CONTAINS AN ASCII CONSTANT, RIGHT JUST
	DEFIN ESAVSW,1	;SAVE "SW" (USED BY SUBSCRIPTOR)
	DEFIN ESAVDT,1	;SAVE "DT" (USED BY SUBSCRIPTOR)
	DEFIN ESAVAD,1	;SAVE INCREMENT FOR SUBSCRIPT OUTPUT
	DEFIN ESAVMD,1	; SAVE MODE OF FATHER FOR SUBSCRIPTING.
	DEFIN EDITW1,1	;FIRST OF TWO WORDS TO HOLD "XWD" DURING EDITED MOVES
	DEFIN EDITW2,1	;SECOND    "
	DEFIN EDITW3,1	;TO HOLD OP-CODE AND ADDRESS DURING EDITED MOVE
	DEFIN ERECSZ,1	;SIZE OF AN OUTPUT RECORD (FOR WRITE)
	DEFIN EREM0,1	;FIRST ADDRESS OF DIVIDE 'RESULT' OPERAND
	DEFIN EREM1,1	;LAST ADDDRESS OF DIVIDE 'RESULT' OPERAND
	DEFIN EREM2,1	;FIRST WORD OF DIVIDE 'RESULT' OPERATOR
	DEFIN EREM3,1	;LAST ADDRESS OF FIRST OPERAND AFTER DIVIDE 'RESULT'
	DEFIN EREM4,1	;FIRST WORD OF FIRST OPERATOR AFTER DIVIDE 'RESULT'
	DEFIN CUROPP,1	; 0 NORMALLY, OR POINTER TO OPERAND WHEN OPERND
			;MAY NOT BE SETUP CORRECTLY (E.G., WHEN MOVING
			;AN OPERAND TO TEMP)
IFN DBMS, DEFIN DBLITP,1 ;[656] HOLDS POINTER TO LITERAL IN DBARGS (COBOLE)

	SETVAL ESORTL,.	;FIRST LOCATION ZEROES UPON SEEING "SORT"
	DEFIN ESUSE,2	;"USING" OPERAND FOR SORT
	DEFIN ESGIV,2	;"GIVING" OPERAND FOR SORT
	DEFIN ESORTF,2	;OPERAND OF "SORT" OPERATOR
	DEFIN ESINP,4	;LIKEWISE FOR "INPUT PROC"  (SECOND FOR "THRU")
	DEFIN ESOUTP,4	;LIKEWISE FOR "OTTPUT PROC"
	DEFIN ESTAG1,1	;%TAG NUMBER FOR START OF "BUILD KEY" ROUTINE
	DEFIN ESTAG2,1	;%TAG NUMBER FOR FIBST INST AFTER "BUILD KEY"
	DEFIN ESTAG3,1	;%TAG NUMBER FOR "READ" IN "USING" CODE
	DEFIN ESTAG4,1	;%TAG NUMBER FOR "AT END" CODE FOR "USING"
	DEFIN ESTAG5,1	;%TAG NUMBER FOR "WRITE" IN "GIVING" CODE
	DEFIN EKEYSZ,1	;NUMBER OF WORDS TO CONTAIN SORT KEYS
	DEFIN EKEYLC,1	;LOCATION, RELATIVE TO IMPPAR, TO CONTAIN NEXT KEY
	DEFIN EKEYNO,1	;NUMBER OF KEYS SEEN
	DEFIN EUSENO,1	;NUMBER OF USING FILES SEEN
	DEFIN EGIVNO,1	;NUMBER OF GIVING FILES SEEN
	DEFIN EVTFPT,1	;FLAGGED ADDRESS OF TRUE/FALSE FLAG FOR EVALUATE
	DEFIN EASSAV,1	;UNFLAGGED ADDR OF T/F FLAG FOR EVALUATE
	DEFIN EVSSTM,1	;START POSITION FOR EVALUATE IN TEMTAB TABLE
	DEFIN EVSSPM,1	;TO SAVE ADDRESS OF %PARAM TABLE FOR EVALUATE SS'S
	DEFIN RMOFF,1	;Ref. Mod. - adjustment to EINCRX,,ERESX
	DEFIN RMLEN,1	;Ref. Mod. - redefined length
	DEFIN RMFLAG,1	;Ref. Mod. - flag word
	DEFIN RMFLG2,1  ;Ref. Mod. - second flag word
	DEFIN RMOPPAR,1	;[1561] Ref. mod. - count of open parens
	DEFIN EVALSN,1	;"IN EVALUATE" FLAG
	DEFIN EVWHSN,1	; IN EVALUATE ALL SELECTION SUBJECTS HAVE BEEN PROCESSED
	DEFIN EVSOCN,1	;COUNT OF SELECTION OBJECTS ON CURRENT "WHEN" FOR EVALUATE
	DEFIN EVTFOP,1	;FLAG TO TELL IFGEN THAT PREVIOUS OPERATOR WAS WAS EVTRUE
	DEFIN EVQWIK,1	;SET TO SKIP RETEST OF SUBSCRIPTS IN SELECTION SUBJECTS
	DEFIN AKTHLD,1	;TO HOLD CURRENT PTR TO AKTTAB IN ERNR3A RTN
	DEFIN ESMAXR,1	;MAX. RECORD SIZE OF SORT FILE IN SD
	DEFIN ESCOLS,1	;ADDRESS OF SORT/MERGE COLLATING SEQUENCE
	DEFIN EKREPF,1		;REPEAT CURRENT KEY UNTIL FULLY BUILT
	SETVAL ESORTH,.-1	;LAST LOCATION ZEROED UPON SEEING "SORT"
	DEFIN EMRGFL,1	;-1 IF MERGE, 0 IF SORT
	DEFIN ESAFLG,1	;-1 LEAVE RESULT IN ACC AND SET EAC TO POINT TO IT
	DEFIN ESRTSN,1	;-1 IF SORT SEEN, NEEDED FOR FIPS FLAGGER
;	DEFIN RWSAV1,1	;COUNT OF REMAINING CONTROL IDENTIFIERS
	DEFIN RWSAV2,1	;LOCATION OF NEXT CONTROL IDENTIFIER
	DEFIN RWSAV3,1	;LH CONTAINS COL# OF LAST ITEM, RH CONTAINS SIZE
	DEFIN RWSAV4,1	;CONTAINS OFFSET FOR CURRENT LINE
	DEFIN RWSAV5,1	;BYTE POINTER TO SUM IDENTIFIER LINK
	DEFIN RWSAV6,1	;COUNT OF REMAINING SUM IDENTIFIER LINKS
	DEFIN RWSAV7,1	;CONTAINS CALL TO EITHER LINE.C OR LINE.D
	DEFIN RWSAV8,1	;IDENTIFIER REFERENCED BY 'SUM'
	DEFIN RWSAV9,1	; INTRA-GROUP CNTR.

	DEFIN RWSV10,1	; [342] LINE INDICATOR
	DEFIN RWSV11,1	;A SUPPRESS CONTROL TAG
	DEFIN RWSV12,1	;SAVED REL LOC OF RPWTAB CF GROUP
	DEFIN RPWLIN,1	;CURRENT ABSOLUTE LINE NUMBER
	DEFIN RWBRKC,1	;%PARAM ADDRESS OF 'BREAK COUNT' FOR AN 'RD'
	DEFIN RWMBRK,1	;%TAG FOR MINOR BREAK ROUTINE FOR 'RD'
	DEFIN EIOOP,1	;I/O OP-CODE (IN RH)

	SETVAL SRCFST,.	;FIRST LOC TO CLEAR DURING 'SEARCH'
	DEFIN SRCLUP,1	;TAG OF FIRST LOC OF A SEARCH LOOP
	DEFIN SRCAE,1	;TAG FOR 'AT END' PATH OF SEARCH
	DEFIN SRCWHN,1	;TAG OF 'WHEN' CLAUSE OF SEARCH
	DEFIN SRCIDX,1	;DATAB LINK TO SEARCH INDEX
	DEFIN SRCIDN,1	;DATAB LINK TO SEARCH TABLE
	DEFIN SRCALL,1	;NON-ZERO IF SEARCH IS 'ALL'
	DEFIN SRCFLG,1	;NON-ZERO IF NOT ALL KEYS SPECIFIED
	DEFIN SRC%I,1	;TAG OF 'INCRMENT' CODE
	DEFIN SRC%E,1	;TAG OF END OF CONDITION TEST
	DEFIN SRCNOC,1	;NUMBER OF OCCURENCES OF TABLE BEING SEARCHED
	DEFIN SRCPAR,1	;%PARAM LOC HOLDING INCRMENT FOR BINARY SEARCH
	DEFIN SRCKYN,1	;NUMBER OF KEYS FOR SEARCHED ITEM
	DEFIN SRCKYL,1	;BYTE-POINTER TO NEXT KEY TABLE-LINK
	DEFIN SRCOPN,1	;NUMBER OF OPERANDS IN 'WHEN' FOR 'SEARCH ALL'
	SETVAL SRCLST,.-1	;LAST LOC CLEARED BY 'SEARCH' GENERATOR
	DEFIN	DCLTAG,1	;[435] SAVE JUMP TO TAG TO GO AROUND DECLARITIVES
	DEFIN	INDCLR,1	;SET TO -1 WHEN IN DECLARATIVES
	DEFIN	INPERF,1	;SET TO -1 WHEN IN PERFORM CONTROL LOGIC
	DEFIN	ESUCNT,1	;COUNT OF FILES OR RECORDS BEING ENQUEUEED
	DEFIN	ESUCT2,1	;ANOTHER COUNTER USED BY SIMULTANEOUS UPDATE
	DEFIN	ESUTAG,1	;TAG FOR THE OPEN STATEMENT
	DEFIN	ESAVW1,1	;USED TO SAVE W1
	DEFIN	ESUFN1,1	;SAVED FILE NAME POINTER
	DEFIN	ESUFN2,1
	DEFIN	ESUTC,1		;SAVED TC
	DEFIN	EUNSTK,20	;STACK FOR STORAGE OF UNAVAILABLE EXITS
	DEFIN	EUNSPT,1	;COUNT OF ENTRIES ON ABOVE STACK
	DEFIN	ESUCVT,1	;IF NON-ZERO, F-T ADDRESS: CONVERSION WAS DONE
				; IN THIS RETAIN OR FREE STMT BECAUSE KEY
				; WAS NOT COMP.
	DEFIN	SVKYDT,1	;SAVE DATAB ENTRY OF RMS REF KEY IN RETAIN
	DEFIN	ERFFLG,1	;FLAG TO INDICATE IF SMU VERB IS RETAIN 
				; OR FREE UNDER ERENQG/ERDEQG TAG

	BISZRF==:.	;FIRST LOCATION TO ZERO AT BEGINNING OF EDIT.B
			;CALL GENERATION
	DEFIN BISMIN,1	;MINUS FLAG.  THE FLAG IS SET TO -1 WHEN
			; EXTRA CODE NEEDS TO BE GENERATED TO TEST
			; FOR AND THEN INSERT A LEADING MINUS.
			; FLAG IS NORMALLY ZERO.
	DEFIN BISBW0,1	;BLANK WHEN ZERO FLAG.  FLAG IS NORMALLY ZERO.
			; IS SET TO THE NUMBER OF CHARACTERS
			; WHEN IT IS NECESSARY TO BLANK FILL
			; LEADING CHARACTERS OF DESTINATION STRING.
	DEFIN BISDST,1	;DESTINATION BYTE POINTER.  NORMALLY ZERO.
			; CONTAINS THE ADDRESS OF THE SAVED DESTINATION
			; BYTE POINTER FOR LEADING SIGN AND BWZ FILL.
	DEFIN BISCNT,1	;CURRENT CHARACTER COUNTER
	DEFIN BISBFS,1	;NUMBER OF CHARACTERS BEFORE  SIGNIFICANCE WAS TURNED OFF.
			;THIS IS NEEDED FOR BWZ.
	DEFIN BISASS,1	;NUMBER OF CHARACTERS AFTER SIGNIFICANCE
			;IS TURNED ON BUT BEFORE DECIMAL POINT.  ALSO NEEDED
			;FOR BWZ.
	DEFIN BISDOT,1	;SET TO 1 IF AN EXPLICIT DECIMAL POINT IS
			;ENCOUNTERED AND A SIGSET WAS ISSUED.  MOST OF TTHESE
			;SPECIAL COUNTERS ARE NEEDED TO REMEMBER THE LOCATION
			;OF THE DEICMAL POINT FOR BWZ "*".
	DEFIN BISFLT,1	;FLOAT CHARACTER IN ASCII 0R 0.
	DEFIN BISGOT,1	;SET TO -1 AFTER 1ST PLACE HOLDER IN BOUTPUT FIELD      
			;HAS BEEN ENCOUNTERED.
			;USED TO DETECT LEADING OR TRAILING SIGNS
	DEFIN BISSGN,1	;INSERT SIGN CODE: 0=NONE, +1=LEADING, OR -1=TRAILING
	DEFIN BISALP,1	;0=ALPHABETIC/ALPHANUMERIC EDIT, -1=NUMERIC
			;	NOTE THAT BWZ FOR A NON-EDITED FIELD IS
			;	DONE AS AN ALPHANUMERIC EDIT SO THAT NONE
			;	OF THE OVERPUNCH SIGNS GET CONVERTED

	BISZRL==:.-1	;LAST LOCATION TO ZERO

	DEFIN BISSIG,1	;-1=SIGNIFICANCE ON BUT NO SIGSET YET, 0=OFF, AND 
			;1=ON AGAIN BAFTER SIGSET
	DEFIN BISFIL,1	;SET TO "*" IF * SUPPRESSION AND 0 OTHERWISE

	DEFIN	PRGEAD,1	;POINTER TO MAIN ENTRY POINTE EXTAB ENTRY
	DEFIN	GODPOV,1	;FLAG.  TURNED ON BY THE GO DEPENDING
				; GENERATOR IF IT HAS TO WORRY ABOUT
				; DISPATCHING INTO ANOTHER SEGMENT.
	DEFIN	GRPFLG,1	; SET TO -1 TO FORCE GROUP MOVE
	DEFIN	IFEAC,1		;HOLD ACC FOR "A" IF IN ACCS DURING IF
	DEFIN	SUBFLG,1	;[***] EXTRA FLAGS TO SET IN SUBSCRIPTOR
	DEFIN	STEMPC,1	;SAVE %TEMP PC BETWEEN OPERANDS
				; (ETEMPC IS SET TO ZERO IN COBOLE
				; AT EVERY OPERAND)
	DEFIN	INSPSL,1	;WHERE THE INSPECT BYTE PTR IS...
	DEFIN	IARG11,1	; FIRST WORD OF INSPECT ARG LIST
				;LH= -NUM ARGS, RH= FLAGS
	DEFIN	INARGP,1	;POINTER INTO TEMTAB TO FIRST INSPECT ARGUMENT
				; HEAD OF LINKED LIST. SEE MSCGEN FOR FORMAT.
	DEFIN	ITLPTR,1	;POINTER INTO TEMTAB FOR ITEMS TO ADD AFTER
				; INSPECT GENERATION IS DONE
	DEFIN	INSPTF,1	;-1 IF TALLYING ARG LAST SEEN, 0 IF REPLACING
	DEFIN	CURIRG,1	;POINTER INTO TEMTAB FOR CURRENT ARGUMENT
	DEFIN	IOPFLG,1	;OPERAND FLAGS FOR INSPECT ARG
	DEFIN	SERSIZ,1	;INSPECT SEARCH STRING SIZE
	SETVAL	INSPLT,MSKTMP	;4 WORDS TO HOLD LITERALS IN INSPECT [ANS74]
	DEFIN	TEMADP,1	;RELATIVE LOCATION IN TEMTAB OF SAVED OPERAND
				; USED BY MATGEN TO GET POINTER TO OPERAND
				; TO STORE INSPECT TALLYING ARG IN
	DEFIN	CMPLVL,1	;NO. OF DATUMS BEFORE = IN COMPUTE SERIES
	DEFIN	CMPTMP,1	;TEMP USED TO HOLD VALUE IN COMPUTE SERIES
	DEFIN	CMPEOP,1	;LOC OF VALUE IN EOPTAB IN COMP SERIES

	DEFIN	COLSQS,1	;SIXBIT COLLATING SEQUENCE
	DEFIN	COLSQA,1	;ASCII COLLATING SEQUENCE
	DEFIN	COLSQE,1	;EBCDIC COLLATING SEQUENCE
	DEFIN	COLTMP,400	;TABLE TO BUILD COLLATING SEQUENCE
	COLZRL==:.-1		;LAST LOC TO ZERO
	DEFIN	PREVW1,1	;HOLDS W1 (LINE NUMBER) OF PREVIOUS OPERATOR
	DEFIN	PERFCD,1	;DEBUG CODE FOR PERFORM (COULD BE SORT ETC)
	DEFIN	DBSPIF,2	;TABLE-LINK,,DEBUG-ROUTINE IF CODE TO BE GENERATED AFTER SPIF.
				;W1 (I.E. LINE NUMBER) FOR DEBUG STUFF
	DEFIN	GDEBSW,1	;IF NON-ZERO LOOK AT DEBTAB TO GENERATE CODE

	DEFIN	EDEBDA,1	;DEBUG INFO FOR DATAB "A"
	DEFIN	EDEBPA,1	;PARAMS FOR ABOVE
	DEFIN	EDEBGA,1	;PARAM,,<USE-PROCEDURE>

	DEFIN	EDEBDB,1	;DEBUG INFO FOR DATAB "B"
	DEFIN	EDEBPB,1	;PARAMS FOR ABOVE
	DEFIN	EDEBGB,1	;PARAM,,<USE-PROCEDURE>

	SETVAL	EDEBDX,0
	SETVAL	EDEBPX,1
	SETVAL	EDEBGX,2

	DEFIN	SUBPBL,1	;ADDR OF %PARAM BLOCK FOR THIS SUBSCR. ITEM
	DEFIN	CURXSQ,1	;SEQUENCE # OF EXPRESSIONS, USED BY FIPS FLAGGER
	DEFIN	LSTXSQ,1	;SEQUENCE # OF EXPRESSIONS AT LAST "IF".
	DEFIN	EXPLNC,1	;LN & CP (W1) OF LAST EXPRESSION
	DEFIN	DIVSRS,1	;NO. OF OPERANDS IN DIVIDE INTO SERIES
	DEFIN	DIVTMP,1	;ADDRESS OF TEMP HOLDING "A" OPERAND IN DIVIDE SERIES
	DEFIN	ADCRLF,1	;ADD CR-LF NUL TO LITERAL FOR DISPLAY
	DEFIN	OVFLFL,1	;CLEARED WHEN OVFLO. CLEARED, SET BY DIVIDE
	DEFIN	IMCONS,1	;CREATE IMMEDIATE MODE CONSTANT AND RETURN VALUE HERE
	DEFIN	FLTDIV,1	;[566] SET TO -1 WHEN RESULT OF DIVIDE IS COMP-1
	DEFIN	NOFLOT,1	;SET TO -1 TO PREVENT FLOATING EXPONENT IN CEXP
	DEFIN	ECNTA,1		;[717] COUNT OF STRING PIECES IN "A" OPERAND
	DEFIN	IOFLGS,1	;FLAGS FOR I/O ARG LIST (V12B AND LATER)
	DEFIN	LPCSAV,1	;SAVED LITERAL PC, WHEN GENERATING MULTI-WORD
				; LITERALS THAT MAY BE POOLED
	DEFIN	C2MANT,3	;MANTISSA OF COMP-2 LITERAL IN PHASE E
	DEFIN	KEYREF,1	;KEY OF REFERENCE FOR AN ISAM READ
	DEFIN	KEYRLN,1	;LENGTH OF KEY OF REFERENCE (FOR RMS START)
	DEFIN	KEYADR,1	;ADDRESS OF KEY BUFFER (FOR RMS $GET)
	DEFIN	ROUCAL,1	;(LIBOL) ROUTINE TO CALL..
;NOTE: ADVPR1 AND ADVPR2 HAVE TO BE KEPT TOGETHER BECAUSE THEY ARE USED
; OPERANDS OF DOUBLE PRECISION MOVES.
	DEFIN	ADVPR1,1	;HOLD PARMS FOR ADVANC/POS FOR RMS ASCII STM FILES
				; ADVPR1 HOLDS TYPE OF ADV/POS
	DEFIN	ADVPR2,1	;HOLD PARMS FOR ADVANC/POS FOR RMS ASCII STM FILES
				; ADVPR2 HOLDS HOW MUCH/SOURCE FOR ADV/POS
	DEFIN	NOTLN,1		;LN OF "NOT" FOR FIPS FLAGGER
	DEFIN	NOTCP,1		;CP OF "NOT"
	DEFIN	INSFLG,1
	DEFIN	NOPOOL,1
	DEFIN	INS1EC,1	;POINTER TO LITERALS FOR (AFTER AND BEFORE)
	DEFIN	INS2EC,1	; PHRASE OF INSPECT STATEMENT
	DEFIN	INS1BY,1	;POINTS TO FIRST BYTE POINTER FOR AFTER/BEFORE
	DEFIN	INS1OP,1
	DEFIN	INS2OP,1
	SETVAL EINITH,.-1	;LAST PHASE E WORK LOC CLEARED UPON INTIALIZATION
	SETVAL ESAVAX,ESAVEA+EFLAGX
	SETVAL ESAVBX,ESAVEB+EFLAGX
	SETVAL EBASBX,EBASEB+EFLAGX
	SETVAL EBASAX,EBASEA+EFLAGX
	SETVAL ESAVSX,ESAVSB+EFLAGX
	SETVAL ESAVRX,ESAVER+EFLAGX
	SETVAL ESVMAX,ESAVMA+EFLAGX
	SETVAL ESAVMB,ESAVMA+EFLAGX+1
	SETVAL ESVMBX,ESAVMB+EFLAGX
	SETVAL ESVSCX,2*EFLAGX+ESAVSC+1	;[1315] [1140]
	SETVAL ESAVTX,ESAVTT+EFLAGX
	SETVAL ESVIBX,ESAVBI+EFLAGX	;[1067]
	SETVAL ESAVSB,ESAVES+EFLAGX+1
	SETVAL ESVDVX,ESAVDV+EFLAGX
	DEFIN	INZDAT,1	;TOP LEVEL DATAB SAVED IN INITIALIZE VERB
	DEFIN	VSUBS,1		;[1600]NUMBER OF DUMMY "1" SUBS FOR INITIALIZE
	DEFIN	GSUB,1		;[1600]GIVEN SUBS FROM INITIALIZE PHASE D
	DEFIN	OCCTAG,1	;[1600]SAVED TAG FOR INITIALIZE OCCURS LOOP
	DEFIN	REPFLG,1	;[1600]ITEM OF MATCHING CLASS FOUND IF -1
	DEFIN	CURVRB,1	;CURRENT VERB FOR END-x CODE

;THE FOLLOWING PHASE E LOCATIONS ARE ZEROED AT EACH SEGMENT BREAK.

	SETVAL EZEROL,.;

	DEFIN ESMASK,1	;ADDRESS OF DUMMY MASK USED FOR "MOVE" CONVERSIONS
	DEFIN EAS3PC,1	;PROGRAM COUNTER FOR NON-RESIDENT AREA
	DEFIN ELITPC,1	;RUN-TIME ADDRESS OF NEXT LITERAL FOR POOL
	DEFIN EASRJ,1	;RUN-TIME ADDRESS OF ASCII CONSTANT "     "
	DEFIN EAZRJ,1	;RUN-TIME ADDRESS OF ASCII CONSTANT "00000"
	DEFIN EAQRJ,1	;RUN-TIME ADDRESS OF ASCII CONSTANT '"""""'
	DEFIN ESQUOT,1	;RUN-TIME ADDRESS OF SIXBIT CONSTANT '""""""'
	DEFIN ESZERO,1	;RUN-TIME ADDRESS OF SIXBIT CONSTANT '000000'
	DEFIN EESPCE,1	;RUN-TIME ADDRESS OF EBCDIC CONSTANT '    '
	DEFIN EEZERO,1	;RUN-TIME ADDRESS OF EBCIDC CONSTANT '0000'
	DEFIN EEQUOT,1	;RUN-TIME ADDRESS OF EBCDIC CONSTANT '""""'
	DEFIN EEHIGH,1	;RUN-TIME ADDRESS OF XWD 377377,377377 (EBCDIC HIGH VALUES.)
	DEFIN C3ZROS,1	;[1307] [1141] RUNTIME ADDRESS OF A COMP-3 ZERO PIC S9(18).
	DEFIN C3ZROU,1	;[1307] [1141] RUNTIME ADDRESS OF A COMP-3 ZERO PIC 9(18).
	DEFIN C3HIVL,1	;RUNTIME ADDRESS OF A COMP-3 HIGH-VALUES PIC S9(18).
	DEFIN C3LOVL,1	;RUNTIME ADDRESS OF A COMP-3 LOW-VALUES PIC S9(18).
	DEFIN EPWR10,^D36	;RUN-TIME ADDRESSES OF POWERS OF 10
	DEFIN RPWR10,^D10	;RUN-TIME ADDRESS OF ROUNDING VALUES
	DEFIN EFPCNV,^D21	;RUN-TIME ADDRESS OF FLOATING-POINT POWERS OF 10
	DEFIN EF2CNV,^D21	;RUN-TIME ADDRESS OF D.P. FLOATING-POINT POWERS OF 10
	DEFIN CF2CNV,1	;RUNTIME ADDRESS OF COMP-2 TO COMP-1 CONVERSION CONSTANT
	DEFIN EHIVAL,1	;RUN-TIME ADDRESS OF HI-VALUE LITERAL
	DEFIN ELOVAL,1	;RUN-TIME ADDRESS OF LO-VALUE LITERAL
	DEFIN EFPLOV,1	;RUN-TIME ADDRESS OF LO-VALUE FOR FL. PT.
	DEFIN EAHRJ,1	;RUNTIME ADDRESS OF ASCII HIGH-VALUES
	DEFIN EALRJ,1	;RUNTIME ADDRESS OF ASCII LOW-VALUES
	DEFIN ESHIVL,1	;[722] RUNTIME ADDRESS OF SIXBIT HIGH-VALUES
	DEFIN ESLOVL,1	;[722] RUNTIME ADDRESS OF SIXBIT LOW-VALUES
	DEFIN EELOW,1	;[722] RUNTIME ADDRESS OF EBCDIC LOW-VALUES

	DEFIN	ALITSV,1	;[1077] ADDRESS OF LITERAL BYTE PTR TO SAVE
				;[1077] WHEN LITTAB EXPANDS
	DEFIN	PLITPC,1	;ADDRESS OF POOLED LITERAL
	DEFIN	PLITCT,1	;COUNT OF LITERALS IN BLOCK TO POOL
	DEFIN	PLITPT,1	;POINTER TO STORE LITERALS IN BLOCK TO POOL
	DEFIN	PLITOF,1	;OFFSET INTO LITERAL POOL FOR FIRST COMPARE
	SETVAL	PLITSZ,^D100	;NUMBER OF LITERALS TO BUFFER
	DEFIN	PLITBF,PLITSZ	;BUFFER OF LITERALS TO POOL

	SETVAL EZEROH,.-1;

	HIGHE==.
;AREA USED BY PHASES F & G

	RELOC OVLAY
	DEFIN EXTCNT,1		;NUMBER OF XWD'S FOR NON-RESIDENT GLOBALS
	DEFIN HEADER,30		;HEADING LINE FOR LISTING
IFE TOPS20,<
	DEFIN HEADR2,7		;HEADER FOR SECOND LINE OF LISTING
>
IFN TOPS20,<
	DEFIN HEADR2,30		;HEADER FOR SECOND LINE OF LISTING
>
	DEFIN COUNTW,1		;COUNT OF WARNING DIAGS
	DEFIN COUNTF,1		;COUNT OF FATAL DIAGS
	DEFIN COUNTV,1	;COUNT OF FLAGGER VIOLATIONS
	DEFIN FIXEDS,1	;SIZE OF EXTRA CODE GENERATED IN RESIDENT SEGMENT
	DEFIN SUBPAG,1	;SUB-PAGE NUMBER


;AREA USED BY PHASE F WHICH MAY BE OVERLAYED

	DEFIN ERATAB,1;		;IOWD TO WORK AREA TO HOLD DIAGS
	DEFIN FAKERA,7		;DIAG MESSAGE FOR BAD DIAG NUMBER
	DEFIN GMAXCP,1		;LARGEST CHARACTER POSITION ALLOWED ON LISTING
	DEFIN RDATLK,1;		;Saved Link to a DATAB item


;AREA USED BY PHASE G WHICH MAY BE OVERLAYED

	DEFIN SAVTAG,1	;SAVE A SPECIAL TAG TO BE PRINTED
	DEFIN TAGOUT,1	;NUMBER OF TAGS LISTED FOR CURRENT LINE, LESS 1
	DEFIN DECSEG,1	;CURRENT SECTION NUMBER RELATIVE TO START OF PROGRAM
	SETVAL	ASYFIL,AS1HDR	;NAME OF ASYFIL CURRENTLY BEING USED
	DEFIN DATGRP,^D20	;TO HOLD WORDS WHICH WILL BE WRITTEN ON A BINARY FILE
	DEFIN FLTC1,1	;EXPONENT OF FLOATING POINT CONSTANT
	DEFIN FLTC2,3	;[762] MANTISSA OF FLOATING POINT CONSTANT
			;[762] SECOND & THIRD WORDS ARE FOR DOUBLE PRECISION
	DEFIN CURREL,1	;RELOCATION FACTOR FOR CURRENT SEGMENT
	DEFIN SYMLC1,1	;ADDRESS OF NEXT FREE ENTRY IN SYMGRP
	DEFIN SYMREL,1	;BYTE POINTER TO RELOCATION BITS IN SYMGRP
	DEFIN 	SYMGRP,^D20	;TEMPORARY STORAGE AREA FOR SYMBOLS FOR BINFIL
	DEFIN LITBAS,1	;STARTING LOCATION OF OBJECT LITERALS
	DEFIN T4BASE,1	;RUN-TIME LOCATION OF "GOTO.."
	DEFIN GAERAS,1	;NUMBER OF ASSEMBLY ERRORS
	DEFIN GHOLD,^D15	;TO HOLD SIXBIT OR ASCII CONSTANT
	DEFIN OVRWRD,1	;WORD COUNT FOR "OVR" FILE

	DEFIN GCREFC,1		;COUNT OF NUMBERS LEFT TO GO IN CREF PRINT LINE
	DEFIN GCREFN,6		;TO HOLD NAME & LINE NUMBER TO BE LISTED IN CREF
	DEFIN OLDCNM,5		;NAME OF LAST ITEM PUT ONTO CREF LISTING

	DEFIN SF1BUF,1;
	DEFIN SF2BUF,1;
	DEFIN SF3BUF,1;
IFN TOPS20,<
	SETVAL SFBUF,SF1BUF
	DEFIN SF1JFN,1
	DEFIN SF2JFN,1
	DEFIN SF3JFN,1
	SETVAL SFJFN,SF1JFN
	DEFIN SF1BH,3
	DEFIN SF2BH,3
	DEFIN SF3BH,3
>
IFE TOPS20,<
	DEFIN SF1BHO,3;
	DEFIN SF2BHO,3;
	DEFIN SF3BHO,3;
	DEFIN SF1BHI,3;
	DEFIN SF2BHI,3;
	DEFIN SF3BHI,3;
>
	DEFIN CRFERA,1	;CONTENTS OF 'PP' WHEN 'CREF' ENTERED IN COBOLG (FOR ERRORS)
	DEFIN CRFEOS,3	;NON-ZERO WHEN A FILE IS AT END-OF-STRING
	DEFIN CRFTS,3	;NUMBER OF STRINGS ON EACH CREF SORT SCRATCH FILE
	DEFIN CRFSTA,3	;NUMBER OF STRINGS TO BE ADDED TO A SORT FILE
	DEFIN CRFLOW,1	;POINTER TO SORT TABLE FOR 'LOWEST' RECORD NOT WRITTEN
	DEFIN CRFPWR,1	;FIRST POWER OF 2 > THAN SORT TABLE SIZE
	DEFIN CRFTAB,1	;ADDRESS OF FIRST ENTRY IN SORT TABLE
	DEFIN CRFTEN,1	;NUMBER OF USED ENTRIES IN SORT TABLE
	DEFIN CRFCUR,1	;NUMBER OF CURRENT OUTPUT FILE (SF1=0, ETC.
	DEFIN CRFSIZ,1	;NUMBER OF ENTRIES IN SORT TABLE
	DEFIN CRFNE,1	;NUMBER OF EMPTY SORT FILES

	DEFIN END.PC,1	;SAVED PC AT END OF RESIDENT
	DEFIN BLKTYP,1	;BLOCK TYPE FOR 'PUTDAT'
	DEFIN SAVBIN,1	;PLACE TO SAVE BINDEV IF OVR FILE WRITTEN
	DEFIN NM.PC,1	;VALUE AND LOCATION OF NAMTAB
	DEFIN DT.PC,1	;VALUE AND LOCATION OF DATAB
	DEFIN PR.PC,1	;VALUE AND LOCATION OF PROTAB
	DEFIN %ES.PC,1	;END OF SYMBOL TABLE
	DEFIN ACSFLG,1	;ALTERNATE CODE SET FLAG
	DEFIN INDFLG,1	;NEXT INST TO BE INDENTED TO SHOW THAT THIS ONE SKIPS

;USED ONLY BY PHASE O

	SETVAL OBEG,.;
	DEFIN IPTAB0,1		;ALWAYS HOLDS A 0
	DEFIN IPTAB,NBACK*2	;# INSTRUCTIONS BEFORE CURRENT ONE
	DEFIN IPCUR,NWINDO	;"CURRENT INSTRUCTION" IS
				; SOMEWHERE IN THIS BLOCK
	DEFIN IPAFT,NFRONT	;MIN # INSTRUCTIONS AFTER CURRENT ONE
	DEFIN IPTAB1,1		;ALWAYS HOLDS A 0
	DEFIN INSTBF,400	;BUFFER OF AS2 FILE - POINTED TO BY IPTAB
	SETVAL	INSEND,.-1	;LAST LOC TO USE IN INSTBF
	DEFIN GCBUF,GCLEN	;GARBAGE COLLECT BUFFER
	DEFIN NXTIP,1		;POINTS TO NEXT PLACE TO PUT AN INSTRUCTION
	DEFIN THISIP,1		;POINTS TO LAST INSTRUCTION WE PUT IN BUFFER
	DEFIN BIPTR,1		;POINTS TO "END" OF INSTBF (LAST UNUSED SPOT)
	DEFIN WANTG1,1		;TAG # WE WANT (PUT A NEW TAG AT TAG+1)
	DEFIN NPCIN,1		;NUMBER OF PC LOCATIONS IN IPTAB AT THIS MOMENT
	DEFIN OTEMP,4		;SOME TEMP LOCS FOR PMATCH TO USE
	DEFIN SAWENT,1		;-1=COBOLO SAW THE MAIN ENTRY POINT

IFN DEBUG,<
	DEFIN TAGLFT,1		;NO. OF TAGS STILL TO OUTPUT
	DEFIN TAGCOL,3		;AOBJN POINTERS TO COLUMNS
	DEFIN TAGOFF,3		;OFFSET TO ROWS
>

IFN TOPS20,<
	DEFIN SAV1JF,1		;SAVE TRUE JFN FOR AS1 FILE
>

	SETVAL	OEND,.-1;

	HIGHF==.

	.XXLST==HIGHE		;ASSUME "E" IS BIGGEST LOWSEG
	IFL <.XXLST-HIGHF>,.XXLST==HIGHF ;NO, "F" IS
	IFL <.XXLST-HIGHD>,.XXLST==HIGHD ;NO, "D" IS
	IFL <.XXLST-HIGHC>,.XXLST==HIGHC ;NO, "C" IS
	SETVAL	LSTCLR,.XXLST-1	;SET LAST LOCATION TO CLEAR ON STARTUP

	END