␣␣␣␣A1 = 154
  1. Definition
    142FORM ARG ARRAY INDICATOR TABLE F6A01380
    00232−0 50000 0 01322 143 A1 CALC11 INIT ARG LIST, F6A01390
␣␣␣␣A2 = 159
  1. Definition
    T00237−0 75400 0 00000 148 A2 PXD0 F6A01440
  2. Reference
    00236 0 46000 0 00237 147LDAA2 F6A01430
␣␣␣␣A3 = 167
  1. Definition
    00247 0 50000 0 01350 156 A3 CLAEA1 F6A01520
  2. Reference
    00244 0 10000 0 00247 153TZEA3 F6A01490
␣␣␣␣A4 = 157
  1. Definition
    00235 0 76200 0 00302 146 A4 RDR2 READ SIZE TABLE WORD COUNT. F6A01420
  2. Reference
    00245 2 00001 2 00235 154TIXA4,2,1 F6A01500
␣␣␣␣A5 = 181
  1. Definition
    T00265−0 75400 0 00002 171 A5 PXD2 F6A01660
  2. Reference
    00264 0 46000 0 00265 170LDAA5 F6A01650
␣␣␣␣A6 = 182
  1. Definition
    00266−0 70000 2 06546 172 A6 CADDIM,2 READ SIZ TABLE. F6A01670
  2. Reference
    00270 2 00001 2 00266 174TIXA6,2,1 F6A01690
␣␣␣␣A7 = 192
  1. Definition
    00300 0 50000 0 01324 182 A7 CLAC13 INIT ARIND TABLE. F6A01770
  2. Reference
    00275 0 10000 0 00300 179TZEA7 F6A01740
␣␣␣␣A8 = 179
  1. Definition
    00263 0 76200 0 00302 169 A8 RDR2 F6A01640
  2. Reference
    00276 2 00001 1 00263 180TIXA8,1,1 F6A01750
␣␣␣␣A9 = 197
  1. Definition
    00305 0 53400 2 01350 187 A9 LXAEA1,2 F6A01820
  2. Reference
    00333 0 02000 0 00305 209TRAA9 F6A02040
␣␣␣␣B1 = 226
  1. Definition
    00342−0 63400 1 01352 216 B1 SXDIRIST,1 SAVE TAPE 4 INDEX F6A02110
  2. References (2)
    00260−3 00000 2 00342 166TXLB1,2,0 TEST FOR NO ARRAYS. F6A01610
    00332 0 10000 0 00342 208TZEB1 NO MORE ARGUMENTS. F6A02030
␣␣␣␣B2 = 233
  1. Definition
    00351−0 53400 1 01307 224 B2 LXDC1,1 INIT OP BLOCK. SET XR1=0 F6A02190
  2. Reference
    00347 0 02000 0 00351 222TRAB2 E0F F6A02170
␣␣␣␣B3 = 228
  1. Definition
    00344 0 76200 0 00222 219 B3 RTB2 READY TAPE 2. F6A02140
  2. Reference
    00350 0 02000 0 00344 223TRAB3 EOR F6A02180
␣␣␣␣B4 = 236
  1. Definition
    00354 0 76400 0 00203 227 B4 BST3 F6A02220
  2. Reference
    00370 0 02000 0 00354 239TRAB4 F6A02340
␣␣␣␣B5 = 239
  1. Definition
    00357 0 42000 0 00005 230 B5 HPR5 F6A02250
  2. Reference
    00352 0 53400 4 00357 225 B8 LXAB5,4 READ TAPE 3 F6A02200
␣␣␣␣B6 = 240
  1. Definition
    00360 0 76200 0 00223 231 B6 RTB3 SELECT CIT TAPE. F6A02260
  2. References (2)
    00353 0 02000 0 00360 226TRAB6 F6A02210
    00355 2 00001 4 00360 228TIXB6,4,1 F6A02230
␣␣␣␣B7 = 242
  1. Definition
    00362 0 70000 2 02624 233 B7 CPYCIT−2,2 COPY A RECORD OF CIT TAPE INTO CIT-1,-2, F6A02280
  2. Reference
    00363 1 00001 2 00362 234TXIB7,2,1 F6A02290
␣␣␣␣B8 = 234
  1. Definition
    00352 0 53400 4 00357 225 B8 LXAB5,4 READ TAPE 3 F6A02200
  2. Reference
    00515 3 00515 4 00352 325 B27 TXHB8,4,* TEST END OF TAPE 3 BLOCK. F6A03190
␣␣␣␣B9 = 255
  1. Definition
    00377 0 50000 0 01357 246 B9 CLADELIN IS DELINO ZERO. F6A02410
  2. References (2)
    00374−0 10000 0 00377 243TNZB9 TRANSFER IF RELATIVE COUNT NOT ZERO. F6A02380
    00516 0 02000 0 00377 326TRAB9 F6A03200
␣␣␣␣C1 = 711
  1. Definition
    01307 0 00000 0 00004 703 C1 HTR4 F6A06970
  2. References (15)
    00115−0 53400 5 01307 64LXDC1,5 INITIALIZE TAPE 4 (SETXR1 AND 4=0) F6A00600
    00133−0 53400 1 01307 78 NOVC LXDC1,1 SETXR1=0 F6A00740
    00165 0 40000 0 01307 105ADDC1 F6A01010
    00221 0 56000 0 01307 133 P30 LDQC1 INIT DELETE F6A01290
    00252−0 53400 2 01307 160 A18 LXDC1,2 SET ARRAY IND. TABLE F6A01550
    00351−0 53400 1 01307 224 B2 LXDC1,1 INIT OP BLOCK. SET XR1=0 F6A02190
    00372−0 53400 4 01307 241LXDC1,4 INIT TAPE 3 BLOCK. F6A02360
    00501−0 53400 1 01307 312LXDC1,1 TAPE 2. F6A03070
    00506−0 53400 1 01307 317 B24 LXDC1,1 SET XR1 EQUAL ZERO F6A03120
    00621 0 40000 0 01307 393ADDC1 RA=N,4 F6A03870
    00627−0 53400 2 01307 399LXDC1,2 INIT. IR2 TO ZERO. F6A03930
    01001−0 53400 4 01307 505LXDC1,4 F6A04990
    01220−0 53400 1 01307 648LXDC1,1 F6A06420
    01255−0 53400 1 01307 677LXDC1,1 F6A06710
    01263−0 53400 1 01307 683LXDC1,1 F6A06770
␣␣␣␣C2 = 712
  1. Definition
    01310 0 00000 0 77777 704 C2 HTR−1 F6A06980
  2. References (4)
    00144 0 53400 2 01310 88LXAC2,2 SUB-1,-2,... F6A00840
    00361 0 53400 2 01310 232LXAC2,2 SETXR2=-1 F6A02270
    00770 0 53400 4 01310 496LXAC2,4 SET COUNTER TO -1, TO READ INTO F6A04900
    01140 0 53400 4 01310 600LXAC2,4 INTO SUB-1,-2,--- F6A05940
␣␣␣␣C3 = 714
  1. Definition
    01312 0 00000 0 00003 706 C3 HTR3 F6A07000
  2. Reference
    01413 0 53400 2 01312 771LXAC3,2 F6A07461
␣␣␣␣C4 = 715
  1. Definition
    01313 535360000000 707 C4 BCD1$$␣000 F6A07010
  2. References (2)
    00727−0 50000 0 01313 463CALC4 ZERO. SET SA EQUAL TO $$000. F6A04570
    01010−0 50000 0 01313 512CALC4 $$ F6A05060
␣␣␣␣C5 = 716
  1. Definition
    01314 536000000000 708 C5 BCD1$␣0000 F6A07020
  2. References (2)
    00170−0 50000 0 01314 108CALC5 COMPILE CITS. F6A01040
    01300−0 50000 0 01314 696CALC5 F6A06900
␣␣␣␣C6 = 717
  1. Definition
    01315 306351000000 709 C6 BCD1HTR000 F6A07030
  2. Reference
    01265−0 50000 0 01315 685 SUB2 CALC6 COMPILE CITS F6A06790
␣␣␣␣C7 = 718
  1. Definition
    01316 626724000000 710 C7 BCD1SXD000 F6A07040
  2. Reference
    01276−0 50000 0 01316 694CALC7 F6A06880
␣␣␣␣C8 = 719
  1. Definition
    01317 0 00000 0 00001 711 C8 HTR1 F6A07050
  2. References (25)
    00225 0 40200 0 01317 137SUBC8 OF ARG LIST. F6A01330
    00323 0 40200 0 01317 201SUBC8 F6A01960
    00327 0 40200 0 01317 205SUBC8 LIST ADDRESS. F6A02000
    00337 0 40000 0 01317 213ADDC8 F6A02080
    00411 0 40000 0 01317 256ADDC8 INCREMENT RCT BY 1, F6A02510
    00414 0 50000 0 01317 259 B11 CLAC8 SET DELETE INDIC. EQUAL ONE F6A02540
    00437 0 40200 0 01317 278SUBC8 ARGUMENT COUNTER. F6A02730
    00446 0 40000 0 01317 285ADDC8 F6A02800
    00450 0 40200 0 01317 287SUBC8 COMPUTE ADDRESS F6A02820
    00510 0 40000 0 01317 319ADDC8 F6A03140
    00536 0 40000 0 01317 342ADDC8 F6A03360
    00607 0 50000 0 01317 383CLAC8 INIT. ARG. NUMBER TO ONE. F6A03770
    00641 0 40000 0 01317 409ADDC8 F6A04030
    00665 0 40200 0 01317 429SUBC8 SET ADDRESS OF D17=LOCATION OF F6A04230
    00673 0 40200 0 01317 435SUBC8 MODIFY ADDRESS IN HTAB. F6A04290
    00705 0 40000 0 01317 445ADDC8 F6A04390
    00715 0 40200 0 01317 453SUBC8 F6A04470
    01034 0 40000 0 01317 532ADDC8 UPDATE RELATIVE COUNT BY ONE. F6A05260
    01054 0 50000 0 01317 548 E11 CLAC8 DELETE INSTRUCTION. SET DELETE INDICATOR F6A05420
    01100 0 40200 0 01317 568SUBC8 F6A05620
    01103 0 40000 0 01317 571ADDC8 F6A05650
    01155 0 40200 0 01317 613SUBC8 F6A06070
    01175 0 40200 0 01317 629SUBC8 F6A06230
    01235 0 50000 0 01317 661CLAC8 F6A06550
    01427−0 50000 0 01317 783 P24 CALC8 F6A07473
␣␣␣␣C9 = 720
  1. Definition
    01320+000001000002 712 C9 OCT000001000002 F6A07060
  2. References (2)
    00211−0 50000 0 01320 125 P26 CALC9 F6A01210
    00524−0 53400 1 01320 332LXDC9,1 WRITE OFF ON F6A03260
␣␣␣␣D1 = 371
  1. Definition
    00563 0 42000 0 00005 363 D1 HPR5 F6A03570
  2. Reference
    00556 0 53400 4 00563 358 D5 LXAD1,4 SET READ-ERROR COUNTER. F6A03520
␣␣␣␣D2 = 372
  1. Definition
    00564 0 76200 0 00222 364 D2 RTB2 F6A03580
  2. References (2)
    00557 0 02000 0 00564 359TRAD2 F6A03530
    00561 2 00001 4 00564 361TIXD2,4,1 INTO STORAGE. F6A03550
␣␣␣␣D3 = 368
  1. Definition
    00560 0 76400 0 00202 360 D3 BST2 REA0 TAPE 2 FILE 6 F6A03540
  2. Reference
    00574 0 02000 0 00560 372TRAD3 F6A03660
