1			BLOCK FOUR OF SECTION TWO.
			2			MASTER RECORD CARD = FN045	F2400000
			3			BLOCK 4	F2400005
			4			THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE	F2400010
			5			INDEX LOAD VALUES FOR PURE RELCONS.	F2400020
			6			THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS	F2400030
			7			(C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1	F2400040
			8			TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE	F2400050
			9			SUBROUTINES REQUIRED.	F2400060
		00030	10		ORG	24	F2400070
		00030	11	CIB	BSS	100	F2400080
		00174	12	WRKSC	BSS	8	F2400090
		00204	13	BOB	BSS	152	F2400100
		00434	14	OR000	BSS	28	F2400110
		00450	15		ORG	296	F2400120
M	00450	+010000000001	16	OR012	OCT	010000000001	F2400130
M	00451	+060000000003	17	OR013	OCT	060000000003	F2400140
		00456	18		ORG	302	F2400150
M	00456	+010000000002	19	OR018	OCT	010000000002	F2400160
		00466	20		ORG	310	F2400170
M	00466	+010000000003	21	OR026	OCT	010000000003	F2400180
	00467	0 00000 0 00000	22		HTR	0	F2400190
	00470	0 50000 0 01430	23	START1	CLA	L(1) SAVE STATUS OF SENSE-LIGHT3	F2400200
	00471	−0 76000 0 00143	24		MSE	99 SO THAT IT CAN BE USED	F2400210
	00472	0 02000 0 00474	25		TRA	START IN THIS BLOCK.	F2400220
	00473	0 60100 0 01415	26		STO	SENSE1	F2400230
	00474	0 07400 4 00752	27	START	TSX	RDRM,4 READ TABLE IRV (BOB ALSO)	F2400240
	00475	0 02000 0 00542	28		TRA	FINISH+9 RETURN HERE IF NO ENTRIES.	F2400250
	00476	−0 53400 1 01007	29		LXD	1CNT,1 LOAD IRA WITH NO. OF IRV ENTRIES	F2400260
	00477	0 07400 4 00710	30		TSX	INITFX,4 FORM END TEST FOR FIXC0O SEARCH	F2400270
	00500	−0 53400 2 01427	31		LXD	L(0),2 BEGIN WITH FIRST TABLE BOB ENTRY.	F2400280
	00501	0 50000 2 00204	32	REPETE	CLA	BOB,2 SELECT TABLE IRV ENTRY.	F2400290
	00502	0 62100 0 01375	33		STA	NAME1 PUT SUBCOM NAME IN NAME 1.	F2400300
	00503	0 77100 0 00022	34		ARS	18 PUT TAU REFERENCE	F2400310
	00504	0 62100 0 01376	35		STA	TAG1 IN TAG1.	F2400320
	00505	−0 63400 2 01414	36	ENTRY	SXD	BX,2	F2400330
	00506	−0 63400 1 01413	37		SXD	AX,1	F2400340
	00507	0 07400 4 01143	38		TSX	SUBCOM,4 READ TAU ENTRY FROM DRUM.	F2400350
	00510	0 07400 4 00562	39		TSX	COMPIL,4 COMPILE SUBROUTINE FRO COMPUTING	F2400360
	00511	−0 53400 2 01414	40		LXD	BX,2 LOAD VALUE.	F2400370
	00512	−0 53400 1 01413	41		LXD	AX,1	F2400380
	00513	1 77777 2 00514	42		TXI	TEST,2,−1 STEP DOWN COUNT THROUGH TABLE IRV.	F2400390
	00514	−2 00001 1 00531	43	TEST	TNX	FINISH,1,1 END OF TABLE IRV.	F2400400
	00515	0 50000 2 00204	44		CLA	BOB,2 REDUNDANT.	F2400410
	00516	0 07400 4 00735	45		TSX	LINKTR,4 COMPILE SUBROUTINE RETURN.	F2400420
	00517	0 02000 0 00501	46		TRA	REPETE	F2400430
	00520	0 62100 0 01377	47		STA	TAG2 THE INSTRUCTIONS FROM HERE	F2400440
	00521	0 40200 0 01376	48		SUB	TAG1 THROUGH	F2400450
	00522	0 10000 0 00527	49		TZE	EQUAL TRA ENTRY	F2400460
	00523	0 07400 4 00735	50		TSX	LINKTR,4 ARE	F2400470
	00524	0 50000 0 01377	51		CLA	TAG2 REDUNDANT.	F2400480
	00525	0 60100 0 01376	52		STO	TAG1	F2400490
	00526	0 02000 0 00505	53		TRA	ENTRY	F2400500
	00527	0 07400 4 00674	54	EQUAL	TSX	STOTP,4	F2400510
	00530	0 02000 0 00513	55		TRA	TEST−1	F2400520
	00531	0 07400 4 00735	56	FINISH	TSX	LINKTR,4 FORM LAST SUBROUTINE RETURN,	F2400530
	00532	0 50000 0 01071	57		CLA	FC08+1 FIXCON WORD COUNT	F2400540
	00533	0 76600 0 00302	58		WRS	194	F2400550
	00534	−0 32000 0 01424	59		ANA	DECMSK ADJUST F1XCON WDRDCT	F2400560
	00535	0 40000 0 01421	60		ADD	L1DEC	F2400570
	00536	0 77100 0 00021	61		ARS	17 WRITE FIXCON WORDCT AND	F2400580
	00537	0 60100 0 01401	62		STO	AD1 ITS CHECKSUM ON DRUM, IN	F2400590
	00540	0 70000 0 01401	63		CPY	AD1 ITS ORIGINAL POSITION, AT THE	F2400600
	00541	0 70000 0 01401	64		CPY	AD1 BEGINNING.	F2400610
	00542	0 07400 4 01021	65		TSX	CITSP,4 WRITE CIT BUFFER ON TAPE	F2400620
	00543	0 77000 0 00222	66		WEF	146 WRITE E.O.F. ONCIT TAPE	F2400630
	00544	0 76600 0 00222	67		WRS	146	F2400640
	00545	0 70000 0 01400	68		CPY	RECCNT WRITE CIT RECORDCOUNT AND	F2400650
	00546	0 70000 0 01400	69		CPY	RECCNT CHECKSUM ON CIT TAPE	F2400660
	00547	0 77000 0 00222	70		WEF	146 WRITE E.O.F. ON CIT TAPE.	F2400670
	00550	0 53400 1 01400	71		LXA	RECCNT,1 BACKSPACE CIT TAPE	F2400680
	00551	1 00003 1 00552	72		TXI	BST,1,3 UNTIL 1ST CIT RECORD	F2400690
	00552	0 76400 0 00222	73	BST	BST	146 THAT THIS BLOCK COMPILED.	F2400700
	00553	2 00001 1 00552	74		TIX	BST,1,1	F2400710
	00554	0 76000 0 00140	75		PSE	96 TURN OFF ALL SENSE LIGHTS.	F2400720
	00555	0 50000 0 01415	76		CLA	SENSE1 RESET LIGHT 3 T0OTHE STATUS	F2400730
	00556	0 10000 0 00560	77		TZE	END IT HELD BEFORE THE	F2400740
	00557	0 76000 0 00143	78		PSE	99 COMMENCEMENT OF THIS BLOCK.	F2400750
	00560	0 76200 0 00221	79	END	RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE
	00561	0 02000 0 00004	80		TRA	4
	00562	−0 63400 1 01402	81	COMPIL	SXD	1XB0X,1	F2400770
	00563	−0 63400 2 01403	82		SXD	2XB0X,2	F2400780
	00564	−0 63400 4 01012	83		SXD	LINK1,4 SAVE LINKAGE	F2400790
	00565	0 76000 0 00140	84		PSE	96 TURN ALL SENSE LIGHTS OFF	F2400800
	00566	0 07400 4 01240	85		TSX	COSE,4 OBTAIN NAME OF IOEFF. IN FIXCON.	F2400810
	00567	0 50000 0 01426	86		CLA	L(CLA)	F2400820
	00570	0 60100 0 01051	87		STO	CIL01 THIS ROUTINE COMPILES	F2400830
	00571	0 50000 0 00451	88		CLA	OR000+13 THE INSTRUCTION	F2400840
	00572	−0 32000 0 01422	89		ANA	6ONES	F2400850
	00573	0 60100 0 01052	90		STO	CIL02 CLA 6)+3,	F2400860
	00574	0 50000 0 01432	91		CLA	L(3) WITH ZERO TAG,	F2400870
	00575	0 76700 0 00022	92		ALS	18	F2400880
	00576	0 60100 0 01053	93		STO	CIL03 TOGETHER WITH A SYMBOLIC	F2400890
	00577	0 50000 0 01375	94		CLA	NAME1 LOCATION OF	F2400900
	00600	−0 50100 0 01420	95		ORA	BCD10	F2400910
	00601	0 60100 0 01050	96	STOLOC	STO	CIL00 10)+NAME1	F240A920
	00602	0 07400 4 01015	97		TSX	CIT,4 ENTER INSTR. IN CIT	F2400930
	00603	0 50000 0 01425	98		CLA	L(STO)	F2400940
	00604	0 60100 0 01051	99		STO	CIL01 THIS ROUTINE COMPILES THE	F2400950
	00605	0 50000 0 00466	100		CLA	OR000+26 INSTRUCTION.	F2400960
	00606	0 73400 1 00000	101		PAX	0,1	F2400970
	00607	−0 32000 0 01422	102		ANA	6ONES STO 1)+3	F2400980
	00610	−0 63400 1 01053	103		SXD	CIL03,1 THESE COMPILED INSTR. PLACE	F2400990
	00611	0 60100 0 01052	104		STO	CIL02 1 IN ERASABLE STORAGE	F2401000
