Symbols

␣␣␣␣␣( = 395

Definition
00613 000000000074 532 ( BCD 100000( CCTEST-11. DBC/502

␣␣␣␣␣) = 400

Definition
00620 000000000034 537 ) BCD 100000) CCTEST-6. DBC/507

␣␣␣␣␣D = 32744

Definition
77750 621 D BSS 1 VARIABLE USED BY DBC. DBC/590

References (7)

00327	0 60100 0 77750	347	STO	D	DBC/318
00470	0 60100 0 77750	444	STO	D	DBC/415
00526	0 50000 0 77750	474	CLA	D	DBC/445
00532	0 40200 0 77750	478	SUB	D	DBC/449
00535	0 60100 0 77750	481	STO	D	DBC/452
00552	0 53400 4 77750	494	LXA	D,4	DBC/465
00554	0 56000 0 77750	496	LDQ	D	DBC/467

␣␣␣␣␣E = 32740

Definition
77744 617 E BSS 1 VARIABLE USED BY DBC. DBC/586

References (6)

00331	0 60100 0 77744	349		STO	E	DBC/320
00420	0 60100 0 77744	404		STO	E	DBC/375
00441	0 50000 0 77744	421		CLA	E	DBC/392
00443	0 40000 0 77744	423		ADD	E	DBC/394
00446	0 60100 0 77744	426		STO	E	DBC/397
00533	0 40000 0 77744	479	ADE	ADD	E	DBC/450

␣␣␣␣␣F = 32741

Definition
77745 618 F BSS 1 VARIABLE USED BY DBC. DBC/587

References (6)

00543	0 60100 0 77745	487		STO	F	DBC/458
00546	0 30000 0 77745	490		FAD	F	DBC/461
00560	−0 60000 0 77745	500		STQ	F	DBC/471
00561	0 50000 0 77745	501		CLA	F	DBC/472
00566	0 60100 0 77745	506	T4	STO	F	DBC/477
00570	0 56000 0 77745	508		LDQ	F	DBC/479

␣␣␣␣␣H = 403

Definition
00623 000000000030 540 H BCD 100000H CCTEST-3. DBC/510

␣␣␣␣␣I = 402

Definition
00622 000000000031 539 I BCD 100000I CCTEST-4. DBC/509

␣␣␣␣␣N = 32739

Definition
77743 616 N BSS 1 VARIABLE USED BY DBC. DBC/585

References (6)

00323	0 60100 0 77743	343		STO	N	DBC/314
00510	0 50000 0 77743	460		CLA	N	DBC/431
00512	0 40000 0 77743	462		ADD	N	DBC/433
00516	0 60100 0 77743	466	D9	STO	N	DBC/437
00520	0 50000 0 77743	468	D6	CLA	N	DBC/439
00536	0 50000 0 77743	482		CLA	N	DBC/453

␣␣␣␣␣P = 398

Definition
00616 000000000047 535 P BCD 100000P CCTEST-8. DBC/505

␣␣␣␣␣U = 32742

Definition
77746 619 U BSS 1 IARIABLE USED BY DBC. DBC/588

References (3)

00454	−0 63400 4 77746	432	C5L	SXD	U,4	DBC/403
00467	0 60100 0 77746	443		STO	U	DBC/414
00530	0 50000 0 77746	476		CLA	U	DBC/447

␣␣␣␣␣V = 32743

Definition
77747 620 V BSS 1 VARIABLE USED BY DBC. DBC/589

References (4)

00324	0 60200 0 77747	344		SLW	V	DBC/315
00472	0 50000 0 77747	446	D4	CLA	V	DBC/417
00474	0 60100 0 77747	448		STO	V	DBC/419
00534	0 40000 0 77747	480		ADD	V	DBC/451

␣␣␣␣D1 = 322

Definition
00502 −0 75400 0 00000 454 D1 PXD ,0 DBC/425
Reference
00476 2 00001 1 00502 450 D5 TIX D1,1,1 DBC/421

␣␣␣␣D2 = 320

Definition
00500 0 53400 1 00503 452 D2 LXA D3,1 DBC/423
Reference
00477 1 77777 2 00500 451 TXI D2,2,−1 DBC/422

␣␣␣␣D3 = 323

Definition
00503 −0 76300 0 00006 455 D3 LGL 6 DBC/426
Reference
00500 0 53400 1 00503 452 D2 LXA D3,1 DBC/423

␣␣␣␣D4 = 314

Definition
00472 0 50000 0 77747 446 D4 CLA V DBC/417
Reference
00515 0 14000 0 00472 465 TOV D4 DBC/436

␣␣␣␣D5 = 318

Definition
00476 2 00001 1 00502 450 D5 TIX D1,1,1 DBC/421
Reference
00517 2 00001 4 00476 467 D8 TIX D5,4,1 DBC/438

␣␣␣␣D6 = 336

Definition
00520 0 50000 0 77743 468 D6 CLA N DBC/439

References (5)

	00345	−3 00000 4 00520	361	TXL	D6,4,0	DBC/332
D	00370	1 00000 0 00520	380	TXI	D6,0	DBC/351
	00421	−2 00001 4 00520	405	TNX	D6,4,1	DBC/376
D	00450	1 00000 0 00520	428	TXI	D6,0	DBC/399
	00475	−2 00001 4 00520	449	TNX	D6,4,1	DBC/420

␣␣␣␣D7 = 326

Definition
00506 −0 75400 0 00000 458 D7 PXD ,0 DBC/429
Reference
D 00453 1 00000 0 00506 431 TXI D7,0 DBC/402

␣␣␣␣D8 = 335

Definition
00517 2 00001 4 00476 467 D8 TIX D5,4,1 DBC/438
Reference
00471 1 00001 4 00517 445 TXI D8,4,1 DBC/416

␣␣␣␣D9 = 334

Definition
00516 0 60100 0 77743 466 D9 STO N DBC/437
Reference
D 00366 1 00000 0 00516 378 TXI D9,0 DBC/349

␣␣␣␣DG = 32738

Definition
77742 615 DG BSS 1 VARIABLE USED BY DBC. DBC/584

References (6)

00325	0 60200 0 77742	345	SLW	DG	DBC/316
00365	0 60100 0 77742	377	STO	DG	DBC/348
00440	0 60100 0 77742	420	STO	DG	DBC/391
00445	0 36100 0 77742	425	ACL	DG	DBC/396
00507	0 62100 0 77742	459	STA	DG	DBC/430
00514	0 40000 0 77742	464	ADD	DG	DBC/435

␣␣␣␣E1 = 249

Definition
00371 −2 00001 4 00417 381 E1 TNX E5,4,1 DBC/352

References (2)

D	00402	1 00000 0 00371	390		TXI	E1,0	DBC/361
D	00463	1 00000 0 00371	439		TXI	E1,0	DBC/410

␣␣␣␣E2 = 254

Definition
00376 −0 75400 0 00000 386 E2 PXD ,0 DBC/357
Reference
00372 2 00001 1 00376 382 TIX E2,1,1 DBC/353

␣␣␣␣E3 = 252

Definition
00374 −0 53400 1 00061 384 E3 LXD SIX,1 DBC/355
Reference
00373 1 77777 2 00374 383 TXI E3,2,−1 DBC/354

␣␣␣␣E4 = 268

Definition
00414 0 50000 0 00634 400 E4 CLA MZE DBC/371
Reference
D 00406 1 00000 0 00414 394 TXI E4,0 DBC/365

␣␣␣␣E5 = 271

Definition
00417 −0 75400 0 00000 403 E5 PXD ,0 DBC/374

References (2)

	00371	−2 00001 4 00417	381	E1	TNX	E5,4,1	DBC/352
D	00411	1 00000 0 00417	397		TXI	E5,0	DBC/368

␣␣␣␣E6 = 280

Definition
00430 −0 75400 0 00000 412 E6 PXD ,0 DBC/383
Reference
00422 2 00001 1 00430 406 E9 TIX E6,1,1 DBC/377

␣␣␣␣E7 = 278

Definition
00426 −0 53400 1 00061 410 E7 LXD SIX,1 DBC/381
Reference
00423 1 77777 2 00426 407 TXI E7,2,−1 DBC/378

␣␣␣␣E8 = 287

Definition
00437 −0 75400 0 00000 419 E8 PXD ,0 DBC/390
Reference
D 00434 1 00000 0 00437 416 TXI E8,0 DBC/387

