1			704 FORTRAN II, 4-1-6-2 SYSTEM	F4400010
			2			SECTION 4 - FLOW ANALYSIS	F4400020
			3			ROBERT C. BRILL - NOVEMBER 13, 1958	F4400030
			4				F4400040
			5			NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2	F4400050
			6			SYSTEM TAPE. TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM	F4400060
			7			TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING.	F4400070
			8			IN RECORD F0730000, LOCATI0N 77, CHANGE	F4400080
			9			000674000000 TO 003140000000	F4400090
			10			IN RECORD F0730000, LOCATI0N 632, CHANGE	F4400100
			11			000000000215 TO 000000001037	F4400110
			12				F4400120
			13				F4400130
			14			DEFINITI0N STATEMENTS	F4400140
		00215	15	BBBB.J	SYN	141 THESE FIRST TWO DEFINITI0NS MAKE	F4400150
		00674	16	BBSIZE	SYN	444 THE PROGRAM COMPATIBLE WITH	F4400160
			17			SECTI0N 5 (TAG ANALYSIS). THEIR	F4400170
			18			VALUES ARE THOSE OF PREDL (BLOCK	F4400180
			19			LENGTH OF PRED TABLE) AND 6*BBBL	F4400190
			20			(BLOCK LENGTH OF BB TABLE) RES-	F4400200
			21			PECT1VELY, AS GIVEN IN THE	F4400210
			22			SECTI0N 5 LISTING.	F4400220
		04230	23	NOINS	SYN	2200 BLOCK LENGTH OF COMPILED	F4400230
			24			INSTRUCTION TABLE (CIT)-PART 1	F4400240
		00454	25	ZINSTM	SYN	300 SAME AS PREVIOUS - PART 2	F4400230
		00144	26	ZINSTR	SYN	100 SAME AS PREVIOUS - PART 6	F4400260
		01274	27	ZBB	SYN	700 LENGTH OF BB LIST	F4400270
		00310	28	ZTIFRD	SYN	200 8LOCK LENGTH OF TIFRD	F4400280
		01750	29	XFRET=	SYN	1000 TABLE LENGTH AND DRUM ADD FOR FRET	F4400290
		00372	30	ZFRET=	SYN	250 BLOCK LENGTH OF FRET	F4400300
		00620	31	XSET	SYN	400 LENGTH OF SET TABLE	F4400310
		00310	32	ZSET	SYN	200 BLOCK LENGTH OF SET TABLE	F4400320
		00031	33	ZNLIST	SYN	25 LENGTH 0F NLIST	F4400330
		05360	34	XTRA	SYN	2800 LENGTH 0F TRA TABLE	F4400340
		01274	35	ZTRA	SYN	700 BLOCK LENGTH OF TRA TA8LE	F4400350
		00017	36	ZTAG	SYN	15 BLOCK LENGTH OF TAGLIST H	F4400360
		00000	37	XXXXXX	SYN	0 THE APPEARANCE OF THIS SYMBOL IN	F4400370
			38			THE LISTING INDICATES THAT ITS	F4400380
			39			VALUE IS SET BY THE PROGRAM.	F4400390
		00004	40	RDFORT	SYN	4 A TSX RDFORT,4 CALLS IN THE DIAG-	F4400400
			41			NOSTIC ROUTINE. A RDS SYSTAP	F4400410
			42			FOLL0WED BY A TRA RDFORT CALLS	F4400420
			43			IN THE NEXT RECORD OF THE	F4400430
			44			FORTRAN PROGRAM.	F4400440
		07774	45	BBOX.=	SYN	4092 THE FOLL0WING ARE THE ADDRESSES	F4400450
		07775	46	DOBOX=	SYN	4093 OF SPECIAL COUNTERS	F4400460
		07776	47	SSBOX=	SYN	4094	F4400470
		07777	48	TTBOX=	SYN	4095	F4400480
		07775	49	SUCCBX	SYN	4093	F4400490
		07776	50	PREDBX	SYN	4094	F4400500
		07777	51	BBTBOX	SYN	4095	F4400510
		00221	52	SYSTAP	SYN	145 FORTRAN SYSTEM TAPE (LOGICAL 1)	F4400520
		00222	53	TBLTAP	SYN	146 TIFGO, TRAD, FRET, AND DOTAG	F4400530
			54			TAPE (LOGICAL 2)	F4400540
		00223	55	TAGTAP	SYN	147 TAGLIST TAPE (LOGICAL 3)	F4400550
		00223	56	BLT	SYN	147 BBLIST TAPE (LOGICAL 3)	F4400560
		00224	57	INSTTP	SYN	148 CIT TAPE (L0GICAL 4)	F4400370
		00301	58	TIFDRM	SYN	193 TIFRD DRUM (L0GICAL 1)	F4400380
		00301	59	DOCRDR	SYN	193 DOCARE DRUM (LOGICAL 1)	F4400300
		00301	60	DODRUM	SYN	193 DOLIST DRUM (LOGICAL 1)	F4400600
		00301	61	TRADRM	SYN	193 INITIAL TRA TABLE DRUM (LOGICAL 1)	F4400610
		00302	62	FRTDRM	SYN	194 FRET DRUM (LOGICAL 2)	F4400620
		00303	63	BBLDRM	SYN	195 BBLIST DRUM (LOGICAL 3)	F4400630
		00303	64	SETDRM	SYN	195 SET DRUM (LOGICAL 3)	F4400640
		01750	65	TIFADD	SYN	1000 DRUM ADDRESS FOR TIFRD	F4400630
		03270	66	DOADDR	SYN	1720 DRUM ADDRESS FOR DO LIST	F4400660
		02260	67	BBLADD	SYN	1200 DRUM ADDRESS FOR BB LIST	F4400670
		01750	68	FRTADD	SYN	1000 DRUM ADDRESS FOR FRET	F4400680
		01275	69	SETADD	SYN	701 DRUM ADDRESS FOR SET TABLE	F4400690
		07773	70	BBLIST	SYN	4091 THE FOLLOWING ARE THE BASE	F4400700
		06500	71	DOLIST	SYN	BBLIST−ZBB+1 ADDRESSES OF ALL TABLES	F4400710
		06024	72	INST.A	SYN	DOLIST−300	F4400720
		06024	73	TIFRD	SYN	DOLIST−300	F4400730
		03710	74	TRAD.=	SYN	TIFRD−1100	F4400740
		06023	75	FRET.=	SYN	DOLIST−301	F4400750
		06023	76	DVFQ.=	SYN	FRET.=	F4400760
		04216	77	DOTAG	SYN	DVFQ.=−301−600	F4400770
		04216	78	DOCARE	SYN	DOTAG	F4400780
		06024	79	TRA..M	SYN	DOLIST−300	F4400790
		04524	80	SET..M	SYN	TRA..M−ZTRA−4	F4400800
		04214	81	TIFRDM	SYN	SET..M−200	F4400810
		03703	82	INST.M	SYN	TIFRDM−201	F4400820
		07774	83	SETLOC	SYN	BBLIST+1	F4400830
		07773	84	TRATBL	SYN	BBLIST	F4400840
		02413	85	BBTABL	SYN	TRATBL−2800	F4400850
		02414	86	FIXDOS	SYN	BBTABL+1	F4400860
		01114	87	NLIST	SYN	BBTABL−ZBB−3	F4400870
		01062	88	FRET	SYN	NLIST−26	F4400880
		01062	89	SETTAB	SYN	NLIST−25−1	F4400890
		01260	90	SNSLT	SYN	NLIST+100	F4400900
		01120	91	DOBLOK	SYN	BBTABL−ZBB+1	F4400910
		00443	92	LCNTR	SYN	DOBLOK−300−1	F4400920
		06500	93	TAG	SYN	BBLIST−ZBB+1	F4400930
		06460	94	INST.R	SYN	TAG−15−1	F4400940
		06314	95	BBTAGS	SYN	INST.R−100	F4400950
		06024	96	INSTA	SYN	INST.A	F4400960
		03703	97	INSTM	SYN	INST.M	F4400970
		06460	98	INSTR	SYN	INST.R	F4400980
		07773	99	PRED	SYN	TRATBL	F4400990
		04524	100	SETM	SYN	SET..M	F4401000
		06024	101	TRAM	SYN	TRA..M	F4401010
		01574	102	BGINS	SYN	INSTA−NOINS END OF INST. BLOCK (PART 1)	F4401020
		04053	103	FRETN=	SYN	FRET.=−1000 BEGINNING OF FRET (PART 1)	F4401030
		04530	104	NDTRA	SYN	TRAM−700 END OF TRA TABLE BLOCK (PART 2)	F4401040
		03227	105	NDINS	SYN	INSTM−300 END OF INST. BLOCK (PART 2)	F4401030
		03704	106	NTIFR	SYN	TIFRDM−200 EN0 OF TIFRD 8LOCK (PART 2)	F4401060
		07464	107	NDSET	SYN	SETLOC−ZSET END OF SET BLOCK (PART 3)	F4401070
			108				F4401080
			109				F4401090
			110			SECTION 4 - PART 1 OF 6	F4410010
			111				F4410020
			112			FORTRAN EDITOR INFORMATION	F4410030
			113			MASTER RECORD CARD = F0620000	F4410040
			114			ENTRY POINT = 112	F4410050
			115			FIRST LOCATION = 30	F4410060
			116			LAST LOCATION = 1327	F4410070
			117				F4410080
			118				F4410090
		00030	119		ORG	24	F4410100
			120			CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES	F4410110
			121			THROUGHOUT SECTION 4.)	F4410120
	00030	+000000000000	122	ERRBX	DEC	0 COUNTER FOR READING ERRORS	F4410130
	00031	+000000000001	123	LA1	DEC	1	F4410140
	00032	−000000000004	124	MINUS4	DEC	−4	F4410150
	00033	+000000000000	125	L0...=	DEC	0	F4410160
	00034	+000000000005	126	L5...=	DEC	5	F4410170
	00035	+000000000002	127	TIFLAB	DEC	2	F4410180
	00036	+000000000003	128	TRALAB	DEC	3	F4410190
	00037	+000000000007	129	FRELAB	DEC	7	F4410200
	00040	0 00001 0 00000	130	LD1..=	HTR	0,0,1	F4410210
	00041	0 00000 0 00310	131	LZTIF=		ZTIFRD	F4410220
	00042	0 00000 0 00312	132	LZTF2=		ZTIFRD+2	F4410230
	00043	0 00000 0 00372	133	LAZFT=		ZFRET=	F4410240
	00044	0 00000 0 00374	134	LAFT2=		ZFRET=+2	F4410250
	00045	0 00000 0 01300	135	LZTR4=		ZTRA+4	F4410260
	00046	0 00000 0 01750	136	FRETY=		FRTADD	F4410270
	00047	0 00000 0 01750	137	Y		TIFADD	F4410280
	00050	0 01750 0 00000	138	LXFRT=		0,0,XFRET=	F4410290
	00051	+170000000000	139	OCTAL	OCT	170000000000	F4410300
	00052	+377777777777	140	ENDMK=	OCT	377777777777	F4410310
	00053	+000000700000	141	TAGMRK	OCT	700000	F4410320
	00054	+077777000000	142	OPMSK=	OCT	77777000000	F4410330
	00055	+000060000000	143	PSEMK=	OCT	60000000	F4410340
	00056	+000070000000	144	PSTMK=	OCT	70000000	F4410350
	00057	+000000777777	145	TGMSK=	OCT	777777	F4410360
	00060	−300000000000	146	NMASK=	OCT	−300000000000	F4410370
	00061	−370000000000	147	1STLT=	OCT	−370000000000	F4410380
	00062	−230000000000	148	1STT.=	OCT	−230000000000	F4410390
	00063	0 76100 0 00000	149	LNOP.=	NOP	PROGRAM CONSTANT	F4410400
	00064	+035121000000	150	LTRA.=	OCT	35121000000 TRA	F4410410
	00065	+001146000000	151		OCT	1146000000 TSX-TRA	F4410420
	00066	+000454000000	152		OCT	454000000 TXL-TSX	F4410430
	00067	+000162000000	153	LTROP=	OCT	162000000 TZE-TXL	F4410440
	00070	+042363000000	154		OCT	42363000000 DCT	F4410450
	00071	−024000000000	155		OCT	−24000000000 RTT-DCT	F4410460
	00072	+027642000000	156		OCT	27642000000 MSE-RTT	F4410470
	00073	+030000000000	157	LPCOP=	OCT	30000000000 PSE-MSE	F4410480
	00074	+034743000000	158	LTPL.=	OCT	34743000000	F4410490
	00075	0 02000 0 00135	159	LTRAA	TRA	AA+1	F4410500
	00076	0 02000 0 00435	160	LOUT	TRA	STTIF=	F4410510
	00077	0 02000 0 00125	161	LBEG	TRA	BEGCLA	F4410520
	00100	0 02000 0 00135	162	LXRDN	TRA	AA+1	F4410530
	00101	0 02000 0 01262	163	LMPY	TRA	MPY	F4410540
	00102	0 02000 0 01235	164	LSTQ	TRA	STQDTG	F4410550
	00103	+002000000000	165	CONSTA	OCT	2000000000	F4410560
	00104	2 00000 1 00406	166	CNST2A	TIX	CLAB,1,0	F4410570
	00105	0 00000 0 00000	167	ERAS1=			F4410580
	00106	0 00000 0 00000	168	ERAS2=			F4410590
	00107	0 00000 0 00000	169	ERAS3=			F4410600
		00107	170	FRTBX=	SYN	ERAS3=	F4410610
	00110	0 00000 0 00000	171	OPCD			F4410620
	00111	0 00001 0 00000	172	DVFQB=	HTR	0,0,1	F4410630
			173				F4410640
			174			THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST	F4410650
			175			KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE	F4410660
			176			FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM.	F4410670
	00112	0 77200 0 00224	177	PASS1	REW	INSTTP	F4410680
	00113	0 50000 0 00052	178		CLA	ENDMK=	F4410690
	00114	0 60100 0 07773	179		STO	BBLIST STORE MARK FOR END OF B B LIST	F4410700
T	00115	−0 75400 0 00000	180		PXD		F4410710
	00116	0 60100 0 07774	181		STO	BBOX.=	F4410720
	00117	0 60100 0 07775	182		STO	DOBOX=	F4410730
	00120	0 60100 0 07776	183		STO	SSBOX=	F4410740
	00121	0 60100 0 07777	184		STO	TTBOX=	F4410750
	00122	0 50000 0 00077	185		CLA	LBEG	F4410760
	00123	0 62100 0 00342	186		STA	XRDIN SET EXIT ADDRESS	F4410770
	00124	0 02000 0 00310	187		TRA	RDINSA TRANSFER TO ROUTINE TO READ IN 1ST	F4410780
			188			BLOCK OF COMPILED INSTRUCTIONS	F4410790
	00125	0 50000 0 00100	189	BEGCLA	CLA	LXRDN RESTORE USUAL EXIT ADDRESS	F4410800
	00126	0 62100 0 00342	190		STA	XRDIN	F4410810
	00127	0 53400 2 00031	191		LXA	LA1,2 INITIALIZE INDEX REGISTERS	F4410820
	00130	0 53400 1 00031	192		LXA	LA1,1	F4410830
	00131	1 00014 1 00132	193	LD12.=	TXI	LD12.=+1,1,12	F4410840
	00132	0 50000 1 06024	194		CLA	INST.A,1 PUT INSTRUCTION NUMBER OF FIRST	F4410850
	00133	0 07400 4 00356	195		TSX	STB,4 INSTRUCTION IN BBLIST	F4410860
	00134	2 04230 1 00310	196	AA	TIX	RDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK	F4410870
	00135	0 50000 1 06024	197		CLA	INST.A,1 IF THERE IS NO LOCATION SYMBOL,	F4410880
	00136	0 10000 0 00153	198		TZE	OTHER THIS INST. NEED NOT BE CONSIDERED	F4410890
	00137	−0 50000 1 06023	199		CAL	INST.A−1,1	F4410900
	00140	0 62200 0 00110	200		STD	OPCD	F4410910
	00141	−0 32000 0 00061	201		ANA	1STLT= IF FIRST LETTER IS A T,GO TO TRCS	F4410920
	00142	0 60200 0 00105	202		SLW	ERAS1=	F4410930
	00143	0 50000 0 00105	203		CLA	ERAS1=	F4410940
	00144	0 40200 0 00062	204		SUB	1STT.=	F4410950
	00145	0 10000 0 00160	205		TZE	TRCS	F4410960
	00146	0 50000 0 00110	206		CLA	OPCD	F4410970
	00147	−0 53400 4 00220	207		LXD	LD4..=,4 FOUR INTO INDEX REGISTER C	F4410980
	00150	0 40200 4 00074	208	PSUB	SUB	LPCOP=+1,4 LOOK FOR A TEST INSTRUCTION	F4410990
	00151	0 10000 4 00160	209		TZE	PTRA+1,4 THIS IS A TEST	F4411000
	00152	2 00001 4 00150	210		TIX	PSUB,4,1	F4411010
	00153	1 00004 1 00134	211	OTHER	TXI	AA,1,4 NO TRANSFER EXISTS	F4411020
	00154	0 02000 0 00266	212		TRA	TSTCS DCT	F4411030
	00155	0 02000 0 00266	213		TRA	TSTCS RTT	F4411040
	00156	0 02000 0 00266	214		TRA	TSTCS MSE	F4411050
	00157	0 02000 0 00262	215	PTRA	TRA	PSECS PSE	F4411060
	00160	0 50000 0 00110	216	TRCS	CLA	OPCD FIND WHAT KIND OF TRANSFER THIS IS	F4411070
	00161	−0 53400 4 00220	217		LXD	LD4..=,4 FOUR INTO INDEX REGISTER C	F4411080
	00162	0 40200 4 00070	218	P2SUB	SUB	LTROP=+1,4	F4411090
	00163	0 10000 4 00204	219		TZE	P2TRA+1,4 HAVE FOUND TYPE OF TRANSFER	F4411100
	00164	2 00001 4 00162	220		TIX	P2SUB,4,1 NOT FOUND YET	F4411110
	00165	0 50000 1 06022	221		CLA	INST.A−2,1 IS THIS A TRANSFER WITH A SYMBOLIC	F4411120
	00166	0 40200 0 00051	222		SUB	OCTAL ADDRESS = SPECIAL MARK	F4411130
	00167	0 10000 0 00153	223		TZE	OTHER YES,IGNORE AS NOT REAL TRANSFER	F4411140
	00170	0 50000 1 06024	224		CLA	INST.A,1	F4411150
	00171	0 40200 1 06022	225		SUB	INST.A−2,1	F4411160
	00172	0 10000 0 00153	226		TZE	OTHER	F4411170
	00173	0 50000 1 06022	227	2WYTR	CLA	INSTA−2,1 IS A CONDITONAL TRANSFER, PUT ITS	F4411180
	00174	0 07400 4 00356	228		TSX	STB,4 ADDRESS AND THE ADDRESS OF THE	F4411190
	00175	0 50000 1 06016	229		CLA	INST.A−6,1 NEXT INSTRUCTION IN THE BASIC	F4411200
	00176	0 07400 4 00356	230		TSX	STB,4 BLOCK LIST	F4411210
	00177	1 00010 1 00134	231		TXI	AA,1,8 LOOK AT NEXT INSTRUCTION	F4411220
	00200	0 02000 0 00204	232		TRA	TRACSA TRA IS THE OPERATION CODE	F4411230
	00201	0 02000 0 00153	233		TRA	OTHER TSX	F4411240
	00202	0 02000 0 00230	234		TRA	DOCSA TXL	F4411250
	00203	0 02000 0 00243	235	P2TRA	TRA	IF3CSA TZE	F4411260
	00204	0 50000 1 06021	236	TRACSA	CLA	INSTA−3,1 IS INSTRUCTION TAGGED	F4411270
	00205	−0 32000 0 00057	237		ANA	TGMSK=	F4411280
	00206	−0 10000 0 00215	238		TNZ	GOTOVA YES,IS A GO TO VECTOR	F4411290
	00207	−0 50000 1 06022	239		CAL	INST.A−2,1 TEST FOR A GO TO N	F4411300
	00210	−0 32000 0 00060	240		ANA	NMASK= IS ADDRESS IN N-BLOCK	F4411310
	00211	−0 10000 0 00153	241		TNZ	OTHER YES,THIS IS A GO TO N,IGNORE NOW	F4411320
	00212	0 50000 1 06022	242		CLA	INST.A−2,1 NOT TAGGED,IS A STRAIGHT TRANSFER	F4411330
	00213	0 07400 4 00356	243		TSX	STB,4 STORE ADDRESS IN BASIC BLOCK LIST	F4411340
	00214	1 00004 1 00134	244		TXI	AA,1,4 LOOK AT NEXT INSTRUCTION	F4411350
	00215	0 50000 1 06021	245	GOTOVA	CLA	INST.A−3,1 THIS IS A GO TO VECTOR	F4411360
	00216	−0 73400 4 00000	246		PDX	0,4	F4411370
	00217	2 00001 4 00220	247	SELF1	TIX	SELF1+1,4,1 PUT NUMBER OF BRANCHES INTO IR C	F4411380
	00220	1 00004 1 00221	248	LD4..=	TXI	4TIX,1,4 SET FOR NEXT INSTRUCTION	F4411390
	00221	2 04230 1 00306	249	4TIX	TIX	RDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDED	F4411400
	00222	0 50000 1 06022	250		CLA	INST.A−2,1 GET ADDRESS OF THIS INSTRUCTION	F4411410
	00223	−0 63400 4 00106	251		SXD	ERAS2=,4 SAVE IN0EX REGISTER C	F4411420
	00224	0 07400 4 00356	252		TSX	STB,4 PUT ADDRESS IN BASIC BLOCK LIST	F4411430
	00225	−0 53400 4 00106	253		LXD	ERAS2=,4 RESTORE INDEX REGISTER C	F4411440
	00226	2 00001 4 00220	254		TIX	LD4..=,4,1 HAVE ALL BRANCHES BEEN DONE	F4411450
	00227	1 00004 1 00134	255		TXI	AA,1,4 YES,LOOK AT NEXT INSTRUCTION	F4411460
	00230	−0 53400 4 07775	256	DOCSA	LXD	DOBOX=,4 THIS IS THE END OF A DO	F4411470
	00231	1 00002 4 00232	257	SELF2	TXI	SELF2+1,4,2 SET DOLIST ADORESS FOR NEXT ENTRY	F4411480
	00232	0 50000 1 06024	258		CLA	INST.A,1 PUT LOCA,ION OF TRANSFER AND	F4411490
	00233	0 60100 4 06501	259		STO	DOLIST+1,4 ADDRESS 0F TRANSFER INTO 0O LIST	F4411500
	00234	0 50000 1 06022	260		CLA	INST.A−2,1	F4411510
	00235	0 60100 4 06500	261		STO	DOLIST,4	F4411520
	00236	−0 63400 4 07775	262		SXD	DOBOX=,4 STORE DO LIST ADDRESS	F4411530
	00237	0 07400 4 00356	263		TSX	STB,4 PUT ADDRESS OF TRA BACK IN TRA TABL	F4411540
	00240	0 50000 1 06020	264		CLA	INST.A−4,1	F4411550
	00241	0 07400 4 00356	265		TSX	STB,4 PUT LOC OF NEXT INST. IN TRA	F4411560
	00242	1 00004 1 00134	266		TXI	AA,1,4 LOOK AT NEXT INST.	F4411570
	00243	0 50000 1 06017	267	IF3CSA	CLA	INST.A−5,1 THIS INSTRUCTION IS A TZE	F4411580
	00244	−0 32000 0 00054	268		ANA	OPMSK=	F4411590
	00245	0 40200 0 00074	269		SUB	LTPL.= IS IT FOLLOWED BY BOTH A TPL AND	F4411600
	00246	−0 10000 0 00173	270		TNZ	2WYTR A TRA, IF NOT, TREAT IT AS A	F4411610
	00247	0 50000 1 06013	271		CLA	INST.A−9,1 TWO-WAY TRANSFER	F4411620
	00250	−0 32000 0 00054	272		ANA	OPMSK=	F4411630
	00251	0 40200 0 00064	273		SUB	LTRA.=	F4411640
	00252	−0 10000 0 00173	274		TNZ	2WYTR	F4411650
	00253	0 50000 1 06022	275		CLA	INST.A−2,1 PUT ADDRESSES OF THE THREE BRANCHES	F4411660
	00254	0 07400 4 00356	276		TSX	STB,4 INTO THE BASIC BLOCK LIST	F4411670
	00255	0 50000 1 06016	277		CLA	INST.A−6,1	F4411680
	00256	0 07400 4 00356	278		TSX	STB,4	F4411690
	00257	0 50000 1 06012	279		CLA	INST.A−10,1	F4411700
	00260	0 07400 4 00356	280		TSX	STB,4	F4411710
	00261	1 00014 1 00134	281		TXI	AA,1,12 LOOK AT INSTRUCTION AFTER THESE 3.	F4411720
	00262	0 50000 1 06021	282	PSECS	CLA	INSTA−3,1 INSTRUCTION IS A PSE	F4411730
	00263	−0 32000 0 00056	283		ANA	PSTMK=	F4411740
	00264	0 40200 0 00055	284		SUB	PSEMK=	F4411750
	00265	−0 10000 0 00153	285		TNZ	OTHER NOT A SKIP, LOOK AT NEXT INST.	F4411760
	00266	0 50000 1 06017	286	TSTCS	CLA	INSTA−5,1 THIS IS A TEST INSTRUCTION	F4411770
	00267	−0 32000 0 00054	287		ANA	OPMSK= IS IT FOLLOWED BY A TRA	F4411780
	00270	0 40200 0 00064	288		SUB	LTRA.=	F4411790
	00271	−0 10000 0 00153	289		TNZ	OTHER NO,GO TO NEXT INSTRUCTION	F4411800
	00272	0 50000 1 06016	290		CLA	INST.A−6,1 YES, IS USED FOR SKIPPING	F4411810
	00273	0 07400 4 00356	291		TSX	STB,4	F4411820
	00274	0 50000 1 06013	292		CLA	INST.A−9,1 IS TEST INSTRUCTION FOLLOWED BY	F4411830
	00275	−0 32000 0 00054	293		ANA	OPMSK= TWO TRAS	F4411840
	00276	0 40200 0 00064	294		SUB	LTRA.=	F4411850
	00277	−0 10000 0 00303	295		TNZ	SLOC NO, STORE LOCATION OF 2ND INST.	F4411860
	00300	0 50000 1 06012	296		CLA	INST.A−10,1 YES,STORE ADDRESS OF 2ND TRA	F4411870
	00301	0 07400 4 00356	297		TSX	STB,4	F4411880
	00302	1 00014 1 00134	298		TXI	AA,1,12 DO INSTRUCTION AFTER 2ND TRA NEXT	F4411890
	00303	0 50000 1 06014	299	SLOC	CLA	INSTA−8,1 STORE LOCATION OF 2ND INSTRUCTION	F4411900
	00304	0 07400 4 00356	300		TSX	STB,4 AFTER TEST	F4411910
	00305	1 00010 1 00134	301		TXI	AA,1,8 LOOK AT 2ND INSTRUCTION AFTER TEST	F4411920
			302				F4411930
			303			THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO	F4411940
			304			STORAGE FROM TAPE 4, FILE 1.	F4411950
	00306	0 50000 0 00063	305	RDIN	CLA	LNOP.= STORE EXIT ADDRESS FROM RDINS	F4411960
	00307	0 60100 0 00342	306		STO	XRDIN	F4411970
	00310	0 50000 0 00032	307	RDINSA	CLA	MINUS4 INITIALIZE ERROR BOX	F4411980
	00311	0 60100 0 00030	308		STO	ERRBX	F4411990
	00312	0 76200 0 00224	309	RDSEL	RDS	INSTTP SELECT INSTRUCTION TAPE	F4412000
	00313	−0 63400 1 00105	310		SXD	ERAS1=,1	F4412010
	00314	−0 53400 1 00131	311		LXD	LD12.=,1	F4412020
	00315	0 50000 1 01574	312	RCLA	CLA	BGINS,1 MOVE EXTRA INSTRUCTIONS	F4412030
	00316	0 60100 1 06024	313		STO	INST.A,1	F4412040
	00317	2 00001 1 00315	314		TIX	RCLA,1,1	F4412050
	00320	−0 63400 1 00106	315		SXD	ERAS2=,1 SAVE INDEX IN CASE OF ERROR	F4412060
	00321	0 70000 1 06010	316	RCPY	CPY	INSTA−12,1 READ IN BLOCK OF INSTRUCTIONS	F4412070
	00322	1 00001 1 00321	317		TXI	RCPY,1,1	F4412080
	00323	1 77777 1 00334	318		TXI	RDEND,1,−1 END OF FILE	F4412090
	00324	0 76600 0 00333	319	TPTST	WRS	219 TEST FOR TAPE ERROR	F4412100
	00325	−0 76000 0 00012	320		RTT		F4412110
	00326	0 02000 0 00346	321		TRA	RDERR ERROR	F4412120
	00327	0 50000 0 00032	322		CLA	MINUS4 INITIALIZE ERROR BOX	F4412130
	00330	0 60100 0 00030	323		STO	ERRBX	F4412140
	00331	3 04230 1 00341	324	LNOINS	TXH	XRDIN−1,1,NOINS END OF RECORD--SEE IF IT IS END OF	F4412150
	00332	0 76200 0 00224	325		RDS	INSTTP BLOCK GOING INTO STORAGE	F4412160
	00333	0 02000 0 00320	326		TRA	RCPY−1 READ NEXT BLOCK	F4412170
	00334	−0 75400 1 00000	327	RDEND	PXD	0,1 STORE NUMBER OF REMAINING INSTRUC-	F4412180
	00335	0 40000 0 00131	328		ADD	LD12.= TIONS FOR TEST	F4412190
	00336	0 62200 0 00134	329		STD	AA	F4412200
	00337	0 50000 0 00076	330		CLA	LOUT STORE FINAL EXIT ADDRESS.	F4412210
	00340	0 62100 0 00134	331		STA	AA	F4412220
	00341	−0 53400 1 00105	332		LXD	ERAS1=,1 NO ERROR,RESTORE INDEX REGISTER	F4412230
	00342	0 02000 0 00135	333	XRDIN	TRA	AA+1 RETURN TO MAIN ROUTINE	F4412240
	00343	0 50000 0 00075	334	RDIN2	CLA	LTRAA RESTORE USUAL EXIT ADDRESS IN RDINS	F4412250
	00344	0 60100 0 00342	335		STO	XRDIN	F4412260
	00345	0 02000 0 00222	336		TRA	4TIX+1 RETURN TO MAIN ROUTINE	F4412270
	00346	0 50000 0 00030	337	RDERR	CLA	ERRBX	F4412280
	00347	−0 12000 0 00351	338	SKIP1	TMI	SKIP1+2 HAVE 5 TRIES AT READING BEEN MADE	F4412290
	00350	0 07400 4 00004	339		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4412300
	00351	0 40000 0 00031	340		ADD	LA1 NO, TRY READING AGAIN	F4412310
	00352	0 60100 0 00030	341		STO	ERRBX	F4412320
	00353	0 76400 0 00224	342		BST	INSTTP	F4412330
	00354	−0 53400 1 00106	343		LXD	ERAS2=,1 RESET INDEX REGISTER	F4412340
	00355	0 02000 0 00332	344		TRA	LNOINS+1 AND TRY TO READ AGAIN	F4412350
			345				F4412360
			346			THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS,	F4412370
			347			THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH	F4412380
			348			BASIC BLOCK	F4412390
	00356	0 60100 0 00107	349	STB	STO	ERAS3=	F4412400
	00357	−0 63400 1 00105	350		SXD	ERAS1=,1	F4412410
	00360	−0 75400 2 00000	351		PXD	0,2	F4412420
	00361	0 62200 0 00421	352		STD	BTXH	F4412430
	00362	0 62200 0 00425	353		STD	BTXL	F4412440
	00363	0 62200 0 00401	354		STD	PLACEA	F4412450
	00364	0 77100 0 00001	355		ARS	1	F4412460
	00365	0 30000 0 00033	356		FAD	L0...=	F4412470
	00366	0 77100 0 00033	357		ARS	27	F4412480
	00367	0 40200 0 00040	358		SUB	LD1..=	F4412490
	00370	0 62100 0 00372	359		STA	ARS	F4412500
	00371	0 50000 0 00103	360		CLA	CONSTA	F4412510
