Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

SUBTTL	Parameter file for RPGII %1

;	Parameter file for RPGII
;
;	This file is assembled along with all other compiler modules to
;	define constants needed by those modules. A listing of this section
;	is only produced with RPGIIA. To change feature test switches, define
;	them as desired in the universal file RPGASM, not here. If you must
;	make changes to this module, note that it will be necessary to
;	reassemble all compiler modules.
;
;	Copyright (C) 1975, 1976, 1977 Robert Currier and Cerritos College
;	All rights reserved
;
;

	EDIT==374
	VERSION==300


	SEARCH	INTERM			; pick up parameters

;Assembly switches

	DEBUG==:DEBUG			; show DEBUG flag gotten from INTERM
	ONESEG==:ONESEG			; show ONESEG flag gotten from INTERM
	SWSET%==:SWSET%			; get compiler switch word
	BIS==:BIS			; get BIS flag (not supported)
	FTSCAN==:FTSCAN			; use SCAN/WILD command scanner (not supported)

;The following switches are known not to work when turned on, but are defined
;here for future times.

	IFNDEF	CREF,<CREF==0>		; CREF listings
	IFNDEF	MAPS,<MAPS==0>		; core maps with listings
	IFNDEF	REENT,<REENT==0>	; compile reentrant code
	IFNDEF	STERLN,<STERLN==0>	; sterling currency
	IFNDEF	BINARY,<BINARY==0>	; binary field handleing
	IFNDEF	FTENEX,<FTENEX==0>	; assemble for TENEX monitor

	%CPU==:%CPU			; 0 = CP166, KA10
					; 1 = KI10
					; 2 = KL10
					; 3 = DEC-20 (i.e. TOPS-20)
	SEARCH	MACTEN, UUOSYM, RPGUNV

	IFE	%CPU-%20,<SEARCH MONSYM>
	IFN	FTENEX,<SEARCH STENEX>

	LIBNAM	(RPGLIB);;		; define name of OTS for this compiler version

	CPUVER				; make sure all parameters set up correctly

;
;	Those who dare swear by the Edit must then benefit or suffer from
;	the consequences of the fixed pattern of destiny that they set in
;	motion. Many such oaths have been sworn in the history of the
;	Edit's existence, but none with such vast and terrible results
;	as those mighty oaths recorded in the pages of this ancient
;	narrative.
;
;				The High History of the Edit
;
;