␣␣␣␣D4 = 374
  1. Definition
    00566 0 70000 2 06545 366 D4 CPYOP−1,2 F6A03600
  2. Reference
    00567 1 00001 2 00566 367TXID4,2,1 F6A03610
␣␣␣␣D5 = 366
  1. Definition
    00556 0 53400 4 00563 358 D5 LXAD1,4 SET READ-ERROR COUNTER. F6A03520
  2. Reference
    00575 0 02000 0 00556 373TRAD5 F6A03670
␣␣␣␣D6 = 389
  1. Definition
    00605 0 77200 0 00202 381 D6 REW2 REWIND TAPE 2. F6A03750
  2. Reference
    00603−0 12000 0 00605 379TMID6 F6A03730
␣␣␣␣D7 = 396
  1. Definition
    00614 0 60000 1 02461 388 D7 STZREC−1,1 COMPILE CLA N,4 F6A03820
  2. References (2)
    00644−0 12000 0 00614 412TMID7 NO. F6A04060
    00645 0 10000 0 00614 413TZED7 NO. F6A04070
␣␣␣␣D8 = 405
  1. Definition
    00625 3 00143 1 00647 397 D8 TXHD9,1,99 TEST CIT BLOCK FULL. IF YES, GO WRITE OFF. F6A03910
  2. Reference
    00624 1 00004 1 00625 396TXID8,1,4 F6A03900
␣␣␣␣D9 = 423
  1. Definition
    00647 0 07400 2 01254 415 D9 TSXSUB1,2 WRITE OFF ON F6A04090
  2. Reference
    00625 3 00143 1 00647 397 D8 TXHD9,1,99 TEST CIT BLOCK FULL. IF YES, GO WRITE OFF. F6A03910
␣␣␣␣E1 = 497
  1. Definition
    00761 0 53400 2 00766 489 E1 LXAE3,2 READ TAPE 3 F6A04830
  2. References (3)
    00646 0 02000 0 00761 414TRAE1 FINISHED. F6A04080
    01041 3 01041 4 00761 537 E8 TXHE1,4,* TEST ENO OF TAPE 3 BLOCK. F6A05310
    01242 0 02000 0 00761 666TRAE1 GO DEAL WITH TAPE 3 CITS. F6A06600
␣␣␣␣E2 = 499
  1. Definition
    00763 0 76400 0 00203 491 E2 BST3 F6A04850
  2. Reference
    00777 0 02000 0 00763 503TRAE2 F6A04970
␣␣␣␣E3 = 502
  1. Definition
    00766 0 42000 0 00005 494 E3 HPR5 F6A04880
  2. Reference
    00761 0 53400 2 00766 489 E1 LXAE3,2 READ TAPE 3 F6A04830
␣␣␣␣E4 = 503
  1. Definition
    00767 0 76200 0 00223 495 E4 RTB3 READ A RECORD FROM TAPE 3. F6A04890
  2. References (2)
    00762 0 02000 0 00767 490TRAE4 F6A04840
    00764 2 00001 2 00767 492TIXE4,2,1 SET READ ERROR COUNTER. F6A04860
␣␣␣␣E5 = 505
  1. Definition
    00771 0 70000 4 02624 497 E5 CPYCIT−2,4 CIT-1,-2,--- F6A04910
  2. Reference
    00772 1 00001 4 00771 498TXIE5,4,1 F6A04920
␣␣␣␣E6 = 522
  1. Definition
    01012−0 50000 4 02624 514 E6 CALCIT−2,4 F6A05080
  2. References (4)
    01003 0 10000 0 01012 507TZEE6 YES, TRANSFER. F6A05010
    01005−0 10000 0 01012 509TNZE6 RCT NOT ZERO. F6A05030
    01007−0 10000 0 01012 511TNZE6 TRANSFER IF NOT ZERO. F6A05050
    01042 0 02000 0 01012 538TRAE6 NO. F6A05320
␣␣␣␣E7 = 543
  1. Definition
    01037 3 00143 1 01057 535 E7 TXHE13,1,99 TEST END OF TAPE 4 BLOCK. F6A05290
  2. Reference
    01036 1 00004 1 01037 534TXIE7,1,4 MODIFY TAPE 4 BUFFER COUNTER. F6A05280
␣␣␣␣E8 = 545
  1. Definition
    01041 3 01041 4 00761 537 E8 TXHE1,4,* TEST ENO OF TAPE 3 BLOCK. F6A05310
  2. References (2)
    01000−0 63400 4 01041 504SXDE8,4 F6A04980
    01040 1 00004 4 01041 536 E12 TXIE8,4,4 NO, MODIFY TAPE 3 BLOCK COUNTER. F6A05300
␣␣␣␣E9 = 547
  1. Definition
    01043 0 60100 0 01357 539 E9 STODELIN QPR. SET DELIN=0. F6A05330
  2. Reference
    01015 0 10000 0 01043 517TZEE9 YES, TRANSFER. F6A05110
␣␣␣␣F1 = 675
  1. Definition
    01243 0 02000 0 01234 667 F1 TRANOSUB+1 F6A06610
  2. Reference
    00227 0 10000 0 01243 139TZEF1 =0 IF NO ARGUMENTS F6A01350
␣␣␣␣OP = 3430
  1. Definition
    06546 792 OP BES2000 F6A07483
  2. References (10)
    00466 0 60100 1 06544 301STOOP−2,1 CIT AS WORD 2 OF OP TABLE ENTRY. F6A02960
    00470 0 60000 1 06544 303 B19 STZOP−2,1 ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0. F6A02980
    00474 0 60100 1 06545 307STOOP−1,1 F6A03020
    00502 0 70000 1 06545 313 B25 CPYOP−1,1 F6A03080
    00525 0 70000 1 06546 333 B30 CPYOP,1 TAPE 2. F6A03270
    00566 0 70000 2 06545 366 D4 CPYOP−1,2 F6A03600
    00630 0 50000 2 06545 400 D11 CLAOP−1,2 SELECT OP TABLE ENTRY. F6A03940
    00651 0 50000 2 06544 417 D13 CLAOP−2,2 COMPILE STORE. F6A04110
    00731 0 56000 2 06545 465LDQOP−1,2 F6A04590
    06546 798 DIM SYNOP F6A07540
␣␣␣␣P1 = 35
  1. Definition
    00043 0 76200 0 00222 21 P1 RTB2 ON TAPE 2. F6A00170
  2. References (2)
    00047 0 02000 0 00043 25TRAP1 END OF REC. F6A00210
    00050 2 00001 2 00043 26 P2 TIXP1,2,1 F6A00220
␣␣␣␣P2 = 40
  1. Definition
    00050 2 00001 2 00043 26 P2 TIXP1,2,1 F6A00220
  2. Reference
    00046 0 02000 0 00050 24TRAP2 END OF FILE. F6A00200
␣␣␣␣P7 = 85
  1. Definition
    00125 3 00143 1 00131 72 P7 TXHWRIT4,1,99 F6A00680
  2. Reference
    00124 1 00004 1 00125 71TXIP7,1,4 F6A00670
␣␣␣␣P8 = 87
  1. Definition
    00127 3 00127 4 00135 74 P8 TXHP10,4,* F6A00700
  2. References (2)
    00114 0 62200 0 00127 63STDP8 F6A00590
    00126 1 00001 4 00127 73 P11 TXIP8,4,1 F6A00690
␣␣␣␣P9 = 78
  1. Definition
    00116−0 50000 4 04573 65 P9 CALTV−3,4 STORAGE. F6A00610
  2. Reference
    00130 0 02000 0 00116 75TRAP9 F6A00710
␣␣␣␣TV = 2430
  1. Definition
    04576 794 TV BES1000 F6A07500
  2. References (7)
    00062−0 70000 0 04574 37CADTV−2 F6A00330
    00064−0 70000 0 04575 39CADTV−1 F6A00350
    00071−0 53400 3 04574 44 RDRF LXDTV−2,3 F6A00400
    00077−0 70000 1 04574 50 CPY CADTV−2,1 F6A00460
    00110 0 50000 0 04574 59 SDF CLATV−2 WD CT. OF TRANSFER VECTOR. F6A00550
    00116−0 50000 4 04573 65 P9 CALTV−3,4 STORAGE. F6A00610
    04576 795 SUB SYNTV F6A07510
␣␣␣A10 = 198
  1. Definition
    00306 0 50000 0 04572 188 A10 CLASUB−4 SELECT ARG. F6A01830
  2. References (4)
    00233 0 62100 0 00306 144STAA10 SET ADDRESS A10=SUB-4. F6A01400
    00312 2 00001 2 00306 192 A11 TIXA10,2,1 F6A01870
    00326 0 50000 0 00306 204 A16 CLAA10 MODIFY ARG F6A01990
    00330 0 62100 0 00306 206STAA10 F6A02010
␣␣␣A11 = 202
  1. Definition
    00312 2 00001 2 00306 192 A11 TIXA10,2,1 F6A01870
  2. Reference
    00310 0 02000 0 00312 190TRAA11 F6A01850
␣␣␣A12 = 203
  1. Definition
    00313 0 50000 0 01334 193 A12 CLAZERO ARG IS NOT ARRAY. SET BIT TO ZERO F6A01880
␣␣␣A13 = 205
  1. Definition
    00315 0 50000 0 01325 195 A13 CLAC14 ARG IS ARRAY, SET BIT TO BE 1. F6A01900
  2. Reference
    00311 0 02000 0 00315 191TRAA13 YES F6A01860
␣␣␣A14 = 206
  1. Definition
    00316−0 60200 0 05310 196 A14 ORSARIND STORE INSTORE INDICATOR F6A01910
  2. References (4)
    00304 0 62100 0 00316 186STAA14 F6A01810
    00314 0 02000 0 00316 194TRAA14 F6A01890
    00336 0 50000 0 00316 212CLAA14 F6A02070
    00340 0 62100 0 00316 214STAA14 F6A02090
␣␣␣A15 = 220
  1. Definition
    00334 0 50000 0 01324 210 A15 CLAC13 F6A02050
  2. Reference
    00325 0 10000 0 00334 203TZEA15 WORD FULL TEST. F6A01980
␣␣␣A16 = 214
  1. Definition
    00326 0 50000 0 00306 204 A16 CLAA10 MODIFY ARG F6A01990
  2. Reference
    01434 0 02000 0 00326 788TRAA16 F6A07478
␣␣␣A17 = 208
  1. Definition
    00320 0 77100 0 00001 198 A17 ARS1 F6A01930
␣␣␣A18 = 170
  1. Definition
    159 TABLE. F6A01541
    00252−0 53400 2 01307 160 A18 LXDC1,2 SET ARRAY IND. TABLE F6A01550
␣␣␣A19 = 171
  1. Definition
    00253 0 60000 2 05310 161 A19 STZARIND,2 TO ZERO, F6A01560
  2. Reference
    00256 0 02000 0 00253 164TRAA19 F6A01590
␣␣␣A20 = 173
  1. Definition
    00255 3 00035 2 00257 163 A20 TXHCH4,2,29 F6A01580
  2. Reference
    00254 1 00001 2 00255 162TXIA20,2,1 TABLE F6A01570
␣␣␣ADD = 729
  1. Definition
    01331 212424000000 721 ADD BCD1ADD000 INITARG F6A07150
  2. References (2)
    00710−0 50000 0 01331 448CALADD ADD F6A04420
    00750−0 50000 0 01331 480CALADD F6A04740