A	00372	0 77100 0 00000	361	ARS	ARS		F4412520
	00373	0 56000 0 00104	362		LDQ	CNST2A	F4412530
	00374	−0 73400 1 00000	363		PDX	0,1	F4412540
	00375	0 77100 0 00001	364	ARSB	ARS	1	F4412550
	00376	0 62200 0 00403	365		STD	TXIBB	F4412560
	00377	0 62200 0 00405	366		STD	TIXBB	F4412570
	00400	0 50000 0 00107	367		CLA	ERAS3=	F4412580
	00401	3 00000 1 00405	368	PLACEA	TXH	TIXBB,1,XXXXXX	F4412590
	00402	0 34000 1 07774	369		CAS	BBLIST+1,1	F4412600
D	00403	1 00000 1 00406	370	TXIBB	TXI	CLAB,1	F4412610
	00404	0 02000 0 00432	371		TRA	BOUT	F4412620
D	00405	2 00000 1 00406	372	TIXBB	TIX	CLAB,1	F4412630
	00406	0 50000 0 00405	373	CLAB	CLA	TIXBB	F4412640
	00407	0 04000 0 00375	374		TLQ	ARSB	F4412650
	00410	0 50000 0 00107	375		CLA	ERAS3= X WAS NOT FOUND, ENTER IT	F4412660
	00411	3 01273 2 00434	376		TXH	BTSX,2,ZBB−1 TEST FOR OVERFLOW OF BBLIST	F4412670
	00412	0 56000 1 07774	377		LDQ	BBLIST+1,1	F4412680
	00413	0 04000 0 00415	378		TLQ	TXI2	F4412690
	00414	0 02000 0 00417	379		TRA	BLDQ+1	F4412700
	00415	1 00001 1 00416	380	TXI2	TXI	BLDQ,1,1	F4412710
	00416	0 56000 1 07774	381	BLDQ	LDQ	BBLIST+1,1 X SHOULD BE ENTERED HERE, SAVE NEXT	F4412720
	00417	0 60100 1 07774	382		STO	BBLIST+1,1 ENTRY AND STORE X	F4412730
	00420	1 00001 1 00421	383		TXI	BTXH,1,1 IS THIS LAST ENTRY IN TABLE.	F4412740
D	00421	3 00000 1 00430	384	BTXH	TXH	BSTQ,1 YES, TRANSFER	F4412750
	00422	0 50000 1 07774	385		CLA	BBLIST+1,1 NO, SHIFT NEXT ENTRY	F4412760
	00423	−0 60000 1 07774	386		STQ	BBLIST+1,1	F4412770
	00424	1 00001 1 00425	387		TXI	BTXL,1,1	F4412780
D	00425	−3 00000 1 00416	388	BTXL	TXL	BLDQ,1 IS THIS LAST ENTRY IN TABLE	F4412790
	00426	0 60100 1 07774	389		STO	BBLIST+1,1 YES, STORE LAST ENTRY	F4412800
	00427	1 00001 2 00432	390		TXI	BOUT,2,1	F4412810
	00430	−0 60000 1 07774	391	BSTQ	STQ	BBLIST+1,1 STORE LAST ENTRY	F4412820
	00431	1 00001 2 00432	392		TXI	BOUT,2,1	F4412830
	00432	−0 53400 1 00105	393	BOUT	LXD	ERAS1=,1 RESTORE INDEX REGISTER	F4412840
	00433	0 02000 4 00001	394		TRA	1,4 TRANSFER BACK.	F4412850
	00434	0 07400 4 00004	395	BTSX	TSX	RDFORT,4 BBLIST IS FULL WITHOUT THIS ENTRY	F4412860
			396				F4412670
			397			THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6,	F4412880
			398			ELIMINATING UNWANTED PARTS OF TIFGO.	F4412890
	00435	0 50000 0 00032	399	STTIF=	CLA	MINUS4 INITIALIZE ERROR BOX	F4412900
	00436	0 60100 0 00030	400		STO	ERRBX	F4412910
	00437	0 76400 0 00222	401		BST	TBLTAP POSITION TAPE4TO READ TIFGO	F4412920
	00440	0 76400 0 00222	402		BST	TBLTAP	F4412930
	00441	0 76200 0 00222	403		RDS	TBLTAP	F4412940
	00442	0 70000 0 00105	404		CPY	ERAS1= GET NO. OF RECORDS IN DOTAG	F4412950
	00443	−0 53400 1 00105	405		LXD	ERAS1=,1 BACKSPACE OVER COUNT, END FILE,	F4412960
	00444	1 00014 1 00445	406	TXITF	TXI	TXITF+1,1,12 IXTAG, END FILE, 9 TABLES	F4412970
	00445	0 76400 0 00222	407	BSTA	BST	TBLTAP	F4412980
	00446	2 00001 1 00445	408	SELF3	TIX	SELF3−1,1,1	F4412990
	00447	0 76200 0 00222	409		RDS	TBLTAP	F4413000
	00450	0 70000 0 00106	410		CPY	ERAS2= COPY TABLE NUMBER	F4413010
	00451	0 70000 0 00105	411		CPY	ERAS1= COPY NO OF WORDS IN TABLE	F4413020
	00452	0 70000 1 06024	412	CPYTF	CPY	TIFRD,1 COPY WORD 0F TIFGO	F4413030
	00453	0 02000 0 00456	413		TRA	CLATFA REGULAR EXIT FROM COPY	F4413040
	00454	0 07400 4 00004	414		TSX	RDFORT,4 END OF FILE SHOULD NOT OCCUR	F4413050
	00455	1 77777 1 00476	415		TXI	CHECK,1,−1 END OF RECORD - GIVE RTT, SET INDEX	F4413060
	00456	0 50000 1 06024	416	CLATFA	CLA	TIFRD,1 LOOK AT THIS WORD OF TIFGO	F4413070
	00457	−0 12000 0 00451	417		TMI	CPYTF−1 -,MEANS AN IF, GIVE 2ND COPY,IGNORE	F4413080
	00460	−0 32000 0 00057	418		ANA	TGMSK= IS THIS A GO TO N ENTRY	F4413090
	00461	0 40200 0 00031	419		SUB	LA1	F4413100
	00462	0 70000 1 06023	420		CPY	TIFRD−1,1 COPY SECOND WORD OF ENTRY	F4413110
	00463	0 10000 0 00467	421		TZE	GOTONA THIS IS A GO TO N ENTRY	F4413120
	00464	0 40200 0 00034	422		SUB	L5...= NOT A GO TO N--IS IT AN ASSIGN	F4413130
	00465	−0 10000 0 00452	423		TNZ	CPYTF NO, LOOK AT NEXT ENTRY, DONT SAVE	F4413140
	00466	1 00002 1 00452	424	ASSN	TXI	CPYTF,1,2 AN ASSIGN,KEEP ENTRY IN TIFRD	F4413150
	00467	0 50000 1 06023	425	GOTONA	CLA	TIFRD−1,1 A GO TO N, SAVE ENTRY AND ALSO	F4413160
	00470	0 62200 0 00105	426		STD	ERAS1= LEAVE ENOUGH SPACE FOR CORRES-	F4413170
	00471	0 73400 4 00000	427		PAX	0,4 PONDING ENTRIES IN TRAD	F4413180
	00472	−0 75400 4 00000	428		PXD	0,4	F4413190
	00473	0 40200 0 00105	429		SUB	ERAS1=	F4413200
	00474	0 62200 0 00475	430	SELF4	STD	SELF4+1	F4413210
	00475	1 00000 1 00466	431		TXI	ASSN,1,XXXXXX LOOK AT NEXT ENTRY IN TIFRD	F4413220
	00476	0 76600 0 00333	432	CHECK	IOD	TEST FOR TAPE ERROR	F4413230
	00477	−0 76000 0 00012	433		RTT		F4413240
	00500	0 02000 0 00515	434		TRA	ERRORA ERROR	F4413250
	00501	0 50000 0 00106	435		CLA	ERAS2= CHECK FOR POSITIONING OF TAPE	F4413260
	00502	0 40200 0 00035	436		SUB	TIFLAB	F4413270
	00503	−0 10000 0 00524	437		TNZ	BADPOS	F4413280
	00504	−0 75400 1 00000	438		PXD	0,1 SAVE LENGTH OF TABLE FOR TESTS	F4413290
	00505	0 62200 0 00570	439		STD	ABOX	F4413300
	00506	0 77100 0 00022	440		ARS	18	F4413310
	00507	0 60100 0 00106	441		STO	ERAS2=	F4413320
	00510	−0 10000 0 00525	442		TNZ	RDTRAD−2 TIFGO IS NOT EMPTY	F4413330
	00511	0 76200 0 00222	443	RDS6	RDS	TBLTAP	F4413340
	00512	1 77777 2 00513	444		TXI	RDS6+2,2,−1 NO ENTRIES IN TIFGO-SKIP PROCESSING	F4413850
	00513	−0 63400 2 07774	445		SXD	BBOX.=,2	F4413360
	00514	0 02000 0 00637	446		TRA	LXA6	F4413370
	00515	0 50000 0 00030	447	ERRORA	CLA	ERRBX	F4413380
	00516	−0 12000 0 00520	448	SKIP2	TMI	SKIP2+2 HAVE 5 TRIES AT READING BEEN MADE	F4413390
	00517	0 07400 4 00004	449		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4413400
	00520	0 40000 0 00031	450		ADD	LA1 NO, TRY READING AGAIN	F4413410
	00521	0 60100 0 00030	451		STO	ERRBX	F4413420
	00522	−0 53400 1 00040	452		LXD	LD1..=,1 RESET INDEX REGISTER	F4413430
	00523	0 02000 0 00445	453		TRA	BSTA	F4413440
	00524	0 07400 4 00004	454	BADPOS	TSX	RDFORT,4 TAPE POSITIONED INCORRECTLY	F4413450
			455				F4413460
			456			THIS ROUTINE READS TRAD FROM TAPE 2, FILE 5, RECORD 7, AND	F4413470
			457			ENTERS ALL WORDS OF TRAD INTO THE BASIC BLOCK LIST.	F4413480
	00525	0 50000 0 00032	458		CLA	MINUS4 INITIALIZE ERROR BOX	F4413490
	00526	0 60100 0 00030	459		STO	ERRBX	F4413500
	00527	0 53400 1 00031	460	RDTRAD	LXA	LA1,1 SET INDEX	F4413510
	00530	0 76200 0 00222	461		RDS	TBLTAP	F4413520
	00531	0 70000 0 00105	462		CPY	ERAS1= COPY TABLE NUMBER	F4413530
	00532	0 70000 1 03711	463		CPY	TRAD.=+1,1 COPY NUMBER OF WORDS AND TABLE	F4413540
	00533	1 77777 1 00532	464	SELF5	TXI	SELF5−1,1,−1 COPY NEXT WORD	F4413550
	00534	0 07400 4 00004	465		TSX	RDFORT,4 END OF FILE SHOULD NOT OCCUR	F4413560
	00535	0 76600 0 00333	466		IOD	END OF RECORD--TEST FOR ERROR	F4413570
	00536	−0 76000 0 00012	467		RTT		F4413580
	00537	0 02000 0 00551	468		TRA	ERR2TD ERROR	F4413590
	00540	0 50000 0 00105	469		CLA	ERAS1= CHECK FOR POSITIONING OF TAPE	F4413600
	00541	0 40200 0 00036	470		SUB	TRALAB	F4413610
	00542	−0 10000 0 00524	471		TNZ	BADPOS	F4413620
	00543	−3 00000 1 00560	472	TXLTRD	TXL	TXITRD,1,0 ALL OF TRAD NOW IN BASIC BLOCK LIST	F4413630
	00544	0 50000 1 03710	473		CLA	TRAD.=,1 NO ERROR--ENTER IN BASIC BLOCK LIST	F4413640
	00545	0 76700 0 00022	474		ALS	18 SHIFT WORD OF TRAO	F4413650
	00546	0 60100 1 03710	475		STO	TRAD.=,1	F4413660
	00547	0 07400 4 00356	476		TSX	STB,4	F4413670
	00550	1 00001 1 00543	477		TXI	TXLTRD,1,1 SET FOR NEXT WORD IN TRAD	F4413680
	00551	0 50000 0 00030	478	ERR2TD	CLA	ERRBX	F4413690
	00552	−0 12000 0 00554	479	SKIP3	TMI	SKIP3+2 HAVE 5 TRIES AT READING BEEN MADE	F4413700
	00553	0 07400 4 00004	480		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4413710
	00554	0 40000 0 00031	481		ADD	LA1 NO, TRY READING AGAIN	F4413720
	00555	0 60100 0 00030	482		STO	ERRBX	F4413730
	00556	0 76400 0 00222	483		BST	TBLTAP	F4413740
	00557	0 02000 0 00527	484		TRA	RDTRAD	F4413750
	00560	1 77777 2 00561	485	TXITRD	TXI	TXITRD+1,2,−1	F4413760
	00561	−0 63400 2 07774	486		SXD	BBOX.=,2 SAVE LENGTH OF BB TABLE	F4413770
			487				F4413780
			488			THIS COMBINES TIFGO AND TRAD INTO TIFRD	F4413790
	00562	0 53400 1 00031	489	CMBNE	LXA	LA1,1 COMBINE TRAD WITH TIFGO	F4413800
	00563	0 50000 1 06024	490	CLATF	CLA	TIFRD,1 LOOK FOR A GO TO N ENTRY IN TIFRD	F4413810
	00564	−0 32000 0 00057	491		ANA	TGMSK=	F4413820
	00565	0 40200 0 00031	492		SUB	LA1	F4413830
	00566	0 10000 0 00572	493		TZE	GOTN2	F4413840
	00567	1 00002 1 00570	494		TXI	ABOX,1,2	F4413850
D	00570	−2 00000 1 00563	495	ABOX	TNX	CLATF,1 IS THIS END OF TIFRD	F4413860
	00571	0 02000 0 00605	496		TRA	CLAER YES, STORE TIFRD ON DRUM	F4413870
	00572	0 50000 1 06023	497	GOTN2	CLA	TIFRD−1,1 GO TO N, PUT IN ENTRIES FROM TRAD	F4413880
	00573	−0 73400 2 00000	498		PDX	0,2 SET INDEX FOR FIRST WORD	F4413890
	00574	0 76700 0 00022	499		ALS	18	F4413900
	00575	0 62200 0 00603	500		STD	TXH STORE INDEX FOR LAST WORD	F4413910
	00576	0 50000 2 04303	501	CLATR	CLA	TRAD.=+251,2 STORE WORD FROM TRAD INTO TIFRD	F4413920
	00577	−0 76000 0 00003	502		SSM		F4413930
	00600	0 60100 1 06022	503		STO	TIFRD−2,1	F4413940
	00601	1 77777 2 00602	504		TXI	TXIA,2,−1 SET INDEX FOR TRAD	F4413950
	00602	1 00001 1 00603	505	TXIA	TXI	TXH,1,1 SET INDEX FOR TIFRD	F4413960
D	00603	3 00000 2 00576	506	TXH	TXH	CLATR,2 CHECK FOR LAST WORD FOR THIS GO TO	F4413970
	00604	1 00002 1 00570	507		TXI	ABOX,1,2 SET FOR NEXT ENTRY IN TIFRD	F4413980
			508				F4413990
			509			THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS.	F4414000
	00605	0 50000 0 00106	510	CLAER	CLA	ERAS2= HOW MANY WORDS ARE LEFT TO COPY	F4414010
	00606	−0 12000 0 00643	511		TMI	RFRET NONE	F4414020
	00607	0 40200 0 00041	512		SUB	LZTIF=	F4414030
	00610	−0 12000 0 00637	513	TMI	TMI	LXA6 ONLY A PARTIAL BLOCK	F4414040
	00611	0 53400 1 00041	514		LXA	LZTIF=,1 FULL	F4414050
	00612	0 60100 0 00106	515		STO	ERAS2= STORE NO OF WORDS LEFT AFTER THIS	F4414060
	00613	0 76600 0 00301	516	WRSTIF	WRS	TIFDRM	F4414070
	00614	−0 75400 1 00000	517		PXD	0,1 PUT LENGTH OF BLOCK IN ACCUMULATOR	F4414080
	00615	0 60100 0 00107	518		STO	ERAS3= AND IN ERAS3=	F4414090
	00616	0 36100 1 06024	519	ACLF	ACL	TIFRD,1 COMPUTE CHECKSUM	F4414100
	00617	2 00001 1 00616	520		TIX	ACLF,1,1	F4414110
	00620	0 60200 0 00105	521		SLW	ERAS1= STORE CHECK SUM	F4414120
	00621	0 46000 0 00047	522		LDA	Y LOCATE DRUM ADDRESS	F4414130
	00622	−0 53400 1 00107	523		LXD	ERAS3=,1 SET INDEX	F4414140
	00623	0 70000 0 00107	524		CPY	ERAS3= COPY NO OF WORDS IN BLOCK	F4414150
	00624	0 70000 1 06024	525	CPY7FT	CPY	TIFRD,1 COPY TABLE	F4414160
	00625	2 00001 1 00624	526	SELF9	TIX	SELF9−1,1,1	F4414170
	00626	0 70000 0 00105	527		CPY	ERAS1= COPY CHECK SUM	F4414180
	00627	−0 50000 0 00616	528		CAL	ACLF SET ADDRESSES FOR COMPUTING	F4414190
	00630	0 40200 0 00041	529		SUB	LZTIF= CHECK SUM AND COPY	F4414200
	00631	0 62100 0 00616	530	STA6	STA	ACLF	F4414210
	00632	0 62100 0 00624	531		STA	CPY7FT	F4414220
	00633	0 50000 0 00047	532		CLA	Y SET DRUM ADDRESS	F4414230
	00634	0 40000 0 00042	533		ADD	LZTF2=	F4414240
	00635	0 62100 0 00047	534		STA	Y	F4414250
	00636	0 02000 0 00605	535		TRA	CLAER DO NEXT BLOCK	F4414260
	00637	0 53400 1 00106	536	LXA6	LXA	ERAS2=,1 PUT LENGTH IN INDEX	F4414270
	00640	0 50200 0 00033	537		CLS	L0...= PUT MINUS IN ERAS2= AS LENGTH LEFT	F4414280
	00641	0 60100 0 00106	538		STO	ERAS2=	F4414290
	00642	0 02000 0 00613	539		TRA	WRSTIF TRA TO WRITE BLOCK AND COMPUTE CKSM	F4414300
			540				F4414310
			541			THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND	F4414320
			542			CHANGES FREQUENCIES TO PROBABILITIES.	F4414330
	00643	0 50000 0 00032	543	RFRET	CLA	MINUS4 INITIALIZE ERROR BOX	F4414340
	00644	0 60100 0 00030	544		STO	ERRBX	F4414350
	00645	0 53400 4 00034	545		LXA	L5...=,4 SPACE TO FRET	F4414360
	00646	0 76200 0 00222	546	RDSFTP	RDS	TBLTAP	F4414370
	00647	2 00001 4 00646	547		TIX	RDSFTP,4,1	F4414380
	00650	0 70000 0 00106	548		CPY	ERAS2= COPY TABLE NUMBER	F4414390
	00651	0 70000 0 00105	549	RDINF	CPY	ERAS1= COPY NUMBER OF WORDS IN TABLE	F4414400
	00652	−0 53400 2 00105	550		LXD	ERAS1=,2 PUT NUMBER OF WORDS INTO INDEX B	F4414410
	00653	−3 00000 2 01012	551		TXL	EMPTY,2,0	F4414420
	00654	0 53400 1 00031	552		LXA	LA1,1 INITIALIZE INDEX REGISTERS A AND C	F4414430
	00655	−0 53400 4 00050	553		LXD	LXFRT=,4	F4414440
	00656	0 70000 4 06023	554	CPYF	CPY	FRET.=,4 COPY WORDS INTO STORAGE	F4414450
	00657	0 50000 4 06023	555		CLA	FRET.=,4 IS THIS WORD THE FORMULA NUMBER OF	F4414460
	00660	−0 12000 0 00665	556		TMI	TNX A NEW ENTRY--YES, TRANSFER	F4414470
	00661	0 40000 4 06022	557	ADD	ADD	FRET.=−1,4 NO, ADD THIS FREQUENCY TO PREVIOUS	F4414480
	00662	0 60100 4 06023	558		STO	FRET.=,4 SUM TO GET CUMULATIVE FREQUENCY	F4414490
	00663	−2 00001 2 00724	559		TNX	ALDNE,2,1 IS TABLE ALL COPIED	F4414500
	00664	1 77777 4 00656	560		TXI	CPYF,4,−1 NO,COPY NEXT WORD	F4414510
	00665	−2 00001 2 00711	561	TNX	TNX	ERRFN,2,1 THIS IS FORM. NO,--SHOUL0NT END TAB	F4414520
	00666	1 77777 4 00667	562	SELF10	TXI	SELF10+1,4,−1 INDEX PLACE IN STORAGE	F4414530
	00667	0 70000 4 06023	563	CPY3FT	CPY	FRET.=,4 COPY FIRST FREQUENCY IN ENTRY	F4414540
	00670	−2 00001 2 00706	564		TNX	DOEND,2,1 TEST FOR END OF TABLE ON TAPE	F4414550
	00671	1 77777 4 00672	565	SELF11	TXI	SELF11+1,4,−1 INDEX PLACE IN STORAGE	F4414560
	00672	0 70000 4 06023	566		CPY	FRET.=,4 COPY NEXT WORD-- IS IT NEXT FREQ OR	F4414570
	00673	0 50000 4 06023	567		CLA	FRET.=,4 IS IT NEW FORMULA NUMBER	F4414580
	00674	0 12000 0 00661	568		TPL	ADD NEXT FREQUENCY,GO TO ADD	F4414590
	00675	0 50000 4 06021	569	DOCSFT	CLA	FRET.=−2,4 NEW FORMULA NUMBER,ENTRY JUST	F4414600
	00676	0 60100 1 06023	570		STO	DVFQ.=,1 COPIED WAS FOR A DO, MOVE TO	F4414610
	00677	0 50000 4 06022	571		CLA	FRET.=−1,4 DVFQ	F4414620
	00700	0 60100 1 06022	572		STO	DVFQ.=−1,1	F4414630
	00701	1 00002 1 00702	573		TXI	CLAFT,1,2 INDEX POSITION IN DVFQ TABLE	F4414640
	00702	0 50000 4 06023	574	CLAFT	CLA	FRET.=,4 PUT NEW FORMULA INTO FRET IN PLACE	F4414650
	00703	0 60100 4 06021	575		STO	FRET.=−2,4 OF ENTRY JUST MOVED	F4414660
	00704	−2 00001 2 00711	576		TNX	ERRFN,2,1 THIS SHOULD BE END ONLY IF WAS DOCS	F4414670
	00705	1 00001 4 00667	577		TXI	CPY3FT,4,1 COPY NEXT WORD	F4414680
	00706	0 50000 0 00663	578	DOEND	CLA	ADD+2 THIS DO ENTRY IS END OF TABLE	F4414690
	00707	0 62100 0 00704	579		STA	CLAFT+2 RESTORE ADDRESS	F4414700
	00710	0 02000 0 00675	580		TRA	DOCSFT ERROR EXIT	F4414710
	00711	0 07400 4 00004	581	ERRFN	TSX	RDFORT,4 THE TAPE RECORD ENDS WITH A FORMULA	F4414720
	00712	0 50000 0 00665	582		CLA	TNX NUMBER WITH NO FREQUENCIES	F4414730
	00713	0 62100 0 00704	583		STA	CLAFT+2 RESTORE ADDRESS	F4414740
	00714	0 50000 0 00030	584	ERRORF	CLA	ERRBX	F4414750
	00715	−0 12000 0 00717	585	SKIP4	TMI	SKIP4+2 HAVE 5 TRIES AT READING BEEN MADE	F4414760
	00716	0 07400 4 00004	586		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4414770
	00717	0 40000 0 00031	587		ADD	LA1 NO, TRY READING AGAIN	F4414780
	00720	0 60100 0 00030	588		STO	ERRBX	F4414790
	00721	0 76400 0 00222	589		BST	TBLTAP	F4414800
	00722	0 76200 0 00222	590		RDS	TBLTAP SET TO READ FRET AGAIN.	F4414810
	00723	0 02000 0 00650	591		TRA	RDSFTP+2 TRY AGAIN	F4414820
	00724	0 76600 0 00333	592	ALDNE	IOD		F4414830
	00725	−0 76000 0 00012	593		RTT	TEST FOR TAPE ERROR	F4414840
	00726	0 02000 0 00714	594		TRA	ERRORF ERROR	F4414850
	00727	0 50000 0 00106	595		CLA	ERAS2= CHECK FOR POSITIONING OF TAPE	F4414860
	00730	0 40200 0 00037	596		SUB	FRELAB	F4414870
	00731	−0 10000 0 00524	597		TNZ	BADPOS	F4414880
	00732	1 77777 4 00733	598		TXI	CONTN,4,−1	F4414890
	00733	−0 63400 1 01274	599	CONTN	SXD	DVFTST,1 SAVE LENGTH OF DVFQ TABLE	F4414900
	00734	−0 63400 4 00107	600		SXD	FRTBX=,4 SAVE LENGTH OF FRET TABLE IN STOR.	F4414910
	00735	1 00001 4 00736	601		TXI	CLA1,4,1	F4414920
	00736	0 50000 4 06023	602	CLA1	CLA	FRET.=,4 TAKE TOTAL FREQ OF ENTRY (LAST WD)	F4414930
	00737	0 60100 0 00105	603		STO	ERAS1= STORE AS DIVISOR	F4414940
	00740	0 50000 0 00052	604		CLA	ENDMK= STORE HIGHEST NO AS TOTAL PROB.	F4414950
	00741	0 60100 4 06023	605		STO	FRET.=,4	F4414960
	00742	1 00001 4 00743	606		TXI	CLAD,4,1 INDEX PLACE IN FRET	F4414970
	00743	0 50000 4 06023	607	CLAD	CLA	FRET.=,4 LOOK AT NEXT WORD	F4414980
	00744	−0 12000 0 00753	608		TMI	NEWFM FORMULA NUMBER--END OF THIS ENTRY	F4414990
	00745	0 56000 0 00033	609		LDQ	L0...= ANOTHER CUMULATIVE FREQUENCY	F4415000
	00746	0 22100 0 00105	610		DVP	ERAS1= DIVIDE BY TOTAL FREQUENCY TO GET	F4415010
	00747	0 76000 0 00012	611		DCT	CUMULATIVE PROBABILITY	F4415020
	00750	0 56000 0 00052	612		LDQ	ENDMK=	F4415030
	00751	−0 60000 4 06023	613		STQ	FRET.=,4	F4415040
	00752	1 00001 4 00743	614		TXI	CLAD,4,1 LOOK AT NEXT WORD	F4415050
	00753	1 00001 4 00754	615	NEWFM	TXI	NEWFM+1,4,1 IS THIS END OF TABLE	F4415060
	00754	−2 01750 4 00736	616		TNX	CLA1,4,XFRET= NO--LOOK AT NEXT ENTRY	F4415070
			617				F4415080
			618			THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS	F4415090
	00755	0 50200 0 00107	619	DONE	CLS	FRTBX=	F4415100
	00756	0 40000 0 00050	620		ADD	LXFRT=	F4415110
	00757	−0 73400 4 00000	621		PDX	0,4 PUT NO. OF WORDS IN FRET INTO INDEX	F4415120
	00760	−2 00372 4 01006	622	LZFRT=	TNX	LSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT	F4415130
	00761	−0 53400 3 00760	623		LXD	LZFRT=,3 NO, FULL BLOCK--SET INDEX REGS.	F4415140
	00762	0 50000 0 00043	624		CLA	LAZFT= GET LENGTH OF BLOCK	F4415150
	00763	0 40100 0 00771	625	ADM	ADM	ACLA SET ADDRESSES FOR BLOCK	F4415160
	00764	0 62100 0 00771	626		STA	ACLA	F4415170
	00765	0 62100 0 00776	627		STA	CPYFT	F4415180
	00766	0 76600 0 00302	628		WRS	FRTDRM SELECT DRUM	F4415190
	00767	−0 75400 2 00000	629		PXD	0,2	F4415200
	00770	0 60100 0 00106	630		STO	ERAS2= STORE LENGTH OF BLOCK	F4415210
	00771	0 36100 2 04053	631	ACLA	ACL	FRETN=,2 FIND CHECKSUM	F4415220
	00772	2 00001 2 00771	632		TIX	ACLA,2,1	F4415230
	00773	0 60200 0 00105	633		SLW	ERAS1= STORE CHECKSUM	F4415240
	00774	0 46000 0 00046	634		LDA	FRETY=	F4415250
	00775	0 70000 0 00106	635		CPY	ERAS2= COPY NO OF WORDS IN BLOCK	F4415260
	00776	0 70000 1 04053	636	CPYFT	CPY	FRETN=,1 COPY BLOCK	F4415270
	00777	2 00001 1 00776	637		TIX	CPYFT,1,1	F4415280
	01000	0 70000 0 00105	638		CPY	ERAS1= COPY CHECK SUM	F4415290
	01001	3 01750 4 01014	639		TXH	OUTA,4,XFRET= IS THIS END OF TABLE	F4415300
	01002	0 50000 0 00046	640		CLA	FRETY= NO,SET DRUM ADDRESS FOR NEXT BLOCK	F4415310
	01003	0 40000 0 00044	641		ADD	LAFT2=	F4415320
	01004	0 62100 0 00046	642		STA	FRETY=	F4415330
	01005	0 02000 0 00760	643		TRA	LZFRT= DO NEXT BLOCK	F4415340
	01006	−0 75400 4 00000	644	LSTBLK	PXD	0,4 ONLY A PARTIAL BLOCK LEFT	F4415350
	01007	−0 73400 3 00000	645		PDX	0,3 LENGTH OF BLOCK INTO INDICES	F4415360
	01010	0 77100 0 00022	646		ARS	18	F4415370
	01011	1 01750 4 00763	647		TXI	ADM,4,XFRET=	F4415380
	01012	0 76600 0 00302	648	EMPTY	WRS	FRTDRM	F4415390
	01013	0 46000 0 00046	649		LDA	FRETY=	F4415400
	01014	0 70000 0 00033	650	OUTA	CPY	L0...=	F4415410
	01015	0 77200 0 00224	651		REW	INSTTP REWIND COMPILED INSTRUCTION TAPE	F4415420
			652				F4415430
			653			THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS	F4415440
	01016	−0 53400 1 07775	654	SRTDO	LXD	DOBOX=,1 PUT TOTAL LNGTH OF DOLIST IN ERAS2=	F4415450
	01017	−3 00000 1 01305	655		TXL	CLTRA=−3,1,0 IF NO DOS, OMIT ROUTINES WITH DOS	F4415460
	01020	−0 63400 1 00106	656		SXD	ERAS2=,1	F4415470
	01021	0 50000 1 06500	657	CLADO	CLA	DOLIST,1 TAKE LAST ENTRY NOT ALREADY SORTED	F4415480
	01022	0 56000 1 06501	658		LDQ	DOLIST+1,1 PUT ADDRESS IN AC, LOC IN MQ	F4415490
	01023	−3 00002 1 01046	659	TXLDO	TXL	STOREA,1,2 IS THERE ANOTHER ENTRY TO BE	F4415580
			660			COMPARED	F4415510
	01024	0 34000 1 06502	661		CAS	DOLIST+2,1 YES, COMPARE ADDRESSES	F4415520
	01025	1 77776 1 01023	662		TXI	TXLDO,1,−2 STORED ADDRESS SMALLER, LOOK AT	F4415530
			663			NEXT WORD	F4415540
	01026	0 02000 0 01040	664		TRA	COMPR ADDRESSES ARE EQUAL, COMPARE LOCATN	F4415550
	01027	0 60100 0 00105	665		STO	ERAS1= STORED ADDRESS LARGER, EXCHANGE	F4415560
	01030	0 50000 1 06503	666		CLA	DOLIST+3,1 ENTRIES	F4415570
	01031	−0 60000 1 06503	667	STQDO	STQ	DOLIST+3,1	F4415580
	01032	0 56000 0 00105	668		LDQ	ERAS1=	F4415590
	01033	0 60100 0 00105	669		STO	ERAS1=	F4415600
	01034	0 50000 1 06502	670		CLA	DOLIST+2,1	F4415610
	01035	−0 60000 1 06502	671		STQ	DOLIST+2,1	F4415620
	01036	0 56000 0 00105	672		LDQ	ERAS1=	F4415630
	01037	1 77776 1 01023	673		TXI	TXLDO,1,−2	F4415640
	01040	0 60100 0 00105	674	COMPR	STO	ERAS1= ADDRESSES EQUAL,COMPARE LOCATIONS	F4415650
	01041	0 50000 1 06503	675		CLA	DOLIST+3,1	F4415660
	01042	0 04000 0 01044	676		TLQ	CLA2 STORED LARGER,DO NOT EXCHANGE	F4415670
	01043	0 02000 0 01031	677		TRA	STQDO STORED LOC SMALLER, EXCHANGE	F4415680
	01044	0 50000 0 00105	678	CLA2	CLA	ERAS1= RESTORE ACCUMULATOR	F4415690
	01045	1 77776 1 01023	679		TXI	TXLDO,1,−2	F4415700
	01046	−0 53400 1 00106	680	STOREA	LXD	ERAS2=,1 NOW HAVE HIGHEST OF ENTRIES NOT	F4415710
	01047	0 60100 1 06500	681		STO	DOLIST,1 PREVIOUSLY SORTED, STORE JUST	F4415720
	01050	−0 60000 1 06501	682		STQ	DOLIST+1,1 BEFORE THOSE ALREADY SORTED AND	F4415730
	01051	1 77776 1 01052	683	SELF13	TXI	SELF13+1,1,−2 SET INDEX TO AVOID THIS ENTRY AS	F4415740
	01052	−0 63400 1 00106	684		SXD	ERAS2=,1 ALREADY SORTED, LOOK FOR HIGHEST	F4415750
	01053	3 00002 1 01021	685		TXH	CLADO,1,2 ENTRY OF THOSE NOT YET SORTED.	F4415760
			686			TABLE IS ENTIRELY SORTED NOW.	F4415770
			687				F4415780
			688			THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS IN THE DO LIST	F4415790
			689			BY BASIC BLOCK NUMBERS	F4415800
	01054	0 53400 2 00033	690		LXA	L0...=,2 INITIALIZE INDEX REGISTERS	F4415810
	01055	0 50000 0 07775	691		CLA	DOBOX= PUT NUMBER OF WORDS IN LIST INTO	F4415820
	01056	0 62200 0 01060	692		STD	TIXDO DECREMENT OF TIX FOR COMPARISON	F4415830
	01057	0 53400 1 00031	693		LXA	LA1,1	F4415840
