␣␣␣␣␣( = 364

1. Definition

   00554

   000000000074

   506

   (

   BCD

   100000( CCTEST-11.

   BDC/567

␣␣␣␣␣) = 369

1. Definition

   00561

   000000000034

   511

   )

   BCD

   100000) CCTEST-6.

   BDC/572

␣␣␣␣␣E = 374

1. Definition

   00566

   000000000025

   516

   E

   BCD

   100000E CCTEST-1.

   BDC/577

2. Reference

   00350

   −0 50000 0 00566

   361

   FLT2

   CAL

   E OBTAIN E FOR

   BDC/423

␣␣␣␣␣F = 373

1. Definition

   00565

   000000000026

   515

   F

   BCD

   100000F CCTEST-2.

   BDC/576

␣␣␣␣␣H = 372

1. Definition

   00564

   000000000030

   514

   H

   BCD

   100000H CCTEST-3.

   BDC/575

␣␣␣␣␣I = 371

1. Definition

   00563

   000000000031

   513

   I

   BCD

   100000I CCTEST-4.

   BDC/574

␣␣␣␣␣P = 367

1. Definition

   00557

   000000000047

   509

   P

   BCD

   100000P CCTEST-8.

   BDC/570

␣␣␣␣FD = 32740

1. Definition

   77744

   590

   FD

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/649

2. References (6)

   	00403	−0 60000 0 77744	389		STQ	FD	BDC/451
   	00404	0 50000 0 77744	390		CLA	FD	BDC/452
   	00412	−0 60000 0 77744	396		STQ	FD STORE FRACTIONAL PART.	BDC/458
   	00414	0 50000 0 77744	398		CLA	FD SKIP FRACTIONAL.	BDC/460
   	00422	−0 60000 0 77744	404	CNV4	STQ	FD	BDC/466
   	00425	0 40000 0 77744	407		ADD	FD	BDC/469

␣␣␣␣MQ = 32745

1. Definition

   77751

   595

   MQ

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/654

2. References (4)

   	00155	0 56000 0 77751	171		LDQ	MQ CURRENT FORMAT WORD. THEN	BDC/234
   	00204	−0 60000 0 77751	220	DCPT3	STQ	MQ RESTORE THE	BDC/282
   	00207	0 56000 0 77751	223		LDQ	MQ GO COMPARE CHARACTER	BDC/285
   	00300	−0 60000 0 77751	312		STQ	MQ THE CURRENT FORMAT WORD.	BDC/376

␣␣␣␣ND = 32739

1. Definition

   77743

   589

   ND

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/648

2. References (6)

   	00411	0 60100 0 77743	395		STO	ND STORE INTEGRAL PART.	BDC/457
   	00417	0 40000 0 77743	401		ADD	ND	BDC/463
   	00420	0 60100 0 77743	402		STO	ND	BDC/464
   	00431	0 50000 0 77743	411		CLA	ND OBTAIN INTEGRAL PART.	BDC/473
   	00452	−0 60000 0 77743	429		STQ	ND	BDC/491
   	00453	0 50000 0 77743	430		CLA	ND	BDC/492

␣␣␣AX1 = 91

1. Definition

   00133

   1 00000 0 00071

   142

   AX1

   TXI

   CCLPAR,0,** BEGIN FORMAT OR GROUP.

   BDC/214

2. References (4)

   	00057	−0 63400 1 00133	89		SXD	AX1,1 SAVE THE ORIGINAL C(XR1), AND	BDC/159
   	00264	−0 63400 1 00133	294		SXD	AX1,1 SAVE THE ORIGINAL C(XR1),	BDC/358
   	00301	−0 53400 1 00133	313		LXD	AX1,1 RESTORE THE ORIGINAL C(XR1),	BDC/377
   	00507	−0 63400 1 00133	458		SXD	AX1,1 IF FIELD COUNT HAS BEEN EXHAUSTED,	BDC/520

␣␣␣AX2 = 92

1. Definition

   00134

   1 00000 0 00152

   143

   AX2

   TXI

   CCCMMA,0,** END FIELD.

   BDC/215

2. References (4)

   	00060	−0 63400 2 00134	90		SXD	AX2,2 SAVE THE ORIGINAL C(XR2).	BDC/160
   	00265	−0 63400 2 00134	295		SXD	AX2,2 SAVE THE ORIGINAL C(XR2), AND	BDC/359
   	00302	−0 53400 2 00134	314		LXD	AX2,2 RESTORE THE ORIGINAL C(XR2), AND	BDC/378
   	00510	−0 63400 2 00134	459		SXD	AX2,2 RESTORE THE C(XR1),C(XR2), AND	BDC/521

␣␣␣AX4 = 93

1. Definition

   00135

   1 00000 0 00157

   144

   AX4

   TXI

   CCSLSH,0,** END LINE OR RECORD.

   BDC/216