;[374]	21-May-78 23:47:29	Fix RPGIIC to check for improper end position
;				on O specs, by saving possible size.
;[373]	6-Jan-78 02:09:36	Fix RPGIIA to enter LINK at CCL entry point
;[372]	24-Oct-77 22:09:06	Fix LOKUP to work when no equal indicator is specified.
;[371]	6-OCT-77 21:29:30	FIX ADD O SPECS TO WORK WITH EDIT 357.
;[370]	13-SEP-77 02:15:39	FIX FLOATING DIVIDE CODE FOR CASE WHERE OP2
;				IS A SINGLE PRECISION FIXED POINT
;[367]	28-AUG-77 23:58:28	FIX LOOKUP CODE FOR HIGH OR LOW SEARCH
;[366]	19-Aug-77 22:40:49	Add floating point code to divide to make it work for
;				high precision freaks.
;[365]	17-Aug-77 22:00:34	Fix super-precision multiplication by rounding floating num before
;				fixing.
;[364]	14-Aug-77 23:10:49	Fix rounding on divide by allowing extra digit of
;				precision.
;[363]	6-Aug-77 22:10:37	Fix F?NMC9 in RPGIID to properly set links
;[362]	6-Aug-77 01:10:38	Fix GTF1C1 in RPGIID to properly handle subscripted
;				arrays with names six characters long.
;[361]	1-Aug-77 00:02:18	Add floating code to .MULT in E
;[360]	31-July-77 21:24:28	Fix SHFT5 in GENCOM to handle double precision ok
;[357]	2-July-77 22:56:12	Add code to C to support spacing and skipping entries
;				on OR O specs. Also add new ID. symbols to PURE to support
;				this edit. Related to edit 147 of RPGLIB.
;[356]	1-July-77 01:16:39	Fix debug symbol output so that correct value of %DAT is
;				output to the REL file.
;[355]	30-June-77 22:31:48	Take another crack at making compile time tables work
;				when alternating format is specified.
;[354]	29-June-77 19:56:29	Fix ADD to work properly with double precision result
;				in phase E.
;[353]	4-June-77 01:07:02	Fix double-precision DIV in RPGIIE and GENCOM
;[352]	31-May-77 01:01:37	Remove part of edit 272 in RPGIIE.
;[351]	26-May-77 23:46:29	Make two changes to RPGIIE: Correct UMONTH handleing
;				by spelling it correctly; Make undefined field error (edit 342)
;				handleing work right and give the right error message.
;[350]	26-May-77 01:16:26	Add code to XFOOT in phase E to initialize result
;				field at start of loop.
;[347]	25-May-77 21:51:22	Change the way RPGIIC sets up ID.OR for output lines
;				so that they work when more than one indicator is specified.
;				Also clean up code in area for better listings, and
;				change error message 142 to be more accurate.
;[346]	17-May-77 01:40:47	Fix RPGIIE compile time table code to work when secret
;				flag is set in DA.ALL
;[345]	17-May-77 01:16:77	Remove code from RPGIIE that tries to optimize
;				blocking factor.
;[344]	17-May-77 00:24:16	Add code to LOOKUP to make sure we generate a linear search
;				whenever a subscript is given.
;[343]	16-May-77 00:11:31	Fix phase C to properly reset DA.NPS
;[342]	13-May-77 21:07:38	Add code to phase E to better trap errors caused
;				by undefined fields. Also add error #717 to RPGERR.
;				Also fix phase C to make it stop stashing garbage
;				NAMTAB links so we can use it in phase E change.
;[341]	12-May-77 22:28:17	Change phase B to output an error message when
;				sequential within limits is specified, rather
;				than trying to run code that isn't there.
;[340]	12-May-77 21:23:52	Fix compile time table loading. Also fix
;				CALFIL opening code in phase D to request only 1 buffer.
;[326]-[337]			Reserved
;[325]	16-May-77 21:52:01	LOOKUP code fixed to properly initialize subscript
;				if there is one, and to properly save index when done.
;[324]	17-May-77 00:46:52	RPGIIC and RPGIIE modified to fix problem where subscripted
;				array elements in the 'I' specs were flagged and a bad
;				address was generated for the pointer in the ICH table.
;[323]	13-Apr-77 22:41:48	Fix linear search code by duplicating some code to
;				make sure needed tag is defined. This is fallout
;				of Edit 309. Edit at .LOKLN+8 in LOOKUP.MAC
;[322]	28-June-77 21:17:29	Fix DSPLY op code to work correctly for all cases (DJJ)
;[321]	3-July-77 00:21:08	Correction to edit 271. Save TB before calling NMVRFY. (DJJ)
;[320]				Reserved
;[317]	9-May-77 22:36:34	Expand DATAB and add symbol DA.ISZ for input
;				size for whole arrays on input specs. Install code
;				in RPGIIE and RPGIIC to support it.
;[316]	7-May-77 23:41:07	Change things so we can assemble using MACRO %52
;				without making LINK complain. Change symbol DEVSIZ to be
;				DEVSZ in RPGIIA, IMPURE, and STINFL.
;[315]	7-May-77 22:21:13	Modify LOKUP code generators to output the
;				related table entry and modify LOOKUP to use this
;				pointer rather than the alternate table link.
;[314]	3-May-77 22:15:42	Fix miscellaneous problems such as phas C
;				not properly handleing compile-time arrays and
;				bad error handleing in phase D.
;[313]	1-May-77 20:23:18	Fix RPGIIC to properly set up size of item for
;				a whole array on input specs
;[312]	14-Apr-77 01:09:26	Screw edits 115 and 243 and don't check for
;				word boundary, just allocate the word. It only
;				saves one word anyway, and hardly seems
;				worth the headache of three edits.
;[311]	14-Apr-77 00:17:49	Fix LOOKUP to properly look up pointers for tables
;				when generating code. Fixes at .LOK05+6 and
;				.LOK14+4 in LOOKUP.MAC
;[310]	29-Mar-77 22:14:19	Fix RPGIIB to properly handle comment cards in
;				the extension specifications. Move tag EXTSPC
;				to do this.
;[307]	28-Mar-77 00:36:12	Fix LOKUP to properly work with ordered tables
;				that are not a power of two in size. Also take this
;				oppurtunity to correct some internal documentation.
;[306]	19-Mar-77 00:46:03	Fix RPGIIC to check for decimal positions and
;				set up field size for look-ahead fields.
;[305]	19-Mar-77 00:10:56	Fix LOOKUP to properly turn off resulting
;				indicators before searching.
;[304]	18-Mar-77 01:32:07	Fix RPGIID and GENCOM to allow plus signs on
;				numeric literals in calculation specs.
;[303]	18-Mar-77 01:06:22	Fix RPGIIA to accept lower case input for 
;				the "!" CUSP call. Also make it enter CUSP at
;				standard entry point, not CCL entry point.
;[302]	18-Mar-77 00:31:12	Fix RPGIIC and PREDIT to check to see if a floating dollar or
;				asterisk fill is being used with an edit code before
;				complaining about edit word size. Edit at OU.20A
;				in RPGIIC and PRE12A in PREDIT.
;[301]	18-Mar-77 00:01:23	Fix RPGIIC to clear the old size and occurs when
;				defining a new output item. The only time these will get
;				set is when a whole array/table is being output, at
;				which time it will set these fields up. Edit at OU.11L+13.
;[300]	14-Mar-77 22:19:43	Fix RPGIID to allow use of an item before it is
;				defined in the calculation specs by adding code to restore
;				factor name at GTFC1K+3.
;[277]	12-Mar-77 23:17:24	Fix RPGIIK to return to phase A properly when
;				assembled for one-segement compiler.
;[276]	12-Mar-77 22:59:12	Replace parts of edit 275 to make all cases of
;				sequential versus random checking in phase E work. This
;				involves one change to RPGIIB at FI.08C+4 and several
;				in RPGIIE at BLDFT3-1.
;[275]	28-Feb-77 19:47:59	Fix RPGIIE at BLD.05-1 and BLD.5A+1 to load
;				execution time tables OK. This edit makes sure that
;				the array entry size gets set up properly in ARRTAB.
;[274]	28-Feb-77 19:21:04	Fix RPGIIC at CA.00+2 to prevent it from going into
;				an endless loop when no O specs are found.
;[273]	26-Feb-77 21:51:17	Make the output space specifications a little bit
;				more realistic based on the printers we run on. If the
;				space entry is blank (" ") assume single spacing for
;				space after entry, zero for space after. No spacing is
;				available via a zero ("0") entry.
;[272]	24-Feb-77 22:17:59	Fix RPGIIC at I.02G2+3 to accept I cards with no
;				record identifying indicator.
;[271]	24-Feb-77 21:18:32	Fix calculation field scanner in RPGIID to verify
;				that name of field is a valid RPGII name. Fix at
;				GTF1C1+2 in RPGIID
;[270]	24-Feb-77 21:05:37	Fix GETSRC at GETSL+2 to properly convert lower case
;				source input to upper case.
;[267]	24-Feb-77 20:47:14	Fix RPGIIA to give proper error message in case of
;				filename greater than six characters. Fix at BADNAM+1
;[266]	19-Feb-77 02:53:02	Change phase F start address in END statement from
;				REGO to RPGIIF. This makes things load OK for ONESEG.
;[265]	19-Feb-77 02:42:47	Rearrange conditionals in SETIMP in RPGIIA so that the
;				TOPS-20 version will work OK with symbols and no DEBUG.
;[264]	12-Feb-77 19:29:23	Fix KILL in RPGCOM to work right by adding ONESEG conditionals
;[263]	29-Jan-77 02:10:28	Add code at RPGIIB+14 to default PRGID even if
;				no H card is found.
;[262]	9-Jan-77 02:54:28	Fix LOOKUP to generate index stash code for alternating
;				tables at .LOKCM+31.
;[261]	8-Jan-77 21:58:17	Add symbol output to RPGIIG. This edit is spread all over
;				the place in RPGIIG.
;[260]	8-Jan-77 21:24:44	Fix CLSUP and FINE in RPGIIE to properly set up
;				TEMBAS. Also fix TMPINC+1 in RPGIIG to leave TEMBAS alone.
;[257]	4-Jan-77 02:39:48	Fix LOOKUP to generate ADDB's instead of ADDM's.
;[256]	4-Jan-77 02:17:21	Change LOOKUP at .LOK14+6 to use routine PUTPT2
;				instead of PUTPTR so we don't imbed size.
;[255]	4-Jan-77 01:44:28	Finish edit 235 by fixing last remaining uses of
;				AC5 in LOOKUP. Change them to AC0.
;[254]	4-Jan-77 00:30:13	Add code at BLD.03+2 in RPGIIE to take care of
;				the case where a table or array is used as a whole array or
;				table and causes phase E to reserve space twice. This
;				edit prevents any array/table from being defined twice.
;[253]	1-Jan-77 22:57:12	Insert instruction to get back proper ARRTAB pointer
;				at ARR.01+25 in RPGIIE.
;[252]	1-Jan-77 22:24:20	Make changes similar to edits 250 and 251 for the
;				DA.ALL link at EX.10+50 and EX.10+6 in RPGIIB and at
;				BLDARD+43 in RPGIIE to handle valid zero link.
;[251]	1-Jan-77 21:54:28	Replace the SKIPN's installed in RPGIIB as part of
;				edit 250 with TRNN's  to test only right half.
;[250]	30-Dec-76 01:42:30	Add code at EX.10+1 in RPGIIB and at BLDARD+25 in
;				RPGIIE to handle load/dump pointer of zero (e.g. first
;				defined file.)
;[247]	28-Dec-76 01:41:38	Change RPGIIF at MAPOT1+6 to support edit 246.
;[246]	27-Dec-76 22:21:48	Change RPGIIE to allocate temporary storage after LITAB
;				rather than before DATAB.
;[245]	16-Dec-76 02:16:40	At IN.10X in RPGIIC add code to get correct pointer before
;				depositing matching indicator.
;[244]	12-Dec-76 03:13:42	Add field validty checking routine to RPGCOM and call it
;				from appropriate places in RPGIIC.
;
;********** %1I(243) Limited Release Edition **********
;[243]	27-Nov-76 01:45:53	Fix edit 115 to check for the really, truly proper
;				word boundary.
;[242]	27-Nov-76 00:56:13	Change error 277 (Improper size edit word) to be a
;				warning instead of a fatal.
;[241]	22-Nov-76 00:52:21	Fix shift routines to call ROUND before changing
;				the size register.
;
;********** %1H(240) Limited release edition **********
;[240]	17-Nov-76 22:34:05	Add code to PREDIT to check for undefined field; to count
;				number of replacable edit characters; and to check for
;				the special case of initial zero with extra edit positions.
;[237]	18-Oct-76 01:06:18	Change OU.10B in RPGIIC to place and/or flag in
;				new IDTAB entry rather than current one.
;[236]	17-Oct-76 23:30:04	Fix OCHTAB building routines in RPGIIE to initialize
;				OC.LTF and OC.LSZ to be zero.
;[235]	17-Oct-76 03:41:46	Change all subscripting routines to use AC0 instead
;				of AC5 in phase E. Also change whole array start code and
;				byte increment code to accomodate AC0.
;[234]	15-Oct-76 23:22:03	Use OP1SIZ to keep track of element size and HISIZ to keep
;				track of total size in RPGIIE during core allocation.
;[233]	13-Oct-76 21:51:24	Add code to RPGIIC to set DA.FLS properly now that we
;				moved it for edit 232.
;[232]	12-Oct-76 17:06:09	Fix DA.RES to be six bits like it should be to store the
;				entire byte residue. This is the cause a hell of alot of
;				of problems.
;[231]	6-Oct-76 22:21:47	Fix floating dollar sign code in PREDIT at PRE.08+7
;[230]	29-Sep-76 22:28:53	Add code to RPGIIC at OU.11P+6 to properly set up NAMTAB
;				link for subscript so that newly defined item will
;				get linked into DATAB chain when fully defined later.
;[227]	29-Sep-76 16:44:07	Add code to RPGIIE to set up DA.SIZ, DA.DEC, and DA.FLD for
;				all related DATAB entries.
;[226]	19-Sep-76 21:55:13	Remove edit 225 and put appropriate code
;				into CBLIO to fix problem.
;[225]	11-Sep-76 10:48:49	Fix LABELs code at BLDFTB in RPGIIE
;
;********** %1G(224) Limited Release Edition **********
;[224]	1-Sep-76 13:06:58	Add EOF code to FINB in RPGIIB.
;[223]	30-Aug-76 12:47:18	Add FI.UNT to PURE to support multiple tape
;				files. Also add symbols to use for device name. Add
;				all this junk to RPGIIB and RPGIIE.
;[222]	28-Aug-76 09:21:17	Add code to RPGIIE to handle OC.ARP of zero.
;[221]	16-Aug-76 14:22:31	Remove DA.NDF code from BLD.2A in E. It
;				doesn't seem to be needed, and it sure screws up 
;				LOKUP's.
;[220]	26-Aug-76 13:37:07	Fix OU.11N in RPGIIC to restore NAMWRD properly.
;[217]	25-Aug-76 13:24:54	Change IN.03 in RPGIIC to look at proper column for and/or
;[216]	24-Aug-76 17:47:31	Fix OU.00 in RPGIIC to properly handle comment card as 
;				first output specification.
;[215]	24-Aug-76 17:26:37	Remove remnents of *PRINT code from phase C so we don't
;				fool anyone into thinking we support it.
;[214]	24-Aug-76 16:28:07	Fix BLD.11 routines in RPGIIE to use CURREC as a relative
;				pointer to avoid problems when LITAB expands.
;[213]	23-Aug-76 11:03:28	Move the F1P flag to the LH of SW.
;[212]	23-Aug-76 10:34:56	Add 1P support to phase G. Hide the flag in TABDEX.
;[211]	20-Aug-76 17:04:18	Fix LOKUP in phase D to properly handle number of occurs
;				on related table. Make fix at SETR0B+2 in RPGIID.
;[210]	20-Aug-76 16:55:04	Add true support of H card column 15 (DEBUG) to phase
;				D at DEBUG.
;[207]	19-Aug-76 16:12:36	Fix KILLCALL in RPGCOM to work for one segment compiler.
;[206]	17-Aug-76 13:23:22	Add MFCU support code to phase E. Also add new
;				fixed area word %STLST.
;[205]	13-Aug-76 11:46:32	Rewrite the header card handler in RPGIIB to work
;				more like is should for a DECsystem-10 RPG II
;				rather than System-3. Also update error messages.
;[204]	12-Aug-76 14:06:57	Add code to BLD.03 in RPGIIE to reset
;				any ICHTAB entries that may be linked to
;				the DATAB entries we are trying to
;				reset.
;[203]	12-Aug-76 13:24:39	Finish installing edit 202. Add DA.TAB and OC.TAB
;				to PURE.
;[202]	11-Aug-76 14:44:29	Fix RPGIIC and RPGIIE to properly handle
;				whole arrays and tables on output.
;[201]	6-Aug-76 11:46:41	Rearrange code for BLD.2A in RPGIIE
;				so that IC.DES get's properly setup on call
;				to BLD11C.
;[200]	5-Aug-76 13:18:23	An appropriate bicentennial edit. Fix it so
;				we can can compile more than one program without
;				restarting in between. Do this by adding more
;				core clearing code to SETIMP in RPGIIA and by
;				modifying some of what was already there.
;[177]	5-Aug-76 12:13:32	Fix RESTRT code in RPGCOM to properly
;				handle ONESEG code.
;[176]	4-Aug-76 15:16:58	Add ONESEG code to compiler.
;[175]	4-Aug-76 14:10:03	Fix LITSET in GENCOM to output LITAB correctly
;				if it has been written to disk.
;[174]	23-Jul-76 02:47:19	Make an attempt to speed up RPGIIE if at all possible
;				by getting rid of lots of byte instructions in favor
;				of half-word instructions.
;[173]	23-Jul-76 00:02:23	Get rid of unnecessary error messages in Phase C.
;[172]	22-Jul-76 03:10:03	Get FILTAB pointer back into TA after call to
;				GETDCB at FI.12+3 in RPGIIB. This stops the card buffer
;				from getting messed over.
;[171]	21-Jul-76 16:03:19	Fix CA.01A+10 to properly stash OR flag into indicator
;				chain. This should make OR lines work properly.
;[170]	20-Jul-76 01:14:19	Fix BLDFTB in RPGIIE to make the simulated MFCU
;				be a sequential, unblocked, ASCII device.
;[170]	18-Jul-76 00:12:52	Start to implement SCAN/WILD command scanner for
;				RPGIIA and IMPURE. Add feature test switch FTSCAN.
;[166]	12-Jul-76 00:36:15	Clean up LOOKUP code in both phases E and D for
;				bounded array searches.
;
;********** %1F(165) Limited Release Edition **********
;[165]	9-Jul-76 01:26:23	Add code to RPGIIE to support compile time arrays.
;				Add FLALT and FLUALT to RPGIIP for this.
;[164]	8-Jul-76 00:00:12	Fix a bunch of bugs in RPGIID, RPGIIE and GENCOM
;				that have to do with indexing with fields as opposed
;				to constants.
;[163]	1-Jul-76 13:58:23	Add ARRTAB to all appropriate modules and
;				add support code for arrays in E and G.
;[162]	25-Jun-76 01:04:20	Add reserved word handlers to GENCOM
;[161]	23-Jun-76 23:04:16	Change PRGSTR to TOTBAS in phase G.
;
;********** %1E(160) Limited Release Edition **********;
;[160]	22-Jun-76 00:22:28	Add the TIME verb to all phases.
;[157]	21-Jun-76 02:46:51	Add switch BINARY to help alleviate overhead in phase E
;				since we don't really support binary anyway. Also add
;				MOVEA code to RPGIIE.
;[156]	18-Jun-76 00:54:20	Add PUTPT2 to GENCOM so that SUBSCR works right.
;				Also fix the STBYT routines to give proper count for
;				literals.
;[155]	14-Jun-76 02:43:13	Add code for READ verb to RPGIID and RPGIIE. In
;				the process generalize the routines in TAG.0 and ENDSR1
;[154]	13-Jun-76 03:36:29	Add code to RPGIID and RPGIIE to support the
;				FORCE and EXCPT verbs. Also add FI.OTF as pointer to
;				corresponding OTFTAB item. Clean up phase G error
;				messages.
;[153]	7-Jun-76 02:21:35	Add code to RPGIIG to take into account the device table.
;[152]	7-Jun-76 01:28:51	Make sure all pointers into FTBTAB in RPGIIE are properly
;				adjusted for the device table. Add new storage location
;				FTBNUM to IMPURE to accomadate this edit.
;[151]	7-Jun-76 01:01:23	Add code to RPGIIE to output space for device table
;				before each FTBTAB entry. We would have put it in
;				earlier, but there is no documentation saying that
;				it is necessary.
;[150]	3-JUN-76 22:31:29	FIX LINE COUNTER SPEC BUG IN RPGIIB AND
;				CLEAN UP LINE SPEC ROUTINES IN GENERAL.
;[147]	27-MAY-76 22:58:10	ADD CODE TO RPGIIE TO OUTPUT AND BUILD FTBTAB.
;				DEFINE FTBTAB IN PURE AND RPGIIP. ALSO 
;				MODIFY TABLE OUTPUT ROUTINES IN RPGIIE TO MAKE
;				BETTER USE OF PC INCREMENT.
;
;********** %1D(146) LIMITED RELEASE EDITION **********
;[146]	18-MAY-76 23:09:52	FIX STILL ANOTHER BUG HAVING TO DO WITH PROPER OPERAND
;				ALLIGNMENT DURING A DIVIDE. THIS ONE FIXES THE
;				PROBLEM WITH OP2 HAVING ZERO DECIMALS WHEN
;				OP1 AND RESULT HAVE EQUAL DECIMALS. IT WAS
;				SHIFTING LEFT BY NUMBER OF DECIMALS IN OP1.
;				IT NOW DOES NO SHIFTING.
;[145]	18-MAY-76 22:46:23	ADD CODE AT IN.04L TO SWAP POINTERS BEFORE WE
;				PICK UP NUMBER OF OCCURS.
;[144]	18-MAY-76 21:39:38	FIX SETR0B IN RPGIID TO AVOID STUFFING TOO MUCH
;				DATA ONTO THE STACK. THIS WAS THE CAUSE
;				OF THE OCCASIONAL ILLEGAL UUO IN THE LOW SEG.
;[143]	4-MAY-76 20:53:20	ADD FLAG FOP1WL FOR THE SECOND TIME TO MAKE
;				ALL THAT PHASE E WHOLE ARRAY STUFF WORK.
;[142]	29-APR-76 22:20:28	FIX ZADD AND ZSUB CODE IN RPGIIE AFTER WE
;				MANGLED IT INSTALLING WHOLE ARRAYS.
;[141]	24-APR-76 00:26:32	ADD CODE TO RPGIIE TO SUPPORT WHOLE ARRAYS.
;[140]	23-APR-76 23:01:29	ADD CODE TO GENCOM TO SUPPORT WHOLE ARRAYS
;[137]	23-APR-76 21:32:58	ADD REST OF CODE TO RPGIIE AND GENCOM TO FULLY
;				HANDLE TABLES/ARRAYS ON ALPHAMERIC TYPE.
;[136]	23-APR-76 20:31:29	FIX GETFAC IN RPGIID TO SAVE BYTE POINTER BEFORE
;				CALLING TRYNAM, WHICH BOPS AC14.
;[135]	14-APR-76 16:48:20	FIX CA.02C IN RPGIID TO USE PROPER LINK TO GET DA.OCC
;[134]	14-APR-76 14:22:30	MODIFY .MOVE IN RPGIIE TO HANDLE SUBSCRIPTED
;				OPERANDS.
;[133]	13-APR-76 20:06:28	ADD FOPXAR AND FOPXTB FLAGS TO RPGIIP FOR USE
;				IN PHASE E. ALSO ADD ROUTINES TO GENCOM.MAC
;				TO START SUPPORT OF ALPHAMERIC TABLES/ARRAYS
;
;********* %1C(132) LIMITED RELEASE EDITION *********;
;[132]	3-APR-76 02:08:29	MODIFY GOTO. IN RPGIID.MAC TO CHECK PROPER
;				FLAG (F2LNK) INSTEAD OF F1LNK. SOLVES PROBLEM
;				WITH EXSR.
;[131]	2-APR-76 21:29:39	FIX BEGSR AND EXSR IN PHASE D TO GET PROPER OP-CODE.
;[130]	29-MAR-76 16:51:29	ADD BEGSR, ENDSR AND EXSR TO PHASE E.
;[127]	26-MAR-76 23:54:20	ADD BEGSR, ENDSR AND EXSR TO PHASE D.
;[126]	26-MAR-76 00:23:52	ADD ERROR CHECKING TO PHASE C TO TRAP
;				CONDITION OF END POSITION TO LOW FOR 
;				CONSTANT/EDIT WORD ON OUTPUT SPECS.
;[125]	25-MAR-76 02:22:04	ADD MOVE ZONE VERBS TO PHASES D AND E.
;[124]	23-MAR-76 03:35:26	FIX ANOTHER BUG IN STBYT IN GENCOM. THIS IS ONE
;				LIKE WE FIXED IN EDIT [121]. THE COMP VERB
;				SHOULD NEVER HAVE WORKED WITH THIS IN. ALL
;				WE HAVE TO DO IS REPLACE CONSTANT ^D35 WITH
;				^D42 WHEN CALCULATING BYTE OFFSET FOR LITERAL.
;[123]	23-MAR-76 03:02:39	MODIFY SETRES IN RPGIID.MAC TO PROPERLY HANDLE
;				NON-NUMERIC RESULT FIELDS IF NOT DEFINTION.
;[122]	23-MAR-76 02:26:49	ADD MOVEL CODE TO PHASE E.
;[121]	21-MAR-76 23:27:49	FIX STBYT IN GENCOM TO PUT BYTE SIZE IN PROPER
;				PLACE IN A BYTE POINTER. HOW THE HELL COMP
;				EVER WORKED WITH IT THIS WAY I DON'T KNOW.
;[120]	21-MAR-76 20:59:25	ADD MOVE CODE TO RPGIIE.MAC
;[117]	20-MAR-76 00:43:59	REDEFINE SIZES OF VARIOUS TABLES TO OPTIMIZE
;				EXPANSION AND HOPEFULLY SPEED THINGS UP
;				A TRIFLE.
;[116]	19-MAR-76 11:47:26	ADD CODE AT BLDCH IN RPGIIE.MAC TO SUPPORT
;				BINARY FIELDS. LOOKS LIKE THOSE TURKEYS
;				ARE ACTUALLY GOING TO BE USED.
;[115]	18-MAR-76 21:36:41	FIX CHECK AT BLD.06+2 IN RPGIIE.MAC
;				TO CHECK FOR PROPER CONDITION OF WORD
;				BOUNDARY.
;[114]	18-MAR-76 18:05:13	MODIFY INDCHK IN GENCOM.MAC TO GENERATE CODE
;				FOR A DIRECT PUSHJ TO INDC. RATHER THAN A
;				UUO CALL. SHOULD SPEED THINGS UP A BIT.
;[113]	18-MAR-76 02:34:17	HAVE NOW FIGURED OUT WHAT EDIT [106] WAS
;				FIXING, BUT SINCE IT DIDN'T DO IT'S JOB
;				ANYWAY, LEAVE IT OUT AND ADD INSTRUCTION
;				AT .MVR+2 IN RPGIIE.MAC. THIS SHOULD FIX
;				THE MYSTERIOUS "FACTOR 2 NOT DEFINED" ERROR
;				MESSAGES FROM ATTACKING MVR.
;[112]	18-MAR-76 02:10:05	REMOVE EDIT [106]. DON'T KNOW WHY IT WAS PUT
;				IN, BUT IT SURE SCREWS UP .MVR IN RPGIIE.
;[111]	16-MAR-76 03:25:36	FIX UP THE DIVIDE ROUTINES IN PHASE E SO
;				THEY WORK BACKWARDS LIKE THEY'RE SUPPOSED TO.
;[110]	16-MAR-76 00:54:25	ADD ROUTINE SHFT3B TO SHFTAC IN GENCOM.MAC
;				TO ALLOW PROPER CONVERSION FROM SINGLE TO
;				DOUBLE.
;[107]	14-MAR-76 01:29:26	REWRITE SMALL PORTIONS OF LOOKUP.MAC SO THAT
;				EVERYTHING IS TAKEN CARE OF IN THE CODE WE
;				GENERATE, RATHER THEN MAKING SOME CALLS TO A 
;				RUNTIME ROUTINE. THIS SHOULD KEEP SPEED FREAKS HAPPY.
;[106]	13-MAR-76 00:51:32	FIX PUTAC IN GENCOM TO PASS CORRECT INDEX TO
;				GTFLD WHEN WE ARE USING AC5 (PTR2.2+3)
;[105]	12-MAR-76 22:08:34	MODIFY RECORD IDENTIFYING INDICATOR ROUTINES
;				IN RPGIIC.MAC TO PROPERLY HANDLE MULTIPLE
;				OR LINES AND MULTIPLE RII'S.
;
;********** %1B(104) LIMITED RELEASE EDITION **********;
;[104]	29-FEB-76 23:01:38	ADD LINEAR SEARCH CODE TO LOOKUP.MAC
;[103]	29-FEB-76 21:35:21	REWRITE ROUTINE .LOK14 IN LOOKUP.MAC SO THAT
;				WE CAN START MODIFYING STBYT IN GENCOM FOR
;				TABLES/ARRAYS.
;[102]	29-FEB-76 03:14:06	ADD PHASE E CODE TO SUPPORT TABLES AND ARRAY
;				BY MODIFYING GTFACX AND PUTAC IN GENCOM.
;[101]	28-FEB-76 22:13:24	ADD PHASE D CODE TO SUPPORT TABLES AND ARRAYS
;				BY ADDING ROUTINE INDFAC TO RPGIID. AT THE
;				SAME TIME REMOVE SOME AMBIGUOUS FLAGS.
;[100]	25-FEB-76 22:44:23	ADD IC.FMT TO PURE.MAC TO SUPPORT TABLE
;				LOOKUP CODE IN RUNTIME SYS
;[077]	22-FEB-76 22:32:25	CLEAN UP GOTO CODE IN PHASE D SO THAT IT
;				WORKS PROPERLY.
;[076]	22-FEB-76 22:20:04	CLEAN UP ERROR HANDLING CODE IN PHASE F AND
;				MAKE SURE WE ALLOW TEN BITS FOR ERROR MESSAGE
;				NUMBER IN ALL PLACES.
;[075]	21-FEB-76 18:35:26	ADD CODE TO HANDLE RESULTING INDICATORS ON
;				ARITHMETIC OPERATIONS.
;[074]	21-FEB-76 1:39:58	ADD LOOKUP CODE IN FILE LOOKUP.MAC
;[073]	9-FEB-76 20:22:41	REPLACE MYSTERIOUSLY DISSAPEARED INSTRUCTION
;				AT EX.00+11 IN RPGIIB.
;[072]	7-FEB-76 20:00:12	MODIFY RPGIID AT GETFAC+8 TO PROPERLY HANDLE
;				NUMERIC LITERAL WITH UNARY MINUS.
;[071]	7-FEB-76 00:02:04	THE INFAMOUS BLUE EDIT. THIS EDIT IS DESIGNED
;				TO CORRECT ALL PROBLEMS THAT SHOULD OF BEEN
;				FIXED FOR THE LAST RELEASE TAPE, BUT WERE
;				NOT, DUE TO INSUFFICIENT TEMPORAL RESOURCES.
;				THESE FIXES INCLUDE: MAKE ALL NAMTAB POINTERS
;				RELATIVE TO FIX NAMTAB OVERLAY PROBLEM; CLEAN
;				UP ALL PHASES SO THEY ARE MORE READABLE; AND
;				START HACKING AWAY AT TABLE HANDLING CODE, SO
;				WE CAN MAKE IT WORK IN THE NEAR FUTURE.
;
;********** %1A(70) LIMITED RELEASE EDITION **********;
;[070]	31-JAN-76 23:58:22	ADD CODE IN FNDLNK IN RPGCOM TO RESTORE NAMTAB
;				POINTER EVEN IF ERROR RETURN IS TAKEN.
;[067]	31-JAN-76 00:13:58	ADD CODE AT IN.04 IN RPGIIC TO CLEAR NAMWRD+1.
;[066]	30-JAN-76 13:59:26	FIX OU.07H IN RPGIIC TO HANDLE SKIP ENTRIES
;				GREATER THAN 19. SEE ALSO EDIT 44.
;[065]	30-JAN-76 00:26:47	FIX GTF.1B IN GENCOM TO SUPPORT EDIT 64.
;[064]	30-JAN-76 00:14:12	FIX GTFLD IN GENCOM TO PROPERLY STASH LINK WHEN
;				WE HAVE TO DO A NAMTAB LINK LOOKUP. THIS EDIT
;				SHOULD SOLVE THE LAST OF THE "FACTOR NOT DEFINED"
;				PROBLEMS. CF. EDIT 60.
;[063]	24-JAN-76 19:47:52	FIX OU.01 IN RPGIIC TO WORK WITH AND LINES.
;				ALSO CONVERT TO BPNT MACRO TO ALLOW EASIER DEBUGGING.
;[062]	24-JAN-76 19:31:26	MAKE OU.10 IN RPGIIC PROPERLY HANDLE AND/OR LINES.
;[061]	24-JAN-76 16:36:27	MODIFY IN.04G IN PHASE C TO PROPERLY HANDLE
;				AN INPUT RECORD WITH ONLY ONE ITEM. THIS
;				WAS THE CAUSE OF THE CORE BLOW-UP IN PHASE E.
;[060]	23-JAN-76 11:52:22	FIX UP ROUTINE GTFACX IN GENCOM TO BE SURE
;				WE FIND DATAB LINK. FIX GTF.1B TO GET NAMTAB LINK
;				ON THE FIRST TRY.
;[057]	18-JAN-76 17:43:13	TO ALLOW EASIER INTERFACE WITH THE NEW RPGLIB
;				WHICH MAKES USE OF LIBOL-10 COMPONENTS, RPGASM IS
;				NOW A UNIVERSAL, WE NOW SEARCH INTERM TO GET THE
;				SWITCH DEFAULTS.
;[056]	10-JAN-76 23:18:26	CLEAN UP PHASE F AND SET UP SO WARNINGS ARE NOT IMBEDDED.
;[055]	10-JAN-76 17:47:55	ADD F1LNK & F2LNK TO RPGIIP AS PHASE D FLAGS
;				SO THAT WE CAN REFERENCE FORWARDS ON GOTO'S.
;[054]	10-JAN-76 17:19:23	MODIFY FNDLNK IN RPGCOM.MAC TO PROPERLY HANDLE SEARCH
;				IF TABLE IS ZERO LENGTH.
;[053]	10-JAN-76 17:00:25	ADD PROTAB FLAG PR.BSR TO ACCOMADATE THE BEGSR VERB.
;[052]	1-JAN-76 23:06:26	FIX GT1AC1 IN GENCOM.MAC TO  PROPERLY SET UP SIZE
;[051]	1-JAN-76 21:59:25	REPLACE SYMBOL ORCAM. WITH TDNN. IN GENCOM AND 
;				RPGIIG TO ACCOMODATE DOUBLE PRECISION ZSUB.
;[050]	27-DEC-75 22:57:02	MODIFY PREDIT.MAC TO PROPERLY HANDLE AN EDIT STRING
;				OF THE FORM '0.  '.
;[047]	27-DEC-75 14:06:25	SET UP TO SEARCH MACTEN AND UUOSYM, AND STENEX IF
;				ON A 20. ALSO CLEAN UP PHASE A DIAGNOSTICS SO
;				THEY WILL WORK ON A TWENTY. LOAD HELPER
;				AND DDT VIA .REQUIRE TO SIMPLIFY LOADING. ALSO ADD
;				PORTAL'S SO THAT WE RUN PROPERLY ON A KI.
;
;********** %1(46) LIMITED RELEASE EDITION *********;
;[046]	15-DEC-75 01:48:25	TURN OFF ROUNDING FLAG AT GEN.01+1 IN E. /RBC
;[045]	14-DEC-75 23:26:25	FIX SUB OP TO WORK RIGHT. MOD IN .SUB IN E. /RBC
;[044]	14-DEC-75 21:22:01	FIX SKIP ENTRY AT OU.07H+13 IN C. /RBC
;[043]	14-DEC-74 00:31:15	FIX XPAND TO SAVE ALL AC'S IN PROPER PLACE. /RBC
;[042]	13-DEC-75 22:46:25	ADD PROPER INITIALIZATION TO IN.03A IN C. /RBC
;[041]	13-DEC-75 20:07:12	MODIFY XPAND TO CLEAR NEW TABLE SPACE. THIS
;				EDIT REPLACES EDIT [037] AND [040]. /RBC
;[040]	9-DEC-75 19:32:43	STILL MORE PROBLEMS WITH EXPANDING DATAB ARE FIXED. /RBC
;[037]	9-DEC-75 16:58:27	MODIFY SETR01 IN PHASE D TO PROPERLY HANDLE
;				TABLE LINKS, WHEN TABLES ARE EXPANDED BY THE GETENT.
;				NOTE THAT THIS BUG MAY CROP UP ELSEWHERE AND SHOULD
;				BE WATCHED FOR. /RBC
;[036]	9-DEC-75 13:19:07	FIX GETFAC+8 TO WORK WHEN NUMERIC LITERAL
;				STARTS OFF WITH A DECIMAL POINT. /RBC
;[035]	1-DEC-75 00:32:26	FIX STIND2 IN D TO WORK WITH NON-NUMERIC INDICATORS. /RBC
;[034]	30-NOV-75 22:47:36	FIX OVERFLOW INDICATOR SETUP IN PHASES C & D. /RBC
;[033]	25-NOV-75 17:31:06	FIX BLD.3A+2 IN PHASE E SO THAT ALL POINTERS
;				ARE PROPERLY SET UP. /RBC
;[032]	14-NOV-75 16:30:09	ALLOW A SPACE FOR FILE FORMAT ENTRY ON FILE
;				DESCRIPTION CARD. /RBC
;[031]	14-NOV-75 13:51:58	FIX MORE PROBLEMS ASSOCIATED WITH EDIT [027]. /RBC
;[030]	7-NOV-75 23:22:31	FIX PROBLEMS WITH FLOATING DOLLAR SIGN
;				IN PREDIT.MAC. /RBC
;[027]	6-NOV-75 21:38:08	FIX REGETS IN GETSRC.MAC TO PROPERLY HANDLE
;				BATCH INPUT WHEN SET TO $RPG CARD SET TO "SUPPRESS". /RBC
;[026]	4-NOV-75 19:16:31	ADD FINDON TO RPGIIP.MAC AND FIX
;				UP THE INDICATOR CHECK CODE GENERATORS. /RBC
;[025]	3-NOV-75 21:56:34	ADD OC.RSV & OC.BLA TO PURE.MAC AND
;				ADD DA.BLA & OC.BLA TO RPGIIE.MAC. /RBC
;[024]	26-OCT-75 00:17:23	FIX MAJOR LINKING PROBLEM IN PHASE C
;				SO THAT INDTAB ENTRIES ARE PROPERLY LINKED. /RBC
;[023]	25-OCT-75 17:00:43	ADD DA.LIN TO DATAB SO WE CAN TRAP SOME
;				MORE ERRORS IN PHASE E. ALSO ADD SOME DIAGNOSTICS SO 
;				THAT WE CAN PROVIDE BETTER SERVICE THAN IBM. /RBC
;[022]	22-OCT-75 19:43:17	FIX A FEW BUGS IN PREDIT. /RBC
;[021]	20-OCT-75 22:16:43	FIX BLD IN RPGIIE TO PROPERLY HANDLE
;				INCREMENT OF ZERO FOR OT.OPC & OT.IPC. /RBC
;[020]	19-OCT-75 15:11:01	CHANGE VALUE OF SZ.PRO TO REFLECT NEW ECONOMY
;				VERSION, AND TO SHOW FISCAL AUSTERITY. /RBC
;[017]	16-OCT-75 19:46:32	ADD VARIOUS CODE GENERATOR FLAGS IN RPGIIP /RBC
;[016]	15-OCT-75 22:14:12	ADD FMINUS AND FDECPT TO RPGIIP /RBC
;[015]	12-OCT-75 02:48:23	FIX MANY POTENTIAL PROBLEMS IN PREDIT AS WELL
;				AS SOME MORE PROBLEMS IN LITSET. /RBC
;[014]	11-OCT-75 22:50:04	FIX UP SOME PROBLEMS WITH LITSET IN GENCOM. /RBC
;[013]	29-SEP-75 23:03:01	FIX PROBLEMS WITH EDIT [003] AS WELL AS
;				PROBLEMS WITH SHORT SOURCE FILE. /RBC
;[012]	29-SEP-75 20:43:58	MODIFY IDNTYP TO INCREMENT RETURN PC RATHER
;				THAN THE RETURNED VALUE. /RBC
;[011]	25-SEP-75 00:02:41	RESET NAMWRD+1 AT OU.11 IN PHASE C, SO PHASE D
;				WILL FIND ITEM DEFINED PROPERLY IN NAMTAB. /RBC
;[010]	23-SEP-75 00:53:40	TACK A LINE FEED ONTO ALL CALFIL LINES /RBC
;[007]	22-SEP-75 02:53:17	REWRITE GETCRD ROUTINE TO SPEED UP 30-40 TIMES
;				AND MAKE APPROPRIATE CHANGES ELSEWHERE. ALSO ADDED FNOCPY
;				FLAG IN RPGIIP. /RBC
;[006]	22-SEP-75 00:54:23	FIX PROBLEMS ASSOCIATED WITH EDIT [004] /RBC
;[005]	19-SEP-75 00:43:54	FIX PROBLEMS IN RPGIIC RELATING TO OUTPUT
;				INDICATORS IN ROUTINES OU.09 & OU.10 /RBC
;[004]	19-SEP-75 00:02:23	ADD BPNT MACRO TO RPGIIP SO WE CAN
;				MAKE MORE SENSE OF THE CODE /RBC
;[003]	12-SEP-75 00:26:37	FIX PROBLEMS ASSOCIATED WITH BEING
;				FED A MACRO PROGRAM /RBC
;[002]	6-SEP-75 21:06:24	ADD DA.INF TO PURE.MAC AND RPGIIC.MAC /RBC
;[001]	1-SEP-75 04:35:54	REPLACE THE GODDAMN JOBxxx's WITH .JBxxx's /RBC