␣␣␣B10 = 263
  1. Definition
    00407 0 60000 0 01357 254 B10 STZDELIN QPR OP. SET DELETE INDICATOR TO ZERO. F6A02490
  2. Reference
    00405 0 02000 0 00407 252TRAB10 EQUAL. OP IS QPR. F6A02470
␣␣␣B11 = 268
  1. Definition
    00414 0 50000 0 01317 259 B11 CLAC8 SET DELETE INDIC. EQUAL ONE F6A02540
  2. Reference
    00400 0 10000 0 00414 247TZEB11 TRANSFER IF YES. F6A02420
␣␣␣B12 = 277
  1. Definition
    00425 0 34000 0 00424 268 B12 CASBSS OP NOT QPR. TEST FOR BSS OP. F6A02630
  2. References (2)
    00404 0 02000 0 00425 251TRAB12 F6A02460
    00406 0 02000 0 00425 253TRAB12 NOT EQUAL F6A02480
␣␣␣B13 = 282
  1. Definition
    00432 0 50000 0 04572 273 B13 CLASUB−4 SEARCH ARG LIST F6A02680
  2. References (5)
    00431 0 62100 0 00432 272STAB13 INITIALIZE ARGUMENT LIST ADDRESS. F6A02670
    00436 0 50000 0 00432 277 B15 CLAB13 SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE F6A02720
    00440 0 62100 0 00432 279STAB13 F6A02740
    00443 0 02000 0 00432 282TRAB13 GO CHECK AGAINST NEXT ARGUMENT. F6A02770
    00445 0 40200 0 00432 284SUBB13 F6A02790
␣␣␣B14 = 292
  1. Definition
    00444 0 50200 0 01322 283 B14 CLSC11 EQUAL, MUST COMPILE OP TABLE ENTRY. F6A02780
  2. Reference
    00435 0 02000 0 00444 276TRAB14 EQUAL, GO TO B14 TO COMPILE OP TABLE ENTRY. F6A02710
␣␣␣B15 = 286
  1. Definition
    00436 0 50000 0 00432 277 B15 CLAB13 SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE F6A02720
  2. Reference
    00434 0 02000 0 00436 275TRAB15 ADDRESS. F6A02700
␣␣␣B16 = 264
  1. Definition
    00410 0 50000 0 01356 255 B16 CLARCT F6A02500
  2. References (5)
    00442 0 10000 0 00410 281TZEB16 NO MORE ARGUMENTS. TRANSFER. F6A02760
    00477 0 02000 0 00410 310TRAB16 F6A03050
    00513 0 02000 0 00410 322TRAB16 F6A03170
    01375 0 02000 0 00410 757TRAB16 OP IS OCT. F6A07447
    01400 0 02000 0 00410 760TRAB16 OP IS BCD. F6A07450
␣␣␣B17 = 304
  1. Definition
    00460 0 56000 0 00460 295 B17 LDQ* TEST FOR ARRAY. F6A02900
  2. Reference
    00457 0 62100 0 00460 294STAB17 F6A02890
␣␣␣B18 = 305
  1. Definition
    00461 0 76300 0 00461 296 B18 LLS* F6A02910
  2. Reference
    00454 0 62100 0 00461 291STAB18 F6A02860
␣␣␣B19 = 312
  1. Definition
    00470 0 60000 1 06544 303 B19 STZOP−2,1 ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0. F6A02980
  2. Reference
    00464 0 10000 0 00470 299TZEB19 NOT ARRAY. F6A02940
␣␣␣B20 = 313
  1. Definition
    00471 0 50000 0 01354 304 B20 CLAARGNO ASSEMBLE WORD ONE OF OP TABLE ENTRY. F6A02990
  2. Reference
    00467 0 02000 0 00471 302TRAB20 F6A02970
␣␣␣B21 = 318
  1. Definition
    00476 3 00441 1 00500 309 B21 TXHB22,1,289 BLOCK. F6A03040
  2. Reference
    00475 1 00002 1 00476 308TXIB21,1,2 MODIFY TAPE 2 F6A03030
␣␣␣B22 = 320
  1. Definition
    00500 0 76600 0 00222 311 B22 WTB2 WRITE OFF F6A03060
  2. Reference
    00476 3 00441 1 00500 309 B21 TXHB22,1,289 BLOCK. F6A03040
␣␣␣B23 = 324
  1. Definition
    00504 3 00441 1 00506 315 B23 TXHB24,1,289 F6A03100
  2. Reference
    00503 1 00001 1 00504 314TXIB23,1,1 F6A03090
␣␣␣B24 = 326
  1. Definition
    00506−0 53400 1 01307 317 B24 LXDC1,1 SET XR1 EQUAL ZERO F6A03120
  2. Reference
    00504 3 00441 1 00506 315 B23 TXHB24,1,289 F6A03100
␣␣␣B25 = 322
  1. Definition
    00502 0 70000 1 06545 313 B25 CPYOP−1,1 F6A03080
  2. Reference
    00505 0 02000 0 00502 316TRAB25 F6A03110
␣␣␣B26 = 332
  1. Definition
    00514 1 00004 4 00515 323 B26 TXIB27,4,4 MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM F6A03180
  2. References (4)
    00413 0 02000 0 00514 258TRAB26 F6A02530
    00416 0 02000 0 00514 261TRAB26 F6A02560
    00423 0 02000 0 00514 266TRAB26 F6A02610
    01372 0 02000 0 00514 754TRAB26 OP IS SYN. F6A07444
␣␣␣B27 = 333
  1. Definition
    324 TAPE 3). F6A03181
    00515 3 00515 4 00352 325 B27 TXHB8,4,* TEST END OF TAPE 3 BLOCK. F6A03190
  2. References (2)
    00371−0 63400 2 00515 240SXDB27,2 SAVE TAPE 3 RECORD LENGTH(-2) F6A02350
    00514 1 00004 4 00515 323 B26 TXIB27,4,4 MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM F6A03180
␣␣␣B28 = 335
  1. Definition
    00517 0 77200 0 00203 327 B28 REW3 EOF TAPE 3. REWIND TAPE 3. F6A03210
  2. Reference
    00364 0 02000 0 00517 235TRAB28 END OF FILE F6A02300
␣␣␣B29 = 338
  1. Definition
    00522−0 63400 1 00527 330 B29 SXDB31,1 YES, SAVE COUNT OF WORDS TO BE WRITTEN. F6A03240
  2. Reference
    00520 3 00000 1 00522 328TXHB29,1,0 ANY OP ENTRIES TO BE WRITTEN ON T-2. F6A03220
␣␣␣B30 = 341
  1. Definition
    00525 0 70000 1 06546 333 B30 CPYOP,1 TAPE 2. F6A03270
  2. Reference
    00530 0 02000 0 00525 336TRAB30 F6A03300
␣␣␣B31 = 343
  1. Definition
    00527 3 00527 1 00534 335 B31 TXHB35,1,* F6A03290
  2. References (2)
    00522−0 63400 1 00527 330 B29 SXDB31,1 YES, SAVE COUNT OF WORDS TO BE WRITTEN. F6A03240
    00526 1 00001 1 00527 334TXIB31,1,1 NECESSARY F6A03280
␣␣␣B34 = 345
  1. Definition
    00531 0 50000 0 01361 337 B34 CLATP2CT IS RECORD COUNT ZERO. F6A03310
  2. Reference
    00521 0 02000 0 00531 329TRAB34 NO. F6A03230
␣␣␣B35 = 348
  1. Definition
    00534 0 50000 0 01361 340 B35 CLATP2CT F6A03340
  2. Reference
    00527 3 00527 1 00534 335 B31 TXHB35,1,* F6A03290
␣␣␣B36 = 352
  1. Definition
    00540 0 77000 0 00202 344 B36 WEF2 WEF TAPE 2. F6A03380
  2. Reference
    00532−0 10000 0 00540 338TNZB36 NO. OKAY 50 TRANSFER TO READ TARE TWO. F6A03320
␣␣␣B37 = 355
  1. Definition
    00543 0 76400 0 00202 347 B37 BST2 BEGIN OF FILE. F6A03410
  2. Reference
    00544 2 00001 1 00543 348TIXB37,1,1 F6A03420
␣␣␣BCD = 713
  1. Definition
    01311 222324000000 705 BCD BCD1BCD000 F6A06990
  2. References (3)
    00122−0 50000 0 01311 69CALBCD F6A00650
    01162−0 50000 0 01311 618 E28 CALBCD F6A06120
    01415−0 50000 0 01311 773 NAME CALBCD INSERT CIT 3 PRIME. F6A07463
␣␣␣BSS = 276
  1. Definition
    00424 000000226262 267 BSS BCD1000BSS F6A02620
  2. Reference
    00425 0 34000 0 00424 268 B12 CASBSS OP NOT QPR. TEST FOR BSS OP. F6A02630
␣␣␣C10 = 721
  1. Definition
    01321+000002000004 713 C10 OCT000002000004 F6A07070
  2. Reference
    00215−0 50000 0 01321 129 P28 CALC10 TO STORE IN T-4 BUFFER PROLOGUE CIT 6. F6A01250
␣␣␣C11 = 722
  1. Definition
    01322−0 50000 0 04572 714 C11 CALSUB−4 F6A07080
  2. References (4)
    00230 0 40000 0 01322 140ADDC11 F6A01360
    00232−0 50000 0 01322 143 A1 CALC11 INIT ARG LIST, F6A01390
    00444 0 50200 0 01322 283 B14 CLSC11 EQUAL, MUST COMPILE OP TABLE ENTRY. F6A02780
    01401−0 50000 0 01322 761 GOON CALC11 F6A07451
␣␣␣C12 = 723
  1. Definition
    01323 0 00000 0 05310 715 C12 HTRARIND F6A07090
  2. References (2)
    00303 0 50000 0 01323 185CLAC12 F6A01800
    00455 0 50000 0 01323 292CLAC12 F6A02870
␣␣␣C13 = 724
  1. Definition
    01324 0 00000 0 00043 716 C13 HTR35 F6A07100
  2. References (3)
    00300 0 50000 0 01324 182 A7 CLAC13 INIT ARIND TABLE. F6A01770
    00334 0 50000 0 01324 210 A15 CLAC13 F6A02050
    00452 0 22000 0 01324 289DVHC13 TABLE. F6A02840
␣␣␣C14 = 725
  1. Definition
    01325 2 00000 0 00000 717 C14 TIX0,0,0 F6A07110
  2. References (4)
    00315 0 50000 0 01325 195 A13 CLAC14 ARG IS ARRAY, SET BIT TO BE 1. F6A01900
    00317 0 50000 0 01325 197CLAC14 F6A01920
    00321 0 60100 0 01325 199STOC14 F6A01940
    01433 0 60100 0 01325 787STOC14 F6A07477
␣␣␣C15 = 726
  1. Definition
    01326 0 00000 0 00005 718 C15 HTR5 F6A07120
  2. Reference
    00553 0 50000 0 01326 355CLAC15 F6A03490
␣␣␣C16 = 727
  1. Definition
    01327 234321000000 719 C16 BCD1CLA000 F6A07130
  2. Reference
    00615−0 50000 0 01327 389CALC16 WHERE N IS THE ARGUMENT NUMBER. F6A03830
␣␣␣C17 = 728
  1. Definition
    01330 0 50000 0 06546 720 C17 CLAHTAB F6A07140
  2. References (5)
    00664 0 40000 0 01330 428ADDC17 YES, THERE IS AN INCREMENT TABLE. F6A04220
    00675 0 40200 0 01330 437SUBC17 ANY MORE ENTRIES IN HTAB. F6A04310
    00677 0 50000 0 01330 439 CH6 CLAC17 NOT IN TABLE. F6A04330
    00744 0 40200 0 01330 476SUBC17 F6A04700
    01063 0 50000 0 01330 555CLAC17 IF NECESSARY F6A05490
