1		PST
			2			************* FORTRAN II SECTION SIX ************************	F6B00010
			3			FORTRAN 2 RECORD 94 - BINARY SEARCH.	F6B00011
			4				F6B00012
			5			CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL)	F6B00013
			6				F6B00014
		00037	7		ORG	31	F6B00020
	00037	1 00037 2 00037	8	SRCH	TXI	*,2,* OR TXL TDEV,2,0 OR TXH TTIV,2,-2	F6B00030
	00040	0 16200 0 00042	9		TQP	IFTXH OR TXL TTEV DEPENDING ON TABLE AND	F6B00040
	00041	1 77776 1 00102	10		TXI	LOWER,1,−2 ON DIRECTION OF TABLE.	F6B00050
	00042	1 77776 1 00101	11	IFTXH	TXI	RAISE,1,−2	F6B00060
	00043	1 20000 2 00037	12		TXI	SRCH,2,+8192 FOR A TABLE WITH N	F6B00070
	00044	1 60000 2 00037	13		TXI	SRCH,2,−8192 ENTRIES, THE SEARCH IS	F6B00080
	00045	1 10000 2 00037	14		TXI	SRCH,2,+4096 COMMENCED AT THE 2**XTH	F6B00090
	00046	1 70000 2 00037	15		TXI	SRCH,2,−4096 ENTRY, THE LATTER BEING THE	F6B00100
	00047	1 04000 2 00037	16		TXI	SRCH,2,+2048 LARGEST POWER OF 2	F6B00110
	00050	1 74000 2 00037	17		TXI	SRCH,2,−2048 LESS THAN N.	F6B00120
	00051	1 02000 2 00037	18		TXI	SRCH,2,+1024 THEN. DEPENDING ON THE RESULTS	F6800130
	00052	1 76000 2 00037	19		TXI	SRCH,2,−1024 OF THE COMPARISON, THE SEARCH	F6B00140
	00053	1 01000 2 00037	20		TXI	SRCH,2,+512 STEPS UP, OR DOWN, BY	F6B00150
	00054	1 77000 2 00037	21		TXI	SRCH,2,−512 2**(X-1), AND MAKES	F6B00160
	00055	1 00400 2 00037	22		TXI	SRCH,2,+256 A NEW COMPARISON WITH THAT	F6B00170
	00056	1 77400 2 00037	23		TXI	SRCH,2,−256 ENTRY	F6B00180
	00057	1 00200 2 00037	24		TXI	SRCH,2,+128 IF THIS STEP OVERREACHES THE	F6B00190
	00060	1 77600 2 00037	25		TXI	SRCH,2,−128 END OF THE TABLE, IT IS TRAPPED	F6B00200
	00061	1 00100 2 00037	26		TXI	SRCH,2,+64 BY THE TXL OR TXH INSTRUCTIONS	F6B00210
	00062	1 77700 2 00037	27		TXI	SRCH,2,−64 IN SRCH	F6B00220
	00063	1 00040 2 00037	28		TXI	SRCH,2,+32	F6B00230
	00064	1 77740 2 00037	29		TXI	SRCH,2,−32	F6B00240
	00065	1 00020 2 00037	30		TXI	SRCH,2,+16	F6B00250
	00066	1 77760 2 00037	31		TXI	SRCH,2,−16 INDEX REGISTER 1, WHICH	F6B00260
	00067	1 00010 2 00037	32		TXI	SRCH,2,+8 CONTAINS 2(X+3) SELECTS THE	F6B00270
	00070	1 77770 2 00037	33		TXI	SRCH,2,−8 APPROPRIATE TXI IN THIS LIST,	F6B00280
	00071	1 00004 2 00037	34		TXI	SRCH,2,+4 TO MAKE THE NEXT LEAP	F6B00290
	00072	1 77774 2 00037	35		TXI	SRCH,2,−4 FORWARDS OR BACKWARDS IN	F6B00300
	00073	1 00002 2 00037	36		TXI	SRCH,2,+2 THE TABLE.	F6B00310
	00074	1 77776 2 00037	37		TXI	SRCH,2,−2	F6B00320
	00075	1 00001 2 00037	38		TXI	SRCH,2,+1 INDEX REGISTER 2 SELECTS THE	F6B00330
	00076	1 77777 2 00037	39		TXI	SRCH,2,−1 TABLE ENTRY FOR COMPARISON.	F6B00340
	00077	0 02000 4 00001	40	NOTIN	TRA	1,4 END OF SEARCH.	F6B00350
	00100	1 77777 2 00077	41		TXI	NOTIN,2,−1	F6B00360
	00101	0 02000 1 00101	42	RAISE	TRA	RAISE,1	F6B00370
	00102	0 02000 1 00102	43	LOWER	TRA	LOWER,1	F6B00380
	00103	0 56000 0 00120	44	STEV	LDQ	TEVL ENTER HERE TO SEARCH TEV.	F6B00390
	00104	−0 60000 0 00037	45		STQ	SRCH TABLE	F6B00400
	00105	0 53400 1 00117	46		LXA	TEVS,1 CONTROLS HOPP1NG WITHIN TEV.	F6B00410
	00106	−0 53400 2 00117	47		LXD	TEVS,2 SELECTS ITEM FOR COMPARISON.	F6B00420