;
;
;Copyright (C) 1975, 1976, 1977
;Cerritos Community College District and Robert Currier
;
;
;This software is furnished under license for  use  only  on  a  single
;computer system and may be copied only with the inclusion of the above
;copyright notice.  This software, or any other copies thereof, may not
;be provided or otherwise made available to any other person except for
;use on such system and to one  who  agrees  to  these  license  terms.
;Title  to and ownership of the software shall at all times remain with
;Cerritos Community College District and Robert Currier.
;
;The information in this software is subject to change  without  notice
;and  should  not  be  construed  as  a  commitment  by either Cerritos
;Community College District or Robert Currier.
;






	IFNDEF	RPGIIA,<XLIST>

;ACCUMULATORS

SW=0					; SWITCHES
LN=1					; GUARANTEED INTEGRITY THRU ALL SUBROUTINES
CP=2					; CHARACTER POSITION
DT=3					; ADDRESS OF A TABLE ENTRY
CH=4					; I/O CHARACTER
W1=6					; FIRST OUTPUT WORD FROM I/0
W2=7					; SECOND OUTPUT WORD FROM I/O
COL=10					; CARD COLUMN NUMBER
DW==CH					; DIAGNOSTIC WORD

TE=12					; TEMP
TD=13					; TEMP
TC=14					; TEMP
TB=15					; TEMP
TA=16					; TEMP