D	01060	2 00000 1 01102	694	TIXDO	TIX	RDDOT,1 HAVE ALL ENTRIES BEEN DONE	F4415850
	01061	0 50000 1 06477	695		CLA	DOLIST−1,1 ADD INST NO TO BE CHANGED (ADDR)	F4415860
	01062	0 34000 2 07773	696	LDQ	CAS	BBLIST,2 COMPARE TO INST NO OF BEG OF BB	F4415870
	01063	1 00001 2 01062	697		TXI	LDQ,2,1 BEG BB LESS, TRY NEXT	F4415880
	01064	0 02000 0 01066	698		TRA	LDQ+4 BEG. B.B. EQUAL,FOUND	F4415890
	01065	1 77777 2 01066	699		TXI	LDQ+4,2,−1 BEG B B GREATER, PREVIOUS BB IS IT	F4415900
	01066	−0 75400 2 00000	700	LOQP4	PXD	0,2 PUT B B NO IN DECREMENT	F4415910
	01067	0 60100 1 06477	701		STO	DOLIST−1,1 REPLACE INSTR NO IN DO LIST	F4415920
	01070	0 50000 1 06500	702		CLA	DOLIST,1 ADD INSTR NO OF LOC OF TXL	F4415930
	01071	0 34000 2 07773	703		CAS	BBLIST,2 COMPARE TO BB OF ADDR FIRST	F4415940
	01072	1 00001 2 01071	704	SELF14	TXI	SELF14−1,2,1 TOO SMALL--TRY NEXT	F4415950
	01073	0 02000 0 01075	705	SELF15	TRA	SELF15+2 EQUAL--FOUND	F4415960
	01074	1 77777 2 01075	706	SELF16	TXI	SELF16+1,2,−1 TOO LARGE, WAS ONE PREVIOUS	F4415970
	01075	−0 75400 2 00000	707	CASP4	PXD	0,2 PUT BB NO INTO DOLIST IN PLACE OF	F4415980
	01076	0 60100 1 06500	708		STO	DOLIST,1 INSTRUCTION NUMBER	F4415990
	01077	0 50000 1 06477	709		CLA	DOLIST−1,1 PUT BB NO OF ADDRESS OF THIS DO	F4416000
	01100	−0 73400 2 00000	710		PDX	0,2 INTO IR B TO START COMPARISON	F4416010
	01101	1 00002 1 01060	711		TXI	TIXDO,1,2 DO NEXT ENTRY	F4416020
			712				F4416030
			713			THIS ROUTINE READS DOCARE FROM DRUM 1	F4416040
	01102	0 50000 0 00032	714	RDDOT	CLA	MINUS4 INITIALIZE ERROR BOX	F4416050
	01103	0 60100 0 00030	715		STO	ERRBX	F4416060
	01104	0 76200 0 00301	716	RDSDOT	RDS	DOCRDR SELECT DOCARE DRUM	F4416070
	01105	0 53400 1 00033	717		LXA	L0...=,1 ZERO INTO I.R.A	F4416080
	01106	0 70000 0 00105	718		CPY	ERAS1=	F4416090
	01107	0 53400 4 00105	719		LXA	ERAS1=,4	F4416100
	01110	0 70000 0 00106	720		CPY	ERAS2=	F4416110
	01111	−2 00002 4 01141	721		TNX	CLAE,4,2 TEST FOR EMPTY TABLE	F4416120
	01112	0 70000 1 04216	722	CPYDOT	CPY	DOCARE,1 COPY TABLE	F4416130
	01113	1 00001 1 01114	723	SELF17	TXI	SELF17+1,1,1	F4416140
	01114	0 70000 1 04363	724		CPY	DOCARE+101,1 COPY CHECKSUMS	F4416150
	01115	2 00002 4 01112	725		TIX	CPYDOT,4,2 TEST FOR END	F4416160
	01116	−0 63400 1 00107	726		SXD	ERAS3=,1 SAVE INDEX	F4416170
	01117	−0 53400 2 00107	727		LXD	ERAS3=,2	F4416180
	01120	−0 50000 0 00105	728		CAL	ERAS1=	F4416190
	01121	0 36100 1 04217	729		ACL	DOCARE+1,1	F4416200
	01122	2 00001 1 01121	730	SELF18	TIX	SELF18−1,1,1 SUM ENTRIES	F4416210
	01123	0 60200 0 00105	731		SLW	ERAS1=	F4416220
	01124	−0 50000 0 00106	732		CAL	ERAS2=	F4416230
	01125	0 36100 2 04363	733	ACLB	ACL	DOCARE+101,2 SUM CHECKS	F4416240
	01126	2 00001 2 01125	734		TIX	ACLB,2,1	F4416250
	01127	0 60200 0 00106	735		SLW	ERAS2=	F4416260
	01130	0 50000 0 00106	736	CHSMCR	CLA	ERAS2=	F4416270
	01131	0 40200 0 00105	737		SUB	ERAS1=	F4416280
	01132	0 10000 0 01143	738		TZE	RDDTG NO ERROR-DO NEXT PART OF PROGRAM	F4416290
	01133	0 50000 0 00030	739		CLA	ERRBX	F4416300
	01134	−0 12000 0 01136	740	SKIP5	TMI	SKIP5+2 HAVE 5 TRIES AT READING BEEN MADE	F4416310
	01135	0 07400 4 00004	741		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4416320
	01136	0 40000 0 00031	742		ADD	LA1 NO, TRY READING AGAIN	F4416330
	01137	0 60100 0 00030	743		STO	ERRBX	F4416340
	01140	0 02000 0 01104	744		TRA	RDSDOT	F4416350
	01141	0 60000 0 00107	745	CLAE	STZ	ERAS3= SET SIGNAL FOR EMPTY DOCARE	F4416360
	01142	0 02000 0 01130	746		TRA	CHSMCR	F4416370
			747				F4416380
			748			THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES	F4416390
			749			IT	F4416400
	01143	0 76200 0 00222	750	RDDTG	RDS	TBLTAP	F4416410
	01144	0 76200 0 00222	751		RDS	TBLTAP	F4416420
	01145	0 76200 0 00222	752		RDS	TBLTAP	F4416430
	01146	0 50000 0 00032	753		CLA	MINUS4 INITIALIZE ERROR BOX	F4416440
	01147	0 60100 0 00030	754		STO	ERRBX	F4416450
	01150	−0 53400 1 00054	755		LXD	OPMSK=,1 COMPLEMENT OF ONE INTO IR A	F4416460
	01151	0 76200 0 00222	756	RDSDTG	RDS	TBLTAP	F4416470
	01152	0 70000 1 04216	757	CPY1D	CPY	DOTAG,1 COPY RECORD SAVING ONLY THOSE	F4416480
	01153	0 02000 0 01156	758		TRA	CPY2D PARTS TO BE USED	F4416490
	01154	0 02000 0 01203	759		TRA	NTRDO= END OF FILE--ALL COPIED	F4416500
	01155	0 02000 0 01167	760		TRA	TESTDT END OF RECORD--TEST FOR ERROR	F4416510
	01156	0 70000 0 00105	761	CPY2D	CPY	ERAS1=	F4416520
	01157	0 70000 0 00105	762		CPY	ERAS1=	F4416530
	01160	0 70000 0 00105	763		CPY	ERAS1=	F4416540
	01161	0 70000 1 04217	764		CPY	DOTAG+1,1	F4416550
	01162	0 70000 1 04220	765		CPY	DOTAG+2,1	F4416560
	01163	0 70000 1 04221	766		CPY	DOTAG+3,1	F4416570
	01164	0 70000 0 00105	767		CPY	ERAS1=	F4416580
	01165	0 70000 0 00105	768		CPY	ERAS1=	F4416590
	01166	1 77774 1 01152	769		TXI	CPY1D,1,−4 SET FOR NEXT ENTRY	F4416600
	01167	−0 76000 0 00012	770	TESTDT	RTT	4 TEST REDUNDANCY	F4416610
	01170	0 02000 0 01173	771		TRA	ERR2DT	F4416620
	01171	−0 63400 1 01216	772		SXD	DTGBX,1 SAVE LENGTH OF TABLE SO FAR	F4416630
	01172	0 02000 0 01151	773		TRA	RDSDTG COPY NEXT RECORD	F4416640
	01173	0 50000 0 00030	774	ERR2DT	CLA	ERRBX	F4416650
	01174	−0 12000 0 01176	775	SKIP6	TMI	SKIP6+2 HAVE 5 TRIES AT READING BEEN MADE	F4416660
	01175	0 07400 4 00004	776		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4416670
	01176	0 40000 0 00031	777		ADD	LA1 NO, TRY READING AGAIN	F4416680
	01177	0 60100 0 00030	778		STO	ERRBX	F4416690
	01200	0 76400 0 00222	779		BST	TBLTAP	F4416700
	01201	−0 53400 1 01216	780		LXD	DTGBX,1 SET INDEX TO READ LAST RECORD AGAIN	F4416710
	01202	0 02000 0 01151	781		TRA	RDSDTG	F4416720
			782				F4416730
			783			THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLIST	F4416740
	01203	−0 53400 1 00054	784	NTRDO=	LXD	OPMSK=,1 C0MPLEMENT OF ONE INTO I R A	F4416750
	01204	0 53400 2 00031	785		LXA	LA1,2 ONE INTO IR B	F4416760
	01205	0 53400 4 00033	786		LXA	L0...=,4 ZERO INTO INDEX C	F4416770
	01206	0 50000 0 01216	787		CLA	DTGBX	F4416780
	01207	0 62200 0 01247	788		STD	DTGBX2 PUT LENGTH OF DOTAG IN FOR TEST	F4416790
T	01210	−0 75400 0 00000	789		PXD		F4416800
	01211	0 60100 0 00105	790		STO	ERAS1=	F4416810
	01212	0 60100 0 00106	791		STO	ERAS2= CLEAR ERAS1= AND ERAS2=	F4416820
	01213	0 02000 0 01216	792		TRA	NXTDO+2	F4416830
	01214	1 00002 2 01215	793	NXTDO	TXI	NXTDO+1,2,2	F4416840
	01215	1 77774 1 01216	794		TXI	DTGBX,1,−4 SET FOR NEXT ENTRY	F4416850
	01216	−3 77777 1 01310	795	DTGBX	TXL	CLTRA=,1,−1 IS DOTAG FINISHED--IF SO EXIT	F4416860
	01217	0 50000 1 04221	796	CLADT	CLA	DOTAG+3,1 LOOK FOR INDICAT1ON OF AN IF	F4416870
	01220	0 12000 0 01223	797		TPL	STF+2 TRANSFER IF DO HAS NO IF	F4416880
	01221	0 50000 0 00053	798	STF	CLA	TAGMRK STORE IF INDICATION IN DOLIST	F4416890
	01222	−0 60200 2 06477	799		ORS	DOLIST−1,2	F4416900
	01223	0 50000 1 04216	800		CLA	DOTAG,1	F4416910
	01224	−0 32000 0 00053	801		ANA	TAGMRK LOOK FOR INDICATION OF VARIABLE	F4416920
			802			NO 0F TIMES IN LOOP	F4416930
	01225	−0 10000 0 01266	803		TNZ	VRBLN VARIABLE,GET FROM DVFQ	F4416940
	01226	0 50000 1 04220	804		CLA	DOTAG+2,1 GET (N2-N1+N3) AND PUT IN MQ	F4416950
	01227	0 62100 0 00105	805		STA	ERAS1=	F4416960
T	01230	−0 75400 0 00000	806		PXD	CLEAR ACCUMULATOR	F4416970
	01231	0 56000 0 00105	807		LDQ	ERAS1= DIVIDE (N2-N1+N3) BY N3 TO GET	F4416980
	01232	0 22100 1 04217	808		DVP	DOTAG+1,1 NUMBER OF TIMES IN DO LOOP	F4416990
	01233	0 76000 0 00012	809		DCT		F4417000
	01234	0 07400 4 00004	810		TSX	RDFORT,4 BAD DIVIDE	F4417010
	01235	−0 60000 0 00105	811	STQDTG	STQ	ERAS1=	F4417020
	01236	0 50000 0 00105	812		CLA	ERAS1= SHIFT TO AC	F4417030
	01237	0 62100 2 06500	813		STA	DOLIST,2 TEST FOR END	F4417040
	01240	−0 53400 4 00107	814	NDDOT	LXD	ERAS3=,4	F4417050
	01241	0 50000 1 04222	815		CLA	DOTAG+4,1 DOES NEXT ENTRY IN DOTAG CORRESPOND	F4417060
	01242	0 34000 4 04217	816	DDCAS	CAS	DOCARE+1,4 TO A TXL	F4417070
	01243	0 02000 0 01245	817		TRA	DDTIX	F4417080
	01244	1 77774 1 01247	818		TXI	DTGBX2,1,−4 NO-SET FOR NEXT ENTRY AND SAME TXL	F4417090
	01245	2 00001 4 01242	819	DDTIX	TIX	DDCAS,4,1	F4417100
	01246	0 02000 0 01214	820		TRA	NXTDO YES-LOOK AT NEXT TXL AND NEXT ENTRY	F4417110
D	01247	−3 00000 1 01310	821	DTGBX2	TXL	CLTRA=,1 TEST FOR END	F4417120
	01250	0 50000 1 04216	822		CLA	DOTAG,1 DOES THIS ENTRY HAVE A VARIABLE NO.	F4417130
	01251	−0 32000 0 00053	823		ANA	TAGMRK OF TIMES IN LOOP	F4417140
	01252	−0 10000 0 01264	824		TNZ	VBLN2 YES,GET NO. FROM DVFQ	F4417150
	01253	0 50000 1 04220	825		CLA	DOTAG+2,1 NO,GET N2-N1+N3	F4417160
	01254	0 62100 0 00106	826		STA	ERAS2= AND PUT IN MQ	F4417170
	01255	−0 75400 0 00000	827		PXD	0,0 CLEAR AC	F4417180
	01256	0 56000 0 00106	828		LDQ	ERAS2= DIV N2-N1+N3 BY N3 TO GET NO. OF	F4417190
	01257	0 22100 1 04217	829		DVP	DOTAG+1,1 TIMES IN THIS DO	F4417200
	01260	0 76000 0 00012	830		DCT		F4417210
	01261	0 07400 4 00004	831		TSX	RDFORT,4 BAD DIVIDE	F4417220
	01262	0 20000 0 00105	832	MPY	MPY	ERAS1=	F4417230
	01263	0 02000 0 01235	833		TRA	STQDTG	F4417240
	01264	0 50000 0 00101	834	VBLN2	CLA	LMPY SET EXIT ADDRESS	F4417250
	01265	0 02000 0 01267	835		TRA	VRBLN+1	F4417260
	01266	0 50000 0 00102	836	VRBLN	CLA	LSTQ SET EXIT ADDRESS	F4417270
	01267	0 62100 0 01304	837		STA	EXIT	F4417280
	01270	0 50000 1 04216	838		CLA	DOTAG,1 GET FORMULA NUMBER OF DO	F4417290
	01271	0 77100 0 00022	839		ARS	18	F4417300
	01272	−0 76000 0 00003	840		SSM		F4417310
	01273	−0 53400 4 00111	841		LXD	DVFQB=,4	F4417320
D	01274	3 00000 4 01300	842	DVFTST	TXH	LDQ5,4 TEST FOR END OF DVFQ	F4417330
	01275	0 34000 4 06023	843		CAS	DVFQ.=,4 COMPARE TO FORMULA NO. IN DVFQ	F4417340
	01276	1 00002 4 01274	844		TXI	DVFTST,4,2 DVFQ TOO SMALL, TRY NEXT	F4417350
	01277	1 00002 4 01302	845		TXI	ENTER,4,2 EQUAL--SET INDEX FOR NEXT SEARCH	F4417360
	01300	0 56000 0 00034	846	LDQ5	LDQ	L5...= FREQ NOT IN DVFQ, TAKE 5 AS FREQ	F4417370
	01301	0 02000 0 01303	847		TRA	ENTER+1	F4417380
	01302	0 56000 4 06024	848	ENTER	LDQ	DVFQ.=+1,4	F4417390
	01303	−0 63400 4 00111	849		SXD	DVFQB=,4	F4417400
