␣␣␣CFS = 157

1. Definition

   00235

   −0 70000 2 00730

   30

   CFS

   CAD

   FORT,2 FORT-WD. CT,..., FORT-1.

   F6H00260

2. Reference

   00236

   2 00001 2 00235

   31

   TIX

   CFS,2,1

   F6H00270

␣␣␣CNA = 197

1. Definition

   00305

   0 50000 1 00731

   74

   CNA

   CLA

   FORT+1,1 TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NO

   F6H00680

2. Reference

   00301

   0 10000 0 00305

   69

   TZE

   CNA BLANK, THEN FINISHED. SECOND WORD OF ENTRY HAS

   F6H00640

␣␣␣CNL = 184

1. Definition

   00270

   −0 53400 2 00343

   60

   CNL

   LXD

   LNC,2 SET TAPE TWO BLOCK LENGTH TO 20.

   F6H00550

2. Reference

   00344

   0 02000 0 00270

   107

   TRA

   CNL

   F6H00990

␣␣␣CNV = 202

1. Definition

   00312

   0 50000 0 00406

   79

   CNV

   CLA

   TEN

   F6H00730

2. Reference

   00317

   1 00001 4 00312

   84

   TXI

   CNV,4,1

   F6H00780

␣␣␣CNW = 185

1. Definition

   00271

   −0 50000 0 00403

   61

   CNW

   CAL

   BLANKS

   F6H00560

2. Reference

   00341

   2 00004 2 00271

   104

   TIX

   CNW,2,4 TRANSFER IF TARE BLOCK NOT FULL.

   F6H00960

␣␣␣DEC = 210

1. Definition

   00322

   0 76700 0 00006

   87

   DEC

   ALS

   6

   F6H00810

2. Reference

   00324

   2 00001 4 00322

   89

   TIX

   DEC,4,1

   F6H00830

␣␣␣DIG = 370

1. Definition

   00562

   188

   DIG

   BES

   6

   F6H01440

2. References (3)

   	00316	0 60200 4 00562	83		SLW	DIG,4 (SAVING REMAINDERS).	F6H00770
   	00320	−0 60000 4 00562	85	FIN	STQ	DIG,4	F6H00790
   	00323	−0 50100 4 00562	88		ORA	DIG,4	F6H00820

␣␣␣FIN = 208

1. Definition

   00320

   −0 60000 4 00562

   85

   FIN

   STQ

   DIG,4

   F6H00790

2. Reference

   00313

   0 04000 0 00320

   80

   TLQ

   FIN

   F6H00740

␣␣␣LIN = 363

1. Definition

   00553

   187

   LIN

   BSS

   1

   F6H01430

2. References (6)

   	00272	0 60200 2 00554	62		SLW	LIN+1,2 STORE BLANKS IN FIRST WORD OF ENTRY.	F6H00570
   	00303	0 60200 2 00555	72		SLW	LIN+2,2 GO TO TEST NEXT CHARACTER	F6H00660
   	00325	0 60200 2 00556	90		SLW	LIN+3,2 STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.	F6H00840
   	00337	0 60200 2 00557	101		SLW	LIN+4,2 HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL	F6H00940
   	00343	0 00024 0 00554	106	LNC		LIN+1,,20	F6H00980
   	00401	0 00030 0 00560	136	LNE		LIN+5,,24	F6H01280

␣␣␣LNC = 227

1. Definition

   00343

   0 00024 0 00554

   106

   LNC

   LIN+1,,20

   F6H00980

2. Reference

   00270

   −0 53400 2 00343

   60

   CNL

   LXD

   LNC,2 SET TAPE TWO BLOCK LENGTH TO 20.

   F6H00550

␣␣␣LND = 247

1. Definition

   00367

   0 00000 0 00000

   126

   LND

   F6H01180

2. References (4)

   	00360	0 60100 0 00367	119		STO	LND FOR WRITING FINAL RECORD.	F6H01110
   	00362	0 62100 0 00367	121		STA	LND	F6H01130
   	00364	0 40200 0 00367	123		SUB	LND	F6H01150
   	00365	0 60100 0 00367	124		STO	LND	F6H01160

