␣␣␣␣B4 = 195

1. Definition

   00303

   −2 00001 1 00317

   76

   B4

   TNX

   WLL,1,1 IF NO MORE WORDS IN DEV TABLE, GO TO WLL.

   F6E00660

2. References (2)

   	00227	0 10000 0 00303	27		TZE	B4 NOT IN C0MMON.	F6E00220
   	00230	−0 12000 0 00303	28		TMI	B4 NOT IN COMMON.	F6E00230

␣␣␣CNA = 166

1. Definition

   00246

   0 50000 1 74413

   43

   CNA

   CLA

   DEA,1 T0 GET BCD IMAGE OF DECIMAL LOCATION.

   F6E00370

2. Reference

   00242

   0 10000 0 00246

   38

   TZE

   CNA YES, THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND

   F6E00330

␣␣␣CNL = 148

1. Definition

   00224

   −0 53400 2 00301

   23

   CNL

   LXD

   LNC,2 SET TAPE 2 BLOCK LENGTH TO 20

   F6E00190

2. Reference

   00302

   0 02000 0 00224

   75

   TRA

   CNL

   F6E00650

␣␣␣CNV = 170

1. Definition

   00252

   0 50000 0 00407

   47

   CNV

   CLA

   TEN

   F6E00410

2. Reference

   00257

   1 00001 4 00252

   54

   TXI

   CNV,4,1

   F6E00460

␣␣␣CNW = 149

1. Definition

   00225

   0 50000 1 74413

   24

   CNW

   CLA

   DEA,1 TEST FOR COMMON,

   F6E00200

2. References (2)

   	00277	2 00004 2 00225	71		TIX	CNW,2,4 IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORD	F6E00620
   	00304	0 02000 0 00225	77		TRA	CNW	F6E00670

␣␣␣DEC = 178

1. Definition

   00262

   0 76700 0 00006

   57

   DEC

   ALS

   6

   F6E00490

2. Reference

   00264

   2 00001 4 00262

   59

   TIX

   DEC,4,1

   F6E00510

␣␣␣DIG = 331

1. Definition

   00513

   154

   DIG

   BES

   6

   F6E01070

2. References (3)

   	00256	0 60200 4 00513	53		SLW	DIG,4 3 IN DIG-2, IN DIG-3	F6E00450
   	00260	−0 60000 4 00513	55	FIN	STQ	DIG,4	F6E00470
   	00263	−0 50100 4 00513	58		ORA	DIG,4 SET UP BCD IMAGE OF DEC. NO. AS 3 BLANKS,1,3,3.	F6E00500

␣␣␣FIL = 137

1. Definition

   00211

   0 76200 0 00202

   12

   FIL

   RTD

   2 SPACE OVER SOURCE PROGRAM.

   F6E00080

2. Reference

   00213

   0 02000 0 00211

   14

   TRA

   FIL

   F6E00100

␣␣␣FIN = 176

1. Definition

   00260

   −0 60000 4 00513

   55

   FIN

   STQ

   DIG,4

   F6E00470

2. Reference

   00253

   0 04000 0 00260

   48

   TLQ

   FIN

   F6E00420

␣␣␣LIN = 324

1. Definition

   00504

   153

   LIN

   BSS

   1

   F6E01060

2. References (8)

   	00212	0 70000 0 00504	13		CPY	LIN	F6E00090
   	00232	0 60200 2 00505	30		SLW	LIN+1,2 STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY.	F6E00250
   	00233	0 60200 2 00506	31		SLW	LIN+2,2	F6E00260
   	00244	0 60200 2 00506	41		SLW	LIN+2,2	F6E00350
   	00265	0 60200 2 00507	60		SLW	LIN+3,2 STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY.	F6E00520
   	00275	0 60200 2 00510	69		SLW	LIN+4,2 STORE OCTAL LOCATION IN 4TH WORD OF ENTRY	F6E00600
   	00301	0 00024 0 00505	74	LNC		LIN+1,,20	F6E00640
   	00333	0 00030 0 00511	103	LNE		LIN+5,,24	F6E00910

