SECTION 5

		1			704 FORTRAN II, SECTION V, TAG ANALYS1S, 4-1-6-2	F5G00010
		2			DAVID STERNLIGHT I.B.M. WORLD HEADQUARTERS 5 NOV 58.	F5G00020
		3			INTRODUCTION	F5G00030
		4			THE GENERAL PHILOSOPHY OF SECTION 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 SECIION5.	F5G00100
		11			THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPIRG	F5G00110
		12			INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THE	F5G00120
		13			3 1NDEX REGISTERS CONTAIN THE PROPER 1RFORMATION AT ALL	F5G00130
		14			TIMES FOR THE CORRECT EXECUTION OF 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 START1NG 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 PORTION 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 THER 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 APPRORRIATE 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 ENT1RE PROGRAM HAS BEEN TREATED. A FURTHER PRIN-	F5G00360
		37			CIPLE USED BY SECT1ON 5 IS TO COMPILE THE UPDAT1NG SX,S AS	F5G00370
		38			LATE AS POSS1BLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,	F5G00380
		39			SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUERCY	F5G00390
		40			OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS	F5G00400
		41			OF THE SX.	F5G00410
		42			LPLST IS FORMED IN CORES BV 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 INDICATE.	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 BB,ENS, CALLED SENTINEL, TERMINATES	F5G00500
		51			LPLST. 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			THIS 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 ENTIRE 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 REGION 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 R0UTINE.	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 POINT	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 F0URTH 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 SECTI0N 5 PART 1 AN0 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 AND STAG RECORDS INTRA-BB LX,S AND	F5G01090
		110			SX,S. STAG IS HANDLED 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 INSTRUCTION	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 ADORESS 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 0OES NOT CHANGE THE	F5G01230
		124			CONTENTS OF 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 INSTRUCTIONS 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 OF THE FACTORS OF LENGTH AND COMPLEXITY OF	F5G01360
		137			TRANSFER STRUCTURE. OUTPUT TABLES INCLU0E 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 PROGRAM 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 DOWN, PROVIOES UP TO	F5G01460
		147			20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT	F5G01470
		148			A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PR0GRAM	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			4-1-6-2 PARAMETER LIST	F5G01580
	10000	159	MSIZE	EQU	4096 4-1-6-2 MEMORY SIZE	F5G01590
	00062	160	FP1	EQU	50 4-1-6-2 REG TABLE SIZE	F5G01600
	00036	161	S3P1	EQU	30 4-1-6-2 LPLST TABLE SIZE	F5G01610
	00062	162	STL	EQU	50 4-1-6-2 STAG LENGTH	F5G01620
		163			FIXED PARAMETER LIST, INDEP. OF CORESIZE	F5G01670
	07774	164	KEYS	SYN	MSIZE−4 CONSTANTS TO RELATE PROGRAM T0 TABLES	F5G01680
		165			ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLL0WED 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 0F 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 0F INST TABLE	F5G01790
	00144	176	LCLST	EQU	100 LENGTH 0F 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 DIAGN0STIC 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 T0 TRANSFER NEXT	F5G01920
		192			PROGRAM 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			SUCC, PRED, BBB, AND STAG. THEY ARE ENTERED WITH THE WANTED	F5G01970
		197			ITEM IN THE AC. THEY LOAD IX1 FOR IMMEDIATE REFERENCE TO 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 00062 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 05061	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 NI1I	F5G02180
00050	0 00215 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 07555	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 00215 0 00000	229		HTR	0,0,PREDL N(S)	F5G02300
00063	0 00000 0 00000	230		HTR	SET NIL)	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 07337	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 00112 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 06442	244		HTR	BBB A IN AOOR.,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 STJ=S 1TEM NO.,X	F5G02490
00102	0 34000 2 00002	249		CAS	2,2 IS N .X 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	F5G02830
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 TRIEO 5 TIMES GO TO DIAGNOSTIC	F5G02880
		288			NOTE ON TH1S 150 STOP. THIS DRUM CHECKSUM STOP MAY BE CAUSED	F5G02890
		289			BY MACHINE ERROR.	F5G02900
		290			IF IX 2 CONTAINS TABLE 1S 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 OF 306 OCTAL. IF SO, SOURCE PROGRAM, RATH-	F5G02970
		297			ER THAN MACHINE ERROR IS LIKELY. THE ERROR COULD BE	F5G02980
		298			A. TRANSFER TO A NON-EXECUTABLE INSTRUCTIOR.	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 TARECOUNT	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(0)	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 ANO 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 ANO	F5G03220