␣␣␣C18 = 738
  1. Definition
    01342+000001000000 730 C18 OCT000001000000 F6A07240
  2. References (4)
    00113 0 40200 0 01342 62SUBC18 F6A00580
    00612 0 40200 0 01342 386SUBC18 SUBTRACT ONE (IN DECREMENT) F6A03800
    01152 0 40200 0 01342 610SUBC18 F6A06040
    01200 0 40000 0 01342 632ADDC18 TREATED BY ONE. F6A06260
␣␣␣C19 = 739
  1. Definition
    01343+130000000000 731 C19 OCT130000000000 F6A07250
  2. Reference
    01160−0 50000 0 01343 616CALC19 SET SL OF FIRST CIT FOR EACH HOLLERITH F6A06100
␣␣␣C20 = 740
  1. Definition
    01344−377777777777 732 C20 OCT777777777777 F6A07260
  2. References (2)
    01165 0 34000 0 01344 621CASC20 TEST FOR END OF ARGUMENT. F6A06150
    01247−0 50000 0 01344 671CALC20 F6A06650
␣␣␣C21 = 741
  1. Definition
    01345+003720000000 733 C21 OCT003720000000 (2000 IN DICREMENT) F6A07270
  2. Reference
    00602 0 40200 0 01345 378SUBC21 F6A03720
␣␣␣CH1 = 36
  1. Definition
    00044 0 70000 0 01355 22 CH1 CPYERAS1 F6A00180
  2. Reference
    00045 0 02000 0 00044 23TRACH1 F6A00190
␣␣␣CH2 = 229
  1. Definition
    00345 0 70000 0 01351 220 CH2 CPYEA2 F6A02150
  2. Reference
    00346 0 02000 0 00345 221TRACH2 F6A02160
␣␣␣CH3 = 589
  1. Definition
    01115 0 70000 0 01355 581 CH3 CPYERAS1 F6A05750
  2. Reference
    01116 0 02000 0 01115 582TRACH3 F6A05760
␣␣␣CH4 = 175
  1. Definition
    00257 0 53400 2 01350 165 CH4 LXAEA1,2 F6A01600
  2. Reference
    00255 3 00035 2 00257 163 A20 TXHCH4,2,29 F6A01580
␣␣␣CH6 = 447
  1. Definition
    00677 0 50000 0 01330 439 CH6 CLAC17 NOT IN TABLE. F6A04330
  2. Reference
    00663 0 10000 0 00677 427TZECH6 NO INCREMENT TABLE. F6A04210
␣␣␣CH7 = 654
  1. Definition
    01216−0 63400 1 01223 646 CH7 SXDE34,1 WRITE OFF ON F6A06400
  2. Reference
    01215 2 00001 1 01216 645TIXCH7,1,1 F6A06390
␣␣␣CIT = 1430
  1. Definition
    02626 791 CIT BES100 F6A07482
  2. References (13)
    00362 0 70000 2 02624 233 B7 CPYCIT−2,2 COPY A RECORD OF CIT TAPE INTO CIT-1,-2, F6A02280
    00375−0 50000 0 02625 244CALCIT−1 STORE INITIAL F6A02390
    00401−0 50000 4 02624 248CALCIT−2,4 SELECT CIT. IS OP QPR. F6A02430
    00417 0 50000 4 02622 262 EXT21 CLACIT−4,4 F6A02570
    00433 0 34000 4 02623 274CASCIT−3,4 FOR EQUAL SYMBOLIC F6A02690
    00465 0 50000 4 02622 300CLACIT−4,4 ARG IS ARRAY, SO STORE RELATIVE ADDRESS OF F6A02950
    00771 0 70000 4 02624 497 E5 CPYCIT−2,4 CIT-1,-2,--- F6A04910
    01011 0 60200 0 02625 513SLWCIT−1 F6A05070
    01012−0 50000 4 02624 514 E6 CALCIT−2,4 F6A05080
    01023−0 50000 4 02624 523CALCIT−2,4 COPY CIT FROM TAPE 3 INTO F6A05170
    01025−0 50000 4 02625 525CALCIT−1,4 BLOCK F6A05190
    01027−0 50000 4 02623 527CALCIT−3,4 F6A05210
    01031−0 50000 4 02622 529CALCIT−4,4 F6A05230
␣␣␣CPY = 63
  1. Definition
    00077−0 70000 1 04574 50 CPY CADTV−2,1 F6A00460
  2. Reference
    00100 2 00001 1 00077 51TIXCPY,1,1 F6A00470
␣␣␣D10 = 406
  1. Definition
    00626 0 60000 0 01362 398 D10 STZDELTA SET DELTA ZERO. F6A03920
  2. Reference
    00650 0 02000 0 00626 416TRAD10 TAPE 4. F6A04100
␣␣␣D11 = 408
  1. Definition
    00630 0 50000 2 06545 400 D11 CLAOP−1,2 SELECT OP TABLE ENTRY. F6A03940
  2. Reference
    00637 0 02000 0 00630 407TRAD11 F6A04010
␣␣␣D12 = 413
  1. Definition
    00635 1 00002 2 00636 405 D12 TXID14,2,2 UPDATE OP TABLE COUNTER. F6A03990
  2. References (3)
    00633 0 02000 0 00635 403TRAD12 F6A03970
    00736 0 02000 0 00635 470 D24 TRAD12 NO. F6A04640
    00760 0 02000 0 00635 488TRAD12 F6A04820
␣␣␣D13 = 425
  1. Definition
    00651 0 50000 2 06544 417 D13 CLAOP−2,2 COMPILE STORE. F6A04110
  2. Reference
    00634 0 02000 0 00651 404TRAD13 EQUAL ARGUMENT, GO COMPILE STORE. F6A03980
␣␣␣D14 = 414
  1. Definition
    00636 3 00636 2 00640 406 D14 TXHD15,2,* TEST FOR END OF OP TABLE. F6A04000
  2. References (2)
    00613 0 62200 0 00636 387STDD14 SET END OF 0P BLOCK TEST. (EA1-1) F6A03810
    00635 1 00002 2 00636 405 D12 TXID14,2,2 UPDATE OP TABLE COUNTER. F6A03990
␣␣␣D15 = 416
  1. Definition
    00640 0 50000 0 01354 408 D15 CLAARGNO MODIFY ARG NUMBER (INCREASE IT BY ONE). F6A04020
  2. Reference
    00636 3 00636 2 00640 406 D14 TXHD15,2,* TEST FOR END OF OP TABLE. F6A04000
␣␣␣D16 = 465
  1. Definition
    00721 3 00143 1 00737 457 D16 TXHD20,1,99 TEST TAPE 4 BLOCK FULL. F6A04510
  2. References (2)
    00720 1 00004 1 00721 456TXID16,1,4 MODIFY TAPE 4 BLOCK. F6A04500
    00754 1 00004 1 00721 484TXID16,1,4 F6A04780
␣␣␣D17 = 439
  1. Definition
    00667 0 50000 0 06546 431 D17 CLAHTAB IS LAST GAMMA F6A04250
  2. References (5)
    00666 0 62100 0 00667 430STAD17 LAST GAMMA STORED. F6A04240
    00672 0 50000 0 00667 434CLAD17 NO, F6A04280
    00674 0 62100 0 00667 436STAD17 F6A04300
    00676 0 12000 0 00667 438TPLD17 YES. F6A04320
    00743 0 50000 0 00667 475 EX1 CLAD17 ADDEND ALREADY IN TABLE F6A04690
␣␣␣D18 = 451
  1. Definition
    00703 0 60100 0 00703 443 D18 STO* SET BY CH6 TO HTAB+CONCT. STORE GAMMA. F6A04370
  2. Reference
    00701 0 62100 0 00703 441STAD18 F6A04350
␣␣␣D19 = 455
  1. Definition
    00707 0 60000 1 02461 447 D19 STZREC−1,1 COMPILE ADD. F6A04410
␣␣␣D20 = 479
  1. Definition
    00737−0 63400 2 01352 471 D20 SXDIRIST,2 F6A04650
  2. Reference
    00721 3 00143 1 00737 457 D16 TXHD20,1,99 TEST TAPE 4 BLOCK FULL. F6A04510
␣␣␣D21 = 472
  1. Definition
    00730 0 60200 1 02457 464 D21 SLWREC−3,1 F6A04580
  2. Reference
    00726−0 10000 0 00730 462TNZD21 TRANSFER IF NOT ZERO. F6A04560
␣␣␣D22 = 477
  1. Definition
    00735 3 00143 1 00755 469 D22 TXHD23,1,99 TEST TAPE 4 BLOCK FULL. F6A04630
  2. Reference
    00734 1 00004 1 00735 468TXID22,1,4 F6A04620
␣␣␣D23 = 493
  1. Definition
    00755−0 63400 2 01352 485 D23 SXDIRIST,2 F6A04790
  2. Reference
    00735 3 00143 1 00755 469 D22 TXHD23,1,99 TEST TAPE 4 BLOCK FULL. F6A04630
␣␣␣D24 = 478
  1. Definition
    00736 0 02000 0 00635 470 D24 TRAD12 NO. F6A04640
␣␣␣D25 = 466
  1. Definition
    00722 0 60000 1 02461 458 D25 STZREC−1,1 COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG. F6A04520
  2. References (2)
    00661 0 10000 0 00722 425TZED25 YES F6A04190
    00742 0 02000 0 00722 474TRAD25 F6A04680
␣␣␣D30 = 385
  1. Definition
    00601 0 50000 0 01350 377 D30 CLAEA1 TEST WD COUNT OF OP TABLE. F6A03710
␣␣␣D89 = 382
  1. Definition
    00576 0 60000 0 01350 374 D89 STZEA1 F6A03680
  2. Reference
    00570 0 02000 0 00576 368TRAD89 E.O.F. F6A03620
␣␣␣DIM = 3430
  1. Definition
    06546 798 DIM SYNOP F6A07540
  2. References (2)
    00266−0 70000 2 06546 172 A6 CADDIM,2 READ SIZ TABLE. F6A01670
    00307 0 34000 2 06546 189CASDIM,2 IS ARGUMENT AN ARRAY. F6A01840
␣␣␣E10 = 532
  1. Definition
    01024 0 60200 1 02460 524E10 SLWREC−2,1 TAPE 4 BUFFER. F6A05180
  2. References (2)
    01047 0 02000 0 01027 543TRAE10+3 F6A05370
    01051 0 02000 0 01024 545TRAE10 F6A05390
␣␣␣E11 = 556
  1. Definition
    01054 0 50000 0 01317 548 E11 CLAC8 DELETE INSTRUCTION. SET DELETE INDICATOR F6A05420
  2. Reference
    01022 0 10000 0 01054 522TZEE11 ZERO. TRANSFER IF YES. F6A05160
␣␣␣E12 = 544
  1. Definition
    01040 1 00004 4 01041 536 E12 TXIE8,4,4 NO, MODIFY TAPE 3 BLOCK COUNTER. F6A05300
  2. References (2)
    01056 0 02000 0 01040 550TRAE12 TO TEST TAPE 4 BLOCK FULL. F6A05440
    01060 0 02000 0 01040 552TRAE12 TAPE 4. F6A05460
␣␣␣E13 = 559
  1. Definition
    01057 0 07400 2 01254 551 E13 TSXSUB1,2 WRITE OFF ON F6A05450
  2. Reference
    01037 3 00143 1 01057 535 E7 TXHE13,1,99 TEST END OF TAPE 4 BLOCK. F6A05290