A	01304	0 02000 0 00000	850	EXIT	TRA	RETURN TO MAIN PART OF THIS ROUTINE	F4417410
	01305	−0 53400 4 00220	851		LXD	LD4..=,4 READ DOTAG	F4417420
	01306	0 76200 0 00222	852	RDSP	RDS	TBLTAP FIND BEGINNING OF DOTAG	F4417430
	01307	2 00001 4 01306	853		TIX	RDSP,4,1	F4417440
			854				F4417450
			855			THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL	F4417460
			856			COUNTERS TO ZERO	F4417470
	01310	0 56000 0 00031	857	CLTRA=	LDQ	LA1	F4417480
	01311	−0 75400 0 00000	858		PXD	0,0	F4417490
	01312	0 60100 0 01113	859		STO	NLIST−1 STORE ENDMARK FOR N-LIST	F4417500
	01313	0 53400 1 00045	860		LXA	LZTR4=,1	F4417510
	01314	0 60100 1 06025	861		STO	TRAM+1,1	F4417520
	01315	−0 60000 1 06024	862		STQ	TRAM,1	F4417530
	01316	2 00002 1 01314	863	SELF26	TIX	SELF26−2,1,2	F4417540
	01317	−0 53400 1 07775	864		LXD	DOBOX=,1	F4417550
	01320	0 50000 0 00054	865		CLA	OPMSK=	F4417560
	01321	0 60100 1 06477	866		STO	DOLIST−1,1 STORE ENDMARK FOR DOLIST	F4417570
	01322	0 76200 0 00221	867		RDS	SYSTAP	F4417580
	01323	0 60000 0 01114	868		STZ	NLIST CLEAR DUMMY SENSE LIGHTS.	F4417590
	01324	0 60000 0 01115	869		STZ	NLIST+1	F4417600
	01325	0 60000 0 01116	870		STZ	NLIST+2	F4417610
	01326	0 60000 0 01117	871		STZ	NLIST+3	F4417620
	01327	0 02000 0 00004	872		TRA	RDFORT	F4417630
			873				F4417640
			874				F4417650
			875			SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2)	F4420010
			876				F4420020
			877			FORTRAN EDITOR INFORMATION	F4420030
			878			MASTER RECORD CARD = F0640000	F4420040
			879			ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER -	F4420050
			880			1 TO CS - IN ORDER TO READ IN NEXT RECORD)	F4420060
			881			FIRST LOCATION = 33	F4420070
			882			LAST LOCATION = 1104	F4420080
			883				F4420090
		00033	884		ORG	27	F4420100
			885			CONSTANTS AND VARIABLES	F4420110
	00033	0 00000 0 00000	886	L0M	HTR	0	F4420120
	00034	0 00000 0 00006	887	L6M	HTR	6	F4420130
	00035	0 00001 0 00000	888	LD1M	HTR	0,0,1	F4420140
	00036	0 00003 0 00000	889	LD3	HTR	0,0,3	F4420150
	00037	0 00007 0 00000	890	LD7M	HTR	0,0,7	F4420160
	00040	0 00000 0 01275	891	SETYM		SETADD	F4420170
	00041	0 00000 0 01750	892	TIFY		TIFADD	F4420180
	00042	0 00000 0 00311	893	LZSET1		ZSET+1	F4420190
	00043	0 00000 0 00312	894	LZTIF2		ZTIFRD+2	F4420200
	00044	0 05360 0 00000	895	LXTRA		0,0,XTRA	F4420210
	00045	0 01274 0 00000	896	LZTRA		0,0,ZTRA	F4420220
	00046	0 00620 0 00000	897	LXSET		0,0,XSET	F4420230
	00047	0 00310 0 00000	898	LZSET		0,0,ZSET	F4420240
	00050	0 76664 0 00000	899	LNLST		0,0,−NLIST	F4420250
	00051	0 76660 0 00000	900	LDSAN		0,0,−NLIST−4	F4420260
	00052	0 00000 0 03063	901	LFXDN		RDTIF−1	F4420270
	00053	0 02000 0 00613	902	LCOUT	TRA	OUTB TRANSFER TO EXIT ROUTINE	F4420280
	00054	0 02000 0 03131	903	TRNOM	TRA	NOMOR	F4420290
	00055	2 00000 4 00705	904	CNST2M	TIX	C3CLA,4,0 TO TEXT FOR END OF LOOKUP	F4420300
	00056	+002000000000	905	CONSTM	OCT	2000000000	F4420310
	00057	+000000077777	906	ADRMK	OCT	77777	F4420320
	00060	+077777000000	907	DECMKM	OCT	77777000000	F4420330
	00061	−300000000000	908	PFXMKM	OCT	−300000000000	F4420340
	00062	+000000700000	909	IFMSK	OCT	700000	F4420350
	00063	+000770000000	910	XXPSX	OCT	770000000	F4420360
	00064	+000140000000	911	XX14X	OCT	140000000	F4420370
	00065	+000160000000	912	XX16X	OCT	160000000	F4420380
	00066	+000360000000	913	XX360	OCT	360000000	F4420390
	00067	−370000000000	914	FSTLT	OCT	−370000000000	F4420400
	00070	−230000000000	915	FSTT	OCT	−230000000000	F4420410
	00071	+170000000000	916	0CTALM	OCT	170000000000	F4420420
	00072	+377777777777	917	ENDMKM	OCT	377777777777	F4420430
	00073	−100000000000	918	GTNCD	OCT	−100000000000	F4420440
	00074	+300000000000	919	CRTCD	OCT	300000000000	F4420450
	00075	+076225000000	920	LPSE	OCT	76225000000	F4420460
	00076	+034743000000	921	LTPL	OCT	34743000000	F4420470
	00077	+035121000000	922	LTRA	OCT	35121000000 TRA	F4420480
	00100	+001622000000	923		OCT	1622000000 TXL-TRA	F4420490
	00101	−000372000000	924	LTROP	OCT	−372000000 TTR-TXL	F4420500
	00102	+035121000000	925		OCT	35121000000 TRA	F4420510
	00103	+041104000000	926		OCT	41104000000 PSE-TRA	F4420520
	00104	−033642000000	927		OCT	−33642000000 DCT-PSE	F4420530
	00105	−024000000000	928		OCT	−24000000000 RTT-DCT	F4420540
	00106	+027642000000	929		OCT	27642000000 MSE-RTT	F4420550
	00107	−007100000000	930		OCT	−7100000000 TZE-MSE	F4420560
	00110	−032154000000	931		OCT	−32154000000 HPR-TZE	F4420570
	00111	+031316000000	932	LNTOP	OCT	31316000000 TSX-HPR	F4420580
	00112	+000001000000	933	SBOX	OCT	1000000	F4420590
	00113	−000001000000	934	SPBOX	OCT	−1000000	F4420600
	00114	+000001000000	935	TBOX	OCT	1000000	F4420610
	00115	−000001000000	936	TPBOX	OCT	−1000000	F4420620
	00116	0 00312 0 00000	937	PBOX		0,0,ZTIFRD+2	F4420630
	00117	0 00000 0 00000	938	BBOX			F4420640
	00120	0 00000 0 00000	939	MBOX		0	F4420650
	00121	0 00000 0 00000	940	ACBOX		0	F4420660
	00122	0 00000 0 00000	941	OUTBX		0	F4420670
	00123	0 00000 0 00000	942	ENTBX		0	F4420680
	00124	0 00000 0 00000	943	XBOX		SAVE POWER OF 2	F4420690
	00125	0 00000 0 00000	944	ERAS1M		0	F4420700
	00126	0 00000 0 00000	945	ERAS2M		0	F4420710
	00127	0 00000 0 00000	946	ERAS3M			F4420720
			947				F4420730
			948			THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED	F4420740
			949			INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND	F4420750
			950			TIFRD. IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN	F4420760
			951			THE SIMULATION PROGRAM.	F4420770
	00130	1 00001 2 00131	952	BEGBB	TXI	BEGBB+1,2,1 SET FOR NEXT BASIC BLOCK	F4420780
	00131	0 50000 0 00112	953		CLA	SBOX	F4420790
	00132	0 40000 0 00113	954		ADD	SPBOX	F4420800
	00133	0 77100 0 00022	955		ARS	18 PUT SET TABLE ADDRESS INTO BB TABLE	F4420810
	00134	0 40000 0 00114	956		ADD	TBOX	F4420820
	00135	0 40000 0 00115	957		ADD	TPBOX	F4420830
	00136	0 60100 2 02413	958		STO	BBTABL,2 PUT TRA TABLE ADDRESS INTO BB TABLE	F4420840
	00137	−0 53400 4 00114	959		LXD	TBOX,4	F4420850
	00140	−2 01274 4 00143	960		TNX	FNDAS,4,ZTRA IS BLOCK OF TRA TABLE FULL	F4420860
	00141	−0 63400 4 00114	961		SXD	TBOX,4 SAVE NEW INDEX FOR TRA	F4420870
	00142	0 07400 4 03147	962		TSX	WRTRA,4 WRITE TRA BLOCK ON DRUM	F4420880
	00143	−2 00454 1 00145	963	FNDAS	TNX	2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED	F4420890
	00144	0 07400 4 00763	964		TSX	RDINSM,4 YES, READ IN NEXT BLOCK	F4420900
	00145	0 50000 1 03703	965	2FNDS	CLA	INSTM,1 IF THERE IS NO LOCATI0N SYMBOL,	F4420910
	00146	0 10000 0 00225	966		TZE	TR3S+1 THIS CANT BE A SET OR AN ENDING	F4420920
			967			OTHER THAN A CERTAINTY CASE	F4420930
	00147	−0 53400 4 00116	968		LXD	PBOX,4 CHANGE, LOOK AT ASSIGN ENTRY	F4420940
	00150	−2 00310 4 00155	969	2TNX	TNX	BADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED	F4420950
	00151	−0 63400 4 00116	970		SXD	PBOX,4 YES, READ IN MORE	F4420960
	00152	0 07400 4 03064	971		TSX	RDTIF,4	F4420970
	00153	−0 53400 4 00116	972		LXD	PBOX,4	F4420980
	00154	0 50000 1 03703	973		CLA	INST.M,1 COMPARE FORMULA NO. TO ASSIGN	F4420990
	00155	0 40000 0 00034	974	BADD	ADD	L6M LIST.	F4421000
	00156	0 40200 4 04214	975		SUB	TIFRDM,4	F4421010
	00157	0 10000 0 00231	976		TZE	ASNCS	F4421020
	00160	0 50000 1 03702	977	2CLA	CLA	INSTM−1,1 NOT AN ASSIGN	F4421030
	00161	−0 32000 0 00060	978		ANA	DECMKM TEST FOR A SET SENSE LIGHT	F4421040
	00162	0 40200 0 00075	979		SUB	LPSE	F4421050
	00163	−0 10000 0 00257	980		TNZ	TSTTR NOT A PSE, LOOK FOR A TRANSFER	F4421060
	00164	0 50000 1 03700	981		CLA	INST.M−3,1 LOOK AT ADDRESS OF PSE FOR SET	F4421070
	00165	−0 32000 0 00063	982		ANA	XXPSX	F4421080
	00166	0 40200 0 00064	983		SUB	XX14X	F4421090
	00167	0 10000 0 00174	984		TZE	STSLT IT IS A SET SENSE LIGHT	F4421100
	00170	0 50000 1 03677	985		CLA	INSTM−4,1 NOT A SET SENSE LIGHT, SEE IF NEXT	F4421110
	00171	0 40200 2 07772	986		SUB	BBLIST−1,2 INSTRUCTION STARTS A BB	F4421120
	00172	0 10000 0 00320	987		TZE	CRTCS YES, IS A CERTAINTY CASE	F4421130
	00173	0 02000 0 00504	988		TRA	IF2PS NO, IS A PSE CASE.	F4421140
	00174	−0 53400 4 00112	989	STSLT	LXD	SBOX,4 LOAD INDEX FOR SET TABLE	F4421150
	00175	−2 00310 4 00201	990		TNX	3CLA,4,ZSET IF SET BLOCK IS FULL, PUT ON DRUM	F4421160
	00176	−0 63400 4 00112	991		SXD	SBOX,4 SAVE INDEX	F4421170
	00177	0 07400 4 01032	992		TSX	WRSET,4 GO TO DRUM ROUTINE	F4421180
	00200	−0 53400 4 00112	993		LXD	SBOX,4 RESTORE INDEX	F4421190
	00201	0 50000 1 03700	994	3CLA	CLA	INSTM−3,1 LOOK AT RELATIVE ADDRESS OF PSE	F4421200
	00202	−0 32000 0 00037	995		ANA	LD7M FIND NO OF SENSE LIGHT	F4421210
	00203	0 10000 0 00210	996		TZE	SLSOF IF ZERO TURN ALL LIGHTS OFF	F4421220
	00204	0 40000 0 00051	997		ADD	LDSAN NOT ZERO, ADD ADDRESS OF FIRST	F4421230
	00205	0 40000 0 00031	998		ADD	LA1 ADD ONE FOR SENSE LIGHT ON	F4421240
	00206	0 60100 4 04524	999		STO	SET..M,4 STORE SET ENTRY	F4421250
	00207	1 00001 4 00224	1000		TXI	TR3S,4,1 INDEX FOR NEXT SET ENTRY	F4421260
	00210	−0 63400 2 00117	1001	SLSOF	SXD	BBOX,2 SAVE INDEX B	F4421270
	00211	−0 53400 2 00276	1002		LXD	LD4,2	F4421280
	00212	0 50000 0 00051	1003		CLA	LDSAN PUT ENTRIES IN SET TABLE TO TURN	F4421290
	00213	0 40000 0 00035	1004	3ADD	ADD	LD1M OFF ALL SENSE LIGHTS	F4421300
	00214	−2 00310 4 00220	1005		TNX	4STO,4,ZSET IS BLOCK OF SETS FULL	F4421310
	00215	−0 63400 4 00112	1006		SXD	SBOX,4 YES, SAVE INDEX C	F4421320
	00216	0 07400 4 01032	1007		TSX	WRSET,4 WRITE BLOCK ON DRUM	F4421330
	00217	−0 53400 4 00112	1008		LXD	SBOX,4 RESTORE INDEX C	F4421340
	00220	0 60100 4 04524	1009	4STO	STO	SETM,4	F4421350
	00221	1 00001 4 00222	1010		TXI	3TIX,4,1 SET FOR NEXT ENTRY IN TABLE	F4421360
	00222	2 00001 2 00213	1011	3TIX	TIX	3ADD,2,1 ARE ALL SETS DONE	F4421370
	00223	−0 53400 2 00117	1012		LXD	BBOX,2 YES, RESTORE INDEX B	F4421380
	00224	−0 63400 4 00112	1013	TR3S	SXD	SBOX,4 STORE SET TABLE INDEX	F4421390
	00225	0 50000 1 03677	1014		CLA	INST.M−4,1 TEST THIS FOR END OF A BASIC BLOCK	F4421400
	00226	0 40200 2 07772	1015		SUB	BBLIST−1,2 (CANT BE A TRANSFER, SKIP, ETC.)	F4421410
	00227	0 10000 0 00320	1016		TZE	CRTCS END OF BB MUST BE A CERTAINTY CASE	F4421420
	00230	1 00004 1 00143	1017	TXFAS	TXI	FNDAS,1,4 NOT END OF BB, LOOK AT NEXT INSTR.	F4421430
	00231	−0 63400 4 00116	1018	ASNCS	SXD	PBOX,4 SAVE INDEX FOR TIFRD	F4421440
	00232	0 50000 1 03675	1019		CLA	INST.M−6,1 PUT ADDRESS (=N) OF STA INTO AC	F4421450
	00233	0 07400 4 00632	1020		TSX	SRCHN,4 SEARCH N-LIST FOR N	F4421460
	00234	0 40000 0 00050	1021		ADD	LNLST PUT INDEX FOR N IN SET TABLE	F4421470
	00235	−0 53400 4 00112	1022		LXD	SBOX,4 PUT SET TABLE ADDRESS INTO INDEX	F4421480
	00236	−2 00310 4 00242	1023		TNX	4STD,4,ZSET IS SET BLOCK FULL	F4421490
	00237	−0 63400 4 00112	1024		SXD	SBOX,4 YES,SAVE INDEX	F4421500
	00240	0 07400 4 01032	1025		TSX	WRSET,4 PUT BLOCK ON DRUM	F4421510
	00241	−0 53400 4 00112	1026		LXD	SBOX,4 RESTORE INDEX	F4421520
	00242	0 60100 4 04524	1027	4STD	STO	SETM,4 STORE ADDRESS OF N BEING SET	F4421530
	00243	−0 63400 4 00112	1028		SXD	SBOX,4 SAVE INDEX	F4421540
	00244	−0 53400 4 00116	1029		LXD	PBOX,4 SET FOR TIFRD	F4421550
	00245	0 50000 4 04213	1030		CLA	TIFRDM−1,4 GET VALUE TO ASSIGN TO N FROM TIFRD	F4421560
	00246	0 76700 0 00022	1031		ALS	18	F4421570
	00247	1 00002 4 00250	1032	LD2	TXI	LD2+1,4,2 SET INDEX FOR NEXT ENTRY IN TIFRD	F4421580
	00250	−0 63400 4 00116	1033		SXD	PBOX,4 SAVE TIFRD INDEX	F4421590
	00251	0 07400 4 00667	1034		TSX	FNDBB,4 CHANGE VALUE FOR N TO BASIC BLOCK	F4421600
	00252	−0 53400 4 00112	1035		LXD	SBOX,4 NUMBER, PUT SET ADDRESS IN INDEX	F4421610
	00253	0 77100 0 00022	1036		ARS	18 AND PUT VALUE N IS TO BE GIVEN	F4421620
	00254	0 62100 4 04524	1037		STA	SET..M,4 INTO TABLE ENTRY	F4421630
	00255	1 00001 4 00256	1038		TXI	4TXII,4,1 SET INDEX FOR NEXT ENTRY IN TABLE	F4421640
	00256	1 00004 1 00224	1039	4TXII	TXI	TR3S,1,4 SINCE THIS INSTRUCTION IS A CLA AND	F4421650
			1040			IS FOLL0WED BY A STA, IT CANNOT	F4421660
			1041			BE THE END OF A BASIC BLOCK.	F4421670
			1042			ALSO THE STA CANNOT BE AN	F4421680
			1043			ASSIGN, PSE, TRANSFER, OR SKIP.	F4421690
			1044			IT CAN ONLY BE A CERTAINTY CASE	F4421700
			1045			OR INNOCUOUS.	F4421710
	00257	0 50000 1 03677	1046	TSTTR	CLA	INSTM−4,1 IS THIS LAST INSTRUCTION IN A BB	F4421720
	00260	0 40200 2 07772	1047		SUB	BBLIST−1,2	F4421730
	00261	0 10000 0 00312	1048		TZE	ENDBB YES,LOOK FOR TYPE OF ENDING	F4421740
	00262	−0 53400 4 00612	1049		LXD	LD8,4 NO, CHECK FOR ENDING OF GROUP OF	F4421750
	00263	−0 50000 1 03702	1050		CAL	INST.M−1,1 INSTRUCTIONS	F4421760
	00264	−0 32000 0 00060	1051		ANA	DECMKM LOOK AT OP CODE	F4421770
	00265	0 40200 4 00112	1052	SUBP	SUB	LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE	F4421780
	00266	0 10000 4 00307	1053		TZE	TRTIN+1,4 ENDINGS--TRANSFER WHEN FOUND	F4421790
	00267	2 00001 4 00265	1054		TIX	SUBP,4,1 TRY NEXT POSSIBILITY	F4421800
	00270	−0 50000 1 03702	1055		CAL	INST.M−1,1 NOT FOUND--LOOK FOR A CONDITIONAL	F4421810
	00271	−0 32000 0 00067	1056	6ANA	ANA	FSTLT TRANSFER	F4421820
	00272	0 60200 0 00125	1057		SLW	ERAS1M	F4421830
	00273	0 50000 0 00125	1058		CLA	ERAS1M	F4421840
	00274	0 40200 0 00070	1059		SUB	FSTT	F4421850
	00275	0 10000 0 00426	1060		TZE	CNDTR IS A CONDITIONAL TRANSFER	F4421860
	00276	1 00004 1 00143	1061	LD4	TXI	FNDAS,1,4 NOT AN END OF BB, LOOK AT NEXT INST	F4421870
	00277	0 02000 0 00451	1062		TRA	GOTOVM TRA IS THE OPERATI0N CODE	F4421880
	00300	0 02000 0 00504	1063		TRA	IF2PS PSE	F4421690
	00301	0 02000 0 00536	1064		TRA	IF2CS DCT	F4421900
	00302	0 02000 0 00536	1065		TRA	IF2CS RTT	F4421910
	00303	0 02000 0 00530	1066		TRA	MSECSM MSE	F4421920
	00304	0 02000 0 00552	1067		TRA	IF3CSM TZE	F4421930
	00305	0 02000 0 00601	1068		TRA	HPRCS HPR	F4421940
	00306	1 00004 1 00143	1069	TRTIN	TXI	FNDAS,1,4 TSX IS OP CODE	F4421950
	00307	0 02000 0 00324	1070		TRA	TRACSM TRA IS THE OPERATION CODE	F4421960
	00310	0 02000 0 00377	1071		TRA	DOCSM TXL	F4421970
	00311	0 02000 0 00327	1072	TRTTR	TRA	TRACSM+3 TTR	F4421980
	00312	−0 53400 4 00036	1073	ENDBB	LXD	LD3,4 SET INDEX	F4421990
	00313	0 50000 1 03702	1074		CLA	INST.M−1,1 THIS INST ENDS A BASIC BLOCK--LOOK	F4422000
	00314	−0 32000 0 00060	1075		ANA	DECMKM AT OP CODE FOR TYPE OF ENDING	F4422010
	00315	0 40200 4 00102	1076	6SUB	SUB	LTROP+1,4 C0MPARE TO POSSIBLE OP CODE	F4422020
	00316	0 10000 4 00312	1077		TZE	TRTTR+1,4 TRANSFER IF FOUND	F4422030
	00317	2 00001 4 00315	1078		TIX	6SUB,4,1 TRY NEXT POSSIBILITY	F4422040
	00320	0 07400 4 00663	1079	CRTCS	TSX	ENTB2,4 NOT A CONDITIONAL TRANSFER--IT IS	F4422050
			1080			A CERTAINTY CASE DUE TO AN ENTRY	F4422060
	00321	−0 50000 0 00074	1081	6CLA	CAL	CRTCD PUT CERTAINTY CODE IN BB TABLE	F4422070
	00322	0 63000 2 02413	1082		STP	BBTABL,2	F4422080
	00323	1 00004 1 00130	1083		TXI	BEGBB,1,4 LOOK AT NEXT INSTR--BEG OF A BB.	F4422090
	00324	−0 50000 1 03701	1084	TRACSM	CAL	INSTM−2,1 OP CODE IS TRA--SEE IF ADDRESS IS	F4422100
	00325	−0 32000 0 00061	1085		ANA	PFXMKM IN PROGRAM(UNCONDITIONAL TRA) OR	F4422110
	00326	−0 10000 0 00334	1086		TNZ	GOTONM IN N LIST (GO TO N)	F4422120
	00327	0 50000 1 03701	1087		CLA	INST.M−2,1 GET INSTR OF ADDRESS	F4422130
	00330	0 07400 4 00653	1088		TSX	ENTRB,4 ENTER IN TRA TABLE	F4422140
	00331	−0 50000 0 00074	1089		CAL	CRTCD STORE CERTAINTY CODE IN BB TABLE	F4422150
	00332	0 63000 2 02413	1090		STP	BBTABL,2	F4422160
	00333	1 00004 1 00130	1091		TXI	BEGBB,1,4 LOOK AT NEXT INST.--NEW B.B.	F4422170
	00334	−0 50000 0 00073	1092	GOTONM	CAL	GTNCD IS A GO TO N	F4422180
	00335	0 63000 2 02413	1093		STP	BBTABL,2 STORE GO TO N CODE IN BB TABLE	F4422190
	00336	0 50000 1 03701	1094		CLA	INST.M−2,1 PUT N INTO AC	F4422200
	00337	0 07400 4 00632	1095		TSX	SRCHN,4 FIND LOCATION 0F N IN N-LIST	F4422210
	00340	−0 53400 4 00114	1096		LXD	TBOX,4	F4422220
	00341	0 62200 4 06024	1097		STD	TRA..M,4 PUT N-LIST ADDRESS IN TRA TABLE	F4422230
	00342	−0 53400 4 00116	1098		LXD	PBOX,4 PUT TIFRD ADDRESS INTO INDEX	F4422240
	00343	−2 00310 4 00347	1099	7TNX	TNX	BCLA,4,ZTIFRD IS TIFRD BLOCK USED	F4422250
	00344	−0 63400 4 00116	1100		SXD	PBOX,4 YES, SAVE INDEX	F4422260
	00345	0 07400 4 03064	1101		TSX	RDTIF,4 READ IN NEXT BLOCK 0F TIFRD	F4422270
	00346	−0 53400 4 00116	1102		LXD	PBOX,4 RESTORE INDEX	F4422280
	00347	0 50000 1 03703	1103	BCLA	CLA	INSTM,1 COMPARE FORMULA NUMBER OF INSTR. TO	F4422290
	00350	−0 32000 0 00060	1104		ANA	DECMKM THAT OF NEXT ENTRY IN TIFRD	F4422300
	00351	0 40000 0 00031	1105		ADD	LA1	F4422310
	00352	0 40200 4 04214	1106		SUB	TIFRDM,4	F4422320
	00353	0 10000 0 00355	1107	8ATZE	TZE	8TXI ENTRY FOUND	F4422330
	00354	0 07400 4 00004	1108		TSX	RDFORT,4 NO ENTRY FOUND IN TIFRD FOR GO TO N	F4422340
	00355	1 00002 4 00356	1109	8TXI	TXI	8TXI+1,4,2 SET FOR N-WORDS IN TIFRD	F4422350
	00356	−2 00310 4 00362	1110	8TNX	TNX	8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED	F4422360
	00357	−0 63400 4 00116	1111		SXD	PBOX,4 YES SAVE INDEX	F4422370
	00360	0 07400 4 03064	1112		TSX	RDTIF,4 READ IN NEXT BLOCK	F4422380
	00361	−0 53400 4 00116	1113		LXD	PBOX,4 RESTORE INDEX	F4422390
	00362	0 50000 4 04214	1114	8CLA	CLA	TIFRDM,4 GET NEXT VALUE ON N FROM TIFRD	F4422400
	00363	0 12000 0 00375	1115		TPL	8ATRB PLUS INDICATES NO MORE VALUES FOR N	F4422410
	00364	0 76000 0 00003	1116		SSP	ELIMINATE MINUS SIGN	F4422420
	00365	−0 63400 4 00116	1117		SXD	PBOX,4 SAVE TIFRD INDEX	F4422430
	00366	−0 53400 4 00114	1118		LXD	TBOX,4 GET TRA TABLE INDEX	F4422440
	00367	−2 01274 4 00372	1119		TNX	8ATSX,4,ZTRA IS BLOCK OF TRA TABLE FULL	F4422450
	00370	−0 63400 4 00114	1120		SXD	TBOX,4 YES SAVE INDEX	F4422460
	00371	0 07400 4 03147	1121		TSX	WRTRA,4 WRITE BLOCK ON DRUM	F4422470
	00372	0 07400 4 00653	1122	8ATSX	TSX	ENTRB,4 ENTER TRANSFER IN TRA TABLE	F4422480
	00373	−0 53400 4 00116	1123		LXD	PBOX,4 RESTORE INDEX FOR TIFRD	F4422490
	00374	1 00001 4 00356	1124		TXI	8TXI+1,4,1 SET FOR NEXT WORD	F4422500
	00375	−0 63400 4 00116	1125	8ATRB	SXD	PBOX,4 SAVE TIFRD INDEX	F4422510
	00376	1 00004 1 00130	1126		TXI	BEGBB,1,4 SET FOR NEXT INSTR AND NEXT BB.	F4422520
	00377	0 50000 1 03701	1127	DOCSM	CLA	INSTM−2,1 THIS IS A DO CASE	F4422530
	00400	0 07400 4 00653	1128		TSX	ENTRB,4 ENTER ADDRESS OF TRA BACK	F4422540
	00401	0 07400 4 00663	1129		TSX	ENTB2,4 ENTER TRA TO NEXT INSTR	F4422550
	00402	−0 63400 2 00117	1130		SXD	BBOX,2 SAVE INDEX	F4422560
	00403	−0 53400 2 00035	1131		LXD	LD1M,2 LOOK AT DOLIST ENTRY FOR	F4422570
	00404	−0 53400 4 00114	1132		LXD	TBOX,4 THIS DO	F4422580
	00405	0 50000 2 06500	1133	9CLAT	CLA	DOLIST,2 COMPARE LOCATION IN DO LIST TO	F4422590
	00406	−0 32000 0 00060	1134		ANA	DECMKM THIS BASIC BLOCK	F4422600
	00407	0 40200 0 00117	1135		SUB	BBOX	F4422610
	00410	0 10000 0 00412	1136		TZE	CLAR	F4422620
	00411	1 00002 2 00405	1137		TXI	9CLAT,2,2 NOT FOUND--TRY NEXT	F4422630
	00412	0 50000 2 06477	1138	CLAR	CLA	DOLIST−1,2 LOOK AT ADDRESS WORD IN DO LIST	F4422640
	00413	−0 32000 0 00062	1139		ANA	IFMSK SEE IF DO HAS AN IF	F4422650
	00414	0 10000 0 00424	1140		TZE	DONOIF NO IF--TRANSFER	F4422660
	00415	0 50000 2 06500	1141		CLA	DOLIST,2 DO WITH IF-PUT LOOP COUNT IN	F4422670
	00416	0 76700 0 00022	1142		ALS	18 TRANSFER TABLE	F4422680
	00417	0 62200 4 06030	1143	DWFCD	STD	TRAM+4,4	F4422690
	00420	−0 50000 0 00417	1144		CAL	DWFCD GET CODE FOR DO WITH IF	F4422700
	00421	−0 53400 2 00117	1145	DOLXD	LXD	BBOX,2 RESTORE INDEX FOR BB TABLE	F4422710
	00422	0 63000 2 02413	1146		STP	BBTABL,2 STORE CODE FOR ENDING IN BB TABLE	F4422720
	00423	1 00004 1 00130	1147		TXI	BEGBB,1,4 DO NEXT INSTR.--NEXT BASIC BLOCK	F4422730
	00424	−0 50000 0 00424	1148	DONOIF	CAL	DONOIF GET CODE FOR DO WITHOUT IF	F4422740
	00425	0 02000 0 00421	1149		TRA	DOLXD STORE CODE IN B B TABLE	F4422750
	00426	0 50000 1 03701	1150	CNDTR	CLA	INSTM−2,1 THE OP CODE IS A CONDITIONAL TRA	F4422760
	00427	0 40200 0 00071	1151		SUB	0CTALM SEE IF THIS IS A REAL TRANSFER	F4422770
	00430	0 10000 0 00230	1152		TZE	TXFAS NO-- IT IS NOT ANYTHING	F4422780
	00431	0 50000 1 03703	1153		CLA	INST.M,1	F4422790
	00432	0 40200 1 03701	1154		SUB	INST.M−2,1	F4422800
	00433	0 10000 0 00230	1155		TZE	TXFAS	F4422810
	00434	0 50000 1 03701	1156		CLA	INST.M−2,1 PUT ADDRESS OF TRA IN TRA TABLE	F4422820
	00435	0 07400 4 00653	1157		TSX	ENTRB,4	F4422830
	00436	0 50000 1 03675	1158		CLA	INST.M−6,1 PUT NEXT TRA ADDRESS IN TRA TABLE	F4422840
	00437	0 07400 4 00653	1159		TSX	ENTRB,4	F4422850
	00440	0 50000 1 03703	1160		CLA	INST.M,1	F4422860
	00441	−0 53400 4 00114	1161	11LXD	LXD	TBOX,4	F4422870
	00442	0 62200 4 06030	1162		STD	TRA..M+4,4	F4422880
	00443	−0 50000 0 00474	1163	11CAL	CAL	PBYCDM PUT PROBABILITY CODE IN BB TABLE	F4422690
	00444	0 63000 2 02413	1164		STP	BBTABL,2	F4422900
	00445	0 50000 0 00247	1165		CLA	LD2 PUT NO. OF CASES (=2) IN TRA TABLE	F4422910
	00446	0 62200 4 06026	1166		STD	TRA..M+2,4	F4422920
	00447	−0 63400 4 00114	1167		SXD	TBOX,4 SAVE TRA INDEX	F4422930
	00450	1 00010 1 00130	1168		TXI	BEGBB,1,8 DO NEXT INSTRUCTION	F4422940
	00451	0 50000 1 03700	1169	GOTOVM	CLA	INSTM−3,1 THIS IS A GO TO VECTOR	F4422950
	00452	−0 73400 4 00000	1170		PDX	0,4	F4422960
	00453	2 00001 4 00455	1171		TIX	OK,4,1 CHECK NO. OF BRANCHES	F4422970
	00454	0 07400 4 00004	1172		TSX	RDFORT,4 NONE, PART OF PROGRAM NOT	F4422980
			1173			TRANSFERED TO	F4422990
	00455	3 00001 4 00457	1174	OK	TXH	ONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH	F4423000
	00456	1 00004 1 00327	1175	ONEVCT	TXI	TRACSM+3,1,4 ONLY ONE BRANCH--A CERTAINTY CASE	F4423010
	00457	−0 75400 4 00000	1176		PXD	0,4 MORE THAN ONE--STANDARD CASE	F4423020
	00460	−0 53400 4 00114	1177		LXD	TBOX,4 SET INDEX FOR TRA TABLE ADDRESS	F4423030
	00461	0 62200 4 06022	1178		STD	TRA..M−2,4 PUT NO. INTO TRA TABLE	F4423040
	00462	0 62200 0 00120	1179		STD	MBOX SAVE NO. TO TEST IF VECTOR IS DONE	F4423050
	00463	−0 50000 0 00474	1180		CAL	PBYCDM	F4423060
	00464	0 63000 2 02413	1181		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423070
	00465	0 50000 1 03703	1182		CLA	INST.M,1	F4423080
	00466	0 62200 4 06024	1183		STD	TRA..M,4 PUT FORMULA NUMBER INT0 TRA TABLE	F4423090
	00467	−2 00454 1 00471	1184	13TIX	TNX	13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED	F4423100
	00470	0 07400 4 00763	1185		TSX	RDINSM,4 READ IN NEXT BLOCK	F4423110
	00471	0 50000 1 03675	1186	13CLA	CLA	INSTM−6,1 ENTER ADDRESS OF ONE TRANSFER	F4423120
	00472	0 07400 4 00653	1187		TSX	ENTRB,4 INTO TRA TABLE.	F4423130
	00473	−0 53400 4 00120	1188		LXD	MBOX,4 HAVE ALL BRANCHES OF VECTOR BEEN	F4423140
	00474	2 00001 4 00476	1189	PBYCDM	TIX	13SXD,4,1 ENTERED	F4423150
	00475	1 00010 1 00130	1190	13ON	TXI	BEGBB,1,8 YES, GO TO NEXT BB--NEXT INST.	F4423160
	00476	−0 63400 4 00120	1191	13SXD	SXD	MBOX,4 NO,SAVE COUNT AND ENTER NEXT	F4423170
	00477	−0 53400 4 00114	1192		LXD	TBOX,4 PUT TRA TABLE ADDRESS IN INDEX	F4423180
	00500	−2 01274 4 00503	1193	STPCD	TNX	13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED	F4423190
	00501	−0 63400 4 00114	1194		SXD	TBOX,4 YES,SAVE TRA INDEX	F4423200
	00502	0 07400 4 03147	1195		TSX	WRTRA,4 WRITE BLOCK OF TRA ON DRUM	F4423210
	00503	1 00004 1 00467	1196	13TXIM	TXI	13TIX,1,4 SET INST. INDEX AND DO NEXT BRANCH	F4423220
	00504	0 50000 1 03700	1197	IF2PS	CLA	INSTM−3,1 THIS IS A PSE, LOOK AT ADDRESS TO	F4423230
	00505	−0 32000 0 00063	1198		ANA	XXPSX SEE IF IT IS 164-166	F4423240
	00506	0 40200 0 00065	1199		SUB	XX16X	F4423250
	00507	0 10000 0 00514	1200		TZE	PSTCS YES, IT IS A TEST	F4423260
	00510	0 50000 1 03700	1201		CLA	INST.M−3,1	F4423270
	00511	−0 32000 0 00060	1202		ANA	DECMKM NO, SEE IF ADDR IS 360	F4423280
	00512	0 40200 0 00066	1203		SUB	XX360	F4423290
	00513	−0 10000 0 00230	1204		TNZ	TXFAS NO,THIS IS NOT A BB END	F4423300
	00514	−0 50000 0 00474	1205	PSTCS	CAL	PBYCDM THIS IS A PSE TEST INSTRUCTION	F4423310
	00515	0 63000 2 02413	1206		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423320
	00516	−0 53400 4 00114	1207		LXD	TBOX,4 SET INDEX FOR TRA TABLE ADDRESS	F4423330
	00517	0 50000 1 03703	1208		CLA	INST.M,1 PUT FORMULA NUMBER IN TRA TABLE	F4423340
	00520	0 62200 4 06024	1209		STD	TRA..M,4	F4423350
	00521	0 50000 0 00247	1210		CLA	LD2 PUT NO. OF CASES(=2) IN TRA TABLE	F4423360
	00522	0 62200 4 06022	1211		STD	TRA..M−2,4	F4423370
	00523	0 50000 1 03671	1212	SNSCS	CLA	INSTM−10,1 PUT ADDRESS FOR ON INTO TRA TABLE	F4423380
	00524	0 07400 4 00653	1213		TSX	ENTRB,4	F4423390
	00525	0 50000 1 03675	1214		CLA	INST.M−6,1 PUT OFF ADDRESS INTO TRA TABLE	F4423400
	00526	0 07400 4 00653	1215		TSX	ENTRB,4	F4423410
	00527	1 00014 1 00130	1216	MSECD	TXI	BEGBB,1,12 DO NEXT BB.	F4423420
	00530	−0 50000 0 00527	1217	MSECSM	CAL	MSECD THIS IS A MSE TEST	F4423430
	00531	0 63000 2 02413	1218		STP	BBTABL,2 STORE MSE CODE IN BBTABL	F4423440
	00532	0 50000 1 03700	1219		CLA	INST.M−3,1 LOOK AT ADDRESS OF MSE	F4423450
	00533	−0 53400 4 00114	1220		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423460
	00534	0 62200 4 06024	1221		STD	TRA..M,4 PUT NO. OF SENSE LIGHT IN TRA TABLE	F4423470
	00535	0 02000 0 00523	1222		TRA	SNSCS PUT ADDRESSES IN TRA TABLE	F4423480
	00536	−0 50000 0 00474	1223	IF2CS	CAL	PBYCDM THIS IS A TWO-WAY TEST INSTRUCTION	F4423490
	00537	0 63000 2 02413	1224		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423500
	00540	−0 53400 4 00114	1225		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423510
	00541	0 50000 1 03703	1226		CLA	INST.M,1 PUT FORMULA NUMBER IN TRA TABLE	F4423520
	00542	0 62200 4 06024	1227		STD	TRA..M,4	F4423530
	00543	0 50000 0 00247	1228		CLA	LD2 PUT NO OF CASES (=2) IN TRA TABLE	F4423540
	00544	0 62200 4 06022	1229		STD	TRA..M−2,4	F4423550
	00545	0 50000 1 03675	1230		CLA	INST.M−6,1 PUT ADDRESSES IN TRA TABLE	F4423560
	00546	0 07400 4 00653	1231		TSX	ENTRB,4 =ON- ADDRESS	F4423570
	00547	0 50000 1 03671	1232		CLA	INST.M−10,1 -OFF - ADDRESS	F4423580
	00550	0 07400 4 00653	1233		TSX	ENTRB,4	F4423590
	00551	1 00014 1 00130	1234	LD12M	TXI	BEGBB,1,12 DO NEXT BB	F4423600
	00552	0 50000 1 03676	1235	IF3CSM	CLA	INST.M−5,1 THIS IS A TZE, NOT END OF A BB.	F4423610
	00553	−0 32000 0 00060	1236		ANA	DECMKM CHECK TO SEE IF IT IS FOLLOWED BY A	F4423620
	00554	0 40200 0 00076	1237		SUB	LTPL TPL AND A TRA, IF NOT THERE HAS	F4423630
	00555	0 10000 0 00557	1238		TZE	16CLA BEEN AN ERROR	F4423640
	00556	0 07400 4 00004	1239	IFTSX	TSX	RDFORT,4 ERROR	F4423650
	00557	0 50000 1 03672	1240	16CLA	CLA	INSTM−9,1 CHECK FOR TRA	F4423660
	00560	−0 32000 0 00060	1241		ANA	DECMKM	F4423670
	00561	0 40200 0 00077	1242		SUB	LTRA	F4423680
	00562	−0 10000 0 00556	1243		TNZ	IFTSX ERROR	F4423690
	00563	−0 50000 0 00474	1244	16CAL	CAL	PBYCDM NO ERROR	F4423700
	00564	0 63000 2 02413	1245		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423710
	00565	−0 53400 4 00114	1246		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423720
	00566	0 50000 1 03703	1247		CLA	INST.M,1 PUT FORMULA NO. IN TRA TABLE	F4423730
	00567	0 62200 4 06024	1248		STD	TRA..M,4	F4423740
	00570	0 50000 0 00036	1249		CLA	LD3 PUT N0. OF CASES (=3) IN TRA TABLE	F4423750
	00571	0 62200 4 06022	1250		STD	TRA..M−2,4	F4423760
	00572	0 50000 1 03675	1251		CLA	INST.M−6,1 PUT ADDRESSES OF BRANCHES INTO	F4423770
	00573	0 07400 4 00653	1252		TSX	ENTRB,4 TRA TABLE	F4423780
	00574	0 50000 1 03701	1253		CLA	INST.M−2,1	F4423790
	00575	0 07400 4 00653	1254		TSX	ENTRB,4	F4423800
	00576	0 50000 1 03671	1255		CLA	INST.M−10,1	F4423810
	00577	0 07400 4 00653	1256		TSX	ENTRB,4	F4423820
	00600	1 00014 1 00130	1257		TXI	BEGBB,1,12 DO NEXT BB.	F4423830
	00601	−0 50000 1 03676	1258	HPRCS	CAL	INSTM−5,1 TEST FOR PAUSE(INNOCUOUS) OR A STOP	F4423840
	00602	−0 32000 0 00060	1259		ANA	DECMKM	F4423850
	00603	0 40200 0 00077	1260		SUB	LTRA IS HPR FOLLOWED BY TRA	F4423860
	00604	−0 10000 0 00276	1261		TNZ	LD4 NO-IGNORE-- IS A PAUSE	F4423870
	00605	0 50000 1 03675	1262		CLA	INST.M−6,1 DOES TRA GO BACK TO HPR	F4423880
	00606	0 40200 1 03703	1263		SUB	INST.M,1	F4423890
	00607	−0 10000 0 00276	1264		TNZ	LD4 NO-- HPR IS A PAUSE--IGNORE	F4423900
	00610	−0 50000 0 00500	1265		CAL	STPCD THIS IS A STOP--PUT STOP CODE IN	F4423910
	00611	0 63000 2 02413	1266		STP	BBTABL,2 BB TABLE AND NO ENTRY IN TRATBL	F4423920
	00612	1 00010 1 00130	1267	LD8	TXI	BEGBB,1,8 DO NEXT BASIC BLOCK	F4423930
	00613	−0 63400 2 00117	1268	OUTB	SXD	BBOX,2 SAVE LENGTH OF BB TABLE	F4423940
	00614	0 50200 0 00760	1269		CLS	C5STD GET ADDRESS IN FXDO LIST	F44.3950
	00615	0 40200 0 00031	1270		SUB	LA1	F4423960
	00616	0 62100 0 00617	1271		STA	STOREB	F4423970
	00617	0 60100 0 00000	1272	STOREB	STO	XXXXXX	F4423980
	00620	0 50000 2 02413	1273		CLA	BBTABL,2 LOOK AT LAST ENTRY IN BB TABLE	F4423990
	00621	0 62200 0 07777	1274		STD	TTBOX= PUT LENGTH OF TRA TABLE IN TTBOX	F4424000
	00622	0 76700 0 00022	1275		ALS	18	F4424010
	00623	0 62200 0 07776	1276		STD	SSBOX= PUT LENGTH OF SET TABLE IN SS BOX	F4424020
	00624	−0 75400 0 00000	1277		PXD	0,0	F4424030
	00625	0 60100 2 02412	1278		STO	BBTABL−1,2	F4424040
	00626	0 07400 4 03147	1279		TSX	WRTRA,4 WRITE LAST BLOCK OF TRAS ON DRUM	F4424050
	00627	0 07400 4 01032	1280		TSX	WRSET,4 WRITE LAST BLOCK OF SETS ON DRUM	F4424060
	00630	0 76200 0 00221	1281		RDS	SYSTAP	F4424070
	00631	0 02000 0 00004	1282		TRA	RDFORT DO NEXT BLOCK OF PROGRAM	F4424080
			1283				F4424090
			1284			THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS	F4424100
			1285			IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION	F4424110
			1286			FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF	F4424120
			1287			THE ACCUMULATOR	F4424130
	00632	−0 63400 4 00125	1288	SRCHN	SXD	ERAS1M,4 SAVE INDEX TO RETURN	F4424140
	00633	−0 53400 4 00035	1289		LXD	LD1M,4 SET INDEX	F4424150
	00634	0 60100 0 00121	1290		STO	ACBOX SAVE AC	F4424160
	00635	0 50000 4 01114	1291	CLANN	CLA	NLIST,4 LOOK AT ENTRY IN N-LIST	F4424170
	00636	0 10000 0 00642	1292		TZE	ENTRN END OF LIST REACHED, N NOT FOUND	F4424180
	00637	0 40200 0 00121	1293		SUB	ACBOX COMPARE TO N TO BE FOUND	F4424190
	00640	0 10000 0 00650	1294		TZE	NFOUN N HAS BEEN FOUND	F4424200
	00641	1 00001 4 00635	1295		TXI	CLANN,4,1 NOT FOUND YET, TRY NEXT ENTRY	F4424210
	00642	−2 00031 4 00644	1296	ENTRN	TNX	C1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST	F4424220
	00643	0 07400 4 00004	1297		TSX	RDFORT,4 N-LIST HAS OVERFLOWED	F4424230
	00644	0 50000 0 00121	1298	C1CLA	CLA	ACBOX STORE N IN N-LIST	F4424240
	00645	0 60100 4 01114	1299		STO	NLIST,4	F4424250