U	00107	0 34000 2	48	TTEV	CAS	TEV,2	F6B00430
	00110	1 77776 1 00101	49		TXI	RAISE,1,−2 NOT FOUND. CONTINUE SEARCH	F6B00440
	00111	0 02000 0 00113	50		TRA	ATEV FOUND.	F6B00450
	00112	1 77776 1 00102	51		TXI	LOWER,1,−2 NOT FOUND. CONTINUE SEARCH	F6B00460
	00113	−0 75400 2 00000	52	ATEV	PXD	0,2 CONTROLS ENTRY POINT OF SEARCH	F6B00470
	00114	0 77100 0 00022	53		ARS	18 DEC. CONTAINS TABLE LENGTH.	F6B00480
	00115	0 40000 0 00172	54		ADD	LTEV	F6B00490
	00116	0 02000 4 00002	55		TRA	2,4	F6B00500
	00117	0 00000 0 00004	56	TEVS		4,0,**+0	F6B00510
	00120	−3 00000 2 00107	57	TEVL	TXL	TTEV,2,**+0	F6B00520
	00121	0 76700 0 00017	58	STIV	ALS	15 ENTER HERE TO SEARCH TIV.	F6B00530
	00122	0 60200 0 00160	59		SLW	ENTRY	F6B00540
	00123	0 60200 0 00157	60		SLW	ARG	F6B00550
	00124	0 56000 0 00141	61		LDQ	TIVL	F6B00560
	00125	−0 60000 0 00037	62		STQ	SRCH	F6B00570
	00126	0 53400 1 00140	63		LXA	TIVS,1	F6B00580
	00127	−0 53400 2 00140	64		LXD	TIVS,2	F6B00590
	00130	0 50000 2 02114	65	TTIV	CLA	TIV,2	F6B00600
	00131	0 62100 0 00157	66		STA	ARG	F6B00610
	00132	0 34000 0 00157	67		CAS	ARG	F6B00620
	00133	1 77776 1 00102	68		TXI	LOWER,1,−2	F6B00630
	00134	0 02000 0 00136	69		TRA	ATIV	F6B00640
	00135	1 77776 1 00101	70		TXI	RAISE,1,−2	F6B00650
	00136	0 50000 2 02114	71	ATIV	CLA	TIV,2 RETURN WITH COMPLETE OLD TIV ENTRY	F6B00660
	00137	0 02000 4 00002	72		TRA	2,4	F6B00670
	00140	0 77777 0 00004	73	TIVS		4,0,**−1	F6B00680
	00141	3 77776 2 00130	74	TIVL	TXH	TTIV,2,**−2	F6B00690
	00142	0 56000 0 00155	75	SDEV	LDQ	DEVL ENTER HERE TO SEARCH DEV	F6B00700
	00143	−0 60000 0 00037	76		STQ	SRCH TABLE	F6B00710
	00144	0 53400 1 00154	77		LXA	DEVS,1 CONTROLS HOPPING WITHIN DEV	F6B00720
	00145	−0 53400 2 00154	78		LXD	DEVS,2 SELECTS THE ITEM FOR COMPARISON.	F6B00730
	00146	0 34000 2 77777	79	TDEV	CAS	DEV,2	F6B00740
	00147	1 77776 1 00101	80		TXI	RAISE,1,−2 NOT FOUND CONTINUE SEARCH	F6B00750
	00150	0 02000 0 00152	81		TRA	ADEV ENTRY FOUND	F6B00760
	00151	1 77776 1 00102	82		TXI	LOWER,1,−2 NOT FOUND. CONTINUE SEARCH.	F6B00770
	00152	0 50000 2 74413	83	ADEV	CLA	DEA,2	F6B00780
	00153	0 02000 4 00003	84		TRA	3,4	F6B00790
	00154	0 00000 0 00004	85	DEVS		4,0,**+0	F6B00800
	00155	−3 00000 2 00146	86	DEVL	TXL	TDEV,2,**+0 CONTAINS TABLE LENGTH	F6B00810
	00156	0 00001 0 00002	87	DEVA		2,0,**+1	F6B00820
	00157	0 00000 0 00000	88	ARG	HTR	0	F6B00830
	00160	0 00000 0 00000	89	ENTRY	HTR	0	F6B00840
	00161	+000000000000	90	ZERO	DEC	0000000000	F6B00850
	00162	+000000000001	91	ONE	DEC	0000000001	F6B00860
	00163	+000000000002	92	TWO	DEC	0000000002	F6B00870
	00164	0 00000 0 77777	93	ADDR	HTR	−1	F6B00880
	00165	0 00000 0 00000	94	EIFN	HTR	0	F6B00890
	00166	0 00000 0 00000	95	L1	HTR	0	F6B00900
	00167	0 00000 0 00000	96	L2	HTR	0	F6B00910
	00170	0 00000 0 00000	97	LIFN	HTR	0	F6B00920
	00171	0 00000 0 77462	98	LCTR	HTR	−206	F6B00930
	00172	0 00000 0 00000	99	LTEV	HTR	0	F6B00940
	00173	0 00000 0 00000	100	D	HTR	0	F6B00950
	00174	0 00000 0 00000	101	EA	HTR	0	F6B00960
	00175	0 00000 0 00000	102	L3	HTR	0	F6B00970
	00176	0 00000 0 00000	103	PGBK	HTR	0	F6B00980
	00177	0 00000 0 00000	104	SW1	HTR	0	F6B00990
	00200	0 00000 0 00000	105	SW2	HTR	0	F6B01000
	00201	0 00000 0 00000	106	SW3	HTR	0	F6B01010
	00202	0 00000 0 00000	107	SW4	HTR	0	F6B01020
	00203	0 00000 0 00000	108	SW5	HTR	0	F6B01030
	00204	+077777077777	109	DOLSI	OCT	077777077777	F6B01040
	00205	0 00001 0 00001	110	ME2		1,0,1	F6B01050
		00210	111		ORG	136	F6B01060
	00210	0 53400 2 00255	112	START	LXA	ADD5,2 SET DRUM ERROR COUNTER TO 15	F6B01070
	00211	0 76200 0 00304	113	ADD6	RDR	4 SELECT DRUM 4.	F6B01080