2. References (4)

   	00056	−0 63400 4 00135	88	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/158
   	00263	−0 63400 4 00135	293	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	BDC/357
   	00315	−0 63400 4 00135	333	PRINT	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	BDC/395
   	00513	−0 53400 4 00135	463	LIST	LXD	AX4,4 RESTORE THE C(XR4I, AN0	BDC/525

␣␣␣BX1 = 95

1. Definition

   00137

   1 00000 0 00165

   146

   BX1

   TXI

   CCSCFM,0,** SCALE FACTOR MINUS.

   BDC/218

2. References (2)

   	00071	−0 63400 1 00137	100	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER C0UNT,	BDC/170
   	00271	−0 53400 1 00137	300		LXD	BX1,1 RESET CHARACTER COUNT,	BDC/364

␣␣␣BX2 = 96

1. Definition

   00140

   1 00000 0 00167

   147

   BX2

   TXI

   CCRPAR,0,** END FORMAT OR GROUP.

   BDC/219

2. References (2)

   	00072	−0 63400 2 00140	101		SXD	BX2,2 SCAN POSITION, AND FORMAT WORD,	BDC/171
   	00272	−0 53400 2 00140	301		LXD	BX2,2 RESET SCAN POSITION, AND	BDC/365

␣␣␣BX4 = 97

1. Definition

   00141

   1 00000 0 00173

   148

   BX4

   TXI

   CCDCPT,0,** ROUNDING OF OUTPUT NUMBER.

   BDC/220

2. References (3)

   	00075	−0 63400 4 00141	104		SXD	BX4,4 INDICATED NUMBER OF REPETITIONS,	BDC/174
   	00170	−0 53400 4 00141	202		LXD	BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND	BDC/265
   	00270	−0 63400 4 00141	299	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	BDC/363

␣␣␣CLA = 34

1. Definition

   00042

   0 50000 0 00476

   71

   CLA

   CLA

   PACK OUTPUT REMAINS

   BDC/048

2. Reference

   00027

   0 56000 0 00042

   55

   LDQ

   CLA SET GET OP

   BDC/032

␣␣␣CLR = 285

1. Definition

   00435

   1 00000 4 00436

   415

   CLR

   TXI

   CLR1,4,** (FXD=1, FLT=5)

   BDC/477

2. References (2)

   	00246	0 62200 0 00435	270		STD	CLR (WITHOUT EXPONENT).	BDC/332
   	00257	0 62200 0 00435	284		STD	CLR (WITH EXPONENT).	BDC/346

␣␣␣CNV = 249

1. Definition

   00371

   0 53400 4 77742

   379

   CNV

   LXA

   EXP,4 TEST FOR SCALING.

   BDC/441

2. Reference

   D

   00367

   1 00000 0 00371

   376

   TXI

   CNV,0

   BDC/438

␣␣␣CX1 = 99

1. Definition

   00143

   1 00000 0 00217

   150

   CX1

   TXI

   CCHOUT,0,** HOLLERITH FIELD OUTPUT.

   BDC/222

2. References (2)

   	00153	−0 53400 1 00143	169	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER.COUNT,	BDC/232
   	00276	−0 63400 1 00143	310		SXD	CX1,1 SAVE THE CHARACTER COUNT,	BDC/374

␣␣␣CX2 = 100

1. Definition

   00144

   1 00000 0 00243

   151

   CX2

   TXI

   CCFOUT,0,** FIXED POINT 0UTPUT.

   BDC/223

2. References (2)

   	00154	−0 53400 2 00144	170		LXD	CX2,2 RESTORE SCAN P0SITI0N, AND	BDC/233
   	00277	−0 63400 2 00144	311		SXD	CX2,2 THE SCAN POSITION, AND	BDC/375

␣␣␣CX4 = 101

1. Definition

   00145

   1 00000 0 00254

   152

   CX4

   TXI

   CCEOUT,0,** FLOATING POINT OUTPUT.

   BDC/224

2. References (2)

   	00275	−0 63400 4 00145	309	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/373
   	00307	−0 53400 4 00145	320	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	BDC/384

␣␣␣DIG = 32742

1. Definition

   77746

   592

   DIG

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/651

2. References (7)

   	00112	0 60100 0 77746	118		STO	DIG CONVERT	BDC/188
   	00117	0 36100 0 77746	123		ACL	DIG TO SET INT= SCALE FACTOR,	BDC/193
   	00175	0 60000 0 77746	212		STZ	DIG CLEAR DIG, AND	BDC/2745
   	00202	0 60100 0 77746	218		STO	DIG IN FRACTION.	BDC/280
   	00413	0 53400 4 77746	397		LXA	DIG,4	BDC/459
   	00433	0 53400 4 77746	413	CNVN	LXA	DIG,4	BDC/475
   	00440	0 53400 4 77746	418	CNV3	LXA	DIG,4	BDC/480

␣␣␣DTR = 137

1. Definition

   			225			END OF PROGRAM CCDCPT.	BDC/287
   D	00211	1 00000 0 00177	226	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	BDC/28B

2. Reference

   00173

   0 50000 0 00211

   210

   CCDCPT

   CLA

   DTR MODIFY SCAN INSTRUCTION

   BDC/273

␣␣␣EXP = 32738

1. Definition

   77742

   588

   EXP

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/647

2. References (9)

   	00250	0 60100 0 77742	272		STO	EXP NEGATIVE OF SCALE FACTOR.	BDC/334
   	00326	0 60100 0 77742	343		STO	EXP	BDC/405
   	00345	−0 50000 0 77742	358		CAL	EXP ADJUST EXPONENT.	BDC/420
   	00347	0 60200 0 77742	360		SLW	EXP	BDC/422
   	00352	0 50000 0 77742	363		CLA	EXP	BDC/425
   	00354	0 60100 0 77742	365		STO	EXP	BDC/427
   	00356	0 56000 0 77742	367		LDQ	EXP OBTAIN SIGN.	BDC/429
   	00371	0 53400 4 77742	379	CNV	LXA	EXP,4 TEST FOR SCALING.	BDC/441
   	00373	0 56000 0 77742	381		LDQ	EXP	BDC/443

␣␣␣FAD = 217

1. Definition

   00331

   0 73400 4 00370

   346

   FAD

   PAX

   FXD,4

   BDC/408

2. Reference

   00251

   0 50000 0 00331

   273

   CLA

   FAD PICKUP FXD, AND

   BDC/335

␣␣␣FLT = 208

1. Definition

   			336			FLT = ENTRY POINT FOR FLOATING POINT CONVERSION.	BDC/398
   	00320	0 10000 0 00433	337	FLT	TZE	CNVN IF NON-ZERO, BEGIN E, F CONVERSION.	BDC/399

2. Reference

   00340

   0 73400 4 00320

   353

   FLT1

   PAX

   FLT,4

   BDC/415

␣␣␣FX4 = 14

1. Definition

   00016

   1 00000 0 00000

   43

   FX4

   TXI

   **,0,** * TRANSFER CONTROL TO MAIN PROGRAM.

   BDC/020

2. References (7)

   	00007	0 62100 0 00016	36		STA	FX4 TO MAIN PROGRAM.	BDC/013
   	00011	−0 63400 4 00016	38		SXD	FX4,4 FOR SCAN.	BDC/015
   	00013	−0 53400 4 00016	40		LXD	FX4,4 WHEN DONE, RESTORE C(XR4).	BDC/017
   	00032	−0 63400 4 00016	58		SXD	FX4,4 SAVE THE C(XR4), AND	BDC/035
   	00034	−0 53400 4 00016	60		LXD	FX4,4 RESTORE THE C(XR4).	BDC/037
   	00050	−0 63400 4 00016	77	LAST	SXD	FX4,4 OTHERWISE, SAVE THE C(XR4), AND	BDC/054
   	00052	−0 53400 4 00016	79		LXD	FX4,4 RESTORE THE C(XR4), AND	BDC/056

␣␣␣FXD = 248

1. Definition

   			377			FXD = ENTRY POINT FOR FIXED POINT CONVERSION.	BDC/439
   	00370	0 10000 0 00433	378	FXD	TZE	CNVN TEST OUTPUT NUMBER FOR ZERO.	BDC/440

2. Reference

   00331

   0 73400 4 00370

   346

   FAD

   PAX

   FXD,4

   BDC/408

␣␣␣GET = 25

1. Definition

   00031

   0 50000 0 00000

   57

   GET

   CLA

   **,** GET OUTPUT NUMBER.

   BDC/034

2. References (2)

   	00026	0 60200 0 00031	54		SLW	GET AND SET ADDRESS AND TAG OF GET.	BDC/031
   	00030	−0 62000 0 00031	56		SLQ	GET TO CLA.	BDC/033

␣␣␣IAD = 242

1. Definition

   00362

   −0 75400 0 00445

   371

   IAD

   PXD

   INTG,0

   BDC/433

2. Reference

   00212

   0 50000 0 00362

   231

   CCIOUT

   CLA

   IAD PICKUP INTG, AND

   BDC/293

␣␣␣INT = 32741

1. Definition

   77745

   591

   INT

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/650

2. References (11)

   	00066	0 60100 0 77745	96		STO	INT SET INT = I.	BDC/166
   	00074	0 53400 4 77745	103		LXA	INT,4 SET GROUP CONTROL COUNT FOR THE	BDC/173
   	00077	0 60000 0 77745	107	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	BDC/177
   	00113	0 50000 0 77745	119		CLA	INT SUCCESSIVE	BDC/189
   	00115	0 40000 0 77745	121		ADD	INT DIGITS	BDC/191
   	00120	0 60100 0 77745	125	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	BDC/195
   	00162	0 50000 0 77745	186	CCSCFP	CLA	INT PICKUP AND	BDC/249
   	00165	0 50200 0 77745	194	CCSCFM	CLS	INT SET INT MINUS, AND	BDC/257
   	00214	0 53400 4 77745	234		LXA	INT,4 SET,COUNT FOR THE	BDC/296
   	00222	0 53400 4 77745	245		LXA	INT,4 SET XR4 = FIELD WIDTH.	BDC/307
   	00303	0 53400 4 77745	315		LXA	INT,4 EXAMINE INT, AND	BDC/379

␣␣␣MQR = 32746

1. Definition

   77752

   596

   MQR

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/655

2. References (2)

   	00073	−0 60000 0 77752	102		STQ	MQR FOR POSSIBLE REPETITION OF GROUP.	BDC/172
   	00273	0 56000 0 77752	302		LDQ	MQR PICKUP 1ST FORMAT WORD OF GROUP.	BDC/366

␣␣␣NCC = 86

1. Definition

   00126

   1 00014 0 00130

   133

   NCC

   TXI

   SCAN8,0,12 AND IF EQUALITY IS FOUND,

   BDC/203

2. Reference

   00124

   −0 53400 4 00126

   131

   SCAN6

   LXD

   NCC,4 WHEN A NON-NUMERIC IS MET,

   BDC/201

␣␣␣NEW = 2

1. Definition

   			28			NEW = ENTRY POINT FROM MAIN PROGRAM (CIAC)= ADDRESS OF OUTPUT	BDC/005
   			29			ROUTINE TO HANDLE CURRENT OUTPUT, AND C(0)= LOCATI0N OF THE	BDC/006
   			30			CURRENT FORMAT STATEMENT).	BDC/007
   	00002	−0 76000 0 00007	31	NEW	LTM	SET FILLW TO CALL THE INDICATED	BDC/008

2. Reference

   00001

   0 02100 0 00002

   27

   (BDC)

   TTR

   NEW INSTRUCTION EXECUTED IN LOCATION 1.

   BDC/004

␣␣␣ONE = 383

1. Definition

   00577

   +000000000001

   526

   ONE

   DEC

   1 CONSTANT USED BY FIL/BDC.

   BDC/587

2. References (12)

   	00006	0 40000 0 00577	35		ADD	ONE SET EXIT	BDC/012
   	00023	0 40000 0 00577	51		ADD	ONE SET LOCATION FOR	BDC/028
   	00046	0 40200 0 00577	75		SUB	ONE THEN	BDC/052
   	00234	0 40000 0 00577	255		ADD	ONE STORING	BDC/317
   	00237	−0 50000 0 00577	258		CAL	ONE RESET WORD INDICATOR.	BDC/320
   	00346	0 40000 0 00577	359		ADD	ONE	BDC/421
   	00445	−0 53400 4 00577	424	INTG	LXD	ONE,4	BDC/486
   	00500	0 40000 0 00577	451		ADD	ONE	BDC/513
   	00502	−0 50000 0 00577	453		CAL	ONE	BDC/515
   	00520	0 40200 0 00577	473		SUB	ONE WORD INDICATOR, AND	BDC/535
   	00534	0 53400 4 00577	485		LXA	ONE,4 TO THE NUMBER OF WORDS ENTERED	BDC/547
   	00550	−0 50000 0 00577	498		CAL	ONE PICKUP 1 TO	BDC/560