␣␣␣␣E9 = 274

Definition
00422 2 00001 1 00430 406 E9 TIX E6,1,1 DBC/377
Reference
00447 2 00001 4 00422 427 TIX E9,4,1 DBC/398

␣␣␣␣ER = 276

Definition
00424 3 00000 4 00452 408 ER TXH STOP4,4,** DBC/379

References (5)

	00403	−0 63400 4 00424	391	SXD	ER,4	DBC/362
D	00405	1 00000 0 00424	393	TXI	ER,0	DBC/364
D	00410	1 00000 0 00424	396	TXI	ER,0	DBC/367
D	00413	1 00000 0 00424	399	TXI	ER,0	DBC/370
	00455	0 62200 0 00424	433	STD	ER	DBC/404

␣␣␣␣F1 = 227

Definition
00343 −0 75400 0 00000 359 F1 PXD ,0 DBC/330
Reference
00337 2 00001 1 00343 355 F6 TIX F1,1,1 DBC/326

␣␣␣␣F2 = 225

Definition
00341 −0 53400 1 00061 357 F2 LXD SIX,1 DBC/328
Reference
00340 1 77777 2 00341 356 TXI F2,2,−1 DBC/327

␣␣␣␣F3 = 247

Definition
00367 2 00001 4 00337 379 F3 TIX F6,4,1 DBC/350
Reference
00350 1 00000 0 00367 364 DX2 TXI F3,0,** DBC/335

␣␣␣␣F4 = 241

Definition
00361 0 50000 0 00634 373 F4 CLA MZE DBC/344
Reference
D 00353 1 00000 0 00361 367 TXI F4,0 DBC/338

␣␣␣␣F5 = 244

Definition
00364 −0 75400 0 00000 376 F5 PXD ,0 DBC/347
Reference
D 00356 1 00000 0 00364 370 TXI F5,0 DBC/34I

␣␣␣␣F6 = 223

Definition
00337 2 00001 1 00343 355 F6 TIX F1,1,1 DBC/326

References (2)

	00336	−0 14000 0 00337	354		TNO	F6	DBC/325
	00367	2 00001 4 00337	379	F3	TIX	F6,4,1	DBC/350

␣␣␣␣K1 = 413

Definition
00635 +233000000000 551 K1 DEC 155B8 CONSTANT USED BY DBC. DBC/520

References (2)

	00537	0 62100 0 00635	483		STA	K1	DBC/454
	00545	−0 50100 0 00635	489		ORA	K1	DBC/460

␣␣␣␣K2 = 414

Definition
00636 +252000000000 552 K2 DEC 170B8 CONSTANT USED BY DBC. DBC/521

References (2)

	00541	−0 50100 0 00636	485		ORA	K2	DBC/456
	00542	0 30000 0 00636	486		FAD	K2	DBC/457

␣␣␣␣K3 = 415

Definition
00637 +000400000000 553 K3 DEC 1B9 CONSTANT USED BY DBC. DBC/522
Reference
00551 −0 50100 0 00637 493 ORA K3 DBC/464

␣␣␣␣K4 = 416

Definition
00640 +335000000000 554 K4 DEC 221B8 CONSTANT USED BY DBC. DBC/523
Reference
00562 0 36100 0 00640 502 ACL K4 DBC/473

␣␣␣␣K5 = 417

Definition
00641 +043000000000 555 K5 DEC 35B8 CONSTANT USED BY DBC. DBC/524
Reference
00572 0 36100 0 00641 510 ACL K5 DBC/481

␣␣␣␣MQ = 32732

Definition
77734 609 MQ BSS 1 VARIABLE USED BY DBC. DBC/578

References (5)

00135	0 56000 0 77734	149		LDQ	MQ CURRENT FORMAT WORD. THEN	DBC/121
00164	−0 60000 0 77734	198	DCPT3	STQ	MQ RESTORE THE	DBC/169
00167	0 56000 0 77734	201		LDQ	MQ GO COMPARE CHARACTER	DBC/172
00241	−0 60000 0 77734	254		STQ	MQ AND SAVE THE C(MQ).	DBC/225
00271	−0 60000 0 77734	300		STQ	MQ THE CURRENT FORMAT WORD.	DBC/273

␣␣␣␣ND = 32737

Definition
77741 614 ND BSS 1 VARIABLE USED BY DBC. DBC/563

␣␣␣␣T1 = 384

Definition
00600 0 76700 0 00022 516 T1 ALS 18 DBC/487
Reference
D 00524 −3 00000 0 00600 472 FIXSW TXL T1,0 DBC/443

␣␣␣␣T2 = 385

Definition
00601 −0 53400 4 00604 517 T2 LXD COUNT,4 UPDATE FIELD COUNT, AND DBC/488

References (5)

	00525	0 10000 0 00601	473	TZE	T2	DBC/444
	00553	−3 00000 4 00601	495	TXL	T2,4,0	DBC/466
D	00565	1 00000 0 00601	505	TXI	T2,0	DBC/476
D	00574	1 00000 0 00601	512	TXI	T2,0	DBC/483
D	00577	1 00000 0 00601	515	TXI	T2,0	DBC/486

␣␣␣␣T3 = 381

Definition
00575 0 76000 0 00000 513 T3 CLM DBC/484
Reference
00567 3 00061 4 00575 507 TXH T3,4,49 DBC/478

␣␣␣␣T4 = 374

Definition
00566 0 60100 0 77745 506 T4 STO F DBC/477
Reference
00555 0 16200 0 00566 497 TQP T4 DBC/468

␣␣␣␣T5 = 372

Definition
00564 0 76000 0 00000 504 T5 CLM DBC/475
Reference
00556 3 00061 4 00564 498 TXH T5,4,49 DBC/469

␣␣␣ADE = 347

Definition
00533 0 40000 0 77744 479 ADE ADD E DBC/450
Reference
00527 −0 12000 0 00533 475 TMI ADE DBC/446

␣␣␣AX1 = 76

Definition
00114 1 00000 0 00052 121 AX1 TXI CCLPAR,0,** BEGIN FORMAT OR GROUP. DBC/101

References (3)

00037	−0 63400 1 00114	67	SXD	AX1,1 SAVE THE ORIGINAL C(XR1), AND	DBC/046
00317	−0 63400 1 00114	338	SXD	AX1,1 SAVE THE ORIGINAL C(XR1),	DBC/309
00607	−0 53400 1 00114	524	LXD	AX1,1 RESTORE THE ORIGINAL C(XR1),	DBC/495

␣␣␣AX2 = 77

Definition
00115 1 00000 0 00132 122 AX2 TXI CCCMMA,0,** END FIELD. DBC/102

References (3)