T	00212	−0 75400 0 00000	114	ADD1	PXD	NUMBER OF	F6B01090
	00213	0 46000 0 00212	115		LDA	ADD1 ENTRIES IN	F6B01100
	00214	0 70000 0 00165	116		CPY	EIFN EXTERNAL INTERNAL	F6B01110
	00215	0 76000 0 00006	117		COM	FORMULA NOS TABLE.	F6B01120
	00216	0 70000 0 00223	118		CPY	ADD2	F6B01130
	00217	0 76000 0 00006	119		COM		F6B01140
	00220	0 10000 0 00224	120		TZE	ADD3	F6B01150
	00221	2 00001 2 00211	121		TIX	ADD6,2,1	F6B01160
	00222	0 07400 4 00004	122		TSX	4,4	F6B01170
	00223	0 00000 0 00000	123	ADD2	HTR	0	F6B01180
	00224	−0 53400 1 00165	124	ADD3	LXD	EIFN,1	F6B01190
	00225	1 00001 1 00226	125		TXI	ADD4,1,1	F6B01200
	00226	−0 63400 1 00165	126	ADD4	SXD	EIFN,1	F6B01210
	00227	0 77200 0 00202	127		REW	2 TO	F6B01220
	00230	0 02000 0 00260	128	B1	TRA	BPCH1 GO SKIP BCD FILE	F6B01230
	00231	0 76200 0 00222	129	B2	RTB	2 POSITION TAPE TWO	F6B01240
	00232	0 70000 0 00253	130	CH1	CPY	ERAS	F6B01250
	00233	0 02000 0 00232	131		TRA	CH1 AT THE BEGINNING OF FILE FIVE.	F6B01260
	00234	0 02000 0 00236	132		TRA	B3	F6B01270
	00235	0 02000 0 00231	133		TRA	B2	F6B01280
	00236	2 00001 1 00231	134	B3	TIX	B2,1,1	F6B01290
	00237	0 76200 0 00222	135		RTB	2 SELECT TAPE TWO	F6B01300
	00240	0 70000 0 00177	136		CPY	SW1 COPY SENSE SWITCH SETTINGS	F6B01310
	00241	0 70000 0 00200	137		CPY	SW2 I.E. FIRST RECORD OF FILE 5.	F6B01320
	00242	0 70000 0 00201	138		CPY	SW3	F6B01330
	00243	0 70000 0 00202	139		CPY	SW4	F6B01340
	00244	0 70000 0 00203	140		CPY	SW5	F6B01350
	00245	0 77200 0 00203	141		REW	3	F6B01360
	00246	0 77200 0 00204	142		REW	4	F6B01370
	00247	−0 76000 0 00012	143		RTT		F6B01380
	00250	0 76100 0 00000	144		NOP		F6B01390
	00251	0 76200 0 00221	145		RTB	1	F6B01400
	00252	0 02000 0 00004	146		TRA	4 TO RETURN CONTROL TO LOADER.	F6B01410
	00253	0 00000 0 00000	147	ERAS	HTR	0	F6B01420
	00254	0 00000 0 00004	148	FOUR	HTR	4	F6B01430
	00255	0 00000 0 00017	149	ADD5	HTR	15	F6B01440
		00256	150		BSS	2	F6B01441
	00260	0 76200 0 00202	151	BPCH1	RTD	2 SKIP A BCD FILE.	F6B01442
	00261	0 70000 0 00253	152		CPY	ERAS	F6B01443
	00262	0 02000 0 00261	153		TRA	*−1	F6B01444
	00263	0 02000 0 00265	154		TRA	PREPR END OF FILE	F6B01445
	00264	0 02000 0 00260	155		TRA	BPCH1 END OF RECORD	F6B01445
	00265	0 53400 1 00267	156	PREPR	LXA	LOCV3,1	F6B01447
	00266	0 02000 0 00231	157		TRA	B2	F6B01448
	00267	+000000000003	158	LOCV3	DEC	3	F6B01449
		01400	159		ORG	768	F6B01450
		01400	160	SOPR	BSS	12	F6B01460
		01654	161	SYMOP	BES	160	F6B01470
		02114	162	ABSOP	BES	160	F6B01480
A		02114	163	TIV	BSS		F6B01490
		71003	164		ORG	−3581	F6B01500
		71457	165	ECS	BES	300	F6B01501
		72607	166	UPPER	BES	600	F6B01510
		74413	167	DEA	BES	900	F6B01520
		74413	168		ORG	−1781	F6B01530
		75055	169	STS	BES	290	F6B01540
		75531	170	I	BES	300	F6B01550
		76173	171	L	BES	290	F6B01560
		77777	172	DEV	BES	900	F6B01570
			173		WST	10,1