␣␣␣ME1 = 193

1. Definition

   00301

   −0 50000 0 00775

   70

   ME1

   CAL

   DATA2

   F6R00610

2. Reference

   00274

   0 12000 0 00301

   65

   TPL

   ME1 GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-

   F6R00560

␣␣␣ONE = 114

1. Definition

   00162

   7

   ONE

   EQU

   114

   F6R00040

2. Reference

   00210

   0 50000 0 00162

   13

   START

   CLA

   ONE

   F6R00040

␣␣␣REC = 628

1. Definition

   01164

   405

   REC

   BES

   100

   F6R03960

2. References (4)

   		01160	414	REC01	SYN	REC−4	F6R03979
   		01161	415	RECO2	SYN	REC−3	F6R03980
   		01162	416	RECO3	SYN	REC−2	F6R03990
   		01163	417	RECOR	SYN	REC−1	F6R04000

␣␣␣SW1 = 127

1. Definition

   00177

   8

   SW1

   EQU

   127

   F6R00050

␣␣␣SW2 = 128

1. Definition

   00200

   9

   SW2

   EQU

   128

   F6R00060

2. Reference

   00211

   0 34000 0 00200

   14

   CAS

   SW2

   F6R00050

␣␣␣SW3 = 129

1. Definition

   00201

   10

   SW3

   EQU

   129

␣␣␣SW4 = 130

1. Definition

   00202

   11

   SW4

   EQU

   130

␣␣DOL2 = 635

1. Definition

   01173

   535360606060

   413

   DOL2

   BCD

   1$$␣␣␣␣

   F6R03968

2. Reference

   01171

   −0 50000 0 01173

   411

   LIB2A

   CAL

   DOL2 DOUBLE DOLLAR SIGN.

   F6R03966

␣␣LIB1 = 142

1. Definition

   00216

   0 77200 0 00204

   19

   LIB1

   REW

   4 SW TWO DOWN.

   F6R00100

2. Reference

   00213

   0 02000 0 00216

   16

   TRA

   LIB1 SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN,

   F6R00070

␣␣LIB2 = 394

1. Definition

   00612

   0 02000 0 01164

   271

   LIB2

   TRA

   RPCH1

   F6R02620

2. Reference

   00266

   0 10000 0 00612

   59

   TZE

   LIB2 IF SL(1)=$, GO TO LIB2

   F6R00500

␣␣LIB3 = 396

1. Definition

   00614

   000000000053

   273

   LIB3

   BCD

   100000$

   F6R02640

2. References (3)

   	00265	0 40200 0 00614	58		SUB	LIB3	F6R00490
   	00267	0 40000 0 00614	60		ADD	LIB3	F6R00510
   	01165	0 40200 0 00614	407		SUB	LIB3	F6R03962

␣␣LIB4 = 397

1. Definition

   00615

   536060606060

   274

   LIB4

   BCD

   1$␣␣␣␣␣

   F6R02650

2. Reference

   01167

   −0 50000 0 00615

   409

   CAL

   LIB4 SINGLE DOLLAR SIGN

   F6R03964

␣␣LIB5 = 398