00040	−0 63400 2 00115	68	SXD	AX2,2 SAVE THE ORIGINAL C(XR2).	DBC/047
00320	−0 63400 2 00115	339	SXD	AX2,2 SAVE THE ORIGINAL C(XR2), AND	DBC/310
00610	−0 53400 2 00115	525	LXD	AX2,2 RESTORE THE ORIGINAL C(XR2I, AND	DBC/496

␣␣␣AX4 = 78

Definition
00116 1 00000 0 00137 123 AX4 TXI CCSLSH,0,** END LINE OR RECORD. DBC/103

References (4)

00036	−0 63400 4 00116	66	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/045
00256	−0 63400 4 00116	283	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	DBC/256
00316	−0 63400 4 00116	337	READ	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	DBC/308
00606	−0 53400 4 00116	523	LIST	LXD	AX4,4 SET XR4 FOR INDICATED RETURN,	DBC/494

␣␣␣BCD = 32745

Definition
77751 622 BCD BSS 14 VARIABLE USED BY DBC. DBC/591

References (6)

00214	0 56000 2 77751	233	HNPT3	LDQ	BCD,2 PICKUP NEXT INPUT WORD.	DBC/204
00305	0 77777 0 77751	319		PZE	BCD,,−1 (INPUT BUFFER)	DBC/292
00342	0 56000 2 77751	358		LDQ	BCD,2	DBC/329
00375	0 56000 2 77751	385		LDQ	BCD,2	DBC/356
00427	0 56000 2 77751	411		LDQ	BCD,2	DBC/382
00501	0 56000 2 77751	453		LDQ	BCD,2	DBC/424

␣␣␣BX1 = 80

Definition
00120 1 00000 0 00145 125 BX1 TXI CCSCFM,0,** SCALE FACTOR MINUS. DBC/105

References (2)

	00052	−0 63400 1 00120	79	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER COUNT,	DBC/058
	00262	−0 53400 1 00120	288		LXD	BX1,1 RESET CHARACTER COUNT,	DBC/261

␣␣␣BX2 = 81

Definition
00121 1 00000 0 00147 126 BX2 TXI CCRPAR,0,** END FORMAT OR GROUP. DBC/106

References (2)

	00053	−0 63400 2 00121	80		SXD	BX2,2 SCAN POSITION, AND FORMAT WORD,	DBC/059
	00263	−0 53400 2 00121	289		LXD	BX2,2 RESET SCAN POSITION, AND	DBC/262

␣␣␣BX4 = 82

Definition
00122 1 00000 0 00153 127 BX4 TXI CCDCPT,0,** ROUNDING OF INPUT NUMBER. DBC/107

References (3)

00056	−0 63400 4 00122	83		SXD	BX4,4 INDICATED NUMBER OF REPETITIONS,	DBC/062
00150	−0 53400 4 00122	180		LXD	BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND	DBC/152
00261	−0 63400 4 00122	287	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	DBC/260

␣␣␣C1L = 297

Definition
00451 0 34000 0 00631 429 C1L CAS BLANK DBC/400
Reference
D 00505 1 00000 0 00451 457 TXI C1L,0 DBC/428

␣␣␣C2L = 260

Definition
00404 0 34000 0 00617 392 C2L CAS MINUS DBC/363
Reference
D 00457 1 00000 0 00404 435 TXI C2L,0 DBC/406

␣␣␣C3L = 309

Definition
00465 −0 75400 4 00000 441 C3L PXD ,4 DBC/412
Reference
00460 1 77777 4 00465 436 TXI C3L,4,−1 DBC/407

␣␣␣C4L = 263

Definition
00407 0 34000 0 00632 395 C4L CAS PLUS DBC/366
Reference
D 00464 1 00000 0 00407 440 TXI C4L,0 DBC/411

␣␣␣C5L = 300

Definition
00454 −0 63400 4 77746 432 C5L SXD U,4 DBC/403
Reference
D 00355 1 00000 0 00454 369 TXI C5L,0 DBC/340

␣␣␣CX1 = 84

Definition
00124 1 00000 0 00177 129 CX1 TXI CCHNPT,0,** HOLLERITH FIELD INPUT. DBC/109

References (6)

00133	−0 53400 1 00124	147	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER COUNT,	DBC/119
00205	−0 63400 1 00124	226		SXD	CX1,1 FORMAT WORD, SAVE FOR-CHAR COUNT,	DBC/197
00210	−0 53400 1 00124	229		LXD	CX1,1 RESTORE FOR-CHAR COUNT, AN0	DBC/200
00233	−0 63400 1 00124	248		SXD	CX1,1 INPUT, AND SAVE FOR-CHAR COUNT.	DBC/219
00242	−0 53400 1 00124	255		LXD	CX1,1 RESTORE FORMAT CHARACTER COUNT.	DBC/226
00267	−0 63400 1 00124	298		SXD	CX1,1 SAVE THE CHARACTER COUNT,	DBC/271

␣␣␣CX2 = 85

Definition
00125 1 00000 0 00250 130 CX2 TXI CCFNPT,0,** FIXED POINT INPUT. DBC/110

References (6)

00134	−0 53400 2 00125	148		LXD	CX2,2 RESTORE SCAN POSITION, AND	DBC/120
00201	−0 63400 2 00125	222		SXD	CX2,2 SAVE FORMAT SCAN POSITION.	DBC/193
00222	−0 53400 1 00125	239	HNPT5	LXD	CX2,1 SET XR1 = CURRENT FOR-SCAN POSITION	DBC/210
00225	−0 63400 1 00125	242	HNPT6	SXD	CX2,1 POSITION, AND SAVE IT.	DBC/213
00231	−0 53400 2 00125	246		LXD	CX2,2 SAVE INPUT CHAR COUNT, AND SET XR2	DBC/217
00270	−0 63400 2 00125	299		SXD	CX2,2 THE SCAN POSITION, AND	DBC/272

␣␣␣CX4 = 86

Definition
00126 1 00000 0 00254 131 CX4 TXI CCENPT,0,** FLOATING POINT INPUT. DBC/111

References (2)

	00266	−0 63400 4 00126	297	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/270
	00300	−0 53400 4 00126	309	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	DBC/282

␣␣␣DIG = 32730

Definition
77732 607 DIG BSS 1 VARIABLE USED BY DBC. DBC/576

References (5)

00073	0 60100 0 77732	97	STO	DIG CONVERT	DBC/076
00100	0 36100 0 77732	102	ACL	DIG T0 SET INT= SCALE FACTOR,	DBC/081
00155	0 60000 0 77732	190	STZ	DIG CLEAR DIG, AND	DBC/1615
00162	0 60100 0 77732	196	STO	DIG IN FRACTION.	DBC/167
00326	0 50200 0 77732	346	CLS	DIG	DBC/317

␣␣␣DTR = 121

Definition
203 END OF PROGRAM CCDCPT. DBC/174

D 00171 1 00000 0 00157 204 DTR TXI DCPT1,0 * INSTRUCTION CONSTANT. DBC/175
Reference
00153 0 50000 0 00171 188 CCDCPT CLA DTR MODIFY SCAN INSTRUCTION DBC/160

␣␣␣DX1 = 231

Definition
00347 1 00000 0 00363 363 DX1 TXI STOP1,0,** DBC/334

References (5)

00203	−0 53400 2 00347	224		LXD	DX1,2 SET XR2 = INPUT CHARACTER COUNT.	DBC/195
00230	−0 63400 2 00347	245	HNPT7	SXD	DX1,2 WHEN FIELD CONTR0L IS EXHAUSTED,	DBC/216
00310	0 62200 0 00347	324		STD	DX1 INPUT CHARACTER COUNT AND	DBC/297
00334	−0 53400 1 00347	352		LXD	DX1,1	DBC/323
00522	−0 63400 1 00347	470		SXD	DX1,1	DBC/441

␣␣␣DX2 = 232

Definition
00350 1 00000 0 00367 364 DX2 TXI F3,0,** DBC/335

References (5)

00212	−0 53400 2 00350	231	LXD	DX2,2 SET XR2 = INPUT WORD COUNT,	DBC/202
00215	−0 63400 2 00350	234	SXD	DX2,2 THEN SAVE INPUT WORD COUNT,	DBC/205
00311	0 62200 0 00350	325	STD	DX2 INPUT WORD COUNT TO ONE. THEN	DBC/298
00335	−0 53400 2 00350	353	LXD	DX2,2	DBC/324
00523	−0 63400 2 00350	471	SXD	DX2,2	DBC/442

␣␣␣EOF = 194

Definition

		311			END OF PROGRAM FIELD.	DBC/284
		312			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/285
		313				DBC/286
		314			RBCD,2/ CALLS=(CSH),(TSH). CALLERS=LINE,CCSLSH,=ESCAN.	DBC/287
		315			RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER.	DBC/288
00302	0 42000 1 00000	316	EOF	HPR	0,1 EOF HALT / PRESS START TO REPEAT.	DBC/289

Reference
00306 1 00001 0 00302 321 DCR1 TXI EOF,0,1 GO TO END-OF-FILE STOP. DBC/294

␣␣␣EXP = 32736

Definition
77740 613 EXP BSS 1 VARIABLE USED BY DBC. DBC/582

References (2)

	00251	0 60100 0 77740	268	SETXP	STO	EXP SET EXPONENT.	DBC/239
	00330	0 50000 0 77740	348		CLA	EXP	DBC/319

␣␣␣FCC = 404

Definition
00624 000000000026 541 FCC BCD 100000F CCTEST-2. DBC/511

␣␣␣FX4 = 13

Definition
00015 1 00000 0 00000 41 FX4 TXI **,0,** * TRANSFER CONTROL TO MAIN PROGRAM. DBC/020

References (5)

00006	0 62100 0 00015	34	STA	FX4 TO MAIN PROGRAM.	DBC/013
00010	−0 63400 4 00015	36	SXD	FX4,4 FOR SCAN.	DBC/015
00012	−0 53400 4 00015	38	LXD	FX4,4 WHEN DONE, RESTORE C(XR4).	DBC/017
00030	−0 63400 4 00015	55	SXD	FX4,4 SAVE THE C(XR4), AND	DBC/034
00032	−0 53400 4 00015	57	LXD	FX4,4 RESTORE THE C(XR4).	DBC/036

␣␣␣INT = 32729

Definition
77731 606 INT BSS 1 VARIABLE USED BY DBC. DBC/575

References (12)

00044	0 60000 0 77731	72		STZ	INT SET INT = 0.	DBC/051
00055	0 53400 4 77731	82		LXA	INT,4 SET GROUP CONTROL COUNT FOR THE	DBC/061
00060	0 60000 0 77731	86	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	DBC/065
00074	0 50000 0 77731	98		CLA	INT SUCCESSIVE	DBC/077
00076	0 40000 0 77731	100		ADD	INT 0IGITS	DBC/079
00101	0 60100 0 77731	104	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	DBC/083
00142	0 50000 0 77731	164	CCSCFP	CLA	INT PICKUP AND	DBC/136
00145	0 50200 0 77731	172	CCSCFM	CLS	INT SET INT MINUS, ANO	DBC/144
00174	0 53400 4 77731	212		LXA	INT,4 SET COUNT FOR THE	DBC/183
00177	0 53400 4 77731	220	CCHNPT	LXA	INT,4 SET XR4 = HOLLERITH FIELD WIDTH.	DBC/191
00272	0 53400 4 77731	301		LXA	INT,4 EXAMINE INT, AND	DBC/274
00332	0 53400 4 77731	350		LXA	INT,4	DBC/321

␣␣␣MQD = 32734

Definition
77736 611 MQD BSS 1 VARIABLE USED BY DBC. DBC/580

References (4)

00200	0 56000 0 77736	221	LDQ	MQD PICKUP ANY REMAINING INPUT.	DBC/192
00232	−0 60000 0 77736	247	STQ	MQD T0 SCAN POSITION. SAVE REMA1NING	DBC/218
00333	0 56000 0 77736	351	LDQ	MQD	DBC/322
00521	−0 60000 0 77736	469	STQ	MQD	DBC/440

␣␣␣MQR = 32733

Definition
77735 610 MQR BSS 1 VARIABLE USED BY DBC. DBC/579

References (2)

	00054	−0 60000 0 77735	81		STQ	MQR FOR POSSIBLE REPETITION OF GROUP.	DBC/060
	00264	0 56000 0 77735	290		LDQ	MQR PICKUP 1ST FORMAT WORD OF GROUP.	DBC/263

␣␣␣MZE = 412

Definition
00634 −0 00000 0 00000 550 MZE MZE CONSTANT USED BY DBC. DBC/519

References (3)

00322	0 50000 0 00634	342		CLA	MZE	DBC/313
00361	0 50000 0 00634	373	F4	CLA	MZE	DBC/344
00414	0 50000 0 00634	400	E4	CLA	MZE	DBC/371

␣␣␣NCC = 71

Definition
00107 1 00014 0 00111 112 NCC TXI SCAN8,0,12 AND IF EQUALITY IS FOUND, DBC/091
Reference
00105 −0 53400 4 00107 110 SCAN6 LXD NCC,4 WHEN A NON-NUMERIC IS MET, DBC/089

␣␣␣NEW = 1

Definition

		26			NEW = ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT	DBC/005
		27			ROUTINE TO HANDLE CURRLNT INPUT, AND C(0)= LOCATION OF THE	DBC/006
		28			CURRENT FORMAT STATEMENT).	DBC/007
