␣␣␣␣A1 = 146

1. Definition

   00222

   0 70000 2 01371

   23

   A1

   CPY

   REC−1,2

   F6T00140

2. Reference

   00223

   1 00001 2 00222

   24

   TXI

   A1,2,1

   F6T00150

␣␣␣␣A2 = 144

1. Definition

   00220

   −0 53400 2 00161

   21

   A2

   LXD

   ZERO,2

   F6T00120

2. Reference

   00244

   2 00001 4 00220

   41

   TIX

   A2,4,1

   F6T00320

␣␣␣␣A3 = 157

1. Definition

   00235

   0 70000 2 01371

   34

   A3

   CPY

   REC−1,2

   F6T00250

2. Reference

   00237

   −3 00237 2 00235

   36

   A4

   TXL

   A3,2,*

   F6T00270

␣␣␣␣A4 = 159

1. Definition

   00237

   −3 00237 2 00235

   36

   A4

   TXL

   A3,2,*

   F6T00270

2. References (2)

   	00232	−0 63400 2 00237	31	NEXT2	SXD	A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.	F6T00220
   	00236	1 00001 2 00237	35		TXI	A4,2,1	F6T00260

␣␣␣␣A5 = 169

1. Definition

   			46			ON TAPE SIX.	F6T00370
   	00251	3 00001 1 00324	47	A5	TXH	TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO.	F6T00380

2. References (3)

   	00250	1 00001 1 00251	45		TXI	A5,1,1	F6T00360
   	00332	−0 53400 1 00251	96	WT3	LXD	A5,1 DOWN. RESET INDEX REGISTER 1 TO 1.	F6T00870
   	00334	0 62100 0 00251	98		STA	A5	F6T00890

␣␣␣␣A6 = 143

1. Definition

   00217

   −0 53400 4 00242

   20

   A6

   LXD

   SEVEN,4 SET READ ERROR COUNTER.

   F6T00110

2. References (2)

   	00253	0 02000 0 00217	49		TRA	A6	F6T00400
   	00335	0 02000 0 00217	99		TRA	A6	F6T00900

␣␣␣␣A7 = 178

1. Definition

   00262

   −0 53400 4 00242

   56

   A7

   LXD

   SEVEN,4 DOWN. SET READ ERROR COUNTER.

   F6T00470

2. References (2)

   	00257	0 02000 0 00262	53		TRA	A7	F6T00440
   	00306	0 02000 0 00262	76		TRA	A7 GO READ NEXT RECORD.	F6T00670

␣␣␣␣A8 = 181

1. Definition

   00265

   0 70000 2 01371

   59

   A8

   CPY

   REC−1,2

   F6T00500

2. Reference

   00266

   1 00001 2 00265

   60

   TXI

   A8,2,1

   F6T00510

␣␣␣␣A9 = 192

1. Definition

   00300

   0 70000 2 01371

   70

   A9

   CPY

   REC−1,2

   F6T00610

2. Reference

   00302

   −3 00302 2 00300

   72

   A10

   TXL

   A9,2,* TEST END OF RECORD.

   F6T00630

␣␣␣␣ER = 166

1. Definition

   00246

   0 00000 0 00246

   43

   ER

   HTR

   ER

   F6T00340

2. Reference

   00246

   0 00000 0 00246

   43

   ER

   HTR

   ER

   F6T00340

␣␣␣A10 = 194

1. Definition

   00302

   −3 00302 2 00300

   72

   A10

   TXL

   A9,2,* TEST END OF RECORD.

   F6T00630

2. References (2)

   	00275	−0 63400 2 00302	67	NEXT1	SXD	A10,2 SAVE WORD COUNT OF RECORD.	F6T00580
   	00301	1 00001 2 00302	71		TXI	A10,2,1	F6T00620

␣␣␣A11 = 141

1. Definition

   00215

   −0 76000 0 00012

   18

   A11

   RTT

   F6T00090

2. Reference

   00241

   0 02000 0 00215

   38

   TRA

   A11 GO READ NEXT RECORD FROM TAPE TWO.

   F6T00290

␣␣␣A12 = 179

1. Definition

   00263

   −0 53400 2 00161

   57

   A12

   LXD

   ZERO,2 ONTO TAPE7

   F6T00480

2. Reference

   00310

   2 00001 4 00263

   78

   TIX

   A12,4,1 READ ERROR PROCEDURE.

   F6T00690

␣␣␣EOF = 167

1. Definition

   00247

   0 77000 0 00206

   44

   EOF

   WEF

   6 AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.

   F6T00350

2. Reference

   00224

   0 02000 0 00247

   25

   TRA

   EOF EOF

   F6T00160

␣␣␣ONE = 114

1. Definition

   00162

   5

   ONE

   EQU

   114

2. References (2)

   	00254	0 50000 0 00162	50	TAPE7	CLA	ONE TEST SENSE SWITCH ONE.	F6T00410
   	00324	0 50000 0 00162	90	TEST2	CLA	ONE AFTER 2ND FILE FROM 2 TO 6,	F6T00810

␣␣␣REC = 762

1. Definition

   01372

   101

   REC

   BES

   500

   F6T00920

2. References (4)

   	00222	0 70000 2 01371	23	A1	CPY	REC−1,2	F6T00140
   	00235	0 70000 2 01371	34	A3	CPY	REC−1,2	F6T00250
   	00265	0 70000 2 01371	59	A8	CPY	REC−1,2	F6T00500
   	00300	0 70000 2 01371	70	A9	CPY	REC−1,2	F6T00610

