1			32575
		77452	2	TABL	SYN	32554
		77453	3	TOOMCH	SYN	LIST−20
		00000	4		ORG	0
	00000	0 53400 1 00000	5	VR	LXA	0,1
	00001	0 70000 1 00002	6	SM	CPY	2,1
	00002	1 77777 1 00001	7		TXI	SM,1,−1
	00003	0 00000 1 00000	8	TG	HTR	0,1
	00004	−0 76000 0 00007	9		LTM
	00005	0 76200 0 00321	10	X	RCD
	00006	0 70000 1 77452	11	RB	CPY	LIST−21,1
	00007	1 77777 1 00006	12	LB	TXI	RB,1,−1
	00010	0 00000 0 00000	13	R
	00011	3 77470 1 00005	14		TXH	X,1,−200
	00012	−0 53400 1 77715	15		LXD	M,1
	00013	−0 63400 1 77715	16		SXD	M,1
	00014	0 60000 0 77453	17		STZ	LIST−20
	00015	0 76200 0 00321	18	READ	RCD
	00016	0 70000 0 00000	19		CPY	VR
	00017	0 02000 0 77500	20		TRA	TEST
	00020	0 00000 0 00015	21		HTR	READ
	00021	0 60000 2 00000	22	END	STZ	0,2
	00022	2 00001 2 00021	23		TIX	END,2,1
	00023	0 14000 0 00024	24		TOV	PROG
A	00024	0 02000 0 00000	25	PROG	TRA
	00025	0 00000 0 00000	26	T
	00026	0 00000 0 00030	27	S		24
	00027	+000000077777	28	ADDRS	OCT	000000077777
		77500	29		ORG	LIST+1
	77500	0 50000 0 00000	30	TEST	CLA	VR
	77501	0 70000 0 00001	31		CPY	SM
	77502	−0 12000 0 77626	32		TMI	PASS1 PREFIX IS 4 IF PROGRAM CARD
	77503	0 10000 0 00015	33		TZE	READ
	77504	0 60000 0 77777	34		STZ	PRTST SIGNAL END LOADING SEQUENTIAL PROG. CARDS
	77505	−0 53400 1 00000	35		LXD	VR,1
	77506	−3 00037 1 77516	36		TXL	REG,1,31
	77507	3 00040 1 00000	37		TXH	0,1,32
	77510	0 62100 0 00025	38		STA	T
	77511	0 40000 0 00026	39		ADD	S
	77512	0 62100 0 00026	40		STA	S
	77513	0 50000 0 00001	41		CLA	SM
	77514	0 62100 0 77520	42		STA	U
	77515	0 02000 0 00015	43		TRA	READ
	77516	0 62100 0 00010	44	REG	STA	R
	77517	0 77100 0 00017	45		ARS	15
	77520	−0 73400 4 00000	46	U	PDX	0,4
	77521	−3 00001 4 77524	47		TXL	NR,4,1
	77522	0 07400 2 77611	48		TSX	LT,2
	77523	0 62100 0 00010	49		STA	R
	77524	−0 50000 0 00000	50	NR	CAL	VR
	77525	0 77100 0 00022	51		ARS	18
	77526	0 40000 0 00010	52		ADD	R
	77527	0 62100 0 77531	53		STA	TR
	77530	−0 53400 2 00000	54		LXD	VR,2