00001	−0 76000 0 00007	29	NEW	LTM	SET RBCD TO CALL THE INDICATED	DBC/008

Reference
00000 0 02100 0 00001 25 (DBC) TTR NEW INSTRUCTI0N EXECUTED IN LOCATION 1. DBC/004

␣␣␣ONE = 406

Definition
00626 +000000000001 544 ONE DEC 1 CONSTANT USED BY DBC. DBC/514

References (3)

00005	0 40000 0 00626	33	ADD	ONE SET EXIT	DBC/012
00022	0 40000 0 00626	49	ADD	ONE SET LOCATION FOR	DBC/028
00473	0 40000 0 00626	447	ADD	ONE	DBC/418

␣␣␣OUT = 29

Definition
00035 0 02100 0 00000 60 OUT TTR ** * UNDER CONTROL OF THE MAIN PROGRAM. DBC/039
Reference
00023 0 62100 0 00035 50 STA OUT RETURN TO MAIN PROGRAM. DBC/029

␣␣␣PEX = 32735

Definition
77737 612 PEX BSS 1 VARIABLE USED BY DBC. DBC/581

References (3)

00043	0 60000 0 77737	71		STZ	PEX SET PEX (SCALE FACTOR) = 0, AND	DBC/050
00143	0 60100 0 77737	165		STO	PEX STORE SCALE FACTOR.	DBC/137
00250	0 50200 0 77737	266	CCFNPT	CLS	PEX PICKUP NEGATIVE OF SCALE FACTOR TO	DBC/237

␣␣␣PUT = 27

Definition
00033 0 60100 0 00000 58 PUT STO **,** STORE INPUT NUMBER. DBC/037

References (2)

	00025	0 60100 0 00033	52	STO	STO	PUT AND SET ADDRESS AND TAG OF PUT.	DBC/031
	00027	−0 62000 0 00033	54		SLQ	PUT TO STO.	DBC/033

␣␣␣SIX = 49

Definition
00061 1 00006 0 00102 87 SIX TXI SCAN5,0,6 GO RESUME SCAN. DBC/066

References (6)

00062	−0 53400 1 00061	88	SCAN1	LXD	SIX,1 RESET FORMAT CHARACTER COUNT, AND	DBC/067
00216	−0 53400 2 00061	235		LXD	SIX,2 AND RESET INPUT-CHAR COUNT TO 6.	DBC/206
00226	−0 53400 1 00061	243		LXD	SIX,1 RESET FORMAT CHARACTER COUNT TO 6,	DBC/214
00341	−0 53400 1 00061	357	F2	LXD	SIX,1	DBC/328
00374	−0 53400 1 00061	384	E3	LXD	SIX,1	DBC/355
00426	−0 53400 1 00061	410	E7	LXD	SIX,1	DBC/381

␣␣␣STO = 21

Definition
00025 0 60100 0 00033 52 STO STO PUT AND SET ADDRESS AND TAG OF PUT. DBC/031
Reference
00026 0 56000 0 00025 53 LDQ STO SET PUT OP DBC/032

␣␣␣TAB = 466

Definition
00722 +136400000000 604 TAB OCT 136400000000 00-TABLE USED BY DBC. DBC/573

References (3)

00000	0 00000 0 00723	15	PZE	TAB+1	DBC/C03
00557	0 24100 4 00722	499	FDP	TAB,4	DBC/470
00571	0 26000 4 00722	509	FMP	TAB,4	DBC/480

␣␣␣TEN = 407

Definition
00627 +000000000012 545 TEN DEC 10 CONSTANT USED BY DBC. DBC/515

References (4)

00362	0 34000 0 00627	374	CAS	TEN	DBC/345
00415	0 34000 0 00627	401	CAS	TEN	DBC/372
00435	0 34000 0 00627	417	CAS	TEN	DBC/388
00504	0 34000 0 00627	456	CAS	TEN	DBC/427

␣␣CALL = 7

Definition
00007 −0 50000 0 00000 35 CALL CAL ** OBTAIN FORMAT STATEMENT DBC/014
Reference
00004 0 62100 0 00007 32 STA CALL LOCATI0N. DBC/011

␣␣DCR1 = 198

Definition
320 DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE. DBC/293

00306 1 00001 0 00302 321 DCR1 TXI EOF,0,1 GO TO END-OF-FILE STOP. DBC/294
Reference
00307 −0 50000 0 00306 323 CAL DCR1 FOR CURRENT INPUT, RESET DBC/296

␣␣DONE = 192

Definition
308 DONE = ENTRY POINT USED BY READ. DBC/281

00300 −0 53400 4 00126 309 DONE LXD CX4,4 WHEN DONE, RESTORE THE C(XR4), AND DBC/282

References (2)

	00273	−3 00000 4 00300	302	TXLOP	TXL	DONE,4,0 IF NOT ZERO, THEN	DBC/275
	00604	1 00000 0 00300	520	COUNT	TXI	DONE,0,** * (FIELD REPEAT COUNT)EXAMINE FORMAT.	DBC/491

