␣␣␣␣A1 = 167
  1. Definition
    00247 0 76000 0 00165 46 A1 SWT5 SENSE SWITCH 5 TEST. F6P00450
  2. Reference
    00244 0 02000 0 00247 43TRAA1 GO TO TEST SENSE SWITCH FIVE. F6P00420
␣␣␣␣A3 = 170
  1. Definition
    00252 0 76200 0 00221 49 A3 RTB1 SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM). F6P00480
  2. References (2)
    00245 0 02000 0 00252 44TRAA3 1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN F6P00430
    00251 0 02000 0 00252 48TRAA3 DOWN. F6P00470
␣␣␣␣A4 = 138
  1. Definition
    T00212−0 75400 0 00000 17 A4 PXD0 TRANSFER VECTOR F6P00160
  2. Reference
    00213 0 46000 0 00212 18LDAA4 F6P00170
␣␣␣␣A5 = 150
  1. Definition
    00226 0 76200 0 00303 29 A5 RDR3 F6P00280
  2. Reference
    00240 2 00001 2 00226 39TIXA5,2,1 F6P00380
␣␣␣␣A6 = 151
  1. Definition
    T00227−0 75400 0 00002 30 A6 PXD2 READ TRANSFER F6P00290
  2. Reference
    00230 0 46000 0 00227 31LDAA6 VECTOR INTO STORAGE, FIRST SUBROUTINE NAME INTOF6P00300
␣␣␣␣A7 = 153
  1. Definition
    00231−0 70000 1 03133 32 A7 CADTVR−1,1 TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2, F6P00310
  2. Reference
    00232 2 00001 1 00231 33TIXA7,1,1 F6P00320
␣␣␣␣A8 = 162
  1. Definition
    M00242 0 50000 0 00203 41 A8 CLASW5 CHECK SUM OKAY. F6P00400
  2. Reference
    00237 0 10000 0 00242 38TZEA8 TEST CHECK SUM. F6P00370
␣␣␣␣B5 = 427
  1. Definition
    00653−3 00027 1 00651 319 B5 TXLB6,1,23 F6P03180
  2. Reference
    00652 1 00001 1 00653 318TXIB5,1,1 F6P03170
␣␣␣␣B6 = 425
  1. Definition
    00651 0 36100 1 01327 317 B6 ACLBUFF−1,1 F6P03160
  2. Reference
    00653−3 00027 1 00651 319 B5 TXLB6,1,23 F6P03180
␣␣␣␣B8 = 275
  1. Definition
    00423−0 75400 2 00000 163 B8 PXD0,2 F6P01620
  2. Reference
    00420−3 00025 2 00423 160TXLB8,2,21 F6P01590
␣␣␣␣B9 = 257
  1. Definition
    00401 0 60100 0 01327 143 B9 STOBUFF−1 F6P01420
  2. References (2)
    00422 0 02000 0 00401 162TRAB9 F6P01610
    00432 0 02000 0 00401 170TRAB9 F6P01690
␣␣␣␣D1 = 288
  1. Definition
    00440 0 50000 0 01004 176 D1 CLAPASCT PREPARE FOR ANOTHER F6P01750
  2. Reference
    00435 0 10000 0 00440 173TZED1 TRANSFER IF ONLY ONE SEARCH F6P01720
␣␣␣␣D2 = 293
  1. Definition
    00445 0 76400 0 00201 182 D2 BST1 BACK SPACE TAPE THAT MANY RECORDS. F6P01810
  2. References (2)
    00444 1 00001 1 00445 181TXID2,1,1 TAPE. F6P01800
    00446 2 00001 1 00445 183TIXD2,1,1 F6P01820
␣␣␣␣D3 = 297
  1. Definition
    00451 0 53400 1 01003 186 D3 LXALIBCT,1 ANY SUBROUTINES FOUND F6P01850
  2. Reference
    00437 0 10000 0 00451 175TZED3 CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH. F6P01740
␣␣␣␣D4 = 147
  1. Definition
    00223−0 53400 1 03133 26 D4 LXDTVR−1,1 SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250
  2. Reference
    00220 0 10000 0 00223 23TZED4 NO READ ERROR. F6P00220
␣␣␣␣D5 = 137
  1. Definition
    00211 0 76200 0 00303 16 D5 RDR3 SELECT DRUM 3 (TRANSFER VECTOR TABLE). F6P00150
  2. Reference
    00221 2 00001 1 00211 24TIXD5,1,1 F6P00230
␣␣␣␣D7 = 373
  1. Definition
    00565 0 76600 0 00202 265 D7 WTD2 F6P02640
␣␣␣␣D9 = 302
  1. Definition
    00456 0 50000 1 03610 191 D9 CLALIBF,1 SELECT SUBROUTINE NAME. F6P01900
  2. Reference
    00461 2 00001 1 00456 195TIXD9,1,1 TRANSFER IF MORE SUBR. NAMES, F6P01940
␣␣␣␣EQ = 197
  1. Definition
    77 OF LIBRARY TAPE. F6P00760
    00305 0 07400 4 00760 78 EQ TSXERASE,4 WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE F6P00770
  2. Reference
    00300 0 02000 0 00305 72TRAEQ FOUND ROUTINE, GO T0 EQ. F6P00710
␣␣␣␣NO = 218
  1. Definition
    00332 2 00001 2 00327 99 NO TIXA17,2,1 NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980
  2. Reference
    00330 0 02000 0 00332 97TRANO F6P00960
␣␣␣␣RD = 357
  1. Definition
    00545 0 76200 0 00221 249 RD RTB1 SELECT TAPE 1, F6P02480
  2. References (2)
    00540 0 02000 0 00545 244TRARD ROUTINE F6P02430
    00542 2 00001 2 00545 246TIXRD,2,1 F6P02450
␣␣␣␣X1 = 237
  1. Definition
    121 EQUAL 20. F6P01200
    00355 0 07400 4 00613 122 X1 TSXLOOP3,4 GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC. F6P01210
  2. Reference
    00354 0 02000 0 00355 120TRAX1 GO T0 X1 IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190
␣␣␣␣X2 = 245
  1. Definition
    00365 0 40200 0 01012 130 X2 SUBL20D TO TREAT 20 AT A TIME. F6P01290
  2. Reference
    00353 0 02000 0 00365 118TRAX2 GO TO X2 IF TRANS VEC. OF LIB. SUBR. GREATER F6P01170
␣␣␣␣X3 = 232
  1. Definition
    00350 0 50000 0 01006 115 X3 CLAVLENG WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE. F6P01140
  2. Reference
    00376 0 12000 0 00350 140TPLX3 NO, GO PROCESS TRANS. VEC. F6P01390
␣␣␣␣Y1 = 322
  1. Definition
    00502 0 77000 0 00203 212 Y1 WEF3 WRITE END OF FILE MARK ON TAPE 3. F6P02110
  2. Reference
    00477−0 10000 0 00502 209TNZY1 NO, GO TO WRITE END OF FILE F6P02080
␣␣␣A10 = 171
  1. Definition
    00253 0 60000 0 01002 50 A10 STZRCT F6P00490
␣␣␣A11 = 176
  1. Definition
    00260 0 07400 4 00537 55 A11 TSXSUB1,4 READ TAPE1 RECORD. F6P00540
  2. References (2)
    00264 0 02000 0 00260 60TRAA11 NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD. F6P00590
    00304 0 02000 0 00260 76TRAA11 NO MORE PRI. NAMES ON CARD. GO READ NEXT REC. F6P00750