PP=17					; PUSH-DOWN POINTER



;ACCUMLATORS USED BY PHASE A

A==1					; used by SCAN routines
B==2					; used by SCAN routines
C==3					; used by SCAN routines
D==4					; used by SCAN routines
X==5					; used by SCAN routines
C2==7					; used by SCAN routines
DA=1					; ADDRESS OF A DEVICE TABLE
DC=2					; A DEVICE CHANNEL NUMBER

I0==5					; UUO TO BE EXECUTED
I1==6					; UUO PARAMETER
I2==I1+1				; UUO PARAMETER
I3==I2+1				; UUO PARAMETER
I4==I3+1				; UUO PARAMETER

;ACCUMULATORS USED BY PHASE G

CT==10					; MISC
OP=5					; POINTS TO AN ENTRY IN THE OP TABLE
RB==CP					; BYTE POINTER TO NEXT PLACE TO PUT RELOCATION BITS
GP==LN					; IOWD TO NEXT LOCATION TO STASH A BINARY OUTPUT WORD
PC=11					; PROGRAM COUNTER

;I/O CHANNEL NUMBERS

TTY==1					; USERS CONSOLE
SRC==2					; SOURCE
LST==3					; LISTING
BIN==4					; BINARY

CAL==5					; CALFIL
NAM==6					; NAMFIL
ERA==7					; ERAFIL
GEN==10					; GENFIL
CPY==11					; CPYFIL
AS1==12					; AS1FIL
AS2==13					; AS2FIL
AS3==14					; AS3FIL
LIT==15					; LITFIL
CRF==16					; CRFFIL