␣␣␣E14 = 561
  1. Definition
    01061 0 50000 0 01363 553 E14 CLACONCT ENO OF TAPE 3. F6A05470
  2. Reference
    00773 0 02000 0 01061 499TRAE14 EOF. F6A04930
␣␣␣E15 = 574
  1. Definition
    01076 3 00143 1 01111 566 E15 TXHE16,1,99 TEST END OF TAPE 4 BLOCK. F6A05600
  2. Reference
    01075 1 00004 1 01076 565TXIE15,1,4 MODIFY TAPE 4 BLOCK COUNT. F6A05590
␣␣␣E16 = 585
  1. Definition
    01111 0 07400 2 01254 577 E16 TSXSUB1,2 F6A05710
  2. Reference
    01076 3 00143 1 01111 566 E15 TXHE16,1,99 TEST END OF TAPE 4 BLOCK. F6A05600
␣␣␣E17 = 570
  1. Definition
    01072−0 50000 0 01072 562 E17 CAL* SA=THE NECESSARY CONSTANT. F6A05560
  2. References (3)
    01064 0 62100 0 01072 556STAE17 COMPILE 9) TABLE. F6A05500
    01077 0 50000 0 01072 567 E19 CLAE17 TO GET NEXT CONSTANT IN 9) TABLE. F6A05610
    01101 0 62100 0 01072 569STAE17 F6A05630
␣␣␣E18 = 568
  1. Definition
    01070−0 50000 0 01346 560 E18 CALOCT OP=OCT. F6A05540
  2. Reference
    01110 0 02000 0 01070 576TRAE18 AND GO COMPILE REST OF CIT. F6A05700
␣␣␣E19 = 575
  1. Definition
    01077 0 50000 0 01072 567 E19 CLAE17 TO GET NEXT CONSTANT IN 9) TABLE. F6A05610
  2. Reference
    01112 0 02000 0 01077 578TRAE19 F6A05720
␣␣␣E20 = 587
  1. Definition
    01113 0 07400 4 01406 579 E20 TSXAPCH2,4 TO SKIP BCD FILE. F6A05730
  2. References (2)
    01062 0 10000 0 01113 554TZEE20 TRANSFER SINCE 9) TABLE NOT NEC. F6A05480
    01106 0 10000 0 01113 574TZEE20 TRANSFER IF ALL NEC 9) TABLE CITS COMPILED. F6A05680
␣␣␣E21 = 588
  1. Definition
    01114 0 76200 0 00222 580 E21 RTB2 SKIPPING TO FILE 5. F6A05740
  2. References (2)
    01120 0 02000 0 01114 584TRAE21 END OF RECORD. F6A05780
    01121 2 00001 2 01114 585 E22 TIXE21,2,1 F6A05790
␣␣␣E22 = 593
  1. Definition
    01121 2 00001 2 01114 585 E22 TIXE21,2,1 F6A05790
  2. Reference
    01117 0 02000 0 01121 583TRAE22 END OF FILE. F6A05770
␣␣␣E23 = 603
  1. Definition
    01133 0 76400 0 00202 595 E23 BST2 F6A05890
  2. Reference
    01147 0 02000 0 01133 607TRAE23 F6A06010
␣␣␣E24 = 606
  1. Definition
    01136 0 42000 0 00005 598 E24 HPR5 F6A05920
  2. Reference
    01131 0 53400 2 01136 593LXAE24,2 SET READ ERROR COUNTER. F6A05870
␣␣␣E25 = 607
  1. Definition
    01137 0 76200 0 00222 599 E25 RTB2 READ HOLARG TABLE F6A05930
  2. References (2)
    01132 0 02000 0 01137 594TRAE25 F6A05880
    01134 2 00001 2 01137 596TIXE25,2,1 F6A05900
␣␣␣E26 = 609
  1. Definition
    01141 0 70000 4 04574 601E26 CPYSUB−2,4 F6A05950
  2. Reference
    01142 1 00001 4 01141 602TXIE26,4,1 F6A05960
␣␣␣E27 = 616
  1. Definition
    01150 0 50000 0 04574 608 E27 CLASUB−2 TEST WORD COUNT OF HOLARG TABLE. F6A06020
  2. Reference
    01154 0 50000 0 01150 612CLAE27 INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE. F6A06060
␣␣␣E28 = 626
  1. Definition
    01162−0 50000 0 01311 618 E28 CALBCD F6A06120
  2. Reference
    01205 0 02000 0 01162 637TRAE28 F6A06310
␣␣␣E29 = 628
  1. Definition
    01164 0 50000 0 01164 620 E29 CLA* (SUB-3 TO START) F6A06140
  2. References (3)
    01156 0 62100 0 01164 614STAE29 F6A06080
    01174 0 50000 0 01164 628 E32 CLAE29 MODIFY ADDRESS IN HOLARG TABLE. F6A06220
    01176 0 62100 0 01164 630STAE29 F6A06240
␣␣␣E30 = 635
  1. Definition
    01173 3 00143 1 01212 627 E30 TXHE31,1,99 TEST TAPE 4 BLOCK FULL. F6A06210
  2. Reference
    01172 1 00004 1 01173 626TXIE30,1,4 MODIFY TAPE 4 BLOCK COUNT. F6A06200
␣␣␣E31 = 650
  1. Definition
    01212 0 07400 2 01254 642 E31 TSXSUB1,2 WRITE OFF ON TAPE 4. F6A06360
  2. Reference
    01173 3 00143 1 01212 627 E30 TXHE31,1,99 TEST TAPE 4 BLOCK FULL. F6A06210
␣␣␣E32 = 636
  1. Definition
    01174 0 50000 0 01164 628 E32 CLAE29 MODIFY ADDRESS IN HOLARG TABLE. F6A06220
  2. Reference
    01213 0 02000 0 01174 643TRAE32 F6A06370
␣␣␣E33 = 652
  1. Definition
    01214−3 00001 1 01225 644 E33 TXLE35,1,1 MAY NEED TO WRITE OFF 4. F6A06380
  2. References (2)
    01151 0 10000 0 01214 609TZEE33 EXIT, NO HOLARG. F6A06030
    01253 0 02000 0 01214 675 CH10 TRAE33 GO TEST BLOCK FULL. F6A06690
␣␣␣E34 = 659
  1. Definition
    01223 3 01223 1 01225 651 E34 TXHE35,1,* F6A06450
  2. References (2)
    01216−0 63400 1 01223 646 CH7 SXDE34,1 WRITE OFF ON F6A06400
    01222 1 00001 1 01223 650TXIE34,1,1 F6A06440
␣␣␣E35 = 661
  1. Definition
    01225 0 77000 0 00204 653 E35 WEF4 WRITE END OF FILE ON TAPE 4. F6A06470
  2. References (2)
    01214−3 00001 1 01225 644 E33 TXLE35,1,1 MAY NEED TO WRITE OFF 4. F6A06380
    01223 3 01223 1 01225 651 E34 TXHE35,1,* F6A06450
␣␣␣E36 = 657
  1. Definition
    01221 0 70000 1 02461 649 E36 CPYREC−1,1 F6A06430
  2. Reference
    01224 0 02000 0 01221 652TRAE36 F6A06460
␣␣␣E40 = 676
  1. Definition
    01244 0 60000 1 02461 668 E40 STZREC−1,1 COMPILE FINAL HOLARG CIT. F6A06620
  2. Reference
    01203 0 10000 0 01244 635TZEE40 END. F6A06290
␣␣␣EA1 = 744
  1. Definition
    01350 0 00000 0 00000 736 EA1 HTR0 F6A07300
  2. References (14)
    00240−0 70000 0 01350 149CADEA1 F6A01450
    00247 0 50000 0 01350 156 A3 CLAEA1 F6A01520
    00251 0 60100 0 01350 158STOEA1 EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES IN SIZE F6A01540
    00257 0 53400 2 01350 165 CH4 LXAEA1,2 F6A01600
    00305 0 53400 2 01350 187 A9 LXAEA1,2 F6A01820
    00576 0 60000 0 01350 374 D89 STZEA1 F6A03680
    00577−0 63400 2 01350 375SXDEA1,2 F6A03690
    00601 0 50000 0 01350 377 D30 CLAEA1 TEST WD COUNT OF OP TABLE. F6A03710
    00611 0 50000 0 01350 385CLAEA1 F6A03790
    01065 0 60000 0 01350 557STZEA1 SET EA1=0. F6A05510
    01102 0 50000 0 01350 570CLAEA1 INCREASE EA1 BY ONE. F6A05640
    01104 0 60100 0 01350 572STOEA1 F6A05660
    01153 0 60100 0 01350 611STOEA1 STORE WD. COUNT-1 IN EA1 F6A06050
    01202 0 40200 0 01350 634SUBEA1 TEST FOR END OF HOLARG TABLE. F6A06280
␣␣␣EA2 = 745
  1. Definition
    01351 0 00000 0 00000 737 EA2 HTR0 F6A07310
  2. References (12)
    00242−0 70000 0 01351 151CADEA2 F6A01470
    00267−0 70000 0 01351 173CADEA2 F6A01680
    00271 0 70000 0 01351 175CPYEA2 F6A01700
    00273−0 70000 0 01351 177CADEA2 F6A01720
    00302 0 60100 0 01351 184STOEA2 F6A01790
    00322−0 50000 0 01351 200CALEA2 MODIFY ARIND COUNT. F6A01950
    00324 0 60100 0 01351 202STOEA2 F6A01970
    00335 0 60100 0 01351 211STOEA2 F6A02060
    00345 0 70000 0 01351 220 CH2 CPYEA2 F6A02150
    01157 0 60000 0 01351 615STZEA2 SET EA2=0. F6A06090
    01177 0 50000 0 01351 631CLAEA2 INCREMENT COUNT OF WORDS FROM TABLE F6A06250
    01201 0 60100 0 01351 633STOEA2 F6A06270
␣␣␣EX1 = 483
  1. Definition
    00743 0 50000 0 00667 475 EX1 CLAD17 ADDEND ALREADY IN TABLE F6A04690
  2. Reference
    00671 0 10000 0 00743 433TZEEX1 YES, ADDEND ALREADY IN TABLE F6A04270
␣␣␣EX2 = 549
  1. Definition
    01045 0 60200 1 02460 541 EX2 SLWREC−2,1 AND RETURN TO GET REST F6A05350
␣␣␣EX3 = 552
  1. Definition
    01050−0 50000 0 01052 544 EX3 CALLXD OP IS QXD. F6A05380
  2. Reference
    01020 0 10000 0 01050 520TZEEX3 YES, TRANSFER. F6A05140
␣␣␣FDA = 61
  1. Definition
    T00075−0 75400 0 00002 48 FDA PXD2 F6A00440
  2. Reference
    00076 0 46000 0 00075 49LDAFDA F6A00450
␣␣␣LXD = 554
  1. Definition
    01052 436724000000 546 LXD BCD1LXD000 F6A05400
  2. Reference
    01050−0 50000 0 01052 544 EX3 CALLXD OP IS QXD. F6A05380
␣␣␣MDA = 48
  1. Definition
    T00060−0 75400 0 00000 35 MDA PXD F6A00310
  2. Reference
    00061 0 46000 0 00060 36LDAMDA F6A00320
␣␣␣OCT = 742
  1. Definition
    01346 462363000000 734 OCT BCD1OCT000 F6A07280
  2. References (3)
    01070−0 50000 0 01346 560 E18 CALOCT OP=OCT. F6A05540
    01207 0 50000 0 01346 639CLAOCT (SA=STRING OF 1S) F6A06330
    01245−0 50000 0 01346 669CALOCT F6A06630