T	00646	−0 75400 0 00000	1300		PXD	STORE ZERO IN LOCATION AFTER LAST	F4424260
	00647	0 60100 4 01113	1301		STO	NLIST−1,4 ENTRY IN N-LIST	F4424270
	00650	−0 75400 4 00000	1302	NFOUN	PXD	0,4 PUT INDEX FOR N INTO AC	F4424280
	00651	−0 53400 4 00125	1303		LXD	ERAS1M,4 RESTORE INDEX FOR TRA BACK	F4424290
	00652	0 02000 4 00001	1304		TRA	1,4 TRANSFER BACK	F4424300
			1305				F4424310
			1306			THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE	F4424320
			1307			ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS	F4424330
			1308			THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A	F4424340
			1309			TRANSFER TO THE BEGINNING OF A 0O WITH AN IF. IT RETURNS TO	F4424350
			1310			THE LOCATION FOLLOWING THE TSX TO IT.	F4424360
	00653	−0 63400 4 00123	1311	ENTRB	SXD	ENTBX,4 SAVE INDEX	F4424370
	00654	0 07400 4 00667	1312		TSX	FNDBB,4 CHANGE INSTRUCTION NUMBER TO BB NO.	F4424380
	00655	−0 53400 4 00114	1313		LXD	TBOX,4	F4424390
	00656	0 62200 4 06023	1314		STD	TRA..M−1,4 ENTER IN TRA TABLE	F4424400
	00657	1 00002 4 00660	1315		TXI	C2SXD,4,2 SET FOR NEXT ENTRY IN TRA TABLE	F4424410
	00660	−0 63400 4 00114	1316	C2SXD	SXD	TBOX,4	F4424420
	00661	−0 53400 4 00123	1317		LXD	ENTBX,4 G0 TO TSTAD WITH ADDRESS SET TO GO	F4424430
	00662	0 02000 0 00713	1318		TRA	TSTAD BACK TO MAIN ROUTINE	F4424440
			1319				F4424450
			1320			THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A	F4424460
			1321			TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY	F4424470
			1322			AFTER THE LOCATION OF THE TRANSFER	F4424480
	00663	−0 63400 4 00123	1323	ENTB2	SXD	ENTBX,4 SAVE INDEX	F4424490
	00664	−0 75400 2 00000	1324		PXD	0,2 PUT THIS BASIC BLOCK NO. INTO AC	F4424500
	00665	0 40000 0 00035	1325		ADD	LD1M ADD ONE	F4424510
	00666	0 02000 0 00655	1326		TRA	ENTRB+2 ENTER AND TEST THIS ADDRESS	F4424520
			1327				F4424530
			1328			THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC)	F4424540
			1329			TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY	F4424550
			1330			OPTIMAL TABLE LOOKUP	F4424560
	00667	0 60100 0 00121	1331	FNDBB	STO	ACBOX SAVE NUMBER BEING LOOKED FOR	F4424570
	00670	−0 63400 4 00122	1332		SXD	OUTBX,4 SAVE EXIT INDEX	F4424580
	00671	0 56000 0 00055	1333		LDQ	CNST2M SET UP TEST FOR END	F4424590
	00672	−0 53400 4 00033	1334		LXD	L0M,4 START LOOK UP	F4424600
	00673	0 50000 0 00124	1335		CLA	XBOX	F4424610
	00674	0 77100 0 00001	1336	C3ARS	ARS	1	F4424620
	00675	0 62200 0 00702	1337		STD	C3TXI	F4424630
	00676	0 62200 0 00704	1338		STD	C3TIX	F4424640
	00677	0 50000 0 00121	1339		CLA	ACBOX	F4424650
D	00700	3 00000 4 00704	1340	PLACEM	TXH	C3TIX,4	F4424660
	00701	0 34000 4 07773	1341		CAS	BBLIST,4	F4424670
D	00702	1 00000 4 00705	1342	C3TXI	TXI	C3CLA,4	F4424680
	00703	0 02000 0 00710	1343		TRA	C3FND	F4424690
	00704	2 00000 4 00705	1344	C3TIX	TIX	C3CLA,4,XXXXXX	F4424700
	00705	0 50000 0 00704	1345	C3CLA	CLA	C3TIX	F4424710
	00706	0 04000 0 00674	1346		TLQ	C3ARS	F4424720
	00707	0 07400 4 00004	1347		TSX	RDFORT,4 FL0W ERROR	F4424730
	00710	−0 75400 4 00000	1348	C3FND	PXD	0,4	F4424740
	00711	−0 53400 4 00122	1349		LXD	OUTBX,4	F4424750
	00712	0 02000 4 00001	1350		TRA	1,4 RETURN	F4424760
			1351				F4424770
			1352			THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO	F4424780
			1353			AND MAKES A SET ENTRY FOR THE DO.	F4424790
	00713	−0 63400 1 00125	1354	TSTAD	SXD	ERAS1M,1 SAVE INDEX REGISTER FOR TRA BACK	F4424800
	00714	−0 63400 4 00122	1355		SXD	OUTBX,4	F4424810
	00715	−0 53400 1 00112	1356		LXD	SBOX,1	F4424820
	00716	0 60100 0 00121	1357		STO	ACBOX SAVE ADDRESS BEING TESTED	F4424830
	00717	−0 53400 4 00035	1358		LXD	LD1M,4 COMPARE TO DO LIST	F4424840
	00720	0 50000 0 00121	1359	C4CLA	CLA	ACBOX PUT ADDRESS BEING TESTED INTO AC	F4424850
	00721	−0 50100 0 00062	1360		ORA	IFMSK WITH AN IF MARK	F4424860
	00722	0 34000 4 06477	1361	C4CAS	CAS	DOLIST−1,4 COMPARE TO DO LIST	F4424870
	00723	1 00002 4 00722	1362		TXI	C4CAS,4,2 ENTRY SMALLER,OR EQUAL BUT W. NO IF	F4424880
	00724	0 02000 0 00731	1363		TRA	FXDO ENTRY EQUAL, HAS IF	F4424890
	00725	−0 63400 1 00112	1364		SXD	SBOX,1 ENTRY LARGER, TEST FINISHED.	F4424900
	00726	−0 53400 1 00125	1365		LXD	ERAS1M,1 SAVE SET INDEX AN0 RESTORE INDEX	F4424910
	00727	−0 53400 4 00122	1366		LXD	OUTBX,4 REGISTERS.	F4424920
	00730	0 02000 4 00001	1367		TRA	1,4 RETURN TO MAIN ROUTINE	F4424930
	00731	−0 75400 2 00000	1368	FXDO	PXD	0,2 SEE IF TRA IS IN OR OUT OF RANGE	F4424940
	00732	−0 50100 0 00062	1369		ORA	IFMSK OF THIS DO	F4424950
	00733	0 40200 4 06477	1370		SUB	DOLIST−1,4	F4424960
	00734	−0 12000 0 00742	1371		TMI	C4ENT TR BEFORE BEG OF DO,MAKE SET ENTRY	F4424970
	00735	−0 75400 2 00000	1372		PXD	0,2 TR AFTER BEG OF DO, SEE IF IN DO.	F4424980
	00736	0 34000 4 06500	1373		CAS	DOLIST,4 COMPARE TO END OF DO.	F4424990
	00737	0 02000 0 00742	1374		TRA	C4ENT TR. AFTER DO, ENTER SET	F4425000
	00740	1 00002 4 00720	1375		TXI	C4CLA,4,2 TR. AT END OF DO--NO SET	F4425010
	00741	1 00002 4 00720	1376		TXI	C4CLA,4,2 TR. IN RANGE OF DO--NO SET	F4425020
	00742	0 50000 4 06500	1377	C4ENT	CLA	DOLIST,4 ENTER SET FOR DO.	F4425030
	00743	−2 00310 1 00745	1378		TNX	C4STD,1,ZSET IS BLOCK OF SET TABLE FULL	F4425040
	00744	0 07400 4 01032	1379		TSX	WRSET,4 YES, WRITE BLOCK ON DRUM	F4425050
	00745	0 60100 1 04524	1380	C4STD	STO	SETM,1 STORE BB NO. IN SET TABLE	F4425060
	00746	0 50000 0 00031	1381		CLA	LA1	F4425070
	00747	0 62100 1 04524	1382		STA	SETM,1 STORE 1 INTO SET LIST	F4425080
	00750	0 50000 0 00760	1383		CLA	C5STD MODIFY ADDRESS IN FIX DO LIST FOR	F4425090
	00751	0 40000 0 00031	1384		ADD	LA1 NEXT ENTRY	F4425100
	00752	0 62100 0 00760	1385		STA	C5STD	F4425110
	00753	−0 32000 0 00057	1386		ANA	ADRMK	F4425120
	00754	0 40200 0 00052	1387		SUB	LFXDN IS FIXDO LIST FULL	F4425130
	00755	−0 12000 0 00757	1388		TMI	C5STD−1 NO CONTINUE TESTING	F4425140
	00756	0 07400 4 00004	1389		TSX	RDFORT,4 FIXDOS FULL	F4425150
	00757	−0 75400 1 00000	1390		PXD	0,1	F4425160
	00760	0 60100 0 02413	1391	C5STD	STO	FIXDOS−1 STORE SET ADDRESS IN FIX DO LIST	F4425170
	00761	1 00001 1 00762	1392	C5TXI	TXI	C5TXI+1,1,1 SET FOR NEXT ENTRY IN SET LIST	F4425180
	00762	1 00002 4 00720	1393		TXI	C4CLA,4,2 SET DO LIST INDEX, CONTINUE TEST	F4425190
			1394				F4425200
			1395			THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS	F4425210
			1396			INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE	F4425220
			1397			BEGINNING OF THE BLOCK	F4425230
	00763	−0 63400 4 00122	1398	RDINSM	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425240
	00764	0 50000 0 00032	1399		CLA	MINUS4 INITIALIZE ERROR BOX	F4425250
	00765	0 60100 0 00030	1400		STO	ERRBX	F4425260
	00766	−0 63400 2 00117	1401		SXD	BBOX,2 SAVE INDEX	F4425270
	00767	−0 53400 4 00551	1402		LXD	LD12M,4 SHIFT EXTRA INSTRUCTIONS FROM END	F4425280
	00770	0 50000 4 03227	1403	D1CLA	CLA	NDINS,4 OF BLOCK FOR BEGINNING	F4425290
	00771	0 60100 4 03703	1404		STO	INST.M,4	F4425300
	00772	2 00001 4 00770	1405		TIX	D1CLA,4,1 IS BLOCK SH1FTED	F4425310
	00773	0 76200 0 00224	1406	D1RDS	RDS	INSTTP SLLECT 1NSTRUCTION TAPE	F4425320
	00774	−0 53400 2 00036	1407		LXD	LD3,2 YES, SET INDEX FOR NO. OF RECORDS	F4425330
	00775	0 70000 4 03667	1408	D1CPY	CPY	INSTM−12,4 COPY BLOCK OF INSTRUCTIONS	F4425340
	00776	1 00001 4 00775	1409		TXI	D1CPY,4,1 SET FOR NEXT WORD	F4425350
	00777	0 02000 0 01007	1410		TRA	D2END END OF FILE	F4425360
	01000	−2 00001 2 01003	1411		TNX	D1BCK,2,1 END OF RECORD--IS IT END OF 3RD REC	F4425370
	01001	0 76200 0 00224	1412		RDS	INSTTP NO, READ NEXT RECORD.	F4425380
	01002	0 02000 0 00775	1413		TRA	D1CPY	F4425390
	01003	0 76600 0 00333	1414	D1BCK	WRS	219 TEST EOR TAPE ERROR	E4425400
	01004	−0 76000 0 00012	1415		RTT		F4425410
	01005	0 02000 0 01021	1416		TRA	INERR ERROR	F4425420
	01006	3 00453 4 01016	1417		TXH	D1XX,4,ZINSTM−1 IF 3RD RECORD FULL--NOT END OF F1LE	F4425430
	01007	−0 75400 4 00000	1418	D2END	PXD	0,4 REACHED END OF INSTRUCTIONS,	F4425440
	01010	0 40000 0 00612	1419		ADD	LD8 PUT TEST FOR LAST 1NSTRUCTION	F4425450
	01011	0 62200 0 00143	1420		STD	FNDAS INTO MAIN ROUT1NE	F4425460
	01012	0 50000 0 00053	1421		CLA	LCOUT PUT ADDRESS OF FINAL EXIT INTO MAIN	F4425470
	01013	0 60100 0 00144	1422		STO	FNDAS+1 ROUTINE.	F4425480
	01014	0 50000 0 00072	1423		CLA	ENDMKM	F4425490
	01015	0 60100 4 03667	1424		STO	INST.M−12,4	F4425500
	01016	−0 53400 4 00122	1425	D1XX	LXD	OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS	F4425510
	01017	−0 53400 2 00117	1426		LXD	BBOX,2	F4425520
	01020	0 02000 4 00001	1427		TRA	1,4 RETURN TO MAIN ROUT1NE	F4425530
	01021	0 50000 0 00030	1428	INERR	CLA	ERRBX	F4425540
	01022	−0 12000 0 01024	1429	SKIP7	TMI	SKIP7+2 HAVE 5 TRIES AT READING BEEN MADE	F4425550
	01023	0 07400 4 00004	1430		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4425560
	01024	0 40000 0 00031	1431		ADD	LA1 NO, TRY READING AGA1N	F4425570
	01025	0 60100 0 00030	1432		STO	ERRBX	F4425580
	01026	0 76400 0 00224	1433	D2BST	BST	INSTTP BACKSPACE OVER RECOROS JUST REAO	F4425590
	01027	1 00001 2 01030	1434		TXI	D2TIX,2,1	F4425600
	01030	−2 00003 2 01026	1435	D2TIX	TNX	D2BST,2,3	F4425610
	01031	0 02000 0 00773	1436		TRA	D1RDS TAPE BACKSPACED--TRY TO READ AGAIN	F4425620
			1437				F4425630
			1438			THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3.	F4425640
	01032	−0 63400 4 00122	1439	WRSET	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425650
	01033	0 60100 0 00121	1440		STO	ACBOX SAVE CONTENTS OF AC	F4425660
	01034	0 50000 0 00113	1441	D7CLA	CLA	SPBOX SET SP BOX FOR NEXT BLOCK	F4425670
	01035	0 40000 0 00047	1442		ADD	LZSET	F4425680
	01036	0 60100 0 00113	1443		STO	SPBOX	F4425690
	01037	0 40200 0 00046	1444		SUB	LXSET	F4425700
	01040	−0 12000 0 01042	1445		TMI	STWRS NO OVERFLOW --CONTINLE	F4425710
	01041	0 07400 4 00004	1446		TSX	RDFORT,4 SET TABLE HAS OVERFLOWED.	F4425720
	01042	0 76600 0 00303	1447	STWRS	WRS	SETDRM SELECT DRUM	F4425730
	01043	−0 75400 0 00000	1448		PXD	0,0 CLEAR AC	F4425740
	01044	−0 53400 4 00047	1449		LXD	LZSET,4 SET INDEX FOR COMPUTING CHECKSUM	F4425750
	01045	0 36100 4 04524	1450	D6ACL	ACL	SETM,4 COMPUTE CHECK SUM	F4425760
	01046	2 00001 4 01045	1451		TIX	D6ACL,4,1	F4425770
	01047	0 60200 0 00125	1452		SLW	ERAS1M STORE CHECK SUM	F4425780
	01050	0 46000 0 00040	1453		LDA	SETYM LOCATE DRUM ADDRESS	F4425790
	01051	−0 53400 4 00047	1454		LXD	LZSET,4 SET INOEX EOR COPY1NG	F4425800
	01052	0 70000 4 04524	1455	D6CPY	CPY	SETM,4 COPY BLOCK	F4425810
	01053	2 00001 4 01052	1456		TIX	D6CPY,4,1	F4425820
	01054	0 70000 0 00125	1457		CPY	ERAS1M COPY CHECK SUM	F4425830
	01055	0 50000 0 00040	1458		CLA	SETYM SET DRUM ADDRESS FOR NEXT BLOCK	F4425840
	01056	0 40000 0 00042	1459		ADD	LZSET1	F4425850
	01057	0 60100 0 00040	1460		STO	SETYM	F4425860
	01060	−0 53400 4 00122	1461		LXD	OUTBX,4 RESTORE INDEX REGISTER	F4425870
	01061	0 50000 0 00121	1462		CLA	ACBOX	F4425880
	01062	0 02000 4 00001	1463		TRA	1,4	F4425890
			1464				F4425900
			1465			THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST	F4425910
	01063	−0 53400 1 00551	1466	PASS2	LXD	LD12M,1 INITIALIZE INDEX REGISTERS	F4425920
	01064	1 00455 1 01065	1467	1TXI	TXI	1TXI+1,1,ZINSTM+1	F4425930
	01065	0 50000 0 07774	1468		CLA	BBOX.= GET LENGTH OF BBLIST	F4425940
	01066	0 62200 0 00700	1469		STD	PLACEM PUT LENGTH INTO TEST	F4425950
	01067	0 77100 0 00001	1470		ARS	1	F4425960
	01070	0 30000 0 00033	1471		FAD	L0M FIND LEAST POWER OF 2 NOT LESS THAN	F4425970
	01071	0 77100 0 00033	1472		ARS	27 LENGTH OF TABLE	F4425980
	01072	0 40200 0 00035	1473		SUB	LD1M	F4425990
	01073	0 62100 0 01075	1474		STA	ARSX	F4426000
	01074	0 50000 0 00056	1475		CLA	CONSTM	F4426010
