1			704 FORTRAN II, SECTION V, TAG ANALYSIS, 8-1-6-2	F5G00010
			2			DAVID STERNLIGHT I.B.M. WORLD HEADQUARTERS 5 N0V 58.	F5G00020
			3			INTRODUCTION	F5G00030
			4			TNE GENERAL PHILOSOPHY OF SECTI0N 5 IS TO REDUCE A PROGRAM	F5G00040
			5			USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX	F5G00050
			6			REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON	F5G00060
			7			INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED	F5G00070
			8			INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE	F5G00080
			9			REPLACED. THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX	F5G00090
			10			REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTION5.	F5G00100
			11			THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING	F5G00110
			12			INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THE	F5G00120
			13			3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL	F5G00130
			14			TIMES FOR THE CORRECT EXECUTION 0F TAGGED INSTRUCTIONS.	F5G00140
			15			GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL	F5G00150
			16			MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND	F5G00160
			17			NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT	F5G00170
			18			CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OF	F5G00180
			19			THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5.	F5G00190
			20			THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS,	F5G00200
			21			PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-	F5G00210
			22			ED BY SECTION 4. THE LINKS BETWEEN BASIC BLOCKS ARE LABELED	F5G00220
			23			BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION.	F5G00230
			24			SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE	F5G00240
			25			HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD	F5G00250
			26			ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS. THE AREA FORM-	F5G00260
			27			ED IN THIS MANNER IS A PORT1ON OF THE OBJECT PROGRAM AND IS	F5G00270
			28			CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF	F5G00280
			29			INDEX REGISTERS TO 3, IS THEN CALLED A REGION, AND CAN ENTER	F5G00290
			30			FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED,	F5G00300
			31			CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM	F5G00310
			32			BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT	F5G00320
			33			LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM. THESE	F5G00330
			34			REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THE	F5G00340
			35			END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION.	F5G00350
			36			FINALLY THE ENTIRE PR0GRAM HAS BEEN TREATED. A FURTHER PRIN-	F5G00360
			37			CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX,S AS	F5G00370
			38			LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,	F5G00380
			39			SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUENCY	F5G00390
			40			OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS	F5G00400
			41			OF THE SX.	F5G00410
			42			LPLST IS FORMED IN CORES BY SECTION 5 PART 1. IT SUMMARIZES	F5G00420
			43			EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE	F5G00430
			44			REGION, 1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER	F5G00440
			45			FREE) AND PREFIX CODE 0=BASIC BLOCKS. THE BB NUMBER	F5G00450
			46			IS CONTAINED IN THE DECREMENT OR ADDRESS. 77777 INDICATES	F5G00460
			47			LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNING	F5G00470
			48			OF REGION, SPECIFIED BY BB NUMBER. 000000 INDICATES NOTHING	F5G00480
			49			INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR	F5G00490
			50			ADDRESS. A WORD OF FULL SEVENS, CALLED SENTINEL, TERMINATES	F5G00500
			51			EPLST. THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST	F5G00510
			52			BEFORE TREATMENT LIKE	F5G00520
			53			277777 000014	F5G00530
			54			000023 000000	F5G00540
			55			100026 000033	F5G00550
			56			200003 777777	F5G00560
			57			777777 777777.	F5G00570
			58			TNIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMES	F5G00580
			59			BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM	F5G00590
			60			BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3,	F5G00600
			61			TERMINATING THIS LPLST. WHEN TREATED, THIS ENT1RE LPLST	F5G00610
			62			BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS	F5G00620
			63			AND BB,S IN IT, WHICH WILL DISAPPEAR.	F5G00630
			64			REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION. PREFIX	F5G00640
			65			INDICATES EXISTENCE IN REGI0N OF LX,S TO THE IR,S ,	F5G00650
			66			DECREMENT=FIRST BB NO. IN REGION, TAG BITS=EMPTINESS	F5G00660
			67			THROUGHOUT REGION OF IR,S.	F5G00670
			68			INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM.	F5G00680
			69			SUCC IS FIRST DRUM TABLE. IT IS PREPARED BY SECTION 4,	F5G00690
			70			ORDERED ON BB NUMBER. IT IS PING PONGED BETWEEN DRUM AND	F5G00700
			71			CORES BY THE SE6 ROUTINE.	F5G00710
			72			THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK	F5G00720
			73			IS TREATED. BITS 1-14=FREQUENCY OF LINK, ADDRESS=NO. OF	F5G00730
			74			SUCCESSOR BASIC BLOCK.	F5G00740
			75			PRED IS THE SECOND DRUM TABLE. IT IS PREPARED BY SECTION 4.	F5G00750
			76			PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM AND	F5G00760
			77			CORES BY THE SE5 ROUTINE.	F5G00770
			78			WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED.	F5G00780
			79			BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR LX,S TO	F5G00790
			80			THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO-	F5G00800
			81			PRIATE INDEX CELLS. THESE SX,S WILL LATER BE COMPILED	F5G00810
			82			BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS	F5G00820
			83			CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK.	F5G00830
			84			BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4.	F5G00840
			85			THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.	F5G00850
			86			THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.	F5G00860
			87			WORD FORMAT FROM SECTION 4. FIRST WORD DECR=STARTING POIN,	F5G00870
			88			IN SUCC, ADDRESS=STARTING POINT IN PRED OF ENTRIES	F5G00880
			89			REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS	F5G00890
			90			CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS....	F5G00900
			91			000=DO WITH AN IF, 001=MSE, 010=PROBABILITY BRANCH	F5G00910
			92			011=CERTAINTY BRANCH, 100=DO WITHOUT AN IF, 101=GO TO N,	F5G00920
			93			110=STOP. SECOND WORD, BITS 12-17=PERMUTATION NUMBERS,	F5G00930
			94			INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF	F5G00940
			95			FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS	F5G00950
			96			INITIALIZED TO ZEROES BY SECTION 4.	F5G00960
			97			IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE. SECOND WORD	F5G00970
			98			BITS S-2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS.	F5G00980
			99			MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS.	F5G00990
			100			FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS.	F5G01000
			101			WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO.	F5G01010
			102			ADDRESS=NUMBER OF NEXT BB IN REGION.	F5G01020
			103			STAG IS THE FOURTH DRUM TABLE. INITIALIZED TO ZEROES AT SEC.	F5G01030
			104			5 PART 1 START. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTION	F5G01040
			105			IS MADE IN SECTION 5 PART 1 AND READ IN PART 4. BITS S-8	F5G01050
			106			CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION, BITS 9-17	F5G01060
			107			FOR AN LX FOLLOWING. BITS 18-35 IN PAIRS SPECIFY THE INDEX	F5G01070
			108			REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS	F5G01080
			109			INTER BB LX,S AND SX,S AN0 STAG RECORDS INTRA-BB LX,S AND	F5G01090
			110			SX,S. STAG IS HANOLED BY THE SE4 ROUTINE.	F5G01100
			111			CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD	F5G01110
			112			FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTI0N	F5G01120
			113			CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE	F5G01130
			114			SYMBOLIC ADDRESS, AS FOLLOWS, BITS 24-26 CONTAIN TAU 1,2,	F5G01140
			115			OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT	F5G01150
			116			TAU TABLE. NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF	F5G01160
			117			INDEX CELLS IS, TAU 1=G, TAU 2=10, TAU 3=1G, AND THIS	F5G01170
			118			SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A	F5G01180
			119			TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5, THAT IS,	F5G01190
			120			TAU 3, ENTRY 5. THE INSTRUCTION CLASSES AS FOLLOWS, IN DECR	F5G01200
			121			L=LXA,LXD,PAX,PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL.	F5G01210
			122			FOR TNX. 5=ACTIVE INSTR LIKE TIX AND TXI. 6=PASSIVE INSTR.	F5G01220
			123			A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE	F5G01230
			124			OONTENTS 0F THE INDEX REGISTER. 7=UNUSED BUT AVAIL. FOR TIX.	F5G01240
			125			WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A	F5G01250
			126			TRANSFER, NOT AN ACTIVE TIX. ACTIVE 1NSTRUCTIONS MAY	F5G01260
			127			BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q	F5G01270
			128			WHERE Q IS SOME CONSTANT.	F5G01280
			129			CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5	F5G01290
			130			IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS.	F5G01300
			131			GIVING DRUM TABLE LENGTHS. TAPE TABLES USED FOR INPUT	F5G01310
			132			INCLUDE TAGLIST AND CIT. INTERMEDIATE TABLES INCLUDE THE	F5G01320
			133			ABOVE AND STAG, LPLST, CMTAG, AND REG. CMTAG IS A CORE	F5G01330
			134			BUFFER FOR TAGLIST. THE DRUM TABLES ALSO APPEAR IN CORE	F5G01340
			135			IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN	F5G01350
			136			COMBINATION 0F THE FACTORS OF LENGTH AND COMPLEXITY OF	F5G01360
			137			TRANSFER STRUCTURE. OUTPUT TABLES INCLUDE CIT ON TAPE.	F5G01370
			138			TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE. IT IS A	F5G01380
			139			SEQUENTIAL LIST OF ALL TAGGED OBJECT PR0GRAM INSTRUCTIONS	F5G01390
			140			RESULTING FROM SECTION 3. EACH ENTRY IS ONE WORD. THE	F5G01400
			141			PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS	F5G01410
			142			CONTAINS SYMBOLIC INDEX REGISTER,S NAME.	F5G01420
			143			BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM	F5G01430
			144			TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER	F5G01440
			145			COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING.	F5G01450
			146			IN ADDITION, SENSE SWITCH 4, WHEN 0OWN, PROVIDES UP TO	F5G01460
			147			20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT	F5G01470
			148			A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PROGRAM	F5G01480
			149			EFFICIENCY. THIS SENSE SWITCH HAS NO EFFECT ON SHORTER	F5G01490
			150			PROGRAMS.	F5G01500
			151			IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE,	F5G01510
			152			SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST	F5G01520
			153			BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED	F5G01530
			154			ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END	F5G01540
			155			OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED.	F5G01550
			156			IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN	F5G01560
			157			THE FOLLOWING PARAMETER LIST MUST BE CHANGED.	F5G01570
			158			8-1-6-2 PARAMETER LIST	F5G01580
		20000	159	MSIZE	EQU	8192 8-1-6-2 MEMORY SIZE	F5G01590
		00226	160	FP1	EQU	150 8-1-6-2 REG TABLE SIZE	F5G01600
		00074	161	S3P1	EQU	60 8-1-6-2 LPLST TABLE SIZE	F5G01610
		00360	162	STL	EQU	240 8-1-6-2 STAG LENGTH	F5G01620
			163			FIXED PARAMETER LIST, INDEP. OF CORESIZE	F5G01670
		17774	164	KEYS	SYN	MSIZE−4 CONSTANTS TO RELATE PROGRAM TO TABLES	F5G01680
			165			ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLLOWED BY	F5G01690
			166			PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V.	F5G01700
			167			THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS,	F5G01710
			168			KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG.	F5G01720
		00004	169	INSTTP	EQU	4 COMPILED INST ON TAPE 4	F5G01730
		00003	170	TAPE	EQU	3 OUTPUT TAPE IS 3	F5G01740
		00003	171	OTAPE	EQU	3 OUTPUT TAPE IS 3	F5G01750
		00003	172	BLT	EQU	3 BLOCK LIST ON TAPE 3	F5G01760
		00002	173	ACTPE	EQU	2 ASSIGN CONSTANTS ON TAPE 2	F5G01770
		00001	174	RECNO	EQU	1 NO OF CIT RECORDS IN AT ONE TIME	F5G01780
		00144	175	ZINST	EQU	RECNO*100 LENGTH OF INST TABLE	F5G01790
		00144	176	LCLST	EQU	100 LENGTH OF OUTPUT BLOCK, COMPILED INSTR	F5G01800
		00200	177	NSXD	EQU	128 NO. OF SXD CASES IN SXD LIST	F5G01810
		00024	178	PTL1	EQU	20 SPACE FOR PATCHES, PART 1	F5G01811
		00051	179	PTL2	EQU	41 SPACE FOR PATCHES, PART 2.	F5G01812
		00052	180	PTL3	EQU	42 SPACE FOR PATCHES, PART 3	F5G01813
		00042	181	PTL4	EQU	34 SPACE FOR PATCHES, PART 4.	F5G01814
		00000	182	SET	EQU	0 INITIAL DRUM ADDRESS	F5G01820
		00000	183	K	EQU	0 INITIAL DRUM ADDRESS	F5G01830
			184			EDITOR RECORD NO. 75	F5G01840
			185			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G01850
			186			NO DIAGNOSTIC CALLER FOLLOWS	F5G01870
			187			PART 1A	F5G01880
			188			OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N,	F5G01890
			189			INSTRUCTION COMPILATION.	F5G01900
		00030	190		ORG	24	F5G01910
			191			ROUTINE TO TRANSFER NEXT	F5G01920
			192			PP0GRAM PART	F5G01930
	00030	0 76200 0 00221	193	R	RTB	1 SKIP DIAGNOSTIC	F5G01940
	00031	0 02000 0 00004	194		TRA	4 READ NEXT PROGRAM RECORD	F5G01950
			195			THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES	F5G01960
			196			AUCC, PRED, BBB, AND STAG. THEY ARE ENTERED WITH THE WANTED	F5G01970
			197			ITEM IN THE AC. THEY LOAD IX1 FOR IMMEDIATE REFERENCE T0 THE	F5G01980
			198			STATED ITEM. AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,	F5G01990
			199			THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES. IF THE	F5G02000
			200			ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM	F5G02010
			201			MANIPULATION IS NECESSARY.	F5G02020
	00032	0 76700 0 00022	202	SE4	ALS	18	F5G02030
	00033	−0 32000 0 00303	203		ANA	SEK4	F5G02040
	00034	0 07400 2 00101	204		TSX	SE21,2	F5G02050
			205			PARAMETERS FOR STAG TABLE	F5G02060
	00035	0 00000 0 00000	206	STAGP	HTR	0 N(0)	F5G02070
	00036	0 00000 0 00000	207		HTR	0 N(1)	F5G02080
	00037	0 00360 0 00000	208		HTR	0,0,STAGL N(S)	F5G02090
	00040	0 00000 0 00000	209		HTR	0,0,SET N(L)	F5G02100
	00041	0 00000 0 00001	210		HTR	1 S	F5G02110
	00042	0 00000 0 00000	211		HTR	SET D(0)	F5G02120
	00043	0 00000 0 05263	212		HTR	STAG A	F5G02130
			213			PARAMETERS FOR SUCC. TABLE	F5G02140
	00044	−0 32000 0 00303	214	SE6	ANA	SEK4	F5G02150
	00045	0 07400 2 00101	215		TSX	SE21,2	F5G02160
	00046	0 00000 0 00000	216	SUCCP	HTR	0 N(0)	F5G02170
	00047	−000000000001	217		OCT	−1 N(1)	F5G02180
	00050	0 01037 0 00000	218		HTR	0,0,SUCCL N(S)	F5G02190
	00051	0 00000 0 00000	219		HTR	SET N(L)	F5G02200
	00052	0 00000 0 00001	220		HTR	1 S	F5G02210
	00053	0 00000 0 00000	221		HTR	0 D(0)	F5G02220
	00054	0 00000 0 16734	222		HTR	SUCC A	F5G02230
			223			PARAMETERS FOR PRED. TABLE	F5G02240
	00055	0 76700 0 00022	224	SE5	ALS	18	F5G02250
	00056	−0 32000 0 00303	225		ANA	SEK4	F5G02260
	00057	0 07400 2 00101	226		TSX	SE21,2	F5G02270
	00060	0 00000 0 00000	227	PREDP	HTR	0 N(0)	F5G02280
	00061	−000000000001	228		OCT	−1 N(1)	F5G02290
	00062	0 01037 0 00000	229		HTR	0,0,PREDL N(S)	F5G02300
	00063	0 00000 0 00000	230		HTR	SET N(L)	F5G02310
	00064	0 00000 0 00001	231		HTR	1 S	F5G02320
	00065	0 00000 0 00000	232		HTR	SET D(0)	F5G02330
	00066	0 00000 0 15674	233		HTR	PRED A	F5G02340
			234			PARAMETERS FOR BBB TABLE	F5G02350
	00067	0 76700 0 00022	235	SE1	ALS	18 BB NO. IN ADDR.	F5G02360
	00070	−0 32000 0 00303	236	SE	ANA	SEK4 BB NO. IN DECR.	F5G02370
	00071	0 07400 2 00101	237		TSX	SE21,2	F5G02380
	00072	0 00000 0 00000	238	BBBP	HTR	0 N(0) IN DECR. 1ST BB IN CM	F5G02390
	00073	−000000000001	239		OCT	−1 N(1) IN DECR,LAST BB IN CM +1	F5G02400
	00074	0 00420 0 00000	240		HTR	0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM	F5G02410
	00075	0 00000 0 00000	241		HTR	SET N(L) IN DECR,NO. OF BBS	F5G02420
	00076	0 00000 0 00006	242		HTR	6 S IN ADDR.,NO. OF WDS PER BB	F5G02430
	00077	0 00000 0 00000	243		HTR	SET D(0) IN ADDR.,INITIAL DRUM ADDR.	F5G02440
	00100	0 00000 0 12533	244		HTR	BBB A IN ADDR.,INITIAL CM ADDR	F5G02450
			245			2 ED PARAMETER IS + OR - ACCORDING	F5G02460
			246			AS CM BLOCK IS FULL OR EMPTY	F5G02470
			247			SR FOR SHUFFLING TABLES TO AND FROM DRUM	F5G02480
	00101	0 60100 0 00306	248	SE21	STO	SEV2 STORE ITEM NO.,N	F5G02490
	00102	0 34000 2 00002	249		CAS	2,2 IS N IN CM	F5G02500
	00103	3 00000 0 00000	250		TXH	−,−,−	F5G02510
	00104	−3 00000 0 00106	251		TXL	SE42,0,−	F5G02520
	00105	0 02000 0 00156	252		TRA	SE41 POSSIBLY	F5G02530
	00106	−0 63400 4 00311	253	SE42	SXD	SEV5,4 NO,STORE RETURN INDEX	F5G02540
	00107	0 50000 2 00002	254		CLA	2,2	F5G02550
	00110	−0 12000 0 00120	255		TMI	SE35 IS CM BLOCK EMPTY	F5G02560
	00111	0 07400 4 00262	256		TSX	SE22,4 NO,FORM CHECK SUM	F5G02570
	00112	0 50000 0 00273	257		CLA	SE23	F5G02580
	00113	0 62100 0 00115	258		STA	SE24 STORE	F5G02590
	00114	0 50000 0 00307	259		CLA	SEV3 CHECK	F5G02600
	00115	0 60100 0 00000	260	SE24	STO	SET SUM	F5G02610
	00116	0 50000 0 00277	261		CLA	SEK	F5G02620
	00117	0 07400 4 00166	262		TSX	SE26,4	F5G02630
	00120	0 50000 0 00314	263	SE35	CLA	ZERO	F5G02640
	00121	0 56000 0 00306	264		LDQ	SEV2 N(0)=(INT. PT. (N/N(S)).N(S)	F5G02650
	00122	0 22100 2 00003	265		DVP	3,2	F5G02660
	00123	0 20000 2 00003	266		MPY	3,2	F5G02670
	00124	−0 60000 2 00001	267		STQ	1,2 N(1)=MIN (N (0)+N(S),N(L))	F5G02680
	00125	0 50000 2 00001	268		CLA	1,2	F5G02690
	00126	0 40000 2 00003	269		ADD	3,2	F5G02700
	00127	0 56000 2 00004	270		LDQ	4,2	F5G02710
	00130	−0 60000 2 00002	271		STQ	2,2	F5G02720
	00131	0 04000 0 00133	272		TLQ	SE36	F5G02730
	00132	0 60100 2 00002	273		STO	2,2	F5G02740
	00133	0 50000 0 00300	274	SE36	CLA	SEK1 TRANSFER IN A	F5G02750
	00134	0 07400 4 00166	275		TSX	SE26,4 BLOCK OF THE TABLE	F5G02760
	00135	0 07400 4 00262	276		TSX	SE22,4 CHECK SUM	F5G02770
	00136	0 50000 0 00273	277		CLA	SE23 COMPARE	F5G02780
	00137	0 62100 0 00140	278		STA	SE37 CHECK	F5G02790
	00140	0 50000 0 00000	279	SE37	CLA	SET SUMS	F5G02800
	00141	0 34000 0 00307	280		CAS	SEV3	F5G02810
	00142	0 02000 0 00144	281	SE45	TRA	SE43	F5G02820
	00143	0 02000 0 00152	282		TRA	SE40 AGREE	F5G02630
	00144	−0 53400 4 00151	283	SE43	LXD	TPCT,4 REPEAT 5 TIMES	F5G02840
	00145	1 00001 4 00146	284		TXI	SE44,4,1	F5G02850
	00146	−0 63400 4 00151	285	SE44	SXD	TPCT,4	F5G02860
	00147	−3 00004 4 00133	286		TXL	SE36,4,4 TRY AGAIN	F5G02870
	00150	0 07400 4 00004	287		TSX	4,4 TRIED 5 TIMES GO TO DIAGNOSTIC	F5G02880
			288			NOTE ON THIS 150 STOP. THIS DRUM CHECKSUM STOP MAY BE CAUSED	F5G02890
			289			BY MACHINE ERROR.	F5G02900
			290			IF IX 2 CONTAINS TABLE IS AND CHECK	F5G02910
			291			77744 STAG 40	F5G02920
			292			77732 SUCC 51 ALL	F5G02930
			293			77721 PRED 63 OCTAL	F5G02940
			294			77707 BBB 75	F5G02950
			295			TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS	F5G02960
			296			THAN THE CONTENTS 0F 306 OCTAL. IF SO, SOURCE PROGRAM, RATH-	F5G02970
			297			ER THAN MACHINE ERROR IS LIKELY. THE ERROR C0ULD BE	F5G02980
			298			A. TRANSFER TO A NON-EXECUTABLE INSTRUCTION.	F5G02990
			299			B. UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM.	F5G03000
			300			C. LAST STATEMENT OF A DO IS A TRANSFER.	F5G03010
			301			D. INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT.	F5G03020
	00151	0 00000 0 00000	302	TPCT	HTR	−	F5G03030
	00152	−0 63400 0 00151	303	SE40	SXD	TPCT,0 RESET TAPECOUNT	F5G03040
	00153	−0 53400 4 00311	304		LXD	SEV5,4 RESTORE RETURN INDEX	F5G03050
	00154	0 50000 0 00306	305		CLA	SEV2 GET N AGANIN	F5G03060
	00155	0 02000 0 00156	306		TRA	SE41	F5G03070
			307			THE ITEM MIGHT BE IN STORAGE	F5G03080
	00156	0 40200 2 00001	308	SE41	SUB	1,2 N-N(01	F5G03090
	00157	−0 12000 0 00106	309		TMI	SE42 DOES IT LIE IN STORAGE	F5G03100
	00160	0 76500 0 00043	310		LRS	35 YES,INDEX=	F5G03110
	00161	0 20000 2 00005	311		MPY	5,2 COM((N-N(0).S)	F5G03120
	00162	0 76300 0 00021	312		LLS	17	F5G03130
	00163	0 40200 0 00304	313		SUB	SEK5	F5G03140
	00164	0 73400 1 00000	314		PAX	0,1	F5G03150
	00165	0 02000 4 00001	315		TRA	1,4	F5G03160
			316			DRUM TRANSFER SUBROUTINE PROPER	F5G03170
	00166	−0 63400 4 00310	317	SE26	SXD	SEV4,4 STORE RETURN INDEX AND ITEM NO. TO BE TRANSFERRED	F5G03180
	00167	0 60100 0 00260	318		STO	SE25 STORE READ-WRITE INDICATOR	F5G03190
	00170	0 56000 2 00003	319		LDQ	3,2 FORM	F5G03200
	00171	0 20000 2 00005	320		MPY	5,2 N(S)*S+1	F5G03210
	00172	0 76300 0 00021	321		LLS	17 AND	F5G03220
	00173	0 40000 0 00315	322		ADD	ONEA STORE	F5G03230
	00174	0 60100 0 00305	323		STO	SEV1 IT
	00175	0 50000 0 00314	324		CLA	ZERO FORM	F5G03250
	00176	0 56000 2 00001	325		LDQ	1,2 ((N(O)/N(S))	F5G03260
	00177	0 22100 2 00003	326		DVP	3,2 (N(S)(S+1))	F5G03270
	00200	0 20000 0 00305	327		MPY	SEV1	F5G03280
	00201	−0 60000 0 00305	328		STQ	SEV1 INITIAL DRUM ADDRESS	F5G03290
	00202	0 50000 2 00006	329		CLA	6,2 =D(0)+(NON(S))$(N(S).S=1)	F5G03300
	00203	0 40000 0 00305	330		ADD	SEV1	F5G03310
	00204	0 60100 0 00313	331		STO	SEV7 SET LDA INSTRUCTIONS	F5G03320
	00205	0 76700 0 00007	332		ALS	7 COMPUTE THE	F5G03330
	00206	0 76000 0 00006	333		COM	DRUM SELECTION	F5G03340
	00207	−0 73400 1 00000	334		PDX	0,1 INDEX	F5G03350
	00210	0 07400 4 00260	335		TSX	SE25,4 SELECT DRUM	F5G03360
	00211	0 50000 2 00002	336		CLA	2,2	F5G03370
	00212	0 40200 2 00001	337		SUB	1,2 (N(1)-N(0))S	F5G03380
	00213	0 76500 0 00065	338		LRS	53 INTO MQ	F5G03390
	00214	0 20000 2 00005	339		MPY	5,2	F5G03400
	00215	0 50000 0 00313	340		CLA	SEV7 FORM NO. OF	F5G03410
	00216	−0 32000 0 00301	341		ANA	SEK2 WORDS LEFT ON	F5G03420
	00217	0 40200 0 00302	342		SUB	SEK3 DRUM GROUP	F5G03430
	00220	0 76000 0 00003	343		SSP		F5G03440
	00221	0 04000 0 00247	344		TLQ	SE31 MUST BLOCK BE SPLIT	F5G03450
	00222	0 73400 4 00000	345		PAX	0,4 YES	F5G03460
	00223	0 40000 2 00007	346		ADD	7,2 SET INDEX AND	F5G03470
	00224	0 62100 0 00236	347		STA	SE27 COMPUTE ADDRESS OF 1ST CPY	F5G03480
	00225	0 40200 2 00007	348		SUB	7,2 COMPUTE NO.	F5G03490
	00226	−0 60000 0 00305	349		STQ	SEV1 OF WORDS IN	F5G03500
	00227	0 40200 0 00305	350		SUB	SEV1 2 ED TRANSFER	F5G03510
	00230	0 40200 0 00315	351		SUB	ONEA	F5G03520
	00231	0 76000 0 00003	352		SSP		F5G03530
	00232	0 60100 0 00305	353		STO	SEV1	F5G03540
	00233	0 40000 0 00236	354		ADD	SE27	F5G03550
	00234	0 62100 0 00243	355		STA	SE29 SET 2 ED CPY	F5G03560
	00235	0 46000 0 00313	356	SE28	LDA	SEV7	F5G03570
	00236	0 70000 4 00000	357	SE27	CPY	SET,4 TRANSFER	F5G03580
	00237	2 00001 4 00236	358		TIX	SE27,4,1 1ST BLOCK OF WORDS	F5G03590
	00240	2 00001 1 00241	359		TIX	SE30,1,1 DECREASE C(1) BY 1	F5G03600
	00241	0 07400 4 00260	360	SE30	TSX	SE25,4 SELECT DRUM	F5G03610
	00242	0 53400 4 00305	361		LXA	SEV1,4	F5G03620
	00243	0 70000 4 00000	362	SE29	CPY	SET,4 TRANSFER	F5G03630
	00244	2 00001 4 00243	363		TIX	SE29,4,1 2 EDBLOCK	F5G03640
	00245	−0 53400 4 00310	364	SE34	LXD	SEV4,4	F5G03650
	00246	0 02000 4 00001	365		TRA	1,4 RETURN	F5G03660
	00247	0 76300 0 00043	366	SE31	LLS	35 (N(1)-N(0)).S+1	F5G03670
	00250	0 40000 0 00315	367		ADD	ONEA WORDS ARE TO	F5G03680
	00251	0 73400 4 00000	368		PAX	0,4 BE TRANSFERED	F5G03690
	00252	0 40000 2 00007	369		ADD	7,2	F5G03700
	00253	0 62100 0 00255	370		STA	SE32	F5G03710
	00254	0 46000 0 00313	371	SE33	LDA	SEV7	F5G03720
	00255	0 70000 4 00000	372	SE32	CPY	SET,4	F5G03730
	00256	2 00001 4 00255	373		TIX	SE32,4,1	F5G03740
	00257	0 02000 0 00245	374		TRA	SE34	F5G03750
	00260	0 76200 1 00300	375	SE25	RDS	192,1 (OR WRS) DRUM	F5G03760
	00261	0 02000 4 00001	376		TRA	1,4 SELECTION SUBROUTINE.	F5G03770
			377			CHECK SUM SUBROUTINE	F5G03780
	00262	0 50000 2 00002	378	SE22	CLA	2,2	F5G03790
	00263	0 40200 2 00001	379		SUB	1,2 COMPUTE	F5G03800
	00264	0 76500 0 00043	380		LRS	35 (N(1)-N(0)).S	F5G03610
	00265	0 20000 2 00005	381		MPY	5,2 THE NUMBER OF WORDS	F5G03820
	00266	0 76300 0 00021	382		LLS	17 TO BE SUM	F5G03830
	00267	0 73400 1 00000	383		PAX	0,1 CHECKED	F5G03840
	00270	0 40000 2 00007	384		ADD	7,2 COMPUTE AND STORE	F5G03850
			385			ADDRESS OF WORD	F5G03860
	00271	0 62100 0 00273	386		STA	SE23 FOLLOWING LAST TABLE WORD.	F5G03870
	00272	0 50000 0 00314	387		CLA	ZERO CLEAR SUM CHECK.	F5G03880
	00273	0 36100 1 00000	388	SE23	ACL	−,1 FORM THE	F5G03890
	00274	2 00001 1 00273	389		TIX	SE23,1,1 SUM CHECK.	F5G03900
	00275	0 60200 0 00307	390		SLW	SEV3	F5G03910
	00276	0 02000 4 00001	391		TRA	1,4	F5G03920
	00277	0 76600 1 00300	392	SEK	WRS	192,1 WRS,192,1	F5G03930
	00300	0 76200 1 00300	393	SEK1	RDS	192,1 RDS,192,1	F5G03940
	00301	0 00000 0 03777	394	SEK2	HTR	2047 MASK TO EXTRACT LAST 11 BIT	F5G03950
	00302	0 00000 0 04000	395	SEK3	HTR	2048 2048 IN ADDR.	F5G03960
	00303	0 77777 0 00000	396	SEK4	HTR	0,0,−1 IN DECR. PART	F5G03970
	00304	0 00000 1 00000	397	SEK5	HTR	0,1 2 15	F5G03980
	00305	0 00000 0 00000	398	SEV1		NS.S+1 TEMP STORAGE	F5G03990
	00306	0 00000 0 00000	399	SEV2		STORAGE OF N (DECR.)	F5G04000
	00307	0 00000 0 00000	400	SEV3		STORAGE OF CK SUM.	F5G04010
	00310	0 00000 0 00000	401	SEV4		RETURN FROM SE 26	F5G04020
	00311	0 00000 0 00000	402	SEV5		RETURN FROM SE	F5G04030
	00312	0 00000 0 00000	403	SEV6		STORE N TO BE TRANSFERRED	F5G04040
	00313	0 00000 0 00000	404	SEV7		INITIAL DRUM ADDR.	F5G04050
	00314	+000000000000	405	ZERO	OCT	0	F5G04060
	00315	0 00000 0 00001	406	ONEA	HTR	1	F5G04070
	00316	0 00001 0 00000	407	ONED	HTR	0,0,1	F5G04080
			408			CONSTANTS USED IN S1	F5G04090
	00317	0 00006 0 00000	409	S1K2	HTR	0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF.	F5G04100
	00320	0 00000 0 00010	410	S1K3	HTR	8 NO. OF S3 VARIABLES SAVED.	F5G04110
		00317	411	C	SYN	S1K2	F5G04120
	00321	0 77777 0 00000	412	S2K1	HTR	0,0,−1 ONES IN DECR. PART.	F5G04130
	00322	0 00001 0 00000	413	S2K2	HTR	0,0,1 CONST. USED TO TEST FOR LX.	F5G04140
	00323	−377777777777	414	S3K1	OCT	−377777777777 END LOOP LIST SENTENIAL	F5G04150
	00324	0 77777 7 77777	415	S3K2	HTR	−1,−1,−1 USED FOR CF TO FIND OUT IF THIS IS BB	F5G04160
	00325	0 00074 0 00000	416	S3K3	HTR	0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST	F5G04170
	00326	+000000777777	417	S3K4	OCT	777777 MASK TO EXTRACT LAST 1/2 WORD.	F5G04180
	00327	0 77777 0 00000	418	S3K5	HTR	0,0,−1 MASK TO EXTRACT INST. TYPE	F5G04190
			419			CONSTANTS OF S4	F5G04200
	00330	0 00000 0 04615	420	S4K1		CMTL	F5G04210
	00331	0 00000 0 00017	421	S4K2	HTR	15 NO OF TAGS PER RECORD.	F5G04220
	00332	0 00000 0 05716	422	S4K3	HTR	CMTAG	F5G04230
			423			THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5	F5G04240
	00333	+000000777776	424	LK1	OCT	777776 E,HASH SYMBOL	F5G04250
	00334	−200000000000	425	LK2	OCT	−200000000000 CONSTANT= FOR EXTRACTING	F5G04260
	00335	−300000000000	426	LK3	OCT	−300000000000 1ST 2,3 BITS OF WORD RESPT.	F5G04270
			427			CONSTANTS FOR MATCHING SUBR0UTINE	F5G04280
	00336	+000000777777	428	S5K1	OCT	777777 PHI,EMPTINESS 444	F5G04290
	00337	+000000777775	429	S5K2	OCT	777775 CONSTANT USED TO TEST-FOR REAL TAGS	F5G04300
	00340	−000000000000	430	S5K3	OCT	−0 -0	F5G04310
	00341	0 00000 0 00002	431	S5K4	HTR	2 +2 .1	F5G04320
	00342	0 00000 0 00003	432	S5K5	HTR	3 +3	F5G04330
	00343	0 00000 0 00010	433	S5K6	HTR	8 +8	F5G04340
	00344	0 00000 0 00004	434	S9K1	HTR	4 +4	F5G04350
	00345	0 00000 1 00000	435	S9K2		0,1	F5G04360
	00346	0 00000 2 00000	436			0,2	F5G04370
	00347	0 00000 4 00000	437			0,4	F5G04380
	00350	0 00003 0 00000	438	S9K3	HTR	0,0,3 MASK TO EXTRACT 2 BITS IN DECR.	F5G04390
	00351	0 00000 0 07776	439	SAK1		4094	F5G04400
			440			CONSTANTS 0F SB	F5G04410
	00352	+001000000000	441	SBK1	OCT	+001000000000 CONST. USED T0 GENERATE SX BIT. AD.	F5G04420
	00353	0 00000 0 77777	442	SBK2	HTR	−1 USED TO EXTRACT ADDR.	F5G04430
	00354	0 00004 0 00000	443	SBK3	HTR	0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER	F5G04440
	00355	0 04741 0 00000	444	SCK1	HTR	0,0,LPLST	F5G04450
	00356	+177777077777	445	FK1	OCT	177777077777 TRANSPARANT REGION CONST	F5G04460
	00357	+277777077777	446	FK2	OCT	277777077777 OPAQUE REGION CONST	F5G04470
	00360	0 00000 7 00000	447	FK3	HTR	0,7 MASK TO EXTRACT TAG.	F5G04480
	00361	+177777777777	448	FK4	OCT	177777777777 CONST TO TEST FOR OPAQUE REG.	F5G04490
	00362	0 00000 0 00226	449	FK5	HTR	FP1 LENGTH OF REGION LIST	F5G04500
	00363	−000000000000	450	XK3	OCT	−0 3 CONSTANTS USED TO	F5G04510
	00364	+200000000000	451		OCT	200000000000 CHANGE REGION WDS.	F5G04520
	00365	+100000000000	452		OCT	100000000000 TO INDICATE IRS LX ED.	F5G04530
	00366	−377776000000	453	XK4	OCT	−377776000000 E,HASH SYMBOL,IN LQT HALF	F5G04540
	00367	−300000000000	454	XK5	OCT	−300000000000 MASK FOR PREFIX	F5G04550
	00370	+200000000000	455	XK6	OCT	200000000000	F5G04560
	00371	0 00000 0 00011	456	XK9	HTR	9	F5G04570
		00363	457	XK10	SYN	XK3 MASK TO EXTRACT 1ST IN BB FIT.	F5G04580
	00372	+000001000000	458	XK11	OCT	1000000 CONST. TO GENERAGE LX BIT.	F5G04590
	00373	0 00005 0 00000	459	XK12	HTR	0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE	F5G04600
	00374	0 00004 0 00000	460	XK13	HTR	0,0,4 TNX	F5G04610
	00375	0 00007 0 00000	461	XK14	HTR	0,0,7 TIX	F5G04620
	00376	0 00002 0 00000	462	XK15	HTR	0,0,2 LXP	F5G04630
	00377	0 00000 4 00000	463	XK16	HTR	0,4 CONST. TO GENERATE LX BIT.	F5G04640
	00400	1 00000 0 00000	464	XK17	PON	CONST. TO SEPARATE TYPES	F5G04650
		00366	465	XK18	SYN	XK4 E IN LEFT HALF WORD.	F5G04660
	00401	−377777000000	466	XK19	OCT	−377777000000 MASK LEFT HALF WORD.	F5G04670
	00402	−377700777777	467	XK20	OCT	−377700777777 CONST. TO DELETE PERM. NOS.	F5G04680
	00403	0 00003 0 00000	468	XK21	HTR	0,0,3 CONST. TO TEST FOR DED INST.	F5G04690
	00404	−377777077777	469	XK22	OCT	−377777077777 CONST. TO DELETE PHIS.	F5G04700
	00405	0 00000 1 00000	470	XK23	HTR	0,1	F5G04710
	00406	0 00000 2 00000	471		HTR	0,2	F5G04720
	00407	0 00000 4 00000	472		HTR	0,4	F5G04730
	00410	0 00000 0 00000	473	S1V1		TEMP. STORAGE FOR	F5G04740
	00411	0 00000 0 00000	474		HTR	−	F5G04750
	00412	0 00000 0 00000	475		HTR	− 1ST 9 VARIABLES	F5G04760
	00413	0 00000 0 00000	476		HTR	− IN S3	F5G04770
	00414	0 00000 0 00000	477		HTR	−	F5G04780
	00415	0 00000 0 00000	478		HTR	−	F5G04790
	00416	0 00000 0 00000	479		HTR	−	F5G04800
	00417	0 00000 0 00000	480		HTR	−	F5G04810
	00420	0 00000 0 00000	481	S1V3		THE CLA IN S3	F5G04820
	00421	0 00000 0 00000	482	S1V4		RETURN INDEX	F5G04830
	00422	0 00000 0 00000	483	S1V5		(+/-)=DECIDE ON (MOST/LEAST) REPL. I.R.	F5G04840
	00423	0 00000 0 00000	484	S1V6		TEMP	F5.04850
	00424	0 00000 0 00000	485	S1V7		STORAGE	F5G04860
			486			THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS,	F5G04870
			487			AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH	F5G04880
			488			SYMBOL 777776. IHASH MEANS THE REGISTER IS NOT EMPTY BUT	F5G04890
			489			ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 OR	F5G04900
			490			DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IR	F5G04910
			491			IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))	F5G04920
	00425	0 00000 0 00000	492	IR1		THE 3 I.R.S IN	F5G04930
	00426	0 00000 0 00000	493	IR2		THE LAST 1/2 OF REGISTER	F5G04940
	00427	0 00000 0 00000	494	IR3			F5G04950
	00430	0 00000 0 00000	495	IRR		HOLDS 3,2,1 IF IR1,2,3 SELECTED	F5G04960
	00431	0 00000 0 00000	496	IND1		+ OR - ACCORDING AS IR1 FOUND OR IR1 NOT FOUND	F5G04970
	00432	0 00000 0 00000	497	IND2		+	F5G04980
	00433	0 00000 0 00000	498	IND3		+	F5G04990
	00434	0 00000 0 00000	499	IN4		+F OR - IF IR HAS OR HASNT BEEN FOUND	F5G05000
			500			VARIABLES OF S3 SUBROUTINE	F5G05010
	00435	0 00000 0 00000	501	S3V1		LOCATION OF 1ST TAG IN BB	F5G05020
	00436	0 00000 0 00000	502	S3V2		TAG COUNTER,IN DECR. PART.	F5G05030
	00437	0 00000 0 00000	503	S3V3		+ NO. OF TAGS LEFT IN BB AFTER TIX,OR-	F5G05040
	00440	0 00000 0 00000	504	S3V4		LOOP LIST INDEX.	F5G05050
	00441	0 00000 0 00000	505	1TAG		THE TAN-TAG	F5G05060
	00442	0 00000 0 00000	506	TPE		THE TYPE OF INSTR.	F5G05070
	00443	0 00000 0 00000	507	INTAG		TAG + INSTR. TYPE (ENTRY IN TAG LIST)	F5G05080
	00444	0 00000 0 00000	508	S3V5		LOOP LIST QUANTITY	F5G05090
	00445	0 00000 0 00000	509	S3V8		RETURN INDEX	F5G05100
	00446	0 00000 0 00000	510	S3V6		(1ST TAG IN BB-1ST TAG IN C.M.)	F5G05110
	00447	0 00000 0 00000	511	S3V7		NO. OF WORDS LEFT IN C.M.	F5G05120
	00450	0 00000 0 00000	512	S3V9		(+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB)	F5G05130
			513			VARIABLES OF S4	F5G05140
	00451	0 00000 0 00000	514	S4V1		LOC OF 1ST TAG IN CMTAG	F5G05150
	00452	0 00000 0 00000	515	S4V2		LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.)	F5G05160
	00453	0 00000 0 00000	516	S4V3		(LOC OF LAST TAG)+ 1	F5G05170
			517			ABOVE MUST BE SET AT START.	F5G05180
	00454	0 00000 0 00000	518	S4V4		(LOC. OF 1ST TAG IN BB-POS OF TAPE)	F5G05190
			519			VARIABLES FOR MATCHING SUBROUTINE S5	F5G05200
	00455	0 00000 0 00000	520	IR4		TEMP. STORAGE FOR C (IR1)	F5G05210
	00456	0 00000 0 00000	521	IR5		TEMP. STORAGE FOR C (IR2)	F5G05220
	00457	0 00000 0 00000	522	IR6		TEMP. STORAGE FOR C (IR3)	F5G05230
	00460	0 00000 0 00000	523	ENC		COUNTER OF =	F5G05240
	00461	0 00000 0 00000	524	IRC		COUNTER OF =	F5G05250
			525			THE IN 1,2,3, EN4,5,6 CELLS ARE LOADED BY THE S5 R0UTINE	F5G05260
			526			FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN	F5G05270
			527			ALREADY TREATED REGI0N UPON ENTRY TO THIS REGION IN LPLST.	F5G05280
			528			OPTIMIZED MATCH T0 CURRENT CONTENTS OF IR1,2,3 IS SECURED BY	F5G05290
			529			PERMUTING THE ENTIRE REGION AS NECESSARY. THE IN1,2,3	F5G05300
			530			AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3, EX1,2,3	F5G05310
			531			ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3,	F5G05320
			532			AC1,2,3, LX1,2,3. FOR EXAMPLE EN4 IS 3,2,OR1 DEPENDING ON	F5G05330
			533			WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3. INVERSELY,	F5G05340
			534			IN1 IS 3,2,OR1 FOR THE CORRESPONDENT OF IR1 EQUAL TO EN1,2,3.	F5G05350
	00462	0 00000 0 00000	535	IN1		INDEX OF CORRES 0F IR1	F5G05360
	00463	0 00000 0 00000	536	IN2		INDEX OF CORRES OF IR2	F5G05370
	00464	0 00000 0 00000	537	IN3		INDEX OF CORRES OF IR3	F5G05380
	00465	0 00000 0 00000	538	EN4		INDEX OF CORRES 0F EN1	F5G05390
	00466	0 00000 0 00000	539	EN5		INDEX OF CORRES OF EN2	F5G05400
	00467	0 00000 0 00000	540	EN6		INDEX OF CORRES OF EN3	F5G05410
	00470	0 00000 0 00000	541	EN1		THE ENTRANCE REQUIREM	F5G05420
	00471	0 00000 0 00000	542	EN2		ENTS EN1,ENZ,EN3.	F5G05430
	00472	0 00000 0 00000	543	EN3			F5G05440
	00473	0 00000 0 00000	544	S5V1		TEMP. STORE FOR RETURN INDEX.	F5G05450
	00474	0 00000 0 00000	545	S5V2		TEMP STORE FOR LOOP LIST QUANT.	F5G05460
	00475	0 00000 0 00000	546	S9V1		TEMP. STORE FOR BB NO.	F5G05470
	00476	0 00000 0 00000	547	S9V2		TEMP. STORE FOR RETURN INDEX	F5G05480
	00477	0 00000 0 00000	548	S9V4		TEMP. STORE FOR REGION WORD.	F5G05490
			549			VARIABLES 0F SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS)	F5G05500
	00500	0 00000 0 00000	550	SAV1		TEMP STORE FOR PERMUTATION NOS.	F5G05510
	00501	0 00000 0 00000	551	SAV2		RETURN INDEX.	F5G05520
	00502	0 00000 0 00000	552	SAV3		TEMP. STORE FOR REGION WORD.	F5G05530
			553			THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THAT	F5G05540
			554			HAS ALREADY BEEN TREATED.	F5G05550
	00503	0 00000 0 00000	555	EX1		3 EXIT CONDITIONS	F5G05560
	00504	0 00000 0 00000	556	EX2			F5G05570
	00505	0 00000 0 00000	557	EX3			F5G05580
			558			THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BB	F5G05590
	00506	0 00000 0 00000	559	ACT1		3 ACTIVE	F5G05600
	00507	0 00000 0 00000	560		HTR	− INDICATORS	F5G05610
	00510	0 00000 0 00000	561		HTR	−	F5G05620
			562			VARIABLES OF SB	F5G05630
	00511	0 00000 0 00000	563	SBV1		RETURN INDEX	F5G05640
	00512	0 00000 0 00000	564	SBV2		TEMP. STORAGE.	F5G05650
	00513	0 00000 0 00000	565	SBV3		TEMP. STORAGE.	F5G05660
	00514	0 00000 0 00000	566	SBV4		INDEX OF REGISTER WHICH IS ACTIVE.	F5G05670
	00515	0 00000 0 00000	567	SBV5		STORAGE FOR PERMUTATION NOS.	F5G05680
	00516	0 00000 0 00000	568	SCV1		RETURN INDEX	F5G05690
	00517	0 00000 0 00000	569	SCV2		INDEX OF BB.	F5G05700
	00520	0 00000 0 00000	570	SCV3		INDEX OF POSITION IN LOOP LIST	F5G05710
	00521	0 00000 0 00000	571	ACIND		+ OR - MEANS 2ED OR ACTIVE PASS	F5G05720
	00522	0 00000 0 00000	572	SDV1		STORE FOR RETURN INDEX.	F5G05730
	00523	0 00000 0 00000	573	SDV2		INDEX OF ACTIVE I.R.	F5G05740
	00524	0 00000 0 00000	574	SDV3		THE PERMUTATION NOS.	F5G05750
	00525	0 00000 0 00000	575	SDV4		TEMP. STORE FOR INDEX OF BB	F5G05760
	00526	0 00000 0 00000	576	SFV1		ACTIVE INDICATOR FORMED HERE.	F5G05770
	00527	0 00000 0 00000	577	SFV2		RETURN INDEX.	F5G05780
	00530	0 00000 0 00000	578	SGV1		RETURN INDEX	F5G05790
	00531	0 00000 0 00000	579	SGV2		PERMUTED REGION WORD	F5G05800
	00532	0 00000 0 00000	580	FV1		HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY)	F5G05810
	00533	0 00000 0 00000	581	FV2		BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.)	F5G05820
	00534	0 00000 0 00000	582	FV3		PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.)	F5G05830
	00535	0 00000 0 00000	583	FV4		WORD HAVING REGION NO. (5TH BB WORD)	F5G05840
	00536	0 00000 0 00000	584	FV5		CURRENT BB NO. BEING CONSIDERED. (ADDR.)	F5G05850
	00537	0 00000 0 00000	585	FV6		RETURN INDEX OF F1,F80	F5G05860
	00540	0 00000 0 00000	586	FV7		PRED. NO. BEING CONSIDERED IN B.B. (ADDR.)	F5G05870
	00541	0 00000 0 00000	587	FV8		FIRST PRED. FROM NEXT B.B. (ADDR.)	F5G05880
	00542	0 00000 0 00000	588	FV9		0,0,−	F5G05890
	00543	0 00000 0 00000	589	FV10		0,0,−	F5G05900
	00544	0 00000 0 00000	590	FV101		HIGHEST FREQ. IN BB (PRED. TABLE ENTRY)	F5G05910
	00545	0 00000 0 00000	591	FV102		BB NO. BEING CONSIDERED. (ADDR.)	F5G05920
	00546	0 00000 0 00000	592	FV103		PRED. NO. (0TH WORD FROM BB) (ADDR.)	F5G05930
	00547	0 00000 0 00000	593	FV104		WORD HAVING REGION. NO.	F5G05940
	00550	0 00000 0 00000	594	LPIND		+ OR - IF IT ISNT 0F IS A LOOP	F5G05950
	00551	0 00000 0 00000	595	LV1		THE CONDITIONS OF THE I.R.S	F5G05960
	00552	0 00000 0 00000	596	LV2		AT END OF THE	F5G05970
	00553	0 00000 0 00000	597	LV3		1ST LXING PASS.	F5G05980
	00554	0 00000 0 00000	598	LV4		THE LOOP LIST QUANTITY	F5G05990
	00555	0 00000 0 00000	599	LV5		WORD FROM BB WITH PRED. AND SUCC. LOCS	F5G06000
			600			VARIABLES OF 2ED LXING PASS.	F5G06010
			601			ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS,	F5G06020
			602			IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX	F5G06030
			603			REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THE SAME	F5G06040
			604			REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED	F5G06050
			605			TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS, THE	F5G06060
			606			SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE	F5G06070
			607			INSTRUCTION. THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING	F5G06080
			608			CARE OF THE PROBLEM. AT THE END OF LPLST, IF THE INDEX	F5G06090
			609			REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE	F5G06100
			610			REGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS	F5G06110
			611			IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY	F5G06120
			612			MINUS. THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED. THE	F5G06130
			613			APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE	F5G06140
			614			APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER	F5G06150
			615			THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB	F5G06160
			616			ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM	F5G06170
			617			THAT BB. THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVE	F5G06180
			618			INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER	F5G06190
			619			0F SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW	F5G06200
			620			FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT	F5G06210
			621			PROGRAM TIME.	F5G06220
			622			THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3.	F5G06230
			623			ZERO...NOT ACTIVE, PLUS ACTIVITY...ACTIVE INSTRUCTION IN A	F5G06240
			624			BB NOT TREATED UNTIL THIS LPLST. AC1,2,3 CONTAINS INFO.	F5G06250
			625			FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION.	F5G06260
			626			MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION.	F5G06270
			627			AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK	F5G06280
			628			OUT OF THE REGION.	F5G06290
	00556	0 00000 0 00000	629	AC1		3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE	F5G06300
	00557	0 00000 0 00000	630	AC2		IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS	F5G06310
	00560	0 00000 0 00000	631	AC3		LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE,	F5G06320
	00561	0 00000 0 00000	632		HTR	0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR.	F5G06330
			633			THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.	F5G06340
	00562	0 00000 0 00000	634	LX1		3 ENTRANCE REQUIREMENTS OF A BB	F5G06350
	00563	0 00000 0 00000	635	LX2		BUILT UP HERE. +0 MEANS	F5G06360
	00564	0 00000 0 00000	636	LX3		NO ENTRANCE REQU. DETERMINED.	F5G06370
	00565	0 00000 0 00000	637	XV1		IN DECR., INDEX OF CURRENT REGION	F5G06380
	00566	0 00000 0 00000	638	XV2		THE NEW REGION WORD.	F5G06390
	00567	0 00000 0 00000	639	XV3		THE WORD POSITION IN STAG	F5G06400
	00570	0 00000 0 00000	640	XV4		THE DIGIT INDEX WITHIN THE WORD.	F5G06410
	00571	0 00000 0 00000	641	XV5		THE LOCATION OF CURRENT TAG (INSTR.)	F5G06420
	00572	0 00000 0 00000	642	XV6		NEAR XO7,C.F. OF TNX BRANCH,NEAR X85, TAG	F5G06430
	00573	0 00000 0 00000	643	XV7		X07 TO X09+,INDEX OF BB,NEAR X85,TAG	F5G06440
	00574	0 00000 0 00000	644	XV8		INDEX OF BB NE-R X33	F5G06450
			645			PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN	F5G06460
			646			ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AND BBB MUST	F5G06470
			647			BE UPDATED. INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION	F5G06480
			648			NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING	F5G06490
			649			REQUIRES ONLY THESE NUMBERS TO BE CHANGED. IN SECTION 5 PART	F5G06500
			650			2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES	F5G06510
			651			THEMSELVES ARE ACTUALLY UPDATED.	F5G06520
	00575	0 00000 0 00000	652	XV9		THE PERMUTATION NOS.	F5G06530
	00576	0 00000 0 00000	653	XV10		INDEX OF I.R. IN BB CONSIDERED.	F5G06540
	00577	0 00000 0 00000	654	XV11			F5G06550
	00600	0 00000 0 00000	655	XV12			F5G06560
	00601	0 00000 0 00000	656	XV13		INDEX OF PARTICULAR BB X40 ON	F5G06570
	00602	0 00000 0 00000	657	XV14		TEMP. STORE FOR 2 INDEXES	F5G06580
	00603	0 00000 0 00000	658	XV15		WHILE USING SUBROUTINE.	F5G06590
	00604	0 00000 0 00000	659	XV16		TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON	F5G06600
	00605	0 00000 0 00000	660	XV17		TEMP. STORE FOR OLD REGION WD.,X74	F5G06610
	00606	0 00000 0 00000	661	XV18		IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR.	F5G06620
	00607	0 00000 0 00000	662	XV19		TEMP STORE FOR PREVIOUS LPLST QUANTITY	F5G06630
	00610	0 00000 0 00000	663	XV20		TEMP STORE IN DECR. ONLY	F5G06640
	00611	0 00000 0 00000	664	XV21		TEMP STORE FOR TAG NEAR X43	F5G06650
	00612	0 00000 0 00000	665	XV22		NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED	F5G06660
	00613	0 00000 0 00000	666	XV23		DECR ONLY , TEMP STORE FOR REGION INDEX	F5G06670
	00614	0 00000 0 00000	667	XV24		0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION	F5G06680
	00615	0 00000 0 00000	668	AV1		TEMP. STORE FOR PRED. TABLE ENTRY.	F5G06690
	00616	0 00000 0 00000	669	AV2		TEMP. STORE FOR INDEX OF I.R.	F5G06700
	00617	0 00000 0 00000	670	AV3		TEMP. STORE FOR PERM. NOS.	F5G06710
			671			THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST	F5G06720
			672			(S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD	F5G06730
			673			THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN	F5G06740
			674			SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE	F5G06750
			675			R0UTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO	F5G06760
			676			SELECT AN IR.	F5G06770
	00620	−0 76000 0 00003	677	S111	SSM	SET INDICATOR TO-MEANING	F5G06780
	00621	0 02000 0 00623	678		TRA	S109 SEARCH FOR LEAST REPLACEABLE I.R.	F5G06790
	00622	0 76000 0 00003	679	S1	SSP	SET INDICATOR TO + MEANING	F5G06800
	00623	0 60100 0 00422	680	S109	STO	S1V5 SEARCH FOR MOST REPLACEABLE I.R.	F5G06810
	00624	−0 63400 4 00421	681		SXD	S1V4,4 STORE RETURN INDEX.	F5G06820
	00625	−0 76000 0 00003	682		SSM	SET	F5G06830
	00626	0 60100 0 00431	683		STO	IND1 INDICATORS	F5G06840
	00627	0 60100 0 00432	684		STO	IND2 TO	F5G06850
	00630	0 60100 0 00433	685		STO	IND3 NOT	F5G06860
	00631	0 60100 0 00434	686		STO	IN4 FOUND.	F5G06870
	00632	−0 53400 2 00641	687		LXD	S123,2 SET TO LO0P FOR EMPTY I.R.	F5G06880
	00633	0 53400 1 00342	688	S119	LXA	S5K5,1 SET COUNT TO 3, N TO 1	F5G06890
	00634	0 50000 1 00430	689	S120	CLA	IR1+3,1 IS IRN EMPTY OR	F5G06900
	00635	0 34000 2 00000	690		CAS	0,2 (FILLED WITH HASH)	F5G06910
	00636	−3 77445 0 00640	691	S121	TXL	S122,0,−LK1 NO, COM(LOC. OF HASH) IN DECR.	F5G06920
	00637	0 02000 0 00644	692		TRA	S124 YES,	F5G06930
	00640	2 00001 1 00634	693	S122	TIX	S120,1,1 NO,C0UNT TO 3,N=N+1	F5G06940
	00641	3 77442 2 00662	694	S123	TXH	S127,2,−S5K1 HAVE WE LOOKED FOR HASH	F5G06950
	00642	−0 53400 2 00636	695		LXD	S121,2 NO,SET TO LOOP FOR HASH.	F5G06960
	00643	0 02000 0 00633	696		TRA	S119	F5G06970
	00644	0 50200 0 00422	697	S124	CLS	S1V5 LOOKING FOR MOST REPLACEABLE	F5G06980
	00645	−0 12000 0 00656	698		TMI	S129 I.R.	F5G06990
	00646	0 60100 1 00434	699		STO	IND1+3,1 NO, RECORD IRN ELIMINATED	F5G07000
	00647	0 56000 0 00434	700		LDQ	IN4	F5G07010
	00650	0 60100 0 00434	701		STO	IN4 RECORD SOME IR ELIMINATED	F5G07020
	00651	0 16200 0 00653	702		TQP	S128 HAS AN IR BEEN ELIMINATED BEFORE	F5G07030
	00652	0 02000 0 00640	703		TRA	S122 NO,	F5G07040
	00653	0 53400 1 00342	704	S128	LXA	S5K5,1 SET COUNT TO 3,N=1	F5G07050
	00654	0 50000 1 00434	705	S126	CLA	IND1+3,1 HAS IRN	F5G07060
	00655	0 12000 0 00660	706		TPL	S125 BEEN ELIMINATED	F5G07070
	00656	−0 63400 1 00430	707	S129	SXD	IRR,1 NO,SELECT IRN	F5G07080
	00657	0 02000 4 00001	708		TRA	1,4 AND RETURN.	F5G07090
	00660	2 00001 1 00654	709	S125	TIX	S126,1,1 COUNT TO 3,N=N+1	F5G07100
	00661	0 07400 4 00004	710	S130	TSX	4,4 DIAGNOSTIC, THERE IS AN ERROR.	F5G07110
	00662	0 50000 0 01122	711	S127	CLA	S39	F5G07120
	00663	0 60100 0 00420	712		STO	S1V3 STORE ASIDE	F5G07130
	00664	0 53400 4 00320	713		LXA	S1K3,4 THE	F5G07140
	00665	0 50000 4 00445	714	S112	CLA	S3V1+8,4 STATE	F5G07150
	00666	0 60100 4 00420	715		STO	S1V1+8,4 OF THE	F5G07160
	00667	2 00001 4 00665	716		TIX	S112,4,1 S3 ROUTINE.	F5G07170
	00670	0 07400 4 01023	717	S11	TSX	S3,4 GET NEXT TAG	F5G07180
	00671	0 02000 0 00706	718		TRA	S103 COME HERE IF TAG NOT GOT.	F5G07190
	00672	0 50000 0 00410	719		CLA	S1V1	F5G07200
	00673	0 34000 0 00435	720		CAS	S3V1 IS THE LOOP C0MPLETED	F5G07210
	00674	0 02000 0 00676	721		TRA	S104 NO	F5G07220
	00675	0 02000 0 00701	722		TRA	S135 PERHAPS	F5G07230
	00676	0 07400 4 00766	723	S104	TSX	S2,4 NO	F5G07240
	00677	0 02000 0 00745	724		TRA	S16 COME HERE IF IR DECIDED ON	F5G07250
	00700	0 02000 0 00670	725		TRA	S11 COME HERE IF NOT DECIDED ON	F5G07260
	00701	0 50000 0 00411	726	S135	CLA	S1V1+1 IS THE LOOP COMPLETED	F5G07270
	00702	0 34000 0 00436	727		CAS	S3V2	F5G07280
	00703	0 02000 0 00676	728		TRA	S104	F5G07290
	00704	0 02000 0 00741	729		TRA	S102 YES	F5G07300
	00705	0 02000 0 00676	730		TRA	S104	F5G07310
	00706	0 34000 0 00323	731	S103	CAS	S3K1 IS THIS AN END LOOP LIST	F5G07320
	00707	0 02000 0 00711	732		TRA	S105 NO	F5G07330
	00710	0 02000 0 00763	733		TRA	S101 YES	F5G07340
	00711	0 50000 0 00444	734	S105	CLA	S3V5 GET LOOP LIST QUANTITY AGAIN.	F5G07350
	00712	0 34000 0 00324	735		CAS	S3K2 IS IT A BB	F5G07360
	00713	0 76100 0 00000	736		NOP	NO,IT IS EITHER A TRANSPARENT	F5G07370
	00714	0 02000 0 00716	737		TRA	P001 OR OPAQUE REGION	F5G07380
	00715	0 02000 0 00670	738		TRA	S11 YES	F5G07390
	00716	0 34000 0 00417	739	P001	CAS	S1V1+7	F5G07400
	00717	0 02000 0 00721	740		TRA	S136	F5G07410
	00720	0 02000 0 00741	741		TRA	S102	F5G07420
	00721	0 07400 4 00070	742	S136	TSX	SE,4 GET BB WHICH CONTAINS ENTR. REQU.	F5G07430
	00722	0 56000 0 00317	743		LDQ	S1K2 MAKE THIS LOOK LIKE A	F5G07440
	00723	−0 60000 0 00442	744		STQ	TPE PASSIVE REFERENCE.	F5G07450
	00724	0 53400 4 00342	745		LXA	S5K5,4 SET COUNT TO 3.	F5G07460
	00725	−0 50000 1 12535	746	S115	CAL	BBB+2,1 PUT THIS TAU TAG	F5G07470
	00726	0 77100 0 00022	747		ARS	18 IN LOCATION	F5G07480
	00727	0 60200 0 00441	748		SLW	1TAG TAG	F5G07490
	00730	−0 63400 1 00423	749		SXD	S1V6,1 STORE THE	F5G07500
	00731	−0 63400 4 00424	750		SXD	S1V7,4 INDEXES.	F5G07510
	00732	0 07400 4 00766	751		TSX	S2,4 TRY TO SELECT AN I.R.	F5G07520
	00733	0 02000 0 00745	752		TRA	S16 COME HERE IF I.R. SELECTED.	F5G07530
	00734	−0 53400 1 00423	753		LXD	S1V6,1 AND HERE IF NOT. RESTORE	F5G07540
	00735	−0 53400 4 00424	754		LXD	S1V7,4 THE INDEXES.	F5G07550
	00736	1 77777 1 00737	755		TXI	S114,1,−1 DECREASE ENTR. INDEX	F5G07560
	00737	2 00001 4 00725	756	S114	TIX	S115,4,1 COUNT TO 3.	F5G07570
	00740	0 02000 0 00670	757		TRA	S11	F5G07580
	00741	0 50000 0 00431	758	S102	CLA	IND1 HAS C(IR1) BEEN	F5G07590
	00742	0 12000 0 00756	759		TPL	S13 FOUND (ELIMINATED)	F5G07600
	00743	0 53400 4 00342	760	S18	LXA	S5K5,4 NO,SELECT	F5G07610
	00744	−0 63400 4 00430	761	S15	SXD	IRR,4 IR1.	F5G07620
	00745	0 53400 4 00320	762	S16	LXA	S1K3,4 RESTORE S3 (GET NEXT TAG SR)	F5G07630
	00746	0 50000 4 00420	763	S113	CLA	S1V1+8,4 TO STATE	F5G07640
	00747	0 60100 4 00445	764		STO	S3V1+8,4 BEFORE	F5G07650
	00750	2 00001 4 00746	765		TIX	S113,4,1 S1 WAS USED.	F5G07660
	00751	0 50000 0 00420	766		CLA	S1V3	F5G07670
	00752	0 60100 0 01122	767		STO	S39	F5G07680
	00753	0 07400 4 01133	768		TSX	S4,4 MAKE SURE SAME TAGS ARE IN CM.	F5G07690
	00754	−0 53400 4 00421	769		LXD	S1V4,4	F5G07700
	00755	0 02000 4 00001	770	S14	TRA	1,4 RETURN	F5G07710
	00756	0 50000 0 00432	771	S13	CLA	IND2 HAS IR2 BEEN	F5G07720
	00757	0 12000 0 00762	772		TPL	S107 FOUND (ELIMINATED)	F5G07730
	00760	0 53400 4 00341	773	S108	LXA	S5K4,4 NO,SELECT	F5G07740
	00761	0 02000 0 00744	774		TRA	S15 IR2.	F5G07750
	00762	0 07400 4 00004	775	S107	TSX	4,4 DIAGNOSTIC, THERE IS AN ERROR	F5G07760
			776			OF SOME KIND.	F5G07770
	00763	0 56000 0 00550	777	S101	LDQ	LPIND IS THIS	F5G07780
	00764	0 16200 0 00741	778		TQP	S102 A LOOP	F5G07790
	00765	0 02000 0 00670	779		TRA	S11 YES	F5G07800
	00766	0 50000 0 00441	780	S2	CLA	1TAG PUT TAU-TAG IN AC.	F5G07810
	00767	0 53400 1 00342	781		LXA	S5K5,1 SET COUNT TO 3.	F5G07820
	00770	0 56000 1 00434	782	S22	LDQ	IND1+3,1	F5G07830
	00771	0 16200 0 00775	783		TQP	S21 BEEN FOUND	F5G07840
	00772	0 34000 1 00430	784		CAS	IR1+3,1 NO, IS TAU TAG EQUAL	F5G07850
	00773	0 02000 0 00775	785		TRA	S21 NO,TO C(IRN)	F5G07860
	00774	0 02000 0 00777	786		TRA	S24 YES	F5G07870
	00775	2 00001 1 00770	787	S21	TIX	S22,1,1 NO.	F5G07880
	00776	0 02000 4 00002	788		TRA	2,4 RETURN TO L(TSX)+2	F5G07890
	00777	0 50000 0 00442	789	S24	CLA	TPE IS IT A DED, LXP, OR LX CLASS.	F5G07900
	01000	0 34000 0 00403	790		CAS	XK21 IF SO, MAKE P=1, MAKING TEST=TMI S25	F5G07910
	01001	−0 50100 0 00340	791		ORA	S5K3 WHILE IF SO MAKE TEST TPL S25.	F5G07920
	01002	0 76100 0 00000	792		NOP	THUS GO TO S23 AND USE IT IF LXP,DED,LX	F5G07930
	01003	0 63000 0 01005	793		STP	TEST AND TAGS LEFT IN BB AFTER TIX, OR	F5G07940
	01004	0 50200 0 00422	794		CLS	S1V5 IF OTHER AND NO TAGS LEFT IN BB AFTER TIX.	F5G07950
	01005	−0 12000 0 01010	795	TEST	TMI	S25 THIS MIGHT BE A TPL S25.	F5G07960
	01006	−0 63400 1 00430	796	S23	SXD	IRR,1 RECORD IRN INDEX.	F5G07970
	01007	0 02000 4 00001	797		TRA	1,4	F5G07980
	01010	0 56000 0 00314	798	S25	LDQ	ZERO RECORD IRN FOUND OR ELIM	F5G07990
	01011	−0 60000 1 00434	799		STQ	IND1+3,1	F5G08000
	01012	0 50200 0 00434	800		CLS	IN4 HAS ONE OTHER I R BEEN	F5G08010
	01013	−0 12000 0 01016	801		TMI	S26 (FOUND/ELIM)	F5G08020
	01014	0 60100 0 00434	802		STO	IN4	F5G08030
	01015	0 02000 4 00002	803		TRA	2,4	F5G08040
	01016	0 53400 1 00342	804	S26	LXA	S5K5,1 SEARCH FOR THE	F5G08050
	01017	0 50000 1 00434	805	S27	CLA	IND1+3,1 I.R. WHICH HASNT	F5G08060
	01020	−0 12000 0 01006	806		TMI	S23 BEEN (FOUND/ELIM) YET.	F5G08070
	01021	2 00001 1 01017	807		TIX	S27,1,1	F5G08080
	01022	0 07400 4 00004	808		TSX	4,4 NOT FOUND, DIAGNOSTIC	F5G08090
			809			THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES.	F5G08100
			810			IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES	F5G08110
			811			THE TAG FEED EXIT. IN THE LATTER IT FEEDS THE NEXT ITEM FROM	F5G08120
			812			LPLST AND TAKES THE LPLST FEED EXIT. WHEN IT COMES TO A	F5G08130
			813			EPLST ITEM WHICH IS A BB AND NOT IN A REGION, IT GOES TO	F5G08140
			814			FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM IN	F5G08150
			815			THAT BB HAS BEEN FED. THEN IT RETURNS T0 LPLST FEED. WHEN	F5G08160
			816			SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE	F5G08170
			817			BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE. IT USES	F5G08180
			818			THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.	F5G08190
	01023	−0 53400 1 00436	819	S3	LXD	S3V2,1 ARE THERE ANY	F5G08200
	01024	2 00001 1 01122	820		TIX	S39,1,1	F5G08210
	01025	−0 63400 4 00445	821		SXD	S3V8,4 NO,STORE RETURN INDEX	F5G08220
	01026	0 50000 0 00437	822		CLA	S3V3	F5G08230
	01027	0 60100 0 00450	823		STO	S3V9	F5G08240
	01030	0 12000 0 01114	824		TPL	S300 ARE THERE ANY MORE TAGS IN BB	F5G08250
	01031	−0 53400 1 00440	825		LXD	S3V4,1 NO	F5G08260
	01032	0 50000 0 00444	826		CLA	S3V5 WAS THE LAST THING	F5G08270
	01033	0 12000 0 01035	827		TPL	S306 AN END LPLST	F5G08280
	01034	−0 53400 1 00325	828		LXD	S3K3,1 YES, RESET LPLST IN0EX	F5G08290
	01035	0 50000 1 05035	829	S306	CLA	LPLST+S3P1,1 GET LOOP LIST QUANTITY	F5G08300
	01036	0 60100 0 00444	830		STO	S3V5 QUANT1TY.	F5G08310
	01037	1 77777 1 01040	831		TXI	S31,1,−1	F5G08320
	01040	−0 63400 1 00440	832	S31	SXD	S3V4,1 THE INDEX.	F5G08330
	01041	0 34000 0 00323	833		CAS	S3K1 IS THIS END OF LOOP LIST	F5G08340
	01042	0 02000 0 01044	834		TRA	S32 NO,	F5G08350
	01043	0 02000 0 01052	835		TRA	S35 YES,	F5G08360
	01044	0 34000 0 00324	836	S32	CAS	S3K2	F5G08370
	01045	0 76100 0 00000	837		NOP	NO	F5G08380
	01046	0 02000 0 01050	838		TRA	S305	F5G08390
	01047	0 02000 0 01053	839		TRA	S34 YES	F5G08400
	01050	−0 53400 4 00445	840	S305	LXD	S3V8,4	F5G08410
	01051	0 50000 0 00444	841		CLA	S3V5 RETURN WITH LOOP	F5G08420
	01052	0 02000 4 00001	842	S35	TRA	1,4 LIST QUANTITY	F5G08430
	01053	0 07400 4 00070	843	S34	TSX	SE,4 GET INDEX OF BB	F5G08440
	01054	0 50000 1 12534	844		CLA	BBB+1,1	F5G08450
	01055	−0 32000 0 00326	845		ANA	S3K4 GET AND STORE THE	F5G08460
	01056	0 60100 0 00435	846	S303	STO	S3V1 TAG LOCATION.	F5G08470
	01057	0 07400 4 01133	847		TSX	S4,4 GO TO PUT TAG IN CM.	F5G08480
	01060	0 60100 0 00446	848		STO	S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.)	F5G08490
	01061	0 40200 0 00330	849		SUB	S4K1 FORM NO. OF	F5G08500
	01062	0 76000 0 00003	850		SSP	WDS LEFT IN C.M.	F5G08510
	01063	0 60100 0 00447	851		STO	S3V7	F5G08520
	01064	0 50000 0 00444	852		CLA	S3V5 GET THE	F5G08530
	01065	0 40000 0 00316	853		ADD	ONED LOC. OF 1ST	F5G08540
	01066	0 07400 4 00070	854		TSX	SE,4 TAG IN	F5G08550
	01067	0 50000 1 12534	855		CLA	BBB+1,1 NEXT BB.	F5G08560
	01070	−0 32000 0 00326	856		ANA	S3K4	F5G08570
	01071	0 40200 0 00435	857		SUB	S3V1 IS NO. OF TAGS IN BB LESS	F5G08580
	01072	0 34000 0 00447	858		CAS	S3V7 THAN OR EQUAL TO SPACE IN C.M.	F5G08590
	01073	0 02000 0 01076	859		TRA	S304	F5G08600
	01074	0 02000 0 01117	860		TRA	S36 YES,	F5G08610
	01075	0 02000 0 01117	861		TRA	S36 YES,	F5G08620
	01076	0 40200 0 00447	862	S304	SUB	S3V7 STORE S EXCESS OF TAGS	F5G08630
	01077	0 60100 0 00437	863		STO	S3V3	F5G08640
	01100	0 50000 0 00447	864		CLA	S3V7	F5G08650
	01101	0 73400 1 00000	865	S302	PAX	0,1 SET COUNT OF NO. OF TAGS.	F5G08660
	01102	1 00001 1 01103	866	S37	TXI	S38,1,1	F5G08670
	01103	−0 63400 1 00436	867	S38	SXD	S3V2,1	F5G08680
	01104	0 40000 0 00332	868		ADD	S4K3 SET ADDRESS OF	F5G08690
	01105	0 40000 0 00446	869		ADD	S3V6 CLA	F5G08700
	01106	0 62100 0 01122	870		STA	S39 INSTRUCTION.	F5G08710
	01107	−0 53400 4 00445	871		LXD	S3V8,4	F5G08720
	01110	0 50000 0 00450	872		CLA	S3V9 IS THIS A	F5G08730
	01111	0 12000 0 01023	873		TPL	S3 NEW BB	F5G08740
	01112	0 50000 0 00444	874		CLA	S3V5 YES,RETURN WITH	F5G08750
	01113	0 02000 4 00001	875		TRA	1,4 LOOP LIST QUANTITY.	F5G08760
	01114	0 50000 0 00451	876	S300	CLA	S4V1 NEXT TAG NEEDED HAS	F5G08770
	01115	0 40000 0 00330	877		ADD	S4K1 LOC. (S+1ST TAG IN C.M.)	F5G08780
	01116	0 02000 0 01056	878		TRA	S303	F5G08790
	01117	0 56000 0 00323	879	S36	LDQ	S3K1	F5G08800
	01120	−0 60000 0 00437	880		STQ	S3V3	F5G08810
	01121	0 02000 0 01101	881		TRA	S302	F5G08820
	01122	0 50000 1 00000	882	S39	CLA	−,1 GET TAG WORD	F5G08830
	01123	−0 63400 1 00436	883		SXD	S3V2,1	F5G08840
	01124	0 60100 0 00443	884		STO	INTAG AND	F5G08850
	01125	−0 32000 0 00326	885		ANA	S3K4 SEPARATE TYPE	F5G08860
	01126	0 60100 0 00441	886		STO	1TAG FROM	F5G08870
	01127	−0 50000 0 00327	887		CAL	S3K5 TAU-TAG.	F5G08880
	01130	−0 32000 0 00443	888		ANA	INTAG	F5G08890
	01131	0 60100 0 00442	889		STO	TPE	F5G08900
	01132	0 02000 4 00002	890		TRA	2,4	F5G08910
	01133	0 50000 0 00435	891	S4	CLA	S3V1 FORM (LOC. OF 1ST TAG IN BB	F5G08920
	01134	0 40200 0 00451	892		SUB	S4V1 -LOC. OF 1ST TAG IN CM)	F5G08930
	01135	−0 12000 0 01142	893		TMI	S41 IS TAG IN C.M.	F5G08940
	01136	0 34000 0 00330	894		CAS	S4K1 POSSIBLY,IS IT FOR SURE	F5G08950
	01137	0 76100 0 00000	895		NOP	NO	F5G08960
	01140	0 02000 0 01142	896		TRA	S41 NO	F5G08970
	01141	0 02000 4 00001	897		TRA	1,4 YES. RETURN.	F5G08980
	01142	0 50000 0 00435	898	S41	CLA	S3V1 NO,FORM (LOC. OF 1ST TAG IN BB	F5G08990
	01143	0 40200 0 00452	899		SUB	S4V2 -POSITION OF TAPE)	F5G09000
	01144	−0 12000 0 01166	900		TMI	S42 MUST WE RUN TAPE BACK WORDS	F5G09010
	01145	0 60100 0 00454	901		STO	S4V4 NO,	F5G09020
	01146	0 50000 0 00453	902		CLA	S4V3 CAN ALL THE FOLLOWING TAGS	F5G09030
	01147	0 40200 0 00452	903		SUB	S4V2 BE PUT IN C.M.	F5G09040
	01150	0 34000 0 00330	904		CAS	S4K1	F5G09050
	01151	0 02000 0 01154	905		TRA	S401 NO	F5G09060
	01152	0 02000 0 01173	906		TRA	S45 YES,GO,TO SET COUNT	F5G09070
	01153	0 02000 0 01173	907		TRA	S45 YES,TO NO. OF TAGS IN BB.	F5G09080
	01154	0 50000 0 00454	908	S401	CLA	S4V4	F5G09090
	01155	0 34000 0 00331	909		CAS	S4K2 IS TAG IN NEXT RECORD	F5G09100
	01156	0 76100 0 00000	910		NOP	NO	F5G09110
	01157	0 02000 0 01161	911		TRA	S47	F5G09120
	01160	0 02000 0 01172	912		TRA	S44 YES	F5G09130
	01161	0 76200 0 00223	913	S47	RTB	TAPE NO, SPACE FWD 1 REC.	F5G09140
	01162	0 50000 0 00452	914		CLA	S4V2 ADJUST TAPE POSITION	F5G09150
	01163	0 40000 0 00331	915		ADD	S4K2	F5G09160
	01164	0 60100 0 00452	916	S43	STO	S4V2	F5G09170
	01165	0 02000 0 01142	917		TRA	S41	F5G09180
	01166	0 76400 0 00203	918	S42	BST	TAPE ADJUST TAPE POSITION	F5G09190
	01167	0 50000 0 00452	919		CLA	S4V2 AFTER BACKSPACING	F5G09200
	01170	0 40200 0 00331	920		SUB	S4K2 ONE RECORD.	F5G09210
	01171	0 02000 0 01164	921		TRA	S43	F5G09220
	01172	0 50000 0 00330	922	S44	CLA	S4K1 SET COUNT TO STORAGE SIZE.	F5G09230
	01173	0 73400 2 00000	923	S45	PAX	0,2	F5G09240
	01174	0 40000 0 00332	924		ADD	S4K3 SET CPY	F5G09250
	01175	0 62100 0 01207	925		STA	S46 ADDRESS.	F5G09=60
	01176	0 50000 0 00452	926		CLA	S4V2	F5G09270
	01177	0 60100 0 00451	927		STO	S4V1	F5G09280
	01200	0 76200 0 00223	928	S49	RTB	TAPE	F5G09290
	01201	−0 63400 2 01210	929		SXD	S407,2 STORE (2) IN CASE OF TAPE CHECK	F5G09300
	01202	−0 76000 0 00012	930		RTT	TURN OFF TAPE	F5G09310
	01203	0 76100 0 00000	931		NOP	CHECK.	F5G09320
	01204	0 50000 0 00452	932		CLA	S4V2 ADJUST	F5G09330
	01205	0 40000 0 00331	933		ADD	S4K2 TAPE	F5G09340
	01206	0 60100 0 00452	934		STO	S4V2 POSIT1ON	F5G09350
	01207	0 70000 2 00000	935	S46	CPY	−,2	F5G09360
	01210	1 00000 0 01216	936	S407	TXI	S48,0,− VALUE OF (2) STORED HERE	F5G09370
	01211	0 07400 4 00004	937		TSX	4,4 END OF FILE OCCURRED,DIAGNOSTIC	F5G09380
	01212	−0 63400 4 01244	938		SXD	S405,4	F5G09390
	01213	0 07400 4 01226	939		TSX	S406,4 CHECK REDUNDANCY BITS	F5G09400
	01214	−0 53400 4 01244	940		LXD	S405,4	F5G09410
	01215	0 02000 0 01200	941		TRA	S49	F5G09420
	01216	2 00001 2 01207	942	S48	TIX	S46,2,1 COUNT NO. OF WORDS CPYED.	F5G09430
	01217	0 70000 0 00454	943	S409	CPY	S4V4 COPY OUT TO	F5G09440
	01220	0 02000 0 01217	944		TRA	S409 END OF RECORD.	F5G09450
	01221	0 07400 4 00004	945		TSX	4,4 ERRONEOUS END OF FILE,DIAGNOSTIC	F5G09460
	01222	−0 63400 4 01244	946		SXD	S405,4 CHECK REDUNDANCY BITS	F5G09470
	01223	0 07400 4 01226	947		TSX	S406,4	F5G09480
	01224	−0 53400 4 01244	948		LXD	S405,4	F5G09490
	01225	0 02000 0 01133	949		TRA	S4	F5G09500
	01226	0 76600 0 00333	950	S406	IOD		F5G09510
	01227	−0 76000 0 00012	951		RTT		F5G09520
	01230	0 02000 0 01233	952		TRA	S402 TRY AGAIN	F5G09530
	01231	−0 63400 0 00151	953		SXD	TPCT,0 RESETS REPEAT COUNT	F5G09540
	01232	0 02000 4 00001	954	S404	TRA	1,4 RETURN	F5G09550
	01233	0 76400 0 00203	955	S402	BST	TAPE PREPARE TO READ AGAIN	F5G09560
	01234	−0 53400 2 00151	956		LXD	TPCT,2 FIVE TIMES	F5G09570
	01235	1 00001 2 01236	957		TXI	S402A,2,1	F5G09580
	01236	−0 63400 2 00151	958	S402A	SXD	TPCT,2	F5G09590
	01237	−3 00004 2 01241	959		TXL	S402B,2,4 GO ON	F5G09600
	01240	0 07400 4 00004	960		TSX	4,4 NO GOOD,DIAGNOSTIC	F5G09610
	01241	−0 53400 2 01210	961	S402B	LXD	S407,2 RESET INDEX	F5G09620
	01242	0 76200 0 00223	962		RTB	TAPE	F5G09630
	01243	−0 53400 4 01244	963		LXD	S405,4	F5G09640
	01244	1 00000 0 01207	964	S405	TXI	S46,0,− RETURN ADDR. STORED HERE	F5G09650
			965			TNE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS	F5G09660
			966			OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED	F5G09670
			967			IN LPLST. IN ADDITION, THE PERMUTATION OF INDEX REGISTERS IN	F5G09680
			968			THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND	F5G09690
			969			EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5. S5 USES	F5G09700
			970			S1,S111,S6,S7,S9, AS SUBROUTINES.	F5G09710
	01245	−0 63400 4 00473	971	S5	SXD	S5V1,4 STORE RETURN INDEX	F5G09720
	01246	0 60100 0 00474	972		STO	S5V2 STORE LOOP LIST QUANTITY	F5G09730
	01247	0 07400 4 01466	973		TSX	S9,4 GET THE ENTRANCE	F5G09740
			974			REQUIREMENTS	F5G09750
	01250	0 50000 0 00340	975		CLA	S5K3	F5G09760
	01251	0 53400 2 00343	976		LXA	S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL	F5G09770
	01252	0 60100 2 00470	977	S51	STO	ENC+8,2 STORE -0S IN THE	F5G09780
	01253	2 00001 2 01252	978		TIX	S51,2,1 REGISTERS.	F5G09790
	01254	0 53400 1 00342	979		LXA	S5K5,1 SET INDEX FOR EN1,N=1	F5G09800
	01255	0 53400 2 00342	980	S54	LXA	S5K5,2 SET INDEX FOR IR1, M EQUALS 1	F5G09810
	01256	0 50000 1 00473	981		CLA	EN1+3,1	F5G09820
	01257	0 34000 0 00336	982		CAS	S5K1 IS ENN EMPTY	F5G09830
	01260	0 02000 0 01262	983		TRA	S55 NO	F5G09840
	01261	0 02000 0 01427	984		TRA	S58 YES	F5G09850
	01262	0 56000 2 00465	985	S55	LDQ	IN1+3,2 NO	F5G09860
	01263	0 16200 0 01267	986		TQP	S56 IS IRM ASSIGNED	F5G09870
	01264	0 34000 2 00430	987		CAS	IR1+3,2 NO,IS C(ENM)=C(IRM)	F5G09880
	01265	0 02000 0 01267	988		TRA	S56 NO.	F5G09890
	01266	0 02000 0 01433	989		TRA	S59 YES.	F5G09900
	01267	2 00001 2 01262	990	S56	TIX	S55,2,1 NO. THRU WITH IRS	F5G09910
	01270	2 00001 1 01255	991	S57	TIX	S54,1,1 YES. THRU WITH ENS	F5G09920
	01271	0 53400 2 00342	992		LXA	S5K5,2 YES,SET INDEX FOR IR1,M=1	F5G09930
	01272	0 53400 1 00342	993	S510	LXA	S5K5,1 SET INDEX FOR EN1,N=1	F5G09940
	01273	0 50000 2 00430	994		CLA	IR1+3,2	F5G09950
	01274	0 34000 0 00336	995		CAS	S5K1 IS IRM EMPTY	F5G09960
	01275	0 02000 0 01277	996		TRA	S511 NO	F5G09970
	01276	0 02000 0 01310	997		TRA	S513 YES	F5G09980
	01277	0 56000 2 00465	998	S511	LDQ	IN1+3,2 NO	F5G09990
	01300	0 16200 0 01320	999		TQP	S514 IS IRM ASSIGNED	F5G10000
	01301	0 34000 0 00337	1000		CAS	S5K2 NO,IS C(IRM)REAL	F5G10010
	01302	0 02000 0 01320	1001		TRA	S514 NO,	F5G10020
	01303	0 02000 0 01320	1002		TRA	S514 NO,	F5G10030
	01304	0 50000 0 00461	1003	S512	CLA	IRC INCREASE REAL	F5G10040
	01305	0 40000 0 00315	1004		ADD	ONEA UNASSIGNED TAG	F5G10050
	01306	0 60100 0 00461	1005		STO	IRC COUNTER.	F5G10060
	01307	0 02000 0 01320	1006		TRA	S514	F5G10070
	01310	0 50000 1 00470	1007	S513	CLA	EN4+3,1 HAS ENN	F5G10080
	01311	0 12000 0 01317	1008		TPL	S537 BEEN ASSIGNED	F5G10090
	01312	0 56000 0 00337	1009		LDQ	S5K2 NO,IS C(ENN)	F5G10100
	01313	0 50000 1 00473	1010		CLA	EN1+3,1 REAL	F5G10110
	01314	0 04000 0 01317	1011		TLQ	S537	F5G10120
	01315	0 07400 4 01443	1012		TSX	S6,4 YES,MAKE IRM=ENN	F5G10130
	01316	0 02000 0 01320	1013		TRA	S514	F5G10140
	01317	2 00001 1 01310	1014	S537	TIX	S513,1,1 ARE WE THRU WITH EN S	F5G10150
	01320	2 00001 2 01272	1015	S514	TIX	S510,2,1 YES, ARE WE THRU WITH IRS	F5G10160
	01321	0 50000 0 00460	1016		CLA	ENC YES.	F5G10170
	01322	−0 12000 0 01327	1017		TMI	S515 ARE THERE NO EMPTY ENS	F5G10180
	01323	0 34000 0 00341	1018		CAS	S5K4 HOW MANY EMPTY ENS.	F5G10190
	01324	0 02000 0 01327	1019		TRA	S515 3 OR 0	F5G10200
	01325	0 02000 0 01343	1020		TRA	S520 2 EMPTY EN	F5G10210
	01326	0 02000 0 01366	1021		TRA	S526 1 EMPTY EN	F5G10220
	01327	0 53400 1 00342	1022	S515	LXA	S5K5,1 3 OR 0 EMPTY EN,N=1	F5G10230
	01330	0 53400 2 00342	1023	S519	LXA	S5K5,2 M=1	F5G10240
	01331	0 50000 1 00470	1024		CLA	EN4+3,1	F5G10250
	01332	0 12000 0 01340	1025		TPL	S516 ENN ASSIGNED	F5G10260
	01333	0 50000 2 00465	1026	S518	CLA	IN1+3,2 NO,IRM	F5G10270
	01334	0 12000 0 01337	1027		TPL	S517 ASSIGNED	F5G10280
	01335	0 07400 4 01443	1028		TSX	S6,4 NO,MAKE IRM=IRN	F5G10290
	01336	0 02000 0 01340	1029		TRA	S516	F5G10300
	01337	2 00001 2 01333	1030	S517	TIX	S518,2,1	F5G10310
	01340	2 00001 1 01330	1031	S516	TIX	S519,1,1	F5G10320
	01341	−0 53400 4 00473	1032		LXD	S5V1,4	F5G10330
	01342	0 02000 4 00001	1033		TRA	1,4 RETURN	F5G10340
	01343	0 50000 0 00461	1034	S520	CLA	IRC	F5G10350
	01344	0 34000 0 00341	1035		CAS	S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS	F5G10360
	01345	0 02000 0 01350	1036		TRA	S536	F5G10370
	01346	0 02000 0 01405	1037		TRA	S531 1,NO,GO MATCH EMPTY ENS	F5G10380
	01347	0 02000 0 01405	1038		TRA	S531 2,NO. WITH ANY REAL UNASS. IRS	F5G10390
	01350	0 07400 4 01450	1039	S536	TSX	S7,4 3, YES, TO COPY IRS, ETC.	F5G10400
	01351	0 07400 4 00622	1040		TSX	S1,4 SELECT MOST REPLACEABLE I.R.	F5G10410
	01352	0 53400 1 00342	1041		LXA	S5K5,1	F5G10420
	01353	0 07400 4 01435	1042		TSX	S595,4	F5G10430
	01354	0 50000 1 00473	1043	S521	CLA	EN1+3,1 IS EN	F5G10440
	01355	0 34000 0 00336	1044		CAS	S5K1 EMPTY	F5G10450
	01356	0 02000 0 01360	1045		TRA	S522 NO	F5G10460
	01357	2 00001 1 01354	1046		TIX	S521,1,1 INDEX COUNTER OF IR S	F5G10470
	01360	0 07400 4 01443	1047	S522	TSX	S6,4 MADE ENN = IRM	F5G10480
	01361	0 53400 1 00342	1048	S529	LXA	S5K5,1	F5G10490
	01362	0 50000 1 00460	1049	S525	CLA	IR4+3,1 REPLACE THE IRS	F5G10500
	01363	0 60100 1 00430	1050		STO	IR1+3,1	F5G10510
	01364	2 00001 1 01362	1051		TIX	S525,1,1	F5G10520
	01365	0 02000 0 01327	1052		TRA	S515	F5G10530
	01366	0 56000 0 00461	1053	S526	LDQ	IRC	F5G10540
	01367	0 50000 0 00341	1054		CLA	S5K4 ARE THERE 2 OR 3 REAL	F5G10550
	01370	0 04000 0 01403	1055		TLQ	S530 UNASSNED TAGS	F5G10560
	01371	0 07400 4 01450	1056		TSX	S7,4 YES,COPY IRS	F5G10570
	01372	0 07400 4 00620	1057		TSX	S111,4 LOOK FOR LEAST REPLACEABLE I.R.	F5G10580
	01373	0 07400 4 01435	1058		TSX	S595,4	F5G10590
	01374	0 53400 1 00342	1059		LXA	S5K5,1 ASSIGN THE EMPTY	F5G10600
	01375	0 50000 1 00473	1060	S527	CLA	EN1+3,1 EN TO THE IR	F5G10610
	01376	0 34000 0 00336	1061		CAS	S5K1 SELECTED	F5G10620
	01377	0 02000 0 01401	1062		TRA	S528	F5G10630
	01400	0 07400 4 01443	1063		TSX	S6,4 BY	F5G10640
	01401	2 00001 1 01375	1064	S528	TIX	S527,1,1 S111.	F5G10650
	01402	0 02000 0 01361	1065		TRA	S529	F5G10660
	01403	0 16200 0 01405	1066	S530	TQP	S531 IS THERE ONE REAL TAG	F5G10670
	01404	0 02000 0 01327	1067		TRA	S515 NO,GO MATCH ARBITRARILY.	F5G10680
	01405	0 53400 1 00342	1068	S531	LXA	S5K5,1 SET COUNT TO 3,N=1	F5G10690
	01406	0 53400 2 00342	1069		LXA	S5K5,2 SET COUNT TO 3,M=1	F5G10700
	01407	0 50000 1 00473	1070	S532	CLA	EN1+3,1 IS ENN	F5G10710
	01410	0 34000 0 00336	1071		CAS	S5K1 EMPTY	F5G10720
	01411	0 02000 0 01413	1072		TRA	S533 NO,	F5G10730
	01412	0 02000 0 01415	1073		TRA	S534 YES,	F5G10740
	01413	2 00001 1 01407	1074	S533	TIX	S532,1,1 NO,THRU WITH ENS	F5G10750
	01414	0 02000 0 01327	1075		TRA	S515 YES.	F5G10760
	01415	0 50000 2 00465	1076	S534	CLA	IN1+3,2	F5G10770
	01416	0 12000 0 01425	1077		TPL	S535	F5G10780
	01417	0 50000 2 00430	1078		CLA	IR1+3,2 NO	F5G10790
	01420	0 34000 0 00337	1079		CAS	S5K2 IS C (IRM) REAL	F5G10800
	01421	0 76100 0 00000	1080		NOP	N0	F5G10810
	01422	0 02000 0 01425	1081		TRA	S535	F5G10820
	01423	0 07400 4 01443	1082		TSX	S6,4 YES	F5G10830
	01424	0 02000 0 01327	1083		TRA	S515	F5G10840
	01425	2 00001 2 01415	1084	S535	TIX	S534,2,1 NO	F5G10850
	01426	0 02000 0 01413	1085		TRA	S533	F5G10860
	01427	0 50000 0 00460	1086	S58	CLA	ENC YESENM EMPTY	F5G10870
	01430	0 40000 0 00315	1087		ADD	ONEA INCREASE COUNTER	F5G10880
	01431	0 60100 0 00460	1088		STO	ENC OF NO. OF EMPTY ENS.	F5G10890
	01432	0 02000 0 01270	1089		TRA	S57	F5G10900
	01433	0 07400 4 01443	1090	S59	TSX	S6,4 MAKE IRM=ENN	F5G10910
	01434	0 02000 0 01270	1091		TRA	S57	F5G10920
	01435	−0 53400 2 00430	1092	S595	LXD	IRR,2	F5G10930
	01436	0 50000 2 00430	1093		CLA	IR1+3,2	F5G10940
	01437	0 34000 0 01465	1094		CAS	S7K1	F5G10950
	01440	0 02000 4 00001	1095		TRA	1,4	F5G10960
	01441	0 02000 0 01361	1096		TRA	S529	F5G10970
	01442	0 02000 4 00001	1097		TRA	1,4	F5G10980
	01443	−0 75400 1 00000	1098	S6	PXD	0,1	F5G10990
	01444	0 60100 2 00465	1099		STO	IN1+3,2	F5G11000
	01445	−0 75400 2 00000	1100		PXD	0,2	F5G11010
	01446	0 60100 1 00470	1101		STO	EN4+3,1	F5G11020
	01447	0 02000 4 00001	1102		TRA	1,4	F5G11030
	01450	0 53400 1 00342	1103	S7	LXA	S5K5,1 SET COUNT TO 3,M=1	F5G11040
	01451	0 50000 1 00430	1104	S71	CLA	IR1+3,1 COPY ASIDE C(IRM)	F5G11050
	01452	0 60100 1 00460	1105		STO	IR4+3,1	F5G11060
	01453	0 56000 1 00465	1106		LDQ	IN1+3,1 IRM ASSIGNED	F5G11070
	01454	0 16200 0 01461	1107		TQP	S72	F5G11080
	01455	0 34000 0 00337	1108		CAS	S5K2 NO, IS C(IRM) REAL	F5G11090
	01456	0 76100 0 00000	1109		NOP		F5G11100
	01457	0 02000 0 01461	1110		TRA	S72 NO	F5G11110
	01460	0 02000 0 01463	1111		TRA	S73 YES.	F5G11120
	01461	0 50000 0 01465	1112	S72	CLA	S7K1 NO,REPLACE C(IRM)	F5G11130
	01462	0 60100 1 00430	1113		STO	IR1+3,1 BY IMPOSSIBLE TAG.	F5G11140
	01463	2 00001 1 01451	1114	S73	TIX	S71,1,1 COUNT TO 3,M=M+1	F5G11150
	01464	0 02000 4 00001	1115		TRA	1,4 RETURN	F5G11160
	01465	+000000777760	1116	S7K1	OCT	777760 IMPOSSIBLE TAG VALUE.	F5G11170
			1117			THE S9 SUBROUTINE LOADS EN1,2,3.	F5G11180
	01466	−0 63400 4 00476	1118	S9	SXD	S9V2,4 STORE RETURN INDEX.	F5G11190
	01467	0 07400 4 00070	1119		TSX	SE,4 MAKE SURE BB IS IN C+M+	F5G11200
	01470	0 50000 1 12540	1120		CLA	BBB+5,1 GET AND	F5G11210
	01471	−0 73400 2 00000	1121		PDX	0,2 STORE THE	F5G11220
	01472	0 50000 2 05263	1122		CLA	REG,2 REGION	F5G11230
	01473	0 60100 0 00477	1123		STO	S9V4 WORD+	F5G11240
	01474	0 53400 2 00342	1124		LXA	S5K5,2 SET COUNT TO 3,N=1	F5G11250
	01475	0 50000 1 12534	1125		CLA	BBB+1,1 STORE THE WORD	F5G11260
	01476	0 60100 0 00475	1126		STO	S9V1 CONTAINING THE PERMATATION NOS.	F5G11270
	01477	0 50000 0 00475	1127	S92	CLA	S9V1 EXTRACT THE N TH	F5G11280
	01500	0 77100 2 00003	1128		ARS	3,2 PERMUTATION NO.	F5G11290
	01501	0 77100 2 00003	1129		ARS	3,2 AND PUT IT	F5G11300
	01502	−0 32000 0 00350	1130		ANA	S9K3 IN	F5G11310
	01503	−0 73400 4 00000	1131		PDX	0,4 INDEX 4.	F5G11320
	01504	−0 50000 0 00477	1132		CAL	S9V4 IS THIS	F5G11330
	01505	−0 32000 4 00350	1133		ANA	S9K2+3,4 AN EMPTY	F5G11340
	01506	0 10000 0 01515	1134		TZE	S93 I.R.	F5G11350
	01507	0 50000 0 00336	1135		CLA	S5K1 YES,STORE EMPTINESS SYMBOL	F5G11360
	01510	0 60100 4 00473	1136	S94	STO	EN1+3,4	F5G11370
	01511	1 77777 1 01512	1137		TXI	S91,1,−1 DOWN THE ENTR. INDEX	F5G11380
	01512	2 00001 2 01477	1138	S91	TIX	S92,2,1 COUNT TO 3	F5G11390
	01513	−0 53400 4 00476	1139		LXD	S9V2,4	F5G11400
	01514	0 02000 4 00001	1140		TRA	1,4 RETURN	F5G11410
	01515	−0 50000 1 12535	1141	S93	CAL	BBB+2,1 SET THE	F5G11420
	01516	0 77100 0 00022	1142		ARS	18 ENTRANCE REQUIREMENT.	F5G11430
	01517	0 34000 0 00336	1143		CAS	S5K1 IS IT AN EMPTINESS SYMBOL	F5G11440
	01520	0 02000 0 01510	1144		TRA	S94 NO,	F5G11450
	01521	0 50000 0 00333	1145		CLA	LK1 YES,STORE E,(HASH SYMBOL).	F5G11460
	01522	0 02000 0 01510	1146		TRA	S94 NO,	F5G11470
			1147			THE SA SUBROUTINE LOADS EX1,2,3 ANO ACT1,2,3 FROM EXIT	F5G11480
			1148			CONDITIONS AND ACTIVITY BITS (PREFIX, WORD 2, BBB) OF THE	F5G11490
			1149			EXIT BB IN A REGION.	F5G11500
	01523	−0 63400 4 00501	1150	SA	SXD	SAV2,4 STORE RETURN INDEX.	F5G11510
	01524	−0 32000 0 00353	1151		ANA	SBK2 IF THIS IS AN IMPOSSIBLE BB,	F5G11520
	01525	0 56000 0 00351	1152		LDQ	SAK1 RETURN AT ONCE, DOING NOTHING	F5G11530
	01526	0 04000 4 00001	1153		TLQ	1,4	F5G11540
	01527	0 07400 4 00067	1154		TSX	SE1,4 MAKE SURE BB IS IN CM.	F5G11550
	01530	0 50000 1 12540	1155		CLA	BBB+5,1 GET AND	F5G11560
	01531	−0 73400 2 00000	1156		PDX	0,2 STORE	F5G11570
	01532	0 50000 2 05263	1157		CLA	REG,2 REGION	F5G11580
	01533	0 60100 0 00502	1158		STO	SAV3 WORD.	F5G11590
	01534	0 50000 1 12534	1159		CLA	BBB+1,1 GET AND STORE THE	F5G11600
	01535	0 60100 0 00500	1160		STO	SAV1 WORD HAVING PERMUTATION N0S.	F5G11610
	01536	0 53400 2 00342	1161		LXA	S5K5,2 SET COUNT TO 3,N=N+1	F5G11620
	01537	−0 50000 0 00500	1162	SA1	CAL	SAV1 PUT PERMUTATION	F5G11630
	01540	0 77100 2 00003	1163		ARS	3,2 NUMBER	F5G11640
	01541	0 77100 2 00003	1164		ARS	3,2 IN	F5G11650
	01542	−0 32000 0 00350	1165		ANA	S9K3 INDEX 4	F5G11660
	01543	−0 73400 4 00000	1166		PDX	0,4	F5G11670
	01544	−0 50000 0 00502	1167		CAL	SAV3 IS THIS	F5G11680
	01545	−0 32000 4 00350	1168		ANA	S9K2+3,4 AN EMPTY	F5G11690
	01546	0 10000 0 01560	1169		TZE	SA2 EXIT	F5G11700
	01547	0 50000 0 00336	1170		CLA	S5K1 YES,STORE EMPTINESS SYMBOL.	F5G11710
	01550	0 60100 4 00506	1171	SA4	STO	EX1+3,4	F5G11720
	01551	−0 50000 0 00500	1172	SA5	CAL	SAV1 STORE THE	F5G11730
	01552	0 76700 2 00003	1173		ALS	3,2 ACTIVE	F5G11740
	01553	0 60200 4 00511	1174		SLW	ACT1+3,4 INDICATOR	F5G11750
	01554	1 77777 1 01555	1175		TXI	SA3,1,−1	F5G11760
	01555	2 00001 2 01537	1176	SA3	TIX	SA1,2,1 COUNT TO 3	F5G11770
	01556	−0 53400 4 00501	1177		LXD	SAV2,4	F5G11780
	01557	0 02000 4 00001	1178		TRA	1,4 RETURN	F5G11790
	01560	−0 50000 1 12535	1179	SA2	CAL	BBB+2,1	F5G11800
	01561	−0 32000 0 00326	1180		ANA	S3K4 IS THIS	F5G11810
	01562	0 34000 0 00336	1181		CAS	S5K1 AN EMPTY SYMBOL	F5G11820
	01563	0 02000 0 01550	1182		TRA	SA4 NO	F5G11830
	01564	0 50000 0 00333	1183		CLA	LK1 YES REPLACE BY E.	F5G11840
	01565	0 02000 0 01550	1184		TRA	SA4 NO	F5G11850
			1185			THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX	F5G11860
			1186			COMPILATION. THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS	F5G11870
			1187			EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB	F5G11880
			1188			ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE	F5G11890
			1189			LINK OUT OF THE REGION. IF IT IS POSITIVE (ACTIVE INSTRUC.	F5G11900
			1190			IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG	F5G11910
			1191			TABLE AT THE ACTIVE INSTRUCTION. THE APPROPRIATE AC1,2, OR 3	F5G11920
			1192			IS ALSO TURNED OFF BY SB.	F5G11930
	01566	−0 63400 1 00514	1193	SB	SXD	SBV4,1 STORE INDEX OF ACTIVE I.R+	F5G11940
	01567	−0 63400 4 00511	1194		SXD	SBV1,4 STORE INDEX OF RETURN,	F5G11950
	01570	0 50000 1 00561	1195		CLA	AC1+3,1 IS THE ACTIVE THING	F5G11960
	01571	0 12000 0 01641	1196		TPL	SB1 AN INSTRUCTION	F5G11970
	01572	−0 73400 1 00000	1197		PDX	0,1 N0	F5G11980
	01573	0 50000 1 05035	1198		CLA	LPLST+S3P1,1 GET + STORE	F5G11990
	01574	0 34000 0 00324	1199		CAS	S3K2 PRED. BB	F5G12000
	01575	0 76100 0 00000	1200		NOP		F5G12010
	01576	0 02000 0 01600	1201		TRA	SB01	F5G12020
	01577	0 77100 0 00022	1202		ARS	18 NO	F5G12030
	01600	0 62100 0 00513	1203	SB01	STA	SBV3	F5G12040
	01601	0 50000 1 05036	1204		CLA	LPLST+S3P1+1,1	F5G12050
	01602	0 34000 0 00323	1205		CAS	S3K1 END LOOP LIST SENTINEL	F5G12060
	01603	0 02000 0 01605	1206		TRA	SB7 NO,	F5G12070
	01604	0 50000 0 04741	1207		CLA	LPLST YES,SUCCESSOR IS 1ST ENTRY.	F5G12080
	01605	0 07400 4 00070	1208	SB7	TSX	SE,4 NO,GET ADDR. OF	F5G12090
	01606	0 50000 1 12534	1209		CLA	BBB+1,1 PRED.	F5G12100
	01607	0 60100 0 00515	1210		STO	SBV5 STORE PERMUTATION NOS.	F5G12110
	01610	0 50000 1 12533	1211		CLA	BBB,1 GET ADDR OF 1ST PRED.	F5G12120
	01611	0 60200 0 00512	1212	SB4	SLW	SBV2	F5G12130
	01612	0 07400 4 00055	1213		TSX	SE5,4	F5G12140
	01613	−0 50000 1 15674	1214		CAL	PRED,1	F5G12150
	01614	−0 32000 0 00353	1215		ANA	SBK2	F5G12160
	01615	0 34000 0 00513	1216		CAS	SBV3 IS THIS THE RIGHT TRANSFER	F5G12170
	01616	0 02000 0 01620	1217		TRA	SB2 NO	F5G12180
	01617	0 02000 0 01623	1218		TRA	SB5 YES	F5G12190
	01620	0 50000 0 00512	1219	SB2	CLA	SBV2 NO TRY NEXT PRED.	F5G12200
	01621	0 40000 0 00315	1220		ADD	ONEA	F5G12210
	01622	0 02000 0 01611	1221		TRA	SB4	F5G12220
	01623	0 53400 2 00342	1222	SB5	LXA	S5K5,2	F5G12230
	01624	−0 50000 0 00515	1223	SB00	CAL	SBV5 SEARCH PERMUTATION	F5G12240
	01625	0 77100 2 00003	1224		ARS	3,2 NOS. FOR THE INDEX	F5G12250
	01626	0 77100 2 00003	1225		ARS	3,2 STORED IN SBV4	F5G12260
	01627	−0 32000 0 00350	1226		ANA	S9K3	F5G12270
	01630	0 34000 0 00514	1227		CAS	SBV4 IS THIS PERMUTATION NO.	F5G12280
	01631	0 02000 0 01633	1228		TRA	SB8 NO EQUAL TO THE ACTIVE	F5G12290
	01632	0 02000 0 01635	1229		TRA	SB9 YES IR	F5G12300
	01633	2 00001 2 01624	1230	SB8	TIX	SB00,2,1 NO	F5G12310
	01634	0 07400 4 00004	1231		TSX	4,4 DIAGNOSTIC,ERROR	F5G12320
	01635	0 50000 0 00354	1232	SB9	CLA	SBK3 GENERATE NO STORE	F5G12330
	01636	0 77100 2 00003	1233		ARS	3,2 THE	F5G12340
	01637	−0 60200 1 15674	1234		ORS	PRED,1 SX FIT IN	F5G12350
	01640	0 02000 0 01654	1235		TRA	SB6 PRED. TABLE.	F5G12360
	01641	−0 32000 0 00326	1236	SB1	ANA	S3K4	F5G12370
	01642	0 76500 0 00043	1237		LRS	35 COMPUTE NO. OF WORD IN	F5G12380
	01643	0 22100 0 00371	1238		DVP	XK9 STAG AND POSITION OF SX	F5G12390
	01644	0 73400 2 00000	1239		PAX	0,2 FIT IN WORD.	F5G12400
	01645	−0 50000 0 00352	1240		CAL	SBK1 GENERATE	F5G12410
	01646	0 76700 2 00010	1241		ALS	8,2 THE BIT	F5G12420
	01647	0 60200 0 00512	1242		SLW	SBV2 TO	F5G12430
			1243			STORE.	F5G12440
	01650	0 76300 0 00043	1244		LLS	35 GET NO. OF WORD OUT OF MQ.	F5G12450
	01651	0 07400 4 00032	1245		TSX	SE4,4 MAKE SURE THE WD IS IN C.M.	F5G12460
	01652	−0 50000 0 00512	1246		CAL	SBV2	F5G12470
	01653	−0 60200 1 05263	1247		ORS	STAG,1	F5G12480
	01654	0 50000 0 00314	1248	SB6	CLA	ZERO SET IR	F5G12490
	01655	−0 53400 1 00514	1249		LXD	SBV4,1 TO F	F5G12500
	01656	0 60100 1 00561	1250		STO	AC1+3,1 NOT ACTIVE.	F5G12510
	01657	−0 53400 4 00511	1251		LXD	SBV1,4 RE-	F5G12520
	01660	0 02000 4 00001	1252		TRA	1,4 TURN	F5G12530
			1253			THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX	F5G12540
			1254			REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION. THIS	F5G12550
			1255			POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND.	F5G12560
			1256			THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2,	F5G12570
			1257			BBB TABLE FOR ALL BB,S DURINC WHICH IN0EX REGISTER IS ACTIVE.	F5G12580
			1258			THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE	F5G12590
			1259			TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-	F5G12600
			1260			ING A SECTION OF LPLST ACTIVE. ALL BB,S BETWEEN THE ORIGIN	F5G12610
			1261			OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC 1S	F5G12620
			1262			ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS	F5G12630
			1263			TURNED OFF. SD IS USED AS A SUBROUTINE, DOING THE ACTUAL	F5G12640
			1264			MARKING OF BB,S ACTIVE.	F5G12650
	01661	0 50000 1 00561	1265	SC	CLA	AC1+3,1 IS IR	F5G12660
	01662	0 10000 4 00001	1266		TZE	1,4 ACTIVE	F5G12670
	01663	−0 63400 4 00516	1267		SXD	SCV1,4 YES,STORE RETURN	F5G12680
	01664	−0 63400 1 01736	1268		SXD	SC9,1 AND INDEX OF ACT1VE I.R+	F5G12690
	01665	0 62200 0 00520	1269		STD	SCV3 STORE INDEX OF LOOP LIST.	F5G12700
	01666	0 50000 0 00520	1270		CLA	SCV3 IS THIS THE CURRENT	F5G12710
	01667	0 40200 0 00316	1271		SUB	ONED	F5G12720
	01670	−0 40000 0 00440	1272		SBM	S3V4 IS THIS THE CURRENT LPLST INDEX	F5G12730
	01671	−0 10000 0 01674	1273		TNZ	SC40	F5G12740
	01672	0 50000 0 00521	1274		CLA	ACIND YES	F5G12750
	01673	0 12000 4 00001	1275		TPL	1,4 IS THIS THE ACTIVE PASS	F5G12760
	01674	−0 53400 2 00520	1276	SC40	LXD	SCV3,2 YES	F5G12770
	01675	0 50000 2 05035	1277		CLA	LPLST+S3P1,2	F5G12780
	01676	0 34000 0 00324	1278		CAS	S3K2 IS 1ST AACTIVE QUANTITY A BB	F5G12790
	01677	0 02000 0 01721	1279		TRA	SC02	F5G12800
	01700	0 02000 0 01721	1280		TRA	SC02 NO	F5G12810
	01701	0 02000 0 01734	1281		TRA	SC8 YES	F5G12820
	01702	0 40200 0 00316	1282	SC4	SUB	ONED IS THIS CURRENT	F5G12830
	01703	0 34000 0 00440	1283		CAS	S3V4 LOOP LIST INDEX	F5G12840
	01704	0 02000 0 01706	1284		TRA	SC2 NO,	F5G12850
	01705	0 02000 0 01725	1285		TRA	SC5 YES,	F5G12860
	01706	−0 53400 2 00520	1286	SC2	LXD	SCV3,2 NO,	F5G12870
	01707	0 50000 2 05035	1287		CLA	LPLST+S3P1,2	F5G12880
	01710	0 34000 0 00323	1288		CAS	S3K1 IS IT END LOOP LIST	F5G12890
	01711	0 02000 0 01713	1289		TRA	SC3 NO,	F5G12900
	01712	0 02000 0 01732	1290		TRA	SC6 YES,	F5G12910
	01713	0 34000 0 00324	1291	SC3	CAS	S3K2 NO,IS IT A BB	F5G12920
	01714	0 76100 0 00000	1292		NOP	NO,	F5G12930
	01715	0 02000 0 01717	1293		TRA	SC04	F5G12940
	01716	0 02000 0 01734	1294		TRA	SC8 YES,	F5G12950
	01717	−0 53400 2 01736	1295	SC04	LXD	SC9,2 NO, PUT INDEX OF ACTIVE IR	F5G12960
	01720	0 07400 4 01753	1296		TSX	SD,4 IN 2. GO TO RECORD REGION ACTIVE.	F5G12970
	01721	0 50000 0 00520	1297	SC02	CLA	SCV3 PREPARE TO GET	F5G12980
	01722	0 40200 0 00316	1298		SUB	ONED NEXT	F5G12990
	01723	0 62200 0 00520	1299	SC7	STD	SCV3 LOOP LIST QUANTITY.	F5G13000
	01724	0 02000 0 01702	1300		TRA	SC4	F5G13010
	01725	−0 53400 1 01736	1301	SC5	LXD	SC9,1	F5G13020
	01726	0 50000 0 00314	1302		CLA	ZERO RECORD I.R. NOT	F5G13030
	01727	0 60100 1 00561	1303		STO	AC1+3,1 ACTIVE ANYMORE.	F5G13040
	01730	−0 53400 4 00516	1304		LXD	SCV1,4	F5G13050
	01731	0 02000 4 00001	1305		TRA	1,4 RETURN.	F5G13060
	01732	0 50000 0 00325	1306	SC6	CLA	S3K3 ARRANGE TO GET 1ST LPLST QUANTITY	F5G13070
	01733	0 02000 0 01723	1307		TRA	SC7 QUANTITY NEXT.	F5G13080
	01734	0 07400 4 00070	1308	SC8	TSX	SE,4	F5G13090
	01735	−0 63400 1 00517	1309		SXD	SCV2,1 GET INDEX OF BB	F5G13100
	01736	1 00000 1 01737	1310	SC9	TXI	SC01,1,0 INCREASE INDEX BY INDEX OF OCT. I.R.	F5G13110
	01737	0 50000 1 12540	1311	SC01	CLA	BBB+5,1 GET THE	F5G13120
	01740	−0 32000 0 00326	1312		ANA	S3K4 EXIT CONDITION.	F5G13130
	01741	−0 53400 2 01736	1313		LXD	SC9,2 IS EXIT COND. SAME	F5G13140
	01742	0 34000 2 00430	1314		CAS	IR1+3,2 AS TAG IN ACTIVE I.RH	F5G13150
	01743	0 02000 0 01721	1315		TRA	SC02 NO,	F5G13160
	01744	0 02000 0 01746	1316		TRA	SC03 YES,	F5G13170
	01745	0 02000 0 01721	1317		TRA	SC02 NO,	F5G13180
	01746	−0 50000 0 00340	1318	SC03	CAL	S5K3 RECORD THAT BB IS	F5G13190
	01747	0 77100 2 00003	1319		ARS	3,2 ACTIVE	F5G13200
	01750	−0 53400 1 00517	1320		LXD	SCV2,1 WO THIS	F5G13210
	01751	−0 60200 1 12534	1321		ORS	BBB+1,1 I+R.	F5G13220
	01752	0 02000 0 01721	1322		TRA	SC02	F5G13230
	01753	−0 63400 2 00523	1323	SD	SXD	SDV2,2	F5G13240
	01754	−0 63400 4 00522	1324		SXD	SDV1,4 STORE RETURN.	F5G13250
	01755	0 07400 4 00070	1325		TSX	SE,4 GET INDEX OF BB	F5G13260
	01756	0 50000 1 12540	1326		CLA	BBB+5,1 GET	F5G13070
	01757	−0 73400 1 00000	1327		PDX	0,1 REGION	F5G13280
	01760	0 50000 1 05263	1328		CLA	REG,1 WORD.	F5G13290
	01761	0 07400 4 00070	1329		TSX	SE,4 GET BB INDEX.	F5G13300
	01762	−0 63400 1 00525	1330	SD7	SXD	SDV4,1	F5G13310
	01763	0 50000 1 12534	1331		CLA	BBB+1,1 STORE	F5G13320
	01764	0 60100 0 00524	1332		STO	SDV3 AWAY THE PERMUTATION NOS.	F5G13330
	01765	0 53400 2 00342	1333		LXA	S5K5,2 SET COUNT TO 3,N=1	F5G13340
	01766	−0 50000 0 00524	1334	SD3	CAL	SDV3 IS	F5G13350
	01767	0 77100 2 00003	1335		ARS	3,2 PERMUTATION NO.	F5G13360
	01770	0 77100 2 00003	1336		ARS	3,2	F5G13370
	01771	−0 32000 0 00350	1337		ANA	S9K3 N EQUAL	F5G13380
	01772	0 34000 0 00523	1338		CAS	SDV2 TO I.R. INDEX	F5G13390
	01773	0 02000 0 01775	1339		TRA	SD1 NO	F5G13400
	01774	0 02000 0 02000	1340		TRA	SD4 YES	F5G13410
	01775	1 77777 1 01776	1341	SD1	TXI	SD1+1,1,−1 NO	F5G13420
	01776	2 00001 2 01766	1342	SD2	TIX	SD3,2,1 COUNT TO 3	F5G13430
	01777	0 07400 4 00004	1343		TSX	4,4	F5G13440
	02000	−0 50000 1 12535	1344	SD4	CAL	BBB+2,1	F5G13450
	02001	−0 32000 0 00326	1345		ANA	S3K4 IS TAG IN	F5G13460
	02002	−0 53400 4 00523	1346		LXD	SDV2,4 EXIT CONDITION	F5G13470
	02003	−0 53400 1 00525	1347		LXD	SDV4,1 SAME AS IN ACTIVE I.R.	F5G13480
	02004	0 34000 4 00430	1348		CAS	IR1+3,4	F5G13490
	02005	0 02000 0 02007	1349		TRA	SD5 NO	F5G13500
	02006	0 02000 0 02020	1350		TRA	SD9 YES,IS	F5G13510
	02007	−0 50000 1 12540	1351	SD5	CAL	BBB+5,1 NO THIS LAST	F5G13520
	02010	−0 32000 0 00353	1352		ANA	SBK2 BB	F5G13530
	02011	0 34000 0 00353	1353		CAS	SBK2 IN REGION	F5G13540
	02012	0 02000 0 02014	1354		TRA	SD6 NO	F5G13550
	02013	0 02000 0 02016	1355		TRA	SD8 YES	F5G13560
	02014	0 07400 4 00067	1356	SD6	TSX	SE1,4 NO	F5G13570
	02015	0 02000 0 01762	1357		TRA	SD7	F5G13580
	02016	−0 53400 4 00522	1358	SD8	LXD	SDV1,4 RETURN	F5G13590
	02017	0 02000 4 00001	1359		TRA	1,4	F5G13600
	02020	−0 50000 0 00340	1360	SD9	CAL	S5K3 RECORD THIS BB	F5G13610
	02021	0 77100 2 00003	1361		ARS	3,2 ACTIVE	F5G13620
	02022	−0 60200 1 12534	1362		ORS	BBB+1,1 WO THIS IR	F5G13630
	02023	0 02000 0 02007	1363		TRA	SD5	F5G13640
			1364			THE SF SUBROUTINE FORMS APPROPRIATE AC1,2,3 ENTRY WHEN AN	F5G13650
			1365			ACTIVE INSTRUCTION IS ENCOUNTERED.	F5G13660
	02024	0 50000 0 00442	1366	SF	CLA	TPE IS THIS	F5G13670
	02025	0 34000 0 00322	1367		CAS	S2K2 AN LX	F5G13680
	02026	0 02000 0 02030	1368		TRA	SF1 NO,	F5G13690
	02027	0 02000 0 02034	1369		TRA	SF4 YES,	F5G13700
	02030	0 34000 0 00373	1370	SF1	CAS	XK12 NO,IS IT AN ACTIVE INSTR	F5G13710
	02031	0 02000 4 00001	1371		TRA	1,4 NO RETURN	F5G13720
	02032	0 02000 0 02034	1372		TRA	SF4 YES,	F5G13730
	02033	0 02000 4 00001	1373		TRA	1,4 NO	F5G13740
	02034	0 50000 0 00571	1374	SF4	CLA	XV5 FORM QUANTITY TO	F5G13750
	02035	0 60100 0 00526	1375		STO	SFV1 BE PUT	F5G13760
	02036	−0 53400 2 00440	1376		LXD	S3V4,2 INTO	F5G13770
	02037	1 00001 2 02040	1377		TXI	SF5,2,1 ACTIVE	F5G13780
	02040	−0 63400 2 00526	1378	SF5	SXD	SFV1,2 INDICATOR	F5G13790
	02041	0 02000 4 00002	1379		TRA	2,4	F5G13800
			1380			PERMUTE THE PHI AND LX BITS SUBROUTINE	F5G13810
			1381			THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG	F5G13820
			1382			ENTRY.	F5G13830
	02042	−0 63400 4 00530	1383	SG	SXD	SGV1,4 SAVE RETURN	F5G13840
	02043	0 56000 0 00315	1384		LDQ	ONEA SET NEN LX AND PHI BITS TO ONEA	F5G13850
	02044	−0 60000 0 00531	1385		STQ	SGV2	F5G13860
	02045	0 50000 0 00444	1386		CLA	S3V5 GET INDEX OF REGION WORD	F5G13870
	02046	0 07400 4 00070	1387		TSX	SE,4	F5G13880
	02047	0 50000 1 12540	1388		CLA	BBB+5,1	F5G13890
	02050	−0 73400 2 00000	1389		PDX	0,2	F5G13900
	02051	0 53400 4 00342	1390		LXA	S5K5,4 SET COUNT T0 3	F5G13910
	02052	0 50000 4 00470	1391	SG1	CLA	EN4+3,4 FIND INDEX OF IR	F5G13920
	02053	−0 73400 1 00000	1392		PDX	0,1	F5G13930
	02054	−0 50000 2 05263	1393		CAL	REG,2 PERMUTE THE LX BIT	F5G13940
	02055	0 76700 4 00003	1394		ALS	3,4	F5G13950
	02056	−0 32000 0 00340	1395		ANA	S5K3	F5G13960
	02057	0 77100 1 00003	1396		ARS	3,1	F5G13970
	02060	−0 60200 0 00531	1397		ORS	SGV2	F5G13980
	02061	−0 50000 2 05263	1398		CAL	REG,2 PERMUTE THE PHI BIT	F5G13990
	02062	0 77100 4 00003	1399		ARS	3,4	F5G14000
	02063	−0 32000 0 00405	1400		ANA	XK23	F5G14010
	02064	0 76700 1 00003	1401		ALS	3,1	F5G14020
	02065	−0 60200 0 00531	1402		ORS	SGV2	F5G14030
	02066	2 00001 4 02052	1403		TIX	SG1,4,1 COUNT TO 3	F5G14040
	02067	−0 50000 2 05263	1404		CAL	REG,2	F5G14050
	02070	−0 32000 0 00303	1405		ANA	SEK4	F5G14060
	02071	−0 50100 0 00531	1406		ORA	SGV2	F5G14070
	02072	0 60200 2 05263	1407		SLW	REG,2	F5G14080
	02073	−0 53400 4 00530	1408		LXD	SGV1,4 RETURN	F5G14090
	02074	0 02000 4 00001	1409		TRA	1,4	F5G14100
			1410			THE F1 SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR	F5G14110
			1411			A GIVEN BB AND STORES 1T IN FV 101.	F5G14120
	02075	−0 63400 4 00537	1412	F1	SXD	FV6,4 STORE RETURN	F5G14130
	02076	0 56000 0 00314	1413		LDQ	ZERO SET HIGHEST	F5G14140
	02077	−0 60000 0 00544	1414		STQ	FV101 FREQ. TO 0.	F5G14150
	02100	0 60100 0 00545	1415		STO	FV102 STORE BB NO+	F5G14160
	02101	0 07400 4 00067	1416		TSX	SE1,4 GET INDEX OF BB	F5G14170
	02102	0 50000 1 12540	1417		CLA	BBB+5,1 STORE REGION	F5G14180
	02103	0 60100 0 00547	1418		STO	FV104 NO. WORD.	F5G14190
	02104	−0 50000 1 12533	1419		CAL	BBB,1 GET PRED.	F5G14200
	02105	0 62100 0 00540	1420		STA	FV7 NO. AND STORE IT	F5G14210
	02106	−0 50000 0 00545	1421		CAL	FV102 GET AND STORE	F5G14220
	02107	0 40000 0 00315	1422		ADD	ONEA FIRST PRED. IN	F5G14230
	02110	0 07400 4 00067	1423		TSX	SE1,4 NEXT B.B.	F5G14240
	02111	0 50000 1 12533	1424		CLA	BBB,1	F5G14250
	02112	0 62100 0 00541	1425		STA	FV8	F5G14260
	02113	0 50000 0 00540	1426		CLA	FV7 IS TH1S PRED.	F5G14270
	02114	0 34000 0 00541	1427	F4	CAS	FV8 IN SAME BB	F5G14280
	02115	0 02000 0 02117	1428		TRA	F2	F5G14290
	02116	0 02000 0 02134	1429		TRA	F5 NO	F5G14300
	02117	0 07400 4 00055	1430	F2	TSX	SE5,4 GET INDEX 0F PRED	F5G14310
	02120	0 50000 1 15674	1431		CLA	PRED,1	F5G14320
	02121	0 34000 0 00544	1432		CAS	FV101 IS THIS FREQ. GREATER	F5G14330
	02122	0 02000 0 02125	1433		TRA	F92	F5G14340
	02123	0 76100 0 00000	1434		NOP		F5G14350
	02124	0 02000 0 02130	1435		TRA	F3 NO	F5G14360
	02125	0 60100 0 00544	1436	F92	STO	FV101 STORE NEW MAX.	F5G14370
	02126	0 50000 0 00540	1437		CLA	FV7 STORE NEW	F5G14380
	02127	0 60100 0 00546	1438		STO	FV103 PRED. NO.	F5G14390
	02130	0 50000 0 00540	1439	F3	CLA	FV7 ARRANGE TO	F5G14400
	02131	0 40000 0 00315	1440		ADD	ONEA CONSIDER NEXT PRED.	F5G14410
	02132	0 62100 0 00540	1441		STA	FV7	F5G14420
	02133	0 02000 0 02114	1442		TRA	F4	F5G14430
	02134	−0 53400 4 00537	1443	F5	LXD	FV6,4	F5G14440
	02135	0 02000 4 00001	1444		TRA	1,4 RETURN	F5G14450
			1445			THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FOR	F5G14460
			1446			A GIVEN BB AND STORES IT IN FV 101.	F5G14470
	02136	−0 63400 4 00537	1447	F30	SXD	FV6,4	F5G14480
	02137	0 56000 0 00314	1448		LDQ	ZERO SET HIGHEST FREQH	F5G14490
	02140	−0 60000 0 00544	1449		STQ	FV101 TO 0.	F5G14500
	02141	0 60100 0 00545	1450		STO	FV102 STORE BB NO.	F5G14510
	02142	0 07400 4 00070	1451		TSX	SE,4	F5G14520
	02143	0 50000 1 12540	1452		CLA	BBB+5,1	F5G14530
	02144	0 60100 0 00547	1453		STO	FV104	F5G14540
	02145	−0 50000 1 12533	1454		CAL	BBB,1 GET SUCC. NO.	F5G14550
	02146	0 62200 0 00542	1455		STD	FV9 AND STORE IT	F5G14560
	02147	−0 50000 0 00545	1456		CAL	FV102 GET AND STORE	F5G14570
	02150	0 40000 0 00316	1457		ADD	ONED SUCC.	F5G14580
	02151	0 07400 4 00070	1458		TSX	SE,4 NO.	F5G14590
	02152	0 50000 1 12533	1459		CLA	BBB,1 OF 1ST SUCC.	F5G14600
	02153	0 62200 0 00543	1460		STD	FV10 IN NEXT BB	F5G14610
	02154	0 50000 0 00542	1461		CLA	FV9	F5G14620
	02155	0 34000 0 00543	1462	F31	CAS	FV10 IS SUCC IN SAME BB	F5G14630
	02156	0 02000 0 02160	1463		TRA	F32	F5G14640
	02157	0 02000 0 02175	1464		TRA	F34 N0.	F5G14650
	02160	0 07400 4 00044	1465	F32	TSX	SE6,4 GET INDEX OF SUCC.	F5G14660
	02161	0 50000 1 16734	1466		CLA	SUCC,1	F5G14670
	02162	0 34000 0 00544	1467		CAS	FV101 IS THIS FREQ. GREATER	F5G14680
	02163	0 02000 0 02166	1468		TRA	F93	F5G14690
	02164	0 76100 0 00000	1469		NOP		F5G14700
	02165	0 02000 0 02171	1470		TRA	F33 NO	F5G14710
	02166	0 60100 0 00544	1471	F93	STO	FV101 STORE NEW MAX.	F5G14720
	02167	0 50000 0 00542	1472		CLA	FV9 STORE NEW	F5G14730
	02170	0 60100 0 00546	1473		STO	FV103 SUCC. NO.	F5G14740
	02171	0 50000 0 00542	1474	F33	CLA	FV9 ARRANGE TO CONSIDER	F5G14750
	02172	0 40000 0 00316	1475		ADD	ONED NEXT SUCC.	F5G14760
	02173	0 62200 0 00542	1476		STD	FV9	F5G14770
	02174	0 02000 0 02155	1477		TRA	F31	F5G14780
	02175	−0 53400 4 00537	1478	F34	LXD	FV6,4	F5G14790
	02176	0 02000 4 00001	1479		TRA	1,4 RETURN	F5G14800
	02177	0 50000 0 00314	1480	F	CLA	ZERO SET INDICATOR TO SAY	F5G14810
	02200	0 60100 0 00550	1481		STO	LPIND THIS ISNT A LOOP.	F5G14820
	02201	0 60100 0 00532	1482		STO	FV1 SET HIGHEST FREQ. TO 0.	F5G14630
	02202	0 60100 0 00536	1483		STO	FV5 SET TO CONSIDER 0TH BB	F5G14840
	02203	0 50000 0 00536	1484	F7	CLA	FV5	F5G14850
	02204	0 07400 4 02075	1485		TSX	F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER	F5G14860
	02205	0 50000 0 00544	1486		CLA	FV101 IS IT GREATER THAN	F5G14870
	02206	0 34000 0 00532	1487		CAS	FV1 PREVIOUS MAXIMUM	F5G14880
	02207	0 02000 0 02212	1488		TRA	F85	F5G14890
	02210	0 76100 0 00000	1489		NOP		F5G14900
	02211	0 02000 0 02221	1490		TRA	F6 NO+	F5G14910
	02212	0 60100 0 00532	1491	F85	STO	FV1 REPLACE PREV. MAX.	F5G14920
	02213	0 50000 0 00545	1492		CLA	FV102 AND BB NO.	F5G14930
	02214	0 60100 0 00533	1493		STO	FV2	F5G14940
	02215	0 50000 0 00546	1494		CLA	FV103 AND PRED. NO.	F5G14950
	02216	0 60100 0 00534	1495		STO	FV3	F5G14960
	02217	0 50000 0 00547	1496		CLA	FV104 AND REGION NO. WORD.	F5G14970
	02220	0 60100 0 00535	1497		STO	FV4	F5G14980
	02221	0 50000 0 00536	1498	F6	CLA	FV5 ARRANGE TO CONSIDER NEXT	F5G14990
	02222	0 40000 0 00315	1499		ADD	ONEA B.B.	F5G15000
	02223	0 60100 0 00536	1500		STO	FV5	F5G15010
	02224	0 40200 0 17774	1501		SUB	KEYS	F5G15020
	02225	0 40000 0 00315	1502		ADD	ONEA	F5G15030
	02226	−0 10000 0 02203	1503		TNZ	F7 WAS THIS THE LAST BB	F5G15040
	02227	0 76000 0 00012	1504	F86	DCT	YES, IF ANY DIVIDE CHECKS GO	F5G15050
	02230	0 07400 4 00004	1505		TSX	4,4 TO DIAGNOSTIC.	F5G15060
	02231	0 50000 0 00532	1506		CLA	FV1 NO DVD CHECKS, WERE THERE ANY	F5G15070
	02232	−0 10000 0 02234	1507		TNZ	F86A UNCONSIDERED PREDS	F5G15080
	02233	0 02000 0 00030	1508		TRA	R NO,CONTINUE PROGRAM, PART I DONE.	F5G15090
	02234	0 50000 0 00535	1509	F86A	CLA	FV4 YES	F5G15100
	02235	0 10000 0 02245	1510		TZE	F9 IS THIS A REGION ALREADY	F5G15110
	02236	−0 73400 1 00000	1511		PDX	0,1 YES.	F5G15120
	02237	0 50000 1 05263	1512		CLA	REG,1 GET REGION WORD.	F5G15130
	02240	−0 32000 0 00360	1513		ANA	FK3	F5G15140
	02241	0 10000 0 02244	1514		TZE	F8 IS IT AN OPAQUE REGION	F5G15150
	02242	0 50000 0 00356	1515		CLA	FK1 NO,GET TRANSPARENT REGION MARKER.	F5G15160
	02243	0 02000 0 02245	1516		TRA	F9	F5G15170
	02244	0 50000 0 00357	1517	F8	CLA	FK2 GET OPAQUE REGION MARKER.	F5G15180
	02245	0 60100 0 05033	1518	F9	STO	LPLST+S3P1−2	F5G15190
	02246	0 50000 0 00533	1519		CLA	FV2 STORE THE REGION MARKER	F5G15200
	02247	0 76700 0 00022	1520		ALS	18 AT END OF LPLST.	F5G15210
	02250	0 62200 0 05033	1521		STD	LPLST+S3P1−2	F5G15220
	02251	0 50000 0 00350	1522		CLA	S9K3 INITIALIZE THE STORING	F5G15230
	02252	0 62200 0 02270	1523		STD	F11 POSITION IN LPLST.	F5G15240
	02253	0 50000 0 00532	1524	F23	CLA	FV1 GET INDEX	F5G15250
	02254	0 07400 4 00067	1525		TSX	SE1,4 OF BB UP FOR ENTRY.	F5G15260
	02255	0 50000 1 12540	1526		CLA	BBB+5,1 IS THIS BB IN	F5G15270
	02256	0 10000 0 02611	1527		TZE	F57 A REGION	F5G15280
	02257	−0 73400 2 00000	1528		PDX	0,2 YES	F5G15290
	02260	0 50000 2 05263	1529		CLA	REG,2 GET AND STORE	F5G15300
	02261	0 60100 0 00535	1530		STO	FV4 REGION WORD	F5G15310
	02262	−0 32000 0 00360	1531		ANA	FK3	F5G15320
	02263	0 10000 0 02603	1532		TZE	F55 IS IT AN OPAQUE REGION	F5G15330
	02264	0 53400 1 00341	1533		LXA	S5K4,1 NO, TRANSPARENT	F5G15340
	02265	0 50000 1 05035	1534	F12	CLA	LPLST+S3P1,1	F5G15350
	02266	1 00001 1 02267	1535		TXI	F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED.	F5G15360
	02267	−0 63400 1 02412	1536	F25	SXD	F18,1	F5G15370
	02270	3 00000 1 02321	1537	F11	TXH	F19,1,K ARE WE THRU WITH COMPARISONS	F5G15380
	02271	0 34000 0 00324	1538		CAS	S3K2 NO,IS THIS BB ENTRY	F5G15390
	02272	0 76100 0 00000	1539		NOP		F5G15400
	02273	0 02000 0 02275	1540		TRA	F87	F5G15410
	02274	0 02000 0 02265	1541		TRA	F12 YES.	F5G15420
	02275	0 07400 4 00070	1542	F87	TSX	SE,4 GET INDEX OF BB	F5G15430
	02276	0 50000 1 12540	1543		CLA	BBB+5,1 GET	F5G15440
	02277	−0 73400 1 00000	1544		PDX	0,1 REGION	F5G15450
	02300	0 50000 1 05263	1545		CLA	REG,1 WORD.	F5G15460
	02301	−0 53400 1 02412	1546		LXD	F18,1	F5G15470
	02302	0 34000 0 00535	1547		CAS	FV4 IS THIS THE SAME REGION	F5G15480
	02303	0 02000 0 02265	1548		TRA	F12 NO	F5G15490
	02304	0 02000 0 02306	1549		TRA	F100	F5G15500
	02305	0 02000 0 02265	1550		TRA	F12 NO	F5G15510
	02306	0 50000 0 00532	1551	F100	CLA	FV1 PUT EXIT BB NO.	F5G15520
	02307	0 62100 1 05036	1552		STA	LPLST+S3P1+1,1 IN TR. REG. QUANTITY	F5G15530
	02310	2 00001 1 02311	1553	F13	TIX	F24,1,1 GENERATE INDEX OF LAST THING TO BE MOVED UP.	F5G15540
	02311	−0 53400 2 02270	1554	F24	LXD	F11,2 GET INDEX TO GENERATE INDEX OF 1ST THING	F5G15550
	02312	−0 63400 1 02412	1555	F43	SXD	F18,1 STORE INDEX OF LAST THING	F5G15560
	02313	0 56000 0 00323	1556		LDQ	S3K1 RECORD	F5G15570
	02314	−0 60000 0 00550	1557		STQ	LPIND LOOP.	F5G15580
	02315	2 00001 2 02316	1558		TIX	F14,2,1 GENERATE INDEX OF 1ST THING	F5G15590
	02316	0 07400 4 02407	1559	F14	TSX	F15,4 GO TO MOVE LPLST QUANTITIES UP+	F5G15600
	02317	0 07400 4 02651	1560		TSX	F80,4	F5G15610
	02320	0 02000 0 02717	1561		TRA	L TO 1ST LXING PASS.	F5G15620
	02321	0 50000 0 00356	1562	F19	CLA	FK1	F5G15630
	02322	−0 53400 1 02270	1563		LXD	F11,1 STORE TRANSPARENT	F5G15640
	02323	0 60100 1 05035	1564		STO	LPLST+S3P1,1 REGION MARKER	F5G15650
	02324	0 50000 0 00532	1565		CLA	FV1	F5G15660
	02325	0 62100 1 05035	1566		STA	LPLST+S3P1,1	F5G15670
	02326	0 07400 4 00067	1567		TSX	SE1,4 FIND BB INDEX.	F5G15680
	02327	0 50000 0 00314	1568		CLA	ZERO SET INITIAL MAX	F5G15690
	02330	0 60100 0 00532	1569		STO	FV1 FREQ. TO 0+	F5G15700
	02331	0 50000 1 12540	1570		CLA	BBB+5,1 GET THE	F5G15710
	02332	−0 73400 1 00000	1571		PDX	0,1 REGION	F5G15720
	02333	0 50000 1 05263	1572		CLA	REG,1 WORD	F5G15730
	02334	0 77100 0 00022	1573		ARS	18	F5G15740
	02335	0 07400 4 02075	1574	F21	TSX	F1,4 DETERMINE MOST FREQ. PRED IN BB.	F5G15750
	02336	0 50000 0 00544	1575		CLA	FV101 IS IT MORE FREQ. THAN	F5G15760
	02337	0 34000 0 00532	1576		CAS	FV1 PREV. MAX.	F5G15770
	02340	0 02000 0 02343	1577		TRA	F88	F5G15780
	02341	0 76100 0 00000	1578		NOP		F5G15790
	02342	0 02000 0 02352	1579		TRA	F20 NO.	F5G15800
	02343	0 60100 0 00532	1580	F88	STO	FV1 REPLACE PREV. MAX.	F5G15810
	02344	0 50000 0 00545	1581		CLA	FV102 AND BB NO.	F5G15820
	02345	0 60100 0 00533	1582		STO	FV2 AND	F5G15830
	02346	0 50000 0 00546	1583		CLA	FV103 PRED. NO.	F5G15840
	02347	0 60100 0 00534	1584		STO	FV3 AND	F5G15850
	02350	0 50000 0 00547	1585		CLA	FV104 REGION NO. WORD.	F5G15860
	02351	0 60100 0 00535	1586		STO	FV4	F5G15870
	02352	0 50000 0 00547	1587	F20	CLA	FV104 ARRANGE TO CONSIDER THE	F5G15880
	02353	−0 32000 0 00353	1588		ANA	SBK2 NEXT B.B. IN REGION.	F5G15890
	02354	0 34000 0 00353	1589		CAS	SBK2 ARE WE THRU WITH REGION	F5G15900
	02355	0 02000 0 02335	1590		TRA	F21	F5G15910
	02356	0 02000 0 02360	1591		TRA	F22 YES	F5G15920
	02357	0 02000 0 02335	1592		TRA	F21	F5G15930
	02360	0 50000 0 00532	1593	F22	CLA	FV1 WAS THERE AN UNCONSIDERED	F5G15940
	02361	0 10000 0 02372	1594		TZE	F28 PRED	F5G15950
	02362	0 50000 0 00533	1595		CLA	FV2 YES,STORE THE	F5G15960
	02363	−0 53400 1 02270	1596		LXD	F11,1 ENTRY B.B.	F5G15970
	02364	0 76700 0 00022	1597		ALS	18 NO.	F5G15980
	02365	0 62200 1 05035	1598		STD	LPLST+S3P1,1	F5G15990
	02366	1 00001 1 02367	1599		TXI	F70,1,1 UP THE STORING INDEX	F5G16000
	02367	−0 63400 1 02270	1600	F70	SXD	F11,1	F5G16010
	02370	3 00074 1 02404	1601		TXH	F73,1,S3P1 IS LPLST FULL	F5G16020
	02371	0 02000 0 02253	1602		TRA	F23	F5G16030
	02372	−0 53400 2 02270	1603	F28	LXD	F11,2	F5G16040
	02373	0 53400 1 00341	1604	F56	LXA	S5K4,1	F5G16050
	02374	−0 63400 1 02412	1605		SXD	F18,1	F5G16060
	02375	0 07400 4 02407	1606		TSX	F15,4 NONE LPLST UP.	F5G16070
	02376	0 50000 0 04740	1607		CLA	LPLST−1	F5G16080
	02377	0 34000 0 00361	1608		CAS	FK4 IS THIS AN OPAQUE REGION	F5G16090
	02400	0 76100 0 00000	1609		NOP		F5G16100
	02401	0 02000 0 02706	1610		TRA	F75 TO 2ED LXING PASS.	F5G16110
	02402	3 00002 1 02421	1611	POO2	TXH	F29,1,2	F5G16120
	02403	0 02000 0 02706	1612		TRA	F75	F5G16130
	02404	0 50000 0 00303	1613	F73	CLA	SEK4 STORE SPECIAL	F5G16140
	02405	0 62200 0 04741	1614		STD	LPLST SYMBOL IN DECR. PART OF 1STSLPLST	F5G16150
	02406	0 02000 0 02536	1615		TRA	F53 QUANTITY	F5G16160
	02407	−0 53400 1 00325	1616	F15	LXD	S3K3,1 SET INDEX TO START OF LOOP LIST.	F5G16170
	02410	0 50000 2 05035	1617	F26	CLA	LPLST+S3P1,2 MOVE THIS	F5G16180
	02411	0 60100 1 05035	1618		STO	LPLST+S3P1,1 ENTRY UP.	F5G16190
	02412	−3 00000 2 02415	1619	F18	TXL	F17,2,− IN DECR., THE INDEX OF LAST TO BE MOVED.	F5G16200
	02413	2 00001 1 02414	1620		TIX	F16,1,1 NO.	F5G16210
	02414	2 00001 2 02410	1621	F16	TIX	F26,2,1 ARE WE FINISHED COPYING	F5G16220
	02415	0 60100 0 04740	1622	F17	STO	LPLST−1 CASE OF LOOP,STORE PRED. 0F 1ST ELEMENT.	F5G16230
	02416	0 50000 0 00323	1623		CLA	S3K1 STORE THE END	F5G16240
	02417	0 60100 1 05036	1624		STO	LPLST+S3P1+1,1 LOOP LIST QUANTITY.	F5G16250
	02420	0 02000 4 00001	1625		TRA	1,4	F5G16260
	02421	−0 63400 1 02527	1626	F29	SXD	F39,1 INITIALIZE STORING LOCATION.	F5G16270
	02422	0 34000 0 00324	1627	F64	CAS	S3K2 ISNT OPAQUE REGIONH IS IT BE	F5G16280
	02423	0 76100 0 00000	1628		NOP	NO.	F5G16290
	02424	0 02000 0 02426	1629		TRA	F89	F5G16300
	02425	0 02000 0 02543	1630		TRA	F44 YES.	F5G16310
	02426	0 56000 0 00314	1631	F89	LDQ	ZERO NO, SET INITIAL	F5G16320
	02427	−0 60000 0 00532	1632		STQ	FV1 FREQ+ TO 0.	F5G16330
	02430	0 07400 4 00070	1633		TSX	SE,4 GET	F5G16340
	02431	0 50000 1 12540	1634		CLA	BBB+5,1 REGION	F5G16350
	02432	−0 73400 1 00000	1635		PDX	0,1 NO.	F5G16360
	02433	0 50000 1 05263	1636		CLA	REG,1 GET NO. OF 1ST BB IN REGION	F5G16370
	02434	0 07400 4 02136	1637	F35	TSX	F30,4 DETERMINE MOST FREQ SUCC IN BB	F5G16380
	02435	0 50000 0 00544	1638		CLA	FV101 IS IT MORE FREQ. THAN	F5G16390
	02436	0 34000 0 00532	1639		CAS	FV1 PREV+ MAX	F5G16400
	02437	0 02000 0 02442	1640		TRA	F90	F5G16410
	02440	0 76100 0 00000	1641		NOP	YES,	F5G16420
	02441	0 02000 0 02451	1642		TRA	F36 NO	F5G16430
	02442	0 60100 0 00532	1643	F90	STO	FV1 YES, REPLACE PREV.MAX.	F5G16440
	02443	0 50000 0 00545	1644		CLA	FV102 AND BB NO.	F5G16450
	02444	0 60100 0 00533	1645		STO	FV2 AND	F5G16460
	02445	0 50000 0 00546	1646		CLA	FV103 SUCC. NO+	F5G16470
	02446	0 60100 0 00534	1647		STO	FV3 AND	F5G16480
	02447	0 50000 0 00547	1648		CLA	FV104 REGION NO. WORD	F5G16490
	02450	0 60100 0 00535	1649		STO	FV4	F5G16500
	02451	0 50000 0 00547	1650	F36	CLA	FV104 ARRANGE TO CONSIDER THE	F5G16510
	02452	−0 32000 0 00353	1651		ANA	SBK2 NEXT BB IN REGION	F5G16520
	02453	0 34000 0 00353	1652		CAS	SBK2 IS IT LAST BB IN REGION	F5G16530
	02454	0 02000 0 02456	1653		TRA	F94	F5G16540
	02455	0 02000 0 02460	1654		TRA	F37 YES	F5G16550
	02456	0 76700 0 00022	1655	F94	ALS	18	F5G16560
	02457	0 02000 0 02434	1656		TRA	F35	F5G16570
	02460	0 50000 0 00532	1657	F37	CLA	FV1 WAS THERE AN UNCONSIDERED	F5G16580
	02461	−0 53400 1 02527	1658		LXD	F39,1 SUCC	F5G16590
	02462	0 10000 0 02550	1659		TZE	F47	F5G16600
	02463	0 50000 0 00533	1660		CLA	FV2 EXIT BB	F5G16610
	02464	0 77100 0 00022	1661		ARS	18 NO.	F5G16620
	02465	0 62100 1 05035	1662		STA	LPLST+S3P1,1	F5G16630
	02466	2 00001 1 02467	1663	F45	TIX	F62,1,1 DOWN THE STORING	F5G16640
	02467	−0 63400 1 02527	1664	F62	SXD	F39,1 INDEX.	F5G16650
	02470	0 50000 0 00532	1665		CLA	FV1 GET INDEX OF	F5G16660
	02471	0 07400 4 00067	1666		TSX	SE1,4 BB UP FOR ENTRY.	F5G16670
	02472	0 50000 1 12540	1667		CLA	BBB+5,1 IS THIS BB IN	F5G16680
	02473	0 10000 0 02553	1668		TZE	F48 A REGION	F5G16690
	02474	−0 73400 2 00000	1669		PDX	0,2 YES.	F5G16700
	02475	0 50000 2 05263	1670		CLA	REG,2 GET AND	F5G16710
	02476	0 60100 0 00535	1671		STO	FV4 STORE REGION WORD.	F5G16720
	02477	−0 32000 0 00360	1672		ANA	FK3 IS IT IN AN	F5G16730
	02500	0 10000 0 02574	1673		TZE	F54 OPAGUE REGION	F5G16740
	02501	−0 53400 1 02527	1674		LXD	F39,1 NO.	F5G16750
	02502	0 50000 0 00356	1675		CLA	FK1 STORE TRANSPARENT REGION	F5G16760
	02503	0 60100 1 05035	1676		STO	LPLST+S3P1,1 MARKER	F5G16770
	02504	0 50000 0 00532	1677		CLA	FV1 WITH	F5G16780
	02505	0 76700 0 00022	1678		ALS	18 ENTRY	F5G16790
	02506	0 62200 1 05035	1679		STD	LPLST+S3P1,1 BB NO. IN DECR.	F5G16800
	02507	−0 53400 2 00325	1680		LXD	S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST.	F5G16810
	02510	0 50000 2 05035	1681	F38	CLA	LPLST+S3P1,2	F5G16820
	02511	0 34000 0 00324	1682		CAS	S3K2 IS THIS A BB ENTRY	F5G16830
	02512	0 76100 0 00000	1683		NOP		F5G16840
	02513	0 02000 0 02515	1684		TRA	F91	F5G16850
	02514	0 02000 0 02526	1685		TRA	F40 YES	F5G16860
	02515	−0 63400 2 02412	1686	F91	SXD	F18,2 STOREINDEX OF QUANTITYBEING C.F. ED	F5G16870
	02516	0 07400 4 00067	1687		TSX	SE1,4	F5G16860
	02517	0 50000 1 12540	1688		CLA	BBB+5,1 GET	F5G16890
	02520	−0 73400 2 00000	1689		PDX	0,2 REGION WORD.	F5G16900
	02521	0 50000 2 05263	1690		CLA	REG,2	F5G16910
	02522	−0 53400 2 02412	1691		LXD	F18,2 GET INDEX OF QUANTITY BEING COMPARED.	F5G16920
	02523	0 34000 0 00535	1692		CAS	FV4 IS THIS NAME REGION	F5G16930
	02524	0 02000 0 02526	1693		TRA	F40	F5G16940
	02525	0 02000 0 02531	1694		TRA	F41 YES	F5G16950
	02526	2 00001 2 02527	1695	F40	TIX	F39,2,1	F5G16960
	02527	−3 00000 2 02535	1696	F39	TXL	F42,2,− IS THIS INDEX OF QUANTITY BEING COMPARED	F5G16970
	02530	0 02000 0 02510	1697		TRA	F38 NO	F5G16980
	02531	0 50000 2 05035	1698	F41	CLA	LPLST+S3P1,2 PUT EXIT BB NO.	F5G16990
	02532	−0 53400 1 02527	1699		LXD	F39,1 FROM PREVIOUS QUANTITY	F5G17000
	02533	0 62100 1 05035	1700		STA	LPLST+S3P1,1 IN THIS LATEST ONE.	F5G17010
	02534	0 02000 0 02312	1701		TRA	F43	F5G17020
	02535	3 00002 2 02541	1702	F42	TXH	F63,2,2 IS LPLST FULL	F5G17030
	02536	0 50000 0 00323	1703	F53	CLA	S3K1 STORE END	F5G17040
	02537	0 60100 0 05034	1704		STO	LPLST+S3P1−1 LOOP LIST SENTINEL.	F5G17050
	02540	0 02000 0 02706	1705		TRA	F75 GO TO DEAL WITH STRING.	F5G17060
	02541	0 50000 2 05035	1706	F63	CLA	LPLST+S3P1,2	F5G17070
	02542	0 02000 0 02422	1707		TRA	F64	F5G17080
	02543	0 07400 4 02136	1708	F44	TSX	F30,4 DETERMINE MOST FREQ. SUCC. IN BB.	F5G17090
	02544	0 50000 0 00544	1709		CLA	FV101 STORE THE	F5G17100
	02545	0 60100 0 00532	1710		STO	FV1 MOST FREQ. SUCC. AWAY.	F5G17110
	02546	−0 53400 1 02527	1711		LXD	F39,1	F5G17120
	02547	−0 10000 0 02466	1712		TNZ	F45 WAS THERE AN UNCONSIDERED SUCC.	F5G17130
	02550	0 50000 0 00323	1713	F47	CLA	S3K1 NO,RECORD AN	F5G17140
	02551	0 60100 1 05036	1714		STO	LPLST+S3P1+1,1 END LOOP LIST SENTINEL.	F5G17150
	02552	0 02000 0 02706	1715		TRA	F75	F5G17160
	02553	−0 53400 1 02527	1716	F48	LXD	F39,1 ENTER BB	F5G17170
	02554	0 50000 0 00532	1717		CLA	FV1 NO. AND MARKER	F5G17100
	02555	−0 32000 0 00353	1718		ANA	SBK2 IN	F5G17190
	02556	0 76700 0 00022	1719		ALS	18 LPLST	F5G17200
	02557	0 60100 0 00535	1720		STO	FV4	F5G17210
	02560	0 60100 1 05035	1721		STO	LPLST+S3P1,1	F5G17220
	02561	−0 63400 1 02570	1722		SXD	F50,1	F5G17230
	02562	−0 53400 2 00325	1723		LXD	S3K3,2 S + TO	F5G17240
	02563	0 50000 2 05035	1724	F51	CLA	LPLST+S3P1,2	F5G17250
	02564	0 34000 0 00535	1725		CAS	FV4 IS THIS SAME BB AS NEW ENTRY	F5G17260
	02565	0 02000 0 02567	1726		TRA	F49	F5G17270
	02566	0 02000 0 02312	1727		TRA	F43 YES	F5G17280
	02567	2 00001 2 02570	1728	F49	TIX	F50,2,1 DECREASE COMPARISON INDEX.	F5G17290
	02570	−3 00000 2 02572	1729	F50	TXL	F52,2,− IS THIS INDEX OF NEW QUANTITY	F5G17300
	02571	0 02000 0 02563	1730		TRA	F51 NO.	F5G17310
	02572	3 00002 2 02541	1731	F52	TXH	F63,2,2 IS LPLST FULL	F5G17320
	02573	0 02000 0 02536	1732		TRA	F53 YES.	F5G17330
	02574	−0 53400 1 02527	1733	F54	LXD	F39,1 IS OPAQUE REGION	F5G17340
	02575	0 50000 0 00357	1734		CLA	FK2 ENTER OPAQUE	F5G17350
	02576	0 60100 1 05035	1735		STO	LPLST+S3P1,1 REGION MARKER	F5G17360
	02577	0 50000 0 00532	1736		CLA	FV1 WITH CORRECT	F5G17370
	02600	0 76700 0 00022	1737		ALS	18 ENTRY BB	F5G17380
	02601	0 62200 1 05035	1738		STD	LPLST+S3P1,1 NO.	F5G17390
	02602	0 02000 0 02550	1739		TRA	F47	F5G17400
	02603	−0 53400 2 02270	1740	F55	LXD	F11,2 STORE THE	F5G17410
	02604	0 50000 0 00357	1741		CLA	FK2 OPAQUE	F5G17420
	02605	0 60100 2 05035	1742		STO	LPLST+S3P1,2 REGION MARKR	F5G17430
	02606	0 50000 0 00532	1743		CLA	FV1 WITH	F5G17440
	02607	0 62100 2 05035	1744		STA	LPLST+S3P1,2 EXIT BB	F5G17450
	02610	0 02000 0 02373	1745		TRA	F56 NO.	F5G17460
	02611	0 50000 0 00532	1746	F57	CLA	FV1 PUT THE	F5G17470
	02612	−0 32000 0 00353	1747		ANA	SBK2 B.B. NO.	F5G17480
	02613	0 76700 0 00022	1748		ALS	18 IN	F5G17490
	02614	0 60100 0 00535	1749		STO	FV4 DECR. PART.	F5G17500
	02615	0 50000 0 02270	1750		CLA	F11 SET THE END	F5G17510
	02616	0 62200 0 02623	1751		STD	F59 TEST.	F5G17520
	02617	0 53400 1 00341	1752		LXA	S5K4,1 SET INDEX OF 1ST LPLST TO BE COMPARED	F5G17530
	02620	0 50000 1 05035	1753	F61	CLA	LPLST+S3P1,1	F5G17540
	02621	1 00001 1 02622	1754		TXI	F58,1,1	F5G17550
	02622	−0 63400 1 02412	1755	F58	SXD	F18,1	F5G17560
	02623	3 00000 1 02630	1756	F59	TXH	F60,1,− WAS THAT THE LAST QUANTITY	F5G17570
	02624	0 34000 0 00535	1757		CAS	FV4 IS THIS THE SAME BB.	F5G17580
	02625	0 02000 0 02620	1758		TRA	F61	F5G17590
	02626	0 02000 0 02310	1759		TRA	F13 YES	F5G17600
	02627	0 02000 0 02620	1760		TRA	F61	F5G17610
	02630	−0 53400 1 02270	1761	F60	LXD	F11,1	F5G17620
	02631	0 50000 0 00532	1762		CLA	FV1 STORE THE	F5G17630
	02632	−0 32000 0 00353	1763		ANA	SBK2 BB	F5G17640
	02633	0 76700 0 00022	1764		ALS	18 MARKER.	F5G17650
	02634	0 60100 1 05035	1765		STO	LPLST+S3P1,1	F5G17660
	02635	0 50000 0 00532	1766		CLA	FV1	F5G17670
	02636	0 07400 4 02075	1767		TSX	F1,4 FIND MOST FREQ. PRED. OF BB.	F5G17680
	02637	0 50000 0 00544	1768		CLA	FV101 DOES B.B. HAVE	F5G17690
	02640	0 60100 0 00532	1769		STO	FV1 UNCONSIDERED PRED.	F5G17700
	02641	−0 10000 0 02644	1770		TNZ	F71	F5G17710
	02642	−0 53400 2 02270	1771		LXD	F11,2 NO,GO TO MOVE LPLST UP.	F5G17720
	02643	0 02000 0 02373	1772		TRA	F56	F5G17730
	02644	−0 53400 1 02270	1773	F71	LXD	F11,1	F5G17740
	02645	1 00001 1 02646	1774		TXI	F72,1,1 UP THE STORING INDEX	F5G17750
	02646	−0 63400 1 02270	1775	F72	SXD	F11,1	F5G17760
	02647	3 00074 1 02536	1776		TXH	F53,1,S3P1 IS LPLST FULL	F5G17770
	02650	0 02000 0 02253	1777		TRA	F23 NO.	F5G17780
	02651	0 53400 1 00362	1778	F80	LXA	FK5,1 FIND	F5G17790
	02652	0 50000 1 05263	1779	F81	CLA	REG,1 THE 1ST AVAILABLE REGION	F5G17800
	02653	0 10000 0 02656	1780		TZE	F82 POSITION.	F5G17810
	02654	2 00001 1 02652	1781		TIX	F81,1,1	F5G17820
	02655	0 07400 4 00004	1782		TSX	4,4 DIAGNOSTIC, ERROR	F5G17830
	02656	−0 63400 1 00565	1783	F82	SXD	XV1,1 STORE THE INDEX	F5G17840
			1784			OF THE NEW REGION WORD	F5G17850
	02657	0 56000 0 00314	1785	F83	LDQ	ZERO STORE INITIAL	F5G17860
	02660	−0 60000 0 00566	1786		STQ	XV2 VALUE OF REGION	F5G17870
	02661	0 02000 4 00001	1787		TRA	1,4	F5G17880
	02662	0 07400 4 01523	1788	F78	TSX	SA,4 GET EXIT CONDITIONS OF REGION.	F5G17890
	02663	0 53400 1 00342	1789		LXA	S5K5,1 PUT EXIT	F5G17900
	02664	0 56000 0 00314	1790		LDQ	ZERO	F5G17910
	02665	0 50000 1 00506	1791	F76	CLA	EX1+3,1 CONDITONS	F5G17920
	02666	0 60100 1 00430	1792		STO	IR1+3,1 INTO	F5G17930
	02667	0 50000 1 00511	1793		CLA	ACT1+3,1 I+R.S	F5G17940
	02670	−0 60000 1 00561	1794		STQ	AC1+3,1	F5G17950
	02671	0 12000 0 02675	1795		TPL	F77 IS THIS EXIT ACTIVE	F5G17960
	02672	0 50000 0 00325	1796		CLA	S3K3 YES,FORM AND	F5G17970
	02673	−0 76000 0 00003	1797		SSM	STORE ACTIVE	F5G17980
	02674	0 60100 1 00561	1798		STO	AC1+3,1 INDICATOR	F5G17990
	02675	2 00001 1 02665	1799	F77	TIX	F76,1,1 COUNT TO 3	F5G18000
	02676	0 50000 0 00325	1800		CLA	S3K3 INITIALIZE	F5G18010
	02677	0 40200 0 00316	1801		SUB	ONED LOOP LIST	F5G18020
	02700	0 60100 0 00440	1802		STO	S3V4 TO ITS	F5G18030
	02701	0 60100 0 00444	1803		STO	S3V5	F5G18040
	02702	0 50000 0 00340	1804		CLA	S5K3 2ED	F5G18050
	02703	0 60100 0 00437	1805		STO	S3V3 ELEMENT	F5G18060
	02704	−0 63400 0 00436	1806		SXD	S3V2,0	F5G18070
	02705	0 02000 0 03072	1807		TRA	X32	F5G18080
	02706	0 07400 4 02651	1808	F75	TSX	F80,4 DETERMINE NEW REGION INDEX	F5G18090
	02707	0 50000 0 04741	1809		CLA	LPLST IS 1ST	F5G18100
	02710	0 56000 0 00324	1810		LDQ	S3K2 ELEMENT OF LPLST A TRANSPARENT	F5G18110
	02711	0 04000 0 02662	1811		TLQ	F78 ON OPAQUE REGION	F5G18120
	02712	0 53400 1 00342	1812		LXA	S5K5,1 NO,INITIALIZE	F5G18130
	02713	0 50000 0 00336	1813		CLA	S5K1 THE	F5G18140
	02714	0 60100 1 00430	1814	F79	STO	IR1+3,1 I.R.S	F5G18150
	02715	2 00001 1 02714	1815		TIX	F79,1,1 TO EMPTINESS	F5G18160
	02716	0 02000 0 03061	1816		TRA	X	F5G18170
			1817			FIRST LXING PASS.	F5G18180
	02717	−0 63400 0 02763	1818	L	SXD	ROT3,0	F5G18190
	02720	−0 63400 0 02756	1819		SXD	ROT1,0	F5G18200
	02721	0 53400 1 00342	1820	INIZ	LXA	S5K5,1 INITIALIZE	F5G18210
	02722	0 50000 0 00336	1821		CLA	S5K1 THE	F5G18220
	02723	0 60100 1 00430	1822	L23	STO	IR1+3,1 INDEX REGISTERS	F5G18230
	02724	2 00001 1 02723	1823		TIX	L23,1,1 TO EMPTINESS.	F5G18240
	02725	0 56000 0 00325	1824		LDQ	S3K3	F5G18250
	02726	−0 60000 0 00440	1825		STQ	S3V4 INITIALIZE THE	F5G18260
	02727	0 56000 0 00340	1826		LDQ	S5K3 LOOP LIST.	F5G18270
	02730	−0 60000 0 00437	1827		STQ	S3V3 MAKE SURE THAT THE	F5G18280
	02731	−0 63400 0 00436	1828		SXD	S3V2,0	F5G18290
	02732	0 07400 4 01023	1829	1L4	TSX	S3,4 GET NEXT TAG.	F5G18300
	02733	0 02000 0 03013	1830		TRA	L6 *RETURN HERE IF TAG WASNT GOTTEN.	F5G18310
	02734	0 53400 1 00342	1831		LXA	S5K5,1 SET COUNT TO 3,N=1	F5G18320
	02735	0 50000 0 00441	1832		CLA	1TAG IS CL (TAG) EQUAL	F5G18330
	02736	0 34000 1 00430	1833	L2	CAS	IR1+3,1 TO C (IRN)	F5G18340
	02737	0 02000 0 02741	1834		TRA	L1 NO.	F5G18350
	02740	0 02000 0 03000	1835		TRA	1L3 YES	F5G18360
	02741	2 00001 1 02736	1836	L1	TIX	L2,1,1 NO. COUNT TO 3,N=N+1	F5G18370
	02742	0 50000 0 00442	1837		CLA	TPE IS THIS	F5G18380
	02743	0 34000 0 00376	1838		CAS	XK15 AN LXP INSTR.	F5G18390
	02744	0 02000 0 02746	1839		TRA	L18 NO,	F5G18400
	02745	0 02000 0 02752	1840		TRA	ROT0 YES	F5G18410
	02746	0 34000 0 00403	1841	L18	CAS	XK21 NO,IS IT A DED INSTR.	F5G18420
	02747	0 02000 0 02773	1842		TRA	L17 NO	F5G18430
	02750	0 02000 0 02752	1843		TRA	ROT0 YES	F5G18440
	02751	0 02000 0 02773	1844		TRA	L17	F5G18450
	02752	−0 53400 2 00440	1845	ROT0	LXD	S3V4,2	F5G18460
	02753	−3 00072 2 02732	1846		TXL	1L4,2,S3P1−2	F5G18470
	02754	−0 53400 2 02763	1847		LXD	ROT3,2	F5G18480
	02755	1 77777 2 02756	1848		TXI	ROT1,2,−1	F5G18490
	02756	−3 00000 2 02732	1849	ROT1	TXL	1L4,2,−	F5G18500
	02757	−0 63400 2 02763	1850		SXD	ROT3,2	F5G18510
	02760	−0 53400 2 00314	1851		LXD	ZERO,2	F5G18520
	02761	0 50000 2 04741	1852	ROT2	CLA	LPLST,2	F5G18530
	02762	0 34000 0 00323	1853		CAS	S3K1	F5G18540
	02763	−3 00000 0 02765	1854	ROT3	TXL	ROT4,0,−	F5G18550
	02764	−3 00000 0 02767	1855		TXL	ROT5,0,−	F5G18560
	02765	0 60100 2 04740	1856	ROT4	STO	LPLST−1,2	F5G18570
	02766	1 77777 2 02761	1857		TXI	ROT2,2,−1	F5G18580
	02767	−0 63400 2 02756	1858	ROT5	SXD	ROT1,2	F5G18590
	02770	0 50000 0 04740	1859		CLA	LPLST−1	F5G18600
	02771	0 60100 2 04740	1860		STO	LPLST−1,2	F5G18610
	02772	0 02000 0 02721	1861		TRA	INIZ	F5G18620
	02773	0 07400 4 00622	1862	L17	TSX	S1,4 SELECT MOST REPLACEABLE I.R.	F5G18630
	02774	−0 53400 4 00430	1863		LXD	IRR,4 PLACE TAU-TAG	F5G18640
	02775	0 50000 0 00441	1864		CLA	1TAG IN APPROPRIATE	F5G18650
	02776	0 60100 4 00430	1865		STO	IR1+3,4 I.R.	F5G18660
	02777	0 02000 0 02732	1866		TRA	1L4	F5G18670
	03000	0 50000 0 00442	1867	1L3	CLA	TPE IS THIS AN LXP	F5G18680
	03001	0 34000 0 00376	1868		CAS	XK15	F5G18690
	03002	0 02000 0 03004	1869		TRA	1L19	F5G18700
	03003	0 02000 0 03010	1870		TRA	L5 YES	F5G18710
	03004	0 34000 0 00403	1871	1L19	CAS	XK21 IS IT AN DED	F5G18720
	03005	0 02000 0 02732	1872		TRA	1L4	F5G18730
	03006	0 02000 0 03010	1873		TRA	L5 YES.	F5G18740
	03007	0 02000 0 02732	1874		TRA	1L4	F5G18750
	03010	0 50000 0 00333	1875	L5	CLA	LK1 PLACE AN E IHASH	F5G18760
	03011	0 60100 1 00430	1876		STO	IR1+3,1 SYMBOL) IN	F5G18770
	03012	0 02000 0 02732	1877		TRA	1L4 RIGHT IR,	F5G18780
	03013	0 60100 0 00554	1878	L6	STO	LV4 IS THIS AN END OF LOOP	F5G18790
	03014	0 34000 0 00323	1879		CAS	S3K1 LIST SENTINEL	F5G18800
	03015	0 02000 0 03017	1880		TRA	L14 NO,	F5G18810
	03016	0 02000 0 03051	1881		TRA	L15 YES,	F5G18820
	03017	−0 50000 0 00554	1882	L14	CAL	LV4 IS	F5G18830
	03020	−0 32000 0 00335	1883		ANA	LK3 THIS A	F5G18840
	03021	0 10000 0 02732	1884		TZE	1L4 BB	F5G18850
	03022	0 50000 0 00554	1885		CLA	LV4 NO,FORM CORRESPONDENCE	F5G18860
	03023	0 07400 4 01245	1886		TSX	S5,4 BETWEEN IRS AND ENS	F5G18870
	03024	0 50000 0 00554	1887		CLA	LV4 GET + STORE EXIT CONDITIONS	F5G18880
	03025	0 07400 4 01523	1888		TSX	SA,4 AND (USELESSLY+ OCTIVE INDICATORS.	F5G18890
	03026	0 53400 1 00342	1889		LXA	S5K5,1 SET COUNT TO 3,N=1	F5G18900
	03027	0 50000 1 00470	1890	L11	CLA	EN4+3,1 PUT CORRESPONDENCE INDEX	F5G18910
	03030	−0 73400 2 00000	1891		PDX	0,2 IN 2.	F5G18920
	03031	0 50000 1 00506	1892		CLA	EX1+3,1 IS THIS EXIT CONDITION	F5G18930
	03032	0 34000 0 00336	1893		CAS	S5K1 EMPTY	F5G18940
	03033	0 02000 0 03035	1894		TRA	L13 NO,	F5G18950
	03034	0 02000 0 03040	1895		TRA	P003	F5G18960
	03035	0 60100 2 00430	1896	L13	STO	IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION.	F5G16970
	03036	2 00001 1 03027	1897	L10	TIX	L11,1,1 COUNT TO 3,N*M+1	F5G18980
	03037	0 02000 0 02732	1898		TRA	1L4	F5G18990
	03040	0 50000 2 00430	1899	P003	CLA	IR1+3,2	F5G19000
	03041	0 56000 0 00333	1900		LDQ	LK1	F5G19010
	03042	0 04000 0 03036	1901		TLQ	L10	F5G19020
	03043	0 53400 4 00342	1902		LXA	S5K5,4	F5G19030
	03044	0 34000 4 00506	1903	P003A	CAS	EX1+3,4	F5G19040
	03045	0 02000 0 03047	1904		TRA	P003B	F5G19050
	03046	−0 60000 2 00430	1905		STQ	IR1+3,2	F5G19060
	03047	2 00001 4 03044	1906	P003B	TIX	P003A,4,1	F5G19070
	03050	0 02000 0 03036	1907		TRA	L10	F5G19080
	03051	0 53400 1 00342	1908	L15	LXA	S5K5,1 COPY ASIDE THE FINAL	F5G19090
	03052	0 50000 1 00430	1909	L16	CLA	IR1+3,1 CONTENTS	F5G19100
	03053	0 34000 0 00333	1910		CAS	LK1 (IF REAL, OTHERWISE	F5G19110
	03054	0 76100 0 00000	1911		NOP		F5G19120
	03055	0 50000 0 00336	1912		CLA	S5K1 SET TO	F5G19130
	03056	0 60100 1 00430	1913		STO	IR1+3,1 EMPTY)	F5G19140
	03057	0 60100 1 00554	1914		STO	LV1+3,1 OF THE	F5G19150
	03060	2 00001 1 03052	1915		TIX	L16,1,1 IRS	F5G19160
			1916			TNE SECOND LXING PASS FOLLOWS.	F5G19170
			1917			PRECEEDED BY 1ST LXING PASS	F5G19180
	03061	0 56000 0 00325	1918	X	LDQ	S3K3 INITIALIZE THE	F5G19190
	03062	−0 60000 0 00440	1919		STQ	S3V4 LOOP LIST AND	F5G19200
	03063	0 56000 0 00340	1920		LDQ	S5K3 MAKE SURE TAG	F5G19210
	03064	−0 60000 0 00437	1921		STQ	S3V3 LOC. GETS SET.	F5G19220
	03065	−0 63400 1 00436	1922		SXD	S3V2,1	F5G19230
	03066	0 50000 0 00314	1923	X21	CLA	ZERO SET ACTIVE INDICATORS	F5G19240
	03067	0 60100 0 00556	1924		STO	AC1 TO	F5G19250
	03070	0 60100 0 00557	1925		STO	AC2	F5G19260
	03071	0 60100 0 00560	1926		STO	AC3 NOT ACTIVE.	F5G19270
	03072	0 50000 0 00314	1927	X32	CLA	ZERO SET LX INDICATORS	F5G19280
	03073	0 60100 0 00562	1928		STO	LX1 TO	F5G19290
	03074	0 60100 0 00563	1929		STO	LX2 NOT	F5G19300
	03075	0 60100 0 00564	1930		STO	LX3 LX ED.	F5G19310
	03076	0 60100 0 00521	1931		STO	ACIND SET IND. TO SAY THIS IS 2ED LXING PASS	F5G19320
	03077	0 07400 4 01023	1932	X3	TSX	S3,4 TRY TO GET NEXT TAG.	F5G19330
	03100	0 02000 0 03322	1933		TRA	X13 COME HERE IF TAG NOT GOT.	F5G19340
	03101	0 50000 0 01122	1934		CLA	S39 COMPUTE LOCATIONS OF	F5G19350
	03102	−0 32000 0 00353	1935		ANA	SBK2 THIS TAG=(ADDR. FOLLOWING	F5G19360
	03103	0 40000 0 00451	1936		ADD	S4V1 TIX BLACK + L (CM)-	F5G19370
	03104	0 40200 0 00332	1937		SUB	S4K3 CMTAG-INDEX OF TAG	F5G19380
	03105	0 76700 0 00022	1938		ALS	18	F5G19390
	03106	−0 40000 0 00436	1939		SBM	S3V2	F5G19400
	03107	0 76500 0 00065	1940		LRS	53 THEN FORM LOC/9	F5G19410
	03110	−0 60000 0 00571	1941		STQ	XV5 AND REMAINDER	F5G19420
	03111	0 22100 0 00371	1942		DVP	XK9 STORE INTEG. PART	F5G19430
	03112	−0 60000 0 00567	1943		STQ	XV3 AND REMAINDER.	F5G19440
	03113	0 60100 0 00570	1944		STO	XV4	F5G19450
	03114	0 53400 1 00342	1945		LXA	S5K5,1 SET COUNT TO 3,N=1	F5G19460
	03115	0 50000 0 00441	1946		CLA	1TAG	F5G19470
	03116	0 34000 1 00430	1947	X2	CAS	IR1+3,1 IS CONTENTS OF IRN SAME AS OF TAG	F5G19480
	03117	0 02000 0 03121	1948		TRA	X1 NO	F5G19490
	03120	0 02000 0 03257	1949		TRA	X7 YES	F5G19500
	03121	2 00001 1 03116	1950	X1	TIX	X2,1,1 NO COUNT OT 3,N=N+1	F5G19510
	03122	0 50000 0 00442	1951		CLA	TPE IS THIS AN	F5G19520
	03123	0 34000 0 00376	1952		CAS	XK15 LX PRIME	F5G19530
	03124	0 02000 0 03126	1953		TRA	X103 NO	F5G19540
	03125	0 02000 0 03131	1954		TRA	X8 YES. COMPILE LXD FOR LXP.	F5G19550
	03126	0 34000 0 00403	1955	X103	CAS	XK21 IS IT A DED	F5G19560
	03127	0 02000 0 03131	1956		TRA	X8	F5G19570
	03130	0 02000 0 03077	1957		TRA	X3 YES	F5G19580
	03131	0 07400 4 00622	1958	X8	TSX	S1,4 SELECT MOST REPLACEABLE I.R.	F5G19590
	03132	−0 53400 1 00430	1959		LXD	IRR,1 PLACE TAU-TAG	F5G19600
	03133	0 50000 0 00441	1960		CLA	1TAG IN SELECTED	F5G19610
	03134	0 60100 1 00430	1961		STO	IR1+3,1 I.R.	F5G19620
	03135	0 50000 1 00561	1962		CLA	AC1+3,1 IS THIS	F5G19630
	03136	0 10000 0 03140	1963		TZE	X4 IR ACTIVE	F5G19640
	03137	0 07400 4 01566	1964		TSX	SB,4 YES,RECORD SXD NECESSARY.	F5G19650
	03140	0 50000 0 00442	1965	X4	CLA	TPE 1S THIS	F5G19660
	03141	0 34000 0 00322	1966		CAS	S2K2 AN LX	F5G19670
	03142	0 02000 0 03144	1967		TRA	X5 NO	F5G19680
	03143	0 02000 0 03155	1968		TRA	X14 YES	F5G19690
	03144	−0 50000 0 00443	1969	X5	CAL	INTAG IS THIS 1ST INSTR.	F5G19700
	03145	−0 32000 0 00363	1970		ANA	XK10 IN A BB	F5G19710
	03146	−0 10000 0 03204	1971		TNZ	X9	F5G19720
	03147	0 50000 0 00567	1972		CLA	XV3 NO,	F5G19730
	03150	0 07400 4 00032	1973		TSX	SE4,4 DETERMINE INDEX IN STAG	F5G19740
	03151	0 53400 2 00570	1974		LXA	XV4,2	F5G19750
	03152	−0 50000 0 00372	1975		CAL	XK11 GENERATE	F5G19760
	03153	0 76700 2 00010	1976		ALS	8,2 LX BIT	F5G19770
	03154	−0 60200 1 05263	1977		ORS	STAG,1 STORE IN STAG.	F5G19780
	03155	0 07400 4 02024	1978	X14	TSX	SF,4 CHECK IF AN ACTIVE INSTR.	F5G19790
	03156	0 02000 0 03162	1979		TRA	X01 COME HERE IF NOT ACTIVE	F5G19800
	03157	−0 53400 1 00430	1980		LXD	IRR,1 ACTIVE-STQRE ACTIVE	F5G19810
	03160	0 50000 0 00526	1981		CLA	SFV1 INDICATOR	F5G19820
	03161	0 60100 1 00561	1982		STO	AC1+3,1	F5G19830
	03162	−0 53400 2 00430	1983	X01	LXD	IRR,2	F5G19840
	03163	0 50000 2 00565	1984		CLA	LX1+3,2 WAS AN ENTRANCE REQUIREMENT	F5G19850
	03164	−0 10000 0 03167	1985		TNZ	X19 BEEN DETERMINED FOR THIS BB.	F5G19860
	03165	0 50000 0 00333	1986		CLA	LK1 NO,RECORD HASH	F5G19870
	03166	0 60100 2 00565	1987		STO	LX1+3,2 AS ENTRANCE REQUIREMENT	F5G19880
	03167	−0 50000 0 00340	1988	X19	CAL	S5K3 RECORD THAT THERE IS AN	F5G19890
	03170	0 77100 2 00003	1989		ARS	3,2 LX FOR THIS IR IN	F5G19900
	03171	−0 60200 0 00566	1990		ORS	XV2 REGION.	F5G19910
	03172	0 50000 0 00567	1991	X02	CLA	XV3 RECORD THE	F5G19920
	03173	0 07400 4 00032	1992		TSX	SE4,4 SPECIFIC	F5G19930
	03174	−0 50000 0 00570	1993		CAL	XV4 TAG	F5G19940
	03175	0 76000 0 00006	1994		COM	IN	F5G19950
	03176	0 73400 2 00000	1995		PAX	0,2 THE	F5G19960
	03177	−0 50000 0 00430	1996		CAL	IRR STAG	F5G19970
	03200	0 77100 2 00000	1997		ARS	0,2 TABLE	F5G19980
	03201	0 77100 2 00000	1998		ARS	0,2	F5G19990
	03202	−0 60200 1 05263	1999		ORS	STAG,1	F5G20000
	03203	0 02000 0 03077	2000		TRA	X3	F5G20010
	03204	−0 53400 1 00440	2001	X9	LXD	S3V4,1 GET	F5G20020
	03205	−3 00072 1 03212	2002		TXL	XI1+1,1,S3P1−2	F5G20030
	03206	0 50000 0 00550	2003		CLA	LPIND	F5G20040
	03207	−0 12000 0 03212	2004		TMI	XI1+1	F5G20050
	03210	−0 53400 2 00430	2005		LXD	IRR,2	F5G20060
	03211	0 02000 0 03243	2006	XI1	TRA	X16−3	F5G20070
	03212	0 50000 1 05033	2007		CLA	LPLST+S3P1−2,1 AND	F5G20080
	03213	0 34000 0 00324	2008		CAS	S3K2 STORE	F5G20090
	03214	0 76100 0 00000	2009		NOP	BB	F5G20100
	03215	0 02000 0 03217	2010		TRA	X117	F5G20110
	03216	0 77100 0 00022	2011		ARS	18 PRED	F5G20120
	03217	0 62100 0 00513	2012	X117	STA	SBV3 NO.	F5G20130
	03220	0 50000 1 05034	2013		CLA	LPLST+S3P1−1,1	F5G20140
	03221	0 07400 4 00070	2014		TSX	SE,4 GET ADDR. OF	F5G20150
	03222	0 50000 1 12533	2015		CLA	BBB,1 1ST PRED.	F5G20160
	03223	0 60200 0 00512	2016	X03	SLW	SBV2	F5G20170
	03224	0 07400 4 00055	2017		TSX	SE5,4 GET PRED.	F5G20180
	03225	−0 50000 1 15674	2018		CAL	PRED,1	F5G20190
	03226	−0 32000 0 00353	2019		ANA	SBK2	F5G20200
	03227	0 34000 0 00513	2020		CAS	SBV3 IS THIS RIGHT PRED.	F5G20210
	03230	0 02000 0 03232	2021		TRA	X04 NO	F5G20220
	03231	0 02000 0 03235	2022		TRA	X05 YES	F5G20230
	03232	0 50000 0 00512	2023	X04	CLA	SBV2 NO ARRANGE TO	F5G20240
	03233	0 40000 0 00315	2024		ADD	ONEA TRY NEXT	F5G20250
	03234	0 02000 0 03223	2025		TRA	X03 PRED.	F5G20260
	03235	−0 53400 2 00430	2026	X05	LXD	IRR,2 PUT LX	F5G20270
	03236	−0 50000 0 00377	2027		CAL	XK16 BIT INTO	F5G20280
	03237	0 77100 2 00003	2028		ARS	3,2 PRED.	F5G20290
	03240	−0 60200 1 15674	2029		ORS	PRED,1 TABLE.	F5G20300
	03241	−0 53400 4 00440	2030		LXD	S3V4,4	F5G20310
	03242	−0 60200 4 05034	2031		ORS	LPLST+S3P1−1,4	F5G20320
	03243	0 50000 2 00430	2032		CLA	IR1+3,2 SET ENTR. REQU.	F5G20330
	03244	0 60100 2 00565	2033		STO	LX1+3,2	F5G20340
	03245	0 02000 0 03155	2034		TRA	X14	F5G20350
	03246	0 07400 4 01661	2035	X16	TSX	SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST	F5G20360
	03247	0 56000 0 00333	2036		LDQ	LK1	F5G20370
	03250	0 50000 1 00565	2037		CLA	LX1+3,1 HAS THIS	F5G20380
	03251	−0 10000 0 03253	2038		TNZ	X100 ENTR. REQU. BEEN DETERMINED	F5G20390
	03252	−0 60000 1 00565	2039		STQ	LX1+3,1 NO,RECORD ENTR. REOU. IS AN E.	F5G20400
	03253	−0 60000 1 00430	2040	X100	STQ	IR1+3,1 ERASE THIS I.R.	F5G20410
	03254	0 50000 0 00314	2041		CLA	ZERO RECORD THAT THIS	F5G20420
	03255	0 60100 1 00561	2042		STO	AC1+3,1 I.R. ISNT ACTIVE.	F5G20430
	03256	0 02000 0 03172	2043		TRA	X02	F5G20440
	03257	−0 63400 1 00430	2044	X7	SXD	IRR,1	F5G20450
	03260	0 50000 0 00442	2045		CLA	TPE IS THIS	F5G20460
	03261	0 34000 0 00376	2046		CAS	XK15 AN LXP	F5G20470
	03262	0 02000 0 03264	2047		TRA	X104 NO	F5G20480
	03263	0 02000 0 03246	2048		TRA	X16 YES.	F5G20490
	03264	0 34000 0 00403	2049	X104	CAS	XK21 IS IT A DED	F5G20500
	03265	0 02000 0 03267	2050		TRA	X15	F5G20510
	03266	0 02000 0 03246	2051		TRA	X16 YES.	F5G20520
	03267	0 07400 4 02024	2052	X15	TSX	SF,4 DETERMINE ACTIVITY.	F5G20530
	03270	0 02000 0 03275	2053		TRA	X17 COME HERE IF NOT ACTIVE.	F5G20540
	03271	−0 53400 1 00430	2054		LXD	IRR,1	F5G20550
	03272	0 07400 4 01661	2055		TSX	SC,4 RECORD PART OF L0OP LIST ACTIVE.	F5G20560
	03273	0 50000 0 00526	2056		CLA	SFV1 STORE ACTIVE	F5G20570
	03274	0 60100 1 00561	2057		STO	AC1+3,1 INDICATOR.	F5G20580
	03275	0 50000 0 00442	2058	X17	CLA	TPE	F5G20590
	03276	0 34000 0 00322	2059		CAS	S2K2 IS THIS AN LX	F5G20600
	03277	0 02000 0 03301	2060		TRA	X18	F5G20610
	03300	0 02000 0 03162	2061		TRA	X01 YES.	F5G20620
	03301	−0 53400 1 00430	2062	X18	LXD	IRR,1	F5G20630
	03302	0 50000 1 00565	2063		CLA	LX1+3,1 WAS THIS	F5G20640
	03303	−0 10000 0 03172	2064		TNZ	X02 I.R. LX ED	F5G20650
	03304	0 50000 1 00430	2065		CLA	IR1+3,1 NO,STORE THE TAG	F5G20660
	03305	0 60100 1 00565	2066		STO	LX1+3,1 IN TH LX INDICATOR.	F5G20670
	03306	0 02000 0 03172	2067		TRA	X02	F5G20680
	03307	0 07400 4 00070	2068	X22	TSX	SE,4 MAKE SURE BB IS IN C+M.	F5G20690
	03310	0 53400 2 00342	2069		LXA	S5K5,2	F5G20700
	03311	0 50000 2 00565	2070	X25	CLA	LX1+3,2	F5G20710
	03312	−0 10000 0 03314	2071		TNZ	X23 HAS THIS ENTRANCE REQ. BEEN FOUND	F5G20720
	03313	0 50000 2 00430	2072		CLA	IR1+3,2 NO,ENTRANCE = EXIT.	F5G20730
	03314	0 76700 0 00022	2073	X23	ALS	18 PUT ENTR. REQ. IN LEFT.	F5G20740
	03315	0 40000 2 00430	2074		ADD	IR1+3,2 ADD THE EXIT REQUIREMENTS.	F5G20750
	03316	0 60200 1 12535	2075		SLW	BBB+2,1	F5G20760
	03317	1 77777 1 03320	2076		TXI	X24,1,−1 DOWN INDEX OF ENTR-EXIT REQU.	F5G20770
	03320	2 00001 2 03311	2077	X24	TIX	X25,2,1 COUNT TO 3	F5G20780
	03321	0 02000 0 03353	2078		TRA	X26	F5G20790
	03322	−0 53400 1 00440	2079	X13	LXD	S3V4,1 GET LOOP LIST QUANTITY	F5G20800
	03323	3 00072 1 03353	2080		TXH	X26,1,S3P1−2 TRANSFER IF THIS IS 1ST IN LPLST	F5G20810
	03324	0 50000 1 05033	2081		CLA	LPLST+S3P1−2,1 OF PREVIOUS QUANTITY	F5G20820
	03325	0 60100 0 00607	2082		STO	XV19	F5G20830
	03326	0 56000 0 00324	2083		LDQ	S3K2 WAS IT	F5G20840
	03327	0 04000 0 03331	2084		TLQ	X126 A BB	F5G20850
	03330	0 77100 0 00022	2085		ARS	18 YES	F5G20860
	03331	−0 32000 0 00326	2086	X126	ANA	S3K4 IS THERE	F5G20870
	03332	0 56000 0 00351	2087		LDQ	SAK1	F5G20880
	03333	0 04000 0 03346	2088		TLQ	X129	F5G20890
	03334	0 07400 4 00067	2089		TSX	SE1,4 YES, GET EXIT BB	F5G20900
	03335	0 50000 1 12533	2090		CLA	BBB,1 WAS THAT BB	F5G20910
	03336	0 77100 0 00041	2091		ARS	33 TERMINATED BY	F5G20920
	03337	0 40000 0 00315	2092		ADD	ONEA A	F5G20930
	03340	−0 10000 0 03346	2093		TNZ	X129 GO TO N	F5G20940
	03341	0 53400 1 00342	2094		LXA	S5K5,1 YES, SET COUNT TO 3	F5G20950
	03342	0 50000 1 00561	2095	X128	CLA	AC1+3,1 IS THIS IR	F5G20960
	03343	0 10000 0 03345	2096		TZE	X127 ACTIVE	F5G20970
	03344	0 07400 4 01566	2097		TSX	SB,4 YES, RECORD SXD NECESSARY	F5G20980
	03345	2 00001 1 03342	2098	X127	TIX	X128,1,1 COUNT TO 3	F5G20990
	03346	0 50000 0 00607	2099	X129	CLA	XV19 GET	F5G21000
	03347	0 34000 0 00324	2100		CAS	S3K2	F5G21010
	03350	0 76100 0 00000	2101		NOP	NO	F5G21020
	03351	0 02000 0 03353	2102		TRA	X26	F5G21030
	03352	0 02000 0 03307	2103		TRA	X22 YES,	F5G21040
	03353	0 50000 0 00444	2104	X26	CLA	S3V5 NO	F5G21050
	03354	0 34000 0 00323	2105		CAS	S3K1 IS THIS AN END-LOOP-LIST	F5G21060
	03355	0 02000 0 03357	2106		TRA	X31 NO	F5G21070
	03356	0 02000 0 04370	2107		TRA	X88 YES	F5G21080
	03357	−0 50000 0 00444	2108	X31	CAL	S3V5	F5G21090
	03360	−0 32000 0 00335	2109		ANA	LK3	F5G21100
	03361	0 34000 0 00400	2110		CAS	XK17 WHAT TYPE ENTRY IS THIS	F5G21110
	03362	0 02000 0 03365	2111		TRA	X118	F5G21120
	03363	0 02000 0 04043	2112		TRA	X33 TRANSPARENT REGION	F5G21130
	03364	0 02000 0 03072	2113		TRA	X32 BB	F5G21140
	03365	0 50000 0 00444	2114	X118	CLA	S3V5 OPAQUE REGION	F5G21150
	03366	0 07400 4 00070	2115		TSX	SE,4 IS	F5G21160
	03367	0 50000 1 12540	2116		CLA	BBB+5,1 THIS	F5G21170
	03370	0 60100 0 00614	2117		STO	XV24	F5G21180
	03371	0 62200 0 00613	2118		STD	XV23 THE	F5G21190
	03372	0 50000 0 04741	2119		CLA	LPLST SAME	F5G21200
	03373	0 56000 0 00361	2120		LDQ	FK4	F5G21210
	03374	0 04000 0 03376	2121		TLQ	X221	F5G21220
	03375	1 00000 0 03404	2122		TXI	X213,0,−	F5G21230
	03376	0 07400 4 00067	2123	X221	TSX	SE1,4 REGION	F5G21240
	03377	0 50000 1 12540	2124		CLA	BBB+5,1 AS	F5G21250
	03400	−0 32000 0 00321	2125		ANA	S2K1 AT THE BEGINNING	F5G21260
	03401	0 40200 0 00613	2126		SUB	XV23 OF THE	F5G21270
	03402	0 60100 0 00614	2127		STO	XV24 STORE IND. OF SAMENESS OF 1ST REGION	F5G21280
	03403	0 10000 0 03724	2128		TZE	X61 LPLST	F5G21290
	03404	0 50000 0 00444	2129	X213	CLA	S3V5	F5G21300
	03405	0 07400 4 01245	2130	X57	TSX	S5,4 NO,MATCH ENTR. REQU.	F5G21310
	03406	−0 53400 1 00613	2131	X63	LXD	XV23,1 GET	F5G21320
	03407	0 50000 1 05263	2132		CLA	REG,1 REGION WORD	F5G21330
	03410	0 07400 4 00070	2133		TSX	SE,4 CST INDEX OF 1ST BB	F5G21340
	03411	−0 50000 1 12534	2134	X209	CAL	BBB+1,1 GET THE	F5G21350
	03412	0 60200 0 00575	2135		SLW	XV9 ORIGINAL PERM. NOS.	F5G21360
	03413	−0 32000 0 00402	2136		ANA	XK20 STORE WORD TO	F5G21370
	03414	0 60200 0 00574	2137		SLW	XV8 CONTAIN NEW PERM. NOS.	F5G21380
	03415	0 53400 2 00342	2138		LXA	S5K5,2 SET COUNT TO 3	F5G21390
	03416	−0 50000 0 00575	2139	X210	CAL	XV9 GET THE	F5G21400
	03417	0 77100 2 00003	2140		ARS	3,2	F5G21410
	03420	0 77100 2 00003	2141		ARS	3,2 PERM. NO. AND	F5G21420
	03421	−0 32000 0 00350	2142		ANA	S9K3 PUT IT	F5G21430
	03422	−0 73400 4 00000	2143		PDX	0,4 IN 4.	F5G21440
	03423	0 50000 4 00470	2144		CLA	EN4+3,4 GET THE	F5G21450
	03424	0 76700 2 00003	2145		ALS	3,2 CORRESPONDENCE	F5G21460
	03425	0 76700 2 00003	2146		ALS	3,2 OF THE ENTR. REQUIREMENTS	F5G21470
	03426	−0 60200 0 00574	2147		ORS	XV8 FORM NEW PERM.	F5G21480
	03427	2 00001 2 03416	2148		TIX	X210,2,1	F5G21490
	03430	−0 50000 0 00574	2149		CAL	XV8 STORE NEW PERM.	F5G21500
	03431	0 62200 1 12534	2150		STD	BBB+1,1 NOS.	F5G21510
	03432	0 50000 1 12540	2151		CLA	BBB+5,1 IS THIS THE LAST	F5G21520
	03433	−0 32000 0 00353	2152		ANA	SBK2 BB IN REGION	F5G21530
	03434	0 34000 0 00353	2153		CAS	SBK2	F5G21540
	03435	0 02000 0 03437	2154		TRA	X211 NO.	F5G21550
	03436	0 02000 0 03441	2155		TRA	X212 YES, DONE	F5G21560
	03437	0 07400 4 00067	2156	X211	TSX	SE1,4 ARRANGE TO DO NEXT	F5G21570
	03440	0 02000 0 03411	2157		TRA	X209 BB.	F5G21580
	03441	0 53400 1 00342	2158	X212	LXA	S5K5,1 SET COUNT TO 3	F5G21590
	03442	0 50000 1 00465	2159	X60	CLA	IN1+3,1 GET INDEX	F5G21600
	03443	−0 73400 2 00000	2160		PDX	0,2 OF EN.	F5G21610
	03444	0 50000 2 00473	2161		CLA	EN1+3,2 IS C(ENM)	F5G21620
	03445	0 34000 1 00430	2162		CAS	IR1+3,1 =C(IRN)	F5G21630
	03446	0 02000 0 03450	2163		TRA	X58	F5G21640
	03447	0 02000 0 03734	2164		TRA	X64 YES,	F5G21650
	03450	0 34000 0 00337	2165	X58	CAS	S5K2 IS C(ENM) REAL	F5G21660
	03451	0 76100 0 00000	2166		NOP	NO,	F5G21670
	03452	0 02000 0 03454	2167		TRA	X119	F5G21680
	03453	0 02000 0 03771	2168		TRA	X67 YES,	F5G21690
	03454	0 50000 1 00561	2169	X119	CLA	AC1+3,1 NO,IS	F5G21700
	03455	0 10000 0 03457	2170	X102	TZE	X59 IRN ACTIVE	F5G21710
	03456	0 07400 4 01566	2171	X65	TSX	SB,4 YES,RECORD SXD NECESSARY.	F5G21720
	03457	2 00001 1 03442	2172	X59	TIX	X60,1,1	F5G21730
	03460	0 07400 4 02042	2173		TSX	SG,4 PERMUTE REGION WORD	F5G21740
	03461	0 50000 0 04741	2174	X89	CLA	LPLST	F5G21750
	03462	0 34000 0 00324	2175		CAS	S3K2 IS IT A BB	F5G21760
	03463	0 07400 4 00067	2176		TSX	SE1,4 NO	F5G21770
	03464	0 02000 0 03466	2177		TRA	X206	F5G21780
	03465	0 02000 0 03471	2178		TRA	X207	F5G21790
	03466	0 50000 1 12540	2179	X206	CLA	BBB+5,1	F5G21800
	03467	−0 73400 1 00000	2180		PDX	0,1	F5G21810
	03470	0 50000 1 05263	2181		CLA	REG,1 FORM NO OF 1ST BB IN REGION	F5G21820
	03471	0 62200 0 00566	2182	X207	STD	XV2	F5G21830
	03472	0 53400 1 00342	2183		LXA	S5K5,1	F5G21840
	03473	0 50000 0 00336	2184	X116	CLA	S5K1	F5G21850
	03474	0 34000 1 00430	2185		CAS	IR1+3,1 IS THIS IR EMPTY	F5G21860
	03475	0 02000 0 03500	2186		TRA	X115	F5G21870
	03476	−0 50000 1 00410	2187		CAL	XK23+3,1 YES, INITIALIZE IR	F5G21880
	03477	−0 60200 0 00566	2188		ORS	XV2 TO EMPTYNESS	F5G21890
	03500	2 00001 1 03473	2189	X115	TIX	X116,1,1 COUNT TO 3	F5G21900
	03501	−0 53400 2 00325	2190		LXD	S3K3,2 PREPARE TO SCAN LO0P LIST	F5G21910
	03502	−0 63400 2 00600	2191		SXD	XV12,2	F5G21920
	03503	0 50000 2 05035	2192	X79	CLA	LPLST+S3P1,2	F5G21930
	03504	0 34000 0 00323	2193		CAS	S3K1 IS THIS END LOOP LIST	F5G21940
	03505	0 02000 0 03507	2194		TRA	X120	F5G21950
	03506	0 02000 0 03717	2195		TRA	X81 YES.	F5G21960
	03507	0 34000 0 00324	2196	X120	CAS	S3K2 IS IT A BB	F5G21970
	03510	0 76100 0 00000	2197		NOP		F5G21980
	03511	0 02000 0 03513	2198		TRA	X121	F5G21990
	03512	0 77100 0 00022	2199		ARS	18 YES.	F5G22000
	03513	0 62100 0 00513	2200	X121	STA	SBV3 STORE EXIT BB NO.	F5G22010
	03514	0 50000 2 05036	2201		CLA	LPLST+S3P1+1,2	F5G22020
	03515	0 34000 0 00323	2202		CAS	S3K1 IS NEXT QUANTITY AN END LPLST	F5G22030
	03516	0 02000 0 03520	2203		TRA	X107	F5G22040
	03517	0 02000 0 03603	2204		TRA	X114 YES.	F5G22050
	03520	0 77100 0 00022	2205	X107	ARS	18	F5G22060
	03521	0 62100 0 00606	2206		STA	XV18 STORE ENTRY BB NO.	F5G22070
	03522	0 40000 0 00315	2207		ADD	ONEA	F5G22080
	03523	0 07400 4 00067	2208		TSX	SE1,4	F5G22090
	03524	−0 50000 1 12533	2209		CAL	BBB,1	F5G22100
	03525	−0 32000 0 00353	2210		ANA	SBK2	F5G22110
	03526	0 60100 0 00515	2211		STO	SBV5	F5G22120
	03527	0 50000 0 00606	2212		CLA	XV18	F5G22130
	03530	0 07400 4 00067	2213		TSX	SE1,4	F5G22140
	03531	0 50000 1 12533	2214		CLA	BBB,1	F5G22150
	03532	−0 32000 0 00353	2215		ANA	SBK2	F5G22160
	03533	0 60200 0 00512	2216	X109	SLW	SBV2	F5G22170
	03534	0 07400 4 00055	2217		TSX	SE5,4	F5G22180
	03535	−0 50000 1 15674	2218		CAL	PRED,1	F5G22190
	03536	−0 32000 0 00353	2219		ANA	SBK2	F5G22200
	03537	0 34000 0 00513	2220		CAS	SBV3 IS THIS THE RIGHT TRANSFER	F5G22210
	03540	0 02000 0 03542	2221		TRA	X108	F5G22220
	03541	0 02000 0 03550	2222		TRA	X110 YES	F5G22230
	03542	0 50000 0 00512	2223	X108	CLA	SBV2 ARRANGE TO TRY	F5G22240
	03543	0 40000 0 00315	2224		ADD	ONEA NEXT PRED.	F5G22250
	03544	0 34000 0 00515	2225		CAS	SBV5 IS THIS PRED ENTRY IN SAME BB	F5G22260
	03545	0 02000 0 03533	2226		TRA	X109	F5G22270
	03546	0 02000 0 03554	2227		TRA	X222	F5G22280
	03547	0 02000 0 03533	2228		TRA	X109	F5G22290
	03550	0 50000 1 15674	2229	X110	CLA	PRED,1 SET SIGN	F5G22300
	03551	−0 76000 0 00003	2230		SSM	OF PRED.	F5G22310
	03552	0 60100 1 15674	2231		STO	PRED,1 ENTRY NEGATIVE.	F5G22320
	03553	0 02000 0 03542	2232		TRA	X108	F5G22330
	03554	0 50000 0 00513	2233	X222	CLA	SBV3 GET INDEX	F5G22340
	03555	0 40000 0 00315	2234		ADD	ONEA	F5G22350
	03556	0 07400 4 00067	2235		TSX	SE1,4 OF	F5G22360
	03557	0 50000 1 12533	2236		CLA	BBB,1	F5G22370
	03560	−0 32000 0 00321	2237		ANA	S2K1	F5G22380
	03561	0 60100 0 00515	2238		STO	SBV5	F5G22390
	03562	0 50000 0 00513	2239		CLA	SBV3	F5G22400
	03563	0 07400 4 00067	2240		TSX	SE1,4	F5G22410
	03564	0 50000 1 12533	2241		CLA	BBB,1	F5G22420
	03565	−0 32000 0 00321	2242		ANA	S2K1	F5G22430
	03566	0 60200 0 00512	2243	X112	SLW	SBV2	F5G22440
	03567	0 07400 4 00044	2244		TSX	SE6,4	F5G22450
	03570	−0 50000 1 16734	2245		CAL	SUCC,1	F5G22460
	03571	−0 32000 0 00353	2246		ANA	SBK2	F5G22470
	03572	0 34000 0 00606	2247		CAS	XV18 IS THIS RIGHT SUCC.	F5G22480
	03573	0 02000 0 03575	2248		TRA	X111	F5G22490
	03574	0 02000 0 03607	2249		TRA	X113	F5G22500
	03575	0 50000 0 00512	2250	X111	CLA	SBV2 ARRANGE TO TRY NEXT SUCC.	F5G22510
	03576	0 40000 0 00316	2251		ADD	ONED	F5G22520
	03577	0 34000 0 00515	2252		CAS	SBV5 IS THIS SUCC IN SAME BB	F5G22530
	03600	0 02000 0 03566	2253		TRA	X112	F5G22540
	03601	0 02000 0 03613	2254		TRA	X74	F5G22550
	03602	0 02000 0 03566	2255		TRA	X112	F5G22560
	03603	0 50000 0 00550	2256	X114	CLA	LPIND IS THIS	F5G22570
	03604	0 12000 0 03613	2257		TPL	X74 A LOOP	F5G22580
	03605	0 50000 0 04741	2258		CLA	LPLST YES	F5G22590
	03606	0 02000 0 03520	2259		TRA	X107	F5G22600
	03607	0 50000 1 16734	2260	X113	CLA	SUCC,1 SET SIGN	F5G22610
	03610	−0 76000 0 00003	2261		SSM	OF SUCC+ ENTRY	F5G22620
	03611	0 60100 1 16734	2262		STO	SUCC,1 NEGATIVE	F5G22630
	03612	0 02000 0 03575	2263		TRA	X111	F5G22640
	03613	−0 53400 2 00600	2264	X74	LXD	XV12,2	F5G22650
	03614	0 50000 2 05035	2265		CLA	LPLST+S3P1,2	F5G22660
	03615	0 34000 0 00324	2266		CAS	S3K2 IS IT A BB	F5G22670
	03616	0 76100 0 00000	2267		NOP		F5G22680
	03617	0 02000 0 03621	2268		TRA	X122	F5G22690
	03620	0 02000 0 03662	2269		TRA	X80 YES	F5G22700
	03621	−0 73400 4 00000	2270	X122	PDX	0,4	F5G22710
	03622	3 77776 4 03624	2271		TXH	X205,4,−2 IS THE DECR. AN IMPOSSIBLE BB	F5G22720
	03623	0 77100 0 00022	2272		ARS	18	F5G22730
	03624	0 07400 4 00067	2273	X205	TSX	SE1,4	F5G22740
	03625	0 50000 1 12540	2274		CLA	BBB+5,1 THE	F5G22750
	03626	−0 73400 1 00000	2275		PDX	0,1 REOEON	F5G22760
	03627	−0 50000 1 05263	2276		CAL	REG,1 WORD	F5G22770
	03630	0 60200 0 00605	2277		SLW	XV17	F5G22780
	03631	0 10000 0 03655	2278		TZE	X105 HAS THIS REGION ALREADY BEEN RENUMBERED	F5G22790
	03632	−0 32000 0 00335	2279		ANA	LK3 OR THE LX BITS FOR	F5G22800
	03633	−0 60200 0 00566	2280		ORS	XV2 OLD REGION IN NEW REGION WORD.	F5G22810
	03634	−0 50000 0 00404	2281		CAL	XK22 AND THE OLD PHI	F5G22820
	03635	−0 50100 0 00605	2282		ORA	XV17 BITS	F5G22830
	03636	0 32000 0 00566	2283		ANS	XV2 INTO NEW REGION WORD.	F5G22840
	03637	0 50000 0 00314	2284		CLA	ZERO CLEAR OLD	F5G22850
	03640	0 60100 1 05263	2285		STO	REG,1 REGION WORD.	F5G22860
	03641	0 50000 0 00605	2286		CLA	XV17 GET INDEX OF	F5G22870
	03642	0 77100 0 00022	2287		ARS	18 FIRST BB IN REG	F5G22880
	03643	0 62100 0 00612	2288	X75	STA	XV22 STOREBB NO.	F5G22890
	03644	0 07400 4 00067	2289		TSX	SE1,4 GET INDEX OF BB	F5G22900
	03645	0 50000 0 00565	2290	X101	CLA	XV1 STORE THE	F5G22910
	03646	0 62200 1 12540	2291		STD	BBB+5,1 NEW REGION NO.	F5G22920
	03647	0 50000 1 12540	2292		CLA	BBB+5,1 IS THIS THE	F5G22930
	03650	−0 32000 0 00353	2293		ANA	SBK2 LAST BB	F5G22940
	03651	0 34000 0 00353	2294		CAS	SBK2 OF THE REGION	F5G22950
	03652	0 02000 0 03643	2295		TRA	X75	F5G22960
	03653	0 02000 0 03665	2296		TRA	X76 YES.	F5G22970
	03654	0 02000 0 03643	2297		TRA	X75	F5G22980
	03655	0 50000 0 00612	2298	X105	CLA	XV22 RECORD THAT PREVI0USLY	F5G22990
	03656	0 07400 4 00067	2299		TSX	SE1,4 NUMBERED BB	F5G23000
	03657	0 50000 0 00404	2300		CLA	XK22 WAS LAST	F5G23010
	03660	0 62100 1 12540	2301		STA	BBB+5,1 ONE IN NEW REGION.	F5G23020
	03661	0 02000 0 03717	2302		TRA	X81 FINISHED RENUMBERING.	F5G23030
	03662	0 77100 0 00022	2303	X80	ARS	18	F5G23040
	03663	0 62100 0 00612	2304		STA	XV22	F5G23050
	03664	0 07400 4 00067	2305		TSX	SE1,4	F5G23060
	03665	−0 53400 2 00600	2306	X76	LXD	XV12,2	F5G23070
	03666	1 77777 2 03667	2307	X140	TXI	X140+1,2,−1	F5G23080
	03667	−0 63400 2 00600	2308		SXD	XV12,2	F5G23090
	03670	0 50000 2 05035	2309	X77	CLA	LPLST+S3P1,2	F5G23100
	03671	0 34000 0 00323	2310		CAS	S3K1 IS THIS END LOOP LIST	F5G23110
	03672	1 00000 0 03700	2311	X219	TXI	X217,0,− SEE X217+2	F5G23120
	03673	0 50000 0 00336	2312		CLA	S5K1 YES	F5G23130
	03674	0 62100 1 12540	2313	X216	STA	BBB+5,1 RECORD THE NEXT BB NO.	F5G23140
	03675	0 50000 0 00565	2314		CLA	XV1 RECORD THE	F5G23150
	03676	0 62200 1 12540	2315		STD	BBB+5,1 NEW REGION	F5G23160
	03677	0 02000 0 03503	2316		TRA	X79 NO.	F5G23170
	03700	0 56000 0 00324	2317	X217	LDQ	S3K2	F5G23180
	03701	0 04000 0 03704	2318		TLQ	X220	F5G23190
	03702	0 77100 0 00022	2319	X215	ARS	18 NO	F5G23200
	03703	1 00000 0 03674	2320	X218	TXI	X216,0,−	F5G23210
	03704	−0 63400 2 03672	2321	X220	SXD	X219,2	F5G23220
	03705	0 07400 4 00070	2322		TSX	SE,4	F5G23230
	03706	0 50000 1 12540	2323		CLA	BBB+5,1	F5G23240
	03707	−0 73400 1 00000	2324		PDX	0,1	F5G23250
	03710	0 50000 1 05263	2325		CLA	REG,1 GET REGION WORD	F5G23260
	03711	0 62200 0 03703	2326		STD	X218	F5G23270
	03712	0 50000 0 00612	2327		CLA	XV22	F5G23280
	03713	0 07400 4 00067	2328		TSX	SE1,4	F5G23290
	03714	0 50000 0 03703	2329		CLA	X218	F5G23300
	03715	−0 53400 2 03672	2330		LXD	X219,2	F5G23310
	03716	1 00000 0 03702	2331		TXI	X215,−,−	F5G23320
	03717	0 50000 0 00566	2332	X81	CLA	XV2	F5G23330
	03720	−0 50100 0 00315	2333		ORA	ONEA	F5G23340
	03721	−0 53400 1 00565	2334		LXD	XV1,1 NEW REGION	F5G23350
	03722	0 60100 1 05263	2335		STO	REG,1 WORD.	F5G23360
	03723	0 02000 0 02177	2336		TRA	F	F5G23370
	03724	0 53400 1 00342	2337	X61	LXA	S5K5,1	F5G23380
	03725	−0 75400 1 00000	2338	X62	PXD	0,1 PLACE APPROPRIATE NOS.	F5G23390
	03726	0 62200 1 00465	2339		STD	IN1+3,1 IN CORRSEPONDENCE	F5G23400
	03727	0 62200 1 00470	2340		STD	EN4+3,1 TABLES	F5G23410
	03730	2 00001 1 03725	2341		TIX	X62,1,1	F5G23420
	03731	0 50000 0 00444	2342		CLA	S3V5	F5G23430
	03732	0 07400 4 01466	2343		TSX	S9,4 GET THE ENTRANCE REQUIREMENTS	F5G23440
	03733	0 02000 0 03406	2344		TRA	X63	F5G23450
	03734	0 50000 1 00561	2345	X64	CLA	AC1+3,1 IS THIS I.R.	F5G23460
	03735	0 10000 0 03457	2346		TZE	X59 ACTIVE	F5G23470
	03736	−0 53400 4 00440	2347		LXD	S3V4,4 YES.	F5G23480
	03737	0 50000 4 05034	2348		CLA	LPLST+S3P1−1,4 GET	F5G23490
	03740	−0 63400 1 00577	2349		SXD	XV11,1 THE	F5G23500
	03741	−0 63400 2 00600	2350		SXD	XV12,2 REGION	F5G23510
	03742	0 07400 4 00070	2351		TSX	SE,4 WORD	F5G23520
	03743	0 50000 1 12540	2352		CLA	BBB+5,1 IN	F5G23530
	03744	−0 73400 4 00000	2353		PDX	0,4 THE	F5G23540
	03745	0 56000 4 05263	2354		LDQ	REG,4 MQ.	F5G23550
	03746	−0 53400 1 00577	2355		LXD	XV11,1 HAS THERE	F5G23560
	03747	−0 53400 2 00600	2356		LXD	XV12,2	F5G23570
	03750	−0 77300 2 00003	2357		RQL	3,2 BEEN AN LX	F5G23580
	03751	0 16200 0 03753	2358		TQP	X66 FOR THIS I.R.	F5G23590
	03752	0 02000 0 03456	2359		TRA	X65 YES	F5G23600
	03753	0 50000 0 00614	2360	X66	CLA	XV24	F5G23610
	03754	−0 10000 0 03762	2361		TNZ	X208 IS THIS SAME REG. AS BEGINS STRING	F5G23620
	03755	0 50000 0 04741	2362		CLA	LPLST YES	F5G23630
	03756	0 07400 4 01523	2363		TSX	SA,4 GET ACTIVE INDS. AT START OF STRING	F5G23640
	03757	−0 53400 1 00577	2364		LXD	XV11,1	F5G23650
	03760	0 50000 1 00511	2365		CLA	ACT1+3,1 WAS THIS IR ACTIVE AT START	F5G23660
	03761	0 12000 0 03456	2366		TPL	X65	F5G23670
	03762	−0 53400 4 00440	2367	X208	LXD	S3V4,4 YES, MARK ALL	F5G23680
	03763	0 50000 4 05034	2368		CLA	LPLST+S3P1−1,4 BBS IN OPAQUE	F5G23690
	03764	−0 53400 2 00577	2369		LXD	XV11,2 REGION ACTIVE	F5G23700
	03765	0 07400 4 01753	2370		TSX	SD,4	F5G23710
	03766	−0 53400 1 00577	2371		LXD	XV11,1	F5G23720
	03767	0 07400 4 01661	2372		TSX	SC,4 MARK SECTION OF LLLST ACTIVE	F5G23730
	03770	0 02000 0 03457	2373		TRA	X59	F5G23740
	03771	−0 63400 1 00577	2374	X67	SXD	XV11,1	F5G23750
	03772	−0 53400 1 00440	2375		LXD	S3V4,1 GET	F5G23760
	03773	0 50000 1 05033	2376		CLA	LPLST+S3P1−2,1 PRED+ NO	F5G23770
	03774	0 34000 0 00324	2377		CAS	S3K2 IS THIS A BB	F5G23780
	03775	0 76100 0 00000	2378		NOP	NO,	F5G23790
	03776	0 02000 0 04000	2379		TRA	X123	F5G23800
	03777	0 77100 0 00022	2380		ARS	18 YES,SHIFT BB NO RIGHT.	F5G23810
	04000	0 62100 0 00513	2381	X123	STA	SBV3 AND STORE IT	F5G23020
	04001	0 50000 1 05034	2382		CLA	LPLST+S3P1−1,1 GET INDEX OF	F5G23830
	04002	0 07400 4 00070	2383		TSX	SE,4 THIS BB	F5G23840
	04003	0 50000 1 12534	2384		CLA	BBB+1,1 GET TO STORE	F5G23050
	04004	0 60100 0 00575	2385		STO	XV9 PREM. NO. -	F5G23060
	04005	0 50000 1 12533	2386		CLA	BBB,1 GET PRED. NO.	F5G23070
	04006	0 60200 0 00512	2387	X68	SLW	SBV2	F5G23880
	04007	0 07400 4 00055	2388		TSX	SE5,4 GET INDEX OF PRED.	F5G23890
	04010	−0 50000 1 15674	2389		CAL	PRED,1 IS THIS THE	F5G23900
	04011	−0 32000 0 00353	2390		ANA	SBK2 RIGHT PRED	F5G23910
	04012	0 34000 0 00513	2391		CAS	SBV3	F5G23920
	04013	0 02000 0 04015	2392		TRA	X69	F5G23930
	04014	0 02000 0 04020	2393		TRA	X70 YES.	F5G23940
	04015	0 50000 0 00512	2394	X69	CLA	SBV2	F5G23950
	04016	0 40000 0 00315	2395		ADD	ONEA	F5G23960
	04017	0 02000 0 04006	2396		TRA	X68	F5G23970
	04020	0 53400 4 00342	2397	X70	LXA	S5K5,4 SET COUNT TO 3	F5G23980
	04021	−0 50000 0 00575	2398	X72	CAL	XV9 FIND	F5G23990
	04022	0 77100 4 00003	2399		ARS	3,4 THE	F5G24000
	04023	0 77100 4 00003	2400		ARS	3,4 PERM+ NO.	F5G24010
	04024	−0 32000 0 00350	2401		ANA	S9K3	F5G24020
	04025	0 34000 0 00577	2402		CAS	XV11 IS THIS THE RIGHT I.R.	F5G24030
	04026	0 02000 0 04030	2403		TRA	X71 NO,	F5G24040
	04027	0 02000 0 04032	2404		TRA	X73 YES,	F5G24050
	04030	2 00001 4 04021	2405	X71	TIX	X72,4,1 NO,	F5G24060
	04031	0 07400 4 00004	2406		TSX	4,4 DIAGNOSTIC, ERROR.	F5G24070
	04032	−0 50000 0 00377	2407	X73	CAL	XK16 RECORD THAT AN	F5G24080
	04033	0 77100 4 00003	2408		ARS	3,4 LX IS	F5G24090
	04034	−0 60200 1 15674	2409		ORS	PRED,1 NECESSARY.	F5G24100
	04035	−0 53400 4 00577	2410		LXD	XV11,4 RECORD	F5G24110
	04036	−0 50000 0 00340	2411		CAL	S5K3 LX	F5G24120
	04037	0 77100 4 00003	2412		ARS	3,4 FOR THIS I.R.	F5G24130
	04040	−0 60200 0 00566	2413		ORS	XV2 IN THIS REGION.	F5G24140
	04041	−0 53400 1 00577	2414		LXD	XV11,1	F5G24150
	04042	0 02000 0 03454	2415		TRA	X119	F5G24160
	04043	0 50000 0 00444	2416	X33	CLA	S3V5	F5G24170
	04044	0 07400 4 01245	2417		TSX	S5,4 MATCH ENTRANCE REQU.	F5G24180
	04045	0 50000 0 00444	2418		CLA	S3V5	F5G24190
	04046	0 07400 4 01523	2419		TSX	SA,4 GET EXIT COND.	F5G24200
	04047	0 50000 0 00444	2420		CLA	S3V5	F5G24210
	04050	0 07400 4 00070	2421		TSX	SE,4 GET INDEX OF	F5G24220
	04051	0 50000 1 12540	2422		CLA	BBB+5,1 B.B.	F5G24230
	04052	−0 73400 1 00000	2423		PDX	0,1 GET	F5G24240
	04053	0 50000 1 05263	2424		CLA	REG,1 REGION	F5G24250
	04054	0 07400 4 00070	2425		TSX	SE,4 WORD.	F5G24260
	04055	−0 63400 1 00601	2426	X40	SXD	XV13,1 GET INDEX OF FIRST BB.	F5G24270
	04056	−0 50000 1 12534	2427		CAL	BBB+1,1 CLEAR REGISTER TO	F5G24280
	04057	0 60200 0 00575	2428		SLW	XV9 CONTAIN PERM. NOS.	F5G24290
	04060	−0 32000 0 00402	2429		ANA	XK20 GET ORIGINAL PERM. NOS.	F5G24300
	04061	0 60200 0 00574	2430		SLW	XV8	F5G24310
	04062	0 53400 2 00342	2431		LXA	S5K5,2 SET COUNT TO 3.	F5G24320
	04063	−0 50000 0 00575	2432	X38	CAL	XV9 GET THE	F5G24330
	04064	0 77100 2 00003	2433		ARS	3,2 PERM.	F5G24340
	04065	0 77100 2 00003	2434		ARS	3,2 NO. AND	F5G24350
	04066	−0 32000 0 00350	2435		ANA	S9K3 PUT IT	F5G24360
	04067	−0 73400 4 00000	2436		PDX	0,4 IN 4.	F5G24370
	04070	0 50000 4 00470	2437		CLA	EN4+3,4 GET THE CORRESPONDENCE	F5G24380
	04071	0 76700 2 00003	2438		ALS	3,2 OF THE ENTR,	F5G24390
	04072	0 76700 2 00003	2439		ALS	3,2 REQUIREMENTS.	F5G24400
	04073	−0 60200 0 00574	2440		ORS	XV8 FORM NEW PERM. NOS.	F5G24410
	04074	−0 63400 1 00576	2441		SXD	XV10,1	F5G24420
	04075	0 50000 4 00470	2442		CLA	EN4+3,4	F5G24430
	04076	−0 73400 1 00000	2443		PDX	0,1 GET INDEX OF I.R.	F5G24440
	04077	0 50000 4 00473	2444		CLA	EN1+3,4	F5G24450
	04100	0 34000 0 00336	2445		CAS	S5K1 IS ENM EMPTY	F5G24460
	04101	0 02000 0 04103	2446		TRA	X34 NO,	F5G24470
	04102	0 02000 0 04150	2447		TRA	X41 YES,	F5G24480
	04103	0 34000 0 00333	2448	X34	CAS	LK1 NO,IS C(ENM)=E	F5G24490
	04104	0 02000 0 04106	2449		TRA	X35 NO,	F5G24500
	04105	0 02000 0 04111	2450		TRA	X36 YES,	F5G24510
	04106	0 34000 1 00430	2451	X35	CAS	IR1+3,1 C-(ENM)=C(IRN)	F5G24520
	04107	0 02000 0 04111	2452		TRA	X36 NO	F5G24530
	04110	0 02000 0 04132	2453		TRA	X43 YES	F5G24540
	04111	−0 53400 1 00576	2454	X36	LXD	XV10,1 NO	F5G24550
	04112	1 77777 1 04113	2455	X42	TXI	X42+1,1,−1	F5G24560
	04113	2 00001 2 04063	2456	X37	TIX	X38,2,1 COUNT TO 3	F5G24570
	04114	−0 50000 0 00574	2457		CAL	XV8 STORE NEW	F5G24580
	04115	0 62200 1 12531	2458		STD	BBB−2,1 PERM. NOS.	F5G24590
	04116	0 63000 1 12531	2459		STP	BBB−2,1 AND ACTIVE INDICATORS	F5G24600
	04117	0 50000 1 12535	2460		CLA	BBB+2,1 IS THIS	F5G24610
	04120	−0 32000 0 00353	2461		ANA	SBK2 LAST BB IN REGION	F5G24620
	04121	0 34000 0 00353	2462		CAS	SBK2	F5G24630
	04122	0 02000 0 04124	2463		TRA	X39	F5G24640
	04123	0 02000 0 04217	2464		TRA	X45 YES,DONE.	F5G24650
	04124	0 07400 4 00067	2465	X39	TSX	SE1,4 GET INDEX 0F NEXT B.B.	F5G24660
	04125	0 02000 0 04055	2466		TRA	X40	F5G24670
	04126	0 50000 4 00506	2467	X200	CLA	EX1+3,4 IS CONTENTS OF IR	F5G24680
	04127	0 56000 0 00337	2468		LDQ	S5K2 AT EXIT	F5G24690
	04130	0 04000 0 04135	2469		TLQ	X130 REAL	F5G24700
	04131	0 02000 0 04111	2470		TRA	X36 YES	F5G24710
	04132	0 50000 4 00511	2471	X43	CLA	ACT1+3,4	F5G24720
	04133	−0 63400 1 05664	2472	PW0	SXD	W2+1,1	F5G24730
	04134	0 12000 0 04126	2473		TPL	X200 IS IT ACTIVE AT EXIT	F5G24740
	04135	0 50000 1 00561	2474	X130	CLA	AC1+3,1 YES,IS THIS IR ACTIVE	F5G24750
	04136	0 10000 0 04111	2475		TZE	X36	F5G24760
	04137	0 50000 1 00430	2476		CLA	IR1+3,1 YES	F5G24770
	04140	0 60100 0 00611	2477		STO	XV21	F5G24780
	04141	−0 53400 1 00576	2478		LXD	XV10,1 DOES THIS BB CONTAIN THE	F5G24790
	04142	0 50000 1 12535	2479		CLA	BBB+2,1 SAME TAG IN THIS POSITION	F5G24800
	04143	−0 32000 0 00336	2480		ANA	S5K1	F5G24810
	04144	0 34000 0 00611	2481		CAS	XV21	F5G24820
	04145	0 02000 0 05644	2482		TRA	W0	F5G24830
	04146	0 02000 0 04213	2483		TRA	X44 YES.	F5G24840
	04147	0 02000 0 05644	2484		TRA	W0	F5G24850
			2485			C(XV10)= INDEX OF PARTICULAR	F5G24860
			2486			ENTRANCE REQUIREMENT.	F5G24870
	04150	0 50000 1 00430	2487	X41	CLA	IR1+3,1	F5G24880
	04151	0 60100 0 00572	2488		STO	XV6	F5G24890
	04152	0 76700 0 00022	2489		ALS	18 STORE AWAY THIS	F5G24900
	04153	0 40000 1 00430	2490		ADD	IR1+3,1 TAG TEMPORARILY.	F5G24910
	04154	0 60200 0 00573	2491		SLW	XV7	F5G24920
	04155	0 50000 1 00430	2492		CLA	IR1+3,1 IS THIS	F5G24930
	04156	0 56000 0 00337	2493		LDQ	S5K2 TAG	F5G24940
	04157	0 04000 0 04176	2494		TLQ	X201	F5G24950
	04160	−0 53400 1 00601	2495		LXD	XV13,1	F5G24960
	04161	0 53400 4 00342	2496		LXA	S5K5,4 SET COUNT TO 3.	F5G24970
	04162	−0 50000 1 12535	2497	X85	CAL	BBB+2,1	F5G24980
	04163	0 76500 0 00022	2498		LRS	18	F5G24990
	04164	0 34000 0 00572	2499		CAS	XV6 IS ENTR. REQU. EQUAL TO TAG	F5G25000
	04165	0 02000 0 04167	2500		TRA	X82 NO,	F5G25010
	04166	0 02000 0 04202	2501		TRA	X86 YES,	F5G25020
	04167	0 50000 0 00314	2502	X82	CLA	ZERO NO,	F5G25030
	04170	0 76300 0 00022	2503		LLS	18	F5G25040
	04171	0 34000 0 00572	2504		CAS	XV6 IS TAG EQUAL TO EXIT COND.	F5G25050
	04172	0 02000 0 04174	2505		TRA	X83	F5G25060
	04173	0 02000 0 04206	2506		TRA	X87 YES	F5G25070
	04174	1 77777 1 04175	2507	X83	TXI	X83+1,1,−1	F5G25080
	04175	2 00001 4 04162	2508	X84	TIX	X85,4,1 COUNT TO 3.	F5G25090
	04176	0 50000 0 00573	2509	X201	CLA	XV7 STORE THE	F5G25100
	04177	−0 53400 1 00576	2510		LXD	XV10,1 NEW ENTRANCE-	F5G25110
	04200	0 60100 1 12535	2511		STO	BBB+2,1 EXIT REQUI.	F5G25120
	04201	0 02000 0 04112	2512		TRA	X42	F5G25130
	04202	−0 50000 0 00366	2513	X86	CAL	XK18 PUT AN E	F5G25140
	04203	0 62200 0 00573	2514		STD	XV7 IN THE ENTR. REQU.	F5G25150
	04204	0 63000 0 00573	2515		STP	XV7	F5G25160
	04205	0 02000 0 04167	2516		TRA	X82	F5G25170
	04206	−0 50000 0 00573	2517	X87	CAL	XV7 PLACE E	F5G25180
	04207	−0 32000 0 00401	2518		ANA	XK19 IN	F5G25190
	04210	0 40000 0 00333	2519		ADD	LK1 EXIT	F5G25200
	04211	0 60200 0 00573	2520		SLW	XV7 REQUIREMENT.	F5G25210
	04212	0 02000 0 04174	2521		TRA	X83	F5G25220
	04213	−0 50000 0 00340	2522	X44	CAL	S5K3 RECORD THIS	F5G25230
	04214	0 77100 2 00003	2523		ARS	3,2 I.R.	F5G25240
	04215	−0 60200 0 00574	2524		ORS	XV8 ACTIVE	F5G25250
	04216	0 02000 0 04112	2525		TRA	X42	F5G25260
	04217	0 53400 2 00342	2526	X45	LXA	S5K5,2	F5G25270
	04220	−0 63400 2 00602	2527	X56	SXD	XV14,2	F5G25280
	04221	0 50000 2 00470	2528		CLA	EN4+3,2	F5G25290
	04222	−0 73400 4 00000	2529		PDX	0,4 GET INDEX	F5G25300
	04223	−0 63400 4 00514	2530		SXD	SBV4,4 OF I.R.	F5G25310
	04224	0 50000 2 00473	2531		CLA	EN1+3,2	F5G25320
	04225	0 34000 0 00336	2532		CAS	S5K1 IS ENM EMPTY	F5G25330
	04226	0 02000 0 04230	2533		TRA	X46	F5G25340
	04227	0 02000 0 04343	2534		TRA	X223	F5G25350
	04230	0 34000 0 00333	2535	X46	CAS	LK1 IS THERE HASH IN ENM	F5G25360
	04231	0 02000 0 04233	2536		TRA	X134	F5G25370
	04232	0 02000 0 04307	2537		TRA	X55 YES	F5G25380
	04233	0 34000 4 00430	2538	X134	CAS	IR1+3,4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN	F5G25390
	04234	0 02000 0 04236	2539		TRA	X47 NO	F5G25400
	04235	0 02000 0 04357	2540		TRA	X131 YES	F5G25410
	04236	−0 53400 1 00440	2541	X47	LXD	S3V4,1 GET AND	F5G25420
	04237	0 50000 1 05033	2542		CLA	LPLST+S3P1−2,1 STORE PRED.	F5G25430
	04240	0 34000 0 00324	2543		CAS	S3K2 BB	F5G25440
	04241	0 76100 0 00000	2544		NOP	NO.	F5G25450
	04242	0 02000 0 04244	2545		TRA	X124	F5G25460
	04243	0 77100 0 00022	2546		ARS	18	F5G25470
	04244	0 62100 0 00513	2547	X124	STA	SBV3	F5G25480
	04245	0 50000 1 05034	2548		CLA	LPLST+S3P1−1,1 GET	F5G25490
	04246	0 07400 4 00070	2549		TSX	SE,4 BB NO.	F5G25500
	04247	0 50000 1 12534	2550		CLA	BBB+1,1 STORE THE	F5G25510
	04250	0 60100 0 00575	2551		STO	XV9 PERM. NOS.	F5G25520
	04251	0 50000 1 12540	2552		CLA	BBB+5,1	F5G25530
	04252	−0 73400 4 00000	2553		PDX	0,4	F5G25540
	04253	−0 53400 2 00602	2554		LXD	XV14,2	F5G25550
	04254	−0 50000 0 00340	2555		CAL	S5K3	F5G25560
	04255	0 77100 2 00003	2556		ARS	3,2	F5G25570
	04256	−0 60200 4 05263	2557		ORS	REG,4	F5G25580
	04257	0 50000 1 12533	2558		CLA	BBB,1 GET PRED. NO.	F5G25590
	04260	0 60200 0 00512	2559	X48	SLW	SBV2 STORE PRED. NO.	F5G25600
	04261	0 07400 4 00055	2560		TSX	SE5,4 OBTAIN PRED. INDEX.	F5G25610
	04262	−0 50000 1 15674	2561		CAL	PRED,1 IS THIS	F5G25620
	04263	−0 32000 0 00353	2562		ANA	SBK2 THE CORRECT	F5G25630
	04264	0 34000 0 00513	2563		CAS	SBV3 PRED	F5G25640
	04265	0 02000 0 04267	2564		TRA	X49	F5G25650
	04266	0 02000 0 04272	2565		TRA	X50 YES.	F5G25660
	04267	0 50000 0 00512	2566	X49	CLA	SBV2 ARRANGE TO	F5G25670
	04270	0 40000 0 00315	2567		ADD	ONEA TRY NEXT PREDECESSOR.	F5G25680
	04271	0 02000 0 04260	2568		TRA	X48	F5G25690
	04272	0 53400 4 00342	2569	X50	LXA	S5K5,4 1 HAS INDEX OF PRED.	F5G25700
	04273	−0 50000 0 00575	2570	X52	CAL	XV9 EXTRACT	F5G25710
	04274	0 77100 4 00003	2571		ARS	3,4 THE	F5G25720
	04275	0 77100 4 00003	2572		ARS	3,4 PERM.	F5G25730
	04276	−0 32000 0 00350	2573		ANA	S9K3 NO.	F5G25740
	04277	0 34000 0 00514	2574		CAS	SBV4 IS THIS THE PERM. NO.	F5G25750
	04300	0 02000 0 04302	2575		TRA	X51	F5G25760
	04301	0 02000 0 04304	2576		TRA	X53 YES.	F5G25770
	04302	2 00001 4 04273	2577	X51	TIX	X52,4,1	F5G25780
	04303	0 07400 4 00004	2578		TSX	4,4 DIAGNOSTIC, ERROR.	F5G25790
	04304	−0 50000 0 00377	2579	X53	CAL	XK16 GENERATE	F5G25800
	04305	0 77100 4 00003	2580		ARS	3,4 THE LX BIT.	F5G25810
	04306	−0 60200 1 15674	2581		ORS	PRED,1 INSERT LX BIT.	F5G25820
	04307	−0 53400 1 00514	2582	X55	LXD	SBV4,1 IS THE	F5G25830
	04310	0 50000 1 00561	2583		CLA	AC1+3,1 I.R.	F5G25840
	04311	0 10000 0 04313	2584		TZE	X135 ACTIVE	F5G25850
	04312	0 07400 4 01566	2585		TSX	SB,4 YES,RECORD SXD NEEDED.	F5G25860
	04313	−0 53400 2 00602	2586	X135	LXD	XV14,2 REPLACE IR	F5G25870
	04314	−0 53400 4 00514	2587		LXD	SBV4,4 BY EXIT CONDITIONS	F5G25880
	04315	0 50000 2 00506	2588		CLA	EX1+3,2 OF THE	F5G25890
	04316	0 60100 4 00430	2589		STO	IR1+3,4 REGION	F5G25900
	04317	0 50000 2 00511	2590	X136	CLA	ACT1+3,2 IS IR	F5G25910
	04320	0 12000 0 04325	2591		TPL	X54 ACTIVE AT EXIT	F5G25920
	04321	0 50000 0 00440	2592		CLA	S3V4 SET	F5G25930
	04322	−0 76000 0 00003	2593		SSM	ACTIVE	F5G25940
	04323	0 40200 0 00316	2594		SUB	ONED INDICATOR	F5G25950
	04324	0 60100 4 00561	2595		STO	AC1+3,4	F5G25960
	04325	−0 53400 2 00602	2596	X54	LXD	XV14,2 COUNT TO	F5G25970
	04326	2 00001 2 04220	2597		TIX	X56,2,1 3	F5G25980
	04327	0 07400 4 02042	2598		TSX	SG,4 PERMUTE REGION WORD	F5G25990
	04330	−0 50000 2 05263	2599		CAL	REG,2	F5G26000
	04331	−0 32000 0 00404	2600		ANA	XK22	F5G26010
	04332	0 60200 2 05263	2601		SLW	REG,2	F5G26020
	04333	0 53400 4 00342	2602		LXA	S5K5,4	F5G26030
	04334	0 50000 4 00430	2603	XY1	CLA	IR1+3,4	F5G26040
	04335	0 40200 0 00336	2604		SUB	S5K1	F5G26050
	04336	−0 10000 0 04341	2605		TNZ	XY2	F5G26060
	04337	−0 50000 4 00410	2606		CAL	XK23+3,4	F5G26070
	04340	−0 60200 2 05263	2607		ORS	REG,2	F5G26080
	04341	2 00001 4 04334	2608	XY2	TIX	XY1,4,1	F5G26090
	04342	0 02000 0 03077	2609		TRA	X3	F5G26100
	04343	0 50000 4 00430	2610	X223	CLA	IR1+3,4 IS CONTENTS OF IR REAL	F5G26110
	04344	0 56000 0 00337	2611		LDQ	S5K2	F5G26120
	04345	0 04000 0 04325	2612		TLQ	X54	F5G26130
	04346	0 53400 1 00342	2613		LXA	S5K5,1 YES, SET COUNT TO 3	F5G26140
	04347	0 34000 1 00506	2614	X225	CAS	EX1+3,1 IS CONTENTS SAME AS EXIT CONDITIONS	F5G26150
	04350	0 02000 0 04352	2615		TRA	X224	F5G26160
	04351	0 02000 0 04354	2616		TRA	X226 YES	F5G26170
	04352	2 00001 1 04347	2617	X224	TIX	X225,1,1 COUNT TO 3	F5G26180
	04353	0 02000 0 04325	2618		TRA	X54	F5G26190
	04354	0 50000 0 00333	2619	X226	CLA	LK1 REPLACE IR BY E	F5G26200
	04355	0 60100 4 00430	2620		STO	IR1+3,4	F5G26210
	04356	0 02000 0 04325	2621		TRA	X54	F5G26220
	04357	0 56000 2 00506	2622	X131	LDQ	EX1+3,2 IS THE EXIT	F5G26230
	04360	0 50000 0 00337	2623		CLA	S5K2 CONDITION REAL FOR THIS IR	F5G26240
	04361	0 04000 0 04365	2624		TLQ	X132	F5G26250
	04362	−0 53400 1 00514	2625	X133	LXD	SBV4,1 NO	F5G26260
	04363	0 07400 4 01661	2626		TSX	SC,4 RECORD PART OF LPLST ACTIVE	F5G26270
	04364	0 02000 0 04313	2627		TRA	X135	F5G26280
	04365	0 50000 2 00511	2628	X132	CLA	ACT1+3,2 IS THIS IR ACTIVE	F5G26290
	04366	0 12000 0 04313	2629		TPL	X135 AT EXIT OF REGION	F5G26300
	04367	0 02000 0 04362	2630		TRA	X133 YES	F5G26310
	04370	0 50000 0 00550	2631	X88	CLA	LPIND	F5G26320
	04371	0 12000 0 04416	2632		TPL	XY3 IS THIS A LOOP	F5G26330
	04372	0 50000 0 04740	2633		CLA	LPLST−1 YES	F5G26340
	04373	0 34000 0 00324	2634		CAS	S3K2 IS LAST LPLST QUANTITY A BB	F5G26350
	04374	0 76100 0 00000	2635		NOP	NO,	F5G26360
	04375	0 02000 0 04377	2636		TRA	X125	F5G26370
	04376	0 77100 0 00022	2637		ARS	18 YES	F5G26380
	04377	0 62100 0 00513	2638	X125	STA	SBV3 STORE PRED. NO.	F5G26390
	04400	0 50000 0 04741	2639		CLA	LPLST	F5G26400
	04401	0 07400 4 00070	2640		TSX	SE,4 GET INDEX 0F 1ST BB IN LOOP.	F5G26410
	04402	−0 63400 1 00574	2641		SXD	XV8,1 STORE INDEX OF 1ST BB	F5G26420
	04403	0 50000 1 12533	2642		CLA	BBB,1	F5G26430
	04404	0 60200 0 00604	2643	X91	SLW	XV16 STORE PRED. NO.	F5G26440
	04405	0 07400 4 00055	2644		TSX	SE5,4 GET INDEX OF PRED.	F5G26450
	04406	0 50000 1 15674	2645		CLA	PRED,1 IS	F5G26460
	04407	−0 32000 0 00353	2646		ANA	SBK2 THIS THE	F5G26470
	04410	0 34000 0 00513	2647		CAS	SBV3 RIGHT PRED	F5G26460
	04411	0 02000 0 04413	2648		TRA	X90	F5G26490
	04412	0 02000 0 04445	2649		TRA	X92 YES	F5G26500
	04413	0 50000 0 00604	2650	X90	CLA	XV16	F5G26510
	04414	0 40000 0 00315	2651		ADD	ONEA	F5G26520
	04415	0 02000 0 04404	2652		TRA	X91	F5G26530
	04416	0 53400 1 00342	2653	XY3	LXA	S5K5,1	F5G26540
	04417	0 07400 4 01661	2654	XY4	TSX	SC,4	F5G26550
	04420	2 00001 1 04417	2655		TIX	XY4,1,1	F5G26560
	04421	0 02000 0 03461	2656		TRA	X89	F5G26570
	04422	−0 63400 1 04444	2657	X97	SXD	X137,1	F5G26580
	04423	0 34000 1 00430	2658		CAS	IR1+3,1 IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM	F5G26590
	04424	0 02000 0 04426	2659		TRA	X98	F5G26600
	04425	0 02000 0 04473	2660		TRA	X93 YES	F5G26610
	04426	−0 50000 0 00340	2661	X98	CAL	S5K3 RECORD LX FOR	F5G26620
	04427	0 77100 1 00003	2662		ARS	3,1 THIS IR IN THIS	F5G26630
	04430	−0 53400 1 00565	2663		LXD	XV1,1 REGION.	F5G26640
	04431	−0 60200 1 05263	2664		ORS	REG,1	F5G26650
	04432	−0 63400 4 00602	2665		SXD	XV14,4 GET	F5G26660
	04433	−0 63400 2 00603	2666		SXD	XV15,2 INDEX	F5G26670
	04434	0 50000 0 00604	2667		CLA	XV16 OF	F5G26680
	04435	0 07400 4 00055	2668		TSX	SE5,4 PRED.	F5G26690
	04436	−0 53400 4 00602	2669		LXD	XV14,4	F5G26700
	04437	−0 53400 2 00603	2670		LXD	XV15,2	F5G26710
	04440	−0 50000 0 00377	2671		CAL	XK16 RECORD	F5G26720
	04441	0 77100 4 00003	2672		ARS	3,4 LX	F5G26730
	04442	−0 60200 1 15674	2673		ORS	PRED,1 NECESSARY.	F5G26740
	04443	−0 53400 1 04444	2674		LXD	X137,1	F5G26750
	04444	1 00000 0 04464	2675	X137	TXI	X96,0,−	F5G26760
	04445	−0 53400 2 00574	2676	X92	LXD	XV8,2	F5G26770
	04446	0 53400 4 00342	2677		LXA	S5K5,4 SET COUNT TO 3	F5G26760
	04447	0 50000 2 12534	2678		CLA	BBB+1,2 GET THE WORD WITH	F5G26790
	04450	0 60100 0 00575	2679		STO	XV9 PERM. NOS.	F5G26800
	04451	−0 50000 0 00575	2680	X95	CAL	XV9 GET	F5G26810
	04452	0 77100 4 00003	2681		ARS	3,4 INDEX	F5G26820
	04453	0 77100 4 00003	2682		ARS	3,4 OF	F5G26830
	04454	−0 32000 0 00350	2683		ANA	S9K3 THE	F5G26640
	04455	−0 73400 1 00000	2684		PDX	0,1 I.R.	F5G26850
	04456	−0 50000 2 12535	2685		CAL	BBB+2,2 GET ENTRANCE	F5G26860
	04457	0 77100 0 00022	2686		ARS	18 REQUIREMENT.	F5G26870
	04460	0 34000 0 00337	2687		CAS	S5K2 IS ENM REAL	F5G26880
	04461	0 76100 0 00000	2688		NOP		F5G26890
	04462	0 02000 0 04464	2689		TRA	X96 NO	F5G26900
	04463	0 02000 0 04422	2690		TRA	X97 YES	F5G26910
	04464	0 50000 1 00561	2691	X96	CLA	AC1+3,1 IS IRN	F5G26920
	04465	0 10000 0 04473	2692		TZE	X93 ACTIVE	F5G26930
	04466	−0 63400 2 00602	2693		SXD	XV14,2 YES,	F5G26940
	04467	−0 63400 4 00603	2694		SXD	XV15,4	F5G26950
	04470	0 07400 4 01566	2695		TSX	SB,4 RECORD SXD NECESSARY.	F5G26960
	04471	−0 53400 2 00602	2696		LXD	XV14,2	F5G26970
	04472	−0 53400 4 00603	2697		LXD	XV15,4	F5G26980
	04473	1 77777 2 04474	2698	X93	TXI	X93+1,2,−1	F5G26990
	04474	2 00001 4 04451	2699	X94	TIX	X95,4,1 COUNT TO 3	F5G27000
			2700			ACTIVE PASS.	F5G27010
			2701			FOLLOWS 2 ED LXING PASS.	F5G27020
	04475	0 56000 0 00325	2702		LDQ	S3K3 INITIALIZE THE	F5G27030
	04476	−0 60000 0 00440	2703		STQ	S3V4 LOOP LIST	F5G27040
	04477	0 56000 0 00340	2704		LDQ	S5K3 AND	F5G27050
	04500	−0 60000 0 00437	2705		STQ	S3V3 MAKE SURE TAG	F5G27060
	04501	−0 60000 0 00521	2706		STQ	ACIND SET IND. TO SAY THIS IS ACTIVE PASS	F5G27070
	04502	−0 63400 0 00436	2707		SXD	S3V2,0 LOCATION GETS SET	F5G27080
	04503	0 50000 0 00314	2708	A3	CLA	ZERO ARE	F5G27090
	04504	0 40100 0 00556	2709		ADM	AC1 THERE	F5G27100
	04505	0 40100 0 00557	2710		ADM	AC2 ANY	F5G27110
	04506	0 40100 0 00560	2711		ADM	AC3 ACTIVE I.R.S	F5G27120
	04507	0 10000 0 03461	2712		TZE	X89 LEFT GO TO RENUMBER.	F5G27130
	04510	0 07400 4 01023	2713		TSX	S3,4 YES. TRY TO GET NEXT TAG.	F5G27140
	04511	0 02000 0 04644	2714		TRA	A12 COME HERE IF TAG NOT GOT	F5G27150
	04512	0 50000 0 01122	2715		CLA	S39 COMPUTE LOCATION OF THIS	F5G27160
	04513	−0 32000 0 00353	2716		ANA	SBK2 TAG=(ADDR. F0LLOWING	F5G27170
	04514	0 40000 0 00451	2717		ADD	S4V1 TIX BLOCK + L(CM)-CM TAG	F5G27180
	04515	0 40200 0 00332	2718		SUB	S4K3 - INDEX OF TAG.)	F5G27190
	04516	0 76700 0 00022	2719		ALS	18	F5G27200
	04517	−0 40000 0 00436	2720		SBM	S3V2	F5G27210
	04520	0 76500 0 00065	2721		LRS	53	F5G27220
	04521	−0 60000 0 00571	2722		STQ	XV5	F5G27230
	04522	0 22100 0 00371	2723		DVP	XK9 FORM LOC/9 AND	F5G27240
	04523	−0 60000 0 00567	2724		STQ	XV3 REMAINDER	F5G27250
	04524	0 60100 0 00570	2725		STO	XV4	F5G27260
	04525	0 50000 0 00442	2726		CLA	TPE IS THIS	F5G27270
	04526	0 34000 0 00322	2727		CAS	S2K2 AN LX	F5G27280
	04527	0 02000 0 04531	2728		TRA	A1	F5G27290
	04530	0 02000 0 04570	2729		TRA	A5 YES	F5G27300
	04531	0 34000 0 00376	2730	A1	CAS	XK15 IS IT AN LX PRIME	F5G27310
	04532	0 02000 0 04534	2731		TRA	A20	F5G27320
	04533	0 02000 0 04614	2732		TRA	A8 YES	F5G27330
	04534	0 34000 0 00403	2733	A20	CAS	XK21 IS IT A DED	F5G27340
	04535	0 02000 0 04537	2734		TRA	A21	F5G27350
	04536	0 02000 0 04614	2735		TRA	A8 YES.	F5G27360
	04537	0 34000 0 00373	2736	A21	CAS	XK12 IS IT AN ACTIVE INSTR.	F5G27370
	04540	0 02000 0 04542	2737		TRA	A2	F5G27380
	04541	0 02000 0 04570	2738		TRA	A5 YES.	F5G27390
	04542	0 50000 0 00567	2739	A2	CLA	XV3 GET INDEX	F5G27400
	04543	0 07400 4 00032	2740		TSX	SE4,4 OF STAG ENTRY.	F5G27410
	04544	0 53400 2 00570	2741		LXA	XV4,2 IS THERE	F5G27420
	04545	−0 50000 1 05263	2742		CAL	STAG,1 AN LX	F5G27430
	04546	0 77100 2 00010	2743		ARS	8,2 IN FRONT	F5G27440
	04547	−0 32000 0 00372	2744		ANA	XK11 OF	F5G27450
	04550	0 34000 0 00372	2745		CAS	XK11 THIS INSTR.	F5G27460
	04551	0 02000 0 04503	2746		TRA	A3	F5G27470
	04552	0 02000 0 04554	2747		TRA	A4 YES.	F5G27480
	04553	0 02000 0 04503	2748		TRA	A3	F5G27490
	04554	−0 50000 0 00570	2749	A4	CAL	XV4 GET	F5G27500
	04555	0 76000 0 00006	2750		COM	THE	F5G27510
	04556	0 73400 2 00000	2751		PAX	0,2 S-TAG	F5G27520
	04557	−0 50000 1 05263	2752		CAL	STAG,1 IN	F5G27530
	04560	0 76700 2 00000	2753		ALS	0,2 DECR.	F5G27540
	04561	0 76700 2 00000	2754		ALS	0,2 PART.	F5G27550
	04562	−0 32000 0 00350	2755		ANA	S9K3	F5G27560
	04563	−0 73400 1 00000	2756		PDX	0,1	F5G27570
	04564	0 50000 1 00561	2757		CLA	AC1+3,1 IS THE CORRESPONDING	F5G27580
	04565	0 10000 0 04503	2758		TZE	A3 I.R. ACTIVE	F5G27590
	04566	0 07400 4 01566	2759		TSX	SB,4 YES,RECORD SXD NECESSARY	F5G27600
	04567	0 02000 0 04503	2760		TRA	A3	F5G27610
	04570	0 50000 0 00567	2761	A5	CLA	XV3	F5G27620
	04571	0 07400 4 00032	2762		TSX	SE4,4 GET STAG INDEX.	F5G27630
	04572	−0 50000 0 00570	2763		CAL	XV4	F5G27640
	04573	0 76000 0 00006	2764		COM	IS IT	F5G27650
	04574	0 73400 2 00000	2765		PAX	0,2 TO	F5G27660
	04575	−0 50000 1 05263	2766		CAL	STAG,1 AN	F5G27670
	04576	0 76700 2 00000	2767		ALS	0,2	F5G27680
	04577	0 76700 2 00000	2768		ALS	0,2 ACTIVE	F5G27690
	04600	−0 32000 0 00350	2769		ANA	S9K3 ,	F5G27700
	04601	−0 73400 1 00000	2770		PDX	0,1 IR	F5G27710
	04602	0 50000 1 00561	2771		CLA	AC1+3,1	F5G27720
	04603	0 10000 0 04503	2772		TZE	A3	F5G27730
	04604	0 50000 1 00430	2773	A51	CLA	IR1+3,1 IS IT	F5G27740
	04605	0 34000 0 00441	2774		CAS	1TAG SAME TAU-TAG	F5G27750
	04606	0 02000 0 04610	2775		TRA	A6	F5G27760
	04607	0 02000 0 04612	2776		TRA	A7 YES	F5G27770
	04610	0 07400 4 01566	2777	A6	TSX	SB,4 RECORD SXD NEEDED.	F5G27780
	04611	0 02000 0 04503	2778		TRA	A3	F5G27790
	04612	0 07400 4 01661	2779	A7	TSX	SC,4 RECORD CERTAIN PART OF	F5G27800
	04613	0 02000 0 04503	2780		TRA	A3 LOOP LIST ACTIVE.	F5G27810
	04614	0 50000 0 00567	2781	A8	CLA	XV3 GET	F5G27820
	04615	0 07400 4 00032	2782		TSX	SE4,4 THE	F5G27830
	04616	−0 50000 0 00570	2783		CAL	XV4	F5G27840
	04617	0 76000 0 00006	2784		COM	S−TAG	F5G27850
	04620	0 73400 2 00000	2785		PAX	0,2 OF	F5G27860
	04621	−0 50000 1 05263	2786		CAL	STAG,1	F5G27870
	04622	0 60100 0 00423	2787		STO	S1V6	F5G27871
	04623	0 76700 2 00000	2788		ALS	0,2 THIS	F5G27880
	04624	0 76700 2 00000	2789		ALS	0,2 INSTR.	F5G27890
	04625	−0 32000 0 00350	2790		ANA	S9K3	F5G27900
	04626	−0 73400 1 00000	2791		PDX	0,1	F5G27910
	04627	0 10000 0 04503	2792		TZE	A3 DOES THIS INSTR HAVE AN S-TAG	F5G27920
	04630	0 50000 1 00561	2793		CLA	AC1+3,1 YES.	F5G27930
	04631	0 10000 0 04503	2794		TZE	A3 IS THIS IR ACTIVE	F5G27940
	04632	0 50000 0 00314	2795		CLA	ZERO	F5G27941
	04633	−0 75400 2 00000	2796		PXD	0,2	F5G27942
	04634	0 76000 0 00006	2797		COM		F5G27943
	04635	−0 73400 4 00000	2798		PDX	0,4	F5G27944
	04636	0 50000 0 00423	2799		CLA	S1V6	F5G27945
	04637	0 77100 4 00010	2800		ARS	8,4	F5G27946
	04640	−0 32000 0 00316	2801		ANA	ONED	F5G27947
	04641	−0 10000 0 04604	2802		TNZ	A51	F5G27948
	04642	0 07400 4 01661	2803		TSX	SC,4 YES,RECORD SECTION OF LPLST ACTIVE	F5G27950
	04643	0 02000 0 04503	2804		TRA	A3	F5G27960
	04644	−0 53400 1 00440	2805	A12	LXD	S3V4,1 GET INDEX OF LPLST QUANTITY	F5G27970
	04645	0 50000 1 05033	2806		CLA	LPLST+S3P1−2,1 GET PREVIOUS LPLST QUANTITY	F5G27980
	04646	0 60100 0 00607	2807		STO	XV19	F5G27990
	04647	0 56000 0 00324	2808		LDQ	S3K2 WAS IT A	F5G28000
	04650	0 04000 0 04663	2809		TLQ	A28	F5G28010
	04651	0 07400 4 00070	2810	A25	TSX	SE,4 YES, WAS THAT	F5G28020
	04652	0 50000 1 12533	2811		CLA	BBB,1 BB TERMINATED	F5G28030
	04653	0 77100 0 00041	2812		ARS	33 BY A	F5G28040
	04654	0 40000 0 00315	2813		ADD	ONEA GO TO N	F5G28050
	04655	−0 10000 0 04663	2814		TNZ	A28	F5G28060
	04656	0 53400 1 00342	2815		LXA	S5K5,1 YES	F5G28070
	04657	0 50000 1 00561	2816	A26	CLA	AC1+3,1 IS THIS	F5G28080
	04660	0 10000 0 04662	2817		TZE	A27 IR ACTIVE	F5G28090
	04661	0 07400 4 01566	2818		TSX	SB,4 YES, RECORD SXD NECESSARY	F5G28100
	04662	2 00001 1 04657	2819	A27	TIX	A26,1,1	F5G28110
	04663	0 50000 0 00444	2820	A28	CLA	S3V5	F5G28120
	04664	0 56000 0 00324	2821		LDQ	S3K2 IS THIS	F5G28130
	04665	0 04000 0 04700	2822		TLQ	A35 ATR. REGION	F5G28140
	04666	−0 32000 0 00336	2823		ANA	S5K1 NO, BB	F5G28150
	04667	0 10000 0 04503	2824		TZE	A3	F5G28160
	04670	0 76700 0 00003	2825		ALS	3	F5G28170
	04671	−0 73400 1 00000	2826		PDX	0,1	F5G28180
	04672	−3 00002 1 04674	2827		TXL	AP1,1,2	F5G28190
	04673	1 77777 1 04674	2828		TXI	AP1,1,−1	F5G28200
	04674	0 50000 1 00561	2829	AP1	CLA	AC1+3,1	F5G28210
	04675	0 10000 0 04503	2830		TZE	A3	F5G28220
	04676	0 07400 4 01566	2831		TSX	SB,4	F5G28230
	04677	0 02000 0 04503	2832		TRA	A3	F5G28240
	04700	0 07400 4 00070	2833	A35	TSX	SE,4	F5G28250
	04701	0 50000 1 12540	2834		CLA	BBB+5,1	F5G28260
	04702	−0 73400 2 00000	2835		PDX	0,2 INDEX OF REGION TO 2	F5G28270
	04703	0 50000 2 05263	2836		CLA	REG,2 GET REGION	F5G28260
	04704	0 60100 0 00607	2837		STO	XV19	F5G28290
	04705	0 53400 1 00342	2838		LXA	S5K5,1	F5G28300
	04706	−0 50000 0 00607	2839	A31	CAL	XV19	F5G28310
	04707	0 76700 1 00003	2840		ALS	3,1	F5G28320
	04710	−0 76000 0 00001	2841		PBT	IS THERE AN LX	F5G28330
	04711	0 02000 0 04715	2842		TRA	A30 FOR THIS IR	F5G28340
	04712	0 50000 1 00561	2843		CLA	AC1+3,1 YES	F5G28350
	04713	0 10000 0 04715	2844		TZE	A30 IS THIS IR ACTIVE	F5G28360
	04714	0 07400 4 01566	2845		TSX	SB,4 YES, RECORD SXD NECESSARY	F5G28370
	04715	2 00001 1 04706	2846	A30	TIX	A31,1,1	F5G28380
	04716	0 50000 0 00444	2847		CLA	S3V5	F5G28390
	04717	0 07400 4 01523	2848		TSX	SA,4 GET THE EXIT CONDITIONS	F5G28400
	04720	0 53400 1 00342	2849		LXA	S5K5,1	F5G28410
	04721	0 50000 1 00561	2850	A34	CLA	AC1+3,1	F5G28420
	04722	0 10000 0 04736	2851		TZE	A32 IS THIS IR ACTIVE	F5G28430
	04723	0 50000 1 00506	2852		CLA	EX1+3,1 YES	F5G28440
	04724	0 56000 0 00337	2853		LDQ	S5K2	F5G28450
	04725	0 04000 0 04730	2854		TLQ	A33 IS THE EXIT CONDITION REAL	F5G28460
	04726	0 50000 1 00511	2855		CLA	ACT1+3,1 YES	F5G28470
	04727	0 12000 0 04736	2856		TPL	A32 IS THE IR ACTIVE AT EXIT	F5G28480
	04730	−0 63400 1 00610	2857	A33	SXD	XV20,1 YES	F5G28490
	04731	−0 53400 2 00610	2858		LXD	XV20,2	F5G28500
	04732	0 50000 0 00444	2859		CLA	S3V5	F5G28510
	04733	0 07400 4 01753	2860		TSX	SD,4 RECORD TR. REG. ACTIVE	F5G28520
	04734	−0 53400 1 00610	2861		LXD	XV20,1	F5G28530
	04735	0 07400 4 01661	2862		TSX	SC,4 RECORD SECTION OF LPLST ACTIVE	F5G28540
	04736	2 00001 1 04721	2863	A32	TIX	A34,1,1 COUNT TO 3	F5G28550
	04737	0 02000 0 04503	2864		TRA	A3	F5G28560
	04740	0 50000 0 00376	2865	QP	CLA	XK15	F5G28580
	04741	−0 32000 0 00020	2866		ANA	16	F5G28590
	04742	0 77100 0 00001	2867		ARS	1	F5G28600
	04743	0 62200 0 00103	2868		STD	SE21+2	F5G28610
	04744	0 10000 0 00030	2869		TZE	R	F5G28620
	04745	−0 53400 4 00063	2870		LXD	PREDP+3,4	F5G28630
	04746	0 50000 0 00075	2871		CLA	BBBP+3	F5G28640
	04747	−3 00000 4 00030	2872	QP0	TXL	R,4,0	F5G28650
	04750	1 77777 4 04751	2873		TXI	QP1,4,−1	F5G28660
	04751	−0 63400 4 00104	2874	QP1	SXD	SE21+3,4	F5G28670
	04752	0 40200 0 00316	2875		SUB	ONED	F5G28680
	04753	0 07400 4 00070	2876		TSX	SE,4	F5G28690
	04754	−0 53400 4 00072	2877		LXD	BBBP,4	F5G28700
	04755	1 00417 4 04756	2878		TXI	QP2,4,BBBL−1	F5G28710
	04756	−0 63400 4 04767	2879	QP2	SXD	QP4,4	F5G28720
	04757	−0 63400 4 04771	2880		SXD	QP5,4	F5G28730
	04760	0 53400 4 12533	2881		LXA	BBB,4	F5G28740
	04761	−0 63400 4 04775	2882		SXD	QP8,4	F5G28750
	04762	−0 53400 4 00104	2883		LXD	SE21+3,4	F5G28760
	04763	−0 75400 4 00000	2884	QP3	PXD	0,4	F5G28770
	04764	0 07400 4 00056	2885		TSX	SE5+1,4	F5G28780
	04765	0 50200 1 15674	2886		CLS	PRED,1	F5G28790
	04766	0 73400 4 00000	2887		PAX	0,4	F5G28800
	04767	3 00000 4 04772	2888	QP4	TXH	QP6,4,−	F5G28810
	04770	1 00420 4 04771	2889		TXI	QP5,4,BBBL	F5G28820
	04771	3 00000 4 04773	2890	QP5	TXH	QP7,4,−	F5G28830
	04772	0 60100 1 15674	2891	QP6	STO	PRED,1	F5G28840
	04773	−0 53400 4 00306	2892	QP7	LXD	SEV2,4	F5G28850
	04774	0 50000 0 00072	2893		CLA	BBBP	F5G28860
	04775	−3 00000 4 04747	2894	QP8	TXL	QP0,4,−	F5G28870
	04776	1 77777 4 04763	2895		TXI	QP3,4,−1	F5G28880
		04741	2896		ORG	QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS.	F5G28890
			2897			STORAGE ASSIGNMENT (TABLES)	F5G28900
		04741	2898	LPLST	BSS	S3P1 SPACE FOR LOOP LIST TABLE	F5G28910
		05263	2899	REG	BES	FP1 SPACE FOR REGION WORDS	F5G28920
		12510	2900	SPACE	EQU	MSIZE−5−REG STORAGE SPACE LEFT	F5G28930
		00360	2901	STAGL	SYN	STL	F5G28940
	05263	0 00000 0 00000	2902	STAG	HTR	−	F5G28950
	05264	0 00000 0 00000	2903		HTR	−	F5G28960
	05265	0 00000 0 00000	2904		HTR	−	F5G28960
	05266	0 00000 0 00000	2905		HTR	−	F5G28960
	05267	0 00000 0 00000	2906		HTR	−	F5G28960
	05270	0 00000 0 00000	2907		HTR	−	F5G28960
	05271	0 00000 0 00000	2908		HTR	−	F5G28960
	05272	0 00000 0 00000	2909		HTR	−	F5G28960
	05273	0 00000 0 00000	2910		HTR	−	F5G28960
	05274	0 00000 0 00000	2911		HTR	−	F5G28960
	05275	0 00000 0 00000	2912		HTR	−	F5G28960
	05276	0 00000 0 00000	2913		HTR	−	F5G28960
	05277	0 00000 0 00000	2914		HTR	−	F5G28960
	05300	0 00000 0 00000	2915		HTR	−	F5G28960
	05301	0 00000 0 00000	2916		HTR	−	F5G28960
	05302	0 00000 0 00000	2917		HTR	−	F5G28960
	05303	0 00000 0 00000	2918		HTR	−	F5G28960
	05304	0 00000 0 00000	2919		HTR	−	F5G28960
	05305	0 00000 0 00000	2920		HTR	−	F5G28960
	05306	0 00000 0 00000	2921		HTR	−	F5G28960
	05307	0 00000 0 00000	2922		HTR	−	F5G28960
	05310	0 00000 0 00000	2923		HTR	−	F5G28960
	05311	0 00000 0 00000	2924		HTR	−	F5G28960
	05312	0 00000 0 00000	2925		HTR	−	F5G28960
	05313	0 00000 0 00000	2926		HTR	−	F5G28960
	05314	0 00000 0 00000	2927		HTR	−	F5G28960
	05315	0 00000 0 00000	2928		HTR	−	F5G28960
	05316	0 00000 0 00000	2929		HTR	−	F5G28960
	05317	0 00000 0 00000	2930		HTR	−	F5G28960
	05320	0 00000 0 00000	2931		HTR	−	F5G28960
	05321	0 00000 0 00000	2932		HTR	−	F5G28960
	05322	0 00000 0 00000	2933		HTR	−	F5G28960
	05323	0 00000 0 00000	2934		HTR	−	F5G28960
	05324	0 00000 0 00000	2935		HTR	−	F5G28960
	05325	0 00000 0 00000	2936		HTR	−	F5G28960
	05326	0 00000 0 00000	2937		HTR	−	F5G28960
	05327	0 00000 0 00000	2938		HTR	−	F5G28960
	05330	0 00000 0 00000	2939		HTR	−	F5G28960
	05331	0 00000 0 00000	2940		HTR	−	F5G28960
	05332	0 00000 0 00000	2941		HTR	−	F5G28960
	05333	0 00000 0 00000	2942		HTR	−	F5G28960
	05334	0 00000 0 00000	2943		HTR	−	F5G28960
	05335	0 00000 0 00000	2944		HTR	−	F5G28960
	05336	0 00000 0 00000	2945		HTR	−	F5G28960
	05337	0 00000 0 00000	2946		HTR	−	F5G28960
	05340	0 00000 0 00000	2947		HTR	−	F5G28960
	05341	0 00000 0 00000	2948		HTR	−	F5G28960
	05342	0 00000 0 00000	2949		HTR	−	F5G28960
	05343	0 00000 0 00000	2950		HTR	−	F5G28960
	05344	0 00000 0 00000	2951		HTR	−	F5G28960
	05345	0 00000 0 00000	2952		HTR	−	F5G28960
	05346	0 00000 0 00000	2953		HTR	−	F5G28960
	05347	0 00000 0 00000	2954		HTR	−	F5G28960
	05350	0 00000 0 00000	2955		HTR	−	F5G28960
	05351	0 00000 0 00000	2956		HTR	−	F5G28960
	05352	0 00000 0 00000	2957		HTR	−	F5G28960
	05353	0 00000 0 00000	2958		HTR	−	F5G28960
	05354	0 00000 0 00000	2959		HTR	−	F5G28960
	05355	0 00000 0 00000	2960		HTR	−	F5G28960
	05356	0 00000 0 00000	2961		HTR	−	F5G28960
	05357	0 00000 0 00000	2962		HTR	−	F5G28960
	05360	0 00000 0 00000	2963		HTR	−	F5G28960
	05361	0 00000 0 00000	2964		HTR	−	F5G28960
	05362	0 00000 0 00000	2965		HTR	−	F5G28960
	05363	0 00000 0 00000	2966		HTR	−	F5G28960
	05364	0 00000 0 00000	2967		HTR	−	F5G28960
	05365	0 00000 0 00000	2968		HTR	−	F5G28960
	05366	0 00000 0 00000	2969		HTR	−	F5G28960
	05367	0 00000 0 00000	2970		HTR	−	F5G28960
	05370	0 00000 0 00000	2971		HTR	−	F5G28960
	05371	0 00000 0 00000	2972		HTR	−	F5G28960
	05372	0 00000 0 00000	2973		HTR	−	F5G28960
	05373	0 00000 0 00000	2974		HTR	−	F5G28960
	05374	0 00000 0 00000	2975		HTR	−	F5G28960
	05375	0 00000 0 00000	2976		HTR	−	F5G28960
	05376	0 00000 0 00000	2977		HTR	−	F5G28960
	05377	0 00000 0 00000	2978		HTR	−	F5G28960
	05400	0 00000 0 00000	2979		HTR	−	F5G28960
	05401	0 00000 0 00000	2980		HTR	−	F5G28960
	05402	0 00000 0 00000	2981		HTR	−	F5G28960
	05403	0 00000 0 00000	2982		HTR	−	F5G28960
	05404	0 00000 0 00000	2983		HTR	−	F5G28960
	05405	0 00000 0 00000	2984		HTR	−	F5G28960
	05406	0 00000 0 00000	2985		HTR	−	F5G28960
	05407	0 00000 0 00000	2986		HTR	−	F5G28960
	05410	0 00000 0 00000	2987		HTR	−	F5G28960
	05411	0 00000 0 00000	2988		HTR	−	F5G28960
	05412	0 00000 0 00000	2989		HTR	−	F5G28960
	05413	0 00000 0 00000	2990		HTR	−	F5G28960
	05414	0 00000 0 00000	2991		HTR	−	F5G28960
	05415	0 00000 0 00000	2992		HTR	−	F5G28960
	05416	0 00000 0 00000	2993		HTR	−	F5G28960
	05417	0 00000 0 00000	2994		HTR	−	F5G28960
	05420	0 00000 0 00000	2995		HTR	−	F5G28960
	05421	0 00000 0 00000	2996		HTR	−	F5G28960
	05422	0 00000 0 00000	2997		HTR	−	F5G28960
	05423	0 00000 0 00000	2998		HTR	−	F5G28960
	05424	0 00000 0 00000	2999		HTR	−	F5G28960
	05425	0 00000 0 00000	3000		HTR	−	F5G28960
	05426	0 00000 0 00000	3001		HTR	−	F5G28960
	05427	0 00000 0 00000	3002		HTR	−	F5G28960
	05430	0 00000 0 00000	3003		HTR	−	F5G28960
	05431	0 00000 0 00000	3004		HTR	−	F5G28960
	05432	0 00000 0 00000	3005		HTR	−	F5G28960
	05433	0 00000 0 00000	3006		HTR	−	F5G28960
	05434	0 00000 0 00000	3007		HTR	−	F5G28960
	05435	0 00000 0 00000	3008		HTR	−	F5G28960
	05436	0 00000 0 00000	3009		HTR	−	F5G28960
	05437	0 00000 0 00000	3010		HTR	−	F5G28960
	05440	0 00000 0 00000	3011		HTR	−	F5G28960
	05441	0 00000 0 00000	3012		HTR	−	F5G28960
	05442	0 00000 0 00000	3013		HTR	−	F5G28960
	05443	0 00000 0 00000	3014		HTR	−	F5G28960
	05444	0 00000 0 00000	3015		HTR	−	F5G28960
	05445	0 00000 0 00000	3016		HTR	−	F5G28960
	05446	0 00000 0 00000	3017		HTR	−	F5G28960
	05447	0 00000 0 00000	3018		HTR	−	F5G28960
	05450	0 00000 0 00000	3019		HTR	−	F5G28960
	05451	0 00000 0 00000	3020		HTR	−	F5G28960
	05452	0 00000 0 00000	3021		HTR	−	F5G28960
	05453	0 00000 0 00000	3022		HTR	−	F5G28960
	05454	0 00000 0 00000	3023		HTR	−	F5G28960
	05455	0 00000 0 00000	3024		HTR	−	F5G28960
	05456	0 00000 0 00000	3025		HTR	−	F5G28960
	05457	0 00000 0 00000	3026		HTR	−	F5G28960
	05460	0 00000 0 00000	3027		HTR	−	F5G28960
	05461	0 00000 0 00000	3028		HTR	−	F5G28960
	05462	0 00000 0 00000	3029		HTR	−	F5G28960
	05463	0 00000 0 00000	3030		HTR	−	F5G28960
	05464	0 00000 0 00000	3031		HTR	−	F5G28960
	05465	0 00000 0 00000	3032		HTR	−	F5G28960
	05466	0 00000 0 00000	3033		HTR	−	F5G28960
	05467	0 00000 0 00000	3034		HTR	−	F5G28960
	05470	0 00000 0 00000	3035		HTR	−	F5G28960
	05471	0 00000 0 00000	3036		HTR	−	F5G28960
	05472	0 00000 0 00000	3037		HTR	−	F5G28960
	05473	0 00000 0 00000	3038		HTR	−	F5G28960
	05474	0 00000 0 00000	3039		HTR	−	F5G28960
	05475	0 00000 0 00000	3040		HTR	−	F5G28960
	05476	0 00000 0 00000	3041		HTR	−	F5G28960
	05477	0 00000 0 00000	3042		HTR	−	F5G28960
	05500	0 00000 0 00000	3043		HTR	−	F5G28960
	05501	0 00000 0 00000	3044		HTR	−	F5G28960
	05502	0 00000 0 00000	3045		HTR	−	F5G28960
	05503	0 00000 0 00000	3046		HTR	−	F5G28960
	05504	0 00000 0 00000	3047		HTR	−	F5G28960
	05505	0 00000 0 00000	3048		HTR	−	F5G28960
	05506	0 00000 0 00000	3049		HTR	−	F5G28960
	05507	0 00000 0 00000	3050		HTR	−	F5G28960
	05510	0 00000 0 00000	3051		HTR	−	F5G28960
	05511	0 00000 0 00000	3052		HTR	−	F5G28960
	05512	0 00000 0 00000	3053		HTR	−	F5G28960
	05513	0 00000 0 00000	3054		HTR	−	F5G28960
	05514	0 00000 0 00000	3055		HTR	−	F5G28960
	05515	0 00000 0 00000	3056		HTR	−	F5G28960
	05516	0 00000 0 00000	3057		HTR	−	F5G28960
	05517	0 00000 0 00000	3058		HTR	−	F5G28960
	05520	0 00000 0 00000	3059		HTR	−	F5G28960
	05521	0 00000 0 00000	3060		HTR	−	F5G28960
	05522	0 00000 0 00000	3061		HTR	−	F5G28960
	05523	0 00000 0 00000	3062		HTR	−	F5G28960
	05524	0 00000 0 00000	3063		HTR	−	F5G28960
	05525	0 00000 0 00000	3064		HTR	−	F5G28960
	05526	0 00000 0 00000	3065		HTR	−	F5G28960
	05527	0 00000 0 00000	3066		HTR	−	F5G28960
	05530	0 00000 0 00000	3067		HTR	−	F5G28960
	05531	0 00000 0 00000	3068		HTR	−	F5G28960
	05532	0 00000 0 00000	3069		HTR	−	F5G28960
	05533	0 00000 0 00000	3070		HTR	−	F5G28960
	05534	0 00000 0 00000	3071		HTR	−	F5G28960
	05535	0 00000 0 00000	3072		HTR	−	F5G28960
	05536	0 00000 0 00000	3073		HTR	−	F5G28960
	05537	0 00000 0 00000	3074		HTR	−	F5G28960
	05540	0 00000 0 00000	3075		HTR	−	F5G28960
	05541	0 00000 0 00000	3076		HTR	−	F5G28960
	05542	0 00000 0 00000	3077		HTR	−	F5G28960
	05543	0 00000 0 00000	3078		HTR	−	F5G28960
	05544	0 00000 0 00000	3079		HTR	−	F5G28960
	05545	0 00000 0 00000	3080		HTR	−	F5G28960
	05546	0 00000 0 00000	3081		HTR	−	F5G28960
	05547	0 00000 0 00000	3082		HTR	−	F5G28960
	05550	0 00000 0 00000	3083		HTR	−	F5G28960
	05551	0 00000 0 00000	3084		HTR	−	F5G28960
	05552	0 00000 0 00000	3085		HTR	−	F5G28960
	05553	0 00000 0 00000	3086		HTR	−	F5G28960
	05554	0 00000 0 00000	3087		HTR	−	F5G28960
	05555	0 00000 0 00000	3088		HTR	−	F5G28960
	05556	0 00000 0 00000	3089		HTR	−	F5G28960
	05557	0 00000 0 00000	3090		HTR	−	F5G28960
	05560	0 00000 0 00000	3091		HTR	−	F5G28960
	05561	0 00000 0 00000	3092		HTR	−	F5G28960
	05562	0 00000 0 00000	3093		HTR	−	F5G28960
	05563	0 00000 0 00000	3094		HTR	−	F5G28960
	05564	0 00000 0 00000	3095		HTR	−	F5G28960
	05565	0 00000 0 00000	3096		HTR	−	F5G28960
	05566	0 00000 0 00000	3097		HTR	−	F5G28960
	05567	0 00000 0 00000	3098		HTR	−	F5G28960
	05570	0 00000 0 00000	3099		HTR	−	F5G28960
	05571	0 00000 0 00000	3100		HTR	−	F5G28960
	05572	0 00000 0 00000	3101		HTR	−	F5G28960
	05573	0 00000 0 00000	3102		HTR	−	F5G28960
	05574	0 00000 0 00000	3103		HTR	−	F5G28960
	05575	0 00000 0 00000	3104		HTR	−	F5G28960
	05576	0 00000 0 00000	3105		HTR	−	F5G28960
	05577	0 00000 0 00000	3106		HTR	−	F5G28960
	05600	0 00000 0 00000	3107		HTR	−	F5G28960
	05601	0 00000 0 00000	3108		HTR	−	F5G28960
	05602	0 00000 0 00000	3109		HTR	−	F5G28960
	05603	0 00000 0 00000	3110		HTR	−	F5G28960
	05604	0 00000 0 00000	3111		HTR	−	F5G28960
	05605	0 00000 0 00000	3112		HTR	−	F5G28960
	05606	0 00000 0 00000	3113		HTR	−	F5G28960
	05607	0 00000 0 00000	3114		HTR	−	F5G28960
	05610	0 00000 0 00000	3115		HTR	−	F5G28960
	05611	0 00000 0 00000	3116		HTR	−	F5G28960
	05612	0 00000 0 00000	3117		HTR	−	F5G28960
	05613	0 00000 0 00000	3118		HTR	−	F5G28960
	05614	0 00000 0 00000	3119		HTR	−	F5G28960
	05615	0 00000 0 00000	3120		HTR	−	F5G28960
	05616	0 00000 0 00000	3121		HTR	−	F5G28960
	05617	0 00000 0 00000	3122		HTR	−	F5G28960
	05620	0 00000 0 00000	3123		HTR	−	F5G28960
	05621	0 00000 0 00000	3124		HTR	−	F5G28960
	05622	0 00000 0 00000	3125		HTR	−	F5G28960
	05623	0 00000 0 00000	3126		HTR	−	F5G28960
	05624	0 00000 0 00000	3127		HTR	−	F5G28960
	05625	0 00000 0 00000	3128		HTR	−	F5G28960
	05626	0 00000 0 00000	3129		HTR	−	F5G28960
	05627	0 00000 0 00000	3130		HTR	−	F5G28960
	05630	0 00000 0 00000	3131		HTR	−	F5G28960
	05631	0 00000 0 00000	3132		HTR	−	F5G28960
	05632	0 00000 0 00000	3133		HTR	−	F5G28960
	05633	0 00000 0 00000	3134		HTR	−	F5G28960
	05634	0 00000 0 00000	3135		HTR	−	F5G28960
	05635	0 00000 0 00000	3136		HTR	−	F5G28960
	05636	0 00000 0 00000	3137		HTR	−	F5G28960
	05637	0 00000 0 00000	3138		HTR	−	F5G28960
	05640	0 00000 0 00000	3139		HTR	−	F5G28960
	05641	0 00000 0 00000	3140		HTR	−	F5G28960
	05642	0 00000 0 00000	3141		HTR	−	F5G28960
	05643	0 00000 0 00000	3142		HTR	−	F5G28960
	05644	0 50000 1 12535	3143	W0	CLA	BBB+2,1	F5G28980
	05645	0 77100 0 00022	3144		ARS	18	F5G28990
	05646	0 40200 0 00611	3145		SUB	XV21	F5G29000
	05647	0 10000 0 04112	3146		TZE	X42	F5G29010
	05650	0 53400 1 00342	3147		LXA	S5K5,1	F5G29020
	05651	−0 53400 4 00601	3148		LXD	XV13,4	F5G29030
	05652	0 50000 4 12535	3149	W1	CLA	BBB+2,4	F5G29040
	05653	0 76500 0 00022	3150		LRS	18	F5G29050
	05654	0 40200 0 00611	3151		SUB	XV21	F5G29060
	05655	0 10000 0 05665	3152		TZE	W3	F5G29070
	05656	0 50000 0 00314	3153		CLA	ZERO	F5G29080
	05657	0 76300 0 00022	3154		LLS	18	F5G29090
	05660	0 40200 0 00611	3155		SUB	XV21	F5G29100
	05661	0 10000 0 05665	3156		TZE	W3	F5G29110
	05662	1 77777 4 05663	3157		TXI	W2,4,−1	F5G29120
	05663	2 00001 1 05652	3158	W2	TIX	W1,1,1	F5G29130
	05664	−3 00000 0 04111	3159		TXL	X36,−,−	F5G29140
	05665	−0 63400 2 05671	3160	W3	SXD	W4,2	F5G29150
	05666	−0 53400 1 05664	3161		LXD	W2+1,1	F5G29160
	05667	0 07400 4 01566	3162		TSX	SB,4	F5G29170
	05670	−0 53400 2 05671	3163		LXD	W4,2	F5G29180
	05671	−3 00000 0 04111	3164	W4	TXL	X36,−,−	F5G29190
		05672	3165		BSS	PTL1 SPACE FOR PATCHES	F5G29200
		04615	3166	CMTL	SYN	9*SPACE/20/15*15	F5G29210
		05716	3167	CMTAG	BSS	CMTL	F5G29220
		00420	3168	BBBL	SYN	6*SPACE/20/6	F5G29230
		12533	3169	BBB	BSS	BBBL*6+1	F5G29240
		15674	3170	PRED	SYN	BBB+BBBL*6+1	F5G29250
		02100	3171	SPAC1	EQU	MSIZE−4−PRED	F5G29260
		01037	3172	PREDL	EQU	SPAC1/2−1	F5G29270
		15674	3173		BSS	PREDL+1	F5G29280
		01037	3174	SUCCL	SYN	PREDL	F5G29290
		16734	3175	SUCC	BSS	SUCCL+1	F5G29300
			3176			EDITOR RECORD NO. 76	F5G29310
			3177			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBEY.	F5G29320
			3178			DIAGNOSTIO CALLER FOLLOWS	F5G29340
			3179			PART 1B	F5G29350
			3180			INITIALIZATION AND PRED LIMIT FOR FAST COMPILING.	F5G29360
		15674	3181		ORG	PRED	F5G29370
	15674	0 53400 1 00362	3182	I	LXA	FK5,1 CLEAR REG. TABLE	F5G29380
	15675	0 76000 0 00012	3183		DCT	CLEAR DIVIDE CHECK LIGHT	F5G29390
	15676	0 76100 0 00000	3184		NOP	IN CASE DIVIDE CHECK IS ON	F5G29400
	15677	0 50000 0 00314	3185		CLA	ZERO	F5G29410
	15700	0 60100 1 05263	3186	I11	STO	REG,1	F5G29420
	15701	2 00001 1 15700	3187		TIX	I11,1,1	F5G29430
	15702	0 76000 0 00140	3188		PSE	96 TURN OFF SENSE LIGHTS.	F5G29440
	15703	0 50000 0 17777	3189		CLA	KEYS+3 INITIALIZE	F5G29441
	15704	0 60100 0 00042	3190		STO	STAGP+5 DRUM ADDR. OF STAG	F5G29450
	15705	0 50000 0 17775	3191		CLA	KEYS+1	F5G29460
	15706	0 60100 0 00065	3192		STO	PREDP+5	F5G29470
	15707	0 50000 0 17776	3193		CLA	KEYS+2	F5G29480
	15710	0 60100 0 00077	3194		STO	BBBP+5 DRUM ADDR. OF BB.B.	F5G29490
	15711	0 50000 0 17774	3195		CLA	KEYS	F5G29500
	15712	0 76700 0 00022	3196		ALS	18	F5G29510
	15713	0 60100 0 00075	3197		STO	BBBP+3 NO. OF BASIC BLOCKS.	F5G29520
	15714	0 40200 0 00316	3198		SUB	ONED	F5G29530
	15715	0 07400 4 00070	3199		TSX	SE,4	F5G29540
	15716	0 50000 1 12533	3200		CLA	BBB,1	F5G29550
	15717	0 62200 0 00051	3201		STD	SUCCP+3 LOCATION OF LAST SUCC	F5G29560
	15720	0 76700 0 00022	3202		ALS	18	F5G29570
	15721	0 62200 0 00063	3203		STD	PREDP+3 LOCATION OF LAST PRED	F5G29580
	15722	0 50000 1 12534	3204		CLA	BBB+1,1	F5G29590
	15723	−0 32000 0 00326	3205		ANA	S3K4	F5G29600
	15724	0 60100 0 00453	3206		STO	S4V3	F5G29610
	15725	0 76500 0 00043	3207		LRS	35	F5G29620
	15726	0 22100 0 00331	3208		DVP	S4K2 COMPUTE	F5G29630
	15727	−0 60000 0 16005	3209		STQ	IV1 THE	F5G29640
	15730	0 10000 0 15732	3210		TZE	I1 LOCATI0N	F5G29650
	15731	0 50000 0 00315	3211		CLA	ONEA WHICH A TAG	F5G29660
	15732	0 40000 0 16005	3212	I1	ADD	IV1 WOULD HAVE	F5G29670
	15733	0 76500 0 00043	3213		LRS	35 IF IT	F5G29680
	15734	0 20000 0 00331	3214		MPY	S4K2 WERE FIRST IN	F5G29690
	15735	0 76300 0 00043	3215		LLS	35 THE NEXT RECORD.	F5G29700
	15736	0 60100 0 00452	3216		STO	S4V2	F5G29710
	15737	0 60100 0 00451	3217		STO	S4V1	F5G29720
	15740	0 50000 1 12534	3218		CLA	BBB+1,1 DETERMINE NO.	F5G29730
	15741	−0 32000 0 00326	3219		ANA	S3K4 OF ENTRIES IN	F5G29740
	15742	0 76500 0 00043	3220		LRS	35 STAG.	F5G29750
	15743	0 22100 0 00371	3221		DVP	XK9	F5G29760
	15744	−0 60000 0 16005	3222		STQ	IV1	F5G29770
	15745	0 10000 0 15747	3223		TZE	I10	F5G29780
	15746	0 50000 0 00315	3224		CLA	ONEA	F5G29790
	15747	0 40000 0 16005	3225	I10	ADD	IV1 INITIALIZE	F5G29800
	15750	0 76700 0 00022	3226		ALS	18	F5G29010
	15751	0 60100 0 00040	3227		STO	STAGP+3 OF ENTRIES IN STAG	F5G29820
	15752	0 76500 0 00043	3228		LRS	35 COMPUTE	F5G29830
	15753	0 22100 0 00037	3229		DVP	STAGP+2 THE	F5G29840
	15754	0 10000 0 15756	3230		TZE	I3 DRUM	F5G29850
	15755	0 50000 0 00315	3231		CLA	ONEA ADDR.	F5G29860
	15756	−0 60000 0 16006	3232	I3	STQ	IV2 FOLLOWING	F5G29870
	15757	0 40000 0 16006	3233		ADD	IV2 THE	F5G29880
	15760	0 76700 0 00022	3234		ALS	18	F5G29890
	15761	0 40000 0 00040	3235		ADD	STAGP+3 STAG	F5G29900
	15762	0 77100 0 00022	3236		ARS	18	F5G29910
	15763	0 40000 0 00042	3237		ADD	STAGP+5 TABLE.	F5G29920
	15764	0 56000 0 16010	3238		LDQ	IK1	F5G29930
	15765	0 04000 0 16004	3239		TLQ	I7	F5G29940
	15766	0 50000 0 00036	3240	I6	CLA	STAGP+1	F5G29950
	15767	0 34000 0 00040	3241		CAS	STAGP+3 ARE WE THRU STORING 0 S	F5G29960
	15770	0 02000 0 15772	3242		TRA	I4	F5G29970
	15771	0 02000 0 16011	3243		TRA	I9	F5G29980
	15772	0 60100 0 00035	3244	I4	STO	STAGP SET N(0) TO OLD N(1)	F5G29990
	15773	0 40000 0 00037	3245		ADD	STAGP+2 SET N(1) T0 MIN (OLD N(1)+N.,	F5G30000
	15774	0 56000 0 00040	3246		LDQ	STAGP+3 N(L)	F5G30010
	15775	−0 60000 0 00036	3247		STQ	STAGP+1	F5G30020
	15776	0 04000 0 16000	3248		TLQ	I5	F5G30030
	15777	0 60100 0 00036	3249		STO	STAGP+1	F5G30040
	16000	0 50000 0 00277	3250	I5	CLA	SEK	F5G30050
	16001	0 53400 2 16007	3251		LXA	IK2,2	F5G30060
	16002	0 07400 4 00166	3252		TSX	SE26,4 STORE BLOCK OF 0S	F5G30070
	16003	0 02000 0 15766	3253		TRA	I6	F5G30080
	16004	0 07400 4 00004	3254	I7	TSX	4,4 TO DIAGNOSTIC	F5G30090
	16005	0 00000 0 00000	3255	IV1			F5G30100
	16006	0 00000 0 00000	3256	IV2			F5G30110
	16007	0 00000 0 77744	3257	IK2		1−STAGP	F5G30120
	16010	0 00000 0 17777	3258	IK1	HTR	8191	F5G30130
	16011	0 07400 4 01133	3259	I9	TSX	S4,4	F5G30140
	16012	0 77200 0 00204	3260		REW	INSTTP REWIND THE COMPILED INST TAPE	F5G30150
	16013	0 50000 0 17775	3261		CLA	KEYS+1	F5G30160
	16014	−0 10000 0 04740	3262		TNZ	LPLST−1	F5G30170
	16015	0 60100 0 00550	3263		STO	LPIND	F5G30180
	16016	0 60100 0 04740	3264		STO	LPLST−1	F5G30190
	16017	0 60100 0 04741	3265		STO	LPLST	F5G30200
	16020	0 50000 0 00323	3266		CLA	S3K1	F5G30210
	16021	0 60100 0 04742	3267		STO	LPLST+1	F5G30220
	16022	−0 53400 4 00317	3268		LXD	S1K2,4 SKIP DIAGNOSTICS	F5G30230
	16023	0 76200 0 00221	3269	I9A	RTB	1 AND ANTIPINGPONG	F5G30240
	16024	2 00001 4 16023	3270		TIX	I9A,4,1 SIX RECORDS	F5G30250
	16025	0 02000 0 02706	3271		TRA	F75	F5G30260
			3272			EDITOR RECORD NO. 78	F5G30270
			3273			FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.	F5G30280
			3274			DIAGNOSTIC CALLER FOLLOWS	F5G30300
			3275			PART 1C	F5G30310
			3276			SUCC LIMIT FOR FAST COMPILING	F5G30320
		04740	3277		ORG	LPLST−1	F5G30330
	04740	−0 53400 1 00103	3278	QS	LXD	SE21+2,1	F5G30340
	04741	−3 00000 1 02177	3279		TXL	F,1,0	F5G30350
	04742	−0 53400 4 00051	3280		LXD	SUCCP+3,4	F5G30360
	04743	0 50000 0 00075	3281		CLA	BBBP+3	F5G30370
	04744	−3 00000 4 02177	3282	QS0	TXL	F,4,0	F5G30380
	04745	1 77777 4 04746	3283		TXI	QS1,4,−1	F5G30390
	04746	−0 63400 4 00104	3284	QS1	SXD	SE21+3,4	F5G30400
	04747	0 40200 0 00316	3285		SUB	ONED	F5G30410
	04750	0 07400 4 00070	3286		TSX	SE,4	F5G30420
	04751	−0 53400 4 00072	3287		LXD	BBBP,4	F5G30430
	04752	1 00417 4 04753	3288		TXI	QS2,4,BBBL−1	F5G30440
	04753	−0 63400 4 04764	3289	QS2	SXD	QS4,4	F5G30450
	04754	−0 63400 4 04766	3290		SXD	QS5,4	F5G30460
	04755	−0 53400 4 12533	3291		LXD	BBB,4	F5G30470
	04756	−0 63400 4 04772	3292		SXD	QS8,4	F5G30480
	04757	−0 53400 4 00104	3293		LXD	SE21+3,4	F5G30490
	04760	−0 75400 4 00000	3294	QS3	PXD	0,4	F5G30500
	04761	0 07400 4 00044	3295		TSX	SE6,4	F5G30510
	04762	0 50200 1 16734	3296		CLS	SUCC,1	F5G30520
	04763	0 73400 4 00000	3297		PAX	0,4	F5G30530
	04764	3 00000 4 04767	3298	QS4	TXH	QS6,4,−	F5G30540
	04765	1 00420 4 04766	3299		TXI	QS5,4,BBBL	F5G30550
	04766	3 00000 4 04770	3300	QS5	TXH	QS7,4,−	F5G30560
	04767	0 60100 1 16734	3301	QS6	STO	SUCC,1	F5G30570
	04770	−0 53400 4 00306	3302	QS7	LXD	SEV2,4	F5G30580
	04771	0 50000 0 00072	3303		CLA	BBBP	F5G30590
	04772	−3 00000 4 04744	3304	QS8	TXL	QS0,4,−	F5G30600
	04773	1 77777 4 04760	3305		TXI	QS3,4,−1	F5G30610
			3306			EDITOR RECORD NO. 80	F5G30620
			3307			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G30630
			3308			DIAGNOSTIC CALLER FOLLOWS	F5G30650
			3309			PART 1D	F5G30660
			3310			PRED UNDO FROM FAST COMPILING	F5G30670
		04740	3311		ORG	LPLST−1	F5G30660
	04740	−0 53400 1 00103	3312	QPU	LXD	SE21+2,1	F5G30690
	04741	−3 00000 1 00030	3313		TXL	R,1,0	F5G30700
	04742	−0 53400 4 00063	3314		LXD	PREDP+3,4	F5G30710
	04743	0 50000 0 00075	3315		CLA	BBBP+3	F5G30720
	04744	−3 00000 4 00030	3316	QPU0	TXL	R,4,0	F5G30730
	04745	1 77777 4 04746	3317		TXI	QPU1,4,−1	F5G30740
	04746	−0 63400 4 00104	3318	QPU1	SXD	SE21+3,4	F5G30750
	04747	0 40200 0 00316	3319		SUB	ONED	F5G30760
	04750	0 07400 4 00070	3320		TSX	SE,4	F5G30770
	04751	−0 53400 4 00072	3321		LXD	BBBP,4	F5G30780
	04752	1 00417 4 04753	3322		TXI	QPU2,4,BBBL−1	F5G30790
	04753	−0 63400 4 04764	3323	QPU2	SXD	QPU4,4	F5G30800
	04754	−0 63400 4 04766	3324		SXD	QPU5,4	F5G30810
	04755	0 53400 4 12533	3325		LXA	BBB,4	F5G30820
	04756	−0 63400 4 04772	3326		SXD	QPU8,4	F5G30830
	04757	−0 53400 4 00104	3327		LXD	SE21+3,4	F5G30840
	04760	−0 75400 4 00000	3328	QPU3	PXD	0,4	F5G30850
	04761	0 07400 4 00056	3329		TSX	SE5+1,4	F5G30860
	04762	0 50200 1 15674	3330		CLS	PRED,1	F5G30870
	04763	0 73400 4 00000	3331		PAX	0,4	F5G30880
	04764	3 00000 4 04767	3332	QPU4	TXH	QPU6,4,−	F5G30890
	04765	1 00420 4 04766	3333		TXI	QPU5,4,BBBL	F5G30900
	04766	3 00000 4 04770	3334	QPU5	TXH	QPU7,4,−	F5G30910
	04767	0 60100 1 15674	3335	QPU6	STO	PRED,1	F5G30920
	04770	−0 53400 4 00306	3336	QPU7	LXD	SEV2,4	F5G30930
	04771	0 50000 0 00072	3337		CLA	BBBP	F5G30940
	04772	−3 00000 4 04744	3338	QPU8	TXL	QPU0,4,−	F5G30950
	04773	1 77777 4 04760	3339		TXI	QPU3,4,−1	F5G30960
			3340			EDITOR RECORD NO. 82	F5G30970
			3341			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G30980
			3342			DIAGNOSTIC CALLER FOLLOWS	F5G31000
			3343			PART 1E	F5G31010
			3344			SUCC UNDO FROM FAST COMPILING	F5G31020
		04740	3345		ORG	LPLST−1	F5G31030
	04740	−0 53400 1 00103	3346	QSU	LXD	SE21+2,1	F5G31040
	04741	−3 00000 1 02177	3347		TXL	F,1,0	F5G31050
	04742	−0 53400 4 00051	3348		LXD	SUCCP+3,4	F5G31060
	04743	0 50000 0 00075	3349		CLA	BBBP+3	F5G31070
	04744	−3 00000 4 02177	3350	QSU0	TXL	F,4,0	F5G31080
	04745	1 77777 4 04746	3351		TXI	QSU1,4,−1	F5G31090
	04746	−0 63400 4 00104	3352	QSU1	SXD	SE21+3,4	F5G31100
	04747	0 40200 0 00316	3353		SUB	ONED	F5G31110
	04750	0 07400 4 00070	3354		TSX	SE,4	F5G31120
	04751	−0 53400 4 00072	3355		LXD	BBBP,4	F5G31130
	04752	1 00417 4 04753	3356		TXI	QSU2,4,BBBL−1	F5G31140
	04753	−0 63400 4 04764	3357	QSU2	SXD	QSU4,4	F5G31150
	04754	−0 63400 4 04766	3358		SXD	QSU5,4	F5G31160
	04755	−0 53400 4 12533	3359		LXD	BBB,4	F5G31170
	04756	−0 63400 4 04772	3360		SXD	QSU8,4	F5G31180
	04757	−0 53400 4 00104	3361		LXD	SE21+3,4	F5G31190
	04760	−0 75400 4 00000	3362	QSU3	PXD	0,4	F5G31200
	04761	0 07400 4 00044	3363		TSX	SE6,4	F5G31210
	04762	0 50200 1 16734	3364		CLS	SUCC,1	F5G31220
	04763	0 73400 4 00000	3365		PAX	0,4	F5G31230
	04764	3 00000 4 04767	3366	QSU4	TXH	QSU6,4,−	F5G31240
	04765	1 00420 4 04766	3367		TXI	QSU5,4,BBBL	F5G31250
	04766	3 00000 4 04770	3368	QSU5	TXH	QSU7,4,−	F5G31260
	04767	0 60100 1 16734	3369	QSU6	STO	SUCC,1	F5G31270
	04770	−0 53400 4 00306	3370	QSU7	LXD	SEV2,4	F5G31280
	04771	0 50000 0 00072	3371		CLA	BBBP	F5G31290
	04772	−3 00000 4 04744	3372	QSU8	TXL	QSU0,4,−	F5G31300
	04773	1 77777 4 04760	3373		TXI	QSU3,4,−1	F5G31310
			3374			EDITOR RECORD N0. 84	F5G31320
			3375			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G31330
			3376			DIAGNOSTIC CALLER FOLLOWS	F5G31350
			3377			PART 2	F5G31360
			3378			PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE	F5G31370
		00317	3379		ORG	C	F5G31380
	00317	0 00000 0 77777	3380	BLV09	HTR	−1 BB NO. OF LAST GO TO N	F5G31390
	00320	0 76200 0 00223	3381	BL12	RTB	BLT FIND THE END OF FILE PRECEEDING BB LIST	F5G31400
	00321	0 70000 0 00655	3382	BL13	CPY	BLIST	F5G31410
	00322	0 02000 0 00320	3383		TRA	BL12	F5G31420
	00323	0 02000 0 00325	3384		TRA	BL6	F5G31430
	00324	0 02000 0 00320	3385		TRA	BL12	F5G31440
	00325	−0 53400 2 00332	3386	BL6	LXD	CON1,2	F5G31450
	00326	0 76200 0 00223	3387	BL5	RTB	BLT	F5G31460
	00327	0 53400 1 00332	3388		LXA	CON1,1	F5G31470
	00330	0 70000 1 00655	3389	BL1	CPY	BLIST,1 COPY BB LIST INTO CS	F5G31480
	00331	1 77777 1 00330	3390		TXI	BL1,1,−1	F5G31490
	00332	0 00005 0 00000	3391	CON1		0,0,5	F5G31500
	00333	0 76600 0 00333	3392		IOD		F5G31510
	00334	−0 76000 0 00012	3393		RTT		F5G31520
	00335	0 02000 0 00435	3394		TRA	BL4 ERROR	F5G31530
	00336	0 50000 0 17774	3395		CLA	KEYS O.K. COMPUTE TEST CONSTANT	F5G31540
	00337	0 40200 0 00552	3396		SUB	TWO	F5G31550
	00340	0 60100 0 00566	3397		STO	BLV3	F5G31560
	00341	0 50000 0 00314	3398		CLA	ZERO	F5G31570
	00342	0 07400 4 00032	3399		TSX	SE4,4 STAG WORD	F5G31580
	00343	0 50000 1 05263	3400		CLA	STAG,1	F5G31590
	00344	0 60100 0 00602	3401		STO	BLV07	F5G31600
	00345	0 50000 0 00564	3402		CLA	BLV1	F5G31610
	00346	0 56000 0 00566	3403	BL3	LDQ	BLV3 HAVE WE ALREADY DEALT WITH LAST BB	F5G31620
	00347	0 04000 0 00541	3404		TLQ	BL06 YES , GO TO READ IN NEXT PART	F5G31630
	00350	0 40000 0 00315	3405		ADD	ONEA	F5G31640
	00351	0 07400 4 00067	3406		TSX	SE1,4 GET UNDEX OF NEXT BB	F5G31650
	00352	0 50000 1 12534	3407		CLA	BBB+1,1 STORE THE NO. OF THE	F5G31660
	00353	−0 32000 0 00554	3408		ANA	RMSK FIRST TAG IN	F5G31670
	00354	0 60100 0 00571	3409		STO	BLV6 NEXT BB.,	F5G31680
	00355	0 50000 1 12533	3410		CLA	BBB,1	F5G31690
	00356	−0 32000 0 00553	3411		ANA	2AMSK	F5G31700
	00357	0 60100 0 00570	3412		STO	BLV5 STORE AWAY NO. OF U1ST PRED IN NEXT BB.	F5G31710
	00360	0 50000 0 00564	3413		CLA	BLV1	F5G31720
	00361	0 07400 4 00067	3414		TSX	SE1,4	F5G31730
	00362	−0 53400 2 00565	3415		LXD	BLV2,2	F5G31740
	00363	0 50000 2 00655	3416		CLA	BLIST,2 REPLACE LAST WORD OF BBB ENTRY	F5G31750
	00364	0 60100 1 12540	3417		STO	BBB+5,1 BY THE LOCATION FROM THE BB LIST.	F5G31760
	00365	1 77777 2 00366	3418	BL2	TXI	BL2+1,2,−1	F5G31770
	00366	−0 63400 2 00565	3419		SXD	BLV2,2	F5G31780
	00367	0 50000 1 12534	3420		CLA	BBB+1,1 STORE PERMUTATION NOS.	F5G31790
	00370	0 60100 0 00572	3421		STO	BLV7	F5G31800
	00371	−0 63400 1 00567	3422		SXD	BLV4,1	F5G31810
	00372	0 50000 1 12534	3423		CLA	BBB+1,1 GET	F5G31820
	00373	−0 32000 0 00554	3424		ANA	RMSK OF 1ST TAG IN BB	F5G31830
	00374	0 40200 0 00571	3425		SUB	BLV6 FORM COUNT OF NO. OF T.GS	F5G31840
	00375	0 40200 0 00315	3426		SUB	ONEA	F5G31850
	00376	0 73400 2 00000	3427		PAX	0,2 C0UNT OF NO. OF TAGS INTO 2.	F5G31860
	00377	−0 63400 2 00600	3428		SXD	BLV05,2 STORE COUNT OF NO. OF TAGS	F5G31870
	00400	0 50000 1 12533	3429		CLA	BBB,1	F5G31880
	00401	−0 32000 0 00553	3430		ANA	2AMSK	F5G31890
	00402	0 60100 0 00575	3431	BL9	STO	BLV01	F5G31900
	00403	0 34000 0 00570	3432		CAS	BLV5 IS THIS PRED IN SAME BB	F5G31910
	00404	0 02000 0 00406	3433		TRA	BL7 YES	F5G31920
	00405	0 02000 0 00440	3434		TRA	BL01 NO	F5G31930
	00406	0 07400 4 00055	3435	BL7	TSX	SE5,4 YES, GET INDEX OF PRED	F5G31940
	00407	−0 50000 0 00555	3436		CAL	SALM	F5G31950
	00410	0 60200 0 00574	3437		SLW	BLV9	F5G31960
	00411	−0 50000 1 15674	3438		CAL	PRED,1	F5G31970
	00412	0 60200 0 00573	3439		SLW	BLV8 STODRE OLD PRED WORD	F5G31980
	00413	0 32000 0 00574	3440		ANS	BLV9 INT INITIALIZE NEW PRED WORD	F5G31990
	00414	−0 53400 2 00550	3441		LXD	2LD3,2 SET COUNT TO 3	F5G32000
	00415	−0 50000 0 00572	3442	BL8	CAL	BLV7 PLACE THE	F5G32010
	00416	0 77100 2 00003	3443		ARS	3,2 PERMUTATION NO.	F5G32020
	00417	0 77100 2 00003	3444		ARS	3,2 IN REGISTER 4	F5G32030
	00420	−0 32000 0 00550	3445		ANA	2LD3	F5G32040
	00421	−0 73400 4 00000	3446		PDX	0,4	F5G32050
	00422	−0 50000 0 00573	3447		CAL	BLV8 PERMUTE	F5G32060
	00423	0 76700 2 00003	3448		ALS	3,2 THE LXD	F5G32070
	00424	−0 32000 0 00557	3449		ANA	BITMK AND SXD	F5G32080
	00425	0 77100 4 00003	3450		ARS	3,4 BITS IN THE	F5G32090
	00426	−0 60200 0 00574	3451		ORS	BLV9 PRED ENTRY	F5G32100
	00427	2 00001 2 00415	3452		TIX	BL8,2,1 COUNT TO 3	F5G32110
	00430	0 50000 0 00574	3453		CLA	BLV9	F5G32120
	00431	0 60100 1 15674	3454		STO	PRED,1 STORE PRED ENTRY WITH PERMUTED BITS	F5G32130
	00432	0 50000 0 00575	3455		CLA	BLV01 ARRANGE TO CONSIDER	F5G32140
	00433	0 40000 0 00315	3456		ADD	ONEA NEXT PRED ENTRY	F5G32150
	00434	0 02000 0 00402	3457		TRA	BL9	F5G32160
	00435	0 76400 0 00203	3458	BL4	BST	BLT TAPE CHECK BACKSPACE TAPE	F5G32170
	00436	2 00001 2 00326	3459		TIX	BL5,2,1 TRY 5 TIMES	F5G32160
	00437	0 07400 4 00004	3460		TSX	4,4 THEN START DIAGNOSTIC.	F5G32190
	00440	−0 53400 1 00600	3461	BL01	LXD	BLV05,1	F5G32200
	00441	−2 00001 1 00504	3462	BL03	TNX	BL04,1,1 IS THERE ANOTHER TAG IN BB	F5G32210
	00442	−0 53400 2 00577	3463		LXD	BLV04,2 YES	F5G32220
	00443	2 00001 2 00466	3464		TIX	BL02,2,1 HAVE WE EXHAUSTED STAG WORD	F5G32230
	00444	−0 63400 1 00600	3465		SXD	BLV05,1 YES, STORE COUNT OF NO. OF TAGS	F5G32240
	00445	−0 53400 2 00603	3466		LXD	BLV08,2 STORE	F5G32250
	00446	0 50000 0 00602	3467		CLA	BLV07 OLD PERMUTED	F5G32260
	00447	0 60100 2 05263	3468		STO	STAG,2 STAG WORD	F5G32270
	00450	0 50000 0 00314	3469		CLA	ZERO	F5G32280
	00451	0 60100 0 00602	3470		STO	BLV07	F5G32290
	00452	0 50000 0 00576	3471		CLA	BLV03 GET	F5G32300
	00453	0 07400 4 00032	3472		TSX	SE4,4 NEXT	F5G32310
	00454	−0 63400 1 00603	3473		SXD	BLV08,1 STAG	F5G32320
	00455	−0 50000 1 05263	3474		CAL	STAG,1 WORD	F5G32330
	00456	0 60200 0 00601	3475		SLW	BLV06 STORE STAG WORD	F5G32340
	00457	−0 32000 0 00560	3476		ANA	LMSK AND	F5G32350
	00460	0 60200 0 00602	3477		SLW	BLV07 INITIALIZE NEW STAG WORD	F5G32360
	00461	0 50000 0 00576	3478		CLA	BLV03 INCREASE THE	F5G32370
	00462	0 40000 0 00315	3479		ADD	ONEA STAG WORD NO.	F5G32380
	00463	0 60100 0 00576	3480		STO	BLV03	F5G32390
	00464	−0 53400 2 00551	3481		LXD	2LD9,2 RESET COUNT TO 9	F5G32400
	00465	−0 53400 1 00600	3482		LXD	BLV05,1 RESTORE 1	F5G32410
	00466	−0 63400 2 00577	3483	BL02	SXD	BLV04,2 STORE COUNTER	F5G32420
	00467	−0 50000 0 00601	3484		CAL	BLV06	F5G32430
	00470	0 76700 0 00002	3485		ALS	2	F5G32440
	00471	0 60200 0 00601	3486		SLW	BLV06	F5G32450
	00472	−0 32000 0 00550	3487		ANA	2LD3 EXTRACT TAG	F5G32460
	00473	−0 73400 4 00000	3488		PDX	0,4	F5G32470
	00474	−0 50000 0 00572	3489		CAL	BLV7 PERMUTE	F5G32480
	00475	0 77100 4 00003	3490		ARS	3,4	F5G32490
	00476	0 77100 4 00003	3491		ARS	3,4 THE	F5G32500
	00477	−0 32000 0 00550	3492		ANA	2LD3 TAG	F5G32510
	00500	0 77100 2 00012	3493		ARS	10,2	F5G32520
	00501	0 77100 2 00012	3494		ARS	10,2	F5G32530
	00502	−0 60200 0 00602	3495		ORS	BLV07 FORM NEW TAG WORD	F5G32540
	00503	0 02000 0 00441	3496		TRA	BL03	F5G32550
	00504	−0 53400 1 00567	3497	BL04	LXD	BLV4,1 GET INDEX OF BB	F5G32560
	00505	0 50000 1 12533	3498		CLA	BBB,1 IS	F5G32570
	00506	0 77100 0 00041	3499		ARS	33 THIS	F5G32560
	00507	0 40000 0 00315	3500		ADD	ONEA A GO N	F5G32590
	00510	−0 10000 0 00516	3501		TNZ	BL07 NO	F5G32600
	00511	0 50000 0 00317	3502		CLA	BLV09 YES, STORE BB NO.	F5G32610
	00512	0 76700 0 00022	3503		ALS	18 OF LAST	F5G32620
	00513	0 62200 1 12534	3504		STD	BBB+1,1 GO N ENCOUNTERED	F5G32630
	00514	0 50000 0 00564	3505		CLA	BLV1 STORE PRESENT	F5G32640
	00515	0 60100 0 00317	3506		STO	BLV09 BB NO.	F5G32650
	00516	−0 53400 2 00550	3507	BL07	LXD	2LD3,2 SET COUNT TO 3	F5G32660
	00517	−0 50000 0 00572	3508	BL09	CAL	BLV7	F5G32670
	00520	0 77100 2 00003	3509		ARS	3,2	F5G32680
	00521	0 77100 2 00003	3510		ARS	3,2 GET PERMUTATION NO.	F5G32690
	00522	−0 32000 0 00550	3511		ANA	2LD3	F5G32700
	00523	−0 73400 4 00000	3512		PDX	0,4	F5G32710
	00524	0 50000 1 12535	3513		CLA	BBB+2,1 PERMUTE	F5G32720
	00525	0 60100 4 00564	3514		STO	EXCO,4 ENTRANCE-EXIT REQUIREMENTS	F5G32730
	00526	1 77777 1 00527	3515	BL08	TXI	BL08+1,1,−1	F5G32740
	00527	2 00001 2 00517	3516		TIX	BL09,2,1 COUNT TO 3	F5G32750
	00530	−0 53400 2 00550	3517		LXD	2LD3,2 PLACE PERMUTED	F5G32760
	00531	0 50000 2 00564	3518	BL10	CLA	EXCO,2 ENTRANCE-EXIT COND.	F5G32770
	00532	0 60100 1 12532	3519		STO	BBB−1,1 BACK IN BB	F5G32780
	00533	1 77777 1 00534	3520	BL11	TXI	BL11+1,1,−1	F5G32790
	00534	2 00001 2 00531	3521		TIX	BL10,2,1 COUNT TO 3	F5G32800
	00535	0 50000 0 00564	3522	BL05	CLA	BLV1 PREPARE TO DEAL WITH	F5G32810
	00536	0 40000 0 00315	3523		ADD	ONEA WITH NEXT BB	F5G32820
	00537	0 60100 0 00564	3524		STO	BLV1	F5G32830
	00540	0 02000 0 00346	3525		TRA	BL3	F5G32840
	00541	0 07400 4 00067	3526	BL06	TSX	SE1,4 PUT EDN MARK INTO THF DUMMEY BB	F5G32850
	00542	0 50000 0 00556	3527		CLA	EN2MK	F5G32860
	00543	0 60100 1 12540	3528		STO	BBB+5,1	F5G32870
	00544	0 50000 0 00602	3529		CLA	BLV07 STORE	F5G32880
	00545	−0 53400 2 00603	3530		LXD	BLV08,2 OLD	F5G32890
	00546	0 60100 2 05263	3531		STO	STAG,2 STAG WORD	F5G32900
	00547	0 02000 0 00030	3532		TRA	R READ NEXT PART	F5G32910
	00550	0 00003 0 00000	3533	2LD3		0,0,3	F5G32920
	00551	0 00011 0 00000	3534	2LD9		0,0,9	F5G32930
	00552	0 00000 0 00002	3535	TWO		2	F5G32940
	00553	0 00000 0 77777	3536	2AMSK		−1	F5G32950
	00554	0 00000 7 77777	3537	RMSK		−1,−1	F5G32960
	00555	−377770077777	3538	SALM	OCT	−377770077777 MS MASK OUT SXD AND LXD PRED REULTS	F5G32970
	00556	3 77777 7 77777	3539	EN2MK	PTH	−1,−1,−1 PUT IN LOCATION OF DUMMEY BB	F5G32980
	00557	0 00004 4 00000	3540	BITMK		0,4,4	F5G32990
	00560	−377777000000	3541	LMSK	OCT	−377777000000	F5G33000
		00564	3542	EXCO	BES	3 THE ENTRANCE-EXIT CONDITIONS PERMUTED	F5G33010
	00564	0 00000 0 00000	3543	BLV1		BBNO.	F5G33020
	00565	0 00000 0 00000	3544	BLV2		INDEX IN BB LIST	F5G33030
	00566	0 00000 0 00000	3545	BLV3		TEST CONSTANT	F5G33040
	00567	0 00000 0 00000	3546	BLV4		INDEX OF BB	F5G33050
	00570	0 00000 0 00000	3547	BLV5		1ST PRED NO. IN NEXT BB	F5G33060
	00571	0 00000 0 00000	3548	BLV6		UST TAG IN NEXT BB	F5G33070
	00572	0 00000 0 00000	3549	BLV7		PERMUTTTION NOS.	F5G33080
	00573	0 00000 0 00000	3550	BLV8		OLD PRED ENTRY	F5G33090
	00574	0 00000 0 00000	3551	BLV9		NEW, PERMUTED, PRED ENTRY	F5G33100
	00575	0 00000 0 00000	3552	BLV01		CURRENT PRED. NO.	F5G33110
	00576	0 00000 0 00000	3553	BLV03		NO. OF STAG WORD, INITIALLY ZERO	F5G33120
	00577	0 00000 0 00000	3554	BLV04		COUNTER TO 9, INITIALLY ZERO	F5G33130
	00600	0 00000 0 00000	3555	BLV05		C0UNT OF NO. OF TAGS IN BB	F5G33140
	00601	0 00000 0 00000	3556	BLV06		STAG WORD	F5G33150
	00602	0 00000 0 00000	3557	BLV07		NEW, PERMUTED , STAG WORD	F5G33160
	00603	0 00000 0 00000	3558	BLV08		INDEX OF OLD STAG WORD	F5G33170
		00604	3559		BSS	PTL2 SPACE FOR PATCHES	F5G33180
	00655	0 00000 0 00000	3560	BLIST			F5G33190
			3561			EDITOR RECORD NO. 86	F5G33200
			3562			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G33210
			3563			DIAGNOSTIC CALLER FOLLOWS	F5G33230
			3564			PART 3	F5G33240
			3565			CHANGE LXD AND SXD RESULTS TO BE C0MPATIBLE WITH GO TO	F5G33250
			3566			N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE.	F5G33260
			3567			C CONTAINS THE BB NO. OF THE GO TO N	F5G33270
		00320	3568		ORG	C+1	F5G33280
	00320	0 76200 0 00222	3569	START	RTB	ACTPE LOCATE THE END OF FILE BEFORE ASSIGN CONSTANT	F5G33290
	00321	0 70000 0 00573	3570		CPY	ACV12	F5G33300
	00322	0 02000 0 00320	3571		TRA	START	F5G33310
	00323	0 02000 0 00330	3572		TRA	RDIN	F5G33320
	00324	0 02000 0 00320	3573		TRA	START	F5G33330
	00325	0 76400 0 00202	3574	ERR	BST	ACTPE BACKSPACE TAPE TO TRY AGAIN	F5G33340
	00326	2 00001 2 00331	3575		TIX	AAC2,2,1 COUNT TO 5	F5G33350
	00327	0 07400 4 00004	3576		TSX	4,4 TO DIAGNOSTIC	F5G33360
	00330	−0 53400 2 00555	3577	RDIN	LXD	3LD3,2	F5G33370
	00331	0 76200 0 00222	3578	AAC2	RTB	ACTPE	F5G33360
	00332	0 70000 0 00573	3579		CPY	ACV12 COPY THE EXTRA WORD	F5G33390
	00333	0 53400 1 00314	3580		LXA	ZERO,1	F5G33400
	00334	0 70000 1 00647	3581	AAC1	CPY	ASCON,1	F5G33410
	00335	1 77777 1 00334	3582		TXI	AAC1,1,−1	F5G33420
	00336	0 07400 4 00004	3583		TSX	4,4	F5G33430
	00337	0 76600 0 00333	3584		IOD	CHECK REDUNDANCY BITS	F5G33440
	00340	−0 76000 0 00012	3585		RTT		F5G33450
	00341	0 02000 0 00325	3586		TRA	ERR THERR IS AN ERROR	F5G33460
	00342	0 76200 0 00222	3587		RTB	ACTPE	F5G33470
	00343	0 76200 0 00222	3588		RTB	ACTPE	F5G33480
	00344	0 76200 0 00222	3589		RTB	ACTPE	F5G33490
	00345	0 76600 0 00333	3590		IOD		F5G33500
	00346	−0 63400 1 00527	3591		SXD	ACV1,1 O.K. STORE RECORD OF NO. OF ENTRIES	F5G33510
	00347	−0 63400 1 00541	3592		SXD	AC22,1	F5G33520
	00350	0 50000 0 00317	3593		CLA	C	F5G33530
	00351	0 56000 0 00560	3594	AC15	LDQ	ACK1 GET BB NO. OF 1ST GO TO N	F5G33540
	00352	0 04000 0 00520	3595		TLQ	AC16 WAS THIS THE LAST GO TO N	F5G33550
	00353	0 40000 0 00315	3596		ADD	ONEA NO	F5G33560
	00354	0 07400 4 00067	3597		TSX	SE1,4	F5G33570
	00355	−0 50000 1 12533	3598		CAL	BBB,1 FIND NO. OF 1ST SUCC IN NEXT BB	F5G33580
	00356	0 77100 0 00022	3599		ARS	18	F5G33590
	00357	0 62100 0 00562	3600		STA	ACV3	F5G33600
	00360	0 50000 0 00317	3601		CLA	C	F5G33610
	00361	0 07400 4 00067	3602		TSX	SE1,4	F5G33620
	00362	0 50000 0 00314	3603		CLA	ZERO CLEAR THE COMBINED SXDD CASE	F5G33630
	00363	0 60100 0 00563	3604		STO	ACV4	F5G33640
	00364	−0 50000 1 12533	3605		CAL	BBB,1 FIND THE NO. OF 1ST SUCC IN THIS BB	F5G33650
	00365	0 77100 0 00022	3606		ARS	18	F5G33660
	00366	−0 32000 0 00552	3607		ANA	AMSK	F5G33670
	00367	0 60100 0 00561	3608	AC13	STO	ACV2	F5G33680
	00370	0 34000 0 00562	3609		CAS	ACV3 IS THIS SUCC IN SAME BB	F5G33690
	00371	0 02000 0 00373	3610		TRA	AAC3 YES	F5G33700
	00372	0 02000 0 00506	3611		TRA	AC14 NO	F5G33710
	00373	0 76700 0 00022	3612	AAC3	ALS	18	F5G33720
	00374	0 07400 4 00044	3613		TSX	SE6,4 YES GET BB NO. OF SUCESSOR	F5G33730
	00375	−0 50000 1 16734	3614		CAL	SUCC,1	F5G33740
	00376	0 62100 0 00567	3615		STA	ACV8	F5G33750
	00377	0 40000 0 00315	3616		ADD	ONEA FIN NO. OF 1ST PRED ENTRY NEXT BBB	F5G33760
	00400	0 07400 4 00067	3617		TSX	SE1,4	F5G33770
	00401	0 50000 1 12533	3618		CLA	BBB,1	F5G33780
	00402	0 62100 0 00565	3619		STA	ACV6	F5G33790
	00403	0 50000 0 00314	3620		CLA	ZERO	F5G33800
	00404	0 60100 0 00571	3621		STO	ACV10 PRESET COMBINED LXO CASE TO 0	F5G33810
	00405	0 50000 0 00567	3622		CLA	ACV8 FIND NO. OF 1ST PRED IN THIS BB	F5G33620
	00406	0 07400 4 00067	3623		TSX	SE1,4	F5G33830
	00407	−0 50000 1 12533	3624		CAL	BBB,1	F5G33840
	00410	−0 32000 0 00552	3625		ANA	AMSK	F5G33850
	00411	0 62100 0 00570	3626		STA	ACV9 RECORD 1ST PRED FOR FUTURE USE	F5G33860
	00412	0 62100 0 00566	3627	AC7	STA	ACV7	F5G33870
	00413	0 34000 0 00565	3628		CAS	ACV6 IS THIS PRED IN SAME BB	F5G33880
	00414	0 02000 0 00416	3629		TRA	AC4	F5G33890
	00415	0 02000 0 00444	3630		TRA	AC8 NO	F5G33900
	00416	0 07400 4 00055	3631	AC4	TSX	SE5,4 IS THIS THE TRANSFER FROM CURRENTLY CONSIDERE	F5G33910
	00417	−0 50000 1 15674	3632		CAL	PRED,1 ED GO TO NP	F5G33920
	00420	−0 32000 0 00552	3633		ANA	AMSK	F5G33930
	00421	0 40200 0 00317	3634		SUB	C	F5G33940
	00422	−0 10000 0 00427	3635		TNZ	AC5 IF NOT SKIP THE ORING 0F SXD CASE	F5G33950
	00423	−0 50000 1 15674	3636		CAL	PRED,1 OR THE SXD CASE INTO COMBINED SXD CASE	F5G33960
	00424	−0 60200 0 00563	3637		ORS	ACV4	F5G33970
	00425	−0 50000 0 00554	3638		CAL	NTMSK	F5G33980
	00426	0 32000 1 15674	3639		ANS	PRED,1	F5G33990
	00427	−0 50000 1 15674	3640	AC5	CAL	PRED,1 IS THE BB WHICH IS PREDECESSOR	F5G34000
	00430	−0 63400 1 00572	3641		SXD	ACV11,1 A GO TO N	F5G34010
	00431	0 07400 4 00067	3642		TSX	SE1,4	F5G34020
	00432	0 50000 1 12533	3643		CLA	BBB,1	F5G34030
	00433	0 77100 0 00041	3644		ARS	33	F5G34040
	00434	0 40000 0 00315	3645		ADD	ONEA	F5G34050
	00435	−0 10000 0 00441	3646		TNZ	AC6	F5G34060
	00436	−0 53400 2 00572	3647		LXD	ACV11,2 YES, OR THE LXD XCASE INTO THE	F5G34070
	00437	−0 50000 2 15674	3648		CAL	PRED,2 COMBINED LXD CASE	F5G34080
	00440	−0 60200 0 00571	3649		ORS	ACV10	F5G34090
	00441	0 50000 0 00566	3650	AC6	CLA	ACV7	F5G34100
	00442	0 40000 0 00315	3651		ADD	ONEA	F5G34110
	00443	0 02000 0 00412	3652		TRA	AC7	F5G34120
	00444	−0 50000 0 00571	3653	AC8	CAL	ACV10 IS THE COMBINED LXD CASE ZERO	F5G34130
	00445	−0 32000 0 00553	3654		ANA	TMSK	F5G34140
	00446	0 10000 0 00503	3655		TZE	AC12	F5G34150
	00447	0 50000 0 00567	3656		CLA	ACV8 NO, HAS THIS BB ALREADY BEEN	F5G34160
	00450	0 07400 4 00067	3657		TSX	SE1,4 CONSIDERED	F5G34170
	00451	0 56000 1 12533	3658		LDQ	BBB,1 AS A SUCCESSOR TO	F5G34180
	00452	−0 77300 0 00024	3659		RQL	20 A GO TO N	F5G34190
	00453	0 16200 0 00455	3660		TQP	AC18	F5G34200
	00454	0 02000 0 00503	3661		TRA	AC12	F5G34210
	00455	0 50000 0 00557	3662	AC18	CLA	LT1	F5G34220
	00456	−0 60200 1 12533	3663		ORS	BBB,1 RECORD THAT THIS BB HAS BEEN CONSIDERED AS	F5G34230
	00457	0 50000 0 00570	3664		CLA	ACV9 ECT..PE PREPARE TO SCAN ALL PRED ENTRYS	F5G34240
	00460	0 62100 0 00566	3665	AC11	STA	ACV7	F5G34250
	00461	0 34000 0 00565	3666		CAS	ACV6 IS THIS PRED IN SAME BB	F5G34260
	00462	0 02000 0 00464	3667		TRA	AC9	F5G34270
	00463	0 02000 0 00531	3668		TRA	AC19 NO	F5G34280
	00464	0 07400 4 00055	3669	AC9	TSX	SE5,4 DETERMINE IF THE BB WHICH	F5G34290
	00465	−0 63400 1 00572	3670		SXD	ACV11,1 IS THE PREDECESSOR OF THIS ONE	F5G34300
	00466	0 50000 1 15674	3671		CLA	PRED,1 IS A GO TO N	F5G34310
	00467	0 07400 4 00067	3672		TSX	SE1,4	F5G34320
	00470	0 50000 1 12533	3673		CLA	BBB,1	F5G34330
	00471	0 77100 0 00041	3674		ARS	33	F5G34340
	00472	0 40000 0 00315	3675		ADD	ONEA	F5G34350
	00473	−0 10000 0 00500	3676		TNZ	AC10	F5G34360
	00474	−0 53400 2 00572	3677		LXD	ACV11,2 IT IS A GO TO N	F5G34370
	00475	0 50000 0 00571	3678		CLA	ACV10 REPLACE LXD CASE BY THE	F5G34380
	00476	−0 32000 0 00553	3679		ANA	TMSK COMBINED LXD CASE	F5G34390
	00477	−0 60200 2 15674	3680		ORS	PRED,2	F5G34400
	00500	0 50000 0 00566	3681	AC10	CLA	ACV7 ARRANGE TO TREAT NEXT PRED ENTRY	F5G34410
	00501	0 40000 0 00315	3682		ADD	ONEA	F5G34420
	00502	0 02000 0 00460	3683		TRA	AC11	F5G34430
	00503	0 50000 0 00561	3684	AC12	CLA	ACV2	F5G34440
	00504	0 40000 0 00315	3685		ADD	ONEA ARRANGE TO TREAT NEXT SUCC ENTRY	F5G34450
	00505	0 02000 0 00367	3686		TRA	AC13	F5G34460
	00506	0 50000 0 00317	3687	AC14	CLA	C STORE COMBINED	F5G34470
	00507	0 07400 4 00067	3688		TSX	SE1,4 SXDCASE IN PREFIX	F5G34480
	00510	0 50000 0 00563	3689		CLA	ACV4 OF 2ED WORD OF BBB ENTRY	F5G34490
	00511	0 76700 0 00017	3690		ALS	15	F5G34500
	00512	0 63000 1 12534	3691		STP	BBB+1,1	F5G34510
	00513	0 50000 1 12534	3692		CLA	BBB+1,1 GET NEXT GO TO N NUMBER	F5G34520
	00514	0 77100 0 00022	3693		ARS	18	F5G34530
	00515	−0 32000 0 00552	3694		ANA	AMSK	F5G34540
	00516	0 60100 0 00317	3695		STO	C	F5G34550
	00517	0 02000 0 00351	3696		TRA	AC15	F5G34560
	00520	0 76600 0 00222	3697	AC16	WTB	ACTPE WRITE ASSIGN CONSTANTS BACK ON TAPE	F5G34570
	00521	0 53400 1 00314	3698		LXA	ZERO,1	F5G34580
	00522	−0 53400 2 00527	3699		LXD	ACV1,2	F5G34590
	00523	0 70000 0 00573	3700		CPY	ACV12	F5G34600
	00524	−3 00000 2 00030	3701		TXL	R,2,0 IF NO ASSIGN CONST., GO TO NEXT PART	F5G34610
	00525	0 70000 1 00647	3702	AC17	CPY	ASCON,1	F5G34620
	00526	1 77777 1 00527	3703		TXI	ACV1,1,−1	F5G34630
	00527	−3 00000 1 00030	3704	ACV1	TXL	R,1,SET	F5G34640
	00530	0 02000 0 00525	3705		TRA	AC17	F5G34650
	00531	0 50000 0 00567	3706	AC19	CLA	ACV8	F5G34660
	00532	0 07400 4 00067	3707		TSX	SE1,4	F5G34670
	00533	0 53400 2 00314	3708		LXA	ZERO,2	F5G34680
	00534	0 50000 1 12540	3709	AC25	CLA	BBB+5,1	F5G34690
	00535	0 34000 2 00647	3710	AC23	CAS	ASCON,2 IS THIS ASSIGN CONST. EQUAL TO THE	F5G34700
	00536	0 02000 0 00540	3711		TRA	AC20 LOCATION OF 1ST INST IN BB	F5G34710
	00537	0 02000 0 00543	3712		TRA	AC24 YES	F5G34720
	00540	−3 00000 2 00542	3713	AC20	TXL	AC21,2,0	F5G34730
	00541	−3 00000 2 00503	3714	AC22	TXL	AC12,2,SET	F5G34740
	00542	1 77777 2 00535	3715	AC21	TXI	AC23,2,−1	F5G34750
	00543	−0 50000 0 00571	3716	AC24	CAL	ACV10 REPLACE ASSIGN CONST. BY NEW	F5G34760
	00544	−0 32000 0 00553	3717		ANA	TMSK LOCATION SYMBOL	F5G34770
	00545	0 77100 0 00005	3718		ARS	5	F5G34780
	00546	0 40000 0 00567	3719		ADD	ACV8	F5G34790
	00547	0 36100 0 00556	3720		ACL	LXDC	F5G34800
	00550	0 60200 2 00647	3721		SLW	ASCON,2	F5G34810
	00551	0 02000 0 00534	3722		TRA	AC25	F5G34820
	00552	0 00000 0 77777	3723	AMSK	HTR	−1	F5G34830
	00553	0 00000 7 00000	3724	TMSK	HTR	0,−1	F5G34840
	00554	−377770777777	3725	NTMSK	OCT	777770777777	F5G34050
	00555	0 00005 0 00000	3726	3LD3		0,0,5	F5G34860
	00556	+150000000000	3727	LXDC	OCT	150000000000 THE NUMBER IDENTIFYING THE LOC. OF AN LXD	F5G34870
	00557	0 00000 1 00000	3728	LT1	HTR	0,1	F5G34880
	00560	+000000077776	3729	ACK1	OCT	77776	F5G34890
	00561	0 00000 0 00000	3730	ACV2		NO. OF CURRENT SUCC. OF THIS BB IN ADDR.	F5G34900
	00562	0 00000 0 00000	3731	ACV3		NO. OF 1ST SUCC IN NEXT BB IN ADDR	F5G34910
	00563	0 00000 0 00000	3732	ACV4		COMBINED SXD CASE LAST OCTAL DIGIT IN DECR	F5G34920
	00564	0 00000 0 00000	3733	ACV5		NO. OF CURRENT PRED IN ADDR	F5G34930
	00565	0 00000 0 00000	3734	ACV6		NO. OF 1ST PRED IN NEXT BB IN ADDR	F5G34940
	00566	0 00000 0 00000	3735	ACV7		MO. OF CURRENT PRED IN THIS BB IN ADDR	F5G34950
	00567	0 00000 0 00000	3736	ACV8		BB NO. OF SUCCESSOR IN ADDR	F5G34960
	00570	0 00000 0 00000	3737	ACV9		NO. OF 1ST PRED IN THE SUCCESSOR BB IN ADDR	F5G34970
	00571	0 00000 0 00000	3738	ACV10		THE COMBINED LXD CASE	F5G34980
	00572	0 00000 0 00000	3739	ACV11		TEMP. STORE FOR PRED TABLE INDEX AT AC5	F5G34990
	00573	0 00000 0 00000	3740	ACV12		EXTRA WORD FROM ASSIGN CONSTANT RECORD	F5G35000
	00574	0 00000 0 00000	3741	ACV13		TEMP. STORE FOR LOCATION OF 1ST INST. IN BB	F5G35010
		00647	3742	ASCON	BES	PTL3 SPACE FOR PATCHES	F5G35020
			3743			EDITOR RECORD NO. 88	F5G35030
			3744			FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.	F5G35040
			3745			DIAGNOSTIC CALLER FOLLOWS	F5G35060
			3746			PART 4	F5G35070
			3747			COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS	F5G35080
			3748			CONSTANTS	F5G35090
		00317	3749		ORG	C	F5G35100
	00317	0 00000 0 00003	3750	L3		3	F5G35110
	00320	0 00000 0 00004	3751	L4		4	F5G35120
	00321	0 00000 0 00007	3752	L7		7	F5G35130
	00322	0 00000 0 00023	3753	L19		19	F5G35140
		00316	3754	LD1	SYN	ONED	F5G35150
	00323	0 00002 0 00000	3755	LD2		0,0,2	F5G35160
	00324	0 00003 0 00000	3756	LD3		0,0,3	F5G35170
	00325	0 00004 0 00000	3757	LD4		0,0,4	F5G35180
	00326	0 00007 0 00000	3758	LD7		0,0,7	F5G35190
	00327	0 00010 0 00000	3759	LD8		0,0,8	F5G35200
	00330	0 00011 0 00000	3760	LD9		0,0,9	F5G35210
	00331	0 00014 0 00000	3761	LD12		0,0,12	F5G35220
	00332	0 00000 7 00000	3762	LT7		0,7	F5G35230
	00333	0 00000 0 77754	3763	LM20		−20	F5G35240
	00334	0 00000 0 77774	3764	LM4		−4	F5G35250
	00335	0 77777 0 00000	3765	DECMK		0,0,−1	F5G35260
	00336	3 77777 7 77777	3766	ENDMK	PTH	−1,−1,−1	F5G35270
	00337	0 00000 0 77777	3767	ADDMK		−1	F5G35280
	00340	+000000777770	3768	STMSK	OCT	777770	F5G35290
	00341	0 00007 7 00000	3769	PRMK		0,7,7	F5G35300
	00342	0 00000 7 77777	3770	TAGMK		−1,−1	F5G35310
	00343	−3 77777 0 00000	3771	LFTMSK	MTH	0,0,−1	F5G35320
		00343	3772	SMK3	SYN	LFTMSK	F5G35330
	00344	634743000000	3773	LTPL	BCD	1TPL000	F5G35340
	00345	436747000000	3774	LLXP	BCD	1LXP000	F5G35350
	00346	627045000000	3775	LSYN	BCD	1SYN000	F5G35360
	00347	242524000000	3776	LDED	BCD	1DED000	F5G35370
	00350	635121000000	3777	LTRA	BCD	1TRA000	F5G35380
	00351	636267000000	3778	LTSX	BCD	1TSX000	F5G35390
	00352	226262000000	3779	LBSS	BCD	1BSS000 BSS IN BCD.	F5G35391
	00353	+076225000000	3780	LPSE	OCT	76225000000	F5G35400
	00354	+060000000000	3781	GSYM	OCT	60000000000 GARBAGE SYMBLE	F5G35410
	00355	0 00004 0 00004	3782	T4SYM	PZE	4,0,4 TAG 4 AND RELATIVE PART 4	F5G35420
	00356	0 00000 0 00004	3783			4	F5G35430
	00357	0 00000 0 00002	3784			2	F5G35440
	00360	0 00000 0 00001	3785			1	F5G35450
	00361	0 00000 0 00000	3786	VSTAG	PZE	0	F5G35460
	00362	0 00000 0 00001	3787	RECSC	HTR	RECNO ADDR, NO. OF RECS. BROUGHT IN , C.I.T.	F5G35470
	00363	0 02000 0 00000	3788	LCOUT	TRA	− TRANSFER TO EXIT ROUTINE	F5G35480
	00364	+035121000000	3789		OCT	35121000000 TRA OP CODE	F5G35490
	00365	+041104000000	3790		OCT	41104000000 PSE-TRA	F5G35500
	00366	−033642000000	3791		OCT	−33642000000 DCT-PSE	F5G35510
	00367	−024000000000	3792		OCT	−24000000000 RTT-DCT	F5G35520
	00370	+027642000000	3793		OCT	27642000000 MSE-RTT	F5G35530
	00371	−007100000000	3794		OCT	−7100000000 TZE-MSE	F5G35540
	00372	−032154000000	3795		OCT	−32154000000 HPR-TZE	F5G35550
	00373	+031316000000	3796	LNTOP	OCT	31316000000 TSX-HPR	F5G35560
	00374	+035121000000	3797		OCT	35121000000	F5G35570
	00375	+001622000000	3798		OCT	1622000000 TXL-TRA	F5G35580
	00376	−031772000000	3799		OCT	−31772000000 HPR-TXL	F5G35590
	00377	+031400000000	3800	LTROP	OCT	31400000000 TTR-HPR	F5G35600
	00400	−370000000000	3801	FSTLT	OCT	−370000000000	F5G35610
	00401	−230000000000	3802	FSTT	OCT	−230000000000	F5G35620
	00402	+170000000000	3803	PCC	OCT	170000000000 MEANS LOCATION OF THIS INST.	F5G35630
	00403	−300000000000	3804	PFXMK	OCT	−300000000000	F5G35640
	00404	+000770000000	3805	XXPSX	OCT	770000000 CONSTANTS TO TEST PSE ADDR.	F5G35650
	00405	+000160000000	3806	XX16X	OCT	160000000	F5G35660
	00406	+000360000000	3807	XX360	OCT	360000000	F5G35670
	00407	+000000777777	3808	SHK1	OCT	777777 CONST. TO EXTRACT R. HALF WORD	F5G35680
		00320	3809	SHK2	SYN	L4	F5G35690
	00410	+160000000000	3810	SIK2	OCT	160000000000 I.D. FOR LOCATION OF SXD	F5G35700
	00411	626724000000	3811	SIK3	BCD	1SXD000 SXD IN BCD	F5G35710
		00411	3812	LSXD	SYN	SIK3	F5G35720
		00410	3813	IDSXD	SYN	SIK2	F5G35730
	00412	0 00000 0 00144	3814	SKK1		LCLST	F5G35740
		00350	3815	SLK1	SYN	LTRA TRA IN BCD	F5G35750
	00413	+150000000000	3816	SMK1	OCT	150000000000 I.D. FOR LOCATION OF LXD	F5G35760
	00414	436724000000	3817	SMK2	BCD	1LXD000 LXD IN BCD	F5G35770
		00414	3818	LLXD	SYN	SMK2	F5G35780
			3819			FOR SMK3 SEE LFTMSK	F5G35790
	00415	+140000000000	3820	SMK4	OCT	140000000000 I.D. FOR TAU-TAG	F5G35800
		00413	3821	SLK2	SYN	SMK1	F5G35810
		00413	3822	IDLXD	SYN	SMK1	F5G35820
		00415	3823	IDTAG	SYN	SMK4	F5G35830
	00416	−000000000000	3824	Z1K3	OCT	−0	F5G35840
		00416	3825	MZE	SYN	Z1K3	F5G35850
	00417	0 77776 0 00000	3826	Z2K1		0,0,−2	F5G35860
	00420	0 77772 0 00000	3827			0,0,−6	F5G35870
	00421	0 77766 0 00000	3828			0,0,−10	F5G35880
	00422	0 00007 0 00003	3829	Z2K2	HTR	3,0,7 NO. OF LISTS, NO. OF CASES	F5G35890
	00423	0 00000 0 00001	3830	CASE	HTR	1	F5G35900
	00424	0 00000 0 00002	3831			2	F5G35910
	00425	0 00000 0 00004	3832			4	F5G35920
	00426	0 00000 0 00003	3833			3	F5G35930
	00427	0 00000 0 00005	3834			5	F5G35940
	00430	0 00000 0 00006	3835			6	F5G35950
	00431	0 00000 0 00007	3836			7	F5G35960
	00432	+000032212110	3837	Z2K3	OCT	32212110 CONST. TO DETERMINE NO. 1 S IN 3 BITS	F5G35970
	00433	+000030000000	3838	Z2K4	DEC	3B14	F5G35980
	00434	0 00000 0 00007	3839	Z2K5	HTR	7	F5G35990
	00435	0 00000 0 77777	3840	Z4K1		−1	F5G36000
	00436	0 00000 0 00000	3841	Z4K2		0	F5G36010
	00437	0 00000 0 01000	3842	LNSXD		NSXD*4	F5G36020
	00440	0 77770 0 00000	3843	Z7K1		0,0,−8	F5G36030
	00441	0 77764 0 00000	3844			0,0,−12	F5G36040
	00442	0 77760 0 00000	3845			0,0,−16	F5G36050
			3846			THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS	F5G36060
	00443	−0 00001 0 00000	3847	BBNO	MZE	0,0,1 DECR., CURRENT BB NO. BEING SCANNED	F5G36070
	00444	0 00000 0 00000	3848	NXTLOC		LOCATUON OF 1ST INST OF THE BB	F5G36080
	00445	0 00000 0 00000	3849	OUTBX		TEMP. STORAGE OF RETURN INDEXES	F5G36090
	00446	0 00000 0 00000	3850	ERRBX		ERROR INDICATOR	F5G36100
	00447	0 00000 0 00000	3851	BBOX		TEMP. STORE FOR INDEXES, MAINLY 2	F5G36110
	00450	0 00000 0 00000	3852	BBOX1		ANOTHER OF SAME	F5G36120
	00451	0 00000 0 00000	3853	ABOX		TEMP. STORE , INDEX 1	F5G36130
	00452	0 00000 0 00000	3854	TAG		TAU-TAG FROM AN INST.	F5G36140
	00453	0 00000 0 00000	3855	STAGN1		WORD FROM STAG SHIFTED LEFT MULTIPLE OF 1	F5G36150
	00454	0 00000 0 00000	3856	STAGN2		SAME WORD SHIFTED BY ONES	F5G36160
	00455	0 00000 0 00000	3857	9CNT		COUNT TO 9, 9 TAGS IN STAG WORD	F5G36170
	00456	−000000000001	3858	STGWD	DEC	−1 NO. OF STAG ENTRY BEING CONSIDERED	F5G36180
	00457	0 00000 0 00000	3859	TMP10		TEMP. STORE , LASTS ONLY 10 INSTRS.	F5G36190
	00460	0 00000 0 00000	3860	CIND		+ OR - MEANS IR4 ISNT OR 1S NECESSARY	F5G36200
	00461	−0 00000 0 00000	3861	CPIND	MZE	+ OR - MEANS COMPILE/DONT COMPILE	F5G36210
	00462	0 00000 0 00000	3862	ARG1		U 1ST ARGUMENT FOR SUBROUTINES	F5G36220
	00463	0 00000 0 00000	3863	MBOX		16. OF TRANSFERS IN GO TO VECTOR	F5G36230
	00464	0 00000 0 00000	3864	SUCNO		I0. OF A SUCCESSOR, GOV ROUTINE	F5G36240
	00465	0 00000 0 00000	3865	SXD0		LXD CASE IN DECR., PRED NO. IN ADDR.	F5G36250
	00466	0 00000 0 00000	3866	SXD1		3 TAU TAGS WHICH MUST BE STORED	F5G36260
	00467	0 00000 0 00000	3867	SXD2		FROM IR1,2,3	F5G36270
	00470	0 00000 0 00000	3868	SXD3		RESPT.	F5G36280
	00471	0 00000 0 00000	3869	SADV1		RETURN INDEX	F5G36290
	00472	0 00000 0 00000	3870	SADV2		LOCATION OF 1ST INST IN SUCCESSOR BB	F5G36300
	00473	0 00000 0 00000	3871	SADV3		NO. OF CURRENT PRED	F5G36310
	00474	0 00000 0 00000	3872	SADV4		NO. OF 1ST PRED IN SUCCESSOR BB	F5G36320
	00475	0 00000 0 00000	3873	SADV5		THE SUCCESSOR BB NO.	F5G36330
	00476	0 00000 0 00000	3874	SHV1		RETURN INDEX	F5G36340
	00477	0 00000 0 00000	3875	SHV2		ENTRY FROM PRED.	F5G36350
	00500	0 00000 0 00000	3876	SIV1		INDEX OF SXD CASE RELATIVE TO SXST	F5G36360
	00501	0 00000 0 00000	3877	SIV2		RETURN INDEX	F5G36370
	00502	0 00000 0 00000	3878	SIV3		LOCATI0N OF 1ST INST. IN SXD GROUP	F5G36380
	00503	0 00000 0 00000	3879	SIV4		TEMP. STORE	F5G36390
	00504	0 00000 0 00000	3880	SIV5		STORE FOR INDEX OF TAU TAG IN SXD CASE	F5G36400
	00505	0 00000 0 00000	3881	SIV6		STOER FOR THE TAG	F5G36410
	00506	0 00000 0 00000	3882	SJV1		LXD CASE IN DECR.	F5G36420
	00507	0 00000 0 00000	3883	SJV2		RETURN INDEX	F5G36430
	00510	0 00000 0 00000	3884	SJV3			F5G36440
		00655	3885	CLST	BES	LCLST THE NEW LIST OF COMPILED INST.	F5G36450
	00655	0 00144 0 00000	3886	SKV1		0,0,LCLST	F5G36460
			3887			SKV1 COMES ALREADY INITIALIZED	F5G36470
	00656	0 00000 0 00000	3888	SLV1		RETURN INDEX	F5G36480
	00657	0 00000 0 00000	3889	SLV2		LOCATION TO BE ATTACHED T0 TRA	F5G36490
	00660	0 00000 0 00000	3890	SLV3		+ OR - MEANS ISNT OR IS HANGING TRA0	F5G36500
	00661	0 00000 0 00000	3891	SMV1		RETURN INDEX	F5G36510
	00662	0 00000 0 00000	3892	SMV2		TAG TO BE COMPILED	F5G36520
	00663	0 00000 0 00000	3893	SMV3		STORE INDEX OF QUANTITY IN LIST	F5G36530
	00664	0 00000 0 00000	3894	SMV4		LOCATION , TEMP. STORE	F5G36540
	00665	0 00000 0 00000	3895	Z1V2		NO. OF 1ST PRED. IN NEXT BB	F5G36550
	00666	0 00000 0 00000	3896	Z1V3		NO. OF PRED BEING CONSIDERED	F5G36560
	00667	0 00000 0 00000	3897	Z1V5		THE CASES	F5G36570
	00670	0 00000 0 00000	3898	Z1V8		THE LOC. OF 1ST PRED IN BB, USED IN Z4	F5G36580
	00671	0 00000 0 00000	3899	Z2V1		IN DECREMENTS, THE INDEXES	F5G36590
	00672	0 00000 0 00000	3900			THE TOP ENTRIES	F5G36600
	00673	0 00000 0 00000	3901			IN THE 3 LXD LISTS	F5G36610
	00674	0 00000 0 00000	3902	Z2V2		IN ADDR., NO. OF 1S IN DIFFERENCE	F5G36620
	00675	0 00000 0 00000	3903	Z2V3		IN DECR., INDEX OF LIST GIVING MIN. DIFFERENC	F5G36630
		00676	3904	LIST1	BSS	4	F5G36640
		00702	3905	LIST2	BSS	4	F5G36650
		00706	3906	LIST3	BSS	4	F5G36660
		00715	3907	LLIND	BES	3 + OR - MEANS LIST NOT TO BE OR TOBE COMPILED	F5G36670
	00715	0 00000 0 00000	3908	Z4V1		TEMP. STORE , LXD CASE IN ADDR.	F5G36680
	00716	0 00000 0 00000	3909	Z5V1		INDEX IN SYN TABLE	F5G36690
	00717	0 00000 0 00000	3910	Z7V1		INDEX OF LIST	F5G36700
	00720	0 00000 0 00000	3911	Z7V2		+ OR - MEANS 1ST OR 2ED TIME THRU	F5G36710
		00735	3912	NDINS	BES	12 BLOCK FOR 3 EXTRA COMPILED INST.	F5G36720
		01101	3913	INST	BES	RECNO*100 THE BLOCK FOR THE COMPILED INSTR	F5G36730
	01101	−0 00000 0 00000	3914	SXST	MZE	- OR + MEANS NO SEQUENTIAL TRANSFER OR S. T.	F5G36740
		01102	3915		BSS	3	F5G36750
			3916			THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER	F5G36760
		01105	3917	SXAS0	BSS	4 ASSOCIATED WITH 0 LXD CASE	F5G36770
		01111	3918	SXAS1	BSS	4 WITH 1ST LXD LIST	F5G36780
		01115	3919	SXAS2	BSS	4 2ED LIST	F5G36790
		01121	3920	SXAS3	BSS	4 3RD	F5G36800
		01125	3921	SXAS	BSS	4*NSXD THE LIST 0F SXD INST.	F5G36810
	02125	−0 00000 0 00000	3922	SYN	MZE	SYN CARD TABLE STORED BACKWARD	F5G36820
			3923			WHEN ENTERED WITH PRESENT BB NO. IN ADDR 0F ARG1 AND BBNO.	F5G36830
			3924			OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE AD	F5G36840
			3925			DRESS OF CORRESPONDING TRANSFER INST. SH0ULD BE AND RETURNS	F5G36850
			3926			WITH THE ADDR IN LOGICAL AC	F5G36860
	02126	−0 63400 4 00471	3927	SAD	SXD	SADV1,4 STORE RETURN	F5G36870
	02127	−0 32000 0 00337	3928		ANA	ADDMK STORE THE SUCC. NO.	F5G36880
	02130	0 60100 0 00475	3929		STO	SADV5	F5G36890
	02131	0 07400 4 00067	3930		TSX	SE1,4	F5G36900
	02132	0 50000 1 12540	3931		CLA	BBB+5,1	F5G36910
	02133	0 60100 0 00472	3932		STO	SADV2	F5G36920
	02134	0 50000 1 12533	3933		CLA	BBB,1	F5G36930
	02135	−0 32000 0 00337	3934		ANA	ADDMK	F5G36940
	02136	0 60200 0 00474	3935		SLW	SADV4	F5G36950
	02137	0 60200 0 00473	3936	SAD1	SLW	SADV3	F5G36960
	02140	0 07400 4 00055	3937		TSX	SE5,4	F5G36970
	02141	0 50000 1 15674	3938		CLA	PRED,1	F5G36980
	02142	−0 32000 0 00337	3939		ANA	ADDMK IS THIS THE CORRECT	F5G36990
	02143	0 40200 0 00462	3940		SUB	ARG1 PRED ENTRY	F5G37000
	02144	0 10000 0 02150	3941		TZE	SAD2	F5G37010
	02145	−0 50000 0 00473	3942		CAL	SADV3 NO, TRY NEXT RETURN	F5G37020
	02146	0 40000 0 00315	3943		ADD	ONEA	F5G37030
	02147	0 02000 0 02137	3944		TRA	SAD1	F5G37040
	02150	−0 50000 1 15674	3945	SAD2	CAL	PRED,1 IS THE SXD CASE 0	F5G37050
	02151	−0 32000 0 00326	3946		ANA	LD7	F5G37060
	02152	0 10000 0 02160	3947		TZE	SAD3 YES	F5G37070
	02153	0 50000 0 00473	3948		CLA	SADV3 N0, FORM THE SYMBOLIC ADDR.	F5G37080
	02154	0 40200 0 00474	3949		SUB	SADV4 AS ID FOR SXD PLUS NO. OF PRED WITHIN	F5G37090
	02155	0 76700 0 00012	3950		ALS	10 THE BB * 1024 PLUS BB NO.	F5G37100
	02156	0 40000 0 00410	3951		ADD	IDSXD	F5G37110
	02157	0 02000 0 02165	3952		TRA	SAD6	F5G37120
	02160	0 50000 1 15674	3953	SAD3	CLA	PRED,1 IS THE LXD CASE ZERO	F5G37130
	02161	−0 32000 0 00332	3954		ANA	LT7	F5G37140
	02162	0 10000 0 02170	3955		TZE	SAD4	F5G37150
	02163	0 77100 0 00005	3956		ARS	5 NO, FORM TH SYMBOLIC ADOR.	F5G37160
	02164	0 40000 0 00413	3957		ADD	IDLXD AS 1024* LXD CASE PLUS BB NO. PLUS	F5G37170
	02165	0 40000 0 00475	3958	SAD6	ADD	SADV5 I. D. FOR AN LXD	F5G37180
	02166	−0 53400 4 00471	3959	SAD5	LXD	SADV1,4	F5G37190
	02167	0 02000 4 00001	3960		TRA	1,4	F5G37200
	02170	−0 50000 0 00472	3961	SAD4	CAL	SADV2	F5G37210
	02171	0 02000 0 02166	3962		TRA	SAD5	F5G37220
			3963			THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND	F5G37230
			3964			INDICATES IT SHOULD BE	F5G37240
	02172	0 50000 0 00461	3965	SCMI	CLA	CPIND SHOULD INST. BE COMPILED	F5G37250
	02173	0 12000 0 02206	3966		TPL	SCMI1	F5G37260
	02174	−0 63400 4 00457	3967		SXD	TMP10,4 YES, COMP1LE THE INST	F5G37270
	02175	0 50000 2 01101	3968		CLA	INST,2	F5G37280
	02176	0 07400 4 02367	3969		TSX	SK,4	F5G37290
	02177	0 50000 2 01100	3970		CLA	INST−1,2	F5G37300
	02200	0 07400 4 02367	3971		TSX	SK,4	F5G37310
	02201	0 50000 2 01077	3972		CLA	INST−2,2	F5G37320
	02202	0 07400 4 02367	3973		TSX	SK,4	F5G37330
	02203	0 50000 2 01076	3974		CLA	INST−3,2	F5G37340
	02204	0 07400 4 02367	3975		TSX	SK,4	F5G37350
	02205	−0 53400 4 00457	3976		LXD	TMP10,4	F5G37360
	02206	−0 76000 0 00003	3977	SCMI1	SSM		F5G37370
	02207	0 60100 0 00461	3978		STO	CPIND RECORD INST SHOULD BE COMPILED	F5G37380
	02210	0 02000 4 00001	3979		TRA	1,4	F5G37390
			3980			DETERMINE AN SXD CASE SUBROUTINE	F5G37400
	02211	−0 63400 4 00476	3981	SH	SXD	SHV1,4 STORE RETURN	F5G37410
	02212	0 53400 4 00320	3982		LXA	SHK2,4 CLEAR	F5G37420
	02213	0 56000 0 00314	3983		LDQ	ZERO THE	F5G37430
	02214	−0 60000 4 00471	3984	SH1	STQ	SXD0+4,4 SXD	F5G37440
	02215	2 00001 4 02214	3985		TIX	SH1,4,1 POSITIONS 0-3	F5G37450
	02216	0 62100 0 00465	3986		STA	SXD0 STORE THE PRED NO.	F5G37460
	02217	0 07400 4 00055	3987		TSX	SE5,4 GET INDEX OF PRED	F5G37470
	02220	0 50000 1 15674	3988		CLA	PRED,1 GET AND	F5G37480
	02221	0 60100 0 00477	3989		STO	SHV2 STORE PRED ENTRY	F5G37490
	02222	0 07400 4 00067	3990		TSX	SE1,4 GET INDEX OF BBB TABLE ENTRY	F5G37500
	02223	−0 53400 4 00324	3991		LXD	LD3,4 NO, SET COUNT TO 3	F5G37510
	02224	0 56000 0 00477	3992	SH2	LDQ	SHV2 IS	F5G37520
	02225	−0 77300 4 00022	3993		RQL	18,4 SXD REQUIRED	F5G37530
	02226	0 16200 0 02232	3994		TQP	SH3 FOR THIS I.R.	F5G37540
	02227	0 50000 1 12535	3995		CLA	BBB+2,1 YES, GET AND	F5G37550
	02230	−0 32000 0 00342	3996		ANA	TAGMK EXTRACT THE	F5G37560
	02231	0 60100 4 00471	3997		STO	SXD1+3,4 EXIT CONDITIONS	F5G37570
	02232	1 77777 1 02233	3998	SH3	TXI	SH3+1,1,−1 DOWN THE EXIT CONDITIONS	F5G37580
	02233	2 00001 4 02224	3999		TIX	SH2,4,1 COUNT TO 3	F5G37590
	02234	−0 50000 0 00477	4000	SH4	CAL	SHV2 GET	F5G37600
	02235	−0 32000 0 00332	4001		ANA	LT7 AND STORE	F5G37610
	02236	0 76700 0 00003	4002		ALS	3 LXD CASE	F5G37620
	02237	0 62200 0 00465	4003		STD	SXD0	F5G37630
	02240	−0 53400 4 00476	4004		LXD	SHV1,4	F5G37640
	02241	0 02000 4 00001	4005		TRA	1,4 RETURN	F5G37650
			4006			COMPILE AN SXD CASE SUBROUTINE	F5G37660
	02242	−0 63400 4 00501	4007	SI	SXD	SIV2,4 STORE RETURN	F5G37670
	02243	−0 63400 1 00500	4008		SXD	SIV1,1 STORE INDEX 0F SXD CASE	F5G37680
	02244	0 07400 4 02426	4009		TSX	SL1,4 RECORD ANY HANGING TRANSFER	F5G37690
	02245	−0 50000 0 00443	4010		CAL	BBNO	F5G37700
	02246	0 77100 0 00022	4011		ARS	18	F5G37710
	02247	0 60100 0 00657	4012		STO	SLV2 STORE BB NO.	F5G37720
	02250	0 07400 4 00067	4013		TSX	SE1,4 GET INDEX OF BB	F5G37730
	02251	0 50000 1 12533	4014		CLA	BBB,1	F5G37740
	02252	−0 32000 0 00337	4015		ANA	ADDMK	F5G37750
	02253	0 60100 0 00503	4016		STO	SIV4 STORE LOC. 0F 1ST PRED IN BB	F5G37760
	02254	−0 53400 1 00500	4017		LXD	SIV1,1 FORM	F5G37770
	02255	0 50000 1 01101	4018		CLA	SXST,1 LOC. OF THIS PRED -	F5G37780
	02256	−0 32000 0 00337	4019		ANA	ADDMK LOC. OF 1ST PRED IN BB	F5G37790
	02257	0 40200 0 00503	4020		SUB	SIV4	F5G37800
	02260	0 76700 0 00012	4021		ALS	10	F5G37810
	02261	0 40000 0 00657	4022		ADD	SLV2	F5G37820
	02262	0 40000 0 00410	4023		ADD	SIK2	F5G37830
	02263	0 60100 0 00657	4024		STO	SLV2 STORE THE LOC. OF 1ST SXD	F5G37840
	02264	−0 53400 2 00324	4025		LXD	LD3,2	F5G37650
	02265	0 50000 1 01102	4026	SI2	CLA	SXST+1,1	F5G37860
	02266	0 10000 0 02305	4027		TZE	SI1 IS THIS TAG 0	F5G37870
	02267	−0 63400 1 00504	4028		SXD	SIV5,1 NO, PRESERVE INDEX 1	F5G37880
	02270	0 60100 0 00505	4029		STO	SIV6 PRESERVE THE TAG	F5G37890
	02271	0 50000 0 00657	4030		CLA	SLV2 PUT LOCATION WORD ON TAPE	F5G37900
	02272	0 07400 4 02367	4031		TSX	SK,4	F5G37910
	02273	0 50000 0 00314	4032		CLA	ZERO AND RESET TO 0	F5G37920
	02274	0 60100 0 00657	4033		STO	SLV2	F5G37930
	02275	0 50000 0 00411	4034		CLA	SIK3 PUT SXD ON TAPE	F5G37940
	02276	0 07400 4 02367	4035		TSX	SK,4	F5G37950
	02277	0 50000 0 00505	4036		CLA	SIV6 14*2**-5+TAU-TAG IS	F5G37960
	02300	0 40000 0 00415	4037		ADD	SMK4 SYMBOLIC ADDRESS	F5G37970
	02301	0 07400 4 02367	4038		TSX	SK,4	F5G37980
	02302	0 50000 2 00361	4039		CLA	VSTAG,2	F5G37990
	02303	0 07400 4 02367	4040		TSX	SK,4 PUT S-TAG ON TAPE	F5G38000
	02304	−0 53400 1 00504	4041		LXD	SIV5,1	F5G38010
	02305	1 77777 1 02306	4042	SI1	TXI	SI1+1,1,−1	F5G38020
	02306	2 00001 2 02265	4043		TIX	SI2,2,1 COUNT TO 3, FORM N+1	F5G38030
	02307	−0 53400 1 00500	4044		LXD	SIV1,1	F5G38040
	02310	0 50000 1 01101	4045		CLA	SXST,1	F5G38050
	02311	−0 73400 2 00000	4046		PDX	0,2	F5G38060
	02312	−3 00000 2 02321	4047		TXL	SI3,2,0 IS THE LXD CASE 0	F5G38070
	02313	−3 00000 1 02325	4048		TXL	SI4,1,0 NO, IS THIS THE ST POSITION	F5G38080
	02314	3 77757 1 02334	4049		TXH	SI6,1,−16−1 IS THIS ASSOCIATED WITH A LIST	F5G38090
	02315	0 77100 0 00022	4050	SI5	ARS	18 NO	F5G38100
	02316	0 07400 4 02403	4051		TSX	SL,4 COMPILE A TRA TO LXD CASE	F5G38110
	02317	−0 53400 4 00501	4052		LXD	SIV2,4	F5G38120
	02320	0 02000 4 00003	4053		TRA	3,4 RETURN TO LOC. OF TSX + 3	F5G38130
	02321	0 50200 0 00315	4054	SI3	CLS	ONEA RECORD THAT THERE IS	F5G38140
	02322	0 60100 0 00660	4055		STO	SLV3 A HANGING TRA TO 0 CASE	F5G38150
	02323	−0 53400 4 00501	4056		LXD	SIV2,4	F5G38160
	02324	0 02000 4 00001	4057		TRA	1,4 RETURN TO LOC. OF TSX +1	F5G38170
	02325	0 60100 0 00465	4058	SI4	STO	SXD0 STORE LXD CASE AS ARG FOR SJ	F5G38180
	02326	0 07400 4 02336	4059		TSX	SJ,4 IS SXD CASE INST POS. ASSOC. WITH LIST	F5G38190
	02327	0 00000 0 00000	4060			SHOULDENT BE WITH CASE 0	F5G38200
	02330	0 02000 0 02334	4061		TRA	SI6 YES	F5G38210
	02331	−0 53400 1 00500	4062		LXD	SIV1,1 NO	F5G38220
	02332	0 50000 1 01101	4063		CLA	SXST,1	F5G38230
	02333	0 02000 0 02315	4064		TRA	SI5 GO TO COMPILE TRA TO LXD CASE	F5G38240
	02334	−0 53400 4 00501	4065	SI6	LXD	SIV2,4 RETURN TO 2 FOLLOWING TSX WITH	F5G38250
	02335	0 02000 4 00002	4066		TRA	2,4 INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2	F5G38260
			4067			DETERMINE IF THE SXD CASE IS ASSOCIATED WITH AN LXD LIST	F5G38270
	02336	−0 63400 4 00507	4068	SJ	SXD	SJV2,4	F5G38280
	02337	0 50000 0 00465	4069		CLA	SXD0	F5G38290
	02340	−0 32000 0 00335	4070		ANA	DECMK	F5G38300
	02341	0 60100 0 00506	4071		STO	SJV1	F5G38310
	02342	0 10000 0 02363	4072		TZE	SJ3 IS THIS THE 0 LXD CASE	F5G38320
	02343	−0 53400 4 00314	4073		LXD	ZERO,4 NO, SET COUNT TO 3, N TO 1	F5G38330
	02344	−0 53400 2 00324	4074		LXD	LD3,2 2 HAS THE COUNTER	F5G38340
	02345	0 50000 4 01111	4075	SJ2	CLA	SXAS1,4	F5G38350
	02346	0 12000 0 02357	4076		TPL	SJ1 DOES THE LIST ALREADY HAVE SXD	F5G38360
	02347	0 50000 2 00674	4077		CLA	Z2V1+3,2 NO	F5G38370
	02350	−0 73400 1 00000	4078		PDX	0,1 GET INDEX OF TOP QUANTITY	F5G38380
	02351	0 50000 1 00676	4079		CLA	LIST1,1	F5G38390
	02352	0 76700 0 00022	4080		ALS	18	F5G38400
	02353	0 40200 0 00506	4081		SUB	SJV1 IS THIS CASE SAME AS CASE HEADUNG LIST N	F5G38410
	02354	−0 10000 0 02357	4082		TNZ	SJ1	F5G38420
	02355	−0 53400 4 00507	4083		LXD	SJV2,4 YES	F5G38430
	02356	0 02000 4 00002	4084		TRA	2,4 RETURN, INDEX OF TOP OF LIST IN 1	F5G38440
	02357	1 77777 4 02360	4085	SJ1	TXI	SJ1+1,4,−1	F5G38450
	02360	2 00001 2 02345	4086		TIX	SJ2,2,1 COUNT TO 3	F5G38460
	02361	−0 53400 4 00507	4087		LXD	SJV2,4	F5G38470
	02362	0 02000 4 00003	4088		TRA	3,4	F5G38480
	02363	−0 53400 4 00507	4089	SJ3	LXD	SJV2,4	F5G38490
	02364	0 50000 0 01105	4090		CLA	SXAS0	F5G38500
	02365	0 12000 4 00003	4091		TPL	3,4	F5G38510
	02366	0 02000 4 00001	4092		TRA	1,4	F5G38520
			4093			PUT WORD OF COMPILED INST ON TAPE	F5G38530
	02367	−0 53400 1 00655	4094	SK	LXD	SKV1,1	F5G38540
	02370	0 60100 1 00655	4095		STO	CLST,1 STORE THE WORD IN CLST	F5G38550
	02371	2 00001 1 02401	4096		TIX	SK1,1,1 COUNT NO OF WORDS IS CLST FULL	F5G38560
	02372	0 53400 1 00412	4097		LXA	SKK1,1 YES	F5G38570
	02373	−0 63400 1 00655	4098		SXD	SKV1,1 RESET THE INDEX	F5G38580
	02374	0 76600 0 00223	4099		WTB	OTAPE WRITE THE BLOCK ON	F5G38590
	02375	0 70000 1 00655	4100	SK2	CPY	CLST,1 THE OUTPUT TAPE	F5G38600
	02376	2 00001 1 02375	4101		TIX	SK2,1,1	F5G38610
	02377	0 76600 0 00333	4102		IOD		F5G38620
	02400	0 02000 4 00001	4103		TRA	1,4	F5G38630
	02401	−0 63400 1 00655	4104	SK1	SXD	SKV1,1 STORE INDEX OF NEXT WORD	F5G38640
	02402	0 02000 4 00001	4105		TRA	1,4	F5G38650
			4106			SUBROUTINE FOR COMPILING TRA TO LXD CASE	F5G38660
	02403	−0 32000 0 00434	4107	SL	ANA	Z2K5 FORM	F5G38670
	02404	0 76700 0 00012	4108		ALS	10 THE	F5G38680
	02405	0 40000 0 00413	4109		ADD	SLK2 ADDRESS	F5G38690
	02406	0 60100 0 00657	4110		STO	SLV2 OF	F5G38700
	02407	0 50000 0 00443	4111		CLA	BBNO THE	F5G38710
	02410	−0 32000 0 00335	4112		ANA	DECMK	F5G38720
	02411	0 77100 0 00022	4113		ARS	18 TRA IN	F5G38730
	02412	−0 60200 0 00657	4114		ORS	SLV2 SLV2	F5G38740
	02413	−0 63400 4 00656	4115		SXD	SLV1,4 STORE RETURJ	F5G38750
	02414	0 50000 0 00314	4116	SL2	CLA	ZERO PUT 0 LOCATION	F5G38760
	02415	0 07400 4 02367	4117		TSX	SK,4 ON TAPE	F5G38770
	02416	0 50000 0 00350	4118		CLA	LTRA	F5G38780
	02417	0 07400 4 02367	4119		TSX	SK,4 PUT SYMB. ADDR. ON TAPE	F5G38790
	02420	0 50000 0 00657	4120		CLA	SLV2	F5G38800
	02421	0 07400 4 02367	4121		TSX	SK,4 PUT SYMB. ADDR ON TAPE	F5G38810
	02422	0 50000 0 00314	4122		CLA	ZERO	F5G38820
	02423	0 07400 4 02367	4123		TSX	SK,4 ANOTHER 0	F5G38830
	02424	−0 53400 4 00656	4124		LXD	SLV1,4	F5G38840
	02425	0 02000 4 00001	4125		TRA	1,4	F5G38850
			4126			SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE	F5G38860
	02426	0 50000 0 00660	4127	SL1	CLA	SLV3	F5G38870
	02427	0 12000 4 00001	4128		TPL	1,4 RETURN IF THERE IS NO HANGING TRA0	F5G38880
	02430	−0 63400 4 00656	4129		SXD	SLV1,4 OTHERWISE , STORE RETURN AND	F5G38890
	02431	0 50000 0 00443	4130		CLA	BBNO GET	F5G38900
	02432	0 07400 4 00070	4131		TSX	SE,4 THE	F5G38910
	02433	0 50000 1 12540	4132		CLA	BBB+5,1 SYMBOLIC LOCATION	F5G38920
	02434	0 60100 0 00657	4133		STO	SLV2 OF 1ST INST IN BB AND	F5G38930
	02435	0 50000 0 00314	4134		CLA	ZERO STORE IN SYNBOLIS ADDR WORD	F5G38940
	02436	0 60100 0 00660	4135		STO	SLV3 SET INDICATOR TO SAY NO HANGING TRA	F5G38950
	02437	0 02000 0 02414	4136		TRA	SL2	F5G38960
			4137			COMPILE AN LXD LIST	F5G38970
	02440	0 50000 2 00715	4138	SM	CLA	LLIND,2 IMMEDIATELY RETURN IF LIST IS	F5G38980
	02441	0 12000 4 00001	4139		TPL	1,4 ALREADY COMPOLED	F5G38990
	02442	0 60200 2 00715	4140		SLW	LLIND,2 RECORD LIST ALREADY COMPILED	F5G39000
	02443	−0 63400 4 00661	4141		SXD	SMV1,4 STORE RETURN	F5G39010
	02444	0 50000 2 00422	4142		CLA	Z2K1+3,2 COMPUTE THE	F5G39020
	02445	0 40200 0 00316	4143		SUB	ONED INDEX OF SUB BOTTEM	F5G39030
	02446	0 62200 0 02453	4144		STD	SM1 POSITION OF LIDT	F5G39040
	02447	0 62200 0 02513	4145		STD	SM5 SET END TEST	F5G39050
	02450	0 50000 1 00676	4146	SM6	CLA	LIST1,1	F5G39060
	02451	−0 12000 0 02521	4147		TMI	SM8 DOES THIS ELEMENT OF LIST REPRESENT AN LXD	F5G39070
	02452	−3 00000 1 02454	4148		TXL	SM1+1,1,0	F5G39080
	02453	−3 00000 1 02455	4149	SM1	TXL	SM10,1,SET YES, IS ELEMENT IN SUB BOTTOM POS.	F5G39090
	02454	−0 40000 1 00677	4150		SBM	LIST1+1,1 NO	F5G39100
	02455	0 60100 0 00662	4151	SM10	STO	SMV2 STORE THE TAG AWAY	F5G39110
	02456	0 50000 0 00443	4152		CLA	BBNO FORN	F5G39120
	02457	−0 32000 0 00335	4153		ANA	DECMK THE	F5G39130
	02460	0 76500 0 00034	4154		LRS	28 LOCATION	F5G39140
	02461	0 50000 1 00676	4155		CLA	LIST1,1	F5G39150
	02462	0 76300 0 00012	4156		LLS	10	F5G39160
	02463	0 40000 0 00413	4157		ADD	SMK1	F5G39170
	02464	−0 63400 1 00663	4158		SXD	SMV3,1 STORE INDEX OF LIST QUANTITY	F5G39180
	02465	0 60100 0 00664	4159		STO	SMV4	F5G39190
	02466	0 07400 4 02426	4160		TSX	SL1,4 RECORD ANY HANGING TRA0	F5G39200
	02467	0 50000 0 00664	4161		CLA	SMV4	F5G39210
	02470	0 07400 4 02367	4162		TSX	SK,4 COMPILE THE LOCATION	F5G39220
	02471	0 50000 0 00414	4163		CLA	SMK2	F5G39230
	02472	0 07400 4 02367	4164		TSX	SK,4 C0MPILE LXD	F5G39240
	02473	0 50000 0 00443	4165		CLA	BBNO	F5G39250
	02474	0 07400 4 00070	4166		TSX	SE,4 FIND INDEX OF BB	F5G39260
	02475	0 50000 0 00662	4167		CLA	SMV2	F5G39270
	02476	0 34000 0 00320	4168	SM3	CAS	L4 IS THIS THE CORRECT ENT. REQUIREMENT	F5G39280
	02477	0 02000 0 02501	4169		TRA	SM2	F5G39290
	02500	0 02000 0 02503	4170		TRA	SM4 YES	F5G39300
	02501	0 76700 0 00001	4171	SM2	ALS	1 NO, SHIFT IT LEFT ONE	F5G39310
	02502	1 77777 1 02476	4172		TXI	SM3,1,−1 AND INDEX TO NEXT ENRR. REQUIREMENT	F5G39320
	02503	−0 50000 1 12535	4173	SM4	CAL	BBB+2,1 FORM	F5G39330
	02504	0 77100 0 00022	4174		ARS	18 AND COMPILE	F5G39340
	02505	0 40000 0 00415	4175		ADD	SMK4 THE	F5G39350
	02506	0 07400 4 02367	4176		TSX	SK,4	F5G39360
	02507	0 50000 0 00662	4177		CLA	SMV2 COMPILE THE TAG	F5G39370
	02510	0 07400 4 02367	4178		TSX	SK,4	F5G39380
	02511	−0 53400 1 00663	4179		LXD	SMV3,1 IS THE ELEMENT IN SUB BOTTOM POSITION	F5G39390
	02512	−3 00000 1 02514	4180		TXL	SM5+1,1,0	F5G39400
	02513	−3 00000 1 02515	4181	SM5	TXL	SM7,1,SET	F5G39410
	02514	1 77777 1 02450	4182		TXI	SM6,1,−1 NO, INDEX TO NEXT LIST POS.	F5G39420
	02515	0 50200 0 00315	4183	SM7	CLS	ONEA	F5G39430
	02516	0 60100 0 00660	4184		STO	SLV3 RECORD THAT THERE IS HANGING TRA 0	F5G39440
	02517	−0 53400 4 00661	4185	SM9	LXD	SMV1,4	F5G39450
	02520	0 02000 4 00001	4186		TRA	1,4 RETURN	F5G39460
	02521	0 10000 0 02515	4187	SM8	TZE	SM7 GO TO RECORD HANGING TRA	F5G39470
	02522	0 76000 0 00003	4188		SSP		F5G39480
	02523	0 07400 4 02403	4189		TSX	SL,4 RECORD A TRA TO LXD CASE	F5G39490
	02524	0 02000 0 02517	4190		TRA	SM9	F5G39500
			4191			THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND	F5G39510
			4192			CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.	F5G39520
	02525	−2 00144 2 02527	4193	FNDAS	TNX	2FNDS,2,ZINST IS BLOCK OF INST. ALL USED	F5G39530
	02526	0 07400 4 03472	4194		TSX	RDINS,4 YES, READ IN NEXT BLOCK	F5G39540
	02527	−0 50000 2 01076	4195	2FNDS	CAL	INST−3,2 IS THIS INST. TAGGED	F5G39550
	02530	−0 32000 0 00340	4196		ANA	STMSK	F5G39560
	02531	0 10000 0 03336	4197		TZE	CI7A	F5G39570
	02532	−0 53400 4 00455	4198	CI4	LXD	9CNT,4 YES	F5G39580
	02533	2 00001 4 02547	4199		TIX	CI5,4,1 COUNT TO 9, IS STAG WORD EXHAUSTED	F5G39590
	02534	−0 63400 2 00447	4200		SXD	BBOX,2 YES, GET ANOTHER	F5G39600
	02535	0 50000 0 00456	4201		CLA	STGWD INCREASE THE NO. OF CURRENT STAG WORD	F5G39610
	02536	0 40000 0 00315	4202		ADD	ONEA	F5G39620
	02537	0 60100 0 00456	4203		STO	STGWD	F5G39630
	02540	0 07400 4 00032	4204		TSX	SE4,4 GET INDEX OF NEXT STAG WORD	F5G39640
	02541	0 50000 1 05263	4205		CLA	STAG,1	F5G39650
	02542	0 60100 0 00454	4206		STO	STAGN2 GET AND STORE	F5G39660
	02543	0 76700 0 00002	4207		ALS	2	F5G39670
	02544	0 60100 0 00453	4208		STO	STAGN1 THE STAG WORD	F5G39680
	02545	−0 53400 2 00447	4209		LXD	BBOX,2 RESTORE INDEX REGISER 2	F5G39690
	02546	−0 53400 4 00330	4210		LXD	LD9,4 RESET COUNT TO 9	F5G39700
	02547	−0 63400 4 00455	4211	CI5	SXD	9CNT,4	F5G39710
	02550	−0 50000 2 01076	4212		CAL	INST−3,2	F5G39720
	02551	−0 32000 0 00342	4213		ANA	TAGMK EXTRACT THE TAG	F5G39730
	02552	0 60100 0 00452	4214		STO	TAG	F5G39740
	02553	−0 50000 0 00453	4215		CAL	STAGN1	F5G39750
	02554	−0 32000 0 00324	4216		ANA	LD3 EXTRACT THE S-TAG	F5G39760
	02555	−0 73400 4 00000	4217		PDX	0,4	F5G39770
	02556	−0 50000 4 00361	4218		CAL	VSTAG,4 CONVERT S-TAG TO 1,2, OR 4	F5G39780
	02557	0 62100 2 01076	4219		STA	INST−3,2 REPLACE TAU-TAG BY S-TAG	F5G39790
	02560	0 40200 0 00320	4220		SUB	L4 IS THE TAG 4	F5G39800
	02561	−0 10000 0 02564	4221		TNZ	CI5A	F5G39810
	02562	−0 76000 0 00003	4222		SSM		F5G39820
	02563	0 60100 0 00460	4223		STO	CIND YES, RECORD IR 4 NECESSARY	F5G39830
	02564	−0 50000 0 00454	4224	CI5A	CAL	STAGN2	F5G39840
	02565	0 76700 0 00011	4225		ALS	9	F5G39850
	02566	−0 76000 0 00001	4226		PBT	IS AN LXD NECESSARY	F5G39860
	02567	0 02000 0 02602	4227		TRA	SKLX NO	F5G39870
	02570	0 50000 0 00314	4228		CLA	ZERO YES	F5G39880
	02571	0 07400 4 02367	4229		TSX	SK,4 COMPILE LOCATION OF 0	F5G39890
	02572	0 50000 0 00414	4230		CLA	SMK2 COMPILE LXD	F5G39900
	02573	0 07400 4 02367	4231		TSX	SK,4	F5G39910
	02574	0 50000 0 00452	4232		CLA	TAG COMPILE THE SYMB. ADDR. OF THE CELL	F5G39920
	02575	−0 50100 0 00415	4233		ORA	SMK4	F5G39930
	02576	0 07400 4 02367	4234		TSX	SK,4	F5G39940
	02577	0 50000 2 01076	4235		CLA	INST−3,2 COMPILE THE S-TAG	F5G39950
	02600	−0 32000 0 00337	4236		ANA	ADDMK	F5G39960
	02601	0 07400 4 02367	4237		TSX	SK,4	F5G39970
	02602	−0 50000 2 01100	4238	SKLX	CAL	INST−1,2	F5G39980
	02603	−0 32000 0 00343	4239		ANA	LFTMSK	F5G39990
	02604	0 60200 0 00457	4240		SLW	TMP10	F5G40000
	02605	0 50000 0 00457	4241		CLA	TMP10	F5G40010
	02606	0 34000 0 00345	4242		CAS	LLXP IS THIS AN LXP	F5G40020
	02607	0 02000 0 02637	4243		TRA	CI1	F5G40030
	02610	0 02000 0 02612	4244		TRA	SKLY YES.	F5G40031
	02611	0 02000 0 02637	4245		TRA	CI1	F5G40032
	02612	−0 50000 0 00454	4246	SKLY	CAL	STAGN2	F5G40040
	02613	0 76700 0 00011	4247		ALS	9	F5G40041
	02614	−0 76000 0 00001	4248		PBT	IS LXD NECESSARY.	F5G40042
	02615	0 02000 0 03462	4249		TRA	CI3A NO.	F5G40043
	02616	0 50000 2 01076	4250		CLA	INST−3,2 YES. IS S-TAG=4.	F5G40044
	02617	0 60200 0 00461	4251		SLW	CPIND RECORD DONT COMPILE.	F5G40045
	02620	−0 32000 0 00337	4252		ANA	ADDMK	F5G40046
	02621	0 40200 0 00320	4253		SUB	L4	F5G40047
	02622	−0 10000 0 02667	4254		TNZ	CI6 NOT 4.	F5G40048
	02623	−0 50000 2 01074	4255		CAL	INST−5,2 IS NEXT INSTR	F5G40049
	02624	−0 32000 0 00343	4256		ANA	LFTMSK	F5G40050
	02625	0 60200 0 00457	4257		SLW	TMP10 AN LXD	F5G40051
	02626	0 50000 0 00457	4258		CLA	TMP10	F5G40052
	02627	0 40200 0 00414	4259		SUB	LLXD WITH REAL	F5G40053
	02630	−0 10000 0 02667	4260		TNZ	CI6 IR4.	F5G40054
	02631	0 50000 2 01072	4261		CLA	INST−7,2	F5G40055
	02632	−0 32000 0 00337	4262		ANA	ADDMK IF SO,	F5G40056
	02633	0 40200 0 00320	4263		SUB	L4	F5G40057
	02634	−0 10000 0 02667	4264		TNZ	CI6 TURN ON	F5G40058
	02635	0 76000 0 00141	4265		PSE	97	F5G40059
	02636	0 02000 0 02667	4266		TRA	CI6 SENSE LIGHT.	F5G40060
	02637	0 34000 0 00347	4267	CI1	CAS	LDED IS IT A DED	F5G40061
	02640	0 02000 0 02642	4268		TRA	CI2	F5G40062
	02641	0 02000 0 03462	4269		TRA	CI3A YES	F5G40070
	02642	0 50000 0 00454	4270	CI2	CLA	STAGN2	F5G40080
	02643	0 12000 0 02667	4271		TPL	CI6 IS SXD REQUIRED	F5G40090
	02644	0 50000 2 01101	4272		CLA	INST,2 NEITHER LXP NOR DED, COMPILE THE	F5G40100
	02645	0 07400 4 02367	4273		TSX	SK,4 INST.	F5G40110
	02646	0 50000 2 01100	4274		CLA	INST−1,2	F5G40120
	02647	0 07400 4 02367	4275		TSX	SK,4	F5G40130
	02650	0 50000 2 01077	4276		CLA	INST−2,2	F5G40140
	02651	0 07400 4 02367	4277		TSX	SK,4	F5G40150
	02652	0 50000 2 01076	4278		CLA	INST−3,2	F5G40160
	02653	0 07400 4 02367	4279		TSX	SK,4	F5G40170
	02654	0 50000 0 00314	4280		CLA	ZERO YES, COMPILE AN SXD, ZERO LOCATION	F5G40180
	02655	0 60100 0 00461	4281		STO	CPIND RECORD THAT THIS INST. SHOULDNT BE CONPILED	F5G40190
	02656	0 07400 4 02367	4282		TSX	SK,4	F5G40200
	02657	0 50000 0 00411	4283		CLA	SIK3 SXD IN BCD	F5G40210
	02660	0 07400 4 02367	4284		TSX	SK,4	F5G40220
	02661	0 50000 0 00452	4285		CLA	TAG SYMB. ADDR. OF TAU-TAG CELL	F5G40230
	02662	−0 50100 0 00415	4286		ORA	SMK4	F5G40240
	02663	0 07400 4 02367	4287		TSX	SK,4	F5G40250
	02664	0 50000 2 01076	4288		CLA	INST−3,2 AND TAG WORD	F5G40260
	02665	−0 32000 0 00337	4289		ANA	ADDMK	F5G40270
	02666	0 07400 4 02367	4290		TSX	SK,4	F5G40280
	02667	−0 50000 0 00453	4291	CI6	CAL	STAGN1 NO SXD REQUIRED.	F5G40290
	02670	0 76700 0 00002	4292		ALS	2	F5G40300
	02671	0 60200 0 00453	4293		SLW	STAGN1	F5G40310
	02672	−0 50000 0 00454	4294		CAL	STAGN2	F5G40320
	02673	0 76700 0 00001	4295		ALS	1	F5G40330
	02674	0 60200 0 00454	4296		SLW	STAGN2	F5G40340
	02675	0 02000 0 02700	4297		TRA	CKLOC GO TO CHECK FOR ENDINGS	F5G40350
	02676	−0 76000 0 00003	4298	CI7	SSM		F5G40360
	02677	0 60100 0 00461	4299		STO	CPIND RECODD LATER COMPILING NECESSARY	F5G40370
			4300			NOW THE END OF BB IS CHECKED FOR	F5G40380
	02700	0 50000 2 01101	4301	CKLOC	CLA	INST,2 IF NO LOCATION SYMBOL , THIS CANT BE	F5G40390
	02701	0 10000 0 02723	4302		TZE	TR3S ENSING OTHER THAN CERTAINTY	F5G40400
	02702	0 50000 2 01075	4303		CLA	INST−4,2 IS THIS LAST INST IN BB	F5G40410
	02703	0 40200 0 00444	4304		SUB	NXTLOC	F5G40420
	02704	0 10000 0 02743	4305		TZE	ENDBB YES, LOOK FOR TYPE OF ENDING	F5G40430
	02705	−0 53400 4 00327	4306		LXD	LD8,4 NO, CHECK FOR ENDING OF GROUP OF INST	F5G40440
	02706	−0 50000 2 01100	4307		CAL	INST−1,2	F5G40450
	02707	−0 32000 0 00335	4308		ANA	DECMK LOOK AT OP CODE	F5G40460
	02710	0 40200 4 00374	4309	SUBP	SUB	LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE	F5G40470
	02711	0 10000 4 02737	4310		TZE	TRTIN+1,4 ENDINGS TRANSFER WHEN FOUND	F5G40480
	02712	2 00001 4 02710	4311		TIX	SUBP,4,1 TRY NEXT POSSIBILITY	F5G40490
	02713	−0 50000 2 01100	4312		CAL	INST−1,2 NOT FOUND, LOOK FORCONDITIONAL TRANSFER	F5G40500
	02714	−0 32000 0 00400	4313	6ANA	ANA	FSTLT	F5G40510
	02715	0 60200 0 00457	4314		SLW	TMP10	F5G40520
	02716	0 50000 0 00457	4315		CLA	TMP10	F5G40530
	02717	0 40200 0 00401	4316		SUB	FSTT	F5G40540
	02720	0 10000 0 03162	4317		TZE	TTYPE IS A CONDITIONAL TRANSFER	F5G40550
	02721	0 07400 4 02172	4318	NOEND	TSX	SCMI,4 NOT AN END OD BB COMPILE INST	F5G40560
	02722	1 00004 2 02525	4319		TXI	FNDAS,2,4 IF IT NEEDS TO BE	F5G40570
	02723	0 50000 2 01075	4320	TR3S	CLA	INST−4,2 IS THIS LAST INST IN BB	F5G40580
	02724	0 40200 0 00444	4321		SUB	NXTLOC	F5G40590
	02725	0 10000 0 03042	4322		TZE	SEQTR YES	F5G40600
	02726	0 02000 0 02721	4323		TRA	NOEND NO	F5G40610
			4324			TRANSFER VECTOR SEE SUBP+1 ABOVE	F5G40620
	02727	0 02000 0 03046	4325		TRA	GOTOV TRA IS OP CODE	F5G40630
	02730	0 02000 0 03115	4326		TRA	IF2PS PSE	F5G40640
	02731	0 02000 0 03171	4327		TRA	IF2CS DCT	F5G40650
	02732	0 02000 0 03171	4328		TRA	IF2CS RTT	F5G40660
	02733	0 02000 0 03125	4329		TRA	MSECS MSE	F5G40670
	02734	0 02000 0 03226	4330		TRA	IF3CS TZE	F5G40680
	02735	0 02000 0 03324	4331		TRA	STPCSZ HPR	F5G40690
	02736	0 02000 0 02721	4332	TRTIN	TRA	NOEND TSX	F5G40700
			4333			THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW	F5G40710
	02737	0 02000 0 02752	4334		TRA	TRACS TRAIS OP CODE	F5G40720
	02740	0 02000 0 03037	4335		TRA	DOCS TXL	F5G40730
	02741	0 02000 0 03042	4336		TRA	PAUSE HPR	F5G40740
	02742	0 02000 0 02755	4337	TRTTR	TRA	TRAC3 TTR	F5G40750
	02743	−0 53400 4 00325	4338	ENDBB	LXD	LD4,4 THIS INST ENDS A BASIC	F5G40760
	02744	0 50000 2 01100	4339		CLA	INST−1,2 BLOCK LOOKAT OP CODE	F5G40770
	02745	−0 32000 0 00335	4340		ANA	DECMK FOR TYPE OF ENDING	F5G40780
	02746	0 40200 4 00400	4341	6SUB	SUB	LTROP+1,4	F5G40790
	02747	0 10000 4 02743	4342		TZE	TRTTR+1,4 TRANSFER IF IOUND	F5G40800
	02750	2 00001 4 02746	4343		TIX	6SUB,4,1 TRY NEXT POSSIBILITY	F5G40810
	02751	0 02000 0 03042	4344		TRA	SEQTR	F5G40820
	02752	−0 50000 2 01077	4345	TRACS	CAL	INST−2,2 OP CODE IS TRA SEE IF ADDRESS	F5G40830
	02753	−0 32000 0 00403	4346		ANA	PFXMK IS IN PROGRAM UNCONDITITONAL TRANSFER	F5G40840
	02754	−0 10000 0 02772	4347		TNZ	GOTON IF TRANSFER IT IS A GO TO N	F5G40850
	02755	−0 63400 2 00447	4348	TRAC3	SXD	BBOX,2 THIS IS GO TO ALPHA	F5G40860
	02756	−0 50000 0 00443	4349		CAL	BBNO	F5G40870
	02757	0 77100 0 00022	4350		ARS	18	F5G40880
	02760	0 60100 0 00462	4351		STO	ARG1 STORE BBNO AS ARGUMENT OF SAD	F5G40890
	02761	0 07400 4 00067	4352		TSX	SE1,4	F5G40900
	02762	−0 50000 1 12533	4353		CAL	BBB,1	F5G40910
	02763	0 07400 4 00044	4354		TSX	SE6,4 GET SUCC. TABLE ENTRY	F5G40920
	02764	−0 50000 1 16734	4355		CAL	SUCC,1	F5G40930
	02765	0 07400 4 02126	4356		TSX	SAD,4 GO TO DETERMINE SYMBOLIC ADDRESS	F5G40940
	02766	−0 53400 2 00447	4357		LXD	BBOX,2	F5G40950
	02767	0 60200 2 01077	4358		SLW	INST−2,2 TEPLACE SYMBOLIC ADDR.	F5G40960
	02770	0 07400 4 02172	4359		TSX	SCMI,4 COMPILE THE INSTR	F5G40970
	02771	1 00004 2 03544	4360		TXI	BEGBB,2,4 BEGINNING OF BB, INDEX TO NEXT INSTR	F5G40980
	02772	−0 63400 2 00447	4361	GOTON	SXD	BBOX,2	F5G40990
	02773	0 50000 0 00443	4362		CLA	BBNO	F5G41000
	02774	0 07400 4 00070	4363		TSX	SE,4	F5G41010
	02775	0 50000 1 12533	4364		CLA	BBB,1 CHECK TO MAKE SURE THIS IS GO TO N	F5G41020
	02776	0 77100 0 00041	4365		ARS	33	F5G41030
	02777	0 40000 0 00315	4366		ADD	ONEA	F5G41040
	03000	0 10000 0 03002	4367		TZE	GON1	F5G41050
	03001	0 07400 4 00004	4368		TSX	4,4 DIAGNOSTIC THIS ISNT GO N	F5G41060
	03002	−0 50000 1 12534	4369	GON1	CAL	BBB+1,1	F5G41070
	03003	0 77100 0 00041	4370		ARS	33 PUT SXD CASE IN TMP10	F5G41080
	03004	0 60200 0 00457	4371		SLW	TMP10	F5G41090
			4372			NOW ANY SXD BEFIR GO TO N ARE COMPILED	F5G41100
	03005	−0 53400 2 00324	4373		LXD	LD3,2	F5G41110
	03006	0 50000 2 00361	4374	GON3	CLA	VSTAG,2 DOES THIS THIS IR NEED SXD	F5G41120
	03007	−0 32000 0 00457	4375		ANA	TMP10	F5G41130
	03010	0 10000 0 03032	4376		TZE	GON2	F5G41140
	03011	−0 63400 1 00451	4377		SXD	ABOX,1 YES	F5G41150
	03012	0 56000 0 00314	4378		LDQ	ZERO REPLACE LOCATION BY 0 AND	F5G41160
	03013	−0 53400 4 00447	4379		LXD	BBOX,4 PUT LOCATION ON THE	F5G41170
	03014	0 50000 4 01101	4380		CLA	INST,4 SXD INST.	F5G41180
	03015	−0 60000 4 01101	4381		STQ	INST,4 SXDINST	F5G41190
	03016	0 07400 4 02367	4382		TSX	SK,4	F5G41200
	03017	0 50000 0 00411	4383		CLA	LSXD	F5G41210
	03020	0 07400 4 02367	4384		TSX	SK,4	F5G41220
	03021	−0 53400 1 00451	4385		LXD	ABOX,1	F5G41230
	03022	−0 50000 1 12535	4386		CAL	BBB+2,1	F5G41240
	03023	−0 32000 0 00342	4387		ANA	TAGMK	F5G41250
	03024	−0 50100 0 00415	4388		ORA	IDTAG	F5G41260
	03025	0 07400 4 02367	4389		TSX	SK,4	F5G41270
	03026	−0 50000 0 00457	4390		CAL	TMP10	F5G41280
	03027	−0 32000 2 00361	4391		ANA	VSTAG,2	F5G41290
	03030	0 07400 4 02367	4392		TSX	SK,4	F5G41300
	03031	−0 53400 1 00451	4393		LXD	ABOX,1	F5G41310
	03032	1 77777 1 03033	4394	GON2	TXI	GON2+1,1,−1	F5G41320
	03033	2 00001 2 03006	4395		TIX	GON3,2,1	F5G41330
	03034	−0 53400 2 00447	4396		LXD	BBOX,2	F5G41340
	03035	0 07400 4 02172	4397		TSX	SCMI,4 COMPILE THE INST	F5G41350
	03036	1 00004 2 03544	4398		TXI	BEGBB,2,4	F5G41360
	03037	−0 75400 0 00000	4399	DOCS	PXD	0,0	F5G41370
	03040	0 60100 0 01101	4400		STO	SXST T RECORD THERE IS SEQUDNTIAL TRANSFER	F5G41380
	03041	0 02000 0 02755	4401		TRA	TRAC3 OTHERWISE DO EXACTLY AS FOR TRA TRANSFER	F5G41390
	03042	−0 75400 0 00000	4402	PAUSE	PXD	0,0	F5G41400
		03042	4403	SEQTR	SYN	PAUSE	F5G41410
	03043	0 60100 0 01101	4404		STO	SXST RECORD SEQUENTIAL TRANSFER	F5G41420
	03044	0 07400 4 02172	4405		TSX	SCMI,4	F5G41430
	03045	1 00004 2 03544	4406		TXI	BEGBB,2,4	F5G41440
	03046	0 07400 4 02172	4407	GOTOV	TSX	SCMI,4 COMPILE INST IF NECESSARY	F5G41450
	03047	0 50000 2 01076	4408		CLA	INST−3,2 FIND NO. OF BRANCHES IN VECTOR	F5G41460
	03050	0 40200 0 00316	4409		SUB	LD1	F5G41470
	03051	0 62200 0 00463	4410		STD	MBOX	F5G41480
	03052	0 50000 0 00443	4411		CLA	BBNO	F5G41490
	03053	0 77100 0 00022	4412		ARS	18 STORE BBNO FOR SAD ROUTINE	F5G41500
	03054	0 60100 0 00462	4413		STO	ARG1	F5G41510
	03055	1 00004 2 03056	4414	GOV4	TXI	GOV4+1,2,4	F5G41520
	03056	−0 63400 2 00450	4415		SXD	BBOX1,2	F5G41530
	03057	0 07400 4 00067	4416		TSX	SE1,4	F5G41540
	03060	0 50000 1 12533	4417		CLA	BBB,1	F5G41550
	03061	0 60200 0 00464	4418		SLW	SUCNO STORE NO OF 1ST SUCCESSOR	F5G41560
	03062	−0 53400 2 00450	4419		LXD	BBOX1,2	F5G41570
	03063	−2 00144 2 03065	4420	13TNX	TNX	GOV1,2,ZINST IS BLOCK OF INST ALL USED	F5G41580
	03064	0 07400 4 03472	4421		TSX	RDINS,4 T READ NEXT BLOCK	F5G41590
	03065	−0 63400 2 00450	4422	GOV1	SXD	BBOX1,2	F5G41600
	03066	−0 50000 0 00464	4423		CAL	SUCNO	F5G41610
	03067	0 07400 4 00044	4424		TSX	SE6,4	F5G41620
	03070	0 50000 1 16734	4425		CLA	SUCC,1	F5G41630
	03071	0 07400 4 02126	4426		TSX	SAD,4 FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER	F5G41640
	03072	−0 53400 2 00450	4427		LXD	BBOX1,2	F5G41650
	03073	0 60200 0 00457	4428		SLW	TMP10 STORE SYMBOLIC ADDR.	F5G41660
	03074	−0 53400 4 00463	4429		LXD	MBOX,4	F5G41670
	03075	2 00001 4 03101	4430		TIX	GOV2,4,1 IS THIS THE LAST TRANSFER	F5G41680
	03076	0 50000 2 01077	4431		CLA	INST−2,2	F5G41690
	03077	0 40200 0 00444	4432		SUB	NXTLOC 1ST INST IN NEXT BB, IS IT	F5G41700
	03100	0 10000 0 03104	4433		TZE	GOV3	F5G41710
	03101	0 50000 0 00457	4434	GOV2	CLA	TMP10 NO	F5G41720
	03102	0 60100 2 01077	4435		STO	INST−2,2	F5G41730
	03103	0 07400 4 02172	4436		TSX	SCMI,4 COMPILE THE INXT	F5G41740
	03104	1 00004 2 03105	4437	GOV3	TXI	GOV3+1,2,4	F5G41750
	03105	−0 50000 0 00464	4438		CAL	SUCNO	F5G41760
	03106	0 40000 0 00316	4439		ADD	ONED	F5G41770
	03107	0 60200 0 00464	4440		SLW	SUCNO	F5G41780
	03110	−0 53400 4 00463	4441		LXD	MBOX,4	F5G41790
	03111	1 77777 4 03112	4442	GOV5	TXI	GOV5+1,4,−1	F5G41800
	03112	−0 63400 4 00463	4443		SXD	MBOX,4	F5G41810
	03113	3 00000 4 03063	4444		TXH	13TNX,4,0 IS THIS LAST TRA OF VECTOR	F5G41820
	03114	0 02000 0 03544	4445		TRA	BEGBB YES	F5G41830
	03115	0 50000 2 01076	4446	IF2PS	CLA	INST−3,2 THIS IS PSE LOOK AT ADDRESS TO	F5G41840
	03116	−0 32000 0 00404	4447		ANA	XXPSX SEE IF IT IS 164-6	F5G41850
	03117	0 40200 0 00405	4448		SUB	XX16X	F5G41860
	03120	0 10000 0 03125	4449		TZE	PSTCS YES, IT IS A TEST	F5G41870
	03121	0 50000 2 01076	4450		CLA	INST−3,2	F5G41880
	03122	−0 32000 0 00335	4451		ANA	DECMK NO, SEE IF ADDR IS 360	F5G41890
	03123	0 40200 0 00406	4452		SUB	XX360	F5G41900
	03124	−0 10000 0 02721	4453		TNZ	NOEND NO, THIS ISNT BB END	F5G41910
	03125	0 07400 4 02172	4454	PSTCS	TSX	SCMI,4 THIS IS A PSE TEST INST	F5G41920
		03125	4455	MSECS	SYN	PSTCS OR AN MSE INST	F5G41930
	03126	1 00004 2 03127	4456	PS1	TXI	PS1+1,2,4 INEDX TO CONSIEER 1ST TRANSFER	F5G41940
	03127	−0 63400 2 00450	4457		SXD	BBOX1,2	F5G41950
	03130	−0 50000 0 00443	4458		CAL	BBNO	F5G41960
	03131	0 77100 0 00022	4459		ARS	18	F5G41970
	03132	0 60100 0 00462	4460		STO	ARG1 STORE BBNO AS ARGUMENT FOR SAD	F5G41980
	03133	0 07400 4 00067	4461		TSX	SE1,4	F5G41990
	03134	−0 50000 1 12533	4462		CAL	BBB,1	F5G42000
	03135	0 60100 0 00464	4463		STO	SUCNO GETNUMBER OF 1ST SUCCESSOR	F5G42010
	03136	0 40000 0 00316	4464		ADD	LD1	F5G42020
	03137	0 07400 4 00044	4465		TSX	SE6,4 GET THE SECOND SUCC ENTRY	F5G42030
	03140	0 50000 1 16734	4466		CLA	SUCC,1	F5G42040
	03141	0 07400 4 02126	4467		TSX	SAD,4	F5G42050
	03142	−0 53400 2 00450	4468		LXD	BBOX1,2	F5G42060
	03143	0 60200 2 01077	4469		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42070
	03144	0 07400 4 02172	4470		TSX	SCMI,4	F5G42080
	03145	1 00004 2 03146	4471	PS2	TXI	PS2+1,2,4 INCREASE INSTR INDEX	F5G42090
	03146	0 50000 2 01077	4472		CLA	INST−2,2 IS THIS A SEQUENTIAL TRANSFER	F5G42100
	03147	0 40200 0 00444	4473		SUB	NXTLOC	F5G42110
	03150	0 10000 0 03307	4474		TZE	PS3 YES, SKIP COMPILING THE INST	F5G42120
	03151	−0 63400 2 00450	4475		SXD	BBOX1,2 NO	F5G42130
	03152	0 50000 0 00464	4476		CLA	SUCNO	F5G42140
	03153	0 07400 4 00044	4477		TSX	SE6,4	F5G42150
	03154	0 50000 1 16734	4478		CLA	SUCC,1	F5G42160
	03155	0 07400 4 02126	4479		TSX	SAD,4 DETERMINE THE SYMBQLIC ADDRESS	F5G42170
	03156	−0 53400 2 00450	4480		LXD	BBOX1,2	F5G42180
	03157	0 60200 2 01077	4481		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42190
	03160	0 07400 4 02172	4482		TSX	SCMI,4 COMPILE THE INST.	F5G42200
	03161	1 00004 2 03544	4483		TXI	BEGBB,2,4	F5G42210
	03162	0 50000 2 01077	4484	TTYPE	CLA	INST−2,2 IS THIS TRANSFER TO NEXT INST.	F5G42220
	03163	0 34000 2 01101	4485		CAS	INST,2	F5G42230
	03164	0 02000 0 03166	4486		TRA	TTYP1	F5G42240
	03165	0 02000 0 02721	4487		TRA	NOEND YES	F5G42250
	03166	0 40200 0 00402	4488	TTYP1	SUB	PCC	F5G42260
	03167	0 10000 0 02721	4489		TZE	NOEND YES	F5G42270
	03170	0 02000 0 03173	4490		TRA	CNDTR NO, IS CONDITIONAL TRANSFER	F5G42280
	03171	0 07400 4 02172	4491	IF2CS	TSX	SCMI,4 THIS IS DCT OR RTT	F5G42290
	03172	1 00004 2 03173	4492	RT1	TXI	RT1+1,2,4 INDEX TO CONSIDER 1ST TRANSFER	F5G42300
	03173	−0 63400 2 00450	4493	CNDTR	SXD	BBOX1,2 STORE BBNO. AS ARGUMENT	F5G42310
	03174	−0 50000 0 00443	4494		CAL	BBNO STORE BBNO AS ARGUMENT	F5G42320
	03175	0 77100 0 00022	4495		ARS	18 OF SAD	F5G42330
	03176	0 60100 0 00462	4496		STO	ARG1	F5G42340
	03177	0 07400 4 00067	4497		TSX	SE1,4	F5G42350
	03200	−0 50000 1 12533	4498		CAL	BBB,1	F5G42360
	03201	0 60100 0 00464	4499		STO	SUCNO	F5G42370
	03202	0 07400 4 00044	4500		TSX	SE6,4 GET THE 1ST SUCC ENTRY	F5G42380
	03203	0 50000 1 16734	4501		CLA	SUCC,1	F5G42390
	03204	0 07400 4 02126	4502		TSX	SAD,4	F5G42400
	03205	−0 53400 2 00450	4503		LXD	BBOX1,2	F5G42410
	03206	0 60200 2 01077	4504		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42420
	03207	0 07400 4 02172	4505		TSX	SCMI,4 COMPILE THE INST	F5G42430
	03210	1 00004 2 03211	4506	RT2	TXI	RT2+1,2,4	F5G42440
	03211	0 50000 2 01077	4507		CLA	INST−2,2 IS THIS A SEQUENTIAL TRANSFER	F5G42450
	03212	0 40200 0 00444	4508		SUB	NXTLOC	F5G42460
	03213	0 10000 0 03307	4509		TZE	PS3 YES, SKIP COMPILING THE INST	F5G42470
	03214	−0 63400 2 00450	4510		SXD	BBOX1,2	F5G42480
	03215	0 50000 0 00464	4511		CLA	SUCNO	F5G42490
	03216	0 40000 0 00316	4512		ADD	LD1	F5G42500
	03217	0 07400 4 00044	4513		TSX	SE6,4	F5G42510
	03220	0 50000 1 16734	4514		CLA	SUCC,1	F5G42520
	03221	0 07400 4 02126	4515		TSX	SAD,4 DETERMINE THE SYMBOLIC ADDR	F5G42530
	03222	−0 53400 2 00450	4516		LXD	BBOX1,2	F5G42540
	03223	0 60200 2 01077	4517		SLW	INST−2,2	F5G42550
	03224	0 07400 4 02172	4518		TSX	SCMI,4 COMPILE THE TRANSFER	F5G42560
	03225	1 00004 2 03544	4519		TXI	BEGBB,2,4	F5G42570
	03226	−0 63400 2 00450	4520	IF3CS	SXD	BBOX1,2 THIS IS A TZE INST I. E. AN IF	F5G42580
	03227	−0 50000 0 00443	4521		CAL	BBNO	F5G42590
	03230	0 77100 0 00022	4522		ARS	18 STORE BB NO. FOR SUBROUTINE	F5G42600
	03231	0 60100 0 00462	4523		STO	ARG1	F5G42610
	03232	0 07400 4 00067	4524		TSX	SE1,4 ARGUMENT	F5G42620
	03233	−0 50000 1 12533	4525		CAL	BBB,1	F5G42630
	03234	0 60100 0 00464	4526		STO	SUCNO	F5G42640
	03235	0 40000 0 00316	4527		ADD	LD1 GET THE SUCC ENTRY	F5G42650
	03236	0 07400 4 00044	4528		TSX	SE6,4 FOR THE TZE	F5G42660
	03237	0 50000 1 16734	4529		CLA	SUCC,1	F5G42670
	03240	0 07400 4 02126	4530		TSX	SAD,4	F5G42680
	03241	−0 53400 2 00450	4531		LXD	BBOX1,2	F5G42690
	03242	0 60200 2 01077	4532		SLW	INST−2,2 REPLACE THE SYMBOLIC ADDREAS	F5G42700
	03243	0 07400 4 02172	4533		TSX	SCMI,4 COMPILE THE TZE	F5G42710
	03244	1 00004 2 03245	4534	IF1	TXI	IF1+1,2,4	F5G42720
	03245	−0 50000 2 01100	4535		CAL	INST−1,2 CHECK NEXT INST TO SEE	F5G42730
	03246	−0 32000 0 00343	4536		ANA	LFTMSK IF IT IS TPL	F5G42740
	03247	0 60200 0 00457	4537		SLW	TMP10	F5G42750
	03250	0 50000 0 00457	4538		CLA	TMP10	F5G42760
	03251	0 40200 0 00344	4539		SUB	LTPL	F5G42770
	03252	0 10000 0 03254	4540		TZE	16CLA	F5G42780
	03253	0 07400 4 00004	4541	IFHPR	TSX	4,4 IF NOT, DIAGNOSTIC	F5G42790
	03254	0 50000 2 01077	4542	16CLA	CLA	INST−2,2 DOES THIS EXIT GO TO NEXT BB	F5G42800
	03255	0 40200 0 00444	4543		SUB	NXTLOC	F5G42810
	03256	−0 10000 0 03265	4544		TNZ	IF2	F5G42820
	03257	0 50000 2 01073	4545		CLA	INST−6,2 YES, DOES NEXT ONE ALSO	F5G42830
	03260	0 40200 0 00444	4546		SUB	NXTLOC	F5G42840
	03261	−0 10000 0 03265	4547		TNZ	IF2	F5G42850
	03262	−0 75400 0 00000	4548		PXD	0,0 YES, RECORD SEQUENTIAL TRANSFER	F5G42860
	03263	0 60100 0 01101	4549		STO	SXST	F5G42870
	03264	1 00010 2 03544	4550		TXI	BEGBB,2,8	F5G42880
	03265	−0 63400 2 00450	4551	IF2	SXD	BBOX1,2 COMPILE THE TPL	F5G42890
	03266	0 50000 0 00464	4552		CLA	SUCNO	F5G42900
	03267	0 07400 4 00044	4553		TSX	SE6,4	F5G42910
	03270	0 50000 1 16734	4554		CLA	SUCC,1	F5G42920
	03271	0 07400 4 02126	4555		TSX	SAD,4 FIND AND	F5G42930
	03272	−0 53400 2 00450	4556		LXD	BBOX1,2 REPLACE	F5G42940
	03273	0 60200 2 01077	4557		SLW	INST−2,2 SYMBOLIC ADDRESS	F5G42950
	03274	0 07400 4 02172	4558		TSX	SCMI,4	F5G42960
	03275	1 00004 2 03276	4559	IF3	TXI	IF3+1,2,4	F5G42970
	03276	−0 50000 2 01100	4560		CAL	INST−1,2 IS THIS TRA	F5G42980
	03277	−0 32000 0 00343	4561		ANA	LFTMSK	F5G42990
	03300	0 60200 0 00457	4562		SLW	TMP10	F5G43000
	03301	0 50000 0 00457	4563		CLA	TMP10	F5G43010
	03302	0 40200 0 00350	4564		SUB	LTRA	F5G43020
	03303	−0 10000 0 03253	4565		TNZ	IFHPR IF NOT , STOP	F5G43030
	03304	0 50000 2 01077	4566		CLA	INST−2,2 YES IT IS IS THIS A	F5G43040
	03305	0 40200 0 00444	4567		SUB	NXTLOC SEQUENTIAL TRANSFER	F5G43050
	03306	−0 10000 0 03312	4568		TNZ	IF4	F5G43060
	03307	−0 75400 0 00000	4569	PS3	PXD	0,0 YES, RECORD THAT	F5G43070
	03310	0 60100 0 01101	4570		STO	SXST	F5G43080
	03311	1 00004 2 03544	4571		TXI	BEGBB,2,4	F5G43090
	03312	−0 63400 2 00450	4572	IF4	SXD	BBOX1,2 CONPILE THE TRA	F5G43100
	03313	0 50000 0 00464	4573		CLA	SUCNO	F5G43110
	03314	0 40000 0 00323	4574		ADD	LD2	F5G43120
	03315	0 07400 4 00044	4575		TSX	SE6,4	F5G43130
	03316	0 50000 1 16734	4576		CLA	SUCC,1 IF NECESSARY	F5G43140
	03317	0 07400 4 02126	4577		TSX	SAD,4 MODIFY THE	F5G43150
	03320	−0 53400 2 00450	4578		LXD	BBOX1,2 SYMBOLIC	FSG43160
	03321	0 60200 2 01077	4579		SLW	INST−2,2 A0DRESS	F5G43170
	03322	0 07400 4 02172	4580		TSX	SCMI,4	F5G43180
	03323	1 00004 2 03544	4581		TXI	BEGBB,2,4	F5G43190
	03324	0 50000 2 01074	4582	STPCSZ	CLA	INST−5,2	F5G43200
	03325	0 40200 0 00350	4583		SUB	LTRA	F5G43210
	03326	−0 10000 0 02721	4584		TNZ	NOEND	F5G43220
	03327	0 50000 2 01101	4585		CLA	INST,2	F5G43230
	03330	0 40200 2 01073	4586		SUB	INST−6,2	F5G43240
	03331	−0 10000 0 02721	4587		TNZ	NOEND	F5G43250
	03332	0 07400 4 02172	4588	STPCS	TSX	SCMI,4 COMPILE THE TWO INXT	F5G43260
	03333	1 00004 2 03334	4589	STP1	TXI	STP1+1,2,4 AND GO TO STAET BB	F5G43270
	03334	0 07400 4 02172	4590		TSX	SCMI,4	F5G43280
	03335	1 00004 2 03544	4591		TXI	BEGBB,2,4	F5G43290
			4592			THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND	F5G43300
			4593			SUBROUTINE CALL SEQUENCES	F5G43310
	03336	−0 50000 2 01100	4594	CI7A	CAL	INST−1,2 IS THIS AN SXD INST	F5G43320
	03337	−0 32000 0 00343	4595		ANA	LFTMSK	F5G43330
	03340	0 60200 0 00457	4596		SLW	TMP10	F5G43340
	03341	0 50000 0 00457	4597		CLA	TMP10	F5G43350
	03342	0 40200 0 00411	4598		SUB	LSXD	F5G43360
	03343	−0 10000 0 03412	4599		TNZ	CI7C	F5G43370
	03344	−0 50000 2 01076	4600		CAL	INST−3,2 YES, DOES IT HAVE TAG 4	F5G43380
	03345	−0 32000 0 00337	4601		ANA	ADDMK	F5G43390
	03346	0 40200 0 00320	4602		SUB	L4	F5G43400
	03347	−0 10000 0 03412	4603		TNZ	CI7C	F5G43410
	03350	0 50000 0 00460	4604		CLA	CIND YES, IS IR4 NECESSARY	F5G43420
	03351	0 12000 0 03401	4605		TPL	DLSXD	F5G43430
	03352	−0 50000 2 01074	4606		CAL	INST−5,2 YES, IS THE NEXT INST A TSX	F5G43440
	03353	−0 32000 0 00343	4607		ANA	LFTMSK	F5G43450
	03354	0 60200 0 00457	4608		SLW	TMP10	F5G43460
	03355	0 50000 0 00457	4609		CLA	TMP10	F5G43470
	03356	0 40200 0 00351	4610		SUB	LTSX	F5G43480
	03357	−0 10000 0 03412	4611		TNZ	CI7C	F5G43490
	03360	0 50000 2 01101	4612		CLA	INST,2	F5G43500
	03361	0 07400 4 02367	4613		TSX	SK,4 YES, COMPILE AN SXD INSTR , TAG 4, TO	F5G43510
	03362	0 50000 0 00411	4614		CLA	LSXD SPECIAL TEMP. STORAGE LOC.	F5G43520
	03363	0 07400 4 02367	4615		TSX	SK,4	F5G43530
	03364	0 50000 0 00354	4616		CLA	GSYM	F5G43540
	03365	0 07400 4 02367	4617		TSX	SK,4	F5G43550
	03366	0 50000 0 00355	4618		CLA	T4SYM	F5G43560
	03367	0 07400 4 02367	4619		TSX	SK,4	F5G43570
	03370	0 50000 2 01075	4620	CMTSX	CLA	INST−4,2 COMPILE THE TSX INST	F5G43580
	03371	0 07400 4 02367	4621	CMTS1	TSX	SK,4	F5G43590
	03372	0 50000 2 01074	4622		CLA	INST−5,2	F5G43600
	03373	0 07400 4 02367	4623		TSX	SK,4	F5G43610
	03374	0 50000 2 01073	4624		CLA	INST−6,2	F5G43620
	03375	0 07400 4 02367	4625		TSX	SK,4	F5G43630
	03376	0 50000 2 01072	4626		CLA	INST−7,2	F5G43640
	03377	0 07400 4 02367	4627		TSX	SK,4	F5G43650
	03400	1 00010 2 02525	4628	CI7B	TXI	FNDAS,2,8 LOOK AT NEXT INST LXF	F5G43660
	03401	0 50000 2 01101	4629	DLSXD	CLA	INST,2	F5G43670
	03402	0 07400 4 02367	4630		TSX	SK,4 IR4 NOT NECESS. C0MPILE BSS 0.	F5G43680
	03403	0 50000 0 00352	4631		CLA	LBSS	F5G43690
	03404	0 07400 4 02367	4632		TSX	SK,4	F5G43700
	03405	0 50000 0 00314	4633		CLA	ZERO	F5G43710
	03406	0 07400 4 02367	4634		TSX	SK,4	F5G43720
	03407	0 50000 0 00314	4635		CLA	ZERO	F5G43730
	03410	0 07400 4 02367	4636		TSX	SK,4	F5G43740
	03411	0 02000 0 03370	4637		TRA	CMTSX	F5G43750
	03412	−0 50000 2 01100	4638	CI7C	CAL	INST−1,2 IS THIS AN LXD	F5G43770
	03413	−0 32000 0 00343	4639		ANA	LFTMSK	F5G43780
	03414	0 60200 0 00457	4640		SLW	TMP10	F5G43790
	03415	0 50000 0 00457	4641		CLA	TMP10	F5G43800
	03416	0 40200 0 00414	4642		SUB	LLXD	F5G43810
	03417	−0 10000 0 02676	4643		TNZ	CI7 NO, GO TO COMPILE THE INST	F5G43820
	03420	−0 50000 2 01076	4644		CAL	INST−3,2 YES, IS THE TAG 4	F5G43830
	03421	−0 32000 0 00337	4645		ANA	ADDMK	F5G43840
	03422	0 40200 0 00320	4646		SUB	L4	F5G43850
	03423	−0 10000 0 02676	4647		TNZ	CI7 NO, GO TO COMPILE THE INST.	F5G43860
	03424	0 50000 0 00460	4648		CLA	CIND YES. IS IR4 NECESSARY.	F5G43870
	03425	0 12000 0 03460	4649		TPL	CI7E NO, GO TO REPRESS LATER COMPILING OF INST	F5G43880
	03426	−0 76000 0 00141	4650		MSE	97 CHECK FOR LXP WHICH WAS LXD-D.	F5G43881
	03427	0 02000 0 03432	4651		TRA	CI7C1 NO SUCH.	F5G43882
	03430	0 76000 0 00003	4652		SSP	THERE WAS, SUPPRESS LATER COMPILING	F5G43883
	03431	0 02000 0 03460	4653		TRA	CI7E OF INST.	F5G43884
	03432	−0 50000 2 01074	4654	CI7C1	CAL	INST−5,2 IS FOLLOWING INSTR AN SXD.	F5G43885
	03433	−0 32000 0 00343	4655		ANA	LFTMSK	F5G43900
	03434	0 60200 0 00457	4656		SLW	TMP10	F5G43910
	03435	0 50000 0 00457	4657		CLA	TMP10	F5G43920
	03436	0 40200 0 00411	4658		SUB	LSXD	F5G43930
	03437	−0 10000 0 03450	4659		TNZ	CI7D	F5G43940
	03440	−0 50000 2 01072	4660		CAL	INST−7,2 YES, IS THE TAG A 4	F5G43950
	03441	−0 32000 0 00337	4661		ANA	ADDMK	F5G43960
	03442	0 40200 0 00320	4662		SUB	L4	F5G43970
	03443	−0 10000 0 03450	4663		TNZ	CI7D	F5G43980
	03444	0 50000 2 01075	4664		CLA	INST−4,2 IS SXD FIRST INSTR	F5G43990
	03445	0 40200 0 00444	4665		SUB	NXTLOC OF NEXT BB.	F5G44000
	03446	0 10000 0 03450	4666		TZE	CI7D YES, COMPILE LX.	F5G44010
	03447	1 00010 2 02525	4667		TXI	FNDAS,2,8 NO--DELETE LX, SX.	F5G44020
	03450	0 50000 0 00314	4668	CI7D	CLA	ZERO CLMPILE THE LXD WITH GARBAGE	F5G44030
	03451	0 07400 4 02367	4669		TSX	SK,4 SYMBOLADDEAA AND TAG 4	F5G44040
	03452	0 50000 0 00414	4670		CLA	LLXD	F5G44050
	03453	0 07400 4 02367	4671		TSX	SK,4	F5G44060
	03454	0 50000 0 00354	4672		CLA	GSYM	F5G44070
	03455	0 07400 4 02367	4673		TSX	SK,4	F5G44080
	03456	0 50000 0 00355	4674		CLA	T4SYM	F5G44090
	03457	0 07400 4 02367	4675		TSX	SK,4	F5G44100
	03460	0 60100 0 00461	4676	CI7E	STO	CPIND SURPRESS LATER COMPILING INST SET +	F5G44110
	03461	0 02000 0 02700	4677		TRA	CKLOC	F5G44120
	03462	0 50000 2 01076	4678	CI3A	CLA	INST−3,2 IS THE S-TAG EQUAL TO 4	F5G44130
	03463	0 60200 0 00461	4679		SLW	CPIND RECORD INST. NOT TO BE COMPILED	F5G44140
	03464	−0 32000 0 00337	4680		ANA	ADDMK	F5G44150
	03465	0 40200 0 00320	4681		SUB	L4	F5G44160
	03466	−0 10000 0 02667	4682		TNZ	CI6	F5G44170
	03467	−0 75400 0 00000	4683		PXD	0,0 YES, RECORD IR4 NOT NECESSARY	F5G44180
	03470	0 60100 0 00460	4684		STO	CIND	F5G44190
	03471	0 02000 0 02667	4685		TRA	CI6 SINCE LXP OR DED, SKIP COMPILING INST.	F5G44200
			4686			THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS	F5G44210
			4687			AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK	F5G44220
	03472	−0 63400 4 00445	4688	RDINS	SXD	OUTBX,4 SAVE RETURN INDEX	F5G44230
	03473	0 50000 0 00320	4689		CLA	L4 SET ERRBX FOR 5 TRIES	F5G44240
	03474	0 60100 0 00446	4690		STO	ERRBX	F5G44250
	03475	−0 63400 1 00447	4691		SXD	BBOX,1 SAVE INDEX 1	F5G44260
	03476	−0 53400 4 00331	4692		LXD	LD12,4 SHIFT EX,RA INST FROM END	F5G44270
	03477	0 50000 4 00735	4693	D1CLA	CLA	NDINS,4 OF BLOCK TO BEGINNING	F5G44280
	03500	0 60100 4 01101	4694		STO	INST,4	F5G44290
	03501	2 00001 4 03477	4695		TIX	D1CLA,4,1 IS BLOCK SHIFTED	F5G44300
	03502	0 76200 0 00224	4696	D1RDS	RTB	INSTTP SELECT INST TAPE	F5G44310
	03503	0 53400 1 00362	4697		LXA	RECSC,1 YES, SET INDEX FOR NO. OF RECORDS	F5G44320
	03504	0 70000 4 01065	4698	D1CPY	CPY	INST−12,4 COPY BLOCK OF INST	F5G44330
	03505	1 00001 4 03504	4699		TXI	D1CPY,4,1 SET FOR NEXT WORD	F5G44340
	03506	0 02000 0 03516	4700		TRA	D2END END OF FILE	F5G44350
	03507	−2 00001 1 03512	4701		TNX	D1BCK,1,1 END OF RECORD IS IT END OF LAST RECORD	F5G44360
	03510	0 76200 0 00224	4702		RTB	INSTTP NO, READ NEXT RECORD	F5G44370
	03511	0 02000 0 03504	4703		TRA	D1CPY	F5G44380
	03512	0 76600 0 00333	4704	D1BCK	IOD	TEST FOR TAPE ERROR	F5G44390
	03513	−0 76000 0 00012	4705		RTT		F5G44400
	03514	0 02000 0 03530	4706		TRA	INERR ERROR	F5G44410
	03515	3 00143 4 03525	4707		TXH	D1XX,4,ZINST−1 IF 3RD FULL REC. NOT END OF FILE	F5G44420
	03516	−0 75400 4 00000	4708	D2END	PXD	0,4 REACHED END OF INSTR	F5G44430
	03517	0 40000 0 00327	4709		ADD	LD8 PUT TEST FOR LAST INST	F5G44440
	03520	0 62200 0 02525	4710		STD	FNDAS INTO MAIN ROUTINE	F5G44450
	03521	0 50000 0 00363	4711		CLA	LCOUT PUT ADDR 0F FINAL EXIT INTO MAIN	F5G44460
	03522	0 60100 0 02526	4712		STO	FNDAS+1 ROUTINE	F5G44470
	03523	0 50000 0 00336	4713		CLA	ENDMK	F5G44480
	03524	0 60100 4 01065	4714		STO	INST−12,4	F5G44490
	03525	−0 53400 4 00445	4715	D1XX	LXD	OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS	F5G44500
	03526	−0 53400 1 00447	4716		LXD	BBOX,1	F5G44510
	03527	0 02000 4 00001	4717		TRA	1,4 RETURN TO MAIN ROUTINE	F5G44520
	03530	0 50000 0 00446	4718	INERR	CLA	ERRBX ERROR IN READING IS THIS 1ST TRY	F5G44530
	03531	0 10000 0 03540	4719		TZE	HTRD2 TO READ IN	F5G44540
	03532	0 40200 0 00315	4720		SUB	ONEA YES, STORE INDICATION AND TRY AGAIN	F5G44550
	03533	0 60100 0 00446	4721		STO	ERRBX	F5G44560
	03534	0 76400 0 00204	4722	D2BST	BST	INSTTP BACKSPACE OVER RECORDS JUST READ	F5G44570
	03535	1 00001 1 03536	4723		TXI	D2TIX,1,1	F5G44580
	03536	−2 00001 1 03534	4724	D2TIX	TNX	D2BST,1,RECNO	F5G44590
	03537	0 02000 0 03502	4725		TRA	D1RDS TAPE BACKSPACED TRY AGAIN	F5G44600
	03540	0 07400 4 00004	4726	HTRD2	TSX	4,4 ERROR ON 5TH TRY DIAGNOSTIC	F5G44610
	03541	−0 53400 2 00331	4727	PASS2	LXD	LD12,2	F5G44620
	03542	0 77200 0 00203	4728		REW	OTAPE	F5G44630
	03543	1 00145 2 03544	4729	1TXI	TXI	1TXI+1,2,ZINST+1	F5G44640
			4730			INITIALIZE FOR START OF BB	F5G44650
	03544	−0 63400 2 00450	4731	BEGBB	SXD	BBOX1,2 STORE INDEX OF POSITION ON ONST TABOE	F5G44660
	03545	0 50000 0 00316	4732		CLA	ONED	F5G44670
	03546	0 40000 0 00443	4733		ADD	BBNO	F5G44680
	03547	0 60100 0 00443	4734		STO	BBNO	F5G44690
	03550	0 77100 0 00022	4735		ARS	18 WAS THIS THE LAST BB	F5G44700
	03551	0 40200 0 17774	4736		SUB	KEYS	F5G44710
	03552	0 40000 0 00315	4737		ADD	ONEA	F5G44720
	03553	0 10000 0 04413	4738		TZE	LSTBB YES, GL GO WRITE PARTIAL BLOLK	F5G44730
	03554	0 50000 0 01101	4739		CLA	SXST NO	F5G44740
	03555	−0 12000 0 03560	4740		TMI	BEGBBY	F5G44750
	03556	0 50000 0 00337	4741		CLA	ADDMK	F5G44760
	03557	0 60100 0 01101	4742		STO	SXST	F5G44770
	03560	0 50000 0 00443	4743	BEGBBY	CLA	BBNO	F5G44780
	03561	0 07400 4 00070	4744		TSX	SE,4	F5G44790
	03562	−0 50000 1 12535	4745		CAL	BBB+2,1 GET ENTRANCE REQUIREMENT	F5G44800
	03563	0 77100 0 00022	4746		ARS	18 FOR IR4	F5G44810
	03564	0 40200 0 00340	4747		SUB	STMSK STORE + OR - IF IR4	F5G44820
	03565	0 60100 0 00460	4748		STO	CIND ISNT OR IS NECESSARY	F5G44830
	03566	0 50000 0 00315	4749		CLA	ONEA RECORD THERE ISNT HANGING TRA 0	F5G44840
	03567	0 60100 0 00660	4750		STO	SLV3	F5G44650
	03570	−0 50000 0 00443	4751		CAL	BBNO FIND THE 1ST INST IN NEXT	F5G44860
	03571	0 40000 0 00316	4752		ADD	ONED	F5G44870
	03572	0 07400 4 00070	4753		TSX	SE,4 BB	F5G44880
	03573	0 50000 1 12540	4754		CLA	BBB+5,1	F5G44890
	03574	0 60100 0 00444	4755		STO	NXTLOC	F5G44900
			4756			DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5	F5G44910
	03575	0 56000 0 00314	4757	Z1	LDQ	ZERO INITIALIZE THE EXISTENCE	F5G44920
	03576	−0 60000 0 00667	4758		STQ	Z1V5 INDICATOR WORD	F5G44930
	03577	0 50000 1 12533	4759		CLA	BBB,1 GET AND STORE NO. OF 1ST PRED IN	F5G44940
	03600	0 62100 0 00665	4760		STA	Z1V2 NEXT BB	F5G44950
	03601	−0 50000 0 00443	4761		CAL	BBNO	F5G44960
	03602	0 07400 4 00070	4762		TSX	SE,4	F5G44970
	03603	−0 50000 1 12533	4763		CAL	BBB,1 STORE THE NO OF	F5G44980
	03604	0 62100 0 00666	4764		STA	Z1V3 1ST PRED IN	F5G44990
	03605	0 62100 0 00670	4765		STA	Z1V8 THIS BB	F5G45000
	03606	0 50000 0 00666	4766		CLA	Z1V3	F5G45010
	03607	0 34000 0 00665	4767	Z15	CAS	Z1V2 IS THIS PRED IN SAME BB	F5G45020
	03610	0 02000 0 03612	4768		TRA	Z12 YES	F5G45030
	03611	0 02000 0 03626	4769		TRA	Z2 NO	F5G45040
	03612	0 07400 4 00055	4770	Z12	TSX	SE5,4	F5G45050
	03613	0 50000 1 15674	4771		CLA	PRED,1 DETERMINE THE	F5G45060
	03614	−0 32000 0 00332	4772		ANA	LT7 LXD CASE	F5G45070
	03615	0 76700 0 00003	4773		ALS	3	F5G45080
	03616	−0 73400 4 00000	4774		PDX	0,4	F5G45090
	03617	−0 50000 0 00416	4775		CAL	Z1K3 STORE BIT AS INDICATOR	F5G45100
	03620	0 77100 4 00007	4776		ARS	7,4 FOR THIS	F5G45110
	03621	−0 60200 0 00667	4777		ORS	Z1V5 LXD CASE	F5G45120
	03622	0 50000 0 00666	4778		CLA	Z1V3	F5G45130
	03623	0 40000 0 00315	4779		ADD	ONEA ARRANGE TO DEAL WITH NEXT	F5G45140
	03624	0 62100 0 00666	4780		STA	Z1V3 PRED	F5G45150
	03625	0 02000 0 03607	4781		TRA	Z15	F5G45160
			4782			THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN	F5G45170
			4783			Z1V5 BY Z1	F5G45180
	03626	0 56000 0 00314	4784	Z2	LDQ	ZERO	F5G45190
	03627	0 53400 1 00422	4785		LXA	Z2K2,1	F5G45200
	03630	−0 60000 1 00715	4786	Z21	STQ	LLIND,1 SET THE 3 INDEXDS TO THE SUB	F5G45210
	03631	0 50000 1 00422	4787		CLA	Z2K1+3,1 BOTT0M POSITIONS	F5G45220
	03632	0 40200 0 00316	4788		SUB	ONED IN THE 3 LISTS AND ALL	F5G45230
	03633	0 60100 1 00674	4789		STO	Z2V1+3,1 INDICATORS TO SAY COMPILED	F5G45240
	03634	2 00001 1 03630	4790		TIX	Z21,1,1	F5G45250
	03635	−0 53400 1 00331	4791		LXD	LD12,1	F5G45260
	03636	0 50000 0 00416	4792		CLA	MZE PLACE -0 S IN THE	F5G45270
	03637	0 60100 1 00712	4793	Z28	STO	LIST1+12,1 LXD LISTS	F5G45280
	03640	2 00001 1 03637	4794		TIX	Z28,1,1	F5G45290
	03641	−0 53400 1 00422	4795		LXD	Z2K2,1 SET TO BEGINNING OF CASE LIST	F5G45300
	03642	0 56000 0 00667	4796	Z25	LDQ	Z1V5 DID	F5G45310
	03643	0 50000 1 00432	4797		CLA	CASE+7,1 THIS	F5G45320
	03644	0 73400 2 00000	4798		PAX	0,2 CASE	F5G45330
	03645	−0 77300 2 00007	4799		RQL	7,2 OCCURR	F5G45340
	03646	0 16200 0 03711	4800		TQP	Z26	F5G45350
	03647	0 50000 0 00434	4801		CLA	Z2K5 YES, SET NO OF ONES IN	F5G45360
	03650	0 60100 0 00674	4802		STO	Z2V2 DIFFERENCE TO HIGH NUMBER	F5G45370
	03651	0 53400 2 00422	4803		LXA	Z2K2,2 INITIALIZE TO 1ST LIST	F5G45380
	03652	0 56000 0 00314	4804	Z23	LDQ	ZERO IS P004	F5G45390
	03653	0 50000 2 00674	4805		CLA	Z2V1+3,2	F5G45400
	03654	−0 73400 4 00000	4806	R004	PDX	0,4 QUANTITY IN THE LIST	F5G45410
	03655	0 50000 4 00676	4807		CLA	LIST1,4 IS THE TOP	F5G45420
	03656	−0 32000 1 00432	4808		ANA	CASE+7,1 YES, DETERMINE	F5G45430
	03657	−0 40000 4 00676	4809		SBM	LIST1,4 CONTAINED IN THIS	F5G45440
	03660	−0 10000 0 03676	4810		TNZ	Z27 CASE	F5G45450
	03661	0 50000 1 00432	4811		CLA	CASE+7,1 YES, DETERMINE	F5G45460
	03662	0 40200 4 00676	4812		SUB	LIST1,4 THE NO.	F5G45470
	03663	0 76500 0 00025	4813		LRS	21 OF ONES	F5G45480
	03664	0 20000 0 00433	4814		MPY	Z2K4 IN THE	F5G45490
	03665	0 62100 0 03667	4815		STA	Z22 LOGICAL	F5G45500
	03666	0 50000 0 00432	4816		CLA	Z2K3 DIFFERENCE	F5G45510
	03667	0 77100 0 00000	4817	Z22	ARS	SET	F5G45520
	03670	−0 32000 0 00434	4818		ANA	Z2K5	F5G45530
	03671	0 34000 0 00674	4819		CAS	Z2V2 IS THE NUMBER 0F ONES IN THE	F5G45540
	03672	0 02000 0 03676	4820		TRA	Z27 DIFFERENCE LESS THAN OR EQUAL TO	F5G45550
	03673	0 02000 0 03676	4821		TRA	Z27 THE PREVIOUS MINIMUM. NO	F5G45560
	03674	0 60100 0 00674	4822		STO	Z2V2 , YES, STORE NEW MIN	F5G45570
	03675	−0 63400 2 00675	4823		SXD	Z2V3,2 STORE INDEX OF LIST OF GIVING NEW MIN	F5G45580
	03676	2 00001 2 03652	4824	Z27	TIX	Z23,2,1 COUNT TO 3 LISTS ARE WE THRU	F5G45590
	03677	−0 53400 2 00675	4825		LXD	Z2V3,2 UES, GET INDEX OF L1ST WIIH MIN DIFF	F5G45600
	03700	0 50000 2 00674	4826		CLA	Z2V1+3,2 STIRE	F5G45610
	03701	−0 73400 4 00000	4827		PDX	0,4 THIS	F5G45620
	03702	0 50000 1 00432	4828		CLA	CASE+7,1 CASE AT TOP OF	F5G45630
	03703	1 00001 4 03704	4829	Z24	TXI	Z24+1,4,1 THAT LIST	F5G45640
	03704	0 60100 4 00676	4830		STO	LIST1,4	F5G45650
	03705	−0 75400 4 00000	4831		PXD	0,4 STORE INDEX OF TOP	F5G45660
	03706	0 60100 2 00674	4832		STO	Z2V1+3,2 POSITION IN THAT LIST	F5G45670
	03707	0 50000 0 00416	4833		CLA	MZE STORE INDICATION THAT THE	F5G45680
	03710	0 60100 2 00715	4834		STO	LLIND,2 LIST IS TO BE COMPILED	F5G45690
	03711	2 00001 1 03642	4835	Z26	TIX	Z25,1,1 COUNT THE 7 CASES	F5G45700
			4836			EXPAND TNE LXD LISTS	F5G45710
	03712	0 50000 0 00434	4837	Z3	CLA	Z2K5 IS THE	F5G45720
	03713	−0 40000 0 00700	4838		SBM	LIST1+2 BOTTOM ENTRY OF	F5G45730
	03714	0 10000 0 04003	4839		TZE	Z307 LIST1 A CASE 7	F5G45740
	03715	0 50000 0 00700	4840		CLA	LIST1+2 NO, DO THE BOTTOMS	F5G45750
	03716	−0 32000 0 00704	4841		ANA	LIST2+2 OF LISTS 1 AND 2 HAVE	F5G45760
	03717	0 10000 0 03766	4842		TZE	Z35 A NON ZERO INTERSECTION	F5G45770
	03720	0 34000 0 00700	4843		CAS	LIST1+2 YES, DOES 1NTERSECTION EQUAL 1	F5G45780
	03721	0 02000 0 03723	4844		TRA	Z31	F5G45790
	03722	0 02000 0 03760	4845		TRA	Z33 YES	F5G45800
	03723	0 34000 0 00704	4846	Z31	CAS	LIST2+2 IS IT EQUAL TO BOTTOM OF 2	F5G45810
	03724	0 02000 0 03726	4847		TRA	Z32	F5G45820
	03725	0 02000 0 03763	4848		TRA	Z34 YES	F5G45830
	03726	0 60100 0 00701	4849	Z32	STO	LIST1+3 STORE INTERSECTION IN SUB1	F5G45840
	03727	−0 76000 0 00003	4850		SSM	POSITITON AND -(INTER.) IN	F5G45850
	03730	0 60100 0 00705	4851		STO	LIST2+3 SUB2 POS.	F5G45860
	03731	0 02000 0 04015	4852		TRA	Z306	F5G45870
	03732	−0 76000 0 00003	4853	Z38	SSM	ENTER -INTER1 AND 3	F5G45880
	03733	0 60100 0 00711	4854		STO	LIST3+3 IN SUB3 POS.	F5G45890
	03734	0 02000 0 04015	4855		TRA	Z306	F5G45900
	03735	−0 76000 0 00003	4856	Z39	SSM	ENTER - INTER 1 AND 3	F5G45910
	03736	0 60100 0 00701	4857		STO	LIST1+3 INSUV1 POS.	F5G45920
	03737	0 02000 0 04015	4858		TRA	Z306	F5G45930
	03740	0 50000 0 00704	4859	Z300	CLA	LIST2+2 DO BOTTOM ENTRIES	F5G45940
	03741	−0 32000 0 00710	4860		ANA	LIST3+2 OF 2 AND 3 HAVE	F5G45950
	03742	0 10000 0 04015	4861		TZE	Z306 NONZERO INTERSECTION	F5G45960
	03743	0 34000 0 00704	4862		CAS	LIST2+2 YES, IS INTRE 2 AND 3	F5G45970
	03744	0 02000 0 03746	4863		TRA	Z301	F5G45980
	03745	0 02000 0 03755	4864		TRA	Z303 YES	F5G45990
	03746	0 34000 0 00710	4865	Z301	CAS	LIST3+2 IS INTERSECTION EQUAL TO BOTTOM OF LIST 3	F5G46000
	03747	0 02000 0 03751	4866		TRA	Z302	F5G46010
	03750	0 02000 0 04013	4867		TRA	Z304 YES	F5G46020
	03751	0 60100 0 00711	4868	Z302	STO	LIST3+3 STORE INTER 2 AND 3 IN SUB 3 POS.	F5G46030
	03752	−0 76000 0 00003	4869		SSM	AND -INTER IN	F5G46040
	03753	0 60100 0 00705	4870		STO	LIST2+3 SUB 2 POS.	F5G46050
	03754	0 02000 0 04015	4871		TRA	Z306	F5G46060
	03755	−0 76000 0 00003	4872	Z303	SSM	ENTER -(INTER 2 AND 3 )	F5G46070
	03756	0 60100 0 00711	4873		STO	LIST3+3 IN SUB 3 POS.	F5G46080
	03757	0 02000 0 04015	4874		TRA	Z306	F5G46090
	03760	−0 76000 0 00003	4875	Z33	SSM	ENTER -(INTER 1 AND 2 )	F5G46100
	03761	0 60100 0 00705	4876		STO	LIST2+3 IN SUB 2 POS.	F5G46110
	03762	0 02000 0 04015	4877		TRA	Z306	F5G46120
	03763	−0 76000 0 00003	4878	Z34	SSM	STORE -(INTER 1 AND 2 )	F5G46130
	03764	0 60100 0 00701	4879		STO	LIST1+3 IN SUB 1 POS.	F5G46140
	03765	0 02000 0 04015	4880		TRA	Z306	F5G46150
	03766	0 50000 0 00700	4881	Z35	CLA	LIST1+2 DO BOTTOM ENTRIES IN	F5G46160
	03767	−0 32000 0 00710	4882		ANA	LIST3+2 1 AND 3 HAVE NONZERO	F5G46170
	03770	0 10000 0 03740	4883		TZE	Z300 INTERSECTION	F5G46180
	03771	0 34000 0 00700	4884		CAS	LIST1+2 YES, IS IT EQUAL TO BOT. 1	F5G46190
	03772	0 02000 0 03774	4885		TRA	Z36	F5G46200
	03773	0 02000 0 03732	4886		TRA	Z38 YES	F5G46210
	03774	0 34000 0 00710	4887	Z36	CAS	LIST3+2 TO THE BOTTOM ENTRY IN 3	F5G46220
	03775	0 02000 0 03777	4888		TRA	Z37	F5G46230
	03776	0 02000 0 03735	4889		TRA	Z39 YES	F5G46240
	03777	0 60100 0 00711	4890	Z37	STO	LIST3+3 ENTER INTER 1 AND 3 IN SUB	F5G46250
	04000	−0 76000 0 00003	4891		SSM	3 POS. AND -( INTER ) IN	F5G46260
	04001	0 60100 0 00701	4892		STO	LIST1+3 SUB1 POS.	F5G46270
	04002	0 02000 0 04015	4893		TRA	Z306	F5G46280
	04003	−0 63400 0 00671	4894	Z307	SXD	Z2V1,0 CREATE THE LIST	F5G46290
	04004	0 50000 0 00321	4895		CLA	L7	F5G46300
	04005	0 60100 0 00676	4896		STO	LIST1	F5G46310
	04006	0 50000 0 00317	4897		CLA	L3	F5G46320
	04007	0 60100 0 00677	4898		STO	LIST1+1	F5G46330
	04010	0 50000 0 00315	4899		CLA	ONEA	F5G46340
	04011	0 60100 0 00700	4900		STO	LIST1+2	F5G46350
	04012	0 02000 0 04053	4901		TRA	Z4	F5G46360
	04013	−0 76000 0 00003	4902	Z304	SSM	ENTER - INTER 2 AND 3	F5G46370
	04014	0 60100 0 00705	4903	Z305	STO	LIST2+3 INSUB2 POS.	F5G46300
	04015	−0 53400 2 00324	4904	Z306	LXD	LD3,2 SET COUNT TO 3	F5G46390
	04016	0 53400 1 00314	4905		LXA	ZERO,1 SET TO INSPECT 1ST LIST	F5G46400
	04017	0 50000 1 00700	4906	Z309	CLA	LIST1+2,1	F5G46410
	04020	0 10000 0 04031	4907		TZE	Z308 IS THE BOTTOM ENTRY ZERO	F5G46420
	04021	0 40200 0 00315	4908		SUB	ONEA NO	F5G46430
	04022	−0 32000 1 00700	4909		ANA	LIST1+2,1 DOES IT HAVE TWO ONES	F5G46440
	04023	0 10000 0 04031	4910		TZE	Z308	F5G46450
	04024	0 60100 0 00457	4911		STO	TMP10 YES	F5G46460
	04025	0 50000 1 00701	4912		CLA	LIST1+3,1 IS THE SUB BOTTOM	F5G46470
	04026	−0 10000 0 04031	4913		TNZ	Z308 ENTRY ZERO	F5G46480
	04027	0 50000 0 00457	4914		CLA	TMP10 YES	F5G46490
	04030	0 60100 1 00701	4915		STO	LIST1+3,1	F5G46500
	04031	1 77774 1 04032	4916	Z308	TXI	Z308+1,1,−4 PREPARE FOR NEXT LIST	F5G46510
	04032	2 00001 2 04017	4917		TIX	Z309,2,1 COUNT TO 3	F5G46520
	04033	0 50000 0 00434	4918		CLA	Z2K5	F5G46530
	04034	−0 40000 0 00677	4919		SBM	LIST1+1	F5G46540
	04035	−0 10000 0 04053	4920		TNZ	Z4	F5G46550
	04036	0 50000 0 00700	4921		CLA	LIST1+2	F5G46560
	04037	0 40200 0 00315	4922		SUB	ONEA	F5G46570
	04040	−0 32000 0 00700	4923		ANA	LIST1+2	F5G46580
	04041	−0 10000 0 04053	4924		TNZ	Z4	F5G46590
	04042	0 50000 0 00700	4925		CLA	LIST1+2	F5G46600
	04043	0 60100 0 00701	4926		STO	LIST1+3	F5G46610
	04044	0 50000 0 00434	4927		CLA	Z2K5	F5G46620
	04045	0 40200 0 00700	4928		SUB	LIST1+2	F5G46630
	04046	0 60100 0 00700	4929		STO	LIST1+2	F5G46640
	04047	0 40200 0 00315	4930		SUB	ONEA	F5G46650
	04050	0 32000 0 00700	4931		ANS	LIST1+2	F5G46660
	04051	−0 50000 0 00701	4932		CAL	LIST1+3	F5G46670
	04052	−0 60200 0 00700	4933		ORS	LIST1+2	F5G46680
			4934			DETECT AND COMPILE ANY SEQUENTIAL TRANSFER	F5G46690
	04053	0 56000 0 00416	4935	Z4	LDQ	MZE PUT MINUS ZEROS IN	F5G46700
	04054	−0 60000 0 01125	4936		STQ	SXAS THE ASS0XIATED	F5G46710
	04055	0 53400 4 00322	4937		LXA	L19,4 SXDPOSIT1ONS	F5G46720
	04056	−0 60000 4 01125	4938	Z411	STQ	SXST+20,4	F5G46730
	04057	2 00001 4 04056	4939		TIX	Z411,4,1	F5G46740
	04060	0 50000 0 01101	4940		CLA	SXST	F5G46750
	04061	−0 12000 0 04140	4941		TMI	Z5 IS THERE A SEQUENTIAL TRANSFER	F5G46760
	04062	−0 50000 0 00443	4942		CAL	BBNO YES	F5G46770
	04063	0 77100 0 00022	4943		ARS	18	F5G46780
	04064	0 40200 0 00315	4944		SUB	ONEA	F5G46790
	04065	0 60100 0 00457	4945		STO	TMP10 PUT NO OF PREV. BB IN TMP10	F5G46800
	04066	0 50000 0 00670	4946		CLA	Z1V8 INITIALIZE 1ST PRED NO THIS BB	F5G46810
	04067	0 60100 0 00666	4947	Z49	STO	Z1V3	F5G46820
	04070	0 07400 4 00055	4948		TSX	SE5,4	F5G46830
	04071	−0 50000 1 15674	4949		CAL	PRED,1	F5G46840
	04072	−0 32000 0 00337	4950		ANA	ADDMK IS THIS THE SEQUENTIAL	F5G46850
	04073	0 40200 0 00457	4951		SUB	TMP10 TRANSFERS PRED ENTRY	F5G46860
	04074	0 10000 0 04100	4952		TZE	Z410	F5G46870
	04075	−0 50000 0 00666	4953		CAL	Z1V3 NO, TRY NEXT ONE	F5G46880
	04076	0 40000 0 00315	4954		ADD	ONEA	F5G46890
	04077	0 02000 0 04067	4955		TRA	Z49	F5G46900
	04100	0 50000 0 00666	4956	Z410	CLA	Z1V3 GET THE PRED NO	F5G46910
	04101	0 07400 4 02211	4957		TSX	SH,4 FORM THE SXD CASE	F5G46920
	04102	0 50000 0 00466	4958		CLA	SXD1	F5G46930
	04103	0 40000 0 00467	4959		ADD	SXD2	F5G46940
	04104	0 40000 0 00470	4960		ADD	SXD3	F5G46950
	04105	0 10000 0 04117	4961		TZE	Z44 IS THIS A 0 SXD CASE	F5G46960
	04106	0 53400 4 00320	4962		LXA	L4,4 ISNT 0 SXD CASE	F5G46970
	04107	0 50000 4 00471	4963	Z41	CLA	SXD1+3,4 RECORD SXD CASE	F5G46980
	04110	0 60100 4 01105	4964		STO	SXST+4,4 IN POSITION ASSOCIATED	F5G46990
	04111	2 00001 4 04107	4965		TIX	Z41,4,1 WITH SEQUENTIAL TRANSFER	F5G47000
	04112	0 53400 1 00314	4966		LXA	ZERO,1 COMPILE THE SXD	F5G47010
	04113	0 07400 4 02242	4967		TSX	SI,4 INST. WITH	F5G47020
	04114	0 02000 0 04140	4968		TRA	Z47 (1) ASSOCIATED SXD WITH 0 LXD CASE	F5G47030
	04115	0 07400 4 02440	4969	Z42	TSX	SM,4 (2)ASSOCIATED WITH AN LXD LIST	F5G47040
	04116	0 02000 0 04140	4970		TRA	Z47 (3) NOT ASSOCIATED ( TRA COMPILED )	F5G47050
	04117	−0 53400 4 00465	4971	Z44	LXD	SXD0,4	F5G47060
	04120	−3 00000 4 04136	4972		TXL	Z46,4,0 DOES IT HAVE A 0 LXD CASE	F5G47070
	04121	−0 75400 4 00000	4973		PXD	0,4 NO	F5G47080
	04122	0 77100 0 00022	4974		ARS	18 LXD CASE TO AC (ADDR)	F5G47090
	04123	0 60100 0 00715	4975		STO	Z4V1	F5G47100
	04124	−0 53400 2 00324	4976		LXD	LD3,2 SET COUNT TO 3 , N=1	F5G47110
	04125	0 50000 2 00674	4977	Z45	CLA	Z2V1+3,2 GET INDEX	F5G47120
	04126	−0 73400 1 00000	4978		PDX	0,1 OF TOP QUANTITY IN LIST N	F5G47130
	04127	0 50000 1 00676	4979		CLA	LIST1,1 IS THE LXD CASE OF THIS SXD	F5G47140
	04130	0 40200 0 00715	4980		SUB	Z4V1 CASE THE SAME AS	F5G47150
	04131	0 10000 0 04115	4981		TZE	Z42 THE TOP QUANTITY IN LIST N	F5G47160
	04132	2 00001 2 04125	4982		TIX	Z45,2,1 NO, COUNT TO 3	F5G47170
	04133	0 50000 0 00715	4983		CLA	Z4V1 COMPILE A	F5G47180
	04134	0 07400 4 02403	4984		TSX	SL,4 TRA (LXD )	F5G47190
	04135	0 02000 0 04140	4985		TRA	Z47	F5G47200
	04136	0 50200 0 00315	4986	Z46	CLS	ONEA RECORD THAT THERE	F5G47210
	04137	0 60100 0 00660	4987	Z48	STO	SLV3 IS A HANGING TRA 0CASE	F5G47220
		04140	4988	Z47	SYN	Z48+1	F5G47230
			4989			FORM THE SXD LIST AND THE SYN CARD LIST	F5G47240
	04140	0 50000 0 00316	4990	Z5	CLA	ONED SET INDEX IN SYN TABLE	F5G47250
	04141	0 60100 0 00716	4991		STO	Z5V1	F5G47260
	04142	0 50000 0 00670	4992		CLA	Z1V8 RESET 1 ST PRED IN BB	F5G47270
	04143	0 60100 0 00666	4993	Z53	STO	Z1V3	F5G47280
	04144	0 40200 0 00665	4994		SUB	Z1V2 IS THIS PRED IN SAME BB	F5G47290
	04145	0 10000 0 04263	4995		TZE	Z6 NO, ADD FINISHED	F5G47300
	04146	0 50000 0 01101	4996		CLA	SXST YES	F5G47310
	04147	−0 12000 0 04153	4997		TMI	Z51 WAS THERE A SEQUENTIAL TRANSFER	F5G47320
	04150	−0 32000 0 00337	4998		ANA	ADDMK YES, EXTRACT ADDRESS	F5G47330
	04151	0 40200 0 00666	4999		SUB	Z1V3 HAS PRED ALREDY BEEN CONSIDERED	F5G47340
	04152	0 10000 0 04213	5000		TZE	Z55 AS A SEQUENTIAL TRANSFER	F5G47350
	04153	0 50000 0 00666	5001	Z51	CLA	Z1V3 NO	F5G47360
	04154	0 07400 4 02211	5002		TSX	SH,4 GENERATE SXD CASE	F5G47370
	04155	0 50000 0 00466	5003		CLA	SXD1 IS THE	F5G47380
	04156	0 40000 0 00467	5004		ADD	SXD2 SXD CASE	F5G47390
	04157	0 40000 0 00470	5005		ADD	SXD3 ZERO	F5G47400
	04160	0 10000 0 04213	5006		TZE	Z55	F5G47410
	04161	0 53400 1 00314	5007		LXA	ZERO,1 NO, PREPARE T SCAN SXD LIST	F5G47420
	04162	0 50000 1 01101	5008	Z503	CLA	SXST,1 IS SUBSXD0	F5G47430
	04163	−0 32000 0 00335	5009		ANA	DECMK	F5G47440
	04164	0 60100 0 00457	5010		STO	TMP10	F5G47450
	04165	0 50000 0 00465	5011		CLA	SXD0	F5G47460
	04166	−0 32000 0 00335	5012		ANA	DECMK	F5G47470
	04167	0 40200 0 00457	5013		SUB	TMP10	F5G47480
	04170	−0 10000 0 04216	5014		TNZ	Z54	F5G47490
	04171	0 50000 1 01102	5015		CLA	SXST+1,1 THIS SXD CASE	F5G47500
	04172	0 40200 0 00466	5016		SUB	SXD1	F5G47510
	04173	−0 10000 0 04216	5017		TNZ	Z54	F5G47520
	04174	0 50000 1 01103	5018		CLA	SXST+2,1 SAME AS	F5G47530
	04175	0 40200 0 00467	5019		SUB	SXD2	F5G47540
	04176	−0 10000 0 04216	5020		TNZ	Z54	F5G47550
	04177	0 50000 1 01104	5021		CLA	SXST+3,1 THE ONE ALREADY	F5G47560
	04200	0 40200 0 00470	5022		SUB	SXD3 STORED	F5G47570
	04201	−0 10000 0 04216	5023		TNZ	Z54	F5G47580
	04202	0 50000 1 01101	5024		CLA	SXST,1 YES, STORE INDICATION	F5G47590
	04203	−0 53400 2 00716	5025		LXD	Z5V1,2	F5G47600
	04204	−0 32000 0 00337	5026		ANA	ADDMK SYN,2 CARD	F5G47610
	04205	0 60100 2 02125	5027		STO	SYN,2 IN THE	F5G47620
	04206	0 50000 0 00465	5028		CLA	SXD0 SYN	F5G47630
	04207	0 76700 0 00022	5029		ALS	18 LIST	F5G47640
	04210	0 62200 2 02125	5030		STD	SYN,2	F5G47650
	04211	1 00001 2 04212	5031	Z52	TXI	Z52+1,2,1	F5G47660
	04212	−0 63400 2 00716	5032		SXD	Z5V1,2	F5G47670
	04213	0 50000 0 00666	5033	Z55	CLA	Z1V3 PREPARE TO DEAL WITH NEXT PRED	F5G47680
	04214	0 40000 0 00315	5034		ADD	ONEA	F5G47690
	04215	0 02000 0 04143	5035		TRA	Z53	F5G47700
	04216	0 50000 1 01101	5036	Z54	CLA	SXST,1	F5G47710
	04217	0 12000 0 04232	5037		TPL	Z502 IS THIS SXD POS. EMPTY	F5G47720
	04220	−0 53400 2 00324	5038		LXD	LD3,2 YES	F5G47730
	04221	−3 00000 1 04232	5039		TXL	Z502,1,0 IS THIS ST CASE	F5G47740
	04222	3 77773 1 04233	5040		TXH	Z504,1,−4−1 NO, IS THIS 0 LIST CASE	F5G47750
	04223	3 77767 1 04242	5041		TXH	Z507,1,−8−1 NO 1ST	F5G47760
	04224	3 77763 1 04241	5042		TXH	Z506,1,−12−1 2ED	F5G47770
	04225	3 77757 1 04240	5043		TXH	Z505,1,−16−1 3RD	F5G47780
	04226	0 07400 4 04252	5044		TSX	Z500,4 ENTER THE SXD CASE IN THE LIST	F5G47790
	04227	0 50000 0 00416	5045		CLA	MZE	F5G47800
	04230	0 60100 1 01105	5046		STO	SXST+4,1 STORE END MARK FOR SYN CAEDS	F5G47810
	04231	0 02000 0 04213	5047		TRA	Z55	F5G47820
	04232	1 77774 1 04162	5048	Z502	TXI	Z503,1,−4 EXAMINE NEXT SXD CASE	F5G47830
	04233	−0 50000 0 00465	5049	Z504	CAL	SXD0 ZERO LIST CASE	F5G47840
	04234	−0 32000 0 00335	5050		ANA	DECMK IS THE LXD CASE 0	F5G47850
	04235	−0 10000 0 04232	5051		TNZ	Z502	F5G47860
	04236	0 07400 4 04252	5052		TSX	Z500,4 YES, ENTER SXD CASE IN	F5G47870
	04237	0 02000 0 04213	5053		TRA	Z55 ASSOCIATED POSITION	F5G47880
	04240	2 00001 2 04241	5054	Z505	TIX	Z505+1,2,1 GENERATE INDEX OF LIST	F5G47890
	04241	2 00001 2 04242	5055	Z506	TIX	Z506+1,2,1	F5G47900
	04242	−0 50000 2 00674	5056	Z507	CAL	Z2V1+3,2 IS	F5G47910
	04243	−0 73400 4 00000	5057		PDX	0,4 THE	F5G47920
	04244	0 50000 0 00465	5058		CLA	SXD0 LXD	F5G47930
	04245	0 77100 0 00022	5059		ARS	18 CASE THE	F5G47940
	04246	0 40200 4 00676	5060		SUB	LIST1,4 SAME	F5G47950
	04247	−0 10000 0 04232	5061		TNZ	Z502	F5G47960
	04250	0 07400 4 04252	5062		TSX	Z500,4 YES	F5G47970
	04251	0 02000 0 04213	5063		TRA	Z55	F5G47980
			5064			SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST	F5G47990
	04252	0 50000 0 00465	5065	Z500	CLA	SXD0	F5G48000
	04253	0 60100 1 01101	5066		STO	SXST,1	F5G48010
	04254	0 50000 0 00466	5067		CLA	SXD1	F5G48020
	04255	0 60100 1 01102	5068		STO	SXST+1,1	F5G48030
	04256	0 50000 0 00467	5069		CLA	SXD2	F5G48040
	04257	0 60100 1 01103	5070		STO	SXST+2,1	F5G48050
	04260	0 50000 0 00470	5071		CLA	SXD3	F5G48060
	04261	0 60100 1 01104	5072		STO	SXST+3,1	F5G48070
	04262	0 02000 4 00001	5073		TRA	1,4	F5G48080
			5074			COMPILE THE SXD LIST	F5G48090
	04263	0 53400 1 00333	5075	Z6	LXA	LM20,1 SET TO START OF SXD LIST	F5G48100
	04264	0 50000 1 01101	5076	Z61	CLA	SXST,1	F5G48110
	04265	−0 12000 0 04274	5077		TMI	Z7 IS THIS SXD POSITION EMPTY	F5G48120
	04266	−0 63400 1 04271	5078		SXD	Z6V1,1 NO	F5G48130
	04267	0 07400 4 02242	5079		TSX	SI,4 COMPILE THE SXD CASE WITH	F5G48140
	04270	0 76100 0 00000	5080		NOP	(1) 0 LXD CASE, OR	F5G48150
	04271	3 00000 0 00000	5081	Z6V1	TXH	0,0,SET (2) THIS RETURN CANT OCCURR	F5G48160
	04272	−0 53400 1 04271	5082		LXD	Z6V1,1 (3) TRA ALREADY CONPILED	F5G48170
	04273	1 77774 1 04264	5083		TXI	Z61,1,−4	F5G48180
			5084			COMPILE TNE LXD LISTS AND ASSOCIATED SXD S	F5G48190
	04274	−0 53400 2 00324	5085	Z7	LXD	LD3,2 SET TO BEGIN SCAN OF LISTS	F5G48200
	04275	0 50000 2 00422	5086	Z72	CLA	Z2K1+3,2	F5G48210
	04276	−0 73400 1 00000	5087		PDX	0,1 PUT INDEX OF BOTTOM POSITION IN 1	F5G48220
	04277	0 50000 1 00676	5088		CLA	LIST1,1	F5G48230
	04300	−0 12000 0 04350	5089		TMI	Z75 YES, IS IT A TRA(0) CASE	F5G48240
	04301	0 10000 0 04320	5090		TZE	Z73 IS THE LIST FILLED	F5G48250
	04302	0 50000 1 00677	5091		CLA	LIST1+1,1 PERHAPS, IS IT A FOR SURE	F5G48260
	04303	0 10000 0 04350	5092		TZE	Z75 IT IS IF EITHER THE SUB BOTTOM	F5G48270
	04304	0 12000 0 04350	5093		TPL	Z75 ENTRY IS -0 OR POSITIVE	F5G48280
	04305	0 50000 0 00720	5094		CLA	Z7V2	F5G48290
	04306	−0 12000 0 04320	5095		TMI	Z73 IS THIS 1ST TIME THRU	F5G48300
	04307	0 50000 2 00443	5096	Z76	CLA	Z7K1+3,2 YES	F5G48310
	04310	−0 73400 1 00000	5097		PDX	0,1 IS THERE ASSOCIATED	F5G48320
	04311	0 50000 1 01101	5098		CLA	SXST,1 SXDLIST	F5G48330
	04312	−0 63400 2 00717	5099		SXD	Z7V1,2	F5G48340
	04313	−0 12000 0 04344	5100		TMI	Z74	F5G48350
	04314	0 07400 4 02242	5101		TSX	SI,4 YES, COMPILE SXD CASE	F5G48360
	04315	0 02000 0 04317	5102		TRA	Z71	F5G48370
	04316	0 02000 0 04333	5103		TRA	Z77 COMPILE	F5G48380
	04317	−0 53400 2 00717	5104	Z71	LXD	Z7V1,2	F5G48390
	04320	2 00001 2 04275	5105	Z73	TIX	Z72,2,1 COUNT TO 3	F5G46400
	04321	0 50200 0 00720	5106		CLS	Z7V2 IS THIS 1ST TIME THRU	F5G48410
	04322	0 60100 0 00720	5107		STO	Z7V2	F5G48420
	04323	−0 12000 0 04274	5108		TMI	Z7 YES, OO BACK CLASXST	F5G48430
	04324	0 50000 0 01105	5109		CLA	SXAS0 IS THERE A 0 ASSOCIATED SXD CASE	F5G46440
	04325	−0 12000 0 04353	5110		TMI	Z8	F5G48450
	04326	0 53400 1 00334	5111		LXA	LM4,1 YES	F5G48460
	04327	0 07400 4 02242	5112		TSX	SI,4 COMPILE SXD CASE	F5G48470
	04330	0 02000 0 04353	5113		TRA	Z8	F5G48480
	04331	0 02000 0 04353	5114		TRA	Z8	F5G48490
	04332	0 02000 0 04353	5115		TRA	Z8	F5G48500
	04333	−0 53400 2 00717	5116	Z77	LXD	Z7V1,2	F5G46510
	04334	0 50000 2 00715	5117		CLA	Z4V1,2	F5G48520
	04335	−0 12000 0 04344	5118		TMI	Z74	F5G48530
	04336	0 50000 2 00443	5119		CLA	Z7K1+3,2	F5G48540
	04337	−0 73400 1 00000	5120		PDX	0,1	F5G48550
	04340	0 50000 1 01101	5121		CLA	SXST,1	F5G48560
	04341	0 77100 0 00022	5122		ARS	18	F5G46570
	04342	0 07400 4 02403	5123		TSX	SL,4	F5G48580
	04343	0 02000 0 04317	5124		TRA	Z71	F5G48590
	04344	0 50000 2 00674	5125	Z74	CLA	Z2V1+3,2 COMPILE THE LXD LIST	F5G48600
	04345	−0 73400 1 00000	5126		PDX	0,1	F5G48610
	04346	0 07400 4 02440	5127		TSX	SM,4	F5G48620
	04347	0 02000 0 04317	5128		TRA	Z71	F5G48630
	04350	0 50000 0 00720	5129	Z75	CLA	Z7V2 IS THIS 1ST TIME THRU	F5G48640
	04351	−0 12000 0 04307	5130		TMI	Z76 NO, 2ED TIME	F5G48650
	04352	0 02000 0 04320	5131		TRA	Z73 YES	F5G48660
			5132			COMPILE ANY SYN CARDS	F5G48670
	04353	−0 50000 0 00443	5133	Z8	CAL	BBNO FORM	F5G48680
	04354	0 77100 0 00022	5134		ARS	18 AND	F5G48690
	04355	0 60100 0 00457	5135		STO	TMP10 STORE	F5G48700
	04356	0 07400 4 00067	5136		TSX	SE1,4	F5G48710
	04357	−0 50000 1 12533	5137		CAL	BBB,1 -(IDSXD)-(BBNO)+(1ST PRED)*2**25	F5G48720
	04360	−0 32000 0 00337	5138		ANA	ADDMK	F5G48730
	04361	0 76700 0 00012	5139		ALS	10	F5G48740
	04362	0 40200 0 00457	5140		SUB	TMP10	F5G48750
	04363	0 40200 0 00410	5141		SUB	IDSXD	F5G48760
	04364	0 60100 0 00457	5142		STO	TMP10	F5G48770
	04365	−0 53400 2 00716	5143		LXD	Z5V1,2 SET TO START OF SYN LIST	F5G48780
	04366	−3 00001 2 04407	5144	Z81	TXL	Z83,2,1 ARE WE THRU	F5G48790
	04367	2 00001 2 04370	5145	Z82	TIX	Z82+1,2,1 DECREASE INDEX	F5G48800
	04370	−0 50000 2 02125	5146		CAL	SYN,2	F5G48810
	04371	−0 32000 0 00335	5147		ANA	DECMK COMPILE THE SYN CARD	F5G48820
	04372	0 77100 0 00010	5148		ARS	8	F5G48830
	04373	0 40200 0 00457	5149		SUB	TMP10	F5G48840
	04374	0 07400 4 02367	5150		TSX	SK,4	F5G48850
	04375	0 50000 0 00346	5151		CLA	LSYN	F5G48860
	04376	0 07400 4 02367	5152		TSX	SK,4	F5G48870
	04377	−0 50000 2 02125	5153		CAL	SYN,2	F5G48880
	04400	−0 32000 0 00337	5154		ANA	ADDMK	F5G48890
	04401	0 76700 0 00012	5155		ALS	10	F5G48900
	04402	0 40200 0 00457	5156		SUB	TMP10	F5G48910
	04403	0 07400 4 02367	5157		TSX	SK,4	F5G48920
	04404	0 50000 0 00314	5158		CLA	ZERO	F5G48930
	04405	0 07400 4 02367	5159		TSX	SK,4	F5G48940
	04406	0 02000 0 04366	5160		TRA	Z81	F5G48950
	04407	−0 53400 2 00450	5161	Z83	LXD	BBOX1,2 GET INDEX OF COMPILED INDT	F5G48960
	04410	0 50000 0 00416	5162		CLA	MZE RECORD NO SEQUENTIAL TRANSFER	F5G48970
	04411	0 60100 0 01101	5163		STO	SXST	F5G48980
	04412	0 02000 0 02525	5164		TRA	FNDAS	F5G48990
			5165			WRITE TH E LAST BLOCK OF C.I. T. ON TAPE	F5G49000
			5166			AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END	F5G49010
	04413	0 76200 0 00224	5167	LSTBB	RTB	INSTTP AN END OF	F5G49020
	04414	0 70000 0 00457	5168		CPY	TMP10 FILE SEPARATES RELATIVE CONST. ROUTINES	F5G49030
	04415	0 02000 0 04420	5169		TRA	EF3 END FILE ALREADY READ	F5G49040
	04416	0 02000 0 04413	5170		TRA	LSTBB READ END FILE	F5G49050
	04417	0 07400 4 00004	5171		TSX	4,4 DIAGNOSTIC, ERROR	F5G49060
	04420	−0 53400 4 00325	5172	EF3	LXD	LD4,4 TRY 4 TIMES	F5G49070
	04421	0 53400 3 00337	5173	EFRTB	LXA	ADDMK,3 READ IN NEXT RECORD	F5G49080
	04422	0 76200 0 00224	5174		RTB	INSTTP OF RELATIVE CONSTANT SUBROUTINES	F5G49090
	04423	0 70000 1 04516	5175	EFCPY	CPY	RELSR,1	F5G49100
	04424	1 77777 1 04423	5176		TXI	EFCPY,1,−1	F5G49110
	04425	0 02000 0 04436	5177		TRA	EFREW END OF FILE , END OF INST.	F5G49120
	04426	0 76600 0 00333	5178		IOD		F5G49130
	04427	−0 76000 0 00012	5179		RTT		F5G49140
	04430	0 02000 0 04451	5180		TRA	EFERR	F5G49150
	04431	−0 63400 1 04432	5181		SXD	EFTXL,1 STORE END TEST	F5G49160
	04432	−3 00000 2 04421	5182	EFTXL	TXL	EFRTB,2,SET COMPILE THE INSTRUCTIONS	F5G49170
	04433	0 50000 2 04516	5183		CLA	RELSR,2	F5G49180
	04434	0 07400 4 02367	5184		TSX	SK,4	F5G49190
	04435	1 77777 2 04432	5185		TXI	EFTXL,2,−1	F5G49200
	04436	0 77200 0 00204	5186	EFREW	REW	INSTTP REWIND THE TAPE	F5G49210
	04437	0 53400 1 00412	5187		LXA	SKK1,1 SET 1 TO LENGTH OF CS BLOCK	F5G49220
	04440	−0 53400 4 00655	5188		LXD	SKV1,4 INDEX OF NEXTCLST POSITION	F5G49230
	04441	−0 63400 4 04444	5189		SXD	LSTXL,4	F5G49240
	04442	3 00143 4 04447	5190		TXH	LSWEF,4,LCLST−1 IS BLOCK EMPTY	F5G49250
	04443	0 76600 0 00223	5191		WTB	OTAPE NO, WRITE	F5G49260
	04444	−3 00000 1 04447	5192	LSTXL	TXL	LSWEF,1,− IT ON TAPE	F5G49270
	04445	0 70000 1 00655	5193		CPY	CLST,1	F5G49280
	04446	1 77777 1 04444	5194		TXI	LSTXL,1,−1	F5G49290
	04447	0 77000 0 00203	5195	LSWEF	WEF	OTAPE WRITE AN END FILE	F5G49300
	04450	0 02000 0 00030	5196		TRA	R	F5G49310
	04451	0 76400 0 00204	5197	EFERR	BST	INSTTP	F5G49320
	04452	2 00001 4 04421	5198		TIX	EFRTB,4,1	F5G49330
	04453	0 07400 4 00004	5199		TSX	4,4 4TH ERROR, TO DIAGN0STIC	F5G49340
		04454	5200		BSS	PTL4 SPACE FOR PATCHES	F5G49350
	04516	0 00000 0 00000	5201	RELSR		START OF REL. CONST. ROUTINES	F5G49360
		00000	5202		ORG	0	F5G49370
	00000	0 00004 0 00030	5203		HTR	R,0,4 CONTROL CARD PART 1.	F5G49371
	00001	0 00000 0 05715	5204		HTR	CMTAG−1	F5G49372
		00000	5205		ORG	0	F5G49373
	00000	0 15674 0 15674	5206		HTR	PRED,0,PRED CONTROL CARD PART 1B.	F5G49374
	00001	0 00000 0 16025	5207		HTR	I9A+2	F5G49375
		00000	5208		ORG	0	F5G49376
	00000	0 04740 0 04740	5209		HTR	QS,0,QS CONTROL CARD, PART 1C.	F5G49377
	00001	0 00000 0 04773	5210		HTR	QS8+1	F5G49378
		00000	5211		ORG	0	F5G49379
	00000	0 04740 0 04740	5212		HTR	QPU,0,QPU CONTROL CARD, PART 1D.	F5G49380
	00001	0 00000 0 04773	5213		HTR	QPU8+1	F5G49381
		00000	5214		ORG	0	F5G49382
	00000	0 04740 0 04740	5215		HTR	QSU,0,QSU CONTROL CARD, PART 1E.	F5G49383
	00001	0 00000 0 04773	5216		HTR	QSU8+1	F5G49384
		00000	5217		ORG	0	F5G49385
	00000	0 00320 0 00317	5218		HTR	BLV09,0,BL12 CONTROL CARD, PART 2.	F5G49386
	00001	0 00000 0 00655	5219		HTR	BLIST	F5G49387
		00000	5220		ORG	0	F5G49388
	00000	0 00320 0 00320	5221		HTR	START,0,START CONTROL CARD, PART 3.	F5G49389
	00001	0 00000 0 00647	5222		HTR	ASCON	F5G49390
		00000	5223		ORG	0	F5G49391
	00000	0 03541 0 00317	5224		HTR	L3,0,PASS2 CONTROL CARD, PART 4.	F5G49392
	00001	0 00000 0 04516	5225		HTR	RELSR	F5G49393