␣␣␣␣␣C = 3736

1. Definition

   			107			OF NEXT 4WD INST AND RETURN TO MAIN PROG	F3B13220
   			108			CONSTANTS AND ERASIBLE STORAGE FOR FOUR	F3B13230
   			109			SUBROUTINES USED IN COMPILING OPEN SUBROUTINES	F3B13240
   A	07230	0 00000 0 00000	110	C	HTR		F3B13250

2. References (4)

   	07136	−0 63400 4 07230	45	TEST	SXD	C,4 SAVE LINKAGE	F3B12600
   	07144	−0 53400 4 07230	52		LXD	C,4 RESTORE LINKAGE	F3B12670
   	07162	−0 63400 4 07230	68		SXD	C,4 ARG TAGGED. SAVE LINKAGE	F3B12830
   	07166	−0 53400 4 07230	72		LXD	C,4 DICATOR AND LINKAGE	F3B12870

␣␣␣␣O1 = 3708

1. Definition

   07174

   0 07400 4 07136

   79

   O1

   TSX

   TEST,4 TEST FOR END OF CURRENT AIL RECORD

   F3B12940

2. Reference

   07173

   1 77774 1 07174

   78

   TXI

   O1,1,−4 INDEX COMPAIL RECORD TO BEG. OF NEXT REC.

   F3B12930

␣␣␣0P1 = 3643

1. Definition

   07073

   0 34000 4 07122

   6

   0P1

   CAS

   M1D2,4 WITH CURRENT NAME.

   F3B12210

2. Reference

   07077

   3 77776 4 07073

   10

   0P2

   TXH

   0P1,4,M1D2L TEST FOR END OF M1D2.

   F3B12250

␣␣␣0P2 = 3647

1. Definition

   07077

   3 77776 4 07073

   10

   0P2

   TXH

   0P1,4,M1D2L TEST FOR END OF M1D2.

   F3B12250

2. References (2)

   	07074	1 77777 4 07077	7		TXI	0P2,4,−1 NOT FOUND, GET NEXT M1D2 ENTRY	F3B12220
   	07076	1 77777 4 07077	9		TXI	0P2,4,−1 NOT FOUND, GET NEXT M1D2 ENTRY	F3B12240

␣␣␣0P3 = 3649

1. Definition

   07101

   −0 63400 4 02312

   12

   0P3

   SXD

   CCELL,4 SAVE 1RC FOR LATER BRANCH OF SAME INST.

   F3B12270

2. References (2)

   	07075	0 02000 0 07101	8		TRA	0P3 FOUND	F3B12230
   	07102	1 77776 1 07103	13		TXI	0P3+2,1,−2 INDEX TO GET NEXT 4 WORD INSTR.	F3B12280

␣␣␣0P4 = 3653

1. Definition

   07105

   0 02000 4 07106

   16

   0P4

   TRA

   0P4+1,4 COMPAIL INSTRUCTION

   F3B12310

2. Reference

   07105

   0 02000 4 07106

   16

   0P4

   TRA

   0P4+1,4 COMPAIL INSTRUCTION

   F3B12310

␣␣␣AIL = 1239

1. Definition

   02327

   119

   AIL

   SYN

   1239

   F3B13295

2. References (4)

   	07146	0 50000 1 02327	55	TEARG1	CLA	AIL,1 TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR	F3B12700
   	07152	0 50000 1 02327	60	TEARG2	CLA	AIL,1 TEST FOR ALL ONES IN TST WORD OF	F3B12750
   	07154	0 50000 1 02331	62	ARGTAG	CLA	AIL+2,1 PLACE SUMB ADDRESS OF CURRENT ARG	F3B12770
   	07156	0 50000 1 02332	64		CLA	AIL+3,1 PLACE RELATIVE ADD. AND TAG OF CUR	F3B12790

␣␣␣DIM = 3705

1. Definition

   07171

   0 07400 4 07146

   76

   DIM

   TSX

   TEARG1,4 TEST NO. OF ARGS SPECIFIED

   F3B12910