A	01075	0 77100 0 00000	1476	ARSX	ARS		F4426020
	01076	0 60100 0 00124	1477		STO	XBOX	F4426030
	01077	0 50000 0 07775	1478		CLA	DOBOX= IF THERE ARE NO DOS, DO NOT TEST	F4426040
	01100	−0 10000 0 01103	1479		TNZ	TRAQ−1 FOR A TRANSFER TO A DO	F4426050
	01101	0 50000 0 00730	1480		CLA	FXDO−1	F4426060
	01102	0 60100 0 00713	1481		STO	TSTAD	F4426070
	01103	0 53400 2 00057	1482		LXA	ADRMK,2	F4426080
	01104	0 02000 0 00130	1483	TRAQ	TRA	BEGBB	F4426090
			1484				F4426100
			1485				F4426110
			1486			SECTION 4 - PART 2 QF 6 I2ND RECORD OF 2)	F4426120
			1487				F4426130
			1488			FORTRAN EDITOR INFORMATION	F4426140
			1489			MASTER RECORD CARD = F0650000	F4426150
			1490			ENTRY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD)	F4426160
			1491			FIRST LOCATION = 3064	F4426170
			1492			LAST LOCATION = 3210	F4426180
			1493				F4426190
			1494				F4426200
		03064	1495		ORG	1588	F4426210
			1496			THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM	F4426220
			1497			DRUM 1.	F4426230
	03064	−0 63400 4 00122	1498	RDTIF	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4426240
	03065	−0 63400 2 00125	1499		SXD	ERAS1M,2 SAVE INDEX	F4426250
	03066	0 50000 0 00032	1500		CLA	MINUS4 INITIALIZE ERROR BOX	F4426260
	03067	0 60100 0 00030	1501		STO	ERRBX	F4426270
	03070	0 50000 0 03703	1502		CLA	NTIFR−1 MOVE EXTRA WORD FROM END OF BLOCK	F4426280
	03071	0 60100 0 04213	1503		STO	TIFRDM−1 TO BEGINNING	F4426290
	03072	0 76200 0 00301	1504	TFRDS	RDS	TIFDRM SELECT DRUM	F4426300
	03073	0 46000 0 00041	1505		LDA	TIFY LOCATE DRUM ADDRESS	F4426310
	03074	0 70000 0 00126	1506		CPY	ERAS2M COPY LENGTH OF BLOCK	F4426320
	03075	−0 53400 6 00126	1507		LXD	ERAS2M,6 SET INDEX FOR COUNT	F4426330
	03076	0 70000 4 04213	1508	D2CPY	CPY	TIFRDM−1,4 READ IN BLOCK OF TIFRD	F4426340
	03077	2 00001 4 03076	1509		TIX	D2CPY,4,1 TEST FOR END OF BLOCK	F4426350
	03100	0 70000 0 00127	1510		CPY	ERAS3M COPY CHECK SUM	F4426360
	03101	−0 50000 0 00126	1511		CAL	ERAS2M	F4426370
	03102	0 10000 0 03121	1512		TZE	LSTBLT TIFGO IS EMPTY	F4426380
	03103	0 36100 2 04213	1513	D3ACL	ACL	TIFRDM−1,2 COMPUTE CHECKSUM	F4426390
	03104	2 00001 2 03103	1514		TIX	D3ACL,2,1	F4426400
	03105	0 60200 0 00121	1515		SLW	ACBOX	F4426410
	03106	0 50000 0 00121	1516		CLA	ACBOX	F4426420
	03107	0 40200 0 00127	1517		SUB	ERAS3M C0MPARE CHECK SUMS	F4426430
	03110	−0 10000 0 03141	1518		TNZ	TFERR NOT EQUAL,ERROR	F4426440
	03111	−0 53400 4 00126	1519		LXD	ERAS2M,4 WAS THIS A FULL BLOCK	F4426450
	03112	−2 00307 4 03121	1520		TNX	LSTBLT,4,ZTIFRD−1 NO--WAS LAST BLOCK	F4426460
	03113	0 50000 0 00041	1521		CLA	TIFY THIS WAS A FULL BLOCK, SET DRUM	F4426470
	03114	0 40000 0 00043	1522		ADD	LZTIF2 ADDRESS FOR NEXT BLOCK	F4426480
	03115	0 62100 0 00041	1523		STA	TIFY	F4426490
	03116	−0 53400 2 00125	1524	TFLXD	LXD	ERAS1M,2 RESTORE INDEX REGISTER	F4426500
	03117	−0 53400 4 00122	1525		LXD	OUTBX,4	F4426510
	03120	0 02000 4 00001	1526		TRA	1,4 RETURN TO MAIN ROUT1NE	F4426520
	03121	0 50000 0 00054	1527	LSTBLT	CLA	TRNOM END OF TIFGO--PREVENT FURTHER	F4426530
	03122	0 60100 0 03065	1528		STO	RDTIF+1 ATTEMPTS TO READ IN	F4426540
	03123	0 50000 0 00126	1529		CLA	ERAS2M PUT NUMBER OF WORDS IN THIS BLOCK	F4426550
	03124	0 40000 0 00035	1530		ADD	LD1M INTO COMPARISONS	F4426560
	03125	0 62200 0 00150	1531		STD	2TNX	F4426570
	03126	0 62200 0 00343	1532		STD	7TNX	F4426580
	03127	0 62200 0 00356	1533		STD	8TNX	F4426590
	03130	0 02000 0 03116	1534		TRA	TFLXD RESTORE INDEX REGISTERS AND EXIT.	F4426600
	03131	0 50000 0 03156	1535	NOMOR	CLA	TRTSX TIFRD IS ALL USED - STORE A TSX	F4426610
	03132	0 60100 0 03064	1536		STO	RDTIF	F4426620
	03133	0 50000 0 03140	1537		CLA	TR2CL	F4426630
	03134	0 60100 0 00147	1538		STO	2TNX−1	F4426640
	03135	−0 53400 4 00116	1539		LXD	PBOX,4	F4426650
	03136	0 60000 4 04214	1540		STZ	TIFRDM,4	F4426660
	03137	0 02000 0 03117	1541		TRA	TFLXD+1	F4426670
	03140	0 02000 0 00160	1542	TR2CL	TRA	2CLA	F4426680
	03141	0 50000 0 00030	1543	TFERR	CLA	ERRBX	F4426690
	03142	−0 12000 0 03144	1544	SKIP8	TMI	SKIP8+2 HAVE 5 TRIES AT READING BEEN MADE	F4426700
	03143	0 07400 4 00004	1545		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4426710
	03144	0 40000 0 00031	1546		ADD	LA1 NO, TRY READING AGAIN	F4426720
	03145	0 60100 0 00030	1547		STO	ERRBX	F4426730
	03146	0 02000 0 03072	1548		TRA	TFRDS	F4426740
			1549				F4426750
			1550			THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM	F4426760
			1551			WITH CHECK SUM	F4426770
	03147	−0 63400 4 00122	1552	WRTRA	SXD	OUTBX,4 SAVE INDFX FOR RETURN	F4426780
	03150	0 60100 0 00121	1553		STO	ACBOX SAVE CONTENTS OF THE AC	F4426790
	03151	0 50000 0 00115	1554	TRCLA	CLA	TPBOX SET TP BOX FOR NEXT BLOCK	F4426800
	03152	0 40000 0 00045	1555		ADD	LZTRA	F4426810
	03153	0 60100 0 00115	1556		STO	TPBOX	F4426820
	03154	0 40200 0 00044	1557		SUB	LXTRA	F4426830
	03155	−0 12000 0 03157	1558		TMI	TRWRS NO OVERFLOW--CONTINUE	F4426840
	03156	0 07400 4 00004	1559	TRTSX	TSX	RDFORT,4 THE TRA TABLE HAS OVERFLOWED	F4426850
	03157	0 76600 0 00301	1560	TRWRS	WRS	TRADRM SELECT DRUM	F4426860
	03160	−0 53400 4 00045	1561		LXD	LZTRA,4 SET INDEX	F4426870
	03161	−0 75400 0 00000	1562		PXD	0,0 CLEAR AC	F4426880
	03162	0 36100 4 06024	1563	D4ACL	ACL	TRAM,4 COMPUTE CHECKSUM	F4426890
	03163	2 00001 4 03162	1564		TIX	D4ACL,4,1	F4426900
	03164	0 60200 0 00125	1565		SLW	ERAS1M STORE CHECK SUM	F4426910
	03165	−0 53400 4 00045	1566		LXD	LZTRA,4 SET INDEX FOR COPYING	F4426920
	03166	0 70000 4 06024	1567	D4CPY	CPY	TRAM,4 COPY BLOCK	F4426930
	03167	2 00001 4 03166	1568		TIX	D4CPY,4,1	F4426940
	03170	0 70000 0 00125	1569		CPY	ERAS1M COPY CHECK SUM	F4426950
	03171	−0 53400 4 00276	1570		LXD	LD4,4	F4426960
	03172	0 50000 4 04530	1571	D5CLA	CLA	NDTRA,4 SHIFT EXTRA ENTRIES FROM THE END	F4426970
	03173	0 60100 4 06024	1572		STO	TRA..M,4 TO THE BEGINNING OF BLOCK	F4426980
	03174	2 00001 4 03172	1573		TIX	D5CLA,4,1	F4426990
	03175	−0 53400 4 00045	1574		LXD	LZTRA,4 SET INDEX	F4427000
	03176	−0 75400 0 00000	1575		PXD	0,0	F4427010
	03177	0 56000 0 00031	1576		LDQ	LA1	F4427020
	03200	0 60100 4 06021	1577	D5ST2	STO	TRAM−3,4 INITIALIZE TRA TABLE	F4427030
	03201	−0 60000 4 06020	1578		STQ	TRA..M−4,4	F4427040
	03202	2 00002 4 03200	1579		TIX	D5ST2,4,2	F4427050
	03203	0 50000 0 03157	1580		CLA	TRWRS SET ADDRESS FOR NEXT BLOCK	F4427060
	03204	0 40000 0 00031	1581		ADD	LA1	F4427070
	03205	0 62100 0 03157	1582		STA	TRWRS	F4427080
	03206	−0 53400 4 00122	1583	TRLXD	LXD	OUTBX,4 RESTORE INDEX REGISTERS	F4427090
	03207	0 50000 0 00121	1584		CLA	ACBOX RESTORE CONTENTS OF AC	F4427100
	03210	0 02000 4 00001	1585		TRA	1,4 RETURN TO MAIN ROUTINE	F4427110
			1586				F4427120
			1587				F4427130
			1588			SECTION 4 - PART 3 OF 6	F4430010
			1589				F4430020
			1590			FORTRAN EDITOR INFORMATION	F4430030
			1591			MASTER RECORD CARD = F0670000	F4430040
			1592			ENTRY POINT = 111	F4430050
			1593			FIRST LOCATION = 33	F4430060
			1594			LAST LOCATION = 437	F4430070
			1595				F4430080
			1596				F4430090
		00033	1597		ORG	27	F4430100
			1598			CONSTANTS AND VARIABLES	F4430110
	00033	0 00000 0 00000	1599	ZERO		0	F4430120
	00034	0 00001 0 00000	1600	LD1N		0,0,1	F4430130
	00035	0 70007 0 00000	1601	LD7N		0,0,−TRATBL+2	F4430140
	00036	+200000000000	1602	PBYCDN	OCT	200000000000	F4430150
	00037	−300000000000	1603	PFXMKN	OCT	−300000000000	F4430160
	00040	+377777777777	1604	ENDMKN	OCT	377777777777	F4430170
	00041	0 00000 0 00310	1605	LAZST		ZSET	F4430180
	00042	0 00000 0 00311	1606	LZST1		ZSET+1	F4430190
	00043	0 00000 0 00374	1607	LZFR1		ZFRET=+2	F4430200
	00044	0 00000 0 01274	1608	LAZTR		ZTRA	F4430210
	00045	0 00310 0 00000	1609	LZSETN		0,0,ZSET	F4430220
	00046	0 01274 0 00000	1610	LZTRAN		0,0,ZTRA	F4430230
	00047	0 00000 0 01275	1611	WSETY		SETADD	F4430240
	00050	0 00000 0 01750	1612	FRETY		FRTADD	F4430250
	00051	0 00000 0 02260	1613	BBLYN		BBLADD	F4430260
	00052	0 00000 0 03270	1614	DOYN		DOADDR	F4430270
	00053	0 02000 0 00366	1615	TRBCK	TRA	CLAFN	F4430280
	00054	0 00000 0 00201	1616	LFXST		FXSET	F4430290
	00055	0 00000 0 00000	1617	ERAS1N			F4430300
	00056	0 00000 0 00000	1618	ERAS2N			F4430310
	00057	0 00000 0 00000	1619	ERAS3N			F4430320
	00060	0 00000 0 00000	1620	ERAS4N			F4430330
	00061	0 00000 0 00000	1621	ERAS5N			F4430340
			1622				F4430350
			1623			THIS ROUTINE READS THE SET TABLE FROM DRUM 3.	F4430360
	00062	0 50000 0 00032	1624	RDSET	CLA	MINUS4 INITIALIZE ERROR BOX	F4430370
	00063	0 60100 0 00030	1625		STO	ERRBX	F4430380
	00064	0 76200 0 00303	1626	16WRS	RDS	SETDRM	F4430390
	00065	0 46000 0 00047	1627		LDA	WSETY LOCATE DRUM ADDRESS	F4430400
	00066	−0 53400 3 07776	1628		LXD	SSBOX=,3 SET INDEX REGISTERS	F4430410
	00067	0 70000 1 01063	1629	16CPY	CPY	SETTAB+1,1 COPY TABLE	F4430420
	00070	2 00001 1 00067	1630		TIX	16CPY,1,1	F4430430
	00071	0 70000 0 00055	1631		CPY	ERAS1N COPY CHECK SUM	F4430440
	00072	−0 75400 0 00000	1632		PXD	0,0 CLEAR AC	F4430450
	00073	0 36100 2 01063	1633	16ACL	ACL	SETTAB+1,2 COMPUTE CHECK SUM	F4430460
	00074	2 00001 2 00073	1634		TIX	16ACL,2,1	F4430470
	00075	0 60200 0 00056	1635		SLW	ERAS2N STORE CHECK SUM	F4430480
	00076	0 50000 0 00056	1636		CLA	ERAS2N COMPARE CHECK SUMS	F4430490
	00077	0 40200 0 00055	1637		SUB	ERAS1N	F4430500
	00100	0 10000 0 00107	1638		TZE	READ4 IF NO ERROR-READ IN NEXT PROGRAM	F4430510
	00101	0 50000 0 00030	1639	17ERR	CLA	ERRBX	F4430520
	00102	−0 12000 0 00104	1640	SKIP9	TMI	SKIP9+2 HAVE 5 TRIES AT READING BEEN MA0E	F4430530
	00103	0 07400 4 00004	1641		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4430540
	00104	0 40000 0 00031	1642		ADD	LA1 NO, TRY READING AGAIN	F4430550
	00105	0 60100 0 00030	1643		STO	ERRBX	F4430560
	00106	0 02000 0 00064	1644		TRA	16WRS TRY AGAIN	F4430570
	00107	0 76200 0 00221	1645	READ4	RDS	SYSTAP	F4430580
	00110	0 02000 0 00004	1646		TRA	RDFORT	F4430590
			1647				F4430600
			1648			THIS ROUTINE WRITES THE BBLIST ON DRUM 3	F4430610
	00111	−0 53400 3 07774	1649	LXD	LXD	BBOX.=,3 PUT BASIC BLOCK LIST ON DRUM	F4430620
	00112	−0 75400 0 00000	1650		PXD	0,0	F4430630
	00113	0 76600 0 00303	1651		WRS	BBLDRM	F4430640
	00114	0 36100 1 07773	1652		ACL	BBLIST,1 COMPUTE CHECK SUM	F4430650
	00115	2 00001 1 00114	1653	SELF30	TIX	SELF30−1,1,1	F4430660
	00116	0 36100 0 07773	1654		ACL	BBLIST	F4430670
	00117	0 60200 0 00055	1655		SLW	ERAS1N STORE CHECK SUM	F4430680
	00120	0 46000 0 00051	1656		LDA	BBLYN	F4430690
	00121	0 70000 2 07773	1657		CPY	BBLIST,2 COPY LIST	F4430700
	00122	2 00001 2 00121	1658	SELF31	TIX	SELF31−1,2,1	F4430710
	00123	0 70000 0 07773	1659		CPY	BBLIST COPY LAST WORD IN LIST	F4430720
	00124	0 70000 0 00055	1660		CPY	ERAS1N COPY CHECK SUM	F4430730
			1661				F4430740
			1662			THIS ROUTINE WRITES DOLIST ON DRUM 1.	F4430750
	00125	−0 53400 3 07775	1663		LXD	DOBOX=,3 COPY DO LIST ONTO DRUM	F4430760
	00126	−0 75400 0 00000	1664		PXD	0,0	F4430770
	00127	0 76600 0 00301	1665		WRS	DODRUM SELECT DRUM	F4430780
	00130	0 36100 1 06500	1666	2ACL	ACL	DOLIST,1 COMPUTE CHECK SUM	F4430790
	00131	2 00001 1 00130	1667		TIX	2ACL,1,1	F4430800
	00132	0 60200 0 00055	1668		SLW	ERAS1N STORE CHECK SUM	F4430810
	00133	0 46000 0 00052	1669		LDA	DOYN	F4430820
	00134	0 70000 2 06500	1670	2CPY	CPY	DOLIST,2 COPY TABLE	F4430830
	00135	2 00001 2 00134	1671		TIX	2CPY,2,1	F4430840
	00136	0 70000 0 00055	1672		CPY	ERAS1N COPY CHECK SUM	F4430850
			1673				F4430860
			1674			THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM	F4430870
	00137	0 50000 0 00032	1675	4PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4430880
	00140	0 60100 0 00030	1676		STO	ERRBX	F4430890
	00141	0 76200 0 00303	1677	4WRS	RDS	SETDRM	F4430900
	00142	0 46000 0 00047	1678		LDA	WSETY	F4430910
	00143	−0 53400 3 00045	1679		LXD	LZSETN,3	F4430920
	00144	0 70000 1 07774	1680	4CPY	CPY	SETLOC,1 COPY BLOCK	F4430930
	00145	2 00001 1 00144	1681		TIX	4CPY,1,1	F4430940
	00146	0 70000 0 00055	1682		CPY	ERAS1N COPY CHECK SUM	F4430950
	00147	−0 75400 0 00000	1683		PXD	0,0 CLEAR AC	F4430960
	00150	0 36100 2 07774	1684	4ACL	ACL	SETLOC,2 COMPUTE CHECKSUM	F4430970
	00151	2 00001 2 00150	1685		TIX	4ACL,2,1	F4430980
	00152	0 60200 0 00056	1686		SLW	ERAS2N	F4430990
	00153	0 50000 0 00056	1687		CLA	ERAS2N	F4431000
	00154	0 40200 0 00055	1688		SUB	ERAS1N COMPARE CHECK SUMS	F4431010
	00155	0 10000 0 00164	1689	4TZE	TZE	TESTST	F4431020
	00156	0 50000 0 00030	1690	STERR	CLA	ERRBX	F4431030
	00157	−0 12000 0 00161	1691	SKIP10	TMI	SKIP10+2 HAVE 5 TRIES AT READING BEEN MADE	F4431040
	00160	0 07400 4 00004	1692		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4431050
	00161	0 40000 0 00031	1693		ADD	LA1 NO, TRY READING AGAIN	F4431060
	00162	0 60100 0 00030	1694		STO	ERRBX	F4431070
	00163	0 02000 0 00141	1695		TRA	4WRS TRY AGAIN TO READ IN	F4431080
	00164	0 50000 0 07776	1696	TESTST	CLA	SSBOX= IS THERE ANOTHER BLOCK ON DRUM	F4431090
	00165	0 40200 0 00045	1697		SUB	LZSETN	F4431100
	00166	−0 12000 0 00201	1698		TMI	FXSET NO OTHER-	F4431110
	00167	0 50000 0 00047	1699	6SET	CLA	WSETY ANOTHER BLOCK-SET DRUM ADDRESS	F4431120
	00170	0 40000 0 00042	1700		ADD	LZST1	F4431130
	00171	0 60100 0 00047	1701		STO	WSETY	F4431140
	00172	0 50000 0 00144	1702	5CLA	CLA	4CPY SET ADDRESSES FOR NEXT BLOCK	F4431150
	00173	0 40200 0 00041	1703		SUB	LAZST	F4431160
	00174	0 62100 0 00144	1704		STA	4CPY	F4431170
	00175	0 62100 0 00150	1705		STA	4ACL	F4431180
	00176	0 50000 0 00054	1706		CLA	LFXST	F4431190
	00177	0 62100 0 00155	1707		STA	4TZE STORE ADDRESS FOR NEXT ROUTINE	F4431200
	00200	0 02000 0 00137	1708		TRA	4PXD READ IN NEXT BLOCK	F4431210
			1709				F4431220
			1710			THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS	F4431230
	00201	0 53400 1 00033	1711	FXSET	LXA	ZERO,1 SET INDEX FOR FIX DO LIST	F4431240
	00202	0 50000 1 02414	1712	CCLA	CLA	FIXDOS,1 GET ENTRY FROM FIXDO LIST	F4431250
	00203	−0 12000 0 00213	1713		TMI	WRTST ALL DONE IF MINUS	F4431260
	00204	−0 73400 4 00000	1714		PDX	0,4 SET FOR ADDRESS IN SET TABLE	F4431270
	00205	0 50000 4 07774	1715		CLA	SETLOC,4 LOOK AT ENTRY IN SET TABLE	F4431280
	00206	−0 73400 2 00000	1716		PDX	0,2 SET FOR ADDRESS IN BASIC BLOCK TAB.	F4431290
	00207	0 50000 2 02413	1717		CLA	BBTABL,2 GET ADDRESS IN TRA TABLE	F4431300
	00210	0 40000 0 00035	1718		ADD	LD7N SET FOR CORE ADDRESS OF COUNTER	F4431310
	00211	0 62200 4 07774	1719		STD	SETLOC,4 PUT INTO SET TABLE	F4431320
	00212	1 77777 1 00202	1720		TXI	CCLA,1,−1 LOOK AT NEXT ENTRY IN FIXDO LIST	F4431330
			1721				F4431340
			1722			THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM	F4431350
	00213	−0 53400 3 07776	1723	WRTST	LXD	SSBOX=,3 SET INDEX REGISTERS	F4431360
	00214	0 76600 0 00303	1724		WRS	SETDRM SELECT DRUM	F4431370
	00215	−0 75400 0 00000	1725		PXD	0,0	F4431380
	00216	0 36100 1 07774	1726	7AACL	ACL	SETLOC,1 COMPUTE CHECK SUM	F4431390
	00217	2 00001 1 00216	1727		TIX	7AACL,1,1	F4431400
	00220	0 60200 0 00055	1728		SLW	ERAS1N STORE CHECK SUM	F4431410
	00221	0 46000 0 00047	1729		LDA	WSETY	F4431420
	00222	0 70000 2 07774	1730	7ACPY	CPY	SETLOC,2 COPY TABLE	F4431430
	00223	2 00001 2 00222	1731		TIX	7ACPY,2,1	F4431440
	00224	0 70000 0 00055	1732		CPY	ERAS1N COPY CHECK SUM	F4431450
			1733				F4431460
			1734			THIS ROUTINE READS THE TRA TABLE FROM THE DRUM	F4431470
	00225	0 50000 0 07777	1735	RDTRA	CLA	TTBOX=	F4431480
	00226	0 40200 0 00034	1736		SUB	LD1N	F4431490
	00227	0 60100 0 00057	1737		STO	ERAS3N INITIALIZE ERAS3N	F4431500
	00230	0 50000 0 00032	1738	8PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4431510
	00231	0 02000 0 00265	1739		TRA	SKIP11+3	F4431520
	00232	0 76200 0 00301	1740	8WRS	RDS	TRADRM	F4431530
	00233	−0 53400 3 00046	1741		LXD	LZTRAN,3 SET INDICES	F4431540
	00234	0 70000 1 07774	1742	8CPY	CPY	TRATBL+1,1 COPY BLOCK OF TABLE	F4431550
	00235	2 00001 1 00234	1743		TIX	8CPY,1,1	F4431560
	00236	0 70000 0 00055	1744		CPY	ERAS1N COPY CHECK SUM	F4431570
	00237	0 36100 2 07774	1745	8ACL	ACL	TRATBL+1,2	F4431580
	00240	2 00001 2 00237	1746		TIX	8ACL,2,1	F4431590
	00241	0 60200 0 00056	1747		SLW	ERAS2N	F4431600
	00242	0 50000 0 00056	1748		CLA	ERAS2N	F4431610
	00243	0 40200 0 00055	1749		SUB	ERAS1N COMPARE CHECK SUMS	F4431620
	00244	−0 10000 0 00261	1750		TNZ	TRERR IF NOT ZERO, HAS BEEN AN ERROR	F4431630
	00245	0 50000 0 00057	1751		CLA	ERAS3N PUT NO OF WORDS COPIED IN AC	F4431640
	00246	0 40200 0 00046	1752		SUB	LZTRAN ADD BLOCK JUST COPIED	F4431650
	00247	−0 12000 0 00270	1753		TMI	CLRNS MINUS MEANS ALL D0NE, CLEAR N LIST	F4431660
	00250	0 60100 0 00057	1754		STO	ERAS3N STORE NUMBER OF WORDS LEFT TO COPY	F4431670
	00251	0 50000 0 00232	1755		CLA	8WRS NOT FINISHED--SET DRUM NUMBER FOR	F4431680
	00252	0 40000 0 00031	1756		ADD	LA1 NEXT BLOCK	F4431690
	00253	0 62100 0 00232	1757		STA	8WRS	F4431700
	00254	0 50000 0 00234	1758		CLA	8CPY SET ADDRESSES FOR NEXT BLOCK	F4431710
	00255	0 40200 0 00044	1759		SUB	LAZTR	F4431720
	00256	0 62100 0 00234	1760		STA	8CPY	F4431730
	00257	0 62100 0 00237	1761		STA	8ACL	F4431740
	00260	0 02000 0 00230	1762		TRA	8PXD COPY NEXT BLOCK	F4431750
	00261	0 50000 0 00030	1763	TRERR	CLA	ERRBX	F4431760
	00262	−0 12000 0 00264	1764	SKIP11	TMI	SKIP11+2 HAVE 5 TRIES AT READING BEEN MADE	F4431770
	00263	0 07400 4 00004	1765		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4431780
	00264	0 40000 0 00031	1766		ADD	LA1 NO, TRY READING AGAIN	F4431790
	00265	0 60100 0 00030	1767		STO	ERRBX	F4431800
	00266	−0 75400 0 00000	1768		PXD	0,0 CLEAR AC	F4431810
	00267	0 02000 0 00232	1769		TRA	8WRS TRY AGAIN	F4431820
			1770				F4431830
			1771			THIS CLEARS THE LOCATION IN THE N-LIST	F4431840
	00270	0 56000 0 00033	1772	CLRNS	LDQ	ZERO	F4431850
	00271	0 53400 4 00031	1773		LXA	LA1,4	F4431860
	00272	0 50000 4 01114	1774	CLANS	CLA	NLIST,4	F4431870
	00273	0 10000 0 00300	1775		TZE	11PXD END OF LIST-DO NEXT ROUTINE	F4431880
	00274	−0 60000 4 01114	1776		STQ	NLIST,4 STORE ZERO IN N-LIST	F4431890
	00275	1 00001 4 00272	1777		TXI	CLANS,4,1 SET FOR NEXT WORD IN LIST	F4431900
			1778				F4431910
			1779			THIS ROUTINE READS FRET FROM DRUM 2	F4431920
	00276	−0 63400 2 00060	1780	RDFRT	SXD	ERAS4N,2 SAVE INDEX REGISTERS	F4431930
	00277	−0 63400 1 00061	1781		SXD	ERAS5N,1	F4431940
	00300	0 50000 0 00032	1782	11PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4431950
	00301	0 02000 0 00343	1783		TRA	SKIP12+3	F4431960
	00302	0 76200 0 00302	1784	11WRS	RDS	FRTDRM SELECT DRUM	F4431970
	00303	0 46000 0 00050	1785		LDA	FRETY LOCATE DRUM ADDRESS	F4431980
	00304	0 70000 0 00056	1786		CPY	ERAS2N COPY NO. 0F WORDS IN BLOCK	F4431990
	00305	−0 53400 7 00056	1787		LXD	ERAS2N,7 SET INDEX REGISTERS	F4432000
	00306	0 70000 1 01062	1788	11CPY	CPY	FRET,1 COPY BLOCK	F4432010
	00307	2 00001 1 00306	1789		TIX	11CPY,1,1	F4432020
	00310	0 70000 0 00055	1790		CPY	ERAS1N COPY CHECK SUM	F4432030
	00311	0 70000 0 00057	1791		CPY	ERAS3N C0PY FIRST WORD OF NEXT BLOCK	F4432040
	00312	0 36100 2 01062	1792	11ACL	ACL	FRET,2 COMPUTE CHECKSUM	F4432050
	00313	2 00001 2 00312	1793		TIX	11ACL,2,1	F4432060
	00314	0 36100 0 00056	1794		ACL	ERAS2N	F4432070
	00315	0 60200 0 00056	1795		SLW	ERAS2N	F4432080
	00316	3 00000 4 00322	1796		TXH	11CLA,4,0 TEST FOR FRET EMPTY	F4432090
	00317	0 50000 0 00402	1797		CLA	NOQFD IF EMPTY--PREVENT LOOKING AT IT	F4432100
	00320	0 62100 0 00357	1798		STA	13TXIN−1	F4432110
	00321	0 02000 0 00346	1799		TRA	FXTRA GO TO MAKE UP PROBABILITIES	F4432120
	00322	0 50000 0 00056	1800	11CLA	CLA	ERAS2N COMPARE CHECKSUMS	F4432130
	00323	0 40200 0 00055	1801		SUB	ERAS1N	F4432140
	00324	−0 10000 0 00337	1802		TNZ	FQERR IF NOT ZERO--HAS BEEN AN ERROR	F4432150
	00325	0 50000 0 00050	1803	12CLA	CLA	FRETY SET DRUM ADDRESS FOR NEXT BLOCK	F4432160
	00326	0 40000 0 00043	1804		ADD	LZFR1	F4432170
	00327	0 60100 0 00050	1805		STO	FRETY	F4432180
	00330	0 50000 0 00057	1806		CLA	ERAS3N TEST FOR END OF FRET	F4432190
	00331	−0 10000 0 00334	1807		TNZ	12TRA−2	F4432200
	00332	0 50000 0 00341	1808		CLA	SKIP12+1 STORE A TSX TO PREVENT READING	F4432210
	00333	0 60100 0 00301	1809		STO	11PXD+1 IN MORE-THIS IS END OF TABLE	F4432220
	00334	−0 53400 1 00061	1810		LXD	ERAS5N,1 RESTORE INDEX REGISTERS	F4432230
	00335	−0 53400 2 00060	1811		LXD	ERAS4N,2	F4432240
	00336	0 02000 0 00346	1812	12TRA	TRA	FXTRA GO TO NEXT PART OF PROGRAM	F4432250
	00337	0 50000 0 00030	1813	FQERR	CLA	ERRBX	F4432260
	00340	−0 12000 0 00342	1814	SKIP12	TMI	SKIP12+2 HAVE 5 TRIES AT READING BEEN MADE	F4432270
	00341	0 07400 4 00004	1815		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4432280
	00342	0 40000 0 00031	1816		ADD	LA1 NO, TRY READING AGAIN	F4432290
	00343	0 60100 0 00030	1817		STO	ERRBX	F4432300
	00344	−0 75400 0 00000	1818		PXD	0,0	F4432310
	00345	0 02000 0 00302	1819		TRA	11WRS TRY AGAIN	F4432320
			1820				F4432330
			1821			THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA	F4432340
			1822			TABLE FROM THE FREQUENCY TABLE	F4432350
	00346	−0 53400 2 00033	1823	FXTRA	LXD	ZERO,2 SET INDEX REGISTERS	F4432360
	00347	0 50000 0 07774	1824		CLA	BBOX.= ADD LENGTH OF TABLE	F4432370
	00350	0 40200 0 00034	1825		SUB	LD1N	F4432380
	00351	0 62200 0 00352	1826		STD	13TXH STORE FOR COMPARISON	F4432390
D	00352	3 00000 2 00062	1827	13TXH	TXH	RDSET,2 HAS END OF TABLE BEEN REACHED	F4432400
	00353	−0 50000 2 02413	1828		CAL	BBTABL,2 LOOK AT ENTRY IN BB TABLE	F4432410
	00354	−0 73400 1 00000	1829		PDX	0,1 GET ADDRESS IN TRA TABLE	F4432420
	00355	−0 32000 0 00037	1830		ANA	PFXMKN LOOK AT C0DE FOR ENDING	F4432430
	00356	0 40200 0 00036	1831		SUB	PBYCDN IS IT A PROBABILITY CASE	F4432440
	00357	0 10000 0 00361	1832		TZE	CLAT YES, GET PROBABILITIES	F4432450
	00360	1 00001 2 00352	1833	13TXIN	TXI	13TXH,2,1 NO, GO TO NEXT BASIC BLOCK	F4432460
	00361	0 50000 4 01062	1834	CLAT	CLA	FRET,4 IS FORMULA NO. IN TRA TABLE THE	F4432470
	00362	0 76700 0 00022	1835		ALS	18 SAME AS IN FRET(FRET HAS - SIGN)	F4432480
	00363	0 40000 1 07773	1836		ADD	TRATBL,1	F4432490
	00364	−0 10000 0 00402	1837		TNZ	NOQFD NO, NO FREQUENCY FOUND	F4432500
	00365	−2 00001 4 00372	1838	14TIX	TNX	14LXD,4,1 SET FOR NEXT WORD	F4432510
	00366	0 50000 4 01062	1839	CLAFN	CLA	FRET,4 GET PROBABILITY FROM FRET	F4432520
	00367	−0 12000 0 00360	1840		TMI	13TXIN MINUS INDICATES NEXT ENTRY IN FRET	F4432530
	00370	0 60100 1 07773	1841		STO	TRATBL,1 PUT PROBABILITY IN TRA TABLE	F4432540
	00371	1 00002 1 00365	1842		TXI	14TIX,1,2 SET FOR NEXT ENTRY IN TRA	F4432550
	00372	0 50000 0 00057	1843	14LXD	CLA	ERAS3N TEST FOR END OF LAST BLOCK	F4432560
	00373	−0 10000 0 00377	1844		TNZ	14CLA	F4432570
	00374	0 50000 0 00402	1845		CLA	NOQFD END OF TABLE-PREVENT FURTHER	F4432580
	00375	0 62100 0 00357	1846		STA	13TXIN−1 LOOKING AT FRET	F4432590
	00376	1 00001 2 00352	1847		TXI	13TXH,2,1 ALSO END OF ENTRY-LOOK AT NEXT BB.	F4432600
	00377	0 50000 0 00053	1848	14CLA	CLA	TRBCK END OF BLOCK OF FRET--READ IN NEXT	F4432610
	00400	0 62100 0 00336	1849		STA	12TRA BLOCK, SETTING ADDRESS FOR	F4432620
	00401	0 02000 0 00276	1850		TRA	RDFRT RETURN	F4432630
	00402	−0 12000 0 00416	1851	NOQFD	TMI	NTENT FORM. NO. IN FRET IS LARGER, NOT	F4432640
			1852			IN FRET	F4432650
	00403	2 00001 4 00404	1853		TIX	CLAQ,4,1 FORM. NO. SMALLER, TRY NEXT ENTRY	F4432660
	00404	0 50000 4 01062	1854	CLAQ	CLA	FRET,4 LOOK AT NEXT WORD IN FRET	F4432670
	00405	−0 12000 0 00362	1855		TMI	CLAT+1 - MEANS NEW ENTRY, COMPARE TO TRA	F4432680
	00406	2 00001 4 00404	1856		TIX	CLAQ,4,1 KEEP LOOKING FOR BEG. OF NEXT ENTRY	F4432690
	00407	0 50000 0 00057	1857		CLA	ERAS3N END OF BLOCK REACHED	F4432700
	00410	0 10000 0 00414	1858		TZE	NDTBL TEST FOR END OF TABLE	F4432710
	00411	0 50000 0 00403	1859		CLA	CLAQ−1 END OF BLOCK ONLY-STORE RETURN	F4432720
	00412	0 62100 0 00336	1860		STA	12TRA ADDRESS AND GO TO READ	F4432730
	00413	0 02000 0 00276	1861		TRA	RDFRT IN NEXT BLOCK	F4432740
	00414	0 50000 0 00402	1862	NDTBL	CLA	NOQFD END OF TABLE-PREVENT FURTHER	F4432750
	00415	0 62100 0 00357	1863		STA	13TXIN−1 LOOKING AT FRET.	F4432760
	00416	0 50000 1 07771	1864	NTENT	CLA	TRATBL−2,1 NO ENTRY IN FRET--MAKE UP FREQS	F4432770
	00417	−0 63400 4 00055	1865		SXD	ERAS1N,4 SAVE FRET ADDRESS	F4432780
	00420	−0 73400 4 00000	1866		PDX	0,4 PUT NO. OF BRANCHES IN INDEX	F4432790
	00421	0 50000 0 00034	1867		CLA	LD1N PUT TOTAL PROBABILITY IN AC	F4432800
	00422	0 56000 0 00033	1868		LDQ	ZERO CLEAR MQ	F4432810
	00423	0 22100 1 07771	1869		DVP	TRATBL−2,1 DIVIDE BY NO. OF BRANCHES	F4432820
	00424	0 76000 0 00012	1870		DCT		F4432830
	00425	0 07400 4 00004	1871		TSX	RDFORT,4 BAD DIVIDE	F4432840
	00426	−0 60000 0 00056	1872		STQ	ERAS2N STORE PROBABILITY IN AC	F4432850
	00427	−0 75400 0 00000	1873		PXD	0,0 CLEAR AC	F4432860
	00430	0 40000 0 00056	1874	15ADD	ADD	ERAS2N ADD PROB. OF BRANCH FOR CUMULATING	F4432870
	00431	0 60100 1 07773	1875		STO	TRATBL,1 PROBABILITY AND STORE	F4432880
	00432	−2 00001 4 00434	1876		TNX	15LXD,4,1 IS THIS BASIC BLOCK DONE	F4432890
	00433	1 00002 1 00430	1877		TXI	15ADD,1,2 NO, DO NEXT BRANCH	F4432900
	00434	−0 53400 4 00055	1878	15LXD	LXD	ERAS1N,4 RESTORE INDEX	F4432910
	00435	0 50000 0 00040	1879		CLA	ENDMKN	F4432920
	00436	0 60100 1 07773	1880		STO	TRATBL,1 STORE PROBABILITY IN LAST BRANCH	F4432930
	00437	1 00001 2 00352	1881		TXI	13TXH,2,1 DO NEXT BASIC BLOCK.	F4432940
			1882				F4432950
			1883				F4432960
			1884			SECTION 4 - PART 4 OF 6	F4440010
			1885				F4440020
			1886			FORTRAN EDITOR INFORMATION	F4440030
			1887			MASTER RECORD CARD = F0690000	F4440040
			1888			ENTRY POINT = 42	F4440050
			1889			FIRST LOCATION = 33	F4440060
			1890			LAST LOCATION = 161	F4440070
			1891				F4440080
			1892				F4440090
		00033	1893		ORG	27	F4440100
			1894			CONSTANTS AND VARIABLES	F4440110
	00033	0 00001 0 00000	1895	LD1P		0,0,1	F4440120
	00034	0 77777 0 00000	1896	DECMKP		0,0,−1	F4440130
	00035	0 77777 0 77777	1897	ADMK		−1,0,−1	F4440140
	00036	+100000000000	1898	BT2MK	OCT	100000000000	F4440150
	00037	0 00000 0 07640	1899	VISITS	HTR	4000 COUNTER FOR NUMBER OF VISITS	F4440160
	00040	+321702174347	1900	RAND1	OCT	321702174347	F4440170
	00041	+000000000001	1901	RAND2	OCT	1	F4440180
			1902				F4440190
			1903			THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM,	F4440200
			1904			KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT	F4440210
			1905			EACH BRANCH POINT	F4440220
	00042	−0 53400 1 00031	1906	SIMUL	LXD	LA1,1 PUT ZERO IN I R A	F4440230
	00043	−0 50000 0 07777	1907		CAL	TTBOX=	F4440240
	00044	0 77100 0 00014	1908		ARS	12 NUMBER OF STEPS IS NUMBER OF 2-WORD	F4440250
	00045	0 60100 0 00037	1909		STO	VISITS ENTRIES IN TRATBL TIMES 128	F4440260
	00046	0 50000 0 00037	1910	INTOBB	CLA	VISITS COUNT NO. OF BASIC BLOCKS VISITED	F4440270
	00047	0 40200 0 00031	1911		SUB	LA1	F4440280
	00050	−0 12000 0 00160	1912		TMI	READ5 HAVE FINISHED SIMULATION	F4440290
	00051	0 60100 0 00037	1913		STO	VISITS	F4440300
	00052	0 50000 1 02413	1914		CLA	BBTABL,1 GET ADDRESS OF SETS FOR THIS BB	F4440310
	00053	0 76700 0 00022	1915		ALS	18	F4440320
	00054	0 62200 0 00060	1916		STD	1TXL	F4440330
	00055	0 50000 1 02412	1917		CLA	BBTABL−1,1 GET FIRST ADDRESS OF SETS FOR BB	F4440340
	00056	0 73400 2 00000	1918		PAX	0,2	F4440350
	00057	0 50000 2 01063	1919	1CLA	CLA	SETTAB+1,2 LOOK AT ENTRY IN SET TABLE	F4440360
D	00060	−3 00000 2 00065	1920	1TXL	TXL	ON,2 NO MORE SETS	F4440370
	00061	−0 73400 4 00000	1921		PDX	0,4 PUT ADDRESS INTO INDEX	F4440380
	00062	0 76700 0 00022	1922		ALS	18	F4440390
	00063	0 62200 4 00000	1923		STD	0,4 DO THE SET	F4440400
	00064	1 77777 2 00057	1924		TXI	1CLA,2,−1 DO NEXT SET	F4440410
	00065	−0 50000 1 02413	1925	ON	CAL	BBTABL,1	F4440420
	00066	−0 73400 2 00000	1926		PDX	0,2 PUT TRATBL ADDRESS IN INDEX	F4440430
	00067	0 40200 0 00036	1927		SUB	BT2MK	F4440440
	00070	−0 12000 0 00132	1928		TMI	DOWIF CODE IS 000, DO WITH IF	F4440450
	00071	0 40200 0 00036	1929		SUB	BT2MK	F4440460
	00072	−0 12000 0 00122	1930		TMI	MSECSE CODE IS 001--MSE CASE	F4440470
	00073	0 40200 0 00036	1931		SUB	BT2MK	F4440480
	00074	−0 12000 0 00141	1932		TMI	PRBYCS CODE IS 010--PROBABILITY	F4440490
	00075	0 40200 0 00036	1933		SUB	BT2MK	F4440500
	00076	−0 12000 0 00147	1934		TMI	ENTERP CODE IS 011--CERTAINTY	F4440510
	00077	0 40200 0 00036	1935		SUB	BT2MK	F4440520
	00100	−0 12000 0 00140	1936		TMI	TROUT CODE IS 100-- DO NO IF	F4440530
	00101	0 40200 0 00036	1937		SUB	BT2MK	F4440540
	00102	−0 12000 0 00105	1938		TMI	GOTONP CODE IS 101-GO TO N CASE	F4440550
	00103	−0 53400 1 00031	1939	STOPCS	LXD	LA1,1 -10 IS A STOP-GO TO BB ZERO	F4440560
	00104	0 02000 0 00046	1940		TRA	INTOBB	F4440570
	00105	0 50000 2 07773	1941	GOTONP	CLA	TRATBL,2 THIS IS A GO TO N--GET ADDRESS OF	F4440580
	00106	−0 73400 4 00000	1942		PDX	0,4 N-CELL AND PUT IN INDEX	F4440590
	00107	0 50000 1 02412	1943		CLA	BBTABL−1,1 SAVE END OF ENTRY IN TRA TABLE	F4440600
	00110	0 62200 0 00116	1944		STD	TXLN	F4440610
	00111	0 50000 2 07772	1945	CLANT	CLA	TRATBL−1,2 LOOK AT ENTRY IN TRAT	F4440620
	00112	−0 32000 0 00034	1946		ANA	DECMKP AND OUT ALL BUT VALUE FOR N IN TRAT	F4440630
	00113	0 40200 4 01114	1947		SUB	NLIST,4 IS THIS ENTRY FOR CURRENT VALUE	F4440640
	00114	0 10000 0 00147	1948		TZE	ENTERP YES, ENTER	F4440650
	00115	1 00002 2 00116	1949		TXI	TXLN,2,2 NO, LOOK AT NEXT ENTRY IN TRAT	F4440660