FSC==CAL				; FIRST SCRATCH CHANNEL
LSC==CRF				; LAST SCRATCH CHANNEL
ASY==AS1


COM==17					; COMMAND FILE FROM DISK


SF1==SRC				; SCRATCH FILE FOR CREF SORT
SF2==BIN				; SCRATCH FILE FORR CREF SORT
SF3==CAL				; SCRATCH FILE FOR CREF SORT


F.FIN==SRC				; used by SCAN
F.FLST==LST				; used by SCAN
F.FREL==BIN				; used by SCAN

;ALL SORTS OF BITS FOR MONITOR COMMUNICATION (DON'T LET ANYONE TELL YOU THAT
;	TOPS-10 IS A TWO-BIT MONITOR!)

$BIN==1B23				; DEVICE CAN WRITE BINARY

$OUT==1					; DEVICE CAN DO OUTPUT
$IN==2					; DEVICE CAN DO INPUT
$DIREC==4				; DEVICE HAS A DIRECTORY
$TTY==10				; DEVICE IS A TTY
$MTA==100				; DEVICE IS A MAG-TAPE
$DTA==100				; DEVICE IS A DEC-TAPE
$LPT==40000				; DEVICE IS A LINE-PRINTER
$CDR==100000				; DEVICE IS A CARD-READER
$DSK==200000				; DEVICE IS A DISK
$AVAIL==40				; DEVICE IS AVAILABLE
$CONSL==10000				; DEVICE IS A CONSOLE