T	00612	−0 75400 0 00000	105		PXD	0	F2401010
	00613	0 60100 0 01050	106		STO	CIL00	F2401020
	00614	0 07400 4 01015	107		TSX	CIT,4 ENTER INSTR. IN CIT	F2401030
	00615	0 50000 0 00175	108		CLA	WRKSC+1 TEST 1ST SUBSCRIPT SYMBOL	F2401040
	00616	0 10000 0 00630	109		TZE	S2 NO SYMBOL PRESENT	F2401050
	00617	0 60100 0 00435	110		STO	OR000+1 SAVE S1 FOR LXC ROUTINE	F2401060
	00620	0 53400 1 01433	111		LXA	L(4),1 INDEX FOR NO. OF COMPILED INSTR.	F2401070
	00621	−0 76000 0 00141	112		MSE	97 DOES 1ST COEFF EXCEED 1	F2401080
	00622	0 02000 0 00624	113		TRA	COMP20 NO	F2401090
	00623	1 00002 1 00626	114		TXI	COMP30,1,2 YES. 6 INSTR. TO BE COMPILED	F2401100
	00624	0 50000 0 01436	115	COMP20	CLA	KLX02 NO. COMPILE INSTR TO COMPUTE	F2401110
	00625	0 02000 0 00627	116		TRA	COMP30+1 S1-1+(1 ALREADY IN ERASABLE)	F2401120
	00626	0 50000 0 01437	117	COMP30	CLA	KLX021 YES. COMPILE C1A1-1	F2401130
	00627	0 07400 4 01257	118		TSX	LXC,4 +(1 AREADY IN ERASABLE)	F2401140
	00630	0 50000 0 00177	119	S2	CLA	WRKSC+3	F2401150
	00631	0 10000 0 00645	120		TZE	S3 TRA IF NO 2ND SUBSC, SYMBOL	F2401160
	00632	0 60100 0 00440	121		STO	OR000+4 SAVE S2 FOR LXC ROUTINE.	F2401170
	00633	0 50000 0 00202	122		CLA	WRKSC+6 OBTAIN SYMBOLIC ADDRESS	F2401180
	00634	0 07400 4 01054	123		TSX	FIXCON,4 OF D1 IN FIXCON TABLE	F2401190
	00635	0 60100 0 00443	124		STO	OR000+7 AND STORE FOR LXC ROUTINE.	F2401200
	00636	0 53400 1 01435	125		LXA	L(6),1 6 INSTR. TO BE COMPILED	F2401210
	00637	−0 76000 0 00142	126		MSE	98 IS COEFF. C2 GREATER THAN 1,	F2401220
	00640	0 02000 0 00643	127		TRA	COMP40 NO. COMPILE D1*S2-D1+	F2401230
	00641	0 50000 0 01440	128		CLA	KLX03 YES. 8 INSTR. COMPILED TO	F2401240
	00642	1 00002 1 00644	129		TXI	COMP40+1,1,2 COMPUTE D1*S2*C3-D1+	F2401250
	00643	0 50000 0 01441	130	COMP40	CLA	KLX031	F2401260
	00644	0 07400 4 01257	131		TSX	LXC,4 + THAT ALREADY COMPUTED.	F2401270
	00645	0 50000 0 00201	132	S3	CLA	WRKSC+5 TEST FOR 3RD SUBSCRIPT	F2401280
	00646	0 10000 0 00664	133		TZE	COMP55 SYMBOL.	F2401290
	00647	0 60100 0 00461	134		STO	OR000+21 STORE FOR LXC ROUTINE.	F2401300
	00650	0 56000 0 00202	135		LDQ	WRKSC+6 COMPUTE D1*D2,	F2401310
	00651	0 20000 0 00203	136		MPY	WRKSC+7 AND OBTAIN	F2401320
	00652	0 76700 0 00021	137		ALS	17 NAME FOR THIS CONSTANT FROM	F2401330
	00653	0 07400 4 01054	138		TSX	FIXCON,4 FIXCON, AND STORE FOR	F2401340
	00654	0 60100 0 00464	139		STO	OR000+24 LXC ROUTINE.	F2401350
	00655	0 53400 1 01435	140		LXA	L(6),1 6 INSTR. TO BE COMPILED	F2401360
	00656	−0 76000 0 00143	141		MSE	99 IS 3RD COEFF GREATER THAN 1.	F2401370
	00657	0 02000 0 00662	142		TRA	COMP50 NO. COMPILE D1D2*S3-D1D2+	F2401380
	00660	0 50000 0 01442	143		CLA	KLX05 YES, COMPILE D1D2*C3S3-D1D2+	F2401390
	00661	1 00002 1 00663	144		TXI	COMP50+1,1,2	F2401400
	00662	0 50000 0 01443	145	COMP50	CLA	KLX051	F2401410
	00663	0 07400 4 01257	146		TSX	LXC,4 + THAT ALREADY COMPUTED.	F2401420
	00664	−0 53400 4 01045	147	COMP55	LXD	BBOX,4	F2401430
	00665	1 00004 4 00666	148		TXI	COMP55+2,4,4 STEP UP CIT BUFFER COUNT	F2401440
	00666	−0 63400 4 01045	149		SXD	BBOX,4	F2401450
	00667	0 07400 4 00674	150		TSX	STOTP,4 COMPILE INSTRUCTION TO STORE	F2401460
	00670	−0 53400 1 01402	151		LXD	1XB0X,1 LOADING VALUE FOR SUBSCRIPT COMB.	F2401470
	00671	−0 53400 2 01402	152		LXD	1XB0X,2	F2401480
	00672	−0 53400 4 01012	153		LXD	LINK1,4	F2401490
	00673	0 02000 4 00001	154		TRA	1,4 RETURN	F2401500
	00674	−0 63400 4 01404	155	STOTP	SXD	LINK2,4 ROUTINE COMPILES THE INSTR.	F2401510
	00675	0 50000 0 01427	156		CLA	L(0) TO STORE THE RESULTS OF	F2401520
	00676	0 60100 0 01050	157		STO	CIL00 THE SUBROUTINE COMPILATION IN	F2401530
	00677	0 60100 0 01053	158		STO	CIL03 THE TAG NAME.	F2401540
	00700	0 50000 0 01425	159		CLA	L(STO) THIS INSTRUCTION IS	F2401550
	00701	0 60100 0 01051	160		STO	CIL01	F2401560
	00702	0 50000 0 01375	161		CLA	NAME1 STO 12)+ NAME1	F2401570
	00703	−0 50100 0 01417	162		ORA	BCD14	F2401580
	00704	0 60100 0 01052	163		STO	CIL02	F2401590
	00705	0 07400 4 01015	164		TSX	CIT,4 ENTER IN CIT TABLE	F2401600
	00706	−0 53400 4 01404	165		LXD	LINK2,4	F2401610
	00707	0 02000 4 00001	166		TRA	1,4 RETURN	F2401620
			167			ROUTINE FORMS END TEST FOR FIXCON SEARCH ROUTINE	F2401630
	00710	0 53400 2 01434	168	INITFX	LXA	L(5),2 LOAD READING ERROR COUNTER.	F2401640
	00711	0 76200 0 00302	169	C1	RDS	194 .	F2401650
	00712	0 70000 0 01007	170		CPY	1CNT READ FIXCON WD.CT	F2401660
	00713	0 70000 0 01010	171		CPY	2CNT AND ITS CHECKSUM	F2401670
	00714	0 50000 0 01007	172		CLA	1CNT	F2401680
	00715	0 40200 0 01010	173		SUB	2CNT TEST FOR READING ERROR.	F2401690
	00716	−0 10000 0 00733	174		TNZ	C6 ERROR.	F2401700
	00717	0 50000 0 01007	175		CLA	1CNT IS FIXCON EMPTY.	F2401710
	00720	0 10000 0 00725	176		TZE	C4 YES	F2401720
	00721	0 40200 0 01431	177		SUB	L(2)	F2401730
	00722	0 76700 0 00021	178		ALS	17 STORE END TEST IN	F2401740
	00723	0 62200 0 01071	179	C2	STD	FC08+1 FIXCON SEARCH ROUTINE	F2401750
	00724	0 02000 4 00001	180		TRA	1,4 RETURN TO MAIN ROUTINE.	F2401760
	00725	0 76200 0 00302	181	C4	RDS	194 FIXCON IS EMPTY.	F2401770
	00726	0 70000 0 01427	182		CPY	L(0) SET FIRST FOUR LOCATIONS	F2401780
	00727	0 70000 0 01427	183		CPY	L(0) TO	F2401790
	00730	0 70000 0 01427	184		CPY	L(0) ZERO.	F2401800
	00731	0 70000 0 01427	185		CPY	L(0)	F2401810
	00732	0 02000 0 00723	186		TRA	C2 STORE ZERO AS END TEST	F2401820
	00733	2 00001 2 00711	187	C6	TIX	C1,2,1 ERROR. TRY TO READ 3 TIMES.	F2401830
	00734	0 07400 4 00004	188		TSX	DIAG,4 DRUM 2 READING ERROR FIVE TIMES.	F2401840
	00735	0 50000 0 01427	189	LINKTR	CLA	L(0)	F2401850
	00736	0 60100 0 01050	190		STO	CIL00 THIS ROUTINE COMPILES	F2401860
	00737	0 60100 0 01052	191		STO	CIL02 INSTRUCTION FOR RETURN	F2401870
	00740	0 50000 0 00750	192		CLA	L(TRA) TO THE FORTRAN MASTER	F2401880
	00741	0 60100 0 01051	193		STO	CIL01 ROUTINE.	F2401890
	00742	0 50000 0 00751	194		CLA	RELTG TRA1,4	F2401900
	00743	0 60100 0 01053	195		STO	CIL03	F2401910
	00744	−0 63400 4 01012	196		SXD	LINK1,4	F2401920
	00745	0 07400 4 01015	197		TSX	CIT,4 FENTER IN CIT TABLE.	F2401930
	00746	−0 53400 4 01012	198		LXD	LINK1,4	F2401940
	00747	0 02000 4 00001	199		TRA	1,4 RETURN	F2401950
	00750	635121000000	200	L(TRA)	BCD	1TRA000	F2401960
	00751	+000001000004	201	RELTG	OCT	000001000004	F2401970
			202			ROUTINE READS AND CHECKS TABLE IRV (ALSO CALLED BOB)	F2401980
	00752	0 53400 1 01434	203	RDRM	LXA	L(5),1 LOAD ERROR COUNTER.	F2401990
	00753	−0 63400 4 01012	204		SXD	LINK1,4 SAVE ENTRY PT.	F2402000
	00754	0 76200 0 00303	205	RDS	RDS	195	F2402010
