$LIST $DATE 102121 $* $* SYSTEM READY TO RUN JOBS $* $PAUSE OPER. ACTION PAUSE ..CONTINUING $TAPE $JOB ALCSBTTEST $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. $IBJOB GO, MAP, LOGIC, FIOCS $IBFTC BLOCDA FULIST,DD,NODECK,M94 10/21/21 PAGE 1 BLOCDA - EFN SOURCE STATEMENT - IFN(S) - BLOCK DATA C C DOUBLE PRECISION C COMMON/BTACON/C(100) C C DATA (C(M),M=1,18) / 1 9.9009900990099010D-05, 1.0101010101010101D-04, 2 1.0307153164296021D-04, 1.0519671786240269D-04, 3 1.0738831615120275D-04, 1.0964912280701754D-04, 4 1.1198208286674132D-04, 1.1439029970258522D-04, 5 1.1687704534829360D-04, 1.1944577161968466D-04, 6 1.2210012210012210D-04, 1.2484394506866417D-04, 7 1.2768130745658836D-04, 1.3061650992685475D-04, 8 1.3365410318096766D-04, 1.3679890560875513D-04, 9 1.4005602240896359D-04, 1.4343086632243259D-04 / DATA (C(M),M=19,36) / 1 1.4692918013517485D-04, 1.5055706112616682D-04, 2 1.5432098765432099D-04, 1.5822784810126582D-04, 3 1.6228497241155469D-04, 1.6650016650016650D-04, 4 1.7088174982911825D-04, 1.7543859649122807D-04, 5 1.8018018018018018D-04, 1.8511662347278786D-04, 6 1.9025875190258752D-04, 1.9561815336463224D-04, 7 2.0120724346076459D-04, 2.0703933747412008D-04, 8 2.1312872975277067D-04, 2.1949078138718174D-04, 9 2.2614201718679331D-04, 2.3310023310023310D-04 / DATA (C(M),M=37,54) / 1 2.4038461538461538D-04, 2.4801587301587302D-04, 2 2.5601638504864311D-04, 2.6441036488630354D-04, 3 2.7322404371584699D-04, 2.8248587570621469D-04, 4 2.9222676797194623D-04, 3.0248033877797943D-04, 5 3.1328320802005013D-04, 3.2467532467532468D-04, 6 3.3670033670033670D-04, 3.4940600978336827D-04, 7 3.6284470246734398D-04, 3.7707390648567119D-04, 8 3.9215686274509804D-04, 4.0816326530612245D-04, 9 4.2517006802721088D-04, 4.4326241134751773D-04 / DATA (C(M),M=55,72) / 1 4.6253469010175763D-04, 4.8309178743961353D-04, 2 5.0505050505050505D-04, 5.2854122621564482D-04, 3 5.5370985603543743D-04, 5.8072009291521487D-04, 4 6.0975609756097561D-04, 6.4102564102564103D-04, 5 6.7476383265856950D-04, 7.1123755334281650D-04, 6 7.5075075075075075D-04, 7.9365079365079365D-04, 7 8.4033613445378151D-04, 8.9126559714795009D-04, 8 9.4696969696969697D-04, 1.0080645161290323D-03, 9 1.0752688172043011D-03, 1.1494252873563218D-03 / DATA (C(M),M=73,100) / 1 1.2315270935960591D-03, 1.3227513227513228D-03, 2 1.4245014245014245D-03, 1.5384615384615385D-03, 3 1.6666666666666667D-03, 1.8115942028985507D-03, 4 1.9762845849802372D-03, 2.1645021645021645D-03, 5 2.3809523809523810D-03, 2.6315789473684211D-03, 6 2.9239766081871345D-03, 3.2679738562091503D-03, 7 3.6764705882352941D-03, 4.1666666666666667D-03, 10/21/21 PAGE 2 BLOCDA - EFN SOURCE STATEMENT - IFN(S) - 8 4.7619047619047619D-03, 5.4945054945054945D-03, 9 6.4102564102564103D-03, 7.5757575757575758D-03, 1 9.0909090909090909D-03, 1.1111111111111111D-02, 2 1.3888888888888889D-02, 1.7857142857142857D-02, 3 2.3809523809523810D-02, 3.3333333333333333D-02, 4 5.0000000000000000D-02, 8.3333333333333333D-02, 5 1.6666666666666667D-01, 5.0000000000000000D-01 / END 10/21/21 PAGE 3 $IBFTC MAIN FULIST,DD,NODECK,M94 10/21/21 PAGE 4 MAIN - EFN SOURCE STATEMENT - IFN(S) - INTEGER INDX COMMON/BTACON/C(100) DIMENSION F(4) DOUBLE PRECISION XBETA,OVERA,F C XBETA = 0.625D0 OVERA = -0.971642362847211D0 WRITE(6,101) 2 WRITE(6,80) XBETA 3 WRITE(6,90) OVERA 4 CALL ALCSBT(XBETA,OVERA,F) 5 DO 200 INDX = 1, 4 WRITE(6,100) INDX, F(INDX) 9 200 CONTINUE C XBETA = 0.9D0 OVERA = 1.25D0 WRITE(6,101) 14 WRITE(6,80) XBETA 15 WRITE(6,90) OVERA 16 CALL ALCSBT(XBETA,OVERA,F) 17 DO 300 INDX = 1, 4 WRITE(6,100) INDX, F(INDX) 21 300 CONTINUE C XBETA = 0.70D0 OVERA = -0.05D0 WRITE(6,101) 26 WRITE(6,80) XBETA 27 WRITE(6,90) OVERA 28 CALL ALCSBT(XBETA,OVERA,F) 29 DO 400 INDX = 1, 4 WRITE(6,100) INDX, F(INDX) 33 400 CONTINUE C XBETA = 1.00D00 OVERA = 1.00D00 WRITE(6,101) 38 WRITE(6,80) OVERA 39 WRITE(6,90) XBETA 40 CALL ALCSBT(XBETA,OVERA,F) 41 DO 500 INDX = 1, 4 WRITE(6,100) INDX, F(INDX) C 45 500 CONTINUE 80 FORMAT(12H OVERA =,D27.20) 90 FORMAT(12H XBETA =,D27.20) 100 FORMAT(5X,1HF,I1,1H=,4X,D27.20) 101 FORMAT(40H****************************************) RETURN END 10/21/21 PAGE 5 BLOCDA STORAGE MAP BLOCK DATA COMMON VARIABLES COMMON BLOCK BTACON ORIGIN 00000 LENGTH 00310 SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE C 00000 D 10/21/21 PAGE 6 BLOCDA ASSEMBLY LISTING $IBLDR BLOCDA 10/21/21 BLOC0000 $TEXT BLOCDA 10/21/21 BLOC0001 00000 400000002000 00001 ORG C 00000 163637216111 10000 OCT 163637216111 00001 130316477763 10000 OCT 130316477763 00002 163647525424 10000 OCT 163647525424 00003 130452557640 10000 OCT 130452557640 00004 163660240333 10000 OCT 163660240333 00005 130421357366 10000 OCT 130421357366 00006 163671164166 10000 OCT 163671164166 00007 130374555644 10000 OCT 130374555644 00010 163702326516 10000 OCT 163702326516 00011 130227240070 10000 OCT 130227240070 00012 163713715545 10000 OCT 163713715545 00013 130400713715 10000 OCT 130400713715 00014 163725537542 10000 OCT 163725537542 00015 130155665003 10000 OCT 130155665003 00016 163737623230 10000 OCT 163737623230 00017 130501327133 10000 OCT 130501327133 00020 163752157426 10000 OCT 163752157426 00021 130302657254 10000 OCT 130302657254 00022 163764773656 10000 OCT 163764773656 00023 130621531124 10000 OCT 130621531124 00024 164400040004 10000 OCT 164400040004 00025 131000400040 10000 OCT 131000400040 00026 164405642124 10000 OCT 164405642124 00027 131502526266 10000 OCT 131502526266 00030 164413610605 10000 OCT 164413610605 00031 131062565322 10000 OCT 131062565322 00032 164421730321 10000 OCT 164421730321 00033 131561540443 10000 OCT 131561540443 00034 164430226000 10000 OCT 164430226000 00035 131214113000 10000 OCT 131214113000 00036 164436706551 10000 OCT 164436706551 00037 131542211000 10000 OCT 131542211000 00040 164445560004 10000 OCT 164445560004 00041 131455600045 10000 OCT 131455600045 00042 164454627560 10000 OCT 164454627560 00043 131515544241 10000 OCT 131515544241 00044 400044002044 00001 ORG C+36 00044 164464104003 10000 OCT 164464104003 00045 131004524017 10000 OCT 131004524017 00046 164473573323 10000 OCT 164473573323 00047 131532071522 10000 OCT 131532071522 00050 164503504714 10000 OCT 164503504714 00051 131125756232 10000 OCT 131125756232 00052 164513647667 10000 OCT 164513647667 00053 131323217702 10000 OCT 131323217702 00054 164524254123 10000 OCT 164524254123 00055 131056020222 10000 OCT 131056020222 00056 164535132142 10000 OCT 164535132142 00057 131427750640 10000 OCT 131427750640 00060 164546272703 10000 OCT 164546272703 10/21/21 PAGE 7 BLOCDA ASSEMBLY LISTING 00061 131351332565 10000 OCT 131351332565 00062 164557727604 10000 OCT 164557727604 00063 131315411413 10000 OCT 131315411413 00064 164571672775 10000 OCT 164571672775 00065 131463740210 10000 OCT 131463740210 00066 164604157354 10000 OCT 164604157354 00067 131000604160 10000 OCT 131000604160 00070 164617000617 10000 OCT 164617000617 00071 131000617001 10000 OCT 131000617001 00072 164632173311 10000 OCT 164632173311 00073 131072373460 10000 OCT 131072373460 00074 164645754503 10000 OCT 164645754503 00075 131707104471 10000 OCT 131707104471 00076 164662142627 10000 OCT 164662142627 00077 131365557322 10000 OCT 131365557322 00100 164676755166 10000 OCT 164676755166 00101 131223420634 10000 OCT 131223420634 00102 164714234335 10000 OCT 164714234335 00103 131123122206 10000 OCT 131123122206 00104 164732202110 10000 OCT 164732202110 00105 131554750114 10000 OCT 131554750114 00106 164750661360 10000 OCT 164750661360 00107 131273105740 10000 OCT 131273105740 00110 400110002110 00001 ORG C+72 00110 164770077007 10000 OCT 164770077007 00111 131700770077 10000 OCT 131700770077 00112 165404040404 10000 OCT 165404040404 00113 132040404041 10000 OCT 132040404041 00114 165414347600 10000 OCT 165414347600 00115 132041434760 10000 OCT 132041434760 00116 165425202167 10000 OCT 165425202167 00117 132531155520 10000 OCT 132531155520 00120 165436376025 10000 OCT 165436376025 00121 132206665450 10000 OCT 132206665450 00122 165450152346 10000 OCT 165450152346 00123 132202576772 10000 OCT 132202576772 00124 165462330032 10000 OCT 165462330032 00125 132252442207 10000 OCT 132252442207 00126 165475130712 10000 OCT 165475130712 00127 132324366433 10000 OCT 132324366433 00130 165510400510 10000 OCT 165510400510 00131 132400510401 10000 OCT 132400510401 00132 165524344571 10000 OCT 165524344571 00133 132535602774 10000 OCT 132535602774 00134 165541034473 10000 OCT 165541034473 00135 132643462405 10000 OCT 132643462405 00136 165556301730 10000 OCT 165556301730 00137 132511126164 10000 OCT 132511126164 00140 165574360610 10000 OCT 165574360610 00141 132270224476 10000 OCT 132270224476 00142 165613310006 10000 OCT 165613310006 00143 132133100061 10000 OCT 132133100061 00144 165633151471 10000 OCT 165633151471 00145 132500031547 10000 OCT 132500031547 00146 165653772770 10000 OCT 165653772770 00147 132036057513 10000 OCT 132036057513 10/21/21 PAGE 8 BLOCDA ASSEMBLY LISTING 00150 165675645342 10000 OCT 165675645342 00151 132312006756 10000 OCT 132312006756 00152 165720626543 10000 OCT 165720626543 00153 132667300350 10000 OCT 132667300350 00154 400154002154 00001 ORG C+108 00154 165745001327 10000 OCT 165745001327 00155 132402103203 10000 OCT 132402103203 00156 165772435733 10000 OCT 165772435733 00157 132311254513 10000 OCT 132311254513 00160 166410625354 10000 OCT 166410625354 00161 133672545704 10000 OCT 133672545704 00162 166425067150 10000 OCT 166425067150 00163 133776725622 10000 OCT 133776725622 00164 166442233267 10000 OCT 166442233267 00165 133110004422 10000 OCT 133110004422 00166 166460355671 10000 OCT 166460355671 00167 133651134130 10000 OCT 133651134130 00170 166477540117 10000 OCT 166477540117 00171 133730023766 10000 OCT 133730023766 00172 166520052005 10000 OCT 166520052005 00173 133200520052 10000 OCT 133200520052 00174 166541612423 10000 OCT 166541612423 00175 133000541613 10000 OCT 133000541613 00176 166564711301 10000 OCT 166564711301 00177 133000564711 10000 OCT 133000564711 00200 166611470075 10000 OCT 166611470075 00201 133400611470 10000 OCT 133400611470 00202 166640064006 10000 OCT 166640064006 00203 133400640064 10000 OCT 133400640064 00204 166670450006 10000 OCT 166670450006 00205 133704500067 10000 OCT 133704500067 00206 166723217222 10000 OCT 166723217222 00207 133740035151 10000 OCT 133740035151 00210 166760370174 10000 OCT 166760370174 00211 133076037020 10000 OCT 133076037020 00212 167410204102 10000 OCT 167410204102 00213 134041020411 10000 OCT 134041020411 00214 167431700106 10000 OCT 167431700106 00215 134360021474 10000 OCT 134360021474 00216 167455241200 10000 OCT 167455241200 00217 134226520500 10000 OCT 134226520500 00220 400220002220 00001 ORG C+144 00220 167502654611 10000 OCT 167502654611 00221 134352437416 10000 OCT 134352437416 00222 167532600532 10000 OCT 167532600532 00223 134600532601 10000 OCT 134600532601 00224 167565331260 10000 OCT 167565331260 00225 134400565331 10000 OCT 134400565331 00226 167623230637 10000 OCT 167623230637 00227 134715454714 10000 OCT 134715454714 00230 167664720155 10000 OCT 167664720155 00231 134164033235 10000 OCT 134164033235 00232 167732714035 10000 OCT 167732714035 00233 134534601666 10000 OCT 134534601666 00234 170403022155 10000 OCT 170403022155 00235 135217536065 10000 OCT 135217536065 10/21/21 PAGE 9 BLOCDA ASSEMBLY LISTING 00236 170433551220 10000 OCT 170433551220 00237 135043355122 10000 OCT 135043355122 00240 170470047004 10000 OCT 170470047004 00241 135700470047 10000 OCT 135700470047 00242 170530732214 10000 OCT 170530732214 00243 135100530732 10000 OCT 135100530732 00244 170577200577 10000 OCT 170577200577 00245 135200577201 10000 OCT 135200577201 00246 170654256006 10000 OCT 170654256006 00247 135542560065 10000 OCT 135542560065 00250 170741703607 10000 OCT 170741703607 00251 135417036074 10000 OCT 135417036074 00252 171421042104 10000 OCT 171421042104 00253 136210421042 10000 OCT 136210421042 00254 171470047004 10000 OCT 171470047004 00255 136700470047 10000 OCT 136700470047 00256 171550055005 10000 OCT 171550055005 00257 136500550055 10000 OCT 136500550055 00260 171644064406 10000 OCT 171644064406 00261 136440644065 10000 OCT 136440644065 00262 171760370174 10000 OCT 171760370174 00263 136076037020 10000 OCT 136076037020 00264 172451710112 10000 OCT 172451710112 00265 137362022474 10000 OCT 137362022474 00266 172554055405 10000 OCT 172554055405 00267 137540554055 10000 OCT 137540554055 00270 172707070707 10000 OCT 172707070707 00271 137070707071 10000 OCT 137070707071 00272 173444444444 10000 OCT 173444444444 00273 140444444444 10000 OCT 140444444444 00274 173606060606 10000 OCT 173606060606 00275 140060606061 10000 OCT 140060606061 00276 174421042104 10000 OCT 174421042104 00277 141210421042 10000 OCT 141210421042 00300 174631463146 10000 OCT 174631463146 00301 141314631463 10000 OCT 141314631463 00302 175525252525 10000 OCT 175525252525 00303 142252525253 10000 OCT 142252525253 00304 176525252525 10000 OCT 176525252525 00305 143252525253 10000 OCT 143252525253 00306 200400000000 10000 OCT 200400000000 00307 145000000000 10000 OCT 145000000000 10/21/21 PAGE 10 BLOCDA ASSEMBLY LISTING $CDICT BLOCDA 10/21/21 BLOC0013 000310000000 PREFACE START=0,LENGTH=200,TYPE=7094,CMPLX=5 000004000005 224346232421 BLOCDA DECK LOC=0,LENGTH=200 000310000000 226321234645 BTACON REAL LOC=0,LENGTH=200 000310000000 000000000000 EVEN LOC=0 100000000000 $DDICT BLOCDA 10/21/21 BLOC0015 $DKEND BLOCDA 10/21/21 BLOC0017 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00310. 10/21/21 PAGE 11 MAIN STORAGE MAP MAIN PROGRAM COMMON VARIABLES COMMON BLOCK BTACON ORIGIN 00001 LENGTH 00144 SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE C 00000 R DIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE F 00145 D UNDIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE INDX 00155 I XBETA 00157 D OVERA 00161 D ENTRY POINTS ...... SECTION 5 SUBROUTINES CALLED .FWRD. SECTION 6 ALCSBT SECTION 7 .UN06. SECTION 8 .FFIL. SECTION 9 .FCNV. SECTION 10 SYSLOC SECTION 11 EFN IFN CORRESPONDENCE EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 101 FORMAT 00224 80 FORMAT 00207 90 FORMAT 00213 200 11A 00314 100 FORMAT 00217 300 23A 00375 400 35A 00460 500 47A 00541 10/21/21 PAGE 12 MAIN ASSEMBLY LISTING $IBLDR MAIN 10/21/21 MAIN0000 $TEXT MAIN 10/21/21 MAIN0001 00000 002000005000 10011 TRA ...... 00001 300000000003 00001 EVEN 3 00163 100000000163 00001 ORG 115 00163 200500000000 10000 C.0 OCT 200500000000 00164 145000000000 10000 OCT 145000000000 00165 200761366156 10000 C.2 OCT 200761366156 00166 145275310137 10000 OCT 145275310137 00167 200714631463 10000 C.4 OCT 200714631463 00170 145146314632 10000 OCT 145146314632 00171 201500000000 10000 C.6 OCT 201500000000 00172 146000000000 10000 OCT 146000000000 00173 200546314631 10000 C.8 OCT 200546314631 00174 145463146315 10000 OCT 145463146315 00175 174631463146 10000 C.10 OCT 174631463146 00176 141314631463 10000 OCT 141314631463 00177 201400000000 10000 C.12 OCT 201400000000 00200 146000000000 10000 OCT 146000000000 00201 000000000001 10000 C.14 OCT 000000000001 00202 000000000000 10000 C.15 OCT 000000000000 00203 000000000000 10000 C.16 OCT 000000000000 00204 000000000001 10000 C.17 OCT 000000000001 00205 000000000000 10000 RD. OCT 000000000000 00206 000000000000 10000 OCT 000000000000 00207 740102306060 10000 80. BCI 1,(12H 00210 606060466525 10000 BCI 1, OVE 00211 512160137324 10000 BCI 1,RA =,D 00212 020733020034 10000 BCI 1,27.20) 00213 740102306060 10000 90. BCI 1,(12H 00214 606060672225 10000 BCI 1, XBE 00215 632160137324 10000 BCI 1,TA =,D 00216 020733020034 10000 BCI 1,27.20) 00217 740567730130 10000 100. BCI 1,(5X,1H 00220 267331017301 10000 BCI 1,F,I1,1 00221 301373046773 10000 BCI 1,H=,4X, 00222 240207330200 10000 BCI 1,D27.20 00223 346060606060 10000 BCI 1,) 00224 740400305454 10000 101. BCI 1,(40H** 00225 545454545454 10000 BCI 1,****** 00226 545454545454 10000 BCI 1,****** 00227 545454545454 10000 BCI 1,****** 00230 545454545454 10000 BCI 1,****** 00231 545454545454 10000 BCI 1,****** 00232 545454545454 10000 BCI 1,****** 00233 545434606060 10000 BCI 1,**) 00234 044300000163 10001 1A DLD C.0 00235 460300000157 10001 DST XBETA 00236 044300000165 10001 DLD C.2 00237 076000000002 10000 CHS 00240 076500000000 10000 LRS 0 00241 460300000161 10001 DST OVERA 00242 007400406000 10011 2A TSX .FWRD.,4 10/21/21 PAGE 13 MAIN ASSEMBLY LISTING 00243 100002000247 10001 TXI *+4,,2 00244 000545000002 10100 PZE 2,,LK.DR 00245 000000010000 10011 PZE .UN06. 00246 000000000224 10001 PZE 101. 00247 007400411000 10011 TSX .FFIL.,4 00250 007400406000 10011 3A TSX .FWRD.,4 00251 100002000255 10001 TXI *+4,,2 00252 000545000003 10100 PZE 3,,LK.DR 00253 000000010000 10011 PZE .UN06. 00254 000000000207 10001 PZE 80. 00255 044300000157 10001 DLD XBETA 00256 007400412000 10011 TSX .FCNV.,4 00257 007400411000 10011 TSX .FFIL.,4 00260 007400406000 10011 4A TSX .FWRD.,4 00261 100002000265 10001 TXI *+4,,2 00262 000545000004 10100 PZE 4,,LK.DR 00263 000000010000 10011 PZE .UN06. 00264 000000000213 10001 PZE 90. 00265 044300000161 10001 DLD OVERA 00266 007400412000 10011 TSX .FCNV.,4 00267 007400411000 10011 TSX .FFIL.,4 00270 007400407000 10011 5A TSX ALCSBT,4 00271 100003000276 10001 TXI *+5,,3 00272 000545000005 10100 PZE 5,,LK.DR 00273 000000000157 10001 PZE XBETA 00274 000000000161 10001 PZE OVERA 00275 000000000145 10001 PZE F 00276 6A NULL 00276 7A NULL 00276 8A NULL 00276 477400100001 10000 9A AXC 1,1 00277 477400200002 10000 AXC 2,2 00300 060000000155 10001 STZ INDX 00301 063600100155 10001 SCA INDX,1 00302 007400406000 10011 TSX .FWRD.,4 00303 100002000307 10001 TXI *+4,,2 00304 000545000011 10100 PZE 9,,LK.DR 00305 000000010000 10011 PZE .UN06. 00306 000000000217 10001 PZE 100. 00307 050000000155 10001 CLA INDX 00310 007400412000 10011 TSX .FCNV.,4 00311 044300200000 10011 10A DLD F-2,2 100002700145 10001 00312 007400412000 10011 TSX .FCNV.,4 00313 007400411000 10011 TSX .FFIL.,4 00314 11A NULL 00314 177777100315 10001 12A TXI *+1,1,-1 00315 177776200316 10001 TXI *+1,2,-2 00316 377773100301 10001 TXH 9A+3,1,-5 00317 044300000167 10001 13A DLD C.4 00320 460300000157 10001 DST XBETA 00321 044300000171 10001 DLD C.6 00322 460300000161 10001 DST OVERA 00323 007400406000 10011 14A TSX .FWRD.,4 00324 100002000330 10001 TXI *+4,,2 00325 000545000016 10100 PZE 14,,LK.DR 10/21/21 PAGE 14 MAIN ASSEMBLY LISTING 00326 000000010000 10011 PZE .UN06. 00327 000000000224 10001 PZE 101. 00330 007400411000 10011 TSX .FFIL.,4 00331 007400406000 10011 15A TSX .FWRD.,4 00332 100002000336 10001 TXI *+4,,2 00333 000545000017 10100 PZE 15,,LK.DR 00334 000000010000 10011 PZE .UN06. 00335 000000000207 10001 PZE 80. 00336 044300000157 10001 DLD XBETA 00337 007400412000 10011 TSX .FCNV.,4 00340 007400411000 10011 TSX .FFIL.,4 00341 007400406000 10011 16A TSX .FWRD.,4 00342 100002000346 10001 TXI *+4,,2 00343 000545000020 10100 PZE 16,,LK.DR 00344 000000010000 10011 PZE .UN06. 00345 000000000213 10001 PZE 90. 00346 044300000161 10001 DLD OVERA 00347 007400412000 10011 TSX .FCNV.,4 00350 007400411000 10011 TSX .FFIL.,4 00351 007400407000 10011 17A TSX ALCSBT,4 00352 100003000357 10001 TXI *+5,,3 00353 000545000021 10100 PZE 17,,LK.DR 00354 000000000157 10001 PZE XBETA 00355 000000000161 10001 PZE OVERA 00356 000000000145 10001 PZE F 00357 18A NULL 00357 19A NULL 00357 20A NULL 00357 477400100001 10000 21A AXC 1,1 00360 477400200002 10000 AXC 2,2 00361 060000000155 10001 STZ INDX 00362 063600100155 10001 SCA INDX,1 00363 007400406000 10011 TSX .FWRD.,4 00364 100002000370 10001 TXI *+4,,2 00365 000545000025 10100 PZE 21,,LK.DR 00366 000000010000 10011 PZE .UN06. 00367 000000000217 10001 PZE 100. 00370 050000000155 10001 CLA INDX 00371 007400412000 10011 TSX .FCNV.,4 00372 044300200000 10011 22A DLD F-2,2 100002700145 10001 00373 007400412000 10011 TSX .FCNV.,4 00374 007400411000 10011 TSX .FFIL.,4 00375 23A NULL 00375 177777100376 10001 24A TXI *+1,1,-1 00376 177776200377 10001 TXI *+1,2,-2 00377 377773100362 10001 TXH 21A+3,1,-5 00400 044300000173 10001 25A DLD C.8 00401 460300000157 10001 DST XBETA 00402 044300000175 10001 DLD C.10 00403 076000000002 10000 CHS 00404 076500000000 10000 LRS 0 00405 460300000161 10001 DST OVERA 00406 007400406000 10011 26A TSX .FWRD.,4 00407 100002000413 10001 TXI *+4,,2 00410 000545000032 10100 PZE 26,,LK.DR 10/21/21 PAGE 15 MAIN ASSEMBLY LISTING 00411 000000010000 10011 PZE .UN06. 00412 000000000224 10001 PZE 101. 00413 007400411000 10011 TSX .FFIL.,4 00414 007400406000 10011 27A TSX .FWRD.,4 00415 100002000421 10001 TXI *+4,,2 00416 000545000033 10100 PZE 27,,LK.DR 00417 000000010000 10011 PZE .UN06. 00420 000000000207 10001 PZE 80. 00421 044300000157 10001 DLD XBETA 00422 007400412000 10011 TSX .FCNV.,4 00423 007400411000 10011 TSX .FFIL.,4 00424 007400406000 10011 28A TSX .FWRD.,4 00425 100002000431 10001 TXI *+4,,2 00426 000545000034 10100 PZE 28,,LK.DR 00427 000000010000 10011 PZE .UN06. 00430 000000000213 10001 PZE 90. 00431 044300000161 10001 DLD OVERA 00432 007400412000 10011 TSX .FCNV.,4 00433 007400411000 10011 TSX .FFIL.,4 00434 007400407000 10011 29A TSX ALCSBT,4 00435 100003000442 10001 TXI *+5,,3 00436 000545000035 10100 PZE 29,,LK.DR 00437 000000000157 10001 PZE XBETA 00440 000000000161 10001 PZE OVERA 00441 000000000145 10001 PZE F 00442 30A NULL 00442 31A NULL 00442 32A NULL 00442 477400100001 10000 33A AXC 1,1 00443 477400200002 10000 AXC 2,2 00444 060000000155 10001 STZ INDX 00445 063600100155 10001 SCA INDX,1 00446 007400406000 10011 TSX .FWRD.,4 00447 100002000453 10001 TXI *+4,,2 00450 000545000041 10100 PZE 33,,LK.DR 00451 000000010000 10011 PZE .UN06. 00452 000000000217 10001 PZE 100. 00453 050000000155 10001 CLA INDX 00454 007400412000 10011 TSX .FCNV.,4 00455 044300200000 10011 34A DLD F-2,2 100002700145 10001 00456 007400412000 10011 TSX .FCNV.,4 00457 007400411000 10011 TSX .FFIL.,4 00460 35A NULL 00460 177777100461 10001 36A TXI *+1,1,-1 00461 177776200462 10001 TXI *+1,2,-2 00462 377773100445 10001 TXH 33A+3,1,-5 00463 044300000177 10001 37A DLD C.12 00464 460300000157 10001 DST XBETA 00465 044300000177 10001 DLD C.12 00466 460300000161 10001 DST OVERA 00467 007400406000 10011 38A TSX .FWRD.,4 00470 100002000474 10001 TXI *+4,,2 00471 000545000046 10100 PZE 38,,LK.DR 00472 000000010000 10011 PZE .UN06. 00473 000000000224 10001 PZE 101. 10/21/21 PAGE 16 MAIN ASSEMBLY LISTING 00474 007400411000 10011 TSX .FFIL.,4 00475 007400406000 10011 39A TSX .FWRD.,4 00476 100002000502 10001 TXI *+4,,2 00477 000545000047 10100 PZE 39,,LK.DR 00500 000000010000 10011 PZE .UN06. 00501 000000000207 10001 PZE 80. 00502 044300000161 10001 DLD OVERA 00503 007400412000 10011 TSX .FCNV.,4 00504 007400411000 10011 TSX .FFIL.,4 00505 007400406000 10011 40A TSX .FWRD.,4 00506 100002000512 10001 TXI *+4,,2 00507 000545000050 10100 PZE 40,,LK.DR 00510 000000010000 10011 PZE .UN06. 00511 000000000213 10001 PZE 90. 00512 044300000157 10001 DLD XBETA 00513 007400412000 10011 TSX .FCNV.,4 00514 007400411000 10011 TSX .FFIL.,4 00515 007400407000 10011 41A TSX ALCSBT,4 00516 100003000523 10001 TXI *+5,,3 00517 000545000051 10100 PZE 41,,LK.DR 00520 000000000157 10001 PZE XBETA 00521 000000000161 10001 PZE OVERA 00522 000000000145 10001 PZE F 00523 42A NULL 00523 43A NULL 00523 44A NULL 00523 477400100001 10000 45A AXC 1,1 00524 477400200002 10000 AXC 2,2 00525 060000000155 10001 STZ INDX 00526 063600100155 10001 SCA INDX,1 00527 007400406000 10011 TSX .FWRD.,4 00530 100002000534 10001 TXI *+4,,2 00531 000545000055 10100 PZE 45,,LK.DR 00532 000000010000 10011 PZE .UN06. 00533 000000000217 10001 PZE 100. 00534 050000000155 10001 CLA INDX 00535 007400412000 10011 TSX .FCNV.,4 00536 044300200000 10011 46A DLD F-2,2 100002700145 10001 00537 007400412000 10011 TSX .FCNV.,4 00540 007400411000 10011 TSX .FFIL.,4 00541 47A NULL 00541 177777100542 10001 48A TXI *+1,1,-1 00542 177776200543 10001 TXI *+1,2,-2 00543 377773100526 10001 TXH 45A+3,1,-5 00544 002000005001 10011 49A TRA ......+1 00545 000000000000 10000 LK.DR PZE ** 00546 442131456060 10000 BCI 1,MAIN 00547 100000000556 10001 ...... TXI *+7,,** 00550 077400200000 10000 AXT **,2 00551 077400100000 10000 AXT **,1 00552 077400400000 10000 AXT **,4 00553 044100000555 10001 LDI *+2 00554 002000400001 10000 TRA 1,4 00555 000000000000 10000 PZE ** 00556 060400000555 10001 STI *-1 10/21/21 PAGE 17 MAIN ASSEMBLY LISTING 00557 063400413000 10011 SXA SYSLOC,4 00560 063400400545 10001 SXA LK.DR,4 00561 063400400552 10001 SXA *-7,4 00562 063400100551 10001 SXA *-9,1 00563 063400200550 10001 SXA *-11,2 00564 002000000234 10001 TRA 1A 10/21/21 PAGE 18 MAIN ASSEMBLY LISTING $CDICT MAIN 10/21/21 MAIN0018 000565000547 PREFACE START=359,LENGTH=373,TYPE=7094,CMPLX=5 000004000005 442131456060 MAIN DECK LOC=0,LENGTH=373 000565000000 226321234645 BTACON REAL LOC=1,LENGTH=100 000144000001 000000000000 EVEN LOC=1 100000000001 000000000000 EVEN LOC=101 100000000145 333333333333 ...... REAL LOC=359,LENGTH=0 000000000547 332666512433 .FWRD. VIRTUAL SECT. 6,CALL 200000100000 214323622263 ALCSBT VIRTUAL SECT. 7,CALL 200000100000 336445000633 .UN06. VIRTUAL SECT. 8 200000000000 332626314333 .FFIL. VIRTUAL SECT. 9 200000000000 332623456533 .FCNV. VIRTUAL SECT. 10 200000000000 627062434623 SYSLOC VIRTUAL SECT. 11 200000000000 $DDICT MAIN 10/21/21 MAIN0021 $DKEND MAIN 10/21/21 MAIN0028 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00565. 10/21/21 PAGE 19 $ENTRY MAIN $IBFTC R1 FULIST,DD,NODECK,M94 10/21/21 PAGE 20 R1 - EFN SOURCE STATEMENT - IFN(S) - SUBROUTINE ALCSBT(XBETA,OVERA,F) C THIS ROUTINE TAKES BETA AND THE RECIPROCAL OF THE SEMI- C MAJOR AXIS AND COMPUTES THE G SERIES (POWERS OF BETA C TIMES THE H SERIES OF HERRICKS PARAMETER). DIMENSION F(4) DOUBLE PRECISION THETA2, F, C, TH2, TWOPI2, ONE, THETA, DSQRT, TH,FCOM0040 1 TWOPI DOUBLE PRECISION XBETA,OVERA,BETA2,BETA COMMON/BTACON/C(100) EQUIVALENCE ( TH2, L) DATA ONE, LA, LB / 1.0D0, O001000000000, O173/ FCOM0080 DATA TWOPI,TWOPI2 / 6.2831853071795865D0, 39.478417604357434D01 / FCOM0090 ASSIGN 200 TO LITTLE FCOM0650 BETA = XBETA BETA2 = BETA * BETA THETA2 = BETA2 * OVERA TH2 = THETA2 FCOM0660 IF ( TH2 ) 5, 10, 10 FCOM0670 5 IF ( TWOPI2 + TH2 ) 6, 10, 10 FCOM0680 6 ASSIGN 100 TO LITTLE FCOM0690 THETA = DSQRT ( - THETA2 ) FCOM0700 7 TH = DMOD ( THETA, TWOPI ) FCOM0710 8 IF ( TH .EQ. 0.0D0 ) TH = TWOPI FCOM0720 TH2 = - TH * TH FCOM0730 10 MGO = IABS(L) / LA - LB FCOM0740 IF ( MGO .LT. 1 ) MGO = 1 FCOM0750 IF ( MGO .GT. 18 ) MGO = 18 FCOM0760 DO 30 M = 1, 2 FCOM0770 F(2) = 0. FCOM0780 GO TO (29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12),MGO FCOM0790 12 F(2) =((((F(2)+ONE)*TH2*C(M)+ONE)*TH2*C(M+2)+ONE)*TH2*C(M+4)+ONE)*FCOM0800 1 TH2*C(M+6) FCOM0810 13 F(2) = ((((((((F(2)+ONE)*TH2*C(M+8)+ONE)*TH2*C(M+10)+ONE)*TH2* FCOM0820 1 C(M+12)+ONE)*TH2*C(M+14)+ONE)*TH2*C(M+16)+ONE)*TH2*C(M+18)+ONE)* FCOM0830 2 TH2 * C(M+20) + ONE ) * TH2 * C(M+22) FCOM0840 14 F(2) = ((((((((F(2)+ONE)*TH2*C(M+24)+ONE)*TH2*C(M+26)+ONE)*TH2* FCOM0850 1 C(M+28)+ONE)*TH2*C(M+30)+ONE)*TH2*C(M+32)+ONE)*TH2*C(M+34)+ONE)* FCOM0860 2 TH2 * C(M+36) + ONE ) * TH2 * C(M+38) FCOM0870 15 F(2) =(((((F(2)+ONE)*TH2*C(M+40)+ONE)*TH2*C(M+42)+ONE)*TH2*C(M+44)FCOM0880 1 + ONE ) * TH2 * C(M+46) + ONE ) * TH2 * C(M+48 ) FCOM0890 16 F(2) = ((((F(2)+ONE)*TH2*C(M+50)+ONE)*TH2*C(M+52)+ONE)*TH2*C(M+54)FCOM0900 1 + ONE ) * TH2 * C(M+56) FCOM0910 17 F(2) = (((F(2)+ONE)*TH2*C(M+58)+ONE)*TH2*C(M+60)+ONE)*TH2*C(M+62) FCOM0920 18 F(2) = (((F(2)+ONE)*TH2*C(M+64)+ONE)*TH2*C(M+66)+ONE)*TH2*C(M+68) FCOM0930 19 F(2) =(( F(2) + ONE ) * TH2 * C(M+70) + ONE) * TH2 * C(M+72) FCOM0940 20 F(2) =(( F(2) + ONE ) * TH2 * C(M+74) + ONE) * TH2 * C(M+76) FCOM0950 21 F(2) = ( F(2) + ONE ) * TH2 * C(M+78) FCOM0960 22 F(2) = ( F(2) + ONE ) * TH2 * C(M+80) FCOM0970 23 F(2) = ( F(2) + ONE ) * TH2 * C(M+82) FCOM0980 24 F(2) = ( F(2) + ONE ) * TH2 * C(M+84) FCOM0990 25 CONTINUE FCOM1000 26 F(2) = ( F(2) + ONE ) * TH2 * C(M+86) FCOM1010 27 CONTINUE FCOM1020 28 F(2) = ( F(2) + ONE ) * TH2 * C(M+88) FCOM1030 29 F(M) = (((((F(2)+ONE)*TH2*C(M+90)+ONE)*TH2*C(M+92)+ONE)*TH2* FCOM1040 10/21/21 PAGE 21 R1 - EFN SOURCE STATEMENT - IFN(S) - 1 C(M+94)+ONE)*TH2*C(M+96)+ONE)*C(M+98) FCOM1050 30 F(M+2) = F(M) * TH2 + ONE FCOM1060 GO TO LITTLE, (100,200) 100 F(1) = (F(1)*TH*TH2 + TH - THETA)/THETA/THETA2 FCOM1080 F(2) = F(2)*TH2 / THETA2 FCOM1090 F(3) = F(3)*TH / THETA 200 F(1) = F(1) * BETA2 * BETA F(2) = F(2) * BETA2 F(3) = F(3) * BETA C THIS IS TEST CODE ADDED BY M.HUME IN 2021 FOR TESTING HUME001C 900 FORMAT(5X,4HMGO=,7X,I4) HUME002C 901 FORMAT(5X,2HL=,I20) HUME003C 902 FORMAT(5X,4HTH2=,3X,D27.20) HUME004C 903 FORMAT(5X,4HONE=,3X,D27.20) HUME005C 904 FORMAT(5X,4H2PI=,3X,D27.20) HUME006C 905 FORMAT(5X,5H2PI2=,2X,D27.20) HUME007C WRITE(6,900) MGO HUME008C 99 WRITE(6,901) L HUME009C 100 WRITE(6,902) TH2 HUME010C 101 WRITE(6,903) ONE HUME011C 102 WRITE(6,904) TWOPI HUME011C 103 WRITE(6,905) TWOPI2 HUME012C C HUME013C 104 RETURN FCOM1110 END FCOM1120 10/21/21 PAGE 22 R1 STORAGE MAP SUBROUTINE ALCSBT COMMON VARIABLES COMMON BLOCK BTACON ORIGIN 00001 LENGTH 00310 SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE C 00000 D UNDIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE THETA2 00313 D TH2 00311 D TWOPI2 00315 D ONE 00317 D THETA 00321 D TH 00323 D TWOPI 00325 D BETA2 00327 D BETA 00331 D L 00311 I LITTLE 00333 I MGO 00334 I LA 00335 I LB 00336 I M 00337 I ENTRY POINTS ALCSBT SECTION 5 SUBROUTINES CALLED DSQRT SECTION 6 DMOD SECTION 7 .FWRD. SECTION 8 .FXEM. SECTION 9 .UN06. SECTION 10 .FFIL. SECTION 11 .FCNV. SECTION 12 SYSLOC SECTION 13 EFN IFN CORRESPONDENCE EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 200 98A 01060 5 4A 00421 10 11A 00461 6 6A 00425 100 97A 01040 30 90A 01030 29 83A 01010 28 81A 01003 27 80A 01003 26 78A 00776 25 77A 00776 24 75A 00771 23 73A 00764 22 71A 00757 21 69A 00752 20 66A 00742 19 63A 00732 18 59A 00717 17 55A 00704 16 50A 00666 15 44A 00645 14 35A 00613 13 26A 00561 12 21A 00543 900 FORMAT 00353 901 FORMAT 00356 902 FORMAT 00361 903 FORMAT 00365 904 FORMAT 00371 905 FORMAT 00375 10/21/21 PAGE 23 R1 ASSEMBLY LISTING $IBLDR R1 10/21/21 R1 0000 $TEXT R1 10/21/21 R1 0001 00000 002000005000 10011 TRA ALCSBT 00001 300000000003 00001 EVEN 3 00317 100000000317 00001 ORG ONE 00317 201400000000 10000 OCT 201400000000 00320 146000000000 10000 OCT 146000000000 00335 100000000335 00001 ORG LA 00335 001000000000 10000 OCT 001000000000 00336 100000000336 00001 ORG LB 00336 000000000173 10000 OCT 000000000173 00325 100000000325 00001 ORG TWOPI 00325 203622077325 10000 OCT 203622077325 00326 150042055061 10000 OCT 150042055061 00315 100000000315 00001 ORG TWOPI2 00315 211612621377 10000 OCT 211612621377 00316 156026727254 10000 OCT 156026727254 00340 100000000340 00001 ORG 224 00340 000000000001 10000 C.0 OCT 000000000001 00341 000000000000 10000 C.1 OCT 000000000000 00342 000000000001 10000 C.2 OCT 000000000001 00343 000000000022 10000 C.3 OCT 000000000022 00344 000000000067 10000 C.4 OCT 000000000067 00345 000000000000 10000 C.5 OCT 000000000000 00346 000000000000 10000 OCT 000000000000 00347 200000000002 00001 XX.1 BSS 2 00351 000000000000 10000 RD. OCT 000000000000 00352 000000000000 10000 OCT 000000000000 00353 740567730430 10000 900. BCI 1,(5X,4H 00354 442746137307 10000 BCI 1,MGO=,7 00355 677331043460 10000 BCI 1,X,I4) 00356 740567730230 10000 901. BCI 1,(5X,2H 00357 431373310200 10000 BCI 1,L=,I20 00360 346060606060 10000 BCI 1,) 00361 740567730430 10000 902. BCI 1,(5X,4H 00362 633002137303 10000 BCI 1,TH2=,3 00363 677324020733 10000 BCI 1,X,D27. 00364 020034606060 10000 BCI 1,20) 00365 740567730430 10000 903. BCI 1,(5X,4H 00366 464525137303 10000 BCI 1,ONE=,3 00367 677324020733 10000 BCI 1,X,D27. 00370 020034606060 10000 BCI 1,20) 00371 740567730430 10000 904. BCI 1,(5X,4H 00372 024731137303 10000 BCI 1,2PI=,3 00373 677324020733 10000 BCI 1,X,D27. 00374 020034606060 10000 BCI 1,20) 00375 740567730530 10000 905. BCI 1,(5X,5H 00376 024731021373 10000 BCI 1,2PI2=, 00377 026773240207 10000 BCI 1,2X,D27 00400 330200346060 10000 BCI 1,.20) 00401 1A NULL 00401 077400401060 10001 2A AXT 98A,4 00402 075400400000 10000 PXA 0,4 10/21/21 PAGE 24 R1 ASSEMBLY LISTING 00403 060100000333 10001 STO LITTLE 00404 044300000000 10000 260J DLD ** 00405 460300000331 10001 DST BETA 00406 044300000331 10001 DLD BETA 00407 026100000331 10001 DFMP BETA 00410 460300000327 10001 DST BETA2 00411 044300000000 10000 265J DLD ** 00412 026100000327 10001 DFMP BETA2 00413 460300000313 10001 DST THETA2 00414 044300000313 10001 DLD THETA2 00415 460300000311 10001 DST TH2 00416 044300000311 10001 DLD TH2 00417 010000000461 10001 3A TZE 11A 00420 012000000461 10001 TPL 11A 00421 044300000311 10001 4A DLD TH2 00422 030100000315 10001 DFAD TWOPI2 00423 010000000461 10001 5A TZE 11A 00424 012000000461 10001 TPL 11A 00425 077400401040 10001 6A AXT 97A,4 00426 075400400000 10000 PXA 0,4 00427 060100000333 10001 STO LITTLE 00430 044300000313 10001 DLD THETA2 00431 076000000002 10000 CHS 00432 076500000000 10000 LRS 0 00433 460300000347 10001 DST XX.1 00434 007400406000 10011 7A TSX DSQRT,4 00435 100001000440 10001 TXI *+3,,1 00436 001160000007 10100 PZE 7,,LK.DR 00437 000000000347 10001 PZE XX.1 00440 460300000321 10001 DST THETA 00441 007400407000 10011 8A TSX DMOD,4 00442 100002000446 10001 TXI *+4,,2 00443 001160000010 10100 PZE 8,,LK.DR 00444 000000000321 10001 PZE THETA 00445 000000000325 10001 PZE TWOPI 00446 460300000323 10001 DST TH 00447 044300000323 10001 DLD TH 00450 030300000345 10001 DFSB C.5 00451 410000000454 10001 TNZ 10A 00452 044300000325 10001 9A DLD TWOPI 00453 460300000323 10001 DST TH 00454 044300000323 10001 10A DLD TH 00455 026100000323 10001 DFMP TH 00456 076000000002 10000 CHS 00457 076500000000 10000 LRS 0 00460 460300000311 10001 DST TH2 00461 050000000311 10001 11A CLA L 00462 076000000003 10000 SSP 00463 013100000000 10000 XCA 00464 475400000000 10000 ZAC 00465 076300000000 10000 LLS 0 00466 022100000335 10001 DVP LA 00467 013100000000 10000 XCA 00470 040200000336 10001 SUB LB 00471 060100000334 10001 STO MGO 00472 050000000334 10001 12A CLA MGO 10/21/21 PAGE 25 R1 ASSEMBLY LISTING 00473 040200000342 10001 SUB C.2 00474 010000000500 10001 TZE 14A 00475 012000000500 10001 TPL 14A 00476 050000000342 10001 13A CLA C.2 00477 060100000334 10001 STO MGO 00500 050000000334 10001 14A CLA MGO 00501 040200000343 10001 SUB C.3 00502 010000000506 10001 TZE 16A 00503 412000000506 10001 TMI 16A 00504 050000000343 10001 15A CLA C.3 00505 060100000334 10001 STO MGO 00506 16A NULL 00506 17A NULL 00506 18A NULL 00506 477400100001 10000 19A AXC 1,1 00507 477400200002 10000 AXC 2,2 00510 060000000337 10001 STZ M 00511 063600100337 10001 SCA M,1 00512 044300000345 10001 DLD C.5 00513 460300000000 10000 331J DST ** 00514 077400400024 10000 20A AXT 20,4 00515 075400400000 10000 PXA 0,4 00516 053500400334 10001 LAC MGO,4 00517 777755401153 10001 TXL 105A,4,-19 00520 052200400520 10001 XEC *,4 00521 002000001010 10001 TRA 83A 00522 002000001003 10001 TRA 81A 00523 002000001003 10001 TRA 80A 00524 002000000776 10001 TRA 78A 00525 002000000776 10001 TRA 77A 00526 002000000771 10001 TRA 75A 00527 002000000764 10001 TRA 73A 00530 002000000757 10001 TRA 71A 00531 002000000752 10001 TRA 69A 00532 002000000742 10001 TRA 66A 00533 002000000732 10001 TRA 63A 00534 002000000717 10001 TRA 59A 00535 002000000704 10001 TRA 55A 00536 002000000666 10001 TRA 50A 00537 002000000645 10001 TRA 44A 00540 002000000613 10001 TRA 35A 00541 002000000561 10001 TRA 26A 00542 002000000543 10001 TRA 21A 00543 044300000000 10000 21A DLD ** 00544 030100000317 10001 DFAD ONE 00545 026100000311 10001 DFMP TH2 00546 026100242002 10011 22A DFMP C-2,2 00547 030100000317 10001 DFAD ONE 00550 026100000311 10001 DFMP TH2 00551 026100202002 10011 23A DFMP C+2,2 00552 030100000317 10001 DFAD ONE 00553 026100000311 10001 DFMP TH2 00554 026100202006 10011 24A DFMP C+6,2 00555 030100000317 10001 DFAD ONE 00556 026100000311 10001 DFMP TH2 00557 026100202012 10011 25A DFMP C+10,2 10/21/21 PAGE 26 R1 ASSEMBLY LISTING 00560 460300000000 10000 368J DST ** 00561 044300000000 10000 26A DLD ** 00562 030100000317 10001 DFAD ONE 00563 026100000311 10001 DFMP TH2 00564 026100202016 10011 27A DFMP C+14,2 00565 030100000317 10001 DFAD ONE 00566 026100000311 10001 DFMP TH2 00567 026100202022 10011 28A DFMP C+18,2 00570 030100000317 10001 DFAD ONE 00571 026100000311 10001 DFMP TH2 00572 026100202026 10011 29A DFMP C+22,2 00573 030100000317 10001 DFAD ONE 00574 026100000311 10001 DFMP TH2 00575 026100202032 10011 30A DFMP C+26,2 00576 030100000317 10001 DFAD ONE 00577 026100000311 10001 DFMP TH2 00600 026100202036 10011 31A DFMP C+30,2 00601 030100000317 10001 DFAD ONE 00602 026100000311 10001 DFMP TH2 00603 026100202042 10011 32A DFMP C+34,2 00604 030100000317 10001 DFAD ONE 00605 026100000311 10001 DFMP TH2 00606 026100202046 10011 33A DFMP C+38,2 00607 030100000317 10001 DFAD ONE 00610 026100000311 10001 DFMP TH2 00611 026100202052 10011 34A DFMP C+42,2 00612 460300000000 10000 394J DST ** 00613 044300000000 10000 35A DLD ** 00614 030100000317 10001 DFAD ONE 00615 026100000311 10001 DFMP TH2 00616 026100202056 10011 36A DFMP C+46,2 00617 030100000317 10001 DFAD ONE 00620 026100000311 10001 DFMP TH2 00621 026100202062 10011 37A DFMP C+50,2 00622 030100000317 10001 DFAD ONE 00623 026100000311 10001 DFMP TH2 00624 026100202066 10011 38A DFMP C+54,2 00625 030100000317 10001 DFAD ONE 00626 026100000311 10001 DFMP TH2 00627 026100202072 10011 39A DFMP C+58,2 00630 030100000317 10001 DFAD ONE 00631 026100000311 10001 DFMP TH2 00632 026100202076 10011 40A DFMP C+62,2 00633 030100000317 10001 DFAD ONE 00634 026100000311 10001 DFMP TH2 00635 026100202102 10011 41A DFMP C+66,2 00636 030100000317 10001 DFAD ONE 00637 026100000311 10001 DFMP TH2 00640 026100202106 10011 42A DFMP C+70,2 00641 030100000317 10001 DFAD ONE 00642 026100000311 10001 DFMP TH2 00643 026100202112 10011 43A DFMP C+74,2 00644 460300000000 10000 420J DST ** 00645 044300000000 10000 44A DLD ** 00646 030100000317 10001 DFAD ONE 00647 026100000311 10001 DFMP TH2 10/21/21 PAGE 27 R1 ASSEMBLY LISTING 00650 026100202116 10011 45A DFMP C+78,2 00651 030100000317 10001 DFAD ONE 00652 026100000311 10001 DFMP TH2 00653 026100202122 10011 46A DFMP C+82,2 00654 030100000317 10001 DFAD ONE 00655 026100000311 10001 DFMP TH2 00656 026100202126 10011 47A DFMP C+86,2 00657 030100000317 10001 DFAD ONE 00660 026100000311 10001 DFMP TH2 00661 026100202132 10011 48A DFMP C+90,2 00662 030100000317 10001 DFAD ONE 00663 026100000311 10001 DFMP TH2 00664 026100202136 10011 49A DFMP C+94,2 00665 460300000000 10000 437J DST ** 00666 044300000000 10000 50A DLD ** 00667 030100000317 10001 DFAD ONE 00670 026100000311 10001 DFMP TH2 00671 026100202142 10011 51A DFMP C+98,2 00672 030100000317 10001 DFAD ONE 00673 026100000311 10001 DFMP TH2 00674 026100202146 10011 52A DFMP C+102,2 00675 030100000317 10001 DFAD ONE 00676 026100000311 10001 DFMP TH2 00677 026100202152 10011 53A DFMP C+106,2 00700 030100000317 10001 DFAD ONE 00701 026100000311 10001 DFMP TH2 00702 026100202156 10011 54A DFMP C+110,2 00703 460300000000 10000 451J DST ** 00704 044300000000 10000 55A DLD ** 00705 030100000317 10001 DFAD ONE 00706 026100000311 10001 DFMP TH2 00707 026100202162 10011 56A DFMP C+114,2 00710 030100000317 10001 DFAD ONE 00711 026100000311 10001 DFMP TH2 00712 026100202166 10011 57A DFMP C+118,2 00713 030100000317 10001 DFAD ONE 00714 026100000311 10001 DFMP TH2 00715 026100202172 10011 58A DFMP C+122,2 00716 460300000000 10000 462J DST ** 00717 044300000000 10000 59A DLD ** 00720 030100000317 10001 DFAD ONE 00721 026100000311 10001 DFMP TH2 00722 026100202176 10011 60A DFMP C+126,2 00723 030100000317 10001 DFAD ONE 00724 026100000311 10001 DFMP TH2 00725 026100202202 10011 61A DFMP C+130,2 00726 030100000317 10001 DFAD ONE 00727 026100000311 10001 DFMP TH2 00730 026100202206 10011 62A DFMP C+134,2 00731 460300000000 10000 473J DST ** 00732 044300000000 10000 63A DLD ** 00733 030100000317 10001 DFAD ONE 00734 026100000311 10001 DFMP TH2 00735 026100202212 10011 64A DFMP C+138,2 00736 030100000317 10001 DFAD ONE 00737 026100000311 10001 DFMP TH2 10/21/21 PAGE 28 R1 ASSEMBLY LISTING 00740 026100202216 10011 65A DFMP C+142,2 00741 460300000000 10000 481J DST ** 00742 044300000000 10000 66A DLD ** 00743 030100000317 10001 DFAD ONE 00744 026100000311 10001 DFMP TH2 00745 026100202222 10011 67A DFMP C+146,2 00746 030100000317 10001 DFAD ONE 00747 026100000311 10001 DFMP TH2 00750 026100202226 10011 68A DFMP C+150,2 00751 460300000000 10000 489J DST ** 00752 044300000000 10000 69A DLD ** 00753 030100000317 10001 DFAD ONE 00754 026100000311 10001 DFMP TH2 00755 026100202232 10011 70A DFMP C+154,2 00756 460300000000 10000 494J DST ** 00757 044300000000 10000 71A DLD ** 00760 030100000317 10001 DFAD ONE 00761 026100000311 10001 DFMP TH2 00762 026100202236 10011 72A DFMP C+158,2 00763 460300000000 10000 499J DST ** 00764 044300000000 10000 73A DLD ** 00765 030100000317 10001 DFAD ONE 00766 026100000311 10001 DFMP TH2 00767 026100202242 10011 74A DFMP C+162,2 00770 460300000000 10000 504J DST ** 00771 044300000000 10000 75A DLD ** 00772 030100000317 10001 DFAD ONE 00773 026100000311 10001 DFMP TH2 00774 026100202246 10011 76A DFMP C+166,2 00775 460300000000 10000 509J DST ** 00776 77A NULL 00776 044300000000 10000 78A DLD ** 00777 030100000317 10001 DFAD ONE 01000 026100000311 10001 DFMP TH2 01001 026100202252 10011 79A DFMP C+170,2 01002 460300000000 10000 514J DST ** 01003 80A NULL 01003 044300000000 10000 81A DLD ** 01004 030100000317 10001 DFAD ONE 01005 026100000311 10001 DFMP TH2 01006 026100202256 10011 82A DFMP C+174,2 01007 460300000000 10000 519J DST ** 01010 044300000000 10000 83A DLD ** 01011 030100000317 10001 DFAD ONE 01012 026100000311 10001 DFMP TH2 01013 026100202262 10011 84A DFMP C+178,2 01014 030100000317 10001 DFAD ONE 01015 026100000311 10001 DFMP TH2 01016 026100202266 10011 85A DFMP C+182,2 01017 030100000317 10001 DFAD ONE 01020 026100000311 10001 DFMP TH2 01021 026100202272 10011 86A DFMP C+186,2 01022 030100000317 10001 DFAD ONE 01023 026100000311 10001 DFMP TH2 01024 026100202276 10011 87A DFMP C+190,2 01025 030100000317 10001 DFAD ONE 10/21/21 PAGE 29 R1 ASSEMBLY LISTING 01026 026100202302 10011 88A DFMP C+194,2 01027 460300200000 10000 89A DST **,2 01030 90A NULL 01030 044300200000 10000 91A DLD **,2 01031 026100000311 10001 DFMP TH2 01032 030100000317 10001 DFAD ONE 01033 460300200000 10000 92A DST **,2 01034 177777101035 10001 93A TXI *+1,1,-1 01035 177776201036 10001 TXI *+1,2,-2 01036 377775100511 10001 TXH 19A+3,1,-3 01037 94A NULL 01037 002060000333 10001 95A TRA* LITTLE 01040 96A NULL 01040 044300000000 10000 97A DLD ** 01041 026100000323 10001 DFMP TH 01042 026100000311 10001 DFMP TH2 01043 030100000323 10001 DFAD TH 01044 030300000321 10001 DFSB THETA 01045 424100000321 10001 DFDP THETA 01046 424100000313 10001 DFDP THETA2 01047 460300000000 10000 551J DST ** 01050 044300000000 10000 552J DLD ** 01051 026100000311 10001 DFMP TH2 01052 424100000313 10001 DFDP THETA2 01053 460300000000 10000 555J DST ** 01054 044300000000 10000 556J DLD ** 01055 026100000323 10001 DFMP TH 01056 424100000321 10001 DFDP THETA 01057 460300000000 10000 559J DST ** 01060 044300000000 10000 98A DLD ** 01061 026100000327 10001 DFMP BETA2 01062 026100000331 10001 DFMP BETA 01063 460300000000 10000 563J DST ** 01064 044300000000 10000 564J DLD ** 01065 026100000327 10001 DFMP BETA2 01066 460300000000 10000 566J DST ** 01067 044300000000 10000 567J DLD ** 01070 026100000331 10001 DFMP BETA 01071 460300000000 10000 569J DST ** 01072 007400410000 10011 99A TSX .FWRD.,4 01073 100002001077 10001 TXI *+4,,2 01074 001160000143 10100 PZE 99,,LK.DR 01075 000000012000 10011 PZE .UN06. 01076 000000000353 10001 PZE 900. 01077 050000000334 10001 CLA MGO 01100 007400414000 10011 TSX .FCNV.,4 01101 007400413000 10011 TSX .FFIL.,4 01102 007400410000 10011 100A TSX .FWRD.,4 01103 100002001107 10001 TXI *+4,,2 01104 001160000144 10100 PZE 100,,LK.DR 01105 000000012000 10011 PZE .UN06. 01106 000000000356 10001 PZE 901. 01107 050000000311 10001 CLA L 01110 007400414000 10011 TSX .FCNV.,4 01111 007400413000 10011 TSX .FFIL.,4 01112 007400410000 10011 101A TSX .FWRD.,4 10/21/21 PAGE 30 R1 ASSEMBLY LISTING 01113 100002001117 10001 TXI *+4,,2 01114 001160000145 10100 PZE 101,,LK.DR 01115 000000012000 10011 PZE .UN06. 01116 000000000361 10001 PZE 902. 01117 044300000311 10001 DLD TH2 01120 007400414000 10011 TSX .FCNV.,4 01121 007400413000 10011 TSX .FFIL.,4 01122 007400410000 10011 102A TSX .FWRD.,4 01123 100002001127 10001 TXI *+4,,2 01124 001160000146 10100 PZE 102,,LK.DR 01125 000000012000 10011 PZE .UN06. 01126 000000000365 10001 PZE 903. 01127 044300000317 10001 DLD ONE 01130 007400414000 10011 TSX .FCNV.,4 01131 007400413000 10011 TSX .FFIL.,4 01132 007400410000 10011 103A TSX .FWRD.,4 01133 100002001137 10001 TXI *+4,,2 01134 001160000147 10100 PZE 103,,LK.DR 01135 000000012000 10011 PZE .UN06. 01136 000000000371 10001 PZE 904. 01137 044300000325 10001 DLD TWOPI 01140 007400414000 10011 TSX .FCNV.,4 01141 007400413000 10011 TSX .FFIL.,4 01142 007400410000 10011 104A TSX .FWRD.,4 01143 100002001147 10001 TXI *+4,,2 01144 001160000150 10100 PZE 104,,LK.DR 01145 000000012000 10011 PZE .UN06. 01146 000000000375 10001 PZE 905. 01147 044300000315 10001 DLD TWOPI2 01150 007400414000 10011 TSX .FCNV.,4 01151 007400413000 10011 TSX .FFIL.,4 01152 002000005001 10011 TRA ALCSBT+1 01153 062100001156 10001 105A STA *+3 01154 007400411000 10011 TSX .FXEM.,4 01155 100001001160 10001 TXI *+3,,1 01156 001160000151 10100 PZE 105,,LK.DR 01157 000000000344 10001 PZE C.4 01160 000000000000 10000 LK.DR PZE ** 01161 510160606060 10000 BCI 1,R1 01162 100000001171 10001 ALCSBT TXI *+7,,** 01163 077400200000 10000 AXT **,2 01164 077400100000 10000 AXT **,1 01165 077400400000 10000 AXT **,4 01166 044100001170 10001 LDI *+2 01167 002000400001 10000 TRA 1,4 01170 000000000000 10000 PZE ** 01171 060400001170 10001 STI *-1 01172 063400415000 10011 SXA SYSLOC,4 01173 063400401160 10001 SXA LK.DR,4 01174 063400401165 10001 SXA *-7,4 01175 063400101164 10001 SXA *-9,1 01176 063400201163 10001 SXA *-11,2 01177 050000400003 10000 CLA 3,4 01200 062100000404 10001 STA 260J 01201 050000400004 10000 CLA 4,4 01202 062100000411 10001 STA 265J 10/21/21 PAGE 31 R1 ASSEMBLY LISTING 01203 050000400005 10000 CLA 5,4 01204 062100001040 10001 STA 97A 01205 062100001047 10001 STA 551J 01206 062100001060 10001 STA 98A 01207 062100001063 10001 STA 563J 01210 073400100000 10000 PAX 0,1 01211 100002101212 10001 TXI *+1,1,2 01212 063400100513 10001 SXA 331J,1 01213 063400100543 10001 SXA 21A,1 01214 063400100560 10001 SXA 368J,1 01215 063400100561 10001 SXA 26A,1 01216 063400100612 10001 SXA 394J,1 01217 063400100613 10001 SXA 35A,1 01220 063400100644 10001 SXA 420J,1 01221 063400100645 10001 SXA 44A,1 01222 063400100665 10001 SXA 437J,1 01223 063400100666 10001 SXA 50A,1 01224 063400100703 10001 SXA 451J,1 01225 063400100704 10001 SXA 55A,1 01226 063400100716 10001 SXA 462J,1 01227 063400100717 10001 SXA 59A,1 01230 063400100731 10001 SXA 473J,1 01231 063400100732 10001 SXA 63A,1 01232 063400100741 10001 SXA 481J,1 01233 063400100742 10001 SXA 66A,1 01234 063400100751 10001 SXA 489J,1 01235 063400100752 10001 SXA 69A,1 01236 063400100756 10001 SXA 494J,1 01237 063400100757 10001 SXA 71A,1 01240 063400100763 10001 SXA 499J,1 01241 063400100764 10001 SXA 73A,1 01242 063400100770 10001 SXA 504J,1 01243 063400100771 10001 SXA 75A,1 01244 063400100775 10001 SXA 509J,1 01245 063400100776 10001 SXA 78A,1 01246 063400101002 10001 SXA 514J,1 01247 063400101003 10001 SXA 81A,1 01250 063400101007 10001 SXA 519J,1 01251 063400101010 10001 SXA 83A,1 01252 063400101033 10001 SXA 92A,1 01253 063400101050 10001 SXA 552J,1 01254 063400101053 10001 SXA 555J,1 01255 063400101064 10001 SXA 564J,1 01256 063400101066 10001 SXA 566J,1 01257 177774101260 10001 TXI *+1,1,-4 01260 063400101027 10001 SXA 89A,1 01261 063400101030 10001 SXA 91A,1 01262 100006101263 10001 TXI *+1,1,6 01263 063400101054 10001 SXA 556J,1 01264 063400101057 10001 SXA 559J,1 01265 063400101067 10001 SXA 567J,1 01266 063400101071 10001 SXA 569J,1 01267 002000000401 10001 TRA 1A 10/21/21 PAGE 32 R1 ASSEMBLY LISTING $CDICT R1 10/21/21 R1 0029 001270001162 PREFACE START=626,LENGTH=696,TYPE=7094,CMPLX=5 000004000005 510160606060 R1 DECK LOC=0,LENGTH=696 001270000000 226321234645 BTACON REAL LOC=1,LENGTH=200 000310000001 000000000000 EVEN LOC=1 100000000001 000000000000 EVEN LOC=201 100000000311 214323622263 ALCSBT REAL LOC=626,LENGTH=0 000000001162 246250516360 DSQRT VIRTUAL SECT. 6,CALL 200000100000 244446246060 DMOD VIRTUAL SECT. 7,CALL 200000100000 332666512433 .FWRD. VIRTUAL SECT. 8,CALL 200000100000 332667254433 .FXEM. VIRTUAL SECT. 9,CALL 200000100000 336445000633 .UN06. VIRTUAL SECT. 10 200000000000 332626314333 .FFIL. VIRTUAL SECT. 11 200000000000 332623456533 .FCNV. VIRTUAL SECT. 12 200000000000 627062434623 SYSLOC VIRTUAL SECT. 13 200000000000 $DDICT R1 10/21/21 R1 0032 $DKEND R1 10/21/21 R1 0047 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 01270. 10/21/21 PAGE 33 $DATA IBLDR 10/21/21 PAGE 34 * MEMORY MAP * SYSTEM 00000 THRU 02717 FILE BLOCK ORIGIN 02720 FILES 1. UNIT06 FILE LIST ORIGIN 02734 PRE-EXECUTION INITIALIZATION 02736 CALL ON OBJECT PROGRAM 02753 OBJECT PROGRAM 02760 THRU 17700 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED) 1. BLOCDA 02760 /BTACON/ 02760 2. MAIN 03270 /BTACON/(02760) EVEN 03271 ...... 03674 * 3. R1 03712 /BTACON/(02760) EVEN 03713 ALCSBT 04565 4. .IBSYS 00000 SYSLB1 00000 * SYSLB2 00001 * SYSLB3 00002 * SYSLB4 00003 * SYSCRD 00004 * SYSPRT 00005 * SYSPCH 00006 * SYSOU1 00007 SYSOU2 00010 * SYSIN1 00011 * SYSIN2 00012 * SYSPP1 00013 * SYSPP2 00014 * SYSCK1 00015 * SYSCK2 00016 * SYSUT1 00017 * SYSUT2 00020 * SYSUT3 00021 * SYSUT4 00022 * SYSUT5 00023 * SYSUT6 00024 * SYSUT7 00025 * SYSUT8 00026 * SYSUT9 00027 * SYSTRA 00100 * SYSDAT 00101 * SYSCUR 00102 * SYSRET 00103 SYSKEY 00104 * SYSSWS 00105 * SYSPOS 00106 * SYSUNI 00107 SYSUBC 00110 SYSUAV 00111 SYSUCW 00112 SYSRPT 00113 * SYSCEM 00114 * SYSDMP 00115 SYSIOX 00116 * SYSIDR 00117 SYSCOR 00120 * SYSLDR 00121 * SYSACC 00122 * SYSPID 00123 * SYSCYD 00124 * SYSSLD 00126 * SYSTCH 00127 * SYSTWT 00131 SYSGET 00132 * SYSJOB 00133 5. .IOEX 00702 .ACTV 00702 .NDSEL 00704 * .MWR 00706 .PUNCH 00707 * .ENBSW 00710 * .PAWS 00711 * .PAUSE 00712 * .STOP 00713 * .SYMUN 00714 * .DECVD 00715 .DECVA 00716 * .CKWAT 00717 * .BCD5R 00720 .BCD5X 00721 * .CVPRT 00722 * .STOPD 00723 .CHXAC 00724 * .URRX 00725 .RCTX 00726 * .RCHX 00727 .TCOX 00730 * .TRCX 00731 * .ETTX 00732 * .TEFX 00733 * .TRAPX 00734 * .TRAPS 00735 * .COMM 00736 * .LTPOS 00737 * .IOXSI 00740 * .CHPSW 00741 * .TRPSW 00742 * .FDAMT 00743 .SDCXI 00744 * .STCXI 00745 * .COMMD 00746 * .IBCDZ 00747 * .CHXSP 00750 * 6. .JBCON 02652 SYSLOC 02652 SYSFAZ 02653 * .JCOR 02654 * .JDATE 02655 .JLDAT 02656 * .JTYPE 02660 .JLIN 02661 .JVER 02662 * SYSDSB 02663 * .IOEXD 02664 * .FDPOS 02715 .JDTRK 02716 * SYSZRO 02717 * 7. .LXCON 04673 .LXSTR 04673 * .LXSTP 04676 .LXOUT 04744 .LXERR 04753 .LXCAL 04756 * .LXRTN 04756 IBEXIT 04756 * .DBCLS 05140 * .LXARG 05307 .L0 05332 * .CLSE 05340 .LFBL 05341 * .LUNB 05342 .DFOUT 05343 8. .IODEF 05347 .DEFIN 05347 .ATTAC 05353 * .CLOSE 05355 .OPEN 05357 .READ 05361 .WRITE 05363 .BSR 05373 * .READR 05403 .RELES 05405 * .LAREA 05416 .LFBLK 05434 .LTSX 05437 * .RLHLD 05447 * .AREA1 05452 .LUNBL 05460 .ENTRY 05464 .GOA 05521 .GO 05525 .DERR 05541 .NOPXI 05542 .COMXI 05544 .EX34 05566 9. .LXSL 05573 .LXSEL 05573 .LXSL1 05574 .LXTST 05577 * .LXOVL 05637 * .LXMOD 05701 * .LXIND 05725 * .LXDIS 05730 * .LXFLG 05731 * .LTCH 05732 10. .FPTRP 05740 .FFPT. 05740 * .FPOUT 06067 .FPARG 06075 /.COUNT/ 06077 * OVFLOW 06143 * 11. .ERAS. 06150 E.1 06150 E.2 06151 E.3 06152 E.4 06153 12. XIT 06154 EXIT 06154 .EXIT. 06154 * 13. FXEM 06155 .FXEM. 06155 .FXOUT 06515 .FXARG 06523 /.OPTW./ 06577 * 14. FOUT 06610 .FOUT. 06610 15. FCNV 07151 .FCON. 07151 .FCNV. 07172 .ENDFS 07200 .CNVSW 07203 .FDX1 07207 .FDX2 07210 .DBC 07212 .DBC10 07350 .DBC20 07376 .DDSW 07414 .DDFIX 07420 .FIXSW 07421 .DDBC 07466 .DDRS1 07737 .DDRS2 07741 * .D1 07744 .D2 07746 .FERR2 10033 * .ANPT 10067 .ONPT 10104 .LNTP 10167 .AOUT 10236 .OOUT 10247 .LOUT 10276 .DFLT 10306 IBLDR 10/21/21 PAGE 35 * MEMORY MAP * .FLT 10553 .FXFL1 10704 .FXD 10710 .FXFL2 10713 .FXFL3 10717 .INTG 10723 .TOPAC 10741 .WIDTH 10745 .FPACK 10752 .TEST 10753 .KOUNT 11006 .LIST 11011 .DONE 11017 .OUTBF 11510 .CHAR 11744 .FBDBF 11760 .DDDFL 12012 .DDFLG 12013 .WORD 12014 .MQD 12015 .PEX 12016 .FEXP 12017 .DIG 12020 .DEXPN 12021 16. FIOS 12053 .FIOS. 12053 .FSEL. 12213 * .FILR. 12217 * .FRTB. 12226 * .FRTD. 12233 .FILL. 12236 .FCLS 12240 * .FOPN 12244 * REOF 12250 * .TOUT. 12413 .REED 12421 * .BIN 12422 * .FCT 12423 * .FCKSZ 12425 * 17. FIOH 12507 .FIOH. 12507 .FFIL. 13346 .FRTN. 13374 * 18. FWRD 13562 .FWRD. 13562 19. UN06 13606 .UN06. 13606 .BUFSZ 13607 20. FDMD 13612 DMOD 13612 21. FDSQ 13762 DSQRT 13762 22. .IOCS 14062 .L(0) 14062 .MONSW 14102 .TEOR 14151 .DEFI. 14231 .JOINX 14275 * .CLOS. 14314 .ATTC. 14327 .SH1 14541 * .SH9 14603 * .OPEN. 14624 .OP4 14652 * .OP7 14703 * .OP9.2 14717 * .RLSE. 14771 .RER2. 14771 .READ. 14772 .RER1. 15015 .WRIT. 15017 .MNT1A 15207 * .EOFEX 15270 * .FEEIT 15340 .GTIOX 15361 .RW7 15477 * .RE7 16122 * .ENDTR 16563 .SEL59 16565 * .BSR. 17204 .EOTOF 17331 .ETOF3 17337 * .SWITC 17366 .TCHEX 17673 .BASIO 17676 * 23. .IOCSM 17701 I/O BUFFERS 17701 THRU 77674 UNUSED CORE 77675 THRU 77777 *************************************** OVERA = 0.62500000000000000D 00 XBETA = -0.97164236284721101D 00 MGO= 4 L= -17147535542 TH2= -0.37954779798719179D 00 ONE= 0.09999999999999998D 01 2PI= 0.62831853071795862D 01 2PI2= 0.39478417604357430D 03 F1= 0.39924853720808257D-01 F2= 0.18921259241202515D 00 F3= 0.58620732079438465D 00 F4= 0.81615302962833369D 00 *************************************** OVERA = 0.90000000000000002D 00 XBETA = 0.12500000000000000D 01 MGO= 6 L= 17382034636 TH2= 0.10124999999999995D 01 ONE= 0.09999999999999998D 01 2PI= 0.62831853071795862D 01 2PI2= 0.39478417604357430D 03 F1= 0.12780132355659607D 00 F2= 0.44034626426671458D 00 F3= 0.10597516544457447D 01 F4= 0.15504328303333931D 01 *************************************** OVERA = 0.70000000000000001D 00 XBETA = -0.49999999999999994D-01 MGO= 1 L= -16614007242 TH2= -0.24499999999999994D-01 ONE= 0.09999999999999998D 01 2PI= 0.62831853071795862D 01 2PI2= 0.39478417604357430D 03 F1= 0.57096678336449830D-01 F2= 0.24450019626616915D 00 F3= 0.69714516608317750D 00 F4= 0.98777499023325777D 00 *************************************** OVERA = 0.09999999999999998D 01 XBETA = 0.09999999999999998D 01 MGO= 6 L= 17381195776 TH2= 0.09999999999999998D 01 ONE= 0.09999999999999998D 01 2PI= 0.62831853071795862D 01 2PI2= 0.39478417604357430D 03 F1= 0.17520119364380138D 00 F2= 0.54308063481524360D 00 F3= 0.11752011936438012D 01 F4= 0.15430806348152432D 01 1527 LINES OUTPUT. $IBSYS $CARDS $* $* RETURNING FROM JOB TAPE $* $PAUSE OPER. ACTION PAUSE ..CONTINUING $STOP PERIPHERAL UNIT POSITIONS AT END OF JOBS SYSPP1 IS B2 REC. 00001, FILE 00000 SYSOU1 IS B1 REC. 00323, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001 END OF JOBS *EOF* EOF END OF OUTPUT *EOF*