␣␣␣P10 = 93
  1. Definition
    80SUBDEF COMPILING F6A00760
    00135 0 53400 4 00142 81 P10 LXAP16,4 SET READ ERROR COUNTER. F6A00770
  2. References (2)
    00127 3 00127 4 00135 74 P8 TXHP10,4,* F6A00700
    00134 0 02000 0 00135 79TRAP10 F6A00750
␣␣␣P11 = 86
  1. Definition
    00126 1 00001 4 00127 73 P11 TXIP8,4,1 F6A00690
  2. Reference
    00132 0 02000 0 00126 77TRAP11 TAPE 4. F6A00730
␣␣␣P15 = 95
  1. Definition
    00137 0 76400 0 00202 83 P15 BST2 F6A00790
  2. Reference
    00153 0 02000 0 00137 95TRAP15 F6A00910
␣␣␣P16 = 98
  1. Definition
    00142 0 42000 0 00005 86 P16 HPR5 F6A00820
  2. References (5)
    00056 0 53400 2 00142 33LXAP16,2 F6A00290
    00073 0 53400 2 00142 46LXAP16,2 F6A00420
    00135 0 53400 4 00142 81 P10 LXAP16,4 SET READ ERROR COUNTER. F6A00770
    00234 0 53400 2 00142 145LXAP16,2 F6A01410
    00262 0 53400 1 00142 168LXAP16,1 F6A01630
␣␣␣P17 = 99
  1. Definition
    00143 0 76200 0 00222 87 P17 RTB2 READ SUBDEF TABLE INTO F6A00830
  2. References (2)
    00136 0 02000 0 00143 82TRAP17 F6A00780
    00140 2 00001 4 00143 84TIXP17,4,1 F6A00800
␣␣␣P18 = 101
  1. Definition
    00145 0 70000 2 04574 89 P18 CPYSUB−2,2 F6A00850
  2. Reference
    00146 1 00001 2 00145 90TXIP18,2,1 F6A00860
␣␣␣P19 = 114
  1. Definition
    00162−0 50000 0 04573 102 P19 CALSUB−3 STORE NAME OF SUBROUTINE FOR PROGRAM CARD. F6A00980
␣␣␣P20 = 125
  1. Definition
    00175 0 60000 1 02461 113 P20 STZREC−1,1 COMPILE CIT, WD1=0, F6A01090
  2. Reference
    00173 0 02000 0 00175 111TRAP20 CIT 1 F6A01070
␣␣␣P22 = 129
  1. Definition
    00201 0 60000 1 02461 117 P22 STZREC−1,1 CIT 3 F6A01130
  2. Reference
    00177 0 02000 0 00201 115TRAP22 F6A01110
␣␣␣P24 = 791
  1. Definition
    01427−0 50000 0 01317 783 P24 CALC8 F6A07473
  2. Reference
    01425 0 02000 0 01427 781TRAP24 F6A07471
␣␣␣P26 = 137
  1. Definition
    00211−0 50000 0 01320 125 P26 CALC9 F6A01210
  2. Reference
    00207 0 02000 0 00211 123TRAP26 F6A01190
␣␣␣P28 = 141
  1. Definition
    00215−0 50000 0 01321 129 P28 CALC10 TO STORE IN T-4 BUFFER PROLOGUE CIT 6. F6A01250
  2. Reference
    00213 0 02000 0 00215 127TRAP28 F6A01230
␣␣␣P30 = 145
  1. Definition
    00221 0 56000 0 01307 133 P30 LDQC1 INIT DELETE F6A01290
  2. Reference
    00217 0 02000 0 00221 131TRAP30 F6A01270
␣␣␣PC1 = 24
  1. Definition
    00030 0 00000 0 00000 7 PC1 HTR0 F6A00030
␣␣␣PC2 = 25
  1. Definition
    00031 0 00000 0 00000 8 PC2 HTR0 F6A00040
␣␣␣PC3 = 26
  1. Definition
    00032 0 00000 0 00000 9 PC3 HTR0 F6A00050
  2. References (2)
    00111 0 60100 0 00032 60STOPC3 STORE LENGTH IN PROGRAM CARD. F6A00560
    00154 0 50000 0 00032 96CLAPC3 F6A00920
␣␣␣PC4 = 27
  1. Definition
    00033 0 00000 0 00000 10 PC4 HTR0 F6A00060
␣␣␣PC5 = 28
  1. Definition
    00034 0 00000 0 00000 11 PC5 HTR0 F6A00070
  2. References (3)
    00163 0 60200 0 00034 103SLWPC5 F6A00990
    01233 0 60000 0 00034 659 NOSUB STZPC5 NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD. F6A06530
    01417−0 50000 0 00034 775CALPC5 OP=BCD F6A07465
␣␣␣PC6 = 29
  1. Definition
    00035 0 00000 0 00000 12 PC6 HTR0 F6A00080
  2. References (3)
    00156 0 60100 0 00035 98STOPC6 F6A00940
    00164 0 50000 0 00035 104CLAPC6 F6A01000
    00166 0 60100 0 00035 106STOPC6 SET RELATIVE F6A01020
␣␣␣QPR = 730
  1. Definition
    01332 000000504751 722 QPR BCD1000QPR F6A07160
  2. References (3)
    00403 0 34000 0 01332 250CASQPR F6A02450
    01014 0 40200 0 01332 516SUBQPR F6A05100
    01016 0 40000 0 01332 518ADDQPR F6A05120
␣␣␣QXD = 555
  1. Definition
    01053 000000506724 547 QXD BCD1000QXD F6A05410
  2. Reference
    01017 0 40200 0 01053 519SUBQXD IS OP QXD. F6A05130
␣␣␣RCT = 750
  1. Definition
    01356 0 00000 0 00000 742 RCT HTR0 F6A07360
  2. References (12)
    00167 0 60000 0 01356 107STZRCT COUNT T0 0. F6A01030
    00373 0 50000 0 01356 242CLARCT F6A02370
    00410 0 50000 0 01356 255 B16 CLARCT F6A02500
    00412 0 60100 0 01356 257STORCT AND GO MODIFY TAPE THREE INDEX. F6A02520
    00421 0 40000 0 01356 264ADDRCT F6A02590
    00422 0 60100 0 01356 265STORCT F6A02600
    00473 0 40000 0 01356 306ADDRCT F6A03010
    00552 0 60000 0 01356 354STZRCT SET RELATIVE COUNT TO ZERO. F6A03480
    01004 0 50000 0 01356 508CLARCT NO, TEST RCT FOR ZERO. F6A05020
    01033 0 50000 0 01356 531CLARCT ADD TO RCT F6A05250
    01035 0 60100 0 01356 533STORCT F6A05270
    01234 0 60000 0 01356 660STZRCT SET RELATIVE COUNT=0. F6A06540
␣␣␣REC = 1330
  1. Definition
    02462 790 REC BES100 F6A07481
  2. References (58)
    00117 0 60200 1 02461 66SLWREC−1,1 SELECT NAME AND F6A00620
    00120 0 60200 1 02457 67SLWREC−3,1 COMPILE CIT. F6A00630
    00121 0 60000 1 02456 68STZREC−4,1 F6A00640
    00123 0 60200 1 02460 70SLWREC−2,1 F6A00660
    00171 0 60200 1 02461 109SLWREC−1,1 F6A01050
    00175 0 60000 1 02461 113 P20 STZREC−1,1 COMPILE CIT, WD1=0, F6A01090
    00201 0 60000 1 02461 117 P22 STZREC−1,1 CIT 3 F6A01130
    00614 0 60000 1 02461 388 D7 STZREC−1,1 COMPILE CLA N,4 F6A03820
    00616 0 60200 1 02460 390SLWREC−2,1 SL=0 F6A03840
    00622 0 60100 1 02456 394STOREC−4,1 F6A03880
    00623 0 60000 1 02457 395STZREC−3,1 F6A03890
    00707 0 60000 1 02461 447 D19 STZREC−1,1 COMPILE ADD. F6A04410
    00711 0 60200 1 02460 449SLWREC−2,1 F6A04430
    00713 0 60200 1 02457 451SLWREC−3,1 SA=9( F6A04450
    00717 0 60100 1 02456 455STOREC−4,1 F6A04490
    00722 0 60000 1 02461 458 D25 STZREC−1,1 COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG. F6A04520
    00724 0 60200 1 02460 460SLWREC−2,1 F6A04540
    00730 0 60200 1 02457 464 D21 SLWREC−3,1 F6A04580
    00733−0 60000 1 02456 467STQREC−4,1 F6A04610
    00746 0 60100 1 02456 478STOREC−4,1 F6A04720
    00747 0 60000 1 02461 479STZREC−1,1 F6A04730
    00751 0 60200 1 02460 481SLWREC−2,1 F6A04750
    00753 0 60200 1 02457 483SLWREC−3,1 F6A04770
    01024 0 60200 1 02460 524E10 SLWREC−2,1 TAPE 4 BUFFER. F6A05180
    01026 0 60200 1 02461 526SLWREC−1,1 F6A05200
    01030 0 60200 1 02457 528SLWREC−3,1 F6A05220
    01032 0 60200 1 02456 530SLWREC−4,1 F6A05240
    01045 0 60200 1 02460 541 EX2 SLWREC−2,1 AND RETURN TO GET REST F6A05350
    01046 0 60000 1 02461 542STZREC−1,1 OF CIT. F6A05360
    01067 0 60200 1 02461 559SLWREC−1,1 SL=9) F6A05530
    01071 0 60200 1 02460 561SLWREC−2,1 F6A05550
    01073 0 60200 1 02457 563SLWREC−3,1 F6A05570
    01074 0 60000 1 02456 564STZREC−4,1 RA=0 F6A05580
    01107 0 60000 1 02461 575STZREC−1,1 SET SL=0 F6A05690
    01161 0 60200 1 02461 617SLWREC−1,1 ARGUMENT=11. F6A06110
    01163 0 60200 1 02460 619SLWREC−2,1 SET OP=BCD. F6A06130
    01170 0 60100 1 02457 624 LIB10 STOREC−3,1 SA=6 CHARACTERS OF THE ARGUMENT. F6A06180
    01171 0 60000 1 02456 625 LIB11 STZREC−4,1 RA=0. F6A06190
    01204 0 60000 1 02461 636STZREC−1,1 NO. F6A06300
    01206 0 60100 1 02457 638 LIB12 STOREC−3,1 END OF ARGUMENT, COMPILE ENDING CIT F6A06320
    01210 0 60100 1 02460 640STOREC−2,1 F6A06340
    01221 0 70000 1 02461 649 E36 CPYREC−1,1 F6A06430
    01244 0 60000 1 02461 668 E40 STZREC−1,1 COMPILE FINAL HOLARG CIT. F6A06620
    01246 0 60200 1 02460 670SLWREC−2,1 F6A06640
    01250 0 60200 1 02457 672SLWREC−3,1 F6A06660
    01251 0 60000 1 02456 673STZREC−4,1 F6A06670
    01256 0 70000 1 02461 678 SUBA CPYREC−1,1 F6A06720
    01266 0 60200 1 02460 686SLWREC−2,1 OP=HTR F6A06800
    01267 0 60000 1 02457 687STZREC−3,1 SA=0 F6A06810
    01270 0 60000 1 02456 688STZREC−4,1 RA=0 F6A06820
    01275 0 60200 1 02456 693 SUB3 SLWREC−4,1 STORE CIT 4 5 6 F6A06870
    01277 0 60200 1 02460 695SLWREC−2,1 OP=SXD F6A06890
    01301 0 60200 1 02457 697SLWREC−3,1 SA=$0000 F6A06910
    01302 0 60000 1 02461 698STZREC−1,1 SL=0 F6A06920
    01416 0 60200 1 02460 774SLWREC−2,1 F6A07464
    01420 0 60200 1 02457 776SLWREC−3,1 SA=NAME OF ROUTINE. F6A07466
    01421 0 60000 1 02461 777STZREC−1,1 F6A07467
    01422 0 60000 1 02456 778STZREC−4,1 F6A07468