␣␣␣LNE = 257

1. Definition

   00401

   0 00030 0 00560

   136

   LNE

   LIN+5,,24

   F6H01280

2. Reference

   00363

   0 50000 0 00401

   122

   CLA

   LNE

   F6H01140

␣␣␣LOC = 263

1. Definition

   00407

   +000000000000

   142

   LOC

   DEC

   0

   F6H01340

2. References (5)

   	00307	0 62100 0 00407	76		STA	LOC FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.)	F6H00700
   	00311	0 56000 0 00407	78		LDQ	LOC	F6H00720
   	00327	0 62100 0 00407	93		STA	LOC	F6H00860
   	00330	0 50000 0 00407	94		CLA	LOC	F6H00870
   	00370	0 50000 0 00407	127		CLA	LOC SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY	F6H01190

␣␣␣ME8 = 134

1. Definition

   			2			************* FORTRAN II SECTION SIX ************************	F6H00010
   			3			FORTRAN 2 RECORD 105 - MAP FORTRAN FUNCTIONS.	F6H00011
   			4				F6H00012
   			5			IN TDEV	F6H00020
   		00206	6	ME8	SYN	134	F6H00030

2. References (2)

   	00372	0 60100 0 00206	129		STO	ME8	F6H01210
   	00375	0 60000 0 00206	132	LIB36	STZ	ME8 NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND	F6H01240

␣␣␣NFA = 138

1. Definition

   T

   00212

   −0 75400 0 02000

   10

   NFA

   PXD

   1024 LOCATE FORSUB (FORTRAN FUNCTION) TABLE

   F6H00070

2. Reference

   00213

   0 46000 0 00212

   11

   LDA

   NFA

   F6H00080

␣␣␣OCT = 220

1. Definition

   00334

   0 76700 0 00003

   98

   OCT

   ALS

   3

   F6H00910

2. References (2)

   	00333	−0 14000 0 00334	97		TNO	OCT	F6H00900
   	00336	−0 14000 0 00334	100		TNO	OCT OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION	F6H00930

␣␣␣RFS = 147

1. Definition

   00223

   −0 53400 3 00730

   19

   RFS

   LXD

   FORT,3 SET INDEX REGISTERS 1 AND 2 EQUAL

   F6H00160

2. Reference

   00220

   0 10000 0 00223

   16

   TZE

   RFS TRANSFER IF NO READ ERROR.

   F6H00130

␣␣␣RNF = 136

1. Definition

   00210

   0 53400 4 00402

   8

   RNF

   LXA

   LOC15,4 SET DRUM READ ERROR COUNTER.

   F6H00050

␣␣␣SIX = 189

1. Definition

   00275

   −0 76300 0 00006

   65

   SIX

   LGL

   6 BRING ONE CHARACTER OF SYMBOL INTO ACC.

   F6H00600

2. References (2)

   	00274	0 53400 4 00275	64		LXA	SIX,4 AND CONVERT.	F6H00590
   	00304	2 00001 4 00275	73		TIX	SIX,4,1 UNLESS SIX HAVE BEEN TREATED.	F6H00670

␣␣␣SUM = 371

1. Definition

   00563

   190

   SUM

   BSS

   1

   F6H01460

2. References (3)

   	00216	−0 70000 0 00563	14		CAD	SUM	F6H00110
   	00237	0 70000 0 00563	32		CPY	SUM	F6H00280
   	00241	−0 70000 0 00563	34		CAD	SUM	F6H00300

␣␣␣SYM = 370

1. Definition

   00562

   189

   SYM

   BSS

   1

   F6H01450

2. References (2)

   	00276	0 60200 0 00562	66		SLW	SYM	F6H00610
   	00302	−0 50000 0 00562	71		CAL	SYM NOT BLANK, STORE IN SECOND WORD AND	F6H00650

␣␣␣TEN = 262

1. Definition

   00406

   +000000000012

   141

   TEN

   DEC

   10

   F6H01330

2. References (2)

   	00312	0 50000 0 00406	79	CNV	CLA	TEN	F6H00730
   	00315	0 22100 0 00406	82		DVP	TEN	F6H00760

