DIAGNOSTIC EDITOR

			1			707
		00000	2		ORG	0
	00000	0 53400 1 00000	3	A	LXA	0,1 BOOTSTRAP FOR FIRST CARD
	00001	0 70000 1 00002	4	B	CPY	2,1
	00002	1 77777 1 00001	5	C	TXI	1,1,−1
	00003	0 00001 0 00000	6	ONEDEC	HTR	0,0,1
	00004	−3 77540 1 00012	7	RD	TXL	WEF1,1,−160
	00005	0 76200 0 00321	8		RCD
	00006	0 70000 1 05642	9	CPLODR	CPY	3000−22,1 COPY REST OF EDITOR INTO UPPER MEMORY
	00007	1 77777 1 00006	10		TXI	CPLODR,1,−1
	00010	0 00000 0 00004	11		HTR	RD
	00011	0 02000 0 00004	12		TRA	RD
	00012	0 77000 0 00201	13	WEF1	WEF	1
	00013	−0 76000 0 00012	14		RTT	TURN OFF INDICATOR
	00014	0 76100 0 00000	15		NOP
	00015	0 02000 0 05670	16		TRA	RCD
	00016	0 00000 0 00001	17	ONE	HTR	1
	00017	0 00000 0 00036	18	REC2	HTR	30
	00020	0 00000 0 01303	19	ERREC	HTR	LOCREC
	00021	0 00000 0 00001	20	RDREC	HTR	1 REC NUMBER IN DIAG FILE, 1ST WORD OF REC
	00022	0 00006 0 00000	21	RDWDC	HTR	0,0,6 WORD COUNT OF RECORD READ FROM TAPE 5
	00023	0 00000 0 00000	22	REC	HTR	0 REC NUMBER FROM NEW REC CARD
	00024	0 00000 0 00000	23	ERAS	HTR	0
	00025	0 00006 0 00000	24	WDC	HTR	0,0,6
	00026	0 00000 0 00006	25	SIX	HTR	6
	00027	0 00000 0 00000	26	TPCONT	HTR	0
		05670	27		ORG	3000
	05670	0 76200 0 00321	28	RCD	RCD
	05671	0 70000 0 00000	29		CPY	A
	05672	0 02000 0 05674	30		TRA	TEST
	05673	0 00000 0 05670	31		HTR	RCD
	05674	0 70000 0 00001	32	TEST	CPY	B
	05675	0 50000 0 00000	33		CLA	A
	05676	−0 12000 0 05715	34		TMI	CONCRD MINUS IF NEW RECORD CARD
	05677	0 62100 0 05705	35		STA	COPY SAVE ADDRESS OF FIRST INSTRUCTION
	05700	0 77100 0 00022	36		ARS	18
	05701	0 73400 4 00000	37		PAX	0,4 WORD COUNT INTO IR 4
	05702	0 40200 0 05705	38		SUB	COPY ADD FIRST ADDRESS
	05703	0 62100 0 05705	39		STA	COPY STORE BASE ADDRESS IN COPY LOOP
	05704	−0 50000 0 00000	40		CAL	A
	05705	−0 70000 4 00000	41	COPY	CAD	0,4
	05706	2 00001 4 05705	42		TIX	COPY,4,1
	05707	0 60200 0 00002	43		SLW	C
	05710	0 50000 0 00001	44		CLA	B
	05711	0 10000 0 05670	45		TZE	RCD
	05712	0 40200 0 00002	46		SUB	C
	05713	0 10000 0 05670	47		TZE	RCD
	05714	0 00000 0 05670	48		HTR	RCD IGNORE CHECK SUM
	05715	0 70000 0 00001	49	CONCRD	CPY	B 8L OVER 9R, REST OF CARD IS IGNORED
	05716	0 02000 0 06101	50		TRA	END2 WILL BE REPLACED BY NOP
	05717	0 50000 0 00023	51		CLA	REC INIT. 0, OR HAS NUMBER OF DIAG. REC. FROM
	05720	0 10000 0 05741	52		TZE	NX LAST NEW REC. CARD, REMAINS 0 IF WEF ONLY
	05721	0 50000 0 00000	53		CLA	A IS NEW CONTROL CARD WEF, 9L IS -0
	05722	−0 10000 0 05741	54		TNZ	NX
	05723	0 02000 0 05733	55		TRA	WTREC1 WRITE CURRENT BUFFER
	05724	0 07400 4 05777	56	ALL	TSX	READ,4 YES, END OF CHANGES, HAS ALL OF MASTER
	05725	0 50000 0 00021	57		CLA	RDREC BEEN WRITTEN, RDREC WILL BE -
	05726	−0 12000 0 05735	58		TMI	END
	05727	0 50000 0 00022	59		CLA	RDWDC NO, READ IN NEXT RECORD FROM MASTER
	05730	0 62200 0 00025	60		STD	WDC
	05731	0 50000 0 06013	61		CLA	RDLOOP
	05732	0 62100 0 06051	62		STA	WTLOOP
	05733	0 07400 4 06046	63	WTREC1	TSX	WRITE,4 WRITE ON NEW TAPE
	05734	0 02000 0 05724	64		TRA	ALL AND GET NEXT FROM MASTER
	05735	0 77000 0 00201	65	END	WEF	1
	05736	0 77200 0 00201	66		REW	1
	05737	0 60000 0 07777	67		STZ	4095
	05740	0 02000 0 07777	68		TRA	4095
	05741	0 50000 0 00000	69	NX	CLA	A IF ONLY THIS PROGRAM AND WEF CARD
	05742	0 10000 0 05733	70		TZE	WTREC1 WRITE ALL OF MASTER WITHOUT CHANGES
	05743	0 62100 0 00023	71		STA	REC OTHERWISE SAVE NEW RECORD NUMBER
	05744	0 50000 0 00021	72	NX1	CLA	RDREC GET NUMBER OF REC LEFT IN CORES BY READ
	05745	−0 12000 0 05761	73		TMI	NX4 MINUS IF NO MORE RECORDS ON MASTER
	05746	0 40200 0 00023	74		SUB	REC IS RECORD IN CORE THE ONE CALLED FOR
	05747	0 12000 0 05757	75		TPL	NX3
	05750	0 50000 0 00022	76		CLA	RDWDC NOT YET, WRITE CORE RECORD ON NEW TAPE
	05751	0 62200 0 00025	77		STD	WDC
	05752	0 50000 0 06013	78		CLA	RDLOOP
	05753	0 62100 0 06051	79		STA	WTLOOP
	05754	0 07400 4 06046	80		TSX	WRITE,4
	05755	0 07400 4 05777	81		TSX	READ,4 BRING NEXT RECORD FROM MASTER AND
	05756	0 02000 0 05744	82		TRA	NX1 TEST AGAINST NEW RECORD CARD
	05757	0 10000 0 05761	83	NX3	TZE	NX4 IF CORRECT REC, SET WORD COUNT ETC.
	05760	0 76400 0 00205	84		BST	5 READ 1 TOO MANY, SOME REC DELETED
	05761	0 50000 0 00001	85	NX4	CLA	B
	05762	0 40000 0 00016	86		ADD	ONE ADD 1 TO LAST ADDRESS FOR WRITE LOOP
	05763	0 62100 0 06051	87		STA	WTLOOP
	05764	0 62100 0 00024	88		STA	ERAS
	05765	0 77100 0 00022	89		ARS	18
	05766	0 40200 0 00024	90		SUB	ERAS IF LAST ADDRESS NOT GREATER THAN
	05767	0 10000 0 05774	91		TZE	DELETE FIRST ADDRESS DELETE THIS REC WHEN COPYING
	05770	0 12000 0 05774	92		TPL	DELETE MASTER
	05771	0 76700 0 00022	93		ALS	18
	05772	0 62200 0 00025	94		STD	WDC
	05773	0 02000 0 05670	95		TRA	RCD
	05774	0 60000 0 00022	96	DELETE	STZ	RDWDC
	05775	0 60000 0 00025	97		STZ	WDC
	05776	0 02000 0 05670	98		TRA	RCD
	05777	0 50000 0 00021	99	READ	CLA	RDREC
	06000	−0 12000 0 06033	100		TMI	OUT HAS END OF FILE BEEN REACHED
	06001	0 40200 0 00016	101		SUB	ONE IF 1ST RECORD STILL IN CORE, SET
	06002	−0 10000 0 06005	102		TNZ	RD2 ADDRESS TO READ IN 2ND RECORD
	06003	0 50000 0 00017	103		CLA	REC2
	06004	0 02000 0 06006	104		TRA	RD3
	06005	0 50000 0 00020	105	RD2	CLA	ERREC 3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2
	06006	0 62100 0 06013	106	RD3	STA	RDLOOP
	06007	0 62100 0 06031	107		STA	SETREC
	06010	0 60000 0 00027	108		STZ	TPCONT
	06011	−0 53400 2 00016	109	RDAGIN	LXD	ONE,2 IE., ZERO
	06012	0 76200 0 00225	110		RTB	5
	06013	0 70000 2 00037	111	RDLOOP	CPY	31,2
	06014	1 77777 2 06013	112		TXI	RDLOOP,2,−1
	06015	0 02000 0 06034	113		TRA	SETEOF
	06016	0 76600 0 00333	114		IOD
	06017	−0 76000 0 00012	115		RTT
	06020	0 02000 0 06037	116		TRA	BSTP5
	06021	−0 75400 2 00000	117	FXWDC	PXD	0,2
	06022	0 76000 0 00006	118		COM
	06023	0 40000 0 00003	119		ADD	ONEDEC RECOMPLIMENT WORD COUNT
	06024	0 62200 0 00022	120		STD	RDWDC AND FIND BASE ADDRESS
	06025	0 77100 0 00022	121		ARS	18
	06026	0 76000 0 00003	122		SSP
	06027	0 40000 0 06013	123		ADD	RDLOOP ADD WORD COUNT TO FIRST ADDRESS
	06030	0 62100 0 06013	124		STA	RDLOOP
	06031	0 50000 0 00000	125	SETREC	CLA	0 FIRST WORD OF RECORD HAS RECORD NUMBER
	06032	0 62100 0 00021	126		STA	RDREC
	06033	0 02000 4 00001	127	OUT	TRA	1,4
	06034	−0 76000 0 00003	128	SETEOF	SSM	SET RDREC - IF END OF MASTER FILE
	06035	0 60100 0 00021	129		STO	RDREC
	06036	0 02000 4 00001	130		TRA	1,4
	06037	−0 53400 1 00027	131	BSTP5	LXD	TPCONT,1
	06040	−3 00017 1 06042	132		TXL	TRABST,1,15
	06041	0 00000 0 06021	133		HTR	FXWDC PRESS START TO ACCEPT
	06042	0 76400 0 00205	134	TRABST	BST	5
	06043	1 00001 1 06044	135		TXI	MM,1,1
	06044	−0 63400 1 00027	136	MM	SXD	TPCONT,1
	06045	0 02000 0 06011	137		TRA	RDAGIN
	06046	−0 53400 2 00025	138	WRITE	LXD	WDC,2 WORD COUNT ZERO TO DELETE RECORD
	06047	−3 00000 2 06053	139		TXL	WTOUT,2,0
	06050	0 76600 0 00221	140		WTB	1
	06051	0 70000 2 00037	141	WTLOOP	CPY	31,2
	06052	2 00001 2 06051	142		TIX	WTLOOP,2,1
	06053	0 02000 4 00001	143	WTOUT	TRA	1,4
	06054	0 76200 0 00225	144	ISDIAG	RTB	5 SPACE OVER LIBRARY
	06055	0 70000 0 06101	145		CPY	RTB1+1
	06056	0 02000 0 06054	146		TRA	ISDIAG
	06057	0 76200 0 00225	147		RTB	5
	06060	0 53400 2 00026	148		LXA	SIX,2 IF MASTER FILE DOES NOT HAVE DIAG.,
	06061	0 70000 2 00037	149	ISCP	CPY	31,2 SET READ TO IGNORE, OTHERWISE
	06062	2 00001 2 06061	150		TIX	ISCP,2,1 FIRST RECORD WILL BE IN CORES
	06063	0 76100 0 00000	151	NOP	NOP
	06064	0 50000 0 00031	152		CLA	25
	06065	0 40200 0 06077	153		SUB	TEST1
	06066	−0 10000 0 06072	154		TNZ	TST1
	06067	0 50000 0 00032	155		CLA	26
	06070	0 40200 0 06100	156		SUB	RTB1
	06071	0 10000 0 06074	157		TZE	TST2
	06072	−0 76000 0 00003	158	TST1	SSM
	06073	0 60100 0 00021	159		STO	RDREC
	06074	0 50000 0 06063	160	TST2	CLA	NOP
	06075	0 60100 0 05716	161		STO	CONCRD+1
	06076	0 02000 0 05717	162		TRA	CONCRD+2
TD	06077	3 00000 0 00001	163	TEST1	TXH	1
	06100	0 76200 0 00221	164	RTB1	RTB	1
	06101	0 76200 0 00225	165	END2	RTB	5 SPACE OVER END FILE GAP AT END FILE 2
	06102	0 02000 0 06054	166		TRA	ISDIAG