␣␣␣␣BT = 79

1. Definition

   00117

   +000000000762

   104

   BT

   OCT

   000000000762 CONSTANT USED BY LEV/RTN/FIL/BDC.

   LRT/092

2. References (2)

   	00000	0 00000 0 00120	3		PZE	BT+1	LRT/C03
   	00100	0 40200 0 00117	85		SUB	BT FOR LOCATION RTB.	LRT/073

␣␣␣␣RT = 61

1. Definition

   00075

   0 56000 1 00000

   82

   RT

   LDQ

   **,1 OBTAIN RTB LOCATION.

   LRT/070

2. References (2)

   	00004	0 62100 0 00075	19		STA	RT SAVE FOR 2ND TRY, IF NECESSARY=	LRT/007
   	00102	1 77777 1 00075	87		TXI	RT,1,−1 C(XR1), AND CONTINUE SEARCH.	LRT/075

␣␣␣AVR = 48

1. Definition

   00060

   0 00000 0 00061

   69

   AVR

   PZE

   QVR,,** RESTORE ORIGINAL AC OV CONDITION.

   LRT/057

2. Reference

   00027

   0 62200 0 00060

   38

   SETAC

   STD

   AVR IN AVR.

   LRT/026

␣␣␣BAK = 32

1. Definition

   00040

   0 02100 0 00000

   47

   BAK

   TTR

   ** * EXIT TO MAIN PROGRAM.

   LRT/035

2. References (2)

   	00001	0 62100 0 00040	16		STA	BAK TO CONTROL LOOP.	LRT/004
   	00111	1 00000 0 00040	94	ERX4	TXI	BAK,0,** * EXIT TO MAIN PROGRAM FOR 2ND TRY.	LRT/082

␣␣␣BST = 69

1. Definition

   00105

   0 76400 0 00200

   90

   BST

   BST

   ** BACKSPACE CURRENT TAPE.

   LRT/078

2. Reference

   00104

   0 62100 0 00105

   89

   STA

   BST CURRENT TAPE ADDRESS.

   LRT/077

␣␣␣CHS = 17

1. Definition

   00021

   0 76000 0 00002

   32

   CHS

   CHS

   CHANGE LTM TO ETM, AND

   LRT/020

2. Reference

   00020

   0 02100 0 00021

   31

   TON

   TTR

   CHS INSTRUCTION EXECUTED IN LOCATION 1.

   LRT/019

␣␣␣DCR = 51

1. Definition

   00063

   0 00000 0 00000

   72

   DCR

   PZE

   ** RESTORE ORIGINAL DIVIDE CHECK COND.

   LRT/060

2. Reference

   00037

   0 60100 0 00063

   46

   STO

   DCR IN DCR.

   LRT/034

␣␣␣DCT = 29

1. Definition

   00035

   0 76000 0 00012

   44

   DCT

   DCT

   RETAIN PREVIOUS

   LRT/032

2. Reference

   00034

   0 50000 0 00035

   43

   CLA

   DCT THEN

   LRT/031

␣␣␣LTM = 19

1. Definition

   00023

   −0 76000 0 00007

   34

   LTM

   LTM

   LEAVE TRAPPING MODE, AND

   LRT/022

2. Reference

   00016

   0 50000 0 00023

   29

   CLA

   LTM IMDE CONDITION.

   LRT/017

␣␣␣MAX = 77

1. Definition

   00115

   +377777777777

   102

   MAX

   OCT

   377777777777 CONSTANT USED BY LEV/RTN/FIL/BDC.

   LRT/090

2. References (2)

   	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

␣␣␣NOP = 52

1. Definition

   00064

   0 76100 0 00000

   73

   NOP

   NOP

   AND THEN

   LRT/061

2. References (3)

   	00024	0 50000 0 00064	35		CLA	NOP THEN	LRT/023
   	00030	0 50000 0 00064	39		CLA	NOP THEN	LRT/027
   	00036	0 50000 0 00064	45		CLA	NOP DIVIDE CHECK CONDITION	LRT/033

␣␣␣NXT = 50

1. Definition

   00062

   0 22100 0 00116

   71

   NXT

   DVP

   ZER AND THEN

   LRT/059

2. Reference

   00061

   0 00000 0 00062

   70

   QVR

   PZE

   NXT,,** RESTORE ORIGINAL MQ OV CONDITION.

   LRT/058

␣␣␣QVR = 49

