1			CONTROL CARD FOR LRT.	LRT/C01
A		00000	2		ORG		LRT/C02
	00000	0 00000 0 00120	3		PZE	BT+1	LRT/C03
	00001	0 00000 0 00000	4		PZE		LRT/C04
	00002	744325653460	5		BCD	1(LEV)␣	LRT/C05
	00003	0 00000 0 00000	6		PZE	(LEV)	LRT/C06
	00004	745163453460	7		BCD	1(RTN)␣	LRT/C07
	00005	0 00000 0 00041	8		PZE	(RTN) ,	LRT/C08
			9			END OF LRT CONTROL CARD.	LRT/C09
			10			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
			11
A		00000	12		ORG		LRT/C
			13			(LEV)/ CALLER=MAIN PROGRAM.	LRT/001
			14			(LEV) SAVES ALL INDICATORS BEFORE I/O TRANSMISSION.	LRT/002
	00000	0 40000 0 00114	15	(LEV)	ADD	L(2) SET UP FOR RETURN	LRT/003
	00001	0 62100 0 00040	16		STA	BAK TO CONTROL LOOP.	LRT/004
	00002	−0 76000 0 00012	17		RTT	MAKE CERTAIN REDUNDANCY	LRT/005
	00003	0 76100 0 00000	18		NOP	INDICATOR IS TURNED OFF.	LRT/006
	00004	0 62100 0 00075	19		STA	RT SAVE FOR 2ND TRY, IF NECESSARY=	LRT/007
	00005	−0 63400 1 00017	20		SXD	ERX1,1 STARTING LOCATION, AND THE	LRT/008
	00006	−0 63400 2 00046	21		SXD	ERX2,2 CONTENTS OF XR1, XR2,	LRT/009
	00007	−0 63400 4 00111	22		SXD	ERX4,4 AND XR4.	LRT/010
	00010	−0 50000 0 00000	23		CAL	0 ALSO SAVE THE	LRT/011
	00011	0 60200 0 00112	24		SLW	C(0) CONTENTS OF LOCATION 0,	LRT/012
	00012	−0 50000 0 00001	25		CAL	1 AND THE	LRT/013
	00013	0 60200 0 00113	26		SLW	C(1) CONTENTS OF LOCATION 1.	LRT/014
	00014	−0 50000 0 00020	27		CAL	TON SET UP FOR	LRT/015
	00015	0 60200 0 00001	28		SLW	1 PREVIOUS TRAP	LRT/016
	00016	0 50000 0 00023	29		CLA	LTM IMDE CONDITION.	LRT/017
	00017	1 00000 0 00022	30	ERX1	TXI	SET,0,** IF IN TRAPPING MODE, THEN	LRT/018
	00020	0 02100 0 00021	31	TON	TTR	CHS INSTRUCTION EXECUTED IN LOCATION 1.	LRT/019
	00021	0 76000 0 00002	32	CHS	CHS	CHANGE LTM TO ETM, AND	LRT/020
	00022	0 60100 0 00065	33	SET	STO	RTM SET RTM TO RESTORE TRAPPING COND.	LRT/021
	00023	−0 76000 0 00007	34	LTM	LTM	LEAVE TRAPPING MODE, AND	LRT/022
	00024	0 50000 0 00064	35		CLA	NOP THEN	LRT/023
	00025	0 14000 0 00027	36	TOV	TOV	SETAC RETAIN PREVIOUS	LRT/024
	00026	0 50000 0 00025	37		CLA	TOV AC OVERFLOW CONDITION	LRT/025
	00027	0 62200 0 00060	38	SETAC	STD	AVR IN AVR.	LRT/026
	00030	0 50000 0 00064	39		CLA	NOP THEN	LRT/027
	00031	0 16100 0 00033	40	TQO	TQO	SETMQ RETAIN PREVIOUS	LRT/028
	00032	0 50000 0 00031	41		CLA	TQO MQ OVERFLOW CONDITION	LRT/029
	00033	0 62200 0 00061	42	SETMQ	STD	QVR IN OVR.	LRT/030
	00034	0 50000 0 00035	43		CLA	DCT THEN	LRT/031
	00035	0 76000 0 00012	44	DCT	DCT	RETAIN PREVIOUS	LRT/032
	00036	0 50000 0 00064	45		CLA	NOP DIVIDE CHECK CONDITION	LRT/033
	00037	0 60100 0 00063	46		STO	DCR IN DCR.	LRT/034
	00040	0 02100 0 00000	47	BAK	TTR	** * EXIT TO MAIN PROGRAM.	LRT/035
			48			END OF PROGRAM (LEV).	LRT/036
			49			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	LRT/037
			50				LRT/038
			51			(RTNI/ CALLERS=MAIN PROGRAM,(FIL).	LRT/039
			52			(RTN) RESTORES ALL INDICATORS AFTER I/O TRANSMISSION.	LRT/040
	00041	−0 76000 0 00007	53	(RTN)	LTM	LEAVE TRAPPING MODE, AND	LRT/041
	00042	0 40000 0 00114	54		ADD	L(2) SET UP FOR RETURN	LRT/042
	00043	0 62100 0 00066	55		STA	RET TO CONTROL LO0P.	LRT/043
	00044	0 76600 0 00333	56		IOD	INPUT-OUTPUT DELAY.	LRT/044
	00045	−0 76000 0 00012	57		RTT	IF BINARY TAPE READING WAS NOT	LRT/045
	00046	1 00000 0 00067	58	ERX2	TXI	TRY,0,** CORRECT, THEN TRY AGAIN.	LRT/046
	00047	−0 50000 0 00071	59	GOOD	CAL	TXLOP OTHERWISE, CONTINUE.	LRT/047
	00050	0 63000 0 00067	60		STP	TRY SET TRY TO TRANSFER CASE.	LRT/048
			61			RES = ENTRY POINT USED BY (FIL).	LRT/049
	00051	−0 50000 0 00112	62	RES	CAL	C(0) RESTORE	LRT/050
	00052	0 60200 0 00000	63		SLW	0 THE C(0).	LRT/051
	00053	−0 50000 0 00113	64		CAL	C(1) RESTORE	LRT/052
	00054	0 60200 0 00001	65		SLW	1 THE C(1).	LRT/053
	00055	0 76600 0 00333	66		IOD	INPUT-OUTPUT DELAY.	LRT/054
	00056	0 56000 0 00115	67		LDQ	MAX FORCE ALL TEST	LRT/055
	00057	0 26000 0 00115	68		FMP	MAX CONDITIONS ON, AND THEN	LRT/056
	00060	0 00000 0 00061	69	AVR	PZE	QVR,,** RESTORE ORIGINAL AC OV CONDITION.	LRT/057
	00061	0 00000 0 00062	70	QVR	PZE	NXT,,** RESTORE ORIGINAL MQ OV CONDITION.	LRT/058
	00062	0 22100 0 00116	71	NXT	DVP	ZER AND THEN	LRT/059
	00063	0 00000 0 00000	72	DCR	PZE	** RESTORE ORIGINAL DIVIDE CHECK COND.	LRT/060
	00064	0 76100 0 00000	73	NOP	NOP	AND THEN	LRT/061
	00065	0 00000 0 00000	74	RTM	PZE	** RESTORE ORIGINAL TRAP MODE COND.	LRT/062
	00066	0 02100 0 00000	75	RET	TTR	** * EXIT TO MAIN PROGRAM.	LRT/063
D	00067	−3 00000 0 00072	76	TRY	TXL	TRY1,0 OPSWITCH (TXL=TRA, TXH=NOP).	LRT/064
	00070	0 42000 7 00007	77		HPR	7,7 HALT AFTER 2ND FAILURE.	LRT/065
D	00071	−3 00000 0 00047	78	TXLOP	TXL	GOOD,0 PRESS START TO ACCEPT RECORD.	LRT/066
	00072	0 50000 0 00071	79	TRY1	CLA	TXLOP SET TRY TO NO TRANSFER CASE	LRT/067
	00073	0 63000 0 00067	80		STP	TRY FOR 2ND ATTEMPT AT READING RECORD.	LRT/068
	00074	0 53400 1 00116	81		LXA	ZER,1 SET XR1 = 0, AND	LRT/069
	00075	0 56000 1 00000	82	RT	LDQ	**,1 OBTAIN RTB LOCATION.	LRT/070
	00076	−0 75400 0 00000	83		PXD	,0 OBTAIN OPERATION	LST/071
	00077	−0 76300 0 00014	84		LGL	12 BITS, AND TEST	LRT/072
	00100	0 40200 0 00117	85		SUB	BT FOR LOCATION RTB.	LRT/073
	00101	0 10000 0 00103	86		TZE	CONT IF NOT, THEN ADJUST THE	LRT/074
	00102	1 77777 1 00075	87		TXI	RT,1,−1 C(XR1), AND CONTINUE SEARCH.	LRT/075
	00103	−0 76300 0 00030	88	CONT	LGL	24 WHEN FOUND, SET	LRT/076
	00104	0 62100 0 00105	89		STA	BST CURRENT TAPE ADDRESS.	LRT/077
	00105	0 76400 0 00200	90	BST	BST	** BACKSPACE CURRENT TAPE.	LRT/078
	00106	−0 53400 1 00017	91		LXD	ERX1,1 RESTORE THE	LRT/079
	00107	−0 53400 2 00046	92		LXD	ERX2,2 ORIGINAL CONTENTS 0F	LRT/080
	00110	−0 53400 4 00111	93		LXD	ERX4,4 XR1,XR2, AND XR4.	LRT/081
	00111	1 00000 0 00040	94	ERX4	TXI	BAK,0,** * EXIT TO MAIN PROGRAM FOR 2ND TRY.	LRT/082
			95			END OF PROGRAM (RTN).	LRT/083
			96			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	LRT/084
			97				LRT/085
			98			CONSTANTS AND WORKING STORAGE USED BY LEV/RTN/FIL/BDC.	LRT/086
	00112	0 00000 0 00000	99	C(0)	PZE	** VARIABLE USED BY LEV/RTN/FIL/BDC.	LRT/087
	00113	0 00000 0 00000	100	C(1)	PZE	** VARIABLE USED BY LEV/RTN/FIL/BDC.	LRT/088
	00114	0 00000 0 00002	101	L(2)	PZE	2 CONSTANT USED BY LEV/RTN/FIL/BDC.	LRT/089
	00115	+377777777777	102	MAX	OCT	377777777777 CONSTANT USED BY LEV/RTN/FIL/BDC.	LRT/090
	00116	0 00000 0 00000	103	ZER	PZE	0 CONSTANT USED BY LEV/RTN/FIL/BDC.	LRT/091
	00117	+000000000762	104	BT	OCT	000000000762 CONSTANT USED BY LEV/RTN/FIL/BDC.	LRT/092
			105			END OF CONSTANTS AND WORKING STORAGE USED BY LEV/RTN.	LRT/093
			106			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	LRT/094
			107				LRT/095