␣␣␣TFA = 155

1. Definition

   T

   00233

   −0 75400 0 02002

   28

   TFA

   PXD

   1026 READ FORTRAN FUNCTION (FORSUB)

   F6H00240

2. Reference

   00234

   0 46000 0 00233

   29

   LDA

   TFA TABLE FROM DRUM (2-WORD ENTRIES) INTO

   F6H00250

␣␣␣WLL = 239

1. Definition

   00357

   −0 75400 2 00000

   118

   WLL

   PXD

   0,2 GET ADDRESS AND DECREMENT TO STORE IN LND

   F6H01100

2. Reference

   00340

   −2 00002 1 00357

   103

   TNX

   WLL,1,2 TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED.

   F6H00950

␣␣AFOR = 176

1. Definition

   U

   00260

   0 62100 2

   50

   AFOR

   STA

   FORF,2 STORE LOCATION IN DEA TABLE.

   F6H00450

2. References (2)

   	00226	0 62100 0 00260	23		STA	AFOR LOCATION OF DEA TABLE (ALSO IFN TABLE)	F6H00190
   TD	00400	1 00000 0 00261	135	FORM	TXI	AFOR+1	F6H01270

␣␣CFOR = 255

1. Definition

   T

   00377

   −0 75400 0 00000

   134

   CFOR

   PXD

   F6H01260

␣␣FORM = 256

1. Definition

   TD

   00400

   1 00000 0 00261

   135

   FORM

   TXI

   AFOR+1

   F6H01270

2. References (3)

   	00246	−0 63400 1 00400	39	FORS	SXD	FORM,1 SAVE COUNT OF FUNCT.	F6H00350
   	00251	−0 53400 1 00400	42		LXD	FORM,1 NO, ERROR.	F6H00380
   	00253	−0 53400 1 00400	44		LXD	FORM,1 YES. EXIT HERE FROM SDEV WITH APPROPRIATE	F6H00400

␣␣FORS = 166

1. Definition

   00246

   −0 63400 1 00400

   39

   FORS

   SXD

   FORM,1 SAVE COUNT OF FUNCT.

   F6H00350

2. References (2)

   	00243	0 10000 0 00246	36		TZE	FORS TRANSFER IF CHECK SUM OKAY.	F6H00320
   	00262	2 00002 1 00246	52		TIX	FORS,1,2	F6H00470

␣␣FORT = 472

1. Definition

   00730

   191

   FORT

   BES

   100

   F6H01470

2. References (10)

   	00214	−0 70000 0 00730	12		CAD	FORT READ WORD COUNT OF TABLE.	F6H00090
   	00223	−0 53400 3 00730	19	RFS	LXD	FORT,3 SET INDEX REGISTERS 1 AND 2 EQUAL	F6H00160
   	00235	−0 70000 2 00730	30	CFS	CAD	FORT,2 FORT-WD. CT,..., FORT-1.	F6H00260
   	00247	0 50000 1 00730	40		CLA	FORT,1 IS FUNCTION IN	F6H00360
   	00254	0 50000 1 00731	46		CLA	FORT+1,1 OBTAIN FORMULA	F6H00410
   	00261	0 62100 1 00731	51		STA	FORT+1,1 STORE LOCATION IN FORT (INTERNAL TABLE).	F6H00460
   	00263	−0 53400 1 00730	55		LXD	FORT,1	F6H00500
   	00273	0 56000 1 00730	63		LDQ	FORT,1 SELECT SYMBOL	F6H00580
   	00305	0 50000 1 00731	74	CNA	CLA	FORT+1,1 TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NO	F6H00680
   	00326	0 50000 1 00731	92		CLA	FORT+1,1 TO GET BCD IMAGE OF OCTAL LOCATION.	F6H00850

␣␣GIFN = 174

1. Definition

   U

   00256

   0 50000 4

   48

   GIFN

   CLA

   IFN,4 GET LOCATION FROM

   F6H00430

2. Reference

   00230

   0 62100 0 00256

   25

   STA

   GIFN

   F6H00210

␣␣POOP = 235