␣␣␣LNC = 193

1. Definition

   00301

   0 00024 0 00505

   74

   LNC

   LIN+1,,20

   F6E00640

2. Reference

   00224

   −0 53400 2 00301

   23

   CNL

   LXD

   LNC,2 SET TAPE 2 BLOCK LENGTH TO 20

   F6E00190

␣␣␣LND = 216

1. Definition

   00330

   0 00000 0 00000

   99

   LND

   F6E00870

2. References (4)

   	00321	0 60100 0 00330	91		STO	LND AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD	F6E00800
   	00323	0 62100 0 00330	94		STA	LND TO GET ADDRESS AND	F6E00820
   	00325	0 40200 0 00330	96		SUB	LND FINAL RECORD	F6E00840
   	00326	0 60100 0 00330	97		STO	LND	F6E00850

␣␣␣LNE = 219

1. Definition

   00333

   0 00030 0 00511

   103

   LNE

   LIN+5,,24

   F6E00910

2. Reference

   00324

   0 50000 0 00333

   95

   CLA

   LNE DECREMENT FOR WRITING

   F6E00830

␣␣␣LOC = 264

1. Definition

   00410

   +000000000000

   109

   LOC

   DEC

   0

   F6E00970

2. References (3)

   	00247	0 62100 0 00410	44		STA	LOC	F6E00380
   	00251	0 56000 0 00410	46		LDQ	LOC	F6E00400
   	00266	0 50000 0 00410	61		CLA	LOC	F6E00530

␣␣␣ME2 = 133

1. Definition

   			2			FORTRAN 2 RECORD 100 - COMMON MAPPING.	F6E00011
   			3				F6E00012
   			4			CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL).	F6E00013
   			5				F6E00014
   			6			LIST STORAGE FOR VARIABLES	F6E00020
   			7			APPEARING IN COMMON SENTENCES,	F6E00030
   			8			LOCATIONS IN BOTH DECIMAL ANO OCTAL	F6E00040
   M		00205	9	ME2	SYN	133	F6E00050

2. Reference

   M

   00214

   0 53400 1 00205

   15

   LXA

   ME2,1 =1 IF COMMON TABLE, =0 IF NO COMMON TABLE.

   F6E00110

␣␣␣NT2 = 208

1. Definition

   00320

   −0 75400 2 00000

   90

   NT2

   PXD

   0,2 STORE IN LND ADDRESS

   F6E00790

2. References (2)

   	00276	−2 00001 1 00320	70		TNX	NT2,1,1 GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE	F6E00610
   	00317	1 00004 2 00320	89	WLL	TXI	NT2,2,4	F6E00780

␣␣␣OCT = 186

1. Definition

   00272

   0 76700 0 00003

   65

   OCT

   ALS

   3 TO SET UP BCD IMAGE OF OCTAL LOCATION

   F6E00570

2. References (2)

   	00271	−0 14000 0 00272	64		TNO	OCT	F6E00560
   	00274	−0 14000 0 00272	67		TNO	OCT 15 BITS OF LOC HAVE BEEN CONVERTED, A BIT FROM	F6E00590

␣␣␣SIX = 158

1. Definition

   00236

   −0 76300 0 00006

   34

   SIX

   LGL

   6 BRING ONE CHARACTER OF SYMBOL INTO AC.

   F6E00290

2. References (2)

   	00235	0 53400 4 00236	33		LXA	SIX,4 CONVERT.	F6E00280
   	00245	2 00001 4 00236	42		TIX	SIX,4,1	F6E00360

␣␣␣SYM = 331

1. Definition

   00513

   155

   SYM

   BSS

   1

   F6E01080

