1			GENERAL LIBRARIAN GLIB2
		00030	2		ORG	24
	00030	0 77200 0 00225	3	DUP000	REW	SOURCE GENERAL LIBRARIAN
	00031	0 77200 0 00221	4		REW	OBJECT
	00032	−0 76000 0 00012	5		RTT	TURN OFF RTT TRIGGER
ATD	00033	3 00000 0 00000	6		TXH
	00034	−0 53400 7 00040	7		LXD	DUP020,7 INITIALIZE INDEX REGISTERS TO 27
	00035	0 76200 0 00225	8		RDS	SOURCE READ 1-CS FROM SOURCE
	00036	0 70000 1 00507	9	DUP010	CPY	RECORD+27,1
	00037	1 77777 1 00036	10		TXI	DUP010,1,−1
	00040	0 00033 0 00000	11	DUP020	HTR	0,0,27 MACHINE ERROR
	00041	0 76600 0 00333	12		IOD	EOR-DELAY
	00042	−0 76000 0 00012	13		RTT
	00043	0 00000 0 00030	14		HTR	DUP000 RTT ERROR-- TRY AGAIN
	00044	0 76600 0 00221	15		WRS	OBJECT WRITE 1-CS ONT0 OBJECT
	00045	0 70000 2 00507	16	DUP030	CPY	RECORD+27,2
	00046	2 00001 2 00045	17		TIX	DUP030,2,1
	00047	0 76600 0 00333	18		IOD
	00050	−0 76000 0 00012	19		RTT	TURN OFF RTT TRIGGER
	00051	3 00000 0 00156	20	DUP031	TXH	DUP170,0,0
	00052	0 76400 0 00221	21		BST	OBJECT
	00053	0 76200 0 00221	22		RDS	OBJECT READ BACK 1-CS FROM OBJECT
	00054	0 70000 0 00453	23	DUP040	CPY	DUMMY
	00055	0 02000 0 00060	24		TRA	DUP050
A	00056	0 00000 0 00000	25		HTR
	00057	0 02000 0 00065	26		TRA	DUP060 EOR
	00060	0 50000 4 00507	27	DUP050	CLA	RECORD+27,4
	00061	0 34000 0 00453	28		CAS	DUMMY
	00062	0 00000 0 00030	29		HTR	DUP000 WORD COMP. FAILS-READING
	00063	1 77777 4 00054	30		TXI	DUP040,4,−1
	00064	0 00000 0 00030	31		HTR	DUP000 FROM OBJECT
	00065	3 00000 4 00427	32	DUP060	TXH	DUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD
	00066	0 76600 0 00333	33		IOD
	00067	−0 76000 0 00012	34		RTT
	00070	0 00000 0 00030	35		HTR	DUP000 RTT ERROR READING BACK OBJECT 1-CS
	00071	−0 53400 7 00051	36	DUP070	LXD	DUP031,7 INITIALIZE INDEX REG TO 0
T	00072	−0 75400 0 00000	37		PXD	CLEAR AC
	00073	0 76200 0 00225	38	DUP071	RDS	SOURCE READ SOURCE 1ST/2ND FILE RECORD	-
	00074	0 70000 1 00454	39		CPY	RECORD,1
	00075	1 77777 1 00100	40		TXI	DUP090,1,−1
	00076	0 02000 0 00144	41	DUP080	TRA	DUP160 EOF
A	00077	0 00000 0 00000	42		HTR	MACHINE ERROR
	00100	−0 70000 1 00454	43	DUP090	CAD	RECORD,1
	00101	1 77777 1 00100	44		TXI	DUP090,1,−1