␣␣L(9) = 408

Definition
00630 0 00000 0 00011 546 L(9) PZE 9 CONSTANT USED BY DBC. DBC/5155

References (2)

	00070	0 34000 0 00630	94	SCAN3	CAS	L(9) IF NOT BLANK, COMPARE WITH NINE,	DBC/073
	00157	0 34000 0 00630	193	DCPT1	CAS	L(9) DETERMINE THE	DBC/164

␣␣LINE = 30

Definition

		61			END OF PROGRAM (DBC).	DBC/040
		62			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/041
		63				DBC/042
		64			LINE,4/ CALLS=RBCD,FIELD. USES=READ. CALLER=(DBC).	DBC/043
		65			LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT.	DBC/044
00036	−0 63400 4 00116	66	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/045

Reference
00011 0 07400 4 00036 37 TSX LINE,4 * GO SCAN FORMAT. DBC/O16

␣␣LIST = 390

Definition
522 LIST = ENTRY POINT USED BY FIELD. DBC/493

00606 −0 53400 4 00116 523 LIST LXD AX4,4 SET XR4 FOR INDICATED RETURN, DBC/494
Reference
D 00277 1 00000 0 00606 307 TXI LIST,0 * GO STORE, AND EXAMINE LIST. DBC/280

␣␣MORE = 389

Definition
00605 −0 63400 4 00604 521 MORE SXD COUNT,4 OTHERWISE, GO EXAMINE LIST. DBC/492
Reference
00602 2 00001 4 00605 518 TIX MORE,4,1 IF EXHAUSTED, THEN DBC/489

␣␣PLUS = 410

Definition
00632 000000000020 548 PLUS BCD 100000+ CONSTANT USED BY DBC. DBC/517

References (2)

	00354	0 34000 0 00632	368		CAS	PLUS	DBC/339
	00407	0 34000 0 00632	395	C4L	CAS	PLUS	DBC/366

␣␣RBCD = 195

Definition
00303 −0 53400 1 00066 317 RBCD LXD UNIT,1 SET XR1 FOR CURRENT UNIT, AND DBC/290

References (3)

00046	0 07400 2 00303	74	TSX	RBCD,2 * GO READ INPUT UNIT RECORD. THEN	DBC/053
00140	0 07400 2 00303	157	TSX	RBCD,2 * WHEN DONE, READ A RECORD, AND	DBC/129
00257	0 07400 2 00303	284	TSX	RBCD,2 * G0 READ A RECORD.	DBC/257

␣␣READ = 206

Definition
336 READ = ENTRY POINT USED BY (DBC). DBC/307

00316 −0 63400 4 00116 337 READ SXD AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST. DBC/308
Reference
00031 0 07400 4 00316 56 TSX READ,4 * GO READ AND CONVERT INPUT. DBC/035

␣␣SCAN = 48

Definition
85 SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN. DBC/064

00060 0 60000 0 77731 86 SCAN STZ INT CLEAR INT WORKING STORAGE, AND DBC/065

References (4)

D	00136	1 00000 0 00060	150		TXI	SCAN,0 * GO RESUME SCAN.	DBC/122
D	00144	1 00000 0 00060	166		TXI	SCAN,0 * GO RESUME SCAN.	DBC/138
D	00176	1 00000 0 00060	214		TXI	SCAN,0 * GO RESUME SCAN.	DBC/185
	00265	1 00000 0 00060	291	GROUPX	TXI	SCAN,0,** * GO RESCAN THIS GROUP.	DBC/264

␣␣SEEK = 15

Definition

		44			SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATI0N OF	DBC/023
		45			THE ADDRESS OF THE NEXT INPUT NUMBERS).	DBC/024
00017	−0 76000 0 00007	46	SEEK	LTM	PICKUP NTR INSTRUCTION, AND	DBC/025

Reference
00016 0 02100 0 00017 43 TRAP TTR SEEK INSTRUCTION EXECUTED IN LOCATION 1. DBC/022

␣␣SETL = 20

Definition
00024 0 50000 0 00000 51 SETL CLA ** PICKUP LOCATION OF INPUT DBC/030
Reference
00021 0 62100 0 00024 48 STA SETL 0F INPUT NUMBERS. DBC/027

␣␣TRAP = 14

Definition
42 THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST. DBC/021

00016 0 02100 0 00017 43 TRAP TTR SEEK INSTRUCTION EXECUTED IN LOCATION 1. DBC/022
Reference
00013 −0 50000 0 00016 39 CAL TRAP SET LOCATION 1 FOR FUTURE DBC/018

␣␣TYPE = 196

Definition
00304 0 07400 4 00000 318 TYPE TSX **,4 * GO TO INDICATED INPUT ROUTINE. DBC/291
Reference
00002 0 62100 0 00304 30 STA TYPE TYPE OF INPUT ROUTINE. DBC/009

␣␣UNIT = 54

Definition
00066 1 00000 0 00070 92 UNIT TXI SCAN3,0,** THEN DBC/071

References (2)

	00042	0 62200 0 00066	70		STD	UNIT UNIT DECREMENT= -(CURRENT UNIT).	DBC/049
	00303	−0 53400 1 00066	317	RBCD	LXD	UNIT,1 SET XR1 FOR CURRENT UNIT, AND	DBC/290

␣(DBC) = 0

