␣␣␣␣GO = 137

1. Definition

   D

   00211

   −3 00000 1 00215

   10

   GO

   TXL

   IFMT,1

   F6F00050

␣␣␣CFS = 159

1. Definition

   00237

   −0 70000 2 00704

   33

   CFS

   CAD

   FORT,2

   F6F00280

2. Reference

   00240

   2 00001 2 00237

   34

   TIX

   CFS,2,1

   F6F00290

␣␣␣MI1 = 210

1. Definition

   00322

   0 00000 0 77777

   86

   MI1

   PZE

   −1

   F6F00781

2. Reference

   00333

   0 50000 0 00322

   95

   CLA

   MI1

   F6F00790

␣␣␣NFA = 143

1. Definition

   T

   00217

   −0 75400 0 02000

   17

   NFA

   PXD

   1024 TABLE FROM

   F6F00120

2. Reference

   00221

   0 46000 0 00217

   19

   LDA

   NFA LOCATE FORSUB (FORTRAN FUNCTION) TABLE.

   F6F00140

␣␣␣RFS = 153

1. Definition

   00231

   −0 53400 3 00704

   27

   RFS

   LXD

   FORT,3 TEST IF ANY FORTRAN FUNCTIONS.

   F6F00220

2. Reference

   00226

   0 10000 0 00231

   24

   TZE

   RFS

   F6F00190

␣␣␣RNF = 233

1. Definition

   00351

   0 53400 4 00321

   109

   RNF

   LXA

   LOC15,4 SET DRUM READ ERROR COUNTER

   F6F00804

␣␣␣SAV = 212

1. Definition

   00324

   0 00000 0 00000

   88

   SAV

   HTR

   0

   F6F00783

2. References (2)

   	00335	−0 63400 1 00324	97	GOFIX	SXD	SAV,1	F6F00792
   	00344	−0 53400 1 00324	104		LXD	SAV,1	F6F00799

␣␣␣SUM = 250

1. Definition

   00372

   0 00000 0 00000

   112

   SUM

   F6F00807

2. References (3)

   	00224	−0 70000 0 00372	22		CAD	SUM CHECK.	F6F00170
   	00241	0 70000 0 00372	35		CPY	SUM	F6F00300
   	00243	−0 70000 0 00372	37		CAD	SUM	F6F00320

␣␣␣TFA = 157

1. Definition

   T

   00235

   −0 75400 0 02002

   31

   TFA

   PXD

   1026 INTO FORT-WDCT THRU FORT-1.

   F6F00260

2. Reference

   00236

   0 46000 0 00235

   32

   LDA

   TFA

   F6F00270

␣␣DCR1 = 211

1. Definition

   00323

   +000001000000

   87

   DCR1

   OCT

   1000000

   F6F00782

2. References (2)

   	00326	0 40200 0 00323	90		SUB	DCR1	F6F00785
   	00332	−0 53400 1 00323	94		LXD	DCR1,1	F6F00789

␣␣EDEV = 185

1. Definition

   00271

   1 00001 2 00272

   61

   EDEV

   TXI

   EDEV0,2,1 FOR COMMENTS, SEE RECORD 96.

   F6F00540

2. References (2)

   	00253	0 07400 4 00271	45		TSX	EDEV,4 IF NOT IN TABLE, GO TO ENTER IT WITH LOCATION	F6F00400
   	00340	0 07400 4 00271	100		TSX	EDEV,4 NOT IN SO ENTER IN DEV	F6F00795

␣␣ETST = 230

1. Definition

   00346

   3 00000 1 00350

   106

   ETST

   TXH

   GOHD,1,** TEST FOR ANY MORE ARGS.

   F6F00801

2. Reference

   00331

   0 62200 0 00346

   93

   STD

   ETST ARGUMENTS TO ENTER IN DEV.

   F6F00788

␣␣FORD = 177

1. Definition

   00261

   0 60100 2 00540

   51

   FORD

   STO

   LIBP,2

   F6F00460

2. Reference

   00260

   1 00001 2 00261

   50

   TXI

   FORD,2,1

   F6F00450