T	00755	0 53400 0 01013	206		LXA	L(152), 2	F2402020
	00756	0 46000 0 01014	207		LDA	L1304 DRUM ADDRESS OF TABLE IS 1304	F2402030
	00757	0 70000 0 01007	208		CPY	1CNT READ WD. CT. OF TABLE.	F2402040
	00760	0 70000 0 01010	209		CPY	2CNT READ WD. CT. CHECKSUM.	F2402050
	00761	0 70000 2 00434	210	CPY	CPY	BOB+152,2 READ 150 TABLE ENTRIES.	F2402060
	00762	2 00001 2 00761	211		TIX	CPY,2,1	F2402070
	00763	0 50000 0 01007	212		CLA	1CNT DOES WD. CT AGREE	F2402080
	00764	0 40200 0 01010	213		SUB	2CNT WITH ITS CHECKSUM.	F2402090
	00765	−0 10000 0 01005	214		TNZ	EROR NO. ERROR.	F2402100
	00766	−0 53400 2 01007	215		LXD	1CNT,2 YES.	F2402110
	00767	3 00000 2 00772	216		TXH	PROCED,2,0 IS TABLE EMPTY.	F2402120
	00770	−0 53400 4 01012	217		LXD	LINK1,4 YES. RETURN TO	F2402130
	00771	0 02000 4 00001	218		TRA	1,4 MAIN ROUTINE.	F2402140