2. Reference

   07107

   0 02000 0 07171

   18

   TRA

   DIM OPEN SUB IS DIM

   F3B12330

␣␣L(0) = 1144

1. Definition

   			112			M1D2. THIS CARD HUST BE CHANGED WHEN	F3B13270
   			113			ADDITIONS TO M1D2 ARE MADE	F3B13280
   		02170	114	L(0)	SYN	1144	F3B13290

2. References (6)

   	07072	−0 53400 4 02170	5		LXD	L(0),4 COMPARE ADD IT, 0PEN SUBS, IN M1D2S	F3B12200
   	07211	0 00000 0 02170	92		HTR	L(0) 0 (1ST WD)	F3B13070
   	07216	0 00000 0 02170	97		HTR	L(0) 0(1ST WD)	F3B13120
   	07223	0 00000 0 02170	102		HTR	L(0) 0 (1STWD)	F3B13170
   	07225	0 00000 0 02170	104		HTR	L(0) 0 (3RD WD)	F3B13190
   	07226	0 00000 0 02170	105		HTR	L(0) 0 (4TH WD)	F3B13200

␣␣M1CW = 1234

1. Definition

   02322

   123

   M1CW

   SYN

   1234

   F3B13303

2. References (9)

   	07155	0 60100 0 02324	63		STO	M1CW+2 IN M1CW+2	F3B12780
   	07157	0 60100 0 02325	65		STO	M1CW+3 RENT ARG. IN M1CW+3	F3B12800
   	07177	0 00000 0 02322	82		HTR	M1CW LOCATION (1ST WD)	F3B12970
   	07201	0 00000 0 02324	84		HTR	M1CW+2 FIRST ARG (3RD WD)	F3B12990
   	07202	0 00000 0 02325	85		HTR	M1CW+3 REL. ADD END TAG OF 1ST ARG (4TH WD)	F3B13000
   	07207	0 60200 0 02323	90		SLW	M1CW+1	F3B13050
   	07212	0 00000 0 02323	93		HTR	M1CW+1 SUB(XDIH), FSB(DIM) (2ND. WD)	F3B13080
   	07213	0 00000 0 02324	94		HTR	M1CW+2 2ND. ARG (3RD WD)	F3B13090
   	07214	0 00000 0 02325	95		HTR	M1CW+3 REL. ADD AND TAG OF 2ND ARG (4TH WD)	F3B13100

␣␣M1D2 = 3666

1. Definition

   			29			THE DICTIONARY FOR ADDITIONAL OPEN SUBROUTINES, AND	F3B12440
   			30			CONSTANTS USED IN THE DISCRIMINATION PROCEDURE.	F3B12450
   	07122	672431446060	31	M1D2	BCD	1XDIM␣␣ 0PEN SUB XDIM	F3B12460

2. Reference

   07073

   0 34000 4 07122

   6

   0P1

   CAS

   M1D2,4 WITH CURRENT NAME.

   F3B12210

␣␣R00M = 3744

1. Definition

   A

   07240

   0 00000 0 00000

   139

   R00M

   HTR

   SPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB. COMPILATION

   F3B13414

␣␣TEST = 3678

1. Definition

   			43			FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES	F3B12580
   			44			1.TEST	F3B12590
   	07136	−0 63400 4 07230	45	TEST	SXD	C,4 SAVE LINKAGE	F3B12600

2. References (2)

   	07103	0 07400 4 07136	14		TSX	TEST,4 TEST FOR END OF CUR. COMPAIL REC.	F3B12290
   	07174	0 07400 4 07136	79	O1	TSX	TEST,4 TEST FOR END OF CURRENT AIL RECORD	F3B12940

␣␣XDIM = 3704

1. Definition

   			74			THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIMAND XDIM	F3B12890
   	07170	0 76000 0 00144	75	XDIM	PSE	100 TURN ON SENSE LIGHT 100 FOR XDIM	F3B12900