D	00116	−3 00000 2 00111	1950	TXLN	TXL	CLANT,2 TEST FOR N NOT SET	F4440670
	00117	−0 50000 1 02413	1951		CAL	BBTABL,1	F4440680
	00120	−0 73400 2 00000	1952		PDX	0,2	F4440690
	00121	0 02000 0 00147	1953		TRA	ENTERP ENTER TRA TO FIRST BRANCH GIVEN	F4440700
	00122	0 50000 2 07773	1954	MSECSE	CLA	TRATBL,2 THIS IS A MSE--GET ADDRESS OF SENSE	F4440710
	00123	−0 73400 4 00000	1955		PDX	0,4 LIGHT CELL AND PUT IN INDEX	F4440720
	00124	0 50000 4 01260	1956		CLA	SNSLT,4 IS LIGHT ON OR OFF	F4440730
	00125	0 10000 0 00131	1957		TZE	MSETXI OFF--TAKE SECOND BRANCH	F4440740
	00126	−0 75400 0 00000	1958		PXD	0,0 ON--TURN OFF, TAKE FIRST BRANCH	F4440750
	00127	0 60100 4 01260	1959		STO	SNSLT,4	F4440760
	00130	0 02000 0 00147	1960		TRA	ENTERP ENTER TRANSFER	F4440770
	00131	1 00002 2 00147	1961	MSETXI	TXI	ENTERP,2,2 ENTER TRANSFER	F4440780
	00132	0 50000 2 07771	1962	DOWIF	CLA	TRATBL−2,2 THIS IS A DO WITH AN IF	F4440790
	00133	0 40000 0 00033	1963		ADD	LD1P ADD ONE T0 LOOP COUNT	F4440800
	00134	0 56000 2 07773	1964		LDQ	TRATBL,2 COMPARE TO NO. OF TIMES IN LOOP	F4440810
	00135	0 04000 0 00140	1965		TLQ	TROUT TRANSFER OUT--LOOP DONE	F4440820
	00136	0 62200 2 07771	1966		STD	TRATBL−2,2 LOOP NOT DONE-STORE NEW COUNT	F4440830
	00137	0 02000 0 00147	1967		TRA	ENTERP TAKE TRANSFER BACK	F4440840
	00140	1 00002 2 00147	1968	TROUT	TXI	ENTERP,2,2 TAKE TRANSFER OUT	F4440850
	00141	0 56000 0 00040	1969	PRBYCS	LDQ	RAND1 THIS IS A PROBABILITY CASE	F4440860
	00142	0 20000 0 00041	1970		MPY	RAND2 GENERATE A RANDOM NUMBER BY	F4440870
	00143	−0 60000 0 00041	1971		STQ	RAND2 MULTIPLIC. AND SAVE THE RESULT	F4440880
	00144	0 50000 2 07773	1972	COMP	CLA	TRATBL,2 COMPARE TO CUMULATIVE PROB IN TRA	F4440890
	00145	0 04000 0 00147	1973		TLQ	ENTERP FOUND, TAKE TRANSFER	F4440900
	00146	1 00002 2 00144	1974		TXI	COMP,2,2 NOT FOUND--LOOK AT NEXT BRANCH	F4440910
	00147	0 50000 2 07772	1975	ENTERP	CLA	TRATBL−1,2 THIS IS THE BRANCH TO BE TAKEN	F4440920
	00150	−0 73400 1 00000	1976		PDX	0,1 PUT NO. OF NEXT BASIC BLOCK IN IR A	F4440930
	00151	0 40000 0 00031	1977		ADD	LA1 ADD 1 TO COUNTER FOR THIS TRANSFER	F4440940
	00152	0 62100 2 07772	1978		STA	TRATBL−1,2 STORE COUNT	F4440950
	00153	0 40200 2 07772	1979		SUB	TRATBL−1,2 TEST FOR OVERFLOW	F4440960
	00154	0 10000 0 00046	1980		TZE	INTOBB NO OVERFLOW, DO NEXT BB	F4440970
	00155	0 50000 0 00035	1981	OVRFLO	CLA	ADMK	F4440980
	00156	0 62100 2 07772	1982		STA	TRATBL−1,2 STORE MAXIMUM COUNT	F4440990
	00157	0 02000 0 00046	1983		TRA	INTOBB	F4441000
	00160	0 76200 0 00221	1984	READ5	RDS	SYSTAP	F4441010
	00161	0 02000 0 00004	1985		TRA	RDFORT	F4441020
			1986				F4441030
			1987				F4441040
			1988			SECTION 4 - PART 5 OF 6	F4450010
			1989				F4450020
			1990			FORTRAN EDITOR INFORMATION	F4450030
			1991			MASTER RECORD CARD = F0710000	F4450040
			1992			ENTRY POINT = 42	F4450050
			1993			FIRST LOCATION = 33	F4450060
			1994			LAST LOCATION = 205	F4450070
			1995				F4450080
			1996				F4450090
		00033	1997		ORG	27	F4450100
			1998			CONSTANTS AND VARIABLES	F4450110
	00033	+000000700000	1999	TGMSK	OCT	700000	F4450120
	00034	+000000777777	2000	RTMSK	OCT	777777	F4450130
	00035	−300000000000	2001	CODMK	OCT	−300000000000	F4450140
	00036	0 00000 0 03270	2002	DOYY		DOADDR	F4450150
	00037	0 00000 0 00000	2003	MPYR1			F4450160
	00040	0 00000 0 00000	2004	MPYR2			F4450170
	00041	0 00000 0 00000	2005	BBBOX			F4450180
			2006				F4450190
			2007			THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM	F4450200
	00042	0 50000 0 00032	2008	RDDOS	CLA	MINUS4 INITIALIZE ERROR BOX	F4450210
	00043	0 60100 0 00030	2009		STO	ERRBX	F4450220
	00044	0 76200 0 00301	2010	RDSDOL	RDS	DODRUM	F4450230
	00045	−0 53400 3 07775	2011		LXD	DOBOX=,3	F4450240
	00046	0 46000 0 00036	2012		LDA	DOYY	F4450250
	00047	−3 00000 1 00204	2013		TXL	READ6,1,0 IF NO DOS-GO TO TAG PASS	F4450260
	00050	0 70000 1 01120	2014		CPY	DOBLOK,1	F4450270
	00051	2 00001 1 00050	2015	SELF32	TIX	SELF32−1,1,1	F4450280
	00052	0 70000 0 00040	2016		CPY	MPYR2	F4450290
T	00053	−0 75400 0 00000	2017		PXD		F4450300
	00054	0 36100 2 01120	2018		ACL	DOBLOK,2	F4450310
	00055	2 00001 2 00054	2019	SELF33	TIX	SELF33−1,2,1	F4450320
	00056	0 60200 0 00037	2020		SLW	MPYR1	F4450330
	00057	0 50000 0 00037	2021		CLA	MPYR1	F4450340
	00060	0 40200 0 00040	2022		SUB	MPYR2	F4450350
	00061	0 10000 0 00070	2023		TZE	FXDOS	F4450360
	00062	0 50000 0 00030	2024		CLA	ERRBX	F4450370
	00063	−0 12000 0 00065	2025	SKIP13	TMI	SKIP13+2 HAVE 5 TRIES AT READING BEEN MADE	F4450380
	00064	0 07400 4 00004	2026		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4450390
	00065	0 40000 0 00031	2027		ADD	LA1 NO, TRY READING AGAIN	F4450400
	00066	0 60100 0 00030	2028		STO	ERRBX	F4450410
	00067	0 02000 0 00044	2029		TRA	RDSDOL	F4450420
			2030				F4450430
			2031			THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS	F4450440
			2032			WITHOUT IFS	F4450450
T	00070	−0 75400 0 00000	2033	FXDOS	PXD		F4450460
	00071	0 60100 2 00443	2034	ZSTO	STO	LCNTR,2	F4450470
	00072	3 00226 2 00074	2035		TXH	ZLXD,2,150 CLEAR L-C0UNTERS TO INITIALIZE	F4450480
	00073	1 00001 2 00071	2036		TXI	ZSTO,2,1	F4450490
	00074	−0 53400 4 00031	2037	ZLXD	LXD	LA1,4 SET INDEX REGISTER--0 IN IR C	F4450500
	00075	0 53400 2 00031	2038		LXA	LA1,2 ONE IN B	F4450510
	00076	0 50000 0 07775	2039		CLA	DOBOX= PUT LENGTH OF TNX TABLE IN 9TSTND	F4450520
	00077	0 62200 0 00203	2040		STD	9TSTND	F4450530
	00100	0 50000 2 01117	2041	LOOKDO	CLA	DOBLOK−1,2 LOOK AT ENTRY IN DO LIST	F4450540
	00101	−0 32000 0 00033	2042		ANA	TGMSK DOES THIS DO HAVE AN IF	F4450550
	00102	1 00002 2 00103	2043	4TXI	TXI	4TXI+1,2,2 SET FOR NEXT ENTRY IN DO LIST	F4450560
	00103	−0 10000 0 00203	2044		TNZ	9TSTND DO HAS IF-LOOK AT NEXT	F4450570
	00104	0 50000 0 00031	2045		CLA	LA1 NO IF-START FIXING COUNTERS	F4450580
	00105	0 60100 4 00443	2046		STO	LCNTR,4 PUT ONE IN COUNTER ZERO	F4450590
	00106	1 00001 4 00107	2047		TXI	4CLA,4,1	F4450600
	00107	0 50000 2 01121	2048	4CLA	CLA	DOBLOK+1,2	F4450610
	00110	0 62200 0 00041	2049		STD	BBBOX STORE NO. OF THIS BB.	F4450620
	00111	0 50000 2 01122	2050		CLA	DOBLOK+2,2	F4450630
	00112	0 62100 4 00443	2051		STA	LCNTR,4 STORE NO. TIMES IN LOOP IN COUNTERS	F4450640
	00113	0 50000 2 01117	2052	NTHRDO	CLA	DOBLOK−1,2 IS THERE ANOTHER TXL TO THIS ADDR.	F4450650
	00114	0 40200 2 01121	2053		SUB	DOBLOK+1,2	F4450660
	00115	−0 10000 0 00126	2054		TNZ	ENDBBQ NO, LOOK AT END OF THIS B.B.	F4450670
	00116	1 00001 4 00117	2055	BEGDO	TXI	CLANO−1,4,1 YES, INCREASE L BOX BY 1	F4450680
	00117	1 00002 2 00120	2056		TXI	CLANO,2,2 SET FOR NEXT ENTRY IN TNX LIST	F4450690
	00120	0 50000 2 01122	2057	CLANO	CLA	DOBLOK+2,2 GET NO. OF TIMES IN THIS DO	F4450700
	00121	0 62100 4 00443	2058		STA	LCNTR,4 4	F4450710
	00122	0 56000 4 00443	2059		LDQ	LCNTR,4 MULTIPLY NO OF TIMES IN THIS D0	F4450720
	00123	0 20000 4 00444	2060		MPY	LCNTR+1,4 BY NO. OF TIMES IN OUTER DOS	F4450730
	00124	−0 60000 4 00443	2061		STQ	LCNTR,4 STORE IN COUNTER FOR THIS DO	F4450740
	00125	0 02000 0 00113	2062		TRA	NTHRDO SEE IF THERE IS ANOTHER TNX TO THIS	F4450750
	00126	−0 53400 1 00041	2063	ENDBBQ	LXD	BBBOX,1 THIS IS END 0F BB IN DO WITHOUT IF	F4450760
	00127	0 50000 1 02413	2064		CLA	BBTABL,1 LOOK AT ENTRY ON BB TABLE	F4450770
	00130	−0 73400 1 00000	2065		PDX	0,1 GET ADDRESS IN TRA TABLE	F4450780
	00131	−0 32000 0 00035	2066		ANA	CODMK LOOK AT ENDING CODE	F4450790
	00132	0 10000 0 00155	2067		TZE	ENDDO ZERO INDICATES DO ENDING	F4450800
	00133	0 50000 1 07772	2068		CLA	TRATBL−1,1 A CERTAINTY CASE--LOOK AT TRATBL	F4450810
	00134	−0 32000 0 00034	2069		ANA	RTMSK GET COUNTER FROM TRA TABLE	F4450820
	00135	0 60100 0 00037	2070		STO	MPYR1	F4450830
	00136	0 56000 0 00037	2071		LDQ	MPYR1 MULTIPLY C0UNTER BY NUMBER OF TIMES	F4450840
	00137	0 20000 4 00443	2072		MPY	LCNTR,4 THIS LOOP IS DONE	F4450850
	00140	−0 60000 0 00037	2073		STQ	MPYR1	F4450860
	00141	0 50000 0 00037	2074		CLA	MPYR1	F4450870
	00142	0 34000 0 00034	2075		CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4450880
	00143	0 50000 0 00034	2076		CLA	RTMSK COUNTER HAS OVERFLOWED	F4450890
	00144	0 76100 0 00000	2077		NOP	NO OVERFLOW	F4450900
	00145	0 62100 1 07772	2078		STA	TRATBL−1,1 PUT ALL ONES IN C0UNTER	F4450910
	00146	−0 53400 1 00041	2079	6LXD	LXD	BBBOX,1	F4450920
	00147	1 00001 1 00150	2080		TXI	NXTBB,1,1 SET FOR NEXT BB--DOES IT BEGIN A DO	F4450930
	00150	−0 75400 1 00000	2081	NXTBB	PXD	0,1 LOOK AT NEXT BB	F4450940
	00151	0 62200 0 00041	2082		STD	BBBOX DOES THIS BB START A DO	F4450950
	00152	0 40200 2 01117	2083		SUB	DOBLOK−1,2 COMPARE TO DO LIST	F4450960
	00153	0 10000 0 00116	2084		TZE	BEGDO	F4450970
	00154	0 02000 0 00126	2085		TRA	ENDBBQ	F4450980
	00155	0 50000 1 07770	2086	ENDDO	CLA	TRATBL−3,1 THIS IS THE END 0F A DO WITHOUT IF	F4450990
	00156	−0 32000 0 00034	2087		ANA	RTMSK	F4451000
	00157	0 60100 0 00037	2088		STO	MPYR1	F4451010
	00160	0 56000 0 00037	2089		LDQ	MPYR1 MULTIPLY COUNTER BY TOTAL NO OF	F4451020
	00161	0 20000 4 00443	2090		MPY	LCNTR,4 TIMES IN LOOP	F4451030
	00162	−0 60000 0 00040	2091		STQ	MPYR2 STORE NO IN MPYR2	F4451040
	00163	0 56000 0 00037	2092		LDQ	MPYR1 MULTIPLY COUNTER BY NO TIME DO IS	F4451050
	00164	0 20000 4 00444	2093		MPY	LCNTR+1,4 STARTED TO GET COUNTER OUT	F4451060
	00165	−0 60000 0 00037	2094		STQ	MPYR1	F4451070
	00166	0 50000 0 00037	2095		CLA	MPYR1	F4451080
	00167	0 34000 0 00034	2096		CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4451090
	00170	0 50000 0 00034	2097		CLA	RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.	F4451100
	00171	0 76100 0 00000	2098		NOP	NO OVERFLOW	F4451110
	00172	0 62100 1 07770	2099		STA	TRATBL−3,1 STORE NO TIMES OUT IN COUNTER OUT	F4451120
	00173	0 50200 0 00037	2100		CLS	MPYR1	F4451130
	00174	0 40000 0 00040	2101		ADD	MPYR2	F4451140
	00175	0 34000 0 00034	2102		CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4451150
	00176	0 50000 0 00034	2103		CLA	RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.	F4451160
	00177	0 76100 0 00000	2104		NOP	NO OVERFLOW	F4451170
	00200	0 62100 1 07772	2105		STA	TRATBL−1,1 STORE NO TIMES BACK IN COUNT. BACK	F4451180
	00201	1 77777 4 00202	2106		TXI	9TXL,4,−1 DECREASE LEVEL COUNTER FOR DO DONE	F4451190
	00202	3 00000 4 00146	2107	9TXL	TXH	6LXD,4,0 IS THIS THE END OF OUTER DO	F4451200
D	00203	−3 00000 2 00100	2108	9TSTND	TXL	LOOKDO,2 YES, IS IT END OF PROBLEM	F4451210
	00204	0 76200 0 00221	2109	READ6	RDS	SYSTAP	F4451220
	00205	0 02000 0 00004	2110		TRA	RDFORT YES, GO TO NEXT ROUTINE	F4451230
			2111				F4451240
			2112				F4451250
			2113			SECTION 4 - PART 6 OF 6	F4460010
			2114				F4460020
			2115			FORTRAN EDITOR INFORMATION	F4460030
			2116			MASTER RECORD CARD = F0730000	F4460040
			2117			ENTRY POINT = 100	F4460050
			2118			FIRST LOCATION = 33	F4460060
			2119			LAST LOCATION = 1021	F4460070
			2120				F4460080
			2121				F4460090
		00033	2122		ORG	27	F4460100
			2123			CONSTANTS AND VARIABLES	F4460110
	00033	0 00000 0 00000	2124	LOR			F4460120
	00034	0 00000 0 77777	2125	LC1		−1	F4460130
	00035	0 00000 0 00005	2126	L5		5	F4460140
	00036	0 00000 0 00006	2127	L6R		6	F4460150
	00037	0 00000 0 00010	2128	L8		8	F4460160
	00040	0 00000 0 03773	2129	L2043		2043	F4460170
	00041	0 00000 0 03777	2130	L2047		2047	F4460180
	00042	0 00000 0 04000	2131	L2048		2048	F4460190
	00043	0 00001 0 00000	2132	LD1R		0,0,1	F4460200
	00044	+000000777770	2133	STMSK	OCT	777770	F4460210
	00045	+000000777777	2134	TAGMK	OCT	777777	F4460220
	00046	+000033000000	2135	TMARK	OCT	33000000	F4460230
	00047	+077777000000	2136	DECMKR	OCT	77777000000	F4460240
	00050	+037777037777	2137	MASK	OCT	37777037777	F4460250
	00051	+377770000000	2138	14ONES	OCT	377770000000	F4460260
	00052	0 00017 0 00000	2139	LZTAG		0,0,ZTAG	F4460270
			2140			OPERATION CODES OF TYPES OF REFERENCES	F4460280
	00053	+036721000000	2141		OCT	36721000000 LXA	F4460290
	00054	+036731000000	2142		OCT	36731000000 TXI	F4460300
	00055	+033167000000	2143		OCT	33167000000 TIX	F4460310
	00056	+036747000000	2144		OCT	36747000000 LXP	F4460320
	00057	+042524000000	2145		OCT	42524000000 DED	F4460330
	00060	+036724000000	2146		OCT	36724000000 LXD	F4460340
	00061	+072167000000	2147		OCT	72167000000 PAX	F4460350
	00062	+072467000000	2148	LCOPS	OCT	72467000000 PDX	F4460360
	00063	0 00000 0 02260	2149	BBLYR		BBLADD	F4460370
	00064	0 00000 0 00000	2150	BBTY			F4460380
	00065	0 76600 0 00301	2151	LA301	WDR	1	F4460390
	00066	0 02000 0 00575	2152	LTRND	TRA	NDDR	F4460400
	00067	0 00000 0 00000	2153	ERAS1R			F4460410
	00070	0 00000 0 00000	2154	ERAS2R			F4460420
	00071	0 00000 0 00001	2155	IINBX		1	F4460430
	00072	0 00000 0 00000	2156	INSX			F4460440
	00073	−0 00001 0 00000	2157	TGPBOX	MZE	0,0,1	F4460450
	00074	0 00114 0 00000	2158	BLKNO		0,0,76	F4460460
	00075	0 00000 0 00000	2159	BLKSIZ		LENGTH OF BLOCK TO BE STORED	F4460470
	00076	0 00000 0 00000	2160	LENGTH		TOTAL LENGTH OF TABLE LEFT TO STORE	F4460480
	00077	0 00674 0 00000	2161	BLKMAX		0,0,BBSIZE	F4460490
			2162				F4460500
			2163			THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT	F4460510
			2164			ON THE DRUM.	F4460520
	00100	0 77200 0 00224	2165	START	REW	INSTTP	F4460530
	00101	0 50000 0 07777	2166		CLA	TTBOX=	F4460540
	00102	−0 73400 1 00000	2167		PDX	0,1 PUT LENGTH OF TABLE IN INDEX	F4460550
	00103	3 00000 1 00111	2168		TXH	ISPRED,1,0	F4460560
	00104	0 60100 0 07776	2169	NOPRED	STO	PREDBX	F4460570
	00105	0 60100 0 07775	2170		STO	SUCCBX THERE IS NO PRED TABLE-SPACE OVER	F4460660
	00106	0 62100 0 02412	2171		STA	BBTABL−1	F4460590
	00107	0 62100 0 02413	2172		STA	BBTABL	F4460600
	00110	0 02000 0 00234	2173		TRA	RDBBL	F4460610
	00111	0 77100 0 00023	2174	ISPRED	ARS	19	F4460620
	00112	0 62100 0 00126	2175		STA	TSX+1 STORE LENGTH FOR PUTTING SUCCESSOR	F4460630
	00113	0 62100 0 00217	2176		STA	TSX2+1 AND PREDECESSOR TABLES ON DRUM	F4460640
	00114	0 56000 1 07774	2177	1LDQ	LDQ	PRED+1,1 MOVE SUCCESSOR ADDRESS FROM DECR.	F4460650
	00115	0 50000 1 07774	2178		CLA	PRED+1,1 TO ADDRESS PART OF ENTRY WORD	F4460660
	00116	0 76700 0 00003	2179		ALS	3 AND COUNTER FROM ADDRESS TO	F4460670
	00117	−0 76300 0 00022	2180		LGL	18 BITS 1-14	F4460680
	00120	−0 76000 0 00001	2181		PBT	TEST FOR OVERFLOW	F4460690
	00121	0 02000 0 00123	2182		TRA	1STO NO OVERFLOW	F4460700
	00122	−0 50100 0 00051	2183		ORA	14ONES OVERFLOW-ENTER HIGHEST POSSIBLE NO	F4460710
	00123	0 60100 1 07775	2184	1STO	STO	PRED+2,1 STORE SHIFTED ENTRY	F4460720
	00124	2 00002 1 00114	2185		TIX	1LDQ,1,2 DO NEXT ENTRY	F4460730
	00125	0 07400 4 00633	2186	TSX	TSX	DRUM.J,4	F4460740
A	00126	0 00000 0 00000	2187		HTR	NUMBER OF ENTRIES ON TABLE	F4460750
	00127	0 00000 0 07773	2188		HTR	PRED CORE MEMORY ADDRESS OF LAST WORD	F4460760
	00130	0 00000 0 00000	2189		HTR	0 DRUM ADDRESS AUTOMATICALLY SET FOR	F4460770
			2190			NEXT TRY	F4460780
	00131	0 50000 0 00130	2191		CLA	TSX+3	F4460790
	00132	0 60100 0 00221	2192		STO	TSX2+3	F4460800
	00133	0 60100 0 07775	2193		STO	SUCCBX	F4460810
			2194				F4460820
			2195			THIS PUTS THE BASIC BLOCK NUMBER OF THE PREDECESSOR IN THE	F4460830
			2196			TRA TABLE	F4460840
	00134	0 50000 0 07774	2197		CLA	BBOX.=	F4460850
	00135	0 40200 0 00043	2198		SUB	LD1R	F4460860
	00136	0 62200 0 00151	2199		STD	NBOXR	F4460870
	00137	0 53400 2 00033	2200		LXA	LOR,2	F4460880
	00140	−0 53400 1 00043	2201		LXD	LD1R,1 ONE INTO INDEX A	F4460890
	00141	0 50000 2 02412	2202	CLABB	CLA	BBTABL−1,2 GET ADDRESS IN TRA TABLE	F4460900
	00142	0 62200 0 00145	2203		STD	TXBB	F4460910
	00143	−0 75400 2 00000	2204		PXD	0,2 PUT PRED NO IN TRA ENTRY	F4460920
	00144	0 77100 0 00022	2205		ARS	18	F4460930
D	00145	3 00000 1 00150	2206	TXBB	TXH	NBOXR−1,1 TEST FOR END 0F TABLE	F4460940
	00146	0 62100 1 07774	2207	1STD	STA	PRED+1,1	F4460950
	00147	1 00002 1 00145	2208		TXI	TXBB,1,2 SET FOR NEXT TRA	F4460960
	00150	1 00001 2 00151	2209		TXI	NBOXR,2,1 SET FOR NEXT BASIC BLOCK	F4460970
D	00151	−3 00000 2 00141	2210	NBOXR	TXL	CLABB,2 TEST FOR LAST BB	F4460980
			2211				F4460990
			2212			THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE	F4461000
			2213			PREDECESSOR TABLE	F4461010
	00152	1 77775 1 00153	2214	2TXI	TXI	2TXI+1,1,−3 LAST ADDRESS IN PRED INTO I R A	F4461020
	00153	−3 00000 1 00177	2215		TXL	PRDBB,1,0 TEST FOR ONLY ONE ENTRY IN PRED	F4461030
	00154	−0 75400 1 00000	2216	LXABB	PXD	0,1	F4461040
	00155	−0 73400 2 00000	2217		PDX	0,2	F4461050
	00156	0 50000 1 07772	2218		CLA	PRED−1,1 TAKE ENTRIES FOR COMPARISON	F4461060
	00157	0 56000 1 07773	2219		LDQ	PRED,1 FIND LARGEST ELEMENT LEFT IN TABLE	F4461070
	00160	0 34000 2 07774	2220	2CAS	CAS	PRED+1,2	F4461080
	00161	0 02000 0 00173	2221		TRA	2TIX	F4461090
	00162	0 02000 0 00173	2222		TRA	2TIX	F4461100
	00163	−0 60000 0 00067	2223		STQ	ERAS1R	F4461110
	00164	0 56000 2 07774	2224		LDQ	PRED+1,2 EXCHANGE ENTRIES-- STORAGE IS GREAT	F4461120
	00165	0 60100 2 07774	2225		STO	PRED+1,2	F4461130
	00166	0 50000 0 00067	2226		CLA	ERAS1R	F4461140
	00167	−0 60000 0 00067	2227		STQ	ERAS1R	F4461150
	00170	0 56000 2 07775	2228		LDQ	PRED+2,2	F4461160
	00171	0 60100 2 07775	2229		STO	PRED+2,2	F4461170
	00172	0 50000 0 00067	2230		CLA	ERAS1R	F4461180
	00173	2 00002 2 00160	2231	2TIX	TIX	2CAS,2,2 TEST FOR END OF TABLE	F4461190
	00174	0 60100 1 07772	2232		STO	PRED−1,1 THIS IS LARGEST ENTRY NOT SORTED	F4461200
	00175	−0 60000 1 07773	2233		STQ	PRED,1 YET, STORE AND CONTINUE SORT	F4461210
	00176	2 00002 1 00154	2234		TIX	LXABB,1,2 HAS ENTIRE TABLE BEEN SORTED YET	F4461220
			2235				F4461230
			2236			THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE	F4461240
			2237			INTO THE BASIC BLOCK TABLE	F4461250
	00177	−0 53400 2 07774	2238	PRDBB	LXD	BBOX.=,2 PUT LAST BB ADDRESS INTO IR B	F4461260
	00200	−0 53400 5 07777	2239		LXD	TTBOX=,5 PUT LAST PRED ADDRESS INTO A AND C	F4461270
	00201	−0 75400 4 00000	2240	3PXD	PXD	0,4 NEW BB	F4461280
	00202	0 77100 0 00022	2241		ARS	18	F4461290
	00203	0 62100 2 02413	2242		STA	BBTABL,2 PUT PRED ADDR IN BB TABLE	F4461300
	00204	1 77776 4 00205	2243	3TXI	TXI	3TXI+1,4,−2 SET FOR NEXT ENTRY IN BB TABLE	F4461310
	00205	−2 00001 2 00214	2244		TNX	3ENO,2,1 IS THIS THE END OF THE TABLE	F4461320
	00206	−0 75400 2 00000	2245		PXD	0,2 PUT NEW BB NO IN AC FOR COMPARISON	F4461330
	00207	0 34000 4 07774	2246	CAS	CAS	PRED+1,4 COMPARE BB NO IN PRED TABLE TO BB	F4461340
	00210	0 02000 0 00201	2247		TRA	3PXD NO IN AC	F4461350
	00211	0 76100 0 00000	2248		NOP	EQUALITY NOT POSSIBLE	F4461360
	00212	2 00002 4 00207	2249		TIX	CAS,4,2	F4461370
	00213	0 62100 0 02412	2250		STA	BBTABL−1 PUT ZERO AS PRED FOR BB1	F4461380
	00214	−0 75400 0 00000	2251	3ENO	PXD	0,0 PUT ZERO AS PRED ADDR INTO TABLE	F4461390
	00215	0 62100 0 02413	2252		STA	BBTABL FOR BB ZERO	F4461400
	00216	0 07400 4 00633	2253	TSX2	TSX	DRUM.J,4 PUT PRED TABLE ON DRUM	F4461410
A	00217	0 00000 0 00000	2254		HTR		F4461420
	00220	0 00000 0 07773	2255		HTR	PRED CORE MEMORY ADDRESS OF LAST WORD	F4461430
A	00221	0 00000 0 00000	2256		HTR	--DRUM ADDRESS	F4461440
	00222	0 50000 0 00221	2257		CLA	TSX2+3	F4461450
	00223	0 60100 0 07776	2258		STO	PREDBX SAVE DRUM ADDRESS	F4461460
			2259				F4461470
			2260			THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO	F4461480
			2261			CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND	F4461490
			2262			SUCCESSOR TABLES	F4461500
	00224	−0 53400 2 07774	2263	SHFTBB	LXD	BBOX.=,2 SET INDEX	F4461510
	00225	1 00001 2 00226	2264		TXI	CAL4,2,1	F4461520
	00226	−0 50000 2 02414	2265	CAL4	CAL	BBTABL+1,2	F4461530
	00227	−0 32000 0 00050	2266		ANA	MASK	F4461540
	00230	0 77100 0 00001	2267		ARS	1 ,	F4461550
	00231	0 62200 2 02414	2268		STD	BBTABL+1,2	F4461560
	00232	0 62100 2 02414	2269		STA	BBTABL+1,2	F4461570
	00233	2 00001 2 00226	2270		TIX	CAL4,2,1	F4461580
			2271				F4461590
			2272			THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM	F4461600
	00234	0 50000 0 00032	2273	RDBBL	CLA	MINUS4 INITIALIZE ERROR BOX	F4461610
	00235	0 02000 0 00260	2274		TRA	SKIP14+3	F4461620
	00236	0 76200 0 00303	2275	BRDS	RDS	BBLDRM	F4461630
	00237	0 46000 0 00063	2276		LDA	BBLYR	F4461640
	00240	−0 53400 3 07774	2277		LXD	BBOX.=,3	F4461650
	00241	0 70000 1 07773	2278	BCPY	CPY	BBLIST,1	F4461660
	00242	2 00001 1 00241	2279		TIX	BCPY,1,1	F4461670
	00243	0 70000 0 07773	2280		CPY	BBLIST	F4461680
	00244	0 70000 0 00067	2281		CPY	ERAS1R	F4461690
	00245	0 36100 2 07773	2282	BACL	ACL	BBLIST,2	F4461700
	00246	2 00001 2 00245	2283		TIX	BACL,2,1	F4461710
	00247	0 36100 0 07773	2284		ACL	BBLIST	F4461720
	00250	0 60200 0 00070	2285		SLW	ERAS2R	F4461730
	00251	0 50000 0 00070	2286		CLA	ERAS2R	F4461740
	00252	0 40200 0 00067	2287		SUB	ERAS1R	F4461750
	00253	0 10000 0 00263	2288		TZE	TAGPAS	F4461760
	00254	0 50000 0 00030	2289		CLA	ERRBX	F4461770
	00255	−0 12000 0 00257	2290	SKIP14	TMI	SKIP14+2 HAVE 5 TRIES AT READING BEEN MADE	F4461780
	00256	0 07400 4 00004	2291		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4461790
	00257	0 40000 0 00031	2292		ADD	LA1 NO, TRY READING AGAIN	F4461800
	00260	0 60100 0 00030	2293		STO	ERRBX	F4461810