T	00772	−0 75400 0 00000	219	PROCED	PXD	0 TABLE IRV IS NOT EMPTY,	F2402150
	00773	−0 73400 4 00000	220		PDX	0,4 INITIALISE IRC TO ZERO.	F2402160
	00774	0 36100 4 00204	221	ACCSUH	ACL	BOB,4 FORM LOGICAL CHECKSUM OF	F2402170
	00775	1 77777 4 00776	222		TXI	TIX,4,−1 ENTRIES	F2402180
	00776	2 00001 2 00774	223	TIX	TIX	ACCSUH,2,1	F2402190
	00777	0 60200 0 01011	224		SLW	LOGWD	F2402200
	01000	0 50000 0 01011	225		CLA	LOGWD COMPUTED CHECKSUM.	F2402210
	01001	0 40200 4 00204	226		SUB	BOB,4 DRUM CHECKSUM FOLLOWS LAST ENTRY.	F2402220
	01002	−0 10000 0 01005	227		TNZ	EROR NOT EQUAL	F2402230
	01003	−0 53400 4 01012	228		LXD	LINK1,4 DRUM READ CORRECTLY.	F2402240
	01004	0 02000 4 00002	229		TRA	2,4 RETURN	F2402250
	01005	2 00001 1 00754	230	EROR	TIX	RDS,1,1 TRY TO READ THREE MORE TIMES.	F2402260
	01006	0 07400 4 00004	231		TSX	DIAG,4 DRUM 3 READING ERROR FIVE TIMES.	F2402270
A	01007	0 00000 0 00000	232	1CNT	HTR		F2402280
A	01010	0 00000 0 00000	233	2CNT	HTR		F2402290
A	01011	0 00000 0 00000	234	LOGWD	HTR		F2402300
A	01012	0 00000 0 00000	235	LINK1	HTR		F2402310
	01013	0 00000 0 00230	236	L(152)	HTR	152 LENGTH OF TABLE IRV, WD. CT., CHECKSUMS	F2402320
	01014	0 00000 0 02430	237	L1304	HTR	1304 ORG OF WD. CT OF TABLE IRV	F2402330
			238			ROUT1NE WRITES CIT BUFFER 0N TAPE ,IF FULL, THEN ENTERS	F2402340
			239			NEW CIT INTO BUFFER.	F2402350
	01015	−0 63400 1 01046	240	CIT	SXD	E2C,1	F2402360
	01016	−0 63400 2 01047	241		SXD	E3C,2	F2402370
	01017	−0 53400 2 01045	242		LXD	BBOX,2 COMPLEMENT OF CURRENT BUFFER CT.	F2402380
	01020	3 77634 2 01034	243		TXH	CIT04,2,−100 BUFFER NEITHER FULL NOR ZERO	F2402390
	01021	−0 53400 2 01045	244	CITSP	LXD	BBOX,2	F2402400
	01022	−3 00000 2 01034	245		TXL	CIT04,2,0 TRA IF BUFFER CT ZERO	F2402410
	01023	0 50000 0 01400	246		CLA	RECCNT BUFFER IS ALREADY FULL.	F2402420
	01024	0 40000 0 01430	247		ADD	L(1) UPDATE CIT RECORD COUNT.	F2402430
	01025	0 60100 0 01400	248		STO	RECCNT	F2402440
	01026	0 76600 0 00222	249		WRS	146	F2402450
	01027	0 53400 1 01427	250		LXA	L(0),1 WRITE CIT BUFFER ON TAPE.	F2402460
	01030	0 70000 1 00030	251	CIT01	CPY	CIB,1	F2402470
	01031	1 77777 1 01032	252		TXI	CIT02,1,−1	F2402480
	01032	1 00001 2 01033	253	CIT02	TXI	CIT03,2,1 STEP BUFFER COUNT BACK TO ZERO	F2402490
	01033	3 00001 2 01030	254	CIT03	TXH	CIT01,2,1 TEST FOR BUFFER END	F2402500
	01034	0 53400 1 01433	255	CIT04	LXA	L(4),1	F2402510
	01035	0 50000 1 01054	256	CIT05	CLA	CIL00+4,1 STORE 4WD CIT IN 8UFFER.	F2402520
	01036	0 60100 2 00030	257		STO	CIB,2	F2402530
	01037	1 77777 2 01040	258		TXI	CIT07,2,−1 UPDATE CIT BUFFER COUNT	F2402540
	01040	2 00001 1 01035	259	CIT07	TIX	CIT05,1,1	F2402550
	01041	−0 63400 2 01045	260		SXD	BBOX,2 SAVE CIT BUFFER COUNT	F2402560
	01042	−0 53400 1 01046	261		LXD	E2C,1	F2402570
	01043	−0 53400 2 01047	262		LXD	E3C,2 RELOAD INDEX REGS,	F2402580
	01044	0 02000 4 00001	263		TRA	1,4 RETURN	F2402590
	01045	0 00000 0 00000	264	BBOX	HTR	0 CIT BUFFER CT. INITIALLY ZERO	F2402600