␣␣␣OUT = 30

1. Definition

   00036

   0 02100 0 00000

   62

   OUT

   TTR

   ** * UNDER CONTROL OF THE MAIN PROGRAM.

   BDC/039

2. Reference

   00024

   0 62100 0 00036

   52

   STA

   OUT RETURN TO MAIN PROGRAM.

   BDC/029

␣␣␣PEX = 32744

1. Definition

   77750

   594

   PEX

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/653

2. References (6)

   	00064	0 60000 0 77750	94		STZ	PEX SET PEX (SCALE FACTOR) = 0, AND	BDC/164
   	00163	0 60100 0 77750	187		STO	PEX STORE SCALE FACTOR.	BDC/250
   	00247	0 50200 0 77750	271		CLS	PEX SET EXP TO THE	BDC/333
   	00330	0 40200 0 77750	345		SUB	PEX	BDC/407
   	00335	0 53400 4 77750	350		LXA	PEX,4 EXPONENT.	BDC/412
   	00353	0 40200 0 77750	364		SUB	PEX	BDC/426

␣␣␣REC = 32747

1. Definition

   77753

   597

   REC

   BSS

   20 VARIABLE USED BY FIL/BDC.

   BDC/656

2. References (3)

   	00533	2 77753 4 00535	484	FILL1	TIX	FILL2,4,REC XR4 AND THE DECREMENT OF FILL	BDC/546
   	00542	0 00000 0 77753	491	FILL	PZE	REC,,** (DECREMENT = NO. WORDS ENTERE0)	BDC/553
   	00545	0 60200 0 77753	495	FILT	SLW	REC TO BLANKS,	BDC/557

␣␣␣RET = 45

1. Definition

   00055

   0 02100 0 00000

   82

   RET

   TTR

   ** THEN RETURN TO MAIN PROGRAM

   BDC/0576

2. Reference

   00040

   0 62100 0 00055

   69

   STA

   RET RETURN TO MAIN PROGRAM.

   BDC/046

␣␣␣RND = 395

1. Definition

   00613

   +200000000000

   538

   RND

   DEC

   .5B 00-TABLE USED BY FIL/BDC.

   BDC/597

2. Reference

   00415

   0 36100 4 00613

   399

   ACL

   RND,4

   BDC/461

␣␣␣SIX = 64

1. Definition

   00100

   1 00006 0 00121

   108

   SIX

   TXI

   SCAN5,0,6 GO RESUME SCAN.

   BDC/178

2. References (2)

   	00101	−0 53400 1 00100	109	SCAN1	LXD	SIX,1 RESET FORMAT CHARACTER COUNT, AND	BDC/179
   	00225	−0 53400 1 00100	248		LXD	SIX,1 REMAIN, RESET CHARACTER C0UNT,	BDC/310

␣␣␣TAB = 442

1. Definition

   00672

   +146400000000

   585

   TAB

   OCT

   146400000000 00-TABLE USE0 BY FIL/BDC.

   BDC/644

2. References (6)

   	00000	0 00001 0 00673	14		PZE	TAB+1,,1	BDC/C03
   	00333	0 26000 4 00671	348		FMP	TAB−1,4	BDC/410
   	00336	0 40200 4 00672	351		SUB	TAB,4	BDC/413
   	00341	0 50000 4 00672	354		CLA	TAB,4	BDC/416
   	00376	0 26000 4 00672	384		FMP	TAB,4	BDC/446
   	00402	0 24100 4 00672	388	CNV2	FDP	TAB,4	BDC/450

␣␣␣TEN = 377

1. Definition

   00571

   +000000000012

   520

   TEN

   DEC

   10 CONSTANT USED BY FIL/BDC.

   BDC/581

2. References (2)

   	00363	0 22100 0 00571	372		DVP	TEN OBTAIN DIGITS	BDC/434
   	00450	0 22100 0 00571	427	CNV9	DVP	TEN CONVERT INTEGRAL PART.	BDC/489

␣␣␣TWO = 384

1. Definition

   00600

   0 00000 0 00002

   527

   TWO

   PZE

   2 CONSTANT USED BY FIL/BDC.

   BDC/5875

2. Reference

   00037

   0 40000 0 00600

   68

   (FIL)

   ADD

   TWO SET ADDRESS FOR

   BDC/045

␣␣BASE = 381

1. Definition

   00575

   +000000000200

   524

   BASE

   DEC

   128 CONSTANT USED BY FIL/BDC.

   BDC/585

2. Reference

   00323

   0 40200 0 00575

   340

   SUB

   BASE

   BDC/402

␣␣BIAS = 380

1. Definition

   00574

   +033000000000

   523

   BIAS

   DEC

   27B8 CONSTANT USED BY FIL/BDC.

   BDC/584

2. References (2)

   	00343	0 40000 0 00574	356		ADD	BIAS	BDC/4I8
   	00377	0 36100 0 00574	385		ACL	BIAS	BDC/447

␣␣CALL = 8

1. Definition

   00010

   −0 50000 0 00000

   37

   CALL

   CAL

   ** OBTAIN FORMAT STATEMENT

   BDC/014

2. Reference

   00005

   0 62100 0 00010

   34

   STA

   CALL LOCATI0N.

   BDC/011

␣␣CHAR = 32738

1. Definition

   77742

   587

   CHAR

   BES

   120 VARIABLE USED BY FIL/BDC.

   BDC/646

2. References (12)

   	00253	0 00001 0 77742	276	FXDW	PZE	CHAR,0,1 CONSTANT USED BY CCFOUT.	BDC/338
   	00262	0 00005 0 77736	288	FLTW	PZE	CHAR−4,0,5 CONSTANT USED BY CCEOUT.	BDC/350
   	00351	0 60200 0 77736	362		SLW	CHAR−4 EXPONENT.	BDC/424
   	00361	0 60200 0 77737	370	FLT3	SLW	CHAR−3	BDC/432
   	00364	−0 60000 0 77740	373		STQ	CHAR−2 OF EXPONENT.	BDC/435
   	00365	0 60200 0 77741	374		SLW	CHAR−1	BDC/436
   	00436	−0 60000 4 77742	416	CLR1	STQ	CHAR,4	BDC/478
   	00443	−0 60000 4 77742	421		STQ	CHAR,4	BDC/483
   	00451	0 60200 4 77741	428		SLW	CHAR−1,4	BDC/490
   	00462	0 60200 4 77740	437	CNV12	SLW	CHAR−2,4	BDC/499
   	00465	0 60200 4 77742	440	CLR3	SLW	CHAR,4	BDC/502
   	00474	0 40000 4 77742	447		ADD	CHAR,4	BDC/509

␣␣CLR1 = 286

1. Definition

   00436

   −0 60000 4 77742

   416

   CLR1

   STQ

   CHAR,4

   BDC/478

2. References (2)

   	00435	1 00000 4 00436	415	CLR	TXI	CLR1,4,** (FXD=1, FLT=5)	BDC/477
   	00437	2 00001 4 00436	417		TIX	CLR1,4,1	BDC/479

␣␣CLR2 = 311

1. Definition

   00467

   −3 00000 4 00465

   442

   CLR2

   TXL

   CLR3,4,** (COLUMN WIDTH OF THIS FIELD)

   BDC/504

2. References (4)

   	00305	−0 63400 4 00467	317		SXD	CLR2,4 SET COLUMN WIDTH OF EACH FIELD.	BDC/381
   	00464	1 00003 4 00467	439		TXI	CLR2,4,3	BDC/501
   	00466	1 00001 4 00467	441		TXI	CLR2,4,1	BDC/503
   	00470	−0 53400 4 00467	443		LXD	CLR2,4	BDC/505

␣␣CLR3 = 309

1. Definition

   00465

   0 60200 4 77742

   440

   CLR3

   SLW

   CHAR,4

   BDC/502

2. Reference

   00467

   −3 00000 4 00465

   442

   CLR2

   TXL

   CLR3,4,** (COLUMN WIDTH OF THIS FIELD)

   BDC/504

␣␣CNV1 = 256

1. Definition

   00400

   −0 30000 0 00572

   386

   CNV1

   UFA

   FIXN FIX INTERNAL FLOATING BINARY NO.

   BDC/448

2. Reference

   00372

   −3 00000 4 00400

   380

   TXL

   CNV1,4,0

   BDC/442

␣␣CNV2 = 258

1. Definition

   00402

   0 24100 4 00672

   388

   CNV2

   FDP

   TAB,4

   BDC/450

2. Reference

   00374

   0 16200 0 00402

   382

   TQP

   CNV2

   BDC/444

␣␣CNV3 = 288

1. Definition

   00440

   0 53400 4 77746

   418

   CNV3

   LXA

   DIG,4

   BDC/480

