1			TAPE DUPLICATING PROGRAM F2TCVP
		00030	2		ORG	24
	00030	0 77200 0 00225	3	DUP000	REW	SOURCE
	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 ONTO 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 00321	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	MACNINE 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 00322	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 00324	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	TURN 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 00326	71		HTR	DUP310 C0MP. ERROR ON 1ST/2ND FILE RECORD
	00135	1 77777 4 00126	72		TXI	DUP130,4,−1
	00136	0 00000 0 00326	73		HTR	DUP310 DITTO
	00137	3 00000 4 00330	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 00326	77		HTR	DUP310 RTT ERROR-BST AND 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 00336	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 00336	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
	00172	0 02000 0 00242	101		TRA	DUP270 EOF
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 76000 0 00006	108		COM	EOR
	00202	0 36100 0 00455	109		ACL	RECORD+1
	00203	0 76000 0 00006	110		COM
	00204	0 10000 0 00206	111		TZE	DUP210
	00205	0 00000 0 00342	112		HTR	DUP350 CKSM FAILS READING SOURCE 3RD FILE
	00206	0 76600 0 00333	113	DUP210	IOD
	00207	−0 76000 0 00012	114		RTT
	00210	0 00000 0 00342	115		HTR	DUP350 RTT ERROR-BST
	00211	−0 63400 1 00216	116		SXD	DUP230,1
	00212	−0 63400 1 00235	117		SXD	DUP260,1
	00213	0 76600 0 00221	118		WRS	OBJECT WRITE OBJECT 3RD FILE RECORD
	00214	0 70000 2 00454	119	DUP220	CPY	RECORD,2
	00215	1 77777 2 00216	120		TXI	DUP230,2,−1
	00216	3 00000 2 00214	121	DUP230	TXH	DUP220,2,**
	00217	0 76600 0 00333	122	DUP231	IOD
	00220	−0 76000 0 00012	123		RTT	TURN 0FF RTT TRIGGER
ATD	00221	3 00000 0 00000	124		TXH
	00222	0 76400 0 00221	125		BST	OBJECT
	00223	0 76200 0 00221	126		RDS	OBJECT READ BACK OBJECT 3RD FILE RECORD
	00224	0 70000 0 00453	127	DUP240	CPY	DUMMY
	00225	0 02000 0 00230	128		TRA	DUP250
A	00226	0 00000 0 00000	129		HTR	MACHINE ERROR
	00227	0 02000 0 00235	130		TRA	DUP260 EOR
	00230	0 50000 4 00454	131	DUP250	CLA	RECORD,4
	00231	0 34000 0 00453	132		CAS	DUMMY
	00232	0 00000 0 00344	133		HTR	DUP360 COMP. ERROR ON 3RD FILE
	00233	1 77777 4 00224	134		TXI	DUP240,4,−1
	00234	0 00000 0 00344	135		HTR	DUP360 ERROR- INCOMPLETE OBJECT RECORD
D	00235	3 00000 4 00346	136	DUP260	TXH	DUP370,4
	00236	0 76600 0 00333	137		IOD
	00237	−0 76000 0 00012	138		RTT
	00240	0 00000 0 00344	139		HTR	DUP360 RTT ERROR-BST
	00241	0 02000 0 00165	140		TRA	DUP180
	00242	0 76600 0 00333	141	DUP270	IOD
	00243	−0 76000 0 00012	142		RTT
	00244	0 00000 0 00352	143		HTR	DUP390 RTT ERROR - BST TWICE
	00245	0 77000 0 00221	144		WEF	OBJECT WRITE 3RD FILE EOF
	00246	−0 53400 7 00051	145	FILE40	LXD	DUP031,7 DUPLICATE FILE 4
T	00247	−0 75400 0 00000	146		PXD
	00250	0 76200 0 00225	147		RDS	SOURCE READ SOURCE FILE 4 RECORD
	00251	0 70000 1 00454	148	FILE41	CPY	RECORD,1
	00252	1 77777 1 00251	149		TXI	FILE41,1,−1
	00253	0 02000 0 00310	150		TRA	FILE47 EOF
	00254	0 76600 0 00333	151		IOD	EOR
	00255	−0 76000 0 00012	152		RTT
	00256	0 00000 0 00356	153		HTR	FIL4E1 RTT ERROR - BST AND TRY AGAIN
	00257	−0 63400 1 00264	154		SXD	FILE43,1
	00260	−0 63400 1 00303	155		SXD	FILE46,1
	00261	0 76600 0 00221	156		WRS	OBJECT WRITE OBJECT 4TH FILE RECORD
	00262	0 70000 2 00454	157	FILE42	CPY	RECORD,2
	00263	1 77777 2 00264	158		TXI	FILE43,2,−1
	00264	3 00000 2 00262	159	FILE43	TXH	FILE42,2,**
	00265	0 76600 0 00333	160	FILE50	IOD
	00266	−0 76000 0 00012	161		RTT	TURN OFF RTT TRIGGER