A	01046	0 00000 0 00000	265	E2C	HTR		F2402610
A	01047	0 00000 0 00000	266	E3C	HTR		F2402620
		01050	267	CIL00	BSS	1 SYMBOLIC LOCN OF CIT	F2402630
		01051	268	CIL01	BSS	1 OP.DAND DEC. OF CIT.	F2402640
		01052	269	CIL02	BSS	1 SYMBOLIC ADDRESS OF CIT	F2402650
		01053	270	CIL03	BSS	1 REL. ADDRESS AND TAG.	F2402660
			271			REQUIRED FIXCON IS IN ACC. WHEN THIS-ROUTINE IS	F2402670
			272			BEGUN. THE FIXCON TABLE IS SEARCHED AND IF FIXCON IS	F2402680
			273			NOT ALREADY THERE, IT IS ENTERED IN THE TABLE.	F2402690
			274			(SEARCH IS MADE IN TWO PASSES, ONE FOR EVEN ENTRIES, ONE	F2402700
			275			FOR ODD, FOR TIMING PURPOSES.)EXIT WITH NAME OF ENTRY IN ACC	F2402710
	01054	−0 63400 1 01107	276	FIXCON	SXD	FC29,1	F2402720
	01055	−0 63400 2 01077	277		SXD	FC18,2	F2402730
	01056	−0 63400 4 01111	278		SXD	FC34,4	F2402740
	01057	0 60100 0 01406	279		STO	ERDRM1 SAVE FIXCON.	F2402750
	01060	0 53400 4 01434	280		LXA	L(5),4 INITIALIZE DRUM ERROR COUNTER.	F2402760
	01061	0 50000 0 01142	281	FC02	CLA	ORIGIN INITIALISE AD1 T0 SELECT 1ST ENTRY	F2402770
	01062	0 60100 0 01401	282		STO	AD1 AND ODD NUMBERED ENTRIES.	F2402780
	01063	0 53400 1 01427	283		LXA	L(0),1 INITIALISE COUNT THROUGH TABLE	F2402790
	01064	0 53400 2 01431	284		LXA	L(2),2 INITIALISES FOR TWO FIXCON PASSES	F2402800
	01065	0 50000 0 01406	285	FC04	CLA	ERDRM1 REQD. FIXCON	F2402810
	01066	0 76200 0 00302	286		RDS	194 READ NEXT FIXCON ENTRY	F2402820
	01067	0 46000 0 01401	287		LDA	AD1	F2402830
	01070	0 70000 0 01407	288	FC08	CPY	CPYWD1	F2402840
D	01071	3 00000 1 01102	289		TXH	FC24+1,1 DECR IS WD.CT OF FIXCON TABLE (INITFX)	F2402850
	01072	0 70000 0 01410	290		CPY	CPYWD2 READ CHECKSUM OF ENTRY	F2402860
	01073	0 04000 0 01110	291		TLQ	FC30 TRA IF ENTRY DOES NOT MATCH FIXCON	F2402870
	01074	0 70000 0 01405	292		CPY	ERDRM FALSE COPY.	F2402880
	01075	0 34000 0 01410	293		CAS	CPYWD2 COMPARE WITH CHECKSUM.	F2402890
	01076	0 07400 4 00004	294		TSX	DIAG,4 OBVIATED BY TLQ.	F2402900
D	01077	−3 00000 0 01135	295	FC18	TXL	FC60,0 SAVED IRB IN DECR. MATCH FOUND.	F2402910
	01100	0 70000 0 01405	296	FC20	CPY	ERDRM FALSE COPY, NO MATCH	F2402920
	01101	1 00002 1 01070	297	FC24	TXI	FC08,1,2 INCREASE COUNT OF WORDS TESTED.	F2402930
	01102	−2 00001 2 01112	298		TNX	FC40,2,1 BOTH PASSES ARE COMPLETED.	F2402940
	01103	0 50000 0 01401	299		CLA	AD1 ADJUST DRUM ADDRESS	F2402950
	01104	0 40000 0 01431	300		ADD	L(2) TO TEST EVEN NUMBERED ENTRIES	F2402960
	01105	0 60100 0 01401	301		STO	AD1	F2402970
	01106	0 53400 1 01430	302	FC28	LXA	L(1),1 INITIALISE COUNT THROUGH TABLE	F2402980
D	01107	−3 00000 0 01065	303	FC29	TXL	FC04,0 TRA TO MAKE 2ND PASS. SAVED IRA IN DEC	F2402990
	01110	0 70000 0 01405	304	FC30	CPY	ERDRM FALSE COPY.	F2403000
D	01111	−3 00000 0 01100	305	FC34	TXL	FC20,0 DECR, CONTAINS ROUTINE LINKAGE.	F2403010
	01112	0 60100 0 01407	306	FC40	STO	CPYWD1 SEARCH COMPLETED. NO MATCH.	F2403020
	01113	−0 53400 1 01071	307		LXD	FC08+1,1	F2403030
	01114	1 00001 1 01115	308		TXI	FC42,1,1 INCREASE FIXCON WD. COUNT AND	F2403040
	01115	−0 63400 1 01071	309	FC42	SXD	FC08+1,1 STORE AS NEW TEST.	F2403050
	01116	−0 75400 1 00000	310		PXD	0,1 FORM NEW ADDRESS	F2403060
	01117	0 77100 0 00021	311		ARS	17 FOR	F2403070
	01120	0 40000 0 01142	312		ADD	ORIGIN DRUM WRITING.	F2403080
	01121	0 60100 0 01401	313		STO	AD1	F2403090
	01122	0 76600 0 00302	314		WRS	194	F2403100
	01123	0 46000 0 01401	315		LDA	AD1 WRITE NEW FIXCON AND	F2403110
	01124	0 70000 0 01407	316		CPY	CPYWD1 ITS CHECKSUM ON DRUM.	F2403120
	01125	0 70000 0 01407	317		CPY	CPYWD1	F2403130
	01126	−0 75400 1 00000	318	FC50	PXD	0,1 FORM NAME OF CONSTANT	F2403140
	01127	0 77100 0 00022	319		ARS	18 IN ACC. NAME CONSISTS OF	F2403150
	01130	−0 50100 0 01416	320		ORA	BCD2 2 IN DEC.=2) FOR FIXCON TABLE,	F2403160
	01131	−0 53400 1 01107	321		LXD	FC29,1 AND ENTRY NO WITHIN TABLE,	F2403170
	01132	−0 53400 2 01077	322		LXD	FC18,2 IN ADDRESS.	F2403180
	01133	−0 53400 4 01111	323		LXD	FC34,4 RESTORE INDEX.	F2403190
	01134	0 02000 4 00001	324		TRA	1,4 RETURN.	F2403200
	01135	0 50000 0 01407	325	FC60	CLA	CPYWD1 MATCH FOUND. TEST DRUM READ.	F2403210
	01136	0 40200 0 01410	326		SUB	CPYWD2	F2403220
	01137	0 10000 0 01126	327		TZE	FC50 DRUM READ CQRRECTLY.	F2403230
	01140	2 00001 4 01061	328		TIX	FC02,4,1 ERROR. TRY 3 TIMES.	F2403240
	01141	0 07400 4 00004	329	STOPFC	TSX	DIAG,4 DRUM 2 READING ERROR FIVE TIMES.	F2403250
	01142	0 00000 0 00002	330	ORIGIN	HTR	2 DRUM ORIGIN OF FIXCON TABLE.	F2403260
			331			THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE CORR.	F2403270
			332			SUBSCR. COMBINATION FROM THE APPROPRIATE TAU TABLE	F2403280
			333			AND STORES IN P0SITION C1,S1,C2,S2,S3,S3,D1,D2.	F2403290
	01143	−0 63400 4 01224	334	SUBCOM	SXD	SUB085,4 SAVE S.R. LINKAGE	F2403300
	01144	0 53400 1 01434	335		LXA	L(5),1 INITIALIZE DRUM ERROR COUNTER.	F2403310
	01145	0 60100 0 01237	336		STO	SUBTAG STORE TAU TAG NAME.	F2403320
	01146	0 76200 0 00304	337	SUB010	RDS	196 SELECT TAU DRUM	F2403330
	01147	−0 53400 4 01234	338		LXD	SUBORG+2,4 INITIALIZE SUBSCRIPT COMBINATION	F2403340