2. References (2)

   	00421	−3 00000 4 00440	403		TXL	CNV3,4,0 TEST FOR FRACTION WANTED.	BDC/465
   D	00432	1 00000 0 00440	412		TXI	CNV3,0	BDC/474

␣␣CNV4 = 274

1. Definition

   00422

   −0 60000 0 77744

   404

   CNV4

   STQ

   FD

   BDC/466

2. Reference

   00430

   2 00001 4 00422

   410

   TIX

   CNV4,4,1

   BDC/472

␣␣CNV5 = 279

1. Definition

   00427

   0 60200 4 00000

   409

   CNV5

   SLW

   **,4 (FXD=CHAR, FLT=CHAR-4)

   BDC/471

2. References (2)

   	00244	0 62100 0 00427	268		STA	CNV5 FOR FIXED POINT	BDC/330
   	00255	0 62100 0 00427	282		STA	CNV5 FOR FLOATING POINT	BDC/344

␣␣CNV6 = 289

1. Definition

   00441

   1 00000 4 00442

   419

   CNV6

   TXI

   CNV7,4,** (FXD=1, FLT=5)

   BDC/481

2. References (2)

   	00245	0 62200 0 00441	269		STD	CNV6 OUTPUT	BDC/331
   	00256	0 62200 0 00441	283		STD	CNV6 OUTPUT	BDC/345

␣␣CNV7 = 290

1. Definition

   00442

   0 56000 0 00562

   420

   CNV7

   LDQ

   POINT ESTABLISH POINT.

   BDC/482

2. Reference

   00441

   1 00000 4 00442

   419

   CNV6

   TXI

   CNV7,4,** (FXD=1, FLT=5)

   BDC/481

␣␣CNV8 = 303

1. Definition

   00457

   −0 50000 0 00570

   434

   CNV8

   CAL

   BLANK PUT SIGN IN SPREAD BCD.

   BDC/496

2. Reference

   00454

   0 10000 0 00457

   431

   TZE

   CNV8

   BDC/493

␣␣CNV9 = 296

1. Definition

   00450

   0 22100 0 00571

   427

   CNV9

   DVP

   TEN CONVERT INTEGRAL PART.

   BDC/489

2. Reference

   00456

   1 00001 4 00450

   433

   TXI

   CNV9,4,1

   BDC/495

␣␣CNVN = 283

1. Definition

   00433

   0 53400 4 77746

   413

   CNVN

   LXA

   DIG,4

   BDC/475

2. References (2)

   	00320	0 10000 0 00433	337	FLT	TZE	CNVN IF NON-ZERO, BEGIN E, F CONVERSION.	BDC/399
   	00370	0 10000 0 00433	378	FXD	TZE	CNVN TEST OUTPUT NUMBER FOR ZERO.	BDC/440

␣␣DONE = 199

1. Definition

   			319			DONE = ENTRY POINT USED BY PRINT.	BDC/383
   	00307	−0 53400 4 00145	320	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	BDC/384

2. References (2)

   	00304	−3 00000 4 00307	316		TXL	DONE,4,0 IF NOT ZERO, THEN	BDC/380
   	00511	1 00000 0 00307	460	COUNT	TXI	DONE,0,** * (FIELD REPEAT COUNT) EXIT TO FIELD.	BDC/522

␣␣EXIT = 43

1. Definition

   00053

   −0 50000 0 00053

   80

   EXIT

   CAL

   EXIT PICKUP EXIT ADDRESS, AND

   BDC/057

2. References (2)

   	00047	0 10000 0 00053	76		TZE	EXIT * EXIT TO RESTORE ALL INDICATORS.	BDC/053
   	00053	−0 50000 0 00053	80	EXIT	CAL	EXIT PICKUP EXIT ADDRESS, AND	BDC/057

␣␣FILL = 354

1. Definition

   00542

   0 00000 0 77753

   491

   FILL

   PZE

   REC,,** (DECREMENT = NO. WORDS ENTERE0)

   BDC/553

2. References (2)

   	00535	−0 63400 4 00542	486	FILL2	SXD	FILL,4 IN REC BUFFER. THEN	BDC/548
   	00546	−0 50000 0 00542	496		CAL	FILL PACK ADDRESS	BDC/558

␣␣FILT = 357

1. Definition

   00545

   0 60200 0 77753

   495

   FILT

   SLW

   REC TO BLANKS,

   BDC/557

2. Reference

   00043

   0 40200 0 00545

   72

   SUB

   FILT IN REC BUFFER,

   BDC/049

␣␣FIXN = 378

1. Definition

   00572

   +233000000000

   521

   FIXN

   DEC

   155B8 CONSTANT USED BY FIL/BDC.

   BDC/582

2. Reference

   00400

   −0 30000 0 00572

   386

   CNV1

   UFA

   FIXN FIX INTERNAL FLOATING BINARY NO.

   BDC/448

␣␣FIXQ = 379

1. Definition

   00573

   +266000000000

   522

   FIXQ

   DEC

   182B8 CONSTANT USED BY FIL/BDC.

   BDC/583

2. Reference

   00405

   −0 30000 0 00573

   391

   UFA

   FIXQ

   BDC/453

␣␣FLT1 = 224

1. Definition

   00340

   0 73400 4 00320

   353

   FLT1

   PAX

   FLT,4

   BDC/415

2. References (2)

   	00260	0 50000 0 00340	285		CLA	FLT1 PICKUP FLT, AND	BDC/347
   	00327	0 12000 0 00340	344		TPL	FLT1	BDC/406

␣␣FLT2 = 232

1. Definition

   00350

   −0 50000 0 00566

   361

   FLT2

   CAL

   E OBTAIN E FOR

   BDC/423

2. Reference

   00344

   0 12000 0 00350

   357

   FLT4

   TPL

   FLT2

   BDC/419

␣␣FLT3 = 241

1. Definition

   00361

   0 60200 0 77737

   370

   FLT3

   SLW

   CHAR−3

   BDC/432

2. Reference

   00357

   0 16200 0 00361

   368

   TQP

   FLT3

   BDC/430

␣␣FLT4 = 228

1. Definition

   00344

   0 12000 0 00350

   357

   FLT4

   TPL

   FLT2

   BDC/419

2. Reference

   D

   00337

   1 00000 0 00344

   352

   TXI

   FLT4,0

   BDC/414

␣␣FLTW = 178

1. Definition

   			287			END OF PROGRAM CCEOUT.	BDC/349
   	00262	0 00005 0 77736	288	FLTW	PZE	CHAR−4,0,5 CONSTANT USED BY CCEOUT.	BDC/350

2. Reference

   00254

   0 50000 0 00262

   281

   CCEOUT

   CLA

   FLTW SET CONVERSION ROUTINE

   BDC/343

␣␣FXDW = 171

1. Definition

   			275			END OF PROGRAM CCFOUT.	BDC/337
   	00253	0 00001 0 77742	276	FXDW	PZE	CHAR,0,1 CONSTANT USED BY CCFOUT.	BDC/338

2. Reference

   00243

   0 50000 0 00253

   267

   CCFOUT

   CLA

   FXDW SET CONVERSION ROUTINE

   BDC/329

␣␣INTG = 293

1. Definition

   			423			INTG = ENTRY POINT FOR INTEGER CONVERSION.	BDC/485
   	00445	−0 53400 4 00577	424	INTG	LXD	ONE,4	BDC/486

2. Reference

   00362

   −0 75400 0 00445

   371

   IAD

   PXD

   INTG,0

   BDC/433

␣␣L(9) = 385

1. Definition

   00601

   0 00000 0 00011

   528

   L(9)

   PZE

   9 CONSTANT USED BY FIL/BDC.

   BDC/5876

2. References (2)

   	00107	0 34000 0 00601	115	SCAN3	CAS	L(9) IF NOT BLANK, COMPARE WITH NINE,	BDC/185
   	00177	0 34000 0 00601	215	DCPT1	CAS	L(9) DETERMINE THE	BDC/277

␣␣LAST = 40

1. Definition

   00050

   −0 63400 4 00016

   77

   LAST

   SXD

   FX4,4 OTHERWISE, SAVE THE C(XR4), AND

   BDC/054

2. Reference

   00044

   −0 10000 0 00050

   73

   TNZ

   LAST OR IN

   BDC/050

␣␣LINE = 46

1. Definition

   			83			END OF PROGRAM (FIL).	BDC/05B
   			84			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/059
   			85				BDC/060
   			86			LINE,4/ CALLS=RESET,FIELD,FILLW. USES=PRINT. CALLER=(BDC).	BDC/156
   			87			LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT.	BDC/157
   	00056	−0 63400 4 00135	88	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/158

2. Reference

   00012

   0 07400 4 00056

   39

   TSX

   LINE,4 * GO SCAN FORMAT.

   BDC/016