␣␣FORE = 181

1. Definition

   00265

   −0 53400 1 00264

   56

   FORE

   LXD

   FORM,1 RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLE

   F6F00500

2. Reference

   TD

   00254

   1 00000 0 00265

   46

   TXI

   FORE ZERO, AND TRANSFER TO FORE.

   F6F00410

␣␣FORM = 180

1. Definition

   			54			FUNCTION SYMBOL	F6F00481
   TD	00264	1 00000 0 00267	55	FORM	TXI	RDRM YES, GO TO LOADER.	F6F00490

2. References (3)

   	00250	−0 63400 1 00264	42	FORS	SXD	FORM,1 SAVE WD COUNTER IN DECREMENT OF FORM.	F6F00370
   	00255	−0 53400 1 00264	47		LXD	FORM,1 RETURN HERE IF SYMBOL WAS FOUND IN DEV.	F6F00420
   	00265	−0 53400 1 00264	56	FORE	LXD	FORM,1 RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLE	F6F00500

␣␣FORS = 168

1. Definition

   00250

   −0 63400 1 00264

   42

   FORS

   SXD

   FORM,1 SAVE WD COUNTER IN DECREMENT OF FORM.

   F6F00370

2. References (3)

   	00245	0 10000 0 00250	39		TZE	FORS CHECK SUM OKAY.	F6F00340
   	00263	2 00002 1 00250	53		TIX	FORS,1,2 END OF FORSUB TABLE. NO, GO TO SELECT NEXT	F6F00480
   	00266	2 00002 1 00250	57		TIX	FORS,1,2 NO, DECREMENT COUNTER AND GO TO READ NEXT	F6F00510

␣␣FORT = 452

1. Definition

   00704

   115

   FORT

   BES

   100

   F6F00830

2. References (5)

   	00222	−0 70000 0 00704	20		CAD	FORT TO READ WORD COUNT OF FORSUB TABLE, SAVE IT IN	F6F00150
   	00231	−0 53400 3 00704	27	RFS	LXD	FORT,3 TEST IF ANY FORTRAN FUNCTIONS.	F6F00220
   	00237	−0 70000 2 00704	33	CFS	CAD	FORT,2	F6F00280
   	00251	0 50000 1 00704	43		CLA	FORT,1 SELECT FUNCTION SYMBOL, ANO GO TO	F6F00380
   	00256	0 50000 1 00704	48		CLA	FORT,1 ENTER SYMBOL	F6F00430

␣␣GOHD = 232

1. Definition

   00350

   0 60000 0 00174

   108

   GOHD

   STZ

   EA RESET EA TO ZERO.

   F6F00803

2. References (3)

   	00327	0 10000 0 00351	91		TZE	GOHD+1 NO ARGUMENTS.	F6F00786
   	00330	−0 12000 0 00351	92		TMI	GOHD+1 NO ARGUMENTS.	F6F00787
   	00346	3 00000 1 00350	106	ETST	TXH	GOHD,1,** TEST FOR ANY MORE ARGS.	F6F00801

␣␣IFMT = 141

1. Definition

   A

   00215

   14

   IFMT

   BSS

   F6F00090

2. Reference

   D

   00211

   −3 00000 1 00215

   10

   GO

   TXL

   IFMT,1

   F6F00050

␣␣LIBD = 251

1. Definition

   00373

   0 00000 0 00000

   113

   LIBD

   F6F00810

2. References (3)

   	00220	0 60100 0 00373	18		STO	LIBD SET LIBD EQUAL TO ZERO.	F6F00130
   	00257	−0 53400 2 00373	49		LXD	LIBD,2 IN LIBP TABLE.	F6F00440
   	00262	−0 63400 2 00373	52		SXD	LIBD,2	F6F00470

␣␣LIBP = 352

1. Definition

   00540

   114

   LIBP

   BES

   100

   F6F00820

2. Reference

   00261

   0 60100 2 00540

   51

   FORD

   STO

   LIBP,2

   F6F00460

␣␣RDRM = 183

