SECTION 2 BLOCK 1

			1			BLOCK ONE OF SECTION TWO.
			2			BLOCK ONE OF SECTION TWO.
			3			MASTER RECORD CARD = FN027	F2100000
			4			BLOCK ONE OF SECTION TWO PERFORMS THE	F2100001
			5			PRELIMINARY DO NEST STRUCTURE ANALYSIS	F2100002
			6			REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS	F2100003
			7			LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY.	F2100004
			8			TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED	F2100005
			9			INTO TABLE TRALEV. IF THERE IS A VARIABLE	F2100006
			10			PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION	F2100007
			11			IS ASSIGNED.	F2100008
			12			FINALLY, A SEARCH IS MADE T0 DETERMINE	F2100009
			13			WHETHER A DO INDEX COUNTER IS	F2100010
			14			NECESSARY T0 KEEP CURRENT THE VALUES	F2100011
			15			OF THE DO INDEX.	F2100012
		00031	16		ORG	25	F2100015
		00031	17	DOTAG	BSS	1	F2100017
		00032	18		BSS	1349	F2100020
		02537	19	DOTAGZ	BSS	1	F2100030
		02540	20	TIFGO	BSS	1	F2100040
		02541	21		BSS	599	F2100050
		03670	22	TIFZ	BSS	1	F2100060
		03671	23	TRAD	BSS	1	F2100070
		03672	24		BSS	249	F2100080
		04263	25	TRADZ	BSS	1	F2100090
		04264	26	TRALEV	BSS	1	F2100100
		04265	27		BSS	599	F2100110
		05414	28	TLTZ	BSS	1	F2100120
		02540	29		ORG	1376	F2100130
		02540	30	FORVAL	BSS	1	F2100140
		02541	31		BSS	999	F2100150
		04510	32	4VALZ	BSS	1	F2100160
		02540	33		ORG	1376	F2100170
		02540	34	FORVAR	BSS	1	F2100180
		02541	35		BSS	1499	F2100190
		05474	36	4VARZ	BSS	1	F2100200
		00734	37		ORG	476	F2100210
		00734	38	FORTAG	BSS	1	F2100211
		00735	39		BSS	1499	F2100230
		03670	40	FORTZ	BSS	1	F2100240
			41			PROGRAM C ONSTANTS	F2100250
		05474	42		ORG	2876	F2100260
	05474	0 00000 0 00000	43	L(0)		0,0,0	F2100270
	05475	0 00001 0 00000	44	L(1)		0,0,1	F2100280
	05476	0 00002 0 00000	45	L(2)		0,0,2	F2100290
	05477	0 00003 0 00000	46	L(3)		0,0,3	F2100300
	05500	0 00004 0 00000	47	L(4)		0,0,4	F2100310
	05501	0 00005 0 00000	48	L(5)		0,0,5	F2100320
	05502	0 00006 0 00000	49	L(6)		0,0,6	F2100330
	05503	0 00011 0 00000	50	L(9)		0,0,9	F2100340
	05504	0 01130 0 00000	51	L(600)		0,0,600	F2100350
	05505	0 01750 0 00000	52	L(1000		0,0,1000	F2100360
	05506	0 02506 0 00000	53	L(1350		0,0,1350	F2100370
	05507	0 02734 0 00000	54	L(1500		0,0,1500	F2100380
	05510	−0 00000 0 00000	55	L(MZ)	MZE		F2100390
	05511	+200000000000	56	BITONE	OCT	200000000000	F2100400
	05512	+100000000000	57	BITTWO	OCT	100000000000	F2100410
	05513	+077777077777	58	DECADD	OCT	77777077777	F2100420
	05514	+077777000000	59	DECMSK	OCT	77777000000	F2100430
	05515	+000000700000	60	TAGMSK	OCT	700000	F2100440
	05516	+000000077777	61	ADDMSK	OCT	77777	F2100450
	05517	−377777477777	62	NCMSK	OCT	−377777477777	F2100460
	05520	+000000100000	63	CR1	OCT	100000	F2100470
	05521	+000000200000	64	CR2	OCT	200000	F2100480
			65			BEGIN BLO CK ONE.	F2100490
	05522	0 77200 0 00224	66	TAP00	REW	148	F2100500
	05523	0 77200 0 00223	67		REW	147	F2100510
	05524	−0 76000 0 00012	68		RTT		F2100520
	05525	0 76100 0 00000	69		NOP		F2100530
	05526	0 76400 0 00222	70		BST	TTAPE POSITION TAPE TWO	F2100540
	05527	−0 53400 1 05503	71		LXD	L(9),1 FOR READING IN TAPE	F2100550
	05530	0 76400 0 00222	72	TAP10	BST	TTAPE TABLES	F2100560
	05531	2 00001 1 05530	73		TIX	TAP10,1,1	F2100570
	05532	0 76000 0 00140	74		PSE	96 ALL LIGHTS OFF	F2100580
	05533	0 76000 0 00142	75		PSE	98 TRALEV LIGHT 98 ON	F2100590
	05534	−0 53400 2 05476	76		LXD	L(2),2 READ	F2100600
	05535	0 50000 0 07153	77		CLA	TIFAD IN	F2100610
	05536	0 07400 4 07060	78		TSX	RTAPE,4 TIEFGO	F2100620
	05537	−0 63400 1 02537	79		SXD	TIFGO−1,1 SAVE NEXT UNUSED INDEX	F2100630
	05540	−0 53400 2 05477	80		LXD	L(3),2 READ	F2100640
	05541	0 50000 0 07154	81		CLA	TRADAD IN	F2100650
	05542	0 07400 4 07060	82		TSX	RTAPE,4 TRAD	F2100660
	05543	−0 63400 1 03670	83		SXD	TRAD−1,1 SAVE NEXT UNUSED INDEX	F2100670
	05544	−0 53400 2 05475	84		LXD	L(1),2 READ	F2100680
	05545	0 50000 0 07151	85		CLA	DOAD IN	F2100690
	05546	0 07400 4 07060	86		TSX	RTAPE,4 TDO WITH DOTAG FORMAT	F2100700
	05547	−0 63400 1 00030	87		SXD	DOTAG−1,1 SAVE NEXT UNUSED INDEX	F2100710
	05550	−3 02505 1 05553	88		TXL	MR00,1,1349 TEST FOR EMPTY DOTAG	F2100720
	05551	0 76000 0 00143	89		PSE	99 DOTAG EMPTY	F2100730
	05552	0 02000 0 06567	90		TRA	TS4VAL	F2100740
			91			MR00 COMPUTES LEVEL, X, CARRY BITS.	F2100750
	05553	−0 53400 1 00030	92	MR00	LXD	DOTAG−1,1 INITIALIZE TEST	F2100760
	05554	−0 63400 1 05630	93		SXD	MR70,1 INSTRUCTION.	F2100770
	05555	−0 53400 1 05506	94		LXD	L(1350,1 INITIALIZE XRA TO MAX DOTAG.	F2100780
	05556	0 50000 0 05475	95	MR05	CLA	L(1) INITIALIZE LEVEL TO ONE	F2100790
	05557	−0 73400 2 00000	96	MR10	PDX	0,2 PUT LEVEL IN XRB	F2100800
	05560	0 60100 1 02544	97		STO	DOTAGZ+5,1 STORE LEVEL IN L WORD	F2100810
	05561	0 50000 1 02537	98		CLA	DOTAGZ,1 INSPECT TAG OF FIRST WORD)	F2100820
	05562	−0 63400 4 05567	99		SXD	MR14,4	F2100830
	05563	0 73400 4 00000	100		PAX	0,4	F2100840
	05564	0 62200 0 05565	101		STD	MR12	F2100850
D	05565	3 00000 4 05570	102	MR12	TXH	MR15,4	F2100860
	05566	0 02000 0 07303	103		TRA	ERBETA BETA LESS THAN OR EQUAL TO ALPHA	F2100871
A	05567	0 00000 0 00000	104	MR14	HTR		F2100880
	05570	−0 53400 4 05567	105	MR15	LXD	MR14,4	F2100890
	05571	−0 32000 0 05515	106		ANA	TAGMSK IF ZERO( TRA TO MR20)	F2100900
	05572	0 10000 0 05576	107		TZE	MR20 IF NOT ZERO( PUT BIT	F2100910
	05573	0 50000 0 05512	108		CLA	BITTWO IN L WORD FOR X NOT	F2100920
	05574	−0 60200 1 02544	109		ORS	DOTAGZ+5,1 COMPUTABLE AND GO TO	F2100930
	05575	0 02000 0 05625	110		TRA	MR60 END.	F2100940
	05576	0 50000 1 02542	111	MR20	CLA	DOTAGZ+3,1 COMPUTE X AND STORE IN	F2100950
	05577	0 40200 1 02541	112		SUB	DOTAGZ+2,1 L WORD	F2100960
	05600	0 40000 1 02543	113		ADD	DOTAGZ+4,1	F2100970
	05601	0 76500 0 00043	114		LRS	35	F2100980
	05602	0 22000 1 02543	115		DVH	DOTAGZ+4,1	F2100990
	05603	0 20000 1 02543	116		MPY	DOTAGZ+4,1	F2101000
	05604	0 76300 0 00043	117		LLS	35	F2101010
	05605	0 62100 1 02544	118		STA	DOTAGZ+5,1	F2101020
	05606	−3 00001 2 05625	119		TXL	MR60,2,1 IF L IS ONE( SKIP CARRY TEST)	F2101030
	05607	0 50000 4 02537	120		CLA	DOTAGZ,4 OBTAIN NEXT BACK.SUBNEST	F2101040
	05610	0 77100 0 00017	121		ARS	15 DO( FIRST WORD. IN-SPECT TAG	F2101050
	05611	0 76000 0 00001	122		LBT	FOR VARIABLE N3) IF NOT.	F2101060
	05612	0 02000 0 05614	123		TRA	MR30 0) VARIABLE( CONTINUE-WITH MR30,	F2101070
	05613	0 02000 0 05625	124		TRA	MR60 1) OTHERWISE GO TO END.	F2101080
	05614	0 50000 4 02537	125	MR30	CLA	DOTAGZ,4 OBTAIN FIRST WORD OF NEXT	F2101090
	05615	−0 32000 0 05513	126		ANA	DECADD BACK SUBNEST DO, REMOVE	F2101100
	05616	0 40000 0 05475	127		ADD	L(1) TAG, AND ADD ONE TO ALPHA.	F2101110
	05617	0 40200 1 02537	128		SUB	DOTAGZ,1 SUB FIRST WORD CURRENT DO.	F2101120
	05620	−0 10000 0 05623	129		TNZ	MR40 (TAG IS ZERO). IF RESULT IS	F2101130
	05621	0 50000 0 05520	130		CLA	CR1 ZERO, CARRY IS TYPE ONE,	F2101140
	05622	0 02000 0 05624	131		TRA	MR50 IF NOT ZERO, CARRY IS TYPE	F2101150
	05623	0 50000 0 05521	132	MR40	CLA	CR2 TWO. INDICATE TYPE IN	F2101160
	05624	−0 60200 1 02544	133	MR50	ORS	DOTAGZ+5,1 L WORD OF CURRENT DA.	F2101170
	05625	−0 75400 1 00000	134	MR60	PXD	0,1 MAKE CURRENT.DO NEXT BACK	F2101180
	05626	−0 73400 4 00000	135		PDX	0,4 SUBNEST DO.	F2101190
	05627	1 77767 1 05630	136		TXI	MR70,1,−9 TAKE NEXT DO IN DOTAG.	F2101200
	05630	−3 00000 1 07316	137	MR70	TXL	ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS	F2101211
	05631	0 50000 1 02537	138		CLA	DOTAGZ,1 OBTAIN FIRST WORD NEW DO.	F2101220
	05632	−0 32000 0 05516	139		ANA	ADDMSK OBTAIN BETA	F2101230
	05633	0 60100 0 05660	140		STO	MRES AND SAVE	F2101240
	05634	0 50000 4 02537	141	MR75	CLA	DOTAGZ,4 OBTAIN BETA OF XRC DO,	F2101250
	05635	−0 32000 0 05516	142		ANA	ADDMSK AND SUBTRCT NEW BETA..	F2101260
	05636	0 60100 0 05661	143		STO	MRES1	F2101270
	05637	0 40200 0 05660	144		SUB	MRES IF NOT NEGATIVE, XRC DD	F2101280
	05640	−0 12000 0 05645	145		TMI	MR80 CONTAINS NEW DO. OTHERWISE, TRA	F2101290
	05641	0 50000 4 02544	146		CLA	DOTAGZ+5,4 XRC DO CONTAINS NEW DO,	F2101300
	05642	−0 32000 0 05514	147		ANA	DECMSK OBTAIN LEVEL OF XRC DO,	F2101310
	05643	0 40000 0 05475	148		ADD	L(1) ADD ONE, STORE IN L.	F2101320
	05644	0 02000 0 05557	149		TRA	MR10 GO TO MR10	F2101330
	05645	0 50000 1 02537	150	MR80	CLA	DOTAGZ,1	F2101340
	05646	−0 32000 0 05514	151		ANA	DECMSK	F2101350
	05647	0 77100 0 00022	152		ARS	18	F2101360
	05650	0 34000 0 05661	153		CAS	MRES1	F2101370
	05651	0 02000 0 05654	154		TRA	MR85 ALPHA(XRA) GREATER THAN BETA(XRC)	F2101380
	05652	0 02000 0 07263	155		TRA	ERLIST EQUALITY	F2101391
	05653	0 02000 0 07263	156		TRA	ERLIST LESS THAN	F2101401
	05654	0 50000 4 02544	157	MR85	CLA	DOTAGZ+5,4	F2101410
	05655	−0 73400 2 00000	158		PDX	0,2 NEWDO. IF XRL DO IS OF	F2101420
	05656	−3 00001 2 05556	159		TXL	MR05,2,1 LEVEL ONE, START NEW NEST	F2101430
	05657	1 00011 4 05634	160		TXI	MR75,4,9 BY TRA TO MR05. ELSE TRA MR75,	F2101440
A	05660	0 00000 0 00000	161	MRES	HTR	ES	F2101450
A	05661	0 00000 0 00000	162	MRES1	HTR		F2101460
			163			FLOW, TRANSFER ANALYS1S,	F2101470
	05662	−0 53400 4 02537	164	FLOW	LXD	TIFGO−1,4 TEST FOR EMPTY TIFGO	F2101480
	05663	3 01127 4 06307	165		TXH	SV00,4,599	F2101490
	05664	−0 53400 1 00030	166		LXD	DOTAG−1,1 INITIALIZE	F2101500
	05665	−0 63400 1 05703	167		SXD	FLO30,1 TEST	F2101510
	05666	−0 63400 4 05723	168		SXD	FLO60,4 INSTRUCTIONS	F2101520
	05667	−0 63400 1 06240	169		SXD	ADL60,1	F2101530
	05670	−0 63400 1 06113	170		SXD	INC40,1	F2101540
	05671	−0 63400 1 06166	171		SXD	RNC70,1	F2101550
	05672	0 53400 1 06274	172		LXA	TLT50,1 INITIALIZE TRALEV	F2101560
	05673	−0 63400 1 06274	173		SXD	TLT50,1 INDEX VALUE	F2101570
	05674	−0 53400 4 05504	174	FLO10	LXD	L(600),4 INIT1ALIZE	F2101580
	05675	−0 63400 4 06306	175		SXD	TIFX,4 CURRENT TIFGO INDEX	F2101590
	05676	−0 53400 1 05506	176		LXD	L(1350,1 INITIALIZE XRA, DOTAG INDEX	F2101600
	05677	0 50000 1 02544	177	FLO15	CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DO	F2101610
	05700	−0 73400 2 00000	178		PDX	0,2 AND	F2101620
	05701	−3 00001 2 05705	179		TXL	FLO40,2,1 TRA IF LEVEL ONE. IF NOT	F2101630
	05702	1 77767 1 05703	180	FLO20	TXI	FLO30,1,−9 LEVEL ONE, FIND NEXT	F2101640
D	05703	3 00000 1 05677	181	FLO30	TXH	FLO15,1 LEVEL ONE, IF ANY.	F2101650
	05704	0 02000 0 05775	182		TRA	FLOEND	F2101660
	05705	−0 63400 1 06275	183	FLO40	SXD	BNX,1 SAVE BEGINNING 0O NEST INDEX.	F2101670
	05706	0 50000 1 02537	184		CLA	DOTAGZ,1 INITIALIZE	F2101680
	05707	0 73400 2 00000	185		PAX	0,2 BEGINNING OF NEST	F2101690
	05710	−0 32000 0 05514	186		ANA	DECMSK AND	F2101700
	05711	0 60100 0 06276	187		STO	BNA END OF NEST	F2101710
	05712	−0 75400 2 00000	188		PXD	0,2 ADDRESSES	F2101720
	05713	0 60100 0 06277	189		STO	ENA	F2101730
	05714	−0 53400 4 06306	190		LXD	TIFX,4 OBTAIN CURRENT T1FGO INDEX	F2101740
	05715	0 50000 4 03670	191	FLO50	CLA	TIFZ,4 AND SEARCH FOR TIFGO	F2101750
	05716	−0 32000 0 05514	192		ANA	DECMSK ENTRY IN NEST.	F2101760
	05717	0 34000 0 06276	193		CAS	BNA COMPARE WITH BNA	F2101770
	05720	0 02000 0 05727	194		TRA	FLO70 GREATER THAN OR EQUAL TO	F2101780
	05721	0 07400 4 00004	195		TSX	DIAG,4 BNA, MAY BE IN NEST. ERROR. GO TO DIAGNOSTIC.	F2101795
	05722	1 77776 4 05723	196	FLO55	TXI	FLO60,4,−2 LESS THAN BNA, GO BACK	F2101800
D	05723	3 00000 4 05715	197	FLO60	TXH	FLO50,4 FOR NEXT TIFGO ENTRY,	F2101810
	05724	0 02000 0 05775	198		TRA	FLOEND IF ANY. IF NONE, EXIT	F2101820
	05725	−0 53400 1 06275	199	FLO65	LXD	BNX,1	F2101830
	05726	0 02000 0 05702	200		TRA	FLO20	F2101840
	05727	−0 63400 4 06306	201	FLO70	SXD	TIFX,4 SAVE CURRENT TIFGO INDEX	F2101850
	05730	0 34000 0 06277	202		CAS	ENA COMPARE G AND ENA	F2101860
	05731	0 02000 0 05725	203		TRA	FLO65 G GREATER, GO BACK FOR NEXT NEST.	F2101870
	05732	0 76100 0 00000	204		NOP	G EQUAL TO	F2101880
	05733	0 60100 0 06300	205		STO	G OR LESS THAN G, SAVE G.	F2101890
	05734	0 50000 4 03670	206		CLA	TIFZ,4 TEST FOR THREE ADDRESS IF.	F2101900
	05735	−0 12000 0 05743	207		TMI	FLO75 USE ADDRESS TO DETERMINE	F2101910
	05736	0 73400 2 00000	208		PAX	0,2 WHETHER OR NOT THIS IS AN	F2101920
	05737	−3 00005 2 05743	209		TXL	FLO75,2,5 ASSIGN FORMULA. IF IT IS,	F2101930
	05740	−3 00006 2 05722	210		TXL	FLO55,2,6 IGNORE, TAKE NEXT TIFGO ENTRY	F2101940
	05741	−3 00007 2 05743	211		TXL	FLO75,2,7 TEST FOR ADD. GREATER THAN	F2101950
	05742	0 07400 4 00004	212		TSX	DIAG,4 SEVEN. ERROR. GO TO DIAGN0STIC.	F2101965
	05743	0 50000 0 06300	213	FLO75	CLA	G OBTAIN G	F2101970
	05744	−0 53400 1 06275	214		LXD	BNX,1 OBTAIN CURRENT NEST INDEX	F2101980
	05745	0 07400 4 06216	215		TSX	ADLOC,4 OBTAIN XDG AND LDG	F2101990
	05746	0 50000 0 05511	216		CLA	BITONE PUT BIT IN DOTAG FOR TRA	F2102000
	05747	−0 60200 1 02545	217		ORS	DOTAGZ+6,1 IN IMMEDIATE RANGE.	F2102010
	05750	−0 75400 1 00000	218		PXD	0,1 SAVE	F2102020
	05751	0 60100 0 06301	219		STO	XDG XDG	F2102030
	05752	−0 75400 2 00000	220		PXD	0,2 AND	F2102040
	05753	0 60100 0 06302	221		STO	LDG LDG	F2102050
	05754	0 50200 0 06300	222		CLS	G LIST MINUS G	F2102060
	05755	0 07400 4 06253	223		TSX	TLT00,4 IN TRALEV BUFFER.	F2102070
	05756	−0 53400 4 06306	224		LXD	TIFX,4 OBTAIN FIRST WORD OF	F2102080
	05757	0 50000 4 03670	225		CLA	TIFZ,4 TIFGO ENTRY	F2102090
	05760	−0 12000 0 06001	226		TMI	3ADIF TRA IF 3ADIF	F2102100
	05761	0 73400 2 00000	227		PAX	0,2 PUT ADDRESS IN XRB	F2102110
	05762	0 02000 2 05772	228	FLO80	TRA	FLO80+8,2 INDEXED TRA,	F2102120
	05763	0 07400 4 00004	229		TSX	DIAG,4 7, R0YS TRA. ERROR, GO TO DIAGNOSTIC.	F2102135
	05764	0 07400 4 00004	230		TSX	DIAG,4 6, ASSIGN FORMULA ERROR. GO TO DIAGNOSTIC.	F2102145
	05765	0 02000 0 06005	231		TRA	2ADIF 5, 2 ADDRESS TYPE	F2102150
	05766	0 02000 0 06005	232		TRA	2ADIF 4, 2 ADIF	F2102160
	05767	0 02000 0 06005	233		TRA	2ADIF 3, 2ADIF	F2102170
	05770	0 02000 0 06016	234		TRA	GOTOVN 2 VECTOR TYPE TRA	F2102180
	05771	0 02000 0 06016	235		TRA	GOTOVN 1 GO TO N (ASSIGN)	F2102190
	05772	0 02000 0 06011	236		TRA	GOTOK 0 GO TO CONSTANT	F2102200
	05773	−0 53400 4 06306	237	FLO90	LXD	TIFX,4 GO BACK FOR NEXT	F2102210
	05774	1 77776 4 05723	238		TXI	FLO60,4,−2 TIFGO ENTRY,	F2102220
	05775	−0 53400 1 06274	239	FLOEND	LXD	TLT50,1 TEST IF ANY TRALEV ENTRIES	F2102230
	05776	3 01127 1 06307	240		TXH	SV00,1,599	F2102240
	05777	0 07400 4 06261	241		TSX	TLT20,4 IF SO, GO TO WRITE ROUTINE	F2102250
	06000	0 02000 0 06307	242		TRA	SV00	F2102260
			243			CONTROL ROUTINES	F2102270
	06001	−0 32000 0 05516	244	3ADIF	ANA	ADDMSK THE FOLLOWING ROUTINES	F2102280
	06002	0 76700 0 00022	245		ALS	18 ARRANGE TO PROCESS ALL OF	F2102290
	06003	0 07400 4 06033	246		TSX	FA000,4 THE ADDRESSES ASSOCIATED	F2102300
	06004	−0 53400 4 06306	247		LXD	TIFX,4 WITH THE TIFGO ENTRY,	F2102310
	06005	0 50000 4 03671	248	2ADIF	CLA	TIFZ+1,4 ONE AT A TIME.	F2102320
	06006	−0 32000 0 05514	249		ANA	DECMSK WHEN ALL ADDRESSES	F2102330
	06007	0 07400 4 06033	250		TSX	FA000,4 ARE PR0CESSED,	F2102340
	06010	−0 53400 4 06306	251		LXD	TIFX,4 CONTR0L IS RETURED TO	F2102350
	06011	0 50000 4 03671	252	GOTOK	CLA	TIFZ+1,4 FLO90 FOR NEXT	F2102360
	06012	−0 32000 0 05516	253		ANA	ADDMSK TIFGO ENTRY.	F2102370
	06013	0 76700 0 00022	254		ALS	18	F2102380
	06014	0 07400 4 06033	255		TSX	FA000,4	F2102390
	06015	0 02000 0 05773	256		TRA	FLO90	F2102400
	06016	0 50000 4 03671	257	GOTOVN	CLA	TIFZ+1,4 FOR GOTOV TRANSFERS,	F2102410
	06017	0 73400 4 00000	258		PAX	0,4 USE WORD TWO	F2102420
	06020	−0 63400 4 06031	259		SXD	GTV20,4 FOR INDEXING	F2102430
	06021	−0 73400 4 00000	260		PDX	0,4 VALUES NECESSARY	F2102440
	06022	0 02000 0 06031	261		TRA	GTV20	F2102450
	06023	0 50000 4 04263	262	GTV10	CLA	TRADZ,4 TO GET ADDRESSES	F2102460
	06024	0 76700 0 00022	263		ALS	18 FR0M TABLE TRAD.	F2102470
	06025	−0 63400 4 06032	264		SXD	GTV30,4 FOR GOTON (ASSIGN) TYPE	F2102480
	06026	0 07400 4 06033	265		TSX	FA000,4 TRANSFERS, ALL ADDRESSES	F2102490
	06027	−0 53400 4 06032	266		LXD	GTV30,4 MUST BE PROCESSED EVEN	F2102500
	06030	1 77777 4 06031	267		TXI	GTV20,4,−1 THOUGH THEY ARE ON SAME	F2102510
D	06031	3 00000 4 06023	268	GTV20	TXH	GTV10,4 LEVEL BECAUSE OF	F2102520
D	06032	−3 00000 0 05773	269	GTV30	TXL	FLO90,0 CARRY RESTRICTIONS.	F2102530
			270			ANALYSIS OF ADDRESS	F2102540
	06033	−0 63400 4 06076	271	FA000	SXD	RS60,4 SAVE TSX SET	F2102550
	06034	0 60100 0 06303	272		STO	A SAVE ADDRESS	F2102560
	06035	−0 53400 1 06275	273		LXD	BNX,1 OBTAIN	F2102570
	06036	0 07400 4 06216	274		TSX	ADLOC,4 INDEX OF DO CONTAINING	F2102580
	06037	−0 75400 1 00000	275		PXD	0,1 ADDRESS AND LEVEL OF	F2102590
	06040	0 60100 0 06304	276		STO	XDA THAT DO.	F2102600
	06041	−0 75400 2 00000	277		PXD	0,2 SAVE IN	F2102610
	06042	0 60100 0 06305	278		STO	LDA XDA AND LDA.	F2102620
	06043	−3 00024 2 06045	279		TXL	FA010,2,20 TEST LEVEL	F2102630
	06044	0 07400 4 00004	280		TSX	DIAG,4 LEV. ADD OF TRA EXCEEDS 20. ERROR. GO TO DIAGNOSTIC.	F2102645
	06045	0 77100 0 00022	281	FA010	ARS	18	F2102650
	06046	0 62100 0 06051	282		STA	FA020 TRANSFER	F2102660
	06047	−0 50000 0 05510	283		CAL	L(MZ) LEVEL IN	F2102670
	06050	−0 53400 1 06301	284		LXD	XDG,1 XDG DO.	F2102680
A	06051	0 77100 0 00000	285	FA020	ARS		F2102690
	06052	−0 60200 1 02546	286		ORS	DOTAGZ+7,1	F2102700
	06053	0 50000 0 06305	287		CLA	LDA LIST	F2102710
	06054	0 77100 0 00022	288		ARS	18 ADDRESS AND LEVEL	F2102720
	06055	0 40000 0 06303	289		ADD	A IN	F2102730
	06056	0 07400 4 06253	290		TSX	TLT00,4 TLT. CONTINUE WITH RS00	F2102740
			291			TRANSFER BIT INSERTION IN DO FORMULA	F2102750
	06057	−0 53400 1 06301	292	RS00	LXD	XDG,1 XRA CONTAINS XDG	F2102760
	06060	−0 53400 2 06302	293		LXD	LDG,2 XRB CONTAINS LDG	F2102770
	06061	−0 75400 2 00000	294	RS10	PXD	0,2 IF G AND A IN SAME DO,	F2102780
	06062	0 40200 0 06305	295		SUB	LDA EXIT. THIS ROUTINE INSERTS	F2102790
	06063	0 10000 0 06077	296		TZE	INC00 BIT MEANING THERE IS A JUMP	F2102800
	06064	0 12000 0 06066	297		TPL	RS20 OUT OF THE RANGE OF THIS DO.	F2102810
	06065	0 07400 4 00004	298		TSX	DIAG,4 JUMP INTO HIGHER LEVEL. ERROR. GO TO DIAGNOSTIC.	F2102825
	06066	−0 50000 0 05510	299	RS20	CAL	L(MZ)	F2102830
	06067	−0 60200 1 02544	300		ORS	DOTAGZ+5,1	F2102840
	06070	−3 00001 2 06077	301		TXL	INC00,2,1 FIND NEXT BACK SUBNEST	F2102850
	06071	1 00011 1 06072	302	RS30	TXI	RS40,1,9 DO FORMULA	F2102860
	06072	0 50000 1 02544	303	RS40	CLA	DOTAGZ+5,1 AND RETURN	F2102870
	06073	0 62200 0 06074	304		STD	RS50 TO TEST	F2102880
D	06074	−3 00000 2 06071	305	RS50	TXL	RS30,2 LEVEL	F2102890
	06075	−0 73400 2 00000	306		PDX	0,2 AT	F2102900
D	06076	−3 00000 0 06061	307	RS60	TXL	RS10,0 RS10	F2102910
			308			INDEXING NO CARRY CONDITION	F2102920
	06077	0 50000 0 06305	309	INC00	CLA	LDA EXIT IF	F2102930
	06100	0 10000 0 06142	310		TZE	RNC00 LDA IS ZERO.	F2102940
	06101	0 50000 0 06300	311		CLA	G PLACE G ANDA	F2102950
	06102	0 56000 0 06303	312		LDQ	A IN	F2102960
	06103	0 04000 0 06107	313		TLQ	INC20 INCX AND INCY SO THAT	F2102970
	06104	0 60100 0 06140	314		STO	INCX INCX IS LESS THAN INCY.	F2102980
	06105	−0 60000 0 06141	315		STQ	INCY	F2102990
	06106	0 02000 0 06111	316		TRA	INC30	F2103000
	06107	−0 60000 0 06140	317	INC20	STQ	INCX	F2103010
	06110	0 60100 0 06141	318		STO	INCY	F2103020
	06111	−0 53400 1 06304	319	INC30	LXD	XDA,1 INITIALIZE XRA	F2103030
	06112	1 77767 1 06113	320	INC35	TXI	INC40,1,−9 FIND DO OF LEVEL LDA	F2103040
D	06113	−3 00000 1 06142	321	INC40	TXL	RNC00,1 PLUS ONE.	F2103050
	06114	0 50000 1 02544	322		CLA	DOTAGZ+5,1	F2103060
	06115	−0 32000 0 05514	323		ANA	DECMSK	F2103070
	06116	0 40200 0 06305	324		SUB	LDA	F2103080
	06117	0 40200 0 05475	325		SUB	L(1)	F2103090
	06120	0 10000 0 06123	326		TZE	INC50 DO OF LEVEL LDA PLUS ONE FOUND.	F2103100
	06121	0 12000 0 06112	327		TPL	INC35 LEVEL TO HIGH, GO BACK.	F2103110
	06122	0 02000 0 06142	328		TRA	RNC00 LEVEL TO LOW, DA EXHAUSTED.	F2103120
	06123	0 50000 1 02537	329	INC50	CLA	DOTAGZ,1 OBTAIN BETA OF	F2103130
	06124	0 73400 2 00000	330		PAX	0,2 THIS DO IN DECREMENT.	F2103140
	06125	−0 75400 2 00000	331		PXD	0,2	F2103150
	06126	0 34000 0 06141	332		CAS	INCY COMPARE WITH INCY.	F2103160
	06127	0 02000 0 06142	333		TRA	RNC00 GREATER THAN OR EQUAL TO	F2103170
	06130	0 02000 0 06142	334		TRA	RNC00 GREATEST OF G, A, EXIT.	F2103180
	06131	0 34000 0 06140	335		CAS	INCX LESS THAN INCY, COMPARE	F2103190
	06132	0 02000 0 06135	336		TRA	INC60 WITH INCX. GREATER THAN	F2103200
	06133	0 02000 0 06135	337		TRA	INC60 OR EQUAL TO INCX, GO TO INC60.	F2103210
	06134	0 02000 0 06112	338		TRA	INC35 LESS THAN INCX, GET NEXT DO.	F2103220
	06135	−0 50000 0 05517	339	INC60	CAL	NCMSK AND OUT CARRY BITS.	F2103230
	06136	0 32000 1 02544	340		ANS	DOTAGZ+5,1	F2103240
	06137	0 02000 0 06112	341		TRA	INC35 GO BACK FOR NEXT DO.	F2103250
A	06140	0 00000 0 00000	342	INCX	HTR	ES.	F2103260
A	06141	0 00000 0 00000	343	INCY	HTR	ES.	F2103270
			344			RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL	F2103280
	06142	0 50000 0 06305	345	RNC00	CLA	LDA EXIT IF LDA IS ZERO	F2103290
	06143	0 10000 0 06214	346		TZE	RNC95	F2103300
	06144	0 50000 0 06302	347		CLA	LDG EXIT IF	F2103310
	06145	0 40200 0 06305	348		SUB	LDA LDA EQUALS	F2103320
	06146	0 10000 0 06214	349		TZE	RNC95 LDG	F2103330
	06147	−0 73400 4 00000	350		PDX	0,4 INITIALIZE COUNTER XR6	F2103340
	06150	−0 53400 1 06301	351		LXD	XDG,1 INITIALIZE XRA	F2103350
	06151	0 50000 0 06302	352		CLA	LDG AND	F2103360
	06152	−0 73400 2 00000	353		PDX	0,2 XRB. C(ACC) LDG.	F2103370
	06153	1 00001 2 06161	354		TXI	RNC50,2,1 C(XRB) LDG PLUS ONE.	F2103380
	06154	1 00011 1 06155	355	RNC20	TXI	RNC30,1,9 FIND NEXT BACKS	F2103390
	06155	3 02506 1 06214	356	RNC30	TXH	RNC95,1,1350 SUBNESTDO.	F2103400
	06156	0 50000 1 02544	357		CLA	DOTAGZ+5,1	F2103410
	06157	0 62200 0 06160	358		STD	RNC40	F2103420
D	06160	−3 00000 2 06154	359	RNC40	TXL	RNC20,2	F2103430
	06161	−0 63400 1 06206	360	RNC50	SXD	RNC75,1 SAVE XRA	F2103440
	06162	0 62200 0 06212	361		STD	RNC85 SAVE LEVEL OF THIS DO	F2103450
	06163	−0 75400 2 00000	362		PXD	0,2 SAVE LEVEL OF NEXT INNER	F2103460
	06164	0 60100 0 06213	363		STO	RNC90 SUBNEST DO.	F2103470
	06165	1 77767 1 06166	364	RNC60	TXI	RNC70,1,−9 TAKE NEXT DOWN DO IF ANY.	F2103480
D	06166	−3 00000 1 06207	365	RNC70	TXL	RNC80,1	F2103490
	06167	0 50000 1 02537	366		CLA	DOTAGZ,1 IF BETA	F2103500
	06170	−0 32000 0 05516	367		ANA	ADDMSK OF THIS DO	F2103510
	06171	0 76700 0 00022	368		ALS	18 IS LESS	F2103520
	06172	0 40200 0 06300	369		SUB	G THAN G,	F2103530
	06173	0 12000 0 06207	370		TPL	RNC80 TEST LEVEL	F2103540
	06174	0 50000 1 02544	371		CLA	DOTAGZ+5,1 TO SEE IF	F2103550
	06175	−0 32000 0 05514	372		ANA	DECMSK THIS DO IS OF SAME	F2103560
	06176	0 40200 0 06213	373		SUB	RNC90 LEVEL AS NEXT INNERMOST	F2103570
	06177	−0 10000 0 06165	374		TNZ	RNC60 SUBNEST DO. IF NOT, GET NEXT DO.	F2103580
	06200	0 50000 1 02545	375		CLA	DOTAGZ+6,1 IF SO, MAKE NO CARRY	F2103590
	06201	−0 32000 0 05514	376		ANA	DECMSK TRANSFER LEVEL OF THIS	F2103600
	06202	0 40200 0 06305	377		SUB	LDA DO EQUAL TO GREATER	F2103610
	06203	0 12000 0 06165	378		TPL	RNC60 OF PREVIOUS VALUE	F2103620
	06204	0 50000 0 06305	379		CLA	LDA AND CURRENT LDA.	F2103630
	06205	0 62200 1 02545	380		STD	DOTAGZ+6,1	F2103640
D	06206	−3 00000 0 06165	381	RNC75	TXL	RNC60,0 GO BACK FOR NEXT TEST DO	F2103650
	06207	−0 53400 1 06206	382	RNC80	LXD	RNC75,1 GO BACK FOR NEXT SUBNEST DO,	F2103660
	06210	−0 53400 2 06212	383		LXD	RNC85,2 IF COUNTER PERMITS.	F2103670
	06211	2 00001 4 06154	384		TIX	RNC20,4,1 OTHERWISE, EXIT.	F2103680
D	06212	−3 00000 0 06214	385	RNC85	TXL	RNC95,0	F2103690
A	06213	0 00000 0 00000	386	RNC90	HTR	ES	F2103700
	06214	−0 53400 4 06076	387	RNC95	LXD	RS60,4 GO BACK TO CONTROL ROUTINE	F2103710
	06215	0 02000 4 00001	388		TRA	1,4 FOR NEXT ADDRESS.	F2103720
			389			INDEX AND LEVEL OF ADDRESS	F2103730
	06216	−0 63400 4 06226	390	ADLOC	SXD	ADL20,4 SAVE TSX SET	F2103740
	06217	−0 53400 4 05474	391		LXD	L(0),4 INITIALIZE XRC,	F2103750
	06220	−0 63400 4 06227	392		SXD	ADL30,4 AND DEC OF ADL30, PUT ADDRESS	F2103760
	06221	0 60100 0 06252	393		STO	ADL90 IN ADL90. XRA CONTAINS BNX	F2103770
	06222	0 50000 1 02537	394	ADL10	CLA	DOTAGZ,1 OBTAIN FIRST WORD.	F2103780
	06223	0 73400 2 00000	395		PAX	0,2 SAVE BETA	F2103790
	06224	−0 32000 0 05514	396		ANA	DECMSK GET ALPHA ALONE.	F2103800
	06225	0 34000 0 06252	397		CAS	ADL90 COMPARE WITH ADDRESS. IF	F2103810
D	06226	−3 00000 0 06244	398	ADL20	TXL	ADL70,0 ALPHA NOT LESS THAN ADD, THEN	F2103820
D	06227	−3 00000 0 06244	399	ADL30	TXL	ADL70,0 ADD IN LAST CHOOSEN DO.	F2103830
	06230	−0 75400 2 00000	400		PXD	0,2 IF ALPHA LESS THAN ADD,	F2103840
	06231	0 34000 0 06252	401		CAS	ADL90 COMPARE WITH BETA.	F2103850
	06232	0 76100 0 00000	402		NOP	IF BETA IS NOT LESS THAN	F2103860
	06233	0 02000 0 06236	403		TRA	ADL40 ADDRESS, THIS DO CONTAINS	F2103870
	06234	3 00000 4 06237	404		TXH	ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST	F2103880
	06235	0 02000 0 06244	405		TRA	ADL70 TO ADL 70. OTHERWISE, GO TO 30	F2103890
	06236	−0 63400 1 06227	406	ADL40	SXD	ADL30,1 IF DO IN THIS NEST, SXD.	F2103900
	06237	1 77767 1 06240	407	ADL50	TXI	ADL60,1,−9 IN ANY CASE, TAKE NEXT DOWN	F2103910
D	06240	−3 00000 1 06244	408	ADL60	TXL	ADL70,1 DO, IF ANY,	F2103920
	06241	0 50000 1 02544	409		CLA	DOTAGZ+5,1 PUT LEVEL IN XRC.	F2103930
	06242	−0 73400 4 00000	410		PDX	0,4 AND GO BACK FOR TEST	F2103940
	06243	3 00001 4 06222	411		TXH	ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE.	F2103950
	06244	−0 53400 3 06227	412	ADL70	LXD	ADL30,3 OBTAIN XDA IN XRA, XRB.	F2103960
	06245	−3 00000 1 06250	413		TXL	ADL80,1,0 EXIT IF ZERO.	F2103970
	06246	0 50000 1 02544	414		CLA	DOTAGZ+5,1 IF NOT ZERO, GET LDA IN	F2103980
	06247	−0 73400 2 00000	415		PDX	0,2 XRB, PUT	F2103990
	06250	−0 53400 4 06226	416	ADL80	LXD	ADL20,4 TSX SET IN XRC	F2104000
	06251	0 02000 4 00001	417		TRA	1,4 AND RETURN.	F2104010
A	06252	0 00000 0 00000	418	ADL90	HTR		F2104020
			419			TRALEV LISTING	F2104030
	06253	−0 53400 1 06274	420	TLT00	LXD	TLT50,1 OBTAIN CURRENT TRALEV	F2104040
	06254	0 60100 1 05414	421		STO	TLTZ,1 INDEX. STORE ENTRY.	F2104030
	06255	1 77777 1 06256	422		TXI	TLT10,1,−1 IF TABLE NOW FULL, GO TO	F2104060
	06256	−0 63400 1 06274	423	TLT10	SXD	TLT50,1 TAPE WRITING ROUTINE.	F2104070
	06257	−3 00000 1 06261	424		TXL	TLT20,1,0 OTHERWISE, SAVE NEW INDEX	F2104080
	06260	0 02000 4 00001	425		TRA	1,4 AND RETURN.	F2104090
	06261	0 76600 0 00224	426	TLT20	WRS	TLTAPE SELECT TAPE TO WRITE AWAY	F2104100
	06262	−0 53400 1 06274	427		LXD	TLT50,1 BUFFER. INITIALIZE XRA	F2104110
	06263	−0 63400 1 06272	428		SXD	TLT40,1 AND TEST INSTR.	F2104120
	06264	−0 76000 0 00142	429		MSE	98 TURN OFF TRALEV TAPE EMPTY	F2104130
	06265	0 76100 0 00000	430		NOP	LIGHT	F2104140
	06266	0 53400 1 06274	431		LXA	TLT50,1 RE-INITIALIZE INDEX QUANTITIES	F2104150
	06267	−0 63400 1 06274	432		SXD	TLT50,1	F2104160
	06270	0 70000 1 05414	433	TLT30	CPY	TLTZ,1 COPY BUFFER.	F2104170
	06271	1 77777 1 06272	434		TXI	TLT40,1,−1	F2104180
D	06272	3 00000 1 06270	435	TLT40	TXH	TLT30,1	F2104190
	06273	0 02000 4 00001	436		TRA	1,4 RETURN.	F2104200
	06274	0 00000 0 01130	437	TLT50	HTR	600 BUFFER SIZE	F2104210
			438			ES FORFLOW	F2104220
		06275	439	BNX	BSS	1 BEGINNING OF NEST INDEX	F2104230
		06276	440	BNA	BSS	1 BEGINNING OF NEST ADDRESS	F2104240
		06277	441	ENA	BSS	1 END OF NEST ADDRESS	F2104250
		06300	442	G	BSS	1 GAMMA OF SOME TIFGO ENTRY	F2104260
		06301	443	XDG	BSS	1 INDEX OF DO WITH G IN IMMED.	F2104270
		06302	444	LDG	BSS	1 RANGE. LEVEL OF XDG.	F2104280
		06303	445	A	BSS	1 AN ADDRESS TO WHICH G TRANSFERS.	F2104290
		06304	446	XDA	BSS	1 1NDEX OF DO WITH A IN IMMED.	F2104300
		06305	447	LDA	BSS	1 RANGE. LEVEL OF XDA.	F2104310
		06306	448	TIFX	BSS	1 CURRENT TIFGO INDEX.	F2104320
			449			DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS	F2104330
	06307	−0 53400 1 00030	450	SV00	LXD	DOTAG−1,1	F2104340
	06310	−0 63400 1 06333	451		SXD	SV80,1	F2104350
	06311	−0 63400 1 06340	452		SXD	SV95,1	F2104360
	06312	−0 63400 1 06510	453		SXD	TRA40,1	F2104370
	06313	−0 53400 1 05506	454		LXD	L(1350,1 INITIALIZE XRA	F2104380
	06314	−0 63400 1 06325	455		SXD	SV44,1 SAVE CURRENT DO INDEX	F2104390
	06315	−0 63400 1 06345	456	SV10	SXD	SV98,1 SAVE NEST INDEX	F2104400
	06316	0 50000 1 02537	457	SV20	CLA	DOTAGZ,1 OBTAIN FIRST WORD CURRENT	F2104410
	06317	−0 32000 0 05515	458		ANA	TAGMSK DO AND INSPECT TAG	F2104420
	06320	0 10000 0 06337	459		TZE	SV90 IF ZERO, GO TO INDEXING	F2104430
	06321	−0 53400 4 06345	460		LXD	SV98,4 OTHERWISE, NEST INDEX IN XRC	F2104440
	06322	0 50000 4 02540	461	SV30	CLA	DOTAGZ+1,4 OBTAIN SYM OF XRC,	F2104450
	06323	−0 53400 2 05477	462		LXD	L(3),2 INITIALIZE XRB COUNTER	F2104460
	06324	0 34000 1 02543	463	SV40	CAS	DOTAGZ+4,1 AND TEST FOR SYM EQUALS VAR.N.	F2104470
D	06325	−3 00000 0 06327	464	SV44	TXL	SV50,0 CURRENT DO INDEX STORAGE.	F2104480
D	06326	−3 00000 0 06346	465	SV48	TXL	SF00,0 INDEX STO OF N IN CUR. DO	F2104490
	06327	1 00001 1 06330	466	SV50	TXI	SV60,1,1 TAKE NEXT.N, COUNT	F2104500
	06330	2 00001 2 06324	467	SV60	TIX	SV40,2,1 IN XRB AND GO BACK.	F2104510
	06331	−0 53400 1 06325	468	SV65	LXD	SV44,1 SYM NOT VAR.N., PUT CURRENT	F2104520
	06332	1 77767 4 06333	469	SV70	TXI	SV80,4,−9 DO INDEX IN XRA AND INDEX	F2104530
D	06333	−3 00000 4 06337	470	SV80	TXL	SV90,4 XRC. IF TABLE ENDS, GO70 SU90.	F2104540
	06334	0 50000 4 02544	471		CLA	DOTAGZ+5,4 OTHERWISE TEST FOR,NEW NEST,	F2104550
	06335	−0 73400 2 00000	472		PDX	0,2 IF NOT NEW NEST, GO BACK TO.	F2104560
	06336	3 00001 2 06322	473		TXH	SV30,2,1 TEST SYM. OTHERWISE.	F2104570
	06337	1 77767 1 06340	474	SV90	TXI	SV95,1,−9 TAKE NEXT DOWN DO	F2104580
D	06340	−3 00000 1 06567	475	SV95	TXL	TS4VAL,1 POSSIBLE. OTHERWISE, EXIT	F2104590
	06341	−0 63400 1 06325	476		SXD	SV44,1 SAVE CURRENT DO INDEX.	F2104600
	06342	0 50000 1 02544	477		CLA	DOTAGZ+5,1	F2104610
	06343	−0 73400 2 00000	478		PDX	0,2 INSPECT LEVEL.	F2104620
	06344	3 00001 2 06316	479		TXH	SV20,2,1 IF NOT NEW NEST, TRA SV20	F2104630
D	06345	−3 00000 0 06315	480	SV98	TXL	SV10,0 1F NEW NEST, SV10 (NEST.INDEX STO.)	F2104640
	06346	−0 63400 1 06326	481	SF00	SXD	SV48,1 SAVE INDEX OF N. N CURRENT DO	F2104650
	06347	−0 63400 2 06356	482		SXD	SF10,2 SAVE N COUNTER.	F2104660
	06350	−0 63400 4 06361	483		SXD	SF15,4	F2104670
	06351	−0 75400 4 00000	484		PXD	0,4 SAVE INDEX OF SYMBOL DO	F2104680
	06352	0 60100 0 06467	485		STO	SFES1 IN FULL WORD.	F2104690
	06353	−0 53400 1 06325	486		LXD	SV44,1 OBTAIN INDEX OF CURRENT DO	F2104700
	06354	−0 75400 1 00000	487		PXD	0,1 IN ACC. AND COMPARE	F2104710
	06355	0 34000 0 06467	488		CAS	SFES1 WITH INDEX OF SYMBOL DO.	F2104720
D	06356	−3 00000 0 06362	489	SF10	TXL	SF20,0 CURRENT INDEX GREATER.	F2104730
	06357	0 02000 0 06424	490		TRA	SF79 EQUALITY	F2104740
	06360	0 76000 0 00141	491		PSE	97 SYMBOL INDEX GREATER,	F2104750
D	06361	−3 00000 0 06366	492	SF15	TXL	SF30,0 TURN ON LIGHT 97.	F2104760
	06362	−0 53400 4 06325	493	SF20	LXD	SV44,4 CUR. IND. GREATER, PUT IN XRC	F2104770
	06363	−0 53400 1 06467	494		LXD	SFES1,1 SYM. IND. IN XRA.	F2104780
	06364	−0 76000 0 00141	495		MSE	97 LIGHT 97 OFF.	F2104790
	06365	0 76100 0 00000	496		NOP	AT SF30, XRA CONTAIN LEAST	F2104800
	06366	−0 75400 4 00000	497	SF30	PXD	0,4 OF CUR. IND, SYM. IND. XRC	F2104810
	06367	0 60100 0 06467	498		STO	SFES1 CONTAINS GREATER. PUT IN ES.	F2104820
	06370	0 50000 1 02544	499	SF35	CLA	DOTAGZ+5,1 PUT LEVEL OF D(XRA) IN	F2104830
	06371	−0 73400 2 00000	500		PDX	0,2 XRB. HALT IF	F2104840
	06372	3 00001 2 06374	501		TXH	SF40,2,1 LEVEL	F2104850
	06373	0 07400 4 00004	502		TSX	DIAG,4 IS ONE ERROR. GO TO DIAGNOSTIC	F2104865
	06374	1 00011 1 06375	503	SF40	TXI	SF50,1,9 BACK UP IN XRA-	F2104870
	06375	−3 02506 1 06377	504	SF50	TXL	SF60,1,1350 HALT IF TOP OD DOTAG	F2104880
	06376	0 07400 4 00004	505		TSX	DIAG,4 PASSED. ERROR. GO TO DIAGNOSTIC	F2104893
	06377	0 50000 1 02544	506	SF60	CLA	DOTAGZ+5,1 THIS ROUTINE, BY RAISING	F2104900
	06400	0 62200 0 06401	507		STD	SF70 XRA, EXITS TO SF80 OR	F2104910
D	06401	−3 00000 2 06374	508	SF70	TXL	SF40,2 SF90 UPON FINDING A DO	F2104920
	06402	−0 75400 1 00000	509		PXD	0,1 IN THE SUBNEST OF XRA	F2104930
	06403	0 34000 0 06467	510		CAS	SFES1 WHICH IS THE DO OF XRC OR	F2104940
	06404	0 02000 0 06407	511		TRA	SF73 CONTAINS THE DO OF XRC	F2104950
	06405	0 02000 0 06431	512		TRA	SF80 AND CURRENT DO.	F2104960
	06406	0 02000 0 06370	513		TRA	SF35 GO BACK FOR NEXT DO	F2104970
	06407	−0 63400 1 06422	514	SF73	SXD	SF76,1 THIS ROUTINE (THROUGH SF76)	F2104980
	06410	−0 53400 1 06361	515	SF74	LXD	SF15,1	F2104990
	06411	0 07400 4 06470	516		TSX	TRA00,4 USES TRA00	F2105000
	06412	0 10000 0 06465	517		TZE	SFEND	F2105010
	06413	0 60100 0 06423	518		STO	SF78 TO DETERMINE THE	F2105020
	06414	−0 53400 1 06422	519		LXD	SF76,1 GREATEST EXIT LEVEL OF	F2105030
	06415	0 50000 1 02544	520		CLA	DOTAGZ+5,1 DEFINITION FROM A	F2105040
	06416	−0 32000 0 05514	521		ANA	DECMSK DO SYM NOT IN THE	F2105050
	06417	0 34000 0 06423	522		CAS	SF78 SUBNEST OF A DO WITH	F2105060
	06420	0 50000 0 06423	523		CLA	SF78 VARIABLE NS, BUT IN A	F2105070
	06421	0 76100 0 00000	524		NOP	SUBNEST WHICH HAS A	F2105080
D	06422	−3 00000 0 06437	525	SF76	TXL	SF90,0 NON EMPTY INTERSECTION	F2105090
A	06423	0 00000 0 00000	526	SF78	HTR	WITH THAT SUB NEST.	F2105100
	06424	0 50000 1 02544	527	SF79	CLA	DOTAGZ+5,1	F2105110
	06425	−0 32000 0 05514	528		ANA	DECMSK	F2111120
	06426	0 40200 0 05475	529		SUB	L(1)	F2105130
	06427	−0 10000 0 06437	530		TNZ	SF90	F2105140
	06430	0 02000 0 06465	531		TRA	SFEND	F2105150
	06431	−0 76000 0 00141	532	SF80	MSE	97 EQUALITY, IF SYM DO IS	F2105160
	06432	0 07400 4 00004	533		TSX	DIAG,4 CURRENT DO, ERROR. GO TO DIAGNOSTIC.	F2105173
	06433	0 50000 0 05511	534		CLA	BITONE	F2105180
	06434	−0 60200 1 02544	535		ORS	DOTAGZ+5,1	F2105190
	06435	0 50000 1 02544	536		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DEFINITION	F2105200
	06436	−0 32000 0 05514	537		ANA	DECMSK AND STORE	F2105210
	06437	0 77100 0 00022	538	SF90	ARS	18 IN ADDRESS PART	F2105220
	06440	0 60100 0 06467	539		STO	SFES1 OF SFESI.	F2105230
	06441	−0 53400 1 06326	540		LXD	SV48,1 INDEX OF VAR.N. IN CUR. DO.	F2105240
	06442	0 50000 1 02547	541		CLA	DOTAGZ+8,1 OBTAIN PREVIOUS LEV. DEF.	F2105250
	06443	−0 32000 0 05516	542		ANA	ADDMSK AND COMPARE	F2105260
	06444	0 34000 0 06467	543		CAS	SFES1 WITH NEW,	F2105270
	06445	0 02000 0 06465	544		TRA	SFEND EXIT UNLESS	F2105280
	06446	0 02000 0 06465	545		TRA	SFEND NEW LEV.	F2105290
	06447	0 50000 0 06467	546		CLA	SFES1 IS LARGGER, IN WHICH CASE	F2105300
	06450	0 62100 1 02547	547		STA	DOTAGZ+8,1 REPLACE OLD WITH NEW	F2105310
	06451	−0 53400 2 06356	548		LXD	SF10,2 OBTAIN N COUNTER IN XRB	F2105320
	06452	0 50000 1 02543	549	SF92	CLA	DOTAGZ+4,1 OBTAIN VAR. N IN ACC.	F2105330
	06453	0 02000 0 06457	550		TRA	SF96 GO TO INDEXING.	F2105340
	06454	0 34000 1 02543	551	SF94	CAS	DOTAGZ+4,1 COMPARE, TO FIND DUPLICATE	F2105350
	06455	0 02000 0 06457	552		TRA	SF96 N S.	F2105360
	06456	0 02000 0 06462	553		TRA	SF99 DUPE FOUND.	F2105370
	06457	1 00001 1 06460	554	SF96	TXI	SF98,1,1 INDEX IN DO FORMULA	F2105380
	06460	2 00001 2 06454	555	SF98	TIX	SF94,2,1 AND IN COUNTER	F2105390
	06461	0 02000 0 06465	556		TRA	SFEND	F2105400
	06462	0 50000 0 06467	557	SF99	CLA	SFES1 REPLACE	F2105410
	06463	0 62100 1 02547	558		STA	DOTAGZ+8,1 OLD LEVEL	F2105420
	06464	0 02000 0 06452	559		TRA	SF92 OF DEFINITION.	F2105430
	06465	−0 53400 4 06361	560	SFEND	LXD	SF15,4 GO BACK FOR NEXT	F2105440
	06466	0 02000 0 06331	561		TRA	SV65 SYMBOL DO	F2105450
A	06467	0 00000 0 00000	562	SFES1	HTR	ES,	F2105460
			563			GREATEST TRANSFER LEVEL OUT OF DO FORMULA	F2105470
	06470	0 50000 1 02544	564	TRA00	CLA	DOTAGZ+5,1 OBTAIL LEVEL OF DO	F2105480
	06471	−0 73400 2 00000	565		PDX	0,2 USE MAX LEV TWENTY	F2105490
	06472	−3 00024 2 06474	566	TRA10	TXL	TRA20,2,20	F2105500
	06473	−0 53400 2 06472	567		LXD	TRA10,2	F2105510
	06474	−0 63400 2 06513	568	TRA20	SXD	TRA50,2 INITIALIZE TEST INSTR.	F2105520
	06475	−0 75400 2 00000	569		PXD	0,2 COMPUTE LEVEL MINUS ONE	F2105530
	06476	0 77100 0 00022	570		ARS	18 AND INITIALIZE SHIFT INSTR.	F2105540
	06477	0 40200 0 06537	571		SUB	TRAN1 COMPUTE 35 MINUS (L M1NUS	F2105530
	06500	0 62100 0 06515	572		STA	TRA70 ONE) AND	F2105560
	06501	0 40200 0 06540	573		SUB	TRAN2 INITIALIZE	F2105570
	06502	0 62100 0 06516	574		STA	TRA80 SHIFT INSTR.	F2105580
	06503	−0 75400 0 00000	575		PXD	0,0 INITIALIZE	F2105590
	06504	0 60100 0 06542	576		STO	TRAN5 ES LOCATION TO ZERO	F2105600
	06505	−0 50000 1 02546	577	TRA30	CAL	DOTAGZ+7,1 OR INTO TRAN5 ALL THE	F2105610
	06506	−0 60200 0 06542	578		ORS	TRAN5 T2 WORDS OF THIS DO	F2105620
	06507	1 77767 1 06510	579		TXI	TRA40,1,−9 AND ALL DOS CONTAINED	F2105630
D	06510	−3 00000 1 06514	580	TRA40	TXL	TRA60,1 BY THIS DO.	F2105640
	06511	0 50000 1 02544	581		CLA	DOTAGZ+5,1	F2105650
	06512	−0 73400 2 00000	582		PDX	0,2	F2105660
D	06513	3 00000 2 06505	583	TRA50	TXH	TRA30,2	F2105670
	06514	0 56000 0 06541	584	TRA60	LDQ	TRAN4 PUT MASK IN QUOTIENT	F2105680
A	06515	0 76300 0 00000	585	TRA70	LLS	REGISTER, SHIFT COMPUTED	F2105690
A	06516	0 76700 0 00000	586	TRA80	ALS	AMOUNTS TO CONSTRUCT	F2105700
	06517	−0 32000 0 06542	587		ANA	TRAN5 MASK IN ACC. AND IN	F2105710
	06520	0 10000 0 06536	588		TZE	TRA95 UNION OF T2 WORDS. EXIT IF ZERO.	F2105720
	06521	0 60100 0 06542	589		STO	TRAN5 OBTAIN LOW ORDER BIT	F2105730
	06522	0 40200 0 06537	590		SUB	TRAN1 IN ACC.	F2105740
	06523	0 60100 0 06543	591		STO	TRAN6	F2105750
	06524	−0 50100 0 06542	592		ORA	TRAN5	F2105760
	06525	0 40200 0 06543	593		SUB	TRAN6	F2105770
	06526	−0 53400 1 05475	594		LXD	L(1),1	F2105780
	06527	0 34000 1 06567	595	TRA85	CAS	TRATAB+19,1 SEARCH TABLE	F2105790
	06530	0 02000 0 06532	596		TRA	TRA86 TO OBTAIN	F2105800
	06531	0 02000 0 06535	597		TRA	TRA90 LEVEL INTEGER	F2105810
	06532	1 00001 1 06533	598	TRA86	TXI	TRA87,1,1	F2105820
	06533	−3 00023 1 06527	599	TRA87	TXL	TRA85,1,19	F2105830
	06534	0 07400 4 00004	600		TSX	DIAG,4 ERROR GO TO DIAGNOSTIC.	F2103845
	06535	−0 75400 1 00000	601	TRA90	PXD	0,1 PUT LEVEL IN ACC DECREMENT	F2105850
	06536	0 02000 4 00001	602	TRA95	TRA	1,4 EXIT.	F2105860
	06537	0 00000 0 00001	603	TRAN1	HTR	1	F2105870
	06540	0 00000 0 00043	604	TRAN2	HTR	35	F2105880
	06541	+377777777777	605	TRAN4	OCT	377777777777	F2105890
A	06542	0 00000 0 00000	606	TRAN5	HTR		F2105900
A	06543	0 00000 0 00000	607	TRAN6	HTR		F2105910
	06544	+000000200000	608	TRATAB	OCT	200000	F2105920
	06545	+000000400000	609		OCT	400000	F2105930
	06546	+000001000000	610		OCT	1000000	F2105940
	06547	+000002000000	611		OCT	2000000	F2105950
	06550	+000004000000	612		OCT	4000000	F2105960
	06551	+000010000000	613		OCT	10000000	F2105970
	06552	+000020000000	614		OCT	20000000	F2105980
	06553	+000040000000	615		OCT	40000000	F2105990
	06554	+000100000000	616		OCT	100000000	F2106000
	06555	+000200000000	617		OCT	200000000	F2106010
	06556	+000400000000	618		OCT	400000000	F2106020
	06557	+001000000000	619		OCT	1000000000	F2106030
	06560	+002000000000	620		OCT	2000000000	F2106040
	06561	+004000000000	621		OCT	4000000000	F2106050
	06562	+010000000000	622		OCT	10000000000	F2106060
	06563	+020000000000	623		OCT	20000000000	F2106070
	06564	+040000000000	624		OCT	40000000000	F2106080
	06565	+100000000000	625		OCT	100000000000	F2106090
	06566	+200000000000	626		OCT	200000000000	F2106100
			627			FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS	F2106110
	06567	0 50000 0 07152	628	TS4VAL	CLA	4VALAD READ IN	F2106120
	06570	−0 53400 2 05502	629		LXD	L(6),2 FORVAL	F2106130
	06571	0 07400 4 07060	630		TSX	RTAPE,4	F2106140
	06572	−3 01747 1 06575	631		TXL	TSV10,1,999	F2106150
	06573	0 76000 0 00144	632		PSE	100 IF FORVAL EMPTY, SET	F2106160
	06574	0 02000 0 06753	633		TRA	T190 SENSE LIGHT AND EXTT	F2106170
	06575	−0 63400 1 06652	634	TSV10	SXD	TS40,1 INITIALIZE TEST INSTRS.	F2106180
	06576	−0 63400 1 06673	635		SXD	TS75,1	F2106190
	06577	−0 76000 0 00143	636		MSE	99 TEST FOR EMPTY DOTAG	F2106200
	06600	0 02000 0 06603	637		TRA	TSV20 OFF, NOT EMPTY	F2106210
	06601	0 76000 0 00143	638		PSE	99 ON, DOTAG EMPTY	F2106220
	06602	0 02000 0 06753	639		TRA	T190 EXIT	F2106230
	06603	−0 53400 1 00030	640	TSV20	LXD	DOTAG−1,1 DOTAG TEST INITIALIZING	F2106240
	06604	−0 63400 1 06650	641		SXD	TS35,1	F2106230
	06605	−0 53400 1 05506	642		LXD	L(1350,1 INITIALIZE XRA	F2106260
	06606	−0 53400 4 05505	643		LXD	L(1000,4 AND	F2106270
	06607	−0 63400 4 06755	644		SXD	XFOR,4 XFOR. CONTINUE WITH TS00	F2106280
	06610	−0 76000 0 00141	645	TS00	MSE	97 SENSE LIGHT-97 OFF	F2106290
	06611	0 76100 0 00000	646		NOP		F2106300
	06612	0 50000 1 02544	647	TS10	CLA	DOTAGZ+5,1 OBTAIN LEVEL OF CURRENT	F2106310
	06613	−0 73400 2 00000	648		PDX	0,2 DO IN XRB. IF L IS ONE,	F2106320
	06614	−3 00001 2 06621	649		TXL	TS15,2,1 GO TO NEST PROCEDURE. IF	F2106330
	06615	−0 76000 0 00141	650		MSE	97 L 1S NOT ONE AND LIGHT IS	F2106340
	06616	0 02000 0 06644	651		TRA	TS30,0 OFF, GO TO INNER DO PRECEDURE,	F2106350
	06617	0 76000 0 00141	652		PSE	97 IF LIGHT IS ON, CONTINUE	F2106360
	06620	1 77767 1 06650	653		TXI	TS35,1,−9 INDEXING FOR NEXT NEST.	F2106370
	06621	−0 76000 0 00141	654	TS15	MSE	97	F2106380
	06622	0 76100 0 00000	655		NOP		F2106390
	06623	0 50000 1 02537	656		CLA	DOTAGZ,1 L IS ONE, DO NEST PR0CEDURE.	F2106400
	06624	0 73400 2 00000	657		PAX	0,2 ESTABLISH BEGINNING OF	F2106410
	06625	−0 32000 0 05514	658		ANA	DECMSK NEST ADDRESS BNA, AND	F2106420
	06626	0 60100 0 06756	659		STO	TBNA END OF NEST ADDRESS ENA.	F2106430
	06627	−0 75400 2 00000	660		PXD	0,2 SEARCH IN FORTAG UNTIL	F2106440
	06630	0 60100 0 06757	661		STO	TENA FOR NRS. FOUND GREATER	F2106450
	06631	−0 53400 4 06755	662		LXD	XFOR,4 THAN ENA. IF NONE, EXIT	F2106460
	06632	0 50000 0 06756	663		CLA	TBNA FROM ENTIRE ROUTINE.	F2106470
	06633	0 34000 4 04510	664	TS20	CAS	4VALZ,4 TEST WHETHER FIRST SUCH	F2106480
	06634	1 77776 4 06652	665		TXI	TS40,4,−2 NR. IS IN NEST IF NOT,	F2106490
	06635	0 07400 4 00004	666		TSX	DIAG,4 FIND NEXT NEST. IF SO, (ERROR. GO TO DIAGNOSTIC.)	F2106503
	06636	−0 63400 4 06755	667		SXD	XFOR,4 GO TO INDEXING INSTRS.	F2106510
	06637	0 50000 0 06757	668		CLA	TENA FOR NEXT DO.	F2106520
	06640	0 40200 4 04510	669		SUB	4VALZ,4	F2106530
	06641	0 12000 0 06643	670		TPL	TS25	F2106540
	06642	0 76000 0 00141	671		PSE	97 RECORD NO FORVAL FALLS IN THIS NEST.	F2106550
	06643	1 77767 1 06650	672	TS25	TXI	TS35,1,−9	F2106560
	06644	0 50000 1 02537	673	TS30	CLA	DOTAGZ,1 INNER DO PROCEDURE.	F2106570
	06645	−0 32000 0 05515	674		ANA	TAGMSK TEST FOR NON ZERO TAG,	F2106580
	06646	−0 10000 0 06654	675		TNZ	TS50 IN WHICH CASE TRA FOR	F2106590
	06647	1 77767 1 06650	676	TS33	TXI	TS35,1,−9 TABLE SEARCH. OTHERWISE,	F2106600
D	06650	3 00000 1 06612	677	TS35	TXH	TS10,1 INDEX FOR NEXT DO, IF POSSIBLE.	F2106610
D	06651	−3 00000 0 06753	678	TS38	TXL	T190,0 EXIT, STORAGE FOR INDEX CUR. DO.	F2106620
D	06652	3 00000 4 06633	679	TS40	TXH	TS20,4 INDEX TEST FOR FORVAL	F2106630
	06653	0 02000 0 06753	680		TRA	T190 EXIT	F2106640
	06654	−0 63400 1 06651	681	TS50	SXD	TS38,1 SAVE INDEX OF CURRENT DO	F2106650
	06655	−0 63400 2 06722	682		SXD	T110,2 SAVE LEVEL OF CURRENT DO	F2106660
	06656	−0 53400 4 06755	683		LXD	XFOR,4 OBTAIN FORVAL INDEX IN XRC	F2106670
	06657	−0 53400 2 05477	684	TS55	LXD	L(3),2 PUT THREE IN XRC	F2106680
	06660	−0 53400 1 06651	685		LXD	TS38,1 CURRENT DO IN XRA	F2106690
	06661	0 50000 0 06757	686		CLA	TENA TEST FOR END OF NEST	F2106700
	06662	0 40200 4 04510	687		SUB	4VALZ,4	F2106710
	06663	−0 12000 0 06647	688		TMI	TS33 NOT IN NEST TRA FOR NEXT DO.	F2106720
	06664	0 50000 4 04511	689		CLA	4VALZ+1,4 IN NEST 0BTAIN FORTAG	F2106730
	06665	0 34000 1 02543	690	TS60	CAS	DOTAGZ+4,1 SYMBOL, COMPARE WITH VAR	F2106740
	06666	0 02000 0 06670	691		TRA	TS65 N SYMBOLS.	F2106750
	06667	0 02000 0 06676	692		TRA	TS80 EQUALITY	F2106760
	06670	1 00001 1 06671	693	TS65	TXI	TS70,1,1 INDEX IN XRA,	F2106770
	06671	2 00001 2 06665	694	TS70	TIX	TS60,2,1 COUNT IN XRB	F2106780
	06672	1 77776 4 06673	695		TXI	TS75,4,−2 TAKE NEXT FORTAG ENTRY,	F2106790
D	06673	3 00000 4 06657	696	TS75	TXH	TS55,4 IF ANY	F2106800
	06674	−0 53400 1 06651	697		LXD	TS38,1 RESTORE CURRENT DO INDEX	F2106810
	06675	1 77767 1 06650	698		TXI	TS35,1,−9 AND TRA FOR NEXT DO.	F2106820
	06676	−0 63400 2 06743	699	TS80	SXD	T148,2 SAVE VAR. N. COUNTER.	F2106830
	06677	−0 63400 1 06742	700		SXD	T144,1 SAVE COUNTER OF SYM IN DO	F2106840
	06700	−0 53400 1 06651	701		LXD	TS38,1 CURRENT DO INDEX IN XRA	F2106850
	06701	−0 53400 2 06722	702		LXD	T110,2 CURRENT DO LEVEL IN XRB	F2106860
	06702	1 00001 2 06703	703		TXI	TS85,2,1 ADJUST XRB FOR CURRENT DO TEST.	F2106870
	06703	0 50000 1 02544	704	TS85	CLA	DOTAGZ+5,1 OBTAIN NEXT BACK DO IN	F2106880
	06704	0 62200 0 06705	705		STD	TS90 SUBNEST. ON FIRST TIME	F2106890
D	06705	3 00000 2 06711	706	TS90	TXH	T100,2 THROUGH, CURRENT DO IS	F2106900
	06706	1 00011 1 06703	707	TS92	TXI	TS85,1,9 PRODUCED.	F2106910
	06707	2 00001 2 06706	708	TS94	TIX	TS92,2,1 ADJUST LEVEL.	F2106920
	06710	0 07400 4 00004	709		TSX	DIAG,4 IF NOT IN NEST, ERROR. GO TO DIAGNOSTIC.	F2106933
	06711	0 50000 1 02537	710	T100	CLA	DOTAGZ,1 NEXT BACK DO FOUND.	F2106940
	06712	−0 32000 0 05514	711		ANA	DECMSK TEST TO SEE IF FORTAG	F2106950
	06713	0 40200 4 04510	712		SUB	4VALZ,4 FORMULA NR. IS IN THIS	F2106960
	06714	0 12000 0 06707	713		TPL	TS94 DO. IF NOT, GO TO TS94	F2106970
	06715	0 50000 1 02537	714		CLA	DOTAGZ,1 TO ADJUST LEVEL FOR	F2106980
	06716	−0 32000 0 05516	715		ANA	ADDMSK OBTAINING NEW SUBNEST DO.	F2106990
	06717	0 76700 0 00022	716		ALS	18	F2107000
	06720	0 40200 4 04510	717		SUB	4VALZ,4	F2107010
	06721	−0 12000 0 06707	718		TMI	TS94	F2107020
D	06722	−3 00000 2 06724	719	T110	TXL	T120,2 DEC CONTAINS CURRENT LEVEL.	F2107030
	06723	0 02000 0 06746	720		TRA	T170 APPARENT DEFINITION OF A VARIABLE N WITHIN	F2107044
			721			RANGE OF THE DO WITH VARIABLE N. IGNORE AND	F2107046
			722			GET NEXT FORVAL.	F2107047
	06724	−0 53400 1 06742	723	T120	LXD	T144,1 PUT CUR. VAR. DO INDEX IN	F2107050
	06725	0 50000 1 02547	724		CLA	DOTAGZ+8,1 XRA, AND OBTAIN LEV. DEF,	F2107060
	06726	0 73400 2 00000	725		PAX	0,2 OF VAR. N.	F2107070
	06727	−0 63400 2 06731	726		SXD	T130,2 STORE IN DEC OF T130.	F2107080
	06730	−0 53400 2 06705	727		LXD	TS90,2 OBTAIN LEVEL OF DO CONTAINING	F2107000
D	06731	−3 00000 2 06746	728	T130	TXL	T170,2 FURTAG FOR. NR.	F2107100
	06732	−0 75400 2 00000	729		PXD	0,2 CHOOSE LARGER AND PUT IN	F2107110
	06733	0 77100 0 00022	730		ARS	18 LEV, DEF. FIELD OF CURRENT DO.	F2107120
	06734	0 62100 1 02547	731		STA	DOTAGZ+8,1 IF CHANGE MADE, SAVE	F2107130
	06735	0 60100 0 06754	732		STO	T195 LEVEL,	F2107140
	06736	−0 53400 2 06743	733		LXD	T148,2 AND TEST TO SEE IF THIS	F2107150
	06737	0 50000 1 02543	734		CLA	DOTAGZ+4,1 SYMBOL	F2107160
	06740	1 00001 1 06745	735		TXI	T160,1,1 DUPLICATED	F2107170
	06741	0 34000 1 02543	736	T140	CAS	DOTAGZ+4,1 IN DO VAR.N S.	F2107180
D	06742	−3 00000 0 06744	737	T144	TXL	T150,0 IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N)	F2107100
D	06743	−3 00000 0 06747	738	T148	TXL	T180,0 OF DEF BY THIS ( DEC HAS 3,2,1 IF FORVAL	F2107200
			739			MATCHES VARIABLE N3,N2,N1)	F2107201
	06744	1 00001 1 06745	740	T150	TXI	T160,1,1 NEW LEVEL.	F2107210
	06745	2 00001 2 06741	741	T160	TIX	T140,2,1	F2107220
	06746	1 77776 4 06673	742	T170	TXI	TS75,4,−2	F2107230
	06747	0 50000 0 06754	743	T180	CLA	T195	F2107240
	06750	0 62100 1 02547	744		STA	DOTAGZ+8,1	F2107230
	06751	0 50000 1 02543	745		CLA	DOTAGZ+4,1	F2107260
	06752	1 00001 1 06745	746		TXI	T160,1,1	F2107270
	06753	0 02000 0 06760	747	T190	TRA	RH00 EXIT	F2107280
A	06754	0 00000 0 00000	748	T195	HTR	ES	F2107290
A	06755	0 00000 0 00000	749	XFOR	HTR	FORTAG INDEX	F2107300
A	06756	0 00000 0 00000	750	TBNA	HTR	ES	F2107310
A	06757	0 00000 0 00000	751	TENA	HTR	ES	F2107320
			752			USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH.	F2107330
	06760	−0 53400 2 05501	753	RH00	LXD	L(5),2 READ IN	F2107340
	06761	0 50000 0 07155	754		CLA	4VARAD FORVAR	F2107350
	06762	0 07400 4 07060	755		TSX	RTAPE,4	F2107360
	06763	3 02733 1 07053	756		TXH	RH95,1,1499 EXIT IF FORVAR EMPTY	F2107370
	06764	−0 76000 0 00143	757		MSE	99 TEST FOR EMPTY DOTAG.	F2107380
	06765	0 02000 0 06770	758		TRA	RH05 NOT EMPTY	F2107390
	06766	0 76000 0 00143	759		PSE	99 EMTPY, RESTORE SENSE LIGHT	F2107400
	06767	0 02000 0 07053	760		TRA	RH95 AND EXIT.	F2107410
	06770	−0 63400 1 07032	761	RH05	SXD	RH60,1 FORVAR.TEST	F2107420
	06771	−0 63400 1 07043	762		SXD	RH75,1 INIT1ALIZING	F2107430
	06772	−0 53400 1 00030	763		LXD	DOTAG−1,1 DOTAG TEST	F2107440
	06773	−0 63400 1 07052	764		SXD	RH90,1 INITIALIZING	F2107450
	06774	−0 53400 1 05507	765		LXD	L(1500,1 MAX WORDS IN FORVAL	F2107460
	06775	−0 63400 1 07054	766		SXD	RHNNX,1 IN NEXT NEST INDEX.	F2107470
	06776	−0 76000 0 00141	767		MSE	97 TURN LIGHT 97 OFF.	F2107480
	06777	0 76100 0 00000	768		NOP		F2107490
	07000	−0 53400 1 05506	769		LXD	L(1350,1 PUT MAX WDS IN DOTAG IN XRA.	F2107500
	07001	0 50000 1 02537	770	RH10	CLA	DOTAGZ,1 OBTAIN FIRST DOTAG WORD.	F2107510
	07002	0 73400 2 00000	771		PAX	0,2 SEPARATE ALPHA AND BETA,	F2107520
	07003	−0 32000 0 05514	772		ANA	DECMSK STORE IN RFIRST AND RLAST	F2107530
	07004	0 60100 0 07056	773		STO	RFIRST	F2107540
	07005	−0 75400 2 00000	774		PXD	0,2	F2107550
	07006	0 60100 0 07057	775		STO	RLAST	F2107560
	07007	0 50000 1 02544	776		CLA	DOTAGZ+5,1 OBTAIN LEVEL IN XRB.	F2107570
	07010	−0 73400 2 00000	777		PDX	0,2	F2107580
	07011	3 00001 2 07017	778		TXH	RH30,2,1 TRA IF LEVEL GREATER THAN ONE.	F2107590
	07012	−0 76000 0 00141	779		MSE	97 LEVEL IS ONE, TEST WHETHER,	F2107600
	07013	0 02000 0 07015	780		TRA	RH20 ON LAST LEVEL ONE, FORVAR	F2107610
	07014	0 02000 0 07053	781		TRA	RH95 EXHAUSTED, IF SO, EXIT,	F2107620
	07015	−0 53400 4 07054	782	RH20	LXD	RHNNX,4 OTHERWISE, ADJUST FORVAR	F2107630
	07016	−0 63400 4 07055	783		SXD	RHCNX,4 1NDEX TO SKIP LAST NEST AREA	F2107640
	07017	−0 53400 4 07055	784	RH30	LXD	RHCNX,4 PUT FORVAR INDEX IN XRC	F2107650
	07020	0 50000 0 07056	785		CLA	RFIRST BEGIN SEARCH FOR FIRSTL.	F2107660
	07021	0 34000 4 05474	786	RH40	CAS	4VARZ,4 FORVAR ENTRY IN RANGE.	F2107670
	07022	1 77776 4 07032	787		TXI	RH60,4,−2	F2107680
	07023	0 07400 4 00004	788		TSX	DIAG,4 ERROR GO TO DIAGNOSTIC	F2107695
	07024	−0 63400 4 07055	789		SXD	RHCNX,4 SAVE INDEX AT THIS POINT,	F2107700
	07025	0 50000 0 07057	790	RH50	CLA	RLAST FOR NEXT DO, AND COMPARE	F2107710
	07026	0 34000 4 05474	791		CAS	4VARZ,4 FORVAR ENTRY WITH RLAST	F2107720
	07027	0 76100 0 00000	792		NOP		F2107730
	07030	0 02000 0 07034	793		TRA	RH70 TRA, IN RANGE.	F2107740
	07031	0 02000 0 07047	794		TRA	RH80 TRA, NOT IN RANGE	F2107750
D	07032	3 00000 4 07021	795	RH60	TXH	RH40,4 IF NO ENTRIES GREATER	F2107760
	07033	0 02000 0 07053	796		TRA	RH95 THAN RFIRST, EXIT.	F2107770
	07034	0 50000 1 02540	797	RH70	CLA	DOTAGZ+1,1 IN RANGE, COMPARE SYMB0LS	F2107780
	07035	0 40200 4 05475	798		SUB	4VARZ+1,4 IF EQUAL, PUT BIT IN	F2107790
	07036	−0 10000 0 07042	799		TNZ	RH72 DOTAG-ENTRY.	F2107800
	07037	0 50000 0 05511	800		CLA	BITONE	F2107810
	07040	−0 60200 1 02544	801		ORS	DOTAGZ+5,1	F2107820
	07041	3 00001 2 07051	802		TXH	RH85,2,1	F2107830
	07042	1 77776 4 07043	803	RH72	TXI	RH75,4,−2 INDEX FORVAR AND GO BACK,	F2107840
D	07043	3 00000 4 07025	804	RH75	TXH	RH50,4 IF POSSIBLE. OTHERWISE,	F2107850
	07044	3 00001 2 07051	805		TXH	RH85,2,1 TEST LEVEL. IF LEVEL IS	F2107860
	07045	0 76000 0 00141	806		PSE	97 ONE, ARRANGE TO EXIT WHEN	F2107870
	07046	0 02000 0 07051	807		TRA	RH85 NEXT LEVEL ONE ENCOUNTERED	F2107880
	07047	3 00001 2 07051	808	RH80	TXH	RH85,2,1 N0T IN RANGE, TEST LEVEL	F2107890
	07050	−0 63400 4 07054	809		SXD	RHNNX,4 SET NEXT NEST INDEX IF L IS ONE.	F2107900
	07051	1 77767 1 07052	810	RH85	TXI	RH90,1,−9 INDEX IN DOTAG AND GO	F2107910
D	07052	3 00000 1 07001	811	RH90	TXH	RH10,1 BACK, IF POSSIBLE.	F2107920
	07053	0 02000 0 07157	812	RH95	TRA	LB00 EXIT	F2107930
A	07054	0 00000 0 00000	813	RHNNX	HTR	NEXT NGST INDEX	F2107940
A	07055	0 00000 0 00000	814	RHCNX	HTR	CURRENT NEST INDEX	F2107950
A	07056	0 00000 0 00000	815	RFIRST	HTR	ALPHA ADDRESS	F2107960
A	07057	0 00000 0 00000	816	RLAST	HTR	BETA ADDRESS	F2107970
			817			TAPE READING ROUTINE	F2107980
	07060	0 62100 0 07101	818	RTAPE	STA	RT40 INITIALIZE TABLE ADDRESS	F2107990
	07061	0 60100 0 07126	819		STO	RT92	F2108000
	07062	−0 63400 4 07124	820		SXD	RT80,4 SAVEXRC, TSX SET	F2108010
	07063	−0 75400 2 00000	821		PXD	0,2 SAVE XRB,	F2108020
	07064	0 77100 0 00022	822		ARS	18 TABLE NR, IN ADDRESS.	F2108030
	07065	0 60100 0 07125	823		STO	RT90	F2108040
	07066	−0 53400 4 07136	824		LXD	RTD18,4 INITIALIZE ERROR COUNTER.	F2108050
	07067	−0 63400 4 07121	825		SXD	RT73,4	F2108060
	07070	0 76200 0 00222	826	RT10	RDS	TTAPE SELECT TAPE	F2108070
	07071	−0 53400 1 07126	827		LXD	RT92,1 PUT MAX NR WORDS IN XRA	F2108080
	07072	−0 53400 4 05476	828		LXD	L(2),4 PUT TWO IN XRC	F2108090
	07073	0 70000 4 07131	829	RT20	CPY	RT95+2,4 COPY FIRST TWO WORDS.	F2108100
	07074	0 02000 0 07077	830		TRA	RT30 INTO E.S.	F2108110
	07075	0 07400 4 00004	831		TSX	DIAG,4 EOF. ERROR. GO TO DIAGNOSTIC	F2108125
	07076	0 07400 4 00004	832		TSX	DIAG,4 EOR ERROR. GO TO DIAGNOSTIC.	F2108135
	07077	2 00001 4 07073	833	RT30	TIX	RT20,4,1	F2108140
	07100	−3 00001 2 07131	834		TXL	RTDO0,2,1	F2108150
	07101	0 70000 1 00000	835	RT40	CPY	0,1 COPY TABLE	F2108160
	07102	1 77777 1 07101	836		TXI	RT40,1,−1 COUNT NR. OF WORDS.	F2108170
	07103	0 07400 4 00004	837		TSX	DIAG,4 EOF ERROR. GO TO DIAGNOSTIC.	F2108183
	07104	0 76600 0 00333	838	RT45	WRS	219 ERROR. GO TO DIAGNOSTIC.	F2108183
	07105	−0 76000 0 00012	839		RTT	ERROR TEST	F2108190
	07106	0 02000 0 07115	840		TRA	RT70 ERROR, TRA	F2108200
	07107	0 50000 0 07125	841		CLA	RT90 NO ERROR,	F2108220
	07110	0 40200 0 07127	842		SUB	RT95 TEST TABLE NR.	F2108230
	07111	0 10000 0 07113	843		TZE	RT60 NO ERROR	F2108240
	07112	0 07400 4 00004	844		TSX	DIAG,4 WRONG TABLE 1DENT NR. ERROR. GO TO DIAGNOSTIC.	F2108255
	07113	−0 53400 4 07124	845	RT60	LXD	RT80,4 TABLE CORRECT,	F2108260
	07114	0 02000 4 00001	846		TRA	1,4 RETURN.	F2108270
	07115	−0 53400 4 07121	847	RT70	LXD	RT73,4	F2108280
	07116	0 76400 0 00222	848		BST	TTAPE ERROR, BACKSPACE TAPE	F2108290
	07117	−2 00001 4 07122	849		TNX	RT75,4,1	F2108300
	07120	−0 63400 4 07121	850		SXD	RT73,4 COUNT DOWN ERROR COUNTER	F2108310
D	07121	−3 00000 0 07070	851	RT73	TXL	RT10,0	F2108320
	07122	0 56000 0 07125	852	RT75	LDQ	RT90 IF FIVE FAILURES, PUT	F2108332
	07123	0 07400 4 00004	853		TSX	DIAG,4 TABLE NR. IN MQ. ERROR. GO TO DIAGNOSTIC.	F2108344
A	07124	0 00000 0 00000	854	RT80	HTR	TSX INDEX STORAGE	F2108350
A	07125	0 00000 0 00000	855	RT90	HTR	TABLE NR STORAGE, C.S.	F2108360
A	07126	0 00000 0 00000	856	RT92	HTR	ADDRESS WORD STORAGE	F2108370
A	07127	0 00000 0 00000	857	RT95	HTR	TABLE NR, WD ONE OF TABLE.	F2108380
A	07130	0 00000 0 00000	858	RT96	HTR	NR. OF WDS IN DEC.	F2108390
	07131	−0 75400 0 00000	859	RTDO0	PXD	0,0 THIS ROUTINE	F2108400
	07132	−0 53400 4 07136	860	RTD10	LXD	RTD18,4 READS IN ONE	F2108410
	07133	0 70000 1 02537	861	RTD15	CPY	DOTAGZ,1 ENTRY FROM	F2108420
	07134	1 77777 1 07137	862		TXI	RTD20,1,−1 TDO, AFTER WHICH	F2108430
	07135	0 07400 4 00004	863		TSX	DIAG,4 FOUR ZERO WORDS =ERROR. GO TO DIAGNOSTIC.	F2108445
	07136	−3 00005 0 07104	864	RTD18	TXL	RT45,0,5 ARE STORED,BEFORE	F2108450
	07137	2 00001 4 07133	865	RTD20	TIX	RTD15,4,1 READING IN	F2108460
	07140	1 00003 4 07141	866	RTD23	TXI	RTD25,4,3 THE NEXT ENTRY.	F2108470
	07141	0 60100 1 02537	867	RTD25	STO	DOTAGZ,1 STORE ZERO	F2108480
	07142	1 77777 1 07143	868		TXI	RTD30,1,−1 INDEX	F2108490
	07143	0 60100 1 02537	869	RTD30	STO	DOTAGZ,1 AND REPEAT.	F2108500
	07144	1 77777 1 07145	870		TXI	RTD35,1,−1 WHEN DOTAG	F2108510
	07145	0 60100 1 02537	871	RTD35	STO	DOTAGZ,1 ENTRY IS	F2108520
	07146	1 77777 1 07147	872		TXI	RTD40,1,−1 COMPLETE,	F2108530
	07147	0 60100 1 02537	873	RTD40	STO	DOTAGZ,1 TRA	F2108540
	07150	1 77777 1 07132	874		TXI	RTD10,1,−1 TO RTD10	F2108550
	07151	0 02506 0 02537	875	DOAD	HTR	DOTAGZ,0,1350 ADDRESS PART CONTAINS	F2108560
	07152	0 01750 0 04510	876	4VALAD	HTR	4VALZ,0,1000 ADDRESS OF LAST WORD IN	F2108570
	07153	0 01130 0 03670	877	TIFAD	HTR	TIFZ,0,600 TABLE PLUS ONE.	F2108580
	07154	0 00372 0 04263	878	TRADAD	HTR	TRADZ,0,250 DEC CONTAINS MAX NR OF	F2108590
	07155	0 02734 0 05474	879	4VARAD	HTR	4VARZ,0,1500 WRDS.	F2108600
	07156	0 02734 0 03670	880	4TAGAD	HTR	FORTZ,0,1500	F2108610
			881			TRANSFER IN EXTENDED RANGE BIT.	F2108620
	07157	−0 76000 0 00143	882	LB00	MSE	99 TEST FOR EMPTY DOTAG	F2108630
	07160	0 02000 0 07163	883		TRA	LB02 OFF, NOT EMPTY	F2108640
	07161	0 76000 0 00143	884		PSE	99 ON, EMPTY, RESET LIGHT	F2108650
	07162	0 02000 0 07211	885		TRA	EB00 AND EX1T	F2108660
	07163	−0 53400 1 00030	886	LB02	LXD	DOTAG−1,1 OBTAIN NEXT UNUSED INDEX	F2108670
D	07164	−3 00000 0 07207	887	LB05	TXL	LB60,0 TRA TO ADJUST FOR LAST DO.	F2108680
	07165	0 50000 1 02545	888	LB10	CLA	DOTAGZ+6,1 OBTAIN T1 WORD.	F2108690
	07166	−0 12000 0 07207	889		TMI	LB60 TEST SIGN, TRA IF NEG.	F2108700
	07167	−0 32000 0 05511	890		ANA	BITONE TEST FOR TRA IN IMMED. RANGE.	F2108710
	07170	0 10000 0 07207	891		TZE	LB60 IF NONE,TRA.	F2108720
	07171	−0 63400 1 07164	892		SXD	LB05,1 SAVE XRA	F2108730
	07172	0 50000 1 02544	893		CLA	DOTAGZ+5,1 PUT LEVEL	F2108740
	07173	−0 73400 2 00000	894		PDX	0,2 IN XRB	F2108750
	07174	−0 50000 0 05510	895	LB20	CAL	LMSK OR IN	F2108760
	07175	−0 60200 1 02545	896		ORS	DOTAGZ+6,1 MSK	F2108770
	07176	−3 00001 2 07206	897		TXL	LB50,2,1 EXIT IF LEVEL ONE.	F2108780
	07177	1 00011 1 07200	898	LB25	TXI	LB30,1,9 FIND NEXT BACK	F2108790
	07200	0 50000 1 02544	899	LB30	CLA	DOTAGZ+5,1 SUBNEST DO,	F2108800
	07201	0 62200 0 07202	900		STD	LB40	F2108810
D	07202	−3 00000 2 07177	901	LB40	TXL	LB25,2	F2108820
	07203	−0 73400 2 00000	902		PDX	0,2 SAVE NEW LEVEL IN XRB.	F2108830
	07204	0 50000 1 02545	903		CLA	DOTAGZ+6,1 TEST SIGN OF WORD T1.	F2108840
	07205	0 12000 0 07174	904		TPL	LB20 IF PLUS GO TO PUT IN MSK.	F2108850
	07206	−0 53400 1 07164	905	LB50	LXD	LB05,1 IF NOT, FIND NEXT DO	F2108860
	07207	1 00011 1 07210	906	LB60	TXI	LB70,1,9 IN MAIN PASS.	F2108870
	07210	−3 02506 1 07165	907	LB70	TXL	LB10,1,1350 EB00 FOLLOWS	F2108880
			908			END OF BLOCK ROUTINE	F2108890
	07211	0 77200 0 00223	909	EB00	REW	147 REWIND DOTAG TAPE	F2108900
	07212	−0 76000 0 00143	910		MSE	99 TEST FOR EMPTY DQTAG	F2108910
	07213	0 02000 0 07216	911		TRA	EB10 OFF, NOT EMPTY	F2108920
	07214	0 76000 0 00143	912		PSE	99 ON, EMPTY, RESTORE AND TRA.	F2108930
	07215	0 02000 0 07233	913		TRA	EB50	F2108940
	07216	−0 53400 1 00030	914	EB10	LXD	DOTAG−1,1 INITIALIZE TEST INSTR.	F2108950
	07217	−0 63400 1 07230	915		SXD	EB40,1 AND	F2108960
	07220	−0 53400 1 05506	916		LXD	L(1350,1 XRA	F2108970
	07221	−0 53400 4 05503	917	EB20	LXD	L(9),4 WRITE	F2108980
	07222	0 50000 1 02544	918		CLA	DOTAGZ+5,1 DOTAG	F2108990
	07223	−0 73400 2 00000	919		PDX	0,2 ON	F2109000
	07224	3 00001 2 07226	920		TXH	EB30,2,1 TAPE	F2109010
	07225	0 76600 0 00223	921		WRS	147 ONE	F2109020
	07226	0 70000 1 02537	922	EB30	CPY	DOTAGZ,1 NEST	F2109030
	07227	1 77777 1 07230	923		TXI	EB40,1,−1 PER	F2109040
D	07230	−3 00000 1 07233	924	EB40	TXL	EB50,1 RECORD	F2109050
	07231	2 00001 4 07226	925		TIX	EB30,4,1	F2109060
	07232	0 02000 0 07221	926		TRA	EB20	F2109070
	07233	0 77000 0 00223	927	EB50	WEF	147 WRITE END OF FILE	F2109080
	07234	−0 53400 2 05500	928	EB60	LXD	L(4),2 READ	F2109090
	07235	0 50000 0 07156	929		CLA	4TAGAD IN	F2109100
	07236	0 07400 4 07060	930		TSX	RTAPE,4 FORTAG.	F2109110
	07237	−0 63400 1 00733	931		SXD	FORTAG−1,1 SET SENSE LIGHT 97	F2109120
	07240	−0 76000 0 00141	932		MSE	97 ON IF FORTAG	F2109130
	07241	0 76100 0 00000	933		NOP	EMPTY, OFF IF	F2109140
	07242	−3 02733 1 07244	934		TXL	EB70,1,1499 FORTAG	F2109150
	07243	0 76000 0 00141	935		PSE	97 NOT EMPTY.	F2109160
	07244	0 76200 0 00222	936	EB70	RDS	TTAPE MOVE TTAPE PAST	F2109170
	07245	0 70000 0 07251	937		CPY	EB80 END OF FILE MARK.	F2109180
	07246	0 02000 0 07244	938		TRA	EB70	F2109190
	07247	0 02000 0 07252	939		TRA	EB90 EOF	F2109200
	07250	0 07400 4 00004	940		TSX	DIAG,4 SHOULD NOT BE EOR HERE. ERROR. GO TO DIAGNOSTIC.	F2III215
A	07251	0 00000 0 00000	941	EB80	HTR	ES	F2109220
	07252	−0 76000 0 00142	942	EB90	MSE	98 IS TRALEV TALBE EMPTY	F2109230
	07253	0 02000 0 07260	943		TRA	EB95	F2109240
	07254	0 76600 0 00224	944		WRS	TLTAPE ON, EMPTY.	F2109250
	07255	0 70000 0 05474	945		CPY	L(0)	F2109260
	07256	0 70000 0 05474	946		CPY	L(0)	F2109270
	07257	0 76000 0 00142	947		PSE	98	F2109280
	07260	0 77000 0 00224	948	EB95	WEF	TLTAPE TRALEV TAPE	F2109290
	07261	0 76200 0 00221	949		RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE	F2109295
	07262	0 02000 0 00004	950		TRA	ONETCS GO TO ONE TO CS ( MONITOR).	F2109296
	07263	−0 63400 2 07301	951	ERLIST	SXD	ERIR2,2 SAVE X R B	F2109311
	07264	−0 53400 2 07302	952		LXD	ERNBR,2 GET ERROR NUMBER	F2109321
	07265	0 50000 4 02537	953		CLA	DOTAGZ,4 SAVE ALPHA DO BETA	F2109331
	07266	0 60100 2 77777	954		STO	LIST,2 IN LIST	F2109141
	07267	0 50000 4 02540	955		CLA	DOTAGZ+1,4 AND SYMBOL	F2109351
	07270	0 60100 2 77776	956		STO	LIST−1,2	F2109361
	07271	0 50000 1 02537	957		CLA	DOTAGZ,1 SAVE OTHER ALPHA DO BETA	F2109371
	07272	0 60100 2 77775	958		STO	LIST−2,2	F2109181
	07273	0 50000 1 02540	959		CLA	DOTAGZ+1,1 AND SYMBOL	F2109391
	07274	0 60100 2 77774	960		STO	LIST−3,2	F2102401
	07275	1 00004 2 07276	961		TXI	ERNXT,2,4	F2109411
	07276	−0 63400 2 07302	962	ERNXT	SXD	ERNBR,2	F2109421
	07277	−0 53400 2 07301	963		LXD	ERIR2,2	F2109431
	07300	0 02000 0 05625	964		TRA	MR60	F2109441
	07301	0 00000 0 00000	965	ERIR2			F2109451
	07302	0 00000 0 00000	966	ERNBR			F2109461
	07303	−0 63400 2 07301	967	ERBETA	SXD	ERIR2,2 SAVE ALPHA DO BETA	F2109471
	07304	−0 53400 2 07302	968		LXD	ERNBR,2 WHERE ALPHA	F2109481
	07305	0 60000 2 77777	969		STZ	LIST,2 IS GREATER THAN	F2109491
	07306	0 50000 1 02537	970		CLA	DOTAGZ,1 ITS BETA	F2109501
	07307	0 60100 2 77776	971		STO	LIST−1,2	F2109511
	07310	0 50000 1 02540	972		CLA	DOTAGZ+1,1	F2109521
	07311	0 60100 2 77775	973		STO	LIST−2,2	F2109531
	07312	1 00003 2 07313	974		TXI	ERNX,2,3	F2109541
	07313	−0 63400 2 07302	975	ERNX	SXD	ERNBR,2	F2109551
	07314	−0 53400 2 07301	976		LXD	ERIR2,2	F2109561
	07315	0 02000 0 05570	977		TRA	MR15	F2109571
	07316	−0 53400 2 07302	978	ERTST	LXD	ERNBR,2	F2109581
	07317	−3 00000 2 05662	979		TXL	FLOW,2,0	F2109591
	07320	0 07400 4 00004	980		TSX	4,4	F2109601
		77777	981	LIST	SYN	32767	F2109611
		00004	982	ONETCS	EQU	4	F2109710
		00004	983	DIAG	EQU	4	F2109711
		05510	984	LMSK	SYN	L(MZ)	F2109712
		00222	985	TTAPE	EQU	146	F2109722
		00224	986	TLTAPE	EQU	148	F2109732