2. Reference

   07106

   0 02000 0 07170

   17

   TRA

   XDIM OPEN SUB IS XDIM

   F3B12320

␣CCELL = 1226

1. Definition

   02312

   116

   CCELL

   SYN

   1226

   F3B13292

2. References (2)

   	07101	−0 63400 4 02312	12	0P3	SXD	CCELL,4 SAVE 1RC FOR LATER BRANCH OF SAME INST.	F3B12270
   	07104	−0 53400 4 02312	15		LXD	CCELL,4 GO TO THE COMPILER FOR PART, SUBROUTINE	F3B12300

␣CIT00 = 455

1. Definition

   			126			CONSTANS USED IN COMPILING THE OPEN SUBRTNS. XDIM AND DIM	F3B13310
   		00707	127	CIT00	SYN	455	F3B13320

2. References (4)

   	07176	0 07400 4 00707	81		TSX	CIT00,4 COMPILE FIRST INST. FOR DIM AND XDIM	F3B12960
   	07210	0 07400 4 00707	91		TSX	CIT00,4 COMPILE 2ND INST FOR DIM OR XDIH	F3B13060
   	07215	0 07400 4 00707	96		TSX	CIT00,4 COMPILE 3RD INST FOR DIM AND XDIM	F3B13110
   	07222	0 07400 4 00707	101		TSX	CIT00,4 COMPILE LAST INST FOR DIH AND XD)M	F3B13160

␣L(2D) = 1151

1. Definition

   02177

   134

   L(2D)

   SYN

   1151

   F3B13390

2. Reference

   07221

   0 00000 0 02177

   100

   HTR

   L(2D) REL. ADD 2, TAG 0 (4TH WD)

   F3B13150

␣M1D2L = 32766

1. Definition

   77776

   111

   M1D2L

   EQU

   −2 THE 2S COMPL OF THE LENGTH OF

   F3B13260

2. Reference

   07077

   3 77776 4 07073

   10

   0P2

   TXH

   0P1,4,M1D2L TEST FOR END OF M1D2.

   F3B12250

␣TGMSK = 1159

1. Definition

   02207

   124

   TGMSK

   SYN

   1159

   F3B13304

2. Reference

   07160

   −0 32000 0 02207

   66

   ANA

   TGMSK TEST FOR TAG

   F3B12810

ALLONE = 1161

1. Definition

   02211

   120

   ALLONE

   SYN

   1161

   F3B13300

2. References (2)

   	07147	0 40200 0 02211	56		SUB	ALLONE	F3B12710
   	07235	0 40200 0 02211	136	SUBPAT	SUB	ALLONE	F3B13401

ARGTAG = 3692

1. Definition

   07154

   0 50000 1 02331

   62

   ARGTAG

   CLA

   AIL+2,1 PLACE SUMB ADDRESS OF CURRENT ARG

   F3B12770

2. References (2)

   	07172	0 07400 4 07154	77		TSX	ARGTAG,4 TEST WHETHER FIRST ARG. IS TAGGED	F3B12920
   	07203	0 07400 4 07154	86		TSX	ARGTAG,4 TEST WHETHER 2ND. ARG TAGGED ETC.	F3B13010

ERROR1 = 1133

1. Definition

   02155

   121

   ERROR1

   SYN

   1133

   F3B13301

2. Reference

   07150

   0 10000 0 02155

   57

   TZE

   ERROR1 ALL ONES. GO TO PROPER STOP

   F3B12720

ERROR2 = 1139

1. Definition

   02163

   122

   ERROR2

   SYN

   1139

   F3B13302

2. Reference

   07237

   0 02000 0 02163

   138

   TRA

   ERROR2

   F3B13403

L(017) = 1189

1. Definition

   02245

   133

   L(017)

   SYN

   1189

   F3B13380

2. Reference

   07220

   0 00000 0 02245

   99

   HTR

   L(017) 0CT. 17 IN BITS S-5

   F3B13140