␣␣LIST = 331

1. Definition

   			462			LIST = ENTRY POINT USED BY LINE(SCAN),FIELD.	BDC/524
   	00513	−0 53400 4 00135	463	LIST	LXD	AX4,4 RESTORE THE C(XR4I, AN0	BDC/525

2. References (2)

   D	00151	1 00000 0 00513	161		TXI	LIST,0 * GO SEE IF LIST IS EXHAUSTED.	BDC/2276
   D	00306	1 00000 0 00513	318		TXI	LIST,0 * AND GO PROCESS FIELD.	BDC/382

␣␣LOG2 = 382

1. Definition

   00576

   +115040462343

   525

   LOG2

   DEC

   .301029957B CONSTANT USED BY FIL/BDC.

   BDC/586

2. Reference

   00325

   0 20000 0 00576

   342

   MPY

   LOG2

   BDC/404

␣␣MORE = 330

1. Definition

   00512

   −0 63400 4 00511

   461

   MORE

   SXD

   COUNT,4 OTHERWISE, G0 GET MORE L1ST.

   BDC/523

2. Reference

   00506

   2 00001 4 00512

   457

   TIX

   MORE,4,1 WORDS CONVERTED.

   BDC/519

␣␣PACK = 318

1. Definition

   00476

   0 60200 0 00000

   449

   PACK

   SLW

   ** (CURRENT ADDRESS IN REC BUFFER)

   BDC/511

2. References (8)

   	00042	0 50000 0 00476	71	CLA	CLA	PACK OUTPUT REMAINS	BDC/048
   	00217	0 50000 0 00476	242	CCHOUT	CLA	PACK SET STORING ADDRESS	BDC/304
   	00236	0 62100 0 00476	257		STA	PACK AND PACK ADDRESS.	BDC/319
   	00477	−0 50000 0 00476	450		CAL	PACK	BDC/512
   	00501	0 62100 0 00476	452		STA	PACK	BDC/514
   	00516	0 53400 4 00476	471		LXA	PACK,4 SET XR4 = REC + NO. WORDS ENTERED.	BDC/533
   	00522	−0 50000 0 00476	475		CAL	PACK SET ADDRESS	BDC/537
   	00547	0 62100 0 00476	497		STA	PACK TO REC, AN0	BDC/559

␣␣SCAN = 63

1. Definition

   			106			SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCIOUT,CCHOUT,RESCAN.	BDC/176
   	00077	0 60000 0 77745	107	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	BDC/177

2. References (5)

   D	00156	1 00000 0 00077	172		TXI	SCAN,0 * GO RESUME SCAN.	BDC/235
   D	00164	1 00000 0 00077	188		TXI	SCAN,0 * GO RESUME SCAN.	BDC/25I
   D	00216	1 00000 0 00077	236		TXI	SCAN,0 * GO RESUME SCAN.	BDC/298
   D	00242	1 00000 0 00077	261		TXI	SCAN,0 * GO RESUME SCAN.	BDC/323
   	00274	1 00000 0 00077	303	GROUPX	TXI	SCAN,0,** * GO RESCAN THIS GR0UP.	BDC/367

␣␣SEEK = 16

1. Definition

   			46			SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF	BDC/023
   			47			THE ADDRESS OF THE NEXT OUTPUT NUMBERS).	BDC/024
   	00020	−0 76000 0 00007	48	SEEK	LTM	PICKUP NTR INSTRUCTION, AND	BDC/025

2. Reference

   00017

   0 02100 0 00020

   45

   TRAP

   TTR

   SEEK INSTRUCTION EXECUTED IN LOCATION 1.

   BDC/022

␣␣SETL = 21

1. Definition

   00025

   −0 50000 0 00000

   53

   SETL

   CAL

   ** PICKUP LOCATION OF OUTPUT

   BDC/030

2. Reference

   00022

   0 62100 0 00025

   50

   STA

   SETL OF OUTPUT NUMBERS.

   BDC/027

␣␣TRAP = 15

1. Definition

   			44			THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.	BDC/021
   	00017	0 02100 0 00020	45	TRAP	TTR	SEEK INSTRUCTION EXECUTED IN LOCATION 1.	BDC/022

2. Reference

   00014

   −0 50000 0 00017

   41

   CAL

   TRAP SET LOCATION 1 FOR FUTURE

   BDC/018

␣␣TYPE = 353

1. Definition

   00541

   0 07400 4 00000

   490

   TYPE

   TSX

   **,4 * GO TO INDICATED OUTPUT ROUTINE.

   BDC/552

2. References (2)

   	00003	0 62100 0 00541	32		STA	TYPE TYPE OF OUTPUT ROUTINE.	BDC/009
   	00537	3 77776 4 00541	488		TXH	TYPE,4,−2 PUNCH OR PRINT OUTPUT.	BDC/550

␣␣UNIT = 69

1. Definition

   00105

   1 00000 0 00107

   113

   UNIT

   TXI

   SCAN3,0,** THEN

   BDC/183

2. References (2)

   	00063	0 62200 0 00105	93		STD	UNIT UNIT DECREMENT= -(CURRENT UNIT).	BDC/163
   	00536	−0 53400 4 00105	487		LXD	UNIT,4 SELECT CURRENT OUTPUT UNIT.	BDC/549

␣␣WORD = 32767

1. Definition

   77777

   598

   WORD

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/657

2. References (8)

   	00045	0 50000 0 77777	74		CLA	WORD WORD INDICATOR,	BDC/051
   	00221	−0 50000 0 77777	244		CAL	WORD PICKUP WORD INDICATOR.	BDC/306
   	00241	0 60100 0 77777	260		STO	WORD SAVE INCOMPLETE WORD. AND	BDC/322
   	00471	−0 50000 0 77777	444		CAL	WORD PACK RECORD INTO	BDC/506
   	00504	0 60200 0 77777	455		SLW	WORD SAVE ANY REMAINDER, AND	BDC/517
   	00517	−0 50000 0 77777	472		CAL	WORD EXAMINE	BDC/534
   	00524	−0 50000 0 77777	477		CAL	WORD PICKUP WORD,	BDC/539
   	00551	0 60200 0 77777	499		SLW	WORD SET WORD INDICATOR.	BDC/561

␣(BDC) = 1

1. Definition

   00001

   0 02100 0 00002

   27

   (BDC)

   TTR

   NEW INSTRUCTION EXECUTED IN LOCATION 1.

   BDC/004

2. Reference

   00003

   0 00000 0 00001

   17

   PZE

   (BDC)

   BDC/C06

␣(FIL) = 31

1. Definition

   			63			END OF PR0GRAM (BDC).	BDC/040
   			64			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/041
   			65				BDC/042
   			66			(FIL)/ CALLS=FILLW. USES=(RTN). CALLER=MAIN PR0GRAM.	BDC/043
   			67			(FIL) CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.	BDC/044
   	00037	0 40000 0 00600	68	(FIL)	ADD	TWO SET ADDRESS FOR	BDC/045

2. Reference

   00005

   −0 00000 0 00037

   19

   MZE

   (FIL)

   BDC/C08

␣(RTN) = 0