$REW==2					; REWIND MAG-TAPE
$ERAS==740000				; DEVICE ERROR FLAGS
$EOT==2000				; END OF MAG-TAPE

$PPOVF==200000				; ENABLE PUSH-DOWN OVERFLOW TRAP
$ILMEM==20000				; ENABLE ILLEGAL MEMORY REFRENCE TRAP
$NONEX==10000				; ENABLE NON-EXISTANT MEMORY TRAP

$APRF==$PPOVF!$ILMEM!$NONEX

$CLS40==40				; CLOSE DISCARDING NEW FILE, KEEPING OLD

;FLAGS SET IN ACCUMULATOR "SW"

FTERA==1B0				; TYPE ERRORS ON CONSOLE
F1P==1B1				; one if 1P repeat desired
FNOLST==1B2				; NO LISTING
FOBJEC==1B4				; LIST OBJECT CODE IF 0
FFATAL==1B5				; THERE IS A FATAL ERROR
FMAP==1B6				; MAPS REQUESTED
FEOF==1B7				; END OF SOURCE
FESRC==1B8				; NO MORE SOURCE FILES IN THIS COMMAND
FECOM==1B9				; END OF COMMAND FILE
FSYNER==1B10				; ERROR OCCURRED IN SYNTAX
FECOPY==1B11				; FINISH UP COPY FILE
FREENT==1B12				; OBJECT PROGRAM IS TO BE REENTRANT
FSEQ==1B13				; SOURCE IS SEQUENCED
FDBUG==1B14				; 1 IF "DEBUG" CALC-OP TO BE ALLOWED
FDSKC==1B15				; COMMANDS TAKEN FROM DSK
FNOCPY==1B16				; INHIBIT COPY
FNDTRC==1B16				; TURN ON SYNTAX TRACE
FLTTY==1B17				; LISTING FILE IS TTY