00173	0 40000 0 00315	322		ADD	ONEA STORE	F5G03230
00174	0 60100 0 00305	323		STO	SEV1 IT	F5G03240
00175	0 50000 0 00314	324		CLA	ZERO FORM	F5G03250
00176	0 56000 2 00001	325		LDQ	1,2 ((N(0)/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)+(N0N(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 SUBROUTINL	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	F5G03810
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 C0MPUTE 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 00036 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 T0 EXTRACT INST. TYPE	F5G04190
		419			CONSTANTS OF S4	F5G04200
00330	0 00000 0 01224	420	S4K1		CMTL	F5G04210
00331	0 00000 0 00017	421	S4K2	HTR	15 NO OF TAGS PER RECORD.	F5G04220
00332	0 00000 0 05216	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 CONSTANTS FOR EXTRACTING	F5G04260
00335	−300000000000	426	LK3	OCT	−300000000000 1ST 2,3 BITS OF WORD RESPT.	F5G04270
		427			CONSTANTS FOR MATCHING SUBROUTINE	F5G04280
00336	+000000777777	428	S5K1	OCT	777777 PHI,EMPTINESS	F5G04290
00337	+000000777775	429	S5K2	OCT	777775 CONSTANT USEO TO TEST FOR REAL TAGS	F5G04300
00340	−000000000000	430	S5K3	OCT	−0 -0	F5G04310
00341	0 00000 0 00002	431	S5K4	HTR	2 +2	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 OF SB	F5G04410
00352	+001000000000	441	SBK1	OCT	+001000000000 CONST. USED TO GENERATE SX BIT. AD.	F5G04420
00353	0 00000 0 77777	442	SBK2	HTR	−1 USED TO EXTRACT ADOR.	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 T0 EXTRACT TAG.	F5G04480
00361	+177777777777	448	FK4	OCT	177777777777 CONST TO TEST FOR OPAQUE REG.	F5G04490
00362	0 00000 0 00062	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 E0.	F5G04530
00366	−377776000000	453	XK4	OCT	−377776000000 E,HASH SYMBOL,1N 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 1N 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	F5G04850
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. (HASH 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 EOUND 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 T1X,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 NEX, 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 LOAOED BY THE S5 ROUTINE	F5G05260
		526			FOR PERMUTATION OF INDEX REGISTER ASSIGIMENT THROUGHOUT AN	F5G05270
		527			ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST.	F5G05280
		528			OPTIMIZED MATCH TO 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,OR. 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 CORRESPON0ENT OF IR1 EQUAL TO EN1,2,3.	F5G05350
00462	0 00000 0 00000	535	IN1		INDEX OF CORRES OF 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 OF EN1	F5G05390
00466	0 00000 0 00000	539	EN5		INOEX OF CORRE8 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 OF 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 INOICATOR FORMED HERE.	F5G05770
00527	0 00000 0 00000	577	SFV2		RETURN INOEX.	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) IADDR.)	F5G05930
00547	0 00000 0 00000	593	FV104		WORD HAVING REGION. NO.	F5G05940
00550	0 00000 0 00000	594	LPIND		+ OR - IF IT ISNT OF 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 LO0P 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			PEGISTER 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			OF 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 X07,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 NEAR X33	F5G06450
		645			PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN	F5G06460
		646			ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AN0 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 WHFN 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 0F 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 0F 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			ROUTINES 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 LOOP 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,COUNT TO 3,N=N+1	F5G06940
00641	3 77442 2 00662	694	S123	TXH	S127,2,−S5K1 HAVE WE L0OKEO 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 LOOK1NG 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 COMPLETED	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 06444	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.	F5G07610
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			LPLST ITEM WHICH IS A BB ANO 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 TO 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 INDEX	F5G08290
01035	0 50000 1 04777	829	S306	CLA	LPLST+S3P1,1 GET LOOP LIST QUANTITY	F5G08300
01036	0 60100 0 00444	830		STO	S3V5 QUANTITY.	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 06443	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 06443	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 P0SSIBLY,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.	F5G09260
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 POSITION	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 0CCURRED,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 C0UNT 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			THE 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	P5G10250
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	FS010540
01367	0 50000 0 00341	1054		CLA	S5K4 ARE THERE 2 OR 3 REAL	F5G10550
01370	0 04000 0 01403	1055		TLQ	S530 UNASSNEO 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	NO	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 CIIRM)	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 SUBROUT1NE 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 06447	1120		CLA	BBB+5,1 GET AND	F5G11210
01471	−0 73400 2 00000	1121		PDX	0,2 STORE THE	F5G11220
01472	0 50000 2 05061	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 06443	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 D0WN 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 06444	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 AND ACT1,2,3 FROM EXIT	F5G11480
		1148			CONDITIONS AND ACTIVITY BITS IPREFIX, 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 06447	1155		CLA	BBB+5,1 GET AND	F5G11560
01531	−0 73400 2 00000	1156		PDX	0,2 STORE	F5G11570
01532	0 50000 2 05061	1157		CLA	REG,2 REGION	F5G11580
01533	0 60100 0 00502	1158		STO	SAV3 WORD.	F5G11590
01534	0 50000 1 06443	1159		CLA	BBB+1,1 GET AND STORE THE	F5G11600
01535	0 60100 0 00500	1160		STO	SAV1 WORD HAVING PERMUTATION NOS.	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 06444	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 NO	F5G11980
01573	0 50000 1 04777	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 05000	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 06443	1209		CLA	BBB+1,1 PRED.	F5G12100
01607	0 60100 0 00515	1210		STO	SBV5 STORE PERMUTATION NOS.	F5G12110
01610	0 50000 1 06442	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 07337	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 07337	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. 0F WORD IN	F5G12380
01643	0 22100 0 00371	1238		DVP	XK9 STAG ANO 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 05061	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	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 SUBR0UTINE 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 DURING WHICH INDEX 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 IS	F5G12620
		1262			ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS	F5G12630
		1263			TURNED OFF. SD IS USED AS A SUBR0UTINE, 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 ACTIVE 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 04777	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	F5G12620
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 N0,	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 04777	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 N0,	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 0F OCT. I.R.	F5G13110
01737	0 50000 1 06447	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 06443	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 INO=X OF BB	F5G13260
01756	0 50000 1 06447	1326		CLA	BBB+5,1 GET	F5G13270
01757	−0 73400 1 00000	1327		PDX	0,1 REGION	F5G13280
01760	0 50000 1 05061	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 06443	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	S02	TIX	SD3,2,1 COUNT TO 3	F5G13430
01777	0 07400 4 00004	1343		TSX	4,4	F5G13440
02000	−0 50000 1 06444	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 06447	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 REGI0N	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 06443	1362		ORS	BBB+1,1 WO THIS IR	F5G13630
02023	0 02000 0 02007	1363		TRA	SD5	F5G13640
		1364			THE SF SUBROUTINE FORMS APPRQPRIATE AC1,2,3 ENTRY WHEN AN	F5G13650
		1365			ACTIVE INSTRUCT1ON 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 NEW 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 06447	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 TO 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 05061	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 05061	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 05061	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 05061	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 FI SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR	F5G14110
		1411			A GIVEN BB AND STORES IT 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 06447	1417		CLA	BBB+5,1 STORE REGION	F5G14180
02103	0 60100 0 00547	1418		STO	FV104 NO. WORD.	F5G14190
02104	−0 50000 1 06442	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 06442	1424		CLA	BBB,1	F5G14250
02112	0 62100 0 00541	1425		STA	FV8	F5G14260
02113	0 50000 0 00540	1426		CLA	FV7 IS THIS 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 OF PRED	F5G14310
02120	0 50000 1 07337	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 06447	1452		CLA	BBB+5,1	F5G14530
02144	0 60100 0 00547	1453		STO	FV104	F5G14540
02145	−0 50000 1 06442	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 06442	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 NO.	F5G14650
02160	0 07400 4 00044	1465	F32	TSX	SE6,4 GET INDEX OF SUCC.	F5G14660
02161	0 50000 1 07555	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.	F5G14830
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 07774	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 05061	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 04775	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 04775	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 06447	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 05061	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 04777	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 06447	1543		CLA	BBB+5,1 GET	F5G15440
02277	−0 73400 1 00000	1544		PDX	0,1 REGION	F5G15450
02300	0 50000 1 05061	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 05000	1552		STA	LPLST+S3P1+1,1 IN TR. REG. QUANTITY	F5G15530
02310	2 00001 1 02311	1553	F13	TIX	F24,1,1 GENERATE INOEX OF LAST THING TO BE MOVED UP.	F5G15540
02311	−0 53400 2 02270	1554	F24	LXD	F11,2 GET IN0EX TO GENERATE INDEX OF 1ST THING	F5G15550
02312	−0 63400 1 02412	1555	F43	SXD	F18,1 STORE IN0EX 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 04777	1564		STO	LPLST+S3P1,1 REGION MARKER	F5G15650
02324	0 50000 0 00532	1565		CLA	FV1	F5G15660
02325	0 62100 1 04777	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 06447	1570		CLA	BBB+5,1 GET THE	F5G15710
02332	−0 73400 1 00000	1571		PDX	0,1 REGION	F5G15720
02333	0 50000 1 05061	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 04777	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 00036 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	P002	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 1ST LPLST	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 04777	1617	F26	CLA	LPLST+S3P1,2 MOVE THIS	F5G16180
02411	0 60100 1 04777	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. OF 1ST ELEMENT.	F5G16230
02416	0 50000 0 00323	1623		CLA	S3K1 STORE THE END	F5G16240
02417	0 60100 1 05000	1624		STO	LPLST+S3P1+1,1 LO0P 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 BB	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 06447	1634		CLA	BBB+5,1 REGION	F5G16350
02432	−0 73400 1 00000	1635		PDX	0,1 NO.	F5G16360
02433	0 50000 1 05061	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 II 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 04777	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 06447	1667		CLA	BBB+5,1 IS THIS BB IN	F5G16660
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 05061	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 04777	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 04777	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 04777	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	F5G16880
02517	0 50000 1 06447	1688		CLA	BBB+5,1 GET	F5G16890
02520	−0 73400 2 00000	1689		PDX	0,2 REGION WORD.	F5G16900
02521	0 50000 2 05061	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 04777	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 04777	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 ENO	F5G17040
02537	0 60100 0 04776	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 04777	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 05000	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	F5G17180
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 04777	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 04777	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 04777	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 04777	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 04777	1742		STO	LPLST+S3P1,2 REGION MARKR	F5G17430
02606	0 50000 0 00532	1743		CLA	FV1 WITH	F5G17440
02607	0 62100 2 04777	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 04777	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 04777	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 00036 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 05061	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	F5G16050
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 00034 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	F5G16680
03001	0 34000 0 00376	1868		CAS	XK15	F5G18690
03002	0 02000 0 03004	1869		TRA	1L19	F5G16700
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 (HASH	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 CORRESPONOENCE	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 1NOICATORS.	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.	F5G18970
03036	2 00001 1 03027	1897	L10	TIX	L11,1,1 COUNT TO 3,N=N+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			THE SECONO 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 0F 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 IS 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 05061	1977		ORS	STAG,1 STORE IN STAG.	F5G19780
03155	0 07400 4 02024	1978	X14	TSX	SF,4 CHECK IF AN ACT1VE 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-STORE 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 05061	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 00034 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 04775	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 04776	2013		CLA	LPLST+S3P1−1,1	F5G20140
03221	0 07400 4 00070	2014		TSX	SE,4 GET ADDR. OF	F5G20150
03222	0 50000 1 06442	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 07337	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 07337	2029		ORS	PRED,1 TABLE.	F5G20300
03241	−0 53400 4 00440	2030		LXD	S3V4,4	F5G20310
03242	−0 60200 4 04776	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. REQU. 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 LOOP 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 06444	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 00034 1 03353	2080		TXH	X26,1,S3P1−2 TRANSFER IF THIS IS 1ST IN LPLST	F5G20810
03324	0 50000 1 04775	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 06442	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 06447	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 06447	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 05061	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 06443	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 06443	2150		STD	BBB+1,1 NOS.	F5G21510
03432	0 50000 1 06447	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 06447	2179	X206	CLA	BBB+5,1	F5G21800
03467	−0 73400 1 00000	2180		PDX	0,1	F5G21810
03470	0 50000 1 05061	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 EMRTYNESS	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 LOOP LIST	F5G21910
03502	−0 63400 2 00600	2191		SXD	XV12,2	F5G21920
03503	0 50000 2 04777	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 05000	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 06442	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 06442	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 07337	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 07337	2229	X110	CLA	PRED,1 SET SIGN	F5G22300
03551	−0 76000 0 00003	2230		SSM	OF PRED.	F5G22310
03552	0 60100 1 07337	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 06442	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 06442	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 07555	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 07555	2260	X113	CLA	SUCC,1 SET SIGN	F5G22610
03610	−0 76000 0 00003	2261		SSM	OF SUCC+ ENTRY	F5G22620
03611	0 60100 1 07555	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 04777	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 06447	2274		CLA	BBB+5,1 THE	F5G22750
03626	−0 73400 1 00000	2275		PDX	0,1 REGION	F5G22760
03627	−0 50000 1 05061	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 05061	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 06447	2291		STD	BBB+5,1 NEW REGION NO.	F5G22920
03647	0 50000 1 06447	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 PREVIOUSLY	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 06447	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 04777	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 06447	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 06447	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 06447	2323		CLA	BBB+5,1	F5G23240
03707	−0 73400 1 00000	2324		PDX	0,1	F5G23250
03710	0 50000 1 05061	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 05061	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 04776	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 06447	2352		CLA	BBB+5,1 IN	F5G23530
03744	−0 73400 4 00000	2353		PDX	0,4 THE	F5G23540
03745	0 56000 4 05061	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 04776	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 04775	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	F5G23820
04001	0 50000 1 04776	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 06443	2384		CLA	BBB+1,1 GET TO STORE	F5G23850
04004	0 60100 0 00575	2385		STO	XV9 PREM. NO.	F5G23860
04005	0 50000 1 06442	2386		CLA	BBB,1 GET PRED. NO.	F5G23870
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 07337	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 07337	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 06447	2422		CLA	BBB+5,1 B.B.	F5G24230
04052	−0 73400 1 00000	2423		PDX	0,1 GET	F5G24240
04053	0 50000 1 05061	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 06443	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 06440	2458		STD	BBB−2,1 PERM. NOS.	F5G24590
04116	0 63000 1 06440	2459		STP	BBB−2,1 AND ACTIVE INDICATORS	F5G24600
04117	0 50000 1 06444	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 OF 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 05164	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 06444	2479		CLA	BBB+2,1 SAME TAG IN THIS P0SITION	F5G24800
04143	−0 32000 0 00336	2480		ANA	S5K1	F5G24810
04144	0 34000 0 00611	2481		CAS	XV21	F5G24820
04145	0 02000 0 05144	2482		TRA	W0	F5G24830
04146	0 02000 0 04213	2483		TRA	X44 YES.	F5G24840
04147	0 02000 0 05144	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 06444	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 ENTRAKCE-	F5G25110
04200	0 60100 1 06444	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 04775	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 04776	2548		CLA	LPLST+S3P1−1,1 GET	F5G25490
04246	0 07400 4 00070	2549		TSX	SE,4 BB NO.	F5G25500
04247	0 50000 1 06443	2550		CLA	BBB+1,1 STORE THE	F5G25510
04250	0 60100 0 00575	2551		STO	XV9 PERM. NOS.	F5G25520
04251	0 50000 1 06447	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 05061	2557		ORS	REG,4	F5G25580
04257	0 50000 1 06442	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 07337	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 07337	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 05061	2599		CAL	REG,2	F5G26000
04331	−0 32000 0 00404	2600		ANA	XK22	F5G26010
04332	0 60200 2 05061	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 05061	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 C0UNT 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 OF 1ST BB IN LOOP.	F5G26410
04402	−0 63400 1 00574	2641		SXD	XV8,1 STORE INDEX OF 1ST BB	F5G26420
04403	0 50000 1 06442	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 07337	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	F5G26480
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 0F 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 05061	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 07337	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	F5G26780
04447	0 50000 2 06443	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	F5G26840
04455	−0 73400 1 00000	2684		PDX	0,1 I.R.	F5G26850
04456	−0 50000 2 06444	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			F0LLOWS 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 LOCATI0N 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. FOLLOWING	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 05061	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 05061	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 05061	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 05061	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 04775	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	F5G26020
04652	0 50000 1 06442	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 06447	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 05061	2836		CLA	REG,2 GET REGION	F5G28280
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 00111 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 06442	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 07337	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 00112 4 04771	2889		TXI	QP5,4,BBBL	F5G28820
04771	3 00000 4 04773	2890	QP5	TXH	QP7,4,−	F5G28830
04772	0 60100 1 07337	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
	05061	2899	REG	BES	FP1 SPACE FOR REGION WORDS	F5G28920
	02712	2900	SPACE	EQU	MSIZE−5−REG STORAGE SPACE LEFT	F5G28930
	00062	2901	STAGL	SYN	STL	F5G28940
05061	0 00000 0 00000	2902	STAG	HTR	−	F5G28950
05062	0 00000 0 00000	2903		HTR	−	F5G28960
05063	0 00000 0 00000	2904		HTR	−	F5G28960
05064	0 00000 0 00000	2905		HTR	−	F5G28960
05065	0 00000 0 00000	2906		HTR	−	F5G28960
05066	0 00000 0 00000	2907		HTR	−	F5G28960
05067	0 00000 0 00000	2908		HTR	−	F5G28960
05070	0 00000 0 00000	2909		HTR	−	F5G28960
05071	0 00000 0 00000	2910		HTR	−	F5G28960
05072	0 00000 0 00000	2911		HTR	−	F5G28960
05073	0 00000 0 00000	2912		HTR	−	F5G28960
05074	0 00000 0 00000	2913		HTR	−	F5G28960
05075	0 00000 0 00000	2914		HTR	−	F5G28960
05076	0 00000 0 00000	2915		HTR	−	F5G28960
05077	0 00000 0 00000	2916		HTR	−	F5G28960
05100	0 00000 0 00000	2917		HTR	−	F5G28960
05101	0 00000 0 00000	2918		HTR	−	F5G28960
05102	0 00000 0 00000	2919		HTR	−	F5G28960
05103	0 00000 0 00000	2920		HTR	−	F5G28960
05104	0 00000 0 00000	2921		HTR	−	F5G28960
05105	0 00000 0 00000	2922		HTR	−	F5G28960
05106	0 00000 0 00000	2923		HTR	−	F5G28960
05107	0 00000 0 00000	2924		HTR	−	F5G28960
05110	0 00000 0 00000	2925		HTR	−	F5G28960
05111	0 00000 0 00000	2926		HTR	−	F5G28960
05112	0 00000 0 00000	2927		HTR	−	F5G28960
05113	0 00000 0 00000	2928		HTR	−	F5G28960
05114	0 00000 0 00000	2929		HTR	−	F5G28960
05115	0 00000 0 00000	2930		HTR	−	F5G28960
05116	0 00000 0 00000	2931		HTR	−	F5G28960
05117	0 00000 0 00000	2932		HTR	−	F5G28960
05120	0 00000 0 00000	2933		HTR	−	F5G28960
05121	0 00000 0 00000	2934		HTR	−	F5G28960
05122	0 00000 0 00000	2935		HTR	−	F5G28960
05123	0 00000 0 00000	2936		HTR	−	F5G28960
05124	0 00000 0 00000	2937		HTR	−	F5G28960
05125	0 00000 0 00000	2938		HTR	−	F5G28960
05126	0 00000 0 00000	2939		HTR	−	F5G28960
05127	0 00000 0 00000	2940		HTR	−	F5G28960
05130	0 00000 0 00000	2941		HTR	−	F5G28960
05131	0 00000 0 00000	2942		HTR	−	F5G28960
05132	0 00000 0 00000	2943		HTR	−	F5G28960
05133	0 00000 0 00000	2944		HTR	−	F5G28960
05134	0 00000 0 00000	2945		HTR	−	F5G28960
05135	0 00000 0 00000	2946		HTR	−	F5G28960
05136	0 00000 0 00000	2947		HTR	−	F5G28960
05137	0 00000 0 00000	2948		HTR	−	F5G28960
05140	0 00000 0 00000	2949		HTR	−	F5G28960
05141	0 00000 0 00000	2950		HTR	−	F5G28960
05142	0 00000 0 00000	2951		HTR	−	F5G28960
05143	0 00000 0 00000	2952		HTR	−	F5G28960
05144	0 50000 1 06444	2953	W0	CLA	BBB+2,1	F5G28980
05145	0 77100 0 00022	2954		ARS	18	F5G28990
05146	0 40200 0 00611	2955		SUB	XV21	F5G29000
05147	0 10000 0 04112	2956		TZE	X42	F5G29010
05150	0 53400 1 00342	2957		LXA	S5K5,1	F5G29020
05151	−0 53400 4 00601	2958		LXD	XV13,4	F5G29030
05152	0 50000 4 06444	2959	W1	CLA	BBB+2,4	F5G29040
05153	0 76500 0 00022	2960		LRS	18	F5G29050
05154	0 40200 0 00611	2961		SUB	XV21	F5G29060
05155	0 10000 0 05165	2962		TZE	W3	F5G29070
05156	0 50000 0 00314	2963		CLA	ZERO	F5G29080
05157	0 76300 0 00022	2964		LLS	18	F5G29090
05160	0 40200 0 00611	2965		SUB	XV21	F5G29100
05161	0 10000 0 05165	2966		TZE	W3	F5G29110
05162	1 77777 4 05163	2967		TXI	W2,4,−1	F5G29120
05163	2 00001 1 05152	2968	W2	TIX	W1,1,1	F5G29130
05164	−3 00000 0 04111	2969		TXL	X36,−,−	F5G29140
05165	−0 63400 2 05171	2970	W3	SXD	W4,2	F5G29150
05166	−0 53400 1 05164	2971		LXD	W2+1,1	F5G29160
05167	0 07400 4 01566	2972		TSX	SB,4	F5G29170
05170	−0 53400 2 05171	2973		LXD	W4,2	F5G29180
05171	−3 00000 0 04111	2974	W4	TXL	X36,−,−	F5G29190
	05172	2975		BSS	PTL1 SPACE FOR PATCHES	F5G29200
	01224	2976	CMTL	SYN	9SPACE/20/1515	F5G29210
	05216	2977	CMTAG	BSS	CMTL	F5G29220
	00112	2978	BBBL	SYN	6*SPACE/20/6	F5G29230
	06442	2979	BBB	BSS	BBBL*6+1	F5G29240
	07337	2980	PRED	SYN	BBB+BBBL*6+1	F5G29250
	00435	2981	SPAC1	EQU	MSIZE−4−PRED	F5G29260
	00215	2982	PREDL	EQU	SPAC1/2−1	F5G29270
	07337	2983		BSS	PREDL+1	F5G29280
	00215	2984	SUCCL	SYN	PREDL	F5G29290
	07555	2985	SUCC	BSS	SUCCL+1	F5G29300
		2986			EDITOR RECORD NO. 76	F5G29310
		2987			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G29320
		2988			DIAGNOSTIC CALLER FOLLOWS	F5G29340
		2989			PART 1B	F5G29350
		2990			INITIALIZATI0N AND PRED LIMIT FOR FAST COMPILING.	F5G29360
	07337	2991		ORG	PRED	F5G29370
07337	0 53400 1 00362	2992	I	LXA	FK5,1 CLEAR REG. TABLE	F5G29380
07340	0 76000 0 00012	2993		DCT	CLEAR DIVIDE CHECK LIGHT	F5G29390
07341	0 76100 0 00000	2994		NOP	IN CASE DIVIDE CHECK IS ON	F5G29400
07342	0 50000 0 00314	2995		CLA	ZERO	F5G29410
07343	0 60100 1 05061	2996	I11	STO	REG,1	F5G29420
07344	2 00001 1 07343	2997		TIX	I11,1,1	F5G29430
07345	0 76000 0 00140	2998		PSE	96 TURN OFF SENSE LIGHTS.	F5G29440
07346	0 50000 0 07777	2999		CLA	KEYS+3 INITIALIZE	F5G29441
07347	0 60100 0 00042	3000		STO	STAGP+5 DRUM ADDR. OF STAG	F5G29450
07350	0 50000 0 07775	3001		CLA	KEYS+1	F5G29460
07351	0 60100 0 00065	3002		STO	PREDP+5	F5G29470
07352	0 50000 0 07776	3003		CLA	KEYS+2	F5G29480
07353	0 60100 0 00077	3004		STO	BBBP+5 DRUM ADDR. OF BB.B.	F5G29490
07354	0 50000 0 07774	3005		CLA	KEYS	F5G29500
07355	0 76700 0 00022	3006		ALS	18	F5G29510
07356	0 60100 0 00075	3007		STO	BBBP+3 N0. OF BASIC BLOCKS.	F5G29520
07357	0 40200 0 00316	3008		SUB	ONED	F5G29530
07360	0 07400 4 00070	3009		TSX	SE,4	F5G29540
07361	0 50000 1 06442	3010		CLA	BBB,1	F5G29550
07362	0 62200 0 00051	3011		STD	SUCCP+3 LOCATION OF LAST SUCC	F5G29560
07363	0 76700 0 00022	3012		ALS	18	F5G29570
07364	0 62200 0 00063	3013		STD	PREDP+3 LOCATION OF LAST PRED	F5G29580
07365	0 50000 1 06443	3014		CLA	BBB+1,1	F5G29590
07366	−0 32000 0 00326	3015		ANA	S3K4	F5G29600
07367	0 60100 0 00453	3016		STO	S4V3	F5G29610
07370	0 76500 0 00043	3017		LRS	35	F5G29620
07371	0 22100 0 00331	3018		DVP	S4K2 COMPUTE	F5G29630
07372	−0 60000 0 07450	3019		STQ	IV1 THE	F5G29640
07373	0 10000 0 07375	3020		TZE	I1 LOCATION	F5G29650
07374	0 50000 0 00315	3021		CLA	ONEA WHICH A TAG	F5G29660
07375	0 40000 0 07450	3022	I1	ADD	IV1 WOULD HAVE	F5G29670
07376	0 76500 0 00043	3023		LRS	35 IF IT	F5G29680
07377	0 20000 0 00331	3024		MPY	S4K2 WERE FIRST IN	F5G29690
07400	0 76300 0 00043	3025		LLS	35 THE NEXT RECORD.	F5G29700
07401	0 60100 0 00452	3026		STO	S4V2	F5G29710
07402	0 60100 0 00451	3027		STO	S4V1	F5G29720
07403	0 50000 1 06443	3028		CLA	BBB+1,1 DETERMINE NO.	F5G29730
07404	−0 32000 0 00326	3029		ANA	S3K4 OF ENTRIES IN	F5G29740
07405	0 76500 0 00043	3030		LRS	35 STAG.	F5G29750
07406	0 22100 0 00371	3031		DVP	XK9	F5G29760
07407	−0 60000 0 07450	3032		STQ	IV1	F5G29770
07410	0 10000 0 07412	3033		TZE	I10	F5G29780
07411	0 50000 0 00315	3034		CLA	ONEA	F5G29790
07412	0 40000 0 07450	3035	I10	ADD	IV1 INITIALIZE	F5G29800
07413	0 76700 0 00022	3036		ALS	18	F5G29810
07414	0 60100 0 00040	3037		STO	STAGP+3 OF ENTRIES IN STAG	F5G29820
07415	0 76500 0 00043	3038		LRS	35 COMPUTE	F5G29830
07416	0 22100 0 00037	3039		DVP	STAGP+2 THE	F5G29840
07417	0 10000 0 07421	3040		TZE	I3 DRUM	F5G29850
07420	0 50000 0 00315	3041		CLA	ONEA ADDR.	F5G29860
07421	−0 60000 0 07451	3042	I3	STQ	IV2 FOLLOWING	F5G29870
07422	0 40000 0 07451	3043		ADD	IV2 THE	F5G29880
07423	0 76700 0 00022	3044		ALS	18	F5G29890
07424	0 40000 0 00040	3045		ADD	STAGP+3 STAG	F5G29900
07425	0 77100 0 00022	3046		ARS	18	F5G29910
07426	0 40000 0 00042	3047		ADD	STAGP+5 TABLE.	F5G29920
07427	0 56000 0 07453	3048		LDQ	IK1	F5G29930
07430	0 04000 0 07447	3049		TLQ	I7	F5G29940
07431	0 50000 0 00036	3050	I6	CLA	STAGP+1	F5G29950
07432	0 34000 0 00040	3051		CAS	STAGP+3 ARE WE THRU STORING 0 S	F5G29960
07433	0 02000 0 07435	3052		TRA	I4	F5G29970
07434	0 02000 0 07454	3053		TRA	I9	F5G29980
07435	0 60100 0 00035	3054	I4	STO	STAGP SET N(0) TO OLD N(1)	F5G29990
07436	0 40000 0 00037	3055		ADD	STAGP+2 SET N(1) TO MIN (OLD N(1)+N.,	F5G30000
07437	0 56000 0 00040	3056		LDQ	STAGP+3 N(L)	F5G30010
07440	−0 60000 0 00036	3057		STQ	STAGP+1	F5G30020
07441	0 04000 0 07443	3058		TLQ	I5	F5G30030
07442	0 60100 0 00036	3059		STO	STAGP+1	F5G30040
07443	0 50000 0 00277	3060	I5	CLA	SEK	F5G30050
07444	0 53400 2 07452	3061		LXA	IK2,2	F5G30060
07445	0 07400 4 00166	3062		TSX	SE26,4 STORE BLOCK OF 0S	F5G30070
07446	0 02000 0 07431	3063		TRA	I6	F5G30080
07447	0 07400 4 00004	3064	I7	TSX	4,4 TO DIAGNOSTIC	F5G30090
07450	0 00000 0 00000	3065	IV1			F5G30100
07451	0 00000 0 00000	3066	IV2			F5G30110
07452	0 00000 0 77744	3067	IK2		1−STAGP	F5G30120
07453	0 00000 0 17777	3068	IK1	HTR	8191	F5G30130
07454	0 07400 4 01133	3069	I9	TSX	S4,4	F5G30140
07455	0 77200 0 00204	3070		REW	INSTTP REWIND THE COMPILED INST TAPE	F5G30150
07456	0 50000 0 07775	3071		CLA	KEYS+1	F5G30160
07457	−0 10000 0 04740	3072		TNZ	LPLST−1	F5G30170
07460	0 60100 0 00550	3073		STO	LPIND	F5G30180
07461	0 60100 0 04740	3074		STO	LPLST−1	F5G30190
07462	0 60100 0 04741	3075		STO	LPLST	F5G30200
07463	0 50000 0 00323	3076		CLA	S3K1	F5G30210
07464	0 60100 0 04742	3077		STO	LPLST+1	F5G30220
07465	−0 53400 4 00317	3078		LXD	S1K2,4 SKIP DIAGNOSTICS	F5G30230
07466	0 76200 0 00221	3079	I9A	RTB	1 AND ANTIPINGPONG	F5G30240
07467	2 00001 4 07466	3080		TIX	I9A,4,1 SIX RECORDS	F5G30250
07470	0 02000 0 02706	3081		TRA	F75	F5G30260
		3082			EDITOR RECORD NO. 78	F5G30270
		3083			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G30280
		3084			DIAGNOSTIC CALLER F0LL0WS	F5G30300
		3085			PART 1C	F5G30310
		3086			SUCC LIMIT FOR FAST COMPILING	F5G30320
	04740	3087		ORG	LPLST−1	F5G30330
04740	−0 53400 1 00103	3088	QS	LXD	SE21+2,1	F5G30340
04741	−3 00000 1 02177	3089		TXL	F,1,0	F5G30350
04742	−0 53400 4 00051	3090		LXD	SUCCP+3,4	F5G30360
04743	0 50000 0 00075	3091		CLA	BBBP+3	F5G30370
04744	−3 00000 4 02177	3092	QS0	TXL	F,4,0	F5G30380
04745	1 77777 4 04746	3093		TXI	QS1,4,−1	F5G30390
04746	−0 63400 4 00104	3094	QS1	SXD	SE21+3,4	F5G30400
04747	0 40200 0 00316	3095		SUB	ONED	F5G30410
04750	0 07400 4 00070	3096		TSX	SE,4	F5G30420
04751	−0 53400 4 00072	3097		LXD	BBBP,4	F5G30430
04752	1 00111 4 04753	3098		TXI	QS2,4,BBBL−1	F5G30440
04753	−0 63400 4 04764	3099	QS2	SXD	QS4,4	F5G30450
04754	−0 63400 4 04766	3100		SXD	QS5,4	F5G30460
04755	−0 53400 4 06442	3101		LXD	BBB,4	F5G30470
04756	−0 63400 4 04772	3102		SXD	QS8,4	F5G30480
04757	−0 53400 4 00104	3103		LXD	SE21+3,4	F5G30490
04760	−0 75400 4 00000	3104	QS3	PXD	0,4	F5G30500
04761	0 07400 4 00044	3105		TSX	SE6,4	F5G30510
04762	0 50200 1 07555	3106		CLS	SUCC,1	F5G30520
04763	0 73400 4 00000	3107		PAX	0,4	F5G30530
04764	3 00000 4 04767	3108	QS4	TXH	QS6,4,−	F5G30540
04765	1 00112 4 04766	3109		TXI	QS5,4,BBBL	F5G30550
04766	3 00000 4 04770	3110	QS5	TXH	QS7,4,−	F5G30560
04767	0 60100 1 07555	3111	QS6	STO	SUCC,1	F5G30570
04770	−0 53400 4 00306	3112	QS7	LXD	SEV2,4	F5G30580
04771	0 50000 0 00072	3113		CLA	BBBP	F5G30590
04772	−3 00000 4 04744	3114	QS8	TXL	QS0,4,−	F5G30600
04773	1 77777 4 04760	3115		TXI	QS3,4,−1	F5G30610
		3116			EDITOR RECORD NO. 80	F5G30620
		3117			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G30630
		3118			DIAGNOSTIC CALLER FOLLOWS	F5G30650
		3119			PART 1D	F5G30660
		3120			PRED UNDO FROM FAST COMPILING	F5G30670
	04740	3121		ORG	LPLST−1	F5G30680
04740	−0 53400 1 00103	3122	QPU	LXD	SE21+2,1	F5G30690
04741	−3 00000 1 00030	3123		TXL	R,1,0	F5G30700
04742	−0 53400 4 00063	3124		LXD	PREDP+3,4	F5G30710
04743	0 50000 0 00075	3125		CLA	BBBP+3	F5G30720
04744	−3 00000 4 00030	3126	QPU0	TXL	R,4,0	F5G30730
04745	1 77777 4 04746	3127		TXI	QPU1,4,−1	F5G30740
04746	−0 63400 4 00104	3128	QPU1	SXD	SE21+3,4	F5G30750
04747	0 40200 0 00316	3129		SUB	ONED	F5G30760
04750	0 07400 4 00070	3130		TSX	SE,4	F5G30770
04751	−0 53400 4 00072	3131		LXD	BBBP,4	F5G30780
04752	1 00111 4 04753	3132		TXI	QPU2,4,BBBL−1	F5G30790
04753	−0 63400 4 04764	3133	QPU2	SXD	QPU4,4	F5G30800
04754	−0 63400 4 04766	3134		SXD	QPU5,4	F5G30810
04755	0 53400 4 06442	3135		LXA	BBB,4	F5G30820
04756	−0 63400 4 04772	3136		SXD	QPU8,4	F5G30830
04757	−0 53400 4 00104	3137		LXD	SE21+3,4	F5G30840
04760	−0 75400 4 00000	3138	QPU3	PXD	0,4	F5G30850
04761	0 07400 4 00056	3139		TSX	SE5+1,4	F5G30860
04762	0 50200 1 07337	3140		CLS	PRED,1	F5G30870
04763	0 73400 4 00000	3141		PAX	0,4	F5G30880
04764	3 00000 4 04767	3142	QPU4	TXH	QPU6,4,−	F5G30890
04765	1 00112 4 04766	3143		TXI	QPU5,4,BBBL	F5G30900
04766	3 00000 4 04770	3144	QPU5	TXH	QPU7,4,−	F5G30910
04767	0 60100 1 07337	3145	QPU6	STO	PRED,1	F5G30920
04770	−0 53400 4 00306	3146	QPU7	LXD	SEV2,4	F5G30930
04771	0 50000 0 00072	3147		CLA	BBBP	F5G30940
04772	−3 00000 4 04744	3148	QPU8	TXL	QPU0,4,−	F5G30950
04773	1 77777 4 04760	3149		TXI	QPU3,4,−1	F5G30960
		3150			EDITOR RECORD NO. 82	F5G30970
		3151			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G30980
		3152			DIAGN0STIC CALLER FOLLOWS	F5G31000
		3153			PART 1E	F5G31010
		3154			SUCC UNDO FROM FAST COMPILING	F5G31020
	04740	3155		ORG	LPLST−1	F5G31030
04740	−0 53400 1 00103	3156	QSU	LXD	SE21+2,1	F5G31040
04741	−3 00000 1 02177	3157		TXL	F,1,0	F5G31050
04742	−0 53400 4 00051	3158		LXD	SUCCP+3,4	F5G31060
04743	0 50000 0 00075	3159		CLA	BBBP+3	F5G31070
04744	−3 00000 4 02177	3160	QSU0	TXL	F,4,0	F5G31080
04745	1 77777 4 04746	3161		TXI	QSU1,4,−1	F5G31090
04746	−0 63400 4 00104	3162	QSU1	SXD	SE21+3,4	F5G31100
04747	0 40200 0 00316	3163		SUB	ONED	F5G31110
04750	0 07400 4 00070	3164		TSX	SE,4	F5G31120
04751	−0 53400 4 00072	3165		LXD	BBBP,4	F5G31130
04752	1 00111 4 04753	3166		TXI	QSU2,4,BBBL−1	F5G31140
04753	−0 63400 4 04764	3167	QSU2	SXD	QSU4,4	F5G31150
04754	−0 63400 4 04766	3168		SXD	QSU5,4	F5G31160
04755	−0 53400 4 06442	3169		LXD	BBB,4	F5G31170
04756	−0 63400 4 04772	3170		SXD	QSU8,4	F5G31180
04757	−0 53400 4 00104	3171		LXD	SE21+3,4	F5G31190
04760	−0 75400 4 00000	3172	QSU3	PXD	0,4	F5G31200
04761	0 07400 4 00044	3173		TSX	SE6,4	F5G31210
04762	0 50200 1 07555	3174		CLS	SUCC,1	F5G31220
04763	0 73400 4 00000	3175		PAX	0,4	F5G31230
04764	3 00000 4 04767	3176	QSU4	TXH	QSU6,4,−	F5G31240
04765	1 00112 4 04766	3177		TXI	QSU5,4,BBBL	F5G31250
04766	3 00000 4 04770	3178	QSU5	TXH	QSU7,4,−	F5G31260
04767	0 60100 1 07555	3179	QSU6	STO	SUCC,1	F5G31270
04770	−0 53400 4 00306	3180	QSU7	LXD	SEV2,4	F5G31280
04771	0 50000 0 00072	3181		CLA	BBBP	F5G31290
04772	−3 00000 4 04744	3182	QSU8	TXL	QSU0,4,−	F5G31300
04773	1 77777 4 04760	3183		TXI	QSU3,4,−1	F5G31310
		3184			EDITOR RECORO NO. 84	F5G31320
		3185			FOR CONTROL CARD INFORMATION, SEE ENO OF ASSEMBLY.	F5G31330
		3186			DIAGNOSTIC CALLER FOLLOWS	F5G31350
		3187			PART 2	F5G31360
		3188			PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE	F5G31370
	00317	3189		ORG	C	F5G31380
00317	0 00000 0 77777	3190	BLV09	HTR	−1 BB NO. OF LAST GO TO N	F5G31390
00320	0 76200 0 00223	3191	BL12	RTB	BLT FIND THE END OF FILE PRECEEDING BB LIST	F5G31400
00321	0 70000 0 00655	3192	BL13	CPY	BLIST	F5G31410
00322	0 02000 0 00320	3193		TRA	BL12	F5G31420
00323	0 02000 0 00325	3194		TRA	BL6	F5G31430
00324	0 02000 0 00320	3195		TRA	BL12	F5G31440
00325	−0 53400 2 00332	3196	BL6	LXD	CON1,2	F5G31450
00326	0 76200 0 00223	3197	BL5	RTB	BLT	F5G31460
00327	0 53400 1 00332	3198		LXA	CON1,1	F5G31470
00330	0 70000 1 00655	3199	BL1	CPY	BLIST,1 COPY BB LIST INTO CS	F5G31480
00331	1 77777 1 00330	3200		TXI	BL1,1,−1	F5G31490
00332	0 00005 0 00000	3201	CON1		0,0,5	F5G31500
00333	0 76600 0 00333	3202		IOD		F5G31510
00334	−0 76000 0 00012	3203		RTT		F5G31520
00335	0 02000 0 00435	3204		TRA	BL4 ERROR	F5G31530
00336	0 50000 0 07774	3205		CLA	KEYS O.K. COMPUTE TEST CONSTANT	F5G31540
00337	0 40200 0 00552	3206		SUB	TWO	F5G31550
00340	0 60100 0 00566	3207		STO	BLV3	F5G31560
00341	0 50000 0 00314	3208		CLA	ZERO	F5G31570
00342	0 07400 4 00032	3209		TSX	SE4,4 STAG WORD	F5G31580
00343	0 50000 1 05061	3210		CLA	STAG,1	F5G31590
00344	0 60100 0 00602	3211		STO	BLV07	F5G31600
00345	0 50000 0 00564	3212		CLA	BLV1	F5G31610
00346	0 56000 0 00566	3213	BL3	LDQ	BLV3 HAVE WE ALREADY DEALT WITH LAST BB	F5G31620
00347	0 04000 0 00541	3214		TLQ	BL06 YES , GO TO READ IN NEXT PART	F5G31630
00350	0 40000 0 00315	3215		ADD	ONEA	F5G31640
00351	0 07400 4 00067	3216		TSX	SE1,4 GET UNDEX OF NEXT BB	F5G31650
00352	0 50000 1 06443	3217		CLA	BBB+1,1 STORE THE NO. OF THE	F5G31660
00353	−0 32000 0 00554	3218		ANA	RMSK FIRST TAG IN	F5G31670
00354	0 60100 0 00571	3219		STO	BLV6 NEXT BB.	F5G31680
00355	0 50000 1 06442	3220		CLA	BBB,1	F5G31690
00356	−0 32000 0 00553	3221		ANA	2AMSK	F5G31700
00357	0 60100 0 00570	3222		STO	BLV5 STORE AWAY NO. OF U1ST PRED IN NEXT BB.	F5G31710
00360	0 50000 0 00564	3223		CLA	BLV1	F5G31720
00361	0 07400 4 00067	3224		TSX	SE1,4	F5G31730
00362	−0 53400 2 00565	3225		LXD	BLV2,2	F5G31740
00363	0 50000 2 00655	3226		CLA	BLIST,2 REPLACE LAST WORD OF BBB ENTRY	F5G31750
00364	0 60100 1 06447	3227		STO	BBB+5,1 BY THE LOCATION FROM THE BB LIST.	F5G31760
00365	1 77777 2 00366	3228	BL2	TXI	BL2+1,2,−1	F5G31770
00366	−0 63400 2 00565	3229		SXD	BLV2,2	F5G31780
00367	0 50000 1 06443	3230		CLA	BBB+1,1 STORE PERMUTATION NOS.	F5G31790
00370	0 60100 0 00572	3231		STO	BLV7	F5G31800
00371	−0 63400 1 00567	3232		SXD	BLV4,1	F5G31810
00372	0 50000 1 06443	3233		CLA	BBB+1,1 GET	F5G31820
00373	−0 32000 0 00554	3234		ANA	RMSK OF 1ST TAG IN BB	F5G31830
00374	0 40200 0 00571	3235		SUB	BLV6 FORM COUNT OF NO. OF TAGS	F5G31840
00375	0 40200 0 00315	3236		SUB	ONEA	F5G31850
00376	0 73400 2 00000	3237		PAX	0,2 COUNT OF NO. OF TAGS INTO 2.	F5G31860
00377	−0 63400 2 00600	3238		SXD	BLV05,2 STORE COUNT OF NO. OF TAGS	F5G31870
00400	0 50000 1 06442	3239		CLA	BBB,1	F5G31880
00401	−0 32000 0 00553	3240		ANA	2AMSK	F5G31890
00402	0 60100 0 00575	3241	BL9	STO	BLV01	F5G31900
00403	0 34000 0 00570	3242		CAS	BLV5 IS THIS PRED IN SAME BB	F5G31910
00404	0 02000 0 00406	3243		TRA	BL7 YES	F5G31920
00405	0 02000 0 00440	3244		TRA	BL01 NO	F5G31930
00406	0 07400 4 00055	3245	BL7	TSX	SE5,4 YES, GET INDEX OF PRED	F5G31940
00407	−0 50000 0 00555	3246		CAL	SALM	F5G31950
00410	0 60200 0 00574	3247		SLW	BLV9	F5G31960
00411	−0 50000 1 07337	3248		CAL	PRED,1	F5G31970
00412	0 60200 0 00573	3249		SLW	BLV8 STODRE OLD PRED WORD	F5G31980
00413	0 32000 0 00574	3250		ANS	BLV9 INT INITIALIZE NEW PRED WORD	F5G31990
00414	−0 53400 2 00550	3251		LXD	2LD3,2 SET COUNT TO 3	F5G32000
00415	−0 50000 0 00572	3252	BL8	CAL	BLV7 PLACE THE	F5G32010
00416	0 77100 2 00003	3253		ARS	3,2 PERMUTATION NO.	F5G32020
00417	0 77100 2 00003	3254		ARS	3,2 IN REGISTER 4	F5G32030
00420	−0 32000 0 00550	3255		ANA	2LD3	F5G32040
00421	−0 73400 4 00000	3256		PDX	0,4	F5G32050
00422	−0 50000 0 00573	3257		CAL	BLV8 PERMUTE	F5G32060
00423	0 76700 2 00003	3258		ALS	3,2 THE LXD	F5G32070
00424	−0 32000 0 00557	3259		ANA	BITMK AND SXD	F5G32080
00425	0 77100 4 00003	3260		ARS	3,4 BITS IN THE	F5G32090
00426	−0 60200 0 00574	3261		ORS	BLV9 PRED ENTRY	F5G32100
00427	2 00001 2 00415	3262		TIX	BL8,2,1 COUNT TO 3	F5G32110
00430	0 50000 0 00574	3263		CLA	BLV9	F5G32120
00431	0 60100 1 07337	3264		STO	PRED,1 STORE PRED ENTRY WITH PERMUTED BITS	F5G32130
00432	0 50000 0 00575	3265		CLA	BLV01 ARRANGE TO CONSIDER	F5G32140
00433	0 40000 0 00315	3266		ADD	ONEA NEXT PRED ENTRY	F5G32150
00434	0 02000 0 00402	3267		TRA	BL9	F5G32160
00435	0 76400 0 00203	3268	BL4	BST	BLT TAPE CHECK BACKSPACE TAPE	F5G32170
00436	2 00001 2 00326	3269		TIX	BL5,2,1 IRY 5 TIMES	F5G32180
00437	0 07400 4 00004	3270		TSX	4,4 THEN START DIAGNOSTIC.	F5G32190
00440	−0 53400 1 00600	3271	BL01	LXD	BLV05,1	F5G32200
00441	−2 00001 1 00504	3272	BL03	TNX	BL04,1,1 IS THERE ANOTHER TAG IN BB	F5G32210
00442	−0 53400 2 00577	3273		LXD	BLV04,2 YES	F5G32220
00443	2 00001 2 00466	3274		TIX	BL02,2,1 HAVE WE EXHAUSTED STAG WORO	F5G32230
00444	−0 63400 1 00600	3275		SXD	BLV05,1 YES, STORE COUNT OF NO. OF TAGS	F5G32240
00445	−0 53400 2 00603	3276		LXD	BLV08,2 STORE	F5G32250
00446	0 50000 0 00602	3277		CLA	BLV07 OLD PERMUTED	F5G32260
00447	0 60100 2 05061	3278		STO	STAG,2 STAG WORD	F5G32270
00450	0 50000 0 00314	3279		CLA	ZERO	F5G32280
00451	0 60100 0 00602	3280		STO	BLV07	F5G32290
00452	0 50000 0 00576	3281		CLA	BLV03 GET	F5G32300
00453	0 07400 4 00032	3282		TSX	SE4,4 NEXT	F5G32310
00454	−0 63400 1 00603	3283		SXD	BLV08,1 STAG	F5G32320
00455	−0 50000 1 05061	3284		CAL	STAG,1 WORD	F5G32330
00456	0 60200 0 00601	3285		SLW	BLV06 STORL STAG WORD	F5G32340
00457	−0 32000 0 00560	3286		ANA	LMSK AND	F5G32350
00460	0 60200 0 00602	3287		SLW	BLV07 INITIALIZE NEW STAG WORD	F5G32360
00461	0 50000 0 00576	3288		CLA	BLV03 INCREASE THE	F5G32370
00462	0 40000 0 00315	3289		ADD	ONEA STAG WORD NO.	F5G32380
00463	0 60100 0 00576	3290		STO	BLV03	F5G32390
00464	−0 53400 2 00551	3291		LXD	2LD9,2 RESET COUNT TO 9	F5G32400
00465	−0 53400 1 00600	3292		LXD	BLV05,1 RESTORE 1	F5G32410
00466	−0 63400 2 00577	3293	BL02	SXD	BLV04,2 STORE COUNTER	F5G32420
00467	−0 50000 0 00601	3294		CAL	BLV06	F5G32430
00470	0 76700 0 00002	3295		ALS	2	F5G32440
00471	0 60200 0 00601	3296		SLW	BLV06	F5G32450
00472	−0 32000 0 00550	3297		ANA	2LD3 EXTRACT TAG	F5G32460
00473	−0 73400 4 00000	3298		PDX	0,4	F5G32470
00474	−0 50000 0 00572	3299		CAL	BLV7 PERMUTE	F5G32480
00475	0 77100 4 00003	3300		ARS	3,4	F5G32490
00476	0 77100 4 00003	3301		ARS	3,4 THE	F5G32500
00477	−0 32000 0 00550	3302		ANA	2LD3 TAG	F5G32510
00500	0 77100 2 00012	3303		ARS	10,2	F5G32520
00501	0 77100 2 00012	3304		ARS	10,2	F5G32530
00502	−0 60200 0 00602	3305		ORS	BLV07 FORM NEW TAG WORD	F5G32540
00503	0 02000 0 00441	3306		TRA	BL03	F5G32550
00504	−0 53400 1 00567	3307	BL04	LXD	BLV4,1 GET INDEX OF BB	F5G32560
00505	0 50000 1 06442	3308		CLA	BBB,1 IS	F5G32570
00506	0 77100 0 00041	3309		ARS	33 THIS	F5G32580
00507	0 40000 0 00315	3310		ADD	ONEA A GO N	F5G32590
00510	−0 10000 0 00516	3311		TNZ	BL07 NO	F5G32600
00511	0 50000 0 00317	3312		CLA	BLV09 YES, STORE BB NO.	F5G32610
00512	0 76700 0 00022	3313		ALS	18 OF LAST	F5G32620
00513	0 62200 1 06443	3314		STD	BBB+1,1 GO N ENCOUNTERED	F5G32630
00514	0 50000 0 00564	3315		CLA	BLV1 STORE PRESENT	F5G32640
00515	0 60100 0 00317	3316		STO	BLV09 BB NO.	F5G32650
00516	−0 53400 2 00550	3317	BL07	LXD	2LD3,2 SET COUNT TO 3	F5G32660
00517	−0 50000 0 00572	3318	BL09	CAL	BLV7	F5G32670
00520	0 77100 2 00003	3319		ARS	3,2	F5G32680
00521	0 77100 2 00003	3320		ARS	3,2 GET PERMUTATION NO.	F5G32690
00522	−0 32000 0 00550	3321		ANA	2LD3	F5G32700
00523	−0 73400 4 00000	3322		PDX	0,4	F5G32710
00524	0 50000 1 06444	3323		CLA	BBB+2,1 PERMUTE	F5G32720
00525	0 60100 4 00564	3324		STO	EXCO,4 ENTRANCE-EXIT REQUIREMENTS	F5G32730
00526	1 77777 1 00527	3325	BL08	TXI	BL08+1,1,−1	F5G32740
00527	2 00001 2 00517	3326		TIX	BL09,2,1 COUNT TO 3	F5G32750
00530	−0 53400 2 00550	3327		LXD	2LD3,2 PLACE PERMUTED	F5G32760
00531	0 50000 2 00564	3328	BL10	CLA	EXCO,2 ENTRANCE-EXIT COND.	F5G32770
00532	0 60100 1 06441	3329		STO	BBB−1,1 BACK IN BB	F5G32780
00533	1 77777 1 00534	3330	BL11	TXI	BL11+1,1,−1	F5G32790
00534	2 00001 2 00531	3331		TIX	BL10,2,1 COUNT TO 3	F5G32800
00535	0 50000 0 00564	3332	BL05	CLA	BLV1 PREPARE TO DEAL WITH	F5G32810
00536	0 40000 0 00315	3333		ADD	ONEA WITH NEXT BB	F5G32820
00537	0 60100 0 00564	3334		STO	BLV1	F5G32830
00540	0 02000 0 00346	3335		TRA	BL3	F5G32840
00541	0 07400 4 00067	3336	BL06	TSX	SE1,4 PUT EDN MARK INTO THE DUMMEY BB	F5G32850
00542	0 50000 0 00556	3337		CLA	EN2MK	F5G32860
00543	0 60100 1 06447	3338		STO	BBB+5,1	F5G32870
00544	0 50000 0 00602	3339		CLA	BLV07 STORE	F5G32880
00545	−0 53400 2 00603	3340		LXD	BLV08,2 OLD	F5G32890
00546	0 60100 2 05061	3341		STO	STAG,2 STAG WORD	F5G32900
00547	0 02000 0 00030	3342		TRA	R READ NEXT PART	F5G32910
00550	0 00003 0 00000	3343	2LD3		0,0,3	F5G32920
00551	0 00011 0 00000	3344	2LD9		0,0,9	F5G32930
00552	0 00000 0 00002	3345	TWO		2	F5G32940
00553	0 00000 0 77777	3346	2AMSK		−1	F5G32950
00554	0 00000 7 77777	3347	RMSK		−1,−1	F5G32960
00555	−377770077777	3348	SALM	OCT	−377770077777 MS MASK OUT SXD AND LXD PRED REULTS	F5G32970
00556	3 77777 7 77777	3349	EN2MK	PTH	−1,−1,−1 PUT IN LOCATION OF DUMMEY BB	F5G32980
00557	0 00004 4 00000	3350	BITMK		0,4,4	F5G32990
00560	−377777000000	3351	LMSK	OCT	−377777000000	F5G33000
	00564	3352	EXCO	BES	3 THE ENTRANCE-EXIT CONDITIONS PERMUTED	F5G33010
00564	0 00000 0 00000	3353	BLV1		BBNO.	F5G33020
00565	0 00000 0 00000	3354	BLV2		INDEX IN BB LIST	F5G33030
00566	0 00000 0 00000	3355	BLV3		TEST CONSTANT	F5G33040
00567	0 00000 0 00000	3356	BLV4		INDEX OF BB	F5G33050
00570	0 00000 0 00000	3357	BLV5		1ST PRED NO. IN NEXT BB	F5G33060
00571	0 00000 0 00000	3358	BLV6		UST TAG IN NEXT BB,	F5G33070
00572	0 00000 0 00000	3359	BLV7		PERMUTTTION NOS.	F5G33080
00573	0 00000 0 00000	3360	BLV8		OLD PRED ENTRY	F5G33090
00574	0 00000 0 00000	3361	BLV9		NEW, PERMUTED, PRED ENTRY	F5G33100
00575	0 00000 0 00000	3362	BLV01		CURRENT PRED. NO.	F5G33110
00576	0 00000 0 00000	3363	BLV03		NO. OF STAG WORD, INITIALLY ZERO	F5G33120
00577	0 00000 0 00000	3364	BLV04		COUNTER TO 9, INITIALLY ZERO	F5G33130
00600	0 00000 0 00000	3365	BLV05		COUNT OF NO. OF TAGS IN BB	F5G33140
00601	0 00000 0 00000	3366	BLV06		STAG WORD	F5G33150
00602	0 00000 0 00000	3367	BLV07		NEW, PERMUTED , STAG WORD	F5G33160
00603	0 00000 0 00000	3368	BLV08		INDEX OF OLD STAG WORD	F5G33170
	00604	3369		BSS	PTL2 SPACE FOR PATCHES	F5G33180
00655	0 00000 0 00000	3370	BLIST			F5G33190
		3371			EDITOR RECORD NO. 86	F5G33200
		3372			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G33210
		3373			DIAGNOSTIC CALLER FOLLOWS	F5G33230
		3374			PART 3	F5G33240
		3375			CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO	F5G33250
		3376			N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE.	F5G33260
		3377			C CONTAINS THE BB NO. OF THE GO TO N	F5G33270
	00320	3378		ORG	C+1	F5G33280
00320	0 76200 0 00222	3379	START	RTB	ACTPE LOCATE THE END OF FILE BEFORE ASSIGN CONSTANT	F5G33290
00321	0 70000 0 00573	3380		CPY	ACV12	F5G33300
00322	0 02000 0 00320	3381		TRA	START	F5G33310
00323	0 02000 0 00330	3382		TRA	RDIN	F5G33320
00324	0 02000 0 00320	3383		TRA	START	F5G33330
00325	0 76400 0 00202	3384	ERR	BST	ACTPE BACKSPACE TAPE TO TRY AGAIN	F5G33340
00326	2 00001 2 00331	3385		TIX	AAC2,2,1 COUNT TO 5	F5G33350
00327	0 07400 4 00004	3386		TSX	4,4 TO DIAGNOSTIC	F5G33360
00330	−0 53400 2 00555	3387	RDIN	LXD	3LD3,2	F5G33370
00331	0 76200 0 00222	3388	AAC2	RTB	ACTPE	F5G33380
00332	0 70000 0 00573	3389		CPY	ACV12 COPY THE EXTRA WORD	F5G33390
00333	0 53400 1 00314	3390		LXA	ZERO,1	F5G33400
00334	0 70000 1 00647	3391	AAC1	CPY	ASCON,1	F5G33410
00335	1 77777 1 00334	3392		TXI	AAC1,1,−1	F5G33420
00336	0 07400 4 00004	3393		TSX	4,4	F5G33430
00337	0 76600 0 00333	3394		IOD	CHECK REDUNDANCY BITS	F5G33440
00340	−0 76000 0 00012	3395		RTT		F5G33450
00341	0 02000 0 00325	3396		TRA	ERR THERR IS AN ERROR	F5G33460
00342	0 76200 0 00222	3397		RTB	ACTPE	F5G33470
00343	0 76200 0 00222	3398		RTB	ACTPE	F5G33480
00344	0 76200 0 00222	3399		RTB	ACTPE	F5G33490
00345	0 76600 0 00333	3400		IOD		F5G33500
00346	−0 63400 1 00527	3401		SXD	ACV1,1 O.K. STORE RECORD OF NO. OF ENTRIES	F5G33510
00347	−0 63400 1 00541	3402		SXD	AC22,1	F5G33520
00350	0 50000 0 00317	3403		CLA	C	F5G33530
00351	0 56000 0 00560	3404	AC15	LDQ	ACK1 GET BB NO. OF 1ST GO TO N	F5G33540
00352	0 04000 0 00520	3405		TLQ	AC16 WAS THIS THE LAST GO TO N	F5G33550
00353	0 40000 0 00315	3406		ADD	ONEA NO	F5G33560
00354	0 07400 4 00067	3407		TSX	SE1,4	F5G33570
00355	−0 50000 1 06442	3408		CAL	BBB,1 FIND NO. OF 1ST SUCC IN NEXT BB	F5G33580
00356	0 77100 0 00022	3409		ARS	18	F5G33590
00357	0 62100 0 00562	3410		STA	ACV3	F5G33600
00360	0 50000 0 00317	3411		CLA	C	F5G33610
00361	0 07400 4 00067	3412		TSX	SE1,4	F5G33620
00362	0 50000 0 00314	3413		CLA	ZERO CLEAR THE COMBINED SXDD CASE	F5G33630
00363	0 60100 0 00563	3414		STO	ACV4	F5G33640
00364	−0 50000 1 06442	3415		CAL	BBB,1 FIND THE NO. OF 1ST SUCC IN THIS BB	F5G33650
00365	0 77100 0 00022	3416		ARS	18	F5G33660
00366	−0 32000 0 00552	3417		ANA	AMSK	F5G33670
00367	0 60100 0 00561	3418	AC13	STO	ACV2	F5G33680
00370	0 34000 0 00562	3419		CAS	ACV3 IS THIS SUCC IN SAME BB	F5G33690
00371	0 02000 0 00373	3420		TRA	AAC3 YES	F5G33700
00372	0 02000 0 00506	3421		TRA	AC14 NO	F5G33710
00373	0 76700 0 00022	3422	AAC3	ALS	18	F5G33720
00374	0 07400 4 00044	3423		TSX	SE6,4 YES GET BB NO. OF SUCESSOR	F5G33730
00375	−0 50000 1 07555	3424		CAL	SUCC,1	F5G33740
00376	0 62100 0 00567	3425		STA	ACV8	F5G33750
00377	0 40000 0 00315	3426		ADD	ONEA FIN NO. OF 1ST PRED ENTRY NEXT BBB	F5G33760
00400	0 07400 4 00067	3427		TSX	SE1,4	F5G33770
00401	0 50000 1 06442	3428		CLA	BBB,1	F5G33780
00402	0 62100 0 00565	3429		STA	ACV6	F5G33790
00403	0 50000 0 00314	3430		CLA	ZERO	F5G33800
00404	0 60100 0 00571	3431		STO	ACV10 PRESET COMBINED LXD CASE TO 0	F5G33810
00405	0 50000 0 00567	3432		CLA	ACV8 FIND NO. OF 1ST PRED IN THIS BB	F5G33820
00406	0 07400 4 00067	3433		TSX	SE1,4	F5G33830
00407	−0 50000 1 06442	3434		CAL	BBB,1	F5G33840
00410	−0 32000 0 00552	3435		ANA	AMSK	F5G33850
00411	0 62100 0 00570	3436		STA	ACV9 RECORD 1ST PRED FOR FUTURE USE	F5G33860
00412	0 62100 0 00566	3437	AC7	STA	ACV7	F5G33870
00413	0 34000 0 00565	3438		CAS	ACV6 IS THIS PRED IN SAME BB	F5G33880
00414	0 02000 0 00416	3439		TRA	AC4	F5G33890
00415	0 02000 0 00444	3440		TRA	AC8 NO	F5G33900
00416	0 07400 4 00055	3441	AC4	TSX	SE5,4 IS THIS THE TRANSFER FROM CURRENTLY CONSIDERE	F5G33910
00417	−0 50000 1 07337	3442		CAL	PRED,1 ED GO TO NP	F5G33920
00420	−0 32000 0 00552	3443		ANA	AMSK	F5G33930
00421	0 40200 0 00317	3444		SUB	C	F5G33940
00422	−0 10000 0 00427	3445		TNZ	AC5 IF NOT SKIP THE ORING OF SXD CASE	F5G33950
00423	−0 50000 1 07337	3446		CAL	PRED,1 OR THE SXD CASE INTO COMBINED SXD CASE	F5G33960
00424	−0 60200 0 00563	3447		ORS	ACV4	F5G33970
00425	−0 50000 0 00554	3448		CAL	NTMSK	F5G33980
00426	0 32000 1 07337	3449		ANS	PRED,1	F5G33990
00427	−0 50000 1 07337	3450	AC5	CAL	PRED,1 IS THE BB WHICH IS PREDECESSOR	F5G34000
00430	−0 63400 1 00572	3451		SXD	ACV11,1 A GO TO N	F5G34010
00431	0 07400 4 00067	3452		TSX	SE1,4	F5G34020
00432	0 50000 1 06442	3453		CLA	BBB,1	F5G34030
00433	0 77100 0 00041	3454		ARS	33	F5G34040
00434	0 40000 0 00315	3455		ADD	ONEA	F5G34050
00435	−0 10000 0 00441	3456		TNZ	AC6	F5G34060
00436	−0 53400 2 00572	3457		LXD	ACV11,2 YES, OR THE LXD XCASE INTO THE	F5G34070
00437	−0 50000 2 07337	3458		CAL	PRED,2 COMBINED LXD CASE	F5G34080
00440	−0 60200 0 00571	3459		ORS	ACV10	F5G34090
00441	0 50000 0 00566	3460	AC6	CLA	ACV7	F5G34100
00442	0 40000 0 00315	3461		ADD	ONEA	F5G34110
00443	0 02000 0 00412	3462		TRA	AC7	F5G34120
00444	−0 50000 0 00571	3463	AC8	CAL	ACV10 IS THE COMBINED LXD CASE ZERO	F5G34130
00445	−0 32000 0 00553	3464		ANA	TMSK	F5G34140
00446	0 10000 0 00503	3465		TZE	AC12	F5G34150
00447	0 50000 0 00567	3466		CLA	ACV8 NO, HAS THIS BB ALREADY BEEN	F5G34160
00450	0 07400 4 00067	3467		TSX	SE1,4 CONSIDERED	F5G34170
00451	0 56000 1 06442	3468		LDQ	BBB,1 AS A SUCCESSOR TO	F5G34180
00452	−0 77300 0 00024	3469		RQL	20 A GO TO N	F5G34190
00453	0 16200 0 00455	3470		TQP	AC18	F5G34200
00454	0 02000 0 00503	3471		TRA	AC12	F5G34210
00455	0 50000 0 00557	3472	AC18	CLA	LT1	F5G34220
00456	−0 60200 1 06442	3473		ORS	BBB,1 RECORD THAT THIS BB HAS BEEN CONSIDERED AS	F5G34230
00457	0 50000 0 00570	3474		CLA	ACV9 ECT..PE PREPARE TO SCAN ALL PRED ENTRYS	F5G34240
00460	0 62100 0 00566	3475	AC11	STA	ACV7	F5G34250
00461	0 34000 0 00565	3476		CAS	ACV6 IS THIS PRED IN SAME BB	F5G34260
00462	0 02000 0 00464	3477		TRA	AC9	F5G34270
00463	0 02000 0 00531	3478		TRA	AC19 NO	F5G34280
00464	0 07400 4 00055	3479	AC9	TSX	SE5,4 DETERMINE IF THE BB WHICH	F5G34290
00465	−0 63400 1 00572	3480		SXD	ACV11,1 IS THE PREDECESSOR OF THIS ONE	F5G34300
00466	0 50000 1 07337	3481		CLA	PRED,1 IS A GO TO N	F5G34310
00467	0 07400 4 00067	3482		TSX	SE1,4	F5G34320
00470	0 50000 1 06442	3483		CLA	BBB,1	F5G34330
00471	0 77100 0 00041	3484		ARS	33	F5G34340
00472	0 40000 0 00315	3485		ADD	ONEA	F5G34350
00473	−0 10000 0 00500	3486		TNZ	AC10	F5G34360
00474	−0 53400 2 00572	3487		LXD	ACV11,2 IT IS A GO TO N	F5G34370
00475	0 50000 0 00571	3488		CLA	ACV10 REPLACE LXD CASE BY THE	F5G34380
00476	−0 32000 0 00553	3489		ANA	TMSK COMBINED LXD CASE	F5G34390
00477	−0 60200 2 07337	3490		ORS	PRED,2	F5G34400
00500	0 50000 0 00566	3491	AC10	CLA	ACV7 ARRANGE TO TREAT NEXT PRED ENTRY	F5G34410
00501	0 40000 0 00315	3492		ADD	ONEA	F5G34420
00502	0 02000 0 00460	3493		TRA	AC11	F5G34430
00503	0 50000 0 00561	3494	AC12	CLA	ACV2	F5G34440
00504	0 40000 0 00315	3495		ADD	ONEA ARRANGE TO TREAT NEXT SUCC ENTRY	F5G34450
00505	0 02000 0 00367	3496		TRA	AC13	F5G34460
00506	0 50000 0 00317	3497	AC14	CLA	C STORE COMBINED	F5G34470
00507	0 07400 4 00067	3498		TSX	SE1,4 SXDCASE IN PREFIX	F5G34480
00510	0 50000 0 00563	3499		CLA	ACV4 OF 2ED WORD OF BBB ENTRY	F5G34490
00511	0 76700 0 00017	3500		ALS	15	F5G34500
00512	0 63000 1 06443	3501		STP	BBB+1,1	F5G34510
00513	0 50000 1 06443	3502		CLA	BBB+1,1 GET NEXT GO TO N NUMBER	F5G34520
00514	0 77100 0 00022	3503		ARS	18	F5G34530
00515	−0 32000 0 00552	3504		ANA	AMSK	F5G34540
00516	0 60100 0 00317	3505		STO	C	F5G34550
00517	0 02000 0 00351	3506		TRA	AC15	F5G34560
00520	0 76600 0 00222	3507	AC16	WTB	ACTPE WRITE ASSIGN CONSTANTS BACK ON TAPE	F5G34570
00521	0 53400 1 00314	3508		LXA	ZERO,1	F5G34580
00522	−0 53400 2 00527	3509		LXD	ACV1,2	F5G34590
00523	0 70000 0 00573	3510		CPY	ACV12	F5G34600
00524	−3 00000 2 00030	3511		TXL	R,2,0 IF NO ASSIGN CONST., GO TO NEXT PART	F5G34610
00525	0 70000 1 00647	3512	AC17	CPY	ASCON,1	F5G34620
00526	1 77777 1 00527	3513		TXI	ACV1,1,−1	F5G34630
00527	−3 00000 1 00030	3514	ACV1	TXL	R,1,SET	F5G34640
00530	0 02000 0 00525	3515		TRA	AC17	F5G34650
00531	0 50000 0 00567	3516	AC19	CLA	ACV8	F5G34660
00532	0 07400 4 00067	3517		TSX	SE1,4	F5G34670
00533	0 53400 2 00314	3518		LXA	ZERO,2	F5G34680
00534	0 50000 1 06447	3519	AC25	CLA	BBB+5,1	F5G34690
00535	0 34000 2 00647	3520	AC23	CAS	ASCON,2 IS THIS ASSIGN CONST. EQUAL TO THE	F5G34700
00536	0 02000 0 00540	3521		TRA	AC20 LOCATION OF 1ST INST IN BB	F5G34710
00537	0 02000 0 00543	3522		TRA	AC24 YES	F5G34720
00540	−3 00000 2 00542	3523	AC20	TXL	AC21,2,0	F5G34730
00541	−3 00000 2 00503	3524	AC22	TXL	AC12,2,SET	F5G34740
00542	1 77777 2 00535	3525	AC21	TXI	AC23,2,−1	F5G34750
00543	−0 50000 0 00571	3526	AC24	CAL	ACV10 REPLACE ASSIGN CONST. BY NEW	F5G34760
00544	−0 32000 0 00553	3527		ANA	TMSK LOCATION SYMBOL	F5G34770
00545	0 77100 0 00005	3528		ARS	5	F5G34780
00546	0 40000 0 00567	3529		ADD	ACV8	F5G34790
00547	0 36100 0 00556	3530		ACL	LXDC	F5G34800
00550	0 60200 2 00647	3531		SLW	ASCON,2	F5G34810
00551	0 02000 0 00534	3532		TRA	AC25	F5G34820
00552	0 00000 0 77777	3533	AMSK	HTR	−1	F5G34830
00553	0 00000 7 00000	3534	TMSK	HTR	0,−1	F5G34840
00554	−377770777777	3535	NTMSK	OCT	777770777777	F5G34850
00555	0 00005 0 00000	3536	3LD3		0,0,5	F5G34860
00556	+150000000000	3537	LXDC	OCT	150000000000 THE NUMBER IDENTIFYING THE LOC. OF AN LXD	F5G34870
00557	0 00000 1 00000	3538	LT1	HTR	0,1	F5G34880
00560	+000000077776	3539	ACK1	OCT	77776	F5G34890
00561	0 00000 0 00000	3540	ACV2		NO. OF CURRENT SUCC. OF THIS BB IN ADDR.	F5G34900
00562	0 00000 0 00000	3541	ACV3		NO. OF 1ST SUCC IN NEXT BB IN ADDR	F5G34910
00563	0 00000 0 00000	3542	ACV4		COMBINED SXD CASE LAST OCTAL DIGIT IN DECR	F5G34920
00564	0 00000 0 00000	3543	ACV5		NO. OF CURRENT PRED IN ADDR	F5G34930
00565	0 00000 0 00000	3544	ACV6		NO. OF 1ST PRED IN NEXT BB IN ADDR	F5G34940
00566	0 00000 0 00000	3545	ACV7		MO. OF CURRENT PRED IN THIS BB IN ADDR	F5G34950
00567	0 00000 0 00000	3546	ACV8		BB NO. OF SUCCESSOR IN ADDR	F5G34960
00570	0 00000 0 00000	3547	ACV9		NO. OF 1ST PRED IN THE SUCCESSOR BB IN ADDR	F5G34970
00571	0 00000 0 00000	3548	ACV10		THE COMBINED LXD CASE	F5G34980
00572	0 00000 0 00000	3549	ACV11		TEMP. STORE FOR PRED TABLE INDEX AT AC5	F5G34990
00573	0 00000 0 00000	3550	ACV12		EXTRA WORD FROM ASSIGN CONSTANT RECORD	F5G35000
00574	0 00000 0 00000	3551	ACV13		TEMP. STORE FOR LOCATION OF 1ST INST. IN BB	F5G35010
	00647	3552	ASCON	BES	PTL3 SPACE FOR PATCHES	F5G35020
		3553			EDITOR RECORD NO. 88	F5G35030
		3554			FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.	F5G35040
		3555			DIAGNOSTIC CALLER FOLLOWS	F5G35060
		3556			PART 4	F5G35070
		3557			COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS	F5G35080
		3558			CONSTANTS	F5G35090
	00317	3559		ORG	C	F5G35100
00317	0 00000 0 00003	3560	L3		3	F5G35110
00320	0 00000 0 00004	3561	L4		4	F5G35120
00321	0 00000 0 00007	3562	L7		7	F5G35130
00322	0 00000 0 00023	3563	L19		19	F5G35140
	00316	3564	LD1	SYN	ONED	F5G35150
00323	0 00002 0 00000	3565	LD2		0,0,2	F5G35160
00324	0 00003 0 00000	3566	LD3		0,0,3	F5G35170
00325	0 00004 0 00000	3567	LD4		0,0,4	F5G35180
00326	0 00007 0 00000	3568	LD7		0,0,7	F5G35190
00327	0 00010 0 00000	3569	LD8		0,0,8	F5G35200
00330	0 00011 0 00000	3570	LD9		0,0,9	F5G35210
00331	0 00014 0 00000	3571	LD12		0,0,12	F5G35220
00332	0 00000 7 00000	3572	LT7		0,7	F5G35230
00333	0 00000 0 77754	3573	LM20		−20	F5G35240
00334	0 00000 0 77774	3574	LM4		−4	F5G35250
00335	0 77777 0 00000	3575	DECMK		0,0,−1	F5G35260
00336	3 77777 7 77777	3576	ENDMK	PTH	−1,−1,−1	F5G35270
00337	0 00000 0 77777	3577	ADDMK		−1	F5G35280
00340	+000000777770	3578	STMSK	OCT	777770	F5G35290
00341	0 00007 7 00000	3579	PRMK		0,7,7	F5G35300
00342	0 00000 7 77777	3580	TAGMK		−1,−1	F5G35310
00343	−3 77777 0 00000	3581	LFTMSK	MTH	0,0,−1	F5G35320
	00343	3582	SMK3	SYN	LFTMSK	F5G35330
00344	634743000000	3583	LTPL	BCD	1TPL000	F5G35340
00345	436747000000	3584	LLXP	BCD	1LXP000	F5G35350
00346	627045000000	3585	LSYN	BCD	1SYN000	F5G35360
00347	242524000000	3586	LDED	BCD	1DED000	F5G35370
00350	635121000000	3587	LTRA	BCD	1TRA000	F5G35380
00351	636267000000	3588	LTSX	BCD	1TSX000	F5G35390
00352	226262000000	3589	LBSS	BCD	1BSS000 BSS IN BCD.	F5G35391
00353	+076225000000	3590	LPSE	OCT	76225000000	F5G35400
00354	+060000000000	3591	GSYM	OCT	60000000000 GARBAGE SYMBLE	F5G35410
00355	0 00004 0 00004	3592	T4SYM	PZE	4,0,4 TAG 4 AND RELATIVE PART 4	F5G35420
00356	0 00000 0 00004	3593			4	F5G35430
00357	0 00000 0 00002	3594			2	F5G35440
00360	0 00000 0 00001	3595			1	F5G35450
00361	0 00000 0 00000	3596	VSTAG	PZE	0	F5G35460
00362	0 00000 0 00001	3597	RECSC	HTR	RECNO ADDR, NO. OF RECS. BROUGHT IN , C.I.T.	F5G35470
00363	0 02000 0 00000	3598	LCOUT	TRA	− TRANSFER TO EXIT ROUTINE	F5G35480
00364	+035121000000	3599		OCT	35121000000 TRA OP CODE	F5G35490
00365	+041104000000	3600		OCT	41104000000 PSE-TRA	F5G35500
00366	−033642000000	3601		OCT	−33642000000 DCT-PSE	F5G35510
00367	−024000000000	3602		OCT	−24000000000 RTT-DCT	F5G35520
00370	+027642000000	3603		OCT	27642000000 MSE-RTT	F5G35530
00371	−007100000000	3604		OCT	−7100000000 TZE-MSE	F5G35540
00372	−032154000000	3605		OCT	−32154000000 HPR-TZE	F5G35550
00373	+031316000000	3606	LNTOP	OCT	31316000000 TSX-HPR	F5G35560
00374	+035121000000	3607		OCT	35121000000	F5G35570
00375	+001622000000	3608		OCT	1622000000 TXL-TRA	F5G35580
00376	−031772000000	3609		OCT	−31772000000 HPR-TXL	F5G35590
00377	+031400000000	3610	LTROP	OCT	31400000000 TTR-HPR	F5G35600
00400	−370000000000	3611	FSTLT	OCT	−370000000000	F5G35610
00401	−230000000000	3612	FSTT	OCT	−230000000000	F5G35620
00402	+170000000000	3613	PCC	OCT	170000000000 MEANS LOCATION OF THIS INST.	F5G35630
00403	−300000000000	3614	PFXMK	OCT	−300000000000	F5G35640
00404	+000770000000	3615	XXPSX	OCT	770000000 CONSTANTS TO TEST PSE ADDR.	F5G35650
00405	+000160000000	3616	XX16X	OCT	160000000	F5G35660
00406	+000360000000	3617	XX360	OCT	360000000	F5G35670
00407	+000000777777	3618	SHK1	OCT	777777 CONST. TO EXTRACT R. HALF WORD	F5G35680
	00320	3619	SHK2	SYN	L4	F5G35690
00410	+160000000000	3620	SIK2	OCT	160000000000 I.D. FOR LOCATION OF SXD	F5G35700
00411	626724000000	3621	SIK3	BCD	1SXD000 SXD IN BCD	F5G35710
	00411	3622	LSXD	SYN	SIK3	F5G35720
	00410	3623	IDSXD	SYN	SIK2	F5G35730
00412	0 00000 0 00144	3624	SKK1		LCLST	F5G35740
	00350	3625	SLK1	SYN	LTRA TRA IN BCD	F5G35750
00413	+150000000000	3626	SMK1	OCT	150000000000 I.D. FOR LOCATI0N OF LX0	F5G35760
00414	436724000000	3627	SMK2	BCD	1LXD000 LXD IN BCD	F5G35770
	00414	3628	LLXD	SYN	SMK2	F5G35780
		3629			FOR SMK3 SEE LFTMSK	F5G35790
00415	+140000000000	3630	SMK4	OCT	140000000000 I.D. FOR TAU-TAG	F5G35800
	00413	3631	SLK2	SYN	SMK1	F5G35810
	00413	3632	IDLXD	SYN	SMK1	F5G35820
	00415	3633	IDTAG	SYN	SMK4	F5G35830
00416	−000000000000	3634	Z1K3	OCT	−0	F5G35840
	00416	3635	MZE	SYN	Z1K3	F5G35850
00417	0 77776 0 00000	3636	Z2K1		0,0,−2	F5G35860
00420	0 77772 0 00000	3637			0,0,−6	F5G35870
00421	0 77766 0 00000	3638			0,0,−10	F5G35880
00422	0 00007 0 00003	3639	Z2K2	HTR	3,0,7 NO. OF LISTS, NO. OF CASES	F5G35890
00423	0 00000 0 00001	3640	CASE	HTR	1	F5G35900
00424	0 00000 0 00002	3641			2	F5G35910
00425	0 00000 0 00004	3642			4	F5G35920
00426	0 00000 0 00003	3643			3	F5G35930
00427	0 00000 0 00005	3644			5	F5G35940
00430	0 00000 0 00006	3645			6	F5G35950
00431	0 00000 0 00007	3646			7	F5G35960
00432	+000032212110	3647	Z2K3	OCT	32212110 CONST. TO DETERMINE NO. 1 S IN 3 BITS	F5G35970
00433	+000030000000	3648	Z2K4	DEC	3B14	F5G35980
00434	0 00000 0 00007	3649	Z2K5	HTR	7	F5G35990
00435	0 00000 0 77777	3650	Z4K1		−1	F5G36000
00436	0 00000 0 00000	3651	Z4K2		0	F5G36010
00437	0 00000 0 01000	3652	LNSX0		NSXD*4	F5G36020
00440	0 77770 0 00000	3653	Z7K1		0,0,−8	F5G36030
00441	0 77764 0 00000	3654			0,0,−12	F5G36040
00442	0 77760 0 00000	3655			0,0,−16	F5G36050
		3656			THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS	F5G36060
00443	−0 00001 0 00000	3657	BBNO	MZE	0,0,1 DECR., CURRENT BB NO. BEING SCANNED	F5G36070
00444	0 00000 0 00000	3658	NXTLOC		LOCATUON OF 1ST INST OF THE BB	F5G36080
00445	0 00000 0 00000	3659	OUTBX		TEMP. STORAGE OF RETURN INDEXES	F5G36090
00446	0 00000 0 00000	3660	ERRBX		ERROR INDICATOR	F5G36100
00447	0 00000 0 00000	3661	BBOX		TEMP. STORE FOR INDEXES, MAINLY 2	F5G36110
00450	0 00000 0 00000	3662	BBOX1		ANOTHER OF SAME	F5G36120
00451	0 00000 0 00000	3663	ABOX		TEMP. STORE , INDEX 1	F5G36130
00452	0 00000 0 00000	3664	TAG		TAU-TAG FROM AN INST.	F5G36140
00453	0 00000 0 00000	3665	STAGN1		WORD FROM STAG SHIFTED LEFT MULTIPLE OF I	F5G36150
00454	0 00000 0 00000	3666	STAGN2		SAME WORD SHIFTED BY ONES	F5G36160
00455	0 00000 0 00000	3667	9CNT		COUNT TO 9, 9 TAGS IN STAG WORD	F5G36180
00456	−000000000001	3668	STGWD	DEC	−1 NO. OF STAG ENTRY BEING CONSIDERED	F5G36180
00457	0 00000 0 00000	3669	TMP10		TEMP. STORE , LASTS ONLY 10 INSTRS.	F5G36190
00460	0 00000 0 00000	3670	CIND		+ OR - MEANS IR4 ISNT OR IS NECESSARY	F5G36200
00461	−0 00000 0 00000	3671	CPIND	MZE	+ OR - MEANS COMPILE/DONT COMPILE	F5G36210
00462	0 00000 0 00000	3672	ARG1		U 1ST ARGUMENT FOR SUBROUTINES	F5G36220
00463	0 00000 0 00000	3673	MBOX		NO. OF TRANSFERS IN GO TO VECTOR	F5G36230
00464	0 00000 0 00000	3674	SUCNO		NO. OF A SUCCESSOR, GOV ROUTINE	F5G36240
00465	0 00000 0 00000	3675	SXD0		LXD CASE IN DECR., PRED NO. IN ADDR.	F5G36250
00466	0 00000 0 00000	3676	SXD1		3 TAU TAGS WHICH MUST BE STORED	F5G36260
00467	0 00000 0 00000	3677	SXD2		FROM IR1,2,3	F5G36270
00470	0 00000 0 00000	3678	SXD3		RESPT.	F5G36280
00471	0 00000 0 00000	3679	SADV1		RETURN INDEX	F5G36290
00472	0 00000 0 00000	3680	SADV2		LOCATION OF 1ST INST IN SUCCESSOR BB	F5G36300
00473	0 00000 0 00000	3681	SADV3		NO. OF CURRENT PRED	F5G36310
00474	0 00000 0 00000	3682	SADV4		NO. OF 1ST PRED IN SUCCESSOR BB	F5G36320
00475	0 00000 0 00000	3683	SADV5		THE SUCCESSOR BB NO.	F5G36330
00476	0 00000 0 00000	3684	SHV1		RETURN INDEX	F5G36340
00477	0 00000 0 00000	3685	SHV2		ENTRY FROM PRED.	F5G36350
00500	0 00000 0 00000	3686	SIV1		INDEX OF SXD CASE RELATIVE TO SXST	F5G36360
00501	0 00000 0 00000	3687	SIV2		RETURN INDEX	F5G36370
00502	0 00000 0 00000	3688	SIV3		LOCATION OF 1ST INST. IN SXD GROUP	F5G36380
00503	0 00000 0 00000	3689	SIV4		TEMP. STORE	F5G36390
00504	0 00000 0 00000	3690	SIV5		STORE FOR INDEX OF TAU TAG IN SXD CASE	F5G36400
00505	0 00000 0 00000	3691	SIV6		STOER FOR THE TAG	F5G36410
00506	0 00000 0 00000	3692	SJV1		LXD CASE IN DECR.	F5G36420
00507	0 00000 0 00000	3693	SJV2		RETURN INDEX	F5G36430
00510	0 00000 0 00000	3694	SJV3			F5G36440
	00655	3695	CLST	BES	LCLST THE NEW LIST OF COMPILED INST.	F5G36450
00655	0 00144 0 00000	3696	SKV1		0,0,LCLST	F5G36460
		3697			SKV1 COMES ALREADY INITIALIZED	F5G36470
00656	0 00000 0 00000	3698	SLV1		RETURN INDEX	F5G36480
00657	0 00000 0 00000	3699	SLV2		LOCATION TO BE ATTACHED TO TRA	F5G36490
00660	0 00000 0 00000	3700	SLV3		+ OR - MEANS ISNT OR IS HANGING TRA0	F5G36500
00661	0 00000 0 00000	3701	SMV1		RETURN INDEX	F5G36510
00662	0 00000 0 00000	3702	SMV2		TAG TO BE COMPILED	F5G36520
00663	0 00000 0 00000	3703	SMV3		STORE INDEX OF QUANTITY IN LIST	F5G36530
00664	0 00000 0 00000	3704	SMV4		LOCATION , TEMP. STORE	F5G36540
00665	0 00000 0 00000	3705	Z1V2		NO. OF 1ST PRED. IN NEXT BB	F5G36550
00666	0 00000 0 00000	3706	Z1V3		NO. OF PRED BEING CONSIDERED	F5G36560
00667	0 00000 0 00000	3707	Z1V5		THE CASES	F5G36570
00670	0 00000 0 00000	3708	Z1V8		THE LOC. OF 1ST PRED IN BB, USED IN Z4	F5G36580
00671	0 00000 0 00000	3709	Z2V1		IN DECREMENTS, THE INDEXES	F5G36590
00672	0 00000 0 00000	3710			THE TOP ENTRIES	F5G36600
00673	0 00000 0 00000	3711			IN THE 3 LXD LISTS	F5G36610
00674	0 00000 0 00000	3712	Z2V2		IN ADDR., NO. OF 1S IN DIFFERENCE	F5G36620
00675	0 00000 0 00000	3713	Z2V3		IN DECR., INDEX OF LIST GIVING MIN. DIFFERENC	F5G36630
	00676	3714	LIST1	BSS	4	F5G36640
	00702	3715	LIST2	BSS	4	F5G36650
	00706	3716	LIST3	BSS	4	F5G36660
	00715	3717	LLIND	BES	3 + OR - MEANS LIST NOT TO BE OR TOBE COMPILED	F5G36670
00715	0 00000 0 00000	3718	Z4V1		TEMP. STORE , LXD CASE IN ADDR.	F5G36680
00716	0 00000 0 00000	3719	Z5V1		INDEX IN SYN TABLE	F5G36690
00717	0 00000 0 00000	3720	Z7V1		INDEX OF LIST	F5G36700
00720	0 00000 0 00000	3721	Z7V2		+ OR - MEANS 1ST OR 2ED TIME THRU	F5G36710
	00735	3722	NDINS	BES	12 BLOCK FOR 3 EXTRA COMPILED INST.	F5G36720
	01101	3723	INST	BES	RECNO*100 THE BLOCK FOR 1HE COMPILED INSTR	F5G36730
01101	−0 00000 0 00000	3724	SXST	MZE	- OR + MEANS NO SEQUENTIAL TRANSFER OR S. T.	F5G36740
	01102	3725		BSS	3	F5G36750
		3726			THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER	F5G36760
	01105	3727	SXAS0	BSS	4 ASSOCIATED WITH 0 LXD CASE	F5G36770
	01111	3728	SXAS1	BSS	4 WITH 1ST LXD LIST	F5G36780
	01115	3729	SXAS2	BSS	4 2ED LIST	F5G36790
	01121	3730	SXAS3	BSS	4 3RD	F5G36800
	01125	3731	SXAS	BSS	4*NSXD THE LIST OF SXD INST.	F5G36810
02125	−0 00000 0 00000	3732	SYN	MZE	SYN CARD TABLE STORED BACKWARD	F5G36820
		3733			WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO.	F5G36830
		3734			OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE AD	F5G36840
		3735			DRESS OF CORRESPONDING TRANSFER INST. SHOULD BE AND RETURNS	F5G36850
		3736			WITH THE ADDR IN LOGICAL AC	F5G36860
02126	−0 63400 4 00471	3737	SAD	SXD	SADV1,4 STORE RETURN	F5G36870
02127	−0 32000 0 00337	3738		ANA	ADDMK STORE THE SUCC. NO.	F5G36880
02130	0 60100 0 00475	3739		STO	SADV5	F5G36890
02131	0 07400 4 00067	3740		TSX	SE1,4	F5G36900
02132	0 50000 1 06447	3741		CLA	BBB+5,1	F5G36910
02133	0 60100 0 00472	3742		STO	SADV2	F5G36920
02134	0 50000 1 06442	3743		CLA	BBB,1	F5G36930
02135	−0 32000 0 00337	3744		ANA	ADDMK	F5G36940
02136	0 60200 0 00474	3745		SLW	SADV4	F5G36950
02137	0 60200 0 00473	3746	SAD1	SLW	SADV3	F5G36960
02140	0 07400 4 00055	3747		TSX	SE5,4	F5G36970
02141	0 50000 1 07337	3748		CLA	PRED,1	F5G36980
02142	−0 32000 0 00337	3749		ANA	ADDMK IS THIS THE CORRECT	F5G36990
02143	0 40200 0 00462	3750		SUB	ARG1 PRED ENTRY	F5G37000
02144	0 10000 0 02150	3751		TZE	SAD2	F5G37010
02145	−0 50000 0 00473	3752		CAL	SADV3 NO, TRY NEXT RETURN	F5G37020
02146	0 40000 0 00315	3753		ADD	ONEA	F5G37030
02147	0 02000 0 02137	3754		TRA	SAD1	F5G37040
02150	−0 50000 1 07337	3755	SAD2	CAL	PRED,1 IS THE SXD CASE 0	F5G37050
02151	−0 32000 0 00326	3756		ANA	LD7	F5G37060
02152	0 10000 0 02160	3757		TZE	SAD3 YES	F5G37070
02153	0 50000 0 00473	3758		CLA	SADV3 NO, FORM THE SYMBOLIC ADDR.	F5G37080
02154	0 40200 0 00474	3759		SUB	SADV4 AS ID FOR SXD PLUS NO. OF PRED WITHIN	F5G37090
02155	0 76700 0 00012	3760		ALS	10 THE BB * 1024 PLUS BB NO.	F5G37100
02156	0 40000 0 00410	3761		ADD	IDSXD	F5G37110
02157	0 02000 0 02165	3762		TRA	SAD6	F5G37120
02160	0 50000 1 07337	3763	SAD3	CLA	PRED,1 IS THE LXD CASE ZERO	F5G37130
02161	−0 32000 0 00332	3764		ANA	LT7	F5G37140
02162	0 10000 0 02170	3765		TZE	SAD4	F5G37150
02163	0 77100 0 00005	3766		ARS	5 NO, FORM TH SYMBOLIC ADDR.	F5G37160
02164	0 40000 0 00413	3767		ADD	IDLXD AS 1024* LXD CASE PLUS BB NO. PLUS	F5G37170
02165	0 40000 0 00475	3768	SAD6	ADD	SADV5 I. D. FOR AN LXD	F5G37180
02166	−0 53400 4 00471	3769	SAD5	LXD	SADV1,4	F5G37190
02167	0 02000 4 00001	3770		TRA	1,4	F5G37200
02170	−0 50000 0 00472	3771	SAD4	CAL	SADV2	F5G37210
02171	0 02000 0 02166	3772		TRA	SAD5	F5G37220
		3773			THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND	F5G37230
		3774			INDICATES IT SHOULD BE	F5G37240
02172	0 50000 0 00461	3775	SCMI	CLA	CPIND SHOULD INST. BE COMPILED	F5G37250
02173	0 12000 0 02206	3776		TPL	SCMI1	F5G37260
02174	−0 63400 4 00457	3777		SXD	TMP10,4 YES, COMPILE THE INST	F5G37270
02175	0 50000 2 01101	3778		CLA	INST,2	F5G37280
02176	0 07400 4 02367	3779		TSX	SK,4	F5G37290
02177	0 50000 2 01100	3780		CLA	INST−1,2	F5G37300
02200	0 07400 4 02367	3781		TSX	SK,4	F5G37310
02201	0 50000 2 01077	3782		CLA	INST−2,2	F5G37320
02202	0 07400 4 02367	3783		TSX	SK,4	F5G37330
02203	0 50000 2 01076	3784		CLA	INST−3,2	F5G37340
02204	0 07400 4 02367	3785		TSX	SK,4	F5G37350
02205	−0 53400 4 00457	3786		LXD	TMP10,4	F5G37360
02206	−0 76000 0 00003	3787	SCMI1	SSM		F5G37370
02207	0 60100 0 00461	3788		STO	CPIND RECORD INST SHOULD BE COMPILED	F5G37380
02210	0 02000 4 00001	3789		TRA	1,4	F5G37390
		3790			DETERMINE AN SXD CASE SUBROUTINE	F5G37400
02211	−0 63400 4 00476	3791	SH	SXD	SHV1,4 STORE RETURN	F5G37410
02212	0 53400 4 00320	3792		LXA	SHK2,4 CLEAR	F5G37420
02213	0 56000 0 00314	3793		LDQ	ZERO THE	F5G37430
02214	−0 60000 4 00471	3794	SH1	STQ	SXD0+4,4 SXD	F5G37440
02215	2 00001 4 02214	3795		TIX	SH1,4,1 POSITIONS 0-3	F5G37450
02216	0 62100 0 00465	3796		STA	SXD0 STORE THE PRED NO.	F5G37460
02217	0 07400 4 00055	3797		TSX	SE5,4 GET INDEX OF PRED	F5G37470
02220	0 50000 1 07337	3798		CLA	PRED,1 GET AND	F5G37480
02221	0 60100 0 00477	3799		STO	SHV2 STORE PRED ENTRY	F5G37490
02222	0 07400 4 00067	3800		TSX	SE1,4 GET INDEX OF BBB TABLE ENTRY	F5G37500
02223	−0 53400 4 00324	3801		LXD	LD3,4 NO, SET COUNT TO 3	F5G37510
02224	0 56000 0 00477	3802	SH2	LDQ	SHV2 IS	F5G37520
02225	−0 77300 4 00022	3803		RQL	18,4 SXD REQUIRED	F5G37530
02226	0 16200 0 02232	3804		TQP	SH3 FOR THIS I.R.	F5G37540
02227	0 50000 1 06444	3805		CLA	BBB+2,1 YES, GET AND	F5G37550
02230	−0 32000 0 00342	3806		ANA	TAGMK EXTRACT THE	F5G37560
02231	0 60100 4 00471	3807		STO	SXD1+3,4 EXIT CONDITIONS	F5G37570
02232	1 77777 1 02233	3808	SH3	TXI	SH3+1,1,−1 DOWN THE EXIT CONDITIONS	F5G37580
02233	2 00001 4 02224	3809		TIX	SH2,4,1 COUNT TO 3	F5G37590
02234	−0 50000 0 00477	3810	SH4	CAL	SHV2 GET	F5G37600
02235	−0 32000 0 00332	3811		ANA	LT7 AND STORE	F5G37610
02236	0 76700 0 00003	3812		ALS	3 LXD CASE	F5G37620
02237	0 62200 0 00465	3813		STD	SXD0	F5G37630
02240	−0 53400 4 00476	3814		LXD	SHV1,4	F5G37640
02241	0 02000 4 00001	3815		TRA	1,4 RETURN	F5G37650
		3816			COMPILE AN SXD CASE SUBROUTINE	F5G37660
02242	−0 63400 4 00501	3817	SI	SXD	SIV2,4 STORE RETURN	F5G37670
02243	−0 63400 1 00500	3818		SXD	SIV1,1 STORE INDEX OF SXD CASE	F5G37680
02244	0 07400 4 02426	3819		TSX	SL1,4 RECORD ANY HANGING TRANSFER	F5G37690
02245	−0 50000 0 00443	3820		CAL	BBNO	F5G37700
02246	0 77100 0 00022	3821		ARS	18	F5G37710
02247	0 60100 0 00657	3822		STO	SLV2 STORE BB NO.	F5G37720
02250	0 07400 4 00067	3823		TSX	SE1,4 GET INDEX OF BB	F5G37730
02251	0 50000 1 06442	3824		CLA	BBB,1	F5G37740
02252	−0 32000 0 00337	3825		ANA	ADDMK	F5G37750
02253	0 60100 0 00503	3826		STO	SIV4 STORE LOC. OF 1ST PRED IN BB	F5G37760
02254	−0 53400 1 00500	3827		LXD	SIV1,1 FORM	F5G37770
02255	0 50000 1 01101	3828		CLA	SXST,1 LOC. OF THIS PRED -	F5G37780
02256	−0 32000 0 00337	3829		ANA	ADDMK LOC. OF 1ST PRED IN BB	F5G37790
02257	0 40200 0 00503	3830		SUB	SIV4	F5G37800
02260	0 76700 0 00012	3831		ALS	10	F5G37810
02261	0 40000 0 00657	3832		ADD	SLV2	F5G37820
02262	0 40000 0 00410	3833		ADD	SIK2	F5G37830
02263	0 60100 0 00657	3834		STO	SLV2 STORE THE LOC. OF 1ST SXD	F5G37840
02264	−0 53400 2 00324	3835		LXD	LD3,2	F5G37850
02265	0 50000 1 01102	3836	SI2	CLA	SXST+1,1	F5G37860
02266	0 10000 0 02305	3837		TZE	SI1 IS THIS TAG 0	F5G37870
02267	−0 63400 1 00504	3838		SXD	SIV5,1 NO, PRESERVE IN0EX 1	F5G37880
02270	0 60100 0 00505	3839		STO	SIV6 PRESERVE THE TAG	F5G37890
02271	0 50000 0 00657	3840		CLA	SLV2 PUT LOCATION WORD ON TAPE	F5G37900
02272	0 07400 4 02367	3841		TSX	SK,4	F5G37910
02273	0 50000 0 00314	3842		CLA	ZERO AND RESET TO 0	F5G37920
02274	0 60100 0 00657	3843		STO	SLV2	F5G37930
02275	0 50000 0 00411	3844		CLA	SIK3 PUT SXD ON TAPE	F5G37940
02276	0 07400 4 02367	3845		TSX	SK,4	F5G37950
02277	0 50000 0 00505	3846		CLA	SIV6 142*-5+TAU-TAG IS	F5G37960
02300	0 40000 0 00415	3847		ADD	SMK4 SYMBOLIC ADDRESS	F5G37970
02301	0 07400 4 02367	3848		TSX	SK,4	F5G37980
02302	0 50000 2 00361	3849		CLA	VSTAG,2	F5G37990
02303	0 07400 4 02367	3850		TSX	SK,4 PUT S-TAG ON TAPE	F5G38000
02304	−0 53400 1 00504	3851		LXD	SIV5,1	F5G38010
02305	1 77777 1 02306	3852	SI1	TXI	SI1+1,1,−1	F5G38020
02306	2 00001 2 02265	3853		TIX	SI2,2,1 COUNT TO 3, FORM N+1	F5G38030
02307	−0 53400 1 00500	3854		LXD	SIV1,1	F5G38040
02310	0 50000 1 01101	3855		CLA	SXST,1	F5G38050
02311	−0 73400 2 00000	3856		PDX	0,2	F5G38060
02312	−3 00000 2 02321	3857		TXL	SI3,2,0 IS THE LXD CASE 0	F5G38070
02313	−3 00000 1 02325	3858		TXL	SI4,1,0 NO, IS THIS THE ST POSITION	F5G38080
02314	3 77757 1 02334	3859		TXH	SI6,1,−16−1 IS THIS ASSOCIATED WITH A LIST	F5G38090
02315	0 77100 0 00022	3860	SI5	ARS	18 NO	F5G38100
02316	0 07400 4 02403	3861		TSX	SL,4 COMPILE A TRA TO LXD CASE	F5G38110
02317	−0 53400 4 00501	3862		LXD	SIV2,4	F5G38120
02320	0 02000 4 00003	3863		TRA	3,4 RETURN TO LOC. OF TSX + 3	F5G38130
02321	0 50200 0 00315	3864	SI3	CLS	ONEA RECORD THAT THERE IS	F5G38140
02322	0 60100 0 00660	3865		STO	SLV3 A HANGING TRA TO 0 CASE	F5G38150
02323	−0 53400 4 00501	3866		LXD	SIV2,4	F5G38160
02324	0 02000 4 00001	3867		TRA	1,4 RETURN TO LOC. OF TSX +1	F5G38170
02325	0 60100 0 00465	3868	SI4	STO	SXD0 STORE LXD CASE AS ARG FOR SJ	F5G38180
02326	0 07400 4 02336	3869		TSX	SJ,4 IS SXD CASE INST POS. ASSOC. WITH LIST	F5G38190
02327	0 00000 0 00000	3870			SHOULDENT BE WITH CASE 0	F5G38200
02330	0 02000 0 02334	3871		TRA	SI6 YES	F5G38210
02331	−0 53400 1 00500	3872		LXD	SIV1,1 NO	F5G38220
02332	0 50000 1 01101	3873		CLA	SXST,1	F5G38230
02333	0 02000 0 02315	3874		TRA	SI5 GO TO COMPILE TRA TO LXD CASE	F5G38240
02334	−0 53400 4 00501	3875	SI6	LXD	SIV2,4 RETURN TO 2 FOLL0WING TSX WITH	F5G38250
02335	0 02000 4 00002	3876		TRA	2,4 INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2	F5G38260
		3877			DETERMINE IF THE SXO CASE IS ASSOCIATED WITH AN LXD LIST	F5G38270
02336	−0 63400 4 00507	3878	SJ	SXD	SJV2,4	F5G38280
02337	0 50000 0 00465	3879		CLA	SXD0	F5G38290
02340	−0 32000 0 00335	3880		ANA	DECMK	F5G38300
02341	0 60100 0 00506	3881		STO	SJV1	F5G38310
02342	0 10000 0 02363	3882		TZE	SJ3 IS THIS THE 0 LXD CASE	F5G38320
02343	−0 53400 4 00314	3883		LXD	ZERO,4 NO, SET COUNT TO 3, N TO 1	F5G38330
02344	−0 53400 2 00324	3884		LXD	LD3,2 2 HAS THE C0UNTER	F5G38340
02345	0 50000 4 01111	3885	SJ2	CLA	SXAS1,4	F5G38350
02346	0 12000 0 02357	3886		TPL	SJ1 DOES THE LIST ALREADY HAVE SXD	F5G38360
02347	0 50000 2 00674	3887		CLA	Z2V1+3,2 NO	F5G38370
02350	−0 73400 1 00000	3888		PDX	0,1 GET INDEX OF TOP QUANTITY	F5G38380
02351	0 50000 1 00676	3889		CLA	LIST1,1	F5G38390
02352	0 76700 0 00022	3890		ALS	18	F5G38400
02353	0 40200 0 00506	3891		SUB	SJV1 IS THIS CASE SAME AS CASE HEADUNG LIST N	F5G38410
02354	−0 10000 0 02357	3892		TNZ	SJ1	F5G38420
02355	−0 53400 4 00507	3893		LXD	SJV2,4 YES	F5G38430
02356	0 02000 4 00002	3894		TRA	2,4 RETURN, INDEX OF TOP OF LIST IN 1	F5G38440
02357	1 77777 4 02360	3895	SJ1	TXI	SJ1+1,4,−1	F5G38450
02360	2 00001 2 02345	3896		TIX	SJ2,2,1 COUNT TO 3	F5G38460
02361	−0 53400 4 00507	3897		LXD	SJV2,4	F5G38470
02362	0 02000 4 00003	3898		TRA	3,4	F5G38480
02363	−0 53400 4 00507	3899	SJ3	LXD	SJV2,4	F5G38490
02364	0 50000 0 01105	3900		CLA	SXAS0	F5G38500
02365	0 12000 4 00003	3901		TPL	3,4	F5G38510
02366	0 02000 4 00001	3902		TRA	1,4	F5G38520
		3903			PUT WORD OF COMPILED INST ON TAPE	F5G38530
02367	−0 53400 1 00655	3904	SK	LXD	SKV1,1	F5G38540
02370	0 60100 1 00655	3905		STO	CLST,1 STORE THE WORD IN CLST	F5G38550
02371	2 00001 1 02401	3906		TIX	SK1,1,1 C0UNT NO OF WORDS IS CLST FULL	F5G38560
02372	0 53400 1 00412	3907		LXA	SKK1,1 YES	F5G38570
02373	−0 63400 1 00655	3908		SXD	SKV1,1 RESET THE INDEX	F5G38580
02374	0 76600 0 00223	3909		WTB	OTAPE WRITE THE BLOCK ON	F5G38590
02375	0 70000 1 00655	3910	SK2	CPY	CLST,1 THE OUTPUT TAPE	F5G38600
02376	2 00001 1 02375	3911		TIX	SK2,1,1	F5G38610
02377	0 76600 0 00333	3912		IOD		F5G38620
02400	0 02000 4 00001	3913		TRA	1,4	F5G38630
02401	−0 63400 1 00655	3914	SK1	SXD	SKV1,1 STORE INDEX OF NEXT WORD	F5G38640
02402	0 02000 4 00001	3915		TRA	1,4	F5G38650
		3916			SUBROUTINE FOR COMPILING TRA TO LXD CASE	F5G38660
02403	−0 32000 0 00434	3917	SL	ANA	Z2K5 FORM	F5G38670
02404	0 76700 0 00012	3918		ALS	10 THE	F5G38680
02405	0 40000 0 00413	3919		ADD	SLK2 ADDRESS	F5G38690
02406	0 60100 0 00657	3920		STO	SLV2 OF	F5G38700
02407	0 50000 0 00443	3921		CLA	BBNO THE	F5G38710
02410	−0 32000 0 00335	3922		ANA	DECMK	F5G38720
02411	0 77100 0 00022	3923		ARS	18 TRA IN	F5G38730
02412	−0 60200 0 00657	3924		ORS	SLV2 SLV2	F5G38740
02413	−0 63400 4 00656	3925		SXD	SLV1,4 STORE RETURJ	F5G38750
02414	0 50000 0 00314	3926	SL2	CLA	ZERO PUT 0 LOCATION	F5G38760
02415	0 07400 4 02367	3927		TSX	SK,4 ON TAPE	F5G38770
02416	0 50000 0 00350	3928		CLA	LTRA	F5G38780
02417	0 07400 4 02367	3929		TSX	SK,4 PUT SYMB. ADDR. ON TAPE	F5G38790
02420	0 50000 0 00657	3930		CLA	SLV2	F5G38800
02421	0 07400 4 02367	3931		TSX	SK,4 PUT SYMB. ADDR ON TAPE	F5G36810
02422	0 50000 0 00314	3932		CLA	ZERO	F5G38820
02423	0 07400 4 02367	3933		TSX	SK,4 ANOTHER 0	F5G38830
02424	−0 53400 4 00656	3934		LXD	SLV1,4	F5G38840
02425	0 02000 4 00001	3935		TRA	1,4	F5G38850
		3936			SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE	F5G38860
02426	0 50000 0 00660	3937	SL1	CLA	SLV3	F5G38870
02427	0 12000 4 00001	3938		TPL	1,4 RETURN IF THERE IS NO HANGING TRA0	F5G38880
02430	−0 63400 4 00656	3939		SXD	SLV1,4 OTHERWISE , STORE RETURN AND	F5G38890
02431	0 50000 0 00443	3940		CLA	BBNO GET	F5G38900
02432	0 07400 4 00070	3941		TSX	SE,4 THE	F5G38910
02433	0 50000 1 06447	3942		CLA	BBB+5,1 SYMBOLIC LOCATION	F5G38920
02434	0 60100 0 00657	3943		STO	SLV2 OF 1ST INST IN BB AND	F5G38930
02435	0 50000 0 00314	3944		CLA	ZERO STORE IN SYNBOLIS ADDR WORD	F5G38940
02436	0 60100 0 00660	3945		STO	SLV3 SET INDICATOR TO SAY NO HANGING TRA	F5G38950
02437	0 02000 0 02414	3946		TRA	SL2	F5G38960
		3947			COMPILE AN LXD LIST	F5G38970
02440	0 50000 2 00715	3948	SM	CLA	LLIND,2 IMMEDIATELY RETURN IF LIST IS	F5G38980
02441	0 12000 4 00001	3949		TPL	1,4 ALREADY COMPOLED	F5G38990
02442	0 60200 2 00715	3950		SLW	LLIND,2 RECORD LIST ALREADY COMPILED	F5G39000
02443	−0 63400 4 00661	3951		SXD	SMV1,4 STORE RETURN	F5G39010
02444	0 50000 2 00422	3952		CLA	Z2K1+3,2 COMPUTE THE	F5G39020
02445	0 40200 0 00316	3953		SUB	ONED INDEX OF SUB BOTTEM	F5G39030
02446	0 62200 0 02453	3954		STD	SM1 POSITION OF LIDT	F5G39040
02447	0 62200 0 02513	3955		STD	SM5 SET END TEST	F5G39050
02450	0 50000 1 00676	3956	SM6	CLA	LIST1,1	F5G39060
02451	−0 12000 0 02521	3957		TMI	SM8 DOES THIS ELEMENT OF LIST REPRESENT AN LXD	F5G39070
02452	−3 00000 1 02454	3958		TXL	SM1+1,1,0	F5G39080
02453	−3 00000 1 02455	3959	SM1	TXL	SM10,1,SET YES, IS ELEMENT IN SUB BOTTOM POS.	F5G39090
02454	−0 40000 1 00677	3960		SBM	LIST1+1,1 NO	F5G39100
02455	0 60100 0 00662	3961	SM10	STO	SMV2 STORE THE TAG AWAY	F5G39110
02456	0 50000 0 00443	3962		CLA	BBNO FORN	F5G39120
02457	−0 32000 0 00335	3963		ANA	DECMK THE	F5G39130
02460	0 76500 0 00034	3964		LRS	28 LOCATION	F5G39140
02461	0 50000 1 00676	3965		CLA	LIST1,1	F5G39150
02462	0 76300 0 00012	3966		LLS	10	F5G39160
02463	0 40000 0 00413	3967		ADD	SMK1	F5G39170
02464	−0 63400 1 00663	3968		SXD	SMV3,1 STORE INDEX OF LIST QUANTITY	F5G39180
02465	0 60100 0 00664	3969		STO	SMV4	F5G39190
02466	0 07400 4 02426	3970		TSX	SL1,4 RECORD ANY HANGING TRA0	F5G39200
02467	0 50000 0 00664	3971		CLA	SMV4	F5G39210
02470	0 07400 4 02367	3972		TSX	SK,4 COMPILE THE LOCATION	F5G39220
02471	0 50000 0 00414	3973		CLA	SMK2	F5G39230
02472	0 07400 4 02367	3974		TSX	SK,4 COMPILE LXD	F5G39240
02473	0 50000 0 00443	3975		CLA	BBNO	F5G39250
02474	0 07400 4 00070	3976		TSX	SE,4 FIND INDEX OF BB	F5G39260
02475	0 50000 0 00662	3977		CLA	SMV2	F5G39270
02476	0 34000 0 00320	3978	SM3	CAS	L4 IS THIS THE CORRECT ENT. REQUIREMENT	F5G39280
02477	0 02000 0 02501	3979		TRA	SM2	F5G39290
02500	0 02000 0 02503	3980		TRA	SM4 YES	F5G39300
02501	0 76700 0 00001	3981	SM2	ALS	1 NO, SHIFT IT LEFT ONE	F5G39310
02502	1 77777 1 02476	3982		TXI	SM3,1,−1 AND INDEX TO NEXT ENRR. REQUIREMENT	F5G39320
02503	−0 50000 1 06444	3983	SM4	CAL	BBB+2,1 FORM	F5G39330
02504	0 77100 0 00022	3984		ARS	18 AND COMPILE	F5G39340
02505	0 40000 0 00415	3985		ADD	SMK4 THE	F5G39350
02506	0 07400 4 02367	3986		TSX	SK,4	F5G39360
02507	0 50000 0 00662	3987		CLA	SMV2 C0MPILE THE TAG	F5G39370
02510	0 07400 4 02367	3988		TSX	SK,4	F5G39380
02511	−0 53400 1 00663	3989		LXD	SMV3,1 IS THE ELEMENT IN SUB BOTTOM POSITION	F5G39390
02512	−3 00000 1 02514	3990		TXL	SM5+1,1,0	F5G39400
02513	−3 00000 1 02515	3991	SM5	TXL	SM7,1,SET	F5G39410
02514	1 77777 1 02450	3992		TXI	SM6,1,−1 NO, INDEX TO NEXT LIST POS.	F5G39420
02515	0 50200 0 00315	3993	SM7	CLS	ONEA	F5G39430
02516	0 60100 0 00660	3994		STO	SLV3 RECORD THAT THERE IS HANGING TRA 0	F5G39440
02517	−0 53400 4 00661	3995	SM9	LXD	SMV1,4	F5G39450
02520	0 02000 4 00001	3996		TRA	1,4 RETURN	F5G39460
02521	0 10000 0 02515	3997	SM8	TZE	SM7 GO TO RECORD HANGING TRA	F5G39470
02522	0 76000 0 00003	3998		SSP		F5G39480
02523	0 07400 4 02403	3999		TSX	SL,4 RECORD A TRA TO LXD CASE	F5G39490
02524	0 02000 0 02517	4000		TRA	SM9	F5G39500
		4001			THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND	F5G39510
		4002			CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.	F5G39520
02525	−2 00144 2 02527	4003	FNDAS	TNX	2FNDS,2,ZINST IS BLOCK OF INST. ALL USED	F5G39530
02526	0 07400 4 03472	4004		TSX	RDINS,4 YES, READ IN NEXT BLOCK	F5G39540
02527	−0 50000 2 01076	4005	2FNDS	CAL	INST−3,2 IS THIS INST. TAGGED	F5G39550
02530	−0 32000 0 00340	4006		ANA	STMSK	F5G39560
02531	0 10000 0 03336	4007		TZE	CI7A	F5G39570
02532	−0 53400 4 00455	4008	CI4	LXD	9CNT,4 YES	F5G39580
02533	2 00001 4 02547	4009		TIX	CI5,4,1 COUNT TO 9, IS STAG WORD EXHAUSTED	F5G39590
02534	−0 63400 2 00447	4010		SXD	BBOX,2 YES, GET ANOTHER	F5G39600
02535	0 50000 0 00456	4011		CLA	STGWD INCREASE THE NO. OF CURRENT STAG WORD	F5G39610
02536	0 40000 0 00315	4012		ADD	ONEA	F5G39620
02537	0 60100 0 00456	4013		STO	STGWD	F5G39630
02540	0 07400 4 00032	4014		TSX	SE4,4 GET INDEX OF NEXT STAG WORD	F5G39640
02541	0 50000 1 05061	4015		CLA	STAG,1	F5G39650
02542	0 60100 0 00454	4016		STO	STAGN2 GET AND STORE	F5G39660
02543	0 76700 0 00002	4017		ALS	2	F5G39670
02544	0 60100 0 00453	4018		STO	STAGN1 THE STAG WORD	F5G39680
02545	−0 53400 2 00447	4019		LXD	BBOX,2 RESTORE INDEX REGISER 2	F5G39690
02546	−0 53400 4 00330	4020		LXD	LD9,4 RESET COUNT TO 9	F5G39700
02547	−0 63400 4 00455	4021	CI5	SXD	9CNT,4	F5G39710
02550	−0 50000 2 01076	4022		CAL	INST−3,2	F5G39720
02551	−0 32000 0 00342	4023		ANA	TAGMK EXTRACT THE TAG	F5G39730
02552	0 60100 0 00452	4024		STO	TAG	F5G39740
02553	−0 50000 0 00453	4025		CAL	STAGN1	F5G39750
02554	−0 32000 0 00324	4026		ANA	LD3 EXTRACT THE S-TAG	F5G39760
02555	−0 73400 4 00000	4027		PDX	0,4	F5G39770
02556	−0 50000 4 00361	4028		CAL	VSTAG,4 CONVERT S-TAG TO 1,2, OR 4	F5G39780
02557	0 62100 2 01076	4029		STA	INST−3,2 REPLACE TAU-TAG BY S-TAG	F5G39790
02560	0 40200 0 00320	4030		SUB	L4 IS THE TAG 4	F5G39800
02561	−0 10000 0 02564	4031		TNZ	CI5A	F5G39810
02562	−0 76000 0 00003	4032		SSM		F5G39820
02563	0 60100 0 00460	4033		STO	CIND YES, RECORD IR 4 NECESSARY	F5G39830
02564	−0 50000 0 00454	4034	CI5A	CAL	STAGN2	F5G39840
02565	0 76700 0 00011	4035		ALS	9	F5G39850
02566	−0 76000 0 00001	4036		PBT	IS AN LXD NECESSARY	F5G39860
02567	0 02000 0 02602	4037		TRA	SKLX NO	F5G39870
02570	0 50000 0 00314	4038		CLA	ZERO YES	F5G39880
02571	0 07400 4 02367	4039		TSX	SK,4 COMPILE LOCATION OF 0	F5G39890
02572	0 50000 0 00414	4040		CLA	SMK2 COMPILE LXD	F5G39900
02573	0 07400 4 02367	4041		TSX	SK,4	F5G39910
02574	0 50000 0 00452	4042		CLA	TAG COMPILE THE SYMB. ADDR. OF THE CELL	F5G39920
02575	−0 50100 0 00415	4043		ORA	SMK4	F5G39930
02576	0 07400 4 02367	4044		TSX	SK,4	F5G39940
02577	0 50000 2 01076	4045		CLA	INST−3,2 COMPILE THE S-TAG	F5G39950
02600	−0 32000 0 00337	4046		ANA	ADDMK	F5G39960
02601	0 07400 4 02367	4047		TSX	SK,4	F5G39970
02602	−0 50000 2 01100	4048	SKLX	CAL	INST−1,2	F5G39980
02603	−0 32000 0 00343	4049		ANA	LFTMSK	F5G39990
02604	0 60200 0 00457	4050		SLW	TMP10	F5G40000
02605	0 50000 0 00457	4051		CLA	TMP10	F5G40010
02606	0 34000 0 00345	4052		CAS	LLXP IS THIS AN LXP	F5G40020
02607	0 02000 0 02637	4053		TRA	CI1	F5G40030
02610	0 02000 0 02612	4054		TRA	SKLY YES.	F5G40031
02611	0 02000 0 02637	4055		TRA	CI1	F5G40032
02612	−0 50000 0 00454	4056	SKLY	CAL	STAGN2	F5G40040
02613	0 76700 0 00011	4057		ALS	9	F5G40041
02614	−0 76000 0 00001	4058		PBT	IS LXD NECESSARY.	F5G40042
02615	0 02000 0 03462	4059		TRA	CI3A NO.	F5G40043
02616	0 50000 2 01076	4060		CLA	INST−3,2 YES. IS S-TAG=4.	F5G40044
02617	0 60200 0 00461	4061		SLW	CPIND RECORD DONT COMPILE.	F5G40045
02620	−0 32000 0 00337	4062		ANA	ADDMK	F5G40046
02621	0 40200 0 00320	4063		SUB	L4	F5G40047
02622	−0 10000 0 02667	4064		TNZ	CI6 NOT 4.	F5G40048
02623	−0 50000 2 01074	4065		CAL	INST−5,2 IS NEXT INSTR	F5G40049
02624	−0 32000 0 00343	4066		ANA	LFTMSK	F5G40050
02625	0 60200 0 00457	4067		SLW	TMP10 AN LXD	F5G40051
02626	0 50000 0 00457	4068		CLA	TMP10	F5G40052
02627	0 40200 0 00414	4069		SUB	LLXD WITH REAL	F5G40053
02630	−0 10000 0 02667	4070		TNZ	CI6 IR4.	F5G40054
02631	0 50000 2 01072	4071		CLA	INST−7,2	F5G40055
02632	−0 32000 0 00337	4072		ANA	ADDMK IF SO,	F5G40056
02633	0 40200 0 00320	4073		SUB	L4	F5G40057
02634	−0 10000 0 02667	4074		TNZ	CI6 TURN ON	F5G40058
02635	0 76000 0 00141	4075		PSE	97	F5G40059
02636	0 02000 0 02667	4076		TRA	CI6 SENSE LIGHT.	F5G40060
02637	0 34000 0 00347	4077	CI1	CAS	LDED IS IT A DED	F5G40061
02640	0 02000 0 02642	4078		TRA	CI2	F5G40062
02641	0 02000 0 03462	4079		TRA	CI3A YES	F5G40070
02642	0 50000 0 00454	4080	CI2	CLA	STAGN2	F5G40080
02643	0 12000 0 02667	4081		TPL	CI6 IS SXD REQUIRED	F5G40090
02644	0 50000 2 01101	4082		CLA	INST,2 NEITHER LXP NOR DED, COMPILE THE	F5G40100
02645	0 07400 4 02367	4083		TSX	SK,4 INST.	F5G40110
02646	0 50000 2 01100	4084		CLA	INST−1,2	F5G40120
02647	0 07400 4 02367	4085		TSX	SK,4	F5G40130
02650	0 50000 2 01077	4086		CLA	INST−2,2	F5G40140
02651	0 07400 4 02367	4087		TSX	SK,4	F5G40150
02652	0 50000 2 01076	4088		CLA	INST−3,2	F5G40160
02653	0 07400 4 02367	4089		TSX	SK,4	F5G40170
02654	0 50000 0 00314	4090		CLA	ZERO YES, COMPILE AN SXD, ZERO LOCATION	F5G40180
02655	0 60100 0 00461	4091		STO	CPIND RECORD THAT THIS INST. SHOULDNT BE CONPILED	F5G40190
02656	0 07400 4 02367	4092		TSX	SK,4	F5G40200
02657	0 50000 0 00411	4093		CLA	SIK3 SXD IN BCD	F5G40210
02660	0 07400 4 02367	4094		TSX	SK,4	F5G40220
02661	0 50000 0 00452	4095		CLA	TAG SYMB. ADDR. OF TAU-TAG CELL	F5G40230
02662	−0 50100 0 00415	4096		ORA	SMK4	F5G40240
02663	0 07400 4 02367	4097		TSX	SK,4	F5G40250
02664	0 50000 2 01076	4098		CLA	INST−3,2 AND TAG WORD	F5G40260
02665	−0 32000 0 00337	4099		ANA	ADDMK	F5G40270
02666	0 07400 4 02367	4100		TSX	SK,4	F5G40280
02667	−0 50000 0 00453	4101	CI6	CAL	STAGN1 NO SXD REQUIRED.	F5G40290
02670	0 76700 0 00002	4102		ALS	2	F5G40300
02671	0 60200 0 00453	4103		SLW	STAGN1	F5G40310
02672	−0 50000 0 00454	4104		CAL	STAGN2	F5G40320
02673	0 76700 0 00001	4105		ALS	1	F5G40330
02674	0 60200 0 00454	4106		SLW	STAGN2	F5G40340
02675	0 02000 0 02700	4107		TRA	CKLOC GO TO CHECK FOR ENDINGS	F5G40350
02676	−0 76000 0 00003	4108	CI7	SSM		F5G40360
02677	0 60100 0 00461	4109		STO	CPIND RECODD LATER COMPILING NECESSARY	F5G40370
		4110			NOW THE END OF BB IS CHECKED FOR	F5G40380
02700	0 50000 2 01101	4111	CKLOC	CLA	INST,2 IF NO LOCATION SYMBOL , THIS CANT BE	F5G40390
02701	0 10000 0 02723	4112		TZE	TR3S ENSING OTHER THAN CERTAINTY	F5G40400
02702	0 50000 2 01075	4113		CLA	INST−4,2 IS THIS LAST INST IN BB	F5G40410
02703	0 40200 0 00444	4114		SUB	NXTLOC	F5G40420
02704	0 10000 0 02743	4115		TZE	ENDBB YES, LOOK FOR TYPE OF ENDING	F5G40430
02705	−0 53400 4 00327	4116		LXD	LD8,4 NO, CHECK FOR ENDING OF GROUP OF INST	F5G40440
02706	−0 50000 2 01100	4117		CAL	INST−1,2	F5G40450
02707	−0 32000 0 00335	4118		ANA	DECMK LOOK AT OP CODE	F5G40460
02710	0 40200 4 00374	4119	SUBP	SUB	LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE	F5G40470
02711	0 10000 4 02737	4120		TZE	TRTIN+1,4 ENDINGS TRANSFER WHEN FOUND	F5G40480
02712	2 00001 4 02710	4121		TIX	SUBP,4,1 TRY NEXT POSSIBILITY	F5G40490
02713	−0 50000 2 01100	4122		CAL	INST−1,2 NOT FOUND, LOOK FORCONDITIONAL TRANSFER	F5G40500
02714	−0 32000 0 00400	4123	6ANA	ANA	FSTLT	F5G40510
02715	0 60200 0 00457	4124		SLW	TMP10	F5G40520
02716	0 50000 0 00457	4125		CLA	TMP10	F5G40530
02717	0 40200 0 00401	4126		SUB	FSTT	F5G40540
02720	0 10000 0 03162	4127		TZE	TTYPE IS A CONDITIONAL TRANSFER	F5G40550
02721	0 07400 4 02172	4128	NOEND	TSX	SCMI,4 NOT AN END OD BB COMPILE INST	F5G40560
02722	1 00004 2 02525	4129		TXI	FNDAS,2,4 IF IT NEEDS TO BE	F5G40570
02723	0 50000 2 01075	4130	TR3S	CLA	INST−4,2 IS THIS LAST INST IN BB	F5G40580
02724	0 40200 0 00444	4131		SUB	NXTLOC	F5G40590
02725	0 10000 0 03042	4132		TZE	SEQTR YES	F5G40600
02726	0 02000 0 02721	4133		TRA	NOEND NO	F5G40610
		4134			TRANSFER VECTOR SEE SUBP+1 ABOVE	F5G40620
02727	0 02000 0 03046	4135		TRA	GOTOV TRA IS OP CODE	F5G40630
02730	0 02000 0 03115	4136		TRA	IF2PS PSE	F5G40640
02731	0 02000 0 03171	4137		TRA	IF2CS DCT	F5G40650
02732	0 02000 0 03171	4138		TRA	IF2CS RTT	F5G40660
02733	0 02000 0 03125	4139		TRA	MSECS MSE	F5G40670
02734	0 02000 0 03226	4140		TRA	IF3CS TZE	F5G40680
02735	0 02000 0 03324	4141		TRA	STPCSZ HPR	F5G40690
02736	0 02000 0 02721	4142	TRTIN	TRA	NOEND TSX	F5G40700
		4143			THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW	F5G40710
02737	0 02000 0 02752	4144		TRA	TRACS TRAIS OP CODE	F5G40720
02740	0 02000 0 03037	4145		TRA	DOCS TXL	F5G40730
02741	0 02000 0 03042	4146		TRA	PAUSE HPR	F5G40740
02742	0 02000 0 02755	4147	TRTTR	TRA	TRAC3 TTR	F5G40750
02743	−0 53400 4 00325	4148	ENDBB	LXD	LD4,4 THIS INST ENDS A BASIC	F5G40760
02744	0 50000 2 01100	4149		CLA	INST−1,2 BLOCK LOOKAT OP CODE	F5G40770
02745	−0 32000 0 00335	4150		ANA	DECMK FOR TYPE OF ENDING	F5G40780
02746	0 40200 4 00400	4151	6SUB	SUB	LTROP+1,4	F5G40790
02747	0 10000 4 02743	4152		TZE	TRTTR+1,4 TRANSFER IF IOUND	F5G40800
02750	2 00001 4 02746	4153		TIX	6SUB,4,1 TRY NEXT POSSIBILITY	F5G40810
02751	0 02000 0 03042	4154		TRA	SEQTR	F5G40820
02752	−0 50000 2 01077	4155	TRACS	CAL	INST−2,2 OP CODE IS TRA SEE IF ADDRESS	F5G40830
02753	−0 32000 0 00403	4156		ANA	PFXMK IS IN PROGRAM UNCONDITITONAL TRANSFER	F5G40840
02754	−0 10000 0 02772	4157		TNZ	GOTON IF TRANSFER IT IS A GO TO N	F5G40850
02755	−0 63400 2 00447	4158	TRAC3	SXD	BBOX,2 THIS IS GO TO ALPHA	F5G40860
02756	−0 50000 0 00443	4159		CAL	BBNO	F5G40870
02757	0 77100 0 00022	4160		ARS	18	F5G40880
02760	0 60100 0 00462	4161		STO	ARG1 STORE BBNO AS ARGUMENT OF SAD	F5G40890
02761	0 07400 4 00067	4162		TSX	SE1,4	F5G40900
02762	−0 50000 1 06442	4163		CAL	BBB,1	F5G40910
02763	0 07400 4 00044	4164		TSX	SE6,4 GET SUCC. TABLE ENTRY	F5G40920
02764	−0 50000 1 07555	4165		CAL	SUCC,1	F5G40930
02765	0 07400 4 02126	4166		TSX	SAD,4 GO TO DETERMINE SYMBOLIC ADDRESS	F5G40940
02766	−0 53400 2 00447	4167		LXD	BBOX,2	F5G40950
02767	0 60200 2 01077	4168		SLW	INST−2,2 TEPLACE SYMBOLIC ADDR.	F5G40960
02770	0 07400 4 02172	4169		TSX	SCMI,4 COMPILE THE INSTR	F5G40970
02771	1 00004 2 03544	4170		TXI	BEGBB,2,4 BEGINNING OF BB, INDEX TO NEXT INSTR	F5G40980
02772	−0 63400 2 00447	4171	GOTON	SXD	BBOX,2	F5G40990
02773	0 50000 0 00443	4172		CLA	BBNO	F5G41000
02774	0 07400 4 00070	4173		TSX	SE,4	F5G41010
02775	0 50000 1 06442	4174		CLA	BBB,1 CHECK TO MAKE SURE THIS IS GO TO N	F5G41020
02776	0 77100 0 00041	4175		ARS	33	F5G41030
02777	0 40000 0 00315	4176		ADD	ONEA	F5G41040
03000	0 10000 0 03002	4177		TZE	GON1	F5G41050
03001	0 07400 4 00004	4178		TSX	4,4 DIAGNOSTIC THIS ISNT GO N	F5G41060
03002	−0 50000 1 06443	4179	GON1	CAL	BBB+1,1	F5G41070
03003	0 77100 0 00041	4180		ARS	33 PUT SXD CASE IN TMP10	F5G41080
03004	0 60200 0 00457	4181		SLW	TMP10	F5G41090
		4182			NOW ANY SXD BEFIR GO TO N ARE COMPILED	F5G41100
03005	−0 53400 2 00324	4183		LXD	LD3,2	F5G41110
03006	0 50000 2 00361	4184	GON3	CLA	VSTAG,2 DOES THIS THIS IR NEED SXD	F5G41120
03007	−0 32000 0 00457	4185		ANA	TMP10	F5G41130
03010	0 10000 0 03032	4186		TZE	GON2	F5G41140
03011	−0 63400 1 00451	4187		SXD	ABOX,1 YES	F5G41150
03012	0 56000 0 00314	4188		LDQ	ZERO REPLACE LOCATION BY 0 AND	F5G41160
03013	−0 53400 4 00447	4189		LXD	BBOX,4 PUT LOCATION ON THE	F5G41170
03014	0 50000 4 01101	4190		CLA	INST,4 SXD INST.	F5G41180
03015	−0 60000 4 01101	4191		STQ	INST,4 SXDINST	F5G41190
03016	0 07400 4 02367	4192		TSX	SK,4	F5G41200
03017	0 50000 0 00411	4193		CLA	LSXD	F5G41210
03020	0 07400 4 02367	4194		TSX	SK,4	F5G41220
03021	−0 53400 1 00451	4195		LXD	ABOX,1	F5G41230
03022	−0 50000 1 06444	4196		CAL	BBB+2,1	F5G41240
03023	−0 32000 0 00342	4197		ANA	TAGMK	F5G41250
03024	−0 50100 0 00415	4198		ORA	IDTAG	F5G41260
03025	0 07400 4 02367	4199		TSX	SK,4	F5G41270
03026	−0 50000 0 00457	4200		CAL	TMP10	F5G41280
03027	−0 32000 2 00361	4201		ANA	VSTAG,2	F5G41290
03030	0 07400 4 02367	4202		TSX	SK,4	F5G41300
03031	−0 53400 1 00451	4203		LXD	ABOX,1	F5G41310
03032	1 77777 1 03033	4204	GON2	TXI	GON2+1,1,−1	F5G41320
03033	2 00001 2 03006	4205		TIX	GON3,2,1	F5G41330
03034	−0 53400 2 00447	4206		LXD	BBOX,2	F5G41340
03035	0 07400 4 02172	4207		TSX	SCMI,4 COMPILE THE INST	F5G41350
03036	1 00004 2 03544	4208		TXI	BEGBB,2,4	F5G41360
03037	−0 75400 0 00000	4209	DOCS	PXD	0,0	F5G41370
03040	0 60100 0 01101	4210		STO	SXST T RECORD THERE IS SEQUDNTIAL TRANSFER	F5G41380
03041	0 02000 0 02755	4211		TRA	TRAC3 OTHERWISE DO EXACTLY AS FOR TRA TRANSFER	F5G41390
03042	−0 75400 0 00000	4212	PAUSE	PXD	0,0	F5G41400
	03042	4213	SEQTR	SYN	PAUSE	F5G41410
03043	0 60100 0 01101	4214		STO	SXST RECORD SEQUENTIAL TRANSFER	F5G41420
03044	0 07400 4 02172	4215		TSX	SCMI,4	F5G41430
03045	1 00004 2 03544	4216		TXI	BEGBB,2,4	F5G41440
03046	0 07400 4 02172	4217	GOTOV	TSX	SCMI,4 COMPILE INST IF NECESSARY	F5G41450
03047	0 50000 2 01076	4218		CLA	INST−3,2 FIND NO. OF BRANCHES IN VECTOR	F5G41460
03050	0 40200 0 00316	4219		SUB	LD1	F5G41470
03051	0 62200 0 00463	4220		STD	MBOX	F5G41480
03052	0 50000 0 00443	4221		CLA	BBNO	F5G41490
03053	0 77100 0 00022	4222		ARS	18 STORE BBNO FOR SAD ROUTINE	F5G41500
03054	0 60100 0 00462	4223		STO	ARG1	F5G41510
03055	1 00004 2 03056	4224	GOV4	TXI	GOV4+1,2,4	F5G41520
03056	−0 63400 2 00450	4225		SXD	BBOX1,2	F5G41530
03057	0 07400 4 00067	4226		TSX	SE1,4	F5G41540
03060	0 50000 1 06442	4227		CLA	BBB,1	F5G41550
03061	0 60200 0 00464	4228		SLW	SUCNO STORE NO OF 1ST SUCCESSOR	F5G41560
03062	−0 53400 2 00450	4229		LXD	BBOX1,2	F5G41570
03063	−2 00144 2 03065	4230	13TNX	TNX	GOV1,2,ZINST IS BLOCK OF INST ALL USED	F5G41580
03064	0 07400 4 03472	4231		TSX	RDINS,4 T READ NEXT BLOCK	F5G41590
03065	−0 63400 2 00450	4232	GOV1	SXD	BBOX1,2	F5G41600
03066	−0 50000 0 00464	4233		CAL	SUCNO	F5G41610
03067	0 07400 4 00044	4234		TSX	SE6,4	F5G41620
03070	0 50000 1 07555	4235		CLA	SUCC,1	F5G41630
03071	0 07400 4 02126	4236		TSX	SAD,4 FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER	F5G41640
03072	−0 53400 2 00450	4237		LXD	BBOX1,2	F5G41650
03073	0 60200 0 00457	4238		SLW	TMP10 STORE SYMBOLIC ADDR.	F5G41660
03074	−0 53400 4 00463	4239		LXD	MBOX,4	F5G41670
03075	2 00001 4 03101	4240		TIX	GOV2,4,1 IS THIS THE LAST TRANSFER	F5G41680
03076	0 50000 2 01077	4241		CLA	INST−2,2	F5G41690
03077	0 40200 0 00444	4242		SUB	NXTLOC 1ST INST IN NEXT BB, IS IT	F5G41700
03100	0 10000 0 03104	4243		TZE	GOV3	F5G41710
03101	0 50000 0 00457	4244	GOV2	CLA	TMP10 NO	F5G41720
03102	0 60100 2 01077	4245		STO	INST−2,2	F5G41730
03103	0 07400 4 02172	4246		TSX	SCMI,4 COMPILE THE INXT	F5G41740
03104	1 00004 2 03105	4247	GOV3	TXI	GOV3+1,2,4	F5G41750
03105	−0 50000 0 00464	4248		CAL	SUCNO	F5G41760
03106	0 40000 0 00316	4249		ADD	ONED	F5G41770
03107	0 60200 0 00464	4250		SLW	SUCNO	F5G41780
03110	−0 53400 4 00463	4251		LXD	MBOX,4	F5G41790
03111	1 77777 4 03112	4252	GOV5	TXI	GOV5+1,4,−1	F5G41800
03112	−0 63400 4 00463	4253		SXD	MBOX,4	F5G41810
03113	3 00000 4 03063	4254		TXH	13TNX,4,0 IS THIS LAST TRA OF VECTOR	F5G41820
03114	0 02000 0 03544	4255		TRA	BEGBB YES	F5G41830
03115	0 50000 2 01076	4256	IF2PS	CLA	INST−3,2 THIS IS PSE LOOK AT ADDRESS TO	F5G41840
03116	−0 32000 0 00404	4257		ANA	XXPSX SEE IF IT IS 164-6	F5G41850
03117	0 40200 0 00405	4258		SUB	XX16X	F5G41860
03120	0 10000 0 03125	4259		TZE	PSTCS YES, IT IS A TEST	F5G41870
03121	0 50000 2 01076	4260		CLA	INST−3,2	F5G41880
03122	−0 32000 0 00335	4261		ANA	DECMK NO, SEE IF ADDR IS 360	F5G41890
03123	0 40200 0 00406	4262		SUB	XX360	F5G41900
03124	−0 10000 0 02721	4263		TNZ	NOEND NO, THIS ISNT BB END	F5G41910
03125	0 07400 4 02172	4264	PSTCS	TSX	SCMI,4 THIS IS A PSE TEST INST	F5G41920
	03125	4265	MSECS	SYN	PSTCS OR AN MSE INST	F5G41930
03126	1 00004 2 03127	4266	PS1	TXI	PS1+1,2,4 INEDX TO CONSIEER 1ST TRANSFER	F5G41940
03127	−0 63400 2 00450	4267		SXD	BBOX1,2	F5G41950
03130	−0 50000 0 00443	4268		CAL	BBNO	F5G41960
03131	0 77100 0 00022	4269		ARS	18	F5G41970
03132	0 60100 0 00462	4270		STO	ARG1 STORE BBNO AS ARGUMENT FOR SAD	F5G41980
03133	0 07400 4 00067	4271		TSX	SE1,4	F5G41990
03134	−0 50000 1 06442	4272		CAL	BBB,1	F5G42000
03135	0 60100 0 00464	4273		STO	SUCNO GETNUMBER OF 1ST SUCCESSOR	F5G42010
03136	0 40000 0 00316	4274		ADD	LD1	F5G42020
03137	0 07400 4 00044	4275		TSX	SE6,4 GET THE SECOND SUCC ENTRY	F5G42030
03140	0 50000 1 07555	4276		CLA	SUCC,1	F5G42040
03141	0 07400 4 02126	4277		TSX	SAD,4	F5G42050
03142	−0 53400 2 00450	4278		LXD	BBOX1,2	F5G42060
03143	0 60200 2 01077	4279		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42070
03144	0 07400 4 02172	4280		TSX	SCMI,4	F5G42080
03145	1 00004 2 03146	4281	PS2	TXI	PS2+1,2,4 INCREASE INSTR INDEX	F5G42090
03146	0 50000 2 01077	4282		CLA	INST−2,2 IS THIS A SEQUENTIAL TRANSFER	F5G42100
03147	0 40200 0 00444	4283		SUB	NXTLOC	F5G42110
03150	0 10000 0 03307	4284		TZE	PS3 YES, SKIP COMPILING THE INST	F5G42120
03151	−0 63400 2 00450	4285		SXD	BBOX1,2 NO	F5G42130
03152	0 50000 0 00464	4286		CLA	SUCNO	F5G42140
03153	0 07400 4 00044	4287		TSX	SE6,4	F5G42150
03154	0 50000 1 07555	4288		CLA	SUCC,1	F5G42160
03155	0 07400 4 02126	4289		TSX	SAD,4 DETERMINE THE SYMBOLIC ADDRESS	F5G42170
03156	−0 53400 2 00450	4290		LXD	BBOX1,2	F5G42180
03157	0 60200 2 01077	4291		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42190
03160	0 07400 4 02172	4292		TSX	SCMI,4 COMPILE THE INST.	F5G42200
03161	1 00004 2 03544	4293		TXI	BEGBB,2,4	F5G42210
03162	0 50000 2 01077	4294	TTYPE	CLA	INST−2,2 IS THIS TRANSFER TO NEXT INST.	F5G42220
03163	0 34000 2 01101	4295		CAS	INST,2	F5G42230
03164	0 02000 0 03166	4296		TRA	TTYP1	F5G42240
03165	0 02000 0 02721	4297		TRA	NOEND YES	F5G42250
03166	0 40200 0 00402	4298	TTYP1	SUB	PCC	F5G42260
03167	0 10000 0 02721	4299		TZE	NOEND YES	F5G42270
03170	0 02000 0 03173	4300		TRA	CNOTR NO, IS CONDITIONAL TRANSFER	F5G42280
03171	0 07400 4 02172	4301	IF2CS	TSX	SCMI,4 THIS IS DCT OR RTT	F5G42290
03172	1 00004 2 03173	4302	RT1	TXI	RT1+1,2,4 INDEX TO CONSIDER 1ST TRANSFER	F5G42300
03173	−0 63400 2 00450	4303	CNOTR	SXD	BBOX1,2 STORE BBNO. AS ARGUMENT	F5G42310
03174	−0 50000 0 00443	4304		CAL	BBNO STORE BBNO AS ARGUMENT	F5G42320
03175	0 77100 0 00022	4305		ARS	18 OF SAD	F5G42330
03176	0 60100 0 00462	4306		STO	ARG1	F5G42340
03177	0 07400 4 00067	4307		TSX	SE1,4	F5G42350
03200	−0 50000 1 06442	4308		CAL	BBB,1	F5G42360
03201	0 60100 0 00464	4309		STO	SUCNO	F5G42370
03202	0 07400 4 00044	4310		TSX	SE6,4 GET THE 1ST SUCC ENTRY	F5G42380
03203	0 50000 1 07555	4311		CLA	SUCC,1	F5G42390
03204	0 07400 4 02126	4312		TSX	SAD,4	F5G42400
03205	−0 53400 2 00450	4313		LXD	BBOX1,2	F5G42410
03206	0 60200 2 01077	4314		SLW	INST−2,2 REPLACE SYMBOLIC ADDRESS	F5G42420
03207	0 07400 4 02172	4315		TSX	SCMI,4 COMPILE THE INST	F5G42430
03210	1 00004 2 03211	4316	RT2	TXI	RT2+1,2,4	F5G42440
03211	0 50000 2 01077	4317		CLA	INST−2,2 IS THIS A SEQUENTIAL TRANSFER	F5G42450
03212	0 40200 0 00444	4318		SUB	NXTLOC	F5G42460
03213	0 10000 0 03307	4319		TZE	PS3 YES, SKIP COMPILING THE INST	F5G42470
03214	−0 63400 2 00450	4320		SXD	BBOX1,2	F5G42480
03215	0 50000 0 00464	4321		CLA	SUCNO	F5G42490
03216	0 40000 0 00316	4322		ADD	LD1	F5G42500
03217	0 07400 4 00044	4323		TSX	SE6,4	F5G42510
03220	0 50000 1 07555	4324		CLA	SUCC,1	F5G42520
03221	0 07400 4 02126	4325		TSX	SAD,4 DETERMINE THE SYMBOLIC ADDR	F5G42530
03222	−0 53400 2 00450	4326		LXD	BBOX1,2	F5G42540
03223	0 60200 2 01077	4327		SLW	INST−2,2	F5G42550
03224	0 07400 4 02172	4328		TSX	SCMI,4 COMPILE THE TRANSFER	F5G42560
03225	1 00004 2 03544	4329		TXI	BEGBB,2,4	F5G42570
03226	−0 63400 2 00450	4330	IF3CS	SXD	BBOX1,2 THIS IS A TZE INST I. E. AN IF	F5G42580
03227	−0 50000 0 00443	4331		CAL	BBNO	F5G42590
03230	0 77100 0 00022	4332		ARS	18 STORE BB NO. FOR SUBROUTINE	F5G42600
03231	0 60100 0 00462	4333		STO	ARG1	F5G42610
03232	0 07400 4 00067	4334		TSX	SE1,4 ARGUMENT	F5G42620
03233	−0 50000 1 06442	4335		CAL	BBB,1	F5G42630
03234	0 60100 0 00464	4336		STO	SUCNO	F5G42640
03235	0 40000 0 00316	4337		ADD	LD1 GET THE SUCC ENTRY	F5G42650
03236	0 07400 4 00044	4338		TSX	SE6,4 FOR THE TZE	F5G42660
03237	0 50000 1 07555	4339		CLA	SUCC,1	F5G42670
03240	0 07400 4 02126	4340		TSX	SAD,4	F5G42680
03241	−0 53400 2 00450	4341		LXD	BBOX1,2	F5G42690
03242	0 60200 2 01077	4342		SLW	INST−2,2 REPLACE THE SYMBOLIC ADDREAS	F5G42700
03243	0 07400 4 02172	4343		TSX	SCMI,4 C0MPILE THE TZE	F5G42710
03244	1 00004 2 03245	4344	IF1	TXI	IF1+1,2,4	F5G42720
03245	−0 50000 2 01100	4345		CAL	INST−1,2 CHECK NEXT INST TO SEE	F5G42730
03246	−0 32000 0 00343	4346		ANA	LFTMSK IF IT IS TPL	F5G42740
03247	0 60200 0 00457	4347		SLW	TMP10	F5G42750
03250	0 50000 0 00457	4348		CLA	TMP10	F5G42760
03251	0 40200 0 00344	4349		SUB	LTPL	F5G42770
03252	0 10000 0 03254	4350		TZE	16CLA	F5G42780
03253	0 07400 4 00004	4351	IFHPR	TSX	4,4 IF NOT, DIAGNOSTIC	F5G42790
03254	0 50000 2 01077	4352	16CLA	CLA	INST−2,2 DOES THIS EXIT GO TO NEXT BB	F5G42800
03255	0 40200 0 00444	4353		SUB	NXTLOC	F5G42810
03256	−0 10000 0 03265	4354		TNZ	IF2	F5G42820
03257	0 50000 2 01073	4355		CLA	INST−6,2 YES, DOES NEXT ONE ALSO	F5G42830
03260	0 40200 0 00444	4356		SUB	NXTLOC	F5G42840
03261	−0 10000 0 03265	4357		TNZ	IF2	F5G42850
03262	−0 75400 0 00000	4358		PXD	0,0 YES, RECORD SEQUENTIAL TRANSFER	F5G42860
03263	0 60100 0 01101	4359		STO	SXST	F5G42870
03264	1 00010 2 03544	4360		TXI	BEGBB,2,8	F5G42880
03265	−0 63400 2 00450	4361	IF2	SXD	BBOX1,2 COMPILE THE TPL	F5G42890
03266	0 50000 0 00464	4362		CLA	SUCNO	F5G42900
03267	0 07400 4 00044	4363		TSX	SE6,4	F5G42910
03270	0 50000 1 07555	4364		CLA	SUCC,1	F5G42920
03271	0 07400 4 02126	4365		TSX	SAD,4 FIND AND	F5G42930
03272	−0 53400 2 00450	4366		LXD	BBOX1,2 REPLACE	F5G42940
03273	0 60200 2 01077	4367		SLW	INST−2,2 SYMBOLIC ADDRESS	F5G42950
03274	0 07400 4 02172	4368		TSX	SCMI,4	F5G42960
03275	1 00004 2 03276	4369	IF3	TXI	IF3+1,2,4	F5G42970
03276	−0 50000 2 01100	4370		CAL	INST−1,2 IS THIS TRA	F5G42980
03277	−0 32000 0 00343	4371		ANA	LFTMSK	F5G42990
03300	0 60200 0 00457	4372		SLW	TMP10	F5G43000
03301	0 50000 0 00457	4373		CLA	TMP10	F5G43010
03302	0 40200 0 00350	4374		SUB	LTRA	F5G43020
03303	−0 10000 0 03253	4375		TNZ	IFHPR IF NOT , STOP	F5G43030
03304	0 50000 2 01077	4376		CLA	INST−2,2 YES IT IS IS THIS A	F5G43040
03305	0 40200 0 00444	4377		SUB	NXTLOC SEQUENTIAL TRANSFER	F5G43050
03306	−0 10000 0 03312	4378		TNZ	IF4	F5G43060
03307	−0 75400 0 00000	4379	PS3	PXD	0,0 YES, RECORD THAT	F5G43070
03310	0 60100 0 01101	4380		STO	SXST	F5G43080
03311	1 00004 2 03544	4381		TXI	BEGBB,2,4	F5G43090
03312	−0 63400 2 00450	4382	IF4	SXD	BBOX1,2 CONPILE THE TRA	F5G43100
03313	0 50000 0 00464	4383		CLA	SUCNO	F5G43110
03314	0 40000 0 00323	4384		ADD	LD2	F5G43120
03315	0 07400 4 00044	4385		TSX	SE6,4	F5G43130
03316	0 50000 1 07555	4386		CLA	SUCC,1 IF NECESSARY	F5G43140
03317	0 07400 4 02126	4387		TSX	SAD,4 MODIFY THE	F5G43150
03320	−0 53400 2 00450	4388		LXD	BBOX1,2 SYMBOLIC	F5G43160
03321	0 60200 2 01077	4389		SLW	INST−2,2 ADDRESS	F5G43170
03322	0 07400 4 02172	4390		TSX	SCMI,4	F5G43180
03323	1 00004 2 03544	4391		TXI	BEGBB,2,4	F5G43190
03324	0 50000 2 01074	4392	STPCSZ	CLA	INST−5,2	F5G43200
03325	0 40200 0 00350	4393		SUB	LTRA	F5G43210
03326	−0 10000 0 02721	4394		TNZ	NOEND	F5G43220
03327	0 50000 2 01101	4395		CLA	INST,2	F5G43230
03330	0 40200 2 01073	4396		SUB	INST−6,2	F5G43240
03331	−0 10000 0 02721	4397		TNZ	NOEND	F5G43250
03332	0 07400 4 02172	4398	STPCS	TSX	SCMI,4 COMPILE THE TWO INXT	F5G43260
03333	1 00004 2 03334	4399	STP1	TXI	STP1+1,2,4 AND GO TO STAET BB	F5G43270
03334	0 07400 4 02172	4400		TSX	SCMI,4	F5G43280
03335	1 00004 2 03544	4401		TXI	BEGBB,2,4	F5G43290
		4402			THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND	F5G43300
		4403			SUBROUTINE CALL SEQUENCES	F5G43310
03336	−0 50000 2 01100	4404	CI7A	CAL	INST−1,2 IS THIS AN SXD INST	F5G43320
03337	−0 32000 0 00343	4405		ANA	LFTMSK	F5G43330
03340	0 60200 0 00457	4406		SLW	TMP10	F5G43340
03341	0 50000 0 00457	4407		CLA	TMP10	F5G43350
03342	0 40200 0 00411	4408		SUB	LSXD	F5G43360
03343	−0 10000 0 03412	4409		TNZ	CI7C	F5G43370
03344	−0 50000 2 01076	4410		CAL	INST−3,2 YES, DOES IT HAVE TAG 4	F5G43380
03345	−0 32000 0 00337	4411		ANA	ADDMK	F5G43390
03346	0 40200 0 00320	4412		SUB	L4	F5G43400
03347	−0 10000 0 03412	4413		TNZ	CI7C	F5G43410
03350	0 50000 0 00460	4414		CLA	CIND YES, IS IR4 NECESSARY	F5G43420
03351	0 12000 0 03401	4415		TPL	DLSXD	F5G43430
03352	−0 50000 2 01074	4416		CAL	INST−5,2 YES, IS THE NEXT INST A TSX	F5G43440
03353	−0 32000 0 00343	4417		ANA	LFTMSK	F5G43450
03354	0 60200 0 00457	4418		SLW	TMP10	F5G43460
03355	0 50000 0 00457	4419		CLA	TMP10	F5G43470
03356	0 40200 0 00351	4420		SUB	LTSX	F5G43480
03357	−0 10000 0 03412	4421		TNZ	CI7C	F5G43490
03360	0 50000 2 01101	4422		CLA	INST,2	F5G43500
03361	0 07400 4 02367	4423		TSX	SK,4 YES, COMPILE AN SXD INSTR , TAG 4, TO	F5G43510
03362	0 50000 0 00411	4424		CLA	LSXD SPECIAL TEMP. STORAGE LOC.	F5G43520
03363	0 07400 4 02367	4425		TSX	SK,4	F5G43530
03364	0 50000 0 00354	4426		CLA	GSYM	F5G43540
03365	0 07400 4 02367	4427		TSX	SK,4	F5G43550
03366	0 50000 0 00355	4428		CLA	T4SYM	F5G43560
03367	0 07400 4 02367	4429		TSX	SK,4	F5G43570
03370	0 50000 2 01075	4430	CMTSX	CLA	INST−4,2 COMPILE THE TSX INST	F5G43580
03371	0 07400 4 02367	4431	CMTS1	TSX	SK,4	F5G43590
03372	0 50000 2 01074	4432		CLA	INST−5,2	F5G43600
03373	0 07400 4 02367	4433		TSX	SK,4	F5G43610
03374	0 50000 2 01073	4434		CLA	INST−6,2	F5G43620
03375	0 07400 4 02367	4435		TSX	SK,4	F5G43630
03376	0 50000 2 01072	4436		CLA	INST−7,2	F5G43640
03377	0 07400 4 02367	4437		TSX	SK,4	F5G43650
03400	1 00010 2 02525	4438	CI7B	TXI	FNDAS,2,8 LOOK AT NEXT INST LXF	F5G43660
03401	0 50000 2 01101	4439	DLSXD	CLA	INST,2	F5G43670
03402	0 07400 4 02367	4440		TSX	SK,4 IR4 NOT NECESS. COMPILE BSS 0.	F5G43680
03403	0 50000 0 00352	4441		CLA	LBSS	F5G43690
03404	0 07400 4 02367	4442		TSX	SK,4	F5G43700
03405	0 50000 0 00314	4443		CLA	ZERO	F5G43710
03406	0 07400 4 02367	4444		TSX	SK,4	F5G43720
03407	0 50000 0 00314	4445		CLA	ZERO	F5G43730
03410	0 07400 4 02367	4446		TSX	SK,4	F5G43740
03411	0 02000 0 03370	4447		TRA	CMTSX	F5G43750
03412	−0 50000 2 01100	4448	CI7C	CAL	INST−1,2 IS THIS AN LXD	F5G43770
03413	−0 32000 0 00343	4449		ANA	LFTMSK	F5G43780
03414	0 60200 0 00457	4450		SLW	TMP10	F5G43790
03415	0 50000 0 00457	4451		CLA	TMP10	F5G43800
03416	0 40200 0 00414	4452		SUB	LLXD	F5G43810
03417	−0 10000 0 02676	4453		TNZ	CI7 NO, GO TO COMPILE THE INST	F5G43820
03420	−0 50000 2 01076	4454		CAL	INST−3,2 YES, IS THE TAG 4	F5G43830
03421	−0 32000 0 00337	4455		ANA	ADDMK	F5G43840
03422	0 40200 0 00320	4456		SUB	L4	F5G43850
03423	−0 10000 0 02676	4457		TNZ	CI7 NO, G0 TO C0MPILE THE INST.	F5G43860
03424	0 50000 0 00460	4458		CLA	CIND YES. IS IR4 NECESSARY.	F5G43870
03425	0 12000 0 03460	4459		TPL	CI7E NO, GO TO REPRESS LATER COMPILING OF INST	F5G43880
03426	−0 76000 0 00141	4460		MSE	97 CHECK FOR LXP WHICH WAS LXD-D.	F5G43881
03427	0 02000 0 03432	4461		TRA	CI7C1 NO,SUCH.	F5G43882
03430	0 76000 0 00003	4462		SSP	THERE WAS, SUPPRESS LATER COMPILING	F5G43883
03431	0 02000 0 03460	4463		TRA	CI7E OF INST.	F5G43884
03432	−0 50000 2 01074	4464	CI7C1	CAL	INST−5,2 IS FOLLOWING INSTR AN SXD.	F5G43885
03433	−0 32000 0 00343	4465		ANA	LFTMSK	F5G43900
03434	0 60200 0 00457	4466		SLW	TMP10	F5G43910
03435	0 50000 0 00457	4467		CLA	TMP10	F5G43920
03436	0 40200 0 00411	4468		SUB	LSXD	F5G43930
03437	−0 10000 0 03450	4469		TNZ	CI7D	F5G43940
03440	−0 50000 2 01072	4470		CAL	INST−7,2 YES, IS THE TAG A 4	F5G43950
03441	−0 32000 0 00337	4471		ANA	ADDMK	F5G43960
03442	0 40200 0 00320	4472		SUB	L4	F5G43970
03443	−0 10000 0 03450	4473		TNZ	CI7D	F5G43980
03444	0 50000 2 01075	4474		CLA	INST−4,2 IS SXD FIRST INSTR	F5G43990
03445	0 40200 0 00444	4475		SUB	NXTLOC OF NEXT BB.	F5G44000
03446	0 10000 0 03450	4476		TZE	CI7D YES, COMPILE LX.	F5G44010
03447	1 00010 2 02525	4477		TXI	FNDAS,2,8 NO--DELETE LX, SX.	F5G44020
03450	0 50000 0 00314	4478	CI7D	CLA	ZERO CLMPILE THE LXO WITH GARBAGE	F5G44030
03451	0 07400 4 02367	4479		TSX	SK,4 SYMBOLADDEAA AND TAG 4	F5G44040
03452	0 50000 0 00414	4480		CLA	LLXD	F5G44050
03453	0 07400 4 02367	4481		TSX	SK,4	F5G44060
03454	0 50000 0 00354	4482		CLA	GSYM	F5G44070
03455	0 07400 4 02367	4483		TSX	SK,4	F5G44080
03456	0 50000 0 00355	4484		CLA	T4SYM	F5G44090
03457	0 07400 4 02367	4485		TSX	SK,4	F5G44100
03460	0 60100 0 00461	4486	CI7E	STO	CPIND SURPRESS LATER C0MPILING INST SET +	F5G44110
03461	0 02000 0 02700	4487		TRA	CKLOC	F5G44120
03462	0 50000 2 01076	4488	CI3A	CLA	INST−3,2 IS THE S-TAG EQUAL TO 4	F5G44130
03463	0 60200 0 00461	4489		SLW	CPIND RECORD INST. NOT TO BE COMPILED	F5G44140
03464	−0 32000 0 00337	4490		ANA	ADDMK	F5G44150
03465	0 40200 0 00320	4491		SUB	L4	F5G44160
03466	−0 10000 0 02667	4492		TNZ	CI6	F5G44170
03467	−0 75400 0 00000	4493		PXD	0,0 YES, RECORD IR4 NOT NECESSARY	F5G44180
03470	0 60100 0 00460	4494		STO	CIND	F5G44190
03471	0 02000 0 02667	4495		TRA	CI6 SINCE LXP OR DED, SKIP COMPILING INST.	F5G44200
		4496			THIS R0UTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS	F5G44210
		4497			AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK	F5G44220
03472	−0 63400 4 00445	4498	RDINS	SXD	OUTBX,4 SAVE RETURN INDEX	F5G44230
03473	0 50000 0 00320	4499		CLA	L4 SET ERRBX FOR 5 TRIES	F5G44240
03474	0 60100 0 00446	4500		STO	ERRBX	F5G44250
03475	−0 63400 1 00447	4501		SXD	BBOX,1 SAVE INDEX 1	F5G44260
03476	−0 53400 4 00331	4502		LXD	LD12,4 SHIFT EXTRA INST FROM END	F5G44270
03477	0 50000 4 00735	4503	D1CLA	CLA	NDINS,4 OF BLOCK TO BEGINNING	F5G44280
03500	0 60100 4 01101	4504		STO	INST,4	F5G44290
03501	2 00001 4 03477	4505		TIX	D1CLA,4,1 IS BLOCK SHIFTED	F5G44300
03502	0 76200 0 00224	4506	D1RDS	RTB	INSTTP SELECT INST TAPE	F5G44310
03503	0 53400 1 00362	4507		LXA	RECSC,1 YES, SET INDEX FOR NO. OF RECORDS	F5G44320
03504	0 70000 4 01065	4508	D1CPY	CPY	INST−12,4 COPY BLOCK OF INST	F5G44330
03505	1 00001 4 03504	4509		TXI	D1CPY,4,1 SET FOR NEXT WORD	F5G44340
03506	0 02000 0 03516	4510		TRA	D2END END OF FILE	F5G44350
03507	−2 00001 1 03512	4511		TNX	D1BCK,1,1 END OF RECORD IS IT END OF LAST RECORD	F5G44360
03510	0 76200 0 00224	4512		RTB	INSTTP NO, READ NEXT RECORD	F5G44370
03511	0 02000 0 03504	4513		TRA	D1CPY	F5G44380
03512	0 76600 0 00333	4514	D1BCK	IOD	TEST FOR TAPE ERROR	F5G44390
03513	−0 76000 0 00012	4515		RTT		F5G44400
03514	0 02000 0 03530	4516		TRA	INERR ERROR	F5G44410
03515	3 00143 4 03525	4517		TXH	D1XX,4,ZINST−1 IF 3RD FULL REC. NOT END OF FILE	F5G44420
03516	−0 75400 4 00000	4518	D2END	PXD	0,4 REACHED END OF INSTR	F5G44430
03517	0 40000 0 00327	4519		ADD	LD8 PUT TEST FOR LAST INST	F5G44440
03520	0 62200 0 02525	4520		STD	FNDAS INTO MAIN ROUTINE	F5G44450
03521	0 50000 0 00363	4521		CLA	LCOUT PUT ADDR OF FINAL EXIT INTO MAIN	F5G44460
03522	0 60100 0 02526	4522		STO	FNDAS+1 ROUTINE	F5G44470
03523	0 50000 0 00336	4523		CLA	ENDMK	F5G44480
03524	0 60100 4 01065	4524		STO	INST−12,4	F5G44490
03525	−0 53400 4 00445	4525	D1XX	LXD	OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS	F5G44500
03526	−0 53400 1 00447	4526		LXD	BBOX,1	F5G44510
03527	0 02000 4 00001	4527		TRA	1,4 RETURN TO MAIN ROUTINE	F5G44520
03530	0 50000 0 00446	4528	INERR	CLA	ERRBX ERROR IN READING IS THIS 1ST TRY	F5G44530
03531	0 10000 0 03540	4529		TZE	HTRD2 TO READ IN	F5G44540
03532	0 40200 0 00315	4530		SUB	ONEA YES, STORE INDICATION AND TRY AGAIN	F5G44550
03533	0 60100 0 00446	4531		STO	ERRBX	F5G44560
03534	0 76400 0 00204	4532	D2BST	BST	INSTTP BACKSPACE OVER RECORDS JUST READ	F5G44570
03535	1 00001 1 03536	4533		TXI	D2TIX,1,1	F5G44580
03536	−2 00001 1 03534	4534	D2TIX	TNX	D2BST,1,RECNO	F5G44590
03537	0 02000 0 03502	4535		TRA	D1RDS TAPE BACKSPACED TRY AGAIN	F5G44600
03540	0 07400 4 00004	4536	HTRD2	TSX	4,4 ERROR ON 5TH TRY DIAGNOSTIC	F5G44610
03541	−0 53400 2 00331	4537	PASS2	LXD	LD12,2	F5G44620
03542	0 77200 0 00203	4538		REW	OTAPE	F5G44630
03543	1 00145 2 03544	4539	1TXI	TXI	1TXI+1,2,ZINST+1	F5G44640
		4540			INITIALIZE FOR START OF BB	F5G44650
03544	−0 63400 2 00450	4541	BEGBB	SXD	BBOX1,2 STORE INDEX OF POSITION ON ONST TABOE	F5G44660
03545	0 50000 0 00316	4542		CLA	ONED	F5G44670
03546	0 40000 0 00443	4543		ADD	BBNO	F5G44680
03547	0 60100 0 00443	4544		STO	BBNO	F5G44690
03550	0 77100 0 00022	4545		ARS	18 WAS THIS THE LAST BB	F5G44700
03551	0 40200 0 07774	4546		SUB	KEYS	F5G44710
03552	0 40000 0 00315	4547		ADD	ONEA	F5G44720
03553	0 10000 0 04413	4548		TZE	LSTBB YES, GL GO WRITE PARTIAL BLOLK	F5G44730
03554	0 50000 0 01101	4549		CLA	SXST NO	F5G44740
03555	−0 12000 0 03560	4550		TMI	BEGBBY	F5G44750
03556	0 50000 0 00337	4551		CLA	ADDMK	F5G44760
03557	0 60100 0 01101	4552		STO	SXST	F5G44770
03560	0 50000 0 00443	4553	BEGBBY	CLA	BBNO	F5G44780
03561	0 07400 4 00070	4554		TSX	SE,4	F5G44790
03562	−0 50000 1 06444	4555		CAL	BBB+2,1 GET ENTRANCE REQUIREMENT	F5G44800
03563	0 77100 0 00022	4556		ARS	18 FOR IR4	F5G44810
03564	0 40200 0 00340	4557		SUB	STMSK STORE + OR - IF IR4	F5G44820
03565	0 60100 0 00460	4558		STO	CIND ISNT OR IS NECESSARY	F5G44830
03566	0 50000 0 00315	4559		CLA	ONEA RECORD THERE ISNT HANGING TRA 0	F5G44840
03567	0 60100 0 00660	4560		STO	SLV3	F5G44850
03570	−0 50000 0 00443	4561		CAL	BBNO FIND THE 1ST INST IN NEXT	F5G44860
03571	0 40000 0 00316	4562		ADD	ONED	F5G44870
03572	0 07400 4 00070	4563		TSX	SE,4 BB	F5G44880
03573	0 50000 1 06447	4564		CLA	BBB+5,1	F5G44890
03574	0 60100 0 00444	4565		STO	NXTLOC	F5G44900
		4566			DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5	F5G44910
03575	0 56000 0 00314	4567	Z1	LDQ	ZERO INITIALIZE THE EXISTENCE	F5G44920
03576	−0 60000 0 00667	4568		STQ	Z1V5 INDICATOR WORD	F5G44930
03577	0 50000 1 06442	4569		CLA	BBB,1 GET AND STORE NO. OF 1ST PRED IN	F5G44940
03600	0 62100 0 00665	4570		STA	Z1V2 NEXT BB	F5G44950
03601	−0 50000 0 00443	4571		CAL	BBNO	F5G44960
03602	0 07400 4 00070	4572		TSX	SE,4	F5G44970
03603	−0 50000 1 06442	4573		CAL	BBB,1 STORE THE NO OF	F5G44980
03604	0 62100 0 00666	4574		STA	Z1V3 1ST PRED IN	F5G44990
03605	0 62100 0 00670	4575		STA	Z1V8 THIS BB	F5G45000
03606	0 50000 0 00666	4576		CLA	Z1V3	F5G45010
03607	0 34000 0 00665	4577	Z15	CAS	Z1V2 IS THIS PRED IN SAME BB	F5G45020
03610	0 02000 0 03612	4578		TRA	Z12 YES	F5G45030
03611	0 02000 0 03626	4579		TRA	Z2 NO	F5G45040
03612	0 07400 4 00055	4580	Z12	TSX	SE5,4	F5G45050
03613	0 50000 1 07337	4581		CLA	PRED,1 DETERMINE THE	F5G45060
03614	−0 32000 0 00332	4582		ANA	LT7 LXD CASE	F5G45070
03615	0 76700 0 00003	4583		ALS	3	F5G45080
03616	−0 73400 4 00000	4584		PDX	0,4	F5G45090
03617	−0 50000 0 00416	4585		CAL	Z1K3 STORE BIT AS INDICATOR	F5G45100
03620	0 77100 4 00007	4586		ARS	7,4 FOR THIS	F5G45110
03621	−0 60200 0 00667	4587		ORS	Z1V5 LXD CASE	F5G45120
03622	0 50000 0 00666	4588		CLA	Z1V3	F5G45130
03623	0 40000 0 00315	4589		ADD	ONEA ARRANGE TO DEAL WITH NEXT	F5G45140
03624	0 62100 0 00666	4590		STA	Z1V3 PRED	F5G45150
03625	0 02000 0 03607	4591		TRA	Z15	F5G45160
		4592			THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN	F5G45170
		4593			Z1V5 BY Z1	F5G45180
03626	0 56000 0 00314	4594	Z2	LDQ	ZERO	F5G45190
03627	0 53400 1 00422	4595		LXA	Z2K2,1	F5G45200
03630	−0 60000 1 00715	4596	Z21	STQ	LLIND,1 SET THE 3 INDEXDS TO THE SUB	F5G45210
03631	0 50000 1 00422	4597		CLA	Z2K1+3,1 BOTTOM POSITIONS	F5G45220
03632	0 40200 0 00316	4598		SUB	ONED IN THE 3 LISTS AND ALL	F5G45230
03633	0 60100 1 00674	4599		STO	Z2V1+3,1 INDICATORS TO SAY COMPILED	F5G45240
03634	2 00001 1 03630	4600		TIX	Z21,1,1	F5G45250
03635	−0 53400 1 00331	4601		LXD	LD12,1	F5G45260
03636	0 50000 0 00416	4602		CLA	MZE PLACE -0 S IN THE	F5G45270
03637	0 60100 1 00712	4603	Z28	STO	LIST1+12,1 LXD LISTS	F5G45280
03640	2 00001 1 03637	4604		TIX	Z28,1,1	F5G45290
03641	−0 53400 1 00422	4605		LXD	Z2K2,1 SET TO BEGINNING OF CASE LIST	F5G45300
03642	0 56000 0 00667	4606	Z25	LDQ	Z1V5 DID	F5G45310
03643	0 50000 1 00432	4607		CLA	CASE+7,1 THIS	F5G45320
03644	0 73400 2 00000	4608		PAX	0,2 CASE	F5G45330
03645	−0 77300 2 00007	4609		RQL	7,2 OCCURR	F5G45340
03646	0 16200 0 03711	4610		TQP	Z26	F5G45350
03647	0 50000 0 00434	4611		CLA	Z2K5 YES, SET NO OF ONES IN	F5G45360
03650	0 60100 0 00674	4612		STO	Z2V2 DIFFERENCE TO HIGH NUMBER	F5G45370
03651	0 53400 2 00422	4613		LXA	Z2K2,2 INITIALIZE TO 1ST LIST	F5G45380
03652	0 56000 0 00314	4614	Z23	LDQ	ZERO IS P004	F5G45390
03653	0 50000 2 00674	4615		CLA	Z2V1+3,2	F5G45400
03654	−0 73400 4 00000	4616	R004	PDX	0,4 QUANTITY IN THE LIST	F5G45410
03655	0 50000 4 00676	4617		CLA	LIST1,4 IS THE TOP	F5G45420
03656	−0 32000 1 00432	4618		ANA	CASE+7,1 YES, DETERMINE	F5G45430
03657	−0 40000 4 00676	4619		SBM	LIST1,4 CONTAINED IN THIS	F5G45440
03660	−0 10000 0 03676	4620		TNZ	Z27 CASE	F5G45450
03661	0 50000 1 00432	4621		CLA	CASE+7,1 YES, DETERMINE	F5G45460
03662	0 40200 4 00676	4622		SUB	LIST1,4 THE NO.	F5G45470
03663	0 76500 0 00025	4623		LRS	21 OF ONES	F5G45480
03664	0 20000 0 00433	4624		MPY	Z2K4 IN THE	F5G45490
03665	0 62100 0 03667	4625		STA	Z22 LOGICAL	F5G45500
03666	0 50000 0 00432	4626		CLA	Z2K3 DIFFERENCE	F5G45510
03667	0 77100 0 00000	4627	Z22	ARS	SET	F5G45520
03670	−0 32000 0 00434	4628		ANA	Z2K5	F5G45530
03671	0 34000 0 00674	4629		CAS	Z2V2 IS THE NUMBER OF ONES IN THE	F5G45540
03672	0 02000 0 03676	4630		TRA	Z27 DIFFERENCE LESS THAN OR EQUAL TO	F5G45550
03673	0 02000 0 03676	4631		TRA	Z27 THE PREVIOUS MINIMUM. NO	F5G45560
03674	0 60100 0 00674	4632		STO	Z2V2 YES, STORE NEW MIN	F5G45570
03675	−0 63400 2 00675	4633		SXD	Z2V3,2 STORE INDEX OF LIST OF GIVING NEW MIN	F5G45580
03676	2 00001 2 03652	4634	Z27	TIX	Z23,2,1 COUNT TO 3 LISTS ARE WE THRU	F5G45590
03677	−0 53400 2 00675	4635		LXD	Z2V3,2 UES, GET INDEX OF LIST WITH MIN DIFF	F5G45600
03700	0 50000 2 00674	4636		CLA	Z2V1+3,2 STIRE	F5G45610
03701	−0 73400 4 00000	4637		PDX	0,4 THIS	F5G45620
03702	0 50000 1 00432	4638		CLA	CASE+7,1 CASE AT TOP OF	F5G45630
03703	1 00001 4 03704	4639	Z24	TXI	Z24+1,4,1 THAT LIST	F5G45640
03704	0 60100 4 00676	4640		STO	LIST1,4	F5G45650
03705	−0 75400 4 00000	4641		PXD	0,4 STORE INDEX OF TOP	F5G45660
03706	0 60100 2 00674	4642		STO	Z2V1+3,2 POSITI0N IN THAT LIST	F5G45670
03707	0 50000 0 00416	4643		CLA	MZE STORE INDICATION THAT THE	F5G45680
03710	0 60100 2 00715	4644		STO	LLIND,2 LIST IS TO BE COMPILED	F5G45690
03711	2 00001 1 03642	4645	Z26	TIX	Z25,1,1 COUNT THE 7 CASES	F5G45700
		4646			EXPAND TNE LXD LISTS	F5G45710
03712	0 50000 0 00434	4647	Z3	CLA	Z2K5 IS THE	F5G45720
03713	−0 40000 0 00700	4648		SBM	LIST1+2 BOTTOM ENTRY OF	F5G45730
03714	0 10000 0 04003	4649		TZE	Z307 LIST1 A CASE 7	F5G45740
03715	0 50000 0 00700	4650		CLA	LIST1+2 NO, DO THE BOTTOMS	F5G45750
03716	−0 32000 0 00704	4651		ANA	LIST2+2 OF LISTS 1 AND 2 HAVE	F5G45760
03717	0 10000 0 03766	4652		TZE	Z35 A NON ZERO INTERSECTION	F5G45770
03720	0 34000 0 00700	4653		CAS	LIST1+2 YES, DOES INTERSECTION EQUAL 1	F5G45780
03721	0 02000 0 03723	4654		TRA	Z31	F5G45790
03722	0 02000 0 03760	4655		TRA	Z33 YES	F5G45800
03723	0 34000 0 00704	4656	Z31	CAS	LIST2+2 IS IT EQUAL TO BOTTOM OF 2	F5G45810
03724	0 02000 0 03726	4657		TRA	Z32	F5G45820
03725	0 02000 0 03763	4658		TRA	Z34 YES	F5G45830
03726	0 60100 0 00701	4659	Z32	STO	LIST1+3 STORE INTERSECTION IN SUB1	F5G45840
03727	−0 76000 0 00003	4660		SSM	POSITITON AND -(INTER.) IN	F5G45850
03730	0 60100 0 00705	4661		STO	LIST2+3 SUB2 POS.	F5G45860
03731	0 02000 0 04015	4662		TRA	Z306	F5G45870
03732	−0 76000 0 00003	4663	Z38	SSM	ENTER -INTER1 AND 3	F5G45880
03733	0 60100 0 00711	4664		STO	LIST3+3 IN SUB3 POS.	F5G45890
03734	0 02000 0 04015	4665		TRA	Z306	F5G45900
03735	−0 76000 0 00003	4666	Z39	SSM	ENTER - INTER 1 AND 3	F5G45910
03736	0 60100 0 00701	4667		STO	LIST1+3 INSUV1 POS.	F5G45920
03737	0 02000 0 04015	4668		TRA	Z306	F5G45930
03740	0 50000 0 00704	4669	Z300	CLA	LIST2+2 DO BOTTOM ENTRIES	F5G45940
03741	−0 32000 0 00710	4670		ANA	LIST3+2 OF 2 AND 3 HAVE	F5G45950
03742	0 10000 0 04015	4671		TZE	Z306 NONZERO INTERSECTION	F5G45960
03743	0 34000 0 00704	4672		CAS	LIST2+2 YES, IS INTRE 2 AND 3	F5G45970
03744	0 02000 0 03746	4673		TRA	Z301	F5G45980
03745	0 02000 0 03755	4674		TRA	Z303 YES	F5G45990
03746	0 34000 0 00710	4675	Z301	CAS	LIST3+2 IS INTERSECTION EQUAL TO BOTTOM OF LIST 3	F5G46000
03747	0 02000 0 03751	4676		TRA	Z302	F5G46010
03750	0 02000 0 04013	4677		TRA	Z304 YES	F5G46020
03751	0 60100 0 00711	4678	Z302	STO	LIST3+3 STORE INTER 2 AND 3 IN SUB 3 POS.	F5G46030
03752	−0 76000 0 00003	4679		SSM	AND -INTER IN	F5G46040
03753	0 60100 0 00705	4680		STO	LIST2+3 SUB 2 POS.	F5G46050
03754	0 02000 0 04015	4681		TRA	Z306	F5G46060
03755	−0 76000 0 00003	4682	Z303	SSM	ENTER -(INTER 2 AND 3 )	F5G46070
03756	0 60100 0 00711	4683		STO	LIST3+3 IN SUB 3 POS.	F5G46080
03757	0 02000 0 04015	4684		TRA	Z306	F5G46090
03760	−0 76000 0 00003	4685	Z33	SSM	ENTER -(INTER 1 AND 2 )	F5G46100
03761	0 60100 0 00705	4686		STO	LIST2+3 IN SUB 2 POS.	F5G46110
03762	0 02000 0 04015	4687		TRA	Z306	F5G46120
03763	−0 76000 0 00003	4688	Z34	SSM	STORE -(INTER 1 AND 2 )	F5G46130
03764	0 60100 0 00701	4689		STO	LIST1+3 IN SUB 1 POS.	F5G46140
03765	0 02000 0 04015	4690		TRA	Z306	F5G46150
03766	0 50000 0 00700	4691	Z35	CLA	LIST1+2 DO BOTTOM ENTRIES IN	F5G46160
03767	−0 32000 0 00710	4692		ANA	LIST3+2 1 AND 3 HAVE NONZERO	F5G46170
03770	0 10000 0 03740	4693		TZE	Z300 INTERSECTION	F5G46180
03771	0 34000 0 00700	4694		CAS	LIST1+2 YES, IS IT EQUAL TO BOT. 1	F5G46190
03772	0 02000 0 03774	4695		TRA	Z36	F5G46200
03773	0 02000 0 03732	4696		TRA	Z38 YES	F5G46210
03774	0 34000 0 00710	4697	Z36	CAS	LIST3+2 TO THE BOTTOM ENTRY IN 3	F5G46220
03775	0 02000 0 03777	4698		TRA	Z37	F5G46230
03776	0 02000 0 03735	4699		TRA	Z39 YES	F5G46240
03777	0 60100 0 00711	4700	Z37	STO	LIST3+3 ENTER 1NTLR 1 ANO 3 IN SUB	F5G46250
04000	−0 76000 0 00003	4701		SSM	3 POS. AND -( INTER ) IN	F5G46260
04001	0 60100 0 00701	4702		STO	LIST1+3 SUB1 POS.	F5G46270
04002	0 02000 0 04015	4703		TRA	Z306	F5G46280
04003	−0 63400 0 00671	4704	Z307	SXD	Z2V1,0 CREATE THE LIST	F5G46290
04004	0 50000 0 00321	4705		CLA	L7	F5G46300
04005	0 60100 0 00676	4706		STO	LIST1	F5G46310
04006	0 50000 0 00317	4707		CLA	L3	F5G46320
04007	0 60100 0 00677	4708		STO	LIST1+1	F5G46330
04010	0 50000 0 00315	4709		CLA	ONEA	F5G46340
04011	0 60100 0 00700	4710		STO	LIST1+2	F5G46350
04012	0 02000 0 04053	4711		TRA	Z4	F5G46360
04013	−0 76000 0 00003	4712	Z304	SSM	ENTER - INTER 2 AND 3	F5G46370
04014	0 60100 0 00705	4713	Z305	STO	LIST2+3 INSUB2 POS.	F5G46380
04015	−0 53400 2 00324	4714	Z306	LXD	LD3,2 SET COUNT TO 3	F5G46390
04016	0 53400 1 00314	4715		LXA	ZERO,1 SET TO INSPECT 1ST L1ST	F5G46400
04017	0 50000 1 00700	4716	Z309	CLA	LIST1+2,1	F5G46410
04020	0 10000 0 04031	4717		TZE	Z308 IS THE BOTTOM ENTRY ZERO	F5G46420
04021	0 40200 0 00315	4718		SUB	ONEA NO	F5G46430
04022	−0 32000 1 00700	4719		ANA	LIST1+2,1 DOES IT HAVE TWO ONES	F5G46440
04023	0 10000 0 04031	4720		TZE	Z308	F5G46450
04024	0 60100 0 00457	4721		STO	TMP10 YES	F5G46460
04025	0 50000 1 00701	4722		CLA	LIST1+3,1 IS THE SUB BOTTOM	F5G46470
04026	−0 10000 0 04031	4723		TNZ	Z308 ENTRY ZERO	F5G46480
04027	0 50000 0 00457	4724		CLA	TMP10 YES	F5G46490
04030	0 60100 1 00701	4725		STO	LIST1+3,1	F5G46500
04031	1 77774 1 04032	4726	Z308	TXI	Z308+1,1,−4 PRERARE FOR NLXT LIST	F5G46510
04032	2 00001 2 04017	4727		TIX	Z309,2,1 COUNT TO 3	F5G46520
04033	0 50000 0 00434	4728		CLA	Z2K5	F5G46530
04034	−0 40000 0 00677	4729		SBM	LIST1+1	F5G46540
04035	−0 10000 0 04053	4730		TNZ	Z4	F5G46550
04036	0 50000 0 00700	4731		CLA	LIST1+2	F5G46560
04037	0 40200 0 00315	4732		SUB	ONEA	F5G46570
04040	−0 32000 0 00700	4733		ANA	LIST1+2	F5G46580
04041	−0 10000 0 04053	4734		TNZ	Z4	F5G46590
04042	0 50000 0 00700	4735		CLA	LIST1+2	F5G46600
04043	0 60100 0 00701	4736		STO	LIST1+3	F5G46610
04044	0 50000 0 00434	4737		CLA	Z2K5	F5G46620
04045	0 40200 0 00700	4738		SUB	LIST1+2	F5G46630
04046	0 60100 0 00700	4739		STO	LIST1+2	F5G46640
04047	0 40200 0 00315	4740		SUB	ONEA	F5G46650
04050	0 32000 0 00700	4741		ANS	LIST1+2	F5G46660
04051	−0 50000 0 00701	4742		CAL	LIST1+3	F5G46670
04052	−0 60200 0 00700	4743		ORS	LIST1+2	F5G46680
		4744			DETECT AND COMPILE ANY SEQUENTIAL TRANSFER	F5G46690
04053	0 56000 0 00416	4745	Z4	LDQ	MZE PUT MINUS ZEROS IN	F5G46700
04054	−0 60000 0 01125	4746		STQ	SXAS THE ASSOXIATED	F5G46710
04055	0 53400 4 00322	4747		LXA	L19,4 SXDPOSITIONS	F5G46720
04056	−0 60000 4 01125	4748	Z411	STQ	SXST+20,4	F5G46730
04057	2 00001 4 04056	4749		TIX	Z411,4,1	F5G46740
04060	0 50000 0 01101	4750		CLA	SXST	F5G46750
04061	−0 12000 0 04140	4751		TMI	Z5 IS THERE A SEQUENTIAL TRANSFER	F5G46760
04062	−0 50000 0 00443	4752		CAL	BBNO YES	F5G46770
04063	0 77100 0 00022	4753		ARS	18	F5G46780
04064	0 40200 0 00315	4754		SUB	ONEA	F5G46790
04065	0 60100 0 00457	4755		STO	TMP10 PUT NO OF PREV. BB IN TMP10	F5G46800
04066	0 50000 0 00670	4756		CLA	Z1V8 INITIALIZE 1ST PRED NO THIS BB	F5G46810
04067	0 60100 0 00666	4757	Z49	STO	Z1V3	F5G46820
04070	0 07400 4 00055	4758		TSX	SE5,4	F5G46830
04071	−0 50000 1 07337	4759		CAL	PRED,1	F5G46840
04072	−0 32000 0 00337	4760		ANA	ADDMK IS THIS THE SEQUENTIAL	F5G46850
04073	0 40200 0 00457	4761		SUB	TMP10 TRANSFERS PREO ENTRY	F5G46860
04074	0 10000 0 04100	4762		TZE	Z410	F5G46870
04075	−0 50000 0 00666	4763		CAL	Z1V3 NO, TRY NEXT ONE	F5G46880
04076	0 40000 0 00315	4764		ADD	ONEA	F5G46890
04077	0 02000 0 04067	4765		TRA	Z49	F5G46900
04100	0 50000 0 00666	4766	Z410	CLA	Z1V3 GET THE PRED NO	F5G46910
04101	0 07400 4 02211	4767		TSX	SH,4 FORM THE SXD CASE	F5G46920
04102	0 50000 0 00466	4768		CLA	SXD1	F5G46930
04103	0 40000 0 00467	4769		ADD	SXD2	F5G46940
04104	0 40000 0 00470	4770		ADD	SXD3	F5G46950
04105	0 10000 0 04117	4771		TZE	Z44 IS THIS A 0 SXD CASE	F5G46960
04106	0 53400 4 00320	4772		LXA	L4,4 ISNT 0 SXD CASL	F5G46970
04107	0 50000 4 00471	4773	Z41	CLA	SXD1+3,4 RECORD SXD CASE	F5G46980
04110	0 60100 4 01105	4774		STO	SXST+4,4 IN POSITION ASSOCIATED	F5G46990
04111	2 00001 4 04107	4775		TIX	Z41,4,1 WITH SEQUENTIAL TRANSFER	F5G47000
04112	0 53400 1 00314	4776		LXA	ZERO,1 COMPILE THE SXD	F5G47010
04113	0 07400 4 02242	4777		TSX	SI,4 INST. WITH	F5G47020
04114	0 02000 0 04140	4778		TRA	Z47 (1) ASSOCIATED SXD WITH 0 LXD CASE	F5G47030
04115	0 07400 4 02440	4779	Z42	TSX	SM,4 (2)ASSOCIATED WITH AN LXD LIST	F5G47040
04116	0 02000 0 04140	4780		TRA	Z47 (3) NOT ASSOCIATED ( TRA COMPILED )	F5G47050
04117	−0 53400 4 00465	4781	Z44	LXD	SXD0,4	F5G47060
04120	−3 00000 4 04136	4782		TXL	Z46,4,0 DOES IT HAVE A 0 LXD CASE	F5G47070
04121	−0 75400 4 00000	4783		PXD	0,4 NO	F5G47080
04122	0 77100 0 00022	4784		ARS	18 LXD CASE TO AC (ADDR)	F5G47090
04123	0 60100 0 00715	4785		STO	Z4V1	F5G47100
04124	−0 53400 2 00324	4786		LXD	LD3,2 SET COUNT TO 3 , N=1	F5G47110
04125	0 50000 2 00674	4787	Z45	CLA	Z2V1+3,2 GET INDEX	F5G47120
04126	−0 73400 1 00000	4788		PDX	0,1 OF TOP QUANTITY IN LIST N	F5G47130
04127	0 50000 1 00676	4789		CLA	LIST1,1 IS THE LXD CASE OF THIS SXD	F5G47140
04130	0 40200 0 00715	4790		SUB	Z4V1 CASE THE SAME AS	F5G47150
04131	0 10000 0 04115	4791		TZE	Z42 THE TOP QUANTITY IN LIST N	F5G47160
04132	2 00001 2 04125	4792		TIX	Z45,2,1 NO, COUNT TO 3	F5G47170
04133	0 50000 0 00715	4793		CLA	Z4V1 COMPILE A	F5G47180
04134	0 07400 4 02403	4794		TSX	SL,4 TRA (LXD )	F5G47190
04135	0 02000 0 04140	4795		TRA	Z47	F5G47200
04136	0 50200 0 00315	4796	Z46	CLS	ONEA RECORD THAT THERE	F5G47210
04137	0 60100 0 00660	4797	Z48	STO	SLV3 IS A HANGING TRA 0CASE	F5G47220
	04140	4798	Z47	SYN	Z48+1	F5G47230
		4799			FORM THE SXD LIST AND THE SYN CARD LIST	F5G47240
04140	0 50000 0 00316	4800	Z5	CLA	ONED SET INDEX IN SYN TABLE	F5G47250
04141	0 60100 0 00716	4801		STO	Z5V1	F5G47260
04142	0 50000 0 00670	4802		CLA	Z1V8 RESET 1 ST PRED IN BB	F5G47270
04143	0 60100 0 00666	4803	Z53	STO	Z1V3	F5G47280
04144	0 40200 0 00665	4804		SUB	Z1V2 IS THIS PRED IN SAME BB	F5G47290
04145	0 10000 0 04263	4805		TZE	Z6 NO, ADD FINISHED	F5G47300
04146	0 50000 0 01101	4806		CLA	SXST YES	F5G47310
04147	−0 12000 0 04153	4807		TMI	Z51 WAS THERE A SEQUENTIAL TRANSFER	F5G47320
04150	−0 32000 0 00337	4808		ANA	ADDMK YES, EXTRACT ADDRESS	F5G47330
04151	0 40200 0 00666	4809		SUB	Z1V3 HAS PRED ALREDY BEEN CONSIDERED	F5G47340
04152	0 10000 0 04213	4810		TZE	Z55 AS A SEQUENTIAL TRANSFER	F5G47350
04153	0 50000 0 00666	4811	Z51	CLA	Z1V3 NO	F5G47360
04154	0 07400 4 02211	4812		TSX	SH,4 GENERATE SXD CASE	F5G47370
04155	0 50000 0 00466	4813		CLA	SXD1 IS THE	F5G47380
04156	0 40000 0 00467	4814		ADD	SXD2 SXD CASE	F5G47390
04157	0 40000 0 00470	4815		ADD	SXD3 ZERO	F5G47400
04160	0 10000 0 04213	4816		TZE	Z55	F5G47410
04161	0 53400 1 00314	4817		LXA	ZERO,1 NO, PREPARE TO SCAN SXD LIST	F5G47420
04162	0 50000 1 01101	4818	Z503	CLA	SXST,1 IS SUBSXD0	F5G47430
04163	−0 32000 0 00335	4819		ANA	DECMK	F5G47440
04164	0 60100 0 00457	4820		STO	TMP10	F5G47450
04165	0 50000 0 00465	4821		CLA	SXD0	F5G47460
04166	−0 32000 0 00335	4822		ANA	DECMK	F5G47470
04167	0 40200 0 00457	4823		SUB	TMP10	F5G47480
04170	−0 10000 0 04216	4824		TNZ	Z54	F5G47490
04171	0 50000 1 01102	4825		CLA	SXST+1,1 THIS SXD CASE	F5G47500
04172	0 40200 0 00466	4826		SUB	SXD1	F5G47510
04173	−0 10000 0 04216	4827		TNZ	Z54	F5G47520
04174	0 50000 1 01103	4828		CLA	SXST+2,1 SAME AS	F5G47530
04175	0 40200 0 00467	4829		SUB	SXD2	F5G47540
04176	−0 10000 0 04216	4830		TNZ	Z54	F5G47550
04177	0 50000 1 01104	4831		CLA	SXST+3,1 THE ONE ALREADY	F5G47560
04200	0 40200 0 00470	4832		SUB	SXD3 STORED	F5G47570
04201	−0 10000 0 04216	4833		TNZ	Z54	F5G47580
04202	0 50000 1 01101	4834		CLA	SXST,1 YES, STORE INDICATION	F5G47590
04203	−0 53400 2 00716	4835		LXD	Z5V1,2	F5G47600
04204	−0 32000 0 00337	4836		ANA	ADDMK SYN,2 CARD	F5G47610
04205	0 60100 2 02125	4837		STO	SYN,2 IN THE	F5G47620
04206	0 50000 0 00465	4838		CLA	SXD0 SYN	F5G47630
04207	0 76700 0 00022	4839		ALS	18 LIST	F5G47640
04210	0 62200 2 02125	4840		STD	SYN,2	F5G47650
04211	1 00001 2 04212	4841	Z52	TXI	Z52+1,2,1	F5G47660
04212	−0 63400 2 00716	4842		SXD	Z5V1,2	F5G47670
04213	0 50000 0 00666	4843	Z55	CLA	Z1V3 PREPARE TO DEAL WITH NEXT PRED	F5G47680
04214	0 40000 0 00315	4844		ADD	ONEA	F5G47690
04215	0 02000 0 04143	4845		TRA	Z53	F5G47700
04216	0 50000 1 01101	4846	Z54	CLA	SXST,1	F5G47710
04217	0 12000 0 04232	4847		TPL	Z502 IS THIS SXD POS. EMPTY	F5G47720
04220	−0 53400 2 00324	4848		LXD	LD3,2 YES	F5G47730
04221	−3 00000 1 04232	4849		TXL	Z502,1,0 IS THIS ST CASE	F5G47740
04222	3 77773 1 04233	4850		TXH	Z504,1,−4−1 NO, IS THIS 0 LIST CASE	F5G47750
04223	3 77767 1 04242	4851		TXH	Z507,1,−8−1 NO 1ST	F5G47760
04224	3 77763 1 04241	4852		TXH	Z506,1,−12−1 2ED	F5G47770
04225	3 77757 1 04240	4853		TXH	Z505,1,−16−1 3RD	F5G47780
04226	0 07400 4 04252	4854		TSX	Z500,4 ENTER THE SXD CASE IN THE LIST	F5G47790
04227	0 50000 0 00416	4855		CLA	MZE	F5G47800
04230	0 60100 1 01105	4856		STO	SXST+4,1 STORE ENO MARK FOR SYN CAEDS	F5G47810
04231	0 02000 0 04213	4857		TRA	Z55	F5G47820
04232	1 77774 1 04162	4858	Z502	TXI	Z503,1,−4 EXAMINE NEXT SXD CASE	F5G47830
04233	−0 50000 0 00465	4859	Z504	CAL	SXD0 ZERO LIST CASE	F5G47840
04234	−0 32000 0 00335	4860		ANA	DECMK IS THE LXD CASE 0	F5G47850
04235	−0 10000 0 04232	4861		TNZ	Z502	F5G47860
04236	0 07400 4 04252	4862		TSX	Z500,4 YES, ENTER SXD CASE IN	F5G47870
04237	0 02000 0 04213	4863		TRA	Z55 ASSOCIATED POSITION	F5G47880
04240	2 00001 2 04241	4864	Z505	TIX	Z505+1,2,1 GENERATE INDEX OF LIST	F5G47890
04241	2 00001 2 04242	4865	Z506	TIX	Z506+1,2,1	F5G47900
04242	−0 50000 2 00674	4866	Z507	CAL	Z2V1+3,2 IS	F5G47910
04243	−0 73400 4 00000	4867		PDX	0,4 THE	F5G47920
04244	0 50000 0 00465	4868		CLA	SXD0 LXD	F5G47930
04245	0 77100 0 00022	4869		ARS	18 CASE THE	F5G47940
04246	0 40200 4 00676	4870		SUB	LIST1,4 SAME	F5G47950
04247	−0 10000 0 04232	4871		TNZ	Z502	F5G47960
04250	0 07400 4 04252	4872		TSX	Z500,4 YES	F5G47970
04251	0 02000 0 04213	4873		TRA	Z55	F5G47980
		4874			SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST	F5G47990
04252	0 50000 0 00465	4875	Z500	CLA	SXD0	F5G48000
04253	0 60100 1 01101	4876		STO	SXST,1	F5G48010
04254	0 50000 0 00466	4877		CLA	SXD1	F5G48020
04255	0 60100 1 01102	4878		STO	SXST+1,1	F5G48030
04256	0 50000 0 00467	4879		CLA	SXD2	F5G48040
04257	0 60100 1 01103	4880		STO	SXST+2,1	F5G48050
04260	0 50000 0 00470	4881		CLA	SXD3	F5G48060
04261	0 60100 1 01104	4882		STO	SXST+3,1	F5G48070
04262	0 02000 4 00001	4883		TRA	1,4	F5G48080
		4884			COMPILE THE SXD LIST	F5G48090
04263	0 53400 1 00333	4885	Z6	LXA	LM20,1 SET TO START OF SXD LIST	F5G48100
04264	0 50000 1 01101	4886	Z61	CLA	SXST,1	F5G48110
04265	−0 12000 0 04274	4887		TMI	Z7 IS THIS SXD POSITION EMPTY	F5G48120
04266	−0 63400 1 04271	4888		SXD	Z6V1,1 NO	F5G48130
04267	0 07400 4 02242	4889		TSX	SI,4 COMPILE THE SXD CASE WITH	F5G48140
04270	0 76100 0 00000	4890		NOP	(1) 0 LXD CASE, OR	F5G48150
04271	3 00000 0 00000	4891	Z6V1	TXH	0,0,SET (2) THIS RETURN CANT OCCURR	F5G48160
04272	−0 53400 1 04271	4892		LXD	Z6V1,1 (3) TRA ALREADY CONPILED	F5G48170
04273	1 77774 1 04264	4893		TXI	Z61,1,−4	F5G48180
		4894			COMPILE TNE LXD LISTS AND ASSOCIATED SXD S	F5G48190
04274	−0 53400 2 00324	4895	Z7	LXD	LD3,2 SET TO BEGIN SCAN OF LISTS	F5G48200
04275	0 50000 2 00422	4896	Z72	CLA	Z2K1+3,2	F5G48210
04276	−0 73400 1 00000	4897		PDX	0,1 PUT INDEX OF BOTTOM POSITION IN 1	F5G48220
04277	0 50000 1 00676	4898		CLA	LIST1,1	F5G48230
04300	−0 12000 0 04350	4899		TMI	Z75 YES, IS IT A TRA(0) CASE	F5G48240
04301	0 10000 0 04320	4900		TZE	Z73 IS THE L1ST FILLED	F5G48250
04302	0 50000 1 00677	4901		CLA	LIST1+1,1 PERHAPS, IS IT A FOR SURE	F5G48260
04303	0 10000 0 04350	4902		TZE	Z75 IT IS IF EITHER THE SUB BOTTOM	F5G48270
04304	0 12000 0 04350	4903		TPL	Z75 ENTRY IS -0 OR POS1TIVE	F5G48280
04305	0 50000 0 00720	4904		CLA	Z7V2	F5G48290
04306	−0 12000 0 04320	4905		TMI	Z73 IS THIS 1ST TIME THRU	F5G48300
04307	0 50000 2 00443	4906	Z76	CLA	Z7K1+3,2 YES	F5G48310
04310	−0 73400 1 00000	4907		PDX	0,1 IS THERE ASSOCIATED	F5G48320
04311	0 50000 1 01101	4908		CLA	SXST,1 SXDLIST	F5G48330
04312	−0 63400 2 00717	4909		SXD	Z7V1,2	F5G48340
04313	−0 12000 0 04344	4910		TMI	Z74	F5G48350
04314	0 07400 4 02242	4911		TSX	SI,4 YES, COMPILE SXD CASE	F5G48360
04315	0 02000 0 04317	4912		TRA	Z71	F5G48370
04316	0 02000 0 04333	4913		TRA	Z77 COMPILE	F5G48380
04317	−0 53400 2 00717	4914	Z71	LXD	Z7V1,2	F5G48390
04320	2 00001 2 04275	4915	Z73	TIX	Z72,2,1 COUNT TO 3	F5G48400
04321	0 50200 0 00720	4916		CLS	Z7V2 IS THIS 1ST TIME THRU	F5G48410
04322	0 60100 0 00720	4917		STO	Z7V2	F5G48420
04323	−0 12000 0 04274	4918		TMI	Z7 YES, GO BACK CLASXST	F5G48430
04324	0 50000 0 01105	4919		CLA	SXAS0 IS THERE A 0 ASSOCIATED SXD CASE	F5G48440
04325	−0 12000 0 04353	4920		TMI	Z8	F5G48450
04326	0 53400 1 00334	4921		LXA	LM4,1 YES	F5G48460
04327	0 07400 4 02242	4922		TSX	SI,4 COMPILE SXD CASE	F5G48470
04330	0 02000 0 04353	4923		TRA	Z8	F5G48480
04331	0 02000 0 04353	4924		TRA	Z8	F5G48490
04332	0 02000 0 04353	4925		TRA	Z8	F5G48500
04333	−0 53400 2 00717	4926	Z77	LXD	Z7V1,2	F5G48510
04334	0 50000 2 00715	4927		CLA	Z4V1,2	F5G48520
04335	−0 12000 0 04344	4928		TMI	Z74	F5G48530
04336	0 50000 2 00443	4929		CLA	Z7K1+3,2	F5G48540
04337	−0 73400 1 00000	4930		PDX	0,1	F5G48550
04340	0 50000 1 01101	4931		CLA	SXST,1	F5G48560
04341	0 77100 0 00022	4932		ARS	18	F5G48570
04342	0 07400 4 02403	4933		TSX	SL,4	F5G48580
04343	0 02000 0 04317	4934		TRA	Z71	F5G48590
04344	0 50000 2 00674	4935	Z74	CLA	Z2V1+3,2 COMPILE THE LXD LIST	F5G48600
04345	−0 73400 1 00000	4936		PDX	0,1	F5G48610
04346	0 07400 4 02440	4937		TSX	SM,4	F5G48620
04347	0 02000 0 04317	4938		TRA	Z71	F5G48630
04350	0 50000 0 00720	4939	Z75	CLA	Z7V2 IS THIS 1ST TIME THRU	F5G48640
04351	−0 12000 0 04307	4940		TMI	Z76 NO, 2ED TIME	F5G48650
04352	0 02000 0 04320	4941		TRA	Z73 YES	F5G48660
		4942			COMPILE ANY SYN CARDS	F5G48670
04353	−0 50000 0 00443	4943	Z8	CAL	BBNO FORM	F5G48680
04354	0 77100 0 00022	4944		ARS	18 AND	F5G48690
04355	0 60100 0 00457	4945		STO	TMP10 STORE	F5G48700
04356	0 07400 4 00067	4946		TSX	SE1,4	F5G48710
04357	−0 50000 1 06442	4947		CAL	BBB,1 -(IDSXD)-(BBNO)+(1ST PRED)2*25	F5G48720
04360	−0 32000 0 00337	4948		ANA	ADDMK	F5G48730
04361	0 76700 0 00012	4949		ALS	10	F5G48740
04362	0 40200 0 00457	4950		SUB	TMP10	F5G48750
04363	0 40200 0 00410	4951		SUB	IDSXD	F5G48760
04364	0 60100 0 00457	4952		STO	TMP10	F5G48770
04365	−0 53400 2 00716	4953		LXD	Z5V1,2 SET TO START OF SYN LIST	F5G48780
04366	−3 00001 2 04407	4954	Z81	TXL	Z83,2,1 ARE WE THRU	F5G48790
04367	2 00001 2 04370	4955	Z82	TIX	Z82+1,2,1 DECREASE INDEX	F5G48800
04370	−0 50000 2 02125	4956		CAL	SYN,2	F5G48810
04371	−0 32000 0 00335	4957		ANA	DECMK COMPILE THE SYN CARD	F5G48820
04372	0 77100 0 00010	4958		ARS	8	F5G48830
04373	0 40200 0 00457	4959		SUB	TMP10	F5G48840
04374	0 07400 4 02367	4960		TSX	SK,4	F5G48850
04375	0 50000 0 00346	4961		CLA	LSYN	F5G48860
04376	0 07400 4 02367	4962		TSX	SK,4	F5G48870
04377	−0 50000 2 02125	4963		CAL	SYN,2	F5G48880
04400	−0 32000 0 00337	4964		ANA	ADDMK	F5G48890
04401	0 76700 0 00012	4965		ALS	10	F5G48900
04402	0 40200 0 00457	4966		SUB	TMP10	F5G48910
04403	0 07400 4 02367	4967		TSX	SK,4	F5G48920
04404	0 50000 0 00314	4968		CLA	ZERO	F5G48930
04405	0 07400 4 02367	4969		TSX	SK,4	F5G48940
04406	0 02000 0 04366	4970		TRA	Z81	F5G48950
04407	−0 53400 2 00450	4971	Z83	LXD	BBOX1,2 GET INDEX OF COMPILED INDT	F5G48960
04410	0 50000 0 00416	4972		CLA	MZE RECORD NO SEQUENTIAL TRANSFER	F5G48970
04411	0 60100 0 01101	4973		STO	SXST	F5G48980
04412	0 02000 0 02525	4974		TRA	FNDAS	F5G48990
		4975			WRITE TH E LAST BLOCK OF C.I. T. ON TAPE	F5G49000
		4976			AFTER PUTTING RELATIVE CONSTANT ROUT1NES AT END	F5G49010
04413	0 76200 0 00224	4977	LSTBB	RTB	INSTTP AN END OF	F5G49020
04414	0 70000 0 00457	4978		CPY	TMP10 FILE SEPARATES RELATIVE CONST. ROUTINES	F5G49030
04415	0 02000 0 04420	4979		TRA	EF3 END FILE ALREADY READ	F5G49040
04416	0 02000 0 04413	4980		TRA	LSTBB READ END FILE	F5G49050
04417	0 07400 4 00004	4981		TSX	4,4 DIAGNOSTIC, ERROR	F5G49060
04420	−0 53400 4 00325	4982	EF3	LXD	LD4,4 TRY 4 TIMES	F5G49070
04421	0 53400 3 00337	4983	EFRTB	LXA	ADDMK,3 READ IN NEXT RECORD	F5G49080
04422	0 76200 0 00224	4984		RTB	INSTTP OF RELATIVE CONSTANT SUBROUTINES	F5G49090
04423	0 70000 1 04516	4985	EFCPY	CPY	RELSR,1	F5G49100
04424	1 77777 1 04423	4986		TXI	EFCPY,1,−1	F5G49110
04425	0 02000 0 04436	4987		TRA	EFREW END OF FILE , END OF INST.	F5G49120
04426	0 76600 0 00333	4988		IOD		F5G49130
04427	−0 76000 0 00012	4989		RTT		F5G49140
04430	0 02000 0 04451	4990		TRA	EFERR	F5G49150
04431	−0 63400 1 04432	4991		SXD	EFTXL,1 STORE END TEST	F5G49160
04432	−3 00000 2 04421	4992	EFTXL	TXL	EFRTB,2,SET COMPILE THE INSTRUCTIONS	F5G49170
04433	0 50000 2 04516	4993		CLA	RELSR,2	F5G49180
04434	0 07400 4 02367	4994		TSX	SK,4	F5G49190
04435	1 77777 2 04432	4995		TXI	EFTXL,2,−1	F5G49200
04436	0 77200 0 00204	4996	EFREW	REW	INSTTP REWIND THE TAPE	F5G49210
04437	0 53400 1 00412	4997		LXA	SKK1,1 SET 1 TO LENGTH OF CS BLOCK	F5G49220
04440	−0 53400 4 00655	4998		LXD	SKV1,4 INDEX OF NEXTCLST POSITION	F5G49230
04441	−0 63400 4 04444	4999		SXD	LSTXL,4	F5G49240
04442	3 00143 4 04447	5000		TXH	LSWEF,4,LCLST−1 IS BLOCK EMRTY	F5G49250
04443	0 76600 0 00223	5001		WTB	OTAPE NO, WRITE	F5G49260
04444	−3 00000 1 04447	5002	LSTXL	TXL	LSWEF,1,− IT ON TAPE	F5G49270
04445	0 70000 1 00655	5003		CPY	CLST,1	F5G49280
04446	1 77777 1 04444	5004		TXI	LSTXL,1,−1	F5G49290
04447	0 77000 0 00203	5005	LSWEF	WEF	OTAPE WRITE AN END FILE	F5G49300
04450	0 02000 0 00030	5006		TRA	R	F5G49310
04451	0 76400 0 00204	5007	EFERR	BST	INSTTP	F5G49320
04452	2 00001 4 04421	5008		TIX	EFRTB,4,1	F5G49330
04453	0 07400 4 00004	5009		TSX	4,4 4TH ERROR, TO DIAGNOSTIC	F5G49340
	04454	5010		BSS	PTL4 SPACE FOR PATCHES	F5G49350
04516	0 00000 0 00000	5011	RELSR		START OF REL. CONST. ROUTINES	F5G49360
	00000	5012		ORG	0	F5G49370
00000	0 00004 0 00030	5013		HTR	R,0,4 CONTROL CARD PART 1.	F5G49371
00001	0 00000 0 05215	5014		HTR	CMTAG−1	F5G49372
	00000	5015		ORG	0	F5G49373
00000	0 07337 0 07337	5016		HTR	PRED,0,PRED CONTROL CARD PART 1B.	F5G49374
00001	0 00000 0 07470	5017		HTR	I9A+2	F5G49375
	00000	5018		ORG	0	F5G49376
00000	0 04740 0 04740	5019		HTR	QS,0,QS CONTROL CARD, PART 1C.	F5G49377
00001	0 00000 0 04773	5020		HTR	QS8+1	F5G49378
	00000	5021		ORG	0	F5G49379
00000	0 04740 0 04740	5022		HTR	QPU,0,QPU CONTROL CARD, PART 1D.	F5G49380
00001	0 00000 0 04773	5023		HTR	QPU8+1	F5G49381
	00000	5024		ORG	0	F5G49382
00000	0 04740 0 04740	5025		HTR	QSU,0,QSU CONTROL CARD, PART 1E.	F5G49383
00001	0 00000 0 04773	5026		HTR	QSU8+1	F5G49384
	00000	5027		ORG	0	F5G49385
00000	0 00320 0 00317	5028		HTR	BLV09,0,BL12 CONTROL CARD, PART 2.	F5G49386
00001	0 00000 0 00655	5029		HTR	BLIST	F5G49387
	00000	5030		ORG	0	F5G49388
00000	0 00320 0 00320	5031		HTR	START,0,START CONTROL CARD, PART 3.	F5G49389
00001	0 00000 0 00647	5032		HTR	ASCON	F5G49390
	00000	5033		ORG	0	F5G49391
00000	0 03541 0 00317	5034		HTR	L3,0,PASS2 CONTROL CARD, PART 4.	F5G49392
00001	0 00000 0 04516	5035		HTR	RELSR	F5G49393