D	77531	−3 00000 2 00000	55	TR	TXL	0,2
	77532	0 62100 0 77577	56		STA	TA
	77533	0 62100 0 77601	57		STA	SA
	77534	0 62100 0 77572	58		STA	SD
	77535	0 62100 0 77566	59		STA	TD
	77536	0 62100 0 77543	60	B	STA	CP
	77537	−0 50000 0 00000	61		CAL	VR
	77540	−3 00001 4 77543	62		TXL	CP,4,1
	77541	−0 70000 0 00007	63		CAD	LB
	77542	−0 70000 0 00006	64		CAD	RB
	77543	−0 70000 2 00000	65	CP	CAD	0,2
	77544	2 00001 2 77543	66		TIX	CP,2,1
	77545	−3 00000 4 77551	67		TXL	CT,4,0
	77546	−3 00001 4 00015	68		TXL	READ,4,1
	77547	−3 00002 4 77551	69		TXL	CT,4,2
	77550	−3 00003 4 77561	70		TXL	RL,4,3
	77551	0 60200 0 00000	71	CT	SLW	VR
	77552	0 50000 0 00001	72		CLA	SM
	77553	0 10000 0 77557	73		TZE	RT
	77554	0 40200 0 00000	74		SUB	VR
	77555	0 10000 0 77557	75		TZE	RT
	77556	0 42000 0 00000	76		HPR
	77557	−3 00001 4 00015	77	RT	TXL	READ,4,1
	77560	3 00003 4 77642	78		TXH	SR,4,3
	77561	0 56000 0 00006	79	RL	LDQ	RB
	77562	0 50000 0 00007	80	DB	CLA	LB
	77563	−0 76300 0 00001	81		LGL	1
	77564	0 60200 0 00007	82		SLW	LB
	77565	0 12000 0 77573	83		TPL	AB
	77566	0 50000 1 00000	84	TD	CLA	0,1
	77567	0 77100 0 00022	85		ARS	18
	77570	0 07400 2 77604	86		TSX	CB,2
	77571	0 76700 0 00022	87		ALS	18
	77572	0 62200 1 00000	88	SD	STD	0,1
	77573	0 50000 0 00007	89	AB	CLA	LB
	77574	−0 76300 0 00001	90		LGL	1
	77575	0 60200 0 00007	91		SLW	LB
	77576	0 12000 0 77602	92		TPL	TV
	77577	0 50000 1 00000	93	TA	CLA	0,1
	77600	0 07400 2 77604	94		TSX	CB,2
	77601	0 62100 1 00000	95	SA	STA	0,1
	77602	2 00001 1 77562	96	TV	TIX	DB,1,1
	77603	0 02000 0 00015	97		TRA	READ
	77604	0 62100 0 00010	98	CB	STA	R
	77605	0 50000 0 00007	99		CLA	LB
	77606	−0 76300 0 00001	100		LGL	1
	77607	0 60200 0 00007	101		SLW	LB
	77610	−0 12000 0 77612	102		TMI	LTA WILL ADDRESS BE MISLEADING
	77611	0 76000 0 00141	103	LT	SLN	1 NO, CODE IS 10, TURN ON SENSE LIGHT
	77612	0 50200 0 00010	104	LTA	CLS	R DOES THIS ADDRESS REFER TO PROGRAM OR DATA
	77613	0 40000 0 00025	105		ADD	T
	77614	0 12000 0 77622	106		TPL	ADDS
	77615	−0 76000 0 00141	107		SLT	1 APPEARS TO BE DATA, BUT WHAT WAS CODE
	77616	0 02000 0 77624	108		TRA	PROGRM ACTUALLY PROGRAM, ADD CURRENT INCREMENT
	77617	0 50000 0 00010	109	DATA	CLA	R IS DATA REFERENCE, DECREMENT
	77620	0 40100 0 77520	110		ADM	U
	77621	0 02000 2 00001	111		TRA	1,2
	77622	−0 76000 0 00141	112	ADDS	SLT	1 APPEARS TO BE PROGRAM, WHAT WAS CODE
	77623	0 02000 0 77617	113		TRA	DATA ACTUALLY IS DATA REFERENCE, DECREMENT
	77624	0 40200 0 00026	114	PROGRM	SUB	S
	77625	0 02000 2 00001	115		TRA	1,2
	77626	−0 73400 2 00000	116	PASS1	PDX	0,2 - WORD COUNT IN DEC. OF AC
	77627	−3 00000 2 77770	117		TXL	PASS2,2,0 WORD COUNT IS 0, GO TO 2ND PASS
	77630	0 40000 0 77771	118		ADD	TAG - LENGTH OF SYMB. TABLE IN DEC.
	77631	0 40000 0 77640	119		ADD	DECTWO TO ALLOW SPACE IN TABLE FOR LOC. + LENGTH
	77632	0 62200 0 77713	120		STD	STOP STORE NEW LENGTH IN INST. TO STOP RELOC.
	77633	0 40200 0 77715	121		SUB	M ADDRS. TABLE + 1 - WORD COUNT + LENGTH TAB
	77634	0 62200 0 77667	122		STD	OVLP STORE L0WEST ADDRS. FOUND, TO COMPARE TO S
	77635	0 36100 0 00000	123		ACL	VR
	77636	0 40200 0 77640	124		SUB	DECTWO
	77637	0 77100 0 00022	125		ARS	18
	77640	2 00002 2 77641	126	DECTWO	TIX	TXB,2,2
	77641	0 07400 4 77536	127	TXB	TSX	B,4 FORCE IR 4 FOR CHECK SUM, BUT NOT RELOCATE
	77642	−0 53400 1 77771	128	SR	LXD	TAG,1 LOAD OLD TABLE LENGTH
	77643	0 50000 0 77777	129		CLA	PRTST HAS ANOTHER PROGRAM CARD PRECEEDED
	77644	0 10000 0 77652	130		TZE	ONLY1 THIS ONE
	77645	0 50000 0 00007	131		CLA	LB YES, LB HAS NAME, RB HAS
	77646	0 60100 1 77451	132		STO	TABL−1,1 ENTRY POINT
	77647	0 50000 0 00006	133		CLA	RB
	77650	0 60100 1 77452	134		STO	TABL,1
	77651	2 00002 1 77704	135		TIX	NCARDS,1,2 SKIP, COMPARISONS ALREADY DONE
	77652	0 50000 0 00026	136	ONLY1	CLA	S STORE LOCATION OF TRA VECTOR IN
	77653	0 60000 1 77451	137		STZ	TABL−1,1
	77654	0 60100 1 77452	138		STO	TABL,1 SYMBOL TABLE, S HAS ADDRESS ONLY
	77655	−0 53400 4 00007	139		LXD	LB,4
	77656	3 00000 4 77661	140		TXH	CLAS,4,0
	77657	0 50000 0 77776	141		CLA	BTMASK
	77660	0 60100 1 77451	142		STO	TABL−1,1
	77661	0 50000 0 00007	143	CLAS	CLA	LB STORE LENGTH OF VECTOR IN
	77662	0 62200 1 77451	144		STD	TABL−1,1 SYMBOL TABLE
	77663	0 62100 0 00025	145		STA	T STORE LENGTH OF ROUTINE IN T
	77664	0 40000 0 00026	146		ADD	S UPDATE S
	77665	0 62100 0 00026	147		STA	S
	77666	0 73400 2 00000	148		PAX	0,2 COMPARE S TO LOWEST ADDRESS OF TABLE
	77667	3 00000 2 00003	149	OVLP	TXH	TG,2,0 TRA TG, TABLE + INST. OVERLAP
	77670	0 50000 0 77520	150		CLA	U FIND LOWEST ADDRESS DATA WILL USE
	77671	0 40200 0 00006	151		SUB	RB
	77672	0 73400 4 00000	152		PAX	0,4
	77673	−0 75400 4 00000	153		PXD	0,4
	77674	0 77100 0 00022	154		ARS	18
	77675	0 10000 0 77677	155		TZE	ACLA
	77676	0 34000 0 00027	156		CAS	ADDRS
	77677	0 50000 0 00027	157	ACLA	CLA	ADDRS
	77700	0 76100 0 00000	158		NOP
	77701	0 60100 0 00027	159		STO	ADDRS
	77702	0 40200 0 00026	160		SUB	S
	77703	−0 12000 0 77453	161		TMI	TOOMCH TRA TOOMCH, DATA + INSTR. WILL OVERLAP
	77704	−0 63400 2 77777	162	NCARDS	SXD	PRTST,2 SIGNAL TO SEQUENTIAL PROGRAM CARDS
	77705	0 60000 0 00007	163		STZ	LB MAY COMPLEMENT IF 1 IS FOUND
	77706	1 00002 1 77707	164		TXI	LTT,1,2 TO GET PAST LOC. + LENGTH OF VECTOR
	77707	0 50000 1 77452	165	LTT	CLA	TABL,1
	77710	0 07400 2 77604	166		TSX	CB,2 RELOCATE ENTRY POINTS IN TABLE
	77711	0 62100 1 77452	167		STA	TABL,1
	77712	1 00002 1 77713	168		TXI	STOP,1,2
	77713	−3 00000 1 77707	169	STOP	TXL	LTT,1,0
	77714	−0 63400 1 77771	170		SXD	TAG,1 SAVE LENGTH OF TABLE
	77715	−2 77452 0 00015	171	M	TNX	READ,0,TABL
	77716	−0 50000 2 77453	172	VEC	CAL	TABL+1,2
	77717	−0 10000 0 77723	173		TNZ	G3
	77720	0 50000 2 77454	174		CLA	TABL+2,2
	77721	0 62100 0 00024	175		STA	PROG
	77722	0 02000 0 77770	176		TRA	PASS2
	77723	−0 32000 0 77776	177	G3	ANA	BTMASK
	77724	−0 10000 0 77770	178		TNZ	PASS2
	77725	0 50000 2 77453	179		CLA	TABL+1,2
	77726	−0 73400 4 00000	180	OLDU	PDX	0,4 LENGTH OF VECTOR
	77727	0 77100 0 00022	181		ARS	18
	77730	0 40000 2 77454	182		ADD	TABL+2,2 PLUS LOACTION OF VECTOR
	77731	0 62100 0 77736	183		STA	A
	77732	0 62100 0 77764	184		STA	AA
	77733	0 62100 0 77766	185		STA	AAA
	77734	0 62100 0 77741	186		STA	ABB
	77735	−0 53400 1 77771	187	NXTVC	LXD	TAG,1 LENGTH OF SYMBOL TABLE
	77736	−0 50000 4 00000	188	A	CAL	0,4
	77737	−0 32000 0 77776	189		ANA	BTMASK
	77740	0 10000 0 77767	190		TZE	TIXVEC
	77741	0 50000 4 00000	191	ABB	CLA	0,4 LOOK FOR FIRST NAME IN TRA VECTOR
	77742	0 34000 1 77453	192	NXTNAM	CAS	TABL+1,1 IN SYMBOL TABLE
	77743	0 02100 0 77745	193	TTR	TTR	G4
	77744	0 02000 0 77763	194		TRA	FIX
	77745	2 00002 1 77742	195	G4	TIX	NXTNAM,1,2 LOOK AT NEXT NAME IN TABLE
	77746	0 60100 0 00006	196	SAVNAM	STO	RB
	77747	−0 53400 1 77753	197		LXD	TWTY,1
	77750	0 50000 1 77477	198	CMPR	CLA	LIST,1
	77751	0 10000 0 77757	199		TZE	STONAM STORE IN FIRST EMPTY CELL
	77752	0 34000 0 00006	200		CAS	RB IF NEW NAME
	77753	−2 00024 0 77755	201	TWTY	TNX	G2,0,20
	77754	0 02000 0 77767	202		TRA	TIXVEC ALREADY IN TABLE, IGNORE
	77755	2 00001 1 77750	203	G2	TIX	CMPR,1,1
	77756	0 00000 0 77770	204		HTR	PASS2 MORE THAN 20 ENTRIES TO BE SEARCHED FOR
	77757	0 50000 0 00006	205	STONAM	CLA	RB
	77760	0 60100 1 77477	206		STO	LIST,1
	77761	0 60000 1 77500	207		STZ	LIST+1,1
	77762	0 02000 0 77767	208		TRA	TIXVEC
	77763	0 50000 0 77743	209	FIX	CLA	TTR
	77764	0 60100 4 00000	210	AA	STO	0,4
	77765	0 50000 1 77454	211		CLA	TABL+2,1
	77766	0 62100 4 00000	212	AAA	STA	0,4
	77767	2 00001 4 77735	213	TIXVEC	TIX	NXTVC,4,1 GET NEXT NAME IN VECTOR
	77770	1 00002 2 77771	214	PASS2	TXI	TAG,2,2 IR 2 IS 0 AT BEGINING
	77771	−3 00000 2 77716	215	TAG	TXL	VEC,2,0
	77772	0 50000 0 77453	216		CLA	TABL+1 0 IF ALL NAMES WERE FOUND
	77773	−0 10000 0 77775	217		TNZ	SEARCH
	77774	1 00324 2 00021	218		TXI	END,2,212 CLEARS SYMBOL TABLE, LIST + LOADER
	77775	0 00000 0 00014	219	SEARCH	HTR	READ−1
	77776	−300000000000	220	BTMASK	OCT	700000000000
	77777	0 00000 0 00000	221	PRTST