␣␣␣SDF = 72
  1. Definition
    00110 0 50000 0 04574 59 SDF CLATV−2 WD CT. OF TRANSFER VECTOR. F6A00550
  2. References (2)
    D00072−3 00000 1 00110 45TXLSDF,1 F6A00410
    00105 0 10000 0 00110 56TZESDF F6A00520
␣␣␣STA = 735
  1. Definition
    01337 626321000000 727 STA BCD1STA000 F6A07210
  2. Reference
    00723−0 50000 0 01337 459CALSTA APPEARS IN OP TABLE. F6A04530
␣␣␣SUB = 2430
  1. Definition
    04576 795 SUB SYNTV F6A07510
  2. References (9)
    00145 0 70000 2 04574 89 P18 CPYSUB−2,2 F6A00850
    00157−0 50000 0 04574 99CALSUB−2 STORE SUBDEF WORD COUNT. F6A00950
    00162−0 50000 0 04573 102 P19 CALSUB−3 STORE NAME OF SUBROUTINE FOR PROGRAM CARD. F6A00980
    00223 0 50000 0 04574 135CLASUB−2 COMPUTE TEST F6A01310
    00306 0 50000 0 04572 188 A10 CLASUB−4 SELECT ARG. F6A01830
    00432 0 50000 0 04572 273 B13 CLASUB−4 SEARCH ARG LIST F6A02680
    01141 0 70000 4 04574 601E26 CPYSUB−2,4 F6A05950
    01150 0 50000 0 04574 608 E27 CLASUB−2 TEST WORD COUNT OF HOLARG TABLE. F6A06020
    01322−0 50000 0 04572 714 C11 CALSUB−4 F6A07080
␣␣␣SUM = 758
  1. Definition
    01366 0 00000 0 00000 750 SUM HTR0 F6A07440
  2. References (2)
    00101 0 70000 0 01366 52CPYSUM F6A00480
    00103−0 70000 0 01366 54CADSUM F6A00500
␣␣␣TRA = 736
  1. Definition
    01340 635121000000 728 TRA BCD1TRA000 F6A07220
  2. Reference
    01044−0 50000 0 01340 540CALTRA SELECT OP=TRA, F6A05340
␣␣CH10 = 683
  1. Definition
    01253 0 02000 0 01214 675 CH10 TRAE33 GO TEST BLOCK FULL. F6A06690
  2. Reference
    01252 1 00004 1 01253 674TXICH10,1,4 UPOATE T-4 BLOCK C0UNTER. F6A06680
␣␣EOF1 = 734
  1. Definition
    01336 0 07400 4 00004 726 EOF1 TSX4,4 F6A07200
␣␣EOF2 = 737
  1. Definition
    01341 0 07400 4 00004 729 EOF2 TSX4,4 F6A07230
  2. Reference
    00147 0 02000 0 01341 91TRAEOF2 F6A00870
␣␣EOF3 = 743
  1. Definition
    01347 0 07400 4 00004 735 EOF3 TSX4,4 F6A07290
  2. Reference
    01143 0 02000 0 01347 603TRAEOF3 F6A05970
␣␣GOON = 769
  1. Definition
    01401−0 50000 0 01322 761 GOON CALC11 F6A07451
  2. References (3)
    01371 0 02000 0 01401 753TRAGOON F6A07443
    01374 0 02000 0 01401 756TRAGOON F6A07446
    01377 0 02000 0 01401 759TRAGOON F6A07449
␣␣HTAB = 3430
  1. Definition
    06546 797 HTAB BSS300 F6A07530
  2. References (2)
    00667 0 50000 0 06546 431 D17 CLAHTAB IS LAST GAMMA F6A04250
    01330 0 50000 0 06546 720 C17 CLAHTAB F6A07140
␣␣NAME = 781
  1. Definition
    01415−0 50000 0 01311 773 NAME CALBCD INSERT CIT 3 PRIME. F6A07463
  2. References (2)
    00203 0 02000 0 01415 119TRANAME F6A01150
    00205 0 02000 0 01415 121 COMPX TRANAME F6A01170
␣␣NOVC = 91
  1. Definition
    00133−0 53400 1 01307 78 NOVC LXDC1,1 SETXR1=0 F6A00740
  2. Reference
    00112 0 10000 0 00133 61TZENOVC F6A00570
␣␣RDRF = 57
  1. Definition
    00071−0 53400 3 04574 44 RDRF LXDTV−2,3 F6A00400
  2. Reference
    00066 0 10000 0 00071 41TZERDRF F6A00370
␣␣RDRM = 47
  1. Definition
    00057 0 76200 0 00303 34 RDRM RDR3 F6A00300
  2. Reference
    00067 2 00001 2 00057 42TIXRDRM,2,1 F6A00380
␣␣SUB1 = 684
  1. Definition
    01254 0 76600 0 00224 676 SUB1 WTB4 WRITE TAPE 4, F6A06700
  2. References (14)
    00131 0 07400 2 01254 76 WRIT4 TSXSUB1,2 WRITE RECORD ON F6A00720
    00174 0 07400 2 01254 112TSXSUB1,2 IF VEC, WRITE OFF TAPE FOUR. F6A01080
    00200 0 07400 2 01254 116TSXSUB1,2 IF NEC, WRITE OFF TAPE FOUR. F6A01120
    00204 0 07400 2 01254 120TSXSUB1,2 F6A01160
    00210 0 07400 2 01254 124TSXSUB1,2 F6A01200
    00214 0 07400 2 01254 128TSXSUB1,2 F6A01240
    00220 0 07400 2 01254 132TSXSUB1,2 F6A01280
    00647 0 07400 2 01254 415 D9 TSXSUB1,2 WRITE OFF ON F6A04090
    00740 0 07400 2 01254 472TSXSUB1,2 GO WRITE A CIT RECORD ON TAPE 4. F6A04660
    00756 0 07400 2 01254 486TSXSUB1,2 F6A04800
    01057 0 07400 2 01254 551 E13 TSXSUB1,2 WRITE OFF ON F6A05450
    01111 0 07400 2 01254 577 E16 TSXSUB1,2 F6A05710
    01212 0 07400 2 01254 642 E31 TSXSUB1,2 WRITE OFF ON TAPE 4. F6A06360
    01426 0 07400 2 01254 782TSXSUB1,2 F6A07472
␣␣SUB2 = 693
  1. Definition
    01265−0 50000 0 01315 685 SUB2 CALC6 COMPILE CITS F6A06790
  2. References (3)
    00172 0 07400 2 01265 110TSXSUB2,2 COMPLETES CIT ONE. F6A01060
    00176 0 07400 2 01265 114TSXSUB2,2 WD 2=HTR, WD 3=0, WD 4=0. F6A01100
    00202 0 07400 2 01265 118TSXSUB2,2 F6A01140
␣␣SUB3 = 701
  1. Definition
    01275 0 60200 1 02456 693 SUB3 SLWREC−4,1 STORE CIT 4 5 6 F6A06870
  2. References (3)
    00206 0 07400 2 01275 122TSXSUB3,2 TO STORE CIT 4 IN TAPE 4 BUFFER. F6A01180
    00212 0 07400 2 01275 126TSXSUB3,2 TO STORE IN T-4 BUFFER PROLOGUE CIT 5 F6A01220
    00216 0 07400 2 01275 130TSXSUB3,2 F6A01260
␣␣SUBA = 686
  1. Definition
    01256 0 70000 1 02461 678 SUBA CPYREC−1,1 F6A06720
  2. Reference
    01261 0 02000 0 01256 681TRASUBA F6A06750
␣␣SUBB = 688
  1. Definition
    01260 3 00143 1 01262 680 SUBB TXHSUBC,1,99 F6A06740
  2. Reference
    01257 1 00001 1 01260 679TXISUBB,1,1 F6A06730
␣␣SUBC = 690
  1. Definition
    01262 0 76600 0 00333 682 SUBC IOD F6A06760
  2. Reference
    01260 3 00143 1 01262 680 SUBB TXHSUBC,1,99 F6A06740
␣␣ZERO = 732
  1. Definition
    01334 0 00000 0 00000 724 ZERO HTR0 F6A07180
  2. References (2)
    00313 0 50000 0 01334 193 A12 CLAZERO ARG IS NOT ARRAY. SET BIT TO ZERO F6A01880
    00555−0 53400 2 01334 357 REA02 LXDZERO,2 F6A03510
␣AGTST = 731
  1. Definition
    01333 0 50000 0 00000 723 AGTST CLA** F6A07170
  2. References (3)
    00231 0 62100 0 01333 141STAAGTST AGTST CONTAINS NO. OF ARGS-SUB+4 F6A01370
    00331 0 40200 0 01333 207SUBAGTST F6A02020
    00441 0 40200 0 01333 280SUBAGTST TEST FOR ALL ARGUMENTS TREATED. F6A02750
␣APCH1 = 760
  1. Definition
    01370 0 34000 0 01403 752 APCH1 CASSYNOP F6A07442
  2. Reference
    00430 0 02000 0 01370 271 EXT20 TRAAPCH1 OP NOT QPR NOR BSS. F6A02660
␣APCH2 = 774
  1. Definition
    01406 0 76200 0 00202 766 APCH2 RTD2 SKIP A BCD F1LE. F6A07456
  2. References (3)
    00042 0 07400 4 01406 20TSXAPCH2,4 TO SKIP BCD FILE. F6A00160
    01113 0 07400 4 01406 579 E20 TSXAPCH2,4 TO SKIP BCD FILE. F6A05730
    01412 0 02000 0 01406 770TRAAPCH2 END OF RECORD F6A07460
␣APCH3 = 793
  1. Definition
    01431 2 00000 0 00000 785 APCH3 TIX0,0,0 REINITIALIZE C14 F6A07475
  2. References (2)
    00341 0 02000 0 01432 215TRAAPCH3+1 F6A02100
    01432 0 50000 0 01431 786CLAAPCH3 F6A07476
␣ARGCT = 752
  1. Definition
    01360 0 00000 0 00000 744 ARGCT HTR0 F6A07380
  2. References (4)
    00226 0 60100 0 01360 138STOARGCT ARGCT CONTAINS WD CT. OF SUBDEF-1. F6A01340
    00643 0 40200 0 01360 411SUBARGCT TEST END OF ARG. NUMBERS. F6A04050
    01002 0 50000 0 01360 506CLAARGCT TEST ARGUMENT COUNT FOR ZERO. F6A05000
    01241 0 60000 0 01360 665STZARGCT SET ARGUMENT COUNT=ZERO. F6A06590
␣ARGNO = 748
  1. Definition
    01354 0 00000 0 00000 740 ARGNO HTR0 F6A07340
  2. References (7)
    00447 0 60100 0 01354 286STOARGNO COMPUTE ADDRESS F6A02810
    00471 0 50000 0 01354 304 B20 CLAARGNO ASSEMBLE WORD ONE OF OP TABLE ENTRY. F6A02990
    00610 0 60100 0 01354 384STOARGNO F6A03780
    00617 0 50000 0 01354 391CLAARGNO OP=CLA F6A03850
    00632 0 34000 0 01354 402CASARGNO COMPARE IT WITH ARG NO. F6A03960
    00640 0 50000 0 01354 408 D15 CLAARGNO MODIFY ARG NUMBER (INCREASE IT BY ONE). F6A04020
    00642 0 60100 0 01354 410STOARGNO F6A04040