1. Definition

   			24			(BDC)/ CALLS=LINE,PRINT. CALLER=MAIN PROGRAM.	BDC/002
   			25			(BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT.	BDC/003
   	00000	745163453460	26	(RTN)	BCD	1(RTN)␣	BDC/0035

2. Reference

   00054

   1 00000 0 00000

   81

   FILLX

   TXI

   (RTN),0,** * EXIT TO RESTORE ALL INDICATORS.

   BDC/0575

␣BLANK = 376

1. Definition

   00570

   000000000060

   519

   BLANK

   BCD

   100000␣ CONSTANT USED BY FIL/BDC.

   BDC/580

2. References (6)

   	00104	0 34000 0 00570	112		CAS	BLANK AND IF BLANK,	BDC/182
   	00355	−0 50000 0 00570	366		CAL	BLANK	BDC/428
   	00434	0 56000 0 00570	414		LDQ	BLANK	BDC/476
   	00457	−0 50000 0 00570	434	CNV8	CAL	BLANK PUT SIGN IN SPREAD BCD.	BDC/496
   	00463	−0 50000 0 00570	438		CAL	BLANK	BDC/500
   	00527	0 40000 0 00570	480		ADD	BLANK WITH BLANKS.	BDC/542

␣CNV11 = 295

1. Definition

   00447

   0 76500 0 00043

   426

   CNV11

   LRS

   35

   BDC/488

2. Reference

   D

   00444

   1 00000 0 00447

   422

   TXI

   CNV11,0

   BDC/484

␣CNV12 = 306

1. Definition

   00462

   0 60200 4 77740

   437

   CNV12

   SLW

   CHAR−2,4

   BDC/499

2. Reference

   00460

   0 16200 0 00462

   435

   TQP

   CNV12

   BDC/497

␣CNVN1 = 262

1. Definition

   00406

   0 76300 0 00010

   392

   CNVN1

   LLS

   8

   BDC/454

2. Reference

   D

   00401

   1 00000 0 00406

   387

   TXI

   CNVN1,0

   BDC/449

␣CNVSW = 207

1. Definition

   00317

   1 00000 0 00000

   335

   CNVSW

   TXI

   **,0,** * SWITCH TO FLT, FXD, INTG,OR RESCAN.

   BDC/397

2. References (4)

   	00150	0 62100 0 00317	160		STA	CNVSW CONVERSION SWITCH TO RESCAN, AND	BDC/2275
   	00213	0 62100 0 00317	233	SETAD	STA	CNVSW SET CONVERSION SWITCH.	BDC/295
   	00311	−0 63400 4 00317	328	XPRINT	SXD	CNVSW,4 SAVE THE C(XR4), AND	BDC/392
   	00313	−0 53400 4 00317	330		LXD	CNVSW,4 AFTER GETTING FORMAT.	BDC/3922

␣COMMA = 365

1. Definition

   00555

   000000000073

   507

   COMMA

   BCD

   100000, CCTEST-10.

   BDC/56B

␣COUNT = 329

1. Definition

   00511

   1 00000 0 00307

   460

   COUNT

   TXI

   DONE,0,** * (FIELD REPEAT COUNT) EXIT TO FIELD.

   BDC/522

2. References (3)

   	00215	−0 63400 4 00511	235		SXD	COUNT,4 REPETITION OF THIS FIELD, AND	BDC/297
   	00505	−0 53400 4 00511	456		LXD	COUNT,4 COUNT NUMBER OF	BDC/518
   	00512	−0 63400 4 00511	461	MORE	SXD	COUNT,4 OTHERWISE, G0 GET MORE L1ST.	BDC/523

␣DATUM = 32743

1. Definition

   77747

   593

   DATUM

   BSS

   1 VARIABLE USED BY FIL/BDC.

   BDC/652

2. References (6)

   	00314	0 50000 0 77747	331		CLA	DATUM THEN PROCEED TO CONVERSION.	BDC/393
   	00316	0 60100 0 77747	334		STO	DATUM STORE CURRENT FIELD FOR CONVERSION.	BDC/396
   	00332	0 56000 0 77747	347		LDQ	DATUM	BDC/409
   	00342	−0 40000 0 77747	355		SBM	DATUM	BDC/417
   	00366	0 50000 0 77747	375		CLA	DATUM	BDC/437
   	00375	0 56000 0 77747	383		LDQ	DATUM	BDC/445

␣DCPT1 = 127

1. Definition

   			214			DCPT1 = REENTRY POINT FROM LINE(SCAN).	BDC/276
   	00177	0 34000 0 00601	215	DCPT1	CAS	L(9) DETERMINE THE	BDC/277

2. References (2)

   	00205	0 56000 0 00177	221		LDQ	DCPT1 SCAN INSTRUCTION	BDC/283
   D	00211	1 00000 0 00177	226	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	BDC/28B

␣DCPT3 = 132

1. Definition

   00204

   −0 60000 0 77751

   220

   DCPT3

   STQ

   MQ RESTORE THE

   BDC/282

2. Reference

   D

   00200

   1 00000 0 00204

   216

   TXI

   DCPT3,0 NUMBER, MODULO TEN,

   BDC/278

␣ENDMK = 363

1. Definition

   			501			END OF PROGRAM FILLW(RESET).	BDC/563
   			502			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/564
   			503				BDC/565
   			504			CONSTANTS AND WORKING STORAGE USDO BY FIL/BDC.	BDC/566
   	00553	+000000000077	505	ENDMK	OCT	77 CCTEST-12.	BDC/5665

␣FIELD = 189

1. Definition

   			304			END OF PROGRAM RESCAN.	BDC/368
   			305			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/369
   			306				BDC/370
   			307			FIELD,4/ USES PRINT. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.	BDC/371
   			308			FIELD OONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD.	BDC/372
   	00275	−0 63400 4 00145	309	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/373

2. References (4)

   	00146	0 07400 4 00275	158	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/2273
   	00152	0 07400 4 00275	167	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/230
   	00157	0 07400 4 00275	178	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/241
   	00167	0 07400 4 00275	201	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/264

␣FILL1 = 347

1. Definition

   00533

   2 77753 4 00535

   484

   FILL1

   TIX

   FILL2,4,REC XR4 AND THE DECREMENT OF FILL

   BDC/546

2. References (2)

   	00521	0 10000 0 00533	474		TZE	FILL1 IF NOT ZERO, THEN	BDC/536
   	00532	1 00001 4 00533	483		TXI	FILL1,4,1 UPDATE, AND SET	BDC/545

␣FILL2 = 349

1. Definition

   00535

   −0 63400 4 00542

   486

   FILL2

   SXD

   FILL,4 IN REC BUFFER. THEN

   BDC/548

2. Reference

   00533

   2 77753 4 00535

   484

   FILL1

   TIX

   FILL2,4,REC XR4 AND THE DECREMENT OF FILL

   BDC/546

␣FILL3 = 345

1. Definition

   00531

   0 60200 0 00000

   482

   FILL3

   SLW

   ** STORE LAST WORD.

   BDC/544

2. Reference

   00523

   0 62100 0 00531

   476

   STA

   FILL3 FOR LAST WORD.

   BDC/538

␣FILL4 = 342

1. Definition

   00526

   0 76700 0 00006

   479

   FILL4

   ALS

   6 FILL OUT

   BDC/541

2. References (2)

   	00525	0 14000 0 00526	478		TOV	FILL4 AND	BDC/540
   	00530	−0 14000 0 00526	481		TNO	FILL4 WHEN DONE,	BDC/543

␣FILLW = 333

1. Definition

   			465			END OF PROGRAM PRINT.	BDC/527
   			466			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/528
   			467				BDC/529
   			468			FILLW(RESET),4/ CALLERS=IFIL),LINE,CCSLSH,RESCAN.	BDC/530
   			469			FILLW FILLS OUT LAST WORD,CONTROLS OUTPUT, AND RESETS.	BDC/531
   	00515	−0 63400 4 00054	470	FILLW	SXD	FILLX,4 SAVE THE C(XR4) FOR RETURN.	BDC/532

2. References (3)

   	00051	0 07400 4 00515	78		TSX	FILLW,4 * GO TRANSMIT REMAINING OUTPUT.	BDC/055
   	00160	0 07400 4 00515	179		TSX	FILLW,4 * WHEN DONE, OUTPUT RECORD, AND	BDC/242
   	00266	0 07400 4 00515	296		TSX	FILLW,4 * GO OUTPUT RECORD.	BDC/360

␣FILLX = 44

1. Definition

   00054

   1 00000 0 00000

   81

   FILLX

   TXI

   (RTN),0,** * EXIT TO RESTORE ALL INDICATORS.

   BDC/0575

2. References (2)

   	00515	−0 63400 4 00054	470	FILLW	SXD	FILLX,4 SAVE THE C(XR4) FOR RETURN.	BDC/532
   	00543	−0 53400 4 00054	492		LXD	FILLX,4 F REENTRY FROM OUTPUT R0UT1NE.	BDC/554

␣FRMTR = 102

1. Definition

   00146

   153

   FRMTR

   BSS

   0

   BDC/225

2. Reference

   00127

   0 02000 4 00146

   134

   TRA

   FRMTR,4 * TAKE THE INDICATED TRANSFER.

   BDC/204

␣GROUP = 184

1. Definition

   			298			GROUP = ENTRY POINT USED BY CCRPAR.	BDC/362
   	00270	−0 63400 4 00141	299	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	BDC/363

2. Reference

   D

   00172

   1 00000 0 00270

   204

   TXI

   GROUP,0 * REPETITION OF GROUP IS INDICATED.

   BDC/267

␣HOUT1 = 148

1. Definition

   00224

   2 00001 1 00230

   247

   HOUT1

   TIX

   HOUT3,1,1 UPDATE COUNT, AND IF NO CHARACTERS

   BDC/309

2. References (2)

   	00223	−0 14000 0 00224	246		TNO	HOUT1 TURN OFF OVERFLOW INDICATOR.	BDC/308
   	00240	2 00001 4 00224	259	HOUT5	TIX	HOUT1,4,1 REPEAT UNTIL WHOLE GROUP IS MOVED.	BDC/321

␣HOUT2 = 151

1. Definition

   00227

   0 56000 2 77777

   250

   HOUT2

   LDQ

   −1,2 AND PICKUP NEXT FORMAT WORD.

   BDC/312

2. Reference

   00226

   1 77777 2 00227

   249

   TXI

   HOUT2,2,−1 RESET CURRENT FORMAT SCAN POSITION,

   BDC/311

