1			FNEDT2 REVISED FORTRAN EDITING PROGRAM	EDT 0001
			2				EDT 0002
		00040	3		ORG	32	EDT 0003
	00040	0 77200 0 00201	4		REW	1 REWIND	EDT 0004
	00041	0 77200 0 00205	5		REW	5 TAPES	EDT 0005
	00042	−0 50000 0 00162	6		CAL	IDEOF INITIALISE THIS CARD	EDT 0006
	00043	0 60200 0 00163	7		SLW	THISCD TO END FILE	EDT 0007
	00044	0 07400 4 00166	8		TSX	ONE2CS,4 TSX TO TRANSCRIBE SPECIAL FIRST RCD	EDT 0008
	00045	−0 50000 0 00163	9	REENTR	CAL	THISCD MAIN LOOP REENTRY	EDT 0009
	00046	0 76700 0 00003	10		ALS	3 MOVE THIS CARD	EDT 0010
	00047	0 60200 0 00164	11		SLW	LASTCD INTO LAST CARD	EDT 0011
	00050	0 76200 0 00321	12		RCD	READ	EDT 0012
	00051	−0 53400 1 00161	13		LXD	ZERO14,1 THE NEXT CARD	EDT 0013
	00052	0 70000 1 00010	14	A1	CPY	CDBUF,1 INTO	EDT 0014
	00053	1 77777 1 00052	15		TXI	A1,1,−1 CARD BUFFER	EDT 0015
	00054	0 00000 0 00054	16	A2	HTR	A2 FALSE END OF FILE IN READING CARD	EDT 0016
	00055	−0 50000 0 00010	17		CAL	CDBUF TEST	EDT 0017
	00056	0 76000 0 00006	18		COM		EDT 0018
	00057	0 62200 0 00063	19		STD	A4	EDT 0019
	00060	−0 50000 0 00010	20		CAL	CDBUF CHECK	EDT 0020
	00061	−0 53400 1 00161	21		LXD	ZERO14,1	EDT 0021
	00062	1 77777 1 00063	22	A3	TXI	A4,1,−1	EDT 0022
	00063	−3 00063 1 00066	23	A4	TXL	A5,1,* SUM	EDT 0023
	00064	0 36100 1 00011	24		ACL	CDBUF+1,1	EDT 0024
	00065	0 02000 0 00062	25		TRA	A3	EDT 0025
	00066	0 76000 0 00006	26	A5	COM		EDT 0026
	00067	0 36100 0 00011	27		ACL	CDBUF+1	EDT 0027
	00070	0 76000 0 00006	28		COM		EDT 0028
	00071	0 10000 0 00073	29		TZE	A6	EDT 0029
	00072	0 42000 0 00000	30		HPR	CHECK SUM ERROR IN READING CARD	EDT 0030
	00073	−0 50000 0 00010	31	A6	CAL	CDBUF SET UP	EDT 0031
	00074	0 77100 0 00041	32		ARS	33 THIS CARD	EDT 0032
	00075	0 62100 0 00163	33		STA	THISCD AND	EDT 0033
	00076	−0 50100 0 00164	34		ORA	LASTCD SITUATION	EDT 0034
	00077	0 60200 0 00165	35		SLW	SITWD WORD	EDT 0035
	00100	0 53400 1 00161	36		LXA	ZERO14,1 TABLE SEARCH	EDT 0036
	00101	−0 50000 1 00161	37	A7	CAL	TABLE+14,1	EDT 0037
	00102	0 76500 0 00022	38		LRS	18 FOR	EDT 0038
	00103	0 34000 0 00165	39		CAS	SITWD	EDT 0039
	00104	0 02000 0 00106	40		TRA	A8 SITUATION	EDT 0040
	00105	0 02000 0 00110	41		TRA	A9	EDT 0041
	00106	2 00001 1 00101	42	A8	TIX	A7,1,1	EDT 0042
	00107	0 00000 0 00107	43	ILLEGL	HTR	ILLEGL SEARCH FAILED. ILLEGAL SITUATION.	EDT 0043
	00110	0 76300 0 00022	44	A9	LLS	18	EDT 0044
	00111	0 62100 0 00112	45		STA	A10	EDT 0045
	00112	0 02000 0 00112	46	A10	TRA	*	EDT 0046
			47				EDT 0047
			48			THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES	EDT 0048
			49				EDT 0049
	00113	0 07400 4 00210	50	EOFEND	TSX	LB,4 SEQUENCE EOF-END	EDT 0050
	00114	0 07400 4 00214	51	EOFMR	TSX	SAVE,4 SEQUENCE EOF-MR	EDT 0051
	00115	0 07400 4 00225	52		TSX	CLEAR,4	EDT 0052
	00116	0 07400 4 00233	53		TSX	READ,4	EDT 0053
	00117	0 02000 0 00045	54		TRA	REENTR	E0T 0054
	00120	0 07400 4 00214	55	EOFNR	TSX	SAVE,4 SEQUENCE EOF-NR	E0T 0055
	00121	0 07400 4 00225	56		TSX	CLEAR,4	EDT 0056
	00122	0 02000 0 00045	57		TRA	REENTR	EDT 0057
	00123	0 07400 4 00302	58	PRGEND	TSX	WRITE,4 SEQUENCE PROG-END	EDT 0058
	00124	0 07400 4 00210	59		TSX	LB,4 MR-END	EDT 0059
	00125	0 07400 4 00302	60	PRGEOF	TSX	WRITE,4 SEQUENCE PR0G-EOF	EDT 0060
	00126	0 77000 0 00221	61		WEF	145 MR-EOF	EDT 0061
	00127	0 02000 0 00045	62		TRA	REENTR	EDT 0062
	00130	0 07400 4 00330	63	PRGPRG	TSX	MOVE,4 SEQUENCE PROG-PROG	EDT 0063
	00131	0 02000 0 00045	64		TRA	REENTR MR-PR0G, NR-PROG	EDT 0064
	00132	0 07400 4 00302	65	PRGMR	TSX	WRITE,4 SEQUENCE PROG-MR	EDT 0065
	00133	0 07400 4 00214	66		TSX	SAVE,4 MR-MR	EDT 0066
	00134	0 07400 4 00225	67		TSX	CLEAR,4	EDT 0067
	00135	0 07400 4 00233	68		TSX	READ,4	EDT 0068
	00136	0 02000 0 00045	69		TRA	REENTR	EDT 0069
	00137	0 07400 4 00302	70	PRGNR	TSX	WRITE,4 SEQUENCE PROG-NR	EDT 0070
	00140	0 07400 4 00214	71		TSX	SAVE,4 MR-NR	EDT 0071
	00141	0 07400 4 00225	72		TSX	CLEAR,4	EDT 0072
	00142	0 02000 0 00045	73		TRA	REENTR	EDT 0073
	00143	0 00047 0 00113	74	TABLE		EOFEND,0,39	EDT 0074
	00144	0 00041 0 00114	75			EOFMR,0,33	EDT 0075
	00145	0 00042 0 00120	76			EOFNR,0,34	EDT 0076
	00146	0 00007 0 00123	77			PRGEND,0,7	EDT 0077
	00147	0 00004 0 00125	78			PRGEOF,0,4	EDT 0078
	00150	0 00000 0 00130	79			PRGPRG,0,0	EDT 0079
	00151	0 00001 0 00132	80			PRGMR,0,1	EDT 0080
	00152	0 00002 0 00137	81			PRGNR,0,2	EDT 0081
	00153	0 00017 0 00123	82			PRGEND,0,15	EDT 0082
	00154	0 00014 0 00125	83			PRGEOF,0,12	EDT 0083
	00155	0 00010 0 00130	84			PRGPRG,0,8	E0T 0084
	00156	0 00011 0 00132	85			PRGMR,0,9	EDT 0085
	00157	0 00012 0 00137	86			PRGNR,0,10	EDT 0086
	00160	0 00020 0 00130	87			PRGPRG,0,16	EDT 0087
	00161	0 00000 0 00016	88	ZERO14		14	EDT 0088
	00162	0 00000 0 00004	89	IDEOF		4	EDT 0089
	00163	0 00000 0 00000	90	THISCD			EDT 0090
	00164	0 00000 0 00000	91	LASTCD			EDT 0091
	00165	0 00000 0 00000	92	SITWD			EDT 0092
		00010	93	CDBUF	SYN	8	EDT 0093
			94			THERE FOLLOW THE 7 SUBROUTINES	EDT 0094
			95			ONE2CS, LB, SAVE, CLEAR, READ, WRITE, MOVE	EDT 0095
			96				EDT 0096
	00166	−0 76000 0 00012	97	ONE2CS	RTT	TRANSCRIBES	EDT 0097
	00167	0 76100 0 00000	98		NOP	SPECIAL	EDT 0098
	00170	0 76200 0 00225	99		RTB	5 IST RECORD	EDT 0099
	00171	−0 53400 1 00161	100		LXD	ZERO14,1
	00172	0 53400 2 00207	101		LXA	ZEROTW,2
	00173	0 76200 0 00321	102		RCD
	00174	0 70000 1 00353	103	CS1	CPY	MAINBF,1
	00175	1 77777 1 00174	104		TXI	CS1,1,−1
	00176	0 00000 0 00176	105		HTR	*
	00177	2 00001 2 00173	106		TIX	CS1−1,2,1
	00200	−0 53400 1 00161	107		LXD	ZERO14,1
	00201	0 76600 0 00221	108		WTB	1
	00202	0 70000 1 00353	109	CS2	CPY	MAINBF,1
	00203	1 77777 1 00204	110		TXI	CS3,1,−1
	00204	3 77745 1 00202	111	CS3	TXH	CS2,1,−27
	00205	0 76600 0 00333	112		IOD
	00206	0 02000 4 00001	113		TRA	1,4
	00207	0 00000 0 00002	114	ZEROTW		2
			115				EDT 0124
	00210	0 76200 0 00321	116	LB	RCD	PRESSES LOAD CARDS BUTTON	EDT 0125
	00211	0 70000 0 00000	117		CPY	0	EDT 0126
	00212	0 70000 0 00001	118		CPY	1	EDT 0127
	00213	0 02000 0 00000	119		TRA	0	EDT 0128
			120				EDT 0129
	00214	−0 50000 0 00012	121	SAVE	CAL	CDBUF+2 SAVES CONTROL INFORMATION	EDT 0130
	00215	0 60200 0 00222	122		SLW	EIGHTL FROM MR OR NR CARD	EDT 0131
	00216	0 62100 0 00224	123		STA	NEWBEG	EDT 0132
	00217	−0 50000 0 00013	124		CAL	CDBUF+3	EDT 0133
	00220	0 60200 0 00223	125		SLW	EIGHTR	EDT 0134
	00221	0 02000 4 00001	126		TRA	1,4	EDT 0135
	00222	0 00000 0 00000	127	EIGHTL			EDT 0136
	00223	0 00000 0 00000	128	EIGHTR			EDT 0137
	00224	0 00000 0 00000	129	NEWBEG			EDT 0138
			130				EDT 0139
	00225	−0 75400 0 00000	131	CLEAR	PXD	0,0 CLEARS MAIN BUFFER	EDT 0140
	00226	0 53400 1 00232	132		LXA	BUFSIZ,1	EDT 0141
	00227	0 60200 1 00000	133	CL1	SLW	0,1	EDT 0142
	00230	2 00001 1 00227	134		TIX	CL1,1,1	EDT 0143
	00231	0 02000 4 00001	135		TRA	1,4	EDT 0144
	00232	0 00000 0 77425	136	BUFSIZ		−MAINBF	EDT 0145
			137				EDT 0I46
	00233	−0 76000 0 00012	138	READ	RTT	READS RECORD	EDT 0147
	00234	0 76100 0 00000	139		NOP	FROM	EDT 0148
	00235	0 76200 0 00225	140		RTB	5 1NSTER TAPE	EDT 0149
	00236	−0 75400 0 00000	141		PXD	0,0 INTO MAIN BUFFER	EDT 0I50
	00237	−0 53400 1 00161	142		LXD	ZERO14,1	EDT 0I51
	00240	0 70000 0 00277	143		CPY	CHKSUM	EDT 0152
	00241	0 02000 0 00243	144		TRA	RD1	EDT 0153
	00242	0 02000 0 00233	145		TRA	READ	EDT 0154
	00243	−0 70000 0 00300	146	RD1	CAD	FSTWD	EDT 0155
	00244	−0 32000 0 00301	147		ANA	ADDMK	EDT 0156
	00245	0 40200 0 00224	148		SUB	NEWBEG	E0T 0157
	00246	−0 12000 0 00267	149		TMI	RD6	E0T 0158
	00247	0 76000 0 00006	150		COM		EDT 0159
	00250	0 73400 1 00000	151	RD2	PAX	0,1	EDT 0160
	00251	−0 50000 0 00300	152		CAL	FSTWD	EDT 0161
	00252	−3 00352 1 00271	153	RD3	TXL	RD7,1,MAINBF−1	EDT 0162
	00253	−0 70000 1 00352	154		CAD	MAINBF−1,1	E0T 0163
	00254	1 77777 1 00252	155	RD4	TXI	RD3,1,−1	E0T 0164
	00255	0 00000 0 00001	156	L1	HTR	1 FALSE EOF IN READING MASTER TAPE	EDT 0165
	00256	−0 77300 0 00377	157	RD5	RQL	255	EDT 0166
	00257	−0 77300 0 00377	158		RQL	255	EDT 0167
	00260	−0 76000 0 00012	159		RTT		EDT 0I68
	00261	0 02000 0 00275	160		TRA	RD8	EDT 0169
	00262	0 76000 0 00006	161		COM		EDT 0170
	00263	0 36100 0 00277	162		ACL	CHKSUM	EDT 0171
	00264	0 76000 0 00006	163		COM		EDT 0172
	00265	−0 10000 0 00275	164		TNZ	RD8	EDT 0173
	00266	0 02000 4 00001	165		TRA	1,4	EDT 0174
	00267	0 40000 0 00255	166	RD6	ADD	L1	EDT 0175
	00270	0 02000 0 00250	167		TRA	RD2	EDT 0176
	00271	−0 70000 0 00000	168	RD7	CAD	0	EDT 0I77
	00272	0 02000 0 00254	169		TRA	RD4	EDT 0I78
	00273	0 02000 0 00255	170		TRA	L1	EDT 0179
	00274	0 02000 0 00256	171		TRA	RD5	EDT 0180
	00275	0 76400 0 00205	172	RD8	BST	5	EDT 0181
	00276	0 00000 0 00233	173		HTR	READ ERROR IN READING MASTER TAPE	EDT 0182
	00277	0 00000 0 00000	174	CHKSUM			EDT 0183
	00300	0 00000 0 00000	175	FSTWD			EDT 0184
	00301	0 00000 0 77777	176	ADDMK		−1	EDT 0185
			177				EDT 0186
	00302	0 50000 0 00223	178	WRITE	CLA	EIGHTR WRITES RECORD FROM MAIN BUFFER	EDT 0187
	00303	0 40200 0 00224	179		SUB	NEWBEG INTO SECONDARY TAPE	EDT 0188
	00304	−0 12000 4 00001	180		TMI	1,4	EDT 0189
	00305	0 76700 0 00022	181		ALS	18	EDT 0190
	00306	0 76000 0 00006	182		COM		EDT 0191
	00307	0 62200 0 00315	183		STD	WR2	EDT 0192
	00310	0 62200 0 00324	184		STD	WR4	EDT 0193
	00311	−0 53400 3 00161	185		LXD	ZERO14,3	EDT 0194
	00312	−0 50000 0 00222	186		CAL	EIGHTL	EDT 0195
	00313	0 36100 1 00353	187	WR1	ACL	MAINBF,1	EDT 0196
	00314	1 77777 1 00315	188		TXI	WR2,1,−1	EDT 0197
	00315	3 00315 1 00313	189	WR2	TXH	WR1,1,*	EDT 0198
	00316	0 60200 0 00277	190		SLW	CHKSUM	EDT 0199
	00317	0 76600 0 00221	191		WTB	1	EDT 0200
	00320	0 70000 0 00277	192		CPY	CHKSUM	EDT 0201
	00321	0 70000 0 00222	193		CPY	EIGHTL	EDT 0202
	00322	0 70000 2 00353	194	WR3	CPY	MAINBF,2	EDT 0203
	00323	1 77777 2 00324	195		TXI	WR4,2,−1	EDT 0204
	00324	3 00324 2 00326	196	WR4	TXH	WR5,2,*	EDT 0205
	00325	0 02000 4 00001	197		TRA	1,4	EDT 0206
	00326	3 00353 2 00322	198	WR5	TXH	WR3,2,MAINBF	EDT 0207
	00327	0 00000 4 00001	199		HTR	1,4 TRYING TO WRITE TOO LONG A RECORD	EDT 0208
			200				EDT 0209
	00330	−0 50000 0 00010	201	MOVE	CAL	CDBUF MOVES A PROGRAM CARD FROM	EDT 0210
	00331	0 76000 0 00006	202		COM	THE CARD BUFFER INTO THE	EDT 0211
	00332	0 62200 0 00343	203		STD	MV3 CORRECT PART OF THE MAIN BUFFER	EDT 0212
	00333	−0 53400 1 00161	204		LXD	ZERO14,1	EDT 0213
	00334	−0 50000 0 00010	205		CAL	CDBUF	EDT 0214
	00335	−0 32000 0 00301	206		ANA	ADDMK	EDT 0215
	00336	0 40200 0 00224	207		SUB	NEWBEG	EDT 0216
	00337	−0 12000 0 00350	208		TMI	MV5	EDT 0217
	00340	0 76000 0 00006	209		COM		EDT 0218
	00341	0 73400 2 00000	210	MV1	PAX	0,2	EDT 0219
	00342	1 77777 1 00343	211	MV2	TXI	MV3,1,−1	EDT 0220
	00343	−3 00343 1 00352	212	MV3	TXL	MV6,1,*	EDT 0221
	00344	−0 50000 1 00011	213		CAL	CDBUF+1,1	EDT 0222
	00345	−3 00352 2 00347	214		TXL	MV4,2,MAINBF−1	EDT 0223
	00346	0 60200 2 00352	215		SLW	MAINBF−1,2	EDT 0224
	00347	1 77777 2 00342	216	MV4	TXI	MV2,2,−1	EDT 0225
	00350	0 40000 0 00255	217	MV5	ADD	L1	EDT 0226
	00351	0 02000 0 00341	218		TRA	MV1	EDT 0227
	00352	0 02000 4 00001	219	MV6	TRA	1,4	EDT 0228
			220				EDT 0229
	00353	0 00000 0 00000	221	MAINBF		MAIN BUFFER STARTS HERE	EDT 0230