1. Definition

   			58			FUNCTION SYMBOL	F6F00511
   	00267	0 76200 0 00221	59	RDRM	RTB	1 YES, GO TO LOADER	F6F00520

2. References (2)

   D	00232	−3 00000 2 00267	28		TXL	RDRM,2 IF NOT, GO TO RETURN TO LOADER.	F6F00230
   TD	00264	1 00000 0 00267	55	FORM	TXI	RDRM YES, GO TO LOADER.	F6F00490

␣EDEV0 = 186

1. Definition

   00272

   −0 63400 2 00306

   62

   EDEV0

   SXD

   EDEV1,2

   F6F00550

2. Reference

   00271

   1 00001 2 00272

   61

   EDEV

   TXI

   EDEV0,2,1 FOR COMMENTS, SEE RECORD 96.

   F6F00540

␣EDEV1 = 198

1. Definition

   00306

   3 00000 2 00314

   74

   EDEV1

   TXH

   EDEV4,2,**

   F6F00670

2. References (3)

   	00272	−0 63400 2 00306	62	EDEV0	SXD	EDEV1,2	F6F00550
   	00277	−3 00000 2 00306	67	EDEV3	TXL	EDEV1,2,**+0	F6F00600
   	00320	1 77777 2 00306	84		TXI	EDEV1,2,−1	F6F00770

␣EDEV2 = 190

1. Definition

   00276

   −0 63400 2 00155

   66

   EDEV2

   SXD

   DEVL,2

   F6F00590

2. Reference

   00275

   1 00001 2 00276

   65

   TXI

   EDEV2,2,1

   F6F00580

␣EDEV3 = 191

1. Definition

   00277

   −3 00000 2 00306

   67

   EDEV3

   TXL

   EDEV1,2,**+0

   F6F00600

2. References (2)

   	00214	0 62200 0 00277	13		STD	EDEV3 PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES	F6F00080
   	00305	0 62200 0 00277	73		STD	EDEV3	F6F00660

␣EDEV4 = 204

1. Definition

   00314

   −0 50000 2 00000

   80

   EDEV4

   CAL

   DEV+1,2 M0VE TABLE

   F6F00730

2. Reference

   00306

   3 00000 2 00314

   74

   EDEV1

   TXH

   EDEV4,2,**

   F6F00670

␣FPCH1 = 213

1. Definition

   00325

   0 50000 0 72605

   89

   FPCH1

   CLA

   UPPER−2 WORD COUNT OF SUBDEF TABLE.

   F6F00784

2. Reference

   00215

   0 02000 0 00325

   15

   TRA

   FPCH1

   F6F00100

␣GOFIX = 221

1. Definition

   00335

   −0 63400 1 00324

   97

   GOFIX

   SXD

   SAV,1

   F6F00792

2. Reference

   00347

   0 02000 0 00335

   107

   TRA

   GOFIX

   F6F00802

␣LIB24 = 142

1. Definition

   00216

   0 76200 0 00303

   16

   LIB24

   RDR

   3 SELECT DRUM 3.

   F6F00110

2. References (2)

   	00227	2 00001 4 00216	25		TIX	LIB24,4,1 IF DRUM READ ERROR,	F6F00200
   	00352	0 02000 0 00216	110		TRA	LIB24	F6F00805

␣LIB25 = 156

1. Definition

   00234

   0 76200 0 00303

   30

   LIB25

   RDR

   3 AND READ FORSUB TABLE

   F6F00250

2. Reference

   00246

   2 00001 4 00234

   40

   TIX

   LIB25,4,1 IF CHECK SUM ERROR, REPEAT

   F6F00350

␣LOC15 = 209

1. Definition

   00321

   0 42000 0 00017

   85

   LOC15

   HPR

   15

   F6F00780

2. References (2)

   	00233	0 53400 4 00321	29		LXA	LOC15,4 IF YES, SET DRUM READ ERROR COUNTER	F6F00240
   	00351	0 53400 4 00321	109	RNF	LXA	LOC15,4 SET DRUM READ ERROR COUNTER	F6F00804