␣HOUT3 = 152

1. Definition

   00230

   −0 76300 0 00006

   251

   HOUT3

   LGL

   6 SHIFT SIX CHARACTERS

   BDC/313

2. Reference

   00224

   2 00001 1 00230

   247

   HOUT1

   TIX

   HOUT3,1,1 UPDATE COUNT, AND IF NO CHARACTERS

   BDC/309

␣HOUT4 = 154

1. Definition

   00232

   0 60200 0 00000

   253

   HOUT4

   SLW

   ** STORE BCD WORD IN REC BUFFER, AND

   BDC/315

2. References (3)

   	00220	0 62100 0 00232	243		STA	HOUT4 TO CURRENT LOCATION IN REC BUFFER.	BDC/305
   	00233	−0 50000 0 00232	254		CAL	HOUT4 UPDATE	BDC/316
   	00235	0 62100 0 00232	256		STA	HOUT4 ADDRESS	BDC/318

␣HOUT5 = 160

1. Definition

   00240

   2 00001 4 00224

   259

   HOUT5

   TIX

   HOUT1,4,1 REPEAT UNTIL WHOLE GROUP IS MOVED.

   BDC/321

2. Reference

   00231

   −0 14000 0 00240

   252

   TNO

   HOUT5 INTO THE AC.

   BDC/3I4

␣MINUS = 368

1. Definition

   00560

   000000000040

   510

   MINUS

   BCD

   100000- CCTEST-7.

   BDC/571

2. References (2)

   	00360	−0 50000 0 00560	369		CAL	MINUS	BDC/431
   	00461	−0 50000 0 00560	436		CAL	MINUS	BDC/498

␣PACK2 = 315

1. Definition

   00473

   0 76700 0 00006

   446

   PACK2

   ALS

   6

   BDC/508

2. References (2)

   	00472	0 14000 0 00473	445		TOV	PACK2 FULL WORDS.	BDC/507
   	00503	2 00001 4 00473	454	PACK3	TIX	PACK2,4,1 WHEN THIS FIELD HAS BEEN PROCESSED,	BDC/516

␣PACK3 = 323

1. Definition

   00503

   2 00001 4 00473

   454

   PACK3

   TIX

   PACK2,4,1 WHEN THIS FIELD HAS BEEN PROCESSED,

   BDC/516

2. Reference

   00475

   −0 14000 0 00503

   448

   TNO

   PACK3

   BDC/510

␣POINT = 370

1. Definition

   00562

   000000000033

   512

   POINT

   BCD

   100000. CCTEST-5.

   BDC/573

2. Reference

   00442

   0 56000 0 00562

   420

   CNV7

   LDQ

   POINT ESTABLISH POINT.

   BDC/482

␣PRINT = 205

1. Definition

   			332			PRINT = ENTRY POINT USED BY (BDC).	BDC/394
   	00315	−0 63400 4 00135	333	PRINT	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	BDC/395

2. Reference

   00033

   0 07400 4 00315

   59

   TSX

   PRINT,4 * GO CONVERT AND PRINT OUTPUT.

   BDC/036

␣RESET = 356

1. Definition

   			493			RESET = ENTRY POINT USED BY LINE.	BDC/555
   	00544	−0 50000 0 00567	494	RESET	CAL	BLANKS RESET REC	BDC/556

2. Reference

   00065

   0 07400 4 00544

   95

   TSX

   RESET,4 * SET REC=BLANKS, PACK=REC, WORD=1.

   BDC/165

␣SCAN1 = 65

1. Definition

   00101

   −0 53400 1 00100

   109

   SCAN1

   LXD

   SIX,1 RESET FORMAT CHARACTER COUNT, AND

   BDC/179

2. Reference

   00123

   1 77777 2 00101

   129

   TXI

   SCAN1,2,−1 ADJUST SCAN POSITION, AND REPEAT.

   BDC/199

␣SCAN2 = 67

1. Definition

   00103

   −0 76300 0 00006

   111

   SCAN2

   LGL

   6 EXAMINE NEXT CHARACTER,

   BDC/181

2. Reference

   00122

   2 00001 1 00103

   128

   TIX

   SCAN2,1,1 WHEN NO CHARACTERS REMAIN,

   BDC/198

␣SCAN3 = 71

1. Definition

   00107

   0 34000 0 00601

   115

   SCAN3

   CAS

   L(9) IF NOT BLANK, COMPARE WITH NINE,

   BDC/185

2. References (3)

   	00105	1 00000 0 00107	113	UNIT	TXI	SCAN3,0,** THEN	BDC/183
   	00174	0 60100 0 00107	211		STO	SCAN3 TO TRANSFER INTO DCPT1.	BDC/274
   	00206	−0 60000 0 00107	222		STQ	SCAN3 TO ITS ORIGINAL FORM, AND	BDC/284

␣SCAN4 = 80

1. Definition

   			124			SCAN4 = ENTRY POINT USED BY CCSCFM.	BDC/194
   	00120	0 60100 0 77745	125	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	BDC/195

2. Reference

   D

   00166

   1 00000 0 00120

   195

   TXI

   SCAN4,0 * G0 GET SCALE FACTOR.

   BDC/258

␣SCAN5 = 81

1. Definition

   			126			SCAN5 = ENTRY POINT USED BY CCDCPT.	BDC/196
   	00121	−0 75400 0 00311	127	SCAN5	PXD	XPRINT,0 CLEAR THE AC, AND UPDATE COUNT.	BDC/197

2. References (5)

   	00100	1 00006 0 00121	108	SIX	TXI	SCAN5,0,6 GO RESUME SCAN.	BDC/178
   D	00106	1 00000 0 00121	114		TXI	SCAN5,0 GO EXAMINE NEXT CHARACTER.	BDC/184
   	00147	0 50000 0 00121	159		CLA	SCAN5 WHEN DONE, SET	BDC/2274
   D	00176	1 00000 0 00121	213		TXI	SCAN5,0 * GO RESUME SCAN.	BDC/275
   D	00203	1 00000 0 00121	219		TXI	SCAN5,0 * WHEN A CONTROL CHARACTER IS MET,	BDC/281

␣SCAN6 = 84

1. Definition

   			130			SCAN6 = ENTRY POINT USED BY CCDCPT.	BDC/200
   	00124	−0 53400 4 00126	131	SCAN6	LXD	NCC,4 WHEN A NON-NUMERIC IS MET,	BDC/201

2. References (2)

   D	00110	1 00000 0 00124	116		TXI	SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST.	BDC/186
   D	00210	1 00000 0 00124	224		TXI	SCAN6,0 * WITH CCTEST LIST.	BDC/286

␣SCAN7 = 85

1. Definition

   00125

   0 34000 4 00567

   132

   SCAN7

   CAS

   CCTEST,4 SCAN LIST OF CONTROL CHARACTERS,

   BDC/202

2. Reference

   00130

   2 00001 4 00125

   135

   SCAN8

   TIX

   SCAN7,4,1 IF NOT FOUND IN CONTROL LIST, THEN

   BDC/205

␣SCAN8 = 88

1. Definition

   00130

   2 00001 4 00125

   135

   SCAN8

   TIX

   SCAN7,4,1 IF NOT FOUND IN CONTROL LIST, THEN

   BDC/205

2. Reference

   00126

   1 00014 0 00130

   133

   NCC

   TXI

   SCAN8,0,12 AND IF EQUALITY IS FOUND,

   BDC/203

␣SETAD = 139

1. Definition

   			232			SETAD = ENTRY POINT USED BY CCFOUT,CCEOUT.	BDC/294
   	00213	0 62100 0 00317	233	SETAD	STA	CNVSW SET CONVERSION SWITCH.	BDC/295

2. References (2)

   D	00252	1 00000 0 00213	274		TXI	SETAD,0 * GO SET CONVERSI0N SWITCH.	BDC/336
   D	00261	1 00000 0 00213	286		TXI	SETAD,0 * GO SET CONVERSION SWITCH.	BDC/348

␣SEVEN = 50

1. Definition

   00062

   0 73400 2 00007

   92

   SEVEN

   PAX

   7,2 SET XR2= -(CURRENT FORMAT LOC.),AND

   BDC/162

2. Reference

   00067

   0 53400 1 00062

   97

   LXA

   SEVEN,1 SET XR1 = 7, AND PICKUP THE

   BDC/167

␣SLASH = 366

1. Definition

   00556

   000000000061

   508

   SLASH

   BCD

   100000/ CCTEST-9.

   BDC/569

BLANKS = 375

1. Definition

   00567

   606060606060

   518

   BLANKS

   BCD

   1␣␣␣␣␣␣ CONSTANT USED BY FIL/BDC.

   BDC/579

2. Reference

   00544

   −0 50000 0 00567

   494

   RESET

   CAL

   BLANKS RESET REC

   BDC/556