;BITS IS RH USED BY COMMAND SCANNER

FCOMCH==1B18				; REGET A COMMAND CHARACTER
FCOMWD==1B19				; REGET A COMMAND WORD
FHELP==1B20				; TYPE HELP MESSAGE

;BITS IN RH OF "SW" USED BY "GET SOURCE" ROUTINES

FREGCH==1B18				; REGET PREVIOUS SOURCE CHARACTER

;BIT IN RH OF "SW" USED BY B, C, & D

FALTSQ==1B19				; ???????????

;BITS IN RH OF "SW" USED BY EXTENSION SPEC ROUTINES

FCOMP==1B22				; TABLE TO BE LOADED AT COMPILE TIME
FEXEC==1B23				; TABLE TO BE LOADED DURING EXECUTION
FRAF==1B24				; FILE IS RECORD ADDRESS
FPRE==1B25				; TABLE TO BE LOADED DURING PRE-EXECUTION
FDUMP==1B26				; TABLE TO BE DUMPED AT END OF RUN
FALTAB==1B27				; WE ARE PROCESSING AN ALTERNATE TABLE

;BITS IN RH OF "SW" USED BY INPUT SPEC ROUTINES

FMDFIL==1B22				; FLAG TO SHOW WE ARE PROCESSING A FILE
FSPRED==1B23				; FLAG TO SHOW WE HAVE SPREAD RECORDS
FLOKHD==1B24				; WE HAVE A LOOK AHEAD RECORD
FDATLK==1B25				; WE HAVE A DATEB LINK SET UP
FANDOR==1B26				; WE ARE PROCESSING A AND/OR LINE
FARRAY==1B27				; WE HAVE AN ARRAY ENTRY
FARRY==1B28				; WE HAVE AN ARRAY
FIMD==1B29				; ARRAY INDEX IS IMMEDIATE

;BITS IN RH OF "SW" USED BY OUTPUT SPEC ROUTINES

;FMDFIL==1B22				; FLAG TO SHOW WE ARE PROCESSING A FILE
FLAG==1B23				; GENERAL PURPOSE FLAG
FCON==1B24				; CONSTANT LINE FLAG
;FARRAY==1B27				; WE HAVE AN ARRAY ENTRY
;FARRY==1B28				; WE HAVE AN ARRAY OR TABLE
;FIMD==1B29				; ARRAY INDEX IS IMMEDIATE

;BITS IN RH OF "SW" USED BY CALCULATION SYNTAX SCANNER (PHASE D)

F1LNK==1B20				; = 0 IF F1LINK CONTAINS LINK
F2LNK==1B21				; = 1 IF F2LINK CONTAINS SIXBIT SYMBOL
FDET==1B22				; DETAIL SECTION FLAG
FTOT==1B23				; TOTAL SECTION FLAG
FLR==1B24				; LAST RECORD SECTION FLAG
FSR==1B25				; SUBROUTINE SECTION FLAG
FANDOR==1B26				; AND/OR FLAG
FMAGIC==1B26				; THE MAGIC FLAG
F1LIT==1B27				; FACTOR 1 LITERAL FLAG
F2LIT==1B28				; FACTOR 2 LITERAL FLAG
F1NUM==1B29				; FACTOR 1 NUMERIC FLAG
F2NUM==1B30				; FACTOR 2 NUMERIC FLAG
F1DAT==1B33				; FACTOR 1 DATA ITEM FLAG
F2DAT==1B34				; FACTOR 2 DATA ITEM FLAG
FDIV==1B35				; DIVIDE WAS LAST OP SEEN

;BITS IN RH OF "SW" USED BY CODE GENERATORS (PHASE E)

FOP1WL==1B20				; OP1 IS A WHOLE ARRAY
FWHOLE==1B21				; WE ARE HANDLING WHOLE ARRAYS
FAS3==1B22				; WE ARE USING AS3FIL
FZFILL==1B23				; ZERO FILL
FSTAR==1B24				; STAR FILL
FLOATD==1B25				; FLOATING DOLLAR SIGN
FZERO==1B26				; ZERO SEEN
FIRST==1B27				; FIRST PASS FLAG
FOP1AR==1B23				; OP 1 IS ARRAY ENTRY
FOP2AR==1B24				; OP 2 IS ARRAY ENTRY
FOP1TB==1B25				; OP 1 IS TABLE
FOP2TB==1B26				; OP 2 IS TABLE
FWZARD==1B27				; THAUMATURGICAL PRODIGY
FMINUS==1B28				; UNARY MINUS SEEN
FDECPT==1B29				; DECIMAL POINT SEEN
FINDON==1B30				; INDICATOR ESCAPE GENERATED
FROUND==1B31				; ROUND THE AC'S
FASCEN==1B32				; TABLE IS IN ASCENDING SEQUENCE
FLKNUM==1B33				; LOOKUP IS NUMERIC
FINC==1B33				; we must increment in BNCGN2
FPUT==1B34				; WE ARE PUTTING NOT GETTING
FLKLIN==1B35				; WE ARE USING LINEAR SEARCH
FBINRY==1B35				; WE ARE DEALING WITH BINARY
FLALT==1B34				; we are using alternating arrays
FLUALT==1B35				; right at this instant

;BITS IN RH OF "SW" USED BY LISTING PHASE

FERALN==1B22				; CURRENT LINE HAS DIAGNOSTICS
FLWARN==1B23				; WE ARE PUTTING OUT WARNING DIAGNOSTICS AT END

;BITS IN RH OF "SW" USED BY ASSEMBLER

FASPAR==1B22				; A PARAGRAPH NAME HAS BEEN PRINTED FOR CURRENT LOCATION
FASSEG==1B23				; CURRENTLY PROCESSING NON-RESIDENT SEGMENT
FASDAT==1B24				; CURRENTLY ASSEMBLING DATA AREA
FASEXT==1B25				; CURRENTLY LISTING AN EXTERNAL NAME
FGDEC==1B26				; DECIMAL INCREMENTS ALLOWED
FRELOC==1B27				; ASSEMBLING CODE FOR RELOCTABLE SECTION OF PROGRAM
FSRTID==1B28				; THERE ARE SOME CREF SORT FILES OPEN

;DEFINE MISC FLAGS

ASINC==200000				; INCREMENT WORD FOLLOWS
AC0==0B30				; Use AC0
AC1==1B30				; USE AC1
AC2==2B30				; USE AC2
AC3==3B30				; USE AC3
AC4==4B30				; USE AC4
AC5==5B30				; USE AC5
AC6==6B30				; USE AC6 (BE CAREFULL USING AC6)
AC10==10B30				; USE AC10 (ARG ONLY)
AC16==16B30				; USE AC16 (UUO PARAMETERS ONLY)
AC17==17B30				; USE AC17 (PUSH AND POP ONLY)

;FLAGS IN LEFT HALF OF "W1" DURING ASSEMBLY (WORD 1 OF ASYFIL)