␣␣␣A12 = 181
  1. Definition
    00265 0 62200 0 00335 61 A12 STDA18 PROGRAM CARD. F6P00600
  2. References (2)
    00263−0 12000 0 00265 58TMIA12 PROG. CARD TEST. FIRST WORD IS MINUS ON PROG. F6P00570
    00363−0 12000 0 00265 128TMIA12 YES, PROG CARD. TRANSFER. F6P01270
␣␣␣A13 = 193
  1. Definition
    00301 2 00001 2 00276 73 A13 TIXA14,2,1 NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME. F6P00720
  2. Reference
    00277 0 02000 0 00301 71TRAA13 F6P00700
␣␣␣A14 = 190
  1. Definition
    00276 0 34000 2 03133 70 A14 CASTVR−1,2 COMPARE IT TO NAME IN TRANSFER VECTOR. F6P00690
  2. Reference
    00301 2 00001 2 00276 73 A13 TIXA14,2,1 NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME. F6P00720
␣␣␣A15 = 195
  1. Definition
    00303−3 00303 1 00272 75 A15 TXLA16,1,* ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740
  2. References (3)
    00266 0 62200 0 00303 62STDA15 SAVE LENGTH OF RECORD (BITS 4-1B HAVE NO. OF F6P00610
    00302 1 00002 1 00303 74 SEC TXIA15,1,2 NOT FOUND. GO TO TEST NEXT WORD ON CARD. F6P00730
    00342−0 53400 2 00303 109 A21 LXDA15,2 F6P01080
␣␣␣A16 = 186
  1. Definition
    00272−0 53400 2 03133 66 A16 LXDTVR−1,2 F6P00650
  2. Reference
    00303−3 00303 1 00272 75 A15 TXLA16,1,* ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740
␣␣␣A17 = 215
  1. Definition
    00327 0 34000 2 03133 96 A17 CASTVR−1,2 IS IT CALLED FOR BY TRANSFER VECTOR. F6P00950
  2. Reference
    00332 2 00001 2 00327 99 NO TIXA17,2,1 NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980
␣␣␣A18 = 221
  1. Definition
    00335−3 00335 1 00325 103 A18 TXLA19,1,* THIS IS SET BY A12, CONTAINS NO. OF WORDS ON F6P01020
  2. References (3)
    00265 0 62200 0 00335 61 A12 STDA18 PROGRAM CARD. F6P00600
    00324 0 02000 0 00334 93TRAA18−1 F6P00920
    00334 1 00002 1 00335 102TXIA18,1,2 INCREMENT PROG CARD COUNTER BY 2, F6P01010
␣␣␣A19 = 213
  1. Definition
    00325−0 53400 2 03133 94 A19 LXDTVR−1,2 OF THIS ROUTINE F6P00930
  2. Reference
    00335−3 00335 1 00325 103 A18 TXLA19,1,* THIS IS SET BY A12, CONTAINS NO. OF WORDS ON F6P01020
␣␣␣A20 = 219
  1. Definition
    100 TRANSFER. F6P00990
    00333 0 07400 4 00506 101 A20 TSXLIBEN,4 NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000
  2. Reference
    00341 0 02000 0 00333 108TRAA20 ENTER IT IN LIBF. F6P01070
␣␣␣A21 = 226
  1. Definition
    00342−0 53400 2 00303 109 A21 LXDA15,2 F6P01080
  2. Reference
    00336 0 02000 0 00342 105TRAA21 TRANS. WHEN ALL NAMES ON CARD HAVE BEEN CHECKEDF6P01040
␣␣␣A22 = 238
  1. Definition
    00356 0 07400 4 00523 123 A22 TSXWRITE,4 GO WRITE TRANS. VECT. RECORD ON TAPE 3. F6P01220
  2. References (2)
    00351 0 10000 0 00356 116TZEA22 IF NO TRANSFER VECTOR, GO TO WRITE. F6P01150
    00364 0 02000 0 00356 129TRAA22 NO, GO TO WRITE CARD ON TAPE THREE. F6P01280
␣␣␣A23 = 403
  1. Definition
    00623 2 00001 2 00620 295 A23 TIXA24,2,1 NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS. F6P02940
  2. Reference
    00621 0 02000 0 00623 293TRAA23 NOT EQUAL F6P02920
␣␣␣A24 = 400
  1. Definition
    00620 0 34000 2 03610 292 A24 CASLIBF,2 SELECT NAME FROM LIBF TABLE. F6P02910
  2. Reference
    00623 2 00001 2 00620 295 A23 TIXA24,2,1 NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS. F6P02940
␣␣␣A25 = 408
  1. Definition
    00630 0 50000 0 03133 300 A25 CLATVR−1 SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE. F6P02990
  2. Reference
    00624 0 02000 0 00630 296TRAA25 NO. NOT IN LIBF. F6P02950
␣␣␣A26 = 405
  1. Definition
    00625 1 00001 1 00626 297 A26 TXIA27,1,1 ANY MORE NAMES IN SUBROUT. TRANS. VECTOR. F6P02960
  2. References (3)
    00622 0 02000 0 00625 294TRAA26 SUBROUTINE IS IN LIBF. F6P02930
    00637 0 02000 0 00625 307TRAA26 YES, TRANSFER. F6P03060
    00644 0 02000 0 00625 312TRAA26 F6P03110
␣␣␣A27 = 406
  1. Definition
    00626−3 00626 1 00616 298 A27 TXLA28,1,* YES. F6P02970
  2. References (2)
    00614 0 62200 0 00626 288STDA27 F6P02870
    00625 1 00001 1 00626 297 A26 TXIA27,1,1 ANY MORE NAMES IN SUBROUT. TRANS. VECTOR. F6P02960
␣␣␣A28 = 398
  1. Definition
    00616 0 53400 2 01003 290 A28 LXALIBCT,2 SUBROUTINE IN TVR F6P02890
  2. Reference
    00626−3 00626 1 00616 298 A27 TXLA28,1,* YES. F6P02970
␣␣␣A30 = 416
  1. Definition
    00640 1 00001 2 00641 308 A30 TXIA31,2,1 F6P03070
  2. Reference
    00636 0 02000 0 00640 306TRAA30 F6P03050
␣␣␣A31 = 417
  1. Definition
    00641−3 00641 2 00635 309 A31 TXLA32,2,* F6P03080
  2. References (3)
    00631 0 62200 0 00641 301STDA31 IF NOT ALREADY IN F6P03000
    00640 1 00001 2 00641 308 A30 TXIA31,2,1 F6P03070
    00646 0 02000 0 00642 314TRAA31+1 GO STORE IT. F6P03130
␣␣␣A32 = 413
  1. Definition
    00635 0 34000 2 03133 305 A32 CASTVR−1,2 IS IT IN THE TVR TABLE. F6P03040
  2. Reference
    00641−3 00641 2 00635 309 A31 TXLA32,2,* F6P03080
␣␣␣B11 = 279
  1. Definition
    00427−3 00026 1 00425 167 B11 TXLB12,1,22 F6P01660
  2. Reference
    00426 1 00001 1 00427 166TXIB11,1,1 F6P01650
␣␣␣B12 = 277
  1. Definition
    00425 0 60000 1 01325 165 B12 STZBUFF−3,1 AND FILL IN ZEROES IF NECESSARY. F6P01640
  2. Reference
    00427−3 00026 1 00425 167 B11 TXLB12,1,22 F6P01660
␣␣␣B13 = 230
  1. Definition
    00346 0 07400 4 00537 113 B13 TSXSUB1,4 READ RECORD FROM LIB. TAPE F6P01120
  2. Reference
    00407−0 12000 0 00346 150TMIB13 NO, GO T0 B13. F6P01490
␣␣␣BOO = 268
  1. Definition
    00414 0 50000 1 01277 156 BOO CLABUFF−25,1 MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER, F6P01550
  2. Reference
    00417−3 00417 1 00414 159 BOO1 TXLBOO,1,* F6P01580
␣␣␣BST = 2010
  1. Definition
    03732 0 76400 0 00203 494 BST BST3 BACK SPACE TAPE 3 F6P04590
  2. Reference
    03727 2 00001 2 03732 491 RTE TIXBST,2,1 READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560
␣␣␣CNA = 444
  1. Definition
    00674 2 00002 2 00700 336 CNA TIXEXIT,2,2 RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350
  2. Reference
    00670 0 10000 0 00674 332TZECNA F6P03310
␣␣␣CNS = 434
  1. Definition
    00662 0 56000 0 01015 326 CNS LDQNAME ASSENBLE BCD REPRESENTATION OF F6P03250
␣␣␣CTF = 517
  1. Definition
    01005 0 00000 0 00000 411 CTF (ADDRESS) F6P03760
  2. References (4)
    00257 0 60000 0 01005 54 LOOP1 STZCTF F6P00530
    00315 0 50000 0 01005 86CLACTF UPDATE CTP. F6P00850
    00317 0 60100 0 01005 88STOCTF OTHER NAMES ON CARD. NO, TRANSFER. F6P00870
    00436 0 50000 0 01005 174CLACTF END OF SEARCH TEST F6P01730
␣␣␣D10 = 312
  1. Definition
    00470 0 50000 1 03133 202 D10 CLATVR−1,1 SELECT NAME IN TVR TABLE. F6P02010
  2. Reference
    00473 2 00001 1 00470 205TIXD10,1,1 TRANSFER IF ANY MORE NAMES IN TVR TABLE. F6P02040
␣␣␣EOF = 283
  1. Definition
    00433 0 50000 0 01004 171 EOF CLAPASCT F6P01700
  2. References (4)
    00261 0 02000 0 00433 56TRAEOF RETURN HERE IF END OF FILE F6P00550
    00347 0 02000 0 00433 114TRAEOF EOF. F6P01130
    00361 0 02000 0 00433 126TRAEOF EOF ON LIBRARY TAPE. F6P01250
    00374 0 02000 0 00433 138TRAEOF EOF F6P01370
␣␣␣EQ2 = 210
  1. Definition
    00322 0 00000 0 00000 91 EQ2 HTR0 F6P00900
  2. References (2)
    00306−0 63400 1 00322 79SXDEQ2,1 NAME IN TRANS. VEC., GO ERASE NAME FROMTVR. F6P00780
    00323−0 53400 1 00322 92 EQ3 LXDEQ2,1 F6P00910
␣␣␣EQ3 = 211
  1. Definition
    00323−0 53400 1 00322 92 EQ3 LXDEQ2,1 F6P00910
  2. Reference
    00320−3 00004 1 00323 89TXLEQ3,1,4 F6P00880
␣␣␣EQ4 = 199
  1. Definition
    00307 0 53400 4 01003 80 EQ4 LXALIBCT,4 SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND. F6P00790
  2. Reference
    00321 1 77776 1 00307 90TXIEQ4,1,−2 YES, GO ENTER IN LIBF. F6P00890
␣␣␣ERR = 353
  1. Definition
    00541 0 76400 0 00201 245 ERR BST1 READ-ERROR PROCEDURE. F6P02440
  2. Reference
    00555 0 02000 0 00541 257TRAERR F6P02560
␣␣␣FR4 = 519
  1. Definition
    01007 0 00004 0 00000 413 FR4 0,0,4 F6P03780
  2. References (2)
    00267−0 53400 1 01007 63LXDFR4,1 WORDS IN RECORD EXCLUDING 9-ROW. F6P00620
    00615−0 53400 1 01007 289LXDFR4,1 F6P02880
␣␣␣IR4 = 450
  1. Definition
    00702 0 00000 0 00000 342 IR4 0,0,0 F6P03410
  2. References (4)
    00576−0 63400 4 00702 274 WLL SXDIR4,4 PREPARE TO WRITE FINAL RECORD ON TAPE TWO, F6P02730
    00611−0 53400 4 00702 285LXDIR4,4 F6P02840
    00656−0 63400 4 00702 322 SUB2 SXDIR4,4 F6P03210
    00700−0 53400 4 00702 340 EXIT LXDIR4,4 AND RETURN TO PROGRAM F6P03390
␣␣␣L20 = 520
  1. Definition
    01010 0 00000 0 00024 414 L20 20,0,0 F6P03790
␣␣␣LIN = 1947
  1. Definition
    03633 426 LIN BSS1 F6P03910
  2. References (5)
    00660 0 60200 2 03634 324SLWLIN+1,2 STORE BLANKS IN BOTH WORDS OF ENTRY. F6P03230
    00661 0 60200 2 03635 325SLWLIN+2,2 F6P03240
    00672 0 60200 2 03635 334SLWLIN+2,2 STORE IT IN WORD TWO OF ENTRY. F6P03330
    00676 0 00024 0 03634 338 LNC LIN+1,,20 F6P03370
    01017 0 00026 0 03636 421 LNE LIN+3,,22 F6P03860
␣␣␣LNC = 446
  1. Definition
    00676 0 00024 0 03634 338 LNC LIN+1,,20 F6P03370
  2. References (3)
    00455−0 53400 2 00676 190LXDLNC,2 SET RECORD LENGTH TAPE TWO EQUAL 20. F6P01890
    00467−0 53400 2 00676 201LXDLNC,2 RESET TAPE TWO RECORD LENGTH TO 20. F6P02000
    00677−0 53400 2 00676 339LXDLNC,2 RESET RECORD LENGTH COUNTER F6P03380
␣␣␣LND = 392
  1. Definition
    00610 0 00000 0 00000 284 LND F6P02830
  2. References (4)
    00601 0 60100 0 00610 277STOLND F6P02760
    00603 0 62100 0 00610 279STALND F6P02780
    00605 0 40200 0 00610 281SUBLND F6P02800
    00606 0 60100 0 00610 282STOLND F6P02810
␣␣␣LNE = 527
  1. Definition
    01017 0 00026 0 03636 421 LNE LIN+3,,22 F6P03860
  2. Reference
    00604 0 50000 0 01017 280CLALNE F6P02790
␣␣␣LOC = 455
  1. Definition
    00707+000000000000 347 LOC DEC0 F6P03460
␣␣␣ONE = 114
  1. Definition
    M 00162 8 ONE SYN114 F6P00070
  2. References (15)
    M00243 0 34000 0 00162 42CASONE F6P00410
    M00255 0 50000 0 00162 52CLAONE F6P00510
    M00313 0 40000 0 00162 84ADDONE UPDATE LIBCT F6P00830
    M00316 0 40000 0 00162 87ADDONE F6P00860
    M00413−0 53400 1 00162 155LXDONE,1 F6P01540
    M00434 0 40200 0 00162 172SUBONE F6P01710
    M00441 0 40000 0 00162 177ADDONE SEARCH. F6P01760
    M00520 0 40000 0 00162 227ADDONE UPDATE NO. OF SUBRS. IN LIBF., F6P02260
    M00531 0 53400 1 00162 237LXAONE,1 F6P02360
    M00546−0 53400 1 00162 250LXDONE,1 SET XR1=0. F6P02490
    M00557 0 40000 0 00162 259ADDONE F6P02580
    M03634 0 50000 0 00162 430 RECQ CLAONE ARE CARDS OUTPUT F6P03950
    M03653 0 53400 1 00162 445 RTF LXAONE,1 SET IR1 EQUAL ONE. F6P04100
    M03704 0 53400 1 00162 471 PIC LXAONE,1 AND PUNCH OUT PUNCH BLOCK. F6P04360
    M03725 0 53400 4 00162 489LXAONE,4 AND GO PUNCH F6P04540
␣␣␣OUT = 1998
  1. Definition
    03716 0 76200 0 00221 481 OUT RTB1 RETURN TO LOADER. F6P04460
  2. References (2)
    03637 0 02000 0 03716 433TRAOUT EQUALS ONE, ASSUME SWITCH DOWN. NO CARD OUPUT. F6P03980
    03642 0 02000 0 03716 436TRAOUT DOWN SO GO TO RETURN TO LOADER. F6P04010
␣␣␣PC1 = 24
  1. Definition
    2FORTRAN 2 RECORD 115 - LIBRARY SEARCH. F6P00010
    3 F6P00020
    4LIBRARY SEARCH F6P00030
    00030 5 PC1 SYN24 F6P00040
␣␣␣PC2 = 1991
  1. Definition
    M03707 0 70000 1 02114 474 PC2 CPYTRB,1 F6P04390
  2. Reference
    03711 2 00001 2 03707 476TIXPC2,2,1 TRANSFER IF NOT END OF CARD. F6P04410
␣␣␣PC3 = 1989
  1. Definition
    03705 0 76600 0 00341 472 PC3 WPU PUNCH CARD. F6P04370
  2. Reference
    03712−3 00000 1 03705 477 RT1 TXLPC3,1,** END OF PUNCH BLOCK TEST. TRANS. IF NOT END. F6P04420
␣␣␣PIC = 1988
  1. Definition
    M03704 0 53400 1 00162 471 PIC LXAONE,1 AND PUNCH OUT PUNCH BLOCK. F6P04360
  2. Reference
    03726 0 02000 0 03704 490TRAPIC FINAL BLOCK. F6P04550
␣␣␣PTC = 1996
  1. Definition
    03714 0 76600 0 00341 479 PTC WPU PUNCH TW0 BLANK CARDS. F6P04440
  2. Reference
    03723−2 00030 1 03714 486 TEF TNXPTC,1,24 HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO F6P04510
␣␣␣RCT = 514
  1. Definition
    U01002 0 00000 0 408 RCT IN F6P03730
  2. References (5)
    00253 0 60000 0 01002 50 A10 STZRCT F6P00490
    00443 0 53400 1 01002 180LXARCT,1 SET XR1 EQUAL NO. OF RECORDS READ FROM LIB. F6P01790
    00447 0 60000 0 01002 184STZRCT SET RCT EQUAL ZERO AND GO START SEARCH F6P01830
    00556 0 50000 0 01002 258CLARCT INCREASE RECORD COUNT BY ONE F6P02570
    00560 0 60100 0 01002 260STORCT F6P02590
␣␣␣RDC = 356
  1. Definition
    00544 0 42000 0 00005 248 RDC HPR5 F6P02470
  2. References (3)
    00210 0 53400 1 00544 15LXARDC,1 SET DRUM READ ERROR COUNTER. F6P00140
    00225 0 53400 2 00544 28LXARDC,2 F6P00270
    00537 0 53400 2 00544 243 SUB1 LXARDC,2 READ LIBRARY TAPE RECORD. F6P02420
␣␣␣RT1 = 1994
  1. Definition
    03712−3 00000 1 03705 477 RT1 TXLPC3,1,** END OF PUNCH BLOCK TEST. TRANS. IF NOT END. F6P04420
  2. References (4)
    03654−0 63400 1 03712 446 RT9 SXDRT1,1 SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110
    03700−0 53400 1 03712 467 RTA LXDRT1,1 TAPE READ OKAY. ADD 24 (FOR CARD JUST READ) F6P04320
    03724−0 63400 1 03712 488SXDRT1,1 SAVE WORD COUNT OF PUNCH BLOCK, F6P04530
    03733−0 53400 1 03712 495LXDRT1,1 AND RESET WORD COUNT TO ONE. F6P04600
␣␣␣RT2 = 1970
  1. Definition
    03662 1 00005 0 03723 452 RT2 TXITEF,,5 END OF FILE ON TAPE 3. F6P04170
  2. Reference
    03655−0 53400 2 03662 447LXDRT2,2 SET IR2 EOUAL FIVE FOR READ-ERROR COUNTER. F6P04120
␣␣␣RT3 = 1985
  1. Definition
    03701 1 00030 1 03702 468 RT3 TXIRT8,1,24 TO WORD COUNT. F6P04330
  2. References (2)
    03657−0 53400 4 03701 449LXDRT3,4 SET IR4 EQUAL 24. F6P04140
    03706−0 53400 2 03701 473LXDRT3,2 SET XR2 EQUAL 24 F6P04380
␣␣␣RT4 = 1975
  1. Definition
    03667 2 00001 4 03660 457 RT4 TIXRT7,4,1 MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220
  2. Reference
    03661 1 00001 1 03667 451TXIRT4,1,1 INCREASE WORD COUNT ONE. F6P04160
␣␣␣RT5 = 1979
  1. Definition
    03673 0 76600 0 00333 462 RT5 IOD F6P04270
  2. Reference
    TD03666 1 00000 0 03673 456TXIRT5 F6P04210
␣␣␣RT6 = 1973
  1. Definition
    03665 2 00001 4 03663 455 RT6 TIXRTZ,4,1 FILL OUT CARD (IN STORAGE) WITH ZEROS. F6P04200
  2. Reference
    03664 1 00001 1 03665 454TXIRT6,1,1 INCREASE WORD COUNT BY ONE F6P04190
␣␣␣RT7 = 1968
  1. Definition
    M03660 0 70000 1 02114 450 RT7 CPYTRB,1 COPY BINARY INST. INTO STORAGE. F6P04150
  2. Reference
    03667 2 00001 4 03660 457 RT4 TIXRT7,4,1 MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220
␣␣␣RT8 = 1986
  1. Definition
    03702−3 01130 1 03654 469 RT8 TXLRT9,1,24*25 TEST END OF PUNCH BLOCK. F6P04340
  2. Reference
    03701 1 00030 1 03702 468 RT3 TXIRT8,1,24 TO WORD COUNT. F6P04330
␣␣␣RT9 = 1964
  1. Definition
    03654−0 63400 1 03712 446 RT9 SXDRT1,1 SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110
  2. Reference
    03702−3 01130 1 03654 469 RT8 TXLRT9,1,24*25 TEST END OF PUNCH BLOCK. F6P04340
␣␣␣RTA = 1984
  1. Definition
    03700−0 53400 1 03712 467 RTA LXDRT1,1 TAPE READ OKAY. ADD 24 (FOR CARD JUST READ) F6P04320
  2. Reference
    03731 0 00000 0 03700 493HTRRTA F6P04580
␣␣␣RTE = 2007
  1. Definition
    03727 2 00001 2 03732 491 RTE TIXBST,2,1 READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560
  2. References (2)
    03671 0 02000 0 03727 460TRARTE SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTH, F6P04250
    03677 0 02000 0 03727 466TRARTE GO TO READ ERROR PROCEDURE. F6P04310
␣␣␣RTF = 1963
  1. Definition
    M03653 0 53400 1 00162 445 RTF LXAONE,1 SET IR1 EQUAL ONE. F6P04100
  2. References (2)
    03644−0 10000 0 03653 438TNZRTF IF SOURCE PROG IS A SUBROUTINE, GO READ TAPE 3 F6P04030
    D03713−3 00000 4 03653 478TXLRTF,4 GO READ MORE FROM TAPE THREE. F6P04430
␣␣␣RTR = 1966
  1. Definition
    03656 0 76200 0 00223 448 RTR RTB3 READ TAPE THREE. F6P04130
  2. Reference
    03734 0 02000 0 03656 496TRARTR GO READ TAPE 3. F6P04610
␣␣␣RTZ = 1971
  1. Definition
    M03663 0 60000 1 02114 453 RTZ STZTRB,1,6*4096 EOR STORE ZERO. F6P04180
  2. Reference
    03665 2 00001 4 03663 455 RT6 TIXRTZ,4,1 FILL OUT CARD (IN STORAGE) WITH ZEROS. F6P04200
␣␣␣SEC = 194
  1. Definition
    00302 1 00002 1 00303 74 SEC TXIA15,1,2 NOT FOUND. GO TO TEST NEXT WORD ON CARD. F6P00730
  2. Reference
    00274−0 12000 0 00302 68TMISEC NOT PRIMARY NAME. F6P00670
␣␣␣SIX = 436
  1. Definition
    00664−0 76300 0 00006 328 SIX LGL6 F6P03270
  2. References (2)
    00663 0 53400 4 00664 327LXASIX,4 SUBROUTINE NAME. F6P03260
    00673 2 00001 4 00664 335TIXSIX,4,1 F6P03340
␣␣␣SUM = 513
  1. Definition
    01001 0 00000 0 00000 407 SUM F6P03720
  2. References (3)
    00216−0 70000 0 01001 21CADSUM F6P00200
    00233 0 70000 0 01001 34CPYSUM F6P00330
    00235−0 70000 0 01001 36CADSUM F6P00350
␣␣␣SW1 = 127
  1. Definition
    M 00177 9 SW1 SYN127 F6P00080
  2. Reference
    M03635 0 34000 0 00177 431CASSW1 F6P03960
␣␣␣SW5 = 131
  1. Definition
    M 00203 11 SW5 SYN131 F6P00100
  2. Reference
    M00242 0 50000 0 00203 41 A8 CLASW5 CHECK SUM OKAY. F6P00400
␣␣␣SYM = 526
  1. Definition
    01016 0 00000 0 00000 420 SYM HTR0 F6P03850
  2. References (2)
    00665 0 60200 0 01016 329SLWSYM F6P03280
    00671−0 50000 0 01016 333CALSYM F6P03320
␣␣␣TCD = 325
  1. Definition
    00505−0 00000 0 00000 215 TCD MZE F6P02140
  2. Reference
    00501 0 70000 0 00505 211CPYTCD WRITE TRANSFER CARD ON TAPE 3 F6P02100
␣␣␣TEF = 2003
  1. Definition
    03723−2 00030 1 03714 486 TEF TNXPTC,1,24 HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO F6P04510
  2. Reference
    03662 1 00005 0 03723 452 RT2 TXITEF,,5 END OF FILE ON TAPE 3. F6P04170
␣␣␣TEN = 454
  1. Definition
    00706+000000000012 346 TEN DEC10 F6P03450
␣␣␣TRB = 1100
  1. Definition
    M 02114 498 TRB SYNABSOP F6P04630
  2. References (3)
    M03660 0 70000 1 02114 450 RT7 CPYTRB,1 COPY BINARY INST. INTO STORAGE. F6P04150
    M03663 0 60000 1 02114 453 RTZ STZTRB,1,6*4096 EOR STORE ZERO. F6P04180
    M03707 0 70000 1 02114 474 PC2 CPYTRB,1 F6P04390
␣␣␣TVR = 1628
  1. Definition
    03134 423 TVR BES900 F6P03880
  2. References (18)
    00214−0 70000 0 03133 19CADTVR−1 READ WORD COUNT OF TABLE INT0 TVR-1. F6P00180
    00223−0 53400 1 03133 26 D4 LXDTVR−1,1 SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250
    00231−0 70000 1 03133 32 A7 CADTVR−1,1 TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2, F6P00310
    00272−0 53400 2 03133 66 A16 LXDTVR−1,2 F6P00650
    00276 0 34000 2 03133 70 A14 CASTVR−1,2 COMPARE IT TO NAME IN TRANSFER VECTOR. F6P00690
    00325−0 53400 2 03133 94 A19 LXDTVR−1,2 OF THIS ROUTINE F6P00930
    00327 0 34000 2 03133 96 A17 CASTVR−1,2 IS IT CALLED FOR BY TRANSFER VECTOR. F6P00950
    00463−0 53400 1 03133 197 FINI LXDTVR−1,1 ANY TRANSFER VECTOR. F6P01960
    00470 0 50000 1 03133 202 D10 CLATVR−1,1 SELECT NAME IN TVR TABLE. F6P02010
    00630 0 50000 0 03133 300 A25 CLATVR−1 SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE. F6P02990
    00635 0 34000 2 03133 305 A32 CASTVR−1,2 IS IT IN THE TVR TABLE. F6P03040
    00642 0 60100 2 03133 310STOTVR−1,2 NO. PUT IT THERE, UP0ATE COUNT OF TVR TABLE. F6P03090
    00643−0 63400 2 03133 311SXDTVR−1,2 + F6P03100
    00760 0 50000 0 03133 390 ERASE CLATVR−1 DECREASE WD CT OF TVR BY ONE. F6P03550
    00762 0 62200 0 03133 392STDTVR−1 F6P03570
    00765 0 50000 2 03132 395 SKIP CLATVR−2,2 F6P03600
    00766 0 60100 2 03133 396STOTVR−1,2 MOVE UP ENTRIES IN TVR TABLE F6P03610
    00772 0 60000 0 03132 400 EXT1 STZTVR−2 WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650
␣␣␣TWO = 115
  1. Definition
    M 00163 12 TWO SYN115 F6P00110
  2. Reference
    M00647 0 53400 1 00163 315 CHSUM LXATWO,1 COMPUTE CHECK SUM AND STORE IT IN BUFF-2. F6P03140
␣␣␣WEF = 317
  1. Definition
    00475 0 77200 0 00201 207 WEF REW1 F6P02060
  2. References (2)
    D00224−3 00000 1 00475 27TXLWEF,1 IFNO TRANSFER VECTOR, GO TO W.E.F. F6P00260
    D00464−3 00000 1 00475 198TXLWEF,1 NO, GO TO WEF. F6P01970
␣␣␣WLL = 382
  1. Definition
    00576−0 63400 4 00702 274 WLL SXDIR4,4 PREPARE TO WRITE FINAL RECORD ON TAPE TWO, F6P02730
  2. References (2)
    00462 0 07400 4 00576 196TSXWLL,4 GO WRITE FINAL RECORD ON TAPE TWO. F6P01950
    00474 0 07400 4 00576 206TSXWLL,4 GO WRITE FINAL RECORD. F6P02050
␣␣␣WR1 = 348
  1. Definition
    00534−3 00030 1 00532 240 WR1 TXLWR2,1,24 TEST END OF CARD. F6P02390
  2. References (2)
    00530−0 63400 1 00534 235 WR3 SXDWR1,1 SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE F6P02340
    00533 1 00001 1 00534 239TXIWR1,1,1 F6P02380
␣␣␣WR2 = 346
  1. Definition
    00532 0 70000 1 01330 238 WR2 CPYBUFF,1 WRITE WORD FROM BUFFER ONTO TAPE THREE F6P02370
  2. Reference
    00534−3 00030 1 00532 240 WR1 TXLWR2,1,24 TEST END OF CARD. F6P02390
␣␣␣WR3 = 344
  1. Definition
    00530−0 63400 1 00534 235 WR3 SXDWR1,1 SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE F6P02340
  2. Reference
    00527 1 00000 1 00530 234 WR4 TXIWR3,1,** F6P02330
␣␣␣WR4 = 343
  1. Definition
    00527 1 00000 1 00530 234 WR4 TXIWR3,1,** F6P02330
  2. Reference
    00525 0 62200 0 00527 232STDWR4 F6P02310
␣␣␣YES = 223
  1. Definition
    00337 0 07400 4 00760 106 YES TSXERASE,4 ERASE NAME FROM TRANSFER VECTOR TABLE. F6P01050
  2. Reference
    00331 0 02000 0 00337 98TRAYES YES, TRANSFER. F6P00970
␣␣␣ZER = 2056
  1. Definition
    04010 502 ZER BSS216 F6P04670
  2. References (2)
    03651 0 70000 1 04340 443CPYZER+216,1 COPY LOADER WORD. F6P04080
    04010 503 ZRO SYNZER F6P04680
␣␣␣ZRO = 2056
  1. Definition
    04010 503 ZRO SYNZER F6P04680
  2. Reference
    04010 504ORGZRO F6P04690
␣␣BOO1 = 271
  1. Definition
    00417−3 00417 1 00414 159 BOO1 TXLBOO,1,* F6P01580
  2. References (2)
    00412 0 62200 0 00417 154STDBOO1 F6P01530
    00416 1 00001 1 00417 158TXIBOO1,1,1 F6P01570
␣␣BUFF = 728
  1. Definition
    01330 422 BUFF BES200 F6P03870
  2. References (22)
    00262 0 50000 0 01327 57CLABUFF−1 RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560
    00270 0 50000 0 01325 64CLABUFF−3 SAVE LENGTH OF F6P00630
    00273 0 50000 1 01326 67CLABUFF−2,1 TEST FOR PRIMARY NAME ON PROG CARD. F6P00660
    00275 0 50000 1 01327 69CLABUFF−1,1 YES, PRIMARY NAME. SELECT NAME AND F6P00680
    00310 0 50000 1 01327 81CLABUFF−1,1 ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE. F6P00800
    00326 0 50000 1 01327 95CLABUFF−1,1 SELECT NAME ON PROGRAM CARD F6P00940
    00340 0 50000 1 01327 107CLABUFF−1,1 SELECT SUBROUTINE NAME AND GO F6P01060
    00362 0 50000 0 01327 127CLABUFF−1 TEST FOR PROGRAM CARD. F6P01260
    00375 0 50000 0 01327 139CLABUFF−1 IS IT A PROG. CARD. F6P01380
    00401 0 60100 0 01327 143 B9 STOBUFF−1 F6P01420
    00414 0 50000 1 01277 156 BOO CLABUFF−25,1 MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER, F6P01550
    00415 0 60100 1 01325 157STOBUFF−3,1 F6P01560
    00425 0 60000 1 01325 165 B12 STZBUFF−3,1 AND FILL IN ZEROES IF NECESSARY. F6P01640
    00526−0 53400 1 01327 233LXDBUFF−1,1 F6P02320
    00532 0 70000 1 01330 238 WR2 CPYBUFF,1 WRITE WORD FROM BUFFER ONTO TAPE THREE F6P02370
    00547 0 70000 1 01327 251 SUBA CPYBUFF−1,1 COPY RECORD INTO BUFF-1,-2,... F6P02500
    00617 0 50000 1 01327 291CLABUFF−1,1 SELECT NAME FROM SUBROUTINE TRANS. VEC. F6P02900
    00634 0 50000 1 01327 304CLABUFF−1,1 SELECT THE NAME FROM SUBROUT. TR. VECTOR. F6P03030
    00645 0 50000 1 01327 313 EXT2 CLABUFF−1,1 SELECT NAME FROM SUBR. TRANS. VEC. AND F6P03120
    00650−0 50000 0 01327 316CALBUFF−1 F6P03150
    00651 0 36100 1 01327 317 B6 ACLBUFF−1,1 F6P03160
    00654 0 60200 0 01326 320SLWBUFF−2 F6P03190
␣␣DUMP = 2013
  1. Definition
    03735 497 DUMP BSS1 F6P04620
  2. Reference
    03670 0 70000 0 03735 459CPYDUMP NO INDEX IN XR4 IS AN ERROR HERE, F6P04240
␣␣EXIT = 448
  1. Definition
    00700−0 53400 4 00702 340 EXIT LXDIR4,4 AND RETURN TO PROGRAM F6P03390
  2. Reference
    00674 2 00002 2 00700 336 CNA TIXEXIT,2,2 RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350
␣␣EXT1 = 506
  1. Definition
    00772 0 60000 0 03132 400 EXT1 STZTVR−2 WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650
  2. Reference
    00764 0 10000 0 00772 394TZEEXT1 TEST FOR ANY WORDS LEFT IN TVR TABLE. F6P03590
␣␣EXT2 = 421
  1. Definition
    00645 0 50000 1 01327 313 EXT2 CLABUFF−1,1 SELECT NAME FROM SUBR. TRANS. VEC. AND F6P03120
  2. Reference
    00633 0 10000 0 00645 303TZEEXT2 TRANSFER IF NO ENTRIES IN TVR TABLE F6P03020
␣␣FINI = 307
  1. Definition
    00463−0 53400 1 03133 197 FINI LXDTVR−1,1 ANY TRANSFER VECTOR. F6P01960
  2. References (3)
    00246 0 02000 0 00463 45TRAFINI 0 IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP. F6P00440
    00250 0 02000 0 00463 47TRAFINI UP. F6P00460
    D00452−3 00000 1 00463 187TXLFINI,1 NO, GO TO FINI. F6P01860
␣␣L20D = 522
  1. Definition
    01012 0 00024 0 00000 416 L20D 0,0,20 F6P03810
  2. References (3)
    00352 0 34000 0 01012 117CASL20D F6P01160
    00365 0 40200 0 01012 130 X2 SUBL20D TO TREAT 20 AT A TIME. F6P01290
    00367 0 50000 0 01012 132CLAL20D F6P01310
␣␣L22D = 523
  1. Definition
    01013 0 00026 0 00000 417 L22D 0,0,22 F6P03820
  2. References (3)
    00400 0 50200 0 01013 142 EXCAD CLSL22D TO WRITE FIRST CARD OG PROG. CARD. F6P01410
    00406 0 40200 0 01013 149SUBL22D MORE THAN 22 WORDS. F6P01480
    00421 0 50200 0 01013 161CLSL22D F6P01600
␣␣LIBA = 333
  1. Definition
    00515−3 00515 2 00511 224 LIBA TXLLIBC,2,* MORE, GO SELECT NEXT ONE. F6P02230
  2. References (2)
    00507−0 63400 2 00515 217SXDLIBA,2 F6P02160
    00514 1 00001 2 00515 223 LIBB TXILIBA,2,1 NO. TEST IF ANY MORE NAMES IN LIBF TABLE. F6P02220
␣␣LIBB = 332
  1. Definition
    00514 1 00001 2 00515 223 LIBB TXILIBA,2,1 NO. TEST IF ANY MORE NAMES IN LIBF TABLE. F6P02220
  2. Reference
    00512 0 02000 0 00514 221TRALIBB F6P02200
␣␣LIBC = 329
  1. Definition
    00511 0 34000 2 03610 219 LIBC CASLIBF,2 SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE F6P02180
  2. Reference
    00515−3 00515 2 00511 224 LIBA TXLLIBC,2,* MORE, GO SELECT NEXT ONE. F6P02230
␣␣LIBF = 1928
  1. Definition
    03610 424 LIBF BES300 F6P03890
  2. References (5)
    00311 0 60100 4 03607 82STOLIBF−1,4 AND ERASE NAME FROM F6P00810
    00456 0 50000 1 03610 191 D9 CLALIBF,1 SELECT SUBROUTINE NAME. F6P01900
    00511 0 34000 2 03610 219 LIBC CASLIBF,2 SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE F6P02180
    00516 0 60100 2 03610 225STOLIBF,2 NO MORE. ENTER SUBR. NAME IN LIBF. F6P02240
    00620 0 34000 2 03610 292 A24 CASLIBF,2 SELECT NAME FROM LIBF TABLE. F6P02910
␣␣LOST = 496
  1. Definition
    A 00760 389 LOST BSS F6P03540
  2. Reference
    00466 0 00024 0 00760 200LOST,,20 F6P01990
␣␣ME20 = 384
  1. Definition
    00600−0 75400 2 00000 276 ME20 PXD0,2 F6P02750
  2. Reference
    00577 1 00002 2 00600 275TXIME20,2,2 F6P02740
␣␣NAME = 525
  1. Definition
    01015 0 00000 0 00000 419 NAME HTR0 F6P03840
  2. References (3)
    00457 0 60100 0 01015 192STONAME F6P01910
    00471 0 60100 0 01015 203STONAME GO WRITE IT IN TAPE TWO BUFFER. F6P02020
    00662 0 56000 0 01015 326 CNS LDQNAME ASSENBLE BCD REPRESENTATION OF F6P03250
␣␣NEXT = 504
  1. Definition
    00770−3 00770 2 00765 398 NEXT TXLSKIP,2,* F6P03630
  2. References (2)
    00763 0 62200 0 00770 393STDNEXT F6P03580
    00767 1 00001 2 00770 397TXINEXT,2,1 F6P03620
␣␣NONE = 378
  1. Definition
    00572 0 02000 4 00002 270 NONE TRA2,4 F6P02690
  2. Reference
    D00564−3 00000 2 00572 264TXLNONE,2 F6P02630
␣␣POOP = 375
  1. Definition
    00567 0 70000 2 00567 267 POOP CPY*,2 F6P02660
  2. References (2)
    00566 0 62100 0 00567 266STAPOOP F6P02650
    00570 2 00001 2 00567 268TIXPOOP,2,1 F6P02670
␣␣RECQ = 1948
  1. Definition
    427 F6P03920
    428PUNCH BINARY LOADER IF CARDS ARE OUTPUT F6P03930
    429AND IF MAIN ROUTINE, PUNCH PROGRAM F6P03940
    M03634 0 50000 0 00162 430 RECQ CLAONE ARE CARDS OUTPUT F6P03950
  2. Reference
    00504 0 02000 0 03634 214TRARECQ F6P02130
␣␣SKIP = 501
  1. Definition
    00765 0 50000 2 03132 395 SKIP CLATVR−2,2 F6P03600
  2. Reference
    00770−3 00770 2 00765 398 NEXT TXLSKIP,2,* F6P03630
␣␣SUB1 = 351
  1. Definition
    00537 0 53400 2 00544 243 SUB1 LXARDC,2 READ LIBRARY TAPE RECORD. F6P02420
  2. References (4)
    00260 0 07400 4 00537 55 A11 TSXSUB1,4 READ TAPE1 RECORD. F6P00540
    00346 0 07400 4 00537 113 B13 TSXSUB1,4 READ RECORD FROM LIB. TAPE F6P01120
    00360 0 07400 4 00537 125 LOOP2 TSXSUB1,4 GO READ NEW RECORD FROM LIBRARY TAPE. F6P01240
    00373 0 07400 4 00537 137TSXSUB1,4 READ NEXT RECORD FROM LIB TAPE F6P01360
␣␣SUB2 = 430
  1. Definition
    00656−0 63400 4 00702 322 SUB2 SXDIR4,4 F6P03210
  2. References (2)
    00460 0 07400 4 00656 193TSXSUB2,4 GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING F6P01920
    00472 0 07400 4 00656 204TSXSUB2,4 F6P02030
␣␣SUBA = 359
  1. Definition
    00547 0 70000 1 01327 251 SUBA CPYBUFF−1,1 COPY RECORD INTO BUFF-1,-2,... F6P02500
  2. Reference
    00550 1 00001 1 00547 252TXISUBA,1,1 F6P02510
␣␣WLP1 = 1955
  1. Definition
    03643 0 50000 0 00036 437 WLP1 CLASUBIN TEST FOR SUB DEF. F6P04020
  2. References (2)
    03636 0 02000 0 03643 432TRAWLP1 EQUALS ZERO. ASSUME SWITCH UP, GO PUNCH CARDS. F6P03970
    03641 0 02000 0 03643 435TRAWLP1 UP SO GO TO PUNCH ON LINE. F6P04000
␣␣WPL2 = 1958
  1. Definition
    03646−0 53400 2 03736 440 WPL2 LXDWPLV,2 SET CARD LENGTH. F6P04050
  2. Reference
    03650−2 00001 2 03646 442 WPL3 TNXWPL2,2,1 TRANSFER IF CARD FULL. F6P04070
␣␣WPL3 = 1960
  1. Definition
    03650−2 00001 2 03646 442 WPL3 TNXWPL2,2,1 TRANSFER IF CARD FULL. F6P04070
  2. Reference
    03652 2 00001 1 03650 444TIXWPL3,1,1 TRANSFER IF NOT FINISHED PUNCHING LOADER. F6P04090
␣␣WPLV = 2014
  1. Definition
    03736 0 00031 0 00330 499 WPLV 216,0,25 F6P04640
  2. References (2)
    03645 0 53400 1 03736 439LXAWPLV,1 MAIN ROUTINE. PUNCH LOADER. F6P04040
    03646−0 53400 2 03736 440 WPL2 LXDWPLV,2 SET CARD LENGTH. F6P04050
␣␣WRCC = 2015
  1. Definition
    03737 0 00040 0 00000 500 WRCC 0,0,32 F6P04650
␣␣ZERO = 113
  1. Definition
    M 00161 13 ZERO SYN113 F6P00120
  2. Reference
    M03703 0 53400 4 00161 470LXAZERO,4 BLOCK FULL. SET XR4 EQUAL ZERO, F6P04350
␣6BITS = 453
  1. Definition
    00705+000000000077 345 6BITS OCT77 F6P03440
  2. Reference
    00666−0 32000 0 00705 330ANA6BITS F6P03290
␣ABSOP = 1100
  1. Definition
    M 02114 7 ABSOP SYN1100 F6P00060
  2. References (2)
    M 02114 10 TRB SYNABSOP F6P00090
    M 02114 498 TRB SYNABSOP F6P04630
␣BLANK = 452
  1. Definition
    00704 000000000060 344 BLANK BCD100000␣ F6P03430
  2. Reference
    00667 0 40200 0 00704 331SUBBLANK F6P03300
␣CHSUM = 423
  1. Definition
    M00647 0 53400 1 00163 315 CHSUM LXATWO,1 COMPUTE CHECK SUM AND STORE IT IN BUFF-2. F6P03140
  2. Reference
    00402 0 07400 4 00647 144TSXCHSUM,4 COMPUTE CHECK SUM. F6P01430
␣ERASE = 496
  1. Definition
    00760 0 50000 0 03133 390 ERASE CLATVR−1 DECREASE WD CT OF TVR BY ONE. F6P03550
  2. References (2)
    00305 0 07400 4 00760 78 EQ TSXERASE,4 WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE F6P00770
    00337 0 07400 4 00760 106 YES TSXERASE,4 ERASE NAME FROM TRANSFER VECTOR TABLE. F6P01050
␣ERROR = 255
  1. Definition
    00377 0 07400 4 00774 141 ERROR TSXOUTER,4 YES. ERROR. F6P01400
␣EXCAD = 256
  1. Definition
    00400 0 50200 0 01013 142 EXCAD CLSL22D TO WRITE FIRST CARD OG PROG. CARD. F6P01410
  2. Reference
    00343 3 00026 2 00400 110TXHEXCAD,2,22 TRANSFER IF PROG. CARD HAS MORE THAN 22 WORDS. F6P01090
␣FOUND = 476
  1. Definition
    A 00734 368 FOUND BSS F6P03500
  2. Reference
    00454 0 00024 0 00734 189FOUND,,20 F6P01880
␣LIBCT = 515
  1. Definition
    01003 0 00000 0 00000 409 LIBCT (ADDRESS) F6P03740
  2. References (9)
    00254 0 60000 0 01003 51STZLIBCT F6P00500
    00307 0 53400 4 01003 80 EQ4 LXALIBCT,4 SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND. F6P00790
    00312 0 50000 0 01003 83CLALIBCT TVR TABLE F6P00820
    00314 0 60100 0 01003 85STOLIBCT F6P00840
    00451 0 53400 1 01003 186 D3 LXALIBCT,1 ANY SUBROUTINES FOUND F6P01850
    00506 0 53400 2 01003 216 LIBEN LXALIBCT,2 ENTER WITH SUBR. NAME IN ACC. F6P02150
    00517 0 50000 0 01003 226CLALIBCT F6P02250
    00521 0 60100 0 01003 228STOLIBCT F6P02270
    00616 0 53400 2 01003 290 A28 LXALIBCT,2 SUBROUTINE IN TVR F6P02890
␣LIBEN = 326
  1. Definition
    00506 0 53400 2 01003 216 LIBEN LXALIBCT,2 ENTER WITH SUBR. NAME IN ACC. F6P02150
  2. Reference
    00333 0 07400 4 00506 101 A20 TSXLIBEN,4 NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000
␣LOOP1 = 175
  1. Definition
    00257 0 60000 0 01005 54 LOOP1 STZCTF F6P00530
  2. Reference
    00450 0 02000 0 00257 185TRALOOP1 F6P01840
␣LOOP2 = 240
  1. Definition
    00360 0 07400 4 00537 125 LOOP2 TSXSUB1,4 GO READ NEW RECORD FROM LIBRARY TAPE. F6P01240
␣LOOP3 = 395
  1. Definition
    00613 0 40000 0 01014 287 LOOP3 ADDTHRDE F6P02860
  2. References (2)
    00355 0 07400 4 00613 122 X1 TSXLOOP3,4 GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC. F6P01210
    00370 0 07400 4 00613 133TSXLOOP3,4 SEARCH FOR SUB+SUBROUT IN LIBF. IF NOT THERE, F6P01320
␣ONEDE = 512
  1. Definition
    01000 0 00001 0 00000 406 ONEDE 0,0,1 F6P03710
  2. References (4)
    00411 0 40200 0 01000 153SUBONEDE F6P01520
    00510−0 53400 2 01000 218LXDONEDE,2 F6P02170
    00632−0 53400 2 01000 302LXDONEDE,2 F6P03010
    00761 0 40200 0 01000 391SUBONEDE F6P03560
␣OUTER = 508
  1. Definition
    00774 0 77200 0 00201 402 OUTER REW1 F6P03670
  2. References (6)
    00222 0 07400 4 00774 25TSXOUTER,4 F6P00240
    00241 0 07400 4 00774 40TSXOUTER,4 F6P00390
    00377 0 07400 4 00774 141 ERROR TSXOUTER,4 YES. ERROR. F6P01400
    00543 0 07400 4 00774 247TSXOUTER,4 F6P02460
    03672 0 07400 4 00774 461TSXOUTER,4 F6P04260
    03730 0 07400 4 00774 492TSXOUTER,4 YES. F6P04570
␣PASCT = 516
  1. Definition
    01004 0 00000 0 00000 410 PASCT (ADDRESS) F6P03750
  2. References (4)
    00256 0 60100 0 01004 53STOPASCT F6P00520
    00433 0 50000 0 01004 171 EOF CLAPASCT F6P01700
    00440 0 50000 0 01004 176 D1 CLAPASCT PREPARE FOR ANOTHER F6P01750
    00442 0 60100 0 01004 178STOPASCT F6P01770
␣PRINT = 370
  1. Definition
    00562 0 50000 4 00001 262 PRINT CLA1,4 TO WRITE A BCD RECORD ON TAPE TWO. F6P02610
  2. References (3)
    00575 0 02000 0 00562 273TRAPRINT F6P02720
    00607 0 07400 4 00562 283TSXPRINT,4 AND GO WRITE IT. F6P02820
    00675 0 07400 4 00562 337TSXPRINT,4 RECORD FULL. GO WRITE IT. F6P03360
␣SPACE = 379
  1. Definition
    00573 0 76600 0 00202 271 SPACE WTD2 WRITE A WORD OF BLANKS ON TAPE TWO. F6P02700
  2. References (2)
    00453 0 07400 4 00573 188TSXSPACE,4 YES. 0O WRITE, SUBROUTINES PUNCHED F6P01870
    00465 0 07400 4 00573 199TSXSPACE,4 YES, GO WRITE SUBROUTINES NOT PUNCHED FROM F6P01980
␣SUBIN = 30
  1. Definition
    00036 6 SUBIN SYN30 F6P00050
  2. References (2)
    00476 0 50000 0 00036 208CLASUBIN TO SEE IF MAIN PROGRAM F6P02070
    03643 0 50000 0 00036 437 WLP1 CLASUBIN TEST FOR SUB DEF. F6P04020
␣THRDE = 524
  1. Definition
    01014 0 00003 0 00000 418 THRDE 0,0,3 F6P03830
  2. Reference
    00613 0 40000 0 01014 287 LOOP3 ADDTHRDE F6P02860
␣TWODE = 521
  1. Definition
    01011 0 00002 0 00000 415 TWODE 0,0,2 F6P03800
␣VLENG = 518
  1. Definition
    01006 0 00000 0 00000 412 VLENG 0,0, F6P03770
  2. References (3)
    00271 0 62200 0 01006 65STDVLENG TRANSFER VECTOR (ROW 8 DECREMENT). F6P00640
    00350 0 50000 0 01006 115 X3 CLAVLENG WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE. F6P01140
    00366 0 60100 0 01006 131STOVLENG F6P01300
␣WRITE = 339
  1. Definition
    00523 0 76600 0 00223 230 WRITE WTB3 SELECT TAPE THREE. F6P02290
  2. References (4)
    00344 0 07400 4 00523 111TSXWRITE,4 WRITE PROG CARD ON TAPE 3 F6P01100
    00356 0 07400 4 00523 123 A22 TSXWRITE,4 GO WRITE TRANS. VECT. RECORD ON TAPE 3. F6P01220
    00371 0 07400 4 00523 135TSXWRITE,4 WRITE RECORD ON TAPE 3. F6P01340
    00403 0 07400 4 00523 145TSXWRITE,4 WRITE IT ON TAPE 3. F6P01440
BLANKS = 451
  1. Definition
    00703 606060606060 343BLANKS BCD1␣␣␣␣␣␣ F6P03420
  2. References (2)
    00574 0 70000 0 00703 272CPYBLANKS F6P02710
    00657−0 50000 0 00703 323CALBLANKS F6P03220