Definition

		23			(DBC)/ CALLS=LINE,READ. CALLER=MAIN PROGRAM.	DBC/002
		24			(DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT.	DBC/003
00000	0 02100 0 00001	25	(DBC)	TTR	NEW INSTRUCTI0N EXECUTED IN LOCATION 1.	DBC/004

Reference
00003 0 00000 0 00000 18 PZE (DBC) DBC/C06

␣BLANK = 409

Definition
00631 000000000060 547 BLANK BCD 100000␣ CONSTANT USED BY DBC. DBC/516

References (5)

00065	0 34000 0 00631	91		CAS	BLANK AND IF BLANK,	DBC/070
00346	0 34000 0 00631	362		CAS	BLANK	DBC/333
00400	0 34000 0 00631	388		CAS	BLANK	DBC/359
00432	0 34000 0 00631	414		CAS	BLANK	DBC/385
00451	0 34000 0 00631	429	C1L	CAS	BLANK	DBC/400

␣CNVSW = 209

Definition
00321 −3 00000 0 00313 340 CNVSW TXL XREAD,0,** SWITCH (TXL=TRA, TXH=NOP). DBC/311

References (3)

00275	0 63000 0 00321	305	SETSW	STP	CNVSW SET CONVERSION SWITCH.	DBC/278
00313	−0 63400 4 00321	333	XREAD	SXD	CNVSW,4 SAVE THE C(XR4), AND	DBC/306
00315	−0 53400 4 00321	335		LXD	CNVSW,4 AFTER GETTING FORMAT.	DBC/3062

␣COMMA = 396

Definition
00614 000000000073 533 COMMA BCD 100000, CCTEST-10. DBC/503

␣COUNT = 388

Definition
00604 1 00000 0 00300 520 COUNT TXI DONE,0,** * (FIELD REPEAT COUNT)EXAMINE FORMAT. DBC/491

References (3)

00175	−0 63400 4 00604	213		SXD	COUNT,4 REPETITION OF THIS FIELD, AND	DBC/184
00601	−0 53400 4 00604	517	T2	LXD	COUNT,4 UPDATE FIELD COUNT, AND	DBC/488
00605	−0 63400 4 00604	521	MORE	SXD	COUNT,4 OTHERWISE, GO EXAMINE LIST.	DBC/492

␣DATUM = 32731

Definition
77733 608 DATUM BSS 1 VARIABLE USED BY DBC. DBC/577

References (2)

	00276	0 50000 0 77733	306		CLA	DATUM THEN PICKUP DATUM,	DBC/279
	00603	0 60100 0 77733	519		STO	DATUM SAVE THE CONVERTED FIELD, AND	DBC/490

␣DCPT1 = 111

Definition
192 DCPT1 = REENTRY POINT FROM LINE(SCAN). DBC/163

00157 0 34000 0 00630 193 DCPT1 CAS L(9) DETERMINE THE DBC/164

References (2)

	00165	0 56000 0 00157	199		LDQ	DCPT1 SCAN INSTRUCTION	DBC/170
D	00171	1 00000 0 00157	204	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	DBC/175

␣DCPT3 = 116

Definition
00164 −0 60000 0 77734 198 DCPT3 STQ MQ RESTORE THE DBC/169
Reference
D 00160 1 00000 0 00164 194 TXI DCPT3,0 NUMBER, MODULO TEN, DBC/165

␣ENDMK = 394

Definition

		527			END OF PROGRAM READ.	DBC/498
		528			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/499
		529				DBC/500
		530			CONSTANTS AND WORKING STORAGE USED BY DBC.	DBC/501
00612	+000000000077	531	ENDMK	OCT	77 CCTEST-12.	DBC/5015

␣EXPON = 405

Definition
00625 000000000025 542 EXPON BCD 100000E CCTEST-1. DBC/512
Reference
00461 0 34000 0 00625 437 CAS EXPON DBC/408

␣FIELD = 182

Definition

		292			END OF PROGRAM RESCAN.	DBC/265
		293			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/266
		294				DBC/267
		295			FIELD,4/ USES READ. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.	DBC/268
		296			FIELD CONTROLS THE REPEATED INPUT OF THE CURRENT FIELD.	DBC/269
00266	−0 63400 4 00126	297	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/270

References (4)

00127	0 07400 4 00266	137	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/1143
00132	0 07400 4 00266	145	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/117
00137	0 07400 4 00266	156	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/128
00147	0 07400 4 00266	179	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/151

␣FIXSW = 340

Definition
D 00524 −3 00000 0 00600 472 FIXSW TXL T1,0 DBC/443
Reference
00173 0 63000 0 00524 211 SETFX STP FIXSW FIXED POINT SWITCH. DBC/182

␣FRMTR = 87

Definition
00127 132 FRMTR BSS 0 DBC/112
Reference
00110 0 02000 4 00127 113 TRA FRMTR,4 * TAKE THE INDICATED TRANSFER. DBC/092

␣GROUP = 177

Definition
286 GROUP = ENTRY POINT USED BY CCRPAR. DBC/259

00261 −0 63400 4 00122 287 GROUP SXD BX4,4 UPDATE GROUP CONTROL. DBC/260
Reference
D 00152 1 00000 0 00261 182 TXI GROUP,0 * REPETITION OF GROUP IS INDICATED. DBC/154

␣HNPT1 = 134

Definition
00206 0 77100 0 00006 227 HNPT1 ARS 6 AND SHIFT REMAINDER INTO DBC/198
Reference
00207 2 00001 1 00206 228 TIX HNPT1,1,1 THE MQ. WHEN DONE, DBC/199

␣HNPT2 = 137

Definition
00211 2 00001 2 00217 230 HNPT2 TIX HNPT4,2,1 IF INPUT-CHAR COUNT IS EXHAUSTED, DBC/201

References (2)

	00221	2 00001 1 00211	238		TIX	HNPT2,1,1 CONTROL, AND WHEN DONE,	DBC/209
D	00227	1 00000 0 00211	244		TXI	HNPT2,0 AND REPEAT UNDER FIELD CONTROL.	DBC/215

␣HNPT3 = 140

Definition
00214 0 56000 2 77751 233 HNPT3 LDQ BCD,2 PICKUP NEXT INPUT WORD. DBC/204
Reference
00213 1 77777 2 00214 232 TXI HNPT3,2,−1 UPDATE IT, AND DBC/203

␣HNPT4 = 143

Definition
00217 −0 76300 0 00006 236 HNPT4 LGL 6 FILL OUT THE PARTIAL WORD 1N THE AC DBC/207
Reference
00211 2 00001 2 00217 230 HNPT2 TIX HNPT4,2,1 IF INPUT-CHAR COUNT IS EXHAUSTED, DBC/201

␣HNPT5 = 146

Definition
00222 −0 53400 1 00125 239 HNPT5 LXD CX2,1 SET XR1 = CURRENT FOR-SCAN POSITION DBC/210
Reference
00204 −2 00001 1 00222 225 TNX HNPT5,1,1 IF ANY CHARACTERS REMAIN IN CURRENT DBC/196

␣HNPT6 = 149

Definition
00225 −0 63400 1 00125 242 HNPT6 SXD CX2,1 POSITION, AND SAVE IT. DBC/213
Reference
00224 1 77777 1 00225 241 TXI HNPT6,1,−1 THEN UPDATE FORMAT SCAN DBC/212

␣HNPT7 = 152

Definition
00230 −0 63400 2 00347 245 HNPT7 SXD DX1,2 WHEN FIELD CONTR0L IS EXHAUSTED, DBC/216
Reference
00220 −2 00001 4 00230 237 TNX HNPT7,4,1 WITH NEW INPUT, UPDATING FIELD DBC/208

␣HNPT8 = 158

Definition
00236 −0 77300 0 00006 251 HNPT8 RQL 6 SHIFT THEM INTO POSITION, DBC/222
Reference
00240 −3 00006 1 00236 253 HNPT9 TXL HNPT8,1,6 IN THE MQ, DBC/224

␣HNPT9 = 160

Definition
00240 −3 00006 1 00236 253 HNPT9 TXL HNPT8,1,6 IN THE MQ, DBC/224
Reference
00237 1 00001 1 00240 252 TXI HNPT9,1,1 LEFT-ADJUSTED DBC/223

␣MINUS = 399

Definition
00617 000000000040 536 MINUS BCD 100000- CCTEST-7. DBC/506

References (2)

	00351	0 34000 0 00617	365		CAS	MINUS	DBC/336
	00404	0 34000 0 00617	392	C2L	CAS	MINUS	DBC/363

␣NEGAT = 411

Definition
00633 000000000014 549 NEGAT BCD 100000' CONSTANT USED BY DBC. DBC/518

References (2)

	00357	0 34000 0 00633	371		CAS	NEGAT	DBC/342
	00412	0 34000 0 00633	398		CAS	NEGAT	DBC/369

␣POINT = 401

Definition
00621 000000000033 538 POINT BCD 100000. CCTEST-5. DBC/508
Reference
00456 0 34000 0 00621 434 CAS POINT DBC/405

␣SCAN1 = 50

Definition
00062 −0 53400 1 00061 88 SCAN1 LXD SIX,1 RESET FORMAT CHARACTER COUNT, AND DBC/067
Reference
00104 1 77777 2 00062 108 TXI SCAN1,2,−1 ADJUST SCAN POSITION, AND REPEAT. DBC/087

␣SCAN2 = 52

Definition
00064 −0 76300 0 00006 90 SCAN2 LGL 6 EXAMINE NEXT CHARACTER, DBC/069
Reference
00103 2 00001 1 00064 107 TIX SCAN2,1,1 WHEN N0 CHARACTERS REMAIN, DBC/086

␣SCAN3 = 56

Definition
00070 0 34000 0 00630 94 SCAN3 CAS L(9) IF NOT BLANK, COMPARE WITH NINE, DBC/073

References (3)

00066	1 00000 0 00070	92	UNIT	TXI	SCAN3,0,** THEN	DBC/071
00154	0 60100 0 00070	189		STO	SCAN3 TO TRANSFER INTO DCPT1.	DBC/161
00166	−0 60000 0 00070	200		STQ	SCAN3 T0 ITS ORIGINAL FORM, AND	DBC/171

␣SCAN4 = 65

Definition
103 SCAN4 = ENTRY POINT USED BY CCSCFM. DBC/082

00101 0 60100 0 77731 104 SCAN4 STO INT CURRENT FIELD OR GROUP CONTROL. DBC/083
Reference
D 00146 1 00000 0 00101 173 TXI SCAN4,0 * GO GET SCALE FACTOR. DBC/145

␣SCAN5 = 66

Definition
105 SCAN5 = ENTRY POINT USED BY CCDCPT. DBC/084

00102 −0 75400 0 00000 106 SCAN5 PXD **,0 CLEAR THE AC, AND UPDATE COUNT. DBC/085

References (6)

	00045	0 62100 0 00102	73		STA	SCAN5 SAVE THE C(AC) ADDRESS, AND	DBC/052
	00047	0 53400 2 00102	75		LXA	SCAN5,2 SET XR2= -(CURRENT FORMAT LOC.),AND	DBC/054
	00061	1 00006 0 00102	87	SIX	TXI	SCAN5,0,6 GO RESUME SCAN.	DBC/066
	00067	1 00007 0 00102	93	SEVEN	TXI	SCAN5,0,7 GO EXAMINE NEXT CHARACTER.	DBC/072
D	00156	1 00000 0 00102	191		TXI	SCAN5,0 * GO RESUME SCAN.	DBC/162
D	00163	1 00000 0 00102	197		TXI	SCAN5,0 * WHEN A CONTROL CHARACTER IS MET,	DBC/168

␣SCAN6 = 69

Definition
109 SCAN6 = ENTRY POINT USED BY CCDCPT. DBC/088

00105 −0 53400 4 00107 110 SCAN6 LXD NCC,4 WHEN A NON-NUMERIC IS MET, DBC/089

References (2)

D	00071	1 00000 0 00105	95		TXI	SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST.	DBC/074
D	00170	1 00000 0 00105	202		TXI	SCAN6,0 * WITH CCTEST LIST.	DBC/173

␣SCAN7 = 70

Definition
00106 0 34000 4 00626 111 SCAN7 CAS CCTEST,4 SCAN LIST OF CONTROL CHARACTERS, DBC/090
Reference
00111 2 00001 4 00106 114 SCAN8 TIX SCAN7,4,1 IF NOT FOUNO IN CONTROL LIST, THEN DBC/093

␣SCAN8 = 73

Definition
00111 2 00001 4 00106 114 SCAN8 TIX SCAN7,4,1 IF NOT FOUNO IN CONTROL LIST, THEN DBC/093
Reference
00107 1 00014 0 00111 112 NCC TXI SCAN8,0,12 AND IF EQUALITY IS FOUND, DBC/091

␣SETFX = 123

Definition
210 SETFX = ENTRY POINT USED BY CCFNPT. DBC/181

00173 0 63000 0 00524 211 SETFX STP FIXSW FIXED POINT SWITCH. DBC/182
Reference
D 00253 1 00000 0 00173 270 TXI SETFX,0 * GO SET FIXSW TO NOP. DBC/241

␣SETSW = 189

Definition
304 SETSW = ENTRY POINT USED BY LINE(SCAN8). DBC/277

00275 0 63000 0 00321 305 SETSW STP CNVSW SET CONVERSION SWITCH. DBC/278
Reference
D 00131 1 00000 0 00275 139 TXI SETSW,0 * IF LIST IS NOT EXHAUSTED. DBC/1145

␣SETXP = 169

Definition
267 SETXP = ENTRY POINT USED BY CCENPT. DBC/238

00251 0 60100 0 77740 268 SETXP STO EXP SET EXPONENT. DBC/239
Reference
D 00255 1 00000 0 00251 277 TXI SETXP,0 * GO SET EXPONENT AND FIXSW. DBC/248

␣SEVEN = 55

Definition
00067 1 00007 0 00102 93 SEVEN TXI SCAN5,0,7 GO EXAMINE NEXT CHARACTER. DBC/072
Reference
00050 −0 53400 1 00067 76 LXD SEVEN,1 SET XR1 = 7, AND PICKUP THE DBC/055

␣SLASH = 397

Definition
00615 000000000061 534 SLASH BCD 100000/ CCTEST-9. DBC/504

␣STOP1 = 243

Definition
00363 0 42000 1 00001 375 STOP1 HPR 1,1 DBC/346

References (3)

	00347	1 00000 0 00363	363	DX1	TXI	STOP1,0,**	DBC/334
D	00352	1 00000 0 00363	366		TXI	STOP1,0	DBC/337
D	00360	1 00000 0 00363	372		TXI	STOP1,0	DBC/343

␣STOP2 = 270

Definition
00416 0 42000 1 00002 402 STOP2 HPR 2,1 DBC/373

References (2)

D	00401	1 00000 0 00416	389		TXI	STOP2,0	DBC/360
D	00425	1 00000 0 00416	409		TXI	STOP2,0	DBC/380

␣STOP3 = 286

Definition
00436 0 42000 1 00003 418 STOP3 HPR 3,1 DBC/389
Reference
D 00433 1 00000 0 00436 415 TXI STOP3,0 DBC/386

␣STOP4 = 298

Definition
00452 0 42000 1 00004 430 STOP4 HPR 4,1 DBC/401

References (2)

	00424	3 00000 4 00452	408	ER	TXH	STOP4,4,**	DBC/379
D	00462	1 00000 0 00452	438		TXI	STOP4,0	DBC/409

␣TXLOP = 187

Definition
00273 −3 00000 4 00300 302 TXLOP TXL DONE,4,0 IF NOT ZERO, THEN DBC/275

References (4)

00130	−0 50000 0 00273	138		CAL	TXLOP THEN GO SET CNVSW TO RESCAN FORMAT	DBC/1144
00172	−0 50000 0 00273	209	CCINPT	CAL	TXLOP PICKUP TXLOP, AND	DBC/180
00252	0 50000 0 00273	269		CLA	TXLOP PICKUP TXHOP AND	DBC/240
00274	0 50000 0 00273	303		CLA	TXLOP PICKUP TXHOP TO	DBC/276

␣XREAD = 203

Definition

		327			END OF PROGRAM RBCD.	DBC/300
		328			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/301
		329				DBC/302
		330			REA0,4/ USES=FIELD,LINE. CALLERS=IDBC),LINEIRESCAN).	DBC/303
		331			READ DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.	DBC/304
		332			XREAD = EXIT FROM READ WHEN FORMAT IS EXHAUSTED.	DBC/305