ASINC==200000				; INCREMENT WORD FOLLOWS OPERATOR
ASCASC==40000				; ASCII CONSTANT
ASCSIX==20000				; SIXBIT CONSTANT
ASCD1==10000				; 1-WORD DECIMAL CONSTANT
ASCD2==4000				; 2-WORD ASCII CONSTANT
ASCFLT==2000				; FLOATING POINT CONSTANT
ASCOCT==1000				; OCTAL CONSTANT
ASCON==ASCASC!ASCSIX!ASCD1!ASCD2!ASCFLT!ASCOCT

ASPARN==40000				; MISCELLANEOUS IS PARAGRAPH OR SECTION NAME
ASTAGN==20000				; 	"	IS TAG NAME
ASREL==10000				;	"	IS "RELOC"
ASENTN==4000				;	"	IS ENTRY POINT


;VARIOUS OTHER FLAGS

DWFATL==1B21				; FATAL FLAG IN DIAG WORD
DWIMBD==200000				; DO NOT IMBED DIAGNOSTIC MESSAGE IN LISTING

;GENERAL MACRO CALLS


;GENERAL "SW" TESTER

	DEFINE SWTEST (A,B),<
	IFLE A-777777,<TR'B SW,A>
	IFG A-777777,<
	IFE A&777777,<TL'B SW,(A)>
	IFN A&777777,<TD'B SW,[A]>
	>
	>

DEFINE SWON (A),<SWTEST A,O>		; TURN ON FLAGS
DEFINE SWOFF (A),<SWTEST A,Z>		; TURN OFF FLAGS
DEFINE TSWC (A),<SWTEST A,C>		; COMPLEMENT FLAGS
DEFINE TSWF (A),<SWTEST A,NE>		; TEST FLAG AND SKIP IF OFF
DEFINE TSWT (A),<SWTEST A,NN>		; TEST FLAG AND SKIP IF ON
DEFINE TSWFZ (A),<SWTEST A,ZE>		; CLEAR FLAG, SKIP IF IT WAS ON
DEFINE TSWTZ (A),<SWTEST A,ZN>		; CLEAR FLAG, SKIP IF IT WAS OFF
DEFINE TSWFS (A),<SWTEST A,OE>		; SET FLAG, SKIP IF IT WAS OFF
DEFINE TSWTS (A),<SWTEST A,ON>		; SET FLAG, SKIP IF IT WAS ON
DEFINE TSWFC (A),<SWTEST A,CE>		; COMPLEMENT FLAG, SKIP IF IT WAS OFF
DEFINE TSWTS (A),<SWTEST A,CN>		; COMPLEMENT FLGA, SKIP IF IT WAS ON
DEFINE SWONS (A),<SWTEST A,OA>		; SET FLAG AND ALWAYS SKIP
DEFINE SWOFFS (A),<SWTEST A,ZA>		; CLEAR FLAG AND ALWAYS SKIP

	DEFINE SETFAZ (X),<
		INTERNAL RPGII'X
	MOVEI	TA,"'X"
	MOVEM	TA,PHASEN
	MOVE	PP,PPOINT
	EXTERNAL PHASEN, PPOINT, IMPURE

	IFE	ONESEG,<	EXTERNAL PURE'X	>



IFDIF <X><B><IFDIF<X><G><
	EXTERNAL KILL,REDO,RESTRT,WEDIED,XPNPPL,UUOCAL
	IFE	ONESEG,<
	REGO==RPGII'X
	INTERNAL REGO
	>
	IFN	%CPU-%20,<
	IFN	DEBUG,<.REQUEST DDT>
			>

	MOVEI	TA,KILL
	MOVEM	TA,WEDIED+1
	MOVEI	TA,REDO
	HRRM	TA,.JBSA
	MOVEI	TA,RESTRT
	HRRM	TA,.JBREN
	MOVE	TA,[PUSHJ PP,UUOCAL]
	MOVEM	TA,.JB41
	MOVEI	TA,XPNPPL
	HRRM	TA,.JBAPR
	MOVEI	TA,$APRF
	APRENB	TA,
	>>


	IFN DEBUG,<EXTERNAL %'X'TIME,%R'X'TIM,PATCH
	IFN %CPU-%20,<EXTERNAL DDT>
	IFDIF <X><A><IFDIF <X><G><IFDIF <X><B><
	OUTSTR	[ASCIZ "Phase X
"]
>>>
	MSTIME	TA,
	MOVEM	TA,%'X'TIME
	MOVEI	TA,0
	RUNTIM	TA,
	MOVEM	TA,%R'X'TIM
>>

;END OF PHASE CODE

DEFINE ENDFAZ (X),<

	IFN DEBUG,<EXTERNAL %'X'TIME,%R'X'TIM

	IFDIF <X><G><
	MOVEI	TA,0
	RUNTIM	TA,
	MOVEM	TA,%R'X'TIM+1
	MSTIME	TA,
	MOVEM	TA,%'X'TIME+1
	>>

	IFIDN <X><A><EXTERNAL RPGIIB
	JRST	RPGIIB>
	IFIDN <X><B><EXTERNAL RPGIIC
	JRST 	RPGIIC>
	IFIDN <X><C><EXTERNAL RPGIID
	JRST	RPGIID>
	IFIDN <X><D><EXTERNAL RPGIIE
	JRST	RPGIIE>
	IFIDN <X><E><EXTERNAL RPGIIF
	JRST RPGIIF>
	IFIDN <X><E><EXTERNAL RPGIIF
	JRST 	RPGIIF>
	IFIDN <X><F><EXTERNAL RPGIIG
	JRST	RPGIIG>
	>

;BYTE POINTER MACRO


DEFINE BPNT (COLUM),<

<^D36-<<<<^D'COLUM-1>-<<<^D'COLUM-1>/5>*5>>+1>*7>>B5+<7>B11+CRDBUF##+<<^D'COLUM-1>/5>


		    >

;TABLE DEFINITIONS
;
;PARAMETER	1 -  MNEMONIC FOR A TABLE
;		2 -  INITIAL TABLE SIZE
;		3 -  AMOUNT TO EXPAND IF NECESSARY
;		4 -  NAME, FOR LISTING PURPOSES
;		5 -  CODES FOR CLEANING TABLES AFTER PHASE D:
;			0 - LEAVE TABLE EMPTY
;			1 - THROW AWAY EMPTY WORDS
;			2 - LEAVE TABLE AS IS
;		6 -  CODES FOR CLEANING TABLES AT START OF PHASE F
;			SAME AS PARAMETER 5

	DEFINE TABLES,<
	XLIST
	TABSET NAM,900,0,NAMTAB,2,2
	TABSET DAT,1000,600,DATAB,1,2
	TABSET FIL,50,50,FILTAB,1,2
	TABSET EXT,50,20,EXTAB,2,1
	TABSET VAL,200,200,VALTAB,1,2
	TABSET LIT,500,200,LITAB,2,2
	TABSET TEM,12,10,TEMTAB,0,0
	TABSET IND,200,50,INDTAB,1,2
	TABSET OTF,50,20,OTFTAB,1,2
	TABSET ICH,200,100,ICHTAB,1,2
	TABSET OCH,500,400,OCHTAB,1,2
	TABSET PRO,200,150,PROTAB,1,2
	TABSET FTB,160,50,FTBTAB,1,2
	TABSET ARR,30,60,ARRTAB,1,2

	LIST
	>

;Define table sizes and ID codes
;
;Define them as internals so we can tell if they all agree in all
;modules as they are loaded.
;
;

CD.FIL==:0
CD.DAT==:1
CD.LIT==:2
CD.VAL==:3
CD.PRO==:4
CD.EXT==:5
CD.ICH==:6
CD.IND==:7
CD.OTF==:10
CD.OCH==:11

SZ.FIL==:10
SZ.DAT==:16
SZ.LIT==:1
SZ.VAL==:777777
SZ.CPY==:2
SZ.EXT==:2
SZ.HLD==:2
SZ.IND==:777777
SZ.ICH==:7
SZ.OCH==:7
SZ.OTF==:11
SZ.PRO==:2
SZ.FTB==:42
SZ.DEV==:32		; size of CBLIO's channel table entries
SZ.ARR==:4

;DEFINE UUO'S

OPDEF	WARNX [1B8]			; OUTPUT ERROR TO ERAFIL

DEFINE WARN (X),<
		WARNX	^D'X
	>




	LIST
	SALL

	SALL