T	01150	−0 75400 0 00000	339		PXD	0 WORKING SPACE	F2403350
	01151	0 60100 4 00204	340	SUB020	STO	WRKSC+8,4 TO ZERO.	F2403360
	01152	2 00001 4 01151	341		TIX	SUB020,4,1	F2403370
	01153	0 50000 0 01237	342		CLA	SUBTAG THESE INSTRUCTIONS PLACE	F2403380
	01154	0 76500 0 00011	343		LRS	9 TAU TABLE REQUIRED	F2403390
	01155	0 73400 6 00000	344		PAX	0,6 (1,2 OR 3) IN IRB AND IRC.	F2403400
T	01156	−0 75400 0 00000	345		PXD	0	F2403410
	01157	0 76300 0 00011	346		LLS	9 STORE ENTRY NUMBER	F2403420
	01160	0 60100 0 01235	347		STO	SUBES1 WITHIN APPROPRIATE TAU TABLE.	F2403430
	01161	0 76700 0 00001	348		ALS	1	F2403440
	01162	0 60100 0 01236	349		STO	SUBES2 STORE TWICE TAU ENTRY NO.	F2403450
	01163	0 50000 4 01235	350		CLA	SUBORG+3,4 SELECT APPROPRIATE TAU ORIGIN.	F2403460
	01164	0 40000 0 01235	351		ADD	SUBES1 FORM DRUM ADDRESS, WHICH EQUALS	F2403470
	01165	0 40000 0 01236	352	SUB030	ADD	SUBES2 TAU ORIGIN + ENTRY N/.*	F2403480
	01166	2 00001 4 01165	353		TIX	SUB030,4,1 NUMBER OF WORDS PER ENTRY	F2403490
	01167	0 62100 0 01235	354		STA	SUBES1 (3 FOR TAU1,5 FOR TAU2,7 FORTAU3)	F2403500
	01170	0 46000 0 01235	355		LDA	SUBES1 SELECT TAU ENTRY.	F2403510
	01171	0 70000 0 00174	356		CPY	WRKSC DECR. C1, ADDR, C2	F2403520
	01172	−3 00002 2 01174	357		TXL	SUB040,2,2	F2403530
	01173	0 70000 0 00200	358		CPY	WRKSC+4 FOR TAU 3, ADDR. C3.	F2403540
	01174	0 70000 0 00175	359	SUB040	CPY	WRKSC+1 S1	F2403550
	01175	−3 00001 2 01202	360		TXL	SUB060,2,1	F2403560
	01176	0 70000 0 00177	361		CPY	WRKSC+3 FOR TAU2 AND3, S2.	F2403570
	01177	−3 00002 2 01201	362		TXL	SUB050,2,2	F2403580
	01200	0 70000 0 00201	363		CPY	WRKSC+5 FOR TAU3, S0, ALS0	F2403590
	01201	0 70000 0 00202	364	SUB050	CPY	WRKSC+6 ADDRESS D2,0ECR.D1	F2403600
	01202	0 70000 0 01235	365	SUB060	CPY	SUBES1 CHECKSUM.	F2403610
	01203	−0 53400 4 01232	366		LXD	SUBORG,4	F2403620
	01204	−0 50000 0 00174	367		CAL	WRKSC COMPUTE	F2403630
	01205	0 36100 4 00203	368	SUB070	ACL	WRKSC+7,4 CHECKSUM.	F2403640
	01206	2 00001 4 01205	369		TIX	SUB070,4,1	F2403650
	01207	0 60200 0 01236	370		SLW	SUBES2	F2403660
	01210	0 50000 0 01236	371		CLA	SUBES2 TEST FOR	F2403670
	01211	0 40200 0 01235	372		SUB	SUBES1 READING ERROR.	F2403680
	01212	0 10000 0 01214	373		TZE	SUB075 TRA. IF CORRECT	F2403690
	01213	2 00001 1 01146	374		TIX	SUB010,1,1 IF ERROR, TRY FOUR MORE TIMES.	F2403700
	01214	−0 53400 4 01233	375	SUB075	LXD	SUBORG+1,4 -	F2403720
	01215	0 50000 4 00203	376	SUB080	CLA	WRKSC+7,4 REARRANGE WORDS WRKSC	F2403730
	01216	0 73400 2 00000	377		PAX	0,2 AND WRKSC+6, IN TURN, WHICH	F2403740
	01217	−0 32000 0 01424	378		ANA	DECMSK CONTAIN C1 AND C2,D1AND D2.	F2403750
	01220	0 60100 4 00203	379		STO	WRKSC+7,4 NONBCD CHARACTERS	F2403760
	01221	−0 75400 2 00000	380		PXD	0,2 ARE STORED IN DECREMENT	F2403770
	01222	−2 00006 4 01225	381		TNX	SUB090,4,6 AND ORDER OF ITEMS IS NOW	F2403780
	01223	0 60100 0 00176	382		STO	WRKSC+2 C1,S1,C2,S2,C3,S3,D1,D2.	F2403790
D	01224	−3 00000 0 01215	383	SUB085	TXL	SUB080,0	F2403800
	01225	0 60100 0 00203	384	SUB090	STO	WRKSC+7	F2403810
	01226	−0 53400 4 01224	385		LXD	SUB085,4 RESTORE LINKAGE INDEX	F2403820
	01227	−3 00001 1 01231	386		TXL	SUB100+1,1,1 TRA IF READING ERROR.	F2403830
	01230	0 02000 4 00001	387	SUB100	TRA	1,4 RETURN	F2403840
	01231	0 07400 4 00004	388		TSX	DIAG,4 DRUM 4 READING ERROR 5 TIMES.	F2403850
	01232	+000006001356	389	SUBORG	OCT	000006001356 DECR. IS 6, ADDR. IS ORG TAU3	F2403860
	01233	+000007000454	390		OCT	000007000454 DECR. IS 7, ADDR IS ORG TAU2	F2403870
	01234	+000010000000	391		OCT	000010000000 DECR IS 8, ADDR IS ORG TAU1.	F2403880