1. Definition

   00061

   0 00000 0 00062

   70

   QVR

   PZE

   NXT,,** RESTORE ORIGINAL MQ OV CONDITION.

   LRT/058

2. References (2)

   	00033	0 62200 0 00061	42	SETMQ	STD	QVR IN OVR.	LRT/030
   	00060	0 00000 0 00061	69	AVR	PZE	QVR,,** RESTORE ORIGINAL AC OV CONDITION.	LRT/057

␣␣␣RES = 41

1. Definition

   			61			RES = ENTRY POINT USED BY (FIL).	LRT/049
   	00051	−0 50000 0 00112	62	RES	CAL	C(0) RESTORE	LRT/050

␣␣␣RET = 54

1. Definition

   00066

   0 02100 0 00000

   75

   RET

   TTR

   ** * EXIT TO MAIN PROGRAM.

   LRT/063

2. Reference

   00043

   0 62100 0 00066

   55

   STA

   RET TO CONTROL LO0P.

   LRT/043

␣␣␣RTM = 53

1. Definition

   00065

   0 00000 0 00000

   74

   RTM

   PZE

   ** RESTORE ORIGINAL TRAP MODE COND.

   LRT/062

2. Reference

   00022

   0 60100 0 00065

   33

   SET

   STO

   RTM SET RTM TO RESTORE TRAPPING COND.

   LRT/021

␣␣␣SET = 18

1. Definition

   00022

   0 60100 0 00065

   33

   SET

   STO

   RTM SET RTM TO RESTORE TRAPPING COND.

   LRT/021

2. Reference

   00017

   1 00000 0 00022

   30

   ERX1

   TXI

   SET,0,** IF IN TRAPPING MODE, THEN

   LRT/018

␣␣␣TON = 16

1. Definition

   00020

   0 02100 0 00021

   31

   TON

   TTR

   CHS INSTRUCTION EXECUTED IN LOCATION 1.

   LRT/019

2. Reference

   00014

   −0 50000 0 00020

   27

   CAL

   TON SET UP FOR

   LRT/015

␣␣␣TOV = 21

1. Definition

   00025

   0 14000 0 00027

   36

   TOV

   TOV

   SETAC RETAIN PREVIOUS

   LRT/024

2. Reference

   00026

   0 50000 0 00025

   37

   CLA

   TOV AC OVERFLOW CONDITION

   LRT/025

␣␣␣TQO = 25

1. Definition

   00031

   0 16100 0 00033

   40

   TQO

   TQO

   SETMQ RETAIN PREVIOUS

   LRT/028

2. Reference

   00032

   0 50000 0 00031

   41

   CLA

   TQO MQ OVERFLOW CONDITION

   LRT/029

␣␣␣TRY = 55

1. Definition

   D

   00067

   −3 00000 0 00072

   76

   TRY

   TXL

   TRY1,0 OPSWITCH (TXL=TRA, TXH=NOP).

   LRT/064

2. References (3)

   	00046	1 00000 0 00067	58	ERX2	TXI	TRY,0,** CORRECT, THEN TRY AGAIN.	LRT/046
   	00050	0 63000 0 00067	60		STP	TRY SET TRY TO TRANSFER CASE.	LRT/048
   	00073	0 63000 0 00067	80		STP	TRY FOR 2ND ATTEMPT AT READING RECORD.	LRT/068

␣␣␣ZER = 78

1. Definition

   00116

   0 00000 0 00000

   103

   ZER

   PZE

   0 CONSTANT USED BY LEV/RTN/FIL/BDC.

   LRT/091

2. References (2)

   	00062	0 22100 0 00116	71	NXT	DVP	ZER AND THEN	LRT/059
   	00074	0 53400 1 00116	81		LXA	ZER,1 SET XR1 = 0, AND	LRT/069

␣␣C(0) = 74

1. Definition

   			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

2. References (2)

   	00011	0 60200 0 00112	24		SLW	C(0) CONTENTS OF LOCATION 0,	LRT/012
   	00051	−0 50000 0 00112	62	RES	CAL	C(0) RESTORE	LRT/050

␣␣C(1) = 75

1. Definition

   00113

   0 00000 0 00000

   100

   C(1)

   PZE

   ** VARIABLE USED BY LEV/RTN/FIL/BDC.

   LRT/088

2. References (2)

   	00013	0 60200 0 00113	26		SLW	C(1) CONTENTS OF LOCATION 1.	LRT/014
   	00053	−0 50000 0 00113	64		CAL	C(1) RESTORE	LRT/052