A	00102	0 00000 0 00000	45		HTR	MACHINE ERROR
	00103	0 76000 0 00006	46		COM	EOR
	00104	0 36100 0 00454	47		ACL	RECORD
	00105	0 76000 0 00006	48		COM
	00106	0 10000 0 00110	49		TZE	DUP100
	00107	0 00000 0 00430	50		HTR	DUP290 CKSM FAILS READING SOURCE 1ST/2ND FILE
	00110	0 76600 0 00333	51	DUP100	IOD
	00111	−0 76000 0 00012	52		RTT
	00112	0 00000 0 00432	53		HTR	DUP300 RTT ERROR-BST AND TRY AGAIN
	00113	−0 63400 1 00120	54		SXD	DUP120,1
	00114	−0 63400 1 00137	55		SXD	DUP150,1
	00115	0 76600 0 00221	56		WRS	OBJECT WRITE OBJECT 1ST/2ND FILE RECORD
	00116	0 70000 2 00454	57	DUP110	CPY	RECORD,2
	00117	1 77777 2 00120	58		TXI	DUP120,2,−1
	00120	3 00000 2 00116	59	DUP120	TXH	DUP110,2,**
	00121	0 76600 0 00333	60	DUP121	IOD
	00122	−0 76000 0 00012	61		RTT	TU0N OFF RTT TRIGGER
ATD	00123	3 00000 0 00000	62		TXH
	00124	0 76400 0 00221	63		BST	OBJECT
	00125	0 76200 0 00221	64		RDS	OBJECT READ BACK OBJECT 1ST/2ND FILE RECORD
	00126	0 70000 0 00453	65	DUP130	CPY	DUMMY
	00127	0 02000 0 00132	66		TRA	DUP140
A	00130	0 00000 0 00000	67		HTR	MACHINE ERROR
	00131	0 02000 0 00137	68		TRA	DUP150 EOR
	00132	0 50000 4 00454	69	DUP140	CLA	RECORD,4
	00133	0 34000 0 00453	70		CAS	DUMMY
	00134	0 00000 0 00434	71		HTR	DUP310 COMP. ERROR ON 1ST/2ND FILE RECORD
	00135	1 77777 4 00126	72		TXI	DUP130,4,−1
	00136	0 00000 0 00434	73		HTR	DUP310 COMP. ERROR ON 1ST/2ND FILE RECORD.
	00137	3 00000 4 00436	74	DUP150	TXH	DUP320,4,** ERROR-INCOMPLETE OBJECT RECORD
	00140	0 76600 0 00333	75		IOD
	00141	−0 76000 0 00012	76		RTT
	00142	0 00000 0 00434	77		HTR	DUP310 RTT ERROR-BST AN0 TRY AGAIN
	00143	0 02000 0 00071	78		TRA	DUP070
	00144	0 76600 0 00333	79	DUP160	IOD
	00145	−0 76000 0 00012	80		RTT
	00146	0 00000 0 00444	81		HTR	DUP340 RTT ERROR - BST TWICE ON SOURCE
	00147	0 77000 0 00221	82		WEF	OBJECT WRITE 1ST EOF
	00150	0 76600 0 00333	83		IOD
	00151	−0 76000 0 00012	84		RTT	TURN OFF RTT TRIGGER
ATD	00152	3 00000 0 00000	85		TXH
	00153	0 50000 0 00051	86		CLA	DUP031
	00154	0 62100 0 00076	87		STA	DUP080
	00155	0 02000 0 00071	88		TRA	DUP070
	00156	0 76600 0 00333	89	DUP170	IOD
	00157	−0 76000 0 00012	90		RTT
	00160	0 00000 0 00444	91		HTR	DUP340 RTT ERROR- BST TWICE ON SOURCE
	00161	0 77000 0 00221	92		WEF	OBJECT WRITE 2ND EOF
	00162	0 76600 0 00333	93	DUP171	IOD
	00163	−0 76000 0 00012	94		RTT	TURN OFF RTT TRIGGER
ATD	00164	3 00000 0 00000	95		TXH
	00165	−0 53400 7 00051	96	DUP180	LXD	DUP031,7 INITIALIZE INDEX REG TO 0
T	00166	−0 75400 0 00000	97		PXD	CLEAR AC
	00167	0 76200 0 00225	98	DUP181	RDS	SOURCE READ SOURCE 3RD FILE RECORD
	00170	−0 70000 1 00454	99		CAD	RECORD,1
	00171	1 77777 1 00174	100		TXI	DUP190,1,−1
A	00172	0 00000 0 00000	101		HTR	FALSE 3RD FILE EOF MARK.
A	00173	0 00000 0 00000	102		HTR	MACHINE ERROR
	00174	0 70000 1 00454	103	DUP190	CPY	RECORD,1 CPY CKSM INTO RECORD+1
	00175	1 77777 1 00176	104		TXI	DUP200,1,−1
	00176	−0 70000 1 00454	105	DUP200	CAD	RECORD,1
	00177	1 77777 1 00176	106		TXI	DUP200,1,−1