00313	−0 63400 4 00321	333	XREAD	SXD	CNVSW,4 SAVE THE C(XR4), AND	DBC/306

Reference
00321 −3 00000 0 00313 340 CNVSW TXL XREAD,0,** SWITCH (TXL=TRA, TXH=NOP). DBC/311

CCCMMA = 90

Definition

		140			END OF PR0GRAM CCEDMK.	DBC/1146
		141			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/1147
		142				DBC/1148
		143			CCCMMA/ CALLS=FIELD. USES=LINE(SCAN).	DBC/115
		144			CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.	DBC/116
00132	0 07400 4 00266	145	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/117

Reference
00115 1 00000 0 00132 122 AX2 TXI CCCMMA,0,** END FIELD. DBC/102

CCDCPT = 107

Definition

		183			END OF PROGRAM CCRPAR.	DBC/155
		184			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/156
		185				DBC/157
		186			CCDCPT/ USES=LINE(SCAN).	DBC/158
		187			CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.	DBC/159
00153	0 50000 0 00171	188	CCDCPT	CLA	DTR MODIFY SCAN INSTRUCTION	DBC/160

Reference
00122 1 00000 0 00153 127 BX4 TXI CCDCPT,0,** ROUNDING OF INPUT NUMBER. DBC/107

CCEDMK = 87

Definition

		133			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/113
		134				DBC/114
		135			CCEDMK/ CALLS=FIELD. USES=MAIN PROGRAM.	DBC/1141
		136			CCEDMK = ENTRY POINT WHEN AN ENDMK IS MET IN FORMAT SCAN.	DBC/1142
00127	0 07400 4 00266	137	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/1143

Reference
D 00113 1 00000 0 00127 120 TXI CCEDMK,0 END OF FORMAT STATEMENT. DBC/1005

CCENPT = 172

Definition

		271			END OF PROGRAM CCFNPT.	DBC/242
		272			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/243
		273				DBC/244
		274			EOENPT/ USES=CCFNPT.	DBC/245
		275			COENPT,= ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.	DBC/246
00254	−0 75400 0 00000	276	CCENPT	PXD	,0 CLEAR THE AC, AND	DBC/247

Reference
00126 1 00000 0 00254 131 CX4 TXI CCENPT,0,** FLOATING POINT INPUT. DBC/111

CCFNPT = 168

Definition

		261			END OF PROGRAM CCHNPT.	DBC/232
		262			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/233
		263				DBC/234
		264			CCFNPT/ USES=CCINPT.	DBC/235
		265			CCFNPT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.	DBC/236
00250	0 50200 0 77737	266	CCFNPT	CLS	PEX PICKUP NEGATIVE OF SCALE FACTOR TO	DBC/237

Reference
00125 1 00000 0 00250 130 CX2 TXI CCFNPT,0,** FIXED POINT INPUT. DBC/110

CCHNPT = 127

Definition

		215			END OF PROGRAM CCINPT.	DBC/186
		216			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/187
		217				DBC/188
		218			CCHNPT/ USES=CCCMMA.	DBC/189
		219			CCHNPT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.	DBC/190
00177	0 53400 4 77731	220	CCHNPT	LXA	INT,4 SET XR4 = HOLLERITH FIELD WIDTH.	DBC/191