␣␣CONT = 67

1. Definition

   00103

   −0 76300 0 00030

   88

   CONT

   LGL

   24 WHEN FOUND, SET

   LRT/076

2. Reference

   00101

   0 10000 0 00103

   86

   TZE

   CONT IF NOT, THEN ADJUST THE

   LRT/074

␣␣ERX1 = 15

1. Definition

   00017

   1 00000 0 00022

   30

   ERX1

   TXI

   SET,0,** IF IN TRAPPING MODE, THEN

   LRT/018

2. References (2)

   	00005	−0 63400 1 00017	20		SXD	ERX1,1 STARTING LOCATION, AND THE	LRT/008
   	00106	−0 53400 1 00017	91		LXD	ERX1,1 RESTORE THE	LRT/079

␣␣ERX2 = 38

1. Definition

   00046

   1 00000 0 00067

   58

   ERX2

   TXI

   TRY,0,** CORRECT, THEN TRY AGAIN.

   LRT/046

2. References (2)

   	00006	−0 63400 2 00046	21		SXD	ERX2,2 CONTENTS OF XR1, XR2,	LRT/009
   	00107	−0 53400 2 00046	92		LXD	ERX2,2 ORIGINAL CONTENTS 0F	LRT/080

␣␣ERX4 = 73

1. Definition

   00111

   1 00000 0 00040

   94

   ERX4

   TXI

   BAK,0,** * EXIT TO MAIN PROGRAM FOR 2ND TRY.

   LRT/082

2. References (2)

   	00007	−0 63400 4 00111	22		SXD	ERX4,4 AND XR4.	LRT/010
   	00110	−0 53400 4 00111	93		LXD	ERX4,4 XR1,XR2, AND XR4.	LRT/081

␣␣GOOD = 39

1. Definition

   00047

   −0 50000 0 00071

   59

   GOOD

   CAL

   TXLOP OTHERWISE, CONTINUE.

   LRT/047

2. Reference

   D

   00071

   −3 00000 0 00047

   78

   TXLOP

   TXL

   GOOD,0 PRESS START TO ACCEPT RECORD.

   LRT/066

␣␣L(2) = 76

1. Definition

   00114

   0 00000 0 00002

   101

   L(2)

   PZE

   2 CONSTANT USED BY LEV/RTN/FIL/BDC.

   LRT/089

2. References (2)

   	00000	0 40000 0 00114	15	(LEV)	ADD	L(2) SET UP FOR RETURN	LRT/003
   	00042	0 40000 0 00114	54		ADD	L(2) SET UP FOR RETURN	LRT/042

␣␣TRY1 = 58

1. Definition

   00072

   0 50000 0 00071

   79

   TRY1

   CLA

   TXLOP SET TRY TO NO TRANSFER CASE

   LRT/067

2. Reference

   D

   00067

   −3 00000 0 00072

   76

   TRY

   TXL

   TRY1,0 OPSWITCH (TXL=TRA, TXH=NOP).

   LRT/064

␣(LEV) = 0

1. Definition

   			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

2. Reference

   00003

   0 00000 0 00000

   6

   PZE

   (LEV)

   LRT/C06

␣(RTN) = 33

1. Definition

   			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

2. Reference

   00005

   0 00000 0 00041

   8

   PZE

   (RTN) ,

   LRT/C08

␣SETAC = 23

1. Definition

   00027

   0 62200 0 00060

   38

   SETAC

   STD

   AVR IN AVR.

   LRT/026

2. Reference

   00025

   0 14000 0 00027

   36

   TOV

   TOV

   SETAC RETAIN PREVIOUS

   LRT/024

␣SETMQ = 27

1. Definition

   00033

   0 62200 0 00061

   42

   SETMQ

   STD

   QVR IN OVR.

   LRT/030

2. Reference

   00031

   0 16100 0 00033

   40

   TQO

   TQO

   SETMQ RETAIN PREVIOUS

   LRT/028

␣TXLOP = 57

1. Definition

   D

   00071

   −3 00000 0 00047

   78

   TXLOP

   TXL

   GOOD,0 PRESS START TO ACCEPT RECORD.

   LRT/066

2. References (2)

   	00047	−0 50000 0 00071	59	GOOD	CAL	TXLOP OTHERWISE, CONTINUE.	LRT/047
   	00072	0 50000 0 00071	79	TRY1	CLA	TXLOP SET TRY TO NO TRANSFER CASE	LRT/067