T	00261	−0 75400 0 00000	2294		PXD		F4461820
	00262	0 02000 0 00236	2295		TRA	BRDS	F4461830
			2296				F4461840
			2297			THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS	F4461850
	00263	0 53400 2 00033	2298	TAGPAS	LXA	LOR,2 INITIALIZE INDEX REGISTERS	F4461860
	00264	0 53400 4 00031	2299		LXA	LA1,4	F4461870
	00265	0 50000 0 00032	2300	RDINSR	CLA	MINUS4 INITIALIZE ERROR BOX	F4461880
	00266	0 60100 0 00030	2301		STO	ERRBX	F4461890
	00267	0 53400 1 00045	2302		LXA	TAGMK,1	F4461900
	00270	0 76200 0 00224	2303	RDSIN	RDS	INSTTP	F4461910
	00271	0 70000 1 06457	2304	CPYN	CPY	INSTR−1,1 COPY BLOCK	F4461920
	00272	1 00001 1 00271	2305		TXI	CPYN,1,1	F4461930
	00273	0 02000 0 00375	2306		TRA	OUTR END OF FILE-EXIT	F4461940
	00274	−0 76000 0 00012	2307	ENDRC	RTT		F4461950
	00275	0 02000 0 00301	2308		TRA	ERRORR	F4461960
	00276	−0 63400 1 00363	2309	1ALXD	SXD	LZINS,1 STORE LENGTH OF RECORD TO COMPARE	F4461970
	00277	0 53400 1 00033	2310		LXA	LOR,1 CONTINUE TAG PASS	F4461980
	00300	0 02000 0 00364	2311		TRA	LZINS+1	F4461990
	00301	0 50000 0 00030	2312	ERRORR	CLA	ERRBX	F4462000
	00302	−0 12000 0 00304	2313	SKIP15	TMI	SKIP15+2 HAVE 5 TRIES AT READING BEEN MADE	F4462010
	00303	0 07400 4 00004	2314		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4462020
	00304	0 40000 0 00031	2315		ADD	LA1 NO, TRY READING AGAIN	F4462030
	00305	0 60100 0 00030	2316		STO	ERRBX	F4462040
	00306	0 76400 0 00224	2317		BST	INSTTP	F4462050
	00307	0 02000 0 00267	2318		TRA	RDSIN−1 TRY AGAIN TO READ IN RECORD.	F4462060
	00310	−0 75400 4 00000	2319	INTBB	PXD	0,4 PUT TAG ADDR IN BB LIST	F4462070
	00311	0 40000 0 00073	2320		ADD	TGPBOX	F4462080
	00312	0 77100 0 00022	2321		ARS	18	F4462090
	00313	−0 50100 0 00046	2322		ORA	TMARK	F4462100
	00314	0 60100 2 06314	2323		STO	BBTAGS,2	F4462110
	00315	1 00001 2 00316	2324	BGTXI	TXI	BGTXI+1,2,1	F4462120
	00316	−0 50000 1 06455	2325		CAL	INST.R−3,1 IS THIS THE INSTRUCTION TAGGED	F4462130
	00317	−0 32000 0 00044	2326		ANA	STMSK	F4462140
	00320	0 10000 0 00362	2327		TZE	TXINS NO	F4462150
	00321	0 50000 1 06455	2328		CLA	INST.R−3,1 YES,	F4462160
	00322	−0 32000 0 00045	2329		ANA	TAGMK	F4462170
	00323	−0 76000 0 00003	2330		SSM	AND A MINUS FOR 1ST INST IN A BASIC	F4462180
	00324	0 60100 4 06500	2331		STO	TAG,4 BLOCK INTO TAG LIST	F4462190
	00325	−0 63400 2 00067	2332	TSTOP	SXD	ERAS1R,2 SAVE INDEX	F4462200
	00326	0 53400 2 00037	2333		LXA	L8,2 SET FOR A COMPARISON	F4462210
	00327	0 50000 1 06457	2334		CLA	INST.R−1,1 COMPARE OP CODE OF INSTRUCTION	F4462220
	00330	−0 32000 0 00047	2335		ANA	DECMKR	F4462230
	00331	0 40200 2 00063	2336	SUB	SUB	LCOPS+1,2 OP CODES OF TYPES 0F TAGGED INSTRS	F4462240
	00332	0 10000 2 00346	2337		TZE	TROPS+1,2 TRANSFER WHEN FOUND	F4462250
	00333	0 40000 2 00063	2338		ADD	LCOPS+1,2 RESTORE ORIGINAL CODE TO AC	F4462260
	00334	2 00001 2 00331	2339		TIX	SUB,2,1 TRY NEXT COMPARISON	F4462270
	00335	1 00005 2 00346	2340	LD5	TXI	STOCD,2,5 NOT FOUND-IS PASSIVE -WANT 6 IN IRB	F4462280
			2341			GET CODE FOR TYPE OF INSTRUCTION INTO INDEX	F4462290
	00336	1 77771 2 00346	2342		TXI	STOCD,2,−7 LXA--INDEX HAS 8, WANT 1	F4462300
	00337	1 77776 2 00346	2343		TXI	STOCD,2,−2 TXI--INDEX HAS 7, WANT 5	F4462310
	00340	1 77777 2 00346	2344		TXI	STOCD,2,−1 TIX--INDEX HAS 6, WANT 5	F4462320
	00341	1 77775 2 00346	2345		TXI	STOCD,2,−3 LXP--INDEX HAS 5, WANT 2	F4462330
	00342	1 77777 2 00346	2346		TXI	STOCD,2,−1 DED--INDEX HAS 4, WANT 3	F4462340
	00343	1 77776 2 00346	2347		TXI	STOCD,2,−2 LXD--INDEX HAS 3, WANT 1	F4462350
	00344	1 77777 2 00346	2348		TXI	STOCD,2,−1 PAX--INDEX HAS 2, WANT 1	F4462360
	00345	0 02000 0 00346	2349	TROPS	TRA	STOCD PDX--INDEX HAS 1, WANT 1	F4462370
	00346	−0 75400 2 00000	2350	STOCD	PXD	0,2 STORE CODE FOR TYPE OF OPERATION IN	F4462380
	00347	0 62200 4 06500	2351		STD	TAG,4 TAG LIST	F4462390
	00350	−0 53400 2 00067	2352		LXD	ERAS1R,2	F4462400
	00351	1 00001 4 00352	2353		TXI	TSTTG,4,1 SET FOR NEXT WORD IN TAG LIST	F4462410
	00352	−2 00017 4 00362	2354	TSTTG	TNX	TXINS,4,ZTAG TEST FOR END OF BLOCK	F4462420
	00353	0 76600 0 00223	2355	WRTAG	WRS	TAGTAP END OF BLOCK--WRITE ON TAPE	F4462430
	00354	0 70000 4 06500	2356	TGCPY	CPY	TAG,4	F4462440
	00355	1 00001 4 00356	2357	TGTXI	TXI	TGTXI+1,4,1	F4462450
	00356	−2 00017 4 00354	2358		TNX	TGCPY,4,ZTAG	F4462460
	00357	0 50000 0 00073	2359		CLA	TGPBOX	F4462470
	00360	0 40000 0 00052	2360		ADD	LZTAG	F4462480
	00361	0 60100 0 00073	2361	TGSTO	STO	TGPBOX	F4462490
	00362	1 00004 1 00363	2362	TXINS	TXI	TXINS+1,1,4	F4462500
	00363	2 00144 1 00265	2363	LZINS	TIX	RDINSR,1,ZINSTR	F4462510
	00364	0 50000 1 06460	2364		CLA	INSTR,1 IS THIS THE BEG OF A BASIC BLOCK	F4462520
	00365	0 40200 2 07773	2365		SUB	BBLIST,2	F4462530
	00366	0 10000 0 00310	2366		TZE	INTBB YES	F4462540
	00367	0 50000 1 06455	2367		CLA	INST.R−3,1 NO, IS IT TAGGED	F4462550
	00370	−0 32000 0 00044	2368		ANA	STMSK	F4462560
	00371	0 10000 0 00362	2369		TZE	TXINS NO	F4462570
	00372	0 50000 1 06455	2370		CLA	INST.R−3,1 YES	F4462580
	00373	−0 32000 0 00045	2371		ANA	TAGMK	F4462590
	00374	0 02000 0 00324	2372		TRA	TSTOP−1	F4462600
	00375	−0 75400 4 00000	2373	OUTR	PXD	0,4	F4462610
	00376	0 40000 0 00073	2374		ADD	TGPBOX	F4462620
	00377	0 77100 0 00022	2375		ARS	18	F4462630
	00400	−0 50100 0 00046	2376		ORA	TMARK	F4462640
	00401	0 60100 2 06314	2377		STO	BBTAGS,2	F4462650
	00402	3 00001 4 00405	2378		TXH	WRTG2,4,1	F4462660
	00403	0 50000 0 00073	2379		CLA	TGPBOX	F4462670
	00404	0 12000 0 00411	2380	TPL	TPL	FINAL	F4462680
	00405	0 50000 0 00404	2381	WRTG2	CLA	TPL	F4462690
	00406	0 60100 0 00361	2382		STO	TGSTO	F4462700
	00407	0 53400 4 00031	2383		LXA	LA1,4	F4462710
	00410	0 02000 0 00353	2384		TRA	WRTAG	F4462720
	00411	0 50000 0 07774	2385	FINAL	CLA	BBOX.=	F4462730
	00412	0 40000 0 00043	2386		ADD	LD1R	F4462740
	00413	0 60100 0 07774	2387		STO	BBOX.=	F4462750
	00414	0 50000 0 07776	2388		CLA	PREDBX	F4462760
	00415	0 60100 0 07777	2389		STO	BBTBOX	F4462770
	00416	0 50000 0 00047	2390		CLA	DECMKR WANT TXL TO HAVE BLK-1	F4462780
	00417	0 62200 0 00545	2391		STD	TXLBBT LATER	F4462790
	00420	0 76600 0 00333	2392		IOD		F4462800
	00421	0 56000 0 00077	2393		LDQ	BLKMAX COMPUTE NO. OF BB IN BLOCK	F4462810
T	00422	−0 75400 0 00000	2394		PXD		F4462820
	00423	0 22100 0 00036	2395		DVP	L6R	F4462830
	00424	0 76000 0 00012	2396		DCT		F4462840
	00425	0 07400 4 00004	2397		TSX	RDFORT,4 BAD DIVIDE	F4462850
	00426	−0 60000 0 00074	2398		STQ	BLKNO	F4462860
	00427	0 56000 0 07774	2399		LDQ	BBOX.=	F4462870
	00430	0 20000 0 00036	2400		MPY	L6R	F4462880
	00431	−0 60000 0 00076	2401		STQ	LENGTH STORE TOTAL LNGTH OF TABLE FOR DRUM	F4462890
	00432	−0 53400 1 00031	2402		LXD	LA1,1	F4462900
	00433	0 50000 0 07777	2403	NXTBL	CLA	BBTBOX COMPUTE WRS ADDRESSES	F4462910
	00434	−0 32000 0 00041	2404		ANA	L2047	F4462920
	00435	0 62100 0 00064	2405		STA	BBTY STORE DRUM ADDRESSES	F4462930
	00436	0 50000 0 07777	2406		CLA	BBTBOX	F4462940
	00437	0 77100 0 00013	2407		ARS	11	F4462950
	00440	0 40000 0 00065	2408		ADD	LA301	F4462960
	00441	0 62100 0 00525	2409		STA	WRS1	F4462970
	00442	0 40000 0 00031	2410		ADD	LA1	F4462980
	00443	0 62100 0 00576	2411		STA	NDWRS	F4462990
	00444	0 50000 0 00076	2412		CLA	LENGTH	F4463000
	00445	0 10000 0 00606	2413		TZE	OUT2	F4463010
	00446	−0 12000 0 00606	2414		TMI	OUT2 FORM NEW TABLE LENGTH	F4463020
	00447	0 40200 0 00077	2415		SUB	BLKMAX	F4463030
	00450	0 60100 0 00076	2416		STO	LENGTH IS THIS A FULL BLOCK	F4463040
	00451	−0 12000 0 00453	2417		TMI	LSTBLR NO, PUT IN ACTUAL LENGTH	F4463050
T	00452	−0 75400 0 00000	2418		PXD	YES, PUT IN FULL BLOCK LENGTH	F4463060
	00453	0 40000 0 00077	2419	LSTBLR	ADD	BLKMAX FORM NEXT DRUM ADDRESS	F4463070
	00454	0 77100 0 00022	2420		ARS	18	F4463080
	00455	0 40000 0 07777	2421		ADD	BBTBOX	F4463090
	00456	0 40000 0 00031	2422		ADD	LA1	F4463100
	00457	0 60100 0 07777	2423		STO	BBTBOX	F4463110
	00460	0 53400 4 00071	2424		LXA	IINBX,4 RESTORE INSTRUCTION REPLACED FOR	F4463120
	00461	0 50000 0 00072	2425		CLA	INSX END OF PREVIOUS BLOCK	F4463130
	00462	0 60100 4 00555	2426		STO	CPY1A,4	F4463140
	00463	−0 50000 0 00545	2427		CAL	TXLBBT COMPUTE NEW TEST DECREMENTS FOR	F4463150
	00464	0 40000 0 00074	2428		ADD	BLKNO TESTING END OF BLOCK--THE VALUE	F4463160
	00465	0 62200 0 00545	2429		STD	TXLBBT IS THE NUMBER OF THE LAST BASIC	F4463170
	00466	0 62200 0 00551	2430		STD	TXL2 BLOCK WHICH WILL FIT IN THIS BLK	F4463180
	00467	0 62200 0 00570	2431		STD	TXL3	F4463190
	00470	−0 32000 0 00047	2432		ANA	DECMKR	F4463200
	00471	0 40000 0 00043	2433		ADD	LD1R IS THIS LARGER THAN THE NUMBER OF	F4463210
	00472	0 40200 0 07774	2434		SUB	BBOX.= THE LAST BASIC BLOCK	F4463220
	00473	−0 12000 0 00501	2435		TMI	COMB NO	F4463230
	00474	0 50000 0 07774	2436		CLA	BBOX.= YES, TEST DECREMENT SHOULD BE	F4463240
	00475	0 40200 0 00043	2437		SUB	LD1R NUMBER OF LAST BB INSTEAD	F4463250
	00476	0 62200 0 00545	2438		STD	TXLBBT	F4463260
	00477	0 62200 0 00551	2439		STD	TXL2	F4463270
	00500	0 62200 0 00570	2440		STD	TXL3	F4463280
	00501	0 50000 0 00041	2441	COMB	CLA	L2047	F4463290
	00502	0 40200 0 00064	2442		SUB	BBTY SET B FOR TEST FOR END OF DRUM	F4463300
	00503	0 73400 2 00000	2443		PAX	0,2 NUMBER OF WORDS LEFT ON DRUM INTO B	F4463310
	00504	0 40000 0 00031	2444		ADD	LA1	F4463320
	00505	0 76500 0 00043	2445		LRS	35 ARRANGE CONNECTION TO 2ND LOOP	F4463330
	00506	0 22100 0 00036	2446		DVP	L6R FIND OUT WHICH OF THE 6 WORDS IN	F4463340
			2447			AN ENTRY WILL OCCUPY THE LAST	F4463350
			2448			POSITION ON THE DRUM	F4463360
	00507	0 76000 0 00012	2449		DCT		F4463370
	00510	0 07400 4 00004	2450		TSX	RDFORT,4 BAD DIVIDE	F4463380
	00511	0 40200 0 00031	2451		SUB	LA1	F4463390
	00512	−0 12000 0 00604	2452		TMI	ZREM BREAK IS BETWEEN ENTRIES (PUT 5	F4463400
			2453			INTO AC)	F4463410
	00513	−0 10000 0 00515	2454		TNZ	FREM MORE THAN ONE WORD FITS (LEAVE	F4463420
			2455			NO-I IN AC)	F4463430
	00514	0 50000 0 00034	2456		CLA	LC1 EXACTLY 1 WORD FITS (PUT LC1 IN AC)	F4463440
	00515	0 76700 0 00001	2457	FREM	ALS	1 GET ADDRESS OF INSTRUCTION TO BE	F4463450
	00516	0 76000 0 00006	2458		COM	REPLACED BY TRA TO 2ND LOOP	F4463460
	00517	0 62100 0 00071	2459		STA	IINBX SAVE ADDRESS 0F THIS ONE	F4463470
	00520	0 53400 4 00071	2460		LXA	IINBX,4	F4463480
	00521	0 56000 4 00555	2461		LDQ	CPY1A,4 REPLACE PROPER INSTRUCTION WITH A	F4463490
			2462			TRANSFER TO TAKE CARE OF END	F4463500
			2463			OF DRUM SITUATION	F4463510
	00522	0 50000 0 00066	2464		CLA	LTRND	F4463520
	00523	0 60100 4 00555	2465		STO	CPY1A,4 STORE A TRA NDDR	F4463530
	00524	−0 60000 0 00072	2466		STQ	INSX	F4463540
A	00525	0 76600 0 00000	2467	WRS1	WRS	SELECT DRUM	F4463550
T	00526	−0 75400 0 00000	2468		PXD		F4463560
	00527	−3 00000 2 00600	2469		TXL	LDA1,2,0 INDEX B HAS NO. OF WORDS LEFT ON	F4463570
			2470			DRUM, ONLY 1 WORD FITS ON DRUM	F4463580
	00530	−2 00006 2 00573	2471		TNX	NOBK,2,6 LESS THAN 6 WORDS FIT	F4463590
	00531	0 46000 0 00064	2472		LDA	BBTY MAIN LOOP FOR STORING BB TABLE	F4463600
	00532	0 70000 1 02413	2473	CPY1R	CPY	BBTABL,1 WRITE SIX WORDS OF ENTRY	F4463610
	00533	0 36100 1 02413	2474		ACL	BBTABL,1	F4463620
	00534	0 70000 1 06314	2475		CPY	BBTAGS,1	F4463630
	00535	0 36100 1 06314	2476		ACL	BBTAGS,1	F4463640
	00536	0 70000 0 00033	2477		CPY	LOR	F4463650
	00537	0 60200 0 00067	2478		SLW	ERAS1R	F4463660
	00540	0 70000 0 00033	2479		CPY	LOR	F4463670
	00541	1 00001 1 00542	2480		TXI	CPY5,1,1 INCREASE INDEX OF POSITION IN BBT	F4463680
	00542	0 70000 0 00033	2481	CPY5	CPY	LOR	F4463690
	00543	−2 00006 2 00550	2482		TNX	CPY6C,2,6 TEST FOR NEARING END OF DRUM	F4463700
	00544	0 70000 0 00033	2483	CPY6	CPY	LOR (LESS THAN 6 WORDS LEFT)	F4463710
D	00545	−3 00000 1 00532	2484	TXLBBT	TXL	CPY1R,1	F4463720
	00546	0 70000 0 00067	2485		CPY	ERAS1R WHOLE BLOCK FITS, COPY CHECKSUM	F4463730
	00547	0 02000 0 00433	2486		TRA	NXTBL	F4463740
	00550	0 70000 0 00033	2487	CPY6C	CPY	LOR	F4463750
	00551	−3 00000 1 00555	2488	TXL2	TXL	CPY1A,1,XXXXXX	F4463760
	00552	0 70000 0 00067	2489		CPY	ERAS1R	F4463770
	00553	0 02000 0 00433	2490		TRA	NXTBL	F4463780
A	00554	0 00000 0 00000	2491	DUMM	HTR	USED IN SWITCHING AT END OF BLOCK	F4463790
			2492			ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY	F4463800
			2493			TRANSFER TO SECOND DRUM.	F4463810
	00555	0 70000 1 02413	2494	CPY1A	CPY	BBTABL,1	F4463820
	00556	0 36100 1 02413	2495		ACL	BBTABL,1	F4463830
	00557	0 70000 1 06314	2496	CPY2A	CPY	BBTAGS,1	F4463840
	00560	0 36100 1 06314	2497		ACL	BBTAGS,1	F4463850
	00561	0 70000 0 00033	2498	CPY3A	CPY	LOR	F4463860
	00562	0 60200 0 00067	2499		SLW	ERAS1R	F4463870
	00563	0 70000 0 00033	2500	CPY4A	CPY	LOR	F4463880
	00564	1 00001 1 00565	2501		TXI	CPY5A,1,1	F4463890
	00565	0 70000 0 00033	2502	CPY5A	CPY	LOR	F4463900
	00566	0 76100 0 00000	2503		NOP		F4463910
	00567	0 70000 0 00033	2504	CPY6A	CPY	LOR	F4463920
	00570	−3 00000 1 00601	2505	TXL3	TXL	CPY1B,1,XXXXXX	F4463930
	00571	0 70000 0 00067	2506	CPY7A	CPY	ERAS1R	F4463940
	00572	0 02000 0 00433	2507		TRA	NXTBL	F4463950
	00573	0 46000 0 00064	2508	NOBK	LDA	BBTY	F4463960
	00574	0 02000 0 00555	2509		TRA	CPY1A	F4463970
	00575	0 53400 2 00042	2510	NDDR	LXA	L2048,2 SELECT 2ND DRUM	F4463980
A	00576	0 76600 0 00000	2511	NDWRS	WRS		F4463990
	00577	0 02000 4 00532	2512		TRA	CPY1R,4	F4464000
	00600	0 46000 0 00064	2513	LDA1	LDA	BBTY	F4464010
	00601	0 70000 1 02413	2514	CPY1B	CPY	BBTABL,1	F4464020
	00602	−0 53400 4 00603	2515		LXD	LMLE,4 PRESET RETURN TO MAIN LOOP	F4464030
	00603	1 77777 0 00575	2516	LMLE	TXI	NDDR,0,−1	F4464040
	00604	0 50000 0 00035	2517	ZREM	CLA	L5 IF DRUM ENDS WITH LAST WORD IN AN	F4464050
	00605	0 02000 0 00515	2518		TRA	FREM ENTRY	F4464060
			2519				F4464070
			2520			THIS ROUTINE WRITES BBLIST ON TAPE 3.	F4464080
	00606	0 77000 0 00223	2521	OUT2	WEF	BLT	F4464090
	00607	−0 53400 1 07774	2522		LXD	BBOX.=,1	F4464100
	00610	0 50000 0 07774	2523		CLA	BBOX.=	F4464110
	00611	0 77100 0 00022	2524		ARS	18	F4464120
	00612	0 60100 0 07774	2525		STO	BBOX.=	F4464130
	00613	−0 53400 2 00616	2526		LXD	WBL2,2	F4464140
	00614	0 76600 0 00223	2527		WRS	BLT	F4464150
	00615	0 70000 2 07774	2528	WBL1	CPY	BBOX.=,2 WRITE BB LIST	F4464160
	00616	1 00001 2 00617	2529	WBL2	TXI	WBL2+1,2,1	F4464170
	00617	2 00001 1 00615	2530		TIX	WBL1,1,1	F4464180
	00620	0 76400 0 00223	2531		BST	BLT	F4464190
	00621	0 76400 0 00223	2532		BST	BLT	F4464200
	00622	0 76400 0 00223	2533		BST	BLT	F4464210
	00623	0 76200 0 00223	2534		RDS	BLT	F4464220
	00624	0 53400 1 00032	2535		LXA	MINUS4,1 MOVES KEYS FOR SECTION 5 IN	F4464230
	00625	0 50000 1 10000	2536	KEYS	CLA	4096,1 8-1-4-1 SYSTEM, DOES NOTHING IN	F4464240
	00626	0 60100 1 20000	2537		STO	8192,1 4-1-4-1 SYSTEM.	F4464250
	00627	2 00001 1 00625	2538		TIX	KEYS,1,1	F4464260
	00630	0 76200 0 00221	2539		RDS	SYSTAP	F4464270
	00631	0 02000 0 00004	2540		TRA	RDFORT	F4464280
			2541				F4464290
			2542			THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS	F4464300
			2543			BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON	F4464310
			2544			DRUM. CALLING SEQUENCE IS,	F4464320
			2545			TSX DRUM,4	F4464330
			2546			HTR N N IS NUMBER OF ENTRIES IN THE TABLE	F4464340
			2547			HTR A A IS CM ADDRESS OF LAST ENTRY IN	F4464350
			2548			TABLE	F4464360
			2549			HTR D D IS DRUM ADDRESS,0-8191	F4464370
			2550			UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE	F4464380
			2551			HTR D	F4464390
			2552			A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD.	F4464400
			2553			A MUST BE GREATER THAN 1,N GETS REPLACED BY 0	F4464410
	00632	0 00000 0 00215	2554	GP1..J	HTR	BBBB.J ADDRESS HAS B.	F4464420
	00633	0 50000 4 00002	2555	DRUM.J	CLA	2,4 SET ADDRESSES DEPENDENT ON INITIAL	F4464430
	00634	0 62100 0 00664	2556		STA	G7...J TABLE ADDRESS IN CORES	F4464440
	00635	0 62100 0 00757	2557		STA	G22..J	F4464450
	00636	0 62100 0 00762	2558		STA	G17..J	F4464460
	00637	0 62100 0 00753	2559		STA	G33..J	F4464470
	00640	0 40200 0 01012	2560		SUB	TWOA.J	F4464480
	00641	0 62100 0 00760	2561		STA	G14..J	F4464490
	00642	−0 53400 1 01013	2562	G1...J	LXD	GK6..J,1 INITIALIZE INDEX 0F POSITION IN	F4464500
	00643	−0 63400 1 00666	2563		SXD	G8...J,1 TABLE.	F4464510
	00644	0 50000 4 00001	2564	G2...J	CLA	1,4 FORM N-B	F4464520
	00645	0 40200 0 00632	2565		SUB	GP1..J	F4464530
	00646	−0 12000 0 00733	2566		TMI	G3...J IS N LARGER THAN B	F4464540
	00647	0 60100 4 00001	2567		STO	1,4 YES STORE NEW N	F4464550
	00650	0 50000 0 00632	2568		CLA	GP1..J PREPARE TO TRANSFER B WORDS	F4464560
	00651	0 10000 4 00004	2569	G4...J	TZE	4,4 IF NO WORDS LEFT,RETURN	F4464570
	00652	0 60100 0 01015	2570		STO	GV2..J	F4464580
	00653	−0 53400 1 00666	2571		LXD	G8...J,1 CURRENT INDEX TO A	F4464590
	00654	1 00002 1 00655	2572	G5...J	TXI	G5...J+1,1,2 UP IT,IT LAGS BEHIND	F4464600
	00655	−0 63400 1 01016	2573		SXD	GV3..J,1	F4464610
	00656	0 76700 0 00023	2574		ALS	19	F4464620
	00657	0 40200 0 00666	2575		SUB	G8...J THE TXL IS NEGATIVE	F4464630
	00660	−0 73400 2 00000	2576		PDX	0,2	F4464640
	00661	−0 63400 2 00666	2577		SXD	G8...J,2 SET NEW END TEST	F4464650
	00662	0 50000 0 01014	2578		CLA	ZERO.J	F4464660
	00663	1 00002 1 00664	2579	G6...J	TXI	G6...J+1,1,2 CHECK	F4464670
	00664	0 36100 1 00000	2580	G7...J	ACL	TABLEJ,1	F4464680
	00665	3 07775 2 00667	2581		TXH	G31..J,2,4093 SUM.	F4464690
	00666	−3 00000 1 00663	2582	G8...J	TXL	G6...J,1,SET..J	F4464700
	00667	0 60200 0 01017	2583	G31..J	SLW	GV4..J STORE CHECK SUM	F4464710
	00670	0 50000 4 00003	2584		CLA	3,4 SPACE LEFT ON DRUM, NEGATIVE	F4464720
	00671	−0 32000 0 01004	2585		ANA	GK1..J	F4464730
	00672	0 40200 0 01005	2586		SUB	GK2..J	F4464740
	00673	0 40000 0 01015	2587		ADD	GV2..J WILL BLOCK FIT	F4464750
	00674	−0 12000 0 00721	2588		TMI	G9...J	F4464760
	00675	0 60100 0 01021	2589	G20..J	STO	GV6..J NO,STO. AMOUNT LEFT OVER	F4464770
	00676	0 40200 0 01015	2590		SUB	GV2..J	F4464780
	00677	0 76000 0 00003	2591		SSP	IN AC IS DRUM SPACE	F4464790
	00700	0 60100 0 01015	2592		STO	GV2..J	F4464800
	00701	0 76700 0 00023	2593		ALS	19	F4464810
	00702	0 40000 0 01016	2594		ADD	GV3..J FORM INITIALIZING INDEX	F4464820
	00703	−0 73400 2 00000	2595		PDX	0,2 FOR 2ND HALF	F4464830
	00704	−0 53400 1 01016	2596		LXD	GV3..J,1 LOAD BEFORE STORING BACK	F4464840
	00705	−0 63400 2 01016	2597		SXD	GV3..J,2	F4464850
	00706	1 77776 2 00707	2598	G30..J	TXI	G30..J+1,2,−2 END TEST IS 2 LESS	F4464860
	00707	−0 63400 2 00763	2599		SXD	G23..J,2	F4464870
	00710	0 50000 0 01007	2600		CLA	GK4..J DRUM SELECTION ROUTINE	F4464880
	00711	0 07400 2 00770	2601		TSX	G11..J,2 ALS0 STORES SWITCH	F4464890
	00712	0 02000 0 00744	2602		TRA	G15..J	F4464900
	00713	0 50000 4 00003	2603	G24..J	CLA	3,4	F4464910
	00714	0 40200 0 01010	2604		SUB	ONEA.J	F4464920
	00715	0 60100 4 00003	2605		STO	3,4 SET BLOCK LENGTH TO NO. OF	F4464930
	00716	0 50000 0 01021	2606		CLA	GV6..J WORDS LEFT.	F4464940
	00717	0 60100 0 01015	2607		STO	GV2..J	F4464950
	00720	0 02000 0 00737	2608		TRA	G10..J	F4464960
	00721	0 40000 0 01010	2609	G9...J	ADD	ONEA.J DOES SUM CHECK FIT TOO	F4464970
	00722	−0 12000 0 00737	2610		TMI	G10..J	F4464980
	00723	0 50000 0 01006	2611	G19..J	CLA	GK3..J NO	F4464990
	00724	0 07400 2 00770	2612		TSX	G11..J,2	F4465000
	00725	0 40000 0 01010	2613		ADD	ONEA.J ARRANGE TO PUT CK SUM	F4465010
	00726	0 62100 0 00730	2614		STA	G25..J ON NEXT DRUM	F4465020
	00727	0 02000 0 00741	2615		TRA	G12..J	F4465030
	00730	0 76600 0 00000	2616	G25..J	WRS	SET..J	F4465040
	00731	0 70000 0 01017	2617	G26..J	CPY	GV4..J COPY CHECK SUM.	F4465050
	00732	0 02000 0 00644	2618		TRA	G2...J	F4465060
	00733	0 56000 0 01014	2619	G3...J	LDQ	ZERO.J RECORD THAT THERE ARE NO WORDS LEFT	F4465070
	00734	0 50000 4 00001	2620		CLA	1,4	F4465080
	00735	−0 60000 4 00001	2621		STQ	1,4	F4465090
	00736	0 02000 0 00651	2622		TRA	G4...J	F4465100
	00737	0 50000 0 00731	2623	G10..J	CLA	G26..J SUM CK. FITS TOO	F4465110
	00740	0 07400 2 00770	2624		TSX	G11..J,2	F4465120
	00741	0 50000 0 00666	2625	G12..J	CLA	G8...J	F4465130
	00742	0 62200 0 00763	2626		STD	G23..J SET END TEST	F4465140
	00743	−0 53400 1 01016	2627		LXD	GV3..J,1	F4465150
	00744	0 50000 0 01015	2628	G15..J	CLA	GV2..J	F4465160
	00745	0 76000 0 00001	2629		LBT	IS BLOCK LENGTH ODD	F4465170
	00746	0 02000 0 00766	2630		TRA	G13..J NO	F4465180
	00747	0 56000 0 01010	2631		LDQ	ONEA.J	F4465190
	00750	0 04000 0 00755	2632		TLQ	G32..J IS IT EQUAL TO ONE	F4465200
	00751	0 46000 0 01020	2633		LDA	GV5..J YES, TRANSFER THE SINGLE WORD	F4465210
	00752	1 00002 1 00753	2634	G34..J	TXI	G34..J+1,1,2	F4465220
	00753	0 70000 1 00000	2635	G33..J	CPY	TABLEJ,1	F4465230
	00754	0 02000 0 00764	2636		TRA	G18..J	F4465240
	00755	0 46000 0 01020	2637	G32..J	LDA	GV5..J COPY WORDS 0NTO THE DRUM	F4465250
	00756	1 00002 1 00757	2638	G27..J	TXI	G27..J+1,1,2	F4465260
	00757	0 70000 1 00000	2639	G22..J	CPY	TABLEJ,1	F4465270
	00760	0 70000 1 77776	2640	G14..J	CPY	TABLEJ−2,1	F4465280
	00761	1 00004 1 00762	2641	G16..J	TXI	G16..J+1,1,4	F4465290
	00762	0 70000 1 00000	2642	G17..J	CPY	TABLEJ,1	F4465300
D	00763	−3 00000 1 00760	2643	G23..J	TXL	G14..J,1	F4465310
	00764	0 70000 0 01017	2644	G18..J	CPY	GV4..J OR TRA G25 OR TRA G24	F4465320
	00765	0 02000 0 00644	2645		TRA	G2...J	F4465330
	00766	0 46000 0 01020	2646	G13..J	LDA	GV5..J	F4465340
	00767	0 02000 0 00760	2647		TRA	G14..J	F4465350
			2648				F4465360
			2649			DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS	F4465370
	00770	0 60100 0 00764	2650	G11..J	STO	G18..J STORE SWITCH WORD.	F4465380
	00771	0 50000 4 00003	2651		CLA	3,4 PRESERVE DRUM ADDRESS	F4465390
	00772	0 60100 0 01020	2652		STO	GV5..J	F4465400
	00773	0 40000 0 01015	2653		ADD	GV2..J FORM THE NEW DRUM ADDRESS	F4465410
	00774	0 40000 0 01010	2654		ADD	ONEA.J	F4465420
	00775	0 60100 4 00003	2655		STO	3,4	F4465430
	00776	0 50000 0 01020	2656		CLA	GV5..J SELECT THE DRUM	F4465440
	00777	0 77100 0 00013	2657		ARS	11	F4465450
	01000	0 40000 0 01011	2658		ADD	GK5..J	F4465460
	01001	0 60100 0 01002	2659		STO	G21..J	F4465470
A	01002	0 76600 0 00000	2660	G21..J	WRS		F4465480
	01003	0 02000 2 00001	2661		TRA	1,2	F4465490
			2662				F4465500
			2663			FOLLOWING ARE THE CONSTANTS USED	F4465510
	01004	0 00000 0 03777	2664	GK1..J		2047	F4465520
	01005	0 00000 0 04000	2665	GK2..J		2048	F4465530
	01006	0 02000 0 00730	2666	GK3..J	TRA	G25..J	F4465540
	01007	0 02000 0 00713	2667	GK4..J	TRA	G24..J	F4465550
	01010	0 00000 0 00001	2668	ONEA.J		1	F4465560
	01011	0 76600 0 00301	2669	GK5..J	WDR	1	F4465570
	01012	0 00000 0 00002	2670	TWOA.J		2	F4465580
	01013	0 77774 0 00000	2671	GK6..J		0,0,−4	F4465590
	01014	0 00000 0 00000	2672	ZERO.J			F4465600
			2673			VARIABLES OR TEMPORARY STORAGE	F4465610
	01015	0 00000 0 00000	2674	GV2..J		LENGTH OF BLOCK	F4465620
	01016	0 00000 0 00000	2675	GV3..J		INDEX OF LAST WORD IN BLOCK	F4465630
	01017	0 00000 0 00000	2676	GV4..J		SUM CHECK	F4465640
	01020	0 00000 0 00000	2677	GV5..J		OLD DRUM ADDRESS	F4465650
	01021	0 00000 0 00000	2678	GV6..J		REMAINING BLOCK LENGTH	F4465660
		00000	2679	TABLEJ	SYN	0	F4465670
		00000	2680	SET..J	SYN	0	F4465680
			2681				F4465690
			2682				F4465700