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