1. Definition

   00616

   000000000074

   275

   LIB5

   BCD

   100000(

   F6R02660

2. References (2)

   	00270	0 40200 0 00616	61		SUB	LIB5	F6R00520
   	00272	0 40000 0 00616	63		ADD	LIB5	F6R00540

␣␣LIB6 = 399

1. Definition

   00617

   −0 50000 0 00775

   276

   LIB6

   CAL

   DATA2

   F6R02670

2. Reference

   00271

   0 10000 0 00617

   62

   TZE

   LIB6 IF SL(1)=(, GO TO LIB6

   F6R00530

␣␣SUB1 = 387

1. Definition

   00603

   −0 63400 1 00705

   264

   SUB1

   SXD

   DT703,1 SAVE XR1 FOR RETURN

   F6R02550

2. References (2)

   	00277	0 07400 1 00603	68		TSX	SUB1,1 AND GO TO SUB1 (TIV TYPE ENTRY).	F6R00590
   	00346	0 07400 1 00603	107		TSX	SUB1,1 LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1.	F6R00980

␣␣SUB2 = 428

1. Definition

   00654

   0 60100 0 01002

   305

   SUB2

   STO

   E1000

   F6R02960

2. References (2)

   	00304	0 07400 1 00654	73		TSX	SUB2,1	F6R00640
   	00352	0 07400 1 00654	111	IN310	TSX	SUB2,1 INTERNAL FORMULA NO. TYPE.	F6R01020

␣␣ZERO = 113

1. Definition

   			2			************* FORTRAN II SECTION SIX ************************	F6R00010
   			3			FORTRAN 2 RECORD 0003 - CIT TO SAP CONVERSION.	F6R00011
   			4				F6R00012
   			5			CIT TO SAP CONVERSION	F6R00020
   		00161	6	ZERO	EQU	113	F6R00030

␣ADD01 = 448

1. Definition

   00700

   0 77000 0 00202

   325

   ADD01

   WEF

   2

   F6R03160

2. References (3)

   	00212	0 02000 0 00700	15		TRA	ADD01 SW2 EQUAL ZERO, ASSUME SWITCH TWO UP,	F6R00060
   	00215	0 02000 0 00700	18		TRA	ADD01	F6R00090
   	00227	0 02000 0 00700	28		TRA	ADD01 END OF FILE ON TAPE 4.	F6R00190

␣ADD02 = 145

1. Definition

   00221

   1 00005 0 00223

   22

   ADD02

   TXI

   ADD03,0,5

   F6R00130

2. References (2)

   	00220	−0 53400 2 00221	21		LXD	ADD02,2 SET READ ERROR COUNTER.	F6R00120
   	00441	−0 53400 2 00221	166		LXD	ADD02,2	F6R01570

␣ADD03 = 147

1. Definition

   00223

   0 76200 0 00224

   24

   ADD03

   RTB

   4 READ TAPE 4

   F6R00150

2. References (2)

   	00221	1 00005 0 00223	22	ADD02	TXI	ADD03,0,5	F6R00130
   	00442	1 00442 0 00223	167	ADD08	TXI	ADD03,0,*	F6R01580

␣ADD04 = 149

1. Definition

   00225

   0 70000 1 01162

   26

   ADD04

   CPY

   RECO3,1 CPY INTO REC-1, REC-2,---

   F6R00170

2. Reference

   00226

   1 00001 1 00225

   27

   TXI

   ADD04,1,1

   F6R00180

␣ADD05 = 146

1. Definition

   00222

   0 76400 0 00204

   23

   ADD05

   BST

   4

   F6R00140

2. Reference

   00233

   2 00001 2 00222

   32

   TIX

   ADD05,2,1 IF ERROR.

   F6R00230

␣ADD06 = 288

1. Definition

   00440

   −3 00440 1 00236

   165

   ADD06

   TXL

   IN207,1,*

   F6R01560

2. References (2)

   	00234	−0 63400 1 00440	33		SXD	ADD06,1 SAVE COUNT OF NO. OF WORDS READ IN.	F6R00240
   	00437	1 00004 1 00440	164		TXI	ADD06,1,4	F6R01550

␣ADD07 = 447

1. Definition

   00677

   0 00000 0 00000

   324

   ADD07

   HTR

   0

   F6R03150

2. Reference

   00235

   0 53400 1 00677

   34

   LXA

   ADD07,1 SET XR1=0

   F6R00250

␣ADD08 = 290

1. Definition

   00442

   1 00442 0 00223

   167

   ADD08

   TXI

   ADD03,0,*

   F6R01580

2. References (2)

   	00236	−0 63400 1 00442	35	IN207	SXD	ADD08,1 SAVE XR1.	F6R00260
   	00436	−0 53400 1 00442	163		LXD	ADD08,1	F6R01540

␣ADD09 = 197

1. Definition

   00305

   −0 76300 0 00044

   74

   ADD09

   LGL

   36 SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC.

   F6R00650

2. Reference

   00255

   0 10000 0 00305

   50

   TZE

   ADD09 IF ZERO, GO TO ADD09.

   F6R00410

␣ADD10 = 195

1. Definition

   00303

   −0 76300 0 00015

   72

   ADD10

   LGL

   13 IFN. ASSEMBLE SYMBOL AND GO TO SUB2.

   F6R00630

2. Reference

   00257

   0 10000 0 00303

   52

   TZE

   ADD10 SL(1) EQUAL ZERO, GO TO ADD10.

   F6R00430

␣ADD11 = 180

1. Definition

   00264

   0 40000 0 00722

   57

   ADD11

   ADD

   DATA7 RESOTRE SL(1) IN AC.

   F6R00480

2. Reference

   00261

   −0 10000 0 00264

   54

   TNZ

   ADD11 SL(1) NOT EQUAL 15, GO TO ADD11

   F6R00450

␣ADD12 = 198

1. Definition

   00306

   0 60200 0 01005

   75

   ADD12

   SLW

   E1003 STORE ACC. IN E1003.

   F6R00660

2. References (7)

   	00263	0 02000 0 00306	56		TRA	ADD12 GO TO ADD12	F6R00470
   	00300	0 02000 0 00306	69		TRA	ADD12	F6R00600
   	00302	0 02000 0 00306	71		TRA	ADD12	F6R00620
   	00613	0 02000 0 00306	272		TRA	ADD12	F6R02630
   	00620	0 02000 0 00306	277		TRA	ADD12	F6R02680
   	01170	0 02000 0 00306	410		TRA	ADD12	F6R03965
   	01172	0 02000 0 00306	412		TRA	ADD12	F6R03967

␣ADD13 = 213

1. Definition

   00325

   0 56000 0 00777

   90

   ADD13

   LDQ

   DATA4 OP NOT BCD OR OCT.

   F6R00810

2. References (2)

   	00320	0 02000 0 00325	85		TRA	ADD13 OP LESS THEN OCT	F6R00760
   	00323	0 02000 0 00325	88		TRA	ADD13	F6R00790

␣ADD14 = 374

1. Definition

   00566

   0 50000 0 00777

   251

   ADD14

   CLA

   DATA4

   F6R02420

2. Reference

   00321

   0 02000 0 00566

   86

   TRA

   ADD14 OP EQUAL OCT. GO TO ADD14.

   F6R00770

␣ADD15 = 341

1. Definition

   00525

   0 56000 0 00777

   218

   ADD15

   LDQ

   DATA4

   F6R02090

2. References (2)

   	00324	0 02000 0 00525	89		TRA	ADD15 OP EQUAL BCD. GO TO ADD15.	F6R00800
   	00573	0 02000 0 00525	256		TRA	ADD15	F6R02470

␣DAT10 = 454

1. Definition

   00706

   −204623636000

   331

   DAT10

   OCT

   604623636000

   F6R03220

2. References (2)

   	00322	0 34000 0 00706	87		CAS	DAT10 OP GREATER THEN OCT. SEE IF OP=BCD.	F6R00780
   	00571	−0 50000 0 00706	254		CAL	DAT10	F6R02450

␣DATA1 = 470

1. Definition

   00726

   +000000077777

   347

   DATA1

   OCT

   77777

   F6R03380

2. References (2)

   	00224	0 53400 1 00726	25		LXA	DATA1,1	F6R00160
   	00400	−0 32000 0 00726	133		ANA	DATA1	F6R01240

␣DATA2 = 509

1. Definition

   00775

   0 00000 0 00000

   386

   DATA2

   HTR

   0

   F6R03770

2. References (4)

   	00240	0 60200 0 00775	37		SLW	DATA2 STORE OP IN DATA3	F6R00280
   	00254	−0 50000 0 00775	49		CAL	DATA2 TEST SYMBOLIC LOCATION.	F6R00400
   	00301	−0 50000 0 00775	70	ME1	CAL	DATA2	F6R00610
   	00617	−0 50000 0 00775	276	LIB6	CAL	DATA2	F6R02670

␣DATA3 = 510

1. Definition

   00776

   0 00000 0 00000

   387

   DATA3

   HTR

   0

   F6R03780

2. References (2)

   	00242	0 60200 0 00776	39		SLW	DATA3	F6R00300
   	00307	0 56000 0 00776	76	IN245	LDQ	DATA3 SELECT OP IN MQ.	F6R00670

␣DATA4 = 511

1. Definition

   00777

   0 00000 0 00000

   388

   DATA4

   HTR

   0

   F6R03790

2. References (5)

   	00244	0 60200 0 00777	41		SLW	DATA4	F6R00320
   	00325	0 56000 0 00777	90	ADD13	LDQ	DATA4 OP NOT BCD OR OCT.	F6R00810
   	00525	0 56000 0 00777	218	ADD15	LDQ	DATA4	F6R02090
   	00566	0 50000 0 00777	251	ADD14	CLA	DATA4	F6R02420
   	00576	−0 50000 0 00777	259		CAL	DATA4	F6R02500

␣DATA5 = 512

1. Definition

   01000

   0 00000 0 00000

   389

   DATA5

   HTR

   0

   F6R03800

2. References (6)

   	00246	0 60200 0 01000	43		SLW	DATA5	F6R00340
   	00334	0 50000 0 01000	97		CLA	DATA5 TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS.	F6R00880
   	00364	0 50000 0 01000	121		CLA	DATA5 SELECT RELATIVE ADDRESS.	F6R01120
   	00371	0 50000 0 01000	126		CLA	DATA5 SET ACC. EQUAL RA.	F6R01170
   	00377	0 50000 0 01000	132	IN335	CLA	DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777	F6R01230
   	00513	0 50000 0 01000	208		CLA	DATA5	F6R01990

␣DATA6 = 456

1. Definition

   00710

   −206060606060

   333

   DATA6

   OCT

   606060606060

   F6R03240

2. References (12)

   	00247	0 56000 0 00710	44		LDQ	DATA6	F6R00350
   	00262	−0 50000 0 00710	55		CAL	DATA6 SL(1) EQUAL 15. PUT BLANKS IN AC AND	F6R00460
   	00313	0 56000 0 00710	80		LDQ	DATA6 LOAD MQ WITH BLANKS	F6R00710
   	00333	0 56000 0 00710	96		LDQ	DATA6 SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH	F6R00870
   	00367	0 56000 0 00710	124		LDQ	DATA6 RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND	F6R01150
   	00412	0 56000 0 00710	143		LDQ	DATA6	F6R01340
   	00421	0 56000 0 00710	150		LDQ	DATA6	F6R01410
   	00426	0 56000 0 00710	155		LDQ	DATA6	F6R01460
   	00600	−0 50000 0 00710	261		CAL	DATA6	F6R02520
   	00610	0 56000 0 00710	269		LDQ	DATA6 LOAD MQ WITH BLANKS.	F6R02600
   	00647	0 56000 0 00710	300	IN576	LDQ	DATA6	F6R02910
   	00672	0 56000 0 00710	319		LDQ	DATA6	F6R03100

␣DATA7 = 466

1. Definition

   00722

   +000000000017

   343

   DATA7

   OCT

   17

   F6R03340

2. References (5)

   	00260	0 40200 0 00722	53		SUB	DATA7 SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15.	F6R00440
   	00264	0 40000 0 00722	57	ADD11	ADD	DATA7 RESOTRE SL(1) IN AC.	F6R00480
   	00273	0 40200 0 00722	64		SUB	DATA7	F6R00550
   	00275	0 40000 0 00722	66		ADD	DATA7	F6R00570
   	00605	0 40200 0 00722	266		SUB	DATA7 IS CHARACTER *.	F6R02570

␣DATA8 = 463

1. Definition

   00717

   +000000000020

   340

   DATA8

   OCT

   20

   F6R03310

2. References (5)

   	00310	0 50200 0 00717	77		CLS	DATA8	F6R00680
   	00343	0 34000 0 00717	104	IN301	CAS	DATA8 TEST IF SA(1)=16.	F6R00950
   	00375	−0 50000 0 00717	130	IN333	CAL	DATA8 SELECT OCTAL 20 (PLUS)	F6R01210
   	00526	−0 50000 0 00717	219		CAL	DATA8	F6R02100
   	00530	0 40000 0 00717	221		ADD	DATA8	F6R02120

␣DATA9 = 455

1. Definition

   00707

   −202223246000

   332

   DATA9

   OCT

   602223246000

   F6R03230

2. Reference

   00317

   0 34000 0 00707

   84

   CAS

   DATA9 IS OP EQUAL OCT.

   F6R00750

␣DT703 = 453

1. Definition

   00705

   0 00000 0 00000

   330

   DT703

   HTR

   0

   F6R03210

2. References (2)

   	00603	−0 63400 1 00705	264	SUB1	SXD	DT703,1 SAVE XR1 FOR RETURN	F6R02550
   	00652	−0 53400 1 00705	303		LXD	DT703,1	F6R02940

␣DT707 = 457

1. Definition

   00711

   +336060606060

   334

   DT707

   OCT

   336060606060

   F6R03250

␣DT710 = 458

1. Definition

   00712

   −236060606060

   335

   DT710

   OCT

   636060606060

   F6R03260

2. Reference

   00406

   0 56000 0 00712

   139

   IN344

   LDQ

   DT710

   F6R01300

␣DT711 = 459

1. Definition

   00713

   +006060606060

   336

   DT711

   OCT

   006060606060

   F6R03270

2. Reference

   00404

   0 56000 0 00713

   137

   LDQ

   DT711 NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST

   F6R01280

␣DT712 = 460

1. Definition

   00714

   +000000000073

   337

   DT712

   OCT

   73

   F6R03280

2. References (2)

   	00414	0 50000 0 00714	145	IN352	CLA	DT712	F6R01360
   	00423	0 50000 0 00714	152		CLA	DT712	F6R01430

␣DT713 = 461

1. Definition

   00715

   +000000000060

   338

   DT713

   OCT

   60

   F6R03290

2. References (5)

   	00340	−0 50000 0 00715	101		CAL	DT713 ZERO, OR A BLANK TO RT-HAND END OF E1004.	F6R00920
   	00357	−0 50000 0 00715	116		CAL	DT713	F6R01070
   	00455	0 34000 0 00715	178		CAS	DT713 IS CHARACTER BLANK.	F6R01690
   	00646	−0 50000 0 00715	299	IN575	CAL	DT713	F6R02900
   	00662	−0 50000 0 00715	311		CAL	DT713 IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK	F6R03020

␣DT714 = 462

1. Definition

   00716

   +000000000040

   339

   DT714

   OCT

   40

   F6R03300

2. References (2)

   	00373	−0 50000 0 00716	128		CAL	DT714 IF RA NEGATIVE, SELECT OCTAL 40 (MINUS)	F6R01190
   	00515	−0 50000 0 00716	210		CAL	DT714	F6R02010

␣DT716 = 464

1. Definition

   00720

   +000000000054

   341

   DT716

   OCT

   54

   F6R03320

2. Reference

   00607

   −0 50000 0 00720

   268

   CAL

   DT716 YES, SELECT *.

   F6R02590

␣DT717 = 465

1. Definition

   00721

   −377777777777

   342

   DT717

   OCT

   777777777777

   F6R03330

2. Reference

   00567

   0 40200 0 00721

   252

   SUB

   DT717

   F6R02430

␣DT721 = 467

1. Definition

   00723

   +000000000012

   344

   DT721

   OCT

   12

   F6R03350

2. References (2)

   	00471	0 22100 0 00723	190	IN427	DVP	DT721	F6R01810
   	00660	0 22100 0 00723	309		DVP	DT721	F6R03000

␣DT722 = 468

1. Definition

   00724

   +000000000005

   345

   DT722

   OCT

   5

   F6R03360

2. Reference

   00407

   0 34000 0 00724

   140

   CAS

   DT722

   F6R01310

␣DT723 = 469

1. Definition

   00725

   +000000000001

   346

   DT723

   OCT

   1

   F6R03370

2. References (2)

   	00445	0 40000 0 00725	170	IN403	ADD	DT723 COMPUTE ADDRESS FOR STORING WORD.	F6R01610
   	00574	−0 50000 0 00725	257	IN532	CAL	DT723	F6R02480

␣DT725 = 471

1. Definition

   00727

   +000000000071

   348

   DT725

   OCT

   71

   F6R03390

␣DT735 = 479

1. Definition

   00737

   +000000000051

   356

   DT735

   OCT

   51

   F6R03470

␣DT770 = 506

1. Definition

   00772

   +000000000000

   383

   DT770

   OCT

   0

   F6R03740

2. References (2)

   	00621	−0 50000 4 00772	278	IN550	CAL	DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC	F6R02690
   	00637	−0 50000 4 00772	292		CAL	DT770,4 SELECT CHARACTER.	F6R02830

␣DT771 = 507

1. Definition

   00773

   +000000000034

   384

   DT771

   OCT

   34

   F6R03750

2. Reference

   00623

   −0 50100 0 00773

   280

   ORA

   DT771 FOLLOWED BY LEFT PARENTHESIS

   F6R02710

␣DT772 = 508

1. Definition

   00774

   0 00000 0 00000

   385

   DT772

   HTR

   0

   F6R03760

2. References (3)

   	00465	−0 63400 1 00774	186		SXD	DT772,1	F6R01770
   	00506	−0 53400 1 00774	203		LXD	DT772,1	F6R01940
   	00665	−0 63400 1 00774	314		SXD	DT772,1	F6R03050

␣E0777 = 513

1. Definition

   01001

   0 00000 0 00000

   390

   E0777

   HTR

   0

   F6R03810

2. References (4)

   	00312	−0 60000 0 01001	79		STQ	E0777 STORE DECREMENT IN E0777.	F6R00700
   	00336	0 50000 0 01001	99		CLA	E0777 RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT.	F6R00900
   	00402	0 50000 0 01001	135		CLA	E0777 ZERO. TEST IF E0777 EQUAL ZERO.	F6R01260
   	00416	0 50000 0 01001	147		CLA	E0777	F6R01380

␣E1000 = 514

1. Definition

   01002

   0 00000 0 00000

   391

   E1000

   HTR

   0

   F6R03820

2. References (10)

   	00356	−0 60000 0 01002	115		STQ	E1000	F6R01060
   	00360	−0 60200 0 01002	117		ORS	E1000	F6R01080
   	00361	0 56000 0 01002	118		LDQ	E1000	F6R01090
   	00474	−0 60000 0 01002	193		STQ	E1000	F6R01840
   	00475	0 50000 0 01002	194		CLA	E1000	F6R01850
   	00625	0 60200 0 01002	282		SLW	E1000	F6R02730
   	00642	−0 60200 0 01002	295		ORS	E1000	F6R02860
   	00651	−0 50100 0 01002	302		ORA	E1000	F6R02930
   	00654	0 60100 0 01002	305	SUB2	STO	E1000	F6R02960
   	00675	0 50000 0 01002	322		CLA	E1000	F6R03130

␣E1001 = 515

1. Definition

   01003

   0 00000 0 00000

   392

   E1001

   HTR

   0

   F6R03830

2. References (3)

   	00470	0 60200 0 01003	189		SLW	E1001	F6R01800
   	00473	−0 60200 0 01003	192		ORS	E1001	F6R01830
   	00501	−0 50000 0 01003	198	IN437	CAL	E1001	F6R01890

␣E1002 = 516

1. Definition

   01004

   0 00000 0 00000

   393

   E1002

   HTR

   0

   F6R03840

2. References (6)

   	00464	−0 60000 0 01004	185	IN422	STQ	E1002	F6R01760
   	00502	0 56000 0 01004	199		LDQ	E1002	F6R01900
   	00504	0 56000 0 01004	201	IN442	LDQ	E1002	F6R01920
   	00663	0 60200 0 01004	312	IN612	SLW	E1002	F6R03030
   	00671	−0 50100 0 01004	318		ORA	E1002	F6R03090
   	00674	0 60200 0 01004	321		SLW	E1002	F6R03120

␣E1003 = 517

1. Definition

   01005

   0 00000 0 00000

   394

   E1003

   HTR

   0

   F6R03850

2. Reference

   00306

   0 60200 0 01005

   75

   ADD12

   SLW

   E1003 STORE ACC. IN E1003.

   F6R00660

␣E1004 = 518

1. Definition

   01006

   0 00000 0 00000

   395

   E1004

   HTR

   0

   F6R03860

2. References (7)

   	00316	0 60100 0 01006	83		STO	E1004 STORE IN E1004.	F6R00740
   	00341	−0 60200 0 01006	102		ORS	E1004	F6R00930
   	00355	−0 60200 0 01006	114	IN313	ORS	E1004	F6R01050
   	00521	−0 60200 0 01006	214	IN457	ORS	E1004	F6R02050
   	00532	−0 60200 0 01006	223	IN470	ORS	E1004	F6R02140
   	00572	0 60200 0 01006	255		SLW	E1004	F6R02460
   	00575	−0 60200 0 01006	258		ORS	E1004	F6R02490

␣E1005 = 519

1. Definition

   01007

   0 00000 0 00000

   396

   E1005

   HTR

   0

   F6R03870

2. References (3)

   	00250	−0 60000 0 01007	45		STQ	E1005 STORE BLANKS IN E1006,1007,1010,1005	F6R00360
   	00547	0 60200 0 01007	236		SLW	E1005	F6R02270
   	00577	0 60200 0 01007	260		SLW	E1005	F6R02510

␣E1006 = 520

1. Definition

   01010

   0 00000 0 00000

   397

   E1006

   HTR

   0

   F6R03880

2. References (3)

   	00251	−0 60000 0 01010	46		STQ	E1006	F6R00370
   	00564	0 60200 0 01010	249		SLW	E1006	F6R02400
   	00601	0 60200 0 01010	262		SLW	E1006	F6R02530

␣E1007 = 521

1. Definition

   01011

   0 00000 0 00000

   398

   E1007

   HTR

   0

   F6R03890

2. Reference

   00252

   −0 60000 0 01011

   47

   STQ

   E1007

   F6R00380

␣E1010 = 522

1. Definition

   01012

   0 00000 0 00000

   399

   E1010

   HTR

   0

   F6R03900

2. Reference

   00253

   −0 60000 0 01012

   48

   STQ

   E1010

   F6R00390

␣E1011 = 523

1. Definition

   01013

   0 00000 0 00000

   400

   E1011

   HTR

   0

   F6R03910

2. Reference

   00433

   0 70000 1 01013

   160

   IN371

   CPY

   E1011,1

   F6R01510

␣E1015 = 527

1. Definition

   01017

   0 00000 0 00000

   404

   E1015

   HTR

   0

   F6R03950

␣IN207 = 158

1. Definition

   00236

   −0 63400 1 00442

   35

   IN207

   SXD

   ADD08,1 SAVE XR1.

   F6R00260

2. Reference

   00440

   −3 00440 1 00236

   165

   ADD06

   TXL

   IN207,1,*

   F6R01560

␣IN245 = 199

1. Definition

   00307

   0 56000 0 00776

   76

   IN245

   LDQ

   DATA3 SELECT OP IN MQ.

   F6R00670

␣IN301 = 227

1. Definition

   00343

   0 34000 0 00717

   104

   IN301

   CAS

   DATA8 TEST IF SA(1)=16.

   F6R00950

2. Reference

   00330

   −0 10000 0 00343

   93

   TNZ

   IN301 SA(1) NOT EQUAL ZERO. GO TO IN301.

   F6R00840

␣IN310 = 234

1. Definition

   00352

   0 07400 1 00654

   111

   IN310

   TSX

   SUB2,1 INTERNAL FORMULA NO. TYPE.

   F6R01020

2. Reference

   00332

   −0 10000 0 00352

   95

   TNZ

   IN310 FORMULA NUMBER TYPE. IF YES, GO TO IN310.

   F6R00860

␣IN313 = 237

1. Definition

   00355

   −0 60200 0 01006

   114

   IN313

   ORS

   E1004

   F6R01050

2. References (5)

   	00344	0 02000 0 00355	105		TRA	IN313 GREATER THEN 16(TRUE SYMBOL). GO TO IN313.	F6R00960
   	00351	0 02000 0 00355	110		TRA	IN313	F6R01010
   	00362	−0 50000 0 00355	119	IN320	CAL	IN313	F6R01100
   	00522	−0 50000 0 00355	215		CAL	IN313	F6R02060
   	00611	0 02000 0 00355	270		TRA	IN313 GO TO IN 313.	F6R02610

␣IN320 = 242

1. Definition

   00362

   −0 50000 0 00355

   119

   IN320

   CAL

   IN313

   F6R01100

2. References (2)

   	00337	−0 10000 0 00362	100		TNZ	IN320 NOT ZERO, GO TO IN320	F6R00910
   	00511	0 10000 0 00362	206		TZE	IN320	F6R01970

␣IN333 = 253

1. Definition

   00375

   −0 50000 0 00717

   130

   IN333

   CAL

   DATA8 SELECT OCTAL 20 (PLUS)

   F6R01210

2. Reference

   00372

   0 12000 0 00375

   127

   TPL

   IN333 IF RA POSITIVE, GO TO IN333.

   F6R01180

␣IN334 = 254

1. Definition

   00376

   0 07400 1 00460

   131

   IN334

   TSX

   IN416,1

   F6R01220

2. Reference

   00374

   0 02000 0 00376

   129

   TRA

   IN334 AND GO TO IN334.

   F6R01200

␣IN335 = 255

1. Definition

   00377

   0 50000 0 01000

   132

   IN335

   CLA

   DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777

   F6R01230

2. References (2)

   	00366	0 10000 0 00377	123		TZE	IN335 RA EQUAL ZERO, GO TO IN335	F6R01140
   	00524	0 02000 0 00377	217		TRA	IN335	F6R02080

␣IN344 = 262

1. Definition

   00406

   0 56000 0 00712

   139

   IN344

   LDQ

   DT710

   F6R01300

2. Reference

   00401

   −0 10000 0 00406

   134

   TNZ

   IN344 IF NOT ZERO, GO TO IN344.

   F6R01250

␣IN351 = 267

1. Definition

   00413

   0 07400 1 00464

   144

   IN351

   TSX

   IN422,1

   F6R01350

2. References (2)

   	00410	0 02000 0 00413	141		TRA	IN351	F6R01320
   	00411	0 02000 0 00413	142		TRA	IN351	F6R01330

␣IN352 = 268

1. Definition

   00414

   0 50000 0 00714

   145

   IN352

   CLA

   DT712

   F6R01360

2. Reference

   00405

   0 02000 0 00414

   138

   TRA

   IN352 AND GO TO IN 352

   F6R01290

␣IN363 = 277

1. Definition

   T

   00425

   −0 75400 0 00006

   154

   IN363

   PXD

   6

   F6R01450

2. References (3)

   	00403	0 10000 0 00425	136		TZE	IN363 IF ZERO, GO TO IN363.	F6R01270
   	00417	0 10000 0 00425	148		TZE	IN363	F6R01390
   	00432	0 53400 1 00425	159		LXA	IN363,1	F6R01500

␣IN366 = 280

1. Definition

   00430

   −0 60200 0 00430

   157

   IN366

   ORS

   *

   F6R01480

2. Reference

   00447

   0 62100 0 00430

   172

   STA

   IN366

   F6R01630

␣IN367 = 281

1. Definition

   00431

   0 76600 0 00202

   158

   IN367

   WTD

   2

   F6R01490

2. References (3)

   	00342	0 02000 0 00431	103		TRA	IN367	F6R00940
   	00565	0 02000 0 00431	250		TRA	IN367	F6R02410
   	00602	0 02000 0 00431	263		TRA	IN367	F6R02540

␣IN371 = 283

1. Definition

   00433

   0 70000 1 01013

   160

   IN371

   CPY

   E1011,1

   F6R01510

2. Reference

   00434

   2 00001 1 00433

   161

   TIX

   IN371,1,1

   F6R01520

␣IN401 = 291

1. Definition

   00443

   −3 00036 2 00454

   168

   IN401

   TXL

   IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT

   F6R01590

2. Reference

   00463

   1 00006 2 00443

   184

   TXI

   IN401,2,6 ADJUST XR2 SHIFT AND GO TO IN401.

   F6R01750

␣IN403 = 293

1. Definition

   00445

   0 40000 0 00725

   170

   IN403

   ADD

   DT723 COMPUTE ADDRESS FOR STORING WORD.

   F6R01610

2. References (2)

   	00363	0 07400 1 00445	120		TSX	IN403,1	F6R01110
   	00523	0 07400 1 00445	216		TSX	IN403,1	F6R02070

␣IN410 = 298

1. Definition

   00452

   0 60200 0 00452

   175

   IN410

   SLW

   * STORE ZERO IN WORD.

   F6R01660

2. Reference

   00450

   0 62100 0 00452

   173

   STA

   IN410

   F6R01640

␣IN412 = 300

1. Definition

   00454

   −0 76300 0 00006

   177

   IN412

   LGL

   6 SELECT CHARACTER

   F6R01680

2. Reference

   00443

   −3 00036 2 00454

   168

   IN401

   TXL

   IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT

   F6R01590

␣IN416 = 304

1. Definition

   00460

   0 76700 2 00036

   181

   IN416

   ALS

   30,2 NO, SHIFT CHARACTER

   F6R01720

2. References (4)

   	00376	0 07400 1 00460	131	IN334	TSX	IN416,1	F6R01220
   	00415	0 07400 1 00460	146		TSX	IN416,1	F6R01370
   	00424	0 07400 1 00460	153		TSX	IN416,1	F6R01440
   	00456	0 02000 0 00460	179		TRA	IN416 NO.	F6R01700

␣IN417 = 305

1. Definition

   00461

   −0 60200 0 00461

   182

   IN417

   ORS

   *

   F6R01730

2. References (2)

   	00444	−0 50000 0 00461	169		CAL	IN417 SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES	F6R01600
   	00446	0 62100 0 00461	171		STA	IN417	F6R01620

␣IN422 = 308

1. Definition

   00464

   −0 60000 0 01004

   185

   IN422

   STQ

   E1002

   F6R01760

2. References (4)

   	00370	0 07400 1 00464	125		TSX	IN422,1 GO TO IN422	F6R01160
   	00413	0 07400 1 00464	144	IN351	TSX	IN422,1	F6R01350
   	00422	0 07400 1 00464	151		TSX	IN422,1	F6R01420
   	00512	0 07400 1 00464	207		TSX	IN422,1	F6R01980

␣IN424 = 310

1. Definition

   00466

   0 76500 0 00043

   187

   IN424

   LRS

   35

   F6R01780

2. Reference

   00676

   0 02000 0 00466

   323

   TRA

   IN424

   F6R03140

␣IN427 = 313

1. Definition

   00471

   0 22100 0 00723

   190

   IN427

   DVP

   DT721

   F6R01810

2. Reference

   00500

   1 77772 1 00471

   197

   TXI

   IN427,1,−6

   F6R01880

␣IN437 = 321

1. Definition

   00501

   −0 50000 0 01003

   198

   IN437

   CAL

   E1001

   F6R01890

2. Reference

   00476

   0 10000 0 00501

   195

   TZE

   IN437

   F6R01860

␣IN442 = 324

1. Definition

   00504

   0 56000 0 01004

   201

   IN442

   LDQ

   E1002

   F6R01920

␣IN446 = 328

1. Definition

   00510

   0 77100 0 00022

   205

   IN446

   ARS

   18

   F6R01960

2. Reference

   00335

   −0 10000 0 00510

   98

   TNZ

   IN446 NOT EQUAL ZERO. GO TO IN446

   F6R00890

␣IN455 = 335

1. Definition

   T

   00517

   −0 75400 0 00000

   212

   IN455

   PXD

   F6R02030

2. Reference

   00514

   0 12000 0 00517

   209

   TPL

   IN455

   F6R02000

␣IN457 = 337

1. Definition

   00521

   −0 60200 0 01006

   214

   IN457

   ORS

   E1004

   F6R02050

2. Reference

   00516

   0 02000 0 00521

   211

   TRA

   IN457

   F6R02020

␣IN470 = 346

1. Definition

   00532

   −0 60200 0 01006

   223

   IN470

   ORS

   E1004

   F6R02140

2. Reference

   00527

   0 16200 0 00532

   220

   TQP

   IN470

   F6R02110

␣IN532 = 380

1. Definition

   00574

   −0 50000 0 00725

   257

   IN532

   CAL

   DT723

   F6R02480

2. Reference

   00570

   −0 10000 0 00574

   253

   TNZ

   IN532

   F6R02440

␣IN550 = 401

1. Definition

   00621

   −0 50000 4 00772

   278

   IN550

   CAL

   DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC

   F6R02690

2. Reference

   00606

   −0 10000 0 00621

   267

   TNZ

   IN550 NO, GO TO IN 550.

   F6R02580

␣IN562 = 411

1. Definition

   00633

   −2 00001 1 00646

   288

   IN562

   TNX

   IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575

   F6R02790

2. Reference

   00635

   0 10000 0 00633

   290

   TZE

   IN562 ADDRESS BITS ZERO.

   F6R02810

␣IN565 = 414

1. Definition

   00636

   0 73400 4 00004

   291

   IN565

   PAX

   4,4 ADDRESS BITS NOT ZERO.

   F6R02820

2. References (3)

   	00626	0 53400 3 00636	283		LXA	IN565,3	F6R02740
   	00632	−0 10000 0 00636	287		TNZ	IN565 TAG BITS EQUAL ZERO. NO, GO TO IN565	F6R02780
   	00645	1 00006 2 00636	298		TXI	IN565,2,6 ADJUST SHIFT.	F6R02890

␣IN575 = 422

1. Definition

   00646

   −0 50000 0 00715

   299

   IN575

   CAL

   DT713

   F6R02900

2. Reference

   00633

   −2 00001 1 00646

   288

   IN562

   TNX

   IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575

   F6R02790

␣IN576 = 423

1. Definition

   00647

   0 56000 0 00710

   300

   IN576

   LDQ

   DATA6

   F6R02910

2. Reference

   00640

   −2 00001 1 00647

   293

   TNX

   IN576,1,1

   F6R02840

␣IN612 = 435

1. Definition

   00663

   0 60200 0 01004

   312

   IN612

   SLW

   E1002

   F6R03030

2. Reference

   00661

   −0 10000 0 00663

   310

   TNZ

   IN612

   F6R03010

␣IN756 = 496

1. Definition

   00760

   +000000000021

   373

   IN756

   OCT

   21

   F6R03640

2. Reference

   00667

   −0 50000 1 00760

   316

   CAL

   IN756,1 SELECT ALPHABETIC CHARACTER.

   F6R03070

␣LIB2A = 633

1. Definition

   01171

   −0 50000 0 01173

   411

   LIB2A

   CAL

   DOL2 DOUBLE DOLLAR SIGN.

   F6R03966

2. Reference

   01166

   0 10000 0 01171

   408

   TZE

   LIB2A

   F6R03963

␣REC01 = 624

1. Definition

   01160

   414

   REC01

   SYN

   REC−4

   F6R03979

2. Reference

   00245

   −0 50000 1 01160

   42

   CAL

   REC01,1 STORE RA IN DATA5

   F6R00330

␣RECO2 = 625

1. Definition

   01161

   415

   RECO2

   SYN

   REC−3

   F6R03980

2. Reference

   00243

   −0 50000 1 01161

   40

   CAL

   RECO2,1 STORE SA IN DATA4

   F6R00310

␣RECO3 = 626

1. Definition

   01162

   416

   RECO3

   SYN

   REC−2

   F6R03990

2. References (2)

   	00225	0 70000 1 01162	26	ADD04	CPY	RECO3,1 CPY INTO REC-1, REC-2,---	F6R00170
   	00241	−0 50000 1 01162	38		CAL	RECO3,1	F6R00290

␣RECOR = 627

1. Definition

   01163

   417

   RECOR

   SYN

   REC−1

   F6R04000

2. Reference

   00237

   −0 50000 1 01163

   36

   CAL

   RECOR,1 STORE SL IN DATA2

   F6R00270

␣RPCH1 = 628

1. Definition

   01164

   0 76300 0 00006

   406

   RPCH1

   LLS

   6

   F6R03961

2. Reference

   00612

   0 02000 0 01164

   271

   LIB2

   TRA

   RPCH1

   F6R02620

␣START = 136

1. Definition

   00210

   0 50000 0 00162

   13

   START

   CLA

   ONE

   F6R00040