Reference
00124 1 00000 0 00177 129 CX1 TXI CCHNPT,0,** HOLLERITH FIELD INPUT. DBC/109

CCINPT = 122

Definition

		205			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/176
		206				DBC/177
		207			CCINPT/ USES=LINE(SCAN).	DBC/17B
		208			CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.	DBC/179
00172	−0 50000 0 00273	209	CCINPT	CAL	TXLOP PICKUP TXLOP, AND	DBC/180

Reference
D 00123 1 00000 0 00172 128 TXI CCINPT,0 DECIMAL INPUT. DBC/108

CCLPAR = 42

Definition
78 CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN. DBC/057

00052 −0 63400 1 00120 79 CCLPAR SXD BX1,1 SAVE THE CURRENT CHARACTER COUNT, DBC/058
Reference
00114 1 00000 0 00052 121 AX1 TXI CCLPAR,0,** BEGIN FORMAT OR GROUP. DBC/101

CCRPAR = 103

Definition

		174			END OF PROGRAM CCSCFM.	DBC/146
		175			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/147
		176				DBC/148
		177			CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).	DBC/149
		178			CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.	DBC/150
00147	0 07400 4 00266	179	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/151

Reference
00121 1 00000 0 00147 126 BX2 TXI CCRPAR,0,** END FORMAT OR GROUP. DBC/106

CCSCFM = 101

Definition

		167			END OF PROGRAM CCSCFP.	DBC/139
		168			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/140
		169				DBC/141
		170			CCSCFM/ USES=LINE(SCAN).	DBC/142
		171			CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.	DBC/143
00145	0 50200 0 77731	172	CCSCFM	CLS	INT SET INT MINUS, ANO	DBC/144

Reference
00120 1 00000 0 00145 125 BX1 TXI CCSCFM,0,** SCALE FACTOR MINUS. DBC/105

CCSCFP = 98

Definition

		159			END OF PR0GRAM CCSLSH.	DBC/131
		160			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/132
		161				DBC/133
		162			CCSCFP/ USES=LINE(SCAN).	DBC/I34
		163			CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.	DBC/135
00142	0 50000 0 77731	164	CCSCFP	CLA	INT PICKUP AND	DBC/136

Reference
D 00117 1 00000 0 00142 124 TXI CCSCFP,0 SCALE FACTOR PLUS. DBC/104

CCSLSH = 95

Definition

		151			END OF PROGRAM CCCMMA.	DBC/123
		152			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/124
		153				DBC/125
		154			CCSLSH/ CALLS=FIELD,RBCD. USES=CCCMMA.	DBC/126
		155			CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.	DBC/127
00137	0 07400 4 00266	156	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/128

Reference
00116 1 00000 0 00137 123 AX4 TXI CCSLSH,0,** END LINE OR RECORD. DBC/103

CCTEST = 406

Definition
00626 543 CCTEST BSS 0 INDEXING ADDRESS FOR ABOVE LIST. DBC/513
Reference
00106 0 34000 4 00626 111 SCAN7 CAS CCTEST,4 SCAN LIST OF CONTROL CHARACTERS, DBC/090

COMMON = 32729

Definition
77731 605 COMMON ORG −39 DBC/574
Reference
00001 0 00000 0 77731 16 PZE COMMON DBC/C04

GROUPX = 181

Definition
00265 1 00000 0 00060 291 GROUPX TXI SCAN,0,** * GO RESCAN THIS GROUP. DBC/264

References (2)

	00057	−0 63400 4 00265	84		SXD	GROUPX,4 AND SAVE FOR POSSIBLE RESCAN.	DBC/063
	00260	−0 53400 4 00265	285		LXD	GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TO	DBC/258

HNPT10 = 164

Definition
00244 −0 76300 0 00006 257 HNPT10 LGL 6 THE AC, DBC/228
Reference
00245 2 00001 1 00244 258 TIX HNPT10,1,1 UPDATING CHARACTER COUNT. AND DBC/229

HNPT11 = 166

Definition
00246 0 60200 2 77777 259 HNPT11 SLW −1,2 STORE LAST WORD OF FIELD. THEN DBC/230

References (2)

	00234	−3 00001 1 00246	249		TXL	HNPT11,1,1 IF ANY CHARACTERS REMAIN	DBC/220
	00243	−2 00001 1 00246	256		TNX	HNPT11,1,1 SHIFT REMAINDER INTO	DBC/227

RESCAN = 174

Definition

		278			END OF PROGRAM CCENPT.	DBC/249
		279			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/250
		280				DBC/251
		281			RESCAN/ CALLS=RBCD. USES=LINE(SCAN).	DBC/252
		282			RESCAN = ENTRY POINT USED BY READ.	DBC/253
00256	−0 63400 4 00116	283	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	DBC/256

Reference
00314 0 07400 4 00256 334 TSX RESCAN,4 * GO RESCAN FORMAT. THEN RETURN, DBC/3061

RESUME = 91

Definition
146 RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT. DBC/118

00133 −0 53400 1 00124 147 RESUME LXD CX1,1 WHEN DONE, RESTORE CHARACTER COUNT, DBC/119

References (3)

D	00141	1 00000 0 00133	158	TXI	RESUME,0 * GO RESUME SCAN.	DBC/130
	00151	−2 00001 4 00133	181	TNX	RESUME,4,1 * GO RESUME SCAN, UNLESS	DBC/153
D	00247	1 00000 0 00133	260	TXI	RESUME,0 * GO RE9UME SCAN.	DBC/231

			203			END OF PROGRAM CCDCPT.	DBC/174
D	00171	1 00000 0 00157	204	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	DBC/175

			320			DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE.	DBC/293
	00306	1 00001 0 00302	321	DCR1	TXI	EOF,0,1 GO TO END-OF-FILE STOP.	DBC/294

			308			DONE = ENTRY POINT USED BY READ.	DBC/281
	00300	−0 53400 4 00126	309	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	DBC/282

			522			LIST = ENTRY POINT USED BY FIELD.	DBC/493
	00606	−0 53400 4 00116	523	LIST	LXD	AX4,4 SET XR4 FOR INDICATED RETURN,	DBC/494

			336			READ = ENTRY POINT USED BY (DBC).	DBC/307
	00316	−0 63400 4 00116	337	READ	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	DBC/308

			85			SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN.	DBC/064
	00060	0 60000 0 77731	86	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	DBC/065

			42			THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.	DBC/021
	00016	0 02100 0 00017	43	TRAP	TTR	SEEK INSTRUCTION EXECUTED IN LOCATION 1.	DBC/022

			192			DCPT1 = REENTRY POINT FROM LINE(SCAN).	DBC/163
	00157	0 34000 0 00630	193	DCPT1	CAS	L(9) DETERMINE THE	DBC/164

			286			GROUP = ENTRY POINT USED BY CCRPAR.	DBC/259
	00261	−0 63400 4 00122	287	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	DBC/260

			103			SCAN4 = ENTRY POINT USED BY CCSCFM.	DBC/082
	00101	0 60100 0 77731	104	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	DBC/083

			105			SCAN5 = ENTRY POINT USED BY CCDCPT.	DBC/084
	00102	−0 75400 0 00000	106	SCAN5	PXD	**,0 CLEAR THE AC, AND UPDATE COUNT.	DBC/085

			109			SCAN6 = ENTRY POINT USED BY CCDCPT.	DBC/088
	00105	−0 53400 4 00107	110	SCAN6	LXD	NCC,4 WHEN A NON-NUMERIC IS MET,	DBC/089

			210			SETFX = ENTRY POINT USED BY CCFNPT.	DBC/181
	00173	0 63000 0 00524	211	SETFX	STP	FIXSW FIXED POINT SWITCH.	DBC/182

			304			SETSW = ENTRY POINT USED BY LINE(SCAN8).	DBC/277
	00275	0 63000 0 00321	305	SETSW	STP	CNVSW SET CONVERSION SWITCH.	DBC/278

			267			SETXP = ENTRY POINT USED BY CCENPT.	DBC/238
	00251	0 60100 0 77740	268	SETXP	STO	EXP SET EXPONENT.	DBC/239

			78			CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.	DBC/057
	00052	−0 63400 1 00120	79	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER COUNT,	DBC/058

			146			RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT.	DBC/118
	00133	−0 53400 1 00124	147	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER COUNT,	DBC/119