␣ARIND = 2760
  1. Definition
    05310 800 ARIND BES30 F6A07560
  2. References (3)
    00253 0 60000 2 05310 161 A19 STZARIND,2 TO ZERO, F6A01560
    00316−0 60200 0 05310 196 A14 ORSARIND STORE INSTORE INDICATOR F6A01910
    01323 0 00000 0 05310 715 C12 HTRARIND F6A07090
␣BCDOP = 773
  1. Definition
    01405+000000222324 765 BCDOP OCT000000222324 F6A07455
  2. Reference
    01376 0 34000 0 01405 758CASBCDOP F6A07448
␣COMPX = 133
  1. Definition
    00205 0 02000 0 01415 121 COMPX TRANAME F6A01170
  2. Reference
    01430 0 02000 0 00206 784TRACOMPX+1 F6A07474
␣CONCT = 755
  1. Definition
    01363 0 00000 0 00000 747 CONCT HTR0 F6A07410
  2. References (9)
    00606 0 60000 0 01363 382STZCONCT SET CONCT EQUAL ZERO F6A03760
    00662 0 50000 0 01363 426CLACONCT NO. TEST FOR ANY INCREMENT TABLE. F6A04200
    00700 0 40000 0 01363 440ADDCONCT F6A04340
    00704 0 50000 0 01363 444CLACONCT UP CONCOUNT BY ONE. F6A04380
    00706 0 60100 0 01363 446STOCONCT F6A04400
    00714 0 50000 0 01363 452CLACONCT F6A04460
    01061 0 50000 0 01363 553 E14 CLACONCT ENO OF TAPE 3. F6A05470
    01105 0 40200 0 01363 573SUBCONCT F6A05670
    01237 0 60000 0 01363 663STZCONCT SET CONSTANT COUNT=ZERO. F6A06570
␣DELDD = 756
  1. Definition
    01364 0 00000 0 00000 748 DELDD HTR0 F6A07420
  2. References (2)
    00653 0 60100 0 01364 419STODELDD COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY TO F6A04130
    00656 0 56000 0 01364 422LDQDELDD F6A04160
␣DELIN = 751
  1. Definition
    01357 0 00000 0 00000 743 DELIN HTR0 F6A07370
  2. References (9)
    00222−0 60000 0 01357 134STQDELIN INDICATOR NOT ZERO. F6A01300
    00377 0 50000 0 01357 246 B9 CLADELIN IS DELINO ZERO. F6A02410
    00407 0 60000 0 01357 254 B10 STZDELIN QPR OP. SET DELETE INDICATOR TO ZERO. F6A02490
    00415 0 60100 0 01357 260STODELIN AND GO MODIFY TAPE 3 IN0EX. F6A02550
    00554 0 60100 0 01357 356STODELIN SET DELETE INDICATOR TO NOT-ZERO. F6A03500
    01021 0 50000 0 01357 521CLADELIN IS DELETE IND F6A05150
    01043 0 60100 0 01357 539 E9 STODELIN QPR. SET DELIN=0. F6A05330
    01055 0 60100 0 01357 549STODELIN TO NOT ZERO, AND TRANSFER F6A05430
    01236 0 60100 0 01357 662STODELIN SET DELIN TO NOT ZERO. F6A06560
␣DELTA = 754
  1. Definition
    01362 0 00000 0 00000 746 DELTA HTR0 F6A07400
  2. References (3)
    00626 0 60000 0 01362 398 D10 STZDELTA SET DELTA ZERO. F6A03920
    00654 0 40200 0 01362 420SUBDELTA ADD T0 GET EFFECTIVE ADDRESS FOR STA. F6A04140
    00657−0 60000 0 01362 423STQDELTA F6A04170
␣ERAS1 = 749
  1. Definition
    01355 0 00000 0 00000 741 ERAS1 HTR0 F6A07350
  2. References (5)
    00044 0 70000 0 01355 22 CH1 CPYERAS1 F6A00180
    00453−0 60000 0 01355 290STQERAS1 F6A02850
    00456 0 40200 0 01355 293SUBERAS1 F6A02880
    01115 0 70000 0 01355 581 CH3 CPYERAS1 F6A05750
    01407 0 70000 0 01355 767CPYERAS1 F6A07457
␣EXT20 = 280
  1. Definition
    00430 0 02000 0 01370 271 EXT20 TRAAPCH1 OP NOT QPR NOR BSS. F6A02660
  2. References (2)
    00426 0 02000 0 00430 269TRAEXT20 F6A02640
    01402 0 02000 0 00431 762TRAEXT20+1 F6A07452
␣EXT21 = 271
  1. Definition
    00417 0 50000 4 02622 262 EXT21 CLACIT−4,4 F6A02570
  2. Reference
    00427 0 02000 0 00417 270TRAEXT21 OP EQUAL BSS. F6A02650
␣GAMMA = 757
  1. Definition
    01365 0 00000 0 00000 749 GAMMA HTR0 F6A07430
  2. References (4)
    00655 0 60100 0 01365 421STOGAMMA F6A04150
    00660 0 50000 0 01365 424CLAGAMMA IS INCREMENT ZERO. F6A04180
    00670 0 40200 0 01365 432SUBGAMMA EQUAL CURRENT GAMMA. F6A04260
    00702 0 50000 0 01365 442CLAGAMMA F6A04360
␣IRIST = 746
  1. Definition
    01352 0 00000 0 00000 738 IRIST HTR0 F6A07320
  2. References (8)
    00261−0 63400 1 01352 167SXDIRIST,1 SAVE TAPE 4 INDEX. F6A01620
    00301−0 53400 1 01352 183LXDIRIST,1 F6A01780
    00342−0 63400 1 01352 216 B1 SXDIRIST,1 SAVE TAPE 4 INDEX F6A02110
    00551−0 53400 1 01352 353LXDIRIST,1 F6A03470
    00737−0 63400 2 01352 471 D20 SXDIRIST,2 F6A04650
    00741−0 53400 2 01352 473LXDIRIST,2 F6A04670
    00755−0 63400 2 01352 485 D23 SXDIRIST,2 F6A04790
    00757−0 53400 2 01352 487LXDIRIST,2 F6A04810
␣LIB10 = 632
  1. Definition
    01170 0 60100 1 02457 624 LIB10 STOREC−3,1 SA=6 CHARACTERS OF THE ARGUMENT. F6A06180
  2. Reference
    01166 0 02000 0 01170 622TRALIB10 NO. F6A06160
␣LIB11 = 633
  1. Definition
    01171 0 60000 1 02456 625 LIB11 STZREC−4,1 RA=0. F6A06190
  2. Reference
    01211 0 02000 0 01171 641TRALIB11 F6A06350
␣LIB12 = 646
  1. Definition
    01206 0 60100 1 02457 638 LIB12 STOREC−3,1 END OF ARGUMENT, COMPILE ENDING CIT F6A06320
  2. Reference
    01167 0 02000 0 01206 623TRALIB12 TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE. F6A06170
␣NOSUB = 667
  1. Definition
    01233 0 60000 0 00034 659 NOSUB STZPC5 NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD. F6A06530
  2. References (2)
    00161 0 10000 0 01233 101TZENOSUB TEST FOR SUBROUTINE. F6A00970
    01243 0 02000 0 01234 667 F1 TRANOSUB+1 F6A06610
␣OCTOP = 772
  1. Definition
    01404+000000462363 764 OCTOP OCT000000462363 F6A07454
  2. Reference
    01373 0 34000 0 01404 755CASOCTOP F6A07445
␣RDRM1 = 60
  1. Definition
    00074 0 76200 0 00303 47 RDRM1 RDR3 F6A00430
  2. Reference
    00106 2 00001 2 00074 57TIXRDRM1,2,1 F6A00530
␣REA02 = 365
  1. Definition
    00555−0 53400 2 01334 357 REA02 LXDZERO,2 F6A03510
␣SLINT = 747
  1. Definition
    01353 0 00000 0 00000 739 SLINT HTR0 F6A07330
  2. References (3)
    00376 0 60200 0 01353 245SLWSLINT SYM LOCATION. F6A02400
    00725−0 50000 0 01353 461CALSLINT TEST INITIAL SYMBOLIC LOCATION. F6A04550
    01006−0 50000 0 01353 510CALSLINT TEST FIRST SUMBOLIC LOC. F6A05040
␣START = 31
  1. Definition
    00037 0 77200 0 00202 17 START REW2 F6A00130
␣SUB2A = 698
  1. Definition
    01272 3 00143 1 01274 690 SUB2A TXHSUB2B,1,99 TLST TAPE 4 BLOCK FULL. F6A06840
  2. Reference
    01271 1 00004 1 01272 689TXISUB2A,1,4 F6A06830
␣SUB2B = 700
  1. Definition
    01274 0 02000 2 00002 692 SUB2B TRA2,2 YES. F6A06860
  2. Reference
    01272 3 00143 1 01274 690 SUB2A TXHSUB2B,1,99 TLST TAPE 4 BLOCK FULL. F6A06840
␣SUB3A = 708
  1. Definition
    01304 3 00143 1 01306 700 SUB3A TXHSUB3B,1,99 TEST TAPE 4 BLOCK FULL. F6A06940
  2. Reference
    01303 1 00004 1 01304 699TXISUB3A,1,4 F6A06930
␣SUB3B = 710
  1. Definition
    01306 0 02000 2 00002 702 SUB3B TRA2,2 YES. F6A06960
  2. Reference
    01304 3 00143 1 01306 700 SUB3A TXHSUB3B,1,99 TEST TAPE 4 BLOCK FULL. F6A06940
␣SUBIN = 30
  1. Definition
    00036 0 00000 0 00000 13 SUBIN HTR0 F6A00090
  2. Reference
    00160 0 60100 0 00036 100STOSUBIN F6A00960
␣SYNOP = 771
  1. Definition
    01403+000000627045 763 SYNOP OCT000000627045 F6A07453
  2. Reference
    01370 0 34000 0 01403 752 APCH1 CASSYNOP F6A07442
␣TABCT = 733
  1. Definition
    01335 110000000000 725 TABCT BCD1900000 F6A07190
  2. References (3)
    00712−0 50000 0 01335 450CALTABCT F6A04440
    00752−0 50000 0 01335 482CALTABCT F6A04760
    01066−0 50000 0 01335 558CALTABCT F6A05520
␣TP2CT = 753
  1. Definition
    01361 0 00000 0 00000 745 TP2CT HTR0 F6A07390
  2. References (7)
    00343 0 60000 0 01361 218STZTP2CT SET TAPE 2 RECORD COUNT TO ZERO, F6A02130
    00507 0 50000 0 01361 318CLATP2CT UPDATE TAPE TWO RECORD COUNT. F6A03130
    00511 0 60100 0 01361 320STOTP2CT F6A03150
    00531 0 50000 0 01361 337 B34 CLATP2CT IS RECORD COUNT ZERO. F6A03310
    00534 0 50000 0 01361 340 B35 CLATP2CT F6A03340
    00537 0 60100 0 01361 343STOTP2CT F6A03370
    00542 0 53400 1 01361 346LXATP2CT,1 BACK SPACE TO F6A03400
␣WRIT4 = 89
  1. Definition
    00131 0 07400 2 01254 76 WRIT4 TSXSUB1,2 WRITE RECORD ON F6A00720
  2. Reference
    00125 3 00143 1 00131 72 P7 TXHWRIT4,1,99 F6A00680