␣␣␣SW1 = 127

1. Definition

   00177

   6

   SW1

   EQU

   127

2. Reference

   00255

   0 34000 0 00177

   51

   CAS

   SW1

   F6T00420

␣␣␣SW2 = 128

1. Definition

   00200

   7

   SW2

   EQU

   128

2. Reference

   00325

   0 34000 0 00200

   91

   CAS

   SW2 TEST SENSE SWITCH 2.

   F6T00820

␣␣␣SW3 = 129

1. Definition

   00201

   8

   SW3

   EQU

   129

␣␣␣SW4 = 130

1. Definition

   00202

   9

   SW4

   EQU

   130

␣␣␣WT3 = 218

1. Definition

   00332

   −0 53400 1 00251

   96

   WT3

   LXD

   A5,1 DOWN. RESET INDEX REGISTER 1 TO 1.

   F6T00870

2. References (2)

   	00327	0 02000 0 00332	93		TRA	WT3	F6T00840
   	00333	0 50000 0 00331	97		CLA	WT3−1 CHANGE A5 TRANSFER ADDRESS TO TAPE7.	F6T00880

␣␣EOF3 = 203

1. Definition

   00313

   0 77000 0 00207

   81

   EOF3

   WEF

   7 AT EOF ON 3, WRITE EOF ON 7.

   F6T00720

2. References (3)

   	00256	0 02000 0 00314	52		TRA	EOF3+1	F6T00430
   	00261	0 02000 0 00314	55		TRA	EOF3+1	F6T00460
   	00267	0 02000 0 00313	61		TRA	EOF3 EOF OF FILE.	F6T00520

␣␣ERR3 = 199

1. Definition

   00307

   0 76400 0 00203

   77

   ERR3

   BST

   3

   F6T00680

2. Reference

   00273

   0 02000 0 00307

   65

   TRA

   ERR3 ERROR.

   F6T00560

␣␣ERR4 = 202

1. Definition

   00312

   0 00000 0 00312

   80

   ERR4

   HTR

   ERR4

   F6T00710

2. Reference

   00312

   0 00000 0 00312

   80

   ERR4

   HTR

   ERR4

   F6T00710

␣␣FINI = 207

1. Definition

   00317

   0 77200 0 00202

   85

   FINI

   REW

   2 REWINDS TAPES 2,3, AND 4 AND

   F6T00760

2. Reference

   00214

   0 02000 0 00317

   17

   TRA

   FINI UP. DO NOT DUMP TAPES BUT GO TO FINI.

   F6T00080

␣␣ZERO = 113

1. Definition

   			2			FORTRAN 2 RECORD 007 - TAPE 3,7 TO 2,6.	F6T00011
   			3				F6T00012
   		00161	4	ZERO	EQU	113

2. References (5)

   	00212	−0 53400 1 00161	15		LXD	ZERO,1	F6T00060
   	00220	−0 53400 2 00161	21	A2	LXD	ZERO,2	F6T00120
   	00233	−0 53400 2 00161	32		LXD	ZERO,2 ONTO TAPE6	F6T00230
   	00263	−0 53400 2 00161	57	A12	LXD	ZERO,2 ONTO TAPE7	F6T00480
   	00276	−0 53400 2 00161	68		LXD	ZERO,2	F6T00590

␣ERROR = 163

1. Definition

   00243

   0 76400 0 00202

   40

   ERROR

   BST

   2 READ ERROR PROCEDURE.

   F6T00310

2. Reference

   00230

   0 02000 0 00243

   29

   TRA

   ERROR ERROR

   F6T00200

␣NEXT1 = 189

1. Definition

   00275

   −0 63400 2 00302

   67

   NEXT1

   SXD

   A10,2 SAVE WORD COUNT OF RECORD.

   F6T00580

2. Reference

   00274

   1 77777 2 00275

   66

   TXI

   NEXT1,2,−1

   F6T00570

␣NEXT2 = 154

1. Definition

   00232

   −0 63400 2 00237

   31

   NEXT2

   SXD

   A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.

   F6T00220

2. Reference

   00231

   1 77777 2 00232

   30

   TXI

   NEXT2,2,−1

   F6T00210

␣SEVEN = 162

1. Definition

   00242

   0 00005 0 00000

   39

   SEVEN

   0,0,5

   F6T00300

2. References (2)

   	00217	−0 53400 4 00242	20	A6	LXD	SEVEN,4 SET READ ERROR COUNTER.	F6T00110
   	00262	−0 53400 4 00242	56	A7	LXD	SEVEN,4 DOWN. SET READ ERROR COUNTER.	F6T00470

␣TAPE7 = 172

1. Definition

   00254

   0 50000 0 00162

   50

   TAPE7

   CLA

   ONE TEST SENSE SWITCH ONE.

   F6T00410

2. References (2)

   	00326	0 02000 0 00254	92		TRA	TAPE7	F6T00830
   	00331	0 02000 0 00254	95		TRA	TAPE7 UP. GO TEST SWITCH 1.	F6T00860

␣TEST2 = 212

1. Definition

   00324

   0 50000 0 00162

   90

   TEST2

   CLA

   ONE AFTER 2ND FILE FROM 2 TO 6,

   F6T00810

2. Reference

   00251

   3 00001 1 00324

   47

   A5

   TXH

   TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO.

   F6T00380