A	01235	0 00000 0 00000	392	SUBES1	HTR	ERASABLE ST, FOR DRUM ADDR.	F2403890
A	01236	0 00000 0 00000	393	SUBES2	HTR	ERASABLE ST, FO DRUM CHECK1	F2403900
A	01237	0 00000 0 00000	394	SUBTAG	HTR		F2403910
			395			COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON	F2403920
			396			TABLE, AND SETS SENSE LIGHTS ACCORDINGLY.	F2403930
	01240	0 53400 1 01435	397	COSE	LXA	L(6),1 INDEX TO SELECT SUBSCRIPTS IN TURN	F2403940
	01241	0 53400 2 01432	398		LXA	L(3),2 INITIALISE SENSE LT. SELECTION.	F2403950
	01242	−0 63400 4 01411	399		SXD	LINKC,4	F2403960
	01243	0 50000 1 00202	400	COSE5	CLA	WRKSC+6,1 SELECT A S.C. COEFF.	F2403970
	01244	0 10000 0 01253	401		TZE	COSE08 TRA IF NO SUBSC. IN THIS DIMENSION	F2403980
	01245	0 40200 0 01421	402		SUB	L1DEC	F2403990
	01246	0 10000 0 01253	403		TZE	COSE08 TRA IF COEFF. IS ONE.	F2404000
	01247	0 76000 2 00144	404		PSE	100,2 SET CORRESPONDING SENSE LIGHT.	F2404010
	01250	0 50000 1 00202	405		CLA	WRKSC+6,1 ENTER COEFF IN FIXCON IF	F2404020
	01251	0 07400 4 01054	406		TSX	FIXCON,4 NOT ALREADY THERE.	F2404030
	01252	0 60100 2 00450	407		STO	OR000+12,2 STORE NAME OF FIXCON ENTRY.	F2404040
	01253	2 00002 1 01254	408	COSE08	TIX	COSE10,1,2	F2404050
	01254	2 00001 2 01243	409	COSE10	TIX	COSE5,2,1 REPEAT FOR ALL SUBSCRIPTS.	F2404060
	01255	−0 53400 4 01411	410		LXD	LINKC,4	F2404070
	01256	0 02000 4 00001	411		TRA	1,4 RETURN	F2404080
			412			ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN.	F2404090
			413			OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA	F2404100
	01257	−0 63400 4 01313	414	LXC	SXD	LXC19,4	F2404110
	01260	0 60100 0 01412	415		STO	ERLXC SAVE LOCATION OF INSTR. SKELETON.	F2404120
	01261	−0 75400 1 00000	416		PXD	0,1 NO. OF INST TO BE COMPILED.	F2404130
	01262	0 77100 0 00022	417		ARS	18	F2404140
	01263	0 40000 0 01412	418		ADD	ERLXC FORM ADDRESS WHICH GIVES	F2404150
	01264	0 62100 0 01267	419		STA	LXC10 APPROPRIATE SKELETAL WORDS.	F2404160
	01265	0 50000 0 01427	420	LXC08	CLA	L(0) SET CIT SYMBOLIC LOCN. TO ZERO	F2404170
	01266	0 60100 0 01050	421		STO	CIL00	F2404180
	01267	0 56000 1 00000	422	LXC10	LDQ	0,1 SELECT NEXT SKELETAL WORD.	F2404190
	01270	0 76300 0 00000	423		LLS	0 FOR COMPILATION. SET SIGN IN AC.	F2404200
	01271	−0 76300 0 00022	424		LGL	18 BCD. OPERATION IS IN DECREMENT.	F2404210
	01272	−0 60000 0 01051	425		STQ	CIL01 STORE OPERATION	F2404220
	01273	−0 12000 0 01314	426		TMI	LXC20 CIT IS SHIFT TYPE INSTRUCTIQN.	F2404230
	01274	0 62100 0 01275	427		STA	LXC15 CIT IS SYMBOLIC ADDRESS TYPE.	F2404240
A	01275	0 50000 0 00000	428	LXC15	CLA	ADDR. IS LOCATION OF SYMBOLIC ADDRESS	F2404250
	01276	0 60100 0 01052	429		STO	CIL02 OF CIT.	F2404260
	01277	0 50000 0 01427	430		CLA	L(0)	F2404270
	01300	0 60100 0 01053	431		STO	CIL03 SET CIT TAG TO ZERO.	F2404280
	01301	−0 50000 0 01052	432		CAL	CIL02 TEST FOR A COT	F2404290
	01302	−0 32000 0 01422	433		ANA	6ONES SYMBOLIC ADDRESS OF THE TYPE	F2404300
	01303	0 10000 0 01321	434		TZE	LXC30 1)+3 OR6)+2 ERASABLE	F2404310
	01304	−0 32000 0 01423	435		ANA	BIT01 STORAGE	F2404320
	01305	−0 10000 0 01321	436		TNZ	LXC30 NO	F2404330
	01306	−0 50000 0 01052	437		CAL	CIL02 YES. SEPARATE ADDRESS LEAVING THE	F2404340
	01307	0 76700 0 00022	438		ALS	18 CLASS OF SYMBOLS IN SYMBOLIC	F2404350
	01310	0 62200 0 01053	439		STD	CIL03 ADDRESS POSN. ALONE, AND	F2404360
	01311	−0 50000 0 01422	440		CAL	6ONES PLACING ADDEND IN REL. ADDRESS	F2404370
	01312	0 32000 0 01052	441		ANS	CIL02 POSITION.	F2404380
