1			APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.
			2			T04 FORTRAN II / SECTI0N ONE. 29 OCT 58
			3			8K VERSION WITHOUT CODING ON DRUMS.
			4
			5			SECTI0N 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIE	4F10000
			6			FORMULAS, COMPILES THE OBJECT (OUTPUTI INSTRUCTIONS. FOR	4F10001
			7			N0NARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A	4F10002
			8			PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION	4F10003
			9			IN TABLES.	4F10004
			10			THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE=	4F10005
			11			COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY	4F10006
			12			TNROUGHOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL	4F10007
			13			STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B,	4F10008
			14			C, AND D TREAT ARITHMETIC FORMULAS.	4F10009
			15				4F10010
			16			SECTION 1 / COMMON =	4F10011
			17			704 FORTRAN MASTER RECORD CARD / COMMON = F0140000.	4F10012
			18		WST	10,1
		00000	19		ORG	0	4F100121
	00000	0 00004 0 00030	20		PZE	ORGCOM,,1TOCS	4F100122
	00001	0 00000 0 06322	21		PZE	STATEB−1	4F100123
			22				4F10013
			23			PART I / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10014
			24			EIFNO AND SENSE SWITCH SIMULATORS.	4F10015
			25			TAPE TABLE BUFFERS.	4F10016
			26			TAPE TABLE PARAMETERS - INTET.	4F10017
			27			DRUM TABLE PARAMETERS.	4F10018
			28			FORSUB COUNT AND BUFFER.	4F10019
			29			CIB BUFFER AND PARAMETERS.	4F10020
			30			REMAINING WORKING STORAGE.	4F10021
			31			PART 2 / CONSTANTS USED BY SECTION ONE.	4F10022
			32			PART 3 / SUBROUTINES USED BY SECTION ONE=	4F10023
			33			NAME FUNCTION	4F10024
			34			C0I50,2 SCAN, AND CONVERT NUMERICS.	4F10025
			35			C0160,2 SCAN CHARACTERS.	4F10026
			36			C0180,Z CONVERT NUMERICS.	4F10027
			37			C0I90X,4 INITIALIZE C0190 TO 1ST WORD OF F.	4F10028
			38			C0390,4 INSERT CHARACTER.	4F10029
			39			C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC.	4F10030
			40			CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.	4F10031
			41			DIM.SR,4 DIMENSION TABLE SEARCH.	4F10032
			42			DRTABS(,4) DRUM TABLE ENTRIES.	4F10033
			43			0ETIFN,4 GET INTERNAL FORMULA NUMBER.	4F10034
			44			JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL.	4F10035
			45			MTR000 MONITOR STATES FROM DRUM.	4F10036
			46			RA000,4 COMPUTE RELATIVE ADDRESS.	4F10037
			47			RDRX,4 READ DRUM INTO BUFR.	4F10038
			48			SR6DCI,1 CONVERT 6 BCD DIGITS TO 1 BINARY.	4F10039
			49			SS000,4 SOAN AND PR0CESS SUBSCRIPTS.	4F10040
			50			SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES.	4F10041
			51			TESTFX,1 TEST FOR FIXED OR FLOATING POINT.	4F10042
			52			TEST..,4 TEST CHARACTER IN THE AC.	4F10043
			53			TET00,1 TAPE TABLE ENTRIES.	4F10044
			54				4F10045
			55			DIAG DIAGNOSTIC OALLERS.	4F10046
			56				4F10047
			57			TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING=	4F10048
			58				4F10049
			59			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION	4F10050
			60			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F10051
			61			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F	4F10052
			62			TNIS LOGICAL BLOCK OR SUBROUTINE.	4F10053
			63			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F10054
			64			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F10055
			65				4F10056
			66			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10057
			67				4F10058
			68			COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10059
		00030	69	ORGCOM	ORG	24	4F10060
			70			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10061
			71				4F10062
			72			EIFNO AND SENSE SWITCH SIMULATORS.	4F10063
	00030	0 00000 0 00000	73	EIFNO	PZE	**,,** EXTERNAL,,INTERNAL FORMULA NUMBER.	4F10064
	00031	0 00000 0 00002	74	ENDI1	PZE	2 SIMULATOR FOR SENSE SWITCH 1.	4F10065
	00032	0 00000 0 00002	75	ENDI2	PZE	2 SIMULATOR FOR SENSE SWITCH 2.	4F10066
	00033	0 00000 0 00002	76	ENDI3	PZE	2 SIMULATOR FOR SENSE SWITCH 3.	4F10067
	00034	0 00000 0 00002	77	ENDI4	PZE	2 SIMULATOR FOR SENSE SWITCH 4.	4F10068
	00035	0 00000 0 00002	78	ENDI5	PZE	2 SIMULATOR FOR SENSE SWITCH 5.	4F10069
			79			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10070
			80				4F10071
			81			BUFFERS USED BY TET00 FOR THE TAPE TABLES.	4F10072
		00036	82	TEIFNO	BSS	10 EXTERNAL,,INTERNAL FORMULA NUMBERS.	4F10073
		00050	83	TDO	BSS	10 DO STATEMENTS.	4F10074
		00062	84	TIFGO	BSS	10 IF AND GO TO STATEMENTS.	4F10075
		00074	85	TRAD	BSS	10 IF AND GO TO TRANSFER ADDRESSES.	4F10076
		00106	86	FORTAG	BSS	10 INDEXES TO TAU AND SIGMA TABLES.	4F10077
		00120	87	FORVAR	BSS	10 RIGHT - NON-SUB. FX. PT. VARIABLES.	4F10078
		00132	88	FORVAL	BSS	10 LEFT - NON-SUB. FX. PT. VARIABLES.	4F10079
		00144	89	FRET	BSS	10 FREQUENCY STATEMENTS.	4F10080
		00156	90	EQUIT	BSS	10 EQUIVALENCE STATEMENTS.	4F10081
		00170	91	CLOSUB	BSS	10 NAMES OF SUBROUTINES.	4F10082
		00202	92	FORMAT	BSS	10 FORMAT STATEMENTS.	4F10083
		00214	93	SUBDEF	BSS	10 SUBROUTINE DEFINITION STATEMENTS.	4F10084
		00226	94	COMMON	BSS	10 UPPER MEMORY STORAGE STATEMENTS.	4F10085
		00240	95	NOLARG	BSS	10 HOLLERITH ARGUMENTS FOR SUBROUTINE.	4F10086
		00252	96	NONEXC	BSS	10 NON-EXECUTED STATEMENTS.	4F10087
		00264	97	TSTOPS	BSS	10 STOP STATEMENTS.	4F10088
		00276	98	CALLFN	BSS	10 1ST / LAST IFN FOR CALL STATEMENTS.	4F10089
		00310	99	FMTEFN	BSS	10 TABLE OF FORMAT EXTERNAL FORMNOS.	4F10090
			100			FND OF THE TAPE TABLE BUFFERS.	4F10091
			101			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10092
			102				4F10093
			103			INTET/ TABLE PARAMETERS USED BY TET00, WHERE	4F10094
			104			O = ORIGIN OF TABLE BUFFER,	4F10095
			105			B = BUFFER CAPACITY,	4F10096
			106			A = ADDRESS OF TABLE ENTRY,	4F10097
			107			E = ENTRY LENGTH IN WORDS,	4F10098
			108			C = COUNT OF BLOCKS PUT ON TAPE,	4F10099
			109			P = PORTION OF BUFFER THAT IS FULL.	4F10100
			110				4F10101
	00322	0 00012 0 00036	111	INTET	PZE	TEIFNO,,10 00) O,,B.	4F10102
	00323	0 00001 0 00030	112		PZE	EIFNO,,1 A,,E.	4F10103
	00324	0 00000 0 00000	113		PZE	**,,** C,,P.	4F10104
			114				4F10105
	00325	0 00012 0 00050	115		PZE	TDO,,10 01) O,,B.	4F10106
	00326	0 00005 0 01105	116		PZE	1C,,5 A,,E.	4F10107
	00327	0 00000 0 00000	117		PZE	**,,** C,,P.	4F10108
			118				4F10109
	00330	0 00012 0 00062	119		PZE	TIFGO,,10 02) O,,B.	4F10110
	00331	0 00002 0 01105	120		PZE	1C,,2 A,,E.	4F10111
	00332	0 00000 0 00000	121		PZE	**,,** C,,P.	4F10112
			122				4F10113
	00333	0 00012 0 00074	123		PZE	TRAD,,10 03) O,,B.	4F10114
	00334	0 00001 0 01112	124		PZE	1G,,1 A,,E.	4F10115
	00335	0 00000 0 00000	125		PZE	**,,** C,,P.	4F10116
			126				4F10117
	00336	0 00012 0 00106	127		PZE	FORTAG,,10 04) 0,,B.	4F10118
	00337	0 00001 0 01347	128		PZE	G,,1 A,,E.	4F10119
	00340	0 00000 0 00000	129		PZE	**,,** C,,P.	4F10120
			130				4F10121
	00341	0 00012 0 00120	131		PZE	FORVAR,,10 05) O,,B.	4F10122
	00342	0 00002 0 01347	132		PZE	G,,2 A,,E.	4F10123
	00343	0 00000 0 00000	133		PZE	**,,** C,,P.	4F10124
			134				4F10125
	00344	0 00012 0 00132	135		PZE	FORVAL,,10 06) O,,B.	4F10126
	00345	0 00002 0 01347	136		PZE	G,,2 A,,E.	4F10127
	00346	0 00000 0 00000	137		PZE	**,,** C,,P.	4F10128
			138				4F10129
	00347	0 00012 0 00144	139		PZE	FRET,,10 07) O,,B.	4F10130
	00350	0 00001 0 01112	140		PZE	1G,,1 A,,E.	4F10131
	00351	0 00000 0 00000	141		PZE	**,,** C,,P.	4F10132
			142				4F10133
	00352	0 00012 0 00156	143		PZE	EQUIT,,10 06) O,,B.	4F10134
	00353	0 00002 0 01105	144		PZE	1C,,2 A,,E.	4F10135
	00354	0 00000 0 00000	145		PZE	**,,** C,,P.	4F10136
			146				4F10137
	00355	0 00012 0 00170	147		PZE	CLOSUB,,10 09) O,,B.	4F10138
	00356	0 00001 0 01347	148		PZE	G,,1 A,,E.	4F10139
	00357	0 00000 0 00000	149		PZE	**,,** C,,P.	4F10140
			150				4F10141
	00360	0 00012 0 00202	151		PZE	FORMAT,,10 10) O,.B.	4F10142
	00361	0 00002 0 01347	152		PZE	G,,2 A,,E.	4F10143
	00362	0 00000 0 00000	153		PZE	**,,** C,,P.	4F10144
			154				4F10145
	00363	0 00012 0 00214	155		PZE	SUBDEF,,10 11) O,,0.	4F10146
	00364	0 00001 0 01112	156		PZE	1G,,1 A,,E.	4F10147
	00365	0 00000 0 00000	157	SBDFCN	PZE	**,,** O,,P.	4F10148
			158				4F10149
	00366	0 00012 0 00226	159		PZE	COMMON,,10 12I O,,B.	4F10150
	00367	0 00001 0 01112	160		PZE	1G,,1 A,,E.	4F10151
	00370	0 00000 0 00000	161		PZE	**,,** O,,P.	4F10152
			162				4F10153
	00371	0 00012 0 00240	163		PZE	NOLARG,,10 I3) 0,,0.	4F10154
	00372	0 00001 0 01112	164		PZE	1G,,1 A,,E.	4F10155
	00373	0 00000 0 00000	165		PZE	**,,** C,,P.	4F10156
			166				4F10157
	00374	0 00012 0 00252	167		PZE	NONEXC,,10 14) O,,0.	4F10158
	00375	0 00001 0 00030	168		PZE	EIFNO,,1 A,,E.	4F10159
	00376	0 00000 0 00000	169		PZE	**,,** C,,P.	4F10160
			170				4F10161
	00377	0 00012 0 00264	171		PZE	TSTOPS,,10 15) O,,B.	4F10162
	00400	0 00001 0 00030	172		PZE	EIFNO,,1 A,,E.	4F10163
	00401	0 00000 0 00000	173		PZE	**,,** C,,P.	4F10164
			174				4F10165
	00402	0 00012 0 00276	175		PZE	CALLFN,,10 16) 0,,B.	4F10166
	00403	0 00001 0 01123	176		PZE	CALLNM,,1 A,,E.	4F10167
	00404	0 00000 0 00000	177		PZE	**,,** C,,P.	4F10168
			178				4F10169
	00405	0 00012 0 00310	179		PZE	FMTEFN,,10 17) O,,B.	4F10170
	00406	0 00001 0 01366	180		PZE	SET,,1 A,,E.	4F10171
	00407	0 00000 0 00000	181		PZE	**,,** C,,P.	4F10172
			182				4F10173
		00410	183		BSS	3 EXPANSION SPACE FOR INTET.	4F10174
			184			END OF TAPE TABLE PARAMETERS.	4F10175
			185			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10176
			186				4F10177
			187			....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE	4F10178
			188			ARG1 = 1ST LOCATION OF ARGUMENT,	4F10179
			189			L = LENGTH 0F ARGUMENT IN WORDS,	4F10180
			190			TDA = LOC. OF NEXT DRUM ENTRY,	4F10181
			191			N = NO. OF ENTRIES ON DRUM,	4F10182
			192			*** = TXL FOR ENTRY SUM TABLES,	4F10183
			193			*** = TXH FOR BLOCK SUM TAB(FLCN),	4F10184
			194			FDA = LOC. OF 1ST DRUM ENTRY,	4F10185
			195			K = BUFFER CAPACITY IN ENTRIES,	4F10186
			196			DBL = N*(L+I) FOR ENTRY SUM TABLE,	4F10187
			197			DBL = K*L+I FOR BLOCK SUM TABLE,	4F10188
			198			J = DRUM CAPACITY IN ENTRIES,	4F10189
			199			I = 5 - DRUM NUMBER.	4F10190
			200				4F10191
	00413	0 00001 0 01350	201		PZE	G+1,,1 FIXCON) ARG1+L,,L	4F10192
	00414	0 00000 0 00002	202		PZE	FIXCON,,** TDA,,N	4F10193
	00415	−3 00062 0 00002	203	TXLOP	TXL	FIXCON,,50*1 *** FDA,,K*L	4F10194
	00416	0 00144 0 00144	204		PZE	50*2,,100 DBL,,J	4F10195
	00417	1 00003 0 02073	205	FXCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10196
			206				4F10197
	00420	0 00001 0 01350	207		PZE	G+1,,1 FLOCON) ARG1+L,,L	4F10198
	00421	0 00000 0 00312	208		PZE	FLOCON,,** TDA,,N	4F10199
	00422	3 00062 0 00312	209	TXHOP	TXH	FLOCON,,50*1 *** FDA,,K*L	4F10200
	00423	0 00702 0 00063	210		PZE	50*1+1,,450 DBL,,J	4F10201
	00424	1 00003 0 02073	211	FLCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10202
			212				4F10203
	00425	0 00002 0 01133	213		PZE	E+3+2,,2 TAU1 ) ARG1+L,,L	4F10204
	00426	0 00000 0 00000	214		PZE	TAU1,,** TDA,,N	4F10205
	00427	−3 00062 0 00000	215		TXL	TAU1,,25*2 *** FDA,,K*L	4F10206
	00430	0 00144 0 00113	216		PZE	25*3,,100 DBL,,J	4F10207
	00431	1 00001 0 02073	217	TAU1IX	TXI	ALT,,5−4 TAI ALT,,I	4F10208
			218				4F10209
	00432	0 00004 0 01135	219		PZE	E+3+4,,4 TAU2 ) ARG1+L,,L	4F10210
	00433	0 00000 0 00454	220		PZE	TAU2,,** TDA,,N	4F10211
	00434	−3 00060 0 00454	221		TXL	TAU2,,12*4 *** FDA,,K*L	4F10212
	00435	0 00132 0 00074	222		PZE	12*5,,90 DBL,,J	4F10213
	00436	1 00001 0 02073	223	TAU2IX	TXI	ALT,,5−4 TXI ALT,,I	4F10214
			224				4F10215
	00437	0 00006 0 01137	225		PZE	E+3+6,,6 TAU3 ) ARG1+L,,L	4F10216
	00440	0 00000 0 01356	226		PZE	TAU3,,** TDA,,N	4F10217
	00441	−3 00060 0 01356	227		TXL	TAU3,,8*6 *** FDA,,K*L	4F10218
	00442	0 00113 0 00070	228		PZE	8*7,,75 DBL,,J	4F10219
	00443	1 00001 0 02073	229	TAU3IX	TXI	ALT,,5−4 TXI ALT,,I	4F10220
			230				4F10221
	00444	0 00001 0 01142	231		PZE	E+11+1,,1 SIGMA1) ARG1+L,,L	4F10222
	00445	0 00001 0 01230	232		PZE	SIGMA1+2,,1 TDA,,N	4F10223
	00446	−3 00036 0 01226	233		TXL	SIGMA1,,30*1 *** FDA,,K*L	4F10224
	00447	0 00036 0 00074	234		PZE	30*2,,30 DBL,,J	4F10225
	00450	1 00003 0 02073	235	SIG1IX	TXI	ALT,,5−2 TXI ALT,,I	4F10226
			236				4F10227
	00451	0 00002 0 01107	237		PZE	1C+2,,2 DIM1 ) ARG1+L,,L	4F10228
	00452	0 00000 0 00310	238		PZE	DIM1,,** TDA,,N	4F10229
	00453	−3 00000 0 00310	239	ORGDM1	TXL	DIM1,,0 *** FDA,,K*L	4F10230
	00454	0 00144 0 00000	240		PZE	0,,100 DBL,,J	4F10231
	00455	1 00002 0 02071	241	DIM1IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10232
			242				4F10233
	00456	0 00002 0 01107	243		PZE	1C+2,,2 DIM2 ) ARG1+L,,L	4F10234
	00457	0 00000 0 00764	244		PZE	DIM2,,** T0A,,N 4	4F10235
	00460	−3 00000 0 00764	245	ORGDM2	TXL	DIM2,,0 *** FDA,,K*L	4F10236
	00461	0 00144 0 00000	246		PZE	0,,100 DBL,,J	4F10237
	00462	1 00002 0 02071	247	DIM2IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10238
			248				4F10239
	00463	0 00003 0 01110	249		PZE	1C+3,,3 DIM3 ) ARG1+L,,L	4F10240
	00464	0 00000 0 01440	250		PZE	DIM3,,** TDA,,N	4F10241
	00465	−3 00000 0 01440	251	ORGDM3	TXL	DIM3,,0 *** FDA,,K*L	4F10242
	00466	0 00132 0 00000	252		PZE	0,,90 DBL,,J	4F10243
	00467	1 00002 0 02071	253	DIM3IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10244
			254			END OF DRUM TABLE PARAMETERS.	4F10245
			255			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10246
			256				4F10247
			257			COUNT AND,BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES.	4F10248
		00470	258	BK	BSS	1 FORSUB COUNTER.	4F10249
		00471	259	FORSUB	BSS	100 NAMES AND DEGREES OF FUNCTIONS.	4F10250
			260			END OF FUNCTION COUNT AND BUFFER.	4F10251
			261			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10252
			262				4F10253
			263			PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE.	4F10254
	00635	0 00144 0 00000	264	BS	PZE	,,100 CIB CAPACITY (4 * 25).	4F10255
	00636	0 00000 0 00000	265	EC	PZE	,,** ENTRY COUNT = NO. WORDS IN CIB.	4F10256
	00637	0 00000 0 00000	266	BBOX	PZE	,,** 2S COMPLEMENT OF THE ENTRY COUNT.	4F10257
		00640	267	CIB	BSS	100 COMPILED INSTRUCTION BUFFER.	4F10258
			268			END OF CIT PARAMETERS AND BUFFER.	4F10259
			269			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10260
			270				4F10261
			271			ALL 0F THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME.	4F10262
		01100	272		ORG	576	4F102625
		01100	273	ERASE	BSS	5 C0MMON WORKING STORAGE.	4F10263
		01105	274	1C	BSS	5 C0MMON NORKING STORAGE.	4F10264
		01112	275	1G	BSS	1 COMMON NORKING STORAGE.	4F10265
		01113	276	2G	BSS	1 COMMON WORKING STORAGE FOR STATE A.	4F10266
		01114	277	3G	BSS	1	4F10267
		01115	278	1H	BSS	1	4F10268
		01116	279	2H	BSS	1	4F10269
		01117	280	3LBAR	BSS	1 STORAGE USED BY ARITHMETIC.	4F10270
		01120	281	ARERAS	BSS	1 STORAGE USED BY ARITHMETIC.	4F10271
	01121	−0 00001 0 00004	282	ARGCNT	MZE	4,,1 ARGUMENT COUNTER USED BY C30,C32.	4F10272
		01122	283	ARGCTR	BSS	1 STORAGE USED BY ARITHMETIC.	4F10273
	01123	0 00000 0 00000	284	CALLNM	PZE	**,,**	4F10274
		01124	285	CHSAVE	BSS	1 WORKING STORAGE USED BY ROYCNV.	4F10275
		01125	286	DIMSAV	BSS	1 WORKING STORAGE USED BY SS000.	4F10276
		01126	287	E	BSS	14 WORKING STORAGE USED BY SS000.	4F10277
		01144	288	EPSM3	BSS	3	4F10278
		01147	289	EPS	BSS	1 EPSILON - VARIABLE USED BY RA000.	4F10279
		01150	290	E1C	BSS	1 COMMON WORKING STORAGE.	4F10280
		01151	291	EFN	BSS	1 EXTERNAL FORMULA NUMBER (F-1).	4F10281
		01152	292	F	BSS	111 ASSEMBLED STATEMENT REGION.	4F10282
		01331	293	FIRSTC	BSS	1 USED BY SS000,TESTFX,C3000.	4F10283
		01332	294	FSNAME	BSS	1 NAME OF FUNCTION.	4F10284
		01333	295	FT	BSS	12 SOURCE PROGRAM INPUT BUFFER.	4F10285
		01347	296	G	BSS	2	4F10286
		01351	297	GTAG	BSS	1 VARIABLE USED BY IOT, RA.	4F10287
	01352	307400000000	298	HOLCNT	BCD	1H(0000 WORKING STORAGE USED BY C3300.	4F10288
		01353	299	I	BSS	1	4F10289
		01354	300	LEFT	BSS	3 STORAGE USED BY ARITHMETIC.	4F10290
	01357	0 00000 0 00000	301	LENGTH	PZE	**,,**	4F10291
		01360	302	NBAR	BSS	1 STORAGE USED BY ARITHMETIC.	4F10292
		01361	303	N2	BSS	1	4F10293
		01362	304	OPNWRD	BSS	1 ERASABLE USED BY STATE D.	4F10294
	01363	0 00000 0 00000	305	PHI(I)	PZE	**,,**	4F10295
	01364	0 00000 0 00010	306	RAT	PZE	8,,** VARIABLE USED BY IOT.	4F10296
		01365	307	RESIDU	BSS	1 REMAINDER OF F-REGION WORD.(C0190)	4F10297
	01366	1 00000 0 00000	308	SET	PON	..	4F10298
		01367	309	SL	BSS	1	4F10299
		01370	310	SYMBOL	BSS	1 WORKING STORAGE USED BY SS000.	4F10300
	01371	0 00000 0 00370	311	TL	PZE	31*8,,**	4F10301
	01372	0 00000 0 00000	312	TLINE	PZE	** VARIABLE USED BY IOT.	4F10302
			313			END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS.	4F10303
			314			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10304
			315				4F10305
			316			C0MMON/2-CONSTANTS USED BY SECTION ONE=	4F10306
			317				4F10307
	01373	+000000000012	318	TEN	OCT	12 (1010) - CTEST-1I	4F10308
	01374	+000000000077	319	ENDMK	OCT	77 111111 - CTEST-I0	4F10309
	01375	+000000000074	320	OPEN	OCT	74 ( - CTEST-9	4F10310
	01376	+000000000073	321	COMMA	OCT	73 , - CTEST-8	4F10311
	01377	+000000000034	322	CLOS	OCT	34 ) - CTEST-7	4F10312
	01400	+000000000013	323	EQUAL	OCT	13 = - CTEST-6	4F10313
	01401	+000000000040	324	11Z	OCT	40 - - CTEST-5	4F10314
	01402	+000000000061	325	SLASH	OCT	61 / - CTEST-4	4F10315
	01403	+000000000033	326	POINT	OCT	33 . - CTEST-3	4F10316
	01404	+000000000020	327	12Z	OCT	20 + - CTEST-2	4F10317
	01405	+000000000054	328	STAR	OCT	54 * - CTEST-1	4F10318
		01406	329	CTEST	BSS	0 ADDRESS USED FOR INDEXING ABOVE.	4F10319
			330				4F10320
	01406	000000000000	331	L(0)	BCD	1000000 0	4F10321
	01407	000000000001	332	L(1)	BCD	1000001 1	4F10322
	01410	000000000002	333	L(2)	BCD	1000002 2	4F10323
	01411	000000000003	334	L(3)	BCD	1000003 3	4F10324
	01412	000000000004	335	L(4)	BCD	1000004 4	4F10325
	01413	000000000005	336	L(5)	BCD	1000005 5	4F10326
	01414	000000000006	337	L(6)	BCD	1000006 6	4F10327
	01415	000000000007	338	L(7)	BCD	1000007 7	4F10328
	01416	000000000010	339	L(8)	BCD	1000008 8	4F10329
	01417	000000000011	340	L(9)	BCD	1000009 9	4F10330
	01420	+000000000014	341	MINUS	OCT	14 -	4F10331
	01421	000000000023	342	L(C)	BCD	100000C C	4F10332
	01422	000000000026	343	L(F)	BCD	100000F F	4F10333
	01423	000000000030	344	L(H)	BCD	100000H H	4F10334
	01424	+000000000032	345	CHAR2	OCT	32 CONSTANT USED BY CD000.	4F10335
	01425	000000000046	346	L(O)	BCD	100000O O (ALPHABETIC)	4F10336
	01426	+000000000052	347	CHAR3	OCT	52 CONSTANT USED BY CD000.	4F10337
	01427	+000000000053	348	SPECOP	OCT	53 00000$	4F10338
	01430	+000000000060	349	BLANK	OCT	60 000000000060	4F10339
	01431	000000000062	350	L(S)	BCD	100000S S	4F10340
	01432	000000000063	351	L(T)	BCD	100000T T	4F10341
	01433	000000000067	352	L(X)	BCD	100000X X	4F10342
	01434	000000000071	353	L(Z)	BCD	100000Z Z	4F10343
	01435	+000000000072	354	PM	OCT	72 RECORD MARK (ILLEGAL) -CD000	4F10344
	01436	+000000000100	355	BIT29	OCT	100	4F10345
	01437	+000000000121	356	A81	DEC	81 CONSTANT USED BY IOT.	4F10346
	01440	+000000000140	357	L(96)	OCT	140 USED BY C0500.	4F10347
	01441	+000000000160	358	L(112)	OCT	160 USED BY C0400.	4F10348
	01442	+000000000777	359	MASK3	OCT	777 ,ARITHMETIC.	4F10349
	01443	+000000001000	360	1E9	OCT	1000 A0DRESS=8	4F10350
	01444	000000002174	361	L(A()	BCD	10000A( INTERNAL FLO-PT VARIABLE PREFIX.	4F10351
	01445	000000003074	362	L(H()	BCD	10000H(	4F10352
	01446	000000003174	363	L(I()	BCD	10000I( INTERNAL FXD-PT VARIABLE PREFIX.	4F10353
	01447	+000000006212	364	SAPSYM	OCT	6212	4F10354
	01450	+000000006712	365	IFSYM	OCT	6712	4F10355
	01451	+000000007112	366	CALLER	OCT	7112	4F10356
	01452	+000000077777	367	MASK2	OCT	77777 2**15-I -ARITHMETIC.	4F10357
	01453	+000000400000	368	2E17	OCT	400000 TAG=4	4F10358
	01454	+000001000000	369	2E18	OCT	1000000 DECREMENT=1	4F10359
	01455	0 00001 0 00001	370	DECR1	PZE	1,,1 CONSTANT USED BY DRTABS.	4F10360
	01456	+000001000002	371	ABTAG2	OCT	1000002 CONSTANT USED BY C3200.	4F10361
	01457	0 00002 0 00000	372	D2	PZE	,,2 CONSTANT USED BY IOT.	4F10362
	01460	+000002000004	373	ABTAG3	OCT	2000004 CONSTANT USED BY C3200.	4F10363
	01461	0 00003 0 00000	374	D3CN	PZE	,,3 CONSTANT USED BY IOT.	4F10364
	01462	+000003077775	375	BETAD2	OCT	3077775 3*2**18+(-3) -ARITHMETIC.	4F10365
	01463	0 00006 0 00000	376	D6	PZE	,,6 CONSTANT USED BY IOT.	4F10366
	01464	0 00020 0 00000	377	FSIND	PZE	,,16	4F10367
	01465	0 00021 0 00000	378	DEC17	PZE	,,17	4F10368
	01466	0 00022 0 00000	379	DEC18	PZE	,,18	4F10369
	01467	+000032000000	380	PZ	OCT	32000000 PLUS ZERO -ED000.	4F10370
	01470	+000037777600	381	MASK5	OCT	37777600 -ARITHMETIC.	4F10371
	01471	0 00040 0 00000	382	FNIND	PZE	,,32	4F10372
	01472	0 00043 0 00000	383	DEC35	PZE	,,35	4F10373
	01473	+000052000000	384	MZ	OCT	52000000 MINUS ZERO -CD000.	4F10374
	01474	+000200000000	385	NGTBIT	OCT	000200000000	4F10375
	01475	0 00220 0 00000	386	BTA	PZE	,,144 CONSTANT USED BY IOT.	4F10376
	01476	0 00300 0 00000	387	BDA	PZE	0,0,192 CONSTANT USED BY I0T.	4F10377
	01477	006060606060	388	5BLANS	BCD	10␣␣␣␣␣ 006060606060	4F10378
	01500	010000000000	389	E(	BCD	1100000 -ARITHMETIC.	4F10379
	01501	020000000000	390	I(	BCD	1200000 -ARITHMETIC.	4F10380
	01502	030000000000	391	A(	BCD	1300000 -ARITHMETIC.	4F10381
	01503	040000000000	392	P(	BCD	1400000 -ARITHMETIC.	4F10382
	01504	060000000000	393	O(	BCD	1600000 -ARITHMETIC.	4F10383
	01505	070000000000	394	X(	BCD	1700000 -ARITHMETIC.	4F10384
	01506	+077775077775	395	BETAD1	OCT	77775077775 (-3(*2**18+(-3) -ARITHMETIC.	4F10365
	01507	+077777000000	396	1BAR	OCT	77777000000 (2**15-1)*2**18DECREMENT MASK.	4F10386
	01510	+170000000000	397	15P	DEC	15B5 CONSTANT USED BY IOT.	4F10387
	01511	+176060606060	398	PROCTR	OCT	176060606060	4F10388
	01512	+200000000000	399	ADPLUS	OCT	200000000000 ADDITION SIGN -ARITHMETIC.	4F10389
	01513	217400000000	400	FLOVAR	BCD	1A(0000 A( INTERNAL FLOATING PT. VARIABLE.	4F10390
	01514	256747740160	401	FXFX	BCD	1EXP(1␣	4F10391
	01515	256747740260	402	FLFX	BCD	1EXP(2␣	4F10392
	01516	256747740360	403	FLFL	BCD	1EXP(3␣	4F10393
	01517	317400000000	404	FIXVAR	BCD	1I(0000 I( INTERNAL FIXED PT. VARIABLE.	4F10394
	01520	−0 00000 0 00000	405	MINUS0	MZE	0	4F10395
	01521	−0 00002 0 00000	406	DECMI2	MZE	,,2	4F10396
	01522	−130000000000	407	ADSPOP	OCT	530000000000 $00000	4F10397
	01523	−136000000000	408	DOLSGN	OCT	536000000000 CONSTANT USED BY C32000	4F10398
	01524	−140000000000	409	ADSTAR	OCT	−140000000000 MULTIPLICATION SIGN -ARITHMETIC.	4F10399
	01525	−145400000000	410	STRSTR	OCT	−145400000000 EXPONENTIATION SIGN -ARITHMETIC.	4F10400
	01526	606060606060	411	BLANKS	BCD	1␣␣␣␣␣␣ 606O60606060	4F10401
	01527	−377777700000	412	MASK1	OCT	−377777700000 -(2**20-U.*2**15 -ARITHMETIC.	4F10402
	01530	−377777777737	413	MASK4	OCT	−377777777737 -ARITHMETIC.	4F10403
	01531	−377777777777	414	ALL1	OCT	−377777777777 END OF STATEMENT WORD.	4F10404
			415				4F10405
	01532	212424000000	416	L(ADD)	BCD	1ADD000 SYMBOLIC OPERATION CODE.	4F10406
	01533	214362000000	417	L(ALS)	BCD	1ALS000 SYMBOLIC OPERATION CODE.	4F10407
	01534	214521000000	418	L(ANA)	BCD	1ANA000 SYMBOLIC OPERATION CODE.	4F10408
	01535	215162000000	419	L(ARS)	BCD	1ARS000 SYMBOLIC OPERATION CODE.	4F10409
	01536	226262000000	420	L(BSS)	BCD	1BSS000 SYMBOLIC OPERATION CODE.	4F10410
	01537	232143000000	421	L(CAL)	BCD	1CAL000	4F10411
	01540	233062000000	422	L(CHS)	BCD	1CHS000 SYMBOLIC OPERATION CODE.	4F10412
	01541	234321000000	423	L(CLA)	BCD	1CLA000 SYMBOLIC OPERATI0N CODE.	4F10413
	01542	234344000000	424	L(CLM)	BCD	1CLM000 SYMBOLIC OPERATION CODE.	4F10414
	01543	234362000000	425	L(CLS)	BCD	1CLS000 SYMBOLIC OPERATION CODE.	4F10415
	01544	234770000000	426	L(CPY)	BCD	1CPY000	4F10416
	01545	242363000000	427	L(DCT)	BCD	1DCT000 SYMBOLIC OPERATION CODE.	4F10417
	01546	242524000000	428	L(DED)	BCD	1DED000	4F10418
	01547	246547000000	429	L(DVP)	BCD	1DVP000 SYMBOLIC OPERATION CODE.	4F10419
	01550	262124000000	430	L(FAD)	BCD	1FAD000 SYMBOLIC OPERATI0N CODE.	4F10420
	01551	262447000000	431	LIFDP)	BCD	1FDP000 SYMBOLIC OPERATION CODE.	4F10421
	01552	264447000000	432	L(FMP)	BCD	1FMP000 SYMBOLIC OPERATION CODE.	4F10422
	01553	266222000000	433	L(FSB)	BCD	1FSB000 SYMBOLIC OPERATION C0DE.	4F10423
	01554	304751000000	434	L(HPR)	BCD	1HPR000 SYMBOLIC OPERATION CODE.	4F10424
	01555	432421000000	435	L(LDA)	BCD	1LDA000	4F10425
	01556	432450000000	436	L(LDQ)	BCD	1LDQ000 SYMBOLIO OPERATION CODE.	4F10426
	01557	434362000000	437	L(LLS)	BCD	1LLS000 SYMBOLIC OPERATION CODE.	4F10427
	01560	435162000000	438	L(LRS)	BCD	1LRS000 SYMBOLIC OPERATION CODE.	4F10428
	01561	436724000000	439	L(LXD)	BCD	1LXD000 SYMBOLIC OPERATION CODE.	4F10429
	01562	444770000000	440	L(MPY)	BCD	1MPY000 SYMBOLIC OPERATION CODE.	4F10430
	01563	446225000000	441	L(MSE)	BCD	1MSE000 IDMBOLIC OPERATION CODE.	4F10431
	01564	465121000000	442	L(ORA)	BCD	1ORA000 SYMBOLIC OPERATION CODE.	4F10432
	01565	476225000000	443	L(PSE)	BCD	1PSE000 SYMBOLIC OPERATION CODE.	4F10433
	01566	476724000000	444	L(PXD)	BCD	1PXD000 SYMBOLIC OPERATION CODE.	4F10434
	01567	504751000000	445	L(QPR)	BCD	1QPR000 CONSTANT USED BY C3200.	4F10435
	01570	506724000000	446	L(QXD)	BCD	1QXD000 CONSTANT USED BY C3200.	4F10436
	01571	626321000000	447	L(STA)	BCD	1STA000 SYMBOLIC OPERATION CODE.	4F10437
	01572	626346000000	448	L(STO)	BCD	1STO000 SYMBOLIC OPERATION CODE.	4F10438
	01573	626350000000	449	L(STQ)	BCD	1STQ000 SYMBOLIC OPERATION CODE.	4F10439
	01574	626422000000	450	L(SUB)	BCD	1SUB000 SYMBOLIC OPERATION CODE.	4F10440
	01575	626724000000	451	L(SXD)	BCD	1SXD000 SYMBOLIC OPERATION C0DE.	4F10441
	01576	633167000001	452	L(TIX)	BCD	1TIX001	4F10442
	01577	634665000000	453	L(TOV)	BCD	1TOV000 SYMBOLIC OPERATION CODE.	4F10443
	01600	635046000000	454	L(TQO)	BCD	1TQO000 SYMBOLIC OPERATION CODE.	4F10444
	01601	635121000000	455	L(TRA)	BCD	1TRA000 SYMBOLIC OPERATION C0DE.	4F10445
	01602	636267000000	456	L(TSX)	BCD	1TSX000 SYMBOLIC OPERATION CODE.	4F10446
	01603	642621000000	457	L(UFA)	BCD	1UFA000 IYMBOLIC OPERATION CODE.	4F10447
			458			END 0F COMMON CONSTANTS USED BY SECTION ONE.	4F10448
			459			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10449
			460				4F10450
			461			COMMON/3-SUBROUTINES USED BY SECTION ONE=	4F10451
			462				4F10452
			463			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10453
			464				4F10454
			465			C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.	4F10455
			466			C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I	4F10456
			467			= 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-	4F10457
			468			NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERS	4F10458
			469			UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.	4F10459
	01604	−0 63400 2 01607	470	C0150	SXD	C015X,2 SAVE THE C(XR2).	4F10460
	01605	0 07400 4 01707	471		TSX	C0190,4 * TEST 1ST NON-BLANK CHARACTER	4F10461
	01606	0 34000 0 01417	472		CAS	L(9) FOR NUMERIC OR NON-NUMERIC.	4F10462
	01607	1 00000 0 01615	473	C015X	TXI	C0151,0,** IF NON-NUMERIC, TRANSFER.	4F10463
	01610	0 76100 0 00000	474		NOP	IF NUMERIC, THEN	4F10464
	01611	0 07400 2 01655	475		TSX	C0180,2 * GO CONVERT TO BINARY.	4F10465
	01612	0 60100 0 01113	476		STO	2G SAVE NEXT NON-NUMERIC CHARACTER.	4F10466
	01613	0 50000 0 01406	477		CLA	L(0) PREPARE TO SET I T0 +0.	4F10467
	01614	1 00000 0 01620	478	FWA	TXI	C0152,0,** GO SET I FOR NUMERIC.	4F10468
	01615	0 07400 2 01624	479	C0151	TSX	C0160,2 * ASSEMBLE NON-NUMERICS IN 1G.	4F10469
	01616	0 60100 0 01113	480		STO	2G SAVE PUNCTUATION MARK, AND	4F10470
	01617	0 50200 0 01406	481		CLS	L(0) PREPARE TO SET I TO -0.	4F10471
	01620	0 60100 0 01353	482	C0152	STO	I SET I = +0, OR -0.	4F10472
	01621	0 50000 0 01113	483		CLA	2G PICKUP NEXT CHARACTER,	4F10473
	01622	−0 53400 2 01607	484		LXD	C015X,2 RESTORE THE C(XR2), AND	4F10474
	01623	0 02000 2 00001	485		TRA	1,2 * RETURN TO CALLER.	4F10475
			486			END OF PROGRAM C0150.	4F10476
			487			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10477
			488				4F10478
			489			C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,	4F10479
			490			C1500,C3000,C3100,C0150.	4F10480
			491			C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND	4F10481
			492			SUOCESS.VE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK	4F10482
			493			IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A	4F10483
			494			BLANK, IF LESS THAN 6 CHARACTERS.	4F10484
	01624	−0 63400 2 01631	495	C0160	SXD	C016X,2 SAVE THE C(XR2), AND	4F10485
	01625	0 53400 2 01406	496		LXA	L(0),2 SET XR2 TO CONTROL SHIFTING.	4F10486
	01626	0 60000 0 01112	497		STZ	1G CLEAR WORKING STORAGE.	4F10487
	01627	0 53400 4 02652	498	C0161	LXA	CTESTX,4 TEST	4F10488
	01630	0 34000 4 01406	499	C0162	CAS	CTEST,4 CHARACTER	4F10489
	01631	1 00000 0 01633	500	C016X	TXI	C0163,0,** IN THE AC	4F10490
D	01632	1 00000 0 01642	501		TXI	C0165,0 AGAINST	4F10491
	01633	2 00001 4 01630	502	C0163	TIX	C0162,4,1 ALL PUNCTUATION.	4F10492
	01634	−3 00036 2 01636	503		TXL	C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS,	4F10493
	01635	0 07400 4 03400	504		TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F10494
	01636	0 76700 2 00036	505	C0164	ALS	30,2 BUILD LEFT-ADJUSTED	4F10495
	01637	−0 60200 0 01112	506		ORS	1G SYMBOL IN WORKING STORAGE.	4F10496
	01640	0 07400 4 01707	507		TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F10497
	01641	1 00006 2 01627	508		TXI	C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE.	4F10498
	01642	3 00000 2 01644	509	C0165	TXH	C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER,	4F10499
	01643	0 07400 4 03400	510	C0166	TSX	DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC.	4F10500
	01644	−3 00005 4 01643	511	C0167	TXL	C0166,4,5 IF LEGAL PUNCTUATION, THEN	4F10501
	01645	0 60100 0 01115	512		STO	1H 4 SAVE, AND	4F10502
	01646	0 50000 0 01430	513		CLA	BLANK ADD A BLANK	4F10503
	01647	0 76700 2 00036	514		ALS	30,2 TO SYMBOLS THAT ARE LESS	4F10504
	01650	−0 60200 0 01112	515		ORS	1G THAN 6 CHARACTERS IN LENGTH.	4F10505
	01651	0 50000 0 01115	516		CLA	1H PICKUP PUNCTUATION MARK,	4F10506
	01652	−0 53400 2 01631	517		LXD	C016X,2 RESTORE THE C(XR2), AND	4F10507
	01653	0 02000 2 00001	518		TRA	1,2 * RETURN TO CALLER.	4F10508
			519			END OF PROGRAM C0160.	4F10509
			520			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10510
			521				4F10511
			522			C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,	4F10512
			523			C1000,C1100,C1200,C1400,C1500,C0150.	4F10513
			524			C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ T0	4F10514
			525			BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN	4F10515
			526			THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.	4F10516
	01654	0 07400 4 01707	527	C0180X	TSX	C0190,4 * OBTAIN 1ST NUMERIC IN THE AC.	4F105165
	01655	0 60100 0 01112	528	C0180	STO	1G PLACE 1ST NUMERIC IN 1G.	4F10517
	01656	0 07400 4 01707	529		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F10518
	01657	0 34000 0 01417	530		CAS	L(9) AND IF NON-NUMERIC, THEN	4F10519
	01660	0 02000 2 00001	531		TRA	1,2 * RETURN TO CALLER.	4F10520
	01661	0 76100 0 00000	532		NOP	IF NUMERIC, THEN	4F10521
	01662	0 60100 0 01113	533		STO	2G SAVE DIGIT IN 2G.	4F10522
	01663	0 50000 0 01112	534		CLA	1G MULTIPLY	4F10523
	01664	0 76700 0 00002	535		ALS	2 C(1G)	4F10524
	01665	0 40000 0 01112	536		ADD	1G BY	4F10525
	01666	0 76700 0 00001	537		ALS	1 10,	4F10526
	01667	0 40000 0 01113	538		ADD	2G AND ADD CURRENT DIGIT.	4F10527
	01670	1 76626 0 01655	539	DCF	TXI	C0180,0,−F REPEAT PR0CESS FOR NEXT CHARACTER.	4F10528
			540			END OF PR0GRAM C01080	4F10529
			541			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10530
			542				4F10531
			543			C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.	4F10532
			544			C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F.	4F10533
	01671	0 50000 0 01670	545	C0190X	CLA	DCF SET FORMULA WORD	4F10534
	01672	0 62200 0 01614	546		STD	FWA ADDRESS = -(F-REGION ADDRESS),	4F10535
	01673	−0 63400 0 01724	547		SXD	CHCTR,0 SET CHARACTER C0UNT = 0,	4F10536
	01674	0 02000 4 00001	548		TRA	1,4 * RETURN TO MAIN ROUTINE.	4F10537
			549			END OF PROGRAM C0190X.	4F10538
			550			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10539
			551				4F10540
			552			C0390,4/ CALLERS=C0300,C3300.	4F10541
			553			C0390 INSERTS THE CHARACTER IN THE AC INT0 THE 1ST POSITION	4F10542
			554			TO THE LEFT OF THAT DEFINED BY FWA AND XR1.	4F10543
	01675	0 50000 0 01374	555	C0390	CLA	ENDMK PREPARE TO CHANGE	4F10544
	01676	−0 53400 2 01614	556		LXD	FWA,2 THE PROPER CHARACTER	4F10545
	01677	−0 53400 1 01724	557		LXD	CHCTR,1 IN THE F-REGION.	4F10546
	01700	−2 00001 1 01703	558		TNX	C0393,1,1 ADJUST MASK	4F10547
	01701	−0 76300 0 00006	559	C0392	LGL	6 TO POSITION	4F10548
	01702	2 00001 1 01701	560		TIX	C0392,1,1 CHARACTER.	4F10549
	01703	0 76000 0 00006	561	C0393	COM	INVERT MASK, AND	4F10550
	01704	0 32000 2 77777	562		ANS	−1,2 ERASE PROPER CHARACTER.	4F10551
	01705	−0 76300 0 00044	563		LGL	36 ADJUST CHARACTER, AND	4F10552
	01706	−0 60200 2 77777	564		ORS	−1,2 INSERT IN ERASED POSITION.	4F10553
			565			C0390 CONTINUES BY USING C0190.	4F10554
			566				4F10555
			567			C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C0200,C0300,C0400,	4F10556
			568			C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,	4F10557
			569			C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR.	4F10558
			570			C0190 OBTAINS IN AC TH NEXT NON-BLANK CHARACTER OF FORMULA.	4F10559
	01707	−0 63400 1 01723	571	C0190	SXD	C0194,1 SAVE THE C(XR1), AND	4F10560
	01710	−0 53400 1 01724	572		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F10561
	01711	0 56000 0 01365	573		LDQ	RESIDU PICK UP ANY REMAINING CHARACTERS.	4F10562
	01712	2 00001 1 01720	574	C0191	TIX	C0193,1,1 IF NONE,	4F10563
	01713	−0 53400 1 01614	575		LXD	FWA,1 PICK UP NEXT FORMULA	4F10564
	01714	0 56000 1 00000	576		LDQ	0,1 WORD FROM F-REGION,	4F10565
	01715	1 77777 1 01716	577		TXI	C0192,1,−1 AND INCREASE	4F10566
	01716	−0 63400 1 01614	578	C0192	SXD	FWA,1 FORMULA WORD ADDRESS BY 1.	4F10567
	01717	0 53400 1 01414	579		LXA	L(6),1 RESET XR1 FOR 6 NEW CHARACTERS.	4F10568
	01720	−0 75400 0 00000	580	C0193	PXD	,0 EXAMINE	4F10569
	01721	−0 76300 0 00006	581		LGL	6 NEXT CHARACTER	4F10570
	01722	0 34000 0 01430	582		CAS	BLANK AND COMPARE WITH A BLANK.	4F10571
	01723	1 00000 0 01725	583	C0194	TXI	C0195,0,** IF BLANK,	4F10572
	01724	1 00000 0 01712	584	CHCTR	TXI	C0191,0,** GO EXAMINE NEXT CHARACTER.	4F10573
	01725	−0 63400 1 01724	585	C0195	SXD	CHCTR,1 IF NOT BLANK, RESET CHAR COUNT,	4F10574
	01726	−0 60000 0 01365	586		STQ	RESIDU SAVE ANY REMAINING CHARACTERS,	4F10575
	01727	−0 53400 1 01723	587		LXD	C0194,1 RESTORE THE C(XR1), AND	4F10576
	01730	0 02000 4 00001	588		TRA	1,4 * RETURN TO MAIN ROUTINE.	4F10577
			589			END OF PROGRAM C0190.	4F10578
			590			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10579
			591				4F10580
			592			CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,	4F10581
			593			C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),	4F10582
			594			ETMSW(LTMSWI,LIB,VRA(VRD).	4F10583
			595			CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN	4F10584
			596			THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.	4F10585
	01731	−0 63400 2 01102	597	CIT00	SXD	CITXR2,2 SAVE THE C(XR2).	4F10586
	01732	−0 63400 1 01101	598		SXD	CITXR1,1 SAVE THE C(XR1).	4F10587
	01733	−0 60000 0 01150	599		STQ	CITMQR SAVE THE C(MQR).	4F10588
	01734	−0 53400 2 00637	600		LXD	BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.	4F10589
	01735	0 50000 0 00635	601		CLA	BS COMPARE BLOCK SIZE	4F10590
	01736	0 40200 0 00636	602		SUB	EC WITH ENTRY COUNT.	4F10591
	01737	−0 10000 0 01747	603		TNZ	CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY.	4F10592
	01740	0 76600 0 00223	604		WRS	CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE.	4F10593
	01741	0 73400 1 00000	605		PAX	,1 SET XR1 = 0, AND	4F10594
	01742	0 70000 1 00640	606	CIT01	CPY	CIB,1 COPY SUCCESSIVE	4F10595
	01743	1 77777 1 01744	607		TXI	CIT02,1,−1 WORDS OF BLOCK	4F10596
	01744	1 00001 2 01745	608	CIT02	TXI	CIT03,2,1 AND CONTINUE	4F10597
	01745	3 00001 2 01742	609	CIT03	TXH	CIT01,2,1 UNTIL XR2 = 0.	4F10598
	01746	0 76600 0 00333	610		IOD	WHEN DONE,	4F10599
	01747	0 53400 1 01412	611	CIT04	LXA	L(4),1 SET XR1 = ENTRY SIZE.	4F10600
	01750	1 77777 4 01751	612	CIT05	TXI	CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)	4F10601
	01751	0 50000 4 00000	613		CLA	0,4 AND PICK UP ADDRESS OF NEXT ENTRY	4F10602
	01752	0 62100 0 01753	614		STA	CIT06 TO SET NEXT ADDRESS.	4F10603
	01753	0 50000 0 00000	615	CIT06	CLA	** MOVE ENTRY	4F10604
	01754	0 60100 2 00640	616		STO	CIB,2 INTO CIB BUFFER,	4F10605
	01755	1 77777 2 01756	617		TXI	CIT07,2,−1 AND C0UNT -1 FOR EACH WORD ENTERED.	4F10606
	01756	2 00001 1 01750	618	CIT07	TIX	CIT05,1,1 WHEN DONE,	4F10607
	01757	−0 63400 2 00637	619		SXD	BBOX,2 SAVE THE C(XR2), AND	4F10608
	01760	−0 75400 2 02032	620	DMSR99	PXD	DMSR05+1,2 COMPUTE THE	4F10609
	01761	0 76000 0 00006	621		COM	REAL NUMBER	4F10610
	01762	0 40000 0 01454	622		ADD	2E18 OF WORDS ENTERED	4F10611
	01763	−0 73400 2 02031	623	DMSR98	PDX	DMSR05,2 IN CIB BUFFER, AND	4F10612
	01764	−0 63400 2 00636	624		SXD	EC,2 SAVE IN EC.	4F10613
	01765	0 56000 0 01150	625		LDQ	CITMQR RESTORE THE C(MQR),	4F10614
	01766	−0 53400 1 01101	626		LXD	CITXR1,1 RESTORE THE C(XR1),	4F10615
	01767	−0 53400 2 01102	627		LXD	CITXR2,2 RESTORE THE C(XR2I, AND	4F10616
	01770	0 02000 4 00001	628		TRA	1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS).	4F10617
			629			END OF PROGRAM CIT00.	4F10618
			630			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10619
			631				4F10620
			632			DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.	4F10621
			633			DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,	4F10622
			634			DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.	4F10623
			635			DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.	4F10624
	01771	−0 63400 4 01774	636	DIM1SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10625
	01772	−0 53400 4 00452	637		LXD	DIM1IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM1	4F10626
	01773	0 50000 0 00453	638		CLA	ORGDM1 AND PICK UP 1ST ADDRESS 0F DIM1 TO	4F10627
	01774	1 00000 0 02000	639	DMSR00	TXI	DMSR01,0,** GO SET DRUM ADDRESS.	4F10628
			640			DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE.	4F10629
	01775	−0 63400 4 01774	641	DIM2SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10630
	01776	−0 53400 4 00457	642		LXD	DIM2IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM2	4F10631
	01777	0 50000 0 00460	643		CLA	ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO	4F10632
	02000	0 62100 0 01104	644	DMSR01	STA	DRMADR SET DRUM ADDRESS.	4F10633
	02001	0 50000 0 01760	645		CLA	DMSR99 SET LOOP ADDRESS TO	4F10634
	02002	0 62100 0 02041	646		STA	DMSR15 DMSRO5+1 FOR DIM1 AND DIM2.	4F10635
	02003	−0 50000 0 02065	647		CAL	DMCN12 (STZ D3)	4F10636
	02004	1 00000 0 02014	648	DMSR11	TXI	DMSR02,0,** GO SET OP FOR DIM1 AND DIM2.	4F10637
			649			DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE.	4F10638
	02005	−0 63400 4 01774	650	DIM3SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10639
	02006	−0 53400 4 00464	651		LXD	DIM3IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM3	4F10640
	02007	0 50000 0 00465	652		CLA	ORGDM3 AND PICK UP 1ST ADDRESS 0F DIM3 TO	4F10641
	02010	0 62100 0 01104	653		STA	DRMADR SET DRUM ADDRESS.	4F10642
	02011	0 50000 0 01763	654		CLA	DMSR98 SET LOOP ADDRESS TO	4F10643
	02012	0 62100 0 02041	655		STA	DMSR15 DMSR05 FOR DIM3.	4F10644
	02013	−0 50000 0 02066	656		CAL	DMCN3 (CPY D3)	4F10645
	02014	0 60200 0 02031	657	DMSR02	SLW	DMSR05 4 SET OP CODES ACCORDING	4F10646
	02015	0 60200 0 02044	658		SLW	DMSR07 TO DIMENSION.	4F10647
	02016	−3 00000 4 02047	659		TXL	DMSR08,4,0 IF TABLE IS EMPTY, GO OUT.	4F10648
	02017	−0 63400 4 02004	660		SXD	DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR.	4F10649
	02020	0 53400 4 01413	661	DMSR14	LXA	L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS.	4F10650
	02021	−0 63400 4 02035	662	DMSR13	SXD	DMSR12,4 SAVE ERROR COUNTER, AND	4F10651
	02022	−0 53400 4 02004	663		LXD	DMSR11,4 RESET ENTRY COUNT.	4F10652
	02023	0 76200 0 00303	664		RDR	3 SELECT DRUM.	4F10653
	02024	0 50000 0 01130	665		CLA	E+2 GET NAME OF VARIABLE.	4F10654
	02025	0 46000 0 01104	666		LDA	DRMADR LOAD CURRENT DRUM ADDRESS, AND	4F10655
	02026	0 70000 0 01100	667	DMSR04	CPY	DRSYM COPY DRUM SYMBOL.	4F10656
	02027	0 04000 0 02043	668		TLQ	DMSR06 COMPARE WITH NAME OF VARIABLE, AND	4F10657
	02030	0 70000 0 01101	669		CPY	D12 IF NOT LESS, COPY N1 AND N2.	4F10658
	02031	0 00000 0 01102	670	DMSR05	PZE	D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).	4F10659
	02032	0 70000 0 01103	671		CPY	DRCKSM COPY CHECKSUM.	4F10660
	02033	0 34000 0 01100	672		CAS	DRSYM COMPARE DRUM SYMBOL WITH NAME OF V.	4F10661
	02034	0 07400 4 03400	673		TSX	DIAG,4 * GO TO DIAGNOSTIC - MACHINE ERROR.	4F10662
	02035	1 00000 0 02051	674	DMSR12	TXI	DMSR09,0,** IF NOT EQUAL, THEN	4F10663
	02036	0 70000 0 01100	675		CPY	DRSYM CONTINUE	4F10664
	02037	0 04000 0 02043	676		TLQ	DMSR06 PROCESS	4F10665
	02040	0 70000 0 01101	677		CPY	D12 UNTIL	4F10666
	02041	2 00001 4 00000	678	DMSR15	TIX	**,4,1 TABLE	4F10667
D	02042	1 00000 0 02047	679		TXI	DMSR08,0 IS EXHAUSTED.	4F10668
	02043	0 70000 0 01101	680	DMSR06	CPY	D12 PASS OVER ENTRY	4F10669
	02044	0 00000 0 01102	681	DMSR07	PZE	D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY).	4F10670
	02045	0 70000 0 01103	682		CPY	DRCKSM AND CHECKSUM, AND	4F10671
	02046	2 00001 4 02026	683		TIX	DMSR04,4,1 REPEAT LOOP.	4F10672
	02047	−0 53400 4 01774	684	DMSR08	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10673
	02050	0 02000 4 00001	685		TRA	1,4 * TAKE NOT FOUND EXIT.	4F10674
	02051	−0 50000 0 01100	686	DMSR09	CAL	DRSYM COMPUTE A	4F10675
	02052	0 36100 0 01101	687		ACL	D12 NEW	4F10676
	02053	0 36100 0 01102	688		ACL	D3 LOGICAL CHECKSUM	4F10677
	02054	0 76000 0 00006	689		COM	FOR ENTRY, AND	4F10678
	02055	0 36100 0 01103	690		ACL	DRCKSM COMPARE WITH	4F10679
	02056	0 76000 0 00006	691		COM	DRUM CHECKSUM.	4F10680
	02057	0 10000 0 02063	692		TZE	DMSR10 IF NOT EQUAL, THEN	4F10681
	02060	−0 53400 4 02035	693		LXD	DMSR12,4 REPEAT ATTEMPT,	4F10682
	02061	2 00001 4 02021	694		TIX	DMSR13,4,1 UNLESS PROCESS	4F10683
	02062	0 07400 4 03400	695		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F10684
	02063	−0 53400 4 01774	696	DMSR10	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10685
	02064	0 02000 4 00002	697		TRA	2,4 * TAKE FOUND EXIT TO MAIN ROUTINE.	4F10686
			698				4F10687
	02065	0 60000 0 01102	699	DMCN12	STZ	D3 CONSTANT USED BY DIM.SR.	4F10688
	02066	0 70000 0 01102	700	DMCN3	CPY	D3 CONSTANT USED BY DIM.SR.	4F10689
	02067	456351000000	701	ENT	BCD	1NTR000 VARIABLE USED BY IO AND FL.	4F10690
	02070	477125000000	702	NZE	BCD	1PZE000 VARIABLE USED BY FL.	4F10691
			703			END OF PROGRAM DIM.SR.	4F10692
			704			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10693
			705				4F10604
			706			DRTABS(,4)/ CALLS=RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA,	4F10695
			707			VRA(VRD).	4F10696
			708			DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF	4F10697
			709			THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM	4F10698
			710			TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION.	4F10699
			711			DIMALT= ENTRY POINT FOR DIMENSION TABLES.	4F10700
	02071	−0 50000 0 00415	712	DIMALT	CAL	TXLOP PICK UP SNITCH CONTROL,	4F10701
D	02072	1 00000 0 02074	713		TXI	DRTABS,0 AND GO SET SNITCH FOR DIM TABLES.	4F10702
			714			ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.	4F10703
	02073	0 50000 0 00422	715	ALT	CLA	TXHOP PICK UP SWITCH CONTROL,	4F10704
	02074	0 63000 0 02135	716	DRTABS	STP	DIMSW SET SNITCH.	4F10705
	02075	0 50000 4 00000	717		CLA	0,4 GET CALLER (TSX ....IX,4) IN AC.	4F10706
	02076	−0 63400 1 02535	718		SXD	XR1,1 SAVE THE C(XR1),	4F10707
	02077	−0 63400 2 02173	719		SXD	XR2,2 SAVE THE C(XR2),	4F10708
	02100	−0 63400 4 02215	720		SXD	XR4,4 SAVE THE C(XR4), AND	4F10709
	02101	−0 60000 0 02357	721		STQ	MQ SAVE THE C(MQR).	4F10710
	02102	0 40000 0 01407	722		ADD	L(1) PREPARE TO MOVE PARAMETERS	4F10711
	02103	0 62100 0 02107	723		STA	MOVE INTO WORKING STORAGE.	4F10712
	02104	0 40200 0 01412	724		SUB	L(4) PREPARE TO UPDATE	4F10713
	02105	0 62100 0 02213	725		STA	UPDATE PERMANENT PARAMETER.	4F10714
	02106	0 53400 1 01413	726		LXA	L(5),1 MOVE 5 WORDS	4F10715
	02107	−0 50000 1 00000	727	MOVE	CAL	**,1 (....IX+1)	4F10716
	02110	0 60200 1 02365	728		SLW	TEMP,1 OF PARAMETERS	4F10717
	02111	2 00001 1 02107	729		TIX	MOVE,1,1 INTO WORKING STORAGE.	4F10718
	02112	0 50200 0 02360	730		CLS	NAR INITIALIZE	4F10719
	02113	0 62100 0 02221	731		STA	TRY ALL	4F10720
	02114	0 40000 0 01407	732		ADD	L(1) GENERAL	4F10721
	02115	0 62100 0 02200	733		STA	ESUM1 INSTRUCTIONS=	4F10722
	02116	0 62100 0 02202	734		STA	ESUM2 X	4F10723
	02117	0 77100 0 00021	735		ARS	17 X	4F10724
	02120	0 40100 0 02526	736		ADM	BIAS X	4F10725
	02121	0 62100 0 02530	737		STA	JUMP1 X	4F10726
	02122	0 62100 0 02555	738		STA	JUMP2 X	4F10727
	02123	−0 50000 0 02362	739		CAL	FDA X	4F10728
	02124	0 62200 0 02235	740		STD	COMPR X	4F10729
	02125	0 63000 0 02530	741		STP	JUMP1 X	4F10730
	02126	0 63000 0 02152	742		STP	SW X	4F10731
	02127	0 63000 0 02210	743		STP	RX4 X	4F10732
	02130	0 50000 0 02533	744		CLA	LBUF X	4F10733
	02131	0 62100 0 02222	745		STA	BUFL X	4F10734
	02132	0 50000 0 02361	746		CLA	TDA X	4F10735
	02133	−0 53400 2 02361	747		LXD	TDA,2 X	4F10736
	02134	−0 63400 2 02146	748		SXD	BUFF+1,2 X	4F10737
D	02135	−3 00000 0 02145	749	DIMSW	TXL	BUFF,0 IF DIM TABLE, SKIP SEARCH.	4F10738
	02136	−3 00000 2 02150	750		TXL	XERR01+1,2,0 SKIP IF TABLE IS EMPTY.	4F10739
	02137	−0 53400 1 02360	751		LXD	NAR,1	4F10740
	02140	−0 63400 2 02223	752		SXD	NC,2	4F10741
	02141	−0 63400 2 02143	753		SXD	ADD01,2	4F10742
	02142	−2 00001 1 02235	754	ADD02	TNX	COMPR,1,1 COMPUTES (N*L).	4F10743
	02143	1 00000 2 02142	755	ADD01	TXI	ADD02,2,** (N)	4F10744
	02144	−0 53400 2 02362	756	BUFFM1	LXD	FDA,2	4F10745
	02145	−0 53400 1 02363	757	BUFF	LXD	DBL,1 L(J)	4F10746
	02146	2 00000 1 02150	758		TIX	BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW.	4F10747
D	02147	1 00000 0 02256	759	XERR01	TXI	WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED.	4F10748
	02150	−0 53400 1 02364	760		LXD	DI,1	4F10749
	02151	0 76600 1 00305	761		WDR	5,1	4F10750
D	02152	−3 00000 0 02174	762	SW	TXL	EBLK,0 ENTRY SUM=TXL, BLOCK SUM=TXH.	4F10751
	02153	−3 00000 2 02156	763		TXL	ADD04,2,0 SKIP IF TABLE IS EMPTY.	4F10752
	02154	1 00001 2 02155	764		TXI	ADD03,2,1	4F10753
	02155	−2 00062 2 02163	765	ADD03	TNX	ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL.	4F10754
	02156	0 60000 0 02365	766	ADD04	STZ	DUMP START NEW BLOCK CHECKSUM.	4F10755
	02157	0 50000 0 02361	767		CLA	TDA CHANGE CHECKSUM ADDRESS.	4F10756
	02160	0 62100 0 02362	768		STA	FDA	4F10757
	02161	0 40000 0 01407	769		ADD	L(1) SET ENTRY ADDR = CHECKSUM ADDR +1.	4F10758
	02162	0 62100 0 02361	770		STA	TDA	4F10759
	02163	−0 50000 0 02365	771	ADD05	CAL	DUMP	4F10760
	02164	0 36100 0 01347	772		ACL	G ADD NEW FLOCON TO	4F10761
	02165	0 60200 0 02365	773		SLW	DUMP CHECKSUM FOR THIS BLOCK.	4F10762
	02166	0 46000 0 02362	774		LDA	FDA	4F10763
	02167	0 70000 0 02365	775		CPY	DUMP WRITE BLOCK CHECKSUM ON DRUM.	4F10764
	02170	0 76600 1 00305	776		WDR	5,1	4F10765
	02171	0 46000 0 02361	777		LDA	TDA	4F10766
	02172	0 70000 0 01347	778		CPY	G WRITE NEW FLOCON ON DRUM.	4F10767
	02173	1 00000 0 02205	779	XR2	TXI	NOWIN,0,** GO UPDATE FLOCON PARAMETER.	4F10768
	02174	−0 75400 0 00000	780	EBLK	PXD	,0 FOR ALL TABLES EXCEPT FLOCON=	4F10769
	02175	−0 53400 2 02360	781		LXD	NAR,2 (L)	4F10770
	02176	0 46000 0 02361	782		LDA	TDA NEXT DRUM ENTRY ADDRESS.	4F10771
	02177	−2 00001 2 02202	783		TNX	ESUM2,2,1 IF L = 1,	4F10772
	02200	−0 70000 2 00000	784	ESUM1	CAD	**,2 (ARG1+L-1) WRITE NEW	4F10773
	02201	2 00001 2 02200	785		TIX	ESUM1,2,1 ENTRY ON DRUM.	4F10774
	02202	−0 70000 0 00000	786	ESUM2	CAD	** (ARG1+L-1)	4F10775
	02203	0 60200 0 02365	787		SLW	DUMP COMPUTE AND	4F10776
	02204	0 70000 0 02365	788		CPY	DUMP WRITE CHECKSUM FOR NEW ENTRY.	4F10777
	02205	−0 50000 0 02360	789	NOWIN	CAL	NAR UPDATE PERMANENT	4F10778
	02206	0 77100 0 00022	790		ARS	18 PARAMETERS FOR ENTRY	4F10779
	02207	0 40000 0 01455	791		ADD	DECR1 JUST ADDED TO TABLE.	4F10780
	02210	−3 00000 0 02212	792	RX4	TXL	RX4+2,0,** IF TABLE WAS FLOCON,	4F10781
	02211	0 40200 0 01407	793		SUB	L(1) READJUST.	4F10782
	02212	0 40100 0 02361	794		ADM	TDA N=N+1,TDA=TDA+(L+1) OR (L).	4F10783
	02213	0 60100 0 00000	795	UPDATE	STO	** (....IX-3)	4F10784
	02214	−0 53400 2 02361	796		LXD	TDA,2 L(N)	4F10785
	02215	1 00000 0 02247	797	XR4	TXI	OUT,0,** GET TAG AND EXIT.	4F10786
	02216	−0 53400 4 02223	798	NXBLK	LXD	NC,4	4F10787
	02217	−0 53400 2 02362	799		LXD	FDA,2 L(K*L),K=K.	4F10788
	02220	−0 53400 1 02360	800	NEW	LXD	NAR,1 L(L)	4F10789
	02221	0 50000 1 00000	801	TRY	CLA	**,1 (ARG1+L)	4F10790
	02222	0 34000 2 00000	802	BUFL	CAS	**,2 (BUFR OR CTABL)	4F10791
	02223	1 00000 0 02225	803	NC	TXI	NC+2,0,** NOT FOUND.	4F10792
	02224	1 77777 2 02242	804		TXI	YEA,2,−1 K*L = K*L-1.	4F10793
	02225	−2 00001 4 02144	805		TNX	BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE.	4F10794
	02226	−0 63400 1 02227	806		SXD	NC+4,1	4F10795
	02227	2 00000 2 02220	807		TIX	NEW,2,** K = K-1.	4F10796
	02230	−0 63400 4 02223	808		SXD	NC,4 SAVE CURRENT VALUE OF N,	4F10797
	02231	−0 50000 0 02363	809		CAL	DBL AND GET NEW BLOCK.	4F10798
	02232	0 40100 0 02362	810		ADM	FDA	4F10799
	02233	0 62100 0 02362	811		STA	FDA	4F10800
	02234	−0 53400 2 02241	812		LXD	NTL,2	4F10801
	02235	2 00000 2 02237	813	COMPR	TIX	COMPR+2,2,** (K*L)	4F10802
	02236	−0 63400 2 02362	814		SXD	FDA,2 K*L = (N*L)MOD K*L IF N*L IS	4F10803
	02237	−0 63400 2 02241	815		SXD	NTL,2 LESS TNAN K*L, OTHERWISE K*L = K*L.	4F10804
	02240	0 07400 4 02520	816		TSX	RDRX,4 * GO READ NEXT BLOCK INTO BUFFER.	4F10805
	02241	1 00000 0 02216	817	NTL	TXI	NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD	4F10806
	02242	2 00001 1 02221	818	YEA	TIX	TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.	4F10807
	02243	−0 53400 2 02361	819		LXD	TDA,2 (N)	4F10808
	02244	−0 63400 4 02245	820		SXD	YEA+3,4	4F10809
	02245	2 00000 2 02247	821		TIX	OUT,2,** COMPUTE TAG.	4F10810
	02246	0 53400 2 01406	822		LXA	L(0),2	4F10811
	02247	−0 75400 2 00000	823	OUT	PXD	,2 EXIT WITH TAG IN THE AC.	4F10812
	02250	0 77100 0 00022	824		ARS	18 (TAG = NUMBER OF ENTRIES	4F10813
	02251	−0 53400 2 02173	825		LXD	XR2,2 WHICH PRECEED THE ENTRY	4F10814
	02252	−0 53400 4 02215	826		LXD	XR4,4 WHICH EQUALS THE ARGUMENT.	4F10815
	02253	−0 53400 1 02535	827		LXD	XR1,1 RESTORE THE C(XR1,XR2,XR4),	4F10816
	02254	0 56000 0 02357	828		LDQ	MQ RESTORE THE C(MQR), AND	4F10817
	02255	0 02000 4 00001	829		TRA	1,4 * RETURN TO MAIN ROUTINE.	4F10818
	02256	−0 53400 4 02215	830	WHICH	LXD	XR4,4 GET ALPHA BAR, AND	4F10819
	02257	0 50000 4 00000	831		CLA	0,4 AND,PICK UP ALPHA (TSX ...NIX,4).	4F10820
	02260	−0 32000 0 01452	832		ANA	MASK2 BLANK ALL BUT ...NIX.	4F10821
	02261	0 40200 0 02274	833		SUB	CONX (...NIX) - (ADDR OF FXCNIX-5).	4F10822
	02262	0 53400 4 01417	834		LXA	L(9),4 SET XR4 FOR 9 TABLES.	4F10823
	02263	0 40200 0 01413	835	COMPUT	SUB	L(5) COMPUTE WHICH	4F10824
	02264	0 10000 0 02267	836		TZE	WHICHX TABLE OVERFLOWED.	4F10825
	02265	2 00001 4 02263	837		TIX	COMPUT,4,1 IF TABLE IS NOT FOUND,	4F10826
	02266	0 07400 4 03400	838		TSX	DIAG,4 * GO TO DIAGNOSTIC.	4F10827
	02267	−0 75400 4 00000	839	WHICHX	PXD	,4 OTHERWISE,	4F10826
	02270	0 76000 0 00006	840		COM	CONVERT 2S COMPLEMENT	4F10829
	02271	0 40000 0 01454	841		ADD	2E18 OF NUMBER,	4F10630
	02272	−0 73400 4 00000	842		PDX	,4 PLACE IN XR4, AND	4F10831
D	02273	1 00000 0 03400	843		TXI	DIAG,0 * GO TO DIAGNOSTIC.	4F11832
			844				4F10833
	02274	0 00000 0 00412	845	CONX	PZE	FXCNIX−5 CONSTANT USED BY DRTABS.	4F10834
		02357	846	BUFR	BES	50 DRUM TABLE BUFFER.	4F10835
		02357	847	MQ	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10836
		02360	848	NAR	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10837
		02361	849	TDA	BSS	1 NORKING STORAGE USED BY DRTABS.	4F10838
		02362	850	FDA	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10839
		02363	851	DBL	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10840
		02364	852	DI	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10841
		02365	853	TEMP	BSS	0 INDEXING ADDRESS FOR ABOVE -DRTABS.	4F10842
		02365	854	DUMP	BSS	1 WORKING STORAGE USED BY DRTABS.	4F10643
			855			END OF PROGRAM DRTABS.	4F10844
			856			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10845
			857				4F10646
			858			GETIFN,4/ OALLERS=COI00,CO200,C1000,C1100,C1600,C3200.	4F10847
			859			GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.	4F10848
	02366	−0 53400 1 00030	860	GETIFN	LXD	EIFNO,1 PLACE THE INTERNAL FORMULA	4F10849
	02367	−0 75400 1 00000	861		PXD	,1 NUMBER IN XRI, IN THE DECREMENT	4F10850
	02370	0 60100 0 01105	862		STO	1C OF THE AC, AND IN IC. THEN	4F10851
	02371	0 02000 4 00001	863		TRA	1,4 RETURN TO CALLER.	4F10852
			864			END OF PROGRAM GETIFN.	4F10853
			865			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10854
			866				4F10855
			867			JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),	4F10856
			868			VRA(VRD),C3200.	4F10857
			869			JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.	4F10858
	02372	−0 50000 0 00030	870	JIF	CAL	EIFNO INCREASE THE	4F10859
	02373	0 40000 0 01454	871		ADD	D1 INTERNAL FORMULA NUMBER	4F10860
	02374	0 62200 0 00030	872		STD	EIFNO BY 1.	4F10861
			873			GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).	4F10862
	02375	−0 50000 0 00030	874	GIF	CAL	EIFNO PICKUP IFN,	4F10863
	02376	−0 32000 0 01507	875		ANA	1BAR CLEAR SL, AND	4F10864
	02377	0 60200 0 01367	876	L(SL)	SLW	SL PLACE IFN IN THE DECREMENTS	4F10865
	02400	0 62200 0 01371	877	L(TL)	STD	TL OF SL AND TL.	4F10866
	02401	0 02000 4 00001	878		TRA	1,4 * EXIT TO CALLER.	4F10867
			879			END OF PROGRAM JIF(GIF).	4F10868
			880			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10869
			881				4F10870
	02402	0 02000 0 03440	882		TRA	STATEA RETURN FROM DIAGNOSTIC	4F10873
		02403	883		BSS	28 NOT USED.	4F10874
			884				4F10901
			885				4F10908
			886			RA000,4/ CALLERS=LPR,ARITH.	4F10909
			887			RA000 COMPUTES RELATIVE ADDRESS.	4F10910
	02437	−0 63400 4 01100	888	RA000	SXD	RAXR4,4 SAVE THE C(XR4) FOR RETURN.	4F10911
	02440	0 60000 0 01147	889		STZ	EPS CLEAR EPSILON (WORKING STORAGE).	4F10912
	02441	0 50000 0 01125	890		CLA	DIMSAV EXAMINE THE	4F10913
	02442	0 73400 4 01132	891	ED2	PAX	E+4,4 DIMENSION COUNT, AND	4F10914
	02443	−3 00002 4 02445	892		TXL	ED1,4,2 IF 3 DIMENSION,	4F10915
	02444	0 40000 0 01407	893		ADD	L(1) INCREASE IT 1.	4F10916
	02445	0 40100 0 02442	894	ED1	ADM	ED2 THEN SET	4F10917
	02446	0 62100 0 02447	895		STA	ED3 ED3 ADDRESS TO	4F10918
	02447	0 50000 4 00000	896	ED3	CLA	**,4 EXAMINE SUCCESSIVE	4F10919
	02450	0 56000 0 01454	897		LDQ	D1 SUBSCRIPT	4F10920
	02451	0 10000 0 02454	898		TZE	ED4 VARIABLES, AND	4F10921
	02452	−0 60000 0 01147	899		STQ	EPS ACCORDINGLY SET	4F10922
	02453	0 56000 0 01406	900		LDQ	L(0) EPSILON AND	4F10923
	02454	−0 60000 4 01147	901	ED4	STQ	EPS,4 EPSILON SUB I	4F10924
	02455	2 00001 4 02447	902		TIX	ED3,4,1 TO 1 OR TO 0. WHEN DONE,	4F10925
	02456	0 50000 0 01454	903		CLA	D1 IF 1 DIMENSION, PICKUP DECREMENT 1,	4F10926
	02457	0 53400 4 01125	904		LXA	DIMSAV,4 AND GO SUBTRACT ADDEND 1.	4F10927
	02460	−3 00001 4 02511	905		TXL	1D1,4,1 IF 2 OR 3 DIMENSION, THEN	4F10928
	02461	0 56000 0 01141	906		LDQ	E+11 PICKUP ADDENDS 1 AND 2,	4F10929
	02462	0 60000 0 01141	907		STZ	E+11 CLEAR E+11, AND	4F10930
	02463	−0 62000 0 01141	908		SLQ	E+11 RESTORE ADDEND 1 TO E+11.	4F10931
	02464	−0 76300 0 00022	909		LGL	18 ADJUST AND PLACE	4F10932
	02465	−0 60000 0 01361	910		STQ	N2 ADDEND 2 IN N2.	4F10933
	02466	0 56000 0 01134	911		LDQ	E+6 AND, IF 2 DIMENSION	4F10934
	02467	0 50000 0 01146	912		CLA	EPS−1 PICKUP EPSILON SUB 1,	4F10935
	02470	−3 00002 4 02503	913		TXL	2D1,4,2 AND GO SUBTRACT ADDEND 2.	4F10936
	02471	0 40200 0 01142	914		SUB	E+12 IF 3 DIMENSION, SET GTAG	4F10937
	02472	0 60100 0 01351	915		STO	GTAG TO EPSILON SUB 1 - ADDEND 3.	4F10938
	02473	0 56000 0 01136	916		LDQ	E+8 PICKUP DIMENSIONS 1 AND 2,	4F10939
	02474	0 60000 0 01136	917		STZ	E+8 CLEAR E+8, AND	4F10940
	02475	−0 62000 0 01136	918		SLQ	E+8 RESTORE DIMENSION 1 TQ E+8.	4F10941
	02476	−0 76300 0 00022	919		LGL	18 ADJUST, AND MULTIPLY	4F10942
	02477	0 20000 0 01351	920		MPY	GTAG DIMENSION 2 TIMES GTAG.	4F10943
	02500	0 76700 0 00021	921		ALS	17 THEN ADD	4F10944
	02501	0 40000 0 01145	922		ADD	EPS−2 EPSILON SUB 2	4F10045
	02502	0 56000 0 01136	923		LDQ	E+8 TO THE PRODUCT, AND	4F10946
	02503	0 40200 0 01361	924	2D1	SUB	N2 SUBTRACT ADDEND 2.	4F10047
	02504	0 60100 0 01351	925		STO	GTAG MULTIPLY	4F10040
	02505	0 20000 0 01351	926		MPY	GTAG THE RESULT	4F10049
	02506	0 76700 0 00021	927		ALS	17 TIMES	4F10950
	02507	0 40000 4 01147	928		ADD	EPS,4 DIMENSION 1, AND,ADD,IN EPSILON	4F10951
	02510	0 40000 0 01147	929		ADD	EPS SUB 1 AND EPSILON.	4F10952
	02511	0 40200 0 01141	930	1D1	SUB	E+11 SUBTRACT ADDEND 1,	4F10953
	02512	0 60100 0 01351	931		STO	GTAG AND PLACE THE RESULT	4F10954
	02513	−0 50000 0 01126	932		CAL	E IN TNE DECREMENT OF GTAG,	4F10955
	02514	0 77100 0 00030	933		ARS	24 WITH I-TAUTAG	4F10956
	02515	0 62100 0 01351	934		STA	GTAG IN THE ADDRESS.	4F10957
	02516	−0 53400 4 01100	935		LXD	RAXR4,4 RESTORE THE C(XR4), AND	4F10958
	02517	0 02000 4 00001	936		TRA	1,4 * EXIT TO CALLER.	4F10959
			937			END OF PROGRAM RA000.	4F10960
			938			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10961
			939				4F10962
			940			RDRX*4/ CALLS=DIAG. CALLER=DRTABS.	4F10963
			941			RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR.	4F10964
	02520	0 53400 1 01413	942	RDRX	LXA	DRMERC,1 SET FOR 5 ATTEMPTS TO READ,DRUM.	4F10965
	02521	−0 53400 2 02364	943	REP	LXD	DI,2 SET XRZ = (5-DRUM NUMBER).	4F10966
	02522	3 00000 2 02524	944		TXH	BIAS−2,2,0 IF NOT GREATER THAN ZERO,	4F10967
	02523	0 07400 4 03400	945		TSX	DIAG,4 * GO TO DIAGNOSTIC.	4F10968
	02524	0 76200 2 00305	946		RDR	5,2 SELECT CURRENT DRUM.	4F10969
	02525	−0 53400 2 02362	947		LXD	FDA,2 SET XR2 = NO. OF WORDS TO COPY.	4F10970
	02526	−0 75400 0 02554	948	BIAS	PXD	ETSUM,0 CLEAR THE AC.	4F10971
	02527	0 46000 0 02362	949		LDA	FDA DRUM ORIGIN OF CURRENT BLOCK.	4F10972
TD	02530	−3 00000 0 00000	950	JUMP1	TXL	** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK.	4F10973
	02531	−0 70000 0 02365	951		CAD	DUMP READ	4F10974
	02532	0 76000 0 00006	952		COM	FLOCON BLOCK	4F10975
	02533	−0 70000 2 02357	953	LBUF	CAD	BUFR,2 AND COMPUTE	4F10976
	02534	2 00001 2 02533	954		TIX	LBUF,2,1 LOGICAL CHECKSUM.	4F10977
	02535	1 00000 0 02562	955	XR1	TXI	PROVE,0,** GO TEST CHECKSUM.	4F10978
	02536	0 70000 2 02357	956		CPY	BUFR,2 COPY LOOP,	4F10979
	02537	−2 00001 2 02564	957		TNX	ERR,2,1 FOR ALL	4F10980
	02540	0 70000 2 02357	958		CPY	BUFR,2 TABLES	4F10901
	02541	−2 00001 2 02564	959		TNX	ERR,2,1 EXCEPT	4F10902
	02542	0 70000 2 02357	960		CPY	BUFR,2 FLOCON=	4F10903
	02543	−2 00001 2 02564	961		TNX	ERR,2,1 X	4F10904
	02544	0 70000 2 02357	962		CPY	BUFR,2 X	4F10905
	02545	−2 00001 2 02564	963		TNX	ERR,2,1 X	4F10906
	02546	0 70000 2 02357	964		CPY	BUFR,2 X	4F10907
	02547	−2 00001 2 02564	965		TNX	ERR,2,1 X	4F10906
	02550	0 70000 2 02357	966		CPY	BUFR,2 X	4F10909
	02551	−2 00001 2 02564	967		TNX	ERR,2,1 X	4F10990
	02552	0 70000 2 02357	968		CPY	BUFR,2 X	4F10901
	02553	0 76100 0 00000	969		NOP	X	4F10992
	02554	−0 70000 0 02365	970	ETSUM	CAD	DUMP SUM CHECKSUMS.	4F10993
	02555	2 00001 2 00000	971	JUMP2	TIX	**,2,1 (ETSUM-2*L) TEST END OF BLOCK.	4F10994
	02556	−0 53400 2 02362	972	RDRXCR	LXD	FDA,2 COMPUTE	4F10995
	02557	0 76000 0 00006	973		COM	NEW	4F10996
	02560	0 36100 2 02357	974		ACL	BUFR,2 LOGICAL	4F10997
	02561	2 00001 2 02560	975		TIX	RDRXCR+2,2,1 CHECKSUM, AND	4F10998
	02562	0 76000 0 00006	976	PROVE	COM	IF CHECKSUMS COMPARE	4F10999
	02563	0 10000 4 00001	977		TZE	1,4 * RETURN TO MAIN ROUTINE.	4F11000
	02564	2 00001 1 02521	978	ERR	TIX	REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES.	4F11001
	02565	0 07400 4 03400	979		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F11002
			980			END OF PROGRAM RDRX.	4F11003
			981			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11004
			982				4F11005
			983			SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.	4F11006
			984			SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.	4F11007
	02566	−0 63400 2 02574	985	SR6DC1	SXD	SR6XR2,2 SAVE THE C(XR2), AND	4F11008
	02567	0 53400 2 01414	986		LXA	L(6),2 SET TO COUNT 6 CHARACTERS.	4F11009
	02570	0 60000 0 01101	987		STZ	SR6WRK INITIALIZE OUTPUT CELL TO 0.	4F11010
	02571	−0 75400 0 00000	988	SR6DC2	PXD	,0 OBTAIN NEXT CHARACTER	4F11011
	02572	−0 76300 0 00006	989		LGL	6 IN AC AND	4F11012
	02573	0 34000 0 01430	990		CAS	ABLANK TEST FOR BLANK.	4F11013
	02574	1 00000 0 02576	991	SR6XR2	TXI	SR6DC3,0,** IF NOT BLANK,	4F11014
	02575	1 77777 0 02610	992	ENDWRD	TXI	SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR)	4F11015
	02576	0 34000 0 01417	993	SR6DC3	CAS	L(9) TEST FOR NUMERIC.	4F11016
	02577	0 07400 4 03400	994		TSX	DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC.	4F11017
	02600	0 76100 0 00000	995	NOP	NOP	IF NUMERIC,	4F11018
	02601	0 60100 0 01102	996		STO	SR6WRK+1 SAVE DIGIT, AND	4F11019
	02602	0 50000 0 01101	997		CLA	SR6WRK MULTIPLY PREVIOUS PARTIAL	4F11020
	02603	0 76700 0 00002	998		ALS	2 RESULT BY 10,	4F11021
	02604	0 40000 0 01101	999		ADD	SR6WRK AND ADD IN	4F11022
	02605	0 76700 0 00001	1000		ALS	1 CURRENT DIGIT, SAVING	4F11023
	02606	0 40000 0 01102	1001		ADD	SR6WRK+1 NEW PARTIAL RESULT.	4F11024
	02607	0 60100 0 01101	1002		STO	SR6WRK THEN ADJUST C0UNT, AND	4F11025
	02610	2 00001 2 02571	1003	SR6DC4	TIX	SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED,	4F11026
	02611	0 50000 0 01101	1004		CLA	SR6WRK LEAVE OUTPUT IN AC,	4F11027
	02612	−0 53400 2 02574	1005		LXD	SR6XR2,2 RESTORE THE C(XR2), AND	4F11028
	02613	0 02000 1 00001	1006	TRA	TRA	1,1 * EXIT TO MAIN ROUTINE.	4F11029
			1007			END OF PROGRAM SR6DC1.	4F11030
			1008			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11031
			1009				4F11032
			1010			SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,DRTABS,TET00,TESTFX.	4F11033
			1011			CALLERS=ARITH,LPR,C0200.	4F11034
			1012			SS000 SCANS SUBSCRIPT COMB1NATIONS AND MAKES TABLE ENTRIES.	4F11035
	02614	−0 63400 2 02731	1013	SS000	SXD	SXR2,2 SAVE C(XR2),	4F11036
	02615	−0 63400 1 02730	1014		SXD	SXR1,1 SAVE C(XR1),	4F11037
	02616	−0 63400 4 02732	1015		SXD	SXR4,4 SAVE C(XR4), AND	4F11038
	02617	0 60000 0 01100	1016		STZ	DIMCTR SET DIMCTR = 0.	4F11039
	02620	0 53400 4 01414	1017		LXA	L(6),4 INITIALIZE	4F11040
	02621	−0 63400 4 02726	1018		SXD	SBS2,4 FOR EACH SUBSCRIPT MEMBER.	4F11041
	02622	−0 50000 0 00422	1019		CAL	TXHOP PICK UP TXH OP, AND	4F11042
	02623	0 63000 0 02776	1020		STP	SBC6 SET OP	4F11043
	02624	0 63000 0 02777	1021		STP	SBC8 SWITCHES.	4F11044
	02625	−0 50000 0 00415	1022		CAL	TXLOP PICK UP TXL OP, AND	4F11045
	02626	0 63000 0 03014	1023		STP	SBC4 SET OP SWITCH.	4F11046
	02627	0 53400 3 01414	1024	SS001	LXA	L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.	4F11047
	02630	0 60000 0 01370	1025		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11048
	02631	0 07400 4 01707	1026		TSX	C0190,4 * GET FIRST PON BLANK CHAR IN THE AC.	4F11049
	02632	0 34000 0 01417	1027		CAS	L(9) COMPARE IT UITH 9.	4F11050
D	02633	1 00000 0 02704	1028		TXI	SS0045,0 RETURN TO EXPLICIT CODING.	4F11051
	02634	0 76100 0 00000	1029		NOP	IF NUMERIC,	4F11052
	02635	0 60100 0 01331	1030		STO	FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND	4F11053
	02636	0 76700 2 00044	1031	SS0012	ALS	36,2 LEFT-ADJUST DIGIT TO	4F11054
	02637	−0 60200 0 01370	1032		ORS	SYMBOL BUILD SYMBOL.	4F11055
	02640	1 00006 2 02641	1033		TXI	SS0013,2,6 UPDATE SHIFT DECREMENT, AND	4F11056
	02641	1 77777 1 02642	1034	SS0013	TXI	SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED.	4F11057
	02642	0 07400 4 01707	1035	SS0014	TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F11058
	02643	0 53400 4 02652	1036		LXA	CTESTX,4 SST XR4 = NO. OF PUNCTUATION MARKS.	4F11059
	02644	0 34000 4 01406	1037	SS0015	CAS	CTEST,4 TEST THIS CHARACTER AGAINST	4F11060
D	02645	1 00000 0 02647	1038		TXI	SS0016,0 ALL PUNCTUATION.	4F11061
	02646	0 02000 4 02733	1039		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11062
	02647	2 00001 4 02644	1040	SS0016	TIX	SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION,	4F11063
	02650	0 34000 0 01417	1041		CAS	L(9) TEST FOR NUMERIC.	4F11064
D	02651	1 00000 0 02655	1042		TXI	SS0017,0 AND IF	4F11065
	02652	0 76100 0 00012	1043	CTESTX	NOP	CTEST−ENDMK FOUND TO BE NUMERIC,	4F11066
	02653	3 00000 1 02636	1044		TXH	SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF	4F11067
D	02654	1 00000 0 02720	1045		TXI	STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC.	4F11066
	02655	0 07400 1 03242	1046	SS0017	TSX	TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE.	4F11069
	02656	0 07400 4 03400	1047		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11070
	02657	−0 76300 0 00036	1048		LGL	30 RESTORE FIXED POINT VARIABLE	4F11071
	02660	0 60200 0 01365	1049		SLW	RESIDU TO RESIDU, AND	4F11072
	02661	−0 53400 4 01724	1050		LXD	CHCTR,4 RESET CHARACTER COUNTER	4F11073
	02662	1 00001 4 02663	1051		TXI	SS0018,4,1 TO BEGIN PROCESSING	4F11074
	02663	−0 63400 4 01724	1052	SS0018	SXD	CHCTR,4 SUBSCRIPT MULTIPLIER.	4F11075
	02664	0 50200 0 02776	1053	SBX	CLS	SBC6 TEST FOR	4F11076
	02665	−0 12000 0 02667	1054		TMI	SBX1 PREVIOUS MULTIPLIER.	4F11077
	02666	0 07400 4 03400	1055		TSX	DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT.	4F11078
	02667	0 60100 0 02776	1056	SBX1	STO	SBC6 RESET MULTIPLIER SWITCH.	4F11079
	02670	0 50000 0 01331	1057		CLA	FIRSTC TEST	4F11080
	02671	0 40200 0 01373	1058		SUB	L(10) MULTIPLIER	4F11081
	02672	−0 12000 0 02674	1059		TMI	SBX2 FOR CONSTANT.	4F11082
	02673	0 07400 4 03400	1060		TSX	DIAG,4 * SUBS-MULTIPLIER NOT A CONSTANT.	4F11083
	02674	−0 50000 0 01370	1061	SBX2	CAL	SYMBOL ADJUST MULTIPLIER	4F11084
	02675	0 77100 2 00052	1062		ARS	42,2 TO LOW ORDER POSITION.	4F11085
	02676	−0 53400 4 02726	1063		LXD	SBS2,4 GET STORING TAG,	4F11086
	02677	0 60200 4 01137	1064		SLW	E+9,4 AND STORE MULTIPLIER.	4F11087
	02700	0 60000 4 01145	1065		STZ	E+15,4 SET ADDEND = 0.	4F11088
	02701	0 53400 3 01414	1066	SS003	LXA	L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.	4F11089
	02702	0 60000 0 01370	1067		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11090
	02703	0 07400 4 01707	1068	SS004	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F11091
	02704	0 53400 4 02652	1069	SS0045	LXA	CTESTX,4 COMPARE CHARACTER	4F11092
	02705	0 34000 4 01406	1070	SS005	CAS	CTEST,4 TO ALL	4F11093
D	02706	1 00000 0 02710	1071		TXI	SS006,0 PUNCTUATION.	4F11094
	02707	0 02000 4 02733	1072		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11095
	02710	2 00001 4 02705	1073	SS006	TIX	SS005,4,1 IF NOT FOUND TO BE PUNCTUATION,	4F11096
	02711	−3 00005 1 02713	1074		TXL	SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR	4F11097
	02712	0 60100 0 01331	1075		STO	FIRSTC ADDEND, SAVE FOR LATER TESTS.	4F11098
	02713	0 76700 2 00044	1076	SS008	ALS	36,2 POSITION EACH CHARACTER. BUT	4F11099
	02714	−3 00000 1 02720	1077	SS009	TXL	STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP.	4F11100
	02715	−0 60200 0 01370	1078		ORS	SYMBOL BUILD SYMBOL.	4F11101
	02716	1 00006 2 02717	1079		TXI	SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT.	4F11102
	02717	1 77777 1 02703	1080	SS007	TXI	SS004,1,−1 UPDATE FOR ANOTHER CHAR COLLECTED.	4F11103
	02720	0 07400 4 03400	1081	STOP49	TSX	DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER.	4F11104
			1082			SUBTR/ CONTR0L TRANSFERS FOR SUBSCRIPT SCAN=	4F11105
D	02721	1 00000 0 02722	1083		TXI	ISC,0 EMK (ILLEGAL IN LIST SUBSCRIPT).	4F11106
	02722	0 07400 4 03400	1084	ISC	TSX	DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT).	4F11107
D	02723	1 00000 0 02772	1085		TXI	SBC,0 ,	4F11108
D	02724	1 00000 0 02770	1086		TXI	SBR,0 )	4F11109
D	02725	1 00000 0 02722	1087		TXI	ISC,0 = (ILLEGAL IN LIST SUBSCRIPT).	4F11110
	02726	1 00000 0 02733	1088	SBS2	TXI	SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER.	4F11111
D	02727	1 00000 0 02722	1089		TXI	ISC,0 / (ILLEGAL IN LIST SUBSCRIPT).	4F11112
	02730	1 00000 0 02722	1090	SXR1	TXI	ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT).	4F11113
	02731	1 00000 0 02734	1091	SXR2	TXI	SBP,0,** +	4F11114
	02732	1 00000 0 02664	1092	SXR4	TXI	SBX,0,** *	4F11115
		02733	1093	SUBTR	BSS	0 INDEXING ADDRESS FOR ABOVE LIST.	4F11116
	02733	−0 76000 0 00003	1094	SBM	SSM	MINUS ADDEND.	4F11117
	02734	0 76000 0 00000	1095	SBP	CLM	PLUS ADDEND.	4F11118
	02735	−0 53400 4 02726	1096		LXD	SBS2,4 GET STORING TAG, AND	4F11119
	02736	0 60100 4 01145	1097		STO	E+15,4 STORE SIGN OF ADDEND.	4F11120
	02737	0 50200 0 02777	1098		CLS	SBC8 TEST SWITCH	4F11121
	02740	−0 12000 0 02742	1099		TMI	SBP1 FOR PREVIOUS ADDEND.	4F11122
	02741	0 07400 4 03400	1100		TSX	DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT.	4F11123
	02742	0 60100 0 02777	1101	SBP1	STO	SBC8 RESET ADDEND SWITCH.	4F11124
	02743	0 07400 1 03241	1102		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11125
	02744	0 07400 4 03400	1103		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11126
	02745	−0 53400 4 02726	1104		LXD	SBS2,4 GET STORING TAG, AND	4F11127
	02746	0 50200 0 02776	1105		CLS	SBC6 TEST SWITCH	4F11128
	02747	0 12000 0 02754	1106		TPL	SBP2 FOR PREVIOUS MULTIPLIER.	4F11129
	02750	0 50000 0 01407	1107		CLA	L(1) IF NONE,	4F11130
	02751	0 60100 4 01137	1108		STO	E+9,4 SET MULTIPLIER	4F11131
D	02752	1 00000 0 02755	1109		TXI	SBP4,0 TO 1, AND CONTINUE.	4F11132
	02753	0 50200 0 02776	1110	SBC1	CLS	SBC6 RESET MULTIPLIER	4F11133
	02754	0 60100 0 02776	1111	SBP2	STO	SBC6 OP SWITCH.	4F11134
	02755	−0 50000 0 01370	1112	SBP4	CAL	SYMBOL IF VARIABLE SUBSCRIPT,	4F11135
	02756	3 00044 2 02762	1113		TXH	SBP41,2,36 ADD A BLANK	4F11136
	02757	−0 50000 0 01430	1114		CAL	BLANK IF LESS	4F11137
	02760	0 76700 2 00044	1115		ALS	36,2 THAN 6	4F11138
	02761	−0 50100 0 01370	1116		ORA	SYMBOL CHARACTERS, AND	4F11139
	02762	0 60200 4 01140	1117	SBP41	SLW	E+10,4 PLACE IN E-REGION.	4F11140
	02763	0 07400 1 03241	1118		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11141
	02764	0 07400 4 03400	1119		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11142
	02765	0 50000 0 02777	1120		CLA	SBC8 IF THERE IS AN ADDEND,	4F11143
	02766	−0 12000 0 02701	1121		TMI	SS003 GO COLLECT, OTHERWISE	4F11144
D	02767	1 00000 0 03012	1122		TXI	SBC7,0 GO UPDATE STORING TAG.	4F11145
	02770	0 50200 0 03014	1123	SBR	CLS	SBC4 SET SWITCH	4F11146
	02771	0 60100 0 03014	1124		STO	SBC4 FOR CLOSING PARENTHESIS.	4F11147
	02772	−0 50000 0 01100	1125	SBC	CAL	DIMCTR UPDATE	4F11148
	02773	0 40000 0 01407	1126		ADD	L(1) DIMENSION COUNTER	4F11149
	02774	0 62100 0 01100	1127		STA	DIMCTR BY 1.	4F11150
	02775	−0 53400 4 02726	1128		LXD	SBS2,4 GET STORING TAG.	4F11151
D	02776	3 00000 0 02753	1129	SBC6	TXH	SBC1,0 SWITCH-IF NO MULTIPLIER, AND	4F11152
D	02777	3 00000 0 03016	1130	SBC8	TXH	SBC2,0 SWITCH-IF NO ADDEND, THEN	4F11153
	03000	0 50000 0 01407	1131		CLA	L(1) SET	4F11154
	03001	0 60100 4 01137	1132		STO	E+9,4 MULTIPLIER = 1.	4F11155
	03002	0 60000 4 01145	1133		STZ	E+15,4 SET ADDEND = 0.	4F11156
	03003	0 50000 0 01331	1134		CLA	FIRSTC TEST FOR	4F11157
	03004	0 40200 0 01373	1135		SUB	L(10) CONSTANT OR VARIABLE.	4F11158
	03005	0 12000 0 02755	1136		TPL	SBP4 IF CONSTANT, THEN	4F11159
	03006	0 60000 4 01140	1137		STZ	E+10,4 SET VARIABLE = 0.	4F11160
	03007	−0 50000 0 01370	1138	SBC9	CAL	SYMBOL ADJUST	4F11161
	03010	0 77100 2 00052	1139		ARS	42,2 CONSTANT	4F11162
	03011	−0 60200 4 01145	1140		ORS	E+15,4 TO LOW ORDER POSITION.	4F11163
	03012	−2 00002 4 03024	1141	SBC7	TNX	SBC3,4,2 UPDATE STORING TAG	4F11164
	03013	−0 63400 4 02726	1142		SXD	SBS2,4 BY -2, AND SAVE.	4F11165
D	03014	−3 00000 0 02627	1143	SBC4	TXL	SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB.	4F11166
D	03015	1 00000 0 03030	1144		TXI	SA000,0 GO MAKE TABLE ENTRIES AND GET TAG.	4F11167
	03016	0 50200 0 02777	1145	SBC2	CLS	SBC8 RESET ADDEND	4F11168
	03017	0 60100 0 02777	1146		STO	SBC8 OP SWITCH.	4F11169
	03020	0 50200 0 01373	1147		CLS	L(10) TEST	4F11170
	03021	0 40000 0 01331	1148		ADD	FIRSTC ADDEND	4F11171
	03022	−0 12000 0 03007	1149		TMI	SBC9 FOR CONSTANT.	4F11172
	03023	0 07400 4 03400	1150		TSX	DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT.	4F11173
	03024	0 50200 0 03014	1151	SBC3	CLS	SBC4 AFTER SCANNING 3 SUBSCRIPTS,	4F11174
	03025	−0 12000 0 03030	1152		TMI	SA000 GO MAKE TABLE ENTRIES AND GET TAG.	4F11175
	03026	0 07400 4 03400	1153		TSX	DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS.	4F11176
			1154			CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE).	4F11177
	03027	−0 63400 4 02732	1155	CSA000	SXD	SXR4,4 SAVE C(XR4) FOR RETURN TO C0200.	4F11178
	03030	0 50000 0 01100	1156	SA000	CLA	DIMCTR SAVE	4F11179
	03031	0 60100 0 01125	1157		STO	DIMSAV THE CONTENTS OF DIMCTR.	4F11180
	03032	0 76700 0 00041	1158		ALS	33 POSITION AND	4F11181
	03033	0 60100 0 01126	1159		STO	E STORE I TAG.	4F11182
	03034	0 50000 0 01141	1160		CLA	E+11 MOVE SUBSCRIPT ADDENDS	4F11183
	03035	0 60100 0 01142	1161		STO	E+12 INTO POSITION	4F11184
	03036	0 50000 0 01137	1162		CLA	E+9 FOR FOLLOWING	4F11185
	03037	0 60100 0 01141	1163		STO	E+11 PROGRAM.	4F11186
	03040	0 50000 0 01410	1164		CLA	L(2) EXAMINE DIMCTR	4F11187
	03041	0 34000 0 01100	1165		CAS	DIMCTR TO DETERMINE	4F11188
D	03042	1 00000 0 03174	1166		TXI	1D0000,0 WHETHER DIMENSION OF	4F11189
D	03043	1 00000 0 03131	1167		TXI	2D0000,0 VARIABLE IS 1, 2, OR 3.	4F11190
	03044	0 53400 4 01414	1168	3D0000	LXA	L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS.	4F11191
	03045	0 56000 4 01137	1169	3D0001	LDQ	E+9,4 CONVERT THEM FROM BCD TO BINARY	4F11192
	03046	0 07400 1 02566	1170		TSX	SR6DC1,1 * IN E+3,5,7, AND	4F11193
	03047	0 60100 4 01137	1171		STO	E+9,4 STORE BACK IN E+3,5,7.	4F11194
	03050	2 00002 4 03045	1172		TIX	3D0001,4,2 WHEN DONE, PREPARE	4F11195
	03051	0 53400 4 01411	1173		LXA	L(3),4 TO PICK UP 3 ADDENDS.	4F11196
	03052	0 50000 4 01144	1174	3D0002	CLA	E+14,4 CONVERT ADDENDS (BCD TO BINARY)=	4F11197
	03053	0 60200 0 01347	1175		SLW	G STRIP OFF	4F11198
	03054	0 56000 0 01347	1176		LDQ	G SIGN,	4F11199
	03055	0 07400 1 02566	1177		TSX	SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13,	4F11200
	03056	0 56000 4 01144	1178		LDQ	E+14,4 PUT SIGN IN S-BIT 0F MQ, AND	4F11201
	03057	0 16200 0 03061	1179		TQP	3D0040 IF PLUS--SKIP NEXT,	4F11202
	03060	−0 50100 0 01453	1180		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18,	4F11203
	03061	0 60100 4 01144	1181	3D0040	STO	E+14,4 AND STORE BACK INT0 E+11,12,13.	4F11204
	03062	2 00001 4 03052	1182		TIX	3D0002,4,1 WHEN DONE,	4F11205
	03063	0 07400 4 02005	1183		TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F11206
	03064	0 07400 4 03400	1184		TSX	DIAG,4 * --ERROR...NOT ON DRUM.	4F11207
	03065	0 50000 0 01131	1185	3D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11208
	03066	0 76700 0 00022	1186		ALS	18 PACK TOGETHER COEFFICIENTS 1 AND 2	4F11209
	03067	0 40000 0 01133	1187		ADD	E+5 AND STORE THEM	4F11210
	03070	0 60100 0 01131	1188		STO	E+3 IN E+3.	4F11211
	03071	0 50000 0 01132	1189		CLA	E+4 MOVE SUBSCRIPT 1	4F11212
	03072	0 60100 0 01133	1190		STO	E+5 TO E+5.	4F11213
	03073	0 50000 0 01135	1191		CLA	E+7 AND MOVE	4F11214
	03074	0 76700 0 00022	1192		ALS	18 COEFFICIENT 3	4F11215
	03075	0 60100 0 01132	1193		STO	E+4 INTO E+4.	4F11216
	03076	0 50000 0 01136	1194		CLA	E+8 MOVE SUBSCRIPT 3 INTO E+7,	4F11217
	03077	0 60100 0 01135	1195		STO	E+7 NEXT TO SUBSCRIPT 2 IN E+6.	4F11218
	03100	0 50000 0 01101	1196		CLA	D12 MOVE DIMENSIONS 1 AND 2	4F11219
	03101	0 60100 0 01136	1197		STO	E+8 INTO E+8.	4F11220
	03102	−0 50000 0 01141	1198		CAL	E+11 PACK TOGETHER	4F11221
	03103	0 76700 0 00022	1199		ALS	18 ADDENDS 1 AND 2	4F11222
	03104	−0 50100 0 01142	1200		ORA	E+12 AND	4F11223
	03105	0 60200 0 01141	1201		SLW	E+11 STORE THEM IN E+11.	4F11224
	03106	−0 50000 0 01143	1202		CAL	E+13 MOVE	4F11225
	03107	0 76700 0 00022	1203		ALS	18 ADDEND 3	4F11226
	03110	0 60200 0 01142	1204		SLW	E+12 INTO E+12.	4F11227
	03111	0 07400 4 00443	1205		TSX	TAU3IX,4 * GO SEARCH TAU3 TABLE.	4F11228
	03112	0 76700 0 00030	1206		ALS	24 POSITION TAU3 TAG, AND	4F11229
	03113	−0 60200 0 01126	1207		ORS	E PLACE TAU3 TAG IN TAG WORD.	4F11230
	03114	−0 50000 0 01135	1208		CAL	E+7 COMBINE	4F11231
	03115	−0 50100 0 01134	1209		ORA	E+6 SUBSCRIPTS 3,2, AND 1,	4F11232
	03116	−0 50100 0 01133	1210	3D0340	ORA	E+5 AND IF THEY ARE ALL ZERO,	4F11233
	03117	0 10000 0 03216	1211	3D0350	TZE	NOTAG --DON,T ENTER FORTAG.	4F11234
	03120	−0 50000 0 00030	1212	FTG000	CAL	EIFNO ENTER FORTAG=	4F11235
	03121	−0 32000 0 01527	1213		ANA	MASK1 BRING UP ALPHA (INTFORMNO)	4F11236
	03122	0 60200 0 01347	1214		SLW	G AND STORE IN G.	4P11237
	03123	−0 50000 0 01126	1215		CAL	E BRING UP TAUTAG FOR I,	4F11238
	03124	0 77100 0 00030	1216		ARS	24 ADJUST, AND	4F11239
	03125	−0 60200 0 01347	1217		ORS	G PLACE IN G WITH ALPHA. THEN	4F11240
	03126	0 07400 1 03321	1218		TSX	TET00,1 * ENTER INTO FORTAG TABLE	4F11241
	03127	0 00000 0 00004	1219		PZE	4 (TET TABLE 4).	4F11242
D	03130	1 00000 0 03220	1220		TXI	SAEXIT,0 GO TO EXIT.	4F11243
	03131	0 53400 4 01412	1221	2D0000	LXA	L(4),4 THEN PICKUP AND	4F11244
	03132	0 56000 4 01135	1222	2D0001	LDQ	E+7,4 CONVERT COEFFICIENTS	4F11245
	03133	0 07400 1 02566	1223		TSX	SR6DC1,1 * (BCD TO BINARY),	4F11246
	03134	0 60100 4 01135	1224		STO	E+7,4 AND STORE BACK IN E+3 AND E+5.	4F11247
	03135	2 00002 4 03132	1225		TIX	2D0001,4,2 WHEN DONE,	4F11248
	03136	0 53400 4 01410	1226		LXA	L(2),4 PREPARE TO	4F11249
	03137	0 50000 4 01143	1227	2D0002	CLA	E+13,4 PICKUP THE TWO ADDENDS.	4F11250
	03140	0 60200 0 01347	1228		SLW	G STRIP OFF	4F11251
	03141	0 56000 0 01347	1229		LDQ	G THEIR SIGNS,	4F11252
	03142	0 07400 1 02566	1230		TSX	SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY,	4F11253
	03143	0 56000 4 01143	1231		LDQ	E+13,4 PUT SIGN IN S-BIT OF MQ, AND	4F11254
	03144	0 16200 0 03146	1232		TQP	2D0040 IF PLUS--SKIP NEXT,	4F11255
	03145	−0 50100 0 01453	1233		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18,	4F11256
	03146	0 60100 4 01143	1234	2D0040	STO	E+13,4 AND STORE BACK IN E+11 AND E+12.	4F11257
	03147	2 00001 4 03137	1235		TIX	2D0002,4,1 WHEN DONE,	4F11258
	03150	0 07400 4 01775	1236		TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F11259
	03151	0 07400 4 03400	1237		TSX	DIAG,4 * --ERROR...NOT ON DRUM.	4F11260
	03152	0 50000 0 01131	1238	2D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11261
	03153	0 76700 0 00022	1239		ALS	18 PACK TOGETHER	4F11262
	03154	0 40000 0 01133	1240		ADD	E+5 COEFFICIENTS 1 AND 2,	4F11263
	03155	0 60100 0 01131	1241		STO	E+3 AND STORE THEM IN E+3.	4F11264
	03156	0 50000 0 01134	1242		CLA	E+6 MOVE SUBSCRIPT 2 INTO E+5	4F11265
	03157	0 60100 0 01133	1243		STO	E+5 (NEXT TO SUBSCRIPT 1 IN E+4).	4F11266
	03160	0 50000 0 01101	1244		CLA	D12 OBTAIN	4F11267
	03161	−0 32000 0 01527	1245		ANA	MASK1 DIMENSION 1, AND MOVE IT	4F11268
	03162	0 60100 0 01134	1246		STO	E+6 INTO E+6.	4F11269
	03163	−0 50000 0 01141	1247		CAL	E+11 PACK TOGETHER	4F11270
	03164	0 76700 0 00022	1248		ALS	18 ADDENDS 1 AND 2,	4F11271
	03165	−0 50100 0 01142	1249		ORA	E+12 AND STORE THEM	4F11272
	03166	0 60200 0 01141	1250		SLW	E+11 IN E+11.	4F11273
	03167	0 07400 4 00436	1251		TSX	TAU2IX,4 * GO SEARCH TAU2 TABLE.	4F11274
	03170	0 76700 0 00030	1252		ALS	24 POSITION TAU2 TAG, AND	4F11275
	03171	−0 60200 0 01126	1253		ORS	E PLACE TAU2 TAG IN TAG WORD.	4F11276
	03172	−0 50000 0 01132	1254		CAL	E+4 COMBINE SUBSCRIPTS 1 AND 2, AND	4F11277
D	03173	1 00000 0 03116	1255		TXI	3D0340,0 GO TO FORTAG SECTION.	4F11278
	03174	0 56000 0 01131	1256	1D0000	LDQ	E+3 PICKUP AND CONVERT COEFFICIENTS	4F11279
	03175	0 07400 1 02566	1257		TSX	SR6DC1,1 * (BCD TO BINARY), AND	4F11280
	03176	0 76700 0 00022	1258		ALS	18 THEN ADJUST THEM,	4F11281
	03177	0 60100 0 01131	1259		STO	E+3 AND STORE THEM BACK IN E+3.	4F11282
	03200	0 50000 0 01141	1260		CLA	E+11 PICKUP ADDEND,	4F11283
	03201	0 60200 0 01347	1261		SLW	G STRIP OFF SIGN,	4F11284
	03202	0 56000 0 01347	1262		LDQ	G CONVERT ADDEND	4F11285
	03203	0 07400 1 02566	1263		TSX	SR6DC1,1 * (BCD TO BINARY), AND THEN	4F11286
	03204	0 56000 0 01141	1264		LDQ	E+11 PUT SIGN IN S-BIT OF MQ, AND	4F11287
	03205	0 16200 0 03207	1265		TQP	1D0001 IF PLUS--SKIP NEXT,	4F11288
	03206	−0 50100 0 01453	1266		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18.	4F11289
	03207	0 76700 0 00022	1267	1D0001	ALS	18 THEN ADJUST AND STORE	4F11290
	03210	0 60200 0 01141	1268		SLW	E+11 BACK INTO E+11.	4F11291
	03211	0 07400 4 00431	1269		TSX	TAU1IX,4 * GO SEARCH TAU1 TABLE.	4F11292
	03212	0 76700 0 00030	1270		ALS	24 POSITION TAU1 TAG, AND	4F11293
	03213	−0 60200 0 01126	1271		ORS	E PLACE TAU1 TAG IN TAG WORD.	4F11294
	03214	−0 50000 0 01132	1272		CAL	E+4 TAKE SUBSCRIPT, AND	4F11295
D	03215	1 00000 0 03117	1273		TXI	3D0350,0 GO TO FORTAG SECTION.	4F11296
	03216	−0 50000 0 01471	1274	NOTAG	CAL	FNIND POSITI0N SIGMA1 TAG, AND	4F11297
	03217	−0 60200 0 01126	1275		ORS	E PLACE SIGMA1 TAG IN TAG WORD.	4F11298
	03220	−0 53400 1 02730	1276	SAEXIT	LXD	SXR1,1 RESTORE THE C(XR1),	4F11299
	03221	−0 53400 2 02731	1277		LXD	SXR2,2 RESTORE THE C(XR2),	4F11300
	03222	−0 53400 4 02732	1278		LXD	SXR4,4 RESTORE THE C(XR4), AND	4F11301
	03223	0 02000 4 00001	1279		TRA	1,4 * EXIT TO MAIN ROUTINE.	4F11302
			1280			END OF PROGRAM SS000.	4F11303
			1281			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11304
			1282				4F11305
			1283			SUBX00,4/ CALLERS=C3000,C3300.	4F11306
			1284			SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES.	4F11307
	03224	0 53400 3 01414	1285	SUBX00	LXA	L(6),3 PREPARE TO COUNT CHARS AND SHIFTS.	4F11308
	03225	0 56000 0 01112	1286		LDQ	1G PICKUP SUBROUTINE NAME.	4F11309
	03226	−0 75400 0 00000	1287	SUBX01	PXD	,0 CLEAR THE AC, AND	4F11310
	03227	−0 76300 0 00006	1288		LGL	6 SEARCH FOR A BLANK	4F11311
	03230	0 40200 0 01430	1289		SUB	BLANK CHARACTER IN THIS NAME.	4F11312
	03231	0 10000 0 03235	1290		TZE	SUBX03 IF NOT BLANK, THEN	4F11313
	03232	1 00006 1 03233	1291		TXI	SUBX02,1,6 UPDATE SHIFT COUNT, AND	4F11314
	03233	2 00001 2 03226	1292	SUBX02	TIX	SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED.	4F11315
	03234	0 02000 4 00001	1293		TRA	1,4 * RETURN TO CALLER AFTER 6TH CHAR.	4F11316
	03235	0 56000 0 01526	1294	SUBX03	LDQ	BLANKS IF LESS THAN 6 CHARACTERS IN NAME,	4F11317
	03236	−0 76300 1 00044	1295		LGL	36,1 SHIFT ENOUGH BLANKS INTO THE AC,	4F11318
	03237	−0 60200 0 01112	1296		ORS	1G AND FILL OUT NAME WITH BLANKS.	4F11319
	03240	0 02000 4 00001	1297		TRA	1,4 * RETURN TO CALLER.	4F11320
			1298			END OF PROGRAM SUBX00.	4F11321
			1299			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11322
			1300				4F11323
			1301			TESTFX,1/ CALLERS=SS000,C3000,IFFIX.	4F11324
			1302			TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES.	4F11325
	03241	−0 50000 0 01331	1303	TESTFX	CAL	FIRSTC COMPARE FIRST CHARACTER	4F11326
	03242	0 34000 0 01423	1304		CAS	L(H) WITH H.	4F11327
	03243	0 34000 0 01425	1305		CAS	L(O) IF GREATER THAN H, COMPARE WITH O.	4F11328
	03244	0 02000 1 00001	1306		TRA	1,1 * IF NOT GREATER THAN H, LESS THAN O,	4F11329
	03245	0 02000 1 00001	1307		TRA	1,1 * THEN TAKE FLOATING POINT EXIT.	4F11330
	03246	0 02000 1 00002	1308		TRA	2,1 * OTHERWISE, TAKE FIXED POINT EXIT.	4F11331
			1309			END OF PROGRAM TESTFX.	4F11332
			1310			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11333
			1311				4F11334
			1312			TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000,	4F11335
			1313			C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.	4F11336
			1314			TEST.. TESTS THE CHARACTER IN THE AC(30-35).	4F11337
			1315			TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.	4F11338
	03247	0 34000 0 01376	1316	TESTA0	CAS	COMMA	4F11339
	03250	0 02000 0 03252	1317		TRA	TESTA1	4F11340
	03251	0 02000 4 00001	1318		TRA	1,4 * RETURN TO CALLER.	4F11341
	03252	0 40200 0 01374	1319	TESTA1	SUB	ENDMK	4F11342
	03253	0 10000 4 00001	1320		TZE	1,4 * RETURN TO CALLER.	4F11343
	03254	0 07400 4 03400	1321		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11344
			1322			TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.	4F11345
	03255	0 34000 0 01376	1323	TESTB0	CAS	COMMA	4F11346
	03256	0 02000 0 03260	1324		TRA	TESTB1	4F11347
	03257	0 02000 4 00001	1325		TRA	1,4 * RETURN TO CALLER.	4F11348
	03260	0 40200 0 01377	1326	TESTB1	SUB	CLOS	4F11349
	03261	0 10000 4 00001	1327		TZE	1,4 * RETURN TO CALLER.	4F11350
	03262	0 07400 4 03400	1328		TSX	DIAG,4 * ERROR -- GO T0 DIAGNOSTIC.	4F11351
			1329			TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.	4F11352
	03263	0 34000 0 01375	1330	TESTC0	CAS	OPEN	4F11353
	03264	0 02000 0 03266	1331		TRA	TESTC1	4F11354
	03265	0 02000 4 00001	1332		TRA	1,4 * RETURN TO CALLER.	4F11355
	03266	0 40200 0 01374	1333	TESTC1	SUB	ENDMK	4F11356
	03267	0 10000 4 00001	1334		TZE	1,4 * RETURN TO CALLER.	4F11357
	03270	0 07400 4 03400	1335		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11358
			1336			TEST CHARACTER IN THE AC FOR ENDMARK.	4F11359
	03271	0 34000 0 01374	1337	TESTD0	CAS	ENDMK	4F11360
	03272	0 07400 4 03400	1338	ERR77P	TSX	DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11361
	03273	0 02000 4 00001	1339		TRA	1,4 * RETURN TO CALLER.	4F11362
	03274	0 07400 4 03400	1340		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11363
			1341			TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.	4F11364
	03275	0 34000 0 01375	1342	TESTE0	CAS	OPEN	4F11365
	03276	0 02000 0 03300	1343		TRA	TESTE1	4F11366
	03277	0 02000 4 00001	1344		TRA	1,4 * RETURN TO CALLER.	4F11367
	03300	0 07400 4 03400	1345	TESTE1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11368
			1346			TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.	4F11369
	03301	0 34000 0 01377	1347	TESTF0	CAS	CLOS	4F11370
	03302	0 02000 0 03304	1348		TRA	TESTF1	4F11371
	03303	0 02000 4 00001	1349		TRA	1,4 * RETURN TO CALLER.	4F11372
	03304	0 07400 4 03400	1350	TESTF1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11373
			1351			TEST CHARACTER IN THE AC FOR COMMA.	4F11374
	03305	0 34000 0 01376	1352	TESTG0	CAS	COMMA	4F11375
	03306	0 02000 0 03310	1353		TRA	TESTG1	4F11376
	03307	0 02000 4 00001	1354		TRA	1,4 * RETURN TO CALLER.	4F11377
	03310	0 07400 4 03400	1355	TESTG1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11378
			1356			TEST CHARACTER IN THE AC FOR NON-NUMERIC.	4F11379
	03311	0 34000 0 01417	1357	TESTH0	CAS	L(9)	4F11380
	03312	0 02000 4 00001	1358		TRA	1,4 * RETURN TO CALLER.	4F11381
	03313	0 76100 0 00000	1359		NOP		4F11382
	03314	0 07400 4 03400	1360		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11383
			1361			TEST CHARACTER IN THE AC FOR NUMERIC.	4F11384
	03315	0 34000 0 01417	1362	TESTI0	CAS	L(9)	4F11385
	03316	0 07400 4 03400	1363		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11386
	03317	0 02000 4 00001	1364		TRA	1,4 * RETURN TO CALLER.	4F11387
	03320	0 02000 4 00001	1365		TRA	1,4 * RETURN TO CALLER.	4F11388
			1366			END OF PROGRAM TEST...	4F11389
			1367			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11390
			1368				4F11391
			1369			TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,	4F11392
			1370			C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).	4F11393
			1371			TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS	4F11394
			1372			FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.	4F11395
	03321	−0 63400 2 01100	1373	TET00	SXD	TETXR2,2 SAVE THE C(XR2),	4F11396
	03322	−0 63400 4 01101	1374		SXD	TETXR4,4 SAVE THE C(XR4), AND	4F11397
	03323	−0 60000 0 01103	1375		STQ	TETMQR SAVE THE C(MQR).	4F11398
	03324	0 50000 1 00001	1376		CLA	1,1 COMPUTE TABLE NUMBER	4F11399
	03325	0 76700 0 00001	1377		ALS	1 TIMES 3	4F11400
	03326	0 40000 1 00001	1378		ADD	1,1 AND	4F11401
	03327	0 76000 0 00006	1379		COM	PLACE THE 2S COMPLEMENT	4F11402
	03330	0 40000 0 01407	1380		ADD	L(1) OF THIS	4F11403
	03331	0 73400 2 00000	1381		PAX	,2 IN XR2.	4F11404
	03332	0 50000 2 00322	1382		CLA	INTET,2 OBTAIN THE CURRENT	4F11405
	03333	0 77100 0 00022	1383		ARS	18 B (BUFFER CAPACITY),	4F11406
	03334	0 60100 0 01102	1384		STO	TETWRK AND SAVE IT. THEN	4F11407
	03335	0 50000 2 00324	1385		CLA	INTET+2,2 GET P (PORTION OF BUFFER FULL),	4F11408
	03336	0 77100 0 00022	1386		ARS	18 AND	4F11409
	03337	0 40200 0 01102	1387		SUB	TETWRK COMPARE TO B.	4F11410
	03340	−0 10000 0 03356	1388		TNZ	TET03 IF BUFFER IS FULL,	4F11411
	03341	0 62200 2 00324	1389		STD	INTET+2,2 SET P = O, AND	4F11412
	03342	0 76600 0 00224	1390	TET01	WRS	TABTAP PREPARE TO WRITE BLOCK ON TABTAP.	4F11413
	03343	0 53400 4 01102	1391		LXA	TETWRK,4 SET XR4 = BLOCK SIZE (B).	4F11414
	03344	0 50000 0 01102	1392		CLA	TETWRK ADD BLOCK SIZE TO	4F11415
	03345	0 40000 2 00322	1393		ADD	INTET,2 ORIGIN OF CURRENT BLOCK (O),	4F11416
	03346	0 62100 0 03350	1394		STA	TET02 AND SET ADDRESS OF COPY LOOP (O+B).	4F11417
	03347	0 70000 1 00001	1395		CPY	1,1 COPY TABLE NUM FOR IDENTIFICATION.	4F11418
	03350	0 70000 4 00000	1396	TET02	CPY	**,4 WRITE BLOCK ONTO	4F11419
	03351	2 00001 4 03350	1397		TIX	TET02,4,1 TABLE TAPE, AND	4F11420
	03352	0 76600 0 00333	1398		IOD	WHEN DONE,	4F11421
	03353	0 50000 2 00324	1399		CLA	INTET+2,2 INCREASE C (BLOCK COUNT)	4F11422
	03354	0 40000 0 01407	1400		ADD	L(1) BY 1 FOR	4F11423
	03355	0 62100 2 00324	1401		STA	INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE.	4F11424
	03356	0 50000 2 00324	1402	TET03	CLA	INTET+2,2 ADD P (PORTION OF BUFFER FULL)	4F11425
	03357	0 77100 0 00022	1403		ARS	18 TO O (ORIGIN OF CURRENT TABLE	4F11426
	03360	0 40000 2 00322	1404		ADD	INTET,2 BUFFER) TO SET	4F11427
	03361	0 62100 0 03371	1405		STA	TET05 ADDRESS OF ENTRY LOOP (P+O).	4F11428
	03362	0 50000 2 00323	1406		CLA	INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS),	4F11429
	03363	0 62100 0 03370	1407		STA	TET04 AND SET ADDRESS OF ENTRY LOOP.	4F11430
	03364	−0 73400 4 00000	1408		PDX	,4 SET XR4 = E (ENTRY LENGTH IN WRDS).	4F11431
	03365	0 40000 2 00324	1409		ADD	INTET+2,2 INCREASE P BY E TO ACCOUNT	4F11432
	03366	0 62200 2 00324	1410		STD	INTET+2,2 FOR FOLLOWING ENTRY.	4F11433
	03367	−0 53400 2 01406	1411		LXD	L(0),2 SET XR2 = 0. THEN	4F11434
	03370	0 50000 2 00000	1412	TET04	CLA	**,2 MOVE THE CURRENT ENTRY	4F11435
	03371	0 60100 2 00000	1413	TET05	STO	**,2 INTO THE CURRENT TABLE BUFFER, AND	4F11436
	03372	1 77777 2 03373	1414		TXI	TET06,2,−1 WHEN	4F11437
	03373	2 00001 4 03370	1415	TET06	TIX	TET04,4,1 DONE,	4F11438
	03374	0 56000 0 01103	1416		LDQ	TETMQR RESTORE ORIGINAL C(MQR),	4F11439
	03375	−0 53400 2 01100	1417		LXD	TETXR2,2 RESTORE ORIGINAL C(XR2),	4F11440
	03376	−0 53400 4 01101	1418		LXD	TETXR4,4 RESTORE ORIGINAL C(XR4), AND	4F11441
	03377	0 02000 1 00002	1419		TRA	2,1 * EXIT TO MAIN ROUTINE.	4F11442
			1420			END OF PROGRAM TET00.	4F11443
			1421			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11444
			1422			DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090,	4F11445
			1423			C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,	4F11446
			1424			SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,	4F11447
			1425			CMA,EMK,BEG(TYP),VRA(VRD).	4F11448
			1426			(CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE	4F11449
			1427			BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO	4F11450
			1428			THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)	4F11451
D	03400	1 00000 0 00004	1429	DIAG	TXI	4,0 * GO GET THE DIAGNOSTIC.	4F11452
			1430			END OF PROGRAM DIAG.	4F11453
			1431			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11454
			1432				4F11455
			1433			ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.	4F11456
	03401	−0 63400 4 03437	1434	FLTR00	SXD	FLTR05,4 SAVE CALLING TAG.	4F114571
	03402	0 50000 0 00030	1435		CLA	EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.	4F114572
	03403	0 62100 0 02067	1436		STA	ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION.	4F114573
	03404	0 77100 0 00022	1437		ARS	18	4F114574
	03405	0 62100 0 02070	1438		STA	NZE PLACE LAST IFN IN DEC OF PZE	4F114575
	03406	−0 53400 4 01122	1439		LXD	ARGCTR,4	4F114576
	03407	−3 00000 4 03413	1440		TXL	FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP.	4F114577
	03410	0 60000 0 01107	1441		STZ	1C+2	4F114578
	03411	0 50200 0 01454	1442		CLS	2E18 SET ADDRESS TO -1	4F114579
	03412	0 02000 0 03423	1443		TRA	FLTR03	4F11457A
	03413	0 50000 0 00365	1444	FLTR01	CLA	SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM.	4F11457B
	03414	−0 10000 0 03420	1445		TNZ	FLTR02 SKIP ON SUBPROGRAM	4F11457C
	03415	0 60000 0 01107	1446		STZ	1C+2 SET ADDRESS TO 0	4F11457D
	03416	0 60000 0 01110	1447		STZ	1C+3	4F11457E
	03417	0 02000 0 03424	1448		TRA	FLTR04	4F11457F
	03420	0 50000 0 01523	1449	FLTR02	CLA	DOLSGN SET ADDRESS TO $+2	4F11457G
	03421	0 60100 0 01107	1450		STO	1C+2	4F11457H
	03422	0 50000 0 01457	1451		CLA	D2	4F11457I
	03423	0 60100 0 01110	1452	FLTR03	STO	1C+3 SET RELATIVE ADDRESS WORD OF CIT.	4F11457J
	03424	0 07400 4 01731	1453	FLTR04	TSX	CIT00,4	4F11457K
	03425	0 00000 0 01406	1454		PZE	L(0) COMPILE NTR *+2,0,EFN	4F11457L
	03426	0 00000 0 02067	1455		PZE	ENT	4F11457M
	03427	0 00000 0 01510	1456		PZE	15P	4F11457N
	03430	0 00000 0 01457	1457		PZE	D2	4F11457O
	03431	0 07400 4 01731	1458		TSX	CIT00,4	4F11457P
	03432	0 00000 0 01406	1459		PZE	L(0) COMPILE PZE ALPHA,0,IFN	4F11457Q
	03433	0 00000 0 02070	1460		PZE	NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR	4F11457R
	03434	0 00000 0 01107	1461		PZE	1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER	4F11457S
	03435	0 00000 0 01110	1462		PZE	1C+3 MAIN OR SUBPROGRAM.	4F11457T
	03436	−0 53400 4 03437	1463		LXD	FLTR05,4	4F11457U
D	03437	1 00000 4 01731	1464	FLTR05	TXI	CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4	4F11457V
			1465				4F11457W
			1466				4F11458
			1467			END OF THE COMMON PART OF SECTION ONE.	4F11459
			1468				4F11460
			1469			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11461
			1470				4F11462
			1471			SECTION 1 / INITIALIZATION =	4F11463
		00471	1472		ORG	FORSUB	4F11465
			1473			INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER	4F11466
			1474			BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE	4F11467
			1475			PROGRAM.	4F11468
			1476			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11469
			1477				4F11470
			1478			PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =	4F11471
	00471	0 53400 1 00504	1479	CLDR00	LXA	CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0.	4F11472
	00472	0 76600 1 00305	1480	CLDR01	WRS	197,1 X	4F11473
	00473	−0 53400 2 00504	1481		LXD	CLDR07,2 X	4F11474
	00474	0 70000 0 00505	1482	CLDR03	CPY	CLDR08 X	4F11475
	00475	2 00001 2 00474	1483		TIX	CLDR03,2,1 X	4F11476
	00476	2 00001 1 00472	1484		TIX	CLDR01,1,1 X	4F11477
	00477	0 77200 0 00222	1485		REW	146 REWIND WORKING TAPES 2,3,4.	4F11478
	00500	0 77200 0 00223	1486		REW	147 X	4F11479
	00501	0 77200 0 00224	1487		REW	148 X	4F11480
	00502	0 07400 4 05702	1488	DMWR99	TSX	CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.	4F11540
	00503	0 02000 0 03440	1489		TRA	CA010 * GO BEGIN STATE A OF SECTION ONE.	4F11541
			1490			END OF INITIALIZATION / PART 2.	4F11542
			1491			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11543
			1492				4F11544
			1493			PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=	4F11545
	00504	0 04000 0 00004	1494	CLDR07	PZE	4,,2048 CONSTANT FOR CLEARING DRUMS.	4F11548
	00505	0 00000 0 00000	1495	CLDR08	PZE	0 CONSTANT FOR CLEARING DRUMS.	4F11549
			1496			END OF INITIALIZATION / PART 3.	4F11552
			1497			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11553
			1498				4F11554
			1499				4F11555
			1500			SECTION 1 / STATEA =	4F11556
			1501				4F11558
			1502			NAME FUNCTION	4F11559
			1503			PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11560
			1504			CA000 ASSEMBLE STATEMENT.	4F11561
			1505			CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.	4F11562
			1506			CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.	4F11563
			1507			CC000 CLASSIFY=WHICH NON-ARITHMETIC.	4F11564
			1508			PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.	4F11565
			1509			C0100 DO.	4F11566
			1510			C0200 GO TO.	4F11567
			1511			C0300 IF.	4F11568
			1512			C0400 IF (SENSE SWITCH.	4F11569
			1513			C0500 IF (SENSE LIGHT.	4F11570
			1514			C0600 IF DIVIDE CHECK.	4F11571
			1515			C0700 IF AC OVERFLOW.	4F11572
			1516			C0800 IF MQ OVERFLOW.	4F11573
			1517			C0900 PAUSE.	4F11574
			1518			C1000 ASSIGN.	4F11575
			1519			C1100 SENSE LIGHT.	4F11576
			1520			C1200 DIMENSION.	4F11577
			1521			C1300 STOP.	4F11578
			1522			C1400 FREQUENCY.	4F11579
			1523			C1500 EQUIVALENCE.	4F11580
			1524			C1600 CONTINUE.	4F11581
			1525			C3000(C3500) SUBROUTINE / FUNCTION.	4F11582
			1526			C3100 COMMON.	4F11583
			1527			C3200 RETURN.	4F11584
			1528			C3300 CALL.	4F11585
			1529			C3400 END.	4F11586
			1530			PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=	4F11587
			1531			RDC READ CARD	4F11588
			1532			RIT READ INPUT TAPE.	4F11589
			1533			RDP PRINT.	4F11590
			1534			WOT WRITE OUTPUT TAPE.	4F11591
			1535			PDC PUNCH.	4F11592
			1536			WBT WRITE TAPE.	4F11593
			1537			RBT READ TAPE.	4F11594
			1538			WRD WRITE DRUM.	4F11595
			1539			RDD READ DRUM.	4F11596
			1540			EFT END FILE.	4F11597
			1541			RWN REWIND.	4F11598
			1542			BSP BACKSPACE.	4F11599
			1543			FOR FORMAT.	4F11600
			1544			RSC RESET AND SCAN.	4F11601
			1545			LISTR CONTROL FOR LIST SCAN.	4F11602
			1546			LPR LEFT PARENTHESES IN LIST SCAN.	4F11603
			1547			EOS EQUAL SIGN IN LIST SCAN.	4F11604
			1548			SPCTR CONTROL FOR SPECIFICATION SCAN.	4F11605
			1549			SPC SUBSCRIPT SPECIFICATIONS.	4F11606
			1550			RPR RIGHT PARENTHESIS IN LIST SCAN.	4F11607
			1551			CMA COMMA IN LIST SCAN.	4F11608
			1552			EMK ENDMARK IN LIST SCAN.	4F11609
			1553			PART 4 / SUBROUTINES USED BY STATE A=	4F11610
			1554			BEG(TYP),4 BEGIN SCAN AND TYPE TEST.	4F11611
			1555			BEGTR CONTROL FOR BEGINNING SCAN.	4F11612
			1556			BRW,4 BINARY READ OR WRITE COMPILER.	4F11613
			1557			BSS,2 COMPILES= IFN BSS 0.	4F11614
			1558			CA100,4 READ SOURCE PROGRAM TAPE.	4F11615
			1559			CC500,4 SCAN DICTIONARY.	4F11616
			1560			ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.	4F11617
			1561			IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY.	4F11618
			1562			IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV).	4F11619
			1563			LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT.	4F11620
			1564			VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES.	4F11621
			1565			PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.	4F11622
			1566			DIC DICTIONARY.	4F11623
			1567			T TRANSFER TABLE.	4F11624
			1568				4F11625
			1569			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=	4F11626
			1570				4F11627
			1571			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION	4F11628
			1572			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F11629
			1573			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF	4F11630
			1574			THIS LOGICAL BLOCK OR SUBROUTINE.	4F11631
			1575			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F11632
			1576			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F11633
			1577				4F11634
			1578			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11635
			1579				4F11636
			1580			STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11637
		03440	1581	ORGA	ORG	1824	4F11638
			1582			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11639
		03440	1583	STATEA	BSS	0	4F11640
			1584			CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.	4F11641
			1585			CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN.	4F11642
	03440	−0 53400 4 02575	1586	CA010	LXD	ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN	4F11643
	03441	−3 00000 4 03400	1587		TXL	DIAG,4,0 * PROCESSED, THEN GO CALL DIAGNOSTIC.	4F11644
	03442	−0 53400 1 00030	1588		LXD	EIFNO,1 KEEP INTERNAL FORMULA NUMBER	4F11645
	03443	1 00001 1 03444	1589		TXI	CA013,1,1 (DECR PART OF EIFNO)	4F11646
	03444	−0 63400 1 00030	1590	CA013	SXD	EIFNO,1 UP TO DATE BY ADDING 1.	4F11647
	03445	−0 50000 0 01333	1591		CAL	FT OBTAIN HOLLERITH CODED 5-DIGIT	4F11648
	03446	0 77100 0 00006	1592		ARS	6 EXTERNAL FORMULA NO IN ACC,	4F11649
	03447	0 60200 0 01151	1593		SLW	F−1 AND RETAIN IN F-01.	4F11650
	03450	−0 53400 1 01670	1594		LXD	DCF,1 INITIALIZE INDEX A TO COMPL OF F.	4F11651
	03451	0 53400 2 01400	1595	CA018	LXA	L(11),2 SET UP LOOP FOR 11 CYCLES.	4F11652
	03452	0 56000 2 01347	1596	CA019	LDQ	FT+12,2 MOVE WORD FROM REG1ON FT	4F11653
	03453	−0 60000 1 00000	1597		STQ	0,1 TO REGION F.	4F11654
	03454	2 00001 1 03455	1598		TIX	CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE.	4F11655
	03455	2 00001 2 03452	1599	CA020	TIX	CA019,2,1 TEST END OF LOOP.	4F11656
	03456	0 07400 4 05702	1600		TSX	CA100,4 * GO READ NEXT NON-BLANK CARD.	4F11657
	03457	−0 50000 0 01333	1601		CAL	FT TEST RIGHTMOST CHARACTER OF	4F11658
	03460	−0 32000 0 01374	1602		ANA	L(63) FIRST WORD FOR CONTINUATION MARK,	4F11659
	03461	0 10000 0 03464	1603		TZE	CA021 IF ZERO OR BLANK,	4F11660
	03462	0 40200 0 01430	1604		SUB	ABLANK DISCONTINUE READING,	4F11661
	03463	−0 10000 0 03451	1605		TNZ	CA018 OTHERWISE CONTINUE.	4F11662
	03464	0 50000 0 01526	1606	CA021	CLA	BLANKS BEGIN SCANNING REGION F BACKWARDS	4F11663
	03465	0 34000 1 77777	1607	CA022	CAS	−1,1 T0 FIND FIRST NON BLANK WORD.	4F11664
	03466	0 02000 0 03470	1608		TRA	CA023 NOT BLANK.	4F11665
	03467	1 00001 1 03465	1609		TXI	CA022,1,1 BLANK, SO CONTINUE SCAM.	4F11666
	03470	0 56000 0 01531	1610	CA023	LDQ	36ONES PLACE BINARY ONES IN FIRST WORD	4F11667
	03471	−0 60000 1 00000	1611		STQ	0,1 FOLLOWING RIGHTMOST NONBLANK WORD.	4F11668
	03472	−0 50000 0 01151	1612		CAL	F−1 PICK UP EXTERNAL FORMULA NUMBER AND	4F11669
	03473	0 34000 0 01477	1613		CAS	5BLANS COMPARE WITH /0 /.	4F11670
	03474	0 02000 0 03476	1614		TRA	CA015 NOT COMPARE.	4F11671
	03475	0 02000 0 03503	1615		TRA	CD000 * TAKE EXTFORMNO, IF ANY, AND	4F11672
	03476	0 76500 0 00043	1616	CA015	LRS	35 GO TO CONVERSION SUBROUTINE AND	4F11673
	03477	0 07400 1 02566	1617		TSX	SR6DC1,1 * RETURN HERE WITH RESULT IN ACC.	4F11674
	03500	0 62100 0 00030	1618		STA	EIFNO STORE RESULT IN ADDRESS OF EIFNO.	4F11675
	03501	0 07400 1 03321	1619		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO	4F11676
	03502	0 00000 0 00000	1620		PZE	0 INTO TABLE TEIFNO (TABLE O).	4F11677
			1621			END OF PROGRAM CA000.	4F11678
			1622			* * *,* * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11679
			1623				4F11680
			1624			CD000/ CALLS=C0190X,C0190,DIAG.	4F11681
			1625			CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.	4F11682
	03503	0 07400 4 01671	1626	CD000	TSX	C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER.	4F11683
	03504	0 07400 1 03534	1627	CD001	TSX	CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER	4F11684
	03505	0 34000 0 01376	1628		CAS	COMMA SCAN	4F11685
D	03506	1 00000 0 03510	1629		TXI	CD002,0 FOR	4F11686
D	03507	1 00000 0 03512	1630		TXI	CD003,0 HOLLERITH	4F11687
	03510	0 40200 0 01375	1631	CD002	SUB	OPEN SPECIFICATION	4F11688
	03511	−0 10000 0 03504	1632		TNZ	CD001 WHICH	4F11689
	03512	0 07400 1 03534	1633	CD003	TSX	CD900,1 * CAN BE=	4F11690
	03513	0 40200 0 01373	1634		SUB	L(10) , N H	4F11691
	03514	0 12000 0 03504	1635		TPL	CD001 OR = ( N H.	4F11692
	03515	0 07400 1 03534	1636	CD004	TSX	CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER	4F11693
	03516	0 34000 0 01417	1637		CAS	L(9) CONTINUE SCAN.	4F11694
D	03517	1 00000 0 03522	1638		TXI	CD005,0 N	4F11695
D	03520	1 00000 0 03515	1639		TXI	CD004,0 IS	4F11696
D	03521	1 00000 0 03515	1640		TXI	CD004,0 A	4F11697
	03522	0 34000 0 01423	1641	CD005	CAS	L(H) FIXED	4F11698
D	03523	1 00000 0 03505	1642		TXI	CD001+1,0 POINT	4F11699
D	03524	1 00000 0 03526	1643		TXI	CD700,0 INTEGER.	4F11700
D	03525	1 00000 0 03505	1644		TXI	CD001+1,0 X	4F11701
	03526	0 07400 4 01707	1645	CD700	TSX	C0190,4 * G0 GET NEXT NONBLANK CHARACTER,	4F11702
	03527	0 34000 0 01374	1646		CAS	ENDMK AND IF ENDMARK,	4F11703
D	03530	1 00000 0 03532	1647		TXI	CD701,0 THEN SKIP	4F11704
D	03531	1 00000 0 03616	1648		TXI	CC000,0 * TO NON-ARITHMETIC CLASSIFICATI0N.	4F11705
	03532	0 07400 1 03543	1649	CD701	TSX	CD600,1 * SINCE HOLLERITH HAS BEEN FOUND,	4F11706
D	03533	1 00000 0 03526	1650		TXI	CD700,0 THEN S IS LEGAL IN FORMAT TEXT.	4F11707
	03534	0 07400 4 01707	1651	CD900	TSX	C0190,4 * OBTAIN NEXT NONBLANK CHARACTER,	4F11708
	03535	0 34000 0 01374	1652		CAS	ENDMK AND IF NOT	4F11709
D	03536	1 00000 0 03540	1653		TXI	CD800,0 ENDMARK, THEN SKIP	4F11710
D	03537	1 00000 0 03562	1654		TXI	CB000,0 * EXIT TO ARITH/NON-ARITH SCAN.	4F11711
	03540	0 34000 0 01427	1655	CD800	CAS	SPECOP CMECK FOR S	4F11712
D	03541	1 00000 0 03546	1656		TXI	CD601,0 WHICH, UNLESS HOLLERITH, IS AN	4F11713
	03542	0 07400 4 03400	1657		TSX	DIAG,4 * ERROR -- G0 T0 DIAGNOSTIC.	4F11714
	03543	0 34000 0 01435	1658	CD600	CAS	PM CMECK FOR RECORD MARK	4F11715
	03544	0 02000 1 00001	1659		TRA	1,1 WHICH IS AN	4F11716
	03545	0 07400 4 03400	1660		TSX	DIAG,4 * ERROR -- GO,TO DIAGNOSTIC.	4F11717
	03546	0 34000 0 01426	1661	CD601	CAS	CHAR3 CHECK FOR MINUS ZERO	4F11718
	03547	0 02000 1 00001	1662		TRA	1,1 WHICH IS AN	4F11719
	03550	0 07400 4 03400	1663		TSX	DIAG,4 * ERROR --,GO TO DIAGNOSTIC.	4F11720
	03551	0 34000 0 01424	1664		CAS	CHAR2 CHECK FOR PLUS ZERO	4F11721
	03552	0 02000 1 00001	1665		TRA	1,1 WHICH IS AN	4F11722
	03553	0 07400 4 03400	1666		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11723
	03554	0 34000 0 01420	1667		CAS	MINUS CHECK FOR MINUS SIGN	4F11724
	03555	0 02000 1 00001	1668		TRA	1,1 WHICH IS AN	4F11725
	03556	0 07400 4 03400	1669		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11726
	03557	0 40200 0 01373	1670		SUB	TEN CHECK FOR TEN	4F11727
	03560	−0 10000 1 00001	1671		TNZ	1,1 WHICH IS AN	4F11728
	03561	0 07400 4 03400	1672		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11729
			1673			END OF PROGRAM CD000.	4F11730
			1674			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11731
			1675				4F11732
			1676			CB000/ CALLS=C0190X,C0190,DIAG.	4F11733
			1677			CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.	4F11734
	03562	0 53400 1 01407	1678	CB000	LXA	L(1),1 SET XR1 TO COUNT PARENTHESES.	4F11735
	03563	0 07400 4 01671	1679		TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11736
	03564	0 07400 4 01707	1680	CB001	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F11737
	03565	0 34000 0 01400	1681		CAS	AEQUAL IF AN EQUAL SIGN,	4F11738
D	03566	1 00000 0 03570	1682		TXI	CB005,0 THEN	4F11739
D	03567	1 00000 0 03601	1683		TXI	CB200,0 GO TEST PAREN-COUNT.	4F11740
	03570	0 34000 0 01375	1684	CB005	CAS	ALPAR IF A LEFT PARENTHESIS,	4F11741
D	03571	1 00000 0 03573	1685		TXI	CB006,0 THEN	4F11742
	03572	1 00001 1 03564	1686		TXI	CB001,1,1 UPDATE PAREN-COUNT BY 1.	4F11743
	03573	0 34000 0 01377	1687	CB006	CAS	ARPAR IF A RIGHT PARENTHESIS,	4F11744
D	03574	1 00000 0 03576	1688		TXI	CB007,0 THEN	4F11745
D	03575	1 00000 0 03614	1689		TXI	CB500,0 GO TEST PAREN-COUNT.	4F11746
	03576	0 40200 0 01374	1690	CB007	SUB	ENDMK IF NOT ENDMARK, THEN	4F11747
	03577	−0 10000 0 03564	1691		TNZ	CB001 GO EXAMINE NEXT CHARACTER.	4F11748
D	03600	1 00000 0 03616	1692		TXI	CC000,0 * OTHERWISE, GO TO DIC LOOK-UP.	4F11749
	03601	2 00001 1 03616	1693	CB200	TIX	CC000,1,1 * IF EQUAL WAS,NOT WITHIN PARENS,	4F11750
	03602	0 07400 4 01707	1694	CB201	TSX	C0190,4 * THEN EXAMINE NEXT CHARACTER.	4F11751
	03603	0 34000 0 01375	1695		CAS	ALPAR IF LEFT PAR6NTHESIS,	4F11752
D	03604	1 00000 0 03606	1696		TXI	CB205,0 THEN	4F11753
D	03605	1 00000 0 06323	1697		TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11754
	03606	0 34000 0 01376	1698	CB205	CAS	ACOMMA IF A COMMA,	4F11755
D	03607	1 00000 0 03611	1699		TXI	CB206,0 THEN	4F11756
D	03610	1 00000 0 03616	1700		TXI	CC000,0 * GO TO NO,-ARITHMETIC DIC LOOK-UP.	4F11757
	03611	0 40200 0 01374	1701	CB206	SUB	ENDMK IF NOT ENDMARK, THEN	4F11758
	03612	−0 10000 0 03602	1702		TNZ	CB201 GO EXAMINE NEXT CHARACTER.	4F11759
D	03613	1 00000 0 06323	1703		TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11760
	03614	2 00001 1 03564	1704	CB500	TIX	CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE,	4F11761
	03615	0 07400 4 03400	1705		TSX	DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE.	4F11762
			1706			END 0F PROGRAM CB000.	4F11763
			1707			* * * * * * * * * * * * * * * . * * * * * * * * * * * * * * *	4F11764
			1708				4F11765
			1709			CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.	4F11766
			1710			CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC.	4F11767
	03616	0 60000 0 01113	1711	CC000	STZ	2G SET DICTIONARY WORD TAG, AND	4F11768
	03617	0 53400 3 01406	1712		LXA	L(0),3 CHARACTER COUNT AND ENTRY COUNT.	4F11769
	03620	0 07400 4 01671	1713	CC001	TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11770
	03621	0 07400 4 05743	1714		TSX	CC500,4 * EXAMINE NEXT DICTI0NARY CHARACTER.	4F11771
	03622	0 34000 0 01374	1715		CAS	ENDMK TEST FOR CONSECUTIVE ENDMARKS.	4F11772
	03623	0 02000 0 03272	1716		TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11773
	03624	0 07400 4 03400	1717		TSX	DIAG,4 * ERROR = NOT FOUND IN DICTIONARY.	4F11774
D	03625	1 00000 0 03632	1718		TXI	CC004,0 GO BEGIN COMPARISON.	4F11775
	03626	0 07400 4 05743	1719	CC002	TSX	CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER.	4F11776
	03627	0 34000 0 01374	1720		CAS	ENDMK TEST FOR END OF DIC ENTRY.	4F11777
D	03630	1 00000 0 03272	1721		TXI	ERR77P,0 * MACHINE ERROR, GO T0 DIAGNOSTIC.	4F11778
D	03631	1 00000 0 03644	1722		TXI	CC007,0 IF END OF ENTRY, LOOK NO FURTHER.	4F11779
	03632	0 60100 0 01105	1723	CC004	STO	1C OTHERWISE, SAVE CHARACTER	4F11780
	03633	−0 60000 0 01106	1724		STQ	1C+1 AND REMAINDER OF DICTIONARY WORD.	4F11781
	03634	0 07400 4 01707	1725		TSX	C0190,4 * GO GET NEXT FORMULA CHARACTER,	4F11782
	03635	0 56000 0 01106	1726		LDQ	1C+1 AND RESTORE DICTIONARY WORD.	4F11783
	03636	0 40200 0 01105	1727		SUB	1C IF CHARACTERS ARE EQUAL,	4F11784
	03637	0 10000 0 03626	1728		TZE	CC002 THEN GO COMPARE NEXT CHARACTERS.	4F11785
	03640	0 07400 4 05743	1729	CC005	TSX	CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR.	4F11786
	03641	0 40200 0 01374	1730		SUB	ENDMK CONTINUE JNTIL AN ENDMARK IS	4F11787
	03642	−0 10000 0 03640	1731		TNZ	CC005 FOUND, THEN	4F11788
	03643	1 77777 1 03620	1732		TXI	CC001,1,−1 COUNT ENTRY, AND BEGIN AGAIN.	4=11789
	03644	0 50000 1 06246	1733	CC007	CLA	T,1 IF THE CURRENT STATEMENT IS	4F11790
	03645	0 12000 1 06246	1734		TPL	T,1 OF THE NON-EXECUTABLE TYPE,	4F11791
	03646	−0 63400 1 01107	1735		SXD	1C+2,1 THEN	4F11792
	03647	0 07400 1 03321	1736		TSX	TET00,1 * GO ENTER EIFNO IN THE	4F11793
	03650	0 00000 0 00016	1737		PZE	14 NONEXC TABLE.	4F11794
	03651	−0 53400 1 01107	1738		LXD	1C+2,1 AND THEN	4F11795
	03652	0 02000 1 06246	1739	CC008	TRA	T,1 * TAKE INDICATED TRANSFER.	4F11796
			1740			END 0F PROGRAM CC000.	4F11797
			1741			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11798
			1742				4F11799
			1743			STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=	4F11800
			1744				4F11801
			1745			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11802
			1746				4F11803
			1747			C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.	4F11804
			1748			C0100 PROCESSES DO STATEMENTS.	4F11805
	03653	0 07400 4 02366	1749	C0100	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F11806
	03654	0 07400 4 01707	1750		TSX	C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER	4F11807
	03655	0 07400 4 03315	1751		TSX	TESTI0,4 * WHICH SHOULD BE NUMERIC.	4F11808
	03656	0 07400 2 01655	1752		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.	4F11809
	03657	0 60100 0 01113	1753		STO	2G SAVE THE 1ST CHAR OF SUBSCRIPT.	4F11810
	03660	0 50000 0 01112	1754		CLA	1G TAKE CONVERTED RESULT FOR BETA	4F11811
	03661	0 62100 0 01105	1755		STA	1C AND STORE IN ADDR OF 1C.	4F11812
	03662	0 50000 0 01113	1756		CLA	2G 1C IS NOW COMPLETE EXCEPT FOR TAG.	4F11813
	03663	0 07400 2 01624	1757		TSX	C0160,2 * OBTAIN IN 1G THE SUBSCRIPT.	4F11814
	03664	0 50000 0 01112	1758		CLA	1G STORE SUBSCRIPT	4F11815
	03665	0 60100 0 01106	1759		STO	1C+1 IN 1C+1.	4F11816
	03666	0 07400 2 01604	1760		TSX	C0150,2 * OBTAIN IN 1G THE PROPER N1.	4F11817
	03667	0 50000 0 01112	1761		CLA	1G STORE N1	4F11818
	03670	0 60100 0 01107	1762		STO	1C+2 IN 1C+2.	4F1.819
	03671	−0 50000 0 01353	1763		CAL	I OBTAIN I IN LOGICAL ACC AND	4F11820
	03672	0 77100 0 00022	1764		ARS	18 STORE IN POS 18 OF 1C	4F11821
	03673	−0 60200 0 01105	1765		ORS	1C 0 IF NUMERIC, OR 1 IF NO,-NUMERIC.	4F11822
	03674	0 07400 2 01604	1766		TSX	C0150,2 * OBTAIN IN 1G THE PROPER N2.	4F11823
	03675	0 07400 4 03247	1767		TSX	TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK.	4F11824
	03676	−0 10000 0 03701	1768		TNZ	C0113 IF ENDMARK, THEN	4F11825
	03677	−0 77300 0 00037	1769		RQL	31 CREATE ONE IN MQ FOR N3	4F11826
	03700	−0 60000 0 01365	1770		STQ	RESIDU AND PLACE IN RESIDU.	4F11827
	03701	0 50000 0 01112	1771	C0113	CLA	1G STORE N2	4F11820
	03702	0 60100 0 01110	1772		STO	1C+3 IN 1C+3.	4F11829
	03703	−0 50000 0 01353	1773		CAL	I OBTAIN I IN LOG ACC AND	4F11830
	03704	0 77100 0 00023	1774		ARS	19 STORE IN POS 19 OF 1C	4F11831
	03705	−0 60200 0 01105	1775		ORS	1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11832
	03706	0 07400 2 01604	1776		TSX	C0150,2 * OBTAIN IN 1G THE PROPER N3.	4F11833
	03707	0 07400 4 03271	1777		TSX	TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK.	4F11834
	03710	0 50000 0 01112	1778		CLA	1G STORE N3	4F11835
	03711	0 60100 0 01111	1779		STO	1C+4 IN 1C+4.	4F11836
	03712	−0 50000 0 01353	1780		CAL	I OBTAIN I IN LOG ACC AND	4F11837
	03713	0 77100 0 00024	1781		ARS	20 STORE IN POS 20 OF 1C	4F11838
	03714	−0 60200 0 01105	1782		ORS	1C O IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11839
	03715	0 07400 1 03321	1783		TSX	TET00,1 * GO TO TET PROGRAM TO ENTER	4F11840
	03716	0 00000 0 00001	1784		PZE	1 1C,1C+1,..1C+4 IN TDO TABLE 1.	4F11841
D	03717	1 00000 0 03440	1785		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F11842
			1786			END OF PROGRAM C0100.	4F11843
			1787			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11844
			1788				4F11845
			1789			C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,	4F11846
			1790			CIT00,SS000(CSA000).	4F11847
			1791			C0200 PROCESSES GO TO STATEMENTS.	4F11848
	03720	0 07400 4 02366	1792	C0200	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F11849
	03721	0 60100 0 01107	1793		STO	1C+2 AND IN 1C+2.	4F11850
	03722	0 07400 4 01707	1794		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER	4F11851
	03723	0 34000 0 01417	1795		CAS	L(9) AND COMPARE IT WITH 9.	4F11852
D	03724	1 00000 0 03733	1796		TXI	C0205,0 IF NON-NUMERIC, GO COMPARE WITH (.	4F11853
	03725	0 76100 0 00000	1797		NOP	IF NUMERIC, THEN	4F11854
	03726	0 07400 2 01655	1798		TSX	C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA.	4F11855
	03727	0 07400 4 03271	1799		TSX	TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK.	4F11856
	03730	0 50000 0 01112	1800		CLA	1G STORE BETA IN 1C+1 TO CONSTRUCT	4F11857
	03731	0 60100 0 01106	1801		STO	1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY.	4F11858
D	03732	1 00000 0 04030	1802		TXI	C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO.	4F11859
	03733	0 34000 0 01375	1803	C0205	CAS	ALPAR TEST CHARACTER FOR ALPHABETIC.	4F11860
D	03734	1 00000 0 03736	1804		TXI	C0210,0 IF NOT ALPHABETIC, THEN	4F11861
D	03735	1 00000 0 03746	1805		TXI	C0212,0 THIS IS TYPE= GO TO ( ), I.	4F11862
	03736	0 07400 2 01624	1806	C0210	TSX	C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N	4F11863
	03737	0 07400 4 03305	1807		TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F11864
	03740	0 50000 0 01112	1808		CLA	1G SAVE THE SYMBOL N IN 1C+3	4F11865
	03741	0 60100 0 01110	1809		STO	1C+3 FOR COMPILED INSTRUCTION.	4F11866
	03742	0 07400 4 01707	1810		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER,	4F11867
	03743	0 07400 4 03275	1811		TSX	TESTE0,4 * WHICH SHOULD BE A LPAREN.	4F11868
	03744	0 50000 0 01407	1812		CLA	L(1) PREPARE TO SET ADDRESS PART OF 1C	4F11869
	03745	0 02000 0 03747	1813		TRA	C0213 TO 1 TO INDICATE CLASS OF TRANSFER.	4F11870
	03746	0 50000 0 01410	1814	C0212	CLA	L(2) PREPARE TO SET ADDR OF 1C TO 2.	4F11871
	03747	0 62100 0 01105	1815	C0213	STA	1C STORE 1 OR 2 IN ADDR OF 1C.	4F11872
	03750	−0 53400 2 04032	1816		LXD	CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND	4F11873
	03751	−0 75400 2 00000	1817		PXD	,2 PLACE IN THE DECREMENT OF THE AC	4F11874
	03752	0 60100 0 01106	1818		STO	1C+1 AND STORE IN 1C+1.	4F11875
	03753	0 07400 4 01707	1819	C0215	TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR.	4F11876
	03754	0 07400 2 01655	1820		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA.	4F11877
	03755	0 60100 0 01113	1821		STO	2G SAVE CHAR IN ACC.	4F11878
	03756	0 07400 1 03321	1822		TSX	TET00,1 * GO TO ENTER 1G	4F11879
	03757	0 00000 0 00003	1823		PZE	3 INTO TRAD TABLE (TABLE 3).	4F11880
	03760	−0 53400 2 04032	1824		LXD	CTRAD,2 REDUCE COUNTER	4F11881
	03761	2 00001 2 03762	1825		TIX	C0216,2,1 CTRAD	4F11882
	03762	−0 63400 2 04032	1826	C0216	SXD	CTRAD,2 BY 1.	4F11883
	03763	0 50000 0 01113	1827		CLA	2G RESTORE CHAR TO ACC.	4F11884
	03764	0 07400 4 03255	1828		TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F11885
	03765	−0 10000 0 03753	1829		TNZ	C0215 IF RIGHT PARENTHESIS, THEN	4F11886
	03766	0 50000 0 04032	1830		CLA	CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF	4F11887
	03767	0 77100 0 00022	1831		ARS	18 ENTRIES IN TRAD TABLE,AND STORE	4F11888
	03770	0 62100 0 01106	1832		STA	1C+1 IN ADDR OF 1C+1.	4F11889
	03771	0 50000 0 01105	1833		CLA	1C OBTAIN 1C IN ACC	4F11890
	03772	0 76000 0 00001	1834		LBT	AND TEST L0W ORDER BIT.	4F11891
	03773	0 02000 0 04004	1835		TRA	C0220 THIS IS A TYPE GO TO (),I FORMULA.	4F11892
	03774	0 07400 4 01707	1836		TSX	C0190,4 * OBTAIN NEXT NB CHAR AND	4F11893
	03775	0 07400 4 03271	1837		TSX	TESTD0,4 * TEST FOR ENDMK.	4F11894
	03776	0 07400 4 01731	1838		TSX	CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F11895
	03777	0 00000 0 01107	1839		PZE	1C+2 WORD 1--DECR= INTFORMNO (LOCATION)	4F11896
	04000	0 00000 0 01601	1840		PZE	L(TRA) WORD 2--TRA000 (OP AND DECR)	4F11897
	04001	0 00000 0 01110	1841		PZE	1C+3 WORD 3--VARIABLE N IADDRESS)	4F11898
	04002	0 00000 0 01406	1842		PZE	L(0) WORD 4--000000 IREL ADDR AND TAG).	4F11899
	04003	0 02000 0 04030	1843		TRA	C0202 GO TO ENTER 1C,1C+1 INTO TIFGO.	4F11900
	04004	0 07400 4 01707	1844	C0220	TSX	C0190,4 * EXAMINE NEXT NB CHARACTER,	4F11901
	04005	0 07400 4 03305	1845		TSX	TESTG0,4 * WHICH SHOULD BE A COMMA.	4F11902
	04006	0 07400 4 01707	1846		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR, ANO	4F11903
	04007	0 07400 2 01624	1847		TSX	C0160,2 * OBTAIN IN 1G THE FXD-PT. VARIABLE,	4F11904
	04010	0 07400 4 03271	1848		TSX	TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK.	4F11905
	04011	0 50000 0 01407	1849		CLA	L(1) PREPARE PROPER FORM OF SUBSCRIPT	4F11906
	04012	0 60100 0 01131	1850		STO	E+3 COMBINATION AS	4F11907
	04013	0 60100 0 01100	1851		STO	DIMCTR INPUT T0 SUBSCRIPT ANALYSIS=	4F11908
	04014	0 50000 0 01112	1852		CLA	1G E+3 = 1ST COEFFICIENT,	4F11909
	04015	0 60100 0 01132	1853		STO	E+4 E+6 = 1ST SUBSCRIPT VARIABLE,	4F11910
	04016	0 60000 0 01137	1854		STZ	E+9 E+9 = ADDEND OF SUBSCRIPT,	4F11911
	04017	0 07400 4 03027	1855		TSX	CSA000,4 * DIMCTR = DIMENSION OF VARIABLE.	4F11912
	04020	0 50000 0 01126	1856		CLA	E OUTPUT FROM CSA IS FOUND IN	4F11913
	04021	0 77100 0 00030	1857		ARS	24 E = I--TAUTAG (GENERAL TAG) 1-11.	4F11914
	04022	0 60100 0 01113	1858		STO	2G ADJUST AND SAVE FOR COMP. 1NSTR.	4F11915
	04023	0 07400 4 01731	1859		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F11916
	04024	0 00000 0 01107	1860		PZE	1C+2 WORD 1--DECR-INTFORMNO(LOCAT1ON)	4F11917
	04025	0 00000 0 01601	1861		PZE	L(TRA) WORD 2--TRA000(OP ANO 0ECR)	4F11918
	04026	0 00000 0 01406	1862		PZE	L(0) WORD 3--000000(ADDRESS)	4F11919
	04027	0 00000 0 01113	1863		PZE	2G WORD 4--ADDR = TAUTAG FOR I	4F11920
			1864			C0200= ENTPY POINT USED BY C0400,C1000.	4F11921
	04030	0 07400 1 03321	1865	C0202	TSX	TET00,1 * GO TO TET TO ENTER 1C AND 1C+1	4F11922
	04031	0 00000 0 00002	1866		PZE	2 INTO TIFGO TABLE ITABLE 2).	4F11923
	04032	1 00372 0 03440	1867	CTRAD	TXI	CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT.	4F11924
			1868			END OF PROGRAM C0200.	4F11925
			1869			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11926
			1870				4F11927
			1871			C030O/ CALLS=C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,	4F11928
			1872			=STATEB.	4F11929
			1873			C0300 PROCESSES IF STATEMENTS.	4F11930
	04033	−0 53400 4 00030	1874	C0300	LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11931
	04034	−0 75400 4 00000	1875		PXD	,4 NUMBER IN THE DECREMENT OF 1C	4F11932
	04035	−0 76000 0 00003	1876		SSM	WITH SIGN SET TO MINUS	4F11933
	04036	0 60100 0 01105	1877		STO	1C FOR FUTURE TIFGO ENTRY.	4F11934
	04037	0 07400 4 01671	1878		TSX	C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN.	4F11935
	04040	0 07400 4 01707	1879		TSX	C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I).	4F11936
	04041	0 56000 0 01433	1880		LDQ	L(X) REPLACE THE CHARACTER I	4F11937
	04042	0 07400 4 01675	1881		TSX	C0390,4 * WITH THE CHARACTER X.	4F11938
	04043	0 56000 0 01373	1882		LDQ	L(10) REPLACE THE CHARACTER F	4F11939
	04044	0 07400 4 01675	1883		TSX	C0390,4 * WITH THE CHARACTER 001010.	4F11940
	04045	0 07400 4 03275	1884		TSX	TESTE0,4 * IF NOT LPAREN -- THEN ERROR.	4F11941
	04046	0 56000 0 01400	1885		LDQ	AEQUAL REPLACE THE CHARACTER LPAREN	4F11942
	04047	0 07400 4 01675	1886		TSX	C0390,4 * WITH THE CHARACTER EQUAL.	4F11943
	04050	0 53400 2 01407	1887		LXA	L(1),2 SET XR2 FOR COUNTING PARENTHESES.	4F11944
	04051	0 02000 0 04053	1888		TRA	*+2	4F11945
	04052	0 07400 4 01707	1889	C0302	TSX	C0190,4 * MAKE SURE THAT NEXT NB CHARACTER	4F11946
	04053	0 34000 0 01374	1890		CAS	ENDMK IS NOT AN ENDMARK.	4F11947
	04054	0 02000 0 03272	1891		TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11948
	04055	0 07400 4 03400	1892		TSX	DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC.	4F11949
	04056	0 34000 0 01375	1893		CAS	ALPAR IF IT IS A LPAREN,	4F11950
D	04057	1 00000 0 04061	1894		TXI	C0303,0 THEN ADD 1 TO PAREN COUNT, AND	4F11951
	04060	1 00001 2 04052	1895		TXI	C0302,2,1 GO EXAMINE NEXT CHARACTER.	4F11952
	04061	0 40200 0 01377	1896	C0303	SUB	ARPAR IF IT IS A RPAREN,	4F11953
	04062	−0 10000 0 04052	1897		TNZ	C0302 THEN TEST PAREN COUNT, AND IF IT	4F11954
	04063	2 00001 2 04052	1898		TIX	C0302,2,1 CAN NO, BE REDUCED,MATE IS FOUND.	4F11955
	04064	0 56000 0 01374	1899		LDQ	ENDMK SO REPLACE THE CHARACTER RPAREN	4F11956
	04065	0 07400 4 01675	1900		TSX	C0390,4 * WITH THE CHARACTER ENDMK.	4F11957
	04066	0 07400 2 01655	1901		TSX	C0180,2 * BINARY EQUIVALENT OF BETA 1.	4F11958
	04067	0 07400 4 03305	1902		TSX	TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.	4F11959
	04070	0 50000 0 01112	1903		CLA	1G MOVE BETA1	4F11960
	04071	0 62100 0 01105	1904		STA	1C TO ADDRESS OF 1C.	4F11961
	04072	0 07400 4 01707	1905		TSX	C0190,4 * AND PROCEED TO FORM	4F11962
	04073	0 07400 2 01655	1906		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 2.	4F11963
	04074	0 07400 4 03305	1907		TSX	TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.	4F11964
	04075	0 50000 0 01112	1908		CLA	1G MOVE BETA2	4F11965
	04076	0 76700 0 00022	1909		ALS	18 TO DECR PART	4F11966
	04077	0 60100 0 01106	1910		STO	1C+1 OF 1C+1.	4F11967
	04100	0 07400 4 01707	1911		TSX	C0190,4 * AND PROCEED TO FORM	4F11968
	04101	0 07400 2 01655	1912		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 3.	4F11969
	04102	0 07400 4 03271	1913		TSX	TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENOMARK.	4F11970
	04103	0 50000 0 01112	1914		CLA	1G MOVE BETA3	4F11971
	04104	0 62100 0 01106	1915		STA	1C+1 TO ADDRESS OF 1C+1.	4F11972
D	04105	1 00000 0 06323	1916		TXI	ARITH,0 * EXIT T0 ARITH FOR FINAL PROCESSING.	4F11973
			1917			END OF PROGRAM C0300.	4F11974
			1918			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11975
			1919				4F11976
			1920			C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.	4F11977
			1921			C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.	4F11978
	04106	0 50000 0 01441	1922	C0400	CLA	L(112) FOR SENSE SWITCH	4F11979
	04107	0 60100 0 01115	1923		STO	1H SET 1H TO 112, AND PREPARE TO	4F11980
	04110	0 50000 0 01565	1924		CLA	L(PSE) SET 2H TO PSE.	4F11981
			1925			C0401= ENTRY POINT USED BY C0500.	4F11982
	04111	0 60100 0 01116	1926	C0401	STO	2H SET 2H FOR SENSE SWITCH OR LIGHT.	4F11983
	04112	0 07400 4 01707	1927		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11984
	04113	0 07400 2 01655	1928		TSX	C0180,2 * EQUIVALENT OF SW OR SL NUMBER.	4F11985
	04114	0 07400 4 03301	1929		TSX	TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN.	4F11986
	04115	0 50000 0 01411	1930		CLA	L(3) STORE 3	4F11987
	04116	0 60100 0 01105	1931		STO	1C IN ADDRESS 0F 1C.	4F11988
	04117	0 50000 0 01112	1932		CLA	1G ADD THE PROPER INCREMENT TO THE	4F11989
	04120	0 40000 0 01115	1933		ADD	1H NUMBER OF SENSE SWITCH OR LIGHT,	4F11990
	04121	0 76700 0 00022	1934		ALS	18 AND ADJUST TO THE DECREMENT.	4F11991
			1935			C0402= ENTRY POINT USED BY C0600.	4F11992
	04122	0 60100 0 01110	1936	C0402	STO	1C+3 SET 1C+3 FOR CIT ENTRY.	4F11993
	04123	−0 53400 4 00030	1937		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11994
	04124	−0 75400 4 00000	1938		PXD	,4 NUMBER IN THE DECREMENT OF	4F11995
	04125	0 62200 0 01105	1939		STD	1C 1C FOR FUTURE TIFGO ENTRY, AND	4F11996
	04126	0 60100 0 01107	1940		STO	1C+2 1C+2 FOR FUTURE CIT ENTRY.	4F11997
	04127	0 07400 4 01707	1941		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11998
	04130	0 07400 2 01655	1942		TSX	C0180,2 * EQUIVALENT OF BETA 1,	4F11999
	04131	0 07400 4 03305	1943		TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F12000
	04132	0 50000 0 01112	1944		CLA	1G BRING UP,	4F12001
	04133	0 76700 0 00022	1945		ALS	18 ADJUST AND	4F12002
	04134	0 60100 0 01106	1946		STO	1C+1 STORE BETA1 IN DECR OF 1C+1.	4F12003
	04135	0 07400 4 01707	1947		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F12004
	04136	0 07400 2 01655	1948		TSX	C0180,2 * EQUIVALENT OF BETA 2,	4F12005
	04137	0 07400 4 03271	1949		TSX	TESTD0,4 * WHICH SHOULD BE FOLL0WED BY ENDMK.	4F12006
	04140	0 50000 0 01112	1950		CLA	1G BRING UP AND	4F12007
	04141	0 62100 0 01106	1951		STA	1C+1 STORE BETA2 IN ADDR OF 1C+1.	4F12008
	04142	0 07400 4 01731	1952		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12009
	04143	0 00000 0 01107	1953		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12010
	04144	0 00000 0 01116	1954		PZE	2H WORD2--PSE,MSE,DCT,TOV,OR TQO.	4F12011
	04145	0 00000 0 01406	1955		PZE	L(0) WORD3--000000 (ADDRESSI	4F12012
	04146	0 00000 0 01110	1956		PZE	1C+3 WORD4--DECR=SS OR SL NO., OR 000000	4F12013
D	04147	1 00000 0 04030	1957		TXI	C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.	4F12014
			1958			END OF PROGRAM C0400.	4F12015
			1959			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12016
			1960				4F12017
			1961			C0500/ USES=C0400.	4F12018
			1962			C0500 PROCESSES IF (SENSE LIGHT STATEMENTS.	4F12019
	04150	0 50000 0 01440	1963	C0500	CLA	L(96) STORE 96 IN	4F12020
	04151	0 60100 0 01115	1964		STO	1H 1H AND	4F12021
	04152	0 50000 0 01563	1965		CLA	L(MSE) OBTAIN (MSE000) IN ACC.	4F12022
	04153	0 02000 0 04111	1966		TRA	C0401 * AND CONTINUE BY USING PROGRAM C04.	4F12023
			1967			END OF PROGRAM C0500.	4F12024
			1968			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12025
			1969				4F12026
			1970			C0600/ USES=C0400.	4F12027
			1971			C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.	4F12028
	04154	0 50000 0 01545	1972	C0600	CLA	L(DCT) STORE (DCT000)	4F12029
	04155	0 60100 0 01116	1973		STO	2H IN 2H	4F12030
	04156	0 50000 0 01412	1974		CLA	L(4) AND PICK UP 4 TO SET 1C.	4F12031
			1975			C0601= ENTRY POINT USED BY C0700.	4F12032
	04157	0 60100 0 01105	1976	C0601	STO	1C SET 1C FOR FUTURE TIFGO ENTRY.	4F12033
	04160	−0 75400 0 00000	1977		PXD	,0 CLEAR THE AC,	4F12034
	04161	0 02000 0 04122	1978		TRA	C0402 * AND CONTINUE BY USING PROGRAM C04.	4F12035
			1979			END OF PROGRAM C0600.	4F12036
			1980			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12037
			1981				4F12038
			1982			C0700/ USES C0600.	4F12039
			1983			C0700 PROCESSES IF AC OVERFLOW STATEMENTS.	4F12040
	04162	0 50000 0 01577	1984	C0700	CLA	L(TOV) PICKUP TOV000 TO SET 2H.	4F12041
			1985			C0701= ENTRY POINT USED BY C0800.	4F12042
	04163	0 60100 0 01116	1986	C0701	STO	2H SET 2H FOR FUTURE CIT ENTRY.	4F12043
	04164	0 50000 0 01413	1987		CLA	L(5) PICKUP 5 TO SET 1C, AND	4F12044
	04165	0 02000 0 04157	1988		TRA	C0601 * CONTINUE BY USING PROGRAM C06.	4F12045
			1989			END OF PROGRAM C0700.	4F12046
			1990			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12047
			1991				4F12048
			1992			C0800/ USES=C0700.	4F12049
			1993			C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.	4F12050
	04166	0 50000 0 01600	1994	C0800	CLA	L(TQO) PICKUP TQO000 TO SET 2H,	4F12051
	04167	0 02000 0 04163	1995		TRA	C0701 * AND CONTINUE BY USING PROGRAM C07.	4F12052
			1996			END OF PROGRAM C0800.	4F12053
			1997			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12054
			1998				4F12055
			1999			C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.	4F12056
			2000			C0900 PROCESSES PAUSE STATEMENTS.	4F12057
	04170	−0 53400 2 04175	2001	C0900	LXD	C090X,2 SET XR2 FOR EXIT TO CA000.	4F12058
			2002			C0901= ENTRY POINT USED BY C1300.	4F12059
	04171	0 60000 0 01112	2003	C0901	STZ	1G CLEAR 1G.	4F12060
	04172	0 07400 4 01707	2004	C0902	TSX	C0190,4 * TEST NEXT NON-BLANK CHARACTER	4F12061
	04173	0 34000 0 01374	2005		CAS	ENDMK FOR END OF STATEMENT MARK.	4F12062
	04174	0 02000 0 03272	2006		TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F12063
	04175	1 74341 0 04202	2007	C090X	TXI	C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN	4F12064
	04176	0 40000 0 01112	2008		ADD	1G ADD 1G TO DIGIT,	4F12065
	04177	0 76700 0 00003	2009		ALS	3 MULTIPLY BY 8,	4F12066
	04200	0 60100 0 01112	2010		STO	1G AND STORE BACK IN 1G.	4F12067
D	04201	1 00000 0 04172	2011		TXI	C0902,0 CONTINUE UNTIL END OF STATEMENT.	4F12068
	04202	0 50000 0 01112	2012	C0903	CLA	1G THEN PLACE 0CTAL ALPHA	4F12069
	04203	0 76700 0 00017	2013		ALS	15 IN THE DECREMENT	4F12070
	04204	0 60100 0 01105	2014		STO	1C OF 1C FOR FUTURE CIT ENTRY.	4F12071
	04205	−0 53400 4 00030	2015		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F12072
	04206	−0 75400 4 00000	2016		PXD	,4 NUMBER IN THE DECREMENT	4F12073
	04207	0 60100 0 01106	2017		STO	1C+1 OF 1C+1,WITH ZEROS ELSEWHERE.	4F12074
	04210	0 07400 4 01731	2018		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12075
	04211	0 00000 0 01106	2019		PZE	1C+1 WORD1--DECR = INTFORMNO (LOCATION)	4F12076
	04212	0 00000 0 01554	2020		PZE	L(HPR) WORD2--HPR000 (OP AND DECR)	4F12077
	04213	0 00000 0 01406	2021		PZE	L(0) WORD3--000000 (ADDRESS)	4F12078
	04214	0 00000 0 01105	2022		PZE	1C WORD4--DECR = ALPHA, REST ZEROS.	4F12079
	04215	0 02000 2 00001	2023		TRA	1,2 * EXIT TO CA000, OR TO C1300.	4F12080
			2024			END OF PROGRAM C0900.	4F12081
			2025			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12082
			2026				4F12083
			2027			C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST..	4F12084
			2028			CIT00.	4F12085
			2029			C1000 PROCESSES ASSIGN STATEMENTS.	4F12086
	04216	0 07400 4 02366	2030	C1000	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F12087
	04217	0 60100 0 01107	2031		STO	1C+2 AND 1C+2,WITH ZEROS ELSEWHERE.	4F12088
	04220	0 50000 0 01414	2032		CLA	L(6) STORE 6 IN	4F12089
	04221	0 62100 0 01105	2033		STA	1C ADDRE=S OF 1C.	4F12090
	04222	0 07400 2 01654	2034		TSX	C0180X,2 * GO FORM BINARY EQUIV OF ALPHA.	4F12091
	04223	0 40200 0 01432	2035		SUB	L(T) IF NEXT CHARACTER IS NOT T, THEN	4F12093
	04224	0 10000 0 04226	2036		TZE	*+2 THIS IS AN	4F12094
	04225	0 07400 4 03400	2037		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12095
	04226	0 07400 4 01707	2038		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12096
	04227	0 40200 0 01425	2039		SUB	L(O) AND IF IT IS NOT O, THEN	4F12097
	04230	−0 10000 0 04225	2040		TNZ	*−3 ERROR, GO TO DIAGNOSTIC.	4F12098
	04231	0 50000 0 01112	2041		CLA	1G PUT BIN EQUIV OF ALPHA	4F12099
	04232	0 60100 0 01106	2042		STO	1C+1 IN ADDRESS OF 1C+1.	4F12100
	04233	0 07400 4 01707	2043		TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12101
	04234	0 07400 2 01624	2044		TSX	C0160,2 * THE SYMBOL N.	4F12102
	04235	0 07400 4 03271	2045		TSX	TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK.	4F12103
	04236	0 07400 4 01731	2046		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12104
	04237	0 00000 0 01107	2047		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12105
	04240	0 00000 0 01541	2048		PZE	L(CLA) WORD2--CLA000 (OP AND DECR)	4F12106
	04241	0 00000 0 01406	2049		PZE	L(0) WORD3--000000 (ADDRESS)	4F12107
	04242	0 00000 0 01406	2050		PZE	L(0) WORD4--000000 (RELADDR AN0 TAG).	4F12108
	04243	0 07400 4 01731	2051		TSX	CIT00,4 * STORE SECOND COMPILED INSTRUCTION=	4F12109
	04244	0 00000 0 01406	2052		PZE	L(0) WORD1--0OOOO0 (ALL ZEROS)	4F12110
	04245	0 00000 0 01572	2053		PZE	L(STO) WORD2--STO000 (OP AND DECR)	4F12111
	04246	0 00000 0 01112	2054		PZE	1G WORD3--SYMBOL N IADDRESS)	4F12112
	04247	0 00000 0 01406	2055		PZE	L(0) WORD4--000000 (REL ADDR AND TAG).	4F12113
	04250	0 02000 0 04030	2056		TRA	C0202 * CONTINUE BY USING PROGRAM C02.	4F12114
			2057			END OF PROGRAM C1000.	4F12115
			2058			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12116
			2059				4F12117
			2060			C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.	4F12118
			2061			C1100 PROCESSES SENSE LIGHT STATEMENTS.	4F12119
	04251	0 07400 2 01654	2062	C1100	TSX	C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER.	4F12120
	04252	0 07400 4 03271	2063		TSX	TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.	4F12122
	04253	0 50000 0 01112	2064		CLA	1G STORE SENSE LIGHT NUMBER	4F12123
	04254	0 40000 0 01440	2065		ADD	L(96) PLUS 96	4F12124
	04255	0 76700 0 00022	2066		ALS	18 IN DECR	4F12125
	04256	0 60100 0 01112	2067		STO	1G OF 1G.	4F12126
	04257	0 07400 4 02366	2068		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12127
	04260	0 07400 4 01731	2069		TSX	CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F12128
	04261	0 00000 0 01105	2070		PZE	1C WORD1--DECR = INTFORMNO (LOCATION)	4F12129
	04262	0 00000 0 01565	2071		PZE	L(PSE) WORD2--PSE000 (OP AND DECREMENT)	4F12130
	04263	0 00000 0 01406	2072		PZE	L(0) WORD3--000000 (ADDRESS PART)	4F12131
	04264	0 00000 0 01112	2073		PZE	1G WORD4--DECR = 96+ALPHA,REST ZEROS.	4F12132
D	04265	1 00000 0 03440	2074		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12133
			2075			END OF PROGRAM C1100.	4F12134
			2076			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12135
			2077				4F12136
			2078			C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.	4F12137
			2079			C1200 PR0CESSES DIMENSION STATEMENTS.	4F12138
	04266	0 07400 4 01707	2080	C1200	TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12139
	04267	0 07400 2 01624	2081		TSX	C0160,2 * THE VARIABLE SYMBOL.	4F12140
	04270	0 07400 4 03275	2082		TSX	TESTE0,4 * NEXT NB CHARACTER SH0ULD BE LPAREN.	4F12141
	04271	0 50000 0 01112	2083		CLA	1G PUT VARIABLE SYMBOL	4F12142
	04272	0 60100 0 01105	2084		STO	1C IN 1C.	4F12143
	04273	0 60100 0 01130	2085		STO	E+2 ALS0 IN E+2. THEN	4F12144
	04274	0 07400 4 01771	2086		TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE.	4F12145
	04275	0 02000 0 04277	2087		TRA	C1280 THEN IF NOT	4F12146
	04276	0 02000 0 04304	2088		TRA	C1299 FOUND,	4F12147
	04277	0 07400 4 01775	2089	C1280	TSX	DIM2SR,4 * GO SEAROH DIM2 TABLE.	4F12148
	04300	0 02000 0 04302	2090		TRA	C1281 THEN IF NOT	4F12149
	04301	0 02000 0 04304	2091		TRA	C1299 FOUND,	4F12150
	04302	0 07400 4 02005	2092	C1281	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12151
	04303	0 02000 0 04305	2093		TRA	C1282 DO NOT CONTINUE IF	4F12152
	04304	0 07400 4 03400	2094	C1299	TSX	DIAG,4 * VARIABLE PREVIOUSLY APPEARED.	4F12153
	04305	0 07400 2 01654	2095	C1282	TSX	C0180X,2 * GO FORM BINARY EQUIV OF D1.	4F12154
	04306	0 40200 0 01377	2096		SUB	CLOS IF NOT 1 DIMENSION,	4F12156
	04307	0 10000 0 04330	2097		TZE	C1210 THEN	4F12157
	04310	0 50000 0 01112	2098		CLA	1G PUT D1	4F12158
	04311	0 76700 0 00022	2099		ALS	18 IN DECR	4F12159
	04312	0 60100 0 01106	2100		STO	1C+1 OF 1C+1.	4F12160
	04313	0 07400 2 01654	2101		TSX	C0180X,2 * GO FORM BINARY EQUIV OF D2.	4F12161
	04314	0 40200 0 01377	2102		SUB	CLOS IF NOT 2 DIMENSION,	4F12163
	04315	0 10000 0 04334	2103		TZE	C1220 THEN	4F12164
	04316	0 50000 0 01112	2104		CLA	1G PUT D2	4F12165
	04317	0 62100 0 01106	2105		STA	1C+1 IN ADDRESS OF 1C+1.	4F12166
	04320	0 07400 2 01654	2106		TSX	C0180X,2 * GO FORM BINARY EQUIV 0F D3.	4F12168
	04321	0 40200 0 01377	2107		SUB	CLOS IF MORE THAN 3 DIMENSION,	4F12169
	04322	0 10000 0 04324	2108		TZE	*+2 THIS IS AN	4F12170
	04323	0 07400 4 03400	2109		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12171
	04324	0 50000 0 01112	2110		CLA	1G IF 3 DIMENSION, PUT D3	4F12172
	04325	0 60100 0 01107	2111		STO	1C+2 IN 1C+2, AND	4F12173
	04326	0 07400 4 00467	2112		TSX	DIM3IX,4 * GO MAKE DIM3 ENTRY.	4F12174
D	04327	1 00000 0 04337	2113		TXI	C1201,0 GO TO TEST FOR END OF STATEMENT.	4F12175
	04330	0 50000 0 01112	2114	C1210	CLA	1G IF 1 DIMENSION, PUT D1	4F12176
	04331	0 60100 0 01106	2115		STO	1C+1 IN 1C+1, AND	4F12177
	04332	0 07400 4 00455	2116		TSX	DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN	4F12178
D	04333	1 00000 0 04337	2117		TXI	C1201,0 GO TO TEST FOR END 0F STATEMENT.	4F12179
	04334	0 50000 0 01112	2118	C1220	CLA	1G IF 2 DIMENSION, PUT D2 IN	4F12180
	04335	0 62100 0 01106	2119		STA	1C+1 ADDRESS PART OF 1C+1. AND	4F12181
	04336	0 07400 4 00462	2120		TSX	DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN	4F12182
	04337	0 07400 4 01707	2121	C1201	TSX	C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN.	4F12183
	04340	0 07400 4 03247	2122		TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12184
	04341	−0 10000 0 04266	2123		TNZ	C1200 IF CHARACTER IS ENDMARK, THEN	4F12185
D	04342	1 00000 0 03440	2124		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12186
			2125			END OF PROGRAM C1200.	4F12187
			2126			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12188
			2127				4F12189
			2128			C1300/ CALLS=C0901,TET00,CIT00.	4F12190
			2129			C1300 PROCESSES STOP STATEMENTS.	4F12191
	04343	0 07400 1 03321	2130	C1300	TSX	TET00,1 * GO MAKE EIFNO ENTRY	4F12192
	04344	0 00000 0 00017	2131		PZE	15 IN TSTOP TABLE.	4F12193
	04345	0 07400 2 04171	2132		TSX	C0901,2 * USE C0900 TO BEGIN PROCESSING.	4F12194
	04346	0 07400 4 01731	2133		TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F12195
	04347	0 00000 0 01406	2134		PZE	L(0) WORD1--ALL ZEROS	4F12196
	04350	0 00000 0 01601	2135		PZE	L(TRA) WORD2--TRA000 (OP+DECR)	4F12197
	04351	0 00000 0 01106	2136		PZE	1C+1 WORD3--DECR = INTFORMNO (SYMBOL)	4F12198
	04352	0 00000 0 01406	2137		PZE	L(0) WORD4--ZEROS (REL ADDR AND TAG)	4F12199
D	04353	1 00000 0 03440	2138		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12200
			2139			END OF PROGRAM C1300.	4F12201
			2140			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12202
			2141				4F12203
			2142			C1400/ CALLS=C0190,C0180,TEST..,TET00.	4F12204
			2143			C1400 PROCESSES FREQUENCY STATEMENTS.	4F12205
	04354	0 07400 2 01654	2144	C1400	TSX	C0180X,2 * GO FORM BINARY EQUIV OF EFN.	4F122006
	04355	0 07400 4 03275	2145		TSX	TESTE0,4 * CHARACTER SHOULD BE A LPAREN.	4F12208
	04356	0 50200 0 01112	2146		CLS	1G CHANGE SIGN OF SYMBOL	4F12209
	04357	0 60100 0 01112	2147		STO	1G TO MINUS.	4F12210
	04360	0 07400 1 03321	2148		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER	4F12211
	04361	0 00000 0 00007	2149		PZE	7 SYMBOL INTO FRET (TABLE 7), AND	4F12212
	04362	0 07400 2 01654	2150	C1401	TSX	C0180X,2 * GO FORM BINARY EQUIV OF M(1).	4F12213
	04363	0 60100 0 01105	2151		STO	1C SAVE CHAR IN ACC.	4F12215
	04364	0 07400 1 03321	2152		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER M(1)	4F12216
	04365	0 00000 0 00007	2153		PZE	7 INTO TABLE FRET (TABLE7), AND	4F12217
	04366	0 50000 0 01105	2154		CLA	1C RESTORE CHAR IN ACC, AND	4F12218
	04367	0 07400 4 03255	2155		TSX	TESTB0,4 * TEST FOR , OR ).	4F12219
	04370	−0 10000 0 04362	2156		TNZ	C1401 IF RIGHT PARENTHESIS, THEN	4F12220
	04371	0 07400 4 01707	2157		TSX	C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND	4F12221
	04372	0 07400 4 03247	2158		TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12222
	04373	−0 10000 0 04354	2159		TNZ	C1400 IF ENDMARK, THIS STATEMENT IS DONE.	4F12223
D	04374	1 00000 0 03440	2160		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12224
			2161			END OF PROGRAM C1400.	4F12225
			2162			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12226
			2163				4F12227
			2164			C1500/ CALLS=C0190,TEST..,C0160,C01B0,TET00.	4F12228
			2165			C1500 PROCESSES EQUIVALENCE STATEMENTS.	4F12229
	04375	0 07400 4 01707	2166	C1500	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12230
	04376	0 07400 4 03275	2167		TSX	TESTE0,4 * CHARACTER SHOULD BE A LPAREN.	4F12231
	04377	0 50000 0 01407	2168	C1501	CLA	L(1) INITIALIZE 1C	4F12232
	04400	0 60100 0 01106	2169		STO	1C+1 TO 1.	4F12233
	04401	0 07400 4 01707	2170		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND	4F12234
	04402	0 07400 2 01624	2171		TSX	C0160,2 * OBTAIN IN 1G THE SYMBOL V.	4F12235
	04403	0 56000 0 01112	2172		LDQ	1G MOVE V	4F12236
	04404	−0 60000 0 01105	2173		STQ	1C INTO 1C.	4F12237
	04405	0 34000 0 01375	2174		CAS	ALPAR EXAMINE CHARACTER LEFT IN THE AC,	4F12238
D	04406	1 00000 0 04416	2175		TXI	C1503,0 AND IF	4F12239
D	04407	1 00000 0 04411	2176		TXI	C1502,0 CHARACTER IS A LEFT PARENTHESIS,	4F12240
D	04410	1 00000 0 04416	2177		TXI	C1503,0 THEN	4F12241
	04411	0 07400 2 01654	2178	C1502	TSX	C0180X,2 * GO FORM BINARY EQUIV OF N.	4F12242
	04412	0 07400 4 03301	2179		TSX	TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.	4F12244
	04413	0 50000 0 01112	2180		CLA	1G PUT BIN EQUIV OF N	4F12245
	04414	0 60100 0 01106	2181		STO	1C+1 IN 1C+1.	4F12246
	04415	0 07400 4 01707	2182		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND	4F12247
	04416	0 07400 4 03255	2183	C1503	TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F12248
	04417	0 10000 0 04423	2184		TZE	C1504 IF COMMA, THEN	4F12249
	04420	0 07400 1 03321	2185		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12250
	04421	0 00000 0 00010	2186		PZE	8 AND N IN EQUIT (TABLE 8), AND	4F12251
D	04422	1 00000 0 04377	2187		TXI	C1501,0 RETURN TO CONTINUE PROCESSING X.	4F12252
	04423	0 50200 0 01106	2188	C1504	CLS	1C+1 MAKE SIGN OF N MINUS SINCE	4F12253
	04424	0 60100 0 01106	2189		STO	1C+1 TNIS IS LAST ITEM.	4F12254
	04425	0 07400 1 03321	2190		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12255
	04426	0 00000 0 00010	2191		PZE	8 AND N IN EQUIT (TABLE 8), AND	4F12256
	04427	0 07400 4 01707	2192		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND	4F12257
	04430	0 07400 4 03247	2193		TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12258
	04431	−0 10000 0 04375	2194		TNZ	C1500 IF ENDMARK, THEN	4F12259
D	04432	1 00000 0 03440	2195		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12260
			2196			END OF PROGRAM C1500.	4F12261
			2197			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12262
			2198				4F12263
			2199			C1600/ CALLS=C0190,TEST..,GIF,BSS.	4F12264
			2200			C1600 PROCESSES CONTINUE STATEMENTS.	4F12265
	04433	0 07400 4 01707	2201	C1600	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12266
	04434	0 07400 4 03271	2202		TSX	TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK.	4F12267
	04435	0 07400 4 02375	2203		TSX	GIF,4 * GET INTERNAL FORMULA NUMBER, AND	4F12268
	04436	0 07400 2 05674	2204		TSX	BSS,2 * GO COMPILE= IFN BSS 0.	4F12269
D	04437	1 00000 0 03440	2205		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12270
			2206			END OF PROGRAM C1600.	4F12271
			2207			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12272
			2208				4F12273
			2209			C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.	4F12274
			2210			C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.	4F12275
	04440	−0 50000 0 00422	2211	C3500	CAL	TXHOP	4F12276
	04441	0 63000 0 04454	2212		STP	C3003	4F12277
	04442	−0 53400 4 00030	2213	C3000	LXD	EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND	4F12278
	04443	−3 00001 4 04445	2214		TXL	*+2,4,1 IF NOT THE 1ST STATEMENT, THEN	4F12279
	04444	0 07400 4 03400	2215		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12280
	04445	0 50000 0 01121	2216		CLA	ARGCNT SET ARGCNT TO INDICATE TO LATER	4F12281
	04446	0 76000 0 00003	2217		SSP	RETURN THAT THERE WAS A PRECEEDING	4F12282
	04447	0 60100 0 01121	2218		STO	ARGCNT SUBROUTINE OR FUNCTION STATEMENT.	4F12283
	04450	0 07400 4 01707	2219		TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12284
	04451	0 07400 4 03311	2220		TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12285
	04452	0 07400 2 01624	2221		TSX	C0160,2 * ASSEMBLE NAME IN 1G.	4F12286
	04453	0 07400 4 03263	2222		TSX	TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.	4F12287
D	04454	−3 00000 0 04457	2223	C3003	TXL	*+3,0	4F12288
	04455	0 50000 0 01112	2224		CLA	1G	4F12289
	04456	0 60100 0 01332	2225		STO	FSNAME	4F12290
	04457	0 07400 4 03224	2226		TSX	SUBX00,4 * FILL OUT NAME WITH BLANKS.	4F12291
	04460	0 07400 1 03321	2227		TSX	TET00,1 * GO ENTER NAME	4F12292
	04461	0 00000 0 00013	2228		PZE	11 IN SUBDEF TABLE.	4F12293
	04462	−0 53400 4 00030	2229		LXD	EIFNO,4 PLACE	4F12294
	04463	−0 75400 4 00000	2230		PXD	,4 INTERNAL FORMULA NUMBER	4F12295
	04464	0 60100 0 01347	2231		STO	G IN G.	4F12296
D	04465	1 00000 0 04506	2232		TXI	C3002,0 GO TEST FOR END OF STATEMENT.	4F12297
	04466	0 40000 0 01374	2233	C3001	ADD	ENDMK IF NOT ENDMARK, RESTORE CHARACTER	4F12298
	04467	0 07400 4 03311	2234		TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC	4F12299
	04470	0 60100 0 01331	2235		STO	FIRSTC 1ST CHARACTER OF ARGUMENT.	4F12300
	04471	0 07400 2 01624	2236		TSX	C0160,2 * ASSEMBLE ARGUMENT IN 1G.	4F12301
	04472	0 07400 4 03255	2237		TSX	TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPAREN.	4F12302
	04473	0 50000 0 01112	2238		CLA	1G MOVE ARGUMENT	4F12303
	04474	0 60100 0 01350	2239		STO	G+1 INTO G+1.	4F12304
	04475	0 07400 1 03241	2240		TSX	TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT.	4F12305
D	04476	1 00000 0 04501	2241		TXI	C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY.	4F12306
	04477	0 07400 1 03321	2242		TSX	TET00,1 * IF FIXED POINT, GO MAKE ENTRY	4F12307
	04500	0 00000 0 00006	2243		PZE	6 IN FORVAL TABLE.	4F12308
	04501	0 07400 1 03321	2244	C3004	TSX	TET00,1 * IN BOTH CASES, MAKE ENTRIES IN	4F12309
	04502	0 00000 0 00013	2245		PZE	11 SUBDEF TABLE.	4F12310
	04503	0 50000 0 01121	2246		CLA	ARGCNT UPDATE	4F12311
	04504	0 40000 0 01454	2247		ADD	D1 ARGUMENT COUNT	4F12312
	04505	0 60100 0 01121	2248		STO	ARGCNT BY 1. AND	4F12313
	04506	0 07400 4 01707	2249	C3002	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F12314
	04507	0 40200 0 01374	2250		SUB	ENDMK IF NOT ENDMARK, THEN	4F12315
	04510	−0 10000 0 04466	2251		TNZ	C3001 GO PROCESS NEXT ARGUMENT.	4F12316
D	04511	1 00000 0 03440	2252		TXI	CA010,0 * OTHERWISE, EXIT TO CA000.	4F12317
			2253			END OF PROGRAM C3000.	4F12318
			2254			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12319
			2255				4F12320
			2256			C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.	4F12321
			2257			C3100 PROCESSES COMMON STATEMENTS.	4F12322
	04512	0 07400 4 01707	2258	C3100	TSX	C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL	4F12323
	04513	0 07400 4 03311	2259		TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC.	4F12324
	04514	0 07400 2 01624	2260		TSX	C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST	4F12325
	04515	0 07400 4 03247	2261		TSX	TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK.	4F12326
	04516	0 73400 4 00000	2262		PAX	,4 SAVE RESULT OF TEST IN XR4, AND	4F12327
	04517	0 07400 1 03321	2263		TSX	TET00,1 * GO ENTER THIS SYMBOL	4F12328
	04520	0 00000 0 00014	2264		PZE	12 IN COMMON TABLE.	4F12329
	04521	0 50000 0 00365	2265		CLA	SBDFCN ANY ENTRIES IN SUBDEF	4F123291
	04522	0 10000 0 04534	2266		TZE	C3101 INDICATE THIS IS NOT A	4F123292
	04523	0 50000 0 01454	2267		CLA	2E18 MAIN PROGRAM. SINCE THIS	4F123293
	04524	0 60100 0 01347	2268		STO	G IS A COMMON	4F123294
	04525	−0 50000 0 01112	2269		CAL	1G STATEMENT WHICH	4F123296
	04526	0 60200 0 01350	2270		SLW	G+1 APPEARS IN A SUBPROGRAM	4F123297
	04527	0 77100 0 00036	2271		ARS	30 ENTER ANY4	4F123298
	04530	0 07400 1 03242	2272		TSX	TESTFX+1,1 * FIXED POINT	4F123299
	04531	0 02000 0 04534	2273		TRA	C3101 VARIABLES	4F12330
	04532	0 07400 1 03321	2274		TSX	TET00,1 * IN	4F123301
	04533	0 00000 0 00006	2275		PZE	6 FORVAL TABLE.	4F123302
	04534	3 00000 4 04512	2276	C3101	TXH	C3100,4,0 IF CHARACTER WAS COMMA, REPEAT.	4F123303
D	04535	1 00000 0 03440	2277		TXI	CA010,0 * IF ENDMK, EXIT TO CA000.	4F12331
			2278			END OF PROGRAM C3100.	4F12332
			2279			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12333
			2280				4F12334
			2281			C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).	4F12335
			2282			C3200 PROCESSES RETURN STATEMENTS.	4F12336
	04536	0 07400 4 01707	2283	C3200	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12337
	04537	0 07400 4 03271	2284		TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMARK.	4F12338
	04540	0 07400 4 02366	2285		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12339
	04541	0 07400 4 02372	2286		TSX	JIF,4 * SET SL TO ALPHA+1.	4F12340
	04542	0 50000 0 01121	2287		CLA	ARGCNT TEST ARGCNT FOR PRECEEDING	4F12341
	04543	0 12000 0 04545	2288		TPL	*+2 SUBROUTINE - IF NONE, THEN	4F12342
	04544	0 07400 4 03400	2289		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12343
	04545	0 50000 0 01332	2290		CLA	FSNAME	4F12344
	04546	0 10000 0 04555	2291		TZE	*+7	4F12345
	04547	0 07400 4 01731	2292		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12346
	04550	0 00000 0 01105	2293		PZE	1C WORD1--O(IFN)000	4F12347
	04551	0 00000 0 01541	2294		PZE	L(CLA) WORD2--CLA000	4F12348
	04552	0 00000 0 01332	2295		PZE	FSNAME WORD3--NAME OF FUNCTION	4F12349
	04553	0 00000 0 01406	2296		PZE	L(0) WORD4--000000	4F12350
	04554	0 60000 0 01105	2297		STZ	1C CLEAR 1C.	4F12351
	04555	0 07400 4 01731	2298		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12352
	04556	0 00000 0 01105	2299		PZE	1C WORD1--O(IFN)000	4F12353
	04557	0 00000 0 01561	2300		PZE	L(LXD) WORD2--LXD000	4F12354
	04560	0 00000 0 01523	2301		PZE	DOLSGN WORD3--$	4F12355
	04561	0 00000 0 01407	2302		PZE	L(1) WORD4--000001	4F12356
	04562	0 07400 4 01731	2303		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12357
	04563	0 00000 0 01406	2304		PZE	L(0) WORD1--000000	4F12358
	04564	0 00000 0 01561	2305		PZE	L(LXD) WORD2--LXD000	4F12359
	04565	0 00000 0 01523	2306		PZE	DOLSGN WORD3--$	4F12360
	04566	0 00000 0 01456	2307		PZE	ABTAG2 WORD4--001002	4F12361
	04567	0 07400 4 01731	2308		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12362
	04570	0 00000 0 01406	2309		PZE	L(0) WORD1--000000	4F12363
	04571	0 00000 0 01570	2310		PZE	L(QXD) WORD2--QXD000	4F12364
	04572	0 00000 0 01523	2311		PZE	DOLSGN WORD3--$	4F12365
	04573	0 00000 0 01460	2312		PZE	ABTAG3 WORD4--002000	4F12366
	04574	0 07400 4 01731	2313		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12367
	04575	0 00000 0 01367	2314		PZE	SL WORD1--O(IFN+1)000	4F12368
	04576	0 00000 0 01567	2315		PZE	L(QPR) WORD2--OPR000	4F12369
	04577	0 00000 0 01406	2316		PZE	L(0) WORD3--000000	4F12370
	04600	0 00000 0 01121	2317		PZE	ARGCNT WORD4--0(N+1)004	4F12371
	04601	0 07400 4 01731	2318		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12372
	04602	0 00000 0 01406	2319		PZE	L(0) WORD1--000000	4F12373
	04603	0 00000 0 01601	2320		PZE	L(TRA) WORD2--TRA000	4F12374
	04604	0 00000 0 01367	2321		PZE	SL WORD3--O(IFN+1)000	4F12375
	04605	0 00000 0 01406	2322		PZE	L(0) WORD4--000000	4F12376
D	04606	1 00000 0 03440	2323		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12377
			2324			END OF PROGRAM C3200.	4F12378
			2325			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12379
			2326				4F12380
			2327			C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.	4F12381
			2328			C3300 PROCESSES CALL STATEMENTS.	4F12382
	04607	0 07400 4 01707	2329	C3300	TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12383
	04610	0 07400 4 03311	2330		TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12384
	04611	0 07400 2 01624	2331		TSX	C0160,2 * COLLECT THF REST OF THE NAME, WHICH	4F12385
	04612	0 07400 4 03263	2332		TSX	TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.	4F12386
	04613	0 10000 0 04632	2333		TZE	C3301 IF LPAREN, THEN CHANGE CALL TO A	4F12387
	04614	0 07400 4 01671	2334		TSX	C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=).	4F12388
	04615	0 07400 4 01707	2335		TSX	C0190,4 * PICKUP THE CHARACTER C,	4F12389
	04616	0 56000 0 01434	2336		LDQ	L(Z) AND	4F12390
	04617	0 07400 4 01675	2337		TSX	C0390,4 * REPLACE C WITH Z.	4F12391
	04620	0 56000 0 01373	2338		LDQ	L(10) AND	4F12392
	04621	0 07400 4 01675	2339		TSX	C0390,4 * REPLACE A WITH TEN.	4F12393
	04622	0 56000 0 01400	2340		LDQ	EQUAL AND	4F12394
	04623	0 07400 4 01675	2341		TSX	C0390,4 * REPLACE FIRST L WITH =.	4F12395
	04624	0 56000 0 01430	2342		LDQ	BLANK AND	4F12396
	04625	0 07400 4 01675	2343		TSX	C0390,4 * REPLACE SECOND L WITH BLANK.	4F12397
	04626	0 50000 0 00030	2344		CLA	EIFNO PUT 1ST IFN OF THIS CALL IN CALLNM	4F12398
	04627	0 77100 0 00022	2345		ARS	18 FOR LATER TABLE ENTRY OF	4F12399
	04630	0 62100 0 01123	2346		STA	CALLNM FIRST / LAST NUMBERS OF CALLS.	4F12400
D	04631	1 00000 0 06323	2347		TXI	ARITH,0 * THEN EXIT TO ARITH TO PROCESS.	4F12401
	04632	0 07400 4 03224	2348	C3301	TSX	SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN	4F12402
	04633	0 50000 0 01112	2349		CLA	1G AFTER COMPLETING NAME W1TH BLANKS,	4F12403
	04634	0 60100 0 01347	2350		STO	G MOVE IT INTO G, AND	4F12404
	04635	0 07400 1 03321	2351		TSX	TET00,1 * GO ENTER NAME	4F12405
	04636	0 00000 0 00011	2352		PZE	9 IN CLOSUB TABLE.	4F12406
	04637	0 07400 4 02366	2353		TSX	GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C.	4F12407
	04640	0 07400 4 01731	2354		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12408
	04641	0 00000 0 01105	2355		PZE	1C WORD1--0(IFN)000	4F12409
	04642	0 00000 0 01575	2356		PZE	L(SXD) WORD2--SXD000	4F12410
	04643	0 00000 0 01505	2357		PZE	X( WORD3--700000	4F12411
	04644	0 00000 0 01412	2358		PZE	L(4) WORD4--000004	4F12412
	04645	0 07400 4 01731	2359		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12413
	04646	0 00000 0 01406	2360		PZE	L(0) WORD1--000000	4F12414
	04647	0 00000 0 01602	2361		PZE	L(TSX) WORD2--TSX000	4F12415
	04650	0 00000 0 01112	2362		PZE	1G WORD3--(NAME)	4F12416
	04651	0 00000 0 01412	2363		PZE	L(4) WORD4--000004	4F12417
	04652	0 07400 4 03401	2364		TSX	FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS.	4F12418
	04653	0 00000 0 01406	2365		PZE	L(0) WORD1--000000	4F12419
	04654	0 00000 0 01561	2366		PZE	L(LXD) WORD2--LXD000	4F12420
	04655	0 00000 0 01505	2367		PZE	X( WORD3--700000	4F12421
	04656	0 00000 0 01412	2368		PZE	L(4) WORD4--000004	4F12422
D	04657	1 00000 0 03440	2369		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12423
			2370			END OF PROGRAM C3300.	4F12424
			2371			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12425
			2372				4F12426
			2373			C3400/ CALLS=C0190,DIAG,TEST...	4F12427
			2374			C3400 PROCESSES END STATEMENTS.	4F12428
	04660	0 53400 2 01413	2375	C3400	LXA	L(5),2 PREPARE TO SET 5 SS S1MULATORS.	4F12429
	04661	0 07400 4 01707	2376	C3405	TSX	C0190,4 * PICKUP CONSTANT,	4F12430
	04662	0 34000 0 01410	2377		CAS	L(2) WHICH SH0ULD BE 0,1, OR 2.	4F12431
	04663	0 07400 4 03400	2378		TSX	DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC.	4F12432
D	04664	1 00000 0 04666	2379		TXI	C3410,0 SIMULATOR IS PRESET TO 2.	4F12433
	04665	0 60100 2 00036	2380		STO	ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR.	4F12434
	04666	0 07400 4 01707	2381	C3410	TSX	C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND	4F12435
	04667	2 00001 2 04661	2382		TIX	C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS.	4F12436
	04670	0 07400 4 01707	2383		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12437
	04671	0 07400 4 03271	2384		TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMK.	4F12438
D	04672	1 00000 0 03440	2385		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12439
			2386			END OF PROGRAM C3400.	4F12440
			2387			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12441
			2388				4F12442
			2389			STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=	4F12443
			2390				4F12444
			2391			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12445
			2392				4F12446
			2393			RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.	4F12447
			2394			RDC PROCESSES READ STATEMENTS.	4F12448
	04673	0 50000 0 01437	2395	RDC	CLA	A81 SET THE ADDRESS FIELD OF	4F12449
	04674	0 62100 0 02067	2396		STA	ENT ENT (NTR000) TO 81.	4F12450
	04675	0 07400 2 06002	2397		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12451
	04676	0 50000 0 06127	2398		CLA	CSH PICKUP (CSH) TO	4F12452
			2399			TSC= ENTRY POINT USED BY RIT.	4F12453
	04677	0 60100 0 06143	2400	TSC	STO	TSA SET TSA.	4F12454
	04700	−0 50000 0 06133	2401		CAL	RTN MOVE (RTN)	4F12455
	04701	0 60200 0 06141	2402		SLW	END INTO END.	4F12456
	04702	0 50000 0 06130	2403		CLA	DBC PICKUP (DBC) TO	4F12457
			2404			TTC= ENTRY POINT USED BY RDP.	4F12458
	04703	0 60100 0 06144	2405	TTC	STO	TTA SET TTA.	4F12459
	04704	0 07400 4 05603	2406		TSX	BEG,4 * CONVERT CONSTANT FORMAT NUMBER.	4F12460
	04705	0 07400 4 03400	2407		TSX	DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO.	4F12461
	04706	−0 10000 4 00004	2408		TNZ	4,4 GO TO THE DIAGNOSTIC, IF THERE WAS	4F12462
	04707	0 07400 4 03400	2409		TSX	DIAG,4 * NO FORMAT NUMBER GIVEN.	4F12463
	04710	0 62100 0 01366	2410		STA	SET MOVE BINARY FORMAT NUMBER INTO SET.	4F12464
	04711	−0 50000 0 06114	2411		CAL	NTR MOVE NTR000	4F12465
	04712	0 60200 0 17401	2412		SLW	OP INTO OP.	4F12466
	04713	0 50000 0 00415	2413		CLA	TXLOP SET OP-SWITCHES,	4F12467
	04714	0 63000 0 05754	2414		STP	ETMSW , ETMSW AND LTMSW,	4F12468
	04715	0 63000 0 05757	2415		STP	LTMSW TO NO TRANSFER CASE.	4F12469
	04716	0 07400 4 05754	2416		TSX	ETMSW,4 * O0 COMPILE ETM.	4F12470
	04717	0 07400 4 06023	2417		TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F12471
	04720	0 00000 0 01406	2418		PZE	L(0) WORD1--000000	4F12472
	04721	0 00000 0 01537	2419		PZE	CAL WORD2--CAL000	4F12473
	04722	0 00000 0 06144	2420		PZE	TTA WORD3--(DBC) OR (BDC)	4F12474
	04723	0 00000 0 01406	2421		PZE	L(0) WORD4--000000	4F12475
	04724	0 07400 4 01731	2422		TSX	CIT,4 * GO MAKE THE FOLIOWING CIT ENTRY=	4F12476
	04725	0 00000 0 01406	2423		PZE	L(0) WORD1--000000	4F12477
	04726	0 00000 0 06120	2424		PZE	SLW WORD2--SLW000	4F12478
	04727	0 00000 0 01406	2425		PZE	L(0) WORD3--000000	4F12479
	04730	0 00000 0 01454	2426		PZE	D1 WORD4--001000	4F12480
	04731	0 07400 4 06023	2427		TSX	LIB,4 * MAKE CL0SUB ENTRY, AND COMPILE=	4F12481
	04732	0 00000 0 01406	2428		PZE	L(0) WORD1--000000	4F12482
	04733	0 00000 0 01537	2429		PZE	CAL WORD2--CAL000	4F12483
	04734	0 00000 0 06143	2430		PZE	TSA WORD3--(CSH) OR (TSH)	4F12404
	04735	0 00000 0 01406	2431		PZE	L(0) WORD4--000000	4F12405
	04736	0 07400 4 01731	2432		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12486
	04737	0 00000 0 01371	2433		PZE	TL NORD1--0(IFN)0(248)	4F12487
	04740	0 00000 0 02067	2434		PZE	ENT WORD2--NTR0(81, OR UNIT, OR 00)	4F12486
	04741	0 00000 0 01366	2435		PZE	SET WORD3--800(FORMAT NUMBER)	4F12489
	04742	0 00000 0 01406	2436		PZE	L(0) WORD4--000000	4F12490
	04743	0 07400 4 02372	2437		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12491
			2438			BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.	4F12492
D	04744	1 00000 0 05141	2439	BXT	TXI	RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12493
			2440			END OF PROGRAM RDC.	4F12494
			2441			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12495
			2442				4F12496
			2443			RIT/ CALLS=INPUT,BEG,VRD. USES=RDC.	4F12497
			2444			RIT PROCESSES READ INPUT TAPE STATEMENTS.	4F12498
	04745	0 07400 2 06002	2445	RIT	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12499
	04746	0 07400 4 05603	2446		TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12500
	04747	0 07400 4 06036	2447		TSX	VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12501
	04750	0 62100 0 02067	2448		STA	ENT IF CONSTANT, SET ENT= NTR0(UNIT).	4F12502
	04751	0 50000 0 06137	2449		CLA	TSH PICKUP (TSH) TO SET TSA, AND	4F12503
D	04752	1 00000 0 04677	2450		TXI	TSC,0 * CONTINUE BY USING PROGRAM RDC.	4F12504
			2451			END OF PROGRAM RIT.	4F12505
			2452			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12506
			2453				4F12507
			2454			RDP/ CALLS=OUTPUT. USES=RDC.	4F12508
			2455			RDP PROCESSES PRINT STATEMENTS.	4F12509
	04753	−0 75400 0 00000	2456	RDP	PXD	,0 RESET ENT	4F12510
	04754	0 62100 0 02067	2457		STA	ENT TO NTR000.	4F12511
	04755	0 07400 2 06004	2458		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12512
	04756	0 50000 0 06135	2459		CLA	SPH PICKUP (SPH), AND	4F12513
			2460			TSD= ENTRY POINT USED BY WOT, PDC.	4F12514
	04757	0 60100 0 06143	2461	TSD	STO	TSA SET TSA.	4F12515
	04760	−0 50000 0 06131	2462		CAL	FIL MOVE (FIL)	4F12516
	04761	0 60200 0 06141	2463		SLW	END INTO END.	4F12517
	04762	0 50000 0 06126	2464		CLA	BDC PICKUP (BDC) TO SET TTA, AND	4F12518
D	04763	1 00000 0 04703	2465		TXI	TTC,0 * CONTINUE BY USING PROGRAM RDC.	4F12519
			2466			END OF PROGRAM RDP.	4F12520
			2467			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12521
			2468				4F12522
			2469			WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.	4F12523
			2470			WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS.	4F12524
	04764	0 07400 2 06004	2471	WOT	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12525
	04765	0 07400 4 05603	2472		TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12526
	04766	0 07400 4 06036	2473		TSX	VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12527
	04767	0 62100 0 02067	2474		STA	ENT IF CONSTANT, SET ENT= NTR0(UNIT).	4F12528
	04770	0 50000 0 06136	2475		CLA	STH PICKUP (STH) TO SET TSA, AND	4F12529
D	04771	1 00000 0 04757	2476		TXI	TSD,0 * CONTINUE BY USING PROGRAM RDP.	4F12530
			2477			END OF PROGRAM WOT.	4F12531
			2478			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12532
			2479				4F12533
			2480			PDC/ CALLS=OUTPUT. USES=RDP.	4F12534
			2481			PDC PROCESSES PUNCH STATEMENTS.	4F12535
	04772	−0 75400 0 00000	2482	PDC	PXD	,0 RESET ENT	4F12536
	04773	0 62100 0 02067	2483		STA	ENT TO NTR000.	4F12537
	04774	0 07400 2 06004	2484		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12538
	04775	0 50000 0 06134	2485		CLA	SCH PICKUP (SCH) TO SET TSA, AND	4F12539
D	04776	1 00000 0 04757	2486		TXI	TSD,0 * CONTINUE BY USING PROGRAM RDP.	4F12540
			2487			END 0F PROGRAM PDC.	4F12541
			2488			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12542
			2489				4F12543
			2490			WBT/ CALLS=OUTPUT,BRW,CIT.	4F12544
			2491			WBT PROCESSES WRITE TAPE STATEMENTS.	4F12545
	04777	−0 50000 0 06124	2492	WBT	CAL	WTB MOVE WTB0004	4F12546
	05000	0 60200 0 17401	2493		SLW	OP INTO OP.	4F12547
	05001	0 07400 2 06004	2494		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12548
	05002	−0 50000 0 01475	2495		CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12549
	05003	0 07400 4 05646	2496		TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12550
	05004	0 07400 4 01731	2497		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12551
	05005	0 00000 0 01406	2498		PZE	L(0) WORD1--000000	4F12552
	05006	0 00000 0 01544	2499		PZE	CPY WORD2--CPY000	4F12553
	05007	0 00000 0 01504	2500		PZE	ZER WORD3--600000	4F12554
	05010	0 00000 0 01457	2501		PZE	D2 WORD4--002000	4F12555
D	05011	1 00000 0 04744	2502		TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12556
			2503			END OF PROGRAM WBT.	4F12557
			2504			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12558
			2505				4F12559
			2506			RBT/ CALLS=INPUT,BRW,CIT.	4F12560
			2507			RBT PROCESSES READ TAPE STATEMENTS.	4F12561
	05012	−0 50000 0 06117	2508	RBT	CAL	RTB MOVE RTB000	4F12562
	05013	0 60200 0 17401	2509		SLW	OP INTO OP.	4F12563
	05014	0 07400 2 06002	2510		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12564
	05015	−0 50000 0 01475	2511		CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12565
	05016	0 07400 4 05646	2512		TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12566
	05017	0 07400 4 01731	2513		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12567
	05020	0 00000 0 01406	2514		PZE	L(0) WORD1--000000	4F12568
	05021	0 00000 0 01544	2515		PZE	CPY WORD2--CPY000	4F12569
	05022	0 00000 0 01500	2516		PZE	DMP WORD3--100000	4F12570
	05023	0 00000 0 01406	2517		PZE	L(0) WORD4--000000	4F12571
	05024	0 07400 4 01731	2518		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12572
	05025	0 00000 0 01406	2519		PZE	L(0) WORD1--000000	4F12573
	05026	0 00000 0 06125	2520		PZE	XIT WORD2--XIT000	4F12574
	05027	0 00000 0 01510	2521		PZE	15P WORD3--*00000	4F12575
	05030	0 00000 0 01461	2522		PZE	D3CN WORD4--003000	4F12576
	05031	0 07400 4 01731	2523		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12577
	05032	0 00000 0 01406	2524		PZE	L(0) WORD1--000000	4F12578
	05033	0 00000 0 01554	2525		PZE	HPR WORD2--HPR000	4F12579
	05034	0 00000 0 01406	2526		PZE	L(0) WORD3--000000	4F12560
	05035	0 00000 0 01406	2527		PZE	L(0) WORD4--000000	4F12581
	05036	0 07400 4 01731	2528		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12582
	05037	0 00000 0 01406	2529		PZE	L(0) WORD1--000000	4F12583
	05040	0 00000 0 06125	2530		PZE	XIT WORD2--XIT000	4F12584
	05041	0 00000 0 01371	2531		PZE	TL WORD3--0(IFN)0(248)	4F12585
	05042	0 00000 0 01406	2532		PZE	L(0) WORD4--000000	4F12586
D	05043	1 00000 0 04744	2533		TXI	BXT,0 * EXIT TO SCAN LIST, IF THEPE IS ONE.	4F12587
			2534			END OF PROGRAM RBT.	4F12588
			2535			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12589
			2536				4F12590
			2537			WRD/ CALLS=OUTPUT,BRW,CIT.	4F12591
			2538			WRD PROCESSES WRITE DRUM STATEMENTS.	4F12592
	05044	0 07400 2 06004	2539	WRD	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12593
	05045	−0 50000 0 06122	2540		CAL	WDR PICKUP WDR000, AND	4F12594
			2541			XDR= ENTRY POINT USED BY RDD.	4F12595
	05046	0 60200 0 17401	2542	XDR	SLW	OP SET OP.	4F12596
	05047	−0 50000 0 01476	2543		CAL	BDA PICKUP 0INARY DRUM ADDRESS, AND	4F12597
	05050	0 07400 4 05646	2544		TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12598
	05051	−0 50000 0 01566	2545		CAL	PXD MOVE PXD000	4F12599
	05052	0 60200 0 17401	2546		SLW	OP INTO OP.	4F12600
	05053	−0 75400 0 00000	2547		PXD	,0 CLEAR THE AC, AND	4F12601
	05054	0 07400 4 05646	2548		TSX	BRW,4 * COMPILE INSTRS TO SET DRUM LOC.	4F12602
	05055	0 07400 4 01731	2549		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12603
	05056	0 00000 0 01406	2550		PZE	L(0) WORD1--000000	4F12604
	05057	0 00000 0 01555	2551		PZE	LDA WORD2--LDA000	4F12605
	05060	0 00000 0 01371	2552		PZE	TL WORD3--0(IFN)0(248)	4F12606
	05061	0 00000 0 01406	2553		PZE	L(0) WORD4--000000	4F12607
D	05062	1 00000 0 04744	2554		TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12608
			2555			END OF PROGRAM WRD.	4F12609
			2556			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12610
			2557				4F12611
			2558			RDD/ CALLS=INPUT. USES=WRD.	4F12612
			2559			RDD PROCESSES READ DRUM STATEMENTS.	4F12613
	05063	0 07400 2 06002	2560	RDD	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12614
	05064	−0 50000 0 06115	2561		CAL	RDR PICKUP RDR000 TO SET OP, AND	4F12615
D	05065	1 00000 0 05046	2562		TXI	XDR,0 * CONTINUE BY USING PROGRAM WRD.	4F12616
			2563			END OF PROGRAM RDD.	4F12617
			2564			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12618
			2565				4F12619
			2566			EFT/ CALLS=GIF,BEG,VRAX,CIT.	4F12620
			2567			EFT PROCESSES WRITE END OF FILE STATEMENTS.	4F12621
	05066	−0 50000 0 06123	2568	EFT	CAL	WEF PICKUP WEF000, AND	4F12622
			2569			TPO= ENTRY POINT USED BY RWN, BSP.	4F12623
	05067	0 60200 0 17401	2570	TPO	SLW	OP SET OP.	4F12624
	05070	−0 50000 0 01475	2571		CAL	BTA MOVE BINARY TAPE ADDRESS	4F12625
	05071	0 60200 0 06140	2572		SLW	CON INTO CON.	4F12626
	05072	0 07400 4 02375	2573		TSX	GIF,4 * GET IFN INTO SL AND TL.	4F12627
	05073	0 50000 0 02377	2574		CLA	L(SL) RESET TP0A ADDRESS	4F12628
	05074	0 62100 0 05102	2575		STA	TPOA TO SL.	4F12629
	05075	0 07400 4 05603	2576		TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12630
	05076	0 07400 4 06032	2577		TSX	VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12631
	05077	0 76700 0 00022	2578		ALS	18 IF CONSTANT, ADJUST AND	4F12632
	05100	0 60100 0 17402	2579		STO	RA PLACE IN THE DECREMENT OF RA.	4F)2633
	05101	0 07400 4 01731	2580		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12634
	05102	0 00000 0 01367	2581	TPOA	PZE	SL WORD1--0(IFN)O0O OR 0(IFN)0(248)	4F12635
	05103	0 00000 0 17401	2582		PZE	OP NORD2--(WEF,REW,OR BSP)000	4F12636
	05104	0 00000 0 01406	2583		PZE	L(0) WORD3--000000	4F12637
	05105	0 00000 0 17402	2584		PZE	RA WORD4--0(CON)000 OR 000000	4F12638
D	05106	1 00000 0 05567	2585		TXI	FINI,0 * GO RESET BXT, AND TEST FOR EFN.	4F12639
			2586			END OF PROGRAM EFT.	4F12640
			2587			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12641
			2588				4F12642
			2589			RWN/ USES=EFT.	4F12643
			2590			RWN PROCESSES REWIND TAPE STATEMENTS.	4F12644
	05107	−0 50000 0 06116	2591	RWN	CAL	REW PICKUP REW000 TO SET OP, AND	4F12645
D	05110	1 00000 0 05067	2592		TXI	TPO,0 * CONTINUE BY USING PROGRAM EFT.	4F12646
			2593			END OF PROGRAM RWN.	4F12647
			2594			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12648
			2595				4F12649
			2596			BSP/ USES=EFT.	4F12650
			2597			BSP PR0CESSES BACKSPACE TAPE STATEMENTS.	4F12651
	05111	−0 50000 0 06111	2598	BSP	CAL	BST PICKUP BST000 TO SET OP, AND	4F12652
D	05112	1 00000 0 05067	2599		TXI	TPO,0 * CONTINUE BY USING PROGRAM EFT.	4F12653
			2600			END OF PROGRAM BSP.	4F12654
			2601			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12655
			2602				4F12656
			2603			FOR/ CALLS=TET00.	4F12657
			2604			FOR PROCESSES FORMAT STATEMENTS.	4F12658
	05113	−0 50000 0 00030	2605	FOR	CAL	EIFNO MOVE EXTERNAL FORMULA NUMBER	4F12659
	05114	0 62100 0 01366	2606		STA	SET INTO THE ADDRESS OF SET,	4F12660
	05115	−0 50000 0 01366	2607		CAL	SET AND MOVE SET (8000(EFN))	4F12661
	05116	0 60200 0 01347	2608		SLW	G INTO G.	4F12662
	05117	−0 53400 1 01724	2609		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F12663
	05120	−0 53400 2 01614	2610		LXD	FWA,2 SET XR2 = -(CURRENT F-WORD ADDR).	4F12664
	05121	−3 00001 1 05137	2611		TXL	NFFW,1,1 UNLESS POSITIONED AT THE	4F12665
	05122	1 77777 1 05123	2612		TXI	*+1,1,−1 BEGINNING OF A FORMAT WORD,	4F12666
	05123	0 56000 0 01365	2613		LDQ	RESIDU THEN PICKUP AND	4F12667
	05124	−0 50000 0 01526	2614		CAL	BLANKS PRECEED WITH BLANKS ANY	4F12668
	05125	−0 76300 0 00006	2615	NFC	LGL	6 CHARACTERS	4F12669
	05126	2 00001 1 05125	2616		TIX	NFC,1,1 REMAINING IN THE MQ, AND	4F12670
	05127	0 60200 0 01350	2617	NFW	SLW	G+1 MOVE FORMAT WORDS INTO G+1.	4F12671
	05130	0 07400 1 03321	2618		TSX	TET00,1 * GO ENTER THEN IN	4F12672
	05131	0 00000 0 00012	2619		PZE	10 THE FORMAT TABLE.	4F12673
	05132	−0 50000 0 01350	2620		CAL	G+1 WHEN THE	4F12674
	05133	−0 32000 0 01374	2621		ANA	ENDMK END OF STATEMENT MARK	4F12675
	05134	0 40200 0 01374	2622		SUB	ENDMK HAS BEEN ENTERED,	4F12676
	05135	0 10000 0 03440	2623		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F12677
	05136	0 60000 0 01347	2624		STZ	G PRECEED ALL BUT 1ST ENTRY WITH 0.	4F12678
	05137	−0 50000 2 00000	2625	NFFW	CAL	0,2 PICKUP NEXT FORMAT WORD,	4F12679
	05140	1 77777 2 05127	2626		TXI	NFW,2,−1 UPDATE SCAN INDEX, AND CONTINUE.	4F12680
			2627			END OF PROGRAM FOR.	4F12681
			2628			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12682
			2629				4F12683
			2630			RSC/ CALLS=C0190,DIAG.	4F12684
			2631			RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS	4F12685
			2632			FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN	4F12686
			2633			COMMON. THEN A TAGGED EXIT IS MADE THR0UGH THE BLOCK OF	4F12687
			2634			CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.	4F12688
			2635			RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.	4F12689
	05141	−0 50000 0 05361	2636	RSC	CAL	FLINE RESET TEMPORARY	4F12690
	05142	0 62100 0 01372	2637		STA	TLINE TABLE LINE C0UNTER.	4F12691
	05143	0 60000 0 17400	2638		STZ	DOLEV CLEAR DO LEVEL COUNTER.	4F12692
	05144	0 60000 0 01351	2639		STZ	GTAG CLEAR GENERALIZED TAG.	4F12693
			2640			LSC = ENTRY POINT FROM SPC.	4F12694
	05145	−0 50000 0 05204	2641	LSC	CAL	LISTR SET CONTROL TRANSFER	4F12695
			2642			CXS = ENTRY POINT FROM EQS, BEG.	4F12696
	05146	0 62100 0 05156	2643	CXS	STA	CEXIT FOR LIST SCAN.	4F12697
			2644			NXS = ENTRY POINT FROM LPR, SPC, CMA.	4F12698
	05147	0 53400 2 01414	2645	NXS	LXA	L(6),2 RESET SYMBOL CHARACTER COUNT	4F12699
	05150	−0 63400 2 05637	2646		SXD	CSJ,2 AND SHIFT COUNT.	4F12700
	05151	0 60000 0 17404	2647		STZ	SYM CLEAR SYMBOL WORKING STORAGE.	4F12701
			2648			NXC = ENTRY POINT FROM CMA.	4F12702
	05152	0 07400 4 01707	2649	NXC	TSX	C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.	4F12703
	05153	0 53400 4 02652	2650	CLOAD	LXA	CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS.	4F12704
	05154	0 34000 4 01406	2651	CCOMP	CAS	CTEST,4 COMPARE CHARACTER WITH CONSTANTS.	4F12705
D	05155	−3 00000 0 05160	2652		TXL	BUILD,0 IF EQUALITY IS FOUND ON SOME	4F12706
	05156	0 02000 4 00000	2653	CEXIT	TRA	**,4 * CONTROL CHAR, EXIT TO TRA LIST.	4F12707
	05157	2 00001 4 05154	2654		TIX	CCOMP,4,1 CONTINUE THROUGH PUNCTUATION.	4F12708
	05160	−0 53400 4 05637	2655	BUILD	LXD	CSJ,4 BUILD A	4F12709
	05161	0 60100 4 17316	2656		STO	CHR,4 SYMBOL	4F12710
	05162	−2 00001 4 05167	2657		TNX	LCT,4,1 COMPOSED OF	4F12711
	05163	0 76700 2 00044	2658		ALS	36,2 SIX OR LESS CHARACTERS.	4F12712
	05164	−0 63400 4 05637	2659	CSZ	SXD	CSJ,4 SAVE SYMBOL CHARACTER COUNT.	4F12713
	05165	−0 60200 0 17404	2660		ORS	SYM ALSO, SAVE EACH	4F12714
	05166	1 00006 2 05152	2661		TXI	NXC,2,6 CHARACTER SEPARATELY.	4F12715
	05167	−3 00044 2 05171	2662	LCT	TXL	LCS,2,36 GO TO DIAGNOSTIC IF	4F12716
	05170	0 07400 4 03400	2663		TSX	DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL.	4F12717
	05171	1 77777 4 05164	2664	LCS	TXI	CSZ,4,−1 ADJUST C0UNT, AND CONTINUE SCAN.	4F12718
			2665			END OF PROGRAM RSC.	4F12719
			2666			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12720
			2667				4F12721
			2668			LISTR/ CONTROL TRANSFERS FOR LIST SCAN=	4F12722
D	05172	1 00000 0 05547	2669		TXI	EMK,0 * ENDMARK	4F12723
D	05173	1 00000 0 05205	2670		TXI	LPR,0 * (	4F12724
D	05174	1 00000 0 05413	2671		TXI	CMA,0 * ,	4F12725
D	05175	1 00000 0 05377	2672		TXI	RPR,0 * )	4F12726
D	05176	1 00000 0 05261	2673		TXI	EQS,0 * =	4F12727
D	05177	1 00000 0 05200	2674		TXI	ILC,0 - (ILLEGAL CHARACTER IN I/O LIST).	4F12728
	05200	0 07400 4 03400	2675	ILC	TSX	DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST).	4F12729
D	05201	1 00000 0 05200	2676		TXI	ILC,0 . (ILLEGAL CHARACTER IN I/O LISTI.	4F12730
D	05202	1 00000 0 05200	2677		TXI	ILC,0 + (ILLEGAL CHARACTER IN I/O LIST).	4F12731
D	05203	1 00000 0 05200	2678		TXI	ILC,0 * (ILLEGAL CHARACTER 1N I/O LIST).	4F12732
	05204	0 00000 0 05204	2679	LISTR	PZE	LISTR INDEXING ADDRESS FOR ABOVE LIST.	4F12733
			2680			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12734
			2681				4F12735
			2682			LPR/ CALLS=TYP,SS000,RA000,C0190,TEST..,LTMSW,CIT,JIF,DIAG,	4F12736
			2683			BSS. USES=CMA,RSC.	4F12737
			2684			EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.	4F12738
	05205	−0 50000 0 17404	2685	LPR	CAL	SYM TEST FOR SUBSCRIPT OR DO NEST.	4F12739
	05206	0 10000 0 05230	2686		TZE	LPRD IF SUBSCRIPT, THEN	4F12740
	05207	0 07400 4 05624	2687		TSX	TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS	4F12741
	05210	0 02000 4 00003	2688		TRA	3,4 THAN 6 CHARACTERS, ADD A BLANK.	4F12742
D	05211	1 00000 0 05416	2689		TXI	ERRC,0 * ON CONSTANT RETURN, GO TO DIAG.	4F12743
	05212	−0 50000 0 17404	2690		CAL	SYM MOVE SYMBOL	4F12744
	05213	0 60200 0 01130	2691		SLW	E+2 INTO E+2, AND	4F12745
	05214	0 60200 0 17403	2692		SLW	SA COMPILE SYMBOLIC ADDRESS.	4F12746
	05215	0 07400 4 02614	2693		TSX	SS000,4 * GO SCAN AND PROCESS SUBSCRIPT.	4F12747
	05216	0 07400 4 02437	2694		TSX	RA000,4 * THEN GO =OMPUTE RELATIVE ADDRESS.	4F12748
	05217	0 07400 4 01707	2695		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12749
	05220	0 34000 0 01377	2696		CAS	CLOS	4F12750
	05221	0 02000 0 05226	2697		TRA	*+5	4F12751
	05222	0 02000 0 05224	2698		TRA	*+2	4F12752
	05223	0 02000 0 05226	2699		TRA	*+3	4F12753
	05224	0 60000 0 17400	2700		STZ	DOLEV	4F12754
	05225	0 07400 4 01707	2701		TSX	C0190,4	4F12755
	05226	0 07400 4 03247	2702		TSX	TESTA0,4 * FOR EITHER COMMA OR ENDMARK.	4F12756
D	05227	1 00000 0 05421	2703		TXI	CMA7,0 * AND CONTINUE BY USING PROGRAM CMA.	4F12757
	05230	−0 50000 0 17400	2704	LPRD	CAL	DOLEV IF THE BEGINNING OF A DO NEST,	4F12758
	05231	0 10000 0 05242	2705		TZE	LPR3 AND DOLEV IS NOT ZERO, THEN	4F12759
	05232	0 53400 4 17400	2706		LXA	DOLEV,4 TEST FOR NULL FORMULA.	4F12760
	05233	−3 00000 4 05236	2707		TXL	LPRE,4,0 IF NULL, GO ESTABLISH POSITION.	4F12761
	05234	0 07400 4 05757	2708		TSX	LTMSW,4 * OTHERWISE, COMPILE LTM, AND	4F12762
D	05235	1 00000 0 05241	2709		TXI	LPR4,0 AND GO JUMP IFN.	4F12763
	05236	−0 50000 0 01367	2710	LPRE	CAL	SL IF C(SL) 0O NOT = 0,	4F12764
	05237	0 10000 0 05241	2711		TZE	*+2 THEN	4F12765
	05240	0 07400 2 05674	2712		TSX	BSS,2 * GO COMPILE= IFN BSS 0.	4F12766
	05241	0 07400 4 02372	2713	LPR4	TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12767
	05242	−0 53400 4 17400	2714	LPR3	LXD	DOLEV,4 INCREASE THE C(DOLEV D)	4F12768
	05243	1 00001 4 05244	2715		TXI	LPR1,4,1 BY 1, AND	4F12769
	05244	−0 75400 4 00000	2716	LPR1	PXD	,4 SET THE C(DOLEV A)	4F12770
	05245	0 60200 0 17400	2717		SLW	DOLEV TO ZERO.	4F12771
	05246	−0 50000 0 01372	2718		CAL	TLINE NOTE AT	4F12772
	05247	0 62100 0 05254	2719		STA	LPR2 THIS LEVEL	4F12773
	05250	0 60100 4 17400	2720		STO	DOLEV,4 THE LOCATI0N IN TLDO	4F12774
	05251	0 40000 0 01413	2721		ADD	L(5) OF THIS DO FORMULA	4F12775
	05252	0 62100 0 01372	2722		STA	TLINE AND INCREASE LINE IN TLINE.	4F12776
	05253	0 50200 0 01371	2723		CLS	TL MOVE -(0(IFN)0(248)) INTO THE	4F12777
	05254	0 60100 0 00000	2724	LPR2	STO	** LOCATION WORD OF CURRENT TEMP DO.	4F12778
	05255	0 07400 4 02372	2725		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12779
	05256	−0 53400 4 17400	2726		LXD	DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO,	4F12780
	05257	−3 00003 4 05147	2727		TXL	NXS,4,3 * RETURN TO LIST SCAN.	4F12781
	05260	0 07400 4 03400	2728		TSX	DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC.	4F12782
			2729			END OF PROGRAM LPR.	4F12783
			2730			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12784
			2731				4F12785
			2732			EQS/ CALLS=DIAG. USES=RSC.	4F12786
			2733			EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN.	4F12787
	05261	−0 53400 4 17400	2734	EQS	LXD	DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN,	4F12788
	05262	3 00000 4 05264	2735		TXH	EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO	4F12789
	05263	0 07400 4 03400	2736		TSX	DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (.	4F12790
	05264	−0 50000 4 17400	2737	EQS2	CAL	DOLEV,4 INITIALIZE SPECIFICATION	4F12791
	05265	0 62100 0 05331	2738		STA	SPC2 OF GENERATED DO FORMULA	4F12792
	05266	0 62100 0 05345	2739		STA	SPC5 AT CURRENT LEVEL.	4F12793
	05267	0 40000 0 01407	2740		ADD	L(1) PREPARE TO ENTER FORMULA NUMBERS	4F12794
	05270	0 62100 0 05302	2741		STA	EQS1 IN LOCATION WORD,SUBSCRIPT IN	4F12795
	05271	0 40000 0 01412	2742		ADD	L(4) SYMBOL WORD, AND SUBSCRIPT SPECS	4F12796
	05272	0 62100 0 05333	2743		STA	SPC3 IN TEMPDO ENTRY.	4F12797
	05273	0 53400 4 01411	2744		LXA	L(3),4 PREPARE TO COUNT THE	4F12798
	05274	−0 63400 4 05304	2745		SXD	NSJ,4 NUMBER OF SPECIFICATIONS.	4F12799
	05275	−0 50000 0 17404	2746		CAL	SYM OBTAIN SUBSCRIPT	4F12800
	05276	3 00044 2 05302	2747		TXH	EQS1,2,36 FOR THIS DO, AND	4F12801
	05277	−0 50000 0 01430	2748		CAL	BLANK STORE IN PROPER	4F12802
	05300	0 76700 2 00044	2749		ALS	36,2 LINE OF TEMPORARY	4F12803
	05301	−0 50100 0 17404	2750		ORA	SYM LIST DO TABLE.	4F12804
	05302	0 60200 0 00000	2751	EQS1	SLW	** (SUBSCRIPT SYMBOL WORD)	4F12805
	05303	−0 50000 0 05317	2752		CAL	SPCTR SET CONTROL LOOP FOR	4F12806
	05304	1 00000 0 05146	2753	NSJ	TXI	CXS,0,** * EXIT TO SPECIFICATION.	4F12807
			2754			END OF PROGRAM EQS.	5F12808
			2755			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12809
			2756				4F12810
			2757			SPCTR/ CONTR0L TRANSFERS FOR SPECIFICATION SCAN=	4F12811
	05305	0 07400 4 03400	2758		TSX	DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO).	4F12812
	05306	0 07400 4 03400	2759	ICC	TSX	DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO).	4F12813
D	05307	1 00000 0 05322	2760		TXI	SPC,0 * ,	4F12814
D	05310	1 00000 0 05320	2761		TXI	SPCX,0 * )	4F12815
D	05311	1 00000 0 05306	2762		TXI	ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO).	4F12816
D	05312	1 00000 0 05306	2763		TXI	ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO).	4F12817
D	05313	1 00000 0 05306	2764		TXI	ICC,0 / (ILLEGAL IN CONTR0L FOR LIST DO).	4F12818
D	05314	1 00000 0 05306	2765		TXI	ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO).	4F12819
D	05315	1 00000 0 05306	2766		TXI	ICC,0 + (ILLEGAL IN CONTR0L FOR LIST DO).	4F12820
D	05316	1 00000 0 05306	2767		TXI	ICC,0 * (ILLEGAL IN CONTR0L FOR LIST DO).	4F12821
	05317	0 00000 0 05317	2768	SPCTR	PZE	SPCTR INDEXING ADDRESS FOR ABOVE LIST.	4F12822
			2769			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12823
			2770				4F12824
			2771			SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=RSC.	4F12825
			2772			SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN.	4F12826
	05320	−0 50000 0 05336	2773	SPCX	CAL	SPC1 PREPARE FOR END OF SPECIFICATION.	4F12827
	05321	0 60100 0 05336	2774		STO	SPC1 SET SPC1 OP-SWITCH TO NOP CASE.	4F12828
			2775			SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN.	4F12829
	05322	0 07400 4 05624	2776	SPC	TSX	TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC.	4F12830
D	05323	1 00000 0 05326	2777		TXI	SPCS,0 IF FIXED POINT CONSTANT,	4F12831
	05324	−0 53400 4 05304	2778		LXD	NSJ,4 SET C(XR4) = SPECIFICATION COUNT,	4F12832
D	05325	1 00000 0 05333	2779		TXI	SPC3,0 AND GO ENTER CONSTANT IN TABLE.	4F12833
	05326	−0 53400 4 05304	2780	SPCS	LXD	NSJ,4 OTHERWISE, SET SPEC COUNT AND	4F12834
	05327	−0 50000 0 01453	2781		CAL	TAG4 IF VARIABLE, NOTE BY	4F12835
	05330	0 77100 4 00003	2782		ARS	3,4 PLACING BIT IN TAG FIELD	4F12836
	05331	−0 60200 0 00000	2783	SPC2	ORS	** OF TABLE ENTRY.	4F12837
	05332	−0 50000 0 17404	2784		CAL	SYM PICKUP VARIABLE SYMBOL AND	4F12838
	05333	0 60200 4 00000	2785	SPC3	SLW	**,4 ENTER N SUB J IN TABLE.	4F12839
	05334	−2 00001 4 05341	2786		TNX	SPC4,4,1 REDUCE J.	4F12840
	05335	−0 63400 4 05304	2787		SXD	NSJ,4 SAVE SPEC COUNT, AND	4F12841
D	05336	−3 00000 0 05147	2788	SPC1	TXL	NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL.	4F12842
	05337	−0 50000 0 01407	2789		CAL	L(1) SET N SUB 3 = 1 IF NOT	4F12843
D	05340	1 00000 0 05333	2790		TXI	SPC3,0 OTHERWISE SPECIFIED.	4F12844
	05341	0 50200 0 05336	2791	SPC4	CLS	SPC1 RESTORE SPC1 EXIT.	4F12845
	05342	0 60100 0 05336	2792		STO	SPC1 (3 SPECS HAVE BEEN TREATED)	4F12846
	05343	−0 50000 0 00030	2793		CAL	EIFNO ALS0 RESTORE INTERNAL FORMULA N0.	4F12847
	05344	0 77100 0 00022	2794		ARS	18 (PUT BETA IN TEMPDO TABLE)	4F12848
			2795			SPC5 = ENTRY POINT USED BY RPR.	4F12849
	05345	0 62100 0 00000	2796	SPC5	STA	** SET BETA EQUAL TO IFNO.	4F12850
	05346	0 53400 4 17400	2797		LXA	DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO	4F12851
	05347	−3 00000 4 05352	2798		TXL	SPCR,4,0 TEST NEED FOR LTM, JIF AFTER ).	4F12852
	05350	0 07400 4 05757	2799		TSX	LTMSW,4 * GO COMPILE LTM.	4F12853
	05351	0 07400 4 02372	2800		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12854
	05352	−0 53400 4 17400	2801	SPCR	LXD	DOLEV,4 DECREASE DOLEV D	4F12855
	05353	1 77777 4 05354	2802		TXI	SPC6,4,−1 BY 1, AND INDICATE A TREATED LEVEL.	4F12856
	05354	−0 75400 4 00000	2803	SPC6	PXD	,4 IF NOT ZERO,	4F12857
	05355	0 60200 0 17400	2804		SLW	DOLEV THEN ALL LEVELS ARE NOT TREATED.	4F12858
	05356	3 00000 4 05145	2805		TXH	LSC,4,0 * RETURN T0 SCAN NEXT LEVEL.	4F12859
	05357	0 50000 0 01372	2806		CLA	TLINE IF LEVEL IS ZERO	4F12860
	05360	0 62100 0 05364	2807		STA	SPC7 ENTER GENERATED	4F12861
	05361	0 73400 2 17405	2808	FLINE	PAX	TLDOS,2 DO FORMULAS IN TDO BY	4F12862
	05362	1 60373 2 05363	2809		TXI	*+1,2,−TLDOS SUBROUTINE TET.	4F12863
	05363	0 53400 4 01413	2810	SPC9	LXA	L(5),4 (MOVE EACH	4F12864
	05364	0 50000 2 00000	2811	SPC7	CLA	**,2 TEMPD0 TABLE ENTRY	4F12865
	05365	0 60100 4 01112	2812		STO	1C+5,4 INTO 1C...1C+4,	4F12866
	05366	−2 00001 2 05370	2813		TNX	SPC8,2,1 AND THEN	4F12867
	05367	2 00001 4 05364	2814		TIX	SPC7,4,1 WHEN DONE,	4F12868
	05370	0 53400 4 01105	2815	SPC8	LXA	1C,4 TEST TO SKIP	4F12869
	05371	−3 00000 4 05374	2816		TXL	SPCT,4,0 NULL DO.	4F12870
	05372	0 07400 1 03321	2817		TSX	TET00,1 * GO MAKE AN ENTRY	4F12871
	05373	0 00000 0 00001	2818		PZE	1 IN TDO TABLE.)AND WHEN THE WH0LE	4F12872
	05374	3 00001 2 05363	2819	SPCT	TXH	SPC9,2,1 DO NEST HAS BEEN ENTERED,	4F12873
	05375	0 07400 4 02372	2820		TSX	JIF,4 * GO JUMP IFN, AND SET SL AN0 TL.	4F12874
D	05376	1 00000 0 05141	2821	RESET	TXI	RSC,0 * THEN EXIT TO CONTINUE LIST SCAN.	4F12875
			2822			END OF PROGRAM SPC.	4F12876
			2823			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12877
			2824				4F12878
			2825			RPR/ CALLS=DIAG. USES=CMA,SPC.	4F12879
			2826			RPR = ENTRY POINT WHEN RPAREN IS MET 1N LIST SCAN.	4F12880
	05377	−0 53400 4 17400	2827	RPR	LXD	DOLEV,4 TEST LEGALITY OF 1.	4F12881
	05400	3 00000 4 05402	2828		TXH	RPS,4,0 IF THERE ARE TOO MANY ) IN LIST,	4F12882
	05401	0 07400 4 03400	2829		TSX	DIAG,4 * GO TO THE DIAGNOST1C.	4F12883
	05402	−0 50000 4 17400	2830	RPS	CAL	DOLEV,4 NULLIFY DO AT CURRENT LEVEL.	4F12884
	05403	0 62100 0 05345	2831		STA	SPC5 SET SPC5 ADDRESS,	4F12885
	05404	0 50000 0 05411	2832		CLA	RPA SET CMA3 SWITCH TO RETURN TO	4F12886
	05405	0 62100 0 05546	2833		STA	CMA3 RPT, AND IF ANY CHARACTERS	4F12887
	05406	3 00006 2 05414	2834		TXH	CMA1,2,6 * WERE COLLECTED, EXIT,TO CMA.	4F12888
			2835			RPT = REENTRY POINT USED BY CMA.	4F12889
	05407	0 50000 0 05336	2836	RPT	CLA	SPC1 RESET CMA3 SWITCH	4F12890
	05410	0 62100 0 05546	2837		STA	CMA3 TO NXS,	4F12891
	05411	−0 75400 0 05407	2838	RPA	PXD	RPT,0 CLEAR THE AC, AND	4F12892
D	05412	1 00000 0 05345	2839		TXI	SPC5,0 * CONTINUE BY USING PROGRAM SPC.	4F12893
			2840			END OF PROGRAM RPR.	4F12894
			2841			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12895
			2842				4F12896
			2843			CMA/ CALLS=TYP,D1AG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT,	4F12897
			2844			LTMSW. USES=RSC.	4F12898
			2845			CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.	4F12899
	05413	−3 00006 2 05152	2846	CMA	TXL	NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN.	4F12900
			2847			CMA1 = ENTRY POINT USED BY EMK.	4F12901
	05414	0 07400 4 05624	2848	CMA1	TSX	TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR.	4F12902
	05415	0 02000 4 00003	2849		TRA	3,4 ILLEGAL USE OF CONSTANT IN LIST,	4F12903
	05416	0 07400 4 03400	2850	ERRC	TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F12904
	05417	−0 50000 0 17404	2851		CAL	SYM INVE VARIABLE SYMBOL	4F12905
	05420	0 60200 0 17403	2852	CMA4	SLW	SA INTO SA. AND	4F12906
			2853			CMA7 = ENTRY POINT USED BY LPR.	4F12907
	05421	0 53400 4 17400	2854	CMA7	LXA	DOLEV,4 IF DOLEV ADDRESS = 0, AND IF	4F12908
	05422	3 00000 4 05424	2855		TXH	CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE),	4F12909
	05423	0 07400 4 05754	2856		TSX	ETMSW,4 * GO COMPILE ETM, AND CLEAR SL.	4F12910
	05424	−0 50000 0 17400	2857	CMA6	CAL	DOLEV IN ANY CASE,	4F12911
	05425	0 40000 0 01407	2858		ADD	L(1) UPDATE DOLEV ADDRESS	4F12912
	05426	0 60100 0 17400	2859		STO	DOLEV BY 1, AND THEN	4F12913
	05427	0 50000 0 01351	2860		CLA	GTAG SET GENERALIZED TAG.	4F12914
	05430	0 60100 0 17402	2861		STO	RA (RELATIVE ADDRESS)	4F12915
	05431	0 10000 0 05436	2862		TZE	DIMSR IF THIS VARIABLE HAS A SUBSCRIPT,	4F12916
	05432	0 50000 0 01147	2863		CLA	EPS AND IF SUBSCRIPT	4F12917
	05433	−0 10000 0 05537	2864		TNZ	CMA5 IS A CONSTANT,	4F12918
	05434	0 62100 0 17402	2865		STA	RA TMEN CLEAR THE ADDRESS OF RA.	4F12919
D	05435	1 00000 0 05537	2866		TXI	CMA5,0 THEN GO MAKE CIT ENTRY.	4F12920
	05436	−0 50000 0 17403	2867	DIMSR	CAL	SA IF THIS VARIABLE	4F12921
	05437	0 60200 0 01130	2868		SLW	E+2 DOES NOT HAVE A SUBSCRIPT, THEN	4F12922
	05440	0 07400 4 01771	2869	RD1	TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE.	4F12923
D	05441	1 00000 0 05444	2870		TXI	RD2,0 IF FOUND, THEN	4F12924
	05442	0 50000 0 01101	2871	CS1	CLA	D12 PICKUP DIMENSION 1	4F12925
D	05443	1 00000 0 05467	2872		TXI	DVS,0 AND GO TEST SIZE. OTHERWISE,	4F12926
	05444	0 07400 4 01775	2873	RD2	TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F12927
D	05445	1 00000 0 05455	2874		TXI	RD3,0 AND IF FOUND,	4F12928
	05446	0 56000 0 01101	2875	CS2	LDQ	D12 PICKUP	4F12929
	05447	0 60000 0 01361	2876		STZ	N2 DIMENSION 1 AND	4F12930
	05450	−0 62000 0 01361	2877		SLQ	N2 DIMENSION 2	4F12931
	05451	−0 76300 0 00022	2878		LGL	18 AND MULTIPLY	4F12932
	05452	0 20000 0 01361	2879		MPY	N2 THEM TOGETHER.	4F12933
	05453	0 77100 0 00001	2880		ARS	1 THEN	4F12934
D	05454	1 00000 0 05467	2881		TXI	DVS,0 GO TEST THE PRODUCT. OTHERWISE,	4F12935
	05455	0 07400 4 02005	2882	RD3	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12936
D	05456	1 00000 0 05533	2883		TXI	NODIM,0 AND IF FOUND,	4F12937
	05457	0 56000 0 01101	2884	CS3	LDQ	D12 PICKUP	4F12938
	05460	0 60000 0 01361	2885		STZ	N2 DIMENSION 1,	4F12939
	05461	−0 62000 0 01361	2886		SLQ	N2 DIMENSION 2,	4F12940
	05462	−0 76300 0 00022	2887		LGL	18 AND DIMENSION 3.	4F12941
	05463	0 20000 0 01361	2888		MPY	N2 MULTIPLY	4F12942
	05464	0 76500 0 00022	2889		LRS	18 THEM TOGETHER,	4F12943
	05465	0 20000 0 01102	2890		MPY	D3 AND IF	4F12944
	05466	0 76300 0 00021	2891		LLS	17 THEIR	4F12945
	05467	0 40200 0 01407	2892	DVS	SUB	L(1) PRODUCT IS	4F12946
	05470	0 10000 0 05533	2893		TZE	NODIM GREATER THAN 1, THEN	4F12947
	05471	0 76700 0 00022	2894		ALS	18 PLACE DIMENSION-1 IN THE	4F12948
	05472	0 60100 0 01347	2895		STO	G DECREMENT OF G, AND	4F12949
	05473	0 07400 4 00417	2896		TSX	FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG.	4F12950
	05474	0 76700 0 00022	2897		ALS	18 ADJUST, AND STORE TAG IN THE	4F12951
	05475	0 62200 0 01364	2898		STD	RAT IMCREMENT OF RAT. THEN	4F12952
	05476	0 07400 4 02372	2899		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12953
	05477	0 07400 4 01731	2900		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12954
	05500	0 00000 0 01367	2901		PZE	SL WORD1--0(IFN)000	4F12955
	05501	0 00000 0 01561	2902		PZE	LXD WORD2--LXD000	4F12956
	05502	0 00000 0 01501	2903		PZE	2P WORO3--200000	4F12957
	05503	0 00000 0 01364	2904		PZE	RAT WORD4--0(FIXCON TAG)008	4F12958
	05504	0 07400 4 02372	2905		TSX	JIF,4 * GO JONP IFN, AND SET SL AND TL.	4F12959
	05505	0 07400 4 05754	2906		TSX	ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0.	4F12960
	05506	0 07400 4 01731	2907		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12961
	05507	0 00000 0 01367	2908		PZE	SL WORD1--0(IFN)000 OR 000000	4F12962
	05510	0 00000 0 17401	2909		PZE	OP WORD2--(OPERATION CODE)	4F12963
	05511	0 00000 0 17403	2910		PZE	SA WORD3--(SYMBOLIC ADDRESS)	4F12964
	05512	0 00000 0 01416	2911		PZE	ST WORD4--000008	4F12965
	05513	0 60000 0 01367	2912		STZ	SL CLEAR SL, AND	4F12966
	05514	0 07400 4 05757	2913		TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F12967
	05515	0 07400 4 02375	2914		TSX	GIF,4 * GET IFN IN SL AND TL.	4F12968
	05516	0 07400 4 01731	2915		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12969
	05517	0 00000 0 01406	2916		PZE	L(0) WORD1--000000	4F12970
	05520	0 00000 0 01576	2917		PZE	TIX WORD2--TIX001	4F12971
	05521	0 00000 0 01367	2918		PZE	SL WORD3--0(IFN)0004	4F12972
	05522	0 00000 0 01416	2919		PZE	ST WORD4--000008	4F12973
	05523	0 60000 0 01367	2920		STZ	SL CLEAR SL, AND	4F12974
	05524	0 07400 4 05754	2921		TSX	ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0.	4F12975
	05525	0 07400 4 01731	2922		TSX	CIT,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F12976
	05526	0 00000 0 01406	2923		PZE	L(0) WORD1--000000	4F12977
	05527	0 00000 0 01546	2924		PZE	DED WORD2--DED000	4F12978
	05530	0 00000 0 01406	2925		PZE	L(0) WORD3--000000	4F12979
	05531	0 00000 0 01416	2926		PZE	ST WORD4--000008	4F12980
D	05532	1 00000 0 05537	2927		TXI	CMA5,0 IF THE PRODUCT OF DIMENSIONS IS	4F12981
	05533	0 07400 1 05773	2928	NODIM	TSX	IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE,	4F12982
D	05534	1 00000 0 05537	2929		TXI	CMA5,0 AND IF FIXED POINT,	4F12983
	05535	0 07400 1 03321	2930		TSX	TET00,1 * GO ENTER VARIABLE IN	4F12984
	05536	0 00000 0 00000	2931	INOUT	PZE	** EITHER FORVAL OR FORVAR TABLE.	4F12985
	05537	0 07400 4 01731	2932	CMA5	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12986
	05540	0 00000 0 01367	2933		PZE	SL WORD1--0(IFN)000 OR 000000	4F12987
	05541	0 00000 0 17401	2934		PZE	OP WORD2--NTR000 OR CPY000	4F12988
	05542	0 00000 0 17403	2935		PZE	SA WORD3--(SYMBOL)	4F12989
	05543	0 00000 0 17402	2936		PZE	RA WORD4--(RELATIVE ADDRESS)	4F12990
	05544	0 60000 0 01367	2937		STZ	SL CLEAR SL, AND	4F12991
	05545	0 60000 0 01351	2938		STZ	GTAG CLEAR GTAG. THEN TAKE EXIT	4F12992
D	05546	1 00000 0 05147	2939	CMA3	TXI	NXS,0 * SWITCH TO RPT OR NXS.	4F12993
			2940			END OF PROGRAM CMA.	4F12994
			2941			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12995
			2942				4F12996
			2943			EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00. USES=CMA.	4F12997
			2944			EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.	4F12998
	05547	3 00006 2 05414	2945	EMK	TXH	CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN	4F12999
	05550	−0 53400 4 17400	2946		LXD	DOLEV,4 CHECK THE NUMBER OF PARENTHESES.	4F13000
	05551	−3 00000 4 05553	2947		TXL	FIN,4,0 IF THERE ARE TOO MANY LPARENS,	4F13001
	05552	0 07400 4 03400	2948		TSX	DIAG,4 * GO TO THE DIAGNOSTIC. OTHERWISE,	4F13002
	05553	0 07400 4 05757	2949	FIN	TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F13003
	05554	0 07400 4 02372	2950		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13004
			2951			LAST = ENTRY POINT SET BY BXT SWITCH.	4F13005
	05555	0 07400 4 01731	2952	LAST	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13006
	05556	0 00000 0 01367	2953		PZE	SL WORD1--0(IFN)000	4F13007
	05557	0 00000 0 01537	2954		PZE	CAL WORD2--CAL000	4F13008
	05560	0 00000 0 01510	2955		PZE	15P WORD3--*00000	4F13009
	05561	0 00000 0 01406	2956		PZE	L(0) WORD4--000000	4F13010
	05562	0 07400 4 06023	2957		TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13011
	05563	0 00000 0 01406	2958		PZE	L(0) WORD1--000000	4F13012
	05564	0 00000 0 06125	2959		PZE	XIT WORD2--XITO00	4F13013
	05565	0 00000 0 06141	2960		PZE	END WORD3--(RTN) OR (FIL)	4F13014
	05566	0 00000 0 01406	2961		PZE	L(0) WORD4--000000	4F13015
			2962			FINI = ENTRY POINT USED BY EFT.	4F13016
	05567	0 50000 0 05376	2963	FINI	CLA	RESET RESET BXT SWITCH	4F13017
	05570	0 62100 0 04744	2964		STA	BXT TO RSC.	4F13018
	05571	0 50000 0 01151	2965		CLA	F−1 TEST FOR AN EXTERNAL	4F13019
	05572	0 40200 0 01477	2966		SUB	5BLANS STATEMENT NUMBER, AND IF NONE,	4F13020
	05573	0 10000 0 03440	2967		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F13021
	05574	−0 50000 0 01520	2968		CAL	MINUS0 OTHERWISE, SET THE SIGN	4F13022
	05575	−0 60200 0 00030	2969		ORS	EIFNO OF EIFNO TO MINUS, AND	4F13023
	05576	0 07400 1 03321	2970		TSX	TET00,1 * GO ENTER -(EIFNO)	4F13024
	05577	0 00000 0 00000	2971		PZE	0 IN THE TEIFNO TABLE.	4F13025
	05600	−0 50000 0 00030	2972		CAL	EIFNO THEN RESTORE	4F13026
	05601	0 60100 0 00030	2973		STO	EIFNO EIFNO, AND	4F13027
D	05602	1 00000 0 03440	2974		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F13028
			2975			END OF PROGRAM EMK.	4F13029
			2976			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13030
			2977				4F13031
			2978			STATEA/4-SUBROUTINES USED BY STATE A=	4F13032
			2979
			2980			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
			2981				4F13033
			2982			BEG(TYP),4/ CALLS=DIAG. USES RSC.	4F13034
			2983			BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT.	4F13035
	05603	−0 63400 4 05605	2984	BEG	SXD	BEX,4 SAVE C(XR4) FOR RETURN,	4F13036
	05604	−0 50000 0 05620	2985		CAL	BEGTR SET CONTROL TRANSFER	4F13037
	05605	1 00000 0 05146	2986	BEX	TXI	CXS,0,** * AND GO EXECUTE BEGINNING SCAN.	4F13038
			2987			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13039
			2988				4F13040
			2989			BEGTR/ CONTR0L TRANSFERS FOR BEGINNING SCAN=	4F13041
D	05606	1 00000 0 05621	2990		TXI	NLS,0 * ENDMARK (NO LIST SCAN)	4F13042
	05607	0 07400 4 03400	2991	IBC	TSX	DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).	4F13043
D	05610	1 00000 0 05623	2992		TXI	CMB,0 * ,	4F13044
D	05611	1 00000 0 05607	2993		TXI	IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).	4F13045
D	05612	1 00000 0 05607	2994		TXI	IBC,0 = (ILLEGAL CHARACTER IN I/O SETUPI.	4F13046
D	05613	1 00000 0 05607	2995		TXI	IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).	4F13047
D	05614	1 00000 0 05607	2996		TXI	IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).	4F13048
D	05615	1 00000 0 05607	2997		TXI	IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).	4F13049
D	05616	1 00000 0 05607	2998		TXI	IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).	4F13050
D	05617	1 00000 0 05607	2999		TXI	IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).	4F13051
	05620	0 00000 0 05620	3000	BEGTR	PZE	BEGTR INDEXING ADDRESS FOR ABOVE LIST.	4F13052
			3001			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13053
			3002				4F13054
			3003			NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.	4F13055
	05621	0 50000 0 06105	3004	NLS	CLA	NLA IF ENDMARK IS MET,	4F13056
	05622	0 62100 0 04744	3005		STA	BXT SET BXT SWITCH TO LAST.	4F13057
			3006			CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.	4F13058
	05623	−0 53400 4 05605	3007	CMB	LXD	BEX,4 RESTORE THE C(XR4), AND	4F13059
			3008			TYP = ENTRY POINT USED BY LPR,SPC,CMA.	4F13060
	05624	0 50000 0 17310	3009	TYP	CLA	CHR−6 TEST FIRST CHARACTER	4F13061
	05625	0 40200 0 01404	3010		SUB	PLUS FOR VARIABLE	4F13062
	05626	−0 12000 0 05634	3011		TMI	ABS OR CONSTANT.	4F13063
	05627	3 00044 2 05633	3012		TXH	SMB,2,36 IF VARIABLE,	4F13064
	05630	−0 50000 0 01430	3013		CAL	BLANK ADD A BLANK	4F13065
	05631	0 76700 2 00044	3014		ALS	36,2 IF SYMBOL CONTAINS	4F13066
	05632	−0 60200 0 17404	3015		ORS	SYM LESS THAN 6 CHARACTERS, AND	4F13067
	05633	0 02000 4 00001	3016	SMB	TRA	1,4 * TAKE VARIABLE EXIT TO CALLER.	4F13068
	05634	0 53400 2 01413	3017	ABS	LXA	L(5),2 IF CONSTANT,	4F13069
	05635	0 50000 2 17315	3018		CLA	CHR−1,2 TNEN	4F13070
	05636	0 60100 0 17307	3019		STO	BIN CONVERT	4F13071
	05637	−3 00000 2 05645	3020	CSJ	TXL	INT,2,** BCD	4F13072
	05640	0 76700 0 00002	3021		ALS	2 DIGITS	4F13073
	05641	0 40000 0 17307	3022		ADD	BIN TO THEIR	4F13074
	05642	0 76700 0 00001	3023		ALS	1 BINARY	4F13075
	05643	0 40000 2 17316	3024		ADD	CHR,2 EOUIVALENT,	4F13076
	05644	1 77777 2 05636	3025		TXI	CSJ−1,2,−1 AND WHEN DONE,	4F13077
	05645	0 02000 4 00002	3026	INT	TRA	2,4 * TAKE CONSTANT EXIT TO CALLER.	4F13078
			3027			END 0F PROGRAM BEG(TYP).	4F13079
			3028			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13080
			3029				4F13081
			3030			BRW,4/ CALLS=JIF,BEG,VRA,CIT. CALLERS=WBT,RBT,WRD.	4F13082
	05646	−0 63400 4 06054	3031	BRW	SXD	XRW,4 SAVE THE C(XR4), AND	4F13083
	05647	0 60200 0 06140	3032		SLW	CON SET CON = 0 OR ,,144 OR ,,192.	4F13084
	05650	0 07400 4 02372	3033		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13085
	05651	0 07400 4 05603	3034		TSX	BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL.	4F13086
	05652	0 07400 4 06032	3035		TSX	VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F13087
	05653	0 76700 0 00022	3036		ALS	18 IF CONSTANT, ADJUST CONVERTED	4F13088
	05654	0 60100 0 17402	3037		STO	RA NUMBER, AND SET RA.	4F13089
	05655	0 07400 4 01731	3038		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13090
	05656	0 00000 0 01371	3039		PZE	TL WORD1--0(IFN)0(248)	4F13091
	05657	0 00000 0 17401	3040		PZE	OP WORD2--(WTB,RBT,WRD,RDD)000	4F13092
	05660	0 00000 0 01406	3041		PZE	L(0) WORD3--000000	4F13093
	05661	0 00000 0 17402	3042		PZE	RA WORD4--000000 OR 0(UNIT)000	4F13094
	05662	−0 50000 0 01544	3043		CAL	CPY MOVE CPY000	4F13095
	05663	0 60200 0 17401	3044		SLW	OP INTO OP.	4F13096
	05664	−0 50000 0 00415	3045		CAL	TXLOP SET OP-SWITCHES,	4F13097
	05665	0 63000 0 05754	3046		STP	ETMSW ETMSW AND LTMSW,	4F13098
	05666	0 63000 0 05757	3047		STP	LTMSW TO THE TRA CASE.	4F13099
	05667	−0 50000 0 06133	3048		CAL	RTN MOVE (RTN)	4F13100
	05670	0 60200 0 06141	3049		SLW	END INTO END.	4F13101
	05671	0 60000 0 01367	3050		STZ	SL CLEAR SL,	4F13102
	05672	−0 53400 4 06054	3051		LXD	XRW,4 RESTORE THE C(XR4), AND	4F13103
	05673	0 02000 4 00001	3052		TRA	1,4 * EXIT TO CALLER.	4F13104
			3053			END OF PROGRAM BRW.	4F13105
			3054			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13106
			3055				4F13107
			3056			BSS,2/ CALLS=CIT00. CALLERS=LPR,C1600.	4F13108
			3057			BSS COMPILES= IFN BSS 0.	4F13109
	05674	0 07400 4 01731	3058	BSS	TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F13110
	05675	0 00000 0 01367	3059		PZE	SL WORD1--0(IFN)000	4F13111
	05676	0 00000 0 01536	3060		PZE	L(BSS) WORD2--BSS000	4F13112
	05677	0 00000 0 01406	3061		PZE	L(0) WORD3--000000	4F13113
	05700	0 00000 0 01406	3062		PZE	L(0) NORD4--000000	4F13114
	05701	0 02000 2 00001	3063		TRA	1,2 * EXIT TO CALLER+1.	4F13115
			3064			END OF PROGRAM BSS.	4F13116
			3065			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13117
			3066				4F13118
			3067			CA100,4/ CALLS=DIAG. CALLER=CA000.	4F13119
			3068			CA100 READS NEXT S0URCE PROGRAM CARD (1 TAPE RECORD).	4F13120
	05702	0 53400 2 01413	3069	CA100	LXA	TERC,2 PREPARE TO C0UNT	4F13121
	05703	−0 63400 2 01112	3070		SXD	1G,2 TAPE READING ERRORS.	4F13122
	05704	−0 76000 0 00012	3071		RTT	TURN OFF TAPE CHECK INDICATOR.	4F13123
	05705	0 76100 0 00000	3072		NOP	PROCEED TO NEXT INSTRUCTION.	4F13124
	05706	0 76200 0 00202	3073	CA101	RDS	130 SELECT SOURCE TAPE FOR READING.	4F13125
	05707	0 53400 2 01420	3074		LXA	L(12),2 INITIALIZE INDEX B FOR 12 CYCLES 0F	4F13126
			3075			C0PY LOOP.	4F13127
	05710	0 70000 2 01347	3076	CA102	CPY	FT+12,2 C0PY INTO FT REGION	4F13128
	05711	0 02000 0 05721	3077		TRA	CA103 NEXT SOURCE PROGRAM CARD.	4F13129
	05712	0 02000 0 05740	3078		TRA	CA120 END OF FILE, GO FINISH LAST STATEM.	4F13130
	05713	−0 53400 2 01112	3079	CA130	LXD	1G,2 TEST TAPE ERROR COUNTER	4F13131
	05714	2 00001 2 05716	3080		TIX	CA131,2,1 BY TRYING TO REDUCE BY 1.	4F13132
	05715	0 07400 4 03400	3081		TSX	DIAG,4 * FAILED 5 TIMES IN READING TAPE 2.	4F13133
	05716	−0 63400 2 01112	3082	CA131	SXD	1G,2 SAVE REDUCED VALUE IN COUNTER.	4F13134
	05717	0 76400 0 00202	3083		BST	130 BACKSPACE FORMULA TAPE,	4F13135
	05720	0 02000 0 05706	3084		TRA	CA101 AND GO BACK TO READ AGAIN.	4F13136
	05721	2 00001 2 05710	3085	CA103	TIX	CA102,2,1 TEST EXIT FROM LOOP.	4F13137
	05722	0 76600 0 00333	3086		IOD	DELAY UNTIL TAPE DISCONNECTS.	4F13138
	05723	−0 76000 0 00012	3087		RTT	CHECK READING OF TAPE.	4F13139
D	05724	1 00000 0 05713	3088		TXI	CA130,0 IF INCORRECT, GO CHECK ERROR C0UNT.	4F13140
	05725	0 53400 2 01420	3089		LXA	L(12),2 PREPARE TO SCAN 12 WORDS OF CARD.	4F13141
	05726	0 50000 0 01526	3090	CA112	CLA	BLANKS TEST	4F13142
	05727	0 40200 2 01347	3091		SUB	FT+12,2 FOR	4F13143
	05730	−0 10000 0 05733	3092		TNZ	CA113 BLANK	4F13144
	05731	2 00001 2 05726	3093		TIX	CA112,2,1 CARD.	4F13145
	05732	0 02000 0 05702	3094		TRA	CA100 IF BLANK, GO TO READ NEXT CARD.	4F13146
	05733	−0 50000 0 01333	3095	CA113	CAL	FT IF NOT BLANK,	4F13147
	05734	0 77100 0 00036	3096		ARS	30 EXAMINE FIRST	4F13148
	05735	0 40200 0 01421	3097		SUB	L(C) CHARACTER TO	4F13149
	05736	0 10000 0 05702	3098		TZE	CA100 TEST FOR COMMENT CARD.	4F13150
	05737	0 02000 4 00001	3099		TRA	1,4 * EXIT IF NEITHER BLANK NOR COMMENT.	4F13151
	05740	0 60000 0 01333	3100	CA120	STZ	FT INDICATE THAT FINAL	4F13152
	05741	−0 63400 0 02575	3101		SXD	ENDWRD,0 STATEMENT HAS BEEN READ IN.	4F13153
	05742	0 02000 4 00001	3102		TRA	1,4 * EXIT TO MAIN ROUTINE TO FINISH.	4F13154
			3103			END OF PROGRAM CA100.	4F13155
			3104			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13156
			3105				4F13157
			3106			CC500,4/ CALLER=CC000.	4F13158
			3107			CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35).	4F13159
	05743	−0 75400 0 00000	3108	CC500	PXD	,0 CLEAR THE AC.	4F13160
	05744	2 00001 2 05752	3109		TIX	CC502,2,1 IF NO DICTIONARY CHARACTERS	4F13161
	05745	−0 53400 2 01113	3110		LXD	2G,2 REMAIN IN THE MO, THEN	4F13162
	05746	0 56000 2 06145	3111		LDQ	DIC,2 REFILL WITH NEXT DICTIONARY WORD.	4F13163
	05747	1 77777 2 05750	3112		TXI	CC501,2,−1 RESET THE	4F13164
	05750	−0 63400 2 01113	3113	CC501	SXD	2G,2 DICTIONARY WORD TAG, AND	4F13165
	05751	0 53400 2 01414	3114		LXA	L(6),2 SET THE CHARACTER COUNT = 6.	4F13166
	05752	−0 76300 0 00006	3115	CC502	LGL	6 SMIFT CHAR INTO AC(30-35),	4F13167
	05753	0 02000 4 00001	3116		TRA	1,4 * AND RETURN TO CALLER.	4F13168
			3117			END OF PROGRAM CC500.	4F13169
			3118			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13170
			3119				4F13171
			3120			ETMSW(LTMSW),4/ CALLS=CIT. CALLERS=RDC,LPR,SPC,CMA,EMK.	4F13172
			3121			ETMSW = ENTRY POINT USED BY RDC,CMA.	4F13173
D	05754	−3 00000 0 05772	3122	ETMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOPI.	4F13174
	05755	−0 50000 0 06112	3123		CAL	ETM PICKUP ETM000, AND	4F13175
	05756	1 00000 0 05761	3124	XR4X	TXI	SETOP,0,** GO SET OP.	4F13176
			3125			LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK.	4F13177
D	05757	−3 00000 0 05772	3126	LTMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOP).	4F13178
	05760	−0 50000 0 06113	3127		CAL	LTM PICKUP LTM000, AND	4F13179
	05761	0 60200 0 06142	3128	SETOP	SLW	TOP SET TOP.	4F13180
	05762	−0 63400 4 05756	3129		SXD	XR4X,4 SAVE THE C(XR4), AND	4F13181
	05763	0 07400 4 01731	3130		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13182
	05764	0 00000 0 01367	3131		PZE	SL WORD1--0(IFN)000	4F13183
	05765	0 00000 0 06142	3132		PZE	TOP WORD2--ETM000 OR LTM000	4F13184
	05766	0 00000 0 01406	3133		PZE	L(0) WORD3--000000	4F13185
	05767	0 00000 0 01406	3134		PZE	L(0) WORD4--000000	4F13186
	05770	0 60000 0 01367	3135		STZ	SL CLEAR,SL,	4F13187
	05771	−0 53400 4 05756	3136		LXD	XR4X,4 RESTORE THE C(XR4), AND	4F13188
	05772	0 02000 4 00001	3137	NOTTM	TRA	1,4 * EXIT TO CALLER.	4F13189
			3138			END OF PROGRAM ETMSW(LTMSW).	4F13190
			3139			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13191
			3140				4F13192
			3141			IFFIX,1/ USES=TESTFX. CALLERS=CMA,VRA(VRD).	4F13193
	05773	−0 50000 0 00030	3142	IFFIX	CAL	EIFNO SET	4F13194
	05774	0 60000 0 01347	3143		STZ	G G TO	4F13195
	05775	0 62200 0 01347	3144		STD	G (0(IFN)000).	4F13196
	05776	−0 50000 0 17404	3145		CAL	SYM MOVE SYMBOL	4F13197
	05777	0 60200 0 01350	3146		SLW	G+1 INTO G+1.	4F13198
	06000	−0 50000 0 17310	3147		CAL	CHR−6 PICKUP 1ST CHARACTER OF SYMBOL, AND	4F13199
D	06001	1 00000 0 03242	3148		TXI	TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT.	4F13200
			3149			END OF PROGRAM IFFIX.	4F13201
			3150			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13202
			3151				4F13203
			3152			INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB.	4F13204
			3153			CALLERS=RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.	4F13205
			3154			INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD.	4F13206
	06002	0 50000 0 01414	3155	INPUT	CLA	L(6) PICKUP 6 TO	4F13207
TD	06003	1 00000 0 06005	3156		TXI	OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY.	4F13208
			3157			OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD.	4F13209
	06004	0 50000 0 01413	3158	OUTPUT	CLA	L(5) PICKUP 5 TO	4F13210
	06005	0 60100 0 05536	3159		STO	INOUT SET INOUT FOR FORVAR ENTRY.	4F13211
	06006	0 07400 4 02375	3160		TSX	GIF,4 * SET SL = IFN,000.	4F13212
	06007	0 07400 4 01731	3161		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13213
	06010	0 00000 0 01367	3162		PZE	SL WORD1--0(IFN)000	4F13214
	06011	0 00000 0 01537	3163		PZE	CAL WORD2--CAL000	4F13215
	06012	0 00000 0 01510	3164		PZE	15P WORD3--*00000	4F13216
	06013	0 00000 0 01406	3165		PZE	L(0) WORD4--000000	4F13217
	06014	0 07400 4 06023	3166		TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13218
	06015	0 00000 0 01406	3167		PZE	L(0) WORD1--000000	4F13219
	06016	0 00000 0 06125	3168		PZE	XIT WORD2--XIT000	4F13220
	06017	0 00000 0 06132	3169		PZE	LEV WORD3--(LEV)	4F13221
	06020	0 00000 0 01406	3170		PZE	L(0) WORD4--000000	4F13222
	06021	0 60000 0 01367	3171		STZ	SL CLEAR SL, AND	4F13223
	06022	0 02000 2 00001	3172		TRA	1,2 * EXIT TO CALLER.	4F13224
			3173			END OF PROGRAM INPUT(OUTPUT).	4F13225
			3174			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13226
			3175				4F13227
			3176			LIB,1/ CALLS=TET00,CIT. CA=LERS=RDC,EMK,INPUT(OUTPUT).	4F13228
	06023	−0 50000 4 00003	3177	LIB	CAL	3,4 MOVE NAME OF SUBROUTINE,	4F13229
	06024	0 62100 0 06025	3178		STA	LIC ADDRESS OF WHICH	4F13230
	06025	−0 50000 0 00000	3179	LIC	CAL	** IS IN WORD3 OF CALLING SEQ,	4F13231
	06026	0 60200 0 01347	3180		SLW	G INTO G, AND	4F13232
	06027	0 07400 1 03321	3181		TSX	TET00,1 * GO ENTER IN THE	4F13233
	06030	0 00000 0 00011	3182		PZE	9 CLOSUB TABLE.	4F13234
D	06031	1 00000 0 01731	3183		TXI	CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.	4F13235
			3184			END OF PROGRAM LIB.	4F13236
			3185			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13237
			3186				4F13236
			3187			VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF.	4F13239
			3188			CALLERS=RIT,WOT,EFT.	4F13240
			3189			VRA = ENTRY POINT USED BY EFT.	4F13241
	06032	0 50000 0 02400	3190	VRA	CLA	L(TL) RESET TPOA ADDRESS	4F13242
	06033	0 62100 0 05102	3191		STA	TPOA TO TL.	4F13243
	06034	−0 50000 0 00415	3192		CAL	TXLOP PREPARE TO SET OP-SWITCH TO TRA.	4F13244
	06035	1 77777 4 06037	3193		TXI	VRD1,4,−1 SET RETURN TO TSX+2, AND GO SET OP.	4F13245
			3194			VRD = ENTRY POINT USED BY RIT,WOT.	4F13246
	06036	0 50000 0 00415	3195	VRD	CLA	TXLOP PREPARE TO SET OP-SWITCH TO NOP.	4F13247
	06037	0 63000 0 06052	3196	VRD1	STP	VRX SET VRX OP-SWITCH.	4F13248
	06040	−0 63400 4 06052	3197		SXD	VRX,4 SAVE THE C(XR4) FOR RETURN.	4F13249
	06041	0 07400 1 05773	3198		TSX	IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR.	4F13250
	06042	0 07400 4 03400	3199		TSX	DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE.	4F13251
	06043	0 07400 1 03321	3200		TSX	TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE	4F13252
	06044	0 00000 0 00005	3201		PZE	5 ENTRY IN FORVAR TABLE.	4F13253
	06045	0 07400 4 01731	3202		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13254
	06046	0 00000 0 01367	3203		PZE	SL WORD1--0(IFN)000	4F13255
	06047	0 00000 0 01537	3204		PZE	CAL WORD2--CAL000	4F13256
	06050	0 00000 0 17404	3205		PZE	SYM WORD3--(FXD-PT SYMBOL)	4F13257
	06051	0 00000 0 01406	3206		PZE	L(0) WORD4--000000	4F13258
	06052	3 00000 0 06055	3207	VRX	TXH	VDA,0,** SWITCH (TXL=TRA, TXH=NOP).	4F13259
	06053	−0 50000 0 06121	3208		CAL	STD PICKUP STD000, AND	4F13260
	06054	1 00000 0 06076	3209	XRW	TXI	RVX,0,** GO SET TOP.	4F13261
	06055	0 50000 0 06140	3210	VDA	CLA	CON IF CON	4F13262
	06056	0 10000 0 06070	3211		TZE	SDA IS NOT ZERO,	4F13263
	06057	0 60100 0 01347	3212		STO	G THEN	4F13264
	06060	0 07400 4 00417	3213		TSX	FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG.	4F13265
	06061	0 76700 0 00022	3214		ALS	18 ADJUST TAG, AND	4F13266
	06062	0 60100 0 17402	3215		STO	RA SET RA.	4F13267
	06063	0 07400 4 01731	3216		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY.	4F13268
	06064	0 00000 0 01406	3217		PZE	L(0) WORD1--000000	4F13269
	06065	0 00000 0 01532	3218		PZE	ADD WORD2--ADD000	4F13270
	06066	0 00000 0 01501	3219		PZE	2P WORD3--200000	4F13271
	06067	0 00000 0 17402	3220		PZE	RA WORD4--(FIXCON TAG)	4F13272
	06070	0 07400 4 01731	3221	SDA	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13273
	06071	0 00000 0 01406	3222		PZE	L(0) WORD1--000000	4F13274
	06072	0 00000 0 01535	3223		PZE	ARS WORD2--ARS000	4F13275
	06073	0 00000 0 01406	3224		PZE	L(0) WORD3--000000	4F13276
	06074	0 00000 0 01466	3225		PZE	D18 NORD4--0(18)000	4F13277
	06075	−0 50000 0 01571	3226		CAL	STA PICKUP STA000, AND	4F13278
	06076	0 60200 0 06142	3227	RVX	SLW	TOP SET TOP TO STA OR STD.	4F13279
	06077	0 07400 4 02372	3228		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13280
	06100	0 07400 4 01731	3229		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13281
	06101	0 00000 0 01406	3230		PZE	L(0) WORD1--000000	4F13282
	06102	0 00000 0 06142	3231		PZE	TOP WORD2--STA000 OR STD000	4F13283
	06103	0 00000 0 01371	3232		PZE	TL WORD3--0(IFN)000	4F13284
	06104	0 00000 0 01406	3233		PZE	L(0) WORD4--000000	4F13285
	06105	−0 75400 0 05555	3234	NLA	PXD	LAST,0 CLEAR THE AC,	4F13286
	06106	−0 53400 4 06052	3235		LXD	VRX,4 RESTORE THE C(XR4), AND	4F13287
	06107	0 02000 4 00001	3236		TRA	1,4 * EXIT TO CALLER.	4F13288
			3237			END OF PROGRAM VRA(VRD).	4F13289
			3238			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13290
			3239			,	4F13291
			3240			STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=	4F13292
			3241				4F13293
	06110	222324000000	3242	BCD	BCD	1BCD000 CONSTANT USED BY IOT.	4F13294
	06111	226263000000	3243	BST	BCD	1BST000 CONSTANT USED BY IOT.	4F13295
	06112	256344000000	3244	ETM	BCD	1ETM000 CONSTANT USED BY IOT.	4F13296
	06113	436344000000	3245	LTM	BCD	1LTM000 CONSTANT USED BY IOT.	4F13297
	06114	456351000000	3246	NTR	BCD	1NTR000 CONSTANT USED BY IOT.	4F13298
	06115	512451000000	3247	RDR	BCD	1RDR000 CONSTANT USED BY IOT.	4F13299
	06116	512566000000	3248	REW	BCD	1REW000 CONSTANT USED BY IOT.	4F13300
	06117	516322000000	3249	RTB	BCD	1RTB000 CONSTANT USED BY IOT.	4F13301
	06120	624366000000	3250	SLW	BCD	1SLW000 CONSTANT USED BY IOT.	4F13302
	06121	626324000000	3251	STD	BCD	1STD000 CONSTANT USED BY IOT.	4F13303
	06122	662451000000	3252	WDR	BCD	1WDR000 CONSTANT USED BY IOT.	4F13304
	06123	662526000000	3253	WEF	BCD	1WEF000 CONSTANT USED BY IOT.	4F13305
	06124	666322000000	3254	WTB	BCD	1WTB000 CONSTANT USED BY IOT.	4F13306
	06125	673163000000	3255	XIT	BCD	1XIT000 CONSTANT USED BY IOT.	4F13307
	06126	742224233460	3256	BDC	BCD	1(BDC)␣ CONSTANT USED BY IOT.	4F13308
	06127	742362303460	3257	CSH	BCD	1(CSH)␣ CONSTANT USED BY IOT.	4F13309
	06130	742422233460	3258	DBC	BCD	1(DBC)␣ CONSTANT USED BY IOT.	4F13310
	06131	742631433460	3259	FIL	BCD	1(FIL)␣ CONSTANT USED BY IOT.	4F13311
	06132	744325653460	3260	LEV	BCD	1(LEV)␣ CONSTANT USED BY IOT.	4F13312
	06133	745163453460	3261	RTN	BCD	1(RTN)␣ CONSTANT USED BY IOT.	4F13313
	06134	746223303460	3262	SCH	BCD	1(SCH)␣ CONSTANT USED BY IOT.	4F13314
	06135	746247303460	3263	SPH	BCD	1(SPH)␣ CONSTANT USED BY IOT.	4F13315
	06136	746263303460	3264	STH	BCD	1(STH)␣ CONSTANT USED BY IOT.	4F13316
	06137	746362303460	3265	TSH	BCD	1(TSH)␣ CONSTANT USED BY IOT.	4F13317
			3266				4F13318
		06140	3267	CON	BSS	1 VARIABLE USED BY IOT.	4F13319
	06141	0 00000 0 00000	3268	END	PZE	** VARIABLE USED BY IOT.	4F13320
		06142	3269	TOP	BSS	1 VARIABLE USED BY IOT.	4F13322
	06143	0 00000 0 00000	3270	TSA	PZE	** VARIABLE USED BY IOT.	4F13323
	06144	0 00000 0 00000	3271	TTA	PZE	** VARIABLE USED BY IOT.	4F13324
			3272				4F13325
			3273			DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).	4F13326
	06145	+244677274663	3274	DIC	OCT	244677274663 DO-GOT	4F13327
	06146	−067731267462	3275		OCT	−67731267462 O-IF(S	4F13328
	06147	+254562256266	3276		OCT	254562256266 ENSESW	4F13329
	06150	+316323307731	3277		OCT	316323307731 ITCH-I	4F13330
	06151	+267462254562	3278		OCT	267462254562 F(SENS	4F13331
	06152	+254331273063	3279		OCT	254331273063 ELIGHT	4F13332
	06153	−373126243165	3280		OCT	−373126243165 -IFDIV	4F13333
	06154	+312425233025	3281		OCT	312425233025 IDECHE	4F13334
	06155	+234277312621	3282		OCT	234277312621 CK-IFA	4F13335
	06156	+232364446443	3283		OCT	232364446443 CCUMUL	4F13336
	06157	+216346514665	3284		OCT	216346514665 ATOROV	4F13337
	06160	+255126434666	3285		OCT	255126434666 ERFLOW	4F13338
	06161	−373126506446	3286		OCT	−373126506446 -IFQUO	4F13339
	06162	−233125456346	3287		OCT	−233125456346 TIENTO	4F13340
	06163	−252551264346	3288		OCT	−252551264346 VERFLO	4F13341
	06164	−267731267721	3289		OCT	−267731267721 W-IF-A	4F13342
	06165	−226231274577	3290		OCT	−226231274577 SSIGN-	4F13343
	06166	−226346477747	3291		OCT	−226346477747 STOP-P	4F13344
	06167	+216462257762	3292		OCT	216462257762 AUSE-S	4F13345
	06170	+254562254331	3293		OCT	254562254331 ENSELI	4F13346
	06171	+273063772431	3294		OCT	273063772431 GHT-DI	4F13347
	06172	−042545623146	3295		OCT	−42545623146 MENSIO	4F13348
	06173	−057725506431	3296		OCT	−57725506431 N-EQUI	4F13349
	06174	−252143254523	3297		OCT	−252143254523 VALENC	4F13350
	06175	+257726512550	3298		OCT	257726512550 E-FREQ	4F13351
	06176	−242545237077	3299		OCT	−242545237077 UENCY-	4F13352
	06177	+234645633145	3300		OCT	234645633145 CONTIN	4F13353
	06200	−242577512521	3301		OCT	−242577512521 UE-REA	4F13354
	06201	+246321472577	3302		OCT	246321472577 DTAPE-	4F13355
	06202	−112521243145	3303		OCT	−112521243145 READIN	4F13356
	06203	−076463632147	3304		OCT	−76463632147 PUTTAP	4F13357
	06204	+257751252124	3305		OCT	257751252124 E-READ	4F13358
	06205	+245164447751	3306		OCT	245164447751 DRUM-R	4F13359
	06206	+252124776651	3307		OCT	252124776651 EAD-WR	4F13360
	06207	+316325632147	3308		OCT	316325632147 ITETAP	4F13361
	06210	+257766513163	3309		OCT	257766513163 E-WRIT	4F13362
	06211	+254664634764	3310		OCT	254664634764 EOUTPU	4F13363
	06212	−236321472577	3311		OCT	−236321472577 TTAPE-	4F13364
	06213	−265131632524	3312		OCT	−265131632524 WRITED	4F13365
	06214	−116444774751	3313		OCT	−116444774751 RUM-PR	4F13366
	06215	+314563774764	3314		OCT	314563774764 INT-PU	4F13367
	06216	−052330775125	3315		OCT	−52330775125 NCH-RE	4F13368
	06217	−263145247722	3316		OCT	−263145247722 WIND-B	4F13369
	06220	+212342624721	3317		OCT	212342624721 ACKSPA	4F13370
	06221	+232577254524	3318		OCT	232577254524 CE-END	4F13371
	06222	+263143257726	3319		OCT	263143257726 FILE-F	4F13372
	06223	−065144216377	3320		OCT	−65144216377 ORMAT-	4F13373
	06224	−226422514664	3321		OCT	−226422514664 SUBROU	4F13374
	06225	−233145257723	3322		OCT	−233145257723 TINE-C	4F13375
	06226	−064444464577	3323		OCT	−064444464577 OMMON-	4F13376
	06227	−112563645145	3324		OCT	−112563645145 RETURN	4F13377
	06230	−372321434377	3325		OCT	−372321434377 -CALL-	4F13378
	06231	+254524747726	3326		OCT	254524747726 END(-F	4F13379
	06232	−244523633146	3327		OCT	−244523633146 UNCTIO	4F13380
	06233	−057777777777	3328		OCT	−057777777777 N-----.	4F13381
		06234	3329		BSS	10	4F133815
			3330			END OF DICTIONARY.	4F13382
			3331			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13383
			3332				4F13384
			3333			T/ TRANSFER TABLE (USED BY CC000).	4F13385
D	06246	1 00000 0 03653	3334	T	TXI	C0100,0 DO.	4F13386
D	06247	1 00000 0 03720	3335		TXI	C0200,0 G0 TO.	4F13387
D	06250	1 00000 0 04106	3336		TXI	C0400,0 IF (SENSE SWITCH.	4F13388
D	06251	1 00000 0 04150	3337		TXI	C0500,0 IF (SENSE LIGHT.	4F13389
D	06252	1 00000 0 04154	3338		TXI	C0600,0 IF DIVIDE CHECK.	4F13390
D	06253	1 00000 0 04162	3339		TXI	C0700,0 IF AC OVERFLOW.	4F13391
D	06254	1 00000 0 04166	3340		TXI	C0800,0 IF MQ OVERFLOW.	4F13392
D	06255	1 00000 0 04033	3341		TXI	C0300,0 IF.	4F13393
D	06256	1 00000 0 04216	3342		TXI	C1000,0 ASSIGN.	4F13394
D	06257	1 00000 0 04343	3343		TXI	C1300,0 STOP.	4F13395
D	06260	1 00000 0 04170	3344		TXI	C0900,0 PAUSE.	4F13396
D	06261	1 00000 0 04251	3345		TXI	C1100,0 SENSE LIGHT.	4F13397
D	06262	−3 00000 0 04266	3346		TXL	C1200,0 DIMENSION.	4F13398
D	06263	−3 00000 0 04375	3347		TXL	C1500,0 EQUIVALENCE.	4F13399
D	06264	−3 00000 0 04354	3348		TXL	C1400,0 FREQUENCY.	4F13400
D	06265	1 00000 0 04433	3349		TXI	C1600,0 CONTINUE.	4F13401
D	06266	1 00000 0 05012	3350		TXI	RBT,0 READ TAPE.	4F13402
D	06267	1 00000 0 04745	3351		TXI	RIT,0 READ INPUT TAPE.	4F13403
D	06270	1 00000 0 05063	3352		TXI	RDD,0 READ DRUM.	4F13404
D	06271	1 00000 0 04673	3353		TXI	RDC,0 READ CARD.	4F13405
D	06272	1 00000 0 04777	3354		TXI	WBT,0 WRITE TAPE.	4F13406
D	06273	1 00000 0 04764	3355		TXI	WOT,0 WRITE OUTPUT TAPE.	4F13407
D	06274	1 00000 0 05044	3356		TXI	WRD,0 WRITE DRUM.	4F13408
D	06275	1 00000 0 04753	3357		TXI	RDP,0 PRINT.	4F13409
D	06276	1 00000 0 04772	3358		TXI	PDC,0 PUNCH.	4F13410
D	06277	1 00000 0 05107	3359		TXI	RWN,0 REWIND.	4F13411
D	06300	1 00000 0 05111	3360		TXI	BSP,0 BACKSPACE.	4F13412
D	06301	1 00000 0 05066	3361		TXI	EFT,0 END FILE.	4F13413
D	06302	−3 00000 0 05113	3362		TXL	FOR,0 FORMAT.	4F13414
D	06303	−3 00000 0 04442	3363		TXL	C3000,0 SUBROUTINE.	4F13415
D	06304	−3 00000 0 04512	3364		TXL	C3100,0 COMMON.	4F13416
D	06305	1 00000 0 04536	3365		TXI	C3200,0 RETURN.	4F13417
D	06306	1 00000 0 04607	3366		TXI	C3300,0 CALL.	4F13418
D	06307	−3 00000 0 04660	3367		TXL	C3400,0 END.	4F13419
D	06310	−3 00000 0 04440	3368		TXL	C3500,0 FUNCTION.	4F13420
		06311	3369		BSS	10	4F134205
			3370			END OF TRANSFER TABLE.	4F13421
		06323	3371	STATEB	BSS	0	4F134215
			3372			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13422
			3373				4F13423
		17307	3374		ORG	3783+4096	4F13424
		17307	3375	BIN	BSS	1 VARIABLE USED BY IOT.	4F13425
		17316	3376	CHR	BES	6 VARIABLE USED BY IOT. 4	4F13426
		17316	3377		BSS	50 PARAMETERS FOR TLDOS TABLE -IOT.	4F13427
		17400	3378	DOLEV	BSS	1 PARAMETERS FOR TLDOS TABLE -IOT.	4F13428
		17401	3379	OP	BSS	1 VARIABLE USED BY IOT.	4F13429
		17402	3380	RA	BSS	1 VARIABLE USED BY IOT.	4F13430
		17403	3381	SA	BSS	1 VARIABLE USED BY IOT.	4F13431
		17404	3382	SYM	BSS	1 VARIABLE USED BY IOT.	4F13432
		17405	3383	TLDOS	BSS	250 DO TABLE USED BY IOT.	4F13433
			3384			END OF WORKING STORAGE USED BY STATEA.	4F13434
			3385			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13435
			3386				4F13436
			3387			END OF THE NON-ARITHMETIC PART OF SECTION ONE.	4F13437
			3388				4F13438
			3389			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13439
			3390				4F13440
			3391			ARITHMETIC / STATE B=	4F13441
		00000	3392		ORG	0	4F13442
	00000	0 00471 0 06323	3393		PZE	STATEB,,FORSUB	4F13443
	00001	0 00000 0 12764	3394		PZE	ENDD	4F13444
		06323	3395		ORG	STATEB	4F134441
			3396				4F13445
			3397			THIS IS A RECODED VERSI0N 0F STATE B OF SECTION ONE, 704	4F13446
			3398			FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL	4F13447
			3399			ANALYSIS HAS BEEN FOLDED OVER.	4F13448
			3400				4F13449
			3401			STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS.	4F13450
			3402			THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS	4F13451
			3403			IN THE F REGION OF COMMON AND IS IN BCD.	4F13452
			3404			EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD	4F13453
			3405			( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN	4F13454
			3406			TABLES AND GIVEN AN INTERNAL VARIABLE NAME.	4F13455
			3407			LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT	4F13456
			3408			WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (	4F13457
			3409			AND THE OPERATOR WHICH PRECEDES IT.	4F13458
	06323	0 76000 0 00140	3410		SLF		4F13459
	06324	0 50000 0 07624	3411		CLA	SIG1ST	4F13460
	06325	0 60100 0 00445	3412		STO	SIG1IX−3	4F13461
	06326	0 60000 0 01122	3413		STZ	ARGCTR CLEAR	4F13462
	06327	0 60000 0 01124	3414		STZ	CHSAVE X	4F13463
	06330	0 60000 0 01117	3415		STZ	3LBAR X	4F13464
	06331	0 60000 0 01360	3416		STZ	NBAR X	4F13465
	06332	0 60000 0 15277	3417		STZ	CBAR X	4F13466
	06333	0 60000 0 15300	3418		STZ	ABAR X	4F13467
	06334	0 60000 0 15301	3419		STZ	FSTYPE X	4F13468
	06335	−0 53400 4 01507	3420		LXD	1BAR,4 SET NBAR=-1	4F13469
	06336	−0 63400 4 01360	3421		SXD	NBAR,4 X	4F13470
	06337	−0 50000 0 01500	3422		CAL	E( SET ARERAS - E(	4F13471
	06340	0 60200 0 01120	3423		SLW	ARERAS X	4F13472
	06341	0 07400 4 01671	3424		TSX	C0190X,4 SET FWA - -F AND CHCTR - 0	4F13473
	06342	−0 50000 0 00422	3425		CAL	TXHOP SET SWITCHES FOR LEFT SCAN.	4F13474
	06343	0 63000 0 06446	3426		STP	MS093 X	4F13475
	06344	0 63000 0 06652	3427		STP	MS310 X	4F13476
	06345	0 63000 0 06633	3428		STP	MS321 X	4F13477
	06346	−0 50000 0 01512	3429	MS010	CAL	ADPLUS SET OP TO ADDITION	4F13478
	06347	0 60200 0 01127	3430	MS030	SLW	E+1 X	4F13479
	06350	0 60000 0 15303	3431		STZ	FNBITS CLEAR FUNCTION NAME INDICATOR	4F13480
	06351	0 60000 0 15304	3432		STZ	FNCTR CLEAR FUNCTION ARG COUNTER.	4F13481
	06352	0 60000 0 01347	3433		STZ	G CLEAR RECEIVING CELL.	4F13482
	06353	0 50200 0 01406	3434		CLS	L(0) SET E = -0	4F13483
	06354	0 60100 0 01126	3435		STO	E X	4F13484
	06355	0 53400 2 01414	3436		LXA	L(6),2 SET IR2 FOR SIX CHARS.	4F13485
	06356	−0 50000 0 01124	3437	MS040	CAL	CHSAVE CHAR IN CHSAVE, IF ANY, TO AC.	4F13486
	06357	−0 10000 0 06361	3438		TNZ	MS041 X	4F13487
	06360	0 07400 4 01707	3439		TSX	C0190,4 CHSAVE EMPTY, GET NEXT CHAR.	4F13488
	06361	0 34000 0 01417	3440	MS041	CAS	L(9) IS CHAR. NUMERIC.	4F13489
	06362	0 02000 0 06367	3441		TRA	MS050 N/, TAKE TRA	4F13490
D	06363	3 00000 0 07302	3442	MS4007	TXH	CM4100,0	4F13491
	06364	0 07400 4 07346	3443		TSX	ROYCNV,4 X	4F13492
	06365	0 02000 0 06713	3444		TRA	HOLL RETURN 1, THIS WAS HOLLERITH.	4F13493
	06366	0 02000 0 06761	3445		TRA	LATXH THIS WAS FIXED OR FLOATING CONSTANT.	4F13494
	06367	0 53400 4 01373	3446	MS050	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13495
	06370	0 34000 4 01406	3447	MS051	CAS	CTEST,4	4F13496
	06371	0 02000 0 06373	3448		TRA	MS052 X	4F13497
	06372	0 02000 0 06426	3449		TRA	MS090 CHAR IS SOME PUNCTUATION.	4F13498
	06373	2 00001 4 06370	3450	MS052	TIX	MS051,4,1 X	4F13499
	06374	0 76700 2 00044	3451	MS060	ALS	36,2 POSITI0N CHAR FOR BUILDING SYMBOL.	4F13500
	06375	−0 60200 0 01347	3452		ORS	G ADD CHAR TO THOSE IN G.	4F13501
	06376	1 00006 2 06377	3453		TXI	MS061,2,6 UPDATE POSITIONING TAG.	4F13502
	06377	0 07400 4 01707	3454	MS061	TSX	C0190,4 GET NEXT CHAR.	4F13503
	06400	0 53400 4 01373	3455	MS070	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13504
	06401	0 34000 4 01406	3456	MS071	CAS	CTEST,4 X	4F13505
	06402	0 02000 0 06404	3457		TRA	MS072 X	4F13506
	06403	0 02000 0 06430	3458		TRA	MS091 CHAR IS SOME PUNCTUATION.	4F13507
	06404	2 00001 4 06401	3459	MS072	TIX	MS071,4,1 X	4F13508
	06405	−3 00022 2 06374	3460		TXL	MS060,2,18 IF THIS IS CHAR 1, 2 /R 3 GO BUILD G.	4F13509
	06406	0 34000 0 01422	3461		CAS	L(F) IS THIS AN F ENDING FUNCTION NAME.	4F13510
	06407	0 02000 0 06411	3462		TRA	MS073 X	4F13511
	06410	0 02000 0 06413	3463		TRA	MS080 MAYBE, GO LOOK AT NEXT CHAR.	4F13512
	06411	−3 00044 2 06374	3464	MS073	TXL	MS060,2,36 TEST FOR UNDER 7 CHARS.	4F13513
	06412	0 07400 4 03400	3465	MS074	TSX	DIAG,4 BUILD G, 7TH CHAR IS ERROR.	4F13514
	06413	0 07400 4 01707	3466	MS080	TSX	C0190,4 GET NEXT CHAR.	4F13515
	06414	0 34000 0 01375	3467		CAS	OPEN TEST FOR (.	4F13516
	06415	0 02000 0 06417	3468		TRA	MS081 X	4F13517
	06416	0 02000 0 06440	3469		TRA	MS092 YES, THIS IS A FUNCTION NAME.	4F13518
	06417	0 60100 0 01331	3470	MS081	STO	FIRSTC NO, SAVE CURRENT CHAR.	4F13519
	06420	−0 50000 0 01422	3471		CAL	L(F) ADD F TO CONTENTS OF G.	4F13520
	06421	0 76700 2 00044	3472		ALS	36,2 X	4F13521
	06422	−0 60200 0 01347	3473		ORS	G X	4F13522
	06423	3 00044 2 06412	3474		TXH	MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR.	4F13523
	06424	0 50000 0 01331	3475		CLA	FIRSTC RESTORE CURRENT CHAR.	4F13524
	06425	1 00006 2 06400	3476		TXI	MS070,2,6 UPDATE POSITIONING TAG.	4F13525
	06426	0 60000 0 01124	3477	MS090	STZ	CHSAVE CLEAR	4F13526
	06427	0 02000 4 06562	3478		TRA	TRBLKA,4	4F13527
	06430	0 60200 0 01124	3479	MS091	SLW	CHSAVE OP IS IN NEXT ELEMENT, SAVE.	4F13528
	06431	−0 50000 0 01430	3480		CAL	BLANK ADD,BLANK TO CHARS IN G.	4F13529
	06432	0 76700 2 00044	3481		ALS	36,2 X	4F13530
	06433	−0 60200 0 01347	3482		ORS	G X	4F13531
	06434	0 56000 0 01347	3483		LDQ	G MOVE G TO E+2 AND TO G+1.	4F13532
	06435	−0 60000 0 01130	3484		STQ	E+2 X	4F13533
	06436	−0 60000 0 01350	3485		STQ	G+1 X	4F13534
	06437	0 02000 4 06612	3486		TRA	TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE	4F13535
	06440	−0 75400 0 00000	3487	MS092	PXD	,0 CLEAR	4F13536
	06441	0 56000 0 01526	3488		LDQ	BLANKS ADD BLANKS TO SUBROUTINE NAME IN G.	4F13537
	06442	−0 76300 2 00052	3489		LGL	42,2 X	4F13538
	06443	−0 50100 0 01347	3490		ORA	G X	4F13539
	06444	0 60200 0 01347	3491		SLW	G X	4F13540
	06445	0 60200 0 01130	3492		SLW	E+2 MOVE FUNCTION NAME TO E+2.	4F13541
U	06446	00000 0 06711	3493	MS093	***	MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.	4F13542
	06447	−0 53400 4 00470	3494		LXD	BK,4 THIS IS ARITH FUNCTION STATEMENT.	4F13543
	06450	0 60200 4 00471	3495		SLW	FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE.	4F13544
	06451	−0 50000 0 00030	3496		CAL	EIFNO ENTER INTERNAL FORMULA NO IN FORSUB.	4F13545
	06452	−0 32000 0 01527	3497		ANA	MASK1 X	4F13546
	06453	0 60100 4 00472	3498		STO	FORSUB+1,4 X	4F13547
	06454	1 77776 4 06455	3499		TXI	FS010,4,−2 UPDATE COUNT OF ENTRIES IN FORSUB.	4F13548
	06455	−0 63400 4 00470	3500	FS010	SXD	BK,4 X	4F13549
	06456	0 07400 4 01707	3501	FS020	TSX	C0190,4 GET FIRST CHAR OF ARGUMENT.	4F13550
	06457	0 34000 0 01400	3502		CAS	EQUAL TEST FOR EQUAL.	4F13551
	06460	0 02000 0 06462	3503		TRA	FS030 X	4F13552
	06461	0 02000 0 06640	3504		TRA	MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+2	4F13553
	06462	0 34000 0 01417	3505	FS030	CAS	L(9) TEST FOR ILLEGAL ARGUMENT.	4F13554
	06463	0 02000 0 06466	3506		TRA	FS040 LEGAL, CONTINUE	4F13555
D	06464	3 00000 0 07312	3507	MS9002	TXH	CM4200,0	4F13556
	06465	0 07400 4 03400	3508		TSX	DIAG,4 BEGINS NUMERIC, ERROR.	4F13557
	06466	0 07400 2 01624	3509	FS040	TSX	C0160,2 COLLECT ARGUMENT NAME IN 1G.	4F13558
	06467	0 07400 4 03255	3510		TSX	TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR)	4F13559
	06470	−0 53400 2 01122	3511		LXD	ARGCTR,2 GET COUNT OF ARGUMENTS	4F13560
	06471	0 56000 0 01112	3512		LDQ	1G ENTER ARGUMENT NAME IN ARGREG TABLE.	4F13561
	06472	−0 60000 2 15215	3513		STQ	ARGREG,2 X	4F13562
	06473	1 77777 2 06474	3514		TXI	FS050,2,−1 UPDATE COUNT OF ARGUMENTS.	4F13563
	06474	−0 63400 2 01122	3515	FS050	SXD	ARGCTR,2	4F13564
	06475	3 77716 2 06456	3516		TXH	FS020,2,−50 TEST FOR ARGREG TABLE OVERFLOW.	4F13565
	06476	0 07400 4 03400	3517		TSX	DIAG,4 YES, ERROR.	4F13566
	06477	0 07400 4 07353	3518	MS200	TSX	DECPNT,4 CONVERT BCD NUMBER T0 BINARY	4F13567
	06500	0 07400 4 03400	3519		TSX	DIAG,4 HOLLERITH RETURN, ERROR.	4F13568
	06501	0 02000 0 06761	3520		TRA	LATXH FLOATING POINT CONSTANT RETURN.	4F13569
	06502	0 76000 0 00141	3521	MS210	SLN	1 TURN , LITE ON.	4F13570
	06503	−0 53400 1 01117	3522		LXD	3LBAR,1 PERFORM LEVEL ANALYSIS FOR ,	4F13571
	06504	−0 53400 4 15300	3523		LXD	ABAR,4	4F13572
	06505	0 50200 4 15301	3524		CLS	ALPHA−4,4	4F13573
	06506	0 60100 1 15520	3525		STO	LAMBDA,1	4F13574
	06507	−0 50000 0 01522	3526		CAL	ADSPOP	4F13575
	06510	0 60200 1 15521	3527		SLW	LAMBDA+1,1	4F13576
	06511	0 50000 0 01360	3528		CLA	NBAR	4F13577
	06512	0 77100 0 00022	3529		ARS	18	4F13578
	06513	0 60100 1 15522	3530		STO	LAMBDA+2,1	4F13579
	06514	1 77775 1 06515	3531		TXI	MS211,1,−3	4F13580
	06515	−0 63400 1 01117	3532	MS211	SXD	3LBAR,1	4F13581
	06516	−0 53400 1 01360	3533		LXD	NBAR,1	4F13582
	06517	−0 63400 1 15277	3534		SXD	CBAR,1	4F13583
	06520	1 77777 1 06521	3535		TXI	MS212,1,−1	4F13584
	06521	−0 63400 1 01360	3536	MS212	SXD	NBAR,1	4F13585
	06522	1 00003 4 06523	3537		TXI	MS213,4,3	4F13586
	06523	−0 63400 4 15300	3538	MS213	SXD	ABAR,4	4F13587
	06524	0 02000 0 06346	3539		TRA	MS010	4F13588
	06525	−0 53400 4 15300	3540	MS220	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOR )	4F13589
	06526	0 50000 4 15301	3541		CLA	ALPHA−4,4	4F13590
	06527	0 73400 1 00000	3542		PAX	,1	4F13591
	06530	−0 63400 1 15277	3543		SXD	CBAR,1	4F13592
	06531	1 00004 4 06532	3544		TXI	MS221,4,4	4F13593
	06532	−0 63400 4 15300	3545	MS221	SXD	ABAR,4	4F13594
	06533	0 02000 0 07310	3546		TRA	MS020	4F13595
	06534	−0 53400 4 15300	3547	MS230	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK.	4F13596
	06535	1 00003 4 06536	3548		TXI	MS231,4,3	4F13597
	06536	−3 00000 4 06540	3549	MS231	TXL	MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO,	4F13598
	06537	0 07400 4 03400	3550		TSX	DIAG,4 NO, ERROR.	4F13599
	06540	−0 53400 4 01122	3551	MS232	LXD	ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT	4F13600
	06541	−3 00000 4 07625	3552		TXL	STATEC,4,0	4F13601
	06542	−0 50000 0 15301	3553		CAL	FSTYPE YES, UPDATE FUNCTION TYPE AND	4F13602
	06543	0 40000 0 01407	3554		ADD	L(1) COMPLETE FORSUB ENTRY BY ASSIGNING	4F13603
	06544	−0 53400 1 00470	3555		LXD	BK,1 TYPE NUMBER.	4F13604
	06545	0 62100 1 00470	3556		STA	FORSUB−1,1 X	4F13605
	06546	−0 60200 0 01120	3557		ORS	ARERAS ALSO SAVE FOR LATER REFERENCF.	4F13606
	06547	0 02000 0 07625	3558		TRA	STATEC	4F13607
	06550	0 02000 0 06534	3559		TRA	MS230 ENDMK	4F13608
	06551	0 02000 0 06575	3560		TRA	MS260 (	4F13609
	06552	0 02000 0 06502	3561		TRA	MS210 ,	4F13610
	06553	0 02000 0 06525	3562		TRA	MS220 )	4F13611
	06554	0 07400 4 03400	3563	MSERR=	TSX	DIAG,4 =	4F13612
	06555	0 02000 0 06572	3564		TRA	MS250 -	4F13613
	06556	0 02000 0 06572	3565		TRA	MS250 /	4F13614
	06557	0 02000 0 06477	3566		TRA	MS200 .	4F13615
	06560	0 02000 0 06572	3567		TRA	MS250 +	4F13616
	06561	0 76700 0 00036	3568	MS240	ALS	30 * SAVE *	4F13617
		06562	3569	TRBLKA	BSS	0	4F13618
	06562	0 60200 0 01127	3570		SLW	E+1 X	4F13619
	06563	0 07400 4 01707	3571		TSX	C0190,4 GET NEXT CHAR.	4F13620
	06564	0 34000 0 01405	3572		CAS	STAR IS IT *	4F13621
	06565	0 02000 0 06361	3573		TRA	MS041 X	4F13622
	06566	0 02000 0 06570	3574		TRA	MS241 YES, THIS WAS **	4F13623
	06567	0 02000 0 06361	3575		TRA	MS041 NO, GO COMPARE TO OTHER PUNCTUATION.	4F13624
	06570	−0 50000 0 01525	3576	MS241	CAL	STRSTR REPLACE * WITH **	4F13625
	06571	0 02000 0 06573	3577		TRA	MS251 X	4F13626
	06572	0 76700 0 00036	3578	MS250	ALS	30 POSITI0N CHAR WHICH IS + OR - OR /	4F13627
	06573	0 60200 0 01127	3579	MS251	SLW	E+1 PUT CURRENT OP IN E+1.	4F13628
	06574	0 02000 0 06356	3580		TRA	MS040 NOW GO COLLECT SYMBOL.	4F13629
	06575	0 76700 0 00036	3581	MS260	ALS	30 ( TO SYMBOL WORD	4F13630
	06576	0 60200 0 01130	3582		SLW	E+2 X	4F13631
	06577	0 02000 0 06757	3583		TRA	LATXL GO PERFORM LEVEL ANALYSIS FOR (	4F13632
	06600	0 02000 0 06611	3584		TRA	MS300 ENDMK	4F13633
	06601	0 02000 0 06632	3585		TRA	MS320 (	4F13634
	06602	0 02000 0 06611	3586		TRA	MS300 ,	4F13635
	06603	0 02000 0 06611	3587		TRA	MS300 )	4F13636
	06604	0 02000 0 06652	3588		TRA	MS310 =	4F13637
	06605	0 02000 0 06611	3589		TRA	MS300 -	4F13638
	06606	0 02000 0 06611	3590		TRA	MS300 /	4F13639
	06607	0 07400 4 03400	3591		TSX	DIAG,4 .	4F13640
	06610	0 02000 0 06611	3592		TRA	MS300 +	4F13641
	06611	−0 75400 0 00000	3593	MS300	PXD	,0 * CLEAR	4F13642
		06612	3594	TRBLKB	BSS	0 BASE ADDRESS FOR TAGGED TRANSFER.	4F13643
	06612	−0 76300 0 00006	3595		LGL	6 GET FIRST CHAR OF SYMBOL.	4F13644
	06613	0 07400 1 03242	3596		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT.	4F13645
	06614	0 02000 0 06757	3597		TRA	LATXL FLOATING, GO PERFORM LEVEL ANALYSIS.	4F13646
	06615	−0 50000 0 00030	3598		CAL	EIFNO FIXED, PREPARE FORVAR ENTRY.	4F13647
	06616	−0 32000 0 01527	3599		ANA	MASK1 X	4F13648
	06617	0 60200 0 01347	3600		SLW	G X	4F13649
	06620	0 07400 1 03321	3601		TSX	TET00,1 MAKE FORVAR ENTRY.	4F13650
	06621	0 00000 0 00005	3602			5	4F13651
	06622	−0 75400 0 00000	3603		PXD	,0	4F13652
	06623	0 56000 0 01356	3604		LDQ	LEFT+2	4F13653
	06624	−0 76300 0 00014	3605		LGL	12	4F13654
	06625	0 40200 0 01451	3606		SUB	CALLER	4F13655
	06626	−0 10000 0 06757	3607		TNZ	LATXL	4F13656
	06627	0 07400 1 03321	3608		TSX	TET00,1	4F13657
	06630	0 00000 0 00006	3609			6	4F13658
	06631	0 02000 0 06757	3610		TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13659
	06632	0 60000 0 01124	3611	MS320	STZ	CHSAVE CLEAR CELL FOR OP.	4F13660
U	06633	00000 0 06666	3612	MS321	***	MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN.	4F13661
	06634	0 07400 4 07333	3613		TSX	SS000X,4 G0 PROCESS SUBSCRIPT COMBINATION.	4F13662
	06635	0 07400 4 01707	3614		TSX	C0190,4 GET NEXT CHAR.	4F13663
	06636	0 40200 0 01400	3615		SUB	EQUAL TEST FOR EQUAL SIGN.	4F13664
	06637	−0 10000 0 06554	3616		TNZ	MSERR= NO, ERROR.	4F13665
	06640	0 53400 4 01411	3617	MS322	LXA	L(3),4 MOVE CONTENT4 OF E WORDS TO LEFT WORDS.	4F13666
	06641	0 56000 4 01131	3618	MS323	LDQ	E+3,4 X	4F13667
	06642	−0 60000 4 01357	3619		STQ	LEFT+3,4 X	4F13668
	06643	2 00001 4 06641	3620		TIX	MS323,4,1 X	4F13669
	06644	−0 50000 0 00415	3621	MS311	CAL	TXLOP SET SWITCHES FOR RIGHT SIDE SCAN.	4F13670
	06645	0 63000 0 06446	3622		STP	MS093 X	4F13671
	06646	0 63000 0 06652	3623		STP	MS310 X	4F13672
	06647	0 63000 0 06633	3624		STP	MS321 X	4F13673
	06650	0 76000 0 00141	3625		SLN	1 TURN = OR ) LITE ON.	4F13674
	06651	0 02000 0 06346	3626		TRA	MS010 GO SCAN NEXT ELEMENT.	4F13675
U	06652	00000 0 06554	3627	MS310	***	MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN.	4F13676
	06653	0 60000 0 01124	3628		STZ	CHSAVE CLEAR	4F13677
	06654	−0 75400 0 00000	3629		PXD	,0 CLEAR AC.	4F136775
	06655	−0 76300 0 00006	3630		LGL	6 GET FIRST CHAR OF SYMBOL.	4F13678
	06656	0 07400 1 03242	3631		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT	4F13679
	06657	0 02000 0 06640	3632		TRA	MS322 FLOATING,	4F13680
	06660	−0 50000 0 00030	3633		CAL	EIFNO FIXED, PREPARE FORVAL ENTRY.	4F13681
	06661	−0 32000 0 01527	3634		ANA	MASK1 X	4F13682
	06662	0 60200 0 01347	3635		SLW	G X	4F13683
	06663	0 07400 1 03321	3636		TSX	TET00,1 MAKE FORVAL ENTRY.	4F13684
	06664	0 00000 0 00006	3637			6	4F13685
	06665	0 02000 0 06640	3638		TRA	MS322	4F13686
	06666	0 07400 4 01771	3639	MS330	TSX	DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2,	4F13687
	06667	0 02000 0 06671	3640		TRA	MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF	4F13688
	06670	0 02000 0 06676	3641		TRA	MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE	4F13689
	06671	0 07400 4 01775	3642	MS331	TSX	DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT	4F13690
	06672	0 02000 0 06674	3643		TRA	MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS	4F13691
	06673	0 02000 0 06676	3644		TRA	MS333 ASSUMED TO BE THE NAME OF A FORTRAN II	4F13692
	06674	0 07400 4 02005	3645	MS332	TSX	DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.	4F13693
	06675	0 02000 0 06700	3646		TRA	MS334 X	4F13694
	06676	0 07400 4 07333	3647	MS333	TSX	SS000X,4 . GO PROCESS SUBSCRIPT COMBINATION.	4F13695
	06677	0 02000 0 06761	3648		TRA	LATXH GO PERFORM LEVEL ANALYSIS.	4F13696
	06700	−0 50000 0 01471	3649	MS334	CAL	FNIND NOT FOUND, TREAT AS FUNCTION NAME.	4F13697
	06701	0 60200 0 15303	3650		SLW	FNBITS X	4F13698
	06702	−0 75400 0 00000	3651		PXD	,0 X	4F13699
	06703	0 56000 0 01526	3652		LDQ	BLANKS COMPLETE NAME WITH BLANKS.	4F13700
	06704	−0 76300 2 00052	3653		LGL	42,2 X	4F13701
	06705	−0 60200 0 01347	3654		ORS	G X	4F13702
	06706	−0 60200 0 01130	3655		ORS	E+2 X	4F13703
	06707	0 07400 1 03321	3656		TSX	TET00,1 ENTER NAME IN CLOSUB TABLE.	4F13704
	06710	0 00000 0 00011	3657			9	4F13705
	06711	0 76000 0 00142	3658	MS335	SLN	2 TURN FUNCTION LITE ON.	4F13706
	06712	0 02000 0 06757	3659		TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13707
	06713	0 60000 0 01124	3660	HOLL	STZ	CHSAVE CLEAR CHSAVE	4F13708
	06714	−0 50000 0 01352	3661		CAL	HOLCNT GET CURRENT H(+I WORD	4F13709
	06715	0 60200 0 01130	3662		SLW	E+2	4F13710
	06716	0 53400 2 01103	3663		LXA	N,2 GET NUMBER OF CHARACTERS IN THIS ARG	4F13711
	06717	−0 53400 4 01724	3664		LXD	CHCTR,4 GET CURRENT RESIDUE CHAR COUNT	4F13712
	06720	0 56000 0 01365	3665		LDQ	RESIDU GET CURRENT RESIDU WORD	4F13713
	06721	0 53400 1 01414	3666	C3351	LXA	L(6),1 SET TO COLLECT SIX CHARS	4F13714
	06722	−0 75400 0 00000	3667		PXD	0,0 CLEAR AC	4F13715
	06723	−2 00001 4 06736	3668	C3352	TNX	C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU	4F13716
	06724	−0 76300 0 00006	3669	C33525	LGL	6 GET NEXT CHAR	4F13717
	06725	0 60200 0 01112	3670		SLW	1G STORE WORD	4F13718
	06726	−0 32000 0 01374	3671		ANA	ENDMK BLANK ALL EXCEPT CURRENT CHAR	4F13719
	06727	0 40200 0 01374	3672		SUB	ENDMK TEST FOR INTERNAL ENDMK	4F13720
	06730	−0 10000 0 06732	3673		TNZ	C3353	4F13721
	06731	0 07400 4 03400	3674		TSX	DIAG,4 YES, ERROR, GO TO DIAGNOSTIC.	4F13722
	06732	−0 50000 0 01112	3675	C3353	CAL	1G RETREIVE WORD	4F13723
	06733	−2 00001 2 06746	3676		TNX	C3358,2,1 TEST FOR ALL CHARS COLLECTED	4F13724
	06734	−2 00001 1 06744	3677		TNX	C3356,1,1 TEST FOR SIX CHARS COLLECTED	4F13725
	06735	0 02000 0 06723	3678		TRA	C3352 NOT SIX CHARS YET, CONTINUE COLLECTING	4F13726
	06736	−0 53400 4 01614	3679	C3354	LXD	FWA,4 L0AD MQ WITH NEXT F REGION WORD	4F13727
	06737	0 56000 4 00000	3680		LDQ	0,4	4F13728
	06740	1 77777 4 06741	3681		TXI	C3355,4,−1 UPDATE FWA	4F13729
	06741	−0 63400 4 01614	3682	C3355	SXD	FWA,4	4F13730
	06742	0 53400 4 01414	3683		LXA	L(6),4 RESET MQ CHAR CQUNT T0 SIX	4F13731
	06743	0 02000 0 06724	3684		TRA	C33525 CONTINUE COLLECTING	4F13732
	06744	0 07400 1 07322	3685	C3356	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13733
	06745	1 00000 0 06721	3686	C3357	TXI	C3351,0,** RETURN TO CONTINUE COLLECTING	4F13734
	06746	−0 60000 0 01365	3687	C3358	STQ	RESIDU UPDATE RESIDU	4F13735
	06747	−0 63400 4 01724	3688		SXD	CHCTR,4 UPDATE CHCTR	4F13736
	06750	−2 00001 1 06754	3689		TNX	C3360,1,1 TEST FOR SIX CHARS IN AC, DEC IR1	4F13737
	06751	0 56000 0 01526	3690		LDQ	BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS	4F13738
	06752	−0 76300 0 00006	3691	C3359	LGL	6 ADD BLANKS	4F13739
	06753	2 00001 1 06752	3692		TIX	C3359,1,1	4F13740
	06754	0 07400 1 07322	3693	C3360	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13741
	06755	−0 50000 0 01531	3694		CAL	ALL1 GET WORD OF ONES	4F13742
	06756	0 07400 1 07322	3695		TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13743
			3696			LEVEL ANALYSIS	4F13744
	06757	−0 50000 0 00415	3697	LATXL	CAL	TXLOP	4F13745
	06760	0 02000 0 06762	3698		TRA	LATXL+3	4F13746
	06761	−0 50000 0 00422	3699	LATXH	CAL	TXHOP	4F13747
	06762	0 63000 0 07307	3700		STP	CM4105	4F13748
	06763	0 53400 1 01406	3701	LA0000	LXA	L(0),A	4F13749
	06764	0 50000 0 01130	3702		CLA	E+2	4F13750
	06765	−0 76000 0 00142	3703		SLT	2 IS THIS A FUNCTION NAME	4F13751
	06766	0 02000 0 07027	3704		TRA	LA0000+36 NO	4F13752
	06767	0 76000 0 00142	3705		SLN	2 YES - TURN F LITE BACK ON	4F13753
	06770	−0 53400 4 00470	3706		LXD	BK,C IS FORSUB EMPTY	4F13754
	06771	−3 00000 4 07000	3707		TXL	LA0000+13,C,0 YES. GO SET FS BITS TO 0	4F13755
	06772	−0 63400 4 06777	3708		SXD	LA0000+12,C	4F13756
	06773	0 34000 1 00471	3709		CAS	FORSUB,A SEARCH FN NAME IN FORSUB	4F13757
	06774	1 77776 1 06777	3710		TXI	LA0000+12,A,−2	4F13758
	06775	0 02000 0 07002	3711		TRA	LA0000+15	4F13759
	06776	1 77776 1 06777	3712		TXI	LA0000+12,A,−2	4F13760
	06777	3 00000 1 06773	3713		TXH	LA0000+8,A,0	4F13761
	07000	0 60000 0 15302	3714		STZ	FSBITS SET FSBITS TO 0	4F13762
	07001	0 02000 0 07014	3715		TRA	LA0000+25	4F13763
	07002	−0 50000 1 00472	3716		CAL	FORSUB+1,A FN NAME IN FORSUB	4F13764
	07003	−0 32000 0 01452	3717		ANA	MASK2 EXTRACT TYPE NUMBER	4F14765
	07004	−0 53400 4 01122	3718		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F13766
	07005	−3 00000 4 07011	3719		TXL	LA0000+22,C,0 NO	4F13767
	07006	0 34000 0 15301	3720		CAS	FSTYPE YES - UPDATE FS TYPE	4F13768
	07007	0 62100 0 15301	3721		STA	FSTYPE	4F13769
D	07010	3 00000 0 00000	3722		TXH	0,0	4F13770
	07011	0 76700 0 00007	3723		ALS	7	4F13771
	07012	−0 50100 0 01464	3724		ORA	FSIND	4F13772
	07013	0 60200 0 15302	3725		SLW	FSBITS	4F137)3
	07014	−0 53400 1 01117	3726		LXD	3LBAR,A LOAD LA COUNTERS	4F13774
	07015	−0 53400 2 01360	3727		LXD	NBAR,B	4F13775
	07016	−0 53400 4 15300	3728		LXD	ABAR,C	4F13776
	07017	−3 00000 1 07043	3729		TXL	LA0003,A,0	4F13777
	07020	3 75520 1 07022	3730		TXH	LA0001,A,−1200	4F13778
	07021	0 07400 4 03400	3731		TSX	DIAG,4 ERROR..LAMBDA TABLE EXCEEDED.	4F13779
	07022	3 77323 2 07024	3732	LA0001	TXH	LA0002,B,−301	4F13780
	07023	0 07400 4 03400	3733		TSX	DIAG,4 ERROR..BETA TABLE EXCEEDED	4F13781
	07024	−3 00000 4 07043	3734	LA0002	TXL	LA0003,C,0	4F13782
	07025	3 77565 4 07043	3735		TXH	LA0003,C,−139	4F13783
	07026	0 07400 4 03400	3736		TSX	DIAG,4 ERROR..ALPHA TABLE EXCEEDED	4F13784
	07027	−0 53400 4 01122	3737		LXD	ARGCTR,C VARIABLE OR (	4F13785
	07030	−3 00000 4 07000	3738		TXL	LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0	4F13786
	07031	−0 63400 4 07036	3739		SXD	LA0000+43,C FUNCTION STATEMENT	4F13787
	07032	0 34000 1 15215	3740		CAS	ARGREG,A SEARCH FREE VARIABLE TABLE	4F13788
	07033	1 77777 1 07036	3741		TXI	LA0000+43,A,−1	4F13789
	07034	0 02000 0 07040	3742		TRA	MS1018	4F13790
	07035	1 77777 1 07036	3743		TXI	LA0000+43,A,−1	4F13791
	07036	3 00000 1 07032	3744		TXH	LA0000+39,A,0	4F13792
	07037	0 02000 0 07000	3745		TRA	LA0000+13 NOT PRESENT - GO SET FSBITS TO 0	4F13793
	07040	−0 75400 1 00000	3746	MS1018	PXD	0,A PRESENT - STORE TYPE IN FSBITS	4F13794
	07041	0 77100 0 00013	3747		ARS	11	4F13795
	07042	0 02000 0 07012	3748		TRA	LA0000+23	4F13796
	07043	0 50000 0 06464	3749	LA0003	CLA	MS9002	4F13797
	07044	0 62100 0 07251	3750		STA	LA4320	4F13798
	07045	−0 75400 0 00000	3751		PXD	0,0	4F13799
	07046	0 56000 0 01130	3752		LDQ	E+2	4F13800
	07047	−0 60000 1 15533	3753		STQ	LAMBDA+11,A	4F13801
	07050	−0 60000 1 15530	3754		STQ	LAMBDA+8,A	4F13802
	07051	−0 60000 1 15525	3755		STQ	LAMBDA+5,A	4F13803
	07052	−0 76300 0 00006	3756		LGL	6	4F13804
	07053	0 60100 0 01331	3757		STO	FIRSTC	4F13805
	07054	0 40200 0 01375	3758		SUB	OPEN	4F13806
	07055	0 10000 0 07064	3759		TZE	LA003	4F13807
	07056	0 50000 0 06363	3760		CLA	MS4007	4F13808
	07057	−0 76000 0 00142	3761		SLT	2	4F13809
	07060	0 02000 0 07063	3762		TRA	LA002	4F13810
	07061	0 76000 0 00142	3763		SLN	2	4F13811
	07062	0 50000 0 07112	3764		CLA	FINI03	4F13812
	07063	0 62100 0 07251	3765	LA002	STA	LA4320	4F13813
	07064	0 50000 0 01126	3766	LA003	CLA	E	4F13814
	07065	0 60100 1 15531	3767		STO	LAMBDA+9,A	4F13815
	07066	0 60100 1 15526	3768		STO	LAMBDA+6,A	4F13816
	07067	0 60100 1 15523	3769		STO	LAMBDA+3,A	4F13817
	07070	−0 50000 0 01522	3770		CAL	ADSPOP	4F13818
	07071	0 60200 1 15535	3771		SLW	LAMBDA+13,A	4F13819
	07072	0 60200 1 15532	3772		SLW	LAMBDA+10,A	4F13820
	07073	0 60200 1 15527	3773		SLW	LAMBDA+7,A	4F13821
	07074	−0 75400 0 00000	3774		PXD	,0	4F13822
	07075	0 56000 0 01127	3775		LDQ	E+1	4F13823
	07076	−0 60000 1 15521	3776		STQ	LAMBDA+1,A	4F13824
	07077	−0 76300 0 00006	3777		LGL	6	4F13825
	07100	0 34000 0 01405	3778		CAS	STAR	4F13826
	07101	0 02000 0 07145	3779		TRA	LA0015 / SIGN	4F13827
	07102	0 02000 0 07135	3780		TRA	LA0010 * OR ** SIGN	4F13828
	07103	−0 76000 0 00142	3781		SLT	2 + OR - SIGN	4F13829
	07104	0 02000 0 07121	3782		TRA	LA0044	4F13830
	07105	1 77775 2 07106	3783		TXI	MS1033,B,−3 -N TO -(N+3)	4F13831
	07106	−0 75400 2 00000	3784	MS1033	PXD	,B	4F13832
	07107	0 77100 0 00022	3785		ARS	18	4F13833
	07110	0 60100 1 15536	3786		STO	LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2	4F13834
	07111	1 00001 2 07112	3787		TXI	FINI03,B,1 -(N+3) TO - (N+2)	4F13835
	07112	−0 75400 2 07315	3788	FINI03	PXD	CM4300,B	4F13836
	07113	0 77100 0 00022	3789		ARS	18	4F13837
	07114	−0 76000 0 00003	3790		SSM		4F13838
	07115	0 60100 1 15534	3791		STO	LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4)	4F13839
	07116	−0 76000 0 00141	3792	LA0041	SLT	1	4F13840
	07117	1 00001 2 07213	3793		TXI	L43130,B,1 UNARY... -(N+2) TO -(N+1)	4F13841
	07120	1 00001 2 07155	3794		TXI	L13130,B,1 BINARY... -(N+2) TO - (N+1)	4F13842
	07121	0 50000 0 01331	3795	LA0044	CLA	FIRSTC	4F13843
	07122	0 34000 0 01375	3796		CAS	OPEN EXAMINE SYMBOL	4F13844
	07123	0 02000 0 07125	3797		TRA	LA0050	4F13845
	07124	1 77775 2 07130	3798		TXI	LA0058,B,−3 -N TO -(N+3)	4F13846
	07125	−0 76000 0 00141	3799	LA0050	SLT	1	4F13847
	07126	1 77777 2 07217	3800		TXI	LA4000,B,−1 UNARY... -NTO -(N+1)	4F13848
	07127	1 77777 2 07161	3801		TXI	LA1000,B,−1 BINARY... -N TO -(N+I)	4F13849
	07130	−0 75400 2 00000	3802	LA0058	PXD	,B	4F13850
	07131	0 77100 0 00022	3803		ARS	18	4F13851
	07132	0 60100 1 15533	3804		STO	LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2	4F13852
	07133	0 40000 0 01407	3805		ADD	L(1) FORM -(N+2) IN ADD (ACC)	4F13853
	07134	1 00001 2 07116	3806		TXI	LA0041,2,1	4F13854
	07135	0 16200 0 07145	3807	LA0010	TQP	LA0015 G0 TO * ROUTINE	4F13855
	07136	−0 76000 0 00142	3808		SLT	2 **	4F13856
	07137	0 02000 0 07141	3809		TRA	LA0072	4F13857
	07140	1 77777 2 07174	3810		TXI	L23000,B,−1 -N TO -(N+1)	4F13858
	07141	0 50000 0 01331	3811	LA0072	CLA	FIRSTC	4F13859
	07142	0 40200 0 01375	3812		SUB	OPEN	4F13860
	07143	−0 10000 0 07207	3813		TNZ	LA2000	4F13861
	07144	1 77777 2 07167	3814		TXI	L22000,B,−1 -N TO -(N+1)	4F13862
	07145	−0 76000 0 00142	3815	LA0015	SLT	2 * OR /	4F13863
	07146	0 02000 0 07150	3816		TRA	LA0021	4F13864
	07147	1 77776 2 07257	3817		TXI	L33000,B,−2 -N TO -(N+2)	4F13865
	07150	0 50000 0 01331	3818	LA0021	CLA	FIRSTC	4F13066
	07151	0 34000 0 01375	3819		CAS	OPEN	4F13867
	07152	1 77777 2 07272	3820		TXI	LA3000,B,−1	4F13868
	07153	1 77776 2 07252	3821		TXI	L32000,B,−2 -N TO -N(+2)	4F13869
	07154	1 77777 2 07272	3822		TXI	LA3000,B,−1	4F13870
	07155	0 60200 4 15310	3823	L13130	SLW	ALPHA+3,C STO -(N+2) IN ALPHA+A+3	4F13871
	07156	0 50200 0 01406	3824		CLS	L(0)	4F13872
	07157	0 60100 1 15531	3825		STO	LAMBDA+9,A STO -0 IN LAMBDA +3(L+3)	4F13873
	07160	0 76000 0 00141	3826		SLN	1	4F13074
	07161	0 50200 0 15277	3827	LA1000	CLS	CBAR	4F13875
	07162	0 77100 0 00022	3828		ARS	18	4F13876
	07163	0 60200 4 15305	3829		SLW	ALPHA,C STO -C IN ALPHA+A	4F13877
	07164	1 77775 4 07165	3830		TXI	LA1040,C,−3 -A TO - (A+3)	4F13878
	07165	−0 63400 4 15300	3831	LA1040	SXD	ABAR,C	4F13879
	07166	0 02000 0 07220	3832		TRA	LA4010	4F13880
	07167	−0 75400 2 00000	3833	L22000	PXD	,B	4F13881
	07170	0 77100 0 00022	3834		ARS	18	4F13882
	07171	0 60100 1 15525	3835		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13883
	07172	0 40000 0 01407	3836		ADD	L(1)	4F13884
	07173	1 00001 2 07203	3837		TXI	L23130,B,1 -(N+1) TO -N	4F13885
	07174	−0 75400 2 00000	3838	L23000	PXD	,B	4F13886
	07175	0 77100 0 00022	3839		ARS	18	4F13887
	07176	0 60100 1 15530	3840		STO	LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2	4F13888
	07177	0 40000 0 01407	3841		ADD	L(1)	4F13889
	07200	−0 76000 0 00003	3842		SSM		4F13890
	07201	1 00001 2 07202	3843		TXI	L23090,B,1 -(N+1) TO -N	4F13891
	07202	0 60100 1 15526	3844	L23090	STO	LAMBDA+6,A STO -N IN LAMBDA+3(L+2)	4F13892
	07203	0 60200 4 15305	3845	L23130	SLW	ALPHA,C STO -N IN ALPHA +A	4F13893
	07204	0 50200 0 01406	3846		CLS	L(0)	4F13894
	07205	0 60100 1 15523	3847		STO	LAMBDA+3,A STO -0 IN LAMBDA+3(L+1)	4F13895
	07206	0 76000 0 00141	3848		SLN	1	4F13896
	07207	0 50200 4 15304	3849	LA2000	CLS	ALPHA−1,C	4F13897
	07210	0 60100 1 15520	3850		STO	LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L	4F13898
	07211	0 50000 0 01360	3851		CLA	NBAR	4F13899
	07212	1 00006 1 07240	3852		TXI	LA4180,A,6	4F13900
	07213	0 60200 4 15305	3853	L43130	SLW	ALPHA,C STO -(N+2) IN ALPHA+A	4F13901
	07214	0 50200 0 01406	3854		CLS	L(0)	4F13902
	07215	0 60100 1 15531	3855		STO	LAMBDA+9,A STO -0 IN LAMBDA+3(L+3)	4F13903
	07216	0 76000 0 00141	3856		SLN	1	4F13904
	07217	0 50200 4 15302	3857	LA4000	CLS	ALPHA−3,C	4F13905
	07220	0 60100 1 15520	3858	LA4010	STO	LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L	4F13906
	07221	0 50200 0 01360	3859		CLS	NBAR	4F13907
	07222	0 77100 0 00022	3860		ARS	18	4F13908
	07223	0 60200 4 15303	3861		SLW	ALPHA−2,C STO-N IN ALPHA+A-2	4F13909
	07224	0 60200 1 15522	3862		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13910
	07225	0 60100 1 15523	3863		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13911
	07226	−0 75400 2 00000	3864		PXD	,B	4F13912
	07227	0 77100 0 00022	3865		ARS	18	4F13913
	07230	0 60100 1 15525	3866		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13914
	07231	0 60100 4 15304	3867		STO	ALPHA−1,C STO-(N,1) IN ALPHA+A-1	4F13915
	07232	−0 76000 0 00003	3868		SSM		4F13916
	07233	0 60100 1 15526	3869		STO	LAMBDA+6,A STO -(N+1) IN LAMBDA+3IL+2)	4F13917
	07234	1 77777 2 07235	3870		TXI	LA4150,B,−1 -(N+1) TO -(N+2)	4F13916
	07235	−0 50000 0 01524	3871	LA4150	CAL	ADSTAR	4F13919
	07236	0 60200 1 15524	3872		SLW	LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1	4F13920
	07237	−0 75400 2 00000	3873	LA4170	PXD	,B	4F13921
	07240	0 77100 0 00022	3874	LA4180	ARS	18	4F13922
	07241	0 60100 1 15530	3875		STO	LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2	4F13923
	07242	−0 60200 1 15531	3876		ORS	LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3)	4F13924
	07243	−0 50000 0 01525	3877		CAL	STRSTR	4F13925
	07244	0 60200 1 15527	3878		SLW	LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1	4F13926
	07245	−0 50000 0 01522	3879		CAL	ADSPOP	4F13927
	07246	−0 50100 0 15302	3880		ORA	FSBITS	4F13928
	07247	−0 50100 0 15303	3881		ORA	FNBITS	4F13929
	07250	0 60200 1 15532	3882		SLW	LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1	4F13930
	07251	1 77767 1 00000	3883	LA4320	TXI	**,A,−9	4F13931
	07252	−0 75400 2 00000	3884	L32000	PXD	,B	4F13932
	07253	0 77100 0 00022	3885		ARS	18	4F13933
	07254	0 60100 1 15530	3886		STO	LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2	4F13934
	07255	0 40000 0 01407	3887		ADD	L(1)	4F13935
	07256	1 00001 2 07266	3888		TXI	L33130,B,1 -(N+2) TO -(N+1)	4F13936
	07257	−0 75400 2 00000	3889	L33000	PXD	,B	4F13937
	07260	0 77100 0 00022	3890		ARS	18	4F13938
	07261	0 60100 1 15533	3891		STO	LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2	4F13939
	07262	0 40000 0 01407	3892		ADD	L(1)	4F13940
	07263	−0 76000 0 00003	3893		SSM		4F13941
	07264	1 00001 2 07265	3894		TXI	L33090,B,1 -(N+2) TO -(N+1)	4F13942
	07265	0 60100 1 15531	3895	L33090	STO	LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3)	4F13943
	07266	0 60200 4 15305	3896	L33130	SLW	ALPHA,C STO -(N+1) IN ALPHA+A	4F13944
	07267	0 50200 0 01406	3897		CLS	L(0)	4F13945
	07270	0 60100 1 15526	3898		STO	LAMBDA+6,A	4F13946
	07271	0 76000 0 00141	3899		SLN	1	4F13947
	07272	0 50200 4 15303	3900	LA3000	CLS	ALPHA−2,C	4F13948
	07273	0 60100 1 15520	3901		STO	LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L	4F13949
	07274	0 50200 0 01360	3902		CLS	NBAR	4F13950
	07275	0 77100 0 00022	3903		ARS	18	4F13951
	07276	0 60200 4 15304	3904		SLW	ALPHA−1,C STO -N IN ALPHA+A-1	4F13952
	07277	0 60200 1 15522	3905		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13953
	07300	0 60100 1 15523	3906		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13954
	07301	1 00003 1 07237	3907		TXI	LA4170,A,3	4F13955
	07302	1 77775 1 07303	3908	CM4100	TXI	CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES	4F13956
	07303	−0 63400 1 01117	3909	CM4101	SXD	3LBAR,A	4F13957
	07304	−0 63400 2 15277	3910	CM4102	SXD	CBAR,B	4F13958
	07305	1 77777 2 07306	3911		TXI	CM4104,B,−1	4F13959
	07306	−0 63400 2 01360	3912	CM4104	SXD	NBAR,B	4F13960
U	07307	00000 0 06346	3913	CM4105	***	MS010,0	4F13961
	07310	−0 50000 0 01524	3914	MS020	CAL	ADSTAR	4F13962
	07311	0 02000 0 06347	3915		TRA	MS030	4F13963
	07312	1 77775 1 07313	3916	CM4200	TXI	CM4201,A,−3	4F13964
	07313	−0 63400 1 01117	3917	CM4201	SXD	3LBAR,A	4F13965
	07314	1 77777 4 07320	3918		TXI	CM4303,C,−1	4F13966
	07315	1 77772 1 07316	3919	CM4300	TXI	CM4301,A,−6	4F13967
	07316	−0 63400 1 01117	3920	CM4301	SXD	3LBAR,A	4F13968
	07317	1 77777 4 07320	3921		TXI	CM4303,C,−1	4F13969
	07320	−0 63400 4 15300	3922	CM4303	SXD	ABAR,C	4F13970
	07321	1 77777 2 07304	3923		TXI	CM4102,B,−1	4F13971
			3924			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13972
			3925				4F13973
			3926			CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE	4F13974
	07322	−0 63400 1 06745	3927	C3390	SXD	C3357,1 SAVE CALLING IR	4F13975
	07323	0 60200 0 01112	3928		SLW	1G MOVE WORD TO BE ENTERED TO 1G	4F13976
	07324	0 07400 1 03321	3929		TSX	TET00,1 GO TO ENTER WORD IN HOLARG TABLE	4F13977
	07325	0 00000 0 00015	3930			13	4F13978
	07326	0 50000 0 01352	3931		CLA	HOLCNT	4F13979
	07327	0 40000 0 01407	3932		ADD	L(1) UPDATE HOLCNT	4F13980
	07330	0 60100 0 01352	3933		STO	HOLCNT	4F13981
	07331	−0 53400 1 06745	3934		LXD	C3357,1 RELOAD CALLING IR	4F13982
	07332	0 02000 1 00001	3935		TRA	1,1 RETURN TO CALLER+1	4F13983
			3936			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13984
			3937				4F13985
			3938			PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN	4F13986
			3939			SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B.	4F13987
	07333	−0 63400 4 07366	3940	SS000X	SXD	SSIR4,4 SAVE CALLING TAG.	4F13988
	07334	0 07400 4 02614	3941		TSX	SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE.	4F13989
	07335	0 07400 4 02437	3942		TSX	RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.	4F13990
	07336	−0 50000 0 01351	3943		CAL	GTAG	4F13991
	07337	−0 32000 0 01527	3944		ANA	MASK1	4F13992
	07340	0 60200 0 01141	3945		SLW	E+11	4F13993
	07341	0 07400 4 00450	3946		TSX	SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.	4F13994
	07342	0 76700 0 00017	3947		ALS	15 POSITION SIGMA TAG.	4F13995
	07343	−0 60200 0 01126	3948		ORS	E ADD SIGMA TAG TO I-TAU TAGS IN E.	4F13996
	07344	−0 53400 4 07366	3949		LXD	SSIR4,4 RELOAD CALLING TAG.	4F13997
	07345	0 02000 4 00001	3950		TRA	1,4 RETURN TO CALLER +1.	4F13998
			3951				4F13999
			3952			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14000
			3953				4F14001
			3954			ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.	4F14002
			3955			ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION	4F14003
			3956			ARITHMETIC.	4F14004
			3957			ROYCNV= ENTRY POINT FOR FIXED OR FLQATING POINT INTEGERS.	4F14005
	07346	0 60100 0 01103	3958	ROYCNV	STO	N SAVE DECIMAL DIGIT IN N.	4F14006
	07347	−0 63400 4 07352	3959		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14007
	07350	0 60000 0 01100	3960		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14008
	07351	0 50000 0 07370	3961		CLA	CM1 PICK UP SWITCH CONTROL,	4F14009
	07352	1 00000 0 07357	3962	EXIT	TXI	IN2,0,** AND G0 SET SWITCH.	4F14010
			3963			DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS.	4F14011
	07353	0 60000 0 01103	3964	DECPNT	STZ	N CLEAR N (NO INTEGER).	4F14012
	07354	−0 63400 4 07352	3965		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14013
	07355	0 60000 0 01100	3966		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14014
	07356	−0 50000 0 07370	3967	NC7	CAL	CM1 PICK UP SWITCH CONTROL.	4F14015
	07357	0 63000 0 07400	3968	IN2	STP	CM2 SET SWITCHES CM2, AND	4F14016
	07360	0 63000 0 07412	3969		STP	CM3 CM3.	4F14017
	07361	0 14000 0 07362	3970		TOV	NC5 TURN OFF OV TRIGGER.	4F14018
	07362	0 07400 4 01707	3971	NC5	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14019
	07363	0 60200 0 01124	3972		SLW	CHSAVE SAVE IT FOR STATE B, AND THEN	4F14020
	07364	0 34000 0 01423	3973		CAS	L(H) COMPARE IT WITH H.	4F14021
D	07365	1 00000 0 07367	3974		TXI	NC1,0 IF H, GO TO HEXIT.	4F14022
D	07366	1 00000 0 07533	3975	SSIR4	TXI	HEXIT,0 IF NOT H, CONTINUE	4F14023
	07367	0 34000 0 01373	3976	NC1	CAS	TEN AND COMPARE WITH TEN.	4F14024
D	07370	−3 00000 0 07404	3977	CM1	TXL	NC2,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.	4F14025
	07371	−0 75400 0 00000	3978		PXD	,0 CLEAR THE AC (MACHINE ERROR).	4F14026
	07372	0 60100 0 01102	3979		STO	H CHARACTER IS NUMERIC, SO HOLD IT.	4F14027
	07373	0 50000 0 01103	3980		CLA	N MULTIPLY THE PREVIOUS	4F14028
	07374	0 76700 0 00002	3981		ALS	2 PARTIAL RESULT (OR ZERO)	4F14029
	07375	0 40000 0 01103	3982		ADD	N BY 10,	4F14030
	07376	0 76700 0 00001	3983		ALS	1 AND ADD IN	4F14031
	07377	0 40000 0 01102	3984		ADD	H THE CURRENT DIGIT.	4F14032
D	07400	3 00000 0 07421	3985	CM2	TXH	NC3,0 SWITCH (NO TRANSFER IF INTEGER).	4F14033
	07401	0 14000 0 07427	3986		TOV	NC4 TEST OVERFLOW, AND	4F14034
	07402	0 60100 0 01103	3987		STO	N IF NONE, SAVE NEW PARTIAL RESULT.	4F14035
D	07403	1 00000 0 07362	3988		TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14036
	07404	0 34000 0 01403	3989	NC2	CAS	POINT COMPARE NON-NUMERIC WITH A POINT.	4F14037
D	07405	1 00000 0 07412	3990		TXI	CM3,0 IF GREATER THAN 27, GO OUT.	4F14038
D	07406	1 00000 0 07356	3991		TXI	NC7,0 IF POINT, GO BACK AND SET SWITCH.	4F14039
	07407	0 34000 0 07542	3992		CAS	L(E) IF LESS THAN 27, COMPARE WITH E.	4F14040
D	07410	1 00000 0 07412	3993		TXI	CM3,0 IF GREATER THAN 21, GO OUT.	4F14041
D	07411	1 00000 0 07431	3994		TXI	EC1,0 IF E, GO TO EXPONENT ROUTINE.	4F14042
D	07412	3 00000 0 07470	3995	CM3	TXH	FN4,0 SWITCH (NO TRANSFER IF INTEGER).	4F14043
	07413	0 50000 0 01103	3996		CLA	N PICK UP CONVERTED CONSTANT, AND	4F14044
	07414	0 76700 0 00022	3997	MS9506	ALS	18 STORE IN THE	4F14045
	07415	0 60100 0 01347	3998		STO	G DECREMENT OF G, AND	4F14046
	07416	0 07400 4 00417	3999		TSX	FXCNIX,4 * GO MAKE FIXCON ENTRY.	4F14047
	07417	−0 50100 0 01517	4000		ORA	FIXVAR CREATE INTERNAL FXD-P, VARIABLE,AND	4F14048
D	07420	1 00000 0 07521	4001		TXI	EXITR,0 GO TAKE EXITR.	4F14049
	07421	0 14000 0 07426	4002	NC3	TOV	NC8 IF THERE WAS NO OVERFLOW,	4F14050
	07422	0 60100 0 01103	4003		STO	N SAVE PARTIAL RESULT, AND	4F14051
	07423	0 50200 0 01407	4004		CLS	L(1) SUBTRACT 1 FROM DOE	4F14052
	07424	0 40000 0 01100	4005	NC9	ADD	DOE TO ADJUST EXPONENT	4F14053
	07425	0 60100 0 01100	4006		STO	DOE IN FINAL RESULT.	4F14054
D	07426	1 00000 0 07362	4007	NC8	TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14055
	07427	0 50000 0 01407	4008	NC4	CLA	L(1) ADD 1 TO DOE ,	4F14056
D	07430	1 00000 0 07424	4009		TXI	NC9,0 IF THERE WAS INTEGER OVERFLOW.	4F14057
	07431	0 07400 4 01707	4010	EC1	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14058
	07432	0 60200 0 01124	4011		SLW	CHSAVE SAVE IT FOR STATE B, AND	4F14059
	07433	0 60000 0 01101	4012		STZ	EKE CLEAR EKE (EXPLICIT EXPONENT).	4F14060
	07434	0 34000 0 01401	4013		CAS	11Z COMPARE CHARACTER WITH A DASH.	4F14061
D	07435	1 00000 0 07465	4014		TXI	FN5,0 IF GREATER THAN 32, GO OUT.	4F14062
D	07436	1 00000 0 07444	4015		TXI	EC3,0 IF A DASH, SET EKE MINUS.	4F14063
	07437	0 34000 0 01404	4016		CAS	12Z IF LESS THAN 32, COMPARE WITH PLUS.	4F14064
D	07440	1 00000 0 07465	4017		TXI	FN5,0 IF GREATER THAN 16, GO OUT.	4F14065
D	07441	1 00000 0 07451	4018		TXI	EC6,0 IF PLUS, GO EXAMINE NEXT CHAR.	4F14066
	07442	0 34000 0 01420	4019		CAS	MINUS IF LESS THAN 16,COMPARE WITH MINUS.	4F14067
D	07443	1 00000 0 07465	4020		TXI	FN5,0 IF GREATER THAN 12, GO OUT.	4F14068
	07444	0 50200 0 01101	4021	EC3	CLS	EKE IF MINUS, SET EKE TO -0.	4F14069
	07445	0 34000 0 01373	4022		CAS	TEN COMPARE WITH TEN.	4F14070
D	07446	1 00000 0 07465	4023		TXI	FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH.	4F14071
	07447	−0 75400 0 00000	4024	EC4	PXD	,0 CLEAR ACC,	4F14072
	07450	0 60100 0 01101	4025	EC5	STO	EKE SAVE PARTIAL RESULT(OR 0) IN EKE.	4F14073
	07451	0 07400 4 01707	4026	EC6	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14074
	07452	0 60200 0 01124	4027		SLW	CHSAVE SAVE IT FOR STATE B,	4F14075
	07453	0 34000 0 01373	4028		CAS	TEN AND COMPARE WITH TEN.	4F14076
D	07454	1 00000 0 07465	4029		TXI	FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.	4F14077
	07455	−0 75400 0 00000	4030		PXD	,0 CLEAR THE AC (MACHINE ERROR).	4F14078
	07456	0 60100 0 01102	4031		STO	H CHARACTER IS NUMERIC, SO HOLD IT.	4F14079
	07457	0 50000 0 01101	4032		CLA	EKE MULTIPLY THE PREVIOUS	4F14080
	07460	0 76700 0 00002	4033		ALS	2 PARTIAL RESULT (OR ZERO)	4F14081
	07461	0 40000 0 01101	4034		ADD	EKE BY 10,	4F14082
	07462	0 76700 0 00001	4035		ALS	1 AND ADD IN	4F14083
	07463	0 36100 0 01102	4036		ACL	H THE CURRENT DIGIT.	4F14084
D	07464	1 00000 0 07450	4037		TXI	EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET.	4F14085
	07465	0 50000 0 01101	4038	FN5	CLA	EKE COMBINE EXPLICIT EXPONENT	4F14086
	07466	0 40000 0 01100	4039		ADD	DOE WITH IMPLICIT EXPONENT,	4F14087
	07467	0 60100 0 01100	4040		STO	DOE AND SAVE IN DOE.	4F14088
	07470	0 50000 0 01103	4041	FN4	CLA	N IF N CONTAINS ZERO, TAKE	4F14089
	07471	0 10000 0 07516	4042		TZE	MS9500 FLO PT CONSTANT RETURN.	4F14090
	07472	0 62100 0 07535	4043		STA	K1 PUT INTEGER INTO FLO PT WORD,	4F14091
	07473	0 77100 0 00017	4044		ARS	15 ADJUST, AND	4F14092
	07474	0 10000 0 07476	4045		TZE	FN1 IF MORE THAN 15 BITS IN LENGTH	4F14093
	07475	−0 50100 0 07536	4046		ORA	K2 AFFIX CORRECT EXPONENT.	4F14094
	07476	0 30000 0 07535	4047	FN1	FAD	K1 THEN FLOATING ADD THE RESULT	4F14095
	07477	−0 77300 0 00010	4048		RQL	8 OF INTEGER CONVERSION, AND	4F14096
	07500	0 76000 0 00010	4049		RND	ROUND --TO OBTAIN	4F14097
	07501	−0 50100 0 07537	4050		ORA	K3 NORMALIZED RESULT.	4F14098
	07502	0 53400 1 01100	4051		LXA	DOE,1 EXAMINE THE C(DOE), AN0	4F14099
	07503	−3 00000 1 07516	4052		TXL	MS9500,1,0 IF ZERO, TAKE FLO PT RETURN.	4F14100
	07504	−3 00062 1 07506	4053		TXL	FN2,1,50 IF GREATER THAN 50, THEN	4F14101
D	07505	1 00000 0 07532	4054		TXI	CER,0 ERROR. --GO TO DIAGNOSTIC.	4F14102
	07506	0 56000 0 01100	4055	FN2	LDQ	DOE DETERMINE WHETHER INTEGER WAS	4F14103
	07507	0 16200 0 07524	4056		TQP	FN3 TO THE RIGHT OR TO THE LEFT OF DP.	4F14104
	07510	0 24100 1 07623	4057		FDP	TAB,1 IF TO THE RIGHT, DIVIDE BY A	4F14105
	07511	−0 60000 0 01103	4058		STQ	N SUITABLE CONSTANT	4F14106
	07512	0 50000 0 01103	4059		CLA	N TO ADJUST RESULT	4F14107
	07513	0 36100 0 07540	4060		ACL	K4 AND TEST FOR OUT OF RANGE.	4F14108
	07514	−0 76000 0 00001	4061		PBT	IF P=1, SKIP TO ARITH RETURN.	4F14109
D	07515	1 00000 0 07532	4062		TXI	CER,0 ERROR. --GO TO DIAGNOSTIC.	4F14110
	07516	0 60100 0 01347	4063	MS9500	STO	G STORE IN G, AND	4F14111
	07517	0 07400 4 00424	4064		TSX	FLCNIX,4 * GO MAKE FLOCON ENTRY.	4F14112
	07520	−0 50100 0 01513	4065		ORA	FLOVAR CREATE INTERNAL FLO-PT VARIABLE,	4F14113
	07521	0 60200 0 01130	4066	EXITR	SLW	E+2 SAVE VARIABLE IN E+2,	4F14114
	07522	−0 53400 4 07352	4067		LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14115
	07523	0 02000 4 00002	4068		TRA	2,4 * RETURN TO MAIN ROUTINE.	4F14116
	07524	0 60100 0 01103	4069	FN3	STO	N IF INTEGER WAS SITUATED	4F14117
	07525	0 56000 0 01103	4070		LDQ	N TO THE LEFT OF THE DECIMAL POINT,	4F14118
	07526	0 26000 1 07623	4071		FMP	TAB,1 MULTIPLY BY A SUITABLE	4F14119
	07527	0 36100 0 07541	4072		ACL	K5 CONSTANT TO ADJUST AND TEST RANGE.	4F14120
	07530	−0 76000 0 00001	4073		PBT	IF P=1, SKIP TO ERROR.	4F14121
D	07531	1 00000 0 07516	4074		TXI	MS9500,0 RETURN TO ARITHMETIC ROUTINE.	4F14122
	07532	0 07400 4 03400	4075	CER	TSX	DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC.	4F14123
	07533	−0 53400 4 07352	4076	HEXIT	LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14124
	07534	0 02000 4 00001	4077		TRA	1,4 * RETURN TO MAIN ROUTINE.	4F14125
			4078				4F14126
	07535	+233000000000	4079	K1	OCT	233000000000 CONSTANT USED BY ROYCNV.	4F14127
	07536	+252000000000	4080	K2	OCT	252000000000 CONSTANT USED BY ROYCNV.	4F14128
	07537	+000400000000	4081	K3	OCT	400000000 CONSTANT USED BY ROYCNV.	4F14129
	07540	+335000000000	4082	K4	OCT	335000000000 CONSTANT USED BY ROYCNV.	4F14130
	07541	+043000000000	4083	K5	OCT	43000000000 CONSTANT USED BY ROYCNV.	4F14131
	07542	000000000025	4084	L(E)	BCD	100000E CONSTANT USED BY ROYCNV.	4F14132
			4085				4F14133
	07543	+375536246150	4086		OCT	375536246150 48-TABLE USED BY ROYCNV.	4F14134
	07544	+372430204754	4087		OCT	372430204754 47-TABLE USED BY ROYCNV.	4F14135
	07545	+366700324573	4088		OCT	366700324573 46-TABLE USED BY ROYCNV.	4F14136
	07546	+363546566774	4089		OCT	363546566774 45-TABLE USED BY ROYCNV.	4F14137
	07547	+360436770626	4090		OCT	360436770626 44-TABLE USED BY ROYCNV.	4F14138
	07550	+354713132675	4091		OCT	354713132675 43-TABLE USED BY ROYCNV.	4F14139
	07551	+351557257061	4092		OCT	351557257061 42-TABLE USED BY ROYCNV.	4F14140
	07552	+346445677215	4093		OCT	346445677215 41-TABLE USED BY ROYCNV.	4F14141
	07553	+342726145174	4094		OCT	342726145174 40-TABLE USED BY ROYCNV.	4F14142
	07554	+337570120775	4095		OCT	337570120775 39-TABLE USED BY ROYCNV.	4F14143
	07555	+334454732312	4096		OCT	334454732312 38-TABLE USED BY ROYCNV.	4F14144
	07556	+330741367020	4097		OCT	330741367020 37-TABLE USED BY ROYCNV.	4F14145
	07557	+325601137163	4098		OCT	325601137163 36-TABLE USED BY ROYCNV.	4F14146
	07560	+322464114134	4099		OCT	322464114134 35-TABLE USED BY ROYCNV.	4F14147
	07561	+316755023372	4100		OCT	316755023372 34-TABLE USED BY ROYCNV.	4F14148
	07562	+313612334310	4101		OCT	313612334310 33-TABLE USED BY ROYCNV.	4F14149
	07563	+310473426555	4102		OCT	310473426555 32-TABLE USED BY ROYCNV.	4F14150
	07564	+304770675742	4103		OCT	304770675742 31-TABLE USED BY ROYCNV.	4F14151
	07565	+301623713116	4104		OCT	301623713116 30-TABLE USED BY ROYCNV.	4F14152
	07566	+276503074076	4105		OCT	276503074076 29-TABLE USED BY ROYCNV.	4F14153
	07567	+273402374713	4106		OCT	273402374713 28-TABLE USED BY R0YCNV.	4F14154
	07570	+267635456171	4107		OCT	267635456171 27-TABLE USED BY ROYCNV.	4F14155
	07571	+264512676456	4108		OCT	264512676456 26-TABLE USED BY ROYCNV.	4F14156
	07572	+261410545213	4109		OCT	261410545213 25-TABLE USED BY ROYCNV.	4F14157
	07573	+255647410337	4110		OCT	255647410337 24-TABLE USED BY ROYCNV.	4F14158
	07574	+252522640262	4111		OCT	252522640262 23-TABLE USED BY ROYCNV.	4F14159
	07575	+247417031702	4112		OCT	247417031702 22-TABLE USED BY ROYCNV.	4F14160
	07576	+243661534466	4113		OCT	243661534466 21-TABLE USED BY ROYCNV.	4F14161
	07577	+240532743536	4114		OCT	240532743536 20-TABLE USED BY ROYCNV.	4F14162
	07600	+235425434430	4115		OCT	235425434430 19-TABLE USED BY ROYCNV.	4F14163
	07601	+231674055530	4116		OCT	231674055530 18-TABLE USED BY ROYCNV.	4F14164
	07602	+226543212741	4117		OCT	226543212741 17-TABLE USED BY ROYCNV.	4F14165
	07603	+223434157116	4118		OCT	223434157116 16-TABLE USED BY ROYCNV.	4F14166
	07604	+217706576512	4119		OCT	217706576512 15-TABLE USED BY ROYCNV.	4F14167
	07605	+214553630410	4120		OCT	214553630410 14-TABLE USED BY ROYCNV.	4F14168
	07606	+211443023471	4121		OCT	211443023471 13-TABLE USED BY ROYCNV.	4F14169
	07607	+205721522451	4122		OCT	205721522451 12-TABLE USED BY ROYCNV.	4F14170
	07610	+202564416672	4123		OCT	202564416672 11-TABLE USED BY ROYCNV.	4F14171
	07611	+177452013710	4124		OCT	177452013710 10-TABLE USED BY ROYCNV.	4F14172
	07612	+173734654500	4125		OCT	173734654500 09-TABLE USED BY ROYCNV.	4F14173
	07613	+170575360400	4126		OCT	170575360400 08-TABLE USED BY ROYCNV.	4F14174
	07614	+165461132000	4127		OCT	165461132000 07-TABLE USED BY ROYCNV.	4F14175
	07615	+161750220000	4128		OCT	161750220000 06-TABLE USED BY ROYCNV.	4F14176
	07616	+156606500000	4129		OCT	156606500000 05-TABLE USED BY ROYCNV.	4F14177
	07617	+153470400000	4130		OCT	153470400000 04-TABLE USED BY ROYCNV.	4F14178
	07620	+147764000000	4131		OCT	147764000000 03-TABLE USED BY ROYCNV.	4F14179
	07621	+144620000000	4132		OCT	144620000000 02-TABLE USED BY ROYCNV.	4F14180
	07622	+141500000000	4133		OCT	141500000000 01-TABLE USED BY ROYCNV.	4F14181
	07623	+136400000000	4134	TAB	OCT	136400000000 00-TABLE USED BY ROYCNV.	4F14182
			4135			END OF PROGRAM ROYCNV.	4F14183
			4136			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14184
			4137				4F14185
	07624	0 00001 0 01230	4138	SIG1ST	PZE	SIGMA1+2,,1	4F14186
		07625	4139	STATEC	BSS	0	4F141865
			4140				4F14187
		15215	4141		ORG	2701+4096	4F14188
		15215	4142	ARGREG	BSS	50	4F14189
		15277	4143	CBAR	BSS	1	4F14190
		15300	4144	ABAR	BSS	1	4F14191
		15301	4145	FSTYPE	BSS	1	4F14192
		15302	4146	FSBITS	BSS	1	4F14193
		15303	4147	FNBITS	BSS	1	4F14194
		15304	4148	FNCTR	BSS	1	4F14195
		15305	4149	ALPHA	BSS	139	4F14196
		15520	4150	LAMBDA	BSS	1200	4F14197
			4151			END OF ARITHMETIC / STATE B.	4F14198
			4152			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14199
			4153				4F14200
			4154			ARITHMETIC / STATE C=	4F14201
			4155			STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE.	4F14204
			4156				4F14205
		07625	4157		ORG	STATEC	4F14206
	07625	0 56000 0 01406	4158	R00000	LDQ	L(0) CLEAR MQ	4F14207
	07626	−0 53400 1 01360	4159		LXD	NBAR,A LDXA WITH -N	4F14208
	07627	−0 63400 1 07636	4160		SXD	R00700,A	4F14209
	07630	−0 63400 1 07714	4161		SXD	R05200,A	4F14210
	07631	−0 63400 1 10266	4162		SXD	AS0800,A	4F14211
	07632	−0 63400 1 10313	4163		SXD	AS2900,A	4F14212
	07633	0 53400 7 01406	4164		LXA	L(0),7 CLEAR XA,XB,XC,	4F14213
	07634	−0 60000 2 15044	4165	R00500	STQ	BETA,B	4F14214
	07635	1 77777 2 07636	4166		TXI	R00700,B,−1	4F14215
	07636	3 00000 2 07634	4167	R00700	TXH	R00500,B,0	4F14216
	07637	0 50000 0 01117	4168		CLA	3LBAR	4F14217
	07640	0 62200 0 07651	4169		STD	R01700	4F14218
	07641	0 62200 0 07726	4170		STD	R06200	4F14219
	07642	0 50000 1 15520	4171	R01000	CLA	LAMBDA,A ADD INTO GAMMA COUNTERS	4F14220
	07643	0 73400 2 00000	4172		PAX	0,B	4F14221
	07644	0 50000 2 15044	4173		CLA	BETA,B	4F14222
	07645	0 40000 0 01506	4174		ADD	BETAD1 (-3)*2**18+(-3)	4F14223
	07646	0 62200 2 15044	4175		STD	BETA,B	4F14224
	07647	0 62100 2 15044	4176		STA	BETA,B	4F14225
	07650	1 77775 1 07651	4177		TXI	R01700,A,−3	4F14226
	07651	3 00000 1 07642	4178	R01700	TXH	R01000,A,0 -3L IN XA AT END	4F14227
	07652	3 77772 1 07703	4179	R01800	TXH	R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION	4F14228
	07653	0 50000 1 15515	4180		CLA	LAMBDA−3,A	4F14229
	07654	0 73400 2 00000	4181		PAX	0,B	4F14230
	07655	0 50000 2 15044	4182		CLA	BETA,B	4F14231
	07656	0 40200 0 01506	4183		SUB	BETAD1	4F14232
	07657	0 10000 0 07661	4184		TZE	R02600	4F14233
	07660	1 00003 1 07652	4185		TXI	R01800,A,3	4F14234
	07661	0 56000 1 15516	4186	R02600	LDQ	LAMBDA−2,A SINGLE ELEMENT	4F14235
	07662	−0 76300 0 00006	4187		LGL	6 EXAMINE OPERATION	4F14236
	07663	0 40200 0 01401	4188		SUB	11Z	4F14237
	07664	−0 10000 0 07666	4189		TNZ	R03200	4F14238
	07665	1 00003 1 07652	4190		TXI	R01800,A,3	4F14239
	07666	−0 50000 0 01527	4191	R03200	CAL	MASK1 SINGLE ELEMENT, NON-UNARY OP	4F14240
	07667	0 32000 1 15515	4192		ANS	LAMBDA−3,A EXTRACT TAGS AND STORE BACK	4F14241
	07670	0 50000 1 15512	4193		CLA	LAMBDA−6,A	4F14242
	07671	−0 50100 1 15515	4194		ORA	LAMBDA−3,A	4F14243
	07672	0 60200 1 15512	4195		SLW	LAMBDA−6,A	4F14244
	07673	−0 50000 1 15516	4196		CAL	LAMBDA−2,A EXTRACT FS BITS AND STORE BACK	4F14245
	07674	−0 32000 0 01470	4197		ANA	MASK5	4F14246
	07675	−0 60200 1 15513	4198		ORS	LAMBDA−5,A	4F14247
	07676	−0 50000 1 15517	4199		CAL	LAMBDA−1,A STORE BACK SYMBOL	4F14248
	07677	0 60200 1 15514	4200		SLW	LAMBDA−4,A	4F14249
	07700	0 60000 2 15044	4201		STZ	BETA,B REDUCE GAMMA COUNT TO 0	4F14250
	07701	0 60000 1 15515	4202		STZ	LAMBDA−3,A CLEAR TAG WORD	4F14251
	07702	1 00003 1 07652	4203		TXI	R01800,A,3 RESUME SCAN-BACK	4F14252
	07703	0 60000 0 01347	4204	R04200	STZ	G	4F14253
	07704	0 53400 7 01406	4205		LXA	L(0),7 CLEAR XA,XB,XC	4F14254
	07705	0 50000 2 15044	4206	R04500	CLA	BETA,B SET ORIGINS OF SCRIPL TABLE	4F14255
	07706	0 10000 0 07713	4207		TZE	R05100	4F14256
	07707	0 56000 0 01347	4208		LDQ	G	4F14257
	07710	−0 62000 2 15044	4209		SLQ	BETA,B	4F14258
	07711	0 40000 0 01347	4210		ADD	G	4F14259
	07712	0 62200 0 01347	4211		STD	G	4F14260
	07713	1 77777 2 07714	4212	R05100	TXI	R05200,B,−1	4F14261
	07714	3 00000 2 07705	4213	R05200	TXH	R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END	4F14262
	07715	−0 50000 1 15520	4214	R05300	CAL	LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE	4F14263
	07716	0 10000 0 07725	4215		TZE	R06100	4F14264
	07717	0 60200 4 15520	4216		SLW	LAMBDA,C	4F14265
	07720	0 50000 1 15521	4217		CLA	LAMBDA+1,A	4F14266
	07721	0 60100 4 15521	4218		STO	LAMBDA+1,C	4F14267
	07722	0 50000 1 15522	4219		CLA	LAMBDA+2,A	4F14268
	07723	0 60100 4 15522	4220		STO	LAMBDA+2,C	4F14269
	07724	1 77775 4 07725	4221		TXI	R06100,C,−3	4F14270
	07725	1 77775 1 07726	4222	R06100	TXI	R06200,A,−3	4F14271
	07726	3 00000 1 07715	4223	R06200	TXH	R05300,A,0	4F14272
	07727	−0 63400 4 07750	4224		SXD	R07800,C -3P IN XC AT END	4F14273
	07730	−0 63400 4 10074	4225		SXD	CS0760,C	4F14274
	07731	0 53400 1 01406	4226		LXA	L(0),A	4F14275
	07732	0 50000 1 15520	4227	R06400	CLA	LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE	4F14276
	07733	0 73400 2 00000	4228		PAX	0,B IN SCRIPL TABLE	4F14277
	07734	0 50000 2 15044	4229		CLA	BETA,B	4F14278
	07735	−0 73400 4 00000	4230		PDX	0,C	4F14279
	07736	0 50000 1 15520	4231		CLA	LAMBDA,A	4F14280
	07737	0 60100 4 16650	4232		STO	SCRIPL,C	4F14281
	07740	0 50000 1 15521	4233		CLA	LAMBDA+1,A	4F14282
	07741	0 60100 4 16651	4234		STO	SCRIPL+1,C	4F14283
	07742	0 50000 1 15522	4235		CLA	LAMBDA+2,A	4F14284
	07743	0 60100 4 16652	4236		STO	SCRIPL+2,C	4F14285
	07744	1 77775 4 07745	4237		TXI	R07500,C,−3	4F14286
	07745	−0 75400 4 00000	4238	R07500	PXD	0,C	4F14287
	07746	0 62200 2 15044	4239		STD	BETA,B	4F14288
	07747	1 77775 1 07750	4240		TXI	R07800,A,−3	4F14289
	07750	3 00000 1 07732	4241	R07800	TXH	R06400,A,0 -3P IN XA AT END	4F14290
	07751	0 56000 0 01406	4242	CS0000	LDQ	L(0) ELIMINATE COMMON,SEGMENTS	4F14291
	07752	−0 50000 1 16645	4243	CS0010	CAL	SCRIPL−3,A	4F14292
	07753	0 10000 0 07762	4244		TZE	CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN	4F14293
	07754	0 73400 2 00000	4245	CS0030	PAX	0,B	4F14294
	07755	−3 00000 2 10062	4246		TXL	CS0660,B,0 EXIT FROM CS ROUTINE	4F14295
	07756	0 62100 0 07754	4247		STA	CS0030	4F14296
	07757	0 50000 2 15044	4248		CLA	BETA,B	4F14297
	07760	0 73400 4 00000	4249	CS0060	PAX	0,C	4F14298
	07761	−3 77772 4 07763	4250		TXL	CS0090,C,−6 AT LEAST TWO ELEMENTS	4F14299
	07762	1 00003 1 07752	4251	CS0080	TXI	CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT	4F14300
	07763	−0 63400 1 10036	4252	CS0090	SXD	CS0470,A SAVE XA	4F14301
	07764	−0 63400 4 01357	4253		SXD	LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT	4F14302
	07765	−3 00000 4 07770	4254	CS0100	TXL	CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT	4F14303
	07766	1 00003 1 07767	4255		TXI	CS0120,A,3	4F14304
	07767	1 00003 4 07765	4256	CS0120	TXI	CS0100,C,3	4F14305
	07770	−0 50000 1 16645	4257	CS0130	CAL	SCRIPL−3,A	4F14306
	07771	−0 10000 0 07773	4258		TNZ	CS0151	4F14307
	07772	1 00003 1 07770	4259		TXI	CS0130,A,3 ERASED SEGMENT	4F14308
	07773	0 73400 2 00000	4260	CS0151	PAX	0,B	4F14309
	07774	−3 00000 2 10055	4261		TXL	CS0610,B,0 G0 ON TO NEXT SEGMENT	4F14310
	07775	0 62100 0 07760	4262		STA	CS0060	4F14311
	07776	0 50000 2 15044	4263		CLA	BETA,B	4F14312
	07777	0 73400 4 00000	4264		PAX	0,C	4F14313
	10000	−0 75400 4 00000	4265		PXD	0,C	4F14314
	10001	0 40200 0 01357	4266		SUB	LENGTH	4F14315
	10002	−0 10000 0 07765	4267		TNZ	CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH	4F14316
	10003	−0 53400 2 10036	4268		LXD	CS0470,B SAME LENGTH SEGMENT	4F14317
	10004	−0 63400 1 10054	4269		SXD	CS0600,A	4F14318
	10005	−3 00000 4 10032	4270	CS0250	TXL	CS0430,C,0 MATCHING SEGMENTS	4F14319
	10006	0 50000 2 16647	4271		CLA	SCRIPL−1,B	4F14320
	10007	0 40200 1 16647	4272		SUB	SCRIPL−1,A	4F14321
	10010	−0 10000 0 07765	4273		TNZ	CS0100	4F14322
	10011	−0 50000 2 16645	4274		CAL	SCRIPL−3,B SYMBOLS MATCH	4F14323
	10012	−0 32000 0 01527	4275		ANA	MASK1	4F14324
	10013	0 60200 0 01347	4276		SLW	G	4F14325
	10014	−0 50000 1 16645	4277		CAL	SCRIPL−3,A	4F14326
	10015	−0 32000 0 01527	4278		ANA	MASK1	4F14327
	10016	0 76000 0 00006	4279		COM		4F14328
	10017	0 36100 0 01347	4280		ACL	G	4F14329
	10020	0 76000 0 00006	4281		COM		4F14330
	10021	−0 10000 0 07765	4282		TNZ	CS0100	4F14331
	10022	0 50000 2 16646	4283		CLA	SCRIPL−2,B TAGS MATCH	4F14332
	10023	0 77100 0 00006	4284		ARS	6	4F14333
	10024	0 76700 0 00006	4285		ALS	6	4F14334
	10025	0 40200 1 16646	4286		SUB	SCRIPL−2,A	4F14335
	10026	−0 10000 0 07765	4287		TNZ	CS0100	4F14336
	10027	1 00003 1 10030	4288		TXI	CS0360,A,3 OPS MATCH	4F14337
	10030	1 00003 2 10031	4289	CS0360	TXI	CS0370,B,3	4F14338
	10031	1 00003 4 10005	4290	CS0370	TXI	CS0250,C,3	4F14339
	10032	−0 50000 1 16650	4291	CS0430	CAL	SCRIPL,A MATCHING SEGMENTS	4F14340
	10033	−0 32000 0 01452	4292		ANA	MASK2 SEARCH FOR REFERENCES	4F14341
	10034	0 34000 1 16647	4293	CS0450	CAS	SCRIPL−1,A	4F14342
	10035	1 00003 1 10034	4294		TXI	CS0450,A,3	4F14343
	10036	1 00000 0 10040	4295	CS0470	TXI	CS0490,0,0	4F14344
	10037	1 00003 1 10034	4296		TXI	CS0450,A,3	4F14345
	10040	0 50000 0 07754	4297	CS0490	CLA	CS0030 CHANGE REFERENCE	4F14346
	10041	0 62100 1 16647	4298		STA	SCRIPL−1,A	4F14347
	10042	−0 53400 4 01357	4299		LXD	LENGTH,C	4F14348
	10043	−0 53400 1 10054	4300		LXD	CS0600,A	4F14349
	10044	−3 00000 4 10050	4301	CS0530	TXL	CS0570,C,0 ERASE DUPLICATE SEGMENT	4F14350
	10045	−0 60000 1 16645	4302		STQ	SCRIPL−3,A	4F14351
	10046	1 00003 1 10047	4303		TXI	CS0560,A,3	4F14352
	10047	1 00003 4 10044	4304	CS0560	TXI	CS0530,C,3	4F14353
	10050	0 53400 4 07760	4305	CS0570	LXA	CS0060,C	4F14354
	10051	−0 60000 4 15044	4306		STQ	BETA,C	4F14355
	10052	−0 50000 0 01401	4307		CAL	11Z STORE CS BIT	4F14356
	10053	−0 60200 2 16651	4308		ORS	SCRIPL+1,B	4F14357
	10054	1 00000 0 07770	4309	CS0600	TXI	CS0130,0,0	4F14358
	10055	−0 53400 1 10036	4310	CS0610	LXD	CS0470,A	4F14359
	10056	−0 53400 4 01357	4311		LXD	LENGTH,C	4F14360
	10057	−3 00000 4 07752	4312	CS0630	TXL	CS0010,C,0	4F14361
	10060	1 00003 1 10061	4313		TXI	CS0650,A,3	4F14362
	10061	1 00003 4 10057	4314	CS0650	TXI	CS0630,C,3	4F14363
	10062	0 53400 5 01406	4315	CS0660	LXA	L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE	4F14364
	10063	−0 50000 1 16650	4316	CS0670	CAL	SCRIPL,A	4F14365
	10064	0 10000 0 10073	4317		TZE	CS0750	4F14366
	10065	0 60200 4 16650	4318		SLW	SCRIPL,C	4F14367
	10066	0 50000 1 16651	4319		CLA	SCRIPL+1,A	4F14368
	10067	0 60100 4 16651	4320		STO	SCRIPL+1,C	4F14369
	10070	0 50000 1 16652	4321		CLA	SCRIPL+2,A	4F14370
	10071	0 60100 4 16652	4322		STO	SCRIPL+2,C	4F14371
	10072	1 77775 4 10073	4323		TXI	CS0750,C,−3	4F14372
	10073	1 77775 1 10074	4324	CS0750	TXI	CS0760,A,−3	4F14373
	10074	3 00000 1 10063	4325	CS0760	TXH	CS0670,A,0	4F14374
	10075	−0 63400 4 10111	4326		SXD	PM0080,C -3Q IN XC AT END	4F14375
	10076	−0 63400 4 10300	4327		SXD	AS1800,C	4F14376
	10077	−0 63400 4 10323	4328		SXD	AS3600,C	4F14377
	10100	0 76000 0 00140	4329	PM0000	SLF	TURN OFF ALL SENSE LITES	4F14378
	10101	0 53400 1 01406	4330		LXA	L(0),A PERMUTE * AND /	4F14379
	10102	0 50000 1 16650	4331	PM0010	CLA	SCRIPL,A	4F14380
	10103	0 73400 2 00000	4332		PAX	0,B	4F14381
	10104	0 50000 2 15044	4333		CLA	BETA,B	4F14382
	10105	0 73400 4 00000	4334		PAX	0,C LDXC WITH SEGMENT LENGTH	4F14383
	10106	−0 63400 4 10110	4335		SXD	PM0070,C	4F14384
	10107	−3 77767 4 10113	4336		TXL	PM0100,C,−9	4F14385
	10110	1 00000 1 10111	4337	PM0070	TXI	PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO *	4F14386
	10111	−3 00000 1 10256	4338	PM0080	TXL	AS0000,A,0 EXIT FROM PERMUTATION ROUTINE	4F14387
	10112	0 02000 0 10102	4339		TRA	PM0010	4F14388
	10113	0 56000 1 16651	4340	PM0100	LDQ	SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3	4F14389
	10114	−0 75400 0 00000	4341		PXD	0,0	4F14390
	10115	−0 76300 0 00006	4342		LGL	6	4F14391
	10116	0 40200 0 01405	4343		SUB	STAR	4F14392
	10117	−0 10000 0 10110	4344		TNZ	PM0070	4F14393
	10120	0 16200 0 10122	4345		TQP	PM0170	4F14394
	10121	0 02000 0 10110	4346		TRA	PM0070	4F14395
	10122	−0 63400 4 10131	4347	PM0170	SXD	PM0260,C	4F14396
	10123	−0 63400 4 10147	4348		SXD	PM0400,C	4F14397
	10124	−0 63400 4 10200	4349		SXD	PM0680,C	4F14398
	10125	0 53400 4 01406	4350		LXA	L(0),C LDXC WITH 0	4F14399
	10126	1 77775 1 10127	4351		TXI	PM0240,A,−3	4F14400
	10127	0 76000 0 00143	4352	PM0240	SLN	3 TURN * LITE ON	4F14401
	10130	1 77775 4 10131	4353	PM0250	TXI	PM0260,C,−3	4F14402
	10131	−3 00000 4 10212	4354	PM0260	TXL	PM0790,C,0 EXIT	4F14403
	10132	−0 63400 4 10142	4355		SXD	PM0340,C	4F14404
	10133	−0 53400 2 10134	4356		LXD	PM0290,B	4F14405
	10134	1 00000 3 10135	4357	PM0290	TXI	PM0300,3,0 XA TO XA AND XB	4F14406
	10135	−0 75400 0 00000	4358	PM0300	PXD	0,0	4F14407
	10136	0 56000 1 16651	4359		LDQ	SCRIPL+1,A	4F14408
	10137	−0 76300 0 00006	4360		LGL	6	4F14409
	10140	0 34000 0 01402	4361		CAS	SLASH	4F14410
	10141	0 00007 0 00000	4362	FEXUB	HTR	0,0,7	4F14411
	10142	−3 00000 0 10174	4363	PM0340	TXL	PM0640,0,0 / SIGN	4F14412
	10143	−0 76000 0 00143	4364		SLT	3 * SIGN... IS * LITE ON	4F14413
	10144	1 77775 1 10127	4365		TXI	PM0240,A,−3 NO	4F14414
	10145	1 77775 2 10146	4366		TXI	PM0390,B,−3 YES - SEARCH FOR / SIGN	4F14415
	10146	1 77775 4 10147	4367	PM0390	TXI	PM0400,C,−3	4F14416
	10147	−3 00000 4 10210	4368	PM0400	TXL	PM0770,C,0 EXIT	4F14417
	10150	−0 75400 0 00000	4369		PXD	0,0	4F14418
	10151	0 56000 2 16651	4370		LDQ	SCRIPL+1,B	4F14419
	10152	−0 76300 0 00006	4371		LGL	6	4F14420
	10153	0 40200 0 01402	4372		SUB	SLASH	4F14421
	10154	0 10000 0 10156	4373		TZE	PM0480	4F14422
	10155	1 77775 2 10146	4374		TXI	PM0390,B,−3	4F14423
	10156	0 50000 1 16650	4375	PM0480	CLA	SCRIPL,A PERMUTE TAG WORDS	4F14424
	10157	0 56000 2 16650	4376		LDQ	SCRIPL,B	4F14425
	10160	−0 60000 1 16650	4377		STQ	SCRIPL,A	4F14426
	10161	0 60100 2 16650	4378		STO	SCRIPL,B	4F14427
	10162	0 50000 1 16651	4379		CLA	SCRIPL+1,A PERMUTE OP WORDS	4F14428
	10163	0 56000 2 16651	4380		LDQ	SCRIPL+1,B	4F14429
	10164	−0 60000 1 16651	4381		STQ	SCRIPL+1,A	4F14430
	10165	0 60100 2 16651	4382		STO	SCRIPL+1,B	4F14431
	10166	0 50000 1 16652	4383		CLA	SCRIPL+2,A PERMUTE SYMBOL WORDS	4F14432
	10167	0 56000 2 16652	4384		LDQ	SCRIPL+2,B	4F14433
	10170	−0 60000 1 16652	4385		STQ	SCRIPL+2,A	4F14434
	10171	0 60100 2 16652	4386		STO	SCRIPL+2,B	4F14435
	10172	−0 53400 4 10142	4387		LXD	PM0340,C	4F14436
	10173	1 77775 1 10130	4388		TXI	PM0250,A,−3 RESUME SEGMENT SCAN	4F14437
	10174	−0 76000 0 00143	4389	PM0640	SLT	3 / SIGN... IS * LITE ON	4F14438
	10175	1 77775 2 10177	4390	PM0650	TXI	PM0670,B,−3 NO	4F14439
	10176	1 77775 1 10130	4391		TXI	PM0250,A,−3	4F14440
	10177	1 77775 4 10200	4392	PM0670	TXI	PM0680,C,−3	4F14441
	10200	−3 00000 4 10210	4393	PM0680	TXL	PM0770,C,0	4F14442
	10201	−0 75400 0 00000	4394		PXD	0,0	4F14443
	10202	0 56000 2 16651	4395		LDQ	SCRIPL+1,B	4F14444
	10203	−0 76300 0 00006	4396		LGL	6	4F14445
	10204	0 40200 0 01402	4397		SUB	SLASH	4F14446
	10205	0 10000 0 10175	4398		TZE	PM0650	4F14447
	10206	0 76000 0 00143	4399		SLN	3 TORN * LITE ON	4F14448
	10207	0 02000 0 10156	4400		TRA	PM0480	4F14449
	10210	−0 53400 1 10211	4401	PM0770	LXD	PM0780,A	4F14450
	10211	1 00000 3 10212	4402	PM0780	TXI	PM0790,3,0 XB TO XA,XB	4F14451
	10212	−0 75400 0 00000	4403	PM0790	PXD	0,0	4F14452
	10213	0 56000 1 16646	4404		LDQ	SCRIPL−2,A	4F14453
	10214	−0 76300 0 00006	4405		LGL	6	4F14454
	10215	0 40200 0 01402	4406		SUB	SLASH	4F14455
	10216	0 10000 0 10111	4407		TZE	PM0080 ... / - EXIT FROM SEGMENT SCAN	4F14456
	10217	−0 75400 0 00000	4408		PXD	0,0	4F14457
	10220	0 56000 1 16643	4409		LDQ	SCRIPL−5,A	4F14458
	10221	−0 76300 0 00006	4410		LGL	6	4F14459
	10222	0 40200 0 01402	4411		SUB	SLASH	4F14460
	10223	0 10000 0 10111	4412		TZE	PM0080 ... / * - EXIT FROM SEGMENT SCAN	4F14461
	10224	0 50000 1 16645	4413		CLA	SCRIPL−3,A ... **	4F14462
	10225	0 60100 0 01126	4414		STO	E	4F14463
	10226	0 50000 1 16646	4415		CLA	SCRIPL−2,A	4F14464
	10227	0 60100 0 01127	4416		STO	E+1	4F14465
	10230	0 50000 1 16647	4417		CLA	SCRIPL−1,A	4F14466
	10231	0 60100 0 01130	4418		STO	E+2	4F14467
	10232	1 00003 1 10233	4419		TXI	PM0980,A,3	4F14468
	10233	1 00003 4 10234	4420	PM0980	TXI	PM0990,C,3	4F14469
	10234	−3 00000 4 10244	4421	PM0990	TXL	PM1070,C,0 FINIS	4F14470
	10235	0 50000 1 16645	4422		CLA	SCRIPL−3,A	4F14471
	10236	0 60100 1 16650	4423		STO	SCRIPL,A	4F14472
	10237	0 50000 1 16646	4424		CLA	SCRIPL−2,A	4F14473
	10240	0 60100 1 16651	4425		STO	SCRIPL+1,A	4F14474
	10241	0 50000 1 16647	4426		CLA	SCRIPL−1,A	4F14475
	10242	0 60100 1 16652	4427		STO	SCRIPL+2,A	4F14476
	10243	1 00003 1 10233	4428		TXI	PM0980,A,3	4F14477
	10244	0 50000 0 01126	4429	PM1070	CLA	E	4F14478
	10245	0 60100 1 16650	4430		STO	SCRIPL,A	4F14479
	10246	0 50000 0 01127	4431		CLA	E+1	4F14480
	10247	0 60100 1 16651	4432		STO	SCRIPL+1,A	4F14481
	10250	0 50000 0 01130	4433		CLA	E+2	4F14482
	10251	0 60100 1 16652	4434		STO	SCRIPL+2,A	4F14483
	10252	−0 50000 1 16654	4435		CAL	SCRIPL+4,A PRESERVE CS BIT	4F14464
	10253	−0 32000 0 01401	4436		ANA	11Z	4F14485
	10254	−0 60200 1 16651	4437		ORS	SCRIPL+1,A	4F14486
	10255	0 02000 0 10110	4438		TRA	PM0070	4F14487
	10256	0 53400 7 01406	4439	AS0000	LXA	L(0),7 RENUMBER SEGMENT OF SCRIPL	4F14488
	10257	0 50000 2 15044	4440	AS0100	CLA	BETA,B	4F14489
	10260	0 10000 0 10265	4441		TZE	AS0700	4F14490
	10261	−0 75400 4 00000	4442		PXD	0,C	4F14491
	10262	0 77100 0 00022	4443		ARS	18	4F14492
	10263	0 62100 2 15044	4444		STA	BETA,B	4F14493
	10264	1 77777 4 10265	4445		TXI	AS0700,C,−1	4F14494
	10265	1 77777 2 10266	4446	AS0700	TXI	AS0800,B,−1	4F14495
	10266	3 00000 2 10257	4447	AS0800	TXH	AS0100,B,0	4F14496
	10267	0 50000 1 16650	4448	AS0900	CLA	SCRIPL,A	4F14497
	10270	0 73400 2 00000	4449		PAX	0,B	4F14498
	10271	0 50000 2 15044	4450		CLA	BETA,B	4F14499
	10272	0 62100 1 16650	4451		STA	SCRIPL,A	4F14500
	10273	0 56000 1 16652	4452		LDQ	SCRIPL+2,A	4F14501
	10274	−0 76300 0 00001	4453		LGL	1	4F14502
	10275	0 76000 0 00001	4454		LBT		4F14503
	10276	0 16200 0 10302	4455		TQP	AS2000	4F14504
	10277	1 77775 1 10300	4456		TXI	AS1800,A,−3	4F14505
	10300	3 00000 1 10267	4457	AS1800	TXH	AS0900,A,0	4F14506
	10301	0 02000 0 10307	4458		TRA	AS2500	4F14507
	10302	−0 76300 0 00043	4459	AS2000	LGL	35	4F14508
	10303	0 73400 2 00000	4460		PAX	0,B	4F14509
	10304	0 50000 2 15044	4461		CLA	BETA,B	4F14510
	10305	0 62100 1 16652	4462		STA	SCRIPL+2,A	4F14511
	10306	1 77775 1 10300	4463		TXI	AS1800,A,−3	4F14512
	10307	0 53400 3 01406	4464	AS2500	LXA	L(0),3 LDXA,XB WITH 0	4F14513
	10310	0 56000 0 01406	4465		LDQ	L(0) CLEAR MQ	4F14514
	10311	−0 60000 2 15044	4466	AS2700	STQ	BETA,B RECLEAR BETA TABLE	4F14515
	10312	1 77777 2 10313	4467		TXI	AS2900,B,−1	4F14516
	10313	3 00000 2 10311	4468	AS2900	TXH	AS2700,B,0	4F14517
	10314	0 50000 1 16650	4469	AS3000	CLA	SCRIPL,A ADD INTO GAMMA COUNTERS	4F14518
	10315	0 73400 2 00000	4470		PAX	0,B	4F14519
	10316	0 50000 2 15044	4471		CLA	BETA,B	4F14520
	10317	0 40000 0 01462	4472		ADD	BETAD2 3*2**18+(-3)	4F14521
	10320	0 62200 2 15044	4473		STD	BETA,B	4F14522
	10321	0 62100 2 15044	4474		STA	BETA,B	4F14523
	10322	1 77775 1 10323	4475		TXI	AS3600,A,−3	4F14524
	10323	3 00000 1 10314	4476	AS3600	TXH	AS3000,A,0 -3Q IN XA AT END	4F14525
	10324	−0 63400 1 01117	4477		SXD	3QBAR,A -3Q TO 3QBAR = 3LBAR	4F14526
	10325	−0 50000 1 16645	4478	CCS000	CAL	SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS	4F14527
	10326	0 73400 2 00000	4479		PAX	0,B LOAD XB WITH S(I)	4F14528
	10327	−3 00000 2 10354	4480		TXL	CCS240,B,0 EXIT AT S(0)	4F14529
	10330	−0 50000 2 15044	4481		CAL	BETA,B OBTAIN LENGTH OF S(I)	4F14530
	10331	0 62200 0 10332	4482		STD	CCS060 AND BACK UP TO	4F14531
	10332	1 00000 1 10333	4483	CCS060	TXI	CCS070,A,0 BEGINNING OF CURRENT SEGMENT	4F14532
	10333	−0 50000 1 16651	4484	CCS070	CAL	SCRIPL+1,A OBTAIN OP1 (S(I))	4F14533
	10334	−0 32000 0 01401	4485		ANA	11Z EXTRACT CS-BIT	4F14534
	10335	0 10000 0 10325	4486		TZE	CCS000 CONTINUE TO S(I-1)	4F14535
	10336	−0 75400 2 00000	4487		PXD	0,B	4F14536
	10337	0 77100 0 00022	4488		ARS	18	4F14537
	10340	0 53400 4 01406	4489		LXA	L(0),C TO S(I)	4F14538
	10341	−0 53400 2 10342	4490		LXD	CCS140,B AND KEEP COUNT OF SAME	4F14539
	10342	1 00000 3 10343	4491	CCS140	TXI	CCS150,3,0 XA TO XA,XB	4F14540
	10343	−3 00000 2 10350	4492	CCS150	TXL	CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT	4F14541
	10344	0 34000 2 16647	4493		CAS	SCRIPL−1,B	4F14542
	10345	1 00003 2 10343	4494		TXI	CCS150,B,3 CONTINUE SEARCH	4F14543
	10346	1 00001 4 10347	4495		TXI	CCS190,C,1 RAISE REF COUNTER AND	4F14544
	10347	1 00003 2 10343	4496	CCS190	TXI	CCS150,B,3 CONTINUE SEARCH	4F14545
	10350	3 00001 4 10325	4497	CCS200	TXH	CCS000,C,1 MULTIPLE REFERENCE	4F14546
	10351	−0 50000 0 01530	4498		CAL	MASK4 SINGLE REFERENCE - SO SET	4F14547
	10352	0 32000 1 16651	4499		ANS	SCRIPL+1,A OP1(S(I))30 TO 0, AND	4F14548
	10353	0 02000 0 10325	4500		TRA	CCS000 CONTINUE FOR S(I-1)	4F14549
	10354	−0 53400 1 10323	4501	CCS240	LXD	AS3600,A -3Q TO XA	4F14550
	10355	−3 00000 1 10610	4502	PL0000	TXL	LK0000,A,0 GO TO LINKAGE	4F14551
	10356	0 50000 1 16645	4503		CLA	SCRIPL−3,A	4F14552
	10357	0 73400 2 00000	4504		PAX	0,B	4F14553
	10360	−0 50000 2 15044	4505		CAL	BETA,B	4F14554
	10361	0 73400 4 00000	4506		PAX	0,C	4F14555
	10362	0 62200 0 10363	4507		STD	PL0060	4F14556
	10363	1 00000 1 10364	4508	PL0060	TXI	PL0070,A,0 SET XA TO BEGINNING OF S(I)	4F14557
	10364	−0 75400 0 00000	4509	PL0070	PXD	0,0	4F14558
	10365	0 56000 1 16651	4510		LDQ	SCRIPL+1,A OBTAIN	4F14559
	10366	−0 76300 0 00006	4511		LGL	6 AND	4F14560
	10367	0 34000 0 01427	4512		CAS	SPECOP EXAMINE OP1 (S(I))	4F14561
	10370	0 02000 0 10465	4513		TRA	PL0680	4F14562
	10371	0 02000 0 10427	4514		TRA	PL0460	4F14563
	10372	−0 75400 0 00000	4515	PL0130	PXD	0,0 OP1 (S(I)) IS +, - OR *	4F14564
	10373	0 56000 1 16652	4516		LDQ	SCRIPL+2,A OBTAIN	4F14565
	10374	−0 76300 0 00001	4517		LGL	1 AND	4F14566
	10375	0 76000 0 00001	4518		LBT	EXAMINE SYM1 (S(I))	4F14567
	10376	0 16200 0 10410	4519		TQP	PL0300	4F14568
	10377	−0 76300 0 00005	4520		LGL	5 EX (IN)TERNAL VARIAVLE	4F14569
	10400	0 34000 0 01423	4521	PL0135	CAS	L(H) IS SYM1 (S(I)) FIX OR FLO PT	4F14570
	10401	0 34000 0 01425	4522		CAS	L(O)	4F14571
	10402	0 02000 0 10405	4523		TRA	PL0240 FLO PT... SET OP1 (S(I)) 32 = 1	4F14572
	10403	0 02000 0 10405	4524		TRA	PL0240 FLO PT... DITTO	4F14573
	10404	0 02000 0 10355	4525		TRA	PL0000 FIX PT... OP1 (S(I)) 32 = 0	4F14574
	10405	−0 50000 0 01416	4526	PL0240	CAL	L(8) SET OP1 (S(I)) 32 = 1	4F14575
	10406	−0 60200 1 16651	4527	PL0250	ORS	SCRIPL+1,A	4F14576
	10407	1 00000 0 10355	4528	PL0260	TXI	PL0000,0,0 CONTINUE SCAN	4F14577
	10410	−0 53400 2 10411	4529	PL0300	LXD	PL0310,B SYM1 (S(I)) = SOME S(J)	4F14578
	10411	1 00000 3 10412	4530	PL0310	TXI	PL0320,3,0 XA TO XA,XB	4F14579
	10412	−0 63400 4 10413	4531	PL0320	SXD	PL0330,C	4F14580
	10413	1 00000 2 10414	4532	PL0330	TXI	PL0340,B,0	4F14581
	10414	−0 50000 2 16650	4533	PL0340	CAL	SCRIPL,B	4F14582
	10415	0 73400 4 00000	4534		PAX	0,C	4F14583
	10416	−0 32000 0 01452	4535		ANA	MASK2	4F14584
	10417	0 40200 1 16652	4536		SUB	SCRIPL+2,A	4F14585
	10420	0 10000 0 10424	4537		TZE	PL0420	4F14586
	10421	0 50000 4 15044	4538		CLA	BETA,C	4F14587
	10422	0 73400 4 00000	4539		PAX	0,C	4F14588
	10423	0 02000 0 10412	4540		TRA	PL0320	4F14589
	10424	−0 50000 2 16651	4541	PL0420	CAL	SCRIPL+1,B SYM1(S(I)) = S(J)	4F14590
	10425	−0 32000 0 01416	4542		ANA	L(8) EXTRACT OP1 (S(J)) 32 AND GO	4F14591
	10426	0 02000 0 10406	4543		TRA	PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32	4F14592
	10427	−0 76300 0 00007	4544	PL0460	LGL	7 OP1 (S(I)) IS SPOP	4F14593
	10430	0 16200 0 10437	4545		TQP	PL0465	4F14594
	10431	0 56000 1 16652	4546	PL0461	LDQ	SCRIPL+2,A FS NAME -	4F14595
	10432	−0 75400 0 00000	4547		PXD	0,0 EXAMINE SUM1 (S(I)) S,1-5	4F14596
	10433	−0 76300 0 00006	4548		LGL	6	4F14597
	10434	0 40200 0 01433	4549		SUB	L(X)	4F14598
	10435	−0 10000 0 10405	4550		TNZ	PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1	4F14599
	10436	0 02000 0 10355	4551		TRA	PL0000 FIX PT ... OP1 (S(I)) 32 = 0	4F14600
	10437	0 76000 0 00001	4552	PL0465	LBT		4F14601
	10440	0 02000 0 10445	4553		TRA	PL0470	4F14602
	10441	0 56000 1 16652	4554		LDQ	SCRIPL+2,A	4F14603
	10442	−0 75400 0 00000	4555		PXD	,0	4F14604
	10443	−0 76300 0 00006	4556		LGL	6	4F14605
	10444	0 02000 0 10400	4557		TRA	PL0135	4F14606
	10445	0 50000 1 16652	4558	PL0470	CLA	SCRIPL+2,A NOT AN FS NAME	4F14607
	10446	0 53400 2 01406	4559		LXA	L(0),B	4F14608
	10447	0 34000 2 11117	4560	PL0480	CAS	OPSUB,B	4F14609
	10450	1 77777 2 10453	4561		TXI	PL0520,B,−1	4F14610
	10451	0 02000 0 10462	4562		TRA	PL0650	4F14611
	10452	1 77777 2 10453	4563		TXI	PL0520,B,−1	4F14612
	10453	3 77754 2 10447	4564	PL0520	TXH	PL0480,B,−20	4F14613
	10454	0 60100 0 01347	4565		STO	G	4F14614
	10455	−0 63400 1 10407	4566		SXD	PL0260,A	4F14615
	10456	0 07400 1 03321	4567		TSX	TET00,A	4F14616
	10457	0 00000 0 00011	4568		HTR	9	4F14617
	10460	−0 53400 1 10407	4569		LXD	PL0260,A	4F14618
	10461	0 02000 0 10431	4570		TRA	PL0461	4F14619
	10462	−0 50000 0 01412	4571	PL0650	CAL	L(4) SET OP1 (S(I)) 33 =1	4F14620
	10463	−0 60200 1 16651	4572		ORS	SCRIPL+1,A	4F14621
	10464	0 02000 0 10431	4573		TRA	PL0461	4F14622
	10465	0 16200 0 10372	4574	PL0680	TQP	PL0130	4F14623
	10466	−0 75400 0 00000	4575		PXD	0,0 OP1 (S(I) IS **	4F14624
	10467	0 56000 1 16652	4576		LDQ	SCRIPL+2,A OBTAIN AND	4F14625
	10470	−0 76300 0 00001	4577		LGL	1 EXAMINE	4F14626
	10471	0 76000 0 00001	4578		LBT	SYM1 (S(I))	4F14627
	10472	0 16200 0 10550	4579		TQP	PL1000	4F14628
	10473	−0 76300 0 00005	4580		LGL	5 EX (IN)TERNAL VARIABLE	4F14629
	10474	0 34000 0 01423	4581		CAS	L(H) IS OT FIX OR FLO PT	4F14630
	10475	0 34000 0 01425	4582		CAS	L(O)	4F14631
	10476	0 02000 0 10501	4583		TRA	PL0800	4F14632
	10477	0 02000 0 10501	4584		TRA	PL0800	4F14633
	10500	0 02000 0 10503	4585		TRA	PL0830 FIX PT	4F14634
	10501	−0 50000 0 01416	4586	PL0800	CAL	L(8) FLO PT... SET OP1 (S(I)) 32 = 1	4F14635
	10502	−0 60200 1 16651	4587	PL0820	ORS	SCRIPL+1,A	4F14636
	10503	−0 75400 0 00000	4588	PL0830	PXD	0,0	4F14637
	10504	0 56000 1 16655	4589		LDQ	SCRIPL+5,A OBTAIN	4F14638
	10505	−0 76300 0 00001	4590		LGL	1 AND	4F14639
	10506	0 76000 0 00001	4591		LBT	EXAMINE	4F14640
	10507	0 16200 0 10567	4592		TQP	PL1200 SYM2 (S(I))	4F14641
	10510	−0 76300 0 00005	4593		LGL	5	4F14642
	10511	0 34000 0 01423	4594		CAS	L(H)	4F14643
	10512	0 34000 0 01425	4595		CAS	L(O)	4F14644
	10513	0 02000 0 10545	4596		TRA	PL0940 SYM2 (S(I)) IS FLO PT, SO GO	4F14645
	10514	0 02000 0 10545	4597		TRA	PL0940 SET OP2 (S(I)) 32 = 1	4F14646
	10515	−0 75400 0 00000	4598	PL0850	PXD	0,0 SYM2(S(I)) IS FIX PT	4F14647
	10516	−0 76300 0 00006	4599		LGL	6	4F14648
	10517	0 40200 0 01375	4600		SUB	OPEN	4F14649
	10520	−0 10000 0 10355	4601		TNZ	PL0000 SYM2 (S(I)) IS EXTERNAL	4F14650
	10521	−0 76300 0 00031	4602		LGL	25 SYM2 (S(I)) IS INTERNAL (AND FIX PT)	4F14651
	10522	0 40000 0 10537	4603		ADD	PL0880	4F14652
	10523	0 62100 0 10515	4604		STA	PL0850	4F14653
	10524	0 76200 0 00302	4605		RDR	FXCODR	4F14654
	10525	0 46000 0 10515	4606		LDA	PL0850	4F14655
	10526	0 70000 0 01347	4607		CPY	G	4F14656
	10527	0 70000 0 01350	4608		CPY	G+1	4F14657
	10530	0 50000 0 01347	4609		CLA	G	4F14658
	10531	0 34000 0 01350	4610		CAS	G+1	4F14659
	10532	0 02000 0 10534	4611		TRA	*+2 GO TO THE DIAGNOSTIC.	4F14660
	10533	0 02000 0 10535	4612		TRA	PL1570	4F14661
	10534	0 07400 4 03400	4613		TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F14662
	10535	0 10000 0 10355	4614	PL1570	TZE	PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0	4F14663
	10536	0 34000 0 10141	4615		CAS	FEXUB	4F14664
	10537	3 00000 0 00002	4616	PL0880	TXH	FIXCON,0,0 EXP NOT LESS THAN 7, SO	4F14665
	10540	0 02000 0 10355	4617		TRA	PL0000 OP1 (S(I)) 33 = 0	4F14666
	10541	0 60100 1 16655	4618		STO	SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP	4F14667
	10542	−0 50000 0 01412	4619		CAL	L(4) AS SYM2 (S(I)) AND SET	4F14668
	10543	−0 60200 1 16651	4620		ORS	SCRIPL+1,A OP1 (S(I)) 33 = 1	4F14669
	10544	0 02000 0 10355	4621		TRA	PL0000	4F14670
	10545	−0 50000 0 01416	4622	PL0940	CAL	L(8) SYM2 (S(I)) IS FLO PT	4F14671
	10546	−0 60200 1 16654	4623		ORS	SCRIPL+4,A SET OP2 (S(I)) 32 = 1	4F14672
	10547	0 02000 0 10355	4624		TRA	PL0000	4F14673
	10550	−0 53400 2 10551	4625	PL1000	LXD	PL1010,B SYM1 (S(I)) IS SOME S(J)	4F14674
	10551	1 00000 3 10552	4626	PL1010	TXI	PL1020,3,0 XA TO XA,XB	4F14675
	10552	−0 63400 4 10553	4627	PL1020	SXD	PL1030,C	4F14676
	10553	1 00000 2 10554	4628	PL1030	TXI	PL1040,B,0	4F14677
	10554	−0 50000 2 16650	4629	PL1040	CAL	SCRIPL,B	4F14678
	10555	0 73400 4 00000	4630		PAX	0,C	4F14679
	10556	−0 32000 0 01452	4631		ANA	MASK2	4F14680
	10557	0 40200 1 16652	4632		SUB	SCRIPL+2,A	4F14681
	10560	0 10000 0 10564	4633		TZE	PL1130	4F14682
	10561	0 50000 4 15044	4634		CLA	BETA,C	4F14683
	10562	0 73400 4 00000	4635		PAX	0,C	4F14684
	10563	0 02000 0 10552	4636		TRA	PL1020	4F14685
	10564	−0 50000 2 16651	4637	PL1130	CAL	SCRIPL+1,B	4F14686
	10565	−0 32000 0 01416	4638		ANA	L(8)	4F14687
	10566	0 02000 0 10502	4639		TRA	PL0820	4F14688
	10567	−0 53400 2 10570	4640	PL1200	LXD	PL1210,B SYM2 (S(I)) = SOME S(K)	4F14689
	10570	1 00000 3 10571	4641	PL1210	TXI	PL1220,3,0 XA TO XA,XB	4F14690
	10571	−0 53400 4 10603	4642	PL1220	LXD	PL1330,C LKXC WITH -6	4F14691
	10572	−0 63400 4 10573	4643	PL1230	SXD	PL1240,C	4F14692
	10573	1 00000 2 10574	4644	PL1240	TXI	PL1250,B,0	4F14693
	10574	−0 50000 2 16650	4645	PL1250	CAL	SCRIPL,B	4F14694
	10575	0 73400 4 00000	4646		PAX	0,C	4F14695
	10576	−0 32000 0 01452	4647		ANA	MASK2	4F14696
	10577	0 40200 1 16655	4648		SUB	SCRIPL+5,A	4F14697
	10600	0 10000 0 10604	4649		TZE	PL1340 SYM2(S(I)) = S(K)	4F14698
	10601	0 50000 4 15044	4650		CLA	BETA,C	4F14699
	10602	0 73400 4 00000	4651		PAX	0,C	4F14700
	10603	1 77772 0 10572	4652	PL1330	TXI	PL1230,0,−6	4F14701
	10604	−0 50000 2 16651	4653	PL1340	CAL	SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32	4F14702
	10605	−0 32000 0 01416	4654		ANA	L(8)	4F14703
	10606	−0 60200 1 16654	4655		ORS	SCRIPL+4,A	4F14704
	10607	0 02000 0 10355	4656		TRA	PL0000 RESUME SCAN	4F14705
	10610	−0 53400 1 10323	4657	LK0000	LXD	AS3600,A -3Q TO XA	4F14706
	10611	−0 50000 1 16645	4658	LK0030	CAL	SCRIPL−3,A	4F14707
	10612	0 73400 2 00000	4659		PAX	0,B S(I) TO XB	4F14708
	10613	−3 00000 2 11020	4660		TXL	LK1610,B,0 EXIT UPON ENCOUNTERING S(0)	4F14709
	10614	0 56000 1 16646	4661		LDQ	SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ	4F14710
	10615	0 50000 2 15044	4662		CLA	BETA,B	4F14711
	10616	0 62200 0 10617	4663		STD	LK0110	4F14712
	10617	1 00000 1 10620	4664	LK0110	TXI	LK0120,A,0 MOVE XA TO BEGINNING OF S(I)	4F14713
	10620	−0 53400 4 10621	4665	LK0120	LXD	LK0130,C	4F14714
	10621	1 00000 5 10622	4666	LK0130	TXI	LK0140,5,0 XA TO XA,XC	4F14715
	10622	−0 63400 1 10323	4667	LK0140	SXD	AS3600,A	4F14716
	10623	0 50000 2 15043	4668		CLA	BETA−1,B	4F14717
	10624	−0 73400 2 00000	4669		PDX	0,B LENGTH OF S(I-1) TO XB	4F14718
	10625	−0 63400 2 10626	4670		SXD	LK0180,B	4F14719
	10626	1 00000 4 10627	4671	LK0180	TXI	LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1)	4F14720
	10627	0 16200 0 10753	4672	LK0190	TQP	LK1200 S(I) TYPE AC	4F14721
	10630	−0 77300 0 00001	4673		RQL	1	4F14722
	10631	0 16200 0 10753	4674		TQP	LK1200 S(I) TYPE AC	4F14723
	10632	−0 50000 0 01404	4675		CAL	12Z S(I) RESULTS IN MQ (TYPE MQ)	4F14724
	10633	−0 60200 1 16651	4676		ORS	SCRIPL+1,A SET OP1 (S(I)) 31 = 1	4F14725
	10634	−0 75400 0 00000	4677		PXD	0,0	4F14726
	10635	0 56000 4 16651	4678		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14727
	10636	−0 76300 0 00006	4679		LGL	6	4F14728
	10637	0 34000 0 01427	4680		CAS	SPECOP	4F14729
	10640	0 02000 0 10643	4681		TRA	LK0320	4F14730
	10641	0 02000 0 10730	4682		TRA	LK0950	4F14731
	10642	0 02000 0 10611	4683		TRA	LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0	4F14732
	10643	0 16200 0 10664	4684	LK0320	TQP	LK0570	4F14733
	10644	−0 76300 0 00033	4685		LGL	27 S(I)TYPE MQ, OP1(S(I-1) = **	4F14734
	10645	−0 50000 1 16650	4686		CAL	SCRIPL,A	4F14735
	10646	−0 32000 0 01452	4687		ANA	MASK2 EXTRACT S(I) IN ACC	4F14736
	10647	0 16200 0 10657	4688		TQP	LK0480 OP1 (S(I-1)) 33 = 0	4F14737
	10650	0 40200 4 16652	4689		SUB	SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE.	4F14738
	10651	−0 10000 0 10611	4690		TNZ	LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0	4F14739
	10652	−0 50000 0 01411	4691		CAL	L(3) S(I) = SYM1 (S(I-1)), SO	4F14740
	10653	−0 60200 4 16651	4692	LK0430	ORS	SCRIPL+1,C	4F14741
	10654	−0 50000 0 01436	4693	LK0440	CAL	BIT29	4F14742
	10655	−0 60200 1 16651	4694		ORS	SCRIPL+1,A	4F14743
	10656	0 02000 0 10611	4695		TRA	LK0030 OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE.	4F14744
	10657	0 40200 4 16655	4696	LK0480	SUB	SCRIPL+5,C	4F14745
	10660	−0 10000 0 10611	4697		TNZ	LK0030 SET OP1,S(I))29=OP1(S(I-1))35=0	4F14746
	10661	−0 50000 0 01407	4698		CAL	L(1) S(I) = SYM2 (S(I-1)), S0	4F14747
	10662	−0 60200 4 16654	4699		ORS	SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1	4F14748
	10663	0 02000 0 10654	4700		TRA	LK0440	4F14749
	10664	−0 75400 0 00000	4701	LK0570	PXD	0,0 S(I) TYPE MQ, OP1 (S(I-1)) = *	4F14750
	10665	0 56000 4 16654	4702		LDQ	SCRIPL+4,C F1ACE PO2 (S(I-1)) IN MQ	4F14751
	10666	−0 76300 0 00006	4703		LGL	6 IS OP2 (S(I-1)) = *	4F14752
	10667	0 40200 0 01405	4704		SUB	STAR	4F14753
	10670	−0 10000 0 10611	4705		TNZ	LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =0	4F14754
	10671	−0 50000 0 01410	4706		CAL	L(2) YES	4F14755
	10672	−0 60200 4 16651	4707		ORS	SCRIPL+1,C SET OP1(S(I-1))34=1	4F14756
	10673	−0 50000 1 16650	4708	LK0630	CAL	SCRIPL,A	4F14757
	10674	−0 32000 0 01452	4709		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14758
	10675	−3 00000 2 10610	4710	LK0650	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14759
	10676	0 34000 1 16647	4711		CAS	SCRIPL−1,A	4F14760
	10677	1 00003 1 10702	4712		TXI	LK0700,A,3	4F14761
	10700	0 02000 0 10703	4713		TRA	LK0710	4F14762
	10701	1 00003 1 10702	4714		TXI	LK0700,A,3 NOT FOUND - CONTINUE SEARCH	4F14763
	10702	1 77775 2 10675	4715	LK0700	TXI	LK0650,B,−3	4F14764
	10703	0 56000 1 16646	4716	LK0710	LDQ	SCRIPL−2,A S(I) IS SYMJ (S(I-1))	4F14765
	10704	−0 77300 0 00001	4717		RQL	1 IS OPJ (S(I-1)) = *	4F14766
	10705	0 16200 0 10707	4718		TQP	LK0750	4F14767
	10706	1 00003 1 10702	4719		TXI	LK0700,A,3 NO... CONTINUE SEARCH	4F14768
	10707	0 50000 4 16650	4720	LK0750	CLA	SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1))	4F14769
	10710	0 56000 1 16645	4721		LDQ	SCRIPL−3,A EXCHANGE	4F14770
	10711	0 60100 1 16645	4722		STO	SCRIPL−3,A TAG	4F14771
	10712	−0 60000 4 16650	4723		STQ	SCRIPL,C WORDS	4F14772
	10713	−0 50000 4 16651	4724		CAL	SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC	4F14773
	10714	0 56000 1 16646	4725		LDQ	SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ	4F14774
	10715	0 60200 1 16646	4726		SLW	SCRIPL−2,A EXCHANGE	4F14775
	10716	−0 60000 4 16651	4727		STQ	SCRIPL+1,C OP	4F14776
	10717	−0 32000 0 01452	4728		ANA	MASK2 WORDS AND	4F14777
	10720	−0 60200 4 16651	4729		ORS	SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33	4F14778
	10721	0 50000 4 16652	4730		CLA	SCRIPL+2,C THEN	4F14779
	10722	0 56000 1 16647	4731		LDQ	SCRIPL−1,A EXCHANGE	4F14780
	10723	0 60100 1 16647	4732		STO	SCRIPL−1,A SYMBOL	4F14781
	10724	−0 60000 4 16652	4733		STQ	SCRIPL+2,C WORDS	4F14782
	10725	−0 53400 1 10323	4734		LXD	AS3600,A RESTORE XA	4F14783
	10726	−0 50000 0 01407	4735	LK0900	CAL	L(1) AND	4F14784
	10727	0 02000 0 10653	4736		TRA	LK0430	4F14785
	10730	−0 77300 0 00033	4737	LK0950	RQL	27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP	4F14786
	10731	−0 50000 1 16650	4738		CAL	SCRIPL,A	4F14787
	10732	−0 32000 0 01452	4739		ANA	MASK2 EXTRACT S(I) IN ACC	4F14788
	10733	0 16200 0 10742	4740		TQP	LK1050 0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE)	4F14789
	10734	3 00006 2 10611	4741		TXH	LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0	4F14790
	10735	0 40200 4 16655	4742		SUB	SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1))	4F14791
	10736	−0 10000 0 10611	4743		TNZ	LK0030 NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 0	4F14792
	10737	−0 50000 0 01411	4744		CAL	L(3) AND	4F14793
	10740	−0 60200 4 16654	4745		ORS	SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1	4F14794
	10741	0 02000 0 10654	4746		TRA	LK0440	4F14795
	10742	−0 77300 0 00017	4747	LK1050	RQL	15	4F14796
	10743	0 16200 0 10745	4748		TQP	LK1100 TEST OP1(S(I-1))12	4F14797
	10744	0 02000 0 10611	4749		TRA	LK0030 FN-NAME	4F14798
	10745	−3 00006 2 10611	4750	LK1100	TXL	LK0030,B,6 CLOSED UNIV. SBRTN	4F14799
	10746	0 40200 4 16660	4751		SUB	SCRIPL+8,C CLOSED MULTIV. SBRTN	4F14800
	10747	−0 10000 0 10611	4752		TNZ	LK0030 S(I) NOT = SYM3 (S (I-1))	4F14801
	10750	−0 50000 0 01407	4753		CAL	L(1) S(I) = SYM3 (S(I-1)), S0	4F14802
	10751	−0 60200 4 16657	4754		ORS	SCRIPL+7,C SET OP3 (S(I-1))35 = 1	4F14803
	10752	0 02000 0 10654	4755		TRA	LK0440	4F14804
	10753	−0 75400 0 00000	4756	LK1200	PXD	0,0 S(I) TYPE AC	4F14805
	10754	0 56000 4 16651	4757		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14806
	10755	−0 76300 0 00006	4758		LGL	6	4F14807
	10756	0 34000 0 01427	4759		CAS	SPECOP	4F14808
	10757	0 02000 0 10771	4760		TRA	LK1340	4F14809
	10760	0 02000 0 11007	4761		TRA	LK1470	4F14810
	10761	−0 50000 1 16650	4762		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR -	4F14811
	10762	−0 32000 0 01452	4763		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14812
	10763	−3 00000 2 10610	4764	LK1280	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14813
	10764	0 34000 1 16647	4765		CAS	SCRIPL−1,A	4F14814
	10765	1 00003 1 10770	4766		TXI	LK1330,A,3	4F14815
	10766	0 02000 0 10707	4767		TRA	LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE	4F14816
	10767	1 00003 1 10770	4768		TXI	LK1330,A,3 NOT FOUND... CONTINUE SEARCH	4F14817
	10770	1 77775 2 10763	4769	LK1330	TXI	LK1280,B,−3	4F14818
	10771	0 16200 0 10777	4770	LK1340	TQP	LK1410	4F14819
	10772	−0 50000 1 16650	4771		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = **	4F14820
	10773	−0 32000 0 01452	4772		ANA	MASK2	4F14821
	10774	0 40200 4 16652	4773		SUB	SCRIPL+2,C IS S(I) = SYM1 (S(I-1))	4F14822
	10775	−0 10000 0 10611	4774		TNZ	LK0030 NO	4F14823
	10776	0 02000 0 10726	4775		TRA	LK0900 YES	4F14824
	10777	−0 75400 0 00000	4776	LK1410	PXD	0,0 S(I) TYPE AC, OP1 (S(I-1)) = *	4F14825
	11000	0 56000 4 16654	4777		LDQ	SCRIPL+4,C	4F14826
	11001	−0 76300 0 00006	4778		LGL	6 IS OP2 (S(I-1)) = 1	4F14827
	11002	0 40200 0 01402	4779		SUB	SLASH	4F14828
	11003	0 10000 0 10673	4780		TZE	LK0630 YES	4F14829
	11004	−0 50000 0 01410	4781		CAL	L(2) NO	4F14830
	11005	−0 60200 4 16651	4782		ORS	SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1	4F14831
	11006	0 02000 0 10610	4783		TRA	LK0000	4F14832
	11007	−0 77300 0 00033	4784	LK1470	RQL	27 S(I) TYPE AC, OP1 (S(I-1)) = SPOP	4F14833
	11010	−0 50000 1 16650	4785		CAL	SCRIPL,A	4F14834
	11011	−0 32000 0 01452	4786		ANA	MASK2 EXTRACT S(I) IN ACC	4F14835
	11012	0 16200 0 11015	4787		TQP	LK1530	4F14836
	11013	3 00006 2 10611	4788		TXH	LK0030,B,6 OPEN MULTIV.	4F14837
	11014	0 02000 0 10657	4789	LK1520	TRA	LK0480	4F14838
	11015	−0 77300 0 00017	4790	LK1530	RQL	15	4F14839
	11016	0 16200 0 10657	4791		TQP	LK0480	4F14840
	11017	0 02000 0 10611	4792		TRA	LK0030 FN-NAME	4F14841
	11020	−0 53400 2 15044	4793	LK1610	LXD	BETA,B IS S(0) A SINGLE ELEMENT	4F14842
	11021	−0 75400 0 00000	4794		PXD	0,0	4F14843
	11022	0 56000 1 16646	4795		LDQ	SCRIPL−2,A	4F14844
	11023	3 00003 2 11042	4796		TXH	LK1780,B,3 NO	4F14845
	11024	−0 76300 0 00006	4797		LGL	6 YES	4F14846
	11025	0 40200 0 01401	4798		SUB	11Z IS OP (S(0)) = + OR -	4F14847
	11026	0 10000 0 11047	4799		TZE	LKK000 OP (S(0)) = -	4F14848
	11027	−0 50000 0 16652	4800		CAL	SCRIPL+2 OP (S(0)) = +	4F14849
	11030	−0 32000 0 01527	4801		ANA	MASK1 DOES SYM (S(0)) = S(1)	4F14850
	11031	−0 10000 0 11047	4802		TNZ	LKK000 NO	4F14851
	11032	−0 50000 0 16654	4803		CAL	SCRIPL+4 YES - PLACE OP1 (S(1)) IN ACC	4F14852
	11033	−0 32000 0 01404	4804		ANA	12Z	4F14853
	11034	0 10000 0 11047	4805		TZE	LKK000 OP1 (S(1)) 31 = 0	4F14854
	11035	−0 60200 0 16651	4806		ORS	SCRIPL+1 SET OP (S(0)) 31 = 1	4F14855
	11036	0 76700 0 00002	4807		ALS	2	4F14856
	11037	−0 60200 0 16654	4808		ORS	SCRIPL+4 SET OP1 (S(1)) 29 = 1	4F14857
	11040	0 77100 0 00006	4809		ARS	6	4F14858
	11041	0 02000 0 11046	4810		TRA	LK1820	4F14859
	11042	0 16200 0 11047	4811	LK1780	TQP	LKK000 S(0) TYPT AC	4F14860
	11043	−0 77300 0 00001	4812		RQL	1	4F14861
	11044	0 16200 0 11047	4813		TQP	LKK000 S(0) TYPE AC	4F14862
	11045	−0 50000 0 01404	4814		CAL	12Z S(0) TYPE MQ, SO	4F14863
	11046	−0 60200 0 16651	4815	LK1820	ORS	SCRIPL+1	4F14864
	11047	−0 53400 5 01117	4816	LKK000	LXD	3QBAR,5 -3Q TO XA,XC	4F14865
	11050	−0 50000 4 16645	4817		CAL	SCRIPL−3,C	4F14866
	11051	0 73400 2 00000	4818		PAX	0,B	4F14867
	11052	0 50000 2 15044	4819		CLA	BETA,B	4F14868
	11053	0 62200 0 11054	4820		STD	LKK050	4F14869
	11054	1 00000 4 11055	4821	LKK050	TXI	LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT	4F14870
	11055	−0 75400 0 00000	4822	LKK060	PXD	0,0	4F14871
	11056	0 56000 4 16651	4823		LDQ	SCRIPL+1,C PLACE OP1 OF LAST SEGMENT 1N MQ	4F14872
	11057	−0 76300 0 00006	4824		LGL	6	4F14873
	11060	0 40200 0 01405	4825		SUB	STAR	4F14874
	11061	−0 10000 0 11070	4826		TNZ	PC0000	4F14875
	11062	0 16200 0 11064	4827		TQP	LKK130	4F14876
	11063	0 02000 0 11070	4828		TRA	PC0000	4F14877
	11064	0 56000 4 16654	4829	LKK130	LDQ	SCRIPL+4,C OP1 OF LAST SEGMENT IS *	4F14878
	11065	−0 76300 0 00002	4830		LGL	2	4F14879
	11066	0 76000 0 00001	4831		LBT		4F14880
	11067	−0 60200 4 16651	4832		ORS	SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1	4F14881
	11070	−0 53400 4 01122	4833	PC0000	LXD	ARGCTR,C IS THIS AN FS	4F14882
	11071	3 00000 4 11073	4834		TXH	PC0030,C,0	4F14883
	11072	1 00001 4 11074	4835		TXI	PC0040,C,1 NO	4F14884
	11073	0 53400 4 01406	4836	PC0030	LXA	L(0),C YES	4F14885
	11074	−0 50000 1 16645	4837	PC0040	CAL	SCRIPL−3,A	4F14886
	11075	0 73400 2 00000	4838		PAX	0,B	4F14887
	11076	−3 00000 2 11112	4839		TXL	PC0190,B,0 EXIT AT S(0)	4F14888
	11077	0 50000 2 15044	4840		CLA	BETA,B	4F14889
	11100	0 62200 0 11101	4841		STD	PC0100	4F14890
	11101	1 00000 1 11102	4842	PC0100	TXI	PC0110,A,0	4F14891
	11102	0 56000 1 16651	4843	PC0110	LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14892
	11103	−0 76300 0 00036	4844		LGL	30	4F14893
	11104	0 76000 0 00001	4845		LBT		4F14894
	11105	1 00454 0 11107	4846	PC0140	TXI	PC0160,0,300	4F14895
	11106	0 16200 0 11074	4847		TQP	PC0040 OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0	4F14896
	11107	−0 75400 4 00000	4848	PC0160	PXD	0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1	4F14897
	11110	0 62200 2 15044	4849		STD	BETA,B STORE ERAS. REL. ADD. COUNT IN BETA,	4F14898
	11111	1 00001 4 11074	4850		TXI	PC0040,C,1 AND UPDATE FOR NEXT SEGMENT	4F14899
	11112	−0 53400 2 11105	4851	PC0190	LXD	PC0140,B	4F14900
	11113	0 50000 2 15520	4852	PC0200	CLA	BETA+300,B	4F14901
	11114	0 60100 2 16650	4853		STO	CPBETA+300,B	4F14902
	11115	2 00001 2 11113	4854		TIX	PC0200,B,1	4F14903
	11116	0 02000 0 11155	4855		TRA	STATED GO FETCH STATE D	4F14904
			4856			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14905
			4857				4F14906
			4858			DICTIONARY OF OPEN SUBROUTINES FOLLOWS	4F14907
	11117	−272122626060	4859	OPSUB	OCT	672122626060 XABS	4F14908
	11120	+212262606060	4860		OCT	212262606060 ABS	4F14909
	11121	−273145636060	4861		OCT	673145636060 XINT	4F14910
	11122	+314563606060	4862		OCT	314563606060 INT	4F14911
	11123	−274446246060	4863		OCT	674446246060 XMOD	4F14912
	11124	−044624606060	4864		OCT	444624606060 MOD	4F14913
	11125	−274421670060	4865		OCT	674421670060 XMAX0	4F14914
	11126	−042167016060	4866		OCT	442167016060 MAX1	4F14915
	11127	−274421670160	4867		OCT	674421670160 XMAX1	4F14916
	11130	−042167006060	4868		OCT	442167006060 MAX0	4F14917
	11131	−274431450060	4869		OCT	674431450060 XMIN0	4F14918
	11132	−043145016060	4870		OCT	443145016060 MIN1	4F14919
	11133	−274431450160	4871		OCT	674431450160 XMIN1	4F14920
	11134	−043145006060	4872		OCT	443145006060 MIN0	4F14921
	11135	+264346216360	4873		OCT	264346216360 FLOAT	4F14922
	11136	−272631676060	4874		OCT	672631676060 XFIX	4F14923
	11137	−223127456060	4875		OCT	623127456060 SIGN	4F14924
	11140	−276231274560	4876		OCT	676231274560 XSIGN	4F14925
	11141	−272431446060	4877		OCT	672431446060 XDIM	4F14926
	11142	+243144606060	4878		OCT	243144606060 DIM	4F14927
		11143	4879		BSS	10	4F14928
			4880			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14929
		11155	4881	STATED	BSS	0	4F149295
			4882				4F14930
		15044	4883		ORG	2596+4096	4F14931
		15044	4884	BETA	BSS	300	4F14932
			4885			END OF ARITHMETIC / STATE C.	4F14933
			4886			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14934
			4887				4F14935
			4888			ARITHMETIC / STATE D=	4F14936
		11155	4889		ORG	STATED	4F14939
	11155	−0 53400 1 01117	4890	MC00OO	LXD	3QBAR,A MODE CHECKING ROUTINE	4F14940
	11156	−0 63400 1 11227	4891		SXD	MC0420,A	4F14941
	11157	0 53400 1 01406	4892		LXA	L(0),A	4F14942
	11160	−0 63400 1 11176	4893	MC0030	SXD	XASAVE,A	4F14943
	11161	−0 50000 1 16650	4894		CAL	SCRIPL,A	4F14944
	11162	0 73400 2 00000	4895	MC0050	PAX	,2 S(I) TO XB	4F14945
	11163	0 50000 2 16174	4896		CLA	CPBETA,B	4F14946
	11164	0 73400 2 00454	4897	MC0070	PAX	TAU2,B	4F14947
	11165	−0 63400 2 11226	4898		SXD	MC0410,B	4F14946
	11166	−0 63400 2 11233	4899		SXD	MC0460,B	4F14949
	11167	3 77772 2 11226	4900		TXH	MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1)	4F14950
	11170	0 76000 0 00140	4901		SLF	TURN OFF ALL SENSE LITES	4F14951
	11171	−0 75400 0 00000	4902		PXD	0,0 CLEAR ACC	4F14952
	11172	0 56000 1 16651	4903		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14953
	11173	−0 76300 0 00006	4904		LGL	6	4F14954
	11174	0 34000 0 01427	4905		CAS	SPECOP	4F14955
	11175	0 16200 0 11177	4906		TQP	MC0180	4F14956
	11176	1 00000 0 11226	4907	XASAVE	TXI	MC0410,0,0	4F14957
	11177	−0 76300 0 00032	4908	MC0180	LGL	26 OP1 (S(I)) = +, - OR *	4F14958
	11200	0 16200 0 11202	4909		TQP	MC0210 FIX PT	4F14959
	11201	0 76000 0 00141	4910		SLN	1 FLO PT	4F14960
	11202	−0 75400 0 00000	4911	MC0210	PXD	0,0	4F14961
	11203	0 56000 1 16652	4912		LDQ	SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1....	4F14962
	11204	−0 76300 0 00001	4913		LGL	1	4F14963
	11205	0 76000 0 00001	4914		LBT		4F14964
	11206	0 16200 0 11231	4915		TQP	MC0440	4F14965
	11207	−0 76300 0 00005	4916		LGL	5 SYMJ (S(I)) IS A VARIABLE	4F14966
	11210	0 34000 0 01423	4917		CAS	L(H)	4F14967
	11211	0 34000 0 01425	4918		CAS	L(O)	4F14968
	11212	1 00000 0 11217	4919	XBSAVE	TXI	MC0340,0,0 FLO PT	4F14969
	11213	0 02000 0 11217	4920		TRA	MC0340 FLO PT	4F14970
	11214	−0 76000 0 00141	4921	MC0310	SLT	1 SYMJ (S(I)) IS A FIX PT VARIABLE	4F14971
	11215	1 00003 2 11223	4922		TXI	MC0380,B,3 OK	4F14972
	11216	0 07400 4 03400	4923		TSX	DIAG,4 ERROR.. FLO PT LITE ON	4F14973
	11217	−0 76000 0 00141	4924	MC0340	SLT	1 SYMJ(S(I)) IS A FLO PT VARIABLE	4F14974
	11220	0 07400 4 03400	4925		TSX	DIAG,4 ERROR.. FLO PT LITE OFF	4F14975
	11221	0 76000 0 00141	4926		SLN	1 RESTORE FLO PT LITE	4F14976
	11222	1 00003 2 11223	4927		TXI	MC0380,B,3	4F14977
	11223	−3 00000 2 11225	4928	MC0380	TXL	MC0400,B,0 FINISHED WITH S(I)	4F14978
	11224	1 77775 1 11202	4929		TXI	MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1	4F14979
	11225	−0 53400 1 11176	4930	MC0400	LXD	XASAVE,A GO T0 S(I+1)	4F14980
	11226	1 00000 1 11227	4931	MC0410	TXI	MC0420,A,0	4F14981
	11227	3 00000 1 11160	4932	MC0420	TXH	MC0030,A,0	4F14982
	11230	0 02000 0 11254	4933		TRA	CP0000 EXIT TO COMPILER	4F14983
	11231	−0 63400 2 11212	4934	MC0440	SXD	XBSAVE,B SYMJ (S(ITT = SAME S(K)	4F14984
	11232	−0 53400 4 11176	4935		LXD	XASAVE,C	4F14985
	11233	1 00000 4 11234	4936	MC0460	TXI	MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1)	4F14986
	11234	−0 50000 4 16650	4937	MC0470	CAL	SCRIPL,C	4F14987
	11235	−0 32000 0 01452	4938		ANA	MASK2 EXTRACT S(K) IN ACC	4F14988
	11236	0 34000 1 16652	4939		CAS	SCRIPL+2,A AND COMPARE WITH SYMJ (S(I))	4F14989
	11237	0 02000 0 11241	4940		TRA	MC0520	4F14990
	11240	0 02000 0 11246	4941		TRA	MC0570	4F14991
	11241	0 73400 2 01226	4942	MC0520	PAX	SIGMA1,B S(K) TO XB	4F14992
	11242	0 50000 2 16174	4943		CLA	CPBETA,B	4F14993
	11243	0 73400 2 00000	4944	MC0540	PAX	TAU1,B	4F14994
	11244	−0 63400 2 11245	4945		SXD	MC0560,B	4F14995
	11245	1 00000 4 11234	4946	MC0560	TXI	MC0470,C,0	4F14996
	11246	−0 53400 2 11212	4947	MC0570	LXD	XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K	4F14997
	11247	−0 50000 4 16651	4948		CAL	SCRIPL+1,C PLACE OP1 (S(K)) IN ACC	4F14998
	11250	0 77100 0 00003	4949		ARS	3	4F14999
	11251	0 76000 0 00001	4950		LBT		4F15000
	11252	0 02000 0 11214	4951		TRA	MC0310 S(K) IS FIX PT	4F15001
	11253	0 02000 0 11217	4952		TRA	MC0340 S(K) IS FL0 PT	4F15002
			4953				4F15003
	11254	0 76000 0 00140	4954	CP0000	SLF	TURN OFF ALL SENSE LITES	4F15004
	11255	0 60000 0 16160	4955		STZ	FNSW	4F15005
	11256	−0 53400 4 01122	4956		LXD	ARGCTR,C IS THIS AN FS STATEMENT	4F15006
	11257	−3 00000 4 11265	4957		TXL	CP0090,C,0 NO	4F15007
	11260	0 07400 4 01731	4958		TSX	CIT00,C YES - COMPILE FOUR 36 - BIT	4F15008
	11261	0 00000 0 01531	4959		HTR	ALL1 STRINGS IN 1 AS A PRELUDE TO	4F15009
	11262	0 00000 0 01531	4960		HTR	ALL1 FS STATEMENT COMPILATION	4F15010
	11263	0 00000 0 01531	4961		HTR	ALL1	4F15011
	11264	0 00000 0 01531	4962		HTR	ALL1	4F15012
	11265	−0 50000 0 00030	4963	CP0090	CAL	EIFNO	4F15013
	11266	−0 32000 0 01527	4964		ANA	MASK1	4F15014
	11267	0 60200 0 16164	4965		SLW	CW STO INT. FORM. NO. IN DEC. FIELD 0F CW.	4F15015
	11270	−0 53400 1 01117	4966		LXD	3QBAR,A -3Q TO XA	4F15016
	11271	0 50000 1 16645	4967	CP0130	CLA	SCRIPL−3,A EXTRACT CURRENT S(II	4F15017
	11272	0 73400 2 00000	4968	CP0140	PAX	,2	4F15018
	11273	0 50000 2 16174	4969		CLA	CPBETA,B	4F15019
	11274	0 62200 0 01363	4970		STD	PHI(I) STO ERAS. REL. ADD. IN PHI (I)	4F15020
	11275	−0 32000 0 01452	4971		ANA	MASK2	4F15021
	11276	0 73400 2 01356	4972	CP0180	PAX	TAU3,B	4F15022
	11277	−0 63400 2 11324	4973		SXD	CP0400,B	4F15023
	11300	0 76000 0 00006	4974		COM		4F15024
	11301	0 40000 0 01407	4975		ADD	L(1)	4F15025
	11302	0 76700 0 00022	4976		ALS	18	4F15026
	11303	0 62200 0 11304	4977		STD	CP0240	4F15027
	11304	1 00000 1 11305	4978	CP0240	TXI	CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I)	4F15028
	11305	−0 63400 1 01117	4979	CP0250	SXD	3QBAR,A	4F15029
	11306	0 56000 1 16651	4980		LDQ	SCRIPL+1,A EXAMINE OP1 (S(I)I 29,30,31,32	4F15030
	11307	−0 76300 0 00036	4981		LGL	30	4F15031
	11310	0 76000 0 00001	4982		LBT		4F15032
	11311	0 02000 0 11313	4983		TRA	CP0310 OP1 (S(I)) 29 = 0	4F15033
	11312	0 16200 0 11321	4984		TQP	CP0370 OP1 (S(I)) 30 = 0	4F15034
	11313	0 76000 0 00141	4985	CP0310	SLN	1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO	4F15035
	11314	−0 77300 0 00001	4986		RQL	1 SET STORE LITE	4F15036
	11315	0 16200 0 11317	4987		TQP	CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE	4F15037
	11316	0 76000 0 00142	4988		SLN	2 OP1 (S(I)) 31 = 1, SO SET STQ LITE	4F15038
	11317	−0 77300 0 00001	4989	CP0350	RQL	1	4F15039
	11320	0 02000 0 11322	4990		TRA	CP0380	4F15040
	11321	−0 77300 0 00002	4991	CP0370	RQL	2	4F15041
	11322	0 16200 0 11326	4992	CP0380	TQP	CP0420 TEST OP1 (S(I)) 32	4F15042
	11323	−0 76000 0 00144	4993		SLT	4 OP1 (S(I)) 32 = 1, SO SET FLPTSW	4F15043
	11324	3 00000 0 00000	4994	CP0400	TXH	0,0,0	4F15044
	11325	0 02000 0 11327	4995		TRA	CP0430	4F15045
	11326	0 76000 0 00144	4996	CP0420	SLN	4 OP1 (S(II) 32 = 0, SO SET FXPTSW	4F15046
	11327	−0 75400 0 00000	4997	CP0430	PXD	0,0	4F15047
	11330	0 56000 1 16651	4998		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F15048
	11331	−0 76300 0 00006	4999		LGL	6	4F15049
	11332	0 34000 0 01427	5000		CAS	SPECOP	4F15050
	11333	1 00000 0 11407	5001		TXI	CP0960,0,0	4F15051
	11334	1 77775 1 11543	5002		TXI	CP2040,A,−3	4F15052
	11335	0 40200 0 01401	5003		SUB	11Z	4F15053
	11336	0 10000 0 11365	5004		TZE	CP0760	4F15054
	11337	−0 76300 0 00035	5005		LGL	29 OP1 (S(I)) = +	4F15055
	11340	0 16200 0 11425	5006		TQP	CP1130 OP1 (S(I)) 35 = 0	4F15056
	11341	−0 53400 2 11324	5007	CP0540	LXD	CP0400,B OP1 (S(I)) 35 = 1	4F15057
	11342	1 00003 2 11343	5008		TXI	CP0560,B,3	4F15058
	11343	−3 00000 2 12337	5009	CP0560	TXL	ES0000,B,0 GO TO END-OF-SEGMENT SBRTN	4F15059
	11344	−0 63400 2 11324	5010		SXD	CP0400,B	4F15060
	11345	1 77775 1 11346	5011		TXI	CP0590,A,−3	4F15061
	11346	−0 75400 0 00000	5012	CP0590	PXD	0,0	4F15062
	11347	0 56000 1 16651	5013		LDQ	SCRIPL+1,A PLACE OPJ (S(I)) IN MQ	4F15063
	11350	−0 76300 0 00006	5014		LGL	6	4F15064
	11351	0 34000 0 01405	5015		CAS	STAR	4F15065
	11352	0 02000 0 11433	5016		TRA	CP1200 OPJ (S(I)) = /	4F15066
	11353	0 02000 0 11506	5017		TRA	CP1720 OPJ (S(I)) = *	4F15067
	11354	0 40200 0 01401	5018		SUB	11Z	4F15068
	11355	0 10000 0 11400	5019		TZE	CP0880 OPJ (S(I)) = -	4F15069
	11356	−0 50000 0 01550	5020		CAL	L(FAD) OPJ (S(I)) = +	4F15070
	11357	−0 76000 0 00144	5021		SLT	4	4F15071
	11360	0 02000 0 11363	5022		TRA	CP0740	4F15072
	11361	0 76000 0 00144	5023		SLN	4 FIX PT. RESTORE FXPTSW	4F15073
	11362	−0 50000 0 01532	5024		CAL	L(ADD)	4F15074
	11363	0 60200 0 16165	5025	CP0740	SLW	CW+1	4F15075
	11364	0 02000 0 11503	5026		TRA	CP1690	4F15076
	11365	−0 76300 0 00035	5027	CP0760	LGL	29 OP1 (S(I)) = -	4F15077
	11366	0 16200 0 11375	5028		TQP	CP0850	4F15078
	11367	−0 50000 0 01540	5029		CAL	L(CHS) C81 (SI))) 35 = 1, SO	4F15079
	11370	0 60200 0 16165	5030		SLW	CW+1 COMPILE CHS FOR 1ST ELEMENT	4F15080
	11371	0 60000 0 16166	5031		STZ	CW+2	4F15081
	11372	0 60000 0 16167	5032		STZ	CW+3	4F15082
	11373	0 07400 2 12621	5033		TSX	COMP,B	4F15083
	11374	0 02000 0 11341	5034		TRA	CP0540	4F15084
	11375	−0 50000 0 01543	5035	CP0850	CAL	L(CLS) OP1 (S(I)) 35 = 0, S0	4F15085
	11376	0 60200 0 16165	5036		SLW	CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT	4F15086
	11377	0 02000 0 11427	5037		TRA	CP1150	4F15087
	11400	−0 50000 0 01553	5038	CP0880	CAL	L(FSB) OPJ (SII)I = -	4F15088
	11401	−0 76000 0 00144	5039		SLT	4	4F15089
	11402	0 02000 0 11405	5040		TRA	CP0940	4F15090
	11403	0 76000 0 00144	5041		SLN	4 FIX PT. RESTORE FXPTSW	4F15091
	11404	−0 50000 0 01574	5042		CAL	L(SUB)	4F15092
	11405	0 60200 0 16165	5043	CP0940	SLW	CW+1	4F15093
	11406	0 02000 0 11503	5044		TRA	CP1690	4F15094
	11407	0 16200 0 11411	5045	CP0960	TQP	CP0980	4F15095
	11410	0 02000 0 12100	5046		TRA	CP4140	4F15096
	11411	−0 76300 0 00035	5047	CP0980	LGL	29 OP1 (S(I)) = *	4F15097
	11412	0 76000 0 00143	5048		SLN	3 TURN LITE 3 ON	4F15098
	11413	0 76000 0 00001	5049		LBT	TEST OP1 (S(I)) 34	4F15099
	11414	0 02000 0 11417	5050		TRA	CP1050 OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON	4F15100
	11415	−0 76000 0 00143	5051		SLT	3 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF	4F15101
	11416	3 00000 0 00000	5052		TXH	0,0,0	4F15102
	11417	0 16200 0 11421	5053	CP1050	TQP	CP1070	4F15103
	11420	0 02000 0 11341	5054		TRA	CP0540 OP1 (S(I)) 35 = 1, SO GO MODIFY J	4F15104
	11421	−0 50000 0 01556	5055	CP1070	CAL	L(LDQ) OP1 (S(I)) 35 = 0	4F15105
	11422	−0 76000 0 00143	5056		SLT	3	4F15106
	11423	0 02000 0 11426	5057		TRA	CP1140 EL1 (S(I)) TO MQ	4F15107
	11424	0 76000 0 00143	5058		SLN	3 EL1 (S(I)) TO ACC	4F15108
	11425	−0 50000 0 01541	5059	CP1130	CAL	L(CLA)	4F15109
	11426	0 60200 0 16165	5060	CP1140	SLW	CW+1	4F15110
	11427	0 07400 4 12627	5061	CP1150	TSX	AC0000,C ADDRESS COMPILE SYM1 (S(I))	4F15111
	11430	0 07400 2 12621	5062		TSX	COMP,B	4F15112
	11431	0 60000 0 16164	5063		STZ	CW RESET CW	4F15113
	11432	0 02000 0 11341	5064		TRA	CP0540 GO MODIFY J	4F15114
	11433	−0 76000 0 00143	5065	CP1200	SLT	3 OPJ (S(I)) = /	4F15115
	11434	0 02000 0 11446	5066		TRA	CP1330	4F15116
	11435	−0 76000 0 00144	5067		SLT	4 PREDECESSOR IN ACC	4F15117
	11436	0 02000 0 11501	5068		TRA	CP1670 FLO PT.	4F15118
	11437	0 76000 0 00144	5069		SLN	4 FIX PT. RESTORE FXPTSW	4F15119
	11440	0 07400 4 01731	5070		TSX	CIT00,C COMPILE LRS 35	4F15120
	11441	0 00000 0 01406	5071		HTR	L(0)	4F15121
	11442	0 00000 0 01560	5072		HTR	L(LRS)	4F15122
	11443	0 00000 0 01406	5073		HTR	L(0)	4F15123
	11444	0 00000 0 01472	5074		HTR	DEC35	4F15124
	11445	0 02000 0 11451	5075		TRA	CP1450	4F15125
	11446	−0 76000 0 00144	5076	CP1330	SLT	4 PREDECESSOR IN MQ	4F15126
	11447	0 02000 0 11470	5077		TRA	CP1570 AND SEGMENT IS	4F15127
	11450	0 76000 0 00144	5078		SLN	4 FIX PT. RESTORE FXPTSW	4F15128
	11451	0 50000 0 01547	5079	CP1450	CLA	L(DVP)	4F15129
	11452	0 60100 0 16165	5080		STO	CW+1	4F15130
	11453	0 07400 4 12627	5081		TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15131
	11454	0 07400 2 12621	5082		TSX	COMP,B COMPILE DVP SYMJ (S(I))	4F15132
	11455	0 07400 4 01731	5083		TSX	CIT00,C COMPILE CLM	4F15133
	11456	0 00000 0 01406	5084		HTR	L(0)	4F15134
	11457	0 00000 0 01542	5085		HTR	L(CLM)	4F15135
	11460	0 00000 0 01406	5086		HTR	L(0)	4F15136
	11461	0 00000 0 01406	5087		HTR	L(0)	4F15137
	11462	0 07400 4 01731	5088		TSX	CIT00,C COMPILE LLS 18	4F15138
	11463	0 00000 0 01406	5089		HTR	L(0)	4F15139
	11464	0 00000 0 01557	5090		HTR	L(LLS)	4F15140
	11465	0 00000 0 01406	5091		HTR	L(0)	4F15141
	11466	0 00000 0 01466	5092		HTR	DEC18	4F15142
	11467	0 02000 0 11341	5093		TRA	CP0540 GO MODIFY J	4F15143
	11470	0 50000 0 01573	5094	CP1570	CLA	L(STQ) PREDECESSOR IN MQ	4F15144
	11471	0 60100 0 16165	5095		STO	CW+1 AND SEGMENT IS FLO PT	4F15145
	11472	0 50000 0 01505	5096		CLA	X(	4F15146
	11473	0 60100 0 16166	5097		STO	CW+2	4F15147
	11474	0 60000 0 16167	5098		STZ	CW+3	4F15148
	11475	0 07400 2 12621	5099		TSX	COMP,B COMPILE STQ 700000	4F15149
	11476	0 50000 0 01541	5100		CLA	L(CLA)	4F15150
	11477	0 60100 0 16165	5101		STO	CW+1	4F15151
	11500	0 07400 2 12621	5102		TSX	COMP,B COMPILE CLA 700000	4F15152
	11501	0 50000 0 01551	5103	CP1670	CLA	LIFDP)	4F15153
	11502	0 60100 0 16165	5104		STO	CW+1 COMPILE FDP SYMJ (S(I))	4F15154
	11503	0 07400 4 12627	5105	CP1690	TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15155
	11504	0 07400 2 12621	5106		TSX	COMP,B	4F15156
	11505	0 02000 0 11341	5107		TRA	CP0540 GO MODIFY J	4F15157
	11506	−0 76000 0 00143	5108	CP1720	SLT	3 OPJ(S(I))=*	4F15158
	11507	0 02000 0 11521	5109		TRA	CP1840	4F15159
	11510	0 50000 0 01572	5110		CLA	L(STO) PREDECESSOR IN ACC	4F15160
	11511	0 60100 0 16165	5111		STO	CW+1	4F15161
	11512	0 50000 0 01505	5112		CLA	X(	4F15162
	11513	0 60100 0 16166	5113		STO	CW+2	4F15163
	11514	0 60000 0 16167	5114		STZ	CW+3	4F15164
	11515	0 07400 2 12621	5115		TSX	COMP,B COMPILE STO 700000	4F15165
	11516	0 50000 0 01556	5116		CLA	L(LDQ)	4F15166
	11517	0 60100 0 16165	5117		STO	CW+1	4F15167
	11520	0 07400 2 12621	5118		TSX	COMP,B COMPILE LDQ 700000	4F15168
	11521	0 76000 0 00143	5119	CP1840	SLN	3 TURN LATE 3 ON	4F15169
	11522	0 07400 4 12627	5120		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I))	4F15170
	11523	−0 76000 0 00144	5121		SLT	4	4F15171
	11524	0 02000 0 11537	5122		TRA	CP2000	4F15172
	11525	0 76000 0 00144	5123		SLN	4 FIX PT. RESTORE FXPTSW	4F15173
	11526	0 50000 0 01562	5124		CLA	L(MPY)	4F15174
	11527	0 60100 0 16165	5125		STO	CW+1	4F15175
	11530	0 07400 2 12621	5126		TSX	COMP,B COMPILE MPY SYMJ(S(I))	4F15176
	11531	0 07400 4 01731	5127		TSX	CIT00,C COMPILE ALS 17	4F15177
	11532	0 00000 0 01406	5128		HTR	L(0)	4F15178
	11533	0 00000 0 01533	5129		HTR	L(ALS)	4F15179
	11534	0 00000 0 01406	5130		HTR	L(0)	4F15180
	11535	0 00000 0 01465	5131		HTR	DEC17	4F15181
	11536	0 02000 0 11341	5132		TRA	CP0540 GO MODIFY J	4F15182
	11537	0 50000 0 01552	5133	CP2000	CLA	L(FMP) FLO PT.	4F15183
	11540	0 60100 0 16165	5134		STO	CW+1	4F15184
	11541	0 07400 2 12621	5135		TSX	COMP,B COMPILE FMP SYMJ(S(I))	4F15185
	11542	0 02000 0 11341	5136		TRA	CP0540 GO MODIFY J.	4F15186
	11543	−0 76300 0 00007	5137	CP2040	LGL	7 OP1(S(I))=SPOP	4F15187
	11544	0 76000 0 00001	5138		LBT	TEST OP1(S(I))12	4F15188
	11545	0 16200 0 11665	5139		TQP	CP2650 LIB OR OPEN FUNCTION	4F15189
	11546	0 16200 0 12210	5140		TQP	CP5000 FN-FUNCTION	4F15190
	11547	−0 75400 0 00000	5141		PXD	0,0 FS-FUNCTION	4F15191
	11550	0 76300 0 00017	5142		LLS	15 PUT TYPE NO IN ADD(ACC)	4F15192
	11551	−0 50100 0 01503	5143		ORA	P( FORM 4...TYPE NO.	4F15193
	11552	0 60200 0 16162	5144		SLW	ARGORG AND STO IN ARGORG	4F15194
	11553	−0 32000 0 01452	5145		ANA	MASK2	4F15195
	11554	−0 50100 0 01505	5146		ORA	X( FORM 7...TYPE NO.	4F15196
	11555	0 60200 0 16163	5147		SLW	XRSAVE AND STO IN XRSAVE	4F15197
	11556	0 50000 1 16651	5148		CLA	SCRIPL+1,A	4F15198
	11557	0 76000 0 00001	5149		LBT	EXAMINE OP2(S(I))35	4F15199
	11560	0 02000 0 11567	5150		TRA	CP2150 1ST ARG STORED	4F15200
	11561	0 07400 4 01731	5151	CP2100	TSX	CIT00,C 1ST ARG IN ACC	4F15201
	11562	0 00000 0 01406	5152		HTR	L(0) COMPILE STO 4...TYPE NO. + 0	4F15202
	11563	0 00000 0 01572	5153		HTR	L(STO)	4F15203
	11564	0 00000 0 16162	5154		HTR	ARGORG	4F15204
	11565	0 00000 0 01406	5155		HTR	L(0)	4F15205
	11566	1 77775 1 11574	5156		TXI	CP2200,A,−3 GO ON TO OP3(S(I))	4F15206
	11567	−0 50000 0 01541	5157	CP2150	CAL	L(CLA)	4F15207
	11570	0 60200 0 16165	5158		SLW	CW+1	4F15208
	11571	0 07400 4 12627	5159		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15209
	11572	0 07400 2 12621	5160		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15210
	11573	0 02000 0 11561	5161		TRA	CP2100	4F15211
	11574	0 60000 0 16164	5162	CP2200	STZ	CW RESET CW	4F15212
	11575	−0 53400 2 11324	5163		LXD	CP0400,B	4F15213
	11576	1 00003 2 11577	5164		TXI	CP2230,B,3	4F15214
	11577	3 77772 2 11642	5165	CP2230	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15215
	11600	−0 63400 2 11324	5166		SXD	CP0400,B	4F15216
	11601	0 50000 1 16651	5167		CLA	SCRIPL+1,A	4F15217
	11602	0 76000 0 00001	5168		LBT	EXAMINE OP3(S(I))35	4F15218
	11603	0 02000 0 11612	5169		TRA	CP2300 2ND ARG STORED	4F15219
	11604	0 07400 4 01731	5170	CP2250	TSX	CIT00,C 2ND ARG IN MQ	4F15220
	11605	0 00000 0 01406	5171		HTR	L(0) COMPILE STQ 4...TYPE NO. + 1	4F15221
	11606	0 00000 0 01573	5172		HTR	L(STQ)	4F15222
	11607	0 00000 0 16162	5173		HTR	ARGORG	4F15223
	11610	0 00000 0 01454	5174		HTR	2E18	4F15224
	11611	1 77775 1 11617	5175		TXI	CP2350,A,−3 GO ON TO SYM4(S(I))	4F15225
	11612	−0 50000 0 01556	5176	CP2300	CAL	L(LDQ)	4F15226
	11613	0 60200 0 16165	5177		SLW	CW+1	4F15227
	11614	0 07400 4 12627	5178		TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15228
	11615	0 07400 2 12621	5179		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15229
	11616	0 02000 0 11604	5180		TRA	CP2250	4F15230
	11617	0 50000 0 01521	5181	CP2350	CLA	DECMI2 INITIALIZE DEC(P(CNTR) TO 2	4F15231
	11620	0 60200 0 16161	5182		SLW	P(CNTR	4F15232
	11621	−0 53400 2 11324	5183	CP2370	LXD	CP0400,B	4F15233
	11622	1 00003 2 11623	5184		TXI	CP2390,B,3	4F15234
	11623	3 77772 2 11642	5185	CP2390	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15235
	11624	−0 63400 2 11324	5186		SXD	CP0400,B	4F15236
	11625	−0 50000 0 01541	5187		CAL	L(CLA)	4F15237
	11626	0 60200 0 16165	5188		SLW	CW+1	4F15238
	11627	0 07400 4 12627	5189		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,...	4F15239
	11630	0 07400 2 12621	5190		TSX	COMP,B COMPILE CLA SYMJ(S(I)), J=4,...	4F15240
	11631	0 07400 4 01731	5191		TSX	CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,...	4F15241
	11632	0 00000 0 01406	5192		HTR	L(0)	4F15242
	11633	0 00000 0 01572	5193		HTR	L(STO)	4F15243
	11634	0 00000 0 16162	5194		HTR	ARGORG	4F15244
	11635	0 00000 0 16161	5195		HTR	P(CNTR	4F15245
	11636	0 50000 0 16161	5196		CLA	P(CNTR UPDATE P(CNTR	4F15246
	11637	0 40000 0 01454	5197		ADD	2E18	4F15247
	11640	0 60100 0 16161	5198		STO	P(CNTR	4F15248
	11641	1 77775 1 11621	5199		TXI	CP2370,A,−3	4F15249
	11642	−0 53400 1 01117	5200	CP2500	LXD	3QBAR,A FINISHED WITH S(I)	4F15250
	11643	−0 50000 0 01575	5201		CAL	L(SXD)	4F15251
	11644	0 60200 0 16165	5202		SLW	CW+1	4F15252
	11645	−0 50000 0 16163	5203		CAL	XRSAVE	4F15253
	11646	0 60200 0 16166	5204		SLW	CW+2	4F15254
	11647	−0 50000 0 01412	5205		CAL	L(4)	4F15255
	11650	0 60200 0 16167	5206		SLW	CW+3	4F15256
	11651	0 07400 2 12621	5207		TSX	COMP,B COMPILE SXD 7...TYPE NO. , 4	4F15257
	11652	−0 50000 0 01602	5208		CAL	L(TSX)	4F15258
	11653	0 60200 0 16165	5209		SLW	CW+1	4F15259
	11654	−0 50000 1 16652	5210		CAL	SCRIPL+2,A	4F15260
	11655	0 60200 0 16166	5211		SLW	CW+2	4F15261
	11656	0 07400 2 12621	5212		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15262
	11657	−0 50000 0 01561	5213		CAL	L(LXD) ,	4F15263
	11660	0 60200 0 16165	5214		SLW	CW+1	4F15264
	11661	−0 50000 0 16163	5215		CAL	XRSAVE	4F15265
	11662	0 60200 0 16166	5216		SLW	CW+2	4F15266
	11663	0 02000 0 12756	5217		TRA	CP6000	4F15267
	11664	1 00000 0 12337	5218	CP5830	TXI	ES0000,0,0	4F15268
			5219				4F15269
	11665	−0 76300 0 00024	5220	CP2650	LGL	20 TEST OPI(S(I))33	4F15270
	11666	0 16200 0 11734	5221		TQP	CP3060 0... LIB. SBRTN	4F15271
	11667	0 50200 0 16164	5222		CLS	CW 1... OPEN SBRTN	4F15272
	11670	0 60100 0 16164	5223		STO	CW CW TO -CW	4F15273
	11671	0 50000 1 16647	5224		CLA	SCRIPL−1,A	4F15274
	11672	0 60100 0 16166	5225		STO	CW+2	4F15275
	11673	0 07400 2 12621	5226		TSX	COMP,B COMPILE FUNCTION NAME	4F15276
	11674	0 60000 0 16164	5227		STZ	CW RESET CW	4F15277
	11675	−0 53400 2 11324	5228		LXD	CP0400,B	4F15278
	11676	−3 77767 2 11720	5229		TXL	CP2930,B,−9	4F15279
	11677	−0 50000 0 01531	5230		CAL	ALL1 OPEN UNIVARIATE FUNCTION	4F15280
	11700	0 60200 0 16164	5231		SLW	CW	4F15281
	11701	0 50000 1 16651	5232		CLA	SCRIPL+1,A	4F15282
	11702	0 76000 0 00001	5233		LBT	EXAMINE OP2(S(I))35	4F15283
	11703	0 02000 0 11716	5234		TRA	CP2900 0... ARG STORED	4F15284
	11704	0 77100 0 00001	5235		ARS	1 1... ARG NOT STORED	4F15285
	11705	0 56000 0 01512	5236		LDQ	ADPLUS	4F15286
	11706	0 76000 0 00001	5237		LBT		4F15287
	11707	0 02000 0 11711	5238		TRA	CP2860	4F15288
	11710	0 56000 0 01524	5239		LDQ	ADSTAR	4F15289
	11711	−0 60000 0 16166	5240	CP2860	STQ	CW+2	4F15290
	11712	0 60000 0 16167	5241		STZ	CW+3	4F15291
	11713	0 07400 2 12621	5242	CP2880	TSX	COMP,B COMPILE ACC OR MQ INDICATOR	4F15292
	11714	0 60000 0 16164	5243		STZ	CW RESET CW	4F15293
	11715	0 02000 0 12337	5244		TRA	ES0000	4F15294
	11716	0 07400 4 12627	5245	CP2900	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15295
	11717	0 02000 0 11713	5246		TRA	CP2880 GO COMPILE SYM2(S(I))	4F15296
	11720	0 07400 4 12627	5247	CP2930	TSX	AC0000,C OPEN MULTIVARIATE FUNCTION	4F15297
	11721	−0 53400 2 11324	5248		LXD	CP0400,B	4F15298
	11722	1 00003 2 11723	5249		TXI	CP2960,B,3	4F15299
	11723	3 77772 2 11727	5250	CP2960	TXH	CP3000,B,−6	4F15300
	11724	−0 63400 2 11324	5251		SXD	CP0400,B	4F15301
	11725	0 07400 2 12621	5252		TSX	COMP,B COMPILE SYMJ(S(I))	4F15302
	11726	1 77775 1 11720	5253		TXI	CP2930,A,−3	4F15303
	11727	−0 50000 0 01531	5254	CP3000	CAL	ALL1	4F15304
	11730	0 60200 0 16164	5255		SLW	CW	4F15305
	11731	0 07400 2 12621	5256		TSX	COMP,B COMPILE LAST ARGUMENT NAME	4F15306
	11732	0 60000 0 16164	5257		STZ	CW RESET CW	4F15307
	11733	0 02000 0 12337	5258		TRA	ES0000 GO TO END-OF-SEGMENT SBRTN	4F15308
	11734	−3 77767 2 11763	5259	CP3060	TXL	CP3350,B,−9	4F15309
	11735	0 50000 1 16651	5260		CLA	SCRIPL+1,A CLOSED UNIVARIATE FUNCTION	4F15310
	11736	0 76000 0 00001	5261		LBT	EXAMINE OP2(S(I))35	4F15311
	11737	0 02000 0 11755	5262		TRA	CP3280 0... ARG STORED	4F15312
	11740	0 50000 0 01575	5263	CP3100	CLA	L(SXD) 1... ARG IN ACC	4F15313
	11741	0 60100 0 16165	5264		STO	CW+1	4F15314
	11742	0 50000 0 01505	5265		CLA	X(	4F15315
	11743	0 60100 0 16166	5266		STO	CW+2	4F15316
	11744	0 50000 0 01412	5267		CLA	L(4)	4F15317
	11745	0 60100 0 16167	5268		STO	CW+3	4F15318
	11746	0 07400 2 12621	5269		TSX	COMP,B COMPILE SXD7...0,4	4F15319
	11747	0 50000 0 01602	5270		CLA	L(TSX)	4F15320
	11750	0 60100 0 16165	5271		STO	CW+1	4F15321
	11751	0 50000 1 16647	5272		CLA	SCRIPL−1,A	4F15322
	11752	0 60100 0 16166	5273		STO	CW+2	4F15323
	11753	0 07400 2 12621	5274		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15324
	11754	0 02000 0 12332	5275		TRA	CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15325
	11755	0 50000 0 01541	5276	CP3280	CLA	L(CLA)	4F15331
	11756	0 60100 0 16165	5277		STO	CW+1	4F15332
	11757	0 07400 4 12627	5278		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15333
	11760	0 07400 2 12621	5279		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15334
	11761	0 60000 0 16164	5280		STZ	CW RESET CW	4F15335
	11762	0 02000 0 11740	5281		TRA	CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15336
	11763	−3 77764 2 12007	5282	CP3350	TXL	CP3560,B,−12	4F15337
	11764	0 50000 1 16651	5283		CLA	SCRIPL+1,A CLOSED BIVARIATE FUNCTION	4F15338
	11765	0 76000 0 00001	5284		LBT	EXAMINE OP2(S(I))35	4F15339
	11766	0 02000 0 11775	5285		TRA	CP3450 0... ARG1 STORED	4F15340
	11767	0 50000 0 01556	5286	CP3390	CLA	L(LDQ) 1... ARG1 IN ACC	4F15341
	11770	0 60100 0 16165	5287		STO	CW+1	4F15342
	11771	1 77775 1 11772	5288		TXI	CP3420,A,−3	4F15343
	11772	0 07400 4 12627	5289	CP3420	TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15344
	11773	0 07400 2 12621	5290		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15345
	11774	1 00003 1 11740	5291		TXI	CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15346
	11775	0 50000 1 16654	5292	CP3450	CLA	SCRIPL+4,A	4F15347
	11776	0 76000 0 00001	5293		LBT	EXAMINE OP3(S(I))35	4F15348
	11777	0 02000 0 12001	5294		TRA	CP3490 0... ARG2 STORED	4F15349
	12000	0 02000 0 11755	5295		TRA	CP3280 1... ARG2 IN MQ	4F15350
	12001	0 50000 0 01541	5296	CP3490	CLA	L(CLA)	4F15351
	12002	0 60100 0 16165	5297		STO	CW+1	4F15352
	12003	0 07400 4 12627	5298		TSX	AC0000,C ADDRESS COMPILE SYM2(SI)))	4F15353
	12004	0 07400 2 12621	5299		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15354
	12005	0 60000 0 16164	5300		STZ	CW REST CW	4F15355
	12006	0 02000 0 11767	5301		TRA	CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE	4F15356
	12007	0 50000 1 16651	5302	CP3560	CLA	SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION	4F15357
	12010	0 76000 0 00001	5303		LBT	EXAMINE OP2(S(I))35	4F15358
	12011	1 77772 1 12041	5304		TXI	CP3820,A,−6 0... ARG1 STORED	4F15359
	12012	1 77772 1 12013	5305		TXI	CP3600,A,−6 1... ARG1 IN ACC	4F15360
	12013	0 50000 0 01521	5306	CP3600	CLA	DECMI2	4F15361
	12014	0 60100 0 16161	5307		STO	P(CNTR INITIALIZE P(CNTR TO -2	4F15362
	12015	0 50000 0 01556	5308	CP3620	CLA	L(LDQ)	4F15363
	12016	0 60100 0 16165	5309		STO	CW+1	4F15364
	12017	0 07400 4 12627	5310		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15365
	12020	0 07400 2 12621	5311		TSX	COMP,B COMPILE LDQ SYMJ(S(I))	4F15366
	12021	0 50000 0 01573	5312		CLA	L(STQ)	4F15367
	12022	0 60100 0 16165	5313		STO	CW+1	4F15368
	12023	0 50000 0 01503	5314		CLA	P(	4F15369
	12024	0 60100 0 16166	5315		STO	CW+2	4F15370
	12025	0 50000 0 16161	5316		CLA	P(CNTR	4F15371
	12026	0 60100 0 16167	5317		STO	CW+3	4F15372
	12027	0 40200 0 01454	5318		SUB	2E18	4F15373
	12030	0 60100 0 16161	5319		STO	P(CNTR	4F15374
	12031	0 07400 2 12621	5320		TSX	COMP,B COMPILE STQ 4...0-(J-2)	4F15375
	12032	−0 53400 2 11324	5321		LXD	CP0400,B	4F15376
	12033	1 00003 2 12034	5322		TXI	CP3770,B,3	4F15377
	12034	−3 77764 2 12037	5323	CP3770	TXL	CP3800,B,−12	4F15378
	12035	−0 53400 1 01117	5324		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15379
	12036	1 77775 1 11767	5325		TXI	CP3390,A,−3	4F15380
	12037	−0 63400 2 11324	5326	CP3800	SXD	CP0400,B	4F15381
	12040	1 77775 1 12015	5327		TXI	CP3620,A,−3 GO PICK UP NEXT ARG.	4F15382
	12041	0 50000 1 16646	5328	CP3820	CLA	SCRIPL−2,A	4F15383
	12042	0 76000 0 00001	5329		LBT	EXAMINE OP3(S(I))35	4F15384
	12043	1 00006 1 12072	5330		TXI	CP4070,A,6 0... ARG2 STORED	4F15385
	12044	0 50000 0 01521	5331		CLA	DECMI2 1... ARG2 IN MQ	4F15386
	12045	0 60100 0 16161	5332		STO	P(CNTR	4F15387
	12046	0 50000 0 01541	5333	CP3870	CLA	L(CLA)	4F15388
	12047	0 60100 0 16165	5334		STO	CW+1	4F15389
	12050	0 07400 4 12627	5335		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15390
	12051	0 07400 2 12621	5336		TSX	COMP,B COMPILE CLA SYMJ(S(I))	4F15391
	12052	0 50000 0 01572	5337		CLA	L(STO)	4F15392
	12053	0 60100 0 16165	5338		STO	CW+1	4F15393
	12054	0 50000 0 01503	5339		CLA	P(	4F15394
	12055	0 60100 0 16166	5340		STO	CW+2	4F15395
	12056	0 50000 0 16161	5341		CLA	P(CNTR	4F15396
	12057	0 60100 0 16167	5342		STO	CW+3	4F15397
	12060	0 40200 0 01454	5343		SUB	2E18	4F15398
	12061	0 60100 0 16161	5344		STO	P(CNTR	4F15399
	12062	0 07400 2 12621	5345		TSX	COMP,B COMPILE STO 4...0-(J-2)	4F15400
	12063	−0 53400 2 11324	5346		LXD	CP0400,B	4F15401
	12064	1 00003 2 12065	5347		TXI	CP4020,B,3	4F15402
	12065	−3 77764 2 12070	5348	CP4020	TXL	CP4050,B,−12	4F15403
	12066	−0 53400 1 01117	5349		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15404
	12067	1 77775 1 11755	5350		TXI	CP3280,A,−3	4F15405
	12070	−0 63400 2 11324	5351	CP4050	SXD	CP0400,B	4F15406
	12071	1 77775 1 12046	5352		TXI	CP3870,A,−3 GO PICK UP NEXT ARG	4F15407
	12072	0 50000 0 01541	5353	CP4070	CLA	L(CLA)	4F15408
	12073	0 60100 0 16165	5354		STO	CW+1	4F15409
	12074	0 07400 4 12627	5355		TSX	AC0000,C ASDRESS COMPILE SYM2(S(I))	4F15410
	12075	0 07400 2 12621	5356		TSX	COMP,B COMPILE CLASYM2(S(I))	4F15411
	12076	0 60000 0 16164	5357		STZ	CW RESET CW	4F15412
	12077	1 77772 1 12013	5358		TXI	CP3600,A,−6	4F15413
	12100	−0 76300 0 00033	5359	CP4140	LGL	27 OP1(S(I))=**	4F15414
	12101	0 16200 0 12132	5360		TQP	CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0	4F15415
	12102	0 76000 0 00001	5361		LBT	OPEN SBRTN SINCE OP1(S(I))33=1	4F15416
	12103	0 02000 0 12106	5362		TRA	CP4200 BASE FIX PT SINCE OP1(S(I))32=0	4F15417
	12104	0 50000 0 01525	5363		CLA	STRSTR BASE FLO PT SINCE OP1(S(II)I32=1	4F15418
	12105	0 02000 0 12107	5364		TRA	CP4210	4F15419
	12106	0 50000 0 01524	5365	CP4200	CLA	ADSTAR	4F15420
	12107	0 60100 0 16165	5366	CP4210	STO	CW+1	4F15421
	12110	−0 76300 0 00002	5367		LGL	2 EXAMINE OP1(S(I))35	4F15422
	12111	0 16200 0 12120	5368		TQP	CP4310 0... BASE STORED	4F15423
	12112	0 56000 0 01524	5369		LDQ	ADSTAR 1... BASE NOT STORED	4F15424
	12113	0 76000 0 00001	5370		LBT	EXAMINE OP1(S(I))34	4F15425
	12114	0 56000 0 01512	5371		LDQ	ADPLUS 0... BASE IN ACC	4F15426
	12115	−0 60000 0 16166	5372		STQ	CW+2 1...BASE IN MQ	4F15427
	12116	0 60000 0 16167	5373		STZ	CW+3	4F15428
	12117	0 02000 0 12121	5374		TRA	CP4320	4F15429
	12120	0 07400 4 12627	5375	CP4310	TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15430
	12121	0 50200 0 16164	5376	CP4320	CLS	CW	4F15431
	12122	0 60100 0 16164	5377		STO	CW CW TO -CW	4F15432
	12123	0 07400 2 12621	5378		TSX	COMP,B COMPILE BASE	4F15433
	12124	0 60000 0 16164	5379		STZ	CW RESET CW	4F15434
	12125	0 50000 1 16655	5380		CLA	SCRIPL+5,A	4F15435
	12126	0 60100 0 16166	5381		STO	CW+2	4F15436
	12127	0 07400 2 12621	5382		TSX	COMP,B COMPILE FIX PT CONSTANT EXPONENT	4F15437
	12130	0 60000 0 16165	5383		STZ	CW+1 RESET CW+1	4F15438
	12131	0 02000 0 12337	5384		TRA	ES0000	4F15439
	12132	−0 76300 0 00003	5385	CP4410	LGL	3 CLOSED EXP. SBRTN	4F15440
	12133	0 76000 0 00001	5386		LBT	EXAMINE OP1(S(I))35	4F15441
	12134	0 02000 0 12177	5387		TRA	CP4860 0... BASE STORED	4F15442
	12135	0 50000 0 01556	5388	CP4440	CLA	L(LDQ) 1... BASE IN ACC.	4F15443
	12136	0 60100 0 16165	5389		STO	CW+1	4F15444
	12137	1 77775 1 12140	5390		TXI	CP4470,A,−3	4F15445
	12140	0 07400 4 12627	5391	CP4470	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15446
	12141	0 07400 2 12621	5392		TSX	COMP,B COMPILE LDQ SYM2 (S(I))	4F15447
	12142	0 50000 0 01575	5393	CP4490	CLA	L(SXD)	4F15448
	12143	0 60100 0 16165	5394		STO	CW+1	4F15449
	12144	0 50000 0 01505	5395		CLA	X(	4F15450
	12145	0 60100 0 16166	5396		STO	CW+2	4F15451
	12146	0 50000 0 01412	5397		CLA	L(4)	4F15452
	12147	0 60100 0 16167	5398		STO	CW+3	4F15453
	12150	0 07400 2 12621	5399		TSX	COMP,B COMPILE SXD 7...0,4	4F15454
	12151	0 50000 0 01602	5400		CLA	L(TSX)	4F15455
	12152	0 60100 0 16165	5401		STO	CW+1	4F15456
	12153	0 50000 1 16651	5402		CLA	SCRIPL+1,A	4F15457
	12154	0 77100 0 00003	5403		ARS	3	4F15458
	12155	0 76000 0 00001	5404		LBT	EXAMINE OP2(S(I))32	4F15459
	12156	1 00003 1 12164	5405		TXI	CP4660,A,3 0...	4F15460
	12157	0 50000 0 01516	5406		CLA	FLFL 1... FLO**FLO	4F15461
	12160	0 56000 1 16646	5407		LDQ	SCRIPL−2,A EXAMINE OP1(S(I))32 TO CHECK	4F15462
	12161	−0 77300 0 00040	5408		RQL	32 FOR MIXED EXPONENTIAL EXPRESSION	4F15463
	12162	0 16200 0 11216	5409		TQP	MC0310+2 ERROR FIX PT BASE, FLOAT EXP.	4F15464
	12163	0 02000 0 12171	5410		TRA	CP4730	4F15465
	12164	0 56000 1 16651	5411	CP4660	LDQ	SCRIPL+1,A	4F15466
	12165	−0 77300 0 00040	5412		RQL	32 EXAMINE OP1(SI)))32	4F15467
	12166	0 50000 0 01514	5413		CLA	FXFX	4F15468
	12167	0 16200 0 12171	5414		TQP	CP4730 0...FX**FX	4F15469
	12170	0 50000 0 01515	5415		CLA	FLFX 1... FL**FX	4F15470
	12171	0 60100 0 16166	5416	CP4730	STO	CW+2	4F15471
	12172	0 60100 0 01347	5417		STO	G	4F15472
	12173	0 07400 2 12621	5418		TSX	COMP,B COMPILE TSX FXFX/FLEX/FLFL,4	4F15473
	12174	0 07400 1 03321	5419		TSX	TET00,A	4F15474
	12175	0 00000 0 00011	5420		HTR	9	4F15475
	12176	0 02000 0 12332	5421		TRA	CP5780 COMPILE FL0W TRACE INFO AND LXD 7(,4	4F15476
	12177	0 50000 0 01541	5422	CP4860	CLA	L(CLA)	4F15482
	12200	0 60100 0 16165	5423		STO	CW+1	4F15483
	12201	0 07400 4 12627	5424		TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15484
	12202	0 07400 2 12621	5425		TSX	COMP,B COMPILE CLA SYM1(S(I))	4F15485
	12203	0 60000 0 16164	5426		STZ	CW	4F15486
	12204	0 50000 1 16654	5427		CLA	SCRIPL+4,A	4F15487
	12205	0 76000 0 00001	5428		LBT	EXAMINE OP2(S(I))35	4F15488
	12206	1 00000 0 12135	5429		TXI	CP4440,0,0 0...EXP STORED	4F15489
	12207	1 77775 1 12142	5430		TXI	CP4490,A,−3 1... EXP IN MQ	4F15490
			5431				4F15491
	12210	0 50000 0 00030	5432	CP5000	CLA	EIFNO FN FUNCTI0N	4F15492
	12211	0 40000 0 01454	5433		ADD	2E18 UPDATE EIFNO	4F15493
	12212	0 60100 0 00030	5434		STO	EIFNO AND	4F15494
	12213	0 60100 0 16160	5435		STO	FNSW SET FN SWITCH	4F15495
	12214	0 62200 0 01105	5436		STD	1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY.	4F15496
	12215	0 53400 4 01407	5437		LXA	L(1),C INITIALIZE STAIX T0 1	4F15497
	12216	0 50000 1 16650	5438	CP5050	CLA	SCRIPL,A EXAMINE TAGJ(S(I)), J=2,...	4F15498
	12217	−0 12000 0 12233	5439		TMI	CP5180 NONSUBSCRIPTED	4F15499
	12220	−0 63400 2 11664	5440		SXD	CP5830,B SOBSCRIPTED-IS THERE A GENERAL TAG	4F15500
	12221	−0 63400 4 12314	5441		SXD	STACTR,C	4F15501
	12222	0 07400 4 12627	5442		TSX	AC0000,C	4F15502
	12223	−0 50000 0 16173	5443		CAL	TAGPRT	4F15503
	12224	−0 10000 0 12237	5444		TNZ	CP5220 GENERAL TAG PRESENT	4F15504
	12225	−0 50000 0 16167	5445		CAL	CW+3 NO GENERAL TAG PRESENT,SO PLACE	4F15505
	12226	0 77100 0 00013	5446		ARS	11 RELATIVE ADDRESS IN OPJ(S(II)14-28 AND	4F15506
	12227	−0 50100 0 01474	5447		ORA	NGTBIT SET OPJ(S(I))10=1 FROM NGTBIT	4F15507
	12230	−0 60200 1 16651	5448		ORS	SCRIPL+1,A	4F15508
	12231	−0 53400 4 12314	5449	CP5160	LXD	STACTR,C	4F15509
	12232	−0 53400 2 11664	5450		LXD	CP5830,B	4F15510
	12233	1 00003 2 12234	5451	CP5180	TXI	CP5190,B,3	4F15511
	12234	3 77772 2 12267	5452	CP5190	TXH	CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY	4F15512
	12235	1 00001 4 12236	5453		TXI	CP5210,C,1 NOT FINISHED-STAIX=STAIX+1	4F15513
	12236	1 77775 1 12216	5454	CP5210	TXI	CP5050,A,−3 GO ON TO NEXT ARGUMENT	4F15513
	12237	−0 50000 0 01566	5455	CP5220	CAL	L(PXD)	4F15515
	12240	0 60200 0 16165	5456		SLW	CW+1	4F15516
	12241	0 07400 2 12621	5457		TSX	COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I))	4F15517
	12242	0 60000 0 16164	5458		STZ	CW RESET CW	4F15518
	12243	0 07400 4 01731	5459		TSX	CIT00,C COMPILE ARS 18	4F15519
	12244	0 00000 0 01406	5460		HTR	L(0)	4F15520
	12245	0 00000 0 01535	5461		HTR	L(ARS)	4F15521
	12246	0 00000 0 01406	5462		HTR	L(0)	4F15522
	12247	0 00000 0 01466	5463		HTR	DEC18	4F15523
	12250	0 07400 4 01731	5464		TSX	CIT00,C COMPILE ADD *-2	4F15524
	12251	0 00000 0 01406	5465		HTR	L(0)	4F15525
	12252	0 00000 0 01532	5466		HTR	L(ADD)	4F15526
	12253	0 00000 0 01511	5467		HTR	PROCTR	4F15527
	12254	0 00000 0 01521	5468		HTR	DECMI2	4F15528
	12255	−0 50000 0 01571	5469		CAL	L(STA)	4F15529
	12256	0 60200 0 16165	5470		SLW	CW+1	4F15530
	12257	−0 50000 0 00030	5471		CAL	EIFNO	4F15531
	12260	−0 32000 0 01527	5472		ANA	MASK1	4F15532
	12261	0 60200 0 16166	5473		SLW	CW+2	4F15533
	12262	−0 53400 4 12314	5474		LXD	STACTR,C	4F15534
	12263	−0 75400 4 00000	5475		PXD	0,C	4F15535
	12264	0 60200 0 16167	5476		SLW	CW+3	4F15536
	12265	0 07400 2 12621	5477		TSX	COMP,B COMPILE STA IFN+STAIX	4F15537
	12266	1 00000 0 12231	5478		TXI	CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY	4F15538
	12267	−0 53400 1 01117	5479	CP5460	LXD	3QBAR,A	4F15539
	12270	−0 50000 0 01575	5480		CAL	L(SXD)	4F15540
	12271	0 60200 0 16165	5481		SLW	CW+1	4F15541
	12272	−0 50000 0 01505	5482		CAL	X(	4F15542
	12273	0 60200 0 16166	5483		SLW	CW+2	4F15543
	12274	−0 50000 0 01412	5484		CAL	L(4)	4F15544
	12275	0 60200 0 16167	5485		SLW	CW+3	4F15545
	12276	0 07400 2 12621	5486		TSX	COMP,B COMPILE SXD 7,4	4F15546
	12277	−0 50000 0 00030	5487		CAL	EIFNO	4F15547
	12300	−0 32000 0 01527	5488		ANA	MASK1	4F15548
	12301	0 60200 0 16164	5489		SLW	CW	4F15549
	12302	−0 50000 0 01602	5490		CAL	L(TSX)	4F15550
	12303	0 60200 0 16165	5491		SLW	CW+1	4F15551
	12304	−0 50000 1 16652	5492		CAL	SCRIPL+2,A	4F15552
	12305	0 60200 0 16166	5493		SLW	CW+2	4F15553
	12306	0 07400 2 12621	5494		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15554
	12307	0 60000 0 16164	5495		STZ	CW RESET CW	4F15555
	12310	1 77775 1 12311	5496		TXI	CP5680,A,−3 POSITION XA TO SYM2(S(I))	4F15556
	12311	0 50000 1 16650	5497	CP5680	CLA	SCRIPL,A	4F15557
	12312	0 12000 0 12315	5498		TPL	CP5700	4F15558
	12313	0 07400 4 12627	5499		TSX	AC0000,C NONSUBSCRIPTED	4F15559
	12314	1 00000 0 12324	5500	STACTR	TXI	CP5720,0,0	4F15560
	12315	0 56000 1 16651	5501	CP5700	LDQ	SCRIPL+1,A SUBSCRIPTED	4F15561
	12316	−0 76300 0 00013	5502		LGL	11	4F15562
	12317	0 76000 0 00001	5503		LBT		4F15563
	12320	0 56000 0 01406	5504		LDQ	L(0) GENERAL TAG PRESENT	4F15564
	12321	−0 60000 0 16167	5505		STQ	CW+3 NO GENERAL TAG PRESENT	4F15565
	12322	−0 50000 1 16652	5506		CAL	SCRIPL+2,A	4F15566
	12323	0 60200 0 16166	5507		SLW	CW+2	4F15567
	12324	0 07400 2 12621	5508	CP5720	TSX	COMP,B COMPILE TSX SYMJ(S(I)) , J=2,...	4F15568
	12325	−0 53400 2 11324	5509		LXD	CP0400,B	4F15569
	12326	1 00003 2 12327	5510		TXI	CP5750,B,3	4F15570
	12327	3 77772 2 12332	5511	CP5750	TXH	CP5780,B,−6 FINISHED SCANNING	4F15571
	12330	−0 63400 2 11324	5512		SXD	CP0400,B	4F15572
	12331	1 77775 1 12311	5513		TXI	CP5680,A,−3	4F15573
	12332	0 07400 4 03401	5514	CP5780	TSX	FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15574
	12333	0 00000 0 01406	5515		HTR	L(0)	4F15575
	12334	0 00000 0 01561	5516		HTR	L(LXD)	4F15576
	12335	0 00000 0 01505	5517		HTR	X(	4F15577
	12336	0 00000 0 01412	5518		HTR	L(4)	4F15578
	12337	−0 53400 1 01117	5519	ES0000	LXD	3QBAR,A -3Q TO XA	4F15579
	12340	−0 76000 0 00141	5520		SLT	1	4F15580
	12341	0 02000 0 11271	5521		TRA	CP0130 GO TO NEXT SEGMENT	4F15581
	12342	−0 50000 1 16650	5522		CAL	SCRIPL,A	4F15582
	12343	−0 32000 0 01452	5523		ANA	MASK2	4F15583
	12344	0 10000 0 12357	5524		TZE	ES0160	4F15584
	12345	0 50000 0 01120	5525		CLA	ARERAS S(I) NOT = S(0)	4F15585
	12346	0 60100 0 16166	5526		STO	CW+2	4F15586
	12347	0 50000 0 01363	5527		CLA	PHI(I)	4F15587
	12350	0 60100 0 16167	5528		STO	CW+3	4F15588
	12351	0 50000 0 01573	5529		CLA	L(STQ)	4F15589
	12352	−0 76000 0 00142	5530		SLT	2	4F15590
	12353	0 50000 0 01572	5531		CLA	L(STO)	4F15591
	12354	0 60100 0 16165	5532		STO	CW+1	4F15592
	12355	0 07400 2 12621	5533		TSX	COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I)	4F15593
	12356	0 02000 0 11271	5534		TRA	CP0130 GO TO NEXT SEGMENT	4F15594
	12357	0 56000 0 01356	5535	ES0160	LDQ	LEFT+2 S(I)=S(0)	4F15595
	12360	−0 76300 0 00014	5536		LGL	12	4F15596
	12361	0 34000 0 01450	5537		CAS	IFSYM IS THIS AN IF STATEMENT	4F15597
	12362	0 02000 0 12364	5538		TRA	ES0200	4F15598
	12363	0 02000 0 12556	5539		TRA	ES1500	4F15599
	12364	0 34000 0 01451	5540	ES0200	CAS	CALLER IS THIS A CALL STATEMENT	4F15600
	12365	0 02000 0 12367	5541		TRA	ES0210	4F15601
	12366	0 02000 0 12561	5542		TRA	ES1520	4F15602
	12367	0 34000 0 01447	5543	ES0210	CAS	SAPSYM	4F15603
	12370	0 02000 0 12372	5544		TRA	ES0220	4F15604
	12371	0 02000 0 12615	5545		TRA	ES1710	4F15605
	12372	0 77100 0 00006	5546	ES0220	ARS	6	4F15606
	12373	−0 53400 4 01122	5547		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15607
	12374	3 00000 4 12533	5548		TXH	ES1300,C,0 YES	4F15608
	12375	0 34000 0 01423	5549		CAS	L(H) NOT A FUNCTION STATEMENT	4F15609
	12376	0 34000 0 01425	5550		CAS	L(O)	4F15610
	12377	0 02000 0 12465	5551		TRA	ES0300	4F15611
	12400	0 02000 0 12465	5552		TRA	ES0300	4F15612
	12401	−0 76000 0 00144	5553		SLT	4	4F15613
	12402	0 02000 0 12420	5554		TRA	ES0870	4F15614
	12403	0 50000 0 01573	5555	ES0710	CLA	L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT	4F15615
	12404	−0 76000 0 00142	5556		SLT	2	4F15616
	12405	0 50000 0 01572	5557	ES0730	CLA	L(STO)	4F15617
	12406	0 60100 0 16165	5558		STO	CW+1	4F15618
	12407	0 50000 0 01354	5559		CLA	LEFT	4F15619
	12410	0 60100 0 16170	5560		STO	TAGWRD	4F15620
	12411	0 50000 0 01355	5561		CLA	LEFT+1	4F15621
	12412	0 60100 0 16171	5562		STO	OPWORD	4F15622
	12413	0 50000 0 01356	5563		CLA	LEFT+2	4F15623
	12414	0 60100 0 16172	5564		STO	SYMWRD	4F15624
	12415	0 07400 4 12635	5565		TSX	AC0060,C ADDRESS COMPILE VAR1ABLE ON LEFT	4F15625
	12416	0 07400 2 12621	5566		TSX	COMP,B COMPILE STO/STQ LEFT+2	4F15626
	12417	0 02000 0 12601	5567		TRA	ES1590 EXIT TO FETCH STATE A	4F15627
	12420	−0 76000 0 00142	5568	ES0870	SLT	2 FX PT ON LEFT, FLO PT ON RIGHT	4F15628
	12421	0 02000 0 12433	5569		TRA	ES0990	4F15629
	12422	0 50000 0 01573	5570		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MQ	4F15630
	12423	0 60100 0 16165	5571		STO	CW+1	4F15631
	12424	0 50000 0 01505	5572		CLA	X(	4F15632
	12425	0 60100 0 16166	5573		STO	CW+2	4F15633
	12426	0 60000 0 16167	5574		STZ	CW+3	4F15634
	12427	0 07400 2 12621	5575		TSX	COMP,B COMPILE STQ 700000	4F15635
	12430	0 50000 0 01541	5576		CLA	L(CLA)	4F15636
	12431	0 60100 0 16165	5577		STO	CW+1	4F15637
	12432	0 07400 2 12621	5578		TSX	COMP,B COMPILE CLA 700000	4F15638
	12433	0 07400 4 01731	5579	ES0990	TSX	CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN	4F15639
	12434	0 00000 0 01406	5580		HTR	L(0) RESULT ON RIGHT IS IN ACC.	4F15640
	12435	0 00000 0 01603	5581		HTR	L(UFA)	4F15641
	12436	0 00000 0 01504	5582		HTR	O(	4F15642
	12437	0 00000 0 01406	5583		HTR	L(0)	4F15643
	12440	0 07400 4 01731	5584		TSX	CIT00,C	4F15644
	12441	0 00000 0 01406	5585		HTR	L(0)	4F15645
	12442	0 00000 0 01560	5586		HTR	L(LRS)	4F15646
	12443	0 00000 0 01406	5587		HTR	L(0)	4F15647
	12444	0 00000 0 01406	5588		HTR	L(0)	4F15648
	12445	0 07400 4 01731	5589		TSX	CIT00,C	4F15649
	12446	0 00000 0 01406	5590		HTR	L(0)	4F15650
	12447	0 00000 0 01534	5591		HTR	L(ANA)	4F15651
	12450	0 00000 0 01504	5592		HTR	O(	4F15652
	12451	0 00000 0 01454	5593		HTR	2E18	4F15653
	12452	0 07400 4 01731	5594		TSX	CIT00,C	4F15654
	12453	0 00000 0 01406	5595		HTR	L(0)	4F15655
	12454	0 00000 0 01557	5596		HTR	L(LLS)	4F15656
	12455	0 00000 0 01406	5597		HTR	L(0)	4F15657
	12456	0 00000 0 01406	5598		HTR	L(0)	4F15658
	12457	0 07400 4 01731	5599		TSX	CIT00,C	4F15659
	12460	0 00000 0 01406	5600		HTR	L(0)	4F15660
	12461	0 00000 0 01533	5601		HTR	L(ALS)	4F15661
	12462	0 00000 0 01406	5602		HTR	L(0)	4F15662
	12463	0 00000 0 01466	5603		HTR	DEC18	4F15663
	12464	0 02000 0 12521	5604		TRA	ES0610	4F15664
	12465	−0 76000 0 00144	5605	ES0300	SLT	4	4F15665
	12466	0 02000 0 12403	5606		TRA	ES0710	4F15666
	12467	−0 76000 0 00142	5607	ES0320	SLT	2 FLO PT ON LEFT, FX PT ON RIGHT	4F15667
	12470	0 02000 0 12502	5608		TRA	ES0440	4F15668
	12471	0 50000 0 01573	5609		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MQ	4F15669
	12472	0 60100 0 16165	5610		STO	CW+1	4F15670
	12473	0 50000 0 01505	5611		CLA	X(	4F15671
	12474	0 60100 0 16166	5612		STO	CW+2	4F15672
	12475	0 60000 0 16167	5613		STZ	CW+3	4F15673
	12476	0 07400 2 12621	5614		TSX	COMP,B COMPILE STQ 700000	4F15674
	12477	0 50000 0 01541	5615		CLA	L(CLA)	4F15675
	12500	0 60100 0 16165	5616		STO	CW+1	4F15676
	12501	0 07400 2 12621	5617		TSX	COMP,B COMPILE CLA 700000	4F15677
	12502	0 07400 4 01731	5618	ES0440	TSX	CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN	4F15678
	12503	0 00000 0 01406	5619		HTR	L(0) RESULT ON RIGHT IS IN ACC	4F15679
	12504	0 00000 0 01560	5620		HTR	L(LRS)	4F15680
	12505	0 00000 0 01406	5621		HTR	L(0)	4F15681
	12506	0 00000 0 01466	5622		HTR	DEC18	4F15682
	12507	0 07400 4 01731	5623		TSX	CIT00,C	4F15683
	12510	0 00000 0 01406	5624		HTR	L(0)	4F15684
	12511	0 00000 0 01564	5625		HTR	L(ORA)	4F15685
	12512	0 00000 0 01504	5626		HTR	O(	4F15686
	12513	0 00000 0 01406	5627		HTR	L(0)	4F15687
	12514	0 07400 4 01731	5628		TSX	CIT00,C	4F15688
	12515	0 00000 0 01406	5629		HTR	L(0)	4F15689
	12516	0 00000 0 01550	5630		HTR	L(FAD)	4F15690
	12517	0 00000 0 01504	5631		HTR	O(	4F15691
	12520	0 00000 0 01406	5632		HTR	L(0)	4F15692
	12521	−0 53400 4 01122	5633	ES0610	LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15693
	12522	−3 00000 4 12405	5634		TXL	ES0730,C,0 NO	4F15694
	12523	0 50000 0 01601	5635	ES0630	CLA	L(TRA) YES	4F15695
	12524	0 60100 0 16165	5636		STO	CW+1	4F15696
	12525	0 60000 0 16166	5637		STZ	CW+2	4F15697
	12526	−0 50000 0 01454	5638		CAL	2E18	4F15698
	12527	−0 50100 0 01412	5639		ORA	L(4)	4F15699
	12530	0 60200 0 16167	5640		SLW	CW+3	4F15700
	12531	0 07400 2 12621	5641		TSX	COMP,B COMPILE TRA 1,4	4F15701
	12532	0 02000 0 12601	5642		TRA	ES1590 EXIT TO FETCH STATE A	4F15702
	12533	0 40200 0 01433	5643	ES1300	SUB	L(X)	4F15703
	12534	0 10000 0 12540	5644		TZE	ES1360	4F15704
	12535	−0 76000 0 00144	5645		SLT	4	4F15705
	12536	0 02000 0 12542	5646		TRA	ES1380	4F15706
	12537	0 02000 0 12467	5647		TRA	ES0320	4F15707
	12540	−0 76000 0 00144	5648	ES1360	SLT	4	4F15708
	12541	0 02000 0 12420	5649		TRA	ES0870	4F15709
	12542	−0 76000 0 00142	5650	ES1380	SLT	2	4F15710
	12543	0 02000 0 12523	5651		TRA	ES0630	4F15711
	12544	0 50000 0 01573	5652		CLA	L(STQ)	4F15712
	12545	0 60100 0 16165	5653		STO	CW+1	4F15713
	12546	0 50000 0 01505	5654		CLA	X(	4F15714
	12547	0 60100 0 16166	5655		STO	CW+2	4F15715
	12550	0 60000 0 16167	5656		STZ	CW+3	4F15716
	12551	0 07400 2 12621	5657		TSX	COMP,B COMPILE STQ 700000	4F15717
	12552	0 50000 0 01541	5658		CLA	L(CLA)	4F15718
	12553	0 60100 0 16165	5659		STO	CW+1	4F15719
	12554	0 07400 2 12621	5660		TSX	COMP,B COMPILE CLA 700000	4F15720
	12555	0 02000 0 12523	5661		TRA	ES0630	4F15721
	12556	0 07400 1 03321	5662	ES1500	TSX	TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1	4F15722
	12557	0 00000 0 00002	5663		PZE	2 INTO TIFGO TABLE (TABLE 2).	4F15723
	12560	0 02000 0 12565	5664		TRA	ES1530	4F15724
	12561	−0 53400 4 00030	5665	ES1520	LXD	EIFNO,4	4F15725
	12562	−0 63400 4 01123	5666		SXD	CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND	4F15726
	12563	0 07400 1 03321	5667		TSX	TET00,1 LAST IFN NUMBERS.	4F15727
	12564	0 00000 0 00020	5668			16	4F15728
	12565	−0 76000 0 00142	5669	ES1530	SLT	2	4F15729
	12566	0 02000 0 12601	5670		TRA	ES1590 EXIT T0 FETCH STATE A	4F15730
	12567	0 07400 4 01731	5671		TSX	CIT00,C COMPILE LLS 37	4F15731
	12570	0 00000 0 01406	5672			L(0)	4F15732
	12571	0 00000 0 01573	5673			L(STQ)	4F15733
	12572	0 00000 0 01505	5674			X(	4F15734
	12573	0 00000 0 01406	5675			L(0)	4F15735
	12574	0 07400 4 01731	5676		TSX	CIT00,4	4F15736
	12575	0 00000 0 01406	5677			L(0)	4F15737
	12576	0 00000 0 01541	5678			L(CLA)	4F15738
	12577	0 00000 0 01505	5679			X(	4F15739
	12600	0 00000 0 01406	5680			L(0)	4F15740
	12601	0 50000 0 16160	5681	ES1590	CLA	FNSW	4F15741
	12602	0 10000 0 03440	5682		TZE	MTR000	4F15742
	12603	0 50000 0 01151	5683		CLA	F−1	4F15743
	12604	0 40200 0 01477	5684		SUB	5BLANS	4F15744
	12605	0 10000 0 03440	5685		TZE	MTR000	4F15745
	12606	0 50200 0 00030	5686		CLS	EIFNO	4F15746
	12607	0 60100 0 00030	5687		STO	EIFNO	4F15747
	12610	0 07400 1 03321	5688		TSX	TET00,A	4F15748
	12611	0 00000 0 00000	5689		HTR	0	4F15749
	12612	0 50200 0 00030	5690		CLS	EIFNO	4F15750
	12613	0 60100 0 00030	5691		STO	EIFNO	4F15751
	12614	0 02000 0 03440	5692		TRA	MTR000	4F15752
	12615	−0 53400 2 00637	5693	ES1710	LXD	BBOX,B	4F15753
	12616	0 50000 0 01362	5694		CLA	OPNWRD	4F15754
	12617	0 60100 2 00635	5695		STO	CIB−3,B	4F15755
	12620	0 02000 0 03440	5696		TRA	MTR000	4F15756
			5697				4F15757
	12621	0 07400 4 01731	5698	COMP	TSX	CIT00,C	4F15758
	12622	0 00000 0 16164	5699		HTR	CW	4F15759
	12623	0 00000 0 16165	5700		HTR	CW+1	4F15760
	12624	0 00000 0 16166	5701		HTR	CW+2	4F15761
	12625	0 00000 0 16167	5702		HTR	CW+3	4F15762
	12626	0 02000 2 00001	5703		TRA	1,B	4F15763
			5704				4F15764
	12627	0 50000 1 16650	5705	AC0000	CLA	SCRIPL,A	4F15765
	12630	0 60100 0 16170	5706		STO	TAGWRD	4F15766
	12631	0 50000 1 16651	5707		CLA	SCRIPL+1,A	4F15767
	12632	0 60100 0 16171	5708		STO	OPWORD	4F15768
	12633	0 50000 1 16652	5709		CLA	SCRIPL+2,A	4F15769
	12634	0 60100 0 16172	5710		STO	SYMWRD	4F15770
	12635	−0 50000 0 16170	5711	AC0060	CAL	TAGWRD	4F15771
	12636	−0 32000 0 01527	5712		ANA	MASK1 EXTRACT TAGS IN ACC.	4F15772
	12637	−0 76000 0 00001	5713		PBT		4F15773
	12640	0 02000 0 12721	5714		TRA	AC0540	4F15774
	12641	−0 75400 0 00000	5715		PXD	0,0 NON-SUBSCRIPTED SYMBOL	4F15775
	12642	0 56000 0 16172	5716		LDQ	SYMWRD	4F15776
	12643	−0 76300 0 00001	5717		LGL	1	4F15777
	12644	0 76000 0 00001	5718		LBT		4F15778
	12645	0 16200 0 12712	5719		TQP	AC0460 SYMBOL IS SOME S(K)	4F15779
	12646	−0 76300 0 00013	5720		LGL	11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE	4F15780
	12647	0 40200 0 01444	5721		SUB	L(A() IS THIS A FLO PT CONSTANT	4F15781
	12650	0 10000 0 12705	5722		TZE	AC0410 YES	4F15782
	12651	0 40000 0 01444	5723		ADD	L(A() NO	4F15783
	12652	0 40200 0 01446	5724		SUB	L(I() IS THIS A FIX PT CONSTANT	4F15784
	12653	0 10000 0 12703	5725		TZE	AC0390 YES	4F15785
	12654	0 40000 0 01446	5726		ADD	L(I() NO	4F15786
	12655	0 40200 0 01445	5727		SUB	L(H() IS THIS A HOLLERITH FIELD	4F15787
	12656	0 10000 0 12701	5728		TZE	AC0350 YES	4F15788
	12657	0 56000 0 16171	5729		LDQ	OPWORD NON-SUBSCRIPTD0 EXTERNAL VARIABLE	4F15789
	12660	−0 76300 0 00015	5730		LGL	13 IS THIS A FREE VARIABLE	4F15790
	12661	0 16200 0 12676	5731		TQP	AC0340 NO	4F15791
	12662	0 76300 0 00017	5732		LLS	15 YES	4F15792
	12663	0 76000 0 00006	5733		COM		4F15793
	12664	0 40200 0 01407	5734		SUB	L(1)	4F15794
	12665	0 73400 2 00000	5735		PAX	0,B	4F15795
	12666	−0 75400 2 00000	5736		PXD	0,B	4F15796
	12667	0 60200 0 16167	5737		SLW	CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS	4F15797
	12670	−0 53400 2 00470	5738		LXD	BK,B	4F15798
	12671	−0 50000 2 00470	5739		CAL	FORSUB−1,B	4F15799
	12672	−0 32000 0 01452	5740		ANA	MASK2 EXTRACT FUNCTION STATEMENT TYPE	4F15800
	12673	−0 50100 0 01503	5741		ORA	P(	4F15801
	12674	0 60200 0 16166	5742	AC0320	SLW	CW+2	4F15802
	12675	0 02000 4 00001	5743		TRA	1,C RETURN	4F15803
	12676	0 60000 0 16167	5744	AC0340	STZ	CW+3 NON-SUBSCRIPTED, REAL VARIABLE	4F15804
	12677	−0 50000 0 16172	5745		CAL	SYMWRD	4F15805
	12700	0 02000 0 12674	5746		TRA	AC0320	4F15806
	12701	−0 50000 0 01522	5747	AC0350	CAL	H(	4F15807
	12702	0 02000 0 12706	5748		TRA	AC0420	4F15808
	12703	0 50000 0 01501	5749	AC0390	CLA	I( FIX PT INTERNAL VARIABLE	4F15809
	12704	0 02000 0 12706	5750		TRA	AC0420	4F15810
	12705	0 50000 0 01502	5751	AC0410	CLA	A( FLO PT INTERNAL VARIABLE	4F15811
	12706	0 60100 0 16166	5752	AC0420	STO	CW+2	4F15812
	12707	−0 77300 0 00006	5753		RQL	6	4F15813
	12710	−0 60000 0 16167	5754		STQ	CW+3	4F15814
	12711	0 02000 4 00001	5755		TRA	1,C RETURN	4F15815
	12712	−0 76300 0 00043	5756	AC0460	LGL	35 SYMBOL IS SOME S(K).	4F15816
	12713	0 73400 2 00000	5757	TDRADD	PAX	0,B	4F15817
	12714	−0 50000 2 16174	5758		CAL	CPBETA,B	4F15818
	12715	−0 32000 0 01527	5759		ANA	MASK1 EXTRACT PHI(K)	4F15819
	12716	0 60200 0 16167	5760		SLW	CW+3	4F15820
	12717	−0 50000 0 01120	5761		CAL	ARERAS	4F15821
	12720	0 02000 0 12674	5762		TRA	AC0320	4F15822
	12721	0 60200 0 16170	5763	AC0540	SLW	TAGWRD SUBSCRIPTED VARIABLE	4F15823
	12722	0 56000 0 16170	5764		LDQ	TAGWRD	4F15824
	12723	−0 75400 0 00000	5765		PXD	,0 CLEAR AC.	4F15825
	12724	−0 76300 0 00014	5766		LGL	12 I-TAU TAGS TO AC.	4F15826
	12725	0 60200 0 16167	5767		SLW	CW+3 STORE FOR NEXT CIT ENTRY.	4F15827
	12726	0 16200 0 12731	5768		TQP	*+3	4F15828
	12727	0 60000 0 16167	5769		STZ	CW+3	4F15829
	12730	−0 50000 0 01454	5770		CAL	2E18 REPLACE NULL TAG.	4F15830
	12731	0 60200 0 16173	5771		SLW	TAGPRT SAVE FOR LATER USE.	4F15831
	12732	−0 76300 0 00001	5772		LGL	1	4F15832
	12733	−0 75400 0 00000	5773		PXD	,0 CLEAR AC.	4F15833
	12734	−0 76300 0 00010	5774		LGL	8 FORM TWICE SIGMA TAG.	4F15834
	12735	0 76700 0 00001	5775		ALS	1	4F15835
	12736	0 40100 0 00446	5776		ADM	SIG1IX−2 FORM BASE OF TABLE + SIGMA TAG.	4F15836
	12737	0 62100 0 12740	5777		STA	SDRADD	4F15837
	12740	−0 75400 0 00000	5778	SDRADD	PXD	**,0	4F15838
	12741	0 76200 0 00302	5779		RDR	2	4F15839
	12742	0 46000 0 12740	5780		LDA	SDRADD	4F15840
	12743	−0 70000 0 02365	5781		CAD	DUMP	4F15841
	12744	0 76000 0 00006	5782		COM		4F15842
	12745	−0 70000 0 02365	5783		CAD	DUMP	4F15843
	12746	0 76000 0 00006	5784		COM		4F15844
	12747	0 10000 0 12751	5785		TZE	*+2 CHECK SUM TEST.	4F15845
	12750	0 07400 4 03400	5786		TSX	DIAG,4 ERROR SIGMA1 CKSUM FAILS	4F15846
	12751	−0 50000 0 02365	5787		CAL	DUMP	4F15847
	12752	−0 60200 0 16167	5788		ORS	CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG.	4F15848
	12753	0 50000 0 16172	5789		CLA	SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY.	4F15849
	12754	0 60100 0 16166	5790		STO	CW+2	4F15850
	12755	0 02000 4 00001	5791		TRA	1,4 RETURN TO CALLER	4F15851
			5792				4F158511
	12756	0 07400 4 03401	5793	CP6000	TSX	FLTR00,4 COMPILE FLOW TRACE INFORMATI0N AND THEN	4F158512
	12757	0 00000 0 16164	5794			CW	4F158513
	12760	0 00000 0 16165	5795			CW+1	4F158514
	12761	0 00000 0 16166	5796			CW+2	4F158515
	12762	0 00000 0 16167	5797			CW+3	4F158516
	12763	0 02000 0 12337	5798		TRA	ES0000	4F158517
			5799			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15852
		12764	5800	ENDD	BSS	0	4F158525
			5801				4F15853
		16160	5802		ORG	3184+4096	4F15854
		16160	5803	FNSW	BSS	1	4F15855
		16161	5804	P(CNTR	BSS	1	4F15856
		16162	5805	ARGORG	BSS	1	4F15857
		16163	5806	XRSAVE	BSS	1	4F15858
		16164	5807	CW	BSS	4	4F15859
		16170	5808	TAGWRD	BSS	1	4F15860
		16171	5809	OPWORD	BSS	1	4F15861
		16172	5810	SYMWRD	BSS	1	4F15862
		16173	5811	TAGPRT	BSS	1	4F15863
		16174	5812	CPBETA	BSS	300	4F15864
		16650	5813	SCRIPL	BSS	600	4F15865
			5814			END OF ARITHMETIC / STATE D.	4F15866
			5815			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15867
			5816				4F15868
			5817			SYNONYMS USED BY SECTION ONE.	4F15869
		01100	5818	1E	SYN	ERASE COMMON WORKING STORAGE.	4F15870
		00004	5819	1TOCS	SYN	4 ENTRY TO SYSTEM TAPE MONITOR.	4F15871
		01101	5820	2E	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15872
		01501	5821	2P	SYN	I(	4F15873
		01531	5822	36ONES	SYN	ALL1	4F15874
		01102	5823	3E	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15875
		01117	5824	3QBAR	SYN	3LBAR	4F15876
		01103	5825	4E	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15877
		00001	5826	A	EQU	1	4F15878
		01430	5827	ABLANK	SYN	BLANK	4F15879
		01376	5828	ACOMMA	SYN	COMMA	4F15880
		01532	5829	ADD	SYN	L(ADD)	4F15881
		01400	5830	AEQUAL	SYN	EQUAL	4F15882
		01375	5831	ALPAR	SYN	OPEN	4F15883
		06323	5832	ARITH	SYN	STATEB	4F15884
		01377	5833	ARPAR	SYN	CLOS	4F15885
		01535	5834	ARS	SYN	L(ARS)	4F15886
		00002	5835	B	EQU	2	4F15887
		00004	5836	C	EQU	4	4F15888
		01537	5837	CAL	SYN	L(CAL)	4F15889
		01731	5838	CIT	SYN	CIT00	4F15890
		01150	5839	CITMQR	SYN	E1C ERASABLE STORAGE.	4F15891
		00223	5840	CITTAP	SYN	147 COMPILED INSTRUCTION TAPE.	4F15892
		01101	5841	CITXR1	SYN	ERASE+1 ERASABLE STORAGE.	4F15893
		01102	5842	CITXR2	SYN	ERASE+2 ERASABLE STORAGE.	4F15894
		01544	5843	CPY	SYN	L(CPY)	4F15895
		01454	5844	D1	SYN	2E18	4F15896
		01101	5845	D12	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15897
		01466	5846	D18	SYN	DEC18	4F15898
		01102	5847	D3	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15899
		01546	5848	DED	SYN	L(DED)	4F15900
		00310	5849	DIM1	SYN	0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR.	4F15905
		00764	5850	DIM2	SYN	0500 DRUM TABLE ORIGIN -DRTABS,DIM.SR.	4F15906
		01440	5851	DIM3	SYN	0800 DRUM TABLE ORIGIN -DRTABS,DIM.9R.	4F15907
		01100	5852	DIMCTR	SYN	ERASE COMMON WORKING STORAGE.	4F15908
		01500	5853	DMP	SYN	E(	4F15909
		01100	5854	DOE	SYN	ERASE COMMON WORKING STORAGE.	4F15910
		01103	5855	DRCKSM	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15911
		01104	5856	DRMADR	SYN	ERASE+4 ERASABLE STORAGE.	4F15912
		01413	5857	DRMERC	SYN	L(5) NUMBER OF DRUM READING ATTEMPTS.	4F15913
		01100	5858	DRSYM	SYN	ERASE COMMON WORKING STORAGE.	4F15914
		01100	5859	E1TDR	SYN	ERASE COMMON WORKING STORAGE.	4F15915
		01101	5860	E2C	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15916
		01101	5861	E2TDR	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15917
		01102	5862	E3C	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15918
		01102	5863	E3TDR	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15919
		01101	5864	EKE	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15920
		01103	5865	ENONO	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15921
		01104	5866	FEOD	SYN	ERASE+4 COMMON WORKING STORAGE.	4F15922
		00002	5867	FIXCON	SYN	0002 DRUM TABLE ORIGIN -DRTABS.	4F15923
		00312	5868	FLOCON	SYN	202 DRUM TABLE ORIGIN -DRTABS.	4F15924
		00002	5869	FXCODR	SYN	2	4F15925
		01102	5870	H	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15926
		01522	5871	H(	SYN	ADSPOP	4F15927
		01554	5872	HPR	SYN	L(HPR)	4F15928
		01555	5873	LDA	SYN	L(LDA)	4F15929
		01561	5874	LXD	SYN	L(LXD)	4F15930
		01373	5875	L(10)	SYN	TEN	4F15931
		01400	5876	L(11)	SYN	EQUAL	4F15932
		01420	5877	L(12)	SYN	MINUS	4F15933
		01454	5878	L(1DI	SYN	2E18	4F15934
		01374	5879	L(63)	SYN	ENDMK	4F15935
		03440	5880	MEMORG	SYN	1824 MEMORY ORIGIN FOR ALL STATES.	4F15936
		01452	5881	MSK	SYN	MASK2	4F15937
		03440	5882	MTR000	SYN	STATEA	4F15938
		01103	5883	N	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15943
		01404	5884	PLUS	SYN	12Z	4F15945
		01566	5885	PXD	SYN	L(PXD)	4F15946
		01100	5886	RAXR4	SYN	ERASE COMMON WORKING STORAGE.	4F15947
		01226	5887	SIGMA1	SYN	0662 DRUM TABLE ORIGIN -DRTABS.	4F15948
		01101	5888	SR6WRK	SYN	ERASE+1 ERASABLE STORAGE.	4F15949
		01416	5889	ST	SYN	L(8)	4F15950
		01571	5890	STA	SYN	L(STA)	4F15951
		01104	5891	STCKSM	SYN	ERASE+4 COMMON WORKING STORAGE.	4F15952
		00224	5892	TABTAP	SYN	148 TABLE TAPE.	4F15953
		01453	5893	TAG4	SYN	2E17	4F15954
		00000	5894	TAU1	SYN	0000 DRUM TABLE ORIGIN -DRTABS.	4F15955
		00454	5895	TAU2	SYN	0300 DRUM TABLE ORIGIN -DRTABS.	4F15956
		01356	5896	TAU3	SYN	0750 DRUM TABLE ORIGIN -DRTABS.	4F15957
		01413	5897	TERC	SYN	L(5) TAPE ERROR COUNTER.	4F15958
		01103	5898	TETMQR	SYN	ERASE+3 ERASABLE STORAGE.	4F15959
		01102	5899	TETWRK	SYN	ERASE+2 ERASABLE STORAGE.	4F15960
		01100	5900	TETXR2	SYN	ERASE ERASABLE STORAGE.	4F15961
		01101	5901	TETXR4	SYN	ERASE+1 ERASABLE STORAGE.	4F15962
		01576	5902	TIX	SYN	L(TIX)	4F15963
		01504	5903	ZER	SYN	O(	4F15964
		00000	5904	..	EQU	0	4F15965
			5905			END OF SYNONYMS USED BY SECTION ONE.	4F15966
			5906			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15967
			5907				4F15968
			5908			END OF SECTION ONE.	4F15969