A	00200	0 00000 0 00000	107		HTR	MACHINE ERROR
	00201	0 76100 0 00000	108	SWITCH	NOP
	00202	0 76000 0 00006	109		COM	EOR
	00203	0 36100 0 00455	110		ACL	RECORD+1
	00204	0 76000 0 00006	111		COM
	00205	0 10000 0 00207	112		TZE	DUP210
	00206	0 00000 0 00450	113		HTR	DUP350 CKSM FAILS READING SOURCE 3RD FILE
	00207	0 76600 0 00333	114	DUP210	IOD
	00210	−0 76000 0 00012	115		RTT
	00211	0 00000 0 00450	116		HTR	DUP350 RTT ERROR-BST
	00212	−0 63400 1 00217	117		SXD	DUP230,1
	00213	−0 63400 1 00236	118		SXD	DUP260,1
	00214	0 76600 0 00221	119		WRS	OBJECT WRITE OBJECT 3RD FILE RECORD
	00215	0 70000 2 00454	120	DUP220	CPY	RECORD,2
	00216	1 77777 2 00217	121		TXI	DUP230,2,−1
	00217	3 00000 2 00215	122	DUP230	TXH	DUP220,2,**
	00220	0 76600 0 00333	123	DUP231	IOD
	00221	−0 76000 0 00012	124		RTT	TURN OFF RTT TRIGGER
ATD	00222	3 00000 0 00000	125		TXH
	00223	0 76400 0 00221	126		BST	OBJECT
	00224	0 76200 0 00221	127		RDS	OBJECT READ BACK OBJECT 3RD FILE RECORD
	00225	0 70000 0 00453	128	DUP240	CPY	DUMMY
	00226	0 02000 0 00231	129		TRA	DUP250
A	00227	0 00000 0 00000	130		HTR	MACHINE ERROR
	00230	0 02000 0 00236	131		TRA	DUP260 EOR
	00231	0 50000 4 00454	132	DUP250	CLA	RECORD,4
	00232	0 34000 0 00453	133		CAS	DUMMY
	00233	0 00000 0 00452	134		HTR	DUP360 COMP. ERROR ON 3RD FILE
	00234	1 77777 4 00225	135		TXI	DUP240,4,−1
	00235	0 00000 0 00452	136		HTR	DUP360 ERROR- INCOMPLETE OBJECT RECORD
D	00236	3 00000 4 00454	137	DUP260	TXH	DUP370,4
	00237	0 76600 0 00333	138		IOD
	00240	−0 76000 0 00012	139		RTT
	00241	0 00000 0 00452	140		HTR	DUP360
	00242	−0 50000 0 00460	141		CAL	RECORD+4
	00243	0 40200 0 00416	142		SUB	NAME
	00244	−0 10000 0 00165	143		TNZ	DUP180
	00245	−0 50000 0 00425	144		CAL	TRAN
	00246	0 60200 0 00201	145		SLW	SWITCH
	00247	0 02000 0 00165	146		TRA	DUP180
	00250	0 53400 3 00415	147	EXIT1	LXA	L(0),3
	00251	0 60000 0 00423	148		STZ	ERASE
	00252	0 76200 0 00321	149	RCD	RCD
	00253	−0 70000 0 00417	150		CAD	9L
	00254	0 02000 0 00256	151		TRA	CPY9R
	00255	0 02000 0 00406	152		TRA	EXIT EOF
	00256	0 70000 0 00420	153	CPY9R	CPY	9R
	00257	0 50000 0 00417	154		CLA	9L
	00260	0 10000 0 00406	155		TZE	EXIT
	00261	0 76000 0 00006	156		COM
	00262	−0 73400 4 00000	157		PDX	0,4
	00263	1 00001 4 00264	158		TXI	CPY9R+6,4,1
	00264	0 50000 0 00417	159		CLA	9L
	00265	0 76700 0 00001	160		ALS	1
	00266	−0 76000 0 00001	161		PBT
	00267	0 02000 0 00310	162		TRA	BINARY CARD
	00270	1 77776 4 00272	163		TXI	CPAREL−2,4,−2
	00271	−0 63400 4 00276	164		SXD	TXHREL,4
