1AST
2FORTRAN 2 RECORD 115 - LIBRARY SEARCH. F6P00010
3 F6P00020
4LIBRARY SEARCH F6P00030
00030 5 PC1 SYN24 F6P00040
00036 6 SUBIN SYN30 F6P00050
M 02114 7 ABSOP SYN1100 F6P00060
M 00162 8 ONE SYN114 F6P00070
M 00177 9 SW1 SYN127 F6P00080
M 02114 10 TRB SYNABSOP F6P00090
M 00203 11 SW5 SYN131 F6P00100
M 00163 12 TWO SYN115 F6P00110
M 00161 13 ZERO SYN113 F6P00120
00210 14ORG136 F6P00130
00210 0 53400 1 00544 15LXARDC,1 SET DRUM READ ERROR COUNTER. F6P00140
00211 0 76200 0 00303 16 D5 RDR3 SELECT DRUM 3 (TRANSFER VECTOR TABLE). F6P00150
T00212−0 75400 0 00000 17 A4 PXD0 TRANSFER VECTOR F6P00160
00213 0 46000 0 00212 18LDAA4 F6P00170
00214−0 70000 0 03133 19CADTVR−1 READ WORD COUNT OF TABLE INT0 TVR-1. F6P00180
00215 0 76000 0 00006 20COM F6P00190
00216−0 70000 0 01001 21CADSUM F6P00200
00217 0 76000 0 00006 22COM F6P00210
00220 0 10000 0 00223 23TZED4 NO READ ERROR. F6P00220
00221 2 00001 1 00211 24TIXD5,1,1 F6P00230
00222 0 07400 4 00774 25TSXOUTER,4 F6P00240
00223−0 53400 1 03133 26 D4 LXDTVR−1,1 SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250
D00224−3 00000 1 00475 27TXLWEF,1 IFNO TRANSFER VECTOR, GO TO W.E.F. F6P00260
00225 0 53400 2 00544 28LXARDC,2 F6P00270
00226 0 76200 0 00303 29 A5 RDR3 F6P00280
T00227−0 75400 0 00002 30 A6 PXD2 READ TRANSFER F6P00290
00230 0 46000 0 00227 31LDAA6 VECTOR INTO STORAGE, FIRST SUBROUTINE NAME INTOF6P00300
00231−0 70000 1 03133 32 A7 CADTVR−1,1 TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2, F6P00310
00232 2 00001 1 00231 33TIXA7,1,1 F6P00320
00233 0 70000 0 01001 34CPYSUM F6P00330
00234 0 76000 0 00006 35COM F6P00340
00235−0 70000 0 01001 36CADSUM F6P00350
00236 0 76000 0 00006 37COM F6P00360
00237 0 10000 0 00242 38TZEA8 TEST CHECK SUM. F6P00370
00240 2 00001 2 00226 39TIXA5,2,1 F6P00380
00241 0 07400 4 00774 40TSXOUTER,4 F6P00390
M00242 0 50000 0 00203 41 A8 CLASW5 CHECK SUM OKAY. F6P00400
M00243 0 34000 0 00162 42CASONE F6P00410
00244 0 02000 0 00247 43TRAA1 GO TO TEST SENSE SWITCH FIVE. F6P00420
00245 0 02000 0 00252 44TRAA3 1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN F6P00430
00246 0 02000 0 00463 45TRAFINI 0 IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP. F6P00440
00247 0 76000 0 00165 46 A1 SWT5 SENSE SWITCH 5 TEST. F6P00450
00250 0 02000 0 00463 47TRAFINI UP. F6P00460
00251 0 02000 0 00252 48TRAA3 DOWN. F6P00470
00252 0 76200 0 00221 49 A3 RTB1 SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM). F6P00480
00253 0 60000 0 01002 50 A10 STZRCT F6P00490
00254 0 60000 0 01003 51STZLIBCT F6P00500
M00255 0 50000 0 00162 52CLAONE F6P00510
00256 0 60100 0 01004 53STOPASCT F6P00520
00257 0 60000 0 01005 54 LOOP1 STZCTF F6P00530
00260 0 07400 4 00537 55 A11 TSXSUB1,4 READ TAPE1 RECORD. F6P00540
00261 0 02000 0 00433 56TRAEOF RETURN HERE IF END OF FILE F6P00550
00262 0 50000 0 01327 57CLABUFF−1 RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560
00263−0 12000 0 00265 58TMIA12 PROG. CARD TEST. FIRST WORD IS MINUS ON PROG. F6P00570
59 CARD. F6P00580
00264 0 02000 0 00260 60TRAA11 NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD. F6P00590
00265 0 62200 0 00335 61 A12 STDA18 PROGRAM CARD. F6P00600
00266 0 62200 0 00303 62STDA15 SAVE LENGTH OF RECORD (BITS 4-1B HAVE NO. OF F6P00610
00267−0 53400 1 01007 63LXDFR4,1 WORDS IN RECORD EXCLUDING 9-ROW. F6P00620
00270 0 50000 0 01325 64CLABUFF−3 SAVE LENGTH OF F6P00630
00271 0 62200 0 01006 65STDVLENG TRANSFER VECTOR (ROW 8 DECREMENT). F6P00640
00272−0 53400 2 03133 66 A16 LXDTVR−1,2 F6P00650
00273 0 50000 1 01326 67CLABUFF−2,1 TEST FOR PRIMARY NAME ON PROG CARD. F6P00660
00274−0 12000 0 00302 68TMISEC NOT PRIMARY NAME. F6P00670
00275 0 50000 1 01327 69CLABUFF−1,1 YES, PRIMARY NAME. SELECT NAME AND F6P00680
00276 0 34000 2 03133 70 A14 CASTVR−1,2 COMPARE IT TO NAME IN TRANSFER VECTOR. F6P00690
00277 0 02000 0 00301 71TRAA13 F6P00700
00300 0 02000 0 00305 72TRAEQ FOUND ROUTINE, GO T0 EQ. F6P00710
00301 2 00001 2 00276 73 A13 TIXA14,2,1 NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME. F6P00720
00302 1 00002 1 00303 74 SEC TXIA15,1,2 NOT FOUND. GO TO TEST NEXT WORD ON CARD. F6P00730
00303−3 00303 1 00272 75 A15 TXLA16,1,* ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740
00304 0 02000 0 00260 76TRAA11 NO MORE PRI. NAMES ON CARD. GO READ NEXT REC. F6P00750
77 OF LIBRARY TAPE. F6P00760
00305 0 07400 4 00760 78 EQ TSXERASE,4 WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE F6P00770
00306−0 63400 1 00322 79SXDEQ2,1 NAME IN TRANS. VEC., GO ERASE NAME FROMTVR. F6P00780
00307 0 53400 4 01003 80 EQ4 LXALIBCT,4 SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND. F6P00790
00310 0 50000 1 01327 81CLABUFF−1,1 ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE. F6P00800
00311 0 60100 4 03607 82STOLIBF−1,4 AND ERASE NAME FROM F6P00810
00312 0 50000 0 01003 83CLALIBCT TVR TABLE F6P00820
M00313 0 40000 0 00162 84ADDONE UPDATE LIBCT F6P00830
00314 0 60100 0 01003 85STOLIBCT F6P00840
00315 0 50000 0 01005 86CLACTF UPDATE CTP. F6P00850
M00316 0 40000 0 00162 87ADDONE F6P00860
00317 0 60100 0 01005 88STOCTF OTHER NAMES ON CARD. NO, TRANSFER. F6P00870
00320−3 00004 1 00323 89TXLEQ3,1,4 F6P00880
00321 1 77776 1 00307 90TXIEQ4,1,−2 YES, GO ENTER IN LIBF. F6P00890
00322 0 00000 0 00000 91 EQ2 HTR0 F6P00900
00323−0 53400 1 00322 92 EQ3 LXDEQ2,1 F6P00910
00324 0 02000 0 00334 93TRAA18−1 F6P00920
00325−0 53400 2 03133 94 A19 LXDTVR−1,2 OF THIS ROUTINE F6P00930
00326 0 50000 1 01327 95CLABUFF−1,1 SELECT NAME ON PROGRAM CARD F6P00940
00327 0 34000 2 03133 96 A17 CASTVR−1,2 IS IT CALLED FOR BY TRANSFER VECTOR. F6P00950
00330 0 02000 0 00332 97TRANO F6P00960
00331 0 02000 0 00337 98TRAYES YES, TRANSFER. F6P00970
00332 2 00001 2 00327 99 NO TIXA17,2,1 NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980
100 TRANSFER. F6P00990
00333 0 07400 4 00506 101 A20 TSXLIBEN,4 NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000
00334 1 00002 1 00335 102TXIA18,1,2 INCREMENT PROG CARD COUNTER BY 2, F6P01010
00335−3 00335 1 00325 103 A18 TXLA19,1,* THIS IS SET BY A12, CONTAINS NO. OF WORDS ON F6P01020
104 PROGRAM CARD. F6P01030
00336 0 02000 0 00342 105TRAA21 TRANS. WHEN ALL NAMES ON CARD HAVE BEEN CHECKEDF6P01040
00337 0 07400 4 00760 106 YES TSXERASE,4 ERASE NAME FROM TRANSFER VECTOR TABLE. F6P01050
00340 0 50000 1 01327 107CLABUFF−1,1 SELECT SUBROUTINE NAME AND GO F6P01060
00341 0 02000 0 00333 108TRAA20 ENTER IT IN LIBF. F6P01070
00342−0 53400 2 00303 109 A21 LXDA15,2 F6P01080
00343 3 00026 2 00400 110TXHEXCAD,2,22 TRANSFER IF PROG. CARD HAS MORE THAN 22 WORDS. F6P01090
00344 0 07400 4 00523 111TSXWRITE,4 WRITE PROG CARD ON TAPE 3 F6P01100
00345 0 00002 0 00000 112HTR0,0,2 F6P01110
00346 0 07400 4 00537 113 B13 TSXSUB1,4 READ RECORD FROM LIB. TAPE F6P01120
00347 0 02000 0 00433 114TRAEOF EOF. F6P01130
00350 0 50000 0 01006 115 X3 CLAVLENG WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE. F6P01140
00351 0 10000 0 00356 116TZEA22 IF NO TRANSFER VECTOR, GO TO WRITE. F6P01150
00352 0 34000 0 01012 117CASL20D F6P01160
00353 0 02000 0 00365 118TRAX2 GO TO X2 IF TRANS VEC. OF LIB. SUBR. GREATER F6P01170
119 THAN 20. F6P01180
00354 0 02000 0 00355 120TRAX1 GO T0 X1 IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190
121 EQUAL 20. F6P01200
00355 0 07400 4 00613 122 X1 TSXLOOP3,4 GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC. F6P01210
00356 0 07400 4 00523 123 A22 TSXWRITE,4 GO WRITE TRANS. VECT. RECORD ON TAPE 3. F6P01220
00357 0 00004 0 00000 124HTR0,0,4 F6P01230
00360 0 07400 4 00537 125 LOOP2 TSXSUB1,4 GO READ NEW RECORD FROM LIBRARY TAPE. F6P01240
00361 0 02000 0 00433 126TRAEOF EOF ON LIBRARY TAPE. F6P01250
00362 0 50000 0 01327 127CLABUFF−1 TEST FOR PROGRAM CARD. F6P01260
00363−0 12000 0 00265 128TMIA12 YES, PROG CARD. TRANSFER. F6P01270
00364 0 02000 0 00356 129TRAA22 NO, GO TO WRITE CARD ON TAPE THREE. F6P01280
00365 0 40200 0 01012 130 X2 SUBL20D TO TREAT 20 AT A TIME. F6P01290
00366 0 60100 0 01006 131STOVLENG F6P01300
00367 0 50000 0 01012 132CLAL20D F6P01310
00370 0 07400 4 00613 133TSXLOOP3,4 SEARCH FOR SUB+SUBROUT IN LIBF. IF NOT THERE, F6P01320
134 ENTER IN TVR TABLE. F6P01330
00371 0 07400 4 00523 135TSXWRITE,4 WRITE RECORD ON TAPE 3. F6P01340
00372 0 00004 0 00000 136HTR0,0,4 F6P01350
00373 0 07400 4 00537 137TSXSUB1,4 READ NEXT RECORD FROM LIB TAPE F6P01360
00374 0 02000 0 00433 138TRAEOF EOF F6P01370
00375 0 50000 0 01327 139CLABUFF−1 IS IT A PROG. CARD. F6P01380
00376 0 12000 0 00350 140TPLX3 NO, GO PROCESS TRANS. VEC. F6P01390
00377 0 07400 4 00774 141 ERROR TSXOUTER,4 YES. ERROR. F6P01400
00400 0 50200 0 01013 142 EXCAD CLSL22D TO WRITE FIRST CARD OG PROG. CARD. F6P01410
00401 0 60100 0 01327 143 B9 STOBUFF−1 F6P01420
00402 0 07400 4 00647 144TSXCHSUM,4 COMPUTE CHECK SUM. F6P01430
00403 0 07400 4 00523 145TSXWRITE,4 WRITE IT ON TAPE 3. F6P01440
146 BLANKS F6P01450
00404 0 00002 0 00000 147HTR0,0,2 F6P01460
00405−0 75400 2 00000 148PXD0,2 F6P01470
00406 0 40200 0 01013 149SUBL22D MORE THAN 22 WORDS. F6P01480
00407−0 12000 0 00346 150TMIB13 NO, GO T0 B13. F6P01490
00410−0 73400 2 00000 151PDX0,2 YES, DECREMENT WD. CT. BY 22 AND STORE IT IN F6P01500
152 INDEX REGISTER 2. F6P01510
00411 0 40200 0 01000 153SUBONEDE F6P01520
00412 0 62200 0 00417 154STDBOO1 F6P01530
M00413−0 53400 1 00162 155LXDONE,1 F6P01540
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
00416 1 00001 1 00417 158TXIBOO1,1,1 F6P01570
00417−3 00417 1 00414 159 BOO1 TXLBOO,1,* F6P01580
00420−3 00025 2 00423 160TXLB8,2,21 F6P01590
00421 0 50200 0 01013 161CLSL22D F6P01600
00422 0 02000 0 00401 162TRAB9 F6P01610
00423−0 75400 2 00000 163 B8 PXD0,2 F6P01620
00424−0 73400 1 00000 164PDX0,1 IF NECESSARY F6P01630
00425 0 60000 1 01325 165 B12 STZBUFF−3,1 AND FILL IN ZEROES IF NECESSARY. F6P01640
00426 1 00001 1 00427 166TXIB11,1,1 F6P01650
00427−3 00026 1 00425 167 B11 TXLB12,1,22 F6P01660
00430−0 75400 2 00000 168PXD0,2 F6P01670
00431−0 76000 0 00003 169SSM F6P01680
00432 0 02000 0 00401 170TRAB9 F6P01690
00433 0 50000 0 01004 171 EOF CLAPASCT F6P01700
M00434 0 40200 0 00162 172SUBONE F6P01710
00435 0 10000 0 00440 173TZED1 TRANSFER IF ONLY ONE SEARCH F6P01720
00436 0 50000 0 01005 174CLACTF END OF SEARCH TEST F6P01730
00437 0 10000 0 00451 175TZED3 CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH. F6P01740
00440 0 50000 0 01004 176 D1 CLAPASCT PREPARE FOR ANOTHER F6P01750
M00441 0 40000 0 00162 177ADDONE SEARCH. F6P01760
00442 0 60100 0 01004 178STOPASCT F6P01770
179 CHARACTER. F6P01780
00443 0 53400 1 01002 180LXARCT,1 SET XR1 EQUAL NO. OF RECORDS READ FROM LIB. F6P01790
00444 1 00001 1 00445 181TXID2,1,1 TAPE. F6P01800
00445 0 76400 0 00201 182 D2 BST1 BACK SPACE TAPE THAT MANY RECORDS. F6P01810
00446 2 00001 1 00445 183TIXD2,1,1 F6P01820
00447 0 60000 0 01002 184STZRCT SET RCT EQUAL ZERO AND GO START SEARCH F6P01830
00450 0 02000 0 00257 185TRALOOP1 F6P01840
00451 0 53400 1 01003 186 D3 LXALIBCT,1 ANY SUBROUTINES FOUND F6P01850
D00452−3 00000 1 00463 187TXLFINI,1 NO, GO TO FINI. F6P01860
00453 0 07400 4 00573 188TSXSPACE,4 YES. 0O WRITE, SUBROUTINES PUNCHED F6P01870
00454 0 00024 0 00734 189FOUND,,20 F6P01880
00455−0 53400 2 00676 190LXDLNC,2 SET RECORD LENGTH TAPE TWO EQUAL 20. F6P01890
00456 0 50000 1 03610 191 D9 CLALIBF,1 SELECT SUBROUTINE NAME. F6P01900
00457 0 60100 0 01015 192STONAME F6P01910
00460 0 07400 4 00656 193TSXSUB2,4 GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING F6P01920
194 OFF WHEN NECESSARY) F6P01930
00461 2 00001 1 00456 195TIXD9,1,1 TRANSFER IF MORE SUBR. NAMES, F6P01940
00462 0 07400 4 00576 196TSXWLL,4 GO WRITE FINAL RECORD ON TAPE TWO. F6P01950
00463−0 53400 1 03133 197 FINI LXDTVR−1,1 ANY TRANSFER VECTOR. F6P01960
D00464−3 00000 1 00475 198TXLWEF,1 NO, GO TO WEF. F6P01970
00465 0 07400 4 00573 199TSXSPACE,4 YES, GO WRITE SUBROUTINES NOT PUNCHED FROM F6P01980
00466 0 00024 0 00760 200LOST,,20 F6P01990
00467−0 53400 2 00676 201LXDLNC,2 RESET TAPE TWO RECORD LENGTH TO 20. F6P02000
00470 0 50000 1 03133 202 D10 CLATVR−1,1 SELECT NAME IN TVR TABLE. F6P02010
00471 0 60100 0 01015 203STONAME GO WRITE IT IN TAPE TWO BUFFER. F6P02020
00472 0 07400 4 00656 204TSXSUB2,4 F6P02030
00473 2 00001 1 00470 205TIXD10,1,1 TRANSFER IF ANY MORE NAMES IN TVR TABLE. F6P02040
00474 0 07400 4 00576 206TSXWLL,4 GO WRITE FINAL RECORD. F6P02050
00475 0 77200 0 00201 207 WEF REW1 F6P02060
00476 0 50000 0 00036 208CLASUBIN TO SEE IF MAIN PROGRAM F6P02070
00477−0 10000 0 00502 209TNZY1 NO, GO TO WRITE END OF FILE F6P02080
00500 0 76600 0 00223 210WTB3 YES, SO F6P02090
00501 0 70000 0 00505 211CPYTCD WRITE TRANSFER CARD ON TAPE 3 F6P02100
00502 0 77000 0 00203 212 Y1 WEF3 WRITE END OF FILE MARK ON TAPE 3. F6P02110
00503 0 77200 0 00203 213REW3 F6P02120
00504 0 02000 0 03634 214TRARECQ F6P02130
00505−0 00000 0 00000 215 TCD MZE F6P02140
00506 0 53400 2 01003 216 LIBEN LXALIBCT,2 ENTER WITH SUBR. NAME IN ACC. F6P02150
00507−0 63400 2 00515 217SXDLIBA,2 F6P02160
00510−0 53400 2 01000 218LXDONEDE,2 F6P02170
00511 0 34000 2 03610 219 LIBC CASLIBF,2 SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE F6P02180
220 NAME. F6P02190
00512 0 02000 0 00514 221TRALIBB F6P02200
00513 0 02000 4 00001 222TRA1,4 YES, RETURN TO PROGRAM. F6P02210
00514 1 00001 2 00515 223 LIBB TXILIBA,2,1 NO. TEST IF ANY MORE NAMES IN LIBF TABLE. F6P02220
00515−3 00515 2 00511 224 LIBA TXLLIBC,2,* MORE, GO SELECT NEXT ONE. F6P02230
00516 0 60100 2 03610 225STOLIBF,2 NO MORE. ENTER SUBR. NAME IN LIBF. F6P02240
00517 0 50000 0 01003 226CLALIBCT F6P02250
M00520 0 40000 0 00162 227ADDONE UPDATE NO. OF SUBRS. IN LIBF., F6P02260
00521 0 60100 0 01003 228STOLIBCT F6P02270
00522 0 02000 4 00001 229TRA1,4 AND RETURN TO PROGRAM. F6P02280
00523 0 76600 0 00223 230 WRITE WTB3 SELECT TAPE THREE. F6P02290
00524 0 50000 4 00001 231CLA1,4 F6P02300
00525 0 62200 0 00527 232STDWR4 F6P02310
00526−0 53400 1 01327 233LXDBUFF−1,1 F6P02320
00527 1 00000 1 00530 234 WR4 TXIWR3,1,** F6P02330
00530−0 63400 1 00534 235 WR3 SXDWR1,1 SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE F6P02340
236 PLUS DECREMENT OF 1,4 F6P02350
M00531 0 53400 1 00162 237LXAONE,1 F6P02360
00532 0 70000 1 01330 238 WR2 CPYBUFF,1 WRITE WORD FROM BUFFER ONTO TAPE THREE F6P02370
00533 1 00001 1 00534 239TXIWR1,1,1 F6P02380
00534−3 00030 1 00532 240 WR1 TXLWR2,1,24 TEST END OF CARD. F6P02390
00535 0 76600 0 00333 241IOD F6P02400
00536 0 02000 4 00002 242TRA2,4 RETURN TO PROG. EXIT POINT PLUS 2. F6P02410
00537 0 53400 2 00544 243 SUB1 LXARDC,2 READ LIBRARY TAPE RECORD. F6P02420
00540 0 02000 0 00545 244TRARD ROUTINE F6P02430
00541 0 76400 0 00201 245 ERR BST1 READ-ERROR PROCEDURE. F6P02440
00542 2 00001 2 00545 246TIXRD,2,1 F6P02450
00543 0 07400 4 00774 247TSXOUTER,4 F6P02460
00544 0 42000 0 00005 248 RDC HPR5 F6P02470
00545 0 76200 0 00221 249 RD RTB1 SELECT TAPE 1, F6P02480
M00546−0 53400 1 00162 250LXDONE,1 SET XR1=0. F6P02490
00547 0 70000 1 01327 251 SUBA CPYBUFF−1,1 COPY RECORD INTO BUFF-1,-2,... F6P02500
00550 1 00001 1 00547 252TXISUBA,1,1 F6P02510
00551 0 02000 4 00001 253TRA1,4 EOF F6P02520
00552 0 77100 0 00377 254ARS255 F6P02530
00553 0 77100 0 00377 255ARS255 EOR F6P02540
00554−0 76000 0 00012 256RTT F6P02550
00555 0 02000 0 00541 257TRAERR F6P02560
00556 0 50000 0 01002 258CLARCT INCREASE RECORD COUNT BY ONE F6P02570
M00557 0 40000 0 00162 259ADDONE F6P02580
00560 0 60100 0 01002 260STORCT F6P02590
00561 0 02000 4 00002 261TRA2,4 AND RETURN TO PROGRAM EXIT PLUS 2. F6P02600
00562 0 50000 4 00001 262 PRINT CLA1,4 TO WRITE A BCD RECORD ON TAPE TWO. F6P02610
00563−0 73400 2 00000 263PDX0,2 F6P02620
D00564−3 00000 2 00572 264TXLNONE,2 F6P02630
00565 0 76600 0 00202 265 D7 WTD2 F6P02640
00566 0 62100 0 00567 266STAPOOP F6P02650
00567 0 70000 2 00567 267 POOP CPY*,2 F6P02660
00570 2 00001 2 00567 268TIXPOOP,2,1 F6P02670
00571 0 76600 0 00333 269IOD F6P02680
00572 0 02000 4 00002 270 NONE TRA2,4 F6P02690
00573 0 76600 0 00202 271 SPACE WTD2 WRITE A WORD OF BLANKS ON TAPE TWO. F6P02700
00574 0 70000 0 00703 272CPYBLANKS F6P02710
00575 0 02000 0 00562 273TRAPRINT F6P02720
00576−0 63400 4 00702 274 WLL SXDIR4,4 PREPARE TO WRITE FINAL RECORD ON TAPE TWO, F6P02730
00577 1 00002 2 00600 275TXIME20,2,2 F6P02740
00600−0 75400 2 00000 276 ME20 PXD0,2 F6P02750
00601 0 60100 0 00610 277STOLND F6P02760
00602 0 77100 0 00022 278ARS18 F6P02770
00603 0 62100 0 00610 279STALND F6P02780
00604 0 50000 0 01017 280CLALNE F6P02790
00605 0 40200 0 00610 281SUBLND F6P02800
00606 0 60100 0 00610 282STOLND F6P02810
00607 0 07400 4 00562 283TSXPRINT,4 AND GO WRITE IT. F6P02820
00610 0 00000 0 00000 284 LND F6P02830
00611−0 53400 4 00702 285LXDIR4,4 F6P02840
00612 0 02000 4 00001 286TRA1,4 F6P02850
00613 0 40000 0 01014 287 LOOP3 ADDTHRDE F6P02860
00614 0 62200 0 00626 288STDA27 F6P02870
00615−0 53400 1 01007 289LXDFR4,1 F6P02880
00616 0 53400 2 01003 290 A28 LXALIBCT,2 SUBROUTINE IN TVR F6P02890
00617 0 50000 1 01327 291CLABUFF−1,1 SELECT NAME FROM SUBROUTINE TRANS. VEC. F6P02900
00620 0 34000 2 03610 292 A24 CASLIBF,2 SELECT NAME FROM LIBF TABLE. F6P02910
00621 0 02000 0 00623 293TRAA23 NOT EQUAL F6P02920
00622 0 02000 0 00625 294TRAA26 SUBROUTINE IS IN LIBF. F6P02930
00623 2 00001 2 00620 295 A23 TIXA24,2,1 NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS. F6P02940
00624 0 02000 0 00630 296TRAA25 NO. NOT IN LIBF. F6P02950
00625 1 00001 1 00626 297 A26 TXIA27,1,1 ANY MORE NAMES IN SUBROUT. TRANS. VECTOR. F6P02960
00626−3 00626 1 00616 298 A27 TXLA28,1,* YES. F6P02970
00627 0 02000 4 00001 299TRA1,4 NO, RETURN TO PROGRAM F6P02980
00630 0 50000 0 03133 300 A25 CLATVR−1 SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE. F6P02990
00631 0 62200 0 00641 301STDA31 IF NOT ALREADY IN F6P03000
00632−0 53400 2 01000 302LXDONEDE,2 F6P03010
00633 0 10000 0 00645 303TZEEXT2 TRANSFER IF NO ENTRIES IN TVR TABLE F6P03020
00634 0 50000 1 01327 304CLABUFF−1,1 SELECT THE NAME FROM SUBROUT. TR. VECTOR. F6P03030
00635 0 34000 2 03133 305 A32 CASTVR−1,2 IS IT IN THE TVR TABLE. F6P03040
00636 0 02000 0 00640 306TRAA30 F6P03050
00637 0 02000 0 00625 307TRAA26 YES, TRANSFER. F6P03060
00640 1 00001 2 00641 308 A30 TXIA31,2,1 F6P03070
00641−3 00641 2 00635 309 A31 TXLA32,2,* F6P03080
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
00644 0 02000 0 00625 312TRAA26 F6P03110
00645 0 50000 1 01327 313 EXT2 CLABUFF−1,1 SELECT NAME FROM SUBR. TRANS. VEC. AND F6P03120
00646 0 02000 0 00642 314TRAA31+1 GO STORE IT. F6P03130
M00647 0 53400 1 00163 315 CHSUM LXATWO,1 COMPUTE CHECK SUM AND STORE IT IN BUFF-2. F6P03140
00650−0 50000 0 01327 316CALBUFF−1 F6P03150
00651 0 36100 1 01327 317 B6 ACLBUFF−1,1 F6P03160
00652 1 00001 1 00653 318TXIB5,1,1 F6P03170
00653−3 00027 1 00651 319 B5 TXLB6,1,23 F6P03180
00654 0 60200 0 01326 320SLWBUFF−2 F6P03190
00655 0 02000 4 00001 321TRA1,4 F6P03200
00656−0 63400 4 00702 322 SUB2 SXDIR4,4 F6P03210
00657−0 50000 0 00703 323CALBLANKS F6P03220
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
00662 0 56000 0 01015 326 CNS LDQNAME ASSENBLE BCD REPRESENTATION OF F6P03250
00663 0 53400 4 00664 327LXASIX,4 SUBROUTINE NAME. F6P03260
00664−0 76300 0 00006 328 SIX LGL6 F6P03270
00665 0 60200 0 01016 329SLWSYM F6P03280
00666−0 32000 0 00705 330ANA6BITS F6P03290
00667 0 40200 0 00704 331SUBBLANK F6P03300
00670 0 10000 0 00674 332TZECNA F6P03310
00671−0 50000 0 01016 333CALSYM F6P03320
00672 0 60200 2 03635 334SLWLIN+2,2 STORE IT IN WORD TWO OF ENTRY. F6P03330
00673 2 00001 4 00664 335TIXSIX,4,1 F6P03340
00674 2 00002 2 00700 336 CNA TIXEXIT,2,2 RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350
00675 0 07400 4 00562 337TSXPRINT,4 RECORD FULL. GO WRITE IT. F6P03360
00676 0 00024 0 03634 338 LNC LIN+1,,20 F6P03370
00677−0 53400 2 00676 339LXDLNC,2 RESET RECORD LENGTH COUNTER F6P03380
00700−0 53400 4 00702 340 EXIT LXDIR4,4 AND RETURN TO PROGRAM F6P03390
00701 0 02000 4 00001 341TRA1,4 F6P03400
00702 0 00000 0 00000 342 IR4 0,0,0 F6P03410
00703 606060606060 343BLANKS BCD1␣␣␣␣␣␣ F6P03420
00704 000000000060 344 BLANK BCD100000␣ F6P03430
00705+000000000077 345 6BITS OCT77 F6P03440
00706+000000000012 346 TEN DEC10 F6P03450
00707+000000000000 347 LOC DEC0 F6P03460
00710 606060606060 348BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ F6P03470
00711 606060606060 349
00712 606060606060 350
00713 606060606060 351
00714 606060606060 352
00715 606060606060 353
00716 606060606060 354
00717 606062642251 355BCD6␣␣SUBROUTINES␣PUNCHED␣FROM␣LIBRARY␣␣ F6P03480
00720 466463314525 356
00721 626047644523 357
00722 302524602651 358
00723 464460433122 359
00724 512151706060 360
00725 606060606060 361BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ F6P03490
00726 606060606060 362
00727 606060606060 363
00730 606060606060 364
00731 606060606060 365
00732 606060606060 366
00733 606060606060 367
A 00734 368 FOUND BSS F6P03500
00734 606060606060 369BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ F6P03510
00735 606060606060 370
00736 606060606060 371
00737 606060606060 372
00740 606060606060 373
00741 606060606060 374
00742 606060606060 375
00743 626422514664 376BCD6SUBROUTINES␣NOT␣PUNCHED␣FROM␣LIBRARY F6P03520
00744 633145256260 377
00745 454663604764 378
00746 452330252460 379
00747 265146446043 380
00750 312251215170 381
00751 606060606060 382BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ F6P03530
00752 606060606060 383
00753 606060606060 384
00754 606060606060 385
00755 606060606060 386
00756 606060606060 387
00757 606060606060 388
A 00760 389 LOST BSS F6P03540
00760 0 50000 0 03133 390 ERASE CLATVR−1 DECREASE WD CT OF TVR BY ONE. F6P03550
00761 0 40200 0 01000 391SUBONEDE F6P03560
00762 0 62200 0 03133 392STDTVR−1 F6P03570
00763 0 62200 0 00770 393STDNEXT F6P03580
00764 0 10000 0 00772 394TZEEXT1 TEST FOR ANY WORDS LEFT IN TVR TABLE. F6P03590
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
00767 1 00001 2 00770 397TXINEXT,2,1 F6P03620
00770−3 00770 2 00765 398 NEXT TXLSKIP,2,* F6P03630
00771 0 02000 4 00001 399TRA1,4 EXIT TO PROGRAM F6P03640
00772 0 60000 0 03132 400 EXT1 STZTVR−2 WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650
00773 0 02000 4 00001 401TRA1,4 TVR-2 AND RETURN TO PROGRAM. F6P03660
00774 0 77200 0 00201 402 OUTER REW1 F6P03670
00775 0 76200 0 00221 403RTB1 F6P03680
00776 0 76200 0 00221 404RTB1 F6P03690
00777 0 02000 0 00004 405TRA4 F6P03700
01000 0 00001 0 00000 406 ONEDE 0,0,1 F6P03710
01001 0 00000 0 00000 407 SUM F6P03720
U01002 0 00000 0 408 RCT IN F6P03730
01003 0 00000 0 00000 409 LIBCT (ADDRESS) F6P03740
01004 0 00000 0 00000 410 PASCT (ADDRESS) F6P03750
01005 0 00000 0 00000 411 CTF (ADDRESS) F6P03760
01006 0 00000 0 00000 412 VLENG 0,0, F6P03770
01007 0 00004 0 00000 413 FR4 0,0,4 F6P03780
01010 0 00000 0 00024 414 L20 20,0,0 F6P03790
01011 0 00002 0 00000 415 TWODE 0,0,2 F6P03800
01012 0 00024 0 00000 416 L20D 0,0,20 F6P03810
01013 0 00026 0 00000 417 L22D 0,0,22 F6P03820
01014 0 00003 0 00000 418 THRDE 0,0,3 F6P03830
01015 0 00000 0 00000 419 NAME HTR0 F6P03840
01016 0 00000 0 00000 420 SYM HTR0 F6P03850
01017 0 00026 0 03636 421 LNE LIN+3,,22 F6P03860
01330 422 BUFF BES200 F6P03870
03134 423 TVR BES900 F6P03880
03610 424 LIBF BES300 F6P03890
03610 425BSS19 F6P03900
03633 426 LIN BSS1 F6P03910
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
M03635 0 34000 0 00177 431CASSW1 F6P03960
03636 0 02000 0 03643 432TRAWLP1 EQUALS ZERO. ASSUME SWITCH UP, GO PUNCH CARDS. F6P03970
03637 0 02000 0 03716 433TRAOUT EQUALS ONE, ASSUME SWITCH DOWN. NO CARD OUPUT. F6P03980
03640 0 76000 0 00161 434SWT1 TEST SWITCH ONE. F6P03990
03641 0 02000 0 03643 435TRAWLP1 UP SO GO TO PUNCH ON LINE. F6P04000
03642 0 02000 0 03716 436TRAOUT DOWN SO GO TO RETURN TO LOADER. F6P04010
03643 0 50000 0 00036 437 WLP1 CLASUBIN TEST FOR SUB DEF. F6P04020
03644−0 10000 0 03653 438TNZRTF IF SOURCE PROG IS A SUBROUTINE, GO READ TAPE 3 F6P04030
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
03647 0 76600 0 00341 441WPU SELECT PUNCH. F6P04060
03650−2 00001 2 03646 442 WPL3 TNXWPL2,2,1 TRANSFER IF CARD FULL. F6P04070
03651 0 70000 1 04340 443CPYZER+216,1 COPY LOADER WORD. F6P04080
03652 2 00001 1 03650 444TIXWPL3,1,1 TRANSFER IF NOT FINISHED PUNCHING LOADER. F6P04090
M03653 0 53400 1 00162 445 RTF LXAONE,1 SET IR1 EQUAL ONE. F6P04100
03654−0 63400 1 03712 446 RT9 SXDRT1,1 SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110
03655−0 53400 2 03662 447LXDRT2,2 SET IR2 EOUAL FIVE FOR READ-ERROR COUNTER. F6P04120
03656 0 76200 0 00223 448 RTR RTB3 READ TAPE THREE. F6P04130
03657−0 53400 4 03701 449LXDRT3,4 SET IR4 EQUAL 24. F6P04140
M03660 0 70000 1 02114 450 RT7 CPYTRB,1 COPY BINARY INST. INTO STORAGE. F6P04150
03661 1 00001 1 03667 451TXIRT4,1,1 INCREASE WORD COUNT ONE. F6P04160
03662 1 00005 0 03723 452 RT2 TXITEF,,5 END OF FILE ON TAPE 3. F6P04170
M03663 0 60000 1 02114 453 RTZ STZTRB,1,6*4096 EOR STORE ZERO. F6P04180
03664 1 00001 1 03665 454TXIRT6,1,1 INCREASE WORD COUNT BY ONE F6P04190
03665 2 00001 4 03663 455 RT6 TIXRTZ,4,1 FILL OUT CARD (IN STORAGE) WITH ZEROS. F6P04200
TD03666 1 00000 0 03673 456TXIRT5 F6P04210
03667 2 00001 4 03660 457 RT4 TIXRT7,4,1 MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220
458 FILLED. F6P04230
03670 0 70000 0 03735 459CPYDUMP NO INDEX IN XR4 IS AN ERROR HERE, F6P04240
03671 0 02000 0 03727 460TRARTE SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTH, F6P04250
03672 0 07400 4 00774 461TSXOUTER,4 F6P04260
03673 0 76600 0 00333 462 RT5 IOD F6P04270
03674 0 77100 0 00377 463ARS255 CHECK FOR TAPE CHECK. F6P04280
03675 0 77100 0 00377 464ARS255 F6P04290
03676−0 76000 0 00012 465RTT F6P04300
03677 0 02000 0 03727 466TRARTE GO TO READ ERROR PROCEDURE. F6P04310
03700−0 53400 1 03712 467 RTA LXDRT1,1 TAPE READ OKAY. ADD 24 (FOR CARD JUST READ) F6P04320
03701 1 00030 1 03702 468 RT3 TXIRT8,1,24 TO WORD COUNT. F6P04330
03702−3 01130 1 03654 469 RT8 TXLRT9,1,24*25 TEST END OF PUNCH BLOCK. F6P04340
M03703 0 53400 4 00161 470LXAZERO,4 BLOCK FULL. SET XR4 EQUAL ZERO, F6P04350
M03704 0 53400 1 00162 471 PIC LXAONE,1 AND PUNCH OUT PUNCH BLOCK. F6P04360
03705 0 76600 0 00341 472 PC3 WPU PUNCH CARD. F6P04370
03706−0 53400 2 03701 473LXDRT3,2 SET XR2 EQUAL 24 F6P04380
M03707 0 70000 1 02114 474 PC2 CPYTRB,1 F6P04390
03710 1 00001 1 03711 475TXI*+1,1,1 F6P04400
03711 2 00001 2 03707 476TIXPC2,2,1 TRANSFER IF NOT END OF CARD. F6P04410
03712−3 00000 1 03705 477 RT1 TXLPC3,1,** END OF PUNCH BLOCK TEST. TRANS. IF NOT END. F6P04420
D03713−3 00000 4 03653 478TXLRTF,4 GO READ MORE FROM TAPE THREE. F6P04430
03714 0 76600 0 00341 479 PTC WPU PUNCH TW0 BLANK CARDS. F6P04440
03715 0 76600 0 00341 480WPU F6P04450
03716 0 76200 0 00221 481 OUT RTB1 RETURN TO LOADER. F6P04460
03717 0 76200 0 00221 482RTB1 F6P04470
03720 0 76200 0 00221 483RTB1 F6P04480
03721 0 02000 0 00004 484TRA4 F6P04490
ATD03722 2 00000 0 00000 485TIX F6P04500
03723−2 00030 1 03714 486 TEF TNXPTC,1,24 HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO F6P04510
487 PUNCH ENDING BLANKS IF YES. F6P04520
03724−0 63400 1 03712 488SXDRT1,1 SAVE WORD COUNT OF PUNCH BLOCK, F6P04530
M03725 0 53400 4 00162 489LXAONE,4 AND GO PUNCH F6P04540
03726 0 02000 0 03704 490TRAPIC FINAL BLOCK. F6P04550
03727 2 00001 2 03732 491 RTE TIXBST,2,1 READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560
03730 0 07400 4 00774 492TSXOUTER,4 YES. F6P04570
03731 0 00000 0 03700 493HTRRTA F6P04580
03732 0 76400 0 00203 494 BST BST3 BACK SPACE TAPE 3 F6P04590
03733−0 53400 1 03712 495LXDRT1,1 AND RESET WORD COUNT TO ONE. F6P04600
03734 0 02000 0 03656 496TRARTR GO READ TAPE 3. F6P04610
03735 497 DUMP BSS1 F6P04620
M 02114 498 TRB SYNABSOP F6P04630
03736 0 00031 0 00330 499 WPLV 216,0,25 F6P04640
03737 0 00040 0 00000 500 WRCC 0,0,32 F6P04650
03740 501BSS40 F6P04660
04010 502 ZER BSS216 F6P04670
04010 503 ZRO SYNZER F6P04680
04010 504ORGZRO F6P04690
505BINARY LOADER AS OCTAL DATA F6P04700
04010+053400100000 506OCT053400100000 F6P04710
04011+070000100002 507OCT070000100002 F6P04720
04012+177777100001 508OCT177777100001 F6P04730
04013+000000100000 509OCT000000100000 F6P04740
04014−076000000007 510OCT476000000007 F6P04750
04015+076200000321 511OCT076200000321 F6P04760
04016+070000177452 512OCT070000177452 F6P04770
04017+177777100006 513OCT177777100006 F6P04780
04020+000000000000 514OCT000000000000 F6P04790
04021+377470100005 515OCT377470100005 F6P04800
04022−053400177715 516OCT453400177715 F6P04810
04023−063400177715 517OCT463400177715 F6P04820
04024+060000077453 518OCT060000077453 F6P04830
04025+076200000321 519OCT076200000321 F6P04840
04026+070000000000 520OCT070000000000 F6P04850
04027+002000077500 521OCT002000077500 F6P04860
04030+000000000015 522OCT000000000015 F6P04870
04031+060000200000 523OCT060000200000 F6P04080
04032+200001200021 524OCT200001200021 F6P04890
04033+014000000024 525OCT014000000024 F6P04900
04034+002000000000 526OCT002000000000 F6P04910
04035+000000000000 527OCT000000000000 F6P04920
04036+000000000030 528OCT000000000030 F6P04930
04037+000000077777 529OCT000000077777 F6P04940
04040+050000000000 530OCT050000000000 F6P04950
04041+070000000001 531OCT070000000001 F6P04960
04042−012000077626 532OCT412000077626 F6P04970
04043+010000000015 533OCT010000000015 F6P04980
04044+060000077777 534OCT060000077777 F6P04990
04045−053400100000 535OCT453400100000 F6P05000
04046−300037177516 536OCT700037177516 F6P05010
04047+300040100000 537OCT300040100000 F6P05020
04050+062100000025 538OCT062100000025 F6P05030
04051+040000000026 539OCT040000000026 F6P05040
04052+062100000026 540OCT062100000026 F6P05050
04053+050000000001 541OCT050000000001 F6P05060
04054+062100077520 542OCT062100077520 F6P05070
04055+002000000015 543OCT002000000015 F6P05080
04056+062100000010 544OCT062100000010 F6P05090
04057+077100000017 545OCT077100000017 F6P05100
04060−073400400000 546OCT473400400000 F6P05110
04061−300001477524 547OCT700001477524 F6P05120
04062+007400277611 548OCT007400277611 F6P05130
04063+062100000010 549OCT062100000010 F6P05140
04064−050000000000 550OCT−50000000000 F6P05150
04065+077100000022 551OCT077100000022 F6P05160
04066+040000000010 552OCT040000000010 F6P05170
04067+062100077531 553OCT062100077531 F6P05180
04070−053400200000 554OCT453400200000 F6P05190
04071−300000200000 555OCT700000200000 F6P05200
04072+062100077577 556OCT062100077577 F6P05210
04073+062100077601 557OCT062100077601 F6P05220
04074+062100077572 558OCT062100077572 F6P05230
04075+062100077566 559OCT062100077566 F6P05240
04076+062100077543 560OCT062100077543 F6P05250
04077−050000000000 561OCT450000000000 F6P05260
04100−300001477543 562OCT700001477543 F6P05270
04101−070000000007 563OCT470000000007 F6P05280
04102−070000000006 564OCT470000000006 F6P05290
04103−070000200000 565OCT470000200000 F6P05300
04104+200001277543 566OCT200001277543 F6P05310
04105−300000477551 567OCT700000477551 F6P05320
04106−300001400015 568OCT700001400015 F6P05330
04107−300002477551 569OCT700002477551 F6P05340
04110−300003477561 570OCT700003477561 F6P05350
04111+060200000000 571OCT060200000000 F6P05360
04112+050000000001 572OCT050000000001 F6P05370
04113+010000077557 573OCT010000077557 F6P05380
04114+040200000000 574OCT040200000000 F6P05390
04115+010000077557 575OCT010000077557 F6P05400
04116+042000000000 576OCT042000000000 F6P05410
04117−300001400015 577OCT700001400015 F6P05420
04120+300003477642 578OCT300003477642 F6P05430
04121+056000000006 579OCT056000000006 F6P05440
04122+050000000007 580OCT050000000007 F6P05450
04123−076300000001 581OCT476300000001 F6P05460
04124+060200000007 582OCT060200000007 F6P05470
04125+012000077573 583OCT012000077573 F6P05480
04126+050000100000 584OCT050000100000 F6P05490
04127+077100000022 585OCT077100000022 F6P05500
04130+007400277604 586OCT007400277604 F6P05510
04131+076700000022 587OCT076700000022 F6P05520
04132+062200100000 588OCT062200100000 F6P05530
04133+050000000007 589OCT050000000007 F6P05540
04134−076300000001 590OCT476300000001 F6P05550
04135+060200000007 591OCT060200000007 F6P05560
04136+012000077602 592OCT012000077602 F6P05570
04137+050000100000 593OCT050000100000 F6P05580
04140+007400277604 594OCT007400277604 F6P05590
04141+062100100000 595OCT062100100000 F6P05600
04142+200001177562 596OCT200001177562 F6P05610
04143+002000000015 597OCT002000000015 F6P05620
04144+062100000010 598OCT062100000010 F6P05630
04145+050000000007 599OCT050000000007 F6P05640
04146−076300000001 600OCT476300000001 F6P05650
04147+060200000007 601OCT060200000007 F6P05660
04150−012000077612 602OCT412000077612 F6P05670
04151+076000000141 603OCT076000000141 F6P05680
04152+050200000010 604OCT050200000010 F6P05690
04153+040000000025 605OCT040000000025 F6P05700
04154+012000077622 606OCT012000077622 F6P05710
04155−076000000141 607OCT476000000141 F6P05720
04156+002000077624 608OCT002000077624 F6P05730
04157+050000000010 609OCT050000000010 F6P05740
04160+040100077520 610OCT040100077520 F6P05750
04161+002000200001 611OCT002000200001 F6P05760
04162−076000000141 612OCT476000000141 F6P05770
04163+002000077617 613OCT002000077617 F6P05780
04164+040200000026 614OCT040200000026 F6P05790
04165+002000200001 615OCT002000200001 F6P05800
04166−073400200000 616OCT473400200000 F6P05810
04167−300000277770 617OCT700000277770 F6P05820
04170+040000077771 618OCT040000077771 F6P05830
04171+040000077640 619OCT040000077640 F6P05840
04172+062200077713 620OCT062200077713 F6P05850
04173+040200077715 621OCT040200077715 F6P05860
04174+062200077667 622OCT062200077667 F6P05870
04175+036100000000 623OCT036100000000 F6P05880
04176+040200077640 624OCT040200077640 F6P05890
04177+077100000022 625OCT077100000022 F6P05900
04200+200002277641 626OCT200002277641 F6P05910
04201+007400477536 627OCT007400477536 F6P05920
04202−053400177771 628OCT453400177771 F6P05930
04203+050000077777 629OCT050000077777 F6P05940
04204+010000077652 630OCT010000077652 F6P05950
04205+050000000007 631OCT050000000007 F6P05960
04206+060100177451 632OCT060100177451 F6P05970
04207+050000000006 633OCT050000000006 F6P05980
04210+060100177452 634OCT060100177452 F6P05990
04211+200002177704 635OCT200002177704 F6P06000
04212+050000000026 636OCT050000000026 F6P06010
04213+060000177451 637OCT060000177451 F6P06020
04214+060100177452 638OCT060100177452 F6P06030
04215−053400400007 639OCT453400400007 F6P06040
04216+300000477661 640OCT300000477661 F6P06050
04217+050000077776 641OCT050000077776 F6P06060
04220+060100177451 642OCT060100177451 F6P06070
04221+050000000007 643OCT050000000007 F6P06080
04222+062200177451 644OCT062200177451 F6P06090
04223+062100000025 645OCT062100000025 F6P06100
04224+040000000026 646OCT040000000026 F6P06110
04225+062100000026 647OCT062100000026 F6P06120
04226+073400200000 648OCT073400200000 F6P06130
04227+300000200003 649OCT300000200003 F6P06140
04230+050000077520 650OCT050000077520 F6P06150
04231+040200000006 651OCT040200000006 F6P06160
04232+073400400000 652OCT073400400000 F6P06170
04233−075400400000 653OCT475400400000 F6P06180
04234+077100000022 654OCT077100000022 F6P06190
04235+010000077677 655OCT010000077677 F6P06200
04236+034000000027 656OCT034000000027 F6P06210
04237+050000000027 657OCT050000000027 F6P06220
04240+076100000000 658OCT076100000000 F6P06230
04241+060100000027 659OCT060100000027 F6P06240
04242+040200000026 660OCT040200000026 F6P06250
04243−012000077453 661OCT412000077453 F6P06260
04244−063400277777 662OCT463400277777 F6P06270
04245+060000000007 663OCT060000000007 F6P06280
04246+100002177707 664OCT100002177707 F6P06290
04247+050000177452 665OCT050000177452 F6P06300
04250+007400277604 666OCT007400277604 F6P06310
04251+062100177452 667OCT062100177452 F6P06320
04252+100002177713 668OCT100002177713 F6P06330
04253−300000177707 669OCT700000177707 F6P06340
04254−063400177771 670OCT463400177771 F6P06350
04255−277452000015 671OCT677452000015 F6P06360
04256−050000277453 672OCT450000277453 F6P06370
04257−010000077723 673OCT410000077723 F6P06380
04260+050000277454 674OCT050000277454 F6P06390
04261+062100000024 675OCT062100000024 F6P06400
04262+002000077770 676OCT002000077770 F6P06410
04263−032000077776 677OCT432000077776 F6P06420
04264−010000077770 678OCT410000077770 F6P06430
04265+050000277453 679OCT050000277453 F6P06440
04266−073400400000 680OCT473400400000 F6P06450
04267+077100000022 681OCT077100000022 F6P06460
04270+040000277454 682OCT040000277454 F6P06470
04271+062100077736 683OCT062100077736 F6P06480
04272+062100077764 684OCT062100077764 F6P06490
04273+062100077766 685OCT062100077766 F6P06500
04274+062100077741 686OCT062100077741 F6P06510
04275−053400177771 687OCT453400177771 F6P06520
04276−050000400000 688OCT450000400000 F6P06530
04277−032000077776 689OCT432000077776 F6P06540
04300+010000077767 690OCT010000077767 F6P06550
04301+050000400000 691OCT050000400000 F6P06560
04302+034000177453 692OCT034000177453 F6P06570
04303+002100077745 693OCT002100077745 F6P06580
04304+002000077763 694OCT002000077763 F6P06590
04305+200002177742 695OCT200002177742 F6P06600
04306+060100000006 696OCT060100000006 F6P06610
04307−053400177753 697OCT453400177753 F6P06620
04310+050000177477 698OCT050000177477 F6P06630
04311+010000077757 699OCT010000077757 F6P06640
04312+034000000006 700OCT034000000006 F6P06650
04313−200024077755 701OCT600024077755 F6P06660
04314+002000077767 702OCT002000077767 F6P06670
04315+200001177750 703OCT200001177750 F6P06680
04316+000000077770 704OCT000000077770 F6P06690
04317+050000000006 705OCT050000000006 F6P06700
04320+060100177477 706OCT060100177477 F6P06710
04321+060000177500 707OCT060000177500 F6P06720
04322+002000077767 708OCT002000077767 F6P06730
04323+050000077743 709OCT050000077743 F6P06740
04324+060100400000 710OCT060100400000 F6P06750
04325+050000177454 711OCT050000177454 F6P06760
04326+062100400000 712OCT062100400000 F6P06770
04327+200001477735 713OCT200001477735 F6P06780
04330+100002277771 714OCT100002277771 F6P06790
04331−300000277716 715OCT700000277716 F6P06800
04332+050000077453 716OCT050000077453 F6P06810
04333−010000077775 717OCT410000077775 F6P06620
04334+100324200021 718OCT100324200021 F6P06830
04335+000000000014 719OCT000000000014 F6P06840
04336−300000000000 720OCT700000000000 F6P06850
04337+000000000000 721OCT000000000000 F6P06860