D	01313	−3 00000 0 01321	442	LXC19	TXL	LXC30,0 UNCOND. TRANSFER LINKAGE INDECR.	F2404390
	01314	0 76700 0 00022	443	LXC20	ALS	18 CIT IS SHIFT TYPE INSTRUCTION	F2404400
	01315	−0 32000 0 01424	444		ANA	DECMSK I.E. ABSOLUTE ADDRESS ONLY,	F2404410
	01316	0 60100 0 01053	445		STO	CIL03 STORE ADDRESS IN CIT REL. ADDRESS.	F2404420
	01317	0 50000 0 01427	446		CLA	L(0) STORE ZERO AS	F2404430
	01320	0 60100 0 01052	447		STO	CIL02 SYMBOLIC ADDRESS.	F2404440
	01321	0 07400 4 01015	448	LXC30	TSX	CIT,4 MAKE CIT ENTRY.	F2404450
	01322	2 00001 1 01265	449		TIX	LXC08,1,1 RETURN FOR NEXT SKELETON INST.	F2404460
	01323	−0 53400 4 01313	450		LXD	LXC19,4 SKELET0N COMPLETED.	F2404470
	01324	0 02000 4 00001	451		TRA	1,4 RETURN.	F2404480
	01325	0 00451 2 34321	452	LX100	HTR	14545,2,OR000+13 CLA. THESE WORDS	F2404490
	01326	0 00466 6 26346	453		HTR	11494,6,OR000+26 STO. CONSTITUTE THE	F2404500
	01327	0 00435 2 34321	454	LX102	HTR	14545,2,OR000+1 CLA. CODING	F2404510
	01330	0 00451 6 26422	455		HTR	11538,6,OR000+13 SUB. SKELETONS,	F2404520
	01331	0 00466 2 12424	456		HTR	5396,2,OR000+26 ADD. AND ARE	F2404530
	01332	0 00466 6 26346	457		HTR	11494,6,OR000+26 SO0. CALLED UPON	F2404540
	01333	0 00435 4 32450	458	LX105	HTR	13608,4,OR000+1 LDQ. BY THE LXC	F2404550
	01334	0 00445 4 44770	459		HTR	18936,4,OR000+9 MPY. ACCORDING	F2404560
	01335	−2 00021 2 14362	460		TNX	6386,2,17 ALS. TO THE	F2404570
	01336	0 00451 6 26422	461		HTR	11538,6,OR000+13 SUB. DIFFERENT	F2404580
	01337	0 00466 2 12424	462		HTR	5396,2,OR000+26 ADD. COMPUTATIONS	F2404590
	01340	0 00466 6 26346	463		HTR	11494,6,OR000+26 STO. REQUIRED.	F2404600
	01341	0 00440 4 32450	464	LX110	HTR	13608,4,OR000+4 LDQ.	F2404610
	01342	0 00443 4 44770	465		HTR	18936,4,OR000+7 MPY. THE TAG AND	F2404620
	01343	−2 00021 2 14362	466		TNX	6386,2,17 ALS. ADDRESS ARE	F2404630
	01344	0 00443 6 26422	467		HTR	11538,6,OR000+7 SUB. THE BCD	F2404640
	01345	0 00466 2 12424	468		HTR	5396,2,OR000+26 ADD. EQUIVALENTS OF	F2404630
	01346	0 00466 6 26346	469		HTR	11494,6,OR000+26 STO. THE CIT	F2404660
	01347	0 00440 4 32450	470	LX116	HTR	13608,4,OR000+4 LDQ. INSTRUCTIONS.	F2404670
	01350	0 00446 4 44770	471		HTR	18936,4,OR000+10 MPY. THE SYMBOLIC	F2404680
	01351	−2 00022 4 35162	472		TNX	14962,4,18 LRS. DECREMENTS ARE	F2404690
	01352	0 00443 4 44770	473		HTR	18936,4,OR000+7 MPY. THE LOCATIONS	F2404700
	01353	−2 00021 2 14362	474		TNX	6386,2,17 ALS. OF THE	F2404710
	01354	0 00443 6 26422	475		HTR	11538,6,OR000+7 SUB. ADDRESSES IN	F2404720
	01355	0 00466 2 12424	476		HTR	5396,2,OR000+26 ADD. THE CIT	F2404730
	01356	0 00466 6 26346	477		HTR	11494,6,OR000+26 STO.	F2404740
	01357	0 00461 4 32450	478	LX124	HTR	13608,4,OR000+21 LDQ. THE NEGATIVE	F2404750
	01360	0 00464 4 44770	479		HTR	18936,4,OR000+24 MPY. PREFIX INDICATES	F2404760
	01361	−2 00021 2 14362	480		TNX	6386,2,17 ALS. A PURELY	F2404770
	01362	0 00464 6 26422	481		HTR	11538,6,OR000+24 SUB. ABSOLUTE ADDRESS	F2404780
	01363	0 00466 2 12424	482		HTR	5396,2,OR000+26 ADD.	F2404790
	01364	0 00466 6 26346	483		HTR	11494,6,OR000+26 STO.	F2404800
	01365	0 00461 4 32450	484	LX130	HTR	13608,4,OR000+21 LDQ.	F2404810
	01366	0 00447 4 44770	485		HTR	18936,4,OR000+11 MPY.	F2404820
	01367	−2 00022 4 35162	486		TNX	14962,4,18 LRS.	F2404830
	01370	0 00464 4 44770	487		HTR	18936,4,OR000+24 MPY.	F2404840
	01371	−2 00021 2 14362	488		TNX	6386,2,17 ALS.	F2404850
	01372	0 00464 6 26422	489		HTR	11538,6,OR000+24 SUB.	F2404860
	01373	0 00466 2 12424	490		HTR	5396,2,OR000+26 ADD.	F2404870
	01374	0 00466 6 26346	491		HTR	11494,6,OR000+26 STO.	F2404880
A	01375	0 00000 0 00000	492	NAME1	HTR		F2404890
A	01376	0 00000 0 00000	493	TAG1	HTR		F2404900
A	01377	0 00000 0 00000	494	TAG2	HTR		F2404910
A	01400	0 00000 0 00000	495	RECCNT	HTR		F2404920
A	01401	0 00000 0 00000	496	AD1	HTR		F2404930
A	01402	0 00000 0 00000	497	1XB0X	HTR		F2404940
A	01403	0 00000 0 00000	498	2XB0X	HTR		F2404950
A	01404	0 00000 0 00000	499	LINK2	HTR		F2404960
A	01405	0 00000 0 00000	500	ERDRM	HTR		F2404970
A	01406	0 00000 0 00000	501	ERDRM1	HTR		F2404980
A	01407	0 00000 0 00000	502	CPYWD1	HTR		F2404990
A	01410	0 00000 0 00000	503	CPYWD2	HTR		F2405000
A	01411	0 00000 0 00000	504	LINKC	HTR		F2405010
A	01412	0 00000 0 00000	505	ERLXC	HTR		F2405020
A	01413	0 00000 0 00000	506	AX	HTR		F2405030
A	01414	0 00000 0 00000	507	BX	HTR		F2405040
A	01415	0 00000 0 00000	508	SENSE1	HTR		F2405050
	01416	+020000000000	509	BCD2	OCT	020000000000	F2405060
	01417	+140000000000	510	BCD14	OCT	140000000000	F2405070
	01420	+120000000000	511	BCD10	OCT	120000000000	F2405080
	01421	+000001000000	512	L1DEC	OCT	000001000000	F2405090
	01422	−370000000000	513	6ONES	OCT	770000000000	F2405100
	01423	−200000000000	514	BIT01	OCT	600000000000	F2405110
	01424	+077777000000	515	DECMSK	OCT	077777000000	F2405120
	01425	626346000000	516	L(STO)	BCD	1STO000	F2405130
	01426	234321000000	517	L(CLA)	BCD	1CLA000	F2405140
	01427	0 00000 0 00000	518	L(0)	HTR	0	F2405150
	01430	0 00000 0 00001	519	L(1)	HTR	1	F2405160
	01431	0 00000 0 00002	520	L(2)	HTR	2	F2405170
	01432	0 00000 0 00003	521	L(3)	HTR	3	F2405180
	01433	0 00000 0 00004	522	L(4)	HTR	4	F2405190
	01434	0 00000 0 00005	523	L(5)	HTR	5	F2405193
	01435	0 00000 0 00006	524	L(6)	HTR	6	F2405200
	01436	0 00000 0 01327	525	KLX02	HTR	LX102 SKELETON KEYS	F2405210
	01437	0 00000 0 01333	526	KLX021	HTR	LX105 FOR LXC ROUTINE.	F2405220
	01440	0 00000 0 01347	527	KLX03	HTR	LX116	F2405230
	01441	0 00000 0 01341	528	KLX031	HTR	LX110	F2405240
	01442	0 00000 0 01365	529	KLX05	HTR	LX130	F2405250
	01443	0 00000 0 01357	530	KLX051	HTR	LX124	F2405260
M		00450	531	OR012	SYN	OR000+12	F2405270
M		00451	532	OR013	SYN	OR000+13	F2405280
M		00456	533	OR018	SYN	OR000+18	F2405290
M		00466	534	OR026	SYN	OR000+26	F2405300
		00004	535	DIAG	EQU	4	F2405305