1AST
2************* FORTRAN II SECTION SIX ************************F6F00010
3FORTRAN 2 RECORD 101 - FORTRAN FUNCTION ASSN F6F00011
4 F6F00012
5CONTROL ENTERS THIS RECORD AT LOCATION 210. F6F00013
6 F6F00014
7ENTER FORTRAN FUNCTION NAMES IN TDEV F6F00020
00210 8ORG136 F6F00030
00210−0 53400 1 00154 9LXDDEVS,1 F6F00040
D00211−3 00000 1 00215 10 GO TXLIFMT,1 F6F00050
00212 0 50000 0 00156 11CLADEVA IF PREVIOUS ENTRIES, UPDATE DECREMENT OF EDEV3 F6F00060
00213 0 40000 0 00156 12ADDDEVA WHICH WILL CONTAIN THE MAX. POWER OF 2 EX- F6F00070
00214 0 62200 0 00277 13STDEDEV3 PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES F6F00080
A 00215 14 IFMT BSS F6F00090
00215 0 02000 0 00325 15TRAFPCH1 F6F00100
00216 0 76200 0 00303 16 LIB24 RDR3 SELECT DRUM 3. F6F00110
T00217−0 75400 0 02000 17 NFA PXD1024 TABLE FROM F6F00120
00220 0 60100 0 00373 18STOLIBD SET LIBD EQUAL TO ZERO. F6F00130
00221 0 46000 0 00217 19LDANFA LOCATE FORSUB (FORTRAN FUNCTION) TABLE. F6F00140
00222−0 70000 0 00704 20CADFORT TO READ WORD COUNT OF FORSUB TABLE, SAVE IT IN F6F00150
00223 0 76000 0 00006 21COM FORT AND F6F00160
00224−0 70000 0 00372 22CADSUM CHECK. F6F00170
00225 0 76000 0 00006 23COM F6F00180
00226 0 10000 0 00231 24TZERFS F6F00190
00227 2 00001 4 00216 25TIXLIB24,4,1 IF DRUM READ ERROR, F6F00200
00230 0 07400 4 00004 26TSX4,4 F6F00210
00231−0 53400 3 00704 27 RFS LXDFORT,3 TEST IF ANY FORTRAN FUNCTIONS. F6F00220
D00232−3 00000 2 00267 28TXLRDRM,2 IF NOT, GO TO RETURN TO LOADER. F6F00230
00233 0 53400 4 00321 29LXALOC15,4 IF YES, SET DRUM READ ERROR COUNTER F6F00240
00234 0 76200 0 00303 30 LIB25 RDR3 AND READ FORSUB TABLE F6F00250
T00235−0 75400 0 02002 31 TFA PXD1026 INTO FORT-WDCT THRU FORT-1. F6F00260
00236 0 46000 0 00235 32LDATFA F6F00270
00237−0 70000 2 00704 33 CFS CADFORT,2 F6F00280
00240 2 00001 2 00237 34TIXCFS,2,1 F6F00290
00241 0 70000 0 00372 35CPYSUM F6F00300
00242 0 76000 0 00006 36COM F6F00310
00243−0 70000 0 00372 37CADSUM F6F00320
00244 0 76000 0 00006 38COM F6F00330
00245 0 10000 0 00250 39TZEFORS CHECK SUM OKAY. F6F00340
00246 2 00001 4 00234 40TIXLIB25,4,1 IF CHECK SUM ERROR, REPEAT F6F00350
00247 0 07400 4 00004 41TSX4,4 F6F00360
00250−0 63400 1 00264 42 FORS SXDFORM,1 SAVE WD COUNTER IN DECREMENT OF FORM. F6F00370
00251 0 50000 1 00704 43CLAFORT,1 SELECT FUNCTION SYMBOL, ANO GO TO F6F00380
00252 0 07400 4 00142 44TSXSDEV,4 DEV TABLE F6F00390
00253 0 07400 4 00271 45TSXEDEV,4 IF NOT IN TABLE, GO TO ENTER IT WITH LOCATION F6F00400
TD00254 1 00000 0 00265 46TXIFORE ZERO, AND TRANSFER TO FORE. F6F00410
00255−0 53400 1 00264 47LXDFORM,1 RETURN HERE IF SYMBOL WAS FOUND IN DEV. F6F00420
00256 0 50000 1 00704 48CLAFORT,1 ENTER SYMBOL F6F00430
00257−0 53400 2 00373 49LXDLIBD,2 IN LIBP TABLE. F6F00440
00260 1 00001 2 00261 50TXIFORD,2,1 F6F00450
00261 0 60100 2 00540 51 FORD STOLIBP,2 F6F00460
00262−0 63400 2 00373 52SXDLIBD,2 F6F00470
00263 2 00002 1 00250 53TIXFORS,1,2 END OF FORSUB TABLE. NO, GO TO SELECT NEXT F6F00480
54 FUNCTION SYMBOL F6F00481
TD00264 1 00000 0 00267 55 FORM TXIRDRM YES, GO TO LOADER. F6F00490
00265−0 53400 1 00264 56 FORE LXDFORM,1 RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLEF6F00500
00266 2 00002 1 00250 57TIXFORS,1,2 NO, DECREMENT COUNTER AND GO TO READ NEXT F6F00510
58 FUNCTION SYMBOL F6F00511
00267 0 76200 0 00221 59 RDRM RTB1 YES, GO TO LOADER F6F00520
00270 0 02000 0 00004 60TRA4 F6F00530
00271 1 00001 2 00272 61 EDEV TXIEDEV0,2,1 FOR COMMENTS, SEE RECORD 96. F6F00540
00272−0 63400 2 00306 62 EDEV0 SXDEDEV1,2 F6F00550
00273 0 60100 0 00160 63STOENTRY F6F00560
00274−0 53400 2 00155 64LXDDEVL,2 F6F00570
00275 1 00001 2 00276 65TXIEDEV2,2,1 F6F00580
00276−0 63400 2 00155 66 EDEV2 SXDDEVL,2 F6F00590
00277−3 00000 2 00306 67 EDEV3 TXLEDEV1,2,**+0 F6F00600
00300−0 50000 0 00154 68CALDEVS F6F00610
00301 0 40000 0 00156 69ADDDEVA F6F00620
00302 0 60200 0 00154 70SLWDEVS F6F00630
00303 0 62200 0 00156 71STDDEVA F6F00640
00304 0 40000 0 00156 72ADDDEVA F6F00650
00305 0 62200 0 00277 73STDEDEV3 F6F00660
00306 3 00000 2 00314 74 EDEV1 TXHEDEV4,2,** F6F00670
00307−0 50000 0 00160 75CALENTRY F6F00680
00310 0 60200 2 77777 76SLWDEV,2 F6F00690
00311 0 50000 0 00174 77CLAEA F6F00700
00312 0 60200 2 74413 78SLWDEA,2 F6F00710
00313 0 02000 4 00001 79TRA1,4 F6F00720
00314−0 50000 2 00000 80 EDEV4 CALDEV+1,2 M0VE TABLE F6F00730
00315 0 60200 2 77777 81SLWDEV,2 ENTRIES. F6F00740
00316−0 50000 2 74414 82CALDEA+1,2 F6F00750
00317 0 60200 2 74413 83SLWDEA,2 F6F00760
00320 1 77777 2 00306 84TXIEDEV1,2,−1 F6F00770
00321 0 42000 0 00017 85 LOC15 HPR15 F6F00780
00322 0 00000 0 77777 86 MI1 PZE−1 F6F00781
00323+000001000000 87 DCR1 OCT1000000 F6F00782
00324 0 00000 0 00000 88 SAV HTR0 F6F00783
00325 0 50000 0 72605 89 FPCH1 CLAUPPER−2 WORD COUNT OF SUBDEF TABLE. F6F00784
00326 0 40200 0 00323 90SUBDCR1 F6F00785
00327 0 10000 0 00351 91TZEGOHD+1 NO ARGUMENTS. F6F00786
00330−0 12000 0 00351 92TMIGOHD+1 NO ARGUMENTS. F6F00787
00331 0 62200 0 00346 93STDETST ARGUMENTS TO ENTER IN DEV. F6F00788
00332−0 53400 1 00323 94LXDDCR1,1 F6F00789
00333 0 50000 0 00322 95CLAMI1 F6F00790
00334 0 60100 0 00174 96STOEA SET EA TO ALL 7 S. F6F00791
00335−0 63400 1 00324 97 GOFIX SXDSAV,1 F6F00792
00336 0 50000 1 72604 98CLAUPPER−3,1 SELECT ARGUMENT. F6F00793
00337 0 07400 4 00142 99TSXSDEV,4 GO SEARCH DEV FOR IT. F6F00794
00340 0 07400 4 00271 100TSXEDEV,4 NOT IN SO ENTER IN DEV F6F00795
00341 0 02000 0 00344 101TRA*+3 AND TRANSFER. F6F00796
00342 0 50000 0 00174 102CLAEA ALREADY IN DEV. ENTER F6F00797
00343 0 60100 2 74413 103STODEA,2 LOCATION AS ALL 7S. F6F00798
00344−0 53400 1 00324 104LXDSAV,1 F6F00799
00345 1 00001 1 00346 105TXI*+1,1,1 F6F00800
00346 3 00000 1 00350 106 ETST TXHGOHD,1,** TEST FOR ANY MORE ARGS. F6F00801
00347 0 02000 0 00335 107TRAGOFIX F6F00802
00350 0 60000 0 00174 108 GOHD STZEA RESET EA TO ZERO. F6F00803
00351 0 53400 4 00321 109 RNF LXALOC15,4 SET DRUM READ ERROR COUNTER F6F00804
00352 0 02000 0 00216 110TRALIB24 F6F00805
00353 111BSS15 F6F00806
00372 0 00000 0 00000 112 SUM F6F00807
00373 0 00000 0 00000 113 LIBD F6F00810
00540 114 LIBP BES100 F6F00820
00704 115 FORT BES100 F6F00830