ATD	00267	3 00000 0 00000	162		TXH
	00270	0 76400 0 00221	163		BST	OBJECT
	00271	0 76200 0 00221	164		RDS	OBJECT READ BACK OBJECT 4TH FILE RECORD
	00272	0 70000 0 00453	165	FILE44	CPY	DUMMY
	00273	0 02000 0 00276	166		TRA	FILE45
A	00274	0 00000 0 00000	167		HTR	MACHINE ERROR
	00275	0 02000 0 00303	168		TRA	FILE46 EOR
	00276	0 50000 4 00454	169	FILE45	CLA	RECORD,4
	00277	0 34000 0 00453	170		CAS	DUMMY
	00300	0 00000 0 00360	171		HTR	FIL4E2 COMP. ERROR ON 4TH FILE RECORD
	00301	1 77777 4 00272	172		TXI	FILE44,4,−1
	00302	0 00000 0 00360	173		HTR	FIL4E2 COMP. ERROR ON 4TH FILE RECORD
	00303	3 00000 4 00366	174	FILE46	TXH	FIL4E4,4,** ERROR - INCOMPLETE OBJECT RECORD
	00304	0 76600 0 00333	175		IOD
	00305	−0 76000 0 00012	176		RTT
	00306	0 00000 0 00360	177		HTR	FIL4E2 RTT ERROR - BST AND TRY AGAIN
	00307	0 02000 0 00246	178		TRA	FILE40
	00310	0 76600 0 00333	179	FILE47	IOD
	00311	−0 76000 0 00012	180		RTT
	00312	0 00000 0 00362	181		HTR	FIL4E3 RTT ERROR - BST TWICE ON SOURCE
	00313	0 77000 0 00221	182		WEF	OBJECT WRITE 4TH FILE EOF
	00314	0 77200 0 00225	183		REW	SOURCE
	00315	0 77200 0 00221	184		REW	OBJECT
	00316	−0 76000 0 00012	185		RTT
ATD	00317	3 00000 0 00000	186		TXH
A	00320	0 00000 0 00000	187		HTR	FINAL STOP.
	00321	0 00000 0 00030	188	DUP280	HTR	DUP000
	00322	−0 76000 0 00012	189	DUP290	RTT
ATD	00323	3 00000 0 00000	190		TXH
	00324	0 76400 0 00225	191	DUP300	BST	SOURCE
	00325	0 02000 0 00071	192		TRA	DUP070
	00326	−0 53400 4 00051	193	DUP310	LXD	DUP031,4
	00327	0 02000 0 00121	194		TRA	DUP121
	00330	0 00000 0 00331	195	DUP320	HTR	DUP330
	00331	−0 76000 0 00012	196	DUP330	RTT
ATD	00332	3 00000 0 00000	197		TXH
	00333	0 76400 0 00225	198		BST	SOURCE
	00334	0 76400 0 00221	199		BST	OBJECT
	00335	0 02000 0 00071	200		TRA	DUP070
	00336	0 76400 0 00225	201	DUP340	BST	SOURCE
	00337	0 76400 0 00225	202		BST	SOURCE
	00340	0 76200 0 00225	203		RDS	SOURCE
	00341	0 02000 0 00073	204		TRA	DUP071
	00342	0 76400 0 00225	205	DUP350	BST	SOURCE
	00343	0 02000 0 00162	206		TRA	DUP171
	00344	−0 53400 4 00051	207	DUP360	LXD	DUP031,4
	00345	0 02000 0 00217	208		TRA	DUP231
	00346	0 00000 0 00347	209	DUP370	HTR	DUP380
	00347	0 76400 0 00225	210	DUP380	BST	SOURCE
	00350	0 76400 0 00221	211		BST	OBJECT
	00351	0 02000 0 00162	212		TRA	DUP171
	00352	0 76400 0 00225	213	DUP390	BST	SOURCE
	00353	0 76400 0 00225	214		BST	SOURCE
	00354	0 76200 0 00225	215		RDS	SOURCE
	00355	0 02000 0 00167	216		TRA	DUP181
	00356	0 76400 0 00225	217	FIL4E1	BST	SOURCE
	00357	0 02000 0 00246	218		TRA	FILE40
	00360	−0 53400 4 00051	219	FIL4E2	LXD	DUP031,4
	00361	0 02000 0 00265	220		TRA	FILE50
	00362	0 76400 0 00225	221	FIL4E3	BST	SOURCE
	00363	0 76400 0 00225	222		BST	SOURCE
	00364	0 76200 0 00225	223		RDS	SOURCE
	00365	0 02000 0 00250	224		TRA	FILE40+2
	00366	0 00000 0 00367	225	FIL4E4	HTR	FIL4E5
	00367	−0 76000 0 00012	226	FIL4E5	RTT
ATD	00370	3 00000 0 00000	227		TXH
	00371	0 76400 0 00225	228		BST	SOURCE
	00372	0 76400 0 00221	229		BST	OBJECT
	00373	0 02000 0 00246	230		TRA	FILE40
		00225	231	SOURCE	SYN	149
		00221	232	OBJECT	SYN	145
		00454	233	RECORD	SYN	300
		00453	234	DUMMY	SYN	299