L(CLA) = 1165

1. Definition

   02215

   128

   L(CLA)

   SYN

   1165

   F3B13330

2. Reference

   07200

   0 00000 0 02215

   83

   HTR

   L(CLA) CLA(2ND WD.)

   F3B12980

L(FSB) = 3738

1. Definition

   07232

   266222000000

   130

   L(FSB)

   BCD

   1FSB000

   F3B13350

2. Reference

   07206

   −0 50000 0 07232

   89

   CAL

   L(FSB) FSB FOR DIM

   F3B13040

L(PXD) = 3740

1. Definition

   07234

   476724000000

   132

   L(PXD)

   BCD

   1PXD000

   F3B13370

2. Reference

   07224

   0 00000 0 07234

   103

   HTR

   L(PXD) PXD (2ND WD)

   F3B13180

L(SUB) = 3737

1. Definition

   07231

   626422000000

   129

   L(SUB)

   BCD

   1SUB000

   F3B13340

2. Reference

   07204

   −0 50000 0 07231

   87

   CAL

   L(SUB) PREPARE OP. WD (2ND WD) OF 2ND AIL

   F3B13020

L(TPL) = 3739

1. Definition

   07233

   634743000000

   131

   L(TPL)

   BCD

   1TPL000

   F3B13360

2. Reference

   07217

   0 00000 0 07233

   98

   HTR

   L(TPL) TPL(2ND WD)

   F3B13130

M10210 = 225

1. Definition

   00341

   118

   M10210

   SYN

   225

   F3B13294

2. Reference

   07142

   0 07400 4 00341

   49

   TSX

   M10210,4 CURRENT RECORD EXHAUSTED

   F3B12640

M12500 = 526

1. Definition

   01016

   125

   M12500

   SYN

   526

   F3B13305

2. Reference

   07164

   0 07400 4 01016

   70

   TSX

   M12500,4 CHTAG TABLE NOT EXHAUSTED.

   F3B12850

M13505 = 710

1. Definition

   01306

   115

   M13505

   SYN

   710

   F3B13291

2. Reference

   07071

   2 00001 4 01306

   4

   TIX

   M13505,4,1 COMPARE M1D FOR-PRESENT SUBROUTINES

   F3B12190

M1ALWN = 1221

1. Definition

   02305

   117

   M1ALWN

   SYN

   1221

   F3B13293

2. Reference

   07140

   0 34000 0 02305

   47

   CAS

   M1ALWN 2S COMPL. OF WORD COUNT.

   F3B12620

RESUME = 508

1. Definition

   00774

   135

   RESUME

   SYN

   508

   F3B13400

2. Reference

   07227

   1 77774 1 00774

   106

   TXI

   RESUME,1,−4 INDEX CUR AIL RECORD TO BEGINNING

   F3B13210

SUBPAT = 3741

1. Definition

   07235

   0 40200 0 02211

   136

   SUBPAT

   SUB

   ALLONE

   F3B13401

2. Reference

   07153

   0 02000 0 07235

   61

   TRA

   SUBPAT

   F3B12760

TEARG1 = 3686

1. Definition

   			54			2 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED	F3B12690
   	07146	0 50000 1 02327	55	TEARG1	CLA	AIL,1 TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR	F3B12700

2. Reference

   07171

   0 07400 4 07146

   76

   DIM

   TSX

   TEARG1,4 TEST NO. OF ARGS SPECIFIED

   F3B12910

TEARG2 = 3690

1. Definition

   			59			3 TEARG2. ROUTINE TO DET. IF TOO MANY ARGS. SPECIFIED	F3B12740
   	07152	0 50000 1 02327	60	TEARG2	CLA	AIL,1 TEST FOR ALL ONES IN TST WORD OF	F3B12750

2. Reference

   07175

   0 07400 4 07152

   80

   TSX

   TEARG2,4 TEST NO. OF ARGS. SPECIFIED

   F3B12950