1. Definition

   00353

   0 70000 2 00000

   114

   POOP

   CPY

   **,2

   F6H01060

2. References (2)

   	00351	0 62100 0 00353	112		STA	POOP	F6H01040
   	00354	2 00001 2 00353	115		TIX	POOP,2,1	F6H01070

␣6BITS = 261

1. Definition

   00405

   +000000000077

   140

   6BITS

   OCT

   77

   F6H01320

2. Reference

   00277

   −0 32000 0 00405

   67

   ANA

   6BITS TEST IF CHARACTER IN ACC. IS A BLANK.

   F6H00620

␣BLANK = 260

1. Definition

   00404

   000000000060

   139

   BLANK

   BCD

   100000␣

   F6H01310

2. References (2)

   	00300	0 40200 0 00404	68		SUB	BLANK	F6H00630
   	00332	−0 50000 0 00404	96		CAL	BLANK	F6H00890

␣CHEAD = 304

1. Definition

   A

   00460

   184

   CHEAD

   BSS

   F6H01400

2. Reference

   00267

   0 00024 0 00460

   59

   CHEAD,,20

   F6H00540

␣LIB26 = 251

1. Definition

   00373

   0 76200 0 00221

   130

   LIB26

   RTB

   1

   F6H01220

2. Reference

   00376

   0 02000 0 00373

   133

   TRA

   LIB26 GO TO RETURN TO LOADER.

   F6H01250

␣LIB27 = 137

1. Definition

   00211

   0 76200 0 00303

   9

   LIB27

   RDR

   3 SELECT DRUM 3 AND

   F6H00060

2. Reference

   00221

   2 00001 4 00211

   17

   TIX

   LIB27,4,1 READ-ERROR PROCEOURE

   F6H00140

␣LIB28 = 154

1. Definition

   00232

   0 76200 0 00303

   27

   LIB28

   RDR

   3

   F6H00230

2. Reference

   00244

   2 00001 4 00232

   37

   TIX

   LIB28,4,1

   F6H00330

␣LIB36 = 253

1. Definition

   00375

   0 60000 0 00206

   132

   LIB36

   STZ

   ME8 NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND

   F6H01240

2. Reference

   D

   00224

   −3 00000 1 00375

   21

   TXL

   LIB36,1 TRANSFER IF NO FORTRAN FUNCTIONS.

   F6H00170

␣LOC15 = 258

1. Definition

   00402

   0 00000 0 00017

   137

   LOC15

   HTR

   15

   F6H01290

2. References (2)

   	00210	0 53400 4 00402	8	RNF	LXA	LOC15,4 SET DRUM READ ERROR COUNTER.	F6H00050
   	00231	0 53400 4 00402	26		LXA	LOC15,4 DRUM READ ERROR COUNTER.	F6H00220

␣SPACE = 229

1. Definition

   00345

   0 76600 0 00202

   108

   SPACE

   WTD

   2

   F6H01000

2. References (2)

   	00264	0 07400 4 00345	56		TSX	SPACE,4	F6H00510
   	00266	0 07400 4 00345	58		TSX	SPACE,4	F6H00530

␣TITLE = 284

1. Definition

   A

   00434

   163

   TITLE

   BSS

   F6H01370

2. Reference

   00265

   0 00024 0 00434

   57

   TITLE,,20

   F6H00520

␣WRITE = 231

1. Definition

   00347

   0 76600 0 00202

   110

   WRITE

   WTD

   2

   F6H01020

2. References (2)

   	00342	0 07400 4 00347	105		TSX	WRITE,4 WRITE A RECORD ON TARE TWO	F6H00970
   	00366	0 07400 4 00347	125		TSX	WRITE,4 WRITE IT.	F6H01170

BLANKS = 259

1. Definition

   00403

   606060606060

   138

   BLANKS

   BCD

   1␣␣␣␣␣␣

   F6H01300

2. References (3)

   	00271	−0 50000 0 00403	61	CNW	CAL	BLANKS	F6H00560
   	00321	−0 50000 0 00403	86		CAL	BLANKS	F6H00800
   	00346	0 70000 0 00403	109		CPY	BLANKS	F6H01010