2. References (2)

   	00237	0 60200 0 00513	35		SLW	SYM	F6E00300
   	00243	−0 50000 0 00513	40		CAL	SYM	F6E00340

␣␣␣TEN = 263

1. Definition

   00407

   +000000000012

   108

   TEN

   DEC

   10

   F6E00960

2. References (2)

   	00252	0 50000 0 00407	47	CNV	CLA	TEN	F6E00410
   	00255	0 22100 0 00407	51		DVP	TEN WERE THE NUMBER IN LOC, WE GET A BINARY 3 IN	F6E00440

␣␣␣WLL = 207

1. Definition

   00317

   1 00004 2 00320

   89

   WLL

   TXI

   NT2,2,4

   F6E00780

2. Reference

   00303

   −2 00001 1 00317

   76

   B4

   TNX

   WLL,1,1 IF NO MORE WORDS IN DEV TABLE, GO TO WLL.

   F6E00660

␣␣ENDS = 217

1. Definition

   A

   00331

   100

   ENDS

   BSS

   F6E00880

2. References (2)

   D	00215	−3 00000 1 00331	16		TXL	ENDS,1 IF NO COMMON TABLE, GO TO ENDS.	F6E00120
   D	00217	−3 00000 1 00331	18		TXL	ENDS,1 IF NO DEV TABLE, GO TO ENDS	F6E00140

␣␣POOP = 203

1. Definition

   00313

   0 70000 2 00313

   85

   POOP

   CPY

   *,2

   F6E00740

2. References (2)

   	00311	0 62100 0 00313	83		STA	POOP	F6E00720
   	00314	2 00001 2 00313	86		TIX	POOP,2,1	F6E00750

␣6BITS = 262

1. Definition

   00406

   +000000000077

   107

   6BITS

   OCT

   77

   F6E00950

2. Reference

   00240

   −0 32000 0 00406

   36

   ANA

   6BITS TEST IF CHARACTER IN AC IS A BLANK.

   F6E00310

␣BLANK = 261

1. Definition

   00405

   000000000060

   106

   BLANK

   BCD

   100000␣

   F6E00940

2. References (2)

   	00241	0 40200 0 00405	37		SUB	BLANK	F6E00320
   	00270	−0 50000 0 00405	63		CAL	BLANK	F6E00550

␣CHEAD = 305

1. Definition

   A

   00461

   151

   CHEAD

   BSS

   F6E01040

2. Reference

   00223

   0 00024 0 00461

   22

   CHEAD,,20

   F6E00180

␣SPACE = 197

1. Definition

   00305

   0 76600 0 00202

   78

   SPACE

   WTD

   2

   F6E00680

2. References (2)

   	00220	0 07400 4 00305	19		TSX	SPACE,4 GO TO WRITE TITLE AND HEADINGS.	F6E00150
   	00222	0 07400 4 00305	21		TSX	SPACE,4	F6E00170

␣TITLE = 285

1. Definition

   A

   00435

   130

   TITLE

   BSS

   F6E01010

2. Reference

   00221

   0 00024 0 00435

   20

   TITLE,,20

   F6E00160

␣WRITE = 199

1. Definition

   00307

   0 76600 0 00202

   80

   WRITE

   WTD

   2

   F6E00700

2. References (2)

   	00300	0 07400 4 00307	73		TSX	WRITE,4	F6E00630
   	00327	0 07400 4 00307	98		TSX	WRITE,4	F6E00860

BLANKS = 260

1. Definition

   00404

   606060606060

   105

   BLANKS

   BCD

   1␣␣␣␣␣␣

   F6E00930

2. References (3)

   	00231	−0 50000 0 00404	29		CAL	BLANKS YES, IN COMMON.	F6E00240
   	00261	−0 50000 0 00404	56		CAL	BLANKS	F6E00480
   	00306	0 70000 0 00404	79		CPY	BLANKS WRITE A BLANK RECORD TO PROVIDE A SPACE.	F6E00690