1			L(0),3 PERMANENT LIBRARIAN ENTRY POINT
	00001	0 60000 0 00150	2		STZ	ERASE
	00002	0 76200 0 00321	3	RCD	RCD
	00003	−0 70000 0 00144	4		CAD	9L
	00004	0 02000 0 00006	5		TRA	CPY9R
	00005	0 02000 0 00130	6		TRA	EXIT EOF
	00006	0 70000 0 00145	7	CPY9R	CPY	9R
	00007	0 50000 0 00144	8		CLA	9L
	00010	0 10000 0 00130	9		TZE	EXIT
	00011	0 76000 0 00006	10		COM
	00012	−0 73400 4 00000	11		PDX	0,4
	00013	1 00001 4 00014	12		TXI	CPY9R+6,4,1
	00014	−3 77700 4 00134	13		TXL	PASSGL,4,−64
	00015	0 50000 0 00144	14		CLA	9L
	00016	0 76700 0 00001	15		ALS	1
	00017	−0 76000 0 00001	16		PBT
	00020	0 02000 0 00041	17		TRA	BINARY CARD
	00021	1 77776 4 00023	18		TXI	CPAREL−2,4,−2
	00022	−0 63400 4 00027	19		SXD	TXHREL,4
T	00023	−0 75400 0 00000	20		PXD
	00024	0 60000 0 00150	21		STZ	ERASE
	00025	−0 70000 2 00152	22	CPAREL	CAD	RELREG,2
	00026	1 77777 2 00027	23		TXI	TXHREL,2,−1
	00027	3 00027 2 00025	24	TXHREL	TXH	CPAREL,2,*
	00030	0 07400 4 00071	25		TSX	CHSTST,4
	00031	0 76600 0 00221	26		WTB	1
	00032	−3 00000 1 00035	27		TXL	TSXREL,1,0
	00033	0 07400 4 00111	28		TSX	WRBIN,4
	00034	0 76600 0 00221	29		WTB	1
	00035	0 07400 4 00102	30	TSXREL	TSX	WRREL,4
	00036	0 60000 0 00146	31		STZ	9LB,0,STZ
	00037	0 60000 0 00147	32		STZ	9RB,0,STZ
	00040	0 02000 0 00002	33		TRA	RCD
T	00041	−0 75400 0 00000	34	BINARY	PXD
	00042	−0 70000 1 00200	35	CPABIN	CAD	BINREG,1
	00043	1 77777 1 00044	36		TXI	TXHBIN−1,1,−1
	00044	1 00001 4 00045	37		TXI	TXHBIN,4,1
	00045	3 00000 4 00042	38	TXHBIN	TXH	CPABIN,4,0
	00046	0 07400 4 00071	39		TSX	CHSTST,4
	00047	0 50000 0 00144	40		CLA	9L
	00050	0 40000 0 00146	41		ADD	9LB
	00051	0 60100 0 00146	42		STO	9LB
	00052	0 50000 0 00150	43		CLA	ERASE
	00053	0 10000 0 00066	44		TZE	CHER
	00054	0 50000 0 00145	45		CLA	9R
	00055	−0 12000 0 00060	46		TMI	CHSIGN
	00056	0 36100 0 00151	47		ACL	L(1)
	00057	0 02000 0 00061	48		TRA	NORM
	00060	0 76000 0 00003	49	CHSIGN	SSP
	00061	0 60200 0 00145	50	NORM	SLW	9R
	00062	−0 50000 0 00145	51		CAL	9R
	00063	0 36100 0 00147	52		ACL	9RB
	00064	0 60200 0 00147	53		SLW	9RB
	00065	0 02000 0 00002	54		TRA	RCD
	00066	0 50000 0 00151	55	CHER	CLA	L(1)
	00067	0 60100 0 00150	56		STO	ERASE
	00070	0 02000 0 00062	57		TRA	NORM+1
	00071	0 36100 0 00144	58	CHSTST	ACL	9L
	00072	0 60200 0 00142	59		SLW	CHS
	00073	0 76600 0 00333	60		IOD
	00074	0 76600 0 00333	61		IOD
	00075	0 50000 0 00145	62		CLA	9R
	00076	0 34000 0 00142	63		CAS	CHS
	00077	0 00000 4 00001	64		HTR	1,4 CARD READING ERROR
	00100	0 02000 4 00001	65		TRA	1,4
	00101	0 02000 0 00077	66		TRA	WRREL−3
	00102	0 50000 0 00141	67	WRREL	CLA	LIREL)
	00103	0 62100 0 00121	68		STA	CPY
	00104	−0 63400 2 00123	69		SXD	CPY+2,2
	00105	0 70000 0 00144	70		CPY	9L
	00106	0 53400 2 00143	71		LXA	L(0),2
	00107	0 70000 0 00145	72		CPY	9R
D	00110	−3 00000 0 00117	73	RETURN	TXL	XR,0
	00111	0 50000 0 00140	74	WRBIN	CLA	LIBIN)
	00112	0 62100 0 00121	75		STA	CPY
	00113	0 70000 0 00146	76		CPY	9LB
	00114	−0 63400 1 00123	77		SXD	CPY+2,1
	00115	0 53400 1 00143	78		LXA	L(0),1
	00116	0 70000 0 00147	79		CPY	9RB
	00117	−0 63400 4 00110	80	XR	SXD	RETURN,4
	00120	0 53400 4 00143	81		LXA	L(0),4
	00121	0 70000 4 00121	82	CPY	CPY	*,4
	00122	1 77777 4 00123	83		TXI	CPY+2,4,−1
	00123	3 00123 4 00121	84		TXH	CPY,4,*
	00124	−0 53400 4 00110	85		LXD	RETURN,4
	00125	0 76600 0 00333	86		IOD
	00126	0 76600 0 00333	87		IOD
	00127	0 02000 4 00001	88		TRA	1,4
	00130	0 76200 0 00321	89	EXIT	RCD
	00131	0 70000 0 00000	90		CPY	0
	00132	0 70000 0 00001	91		CPY	1
	00133	0 02000 0 00000	92		TRA	0
	00134	−0 53400 4 00137	93	PASSGL	LXD	PASSGL+3,4 BY-PASS
	00135	0 76200 0 00321	94		RCD	GENERAL
	00136	2 00001 4 00135	95		TIX	PASSGL+1,4,1 LIBRARIAN
	00137	−3 00016 0 00000	96		TXL	RCD−2,0,14 G.L. CARD COUNT
	00140	0 00000 0 00200	97	LIBIN)		BINREG
	00141	0 00000 0 00152	98	LIREL)		RELREG
	00142	0 00000 0 00000	99	CHS
	00143	0 00000 0 00000	100	L(0)
	00144	0 00000 0 00000	101	9L
	00145	0 00000 0 00000	102	9R
	00146	0 00000 0 00000	103	9LB
	00147	0 00000 0 00000	104	9RB
	00150	0 00000 0 00000	105	ERASE	HTR	0
	00151	+377777777777	106	L(1)	OCT	377777777777
		00152	107	RELREG	BSS	22
		00200	108	BINREG	BSS	1
		60000	109	STZ	EQU	24576