CCCMMA = 106

1. Definition

   			162			END OF PROGRAM CCEDMK.
   			163			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/2277
   			164				BDC/2278
   			165			CCCMMA/ CALLS=FIELD. USES=LINEISCAN).	BDC/228
   			166			CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.	BDC/229
   	00152	0 07400 4 00275	167	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/230

2. Reference

   00134

   1 00000 0 00152

   143

   AX2

   TXI

   CCCMMA,0,** END FIELD.

   BDC/215

CCDCPT = 123

1. Definition

   			205			END OF PROGRAM CCRPAR.	BDC/268
   			206			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/269
   			207				BDC/270
   			208			CCDCPT/ USES=LINE(SCAN).	BDC/271
   			209			CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.	BDC/272
   	00173	0 50000 0 00211	210	CCDCPT	CLA	DTR MODIFY SCAN INSTRUCTION	BDC/273

2. Reference

   00141

   1 00000 0 00173

   148

   BX4

   TXI

   CCDCPT,0,** ROUNDING OF OUTPUT NUMBER.

   BDC/220

CCEDMK = 102

1. Definition

   			154			* * * * * * * * * * * * * *.* * * * * * * * * * * * * * * * *	BDC/226
   			155				BDC/227
   			156			CCEDMK/ CALLS=FIELD,MAIN PROGRAM.	BDC/2271
   			157			CCEDMK = ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN.	BDC/2272
   	00146	0 07400 4 00275	158	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/2273

2. Reference

   D

   00132

   1 00000 0 00146

   141

   TXI

   CCEDMK,0 END OF FORMAT STATEMENT.

   BDC/2135

CCEOUT = 172

1. Definition

   			277			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/339
   			278				BDC/340
   			279			CCEOUT/ USES=CCIOUT.	BDC/341
   			280			CCEOUT = ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.	BDC/342
   	00254	0 50000 0 00262	281	CCEOUT	CLA	FLTW SET CONVERSION ROUTINE	BDC/343

2. Reference

   00145

   1 00000 0 00254

   152

   CX4

   TXI

   CCEOUT,0,** FLOATING POINT OUTPUT.

   BDC/224

CCFOUT = 163

1. Definition

   			262			END OF PROGRAM CCHOUT.	BDC/324
   			263			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/325
   			264				BDC/326
   			265			CCFOUT/ USES=CCIOUT.	BDC/327
   			266			COFOUT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.	BDC/328
   	00243	0 50000 0 00253	267	CCFOUT	CLA	FXDW SET CONVERSION ROUTINE	BDC/329

2. Reference

   00144

   1 00000 0 00243

   151

   CX2

   TXI

   CCFOUT,0,** FIXED POINT 0UTPUT.

   BDC/223

CCHOUT = 143

1. Definition

   			237			END OF PROGRAM CCIOUT.	BDC/299
   			238			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/300
   			239				BDC/301
   			240			CCHOUT/ USES=LINE(SCAN).	BDC/302
   			241			CCHOUT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.	BDC/303
   	00217	0 50000 0 00476	242	CCHOUT	CLA	PACK SET STORING ADDRESS	BDC/304

2. Reference

   00143

   1 00000 0 00217

   150

   CX1

   TXI

   CCHOUT,0,** HOLLERITH FIELD OUTPUT.

   BDC/222

CCIOUT = 138

1. Definition

   			227			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/289
   			228				BDC/290
   			229			CCIOUT/ USES=LINE(SCAN).	BDC/291
   			230			CCIOUT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.	BDC/292
   	00212	0 50000 0 00362	231	CCIOUT	CLA	IAD PICKUP INTG, AND	BDC/293

2. Reference

   D

   00142

   1 00000 0 00212

   149

   TXI

   CCIOUT,0 DECIMAL OUTPUT.

   BDC/221

CCLPAR = 57

1. Definition

   			99			CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.	BDC/169
   	00071	−0 63400 1 00137	100	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER C0UNT,	BDC/170

2. Reference

   00133

   1 00000 0 00071

   142

   AX1

   TXI

   CCLPAR,0,** BEGIN FORMAT OR GROUP.

   BDC/214

CCRPAR = 119

1. Definition

   			196			END OF PROGRAM CCSCFM.	BDC/259
   			197			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/260
   			198				BDC/261
   			199			CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).	BDC/262
   			200			CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.	BDC/263
   	00167	0 07400 4 00275	201	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/264

2. Reference

   00140

   1 00000 0 00167

   147

   BX2

   TXI

   CCRPAR,0,** END FORMAT OR GROUP.

   BDC/219

CCSCFM = 117

1. Definition

   			189			END OF PROGRAM CCSCFP.	BDC/252
   			190			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/253
   			191				BDC/254
   			192			CCSCFM/ USES=LINE(SCAN).	BDC/255
   			193			CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.	BDC/256
   	00165	0 50200 0 77745	194	CCSCFM	CLS	INT SET INT MINUS, AND	BDC/257

2. Reference

   00137

   1 00000 0 00165

   146

   BX1

   TXI

   CCSCFM,0,** SCALE FACTOR MINUS.

   BDC/218

CCSCFP = 114

1. Definition

   			181			END OF PROGRAM CCSLSH.	BDC/244
   			182			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/245
   			183				BDC/246
   			184			CCSCFP/ USES=LINE(SCAN).	BDC/247
   			185			CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.	BDC/248
   	00162	0 50000 0 77745	186	CCSCFP	CLA	INT PICKUP AND	BDC/249

2. Reference

   D

   00136

   1 00000 0 00162

   145

   TXI

   CCSCFP,0 SCALE FACTOR PLUS.

   BDC/217

CCSLSH = 111

1. Definition

   			173			END OF PROGRAM CCCMMA.	BDC/236
   			174			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/237
   			175				BDC/238
   			176			CCSLSH/ CALLS=FIELD,FILLW. USES=CCCMMA.	BDC/239
   			177			CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.	BDC/240
   	00157	0 07400 4 00275	178	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/241

2. Reference

   00135

   1 00000 0 00157

   144

   AX4

   TXI

   CCSLSH,0,** END LINE OR RECORD.

   BDC/216

CCTEST = 375

1. Definition

   00567

   517

   CCTEST

   BSS

   0 INDEXING ADDRESS FOR ABOVE LIST.

   BDC/578

2. Reference

   00125

   0 34000 4 00567

   132

   SCAN7

   CAS

   CCTEST,4 SCAN LIST OF CONTROL CHARACTERS,

   BDC/202

COMMON = 32618

1. Definition

   77552

   586

   COMMON

   ORG

   −150 COMMON WORKING STORAGE=

   BDC/645

2. Reference

   00001

   0 00000 0 77552

   15

   PZE

   COMMON

   BDC/C04

GROUPX = 188

1. Definition

   00274

   1 00000 0 00077

   303

   GROUPX

   TXI

   SCAN,0,** * GO RESCAN THIS GR0UP.

   BDC/367

2. References (2)

   	00076	−0 63400 4 00274	105		SXD	GROUPX,4 AND SAVE FOR POSSIBLE RESCAN.	BDC/175
   	00267	−0 53400 4 00274	297		LXD	GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TO	BDC/361

RESCAN = 179

1. Definition

   			289			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/351
   			290				BDC/352
   			291			RESCAN/ CALLS=FILLW. USES=LINE(SCAN).	BDC/353
   			292			RESCAN = ENTRY POINT USED BY PRINT.	BDC/354
   	00263	−0 63400 4 00135	293	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	BDC/357

2. Reference

   00312

   0 07400 4 00263

   329

   TSX

   RESCAN,4 * GO RESCAN FORMAT. THEN RETURN,

   BDC/3921

RESUME = 107

1. Definition

   			168			RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR.	BDC/231
   	00153	−0 53400 1 00143	169	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER.COUNT,	BDC/232

2. References (2)

   D	00161	1 00000 0 00153	180		TXI	RESUME,0 * GO RESUME SCAN.	BDC/243
   	00171	−2 00001 4 00153	203		TNX	RESUME,4,1 * GO RESUME SCAN, UNLESS	BDC/266

XPRINT = 201

1. Definition

   			322			END OF PROGRAM FIELD.	BDC/386
   			323			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/387
   			324				BDC/388
   			325			PRINT,4/ USES=FIELD,LINE. CALLERS=(BDC),LINE(RESCAN).	BDC/389
   			326			PRINT DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.	BDC/390
   			327			XPRINT = EXIT FROM PRINT WHEN FORMAT IS EXHAUSTED.	BDC/391
   	00311	−0 63400 4 00317	328	XPRINT	SXD	CNVSW,4 SAVE THE C(XR4), AND	BDC/392

2. Reference

   00121

   −0 75400 0 00311

   127

   SCAN5

   PXD

   XPRINT,0 CLEAR THE AC, AND UPDATE COUNT.

   BDC/197