T	00272	−0 75400 0 00000	165		PXD
	00273	0 60000 0 00423	166		STZ	ERASE
	00274	−0 70000 2 00460	167	CPAREL	CAD	RELREG,2
	00275	1 77777 2 00276	168		TXI	TXHREL,2,−1
	00276	3 00276 2 00274	169	TXHREL	TXH	CPAREL,2,*
	00277	0 07400 4 00340	170		TSX	CHSTST,4
	00300	0 76600 0 00221	171		WTB	1
	00301	−3 00000 1 00304	172		TXL	TSXREL,1,0
	00302	0 07400 4 00360	173		TSX	WRBIN,4
	00303	0 76600 0 00221	174		WTB	1
	00304	0 07400 4 00351	175	TSXREL	TSX	WRREL,4
	00305	0 60000 0 00421	176		STZ	9LB,0,STZ
	00306	0 60000 0 00422	177		STZ	9RB,0,STZ
	00307	0 02000 0 00252	178		TRA	RCD
T	00310	−0 75400 0 00000	179	BINARY	PXD
	00311	−0 70000 1 00506	180	CPABIN	CAD	BINREG,1
	00312	1 77777 1 00313	181		TXI	TXHBIN−1,1,−1
	00313	1 00001 4 00314	182		TXI	TXHBIN,4,1
	00314	3 00000 4 00311	183	TXHBIN	TXH	CPABIN,4,0
	00315	0 07400 4 00340	184		TSX	CHSTST,4
	00316	0 50000 0 00417	185		CLA	9L
	00317	0 40000 0 00421	186		ADD	9LB
	00320	0 60100 0 00421	187		STO	9LB
	00321	0 50000 0 00423	188		CLA	ERASE
	00322	0 10000 0 00335	189		TZE	CHER
	00323	0 50000 0 00420	190		CLA	9R
	00324	−0 12000 0 00327	191		TMI	CHSIGN
	00325	0 36100 0 00424	192		ACL	L(1)
	00326	0 02000 0 00330	193		TRA	NORM
	00327	0 76000 0 00003	194	CHSIGN	SSP
	00330	0 60200 0 00420	195	NORM	SLW	9R
	00331	−0 50000 0 00420	196		CAL	9R
	00332	0 36100 0 00422	197		ACL	9RB
	00333	0 60200 0 00422	198		SLW	9RB
	00334	0 02000 0 00252	199		TRA	RCD
	00335	0 50000 0 00424	200	CHER	CLA	L(1)
	00336	0 60100 0 00423	201		STO	ERASE
	00337	0 02000 0 00331	202		TRA	NORM+1
	00340	0 36100 0 00417	203	CHSTST	ACL	9L
	00341	0 60200 0 00414	204		SLW	CHS
	00342	0 76600 0 00333	205		IOD
	00343	0 76600 0 00333	206		IOD
	00344	0 50000 0 00420	207		CLA	9R
	00345	0 34000 0 00414	208		CAS	CHS
	00346	0 00000 4 00001	209		HTR	1,4 CARD READING ERROR
	00347	0 02000 4 00001	210		TRA	1,4
	00350	0 02000 0 00346	211		TRA	WRREL−3
	00351	0 50000 0 00413	212	WRREL	CLA	L(REL)
	00352	0 62100 0 00370	213		STA	CPY
	00353	−0 63400 2 00372	214		SXD	CPY+2,2
	00354	0 70000 0 00417	215		CPY	9L
	00355	0 53400 2 00415	216		LXA	L(0),2
	00356	0 70000 0 00420	217		CPY	9R
D	00357	−3 00000 0 00366	218	RETURN	TXL	XR,0
	00360	0 50000 0 00412	219	WRBIN	CLA	L(BIN)
	00361	0 62100 0 00370	220		STA	CPY
	00362	0 70000 0 00421	221		CPY	9LB
	00363	−0 63400 1 00372	222		SXD	CPY+2,1
	00364	0 53400 1 00415	223		LXA	L(0),1
	00365	0 70000 0 00422	224		CPY	9RB
	00366	−0 63400 4 00357	225	XR	SXD	RETURN,4
	00367	0 53400 4 00415	226		LXA	L(0),4
	00370	0 70000 4 00370	227	CPY	CPY	*,4
	00371	1 77777 4 00372	228		TXI	CPY+2,4,−1
	00372	3 00372 4 00370	229		TXH	CPY,4,*
	00373	−0 53400 4 00357	230		LXD	RETURN,4
	00374	0 76600 0 00333	231		IOD
	00375	0 76600 0 00333	232		IOD
	00376	0 02000 4 00001	233		TRA	1,4
	00377	0 60200 0 00426	234	RELBIN	SLW	HOLD
	00400	0 50000 0 00417	235		CLA	9L
	00401	0 76700 0 00001	236		ALS	1
	00402	−0 76000 0 00001	237		PBT
	00403	0 02000 0 00250	238		TRA	EXIT1 RECORD IS THE 1ST CONTROL CARD OF GEN. LIB.
	00404	−0 50000 0 00426	239		CAL	HOLD
	00405	0 02000 0 00202	240		TRA	SWITCH+1 RETURN TO READING PERMANENT LIB.
	00406	0 76200 0 00321	241	EXIT	RCD	PULL IN FNDE2
	00407	0 70000 0 00000	242		CPY	0
	00410	0 70000 0 00001	243		CPY	1
	00411	0 02000 0 00000	244		TRA	0
	00412	0 00000 0 00506	245	L(BIN)		BINREG
	00413	0 00000 0 00460	246	L(REL)		RELREG
	00414	0 00000 0 00000	247	CHS
	00415	0 00000 0 00000	248	L(0)
	00416	256747740360	249	NAME	BCD	1EXP(3␣
	00417	0 00000 0 00000	250	9L
	00420	0 00000 0 00000	251	9R
	00421	0 00000 0 00000	252	9LB
	00422	0 00000 0 00000	253	9RB
	00423	0 00000 0 00000	254	ERASE	HTR	0
	00424	+377777777777	255	L(1)	OCT	377777777777
	00425	0 02000 0 00377	256	TRAN	TRA	RELBIN
	00426	0 00000 0 00000	257	HOLD
	00427	0 00000 0 00030	258	DUP280	HTR	DUP000
	00430	−0 76000 0 00012	259	DUP290	RTT
ATD	00431	3 00000 0 00000	260		TXH
	00432	0 76400 0 00225	261	DUP300	BST	SOURCE
	00433	0 02000 0 00071	262		TRA	DUP070
	00434	−0 53400 4 00051	263	DUP310	LXD	DUP031,4
	00435	0 02000 0 00121	264		TRA	DUP121
	00436	0 00000 0 00437	265	DUP320	HTR	DUP330
	00437	−0 76000 0 00012	266	DUP330	RTT
ATD	00440	3 00000 0 00000	267		TXH
	00441	0 76400 0 00225	268		BST	SOURCE
	00442	0 76400 0 00221	269		BST	OBJECT
	00443	0 02000 0 00071	270		TRA	DUP070
	00444	0 76400 0 00225	271	DUP340	BST	SOURCE
	00445	0 76400 0 00225	272		BST	SOURCE
	00446	0 76200 0 00225	273		RDS	SOURCE
	00447	0 02000 0 00073	274		TRA	DUP071
	00450	0 76400 0 00225	275	DUP350	BST	SOURCE
	00451	0 02000 0 00162	276		TRA	DUP171
	00452	−0 53400 4 00051	277	DUP360	LXD	DUP031,4
	00453	0 02000 0 00220	278		TRA	DUP231
	00454	0 00000 0 00455	279	DUP370	HTR	DUP380
	00455	0 76400 0 00225	280	DUP380	BST	SOURCE
	00456	0 76400 0 00221	281		BST	OBJECT
	00457	0 02000 0 00162	282		TRA	DUP171
		00460	283	RELREG	BSS	22
		00506	284	BINREG	BSS	1
		60000	285	STZ	EQU	24576
		00225	286	SOURCE	SYN	149
		00221	287	OBJECT	SYN	145
		00454	288	RECORD	SYN	300
		00453	289	DUMMY	SYN	299