Source Code

024662,000002: ## Copyright: Public domain. 024663,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc 024664,000004: ## Purpose: Part of the source code for Solarium build 55. This 024665,000005: ## is for the Command Module's (CM) Apollo Guidance 024666,000006: ## Computer (AGC), for Apollo 6. 024667,000007: ## Assembler: yaYUL --block1 024668,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 024669,000009: ## Website: www.ibiblio.org/apollo/index.html 024670,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 024671,000011: ## Mod history: 2009-09-27 JL Created. 024672,000012: ## 2016-08-20 RSB Typos. 024673,000013: ## 2016-08-21 RSB More typos. 024674,000014: ## 2016-08-23 RSB More of the same. 024675,000015: ## 2016-08-24 RSB And a few final ones! 024676,000016: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 024677,000017: ## and fixed errors found. 024678,000018:

Page 628

024680,000020:                                                                                                  #  THIS ROUTINE ENTERED AT CDUTRIG READS PRESENT CDU REGISTERS AND STORES THEM SCALED AT ONE REVOLUTION AS A DP
024681,000021:                                                                                                  #  VECTOR IN CDUTEMP. IT COMPUTES SIN,COS(CDUX,Y,Z) AND STORES THEM IN SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY
024682,000022:                                                                                                  #  SCALED AT 2(+1). WHEN ENTERED AT THETRIG THE ROUTINE PERFORMS THE SAME FUNCTION WITH THE DESIRED CDU ANGLE REG-
024683,000023:                                                                                                  #  ISTERS THETAD,+1,+2. ENTER WITH C(X1) =6 FOR X,Y,Z ( =4 FOR Y,Z ONLY)
024684,000024: 
024685,000025: 
024686,000026: 
024687,000027: 25,6000                                           SETLOC   52000                                 
024688,000028: 25,6000           77576        CDUTRIG            EXIT     0                                     
024689,000029: 
024690,000030: 25,6001           20017                           INHINT                                         
024691,000031: 25,6002           40047                           CS       CDUX                                  
024692,000032: 25,6003           51314                           TS       CDUTEMP                               
024693,000033: 25,6004           40050                           CS       CDUY                                  
024694,000034: 25,6005           51316                           TS       CDUTEMP    +2                         
024695,000035: 25,6006           40051                           CS       CDUZ                                  
024696,000036: 25,6007           51320                           TS       CDUTEMP    +4                         
024697,000037: 25,6010           20016                           RELINT                                         
024698,000038: 25,6011           06023                           TC       JUMP3                                 
024699,000039: 
024700,000040: 25,6012           77576        THETRIG            EXIT     0                                     
024701,000041: 
024702,000042: 25,6013           20017                           INHINT                                         
024703,000043: 25,6014           40700                           CS       THETAD                                
024704,000044: 25,6015           51314                           TS       CDUTEMP                               
024705,000045: 25,6016           40701                           CS       THETAD     +1                         
024706,000046: 25,6017           51316                           TS       CDUTEMP    +2                         
024707,000047: 25,6020           40702                           CS       THETAD     +2                         
024708,000048: 25,6021           51320                           TS       CDUTEMP    +4                         
024709,000049: 25,6022           20016                           RELINT                                         
024710,000050: 
024711,000051: 25,6023           40647        JUMP3              CS       FLAGWRD2                              #  TEST IF CDUX FLAG SET
024712,000052: 25,6024           74501                           MASK     BIT14                                 #  (CDUXFLAG MASK)
024713,000053: 25,6025           10000                           CCS      A                                     
024714,000054: 25,6026           06037                           TC       JUMP8                                 #  IT IS NOT
024715,000055: 25,6027           34302                           CAF      LOW11                                 
024716,000056: 25,6030           71314                           MASK     CDUTEMP                               
024717,000057: 25,6031           50022                           TS       CYL                                   
024718,000058: 25,6032           40022                           CS       CYL                                   
024719,000059: 25,6033           40022                           CS       CYL                                   
024720,000060: 25,6034           40022                           CS       CYL                                   
024721,000061: 25,6035           30022                           XCH      CYL                                   
024722,000062: 25,6036           31314                           XCH      CDUTEMP                               
024723,000063: 
024724,000064: 25,6037           04000        JUMP8              TC       INTPRET                               
024725,000065: 
024726,000066: 25,6040           55576        SINCOS             AST,1    0                                     
024727,000067: 25,6041           00003                                    2                                     
024728,000068: 
024729,000069: 25,6042           42175        REPEAT1            SMOVE*   1                                     

Page 629

024731,000071: 25,6043           47171                           COMP     RTB                                   
024732,000072: 25,6044           02645                                    CDUTEMP    +6,1                       
024733,000073: 25,6045           20304                                    CDULOGIC                              
024734,000074: 25,6046           36645                           STORE    CDUTEMP    +6,1                       
024735,000075: 
024736,000076: 25,6047           47575                           NOLOD    1                                     
024737,000077: 25,6050           57176                           SIN                                            
024738,000078: 25,6051           36675                           STORE    SINCDU     +6,1                       
024739,000079: 
024740,000080: 25,6052           54176                           COS*     0                                     
024741,000081: 25,6053           02645                                    CDUTEMP    +6,1                       
024742,000082: 25,6054           36711                           STORE    COSCDU     +6,1                       
024743,000083: 
024744,000084: 25,6055           51574                           TIX,1    2                                     
024745,000085: 25,6056           65116                           ABS      TSLT                                  #  TEST IF COS(THETAD+2) LESS THAN COS(60)
024746,000086: 25,6057           71775                           BOV      EXIT                                  
024747,000087: 25,6060           12043                                    REPEAT1                               
024748,000088: 25,6061           01343                                    COSCDU     +4                         
024749,000089: 25,6062           00003                                    2                                     
024750,000090: 25,6063           12070                                    NOGIMLOC                              #  IT IS NOT. NO NEED TO ALARM
024751,000091: 
024752,000092: 25,6064           03007                           TC       ALARM                                 
024753,000093: 25,6065           01407                           OCT      01407                                 
024754,000094: 
024755,000095: 25,6066           04000                           TC       INTPRET                               
024756,000096: 
024757,000097: 25,6067           40576        NOGIMLOC           ITCQ     0                                     
024758,000098: 
024759,000099: 25,6070           77760        HIGH11             OCT      77760                                 
024760,000100: 

Page 630

024762,000102: 
024763,000103:                                                                                                  #  THIS ROUTINE COMPUTES DESIRED CDU(GIMBAL) ANGLES GIVEN THE DESIRED NAV. BASE AXES IN XNB AS THREE HALF UNIT
024764,000104:                                                                                                  #  VECTORS IN STABLE MEMBER COORDINATES. THE DESIRED CDUX,Y,Z APPEAR IN MPAC, +1, +2 AT THE SAME SCALING AS CDUX,
024765,000105:                                                                                                  #  Y, Z WITH THE INTERPRETER SET TO THE TP MODE
024766,000106: 
024767,000107: 
024768,000108: 
024769,000109: 25,6071           45575        CALCCDU            ITA      1                                     
024770,000110: 25,6072           76776                           ITC                                            
024771,000111: 25,6073           00051                                    S1                                    
024772,000112: 25,6074           04353                                    CALCGTA                               
024773,000113: 
024774,000114: 25,6075           43575                           TEST     1                                     #  IF CDUXFLAG SET, RESCALE OGC TO 8 REVS
024775,000115: 25,6076           76576                           RTB                                            
024776,000116: 25,6077           00043                                    CDUXFLAG                              
024777,000117: 25,6100           12103                                    GETOGC                                
024778,000118: 25,6101           20721                                    CDUXFIX                               
024779,000119: 
024780,000120: 25,6102           75175        GETOGC             VMOVE    1                                     
024781,000121: 25,6103           76421                           RTB      ITCI                                  
024782,000122: 25,6104           01521                                    OGC                                   
024783,000123: 25,6105           20624                                    V1STO2S                               
024784,000124: 25,6106           00051                                    S1                                    
024785,000125: 

Page 631

024787,000127: 
024788,000128:                                                                                                  #  THIS ROUTINE COMPUTES THE MATRIX WHICH TRANSFORMS FROM STABLE MEMBER COORDINATES TO NAV. BASE COORDINATES. IT
024789,000129:                                                                                                  #  REQUIRES SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4 AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. THE MATRIX IS
024790,000130:                                                                                                  #  STORED IN X,Y,ZNB AS THREE HALF UNIT ROW VECTORS
024791,000131: 
024792,000132: 
024793,000133: 
024794,000134: 25,6107           64775        CALCSMNB           DMP      1                                     
024795,000135: 25,6110           47176                           COMP                                           
024796,000136: 25,6111           01333                                    SINCDU     +2                         
024797,000137: 25,6112           01343                                    COSCDU     +4                         
024798,000138: 
024799,000139: 25,6113           56776                           TSRT     0                                     
024800,000140: 25,6114           01335                                    SINCDU     +4                         
024801,000141: 25,6115           00002                                    1                                     
024802,000142: 
024803,000143: 25,6116           64775                           DMP      1                                     
024804,000144: 25,6117           41022                           VDEF     VSLT                                  
024805,000145: 25,6120           01341                                    COSCDU     +2                         
024806,000146: 25,6121           01343                                    COSCDU     +4                         
024807,000147: 25,6122           00002                                    1                                     
024808,000148: 25,6123           33477                           STORE    XNB                                   
024809,000149: 
024810,000150: 25,6124           64775                           DMP      1                                     
024811,000151: 25,6125           63776                           TSLT                                           
024812,000152: 25,6126           01331                                    SINCDU                                
024813,000153: 25,6127           01335                                    SINCDU     +4                         
024814,000154: 25,6130           00002                                    1                                     
024815,000155: 25,6131           32033                           STORE    26D                                   
024816,000156: 
024817,000157: 25,6132           47575                           NOLOD    1                                     
024818,000158: 25,6133           64776                           DMP                                            
024819,000159: 25,6134           01333                                    SINCDU     +2                         
024820,000160: 
024821,000161: 25,6135           64775                           DMP      1                                     
024822,000162: 25,6136           66776                           DSU                                            
024823,000163: 25,6137           01337                                    COSCDU                                
024824,000164: 25,6140           01341                                    COSCDU     +2                         
024825,000165: 
024826,000166: 25,6141           64775                           DMP      1                                     
024827,000167: 25,6142           47176                           COMP                                           
024828,000168: 25,6143           01331                                    SINCDU                                
024829,000169: 25,6144           01343                                    COSCDU     +4                         
024830,000170: 
024831,000171: 25,6145           64776                           DMP      0                                     
024832,000172: 25,6146           01337                                    COSCDU                                
024833,000173: 25,6147           01333                                    SINCDU     +2                         
024834,000174: 
024835,000175: 25,6150           64774                           DMP      2                                     
024836,000176: 25,6151           70603                           DAD      VDEF                                  
024837,000177: 25,6152           44776                           VSLT                                           

Page 632

024839,000179: 25,6153           01341                                    COSCDU     +2                         
024840,000180: 25,6154           00033                                    26D                                   
024841,000181: 25,6155           77777                                    -                                     
024842,000182: 25,6156           00002                                    1                                     
024843,000183: 25,6157           33513                           STORE    ZNB                                   
024844,000184: 
024845,000185: 25,6160           47575                           NOLOD    1                                     
024846,000186: 25,6161           41622                           VXV      VSLT                                  
024847,000187: 25,6162           01477                                    XNB                                   
024848,000188: 25,6163           00002                                    1                                     
024849,000189: 25,6164           33505                           STORE    YNB                                   
024850,000190: 
024851,000191: 25,6165           40576                           ITCQ     0                                     
024852,000192: 

Page 633

024854,000194: 
024855,000195:                                                                                                  #  ROUTINE CALCSCNB TRANSFORMS A MATRIX OF HALF UNIT VECTORS ALONG SPACECRAFT AXES, XSCD, INTO A MATRIX OF HALF
024856,000196:                                                                                                  #  UNIT VECTORS ALONG NAV. BASE AXES, XNB. ROUTINE CALCNBSC DOES THE INVERSE, STORING THE MATRIX OF UNIT VECTORS
024857,000197:                                                                                                  #  ALONG SPACECRAFT AXES IN XSC
024858,000198: 
024859,000199: 
024860,000200: 
024861,000201: 25,6166           75776        CALCSCNB           VXSC     0                                     
024862,000202: 25,6167           01411                                    XSCD                                  
024863,000203: 25,6170           12241                                    COS33                                 
024864,000204: 
024865,000205: 25,6171           75775                           VXSC     1                                     
024866,000206: 25,6172           46776                           BVSU                                           
024867,000207: 25,6173           01425                                    ZSCD                                  
024868,000208: 25,6174           12237                                    SIN33                                 
024869,000209: 25,6175           33477                           STORE    XNB                                   
024870,000210: 
024871,000211: 25,6176           75176                           VMOVE    0                                     
024872,000212: 25,6177           01417                                    YSCD                                  
024873,000213: 25,6200           33505                           STORE    YNB                                   
024874,000214: 
024875,000215: 25,6201           75776                           VXSC     0                                     
024876,000216: 25,6202           01411                                    XSCD                                  
024877,000217: 25,6203           12237                                    SIN33                                 
024878,000218: 
024879,000219: 25,6204           75775                           VXSC     1                                     
024880,000220: 25,6205           50776                           VAD                                            
024881,000221: 25,6206           01425                                    ZSCD                                  
024882,000222: 25,6207           12241                                    COS33                                 
024883,000223: 25,6210           33513                           STORE    ZNB                                   
024884,000224: 
024885,000225: 25,6211           40576                           ITCQ     0                                     
024886,000226: 

Page 634

024888,000228: 
024889,000229: 25,6212           75776        CALCNBSC           VXSC     0                                     
024890,000230: 25,6213           01477                                    XNB                                   
024891,000231: 25,6214           12241                                    COS33                                 
024892,000232: 
024893,000233: 25,6215           75775                           VXSC     1                                     
024894,000234: 25,6216           50776                           VAD                                            
024895,000235: 25,6217           01513                                    ZNB                                   
024896,000236: 25,6220           12237                                    SIN33                                 
024897,000237: 25,6221           33367                           STORE    XSC                                   
024898,000238: 
024899,000239: 25,6222           75176                           VMOVE    0                                     
024900,000240: 25,6223           01505                                    YNB                                   
024901,000241: 25,6224           33375                           STORE    YSC                                   
024902,000242: 
024903,000243: 25,6225           75776                           VXSC     0                                     
024904,000244: 25,6226           01477                                    XNB                                   
024905,000245: 25,6227           12237                                    SIN33                                 
024906,000246: 
024907,000247: 25,6230           75775                           VXSC     1                                     
024908,000248: 25,6231           74776                           VSU                                            
024909,000249: 25,6232           01513                                    ZNB                                   
024910,000250: 25,6233           12241                                    COS33                                 
024911,000251: 25,6234           33403                           STORE    ZSC                                   
024912,000252: 
024913,000253: 25,6235           40576                           ITCQ     0                                     
024914,000254: 
024915,000255: 25,6236           21333 13542  SIN33              2DEC     0.544639000                            
024916,000256: 25,6240           32654 30735  COS33              2DEC     0.838670600                            
024917,000257: 

Page 635

024919,000259: 
024920,000260:                                                                                                  #  THIS ROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT SM AXES.
024921,000261:                                                                                                  #  IT REQUIRES SM INCREMENTS AS A DP VECTOR IN VAC SCALED AT ONE REVOLUTION, SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4 
024922,000262:                                                                                                  #  AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. CDU INCREMENTS APPEAR IN THE VAC SCALED AT ONE REV.
024923,000263: 
024924,000264: 25,6242           64776        SMCDURES           DMP      0                                     
024925,000265: 25,6243           00041                                    32D                                   
024926,000266: 25,6244           01341                                    COSCDU     +2                         
024927,000267: 
024928,000268: 25,6245           64775                           DMP      1                                     
024929,000269: 25,6246           65712                           BDSU     DDV                                   
024930,000270: 25,6247           00045                                    36D                                   
024931,000271: 25,6250           01333                                    SINCDU     +2                         
024932,000272: 25,6251           77777                                    -                                     
024933,000273: 25,6252           01343                                    COSCDU     +4                         
024934,000274: 25,6253           32027                           STORE    22D                                   
024935,000275: 
024936,000276: 25,6254           47574                           NOLOD    2                                     
024937,000277: 25,6255           64716                           DMP      TSLT                                  
024938,000278: 25,6256           65776                           BDSU                                           
024939,000279: 25,6257           01335                                    SINCDU     +4                         
024940,000280: 25,6260           00002                                    1                                     
024941,000281: 25,6261           00043                                    34D                                   
024942,000282: 25,6262           32031                           STORE    24D                                   
024943,000283: 
024944,000284: 25,6263           64776                           DMP      0                                     
024945,000285: 25,6264           00041                                    32D                                   
024946,000286: 25,6265           01333                                    SINCDU     +2                         
024947,000287: 
024948,000288: 25,6266           64775                           DMP      1                                     
024949,000289: 25,6267           70716                           DAD      TSLT                                  
024950,000290: 25,6270           00045                                    36D                                   
024951,000291: 25,6271           01341                                    COSCDU     +2                         
024952,000292: 25,6272           77777                                    -                                     
024953,000293: 25,6273           00002                                    1                                     
024954,000294: 25,6274           32033                           STORE    26D                                   
024955,000295: 
024956,000296: 25,6275           75175                           VMOVE    1                                     
024957,000297: 25,6276           40576                           ITCQ                                           
024958,000298: 25,6277           00027                                    22D                                   
024959,000299: 

Page 636

024961,000301:                                                                                                  #  THIS ROUTINE COMPUTES INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES FROM INCREMENTAL CDU ANGLE CHANGES. IT
024962,000302:                                                                                                  #  REQUIRES THE CDU INCREMENTS AS A DP VECTOR IN DCDU, +2, +4, SCALED AT ONE REVOLUTION. SIN,COS(CDUX,Y,Z) MUST BE
024963,000303:                                                                                                  #  IN SINCDU, +2, +4, AND COSCDU, +2, +4 RESPECTIVELY SCALED AT ONE HALF. INCREMENTAL NAV. BASE ANGLES APPEAR IN 
024964,000304:                                                                                                  #  DNB, +2, +4 SCALED AT ONE REVOLUTION
024965,000305: 
024966,000306: 
024967,000307: 
024968,000308: 25,6300           64775        CDUNBRES           DMP      1                                     
024969,000309: 25,6301           63776                           TSLT                                           
024970,000310: 25,6302           01343                                    COSCDU     +4                         
024971,000311: 25,6303           01347                                    DCDU       +2                         
024972,000312: 25,6304           00002                                    1                                     
024973,000313: 25,6305           32033                           STORE    26D                                   
024974,000314: 
024975,000315: 25,6306           47575                           NOLOD    1                                     
024976,000316: 25,6307           64776                           DMP                                            
024977,000317: 25,6310           01331                                    SINCDU                                
024978,000318: 
024979,000319: 25,6311           64775                           DMP      1                                     
024980,000320: 25,6312           66776                           DSU                                            
024981,000321: 25,6313           01337                                    COSCDU                                
024982,000322: 25,6314           01351                                    DCDU       +4                         
024983,000323: 
024984,000324: 25,6315           64776                           DMP      0                                     
024985,000325: 25,6316           00033                                    26D                                   
024986,000326: 25,6317           01337                                    COSCDU                                
024987,000327: 
024988,000328: 25,6320           64775                           DMP      1                                     
024989,000329: 25,6321           70776                           DAD                                            
024990,000330: 25,6322           01331                                    SINCDU                                
024991,000331: 25,6323           01351                                    DCDU       +4                         
024992,000332: 
024993,000333: 25,6324           56776                           TSRT     0                                     
024994,000334: 25,6325           01345                                    DCDU                                  
024995,000335: 25,6326           00002                                    1                                     
024996,000336: 
024997,000337: 25,6327           64774                           DMP      2                                     
024998,000338: 25,6330           70603                           DAD      VDEF                                  
024999,000339: 25,6331           44776                           VSLT                                           
025000,000340: 25,6332           01335                                    SINCDU     +4                         
025001,000341: 25,6333           01347                                    DCDU       +2                         
025002,000342: 25,6334           77777                                    -                                     
025003,000343: 25,6335           00002                                    1                                     
025004,000344: 25,6336           33353                           STORE    DNB                                   
025005,000345: 
025006,000346: 25,6337           40576                           ITCQ     0                                     
025007,000347: 

Page 637

025009,000349: 
025010,000350:                                                                                                  #  THIS ROUTINE COMPUTES INCREMENTAL CHANGES TO CDU ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES.
025011,000351:                                                                                                  #  IT REQUIRES THE INCREMENTAL NAV. BASE ANGLES AS A DP VECTOR IN VAC SCALED AT 1 REVOLUTION. SIN,COS(CDUX,Y,Z) 
025012,000352:                                                                                                  #  MUST BE IN SINCDU, COSCDU RESPECTIVELY SCALED AT 2(+1). IT LEAVES CDU INCREMENTS AS A DP VECTOR IN DCDU AT THE
025013,000353:                                                                                                  #  SAME SCALING
025014,000354: 
025015,000355: 
025016,000356: 
025017,000357: 25,6340           64776        NBCDURES           DMP      0                                     
025018,000358: 25,6341           00045                                    36D                                   
025019,000359: 25,6342           01331                                    SINCDU                                
025020,000360: 
025021,000361: 25,6343           64775                           DMP      1                                     
025022,000362: 25,6344           66712                           DSU      DDV                                   
025023,000363: 25,6345           00043                                    34D                                   
025024,000364: 25,6346           01337                                    COSCDU                                
025025,000365: 25,6347           77777                                    -                                     
025026,000366: 25,6350           01343                                    COSCDU     +4                         
025027,000367: 25,6351           33347                           STORE    DCDU       +2                         
025028,000368: 
025029,000369: 25,6352           47574                           NOLOD    2                                     
025030,000370: 25,6353           64633                           DMP      COMP                                  
025031,000371: 25,6354           63742                           TSLT     DAD                                   
025032,000372: 25,6355           01335                                    SINCDU     +4                         
025033,000373: 25,6356           00002                                    1                                     
025034,000374: 25,6357           00041                                    32D                                   
025035,000375: 25,6360           33345                           STORE    DCDU                                  
025036,000376: 
025037,000377: 25,6361           64776                           DMP      0                                     
025038,000378: 25,6362           00043                                    34D                                   
025039,000379: 25,6363           01331                                    SINCDU                                
025040,000380: 
025041,000381: 25,6364           64775                           DMP      1                                     
025042,000382: 25,6365           70716                           DAD      TSLT                                  
025043,000383: 25,6366           00045                                    36D                                   
025044,000384: 25,6367           01337                                    COSCDU                                
025045,000385: 25,6370           77777                                    -                                     
025046,000386: 25,6371           00002                                    1                                     
025047,000387: 25,6372           33351                           STORE    DCDU       +4                         
025048,000388: 
025049,000389: 25,6373           40576                           ITCQ     0                                     
025050,000390: 

Page 638

025052,000392: 
025053,000393:                                                                                                  #  THIS ROUTINE RESOLVES THE SMALL ANGLE VECTOR STORED AS SM COMPONENTS IN VAC. SCALED TO ONE REVOLUTION, INTO
025054,000394:                                                                                                  #  COMMANDED CDU ANGLE CHANGES VAC, +2,+4, SCALED TO ONE REVOLUTION, THROUGH THE DESIRED CDU ANGLES DEFINED BY
025055,000395:                                                                                                  #  THETAD,+1,+2. THE ROUTINE THEN INCREMENTS THETAD,+1,+2 IN 2S COMP. AT CDUX,Y,Z SCALING
025056,000396: 
025057,000397: 
025058,000398: 
025059,000399: 25,6374           45575        CDUDRIVE           ITA      1                                     
025060,000400: 25,6375           75572                           AXT,1    ITC                                   
025061,000401: 25,6376           00052                                    S2                                    
025062,000402: 25,6377           00005                                    4                                     
025063,000403: 25,6400           12013                                    THETRIG                               
025064,000404: 
025065,000405: 25,6401           76776        CDUDRVE2           ITC      0                                     
025066,000406: 25,6402           12243                                    SMCDURES                              
025067,000407: 
025068,000408: 25,6403           43575                           TEST     1                                     #  TEST IF CDUX FLAG SET
025069,000409: 25,6404           56776                           TSRT                                           
025070,000410: 25,6405           00043                                    CDUXFLAG                              
025071,000411: 25,6406           12413                                    CDUDRVE1                              
025072,000412: 25,6407           00041                                    32D                                   
025073,000413: 25,6410           00005                                    4                                     
025074,000414: 25,6411           32041                           STORE    32D                                   
025075,000415: 
025076,000416: 25,6412           47574        CDUDRVE1           NOLOD    2                                     #  RESCALE DCDU AND BRANCH TO
025077,000417: 25,6413           44771                           VSLT     RTB                                   #  INCREMENT THETAD
025078,000418: 25,6414           44576                           ITCI                                           
025079,000419: 25,6415           00002                                    1                                     
025080,000420: 25,6416           20416                                    INCRCDUS                              
025081,000421: 25,6417           00052                                    S2                                    
025082,000422: 

Page 639

025084,000424: 
025085,000425:                                                                                                  #  THE FOLLOWING SERIES OF CLOSED SUBROUTINES COMPUTE THE REQUIRED VELOCITY VR, SCALED TO 2(+8)M/CS, VELOCITY-TO-BE
025086,000426:                                                                                                  #  -GAINED VG, SCALED TO 2(+7)M/CS, AND THE MDOIFIED B-VECTOR CBDT, SCALED TO 2(+4)M/CS, FOR THE DIFFERENT PHASES
025087,000427:                                                                                                  #  OF POWERED FLIGHT.
025088,000428: 
025089,000429: 
025090,000430: 
025091,000431: 25,6420           75176        CALCVGB            VMOVE    0                                     
025092,000432: 25,6421           01417                                    VR                                    
025093,000433: 25,6422           33411                           STORE    CBDT                                  #  (CBDT USED HERE AS TEMP. STORAGE FOR VR)
025094,000434: 
025095,000435: 25,6423           45575                           ITA      1                                     
025096,000436: 25,6424           73421                           LXA,1    ITCI                                  
025097,000437: 25,6425           00052                                    S2                                    
025098,000438: 25,6426           01042                                    XSHIFT                                
025099,000439: 25,6427           01471                                    VRCADR                                
025100,000440: 
025101,000441: 25,6430           47575        CALCCBDT           NOLOD    1                                     
025102,000442: 25,6431           74622                           VSU      VSLT                                  
025103,000443: 25,6432           01411                                    CBDT                                  #  OLD VR
025104,000444: 25,6433           00005                                    4                                     #  D(VR) TO PD SCALED AT 2(+4) M/CS
025105,000445: 
025106,000446: 25,6434           75775                           VXSC     1                                     
025107,000447: 25,6435           50766                           VAD      VXSC                                  
025108,000448: 25,6436           01010                                    GRAVITY                               
025109,000449: 25,6437           01030                                    DELTAT                                
025110,000450: 25,6440           77777                                    -                                     
025111,000451: 25,6441           15573                                    CFACTOR                               #  SCALED AT 2(+0)
025112,000452: 25,6442           33411                           STORE    CBDT                                  #  SCALED AT 2(+4) M/CS
025113,000453: 
025114,000454: 25,6443           44775                           VSLT     1                                     
025115,000455: 25,6444           74752                           VSU      STZ                                   
025116,000456: 25,6445           01417                                    VR                                    
025117,000457: 25,6446           00002                                    1                                     
025118,000458: 25,6447           00774                                    VN                                    
025119,000459: 25,6450           00123                                    OVFIND                                #  FIRST PASS THRU CALCVGB MAY OVERFLOW
025120,000460: 25,6451           33353                           STORE    VG                                    #  SCALED AT 2(+7) M/CS
025121,000461: 
025122,000462: 25,6452           44576                           ITCI     0                                     
025123,000463: 25,6453           00052                                    S2                                    
025124,000464: 

Page 640

025126,000466: 
025127,000467:                                                                                                  #  THESE ROUTINES COMPUTE VR FOR THE TWO NOMINAL SPS BURNS OF FLIGHT 501
025128,000468: 25,6454           75575        501SPS1            AXT,1    1                                     #  C(X1) = +0  (SPS1)
025129,000469: 25,6455           74572                           AXT,2    ITC                                   #  C(X2) =+1  (SPS1)
025130,000470: 25,6456           00001                                    0                                     
025131,000471: 25,6457           00002                                    1                                     
025132,000472: 25,6460           12466                                    +5                                    
025133,000473: 
025134,000474: 25,6461           53575        501SPS2            AXC,1    1                                     #  C(X1) = -2  (SPS2)
025135,000475: 25,6462           52576                           AXC,2                                          #  C(X2) =-1  (SPS2)
025136,000476: 25,6463           00003                                    2                                     
025137,000477: 25,6464           00002                                    1                                     
025138,000478: 
025139,000479: 25,6465           44170                           DMOVE*   6                                     
025140,000480: 25,6466           62732                           DDV      DSU                                   
025141,000481: 25,6467           51130                           DSQ      DSU*                                  
025142,000482: 25,6470           65122                           ABS      DMP                                   
025143,000483: 25,6471           62272                           DDV*     TSRT                                  
025144,000484: 25,6472           53056                           SQRT     SIGN                                  
025145,000485: 25,6473           75776                           VXSC                                           
025146,000486: 25,6474           03325                                    SEMILAT,1                             #  SCALED AT 2(+27)M
025147,000487: 25,6475           01024                                    RMAG                                  #            2(+25)M
025148,000488: 25,6476           15565                                    DP2(-2)                               
025149,000489: 25,6477           03315                                    ESQ(VR),1                             #  SCALED AT 2(+4)
025150,000490: 25,6500           13376                                    MUE                                   #  SCALED AT 2(+38) M(+3)/CS(+2)
025151,000491: 25,6501           03325                                    SEMILAT,1                             
025152,000492: 25,6502           00006                                    5                                     
025153,000493: 25,6503           00050                                    X2                                    
025154,000494: 25,6504           01016                                    UNITR                                 #  VRAD TO PD  SCALED AT 2(+11) M/CS
025155,000495: 
025156,000496: 25,6505           45174                           DMOVE    2                                     
025157,000497: 25,6506           64312                           DMP*     DDV                                   
025158,000498: 25,6507           53176                           SQRT                                           
025159,000499: 25,6510           13542                                    MUE(41)                               
025160,000500: 25,6511           03325                                    SEMILAT,1                             
025161,000501: 25,6512           01026                                    RMAGSQ                                #  SCALED AT 2(+50)M(+2)
025162,000502:                                                                                                  #  VHOR MAG. TO PD SCALED AT 2(+9) M/CS
025163,000503: 25,6513           41773                           VXV      3                                     
025164,000504: 25,6514           73006                           UNIT     VXV                                   
025165,000505: 25,6515           75642                           VXSC     VAD                                   
025166,000506: 25,6516           44776                           VSLT                                           
025167,000507: 25,6517           01016                                    UNITR                                 
025168,000508: 25,6520           01107                                    VIGNTION                              
025169,000509: 25,6521           01016                                    UNITR                                 
025170,000510: 25,6522           77777                                    -                                     
025171,000511: 25,6523           77777                                    -                                     
025172,000512: 25,6524           00004                                    3                                     
025173,000513: 25,6525           33417                           STORE    VR                                    
025174,000514: 
025175,000515: 25,6526           76776                           ITC      0                                     
025176,000516: 25,6527           12431                                    CALCCBDT                              
025177,000517: 

Page 641

025179,000519: 
025180,000520:                                                                                                  #  THIS ROUTINE COMPUTES VG, CBDT, FOR LANDING AREA CONTROL DURING BOOST ABORTS ON FLIGHT 501
025181,000521: 
025182,000522: 
025183,000523: 
025184,000524: 25,6530           41775        501ABORT           VXV      1                                     
025185,000525: 25,6531           44776                           VSLT                                           
025186,000526: 25,6532           00766                                    RN                                    
025187,000527: 25,6533           00774                                    VN                                    
025188,000528: 25,6534           00002                                    1                                     #  4 SCALED 2(+31) M(+2)/CS
025189,000529: 
025190,000530: 25,6535           47575                           NOLOD    1                                     
025191,000531: 25,6536           73176                           UNIT                                           
025192,000532: 25,6537           33367                           STORE    UNITRXV                               #  UNIT NORMAL TO PLANE, IP  2(+1)
025193,000533: 
025194,000534: 25,6540           66775                           DSU      1                                     
025195,000535: 25,6541           56776                           TSRT                                           
025196,000536: 25,6542           13131                                    RINTALT                               
025197,000537: 25,6543           01024                                    RMAG                                  
025198,000538: 25,6544           00003                                    2                                     #  (RE - R) MAG SCALED 2(+27)
025199,000539: 
025200,000540: 25,6545           41775                           VXV      1                                     
025201,000541: 25,6546           44776                           VSLT                                           
025202,000542: 25,6547           01367                                    UNITRXV                               #  IP
025203,000543: 25,6550           01016                                    UNITR                                 #  IR
025204,000544: 25,6551           00002                                    1                                     #  TIMES 2
025205,000545: 25,6552           33375                           STORE    UNITHORZ                              #  UNIT HORIZONTAL IN PLANE, IHP  2(+1)
025206,000546: 
025207,000547: 25,6553           47575                           NOLOD    1                                     
025208,000548: 25,6554           42776                           DOT                                            
025209,000549: 25,6555           00774                                    VN                                    #  IHP.V  SCALED 2(+8)
025210,000550: 
025211,000551: 25,6556           42774                           DOT      2                                     
025212,000552: 25,6557           56712                           TSRT     DDV                                   
025213,000553: 25,6560           64776                           DMP                                            
025214,000554: 25,6561           00774                                    VN                                    
025215,000555: 25,6562           01016                                    UNITR                                 #  IR.V  SCALED 2(+8)
025216,000556: 25,6563           00004                                    3                                     #  TIMES 2(-3)
025217,000557: 25,6564           77777                                    -                                     #  DIVIDE BY IHP.V SCALED 2(+8)
025218,000558: 25,6565           13131                                    RINTALT                               #  RE COT(GAMMA) SCALED  2(+28)
025219,000559: 
025220,000560: 25,6566           67175                           VSQ      1                                     
025221,000561: 25,6567           62776                           DDV                                            
025222,000562: 25,6570           00001                                    0                                     #  H SCALED 2(+31)
025223,000563: 25,6571           13376                                    MUE                                   #  H(SQ)/MUE = P SCALED 2(+24)
025224,000564: 
025225,000565: 25,6572           67175                           VSQ      1                                     
025226,000566: 25,6573           56712                           TSRT     DDV                                   
025227,000567: 25,6574           00774                                    VN                                    #  V(SQ) 2(+14)
025228,000568: 25,6575           00005                                    4                                     #  TIMES 2(-4)
025229,000569: 25,6576           13376                                    MUE                                   #  V(SQ)/MUE  SCALED 2(-20)

Page 642

025231,000571: 25,6577           62774                           DDV      2                                     
025232,000572: 25,6600           66722                           DSU      DMP                                   
025233,000573: 25,6601           65776                           BDSU                                           
025234,000574: 25,6602           13133                                    DP2(-4)                               
025235,000575: 25,6603           01024                                    RMAG                                  
025236,000576: 25,6604           77777                                    -                                     
025237,000577: 25,6605           13131                                    RINTALT                               
025238,000578: 25,6606           13133                                    DP2(-4)                               #  (1+RE((V**2/2 MUE)-1/R))  SCALED 2(+4)
025239,000579: 
025240,000580: 25,6607           47574                           NOLOD    2                                     
025241,000581: 25,6610           73653                           BMN      SQRT                                  
025242,000582: 25,6611           64716                           DMP      TSLT                                  
025243,000583: 25,6612           13115                                    SMACHECK                              #  SMA LESS THAN RE/2
025244,000584: 25,6613           13153                                    V400                                  
025245,000585: 25,6614           00003                                    2                                     #  VE TO PD SCALED 2(+7)  M/CS
025246,000586: 
025247,000587: 25,6615           66775                           DSU      1                                     
025248,000588: 25,6616           43776                           BPL                                            
025249,000589: 25,6617           13157                                    VCRIT                                 #  22,000 FT/SEC SCALED 2(+7) M/CS
025250,000590: 25,6620           77777                                    -                                     #  VE SCALED 2(+7) M/CS
025251,000591: 25,6621           13104                                    GETRANGE                              #  SET RANGE TO MINRANGE
025252,000592: 
025253,000593: 25,6622           64774                           DMP      2                                     
025254,000594: 25,6623           70722                           DAD      DMP                                   
025255,000595: 25,6624           70716                           DAD      TSLT                                  
025256,000596: 25,6625           00017                                    14D                                   #  VE SCALED 2(+7)
025257,000597: 25,6626           13147                                    KRANGE2                               
025258,000598: 25,6627           13145                                    KRANGE1                               
025259,000599: 25,6630           00017                                    14D                                   #  VE SCALED 2(+7)
025260,000600: 25,6631           13143                                    KRANGE0                               
025261,000601: 25,6632           00005                                    4                                     
025262,000602: 25,6633           32025                           STORE    20D                                   #  ENTRY RANGE ANGLE SCALED 2(+0) REVS.
025263,000603: 
025264,000604: 25,6634           47575        GOTRANGE           NOLOD    1                                     
025265,000605: 25,6635           55166                           COS      VXSC                                  
025266,000606: 25,6636           01531                                    RTATLANT                              #  RADIAL COMP UNIT TARG VECT  2(+2)
025267,000607: 
025268,000608: 25,6637           57175                           SIN      1                                     
025269,000609: 25,6640           63776                           TSLT                                           
025270,000610: 25,6641           00025                                    20D                                   
025271,000611: 25,6642           00002                                    1                                     #  SINE OF RANGE ANGLE  2(+0)
025272,000612: 
025273,000613: 25,6643           41775                           VXV      1                                     
025274,000614: 25,6644           73176                           UNIT                                           
025275,000615: 25,6645           01531                                    RTATLANT                              
025276,000616: 25,6646           01016                                    UNITR                                 
025277,000617: 25,6647           32027                           STORE    22D                                   #  -UNITN, -IN, DESIRED NORMAL SCALED 2(+1)
025278,000618: 
025279,000619: 25,6650           47574                           NOLOD    2                                     
025280,000620: 25,6651           41766                           VXV      VXSC                                  

Page 643

025282,000622: 25,6652           50622                           VAD      VSLT                                  
025283,000623: 25,6653           01531                                    RTATLANT                              
025284,000624: 25,6654           77777                                    -                                     
025285,000625: 25,6655           77777                                    -                                     
025286,000626: 25,6656           00002                                    1                                     
025287,000627: 25,6657           33433                           STORE    RTARG                                 #  UNIT TARGET VECTOR SCALED 2(+1)
025288,000628: 
025289,000629: 25,6660           64771                           DMP      5                                     
025290,000630: 25,6661           62732                           DDV      DSU                                   
025291,000631: 25,6662           73653                           BMN      SQRT                                  
025292,000632: 25,6663           64726                           DMP      BDSU                                  
025293,000633: 25,6664           61746                           BDDV     BOV                                   
025294,000634: 25,6665           76472                           RTB      TSRT                                  
025295,000635: 25,6666           13131                                    RINTALT                               #  RE SCALED 2(+25)
025296,000636: 25,6667           77777                                    -                                     
025297,000637: 25,6670           77777                                    -                                     #  P SCALED 2(+24)
025298,000638: 25,6671           13135                                    DP2(-6)                               
025299,000639: 25,6672           13121                                    GAMCHECK                              #  COT(GAMMAE) SQ NEGATIVE
025300,000640: 25,6673           01024                                    RMAG                                  #  R COT(GAMMAE) SCALED 2(+28)
025301,000641: 25,6674           77777                                    -                                     #  RE COT(GAMMA) SCALED 2(+28)
025302,000642: 25,6675           77777                                    -                                     #  (RE - R) SCALED 2(+27)
025303,000643: 25,6676           13125                                    TANCHECK                              #  TAN(THETAFF/2) EXCEEDS ----
025304,000644: 25,6677           20265                                    FRESHPD                               #  ZERO PD POINTER
025305,000645: 25,6700           00010                                    7D                                    #  X = TAN(THETAFF/2) SCALED 2(+6)
025306,000646: 
025307,000647: 25,6701           47575                           NOLOD    1                                     
025308,000648: 25,6702           51142                           DSQ      DAD                                   
025309,000649: 25,6703           13141                                    DP2(-12)                              #  DENOMINATOR SCALED 2(+12)
025310,000650: 
025311,000651: 25,6704           47574                           NOLOD    2                                     
025312,000652: 25,6705           66633                           DSU      COMP                                  
025313,000653: 25,6706           62776                           DDV                                            
025314,000654: 25,6707           13137                                    DP2(-11)                              #  1 - X(SQ) SCALED 2(+12)
025315,000655: 25,6710           00003                                    2                                     #  COSEFF SCALED 2(+0)
025316,000656: 
025317,000657: 25,6711           42774                           DOT      2                                     
025318,000658: 25,6712           63732                           TSLT     DSU                                   
025319,000659: 25,6713           43776                           BPL                                            
025320,000660: 25,6714           01016                                    UNITR                                 
025321,000661: 25,6715           01433                                    RTARG                                 
025322,000662: 25,6716           00003                                    2                                     #  COS ANGLE R TO TARG 2(+0)
025323,000663: 25,6717           00005                                    4                                     #  COS FREE FALL ANGLE 2(+0)
025324,000664: 25,6720           13111                                    PASTIT                                #  FF ANGLE EXCEEDS ANGLE TO TARGET
025325,000665: 
025326,000666: 25,6721           56775                           TSRT     1                                     
025327,000667: 25,6722           62766                           DDV      VXSC                                  
025328,000668: 25,6723           00001                                    0                                     
025329,000669: 25,6724           00006                                    5                                     
025330,000670: 25,6725           00003                                    2                                     #  SINEFF SCALED 2(+0)
025331,000671: 25,6726           01375                                    UNITHORZ                              #  IHP SINEFF SCALED 2(+1)

Page 644

025333,000673: 25,6727           75775                           VXSC     1                                     
025334,000674: 25,6730           50762                           VAD      VSU                                   
025335,000675: 25,6731           01016                                    UNITR                                 
025336,000676: 25,6732           00005                                    4                                     #  IR COSEFF 2(+1)
025337,000677: 25,6733           77777                                    -                                     #  UNIT VECTOR ALONG ENTRY-POINT VECT 2(+1)
025338,000678: 25,6734           01433                                    RTARG                                 #  MINUS UNIT TARGET VECTOR  2(+1)
025339,000679: 
025340,000680: 25,6735           47575                           NOLOD    1                                     
025341,000681: 25,6736           71176                           ABVAL                                          
025342,000682: 25,6737           32003                           STORE    2                                     #  D SCALED 2(+2)
025343,000683: 
025344,000684: 25,6740           71174                           ABVAL    2                                     
025345,000685: 25,6741           75612                           VXSC     DOT                                   
025346,000686: 25,6742           56776                           TSRT                                           
025347,000687: 25,6743           00774                                    VN                                    
025348,000688: 25,6744           01375                                    UNITHORZ                              
025349,000689: 25,6745           00027                                    22D                                   #  -UNITN 2(+1)
025350,000690: 25,6746           00002                                    1                                     #  DELTA V NORMAL SCALED 2(+11)
025351,000691: 
025352,000692: 25,6747           71174                           ABVAL    2                                     
025353,000693: 25,6750           65716                           BDSU     TSLT                                  
025354,000694: 25,6751           65176                           ABS                                            
025355,000695: 25,6752           01425                                    DIFFVECT                              #  MAG OLD DIFFVECT 2(+2) AFTER ABVAL
025356,000696: 25,6753           00003                                    2                                     #  NEW MAG DIFFVECT 2(+2)
025357,000697: 25,6754           00002                                    1                                     #  DELD SCALED 2(+1)
025358,000698: 
025359,000699: 25,6755           47576                           NOLOD    0                                     
025360,000700: 25,6756           32001                           STORE    0                                     #  DELD TO PD 0 ALSO
025361,000701: 
025362,000702: 25,6757           64773                           DMP      3                                     
025363,000703: 25,6760           56712                           TSRT     DDV                                   
025364,000704: 25,6761           70706                           DAD      BDDV                                  
025365,000705: 25,6762           71672                           BOV      TSRT                                  
025366,000706: 25,6763           01030                                    DELTAT                                
025367,000707: 25,6764           00003                                    2                                     
025368,000708: 25,6765           00016                                    13D                                   
025369,000709: 25,6766           77777                                    -                                     
025370,000710: 25,6767           13155                                    TGOBIAS                               #  5 SECS
025371,000711: 25,6770           77777                                    -                                     #  ATTEMPT TO COMPUTE NEW ANORMAL 2(-12)
025372,000712: 25,6771           13066                                    ANOVFLOW                              #  IF OVF, ANORMAL = 8 FT/S/S SIGN DELTA V
025373,000713: 25,6772           00004                                    3                                     #  SCALE AN TRIAL BACK TO 2(-9)
025374,000714: 25,6773           33441                           STORE    ANORMAL                               #  ANORMAL SCALED 2(-9) M/CS(+2)
025375,000715: 
025376,000716: 25,6774           47575        GO-ON              NOLOD    1                                     
025377,000717: 25,6775           75776                           VXSC                                           
025378,000718: 25,6776           01367                                    UNITRXV                               #  ANORMAL ALONG IP SCALED 2(-8)
025379,000719: 
025380,000720: 25,6777           75775                           VXSC     1                                     
025381,000721: 25,7000           71176                           ABVAL                                          
025382,000722: 25,7001           01002                                    DELV                                  

Page 645

025384,000724: 25,7002           21742                                    KPIP                                  
025385,000725: 25,7003           32005                           STORE    4                                     #  MEASURED DELTA V SCALED 2(+5)
025386,000726: 
025387,000727: 25,7004           47573                           NOLOD    3                                     
025388,000728: 25,7005           62722                           DDV      DMP                                   
025389,000729: 25,7006           63766                           TSLT     VXSC                                  
025390,000730: 25,7007           50753                           VAD      UNIT                                  
025391,000731: 25,7010           01030                                    DELTAT                                
025392,000732: 25,7011           13167                                    FULHAM                                #  APPROX COS OF THRUST ONTO HORIZ PLANE
025393,000733: 25,7012           00006                                    5                                     
025394,000734: 25,7013           01375                                    UNITHORZ                              #  COEF OF SIN TERM OF IT SCALED 2(+1)
025395,000735: 
025396,000736: 25,7014           62775                           DDV      1                                     
025397,000737: 25,7015           63142                           ASIN     DAD                                   
025398,000738: 25,7016           13165                                    RVH                                   #  RADIUS TO VISUAL HORIZON SCALED 2(+26) M
025399,000739: 25,7017           01024                                    RMAG                                  #  R SCALED 2(+25)
025400,000740: 25,7020           01443                                    LOOKANG                               #  PHI SCALED 2(+0) REV.
025401,000741: 
025402,000742: 25,7021           47575                           NOLOD    1                                     
025403,000743: 25,7022           55166                           COS      VXSC                                  
025404,000744: 25,7023           01016                                    UNITR                                 #  COS(PHI) IR SCALED 2(+2)
025405,000745: 
025406,000746: 25,7024           57174                           SIN      2                                     
025407,000747: 25,7025           75762                           VXSC     VSU                                   
025408,000748: 25,7026           44776                           VSLT                                           
025409,000749: 25,7027           00023                                    18D                                   #  PHI
025410,000750: 25,7030           00015                                    12D                                   #  SIN COEF SCALED 2(+1)
025411,000751: 25,7031           77777                                    -                                     #  COS(PHI) SCALED 2(+2)
025412,000752: 25,7032           00002                                    1                                     #  UNIT FINAL, IT, SCALED 2(+1)
025413,000753: 
025414,000754: 25,7033           64773                           DMP      3                                     
025415,000755: 25,7034           62716                           DDV      TSLT                                  
025416,000756: 25,7035           71672                           BOV      TSRT                                  
025417,000757: 25,7036           75771                           VXSC     RTB                                   
025418,000758: 25,7037           00003                                    2                                     #  D  2(+2)
025419,000759: 25,7040           00005                                    4                                     #  DELTA V  2(+5)
025420,000760: 25,7041           00001                                    0                                     #  DELTA D  2(+1)
025421,000761: 25,7042           00002                                    1                                     #  IS MAG VG GR THAN 2(+5) M/CS
025422,000762: 25,7043           13074                                    FIXVG                                 #  IF YES, SET MAG VG TO 2(+5) M/CS
025423,000763: 25,7044           00002                                    1                                     #  IF NO, SCALE MAG VG BACK TO 2(+6)
025424,000764: 25,7045           77777                                    -                                     #  IT  2(+1)
025425,000765: 25,7046           20265                                    FRESHPD                               #  ZERO PD POINTER
025426,000766: 25,7047           33353                           STORE    VG                                    #  VG SCALED 2(+7) M/CS
025427,000767: 
025428,000768: 25,7050           75176        PREXIT             VMOVE    0                                     
025429,000769: 25,7051           00007                                    6                                     
025430,000770: 25,7052           33425                           STORE    DIFFVECT                              #  SAVE NEW DIFFVECT SCALED 2(+1)
025431,000771: 
025432,000772: 25,7053           75176                           VMOVE    0                                     
025433,000773: 25,7054           15575                                    ZEROVEC                               

Page 646

025435,000775: 25,7055           33411                           STORE    CBDT                                  #  CBDT = 0 FOR 501 ABORTS
025436,000776: 
025437,000777: 25,7056           44576                           ITCI     0                                     
025438,000778: 25,7057           00052                                    S2                                    #  RETURN
025439,000779: 
025440,000780: 25,7060           04000        CHEKEXIT           TC       INTPRET                               #  EXIT FOR VR CHECK FAILURES
025441,000781: 
025442,000782: 25,7061           76575                           RTB      1                                     
025443,000783: 25,7062           76776                           ITC                                            
025444,000784: 25,7063           20265                                    FRESHPD                               #  ZERO PD POINTER
025445,000785: 25,7064           25657                                    VRFAIL                                
025446,000786: 
025447,000787: 25,7065           53776        ANOVFLOW           SIGN     0                                     
025448,000788: 25,7066           13161                                    ANPSEUDO                              #  AN = 8 FT/S/S SIGNED WITH DELTA V
025449,000789: 25,7067           00015                                    12D                                   #  DELTA V
025450,000790: 25,7070           33441                           STORE    ANORMAL                               
025451,000791: 
025452,000792: 25,7071           76776                           ITC      0                                     
025453,000793: 25,7072           12775                                    GO-ON                                 
025454,000794: 
025455,000795: 25,7073           75175        FIXVG              VMOVE    1                                     
025456,000796: 25,7074           75771                           VXSC     RTB                                   
025457,000797: 25,7075           77777                                    -                                     #  IT  2(+1)
025458,000798: 25,7076           15573                                    DP2(-1)                               
025459,000799: 25,7077           20265                                    FRESHPD                               #  ZERO PD POINTER
025460,000800: 25,7100           33353                           STORE    VG                                    #  MAG VG 2(+5) M/CS SCALED 2(+7)
025461,000801: 
025462,000802: 25,7101           76776                           ITC      0                                     
025463,000803: 25,7102           13051                                    PREXIT                                #  GO CLOSE OUT 501 ABORT
025464,000804: 
025465,000805: 25,7103           45176        GETRANGE           DMOVE    0                                     
025466,000806: 25,7104           13151                                    MINRANGE                              
025467,000807: 25,7105           32025                           STORE    20D                                   #  FREEZE RANGE ANGLE AT MINRANGE
025468,000808: 
025469,000809: 25,7106           76776                           ITC      0                                     
025470,000810: 25,7107           12635                                    GOTRANGE                              #  CONTINUE
025471,000811: 
025472,000812: 25,7110           77576        PASTIT             EXIT     0                                     
025473,000813: 25,7111           03007                           TC       ALARM                                 
025474,000814: 25,7112           01403                           OCT      01403                                 
025475,000815: 25,7113           07060                           TC       CHEKEXIT                              
025476,000816: 
025477,000817: 25,7114           77576        SMACHECK           EXIT     0                                     
025478,000818: 25,7115           03007                           TC       ALARM                                 
025479,000819: 25,7116           01404                           OCT      01404                                 
025480,000820: 25,7117           07060                           TC       CHEKEXIT                              
025481,000821: 
025482,000822: 25,7120           77576        GAMCHECK           EXIT     0                                     
025483,000823: 25,7121           03007                           TC       ALARM                                 
025484,000824: 25,7122           01405                           OCT      01405                                 

Page 647

025486,000826: 25,7123           07060                           TC       CHEKEXIT                              
025487,000827: 
025488,000828: 25,7124           77576        TANCHECK           EXIT     0                                     
025489,000829: 25,7125           03007                           TC       ALARM                                 
025490,000830: 25,7126           01406                           OCT      01406                                 
025491,000831: 25,7127           07060                           TC       CHEKEXIT                              
025492,000832: 
025493,000833: 25,7130           06145 33650  RINTALT            2DEC     6500085    B-25                       #  400K FT RADIUS
025494,000834: 25,7132           02000 00000  DP2(-4)            2DEC     0.0625                                
025495,000835: 25,7134           00400 00000  DP2(-6)            2DEC     0.015625                              
025496,000836: 25,7136           00010 00000  DP2(-11)           2DEC     0.000488281                            
025497,000837: 25,7140           00004 00000  DP2(-12)           2DEC     0.000244141                            
025498,000838: 25,7142           06010 35650  KRANGE0            2DEC     0.188045173                            #                  2(+4)
025499,000839: 25,7144           51120 56532  KRANGE1            2DEC     -.713839193                            #                  2(+11)
025500,000840: 25,7146           25641 36206  KRANGE2            2DEC     0.681759381                            #                  2(+18)
025501,000841: 25,7150           00467 16603  MINRANGE           2DEC     0.019010080                            #  6.8436288 DEG   2(+0) REVS.
025502,000842: 25,7152           33537 15244  V400               2DEC     0.865198746                            #  110.7454396     2(+7) M/CS
025503,000843: 25,7154           00000 37200  TGOBIAS            2DEC     0.000059605                            #  5 SECS          2(+23) CS
025504,000844: 25,7156           20607 05301  VCRIT              2DEC     0.523875000                            #  22,000 FT/SEC   2(+7) M/CS
025505,000845: 25,7160           03775 17232  ANPSEUDO           2DEC     0.124846080                            #  8 FT/S/S        2(-9) M/CS/CS
025506,000846: 25,7162           06052 12650  RE                 2DEC     0.190084130                            #  6.378165 E6 M   2(+25) M
025507,000847: 25,7164           03025 05324  RVH                2DEC     0.095042065                            #  6.378165 E6 M   2(+26) M
025508,000848: 25,7166           36044 03661  FULHAM             2DEC     0.9397046                             #  COS 20 DEG.
025509,000849: 

Page 648

025511,000851: 
025512,000852:                                                                                                  #  THESE ROUTINES COMPUTE VR TO ACHIEVE A CIRCULAR EARTH- OR MOON-CENTERED ORBIT
025513,000853: 
025514,000854: 
025515,000855: 
025516,000856: 25,7170           45175        EARTHORB           DMOVE    1                                     
025517,000857: 25,7171           76776                           ITC                                            
025518,000858: 25,7172           13376                                    MUE                                   
025519,000859: 25,7173           13201                                    SQRTMU/R                              
025520,000860: 
025521,000861: 25,7174           45175        LUNDEBST           DMOVE    1                                     
025522,000862: 25,7175           63576                           INCR,1                                         
025523,000863: 25,7176           13400                                    MUM                                   
025524,000864: 25,7177           00007                                    6D                                    
025525,000865: 
025526,000866: 25,7200           47574        SQRTMU/R           NOLOD    2                                     
025527,000867: 25,7201           62714                           DDV      TSLT*                                 
025528,000868: 25,7202           53176                           SQRT                                           
025529,000869: 25,7203           01024                                    RMAG                                  
025530,000870: 25,7204           00021                                    8D,1                                  #  C(X1) =14-N  (EARTH)
025531,000871:                                                                                                  #        =20-N  (MOON)
025532,000872: 25,7205           41775                           VXV      1                                     
025533,000873: 25,7206           73166                           UNIT     VXSC                                  
025534,000874: 25,7207           01016                                    UNITR                                 
025535,000875: 25,7210           01323                                    UNITN                                 
025536,000876: 25,7211           33417                           STORE    VR                                    #  VR SCALED AT 2(+8)M/CS
025537,000877: 
025538,000878: 25,7212           76776                           ITC      0                                     
025539,000879: 25,7213           12431                                    CALCCBDT                              
025540,000880: 

Page 649

025542,000882: 
025543,000883:                                                                                                  #  THIS ROUTINE COMPUTES VR TO ACHIEVE HYPERBOLIC VELOCITY VF FOR TRANSEARTH INJECTION
025544,000884: 
025545,000885: 
025546,000886: 
025547,000887: 25,7214           62775        TRANSEAR           DDV      1                                     
025548,000888: 25,7215           63376                           TSLT*                                          
025549,000889: 25,7216           13400                                    MUM                                   
025550,000890: 25,7217           01024                                    RMAG                                  
025551,000891: 25,7220           00011                                    4,1                                   
025552,000892: 
025553,000893: 25,7221           73176                           UNIT     0                                     
025554,000894: 25,7222           01323                                    VF                                    #  VF SCALED AT 2(+4)M/CS
025555,000895: 25,7223           33367                           STORE    UNITF                                 
025556,000896: 
025557,000897: 25,7224           47572                           NOLOD    4                                     
025558,000898: 25,7225           42742                           DOT      DAD                                   
025559,000899: 25,7226           64716                           DMP      TSLT                                  
025560,000900: 25,7227           61742                           BDDV     DAD                                   
025561,000901: 25,7230           53176                           SQRT                                           
025562,000902: 25,7231           01016                                    UNITR                                 
025563,000903: 25,7232           15565                                    DP2(-2)                               
025564,000904: 25,7233           00035                                    28D                                   #  (VF SQ)
025565,000905: 25,7234           00004                                    3                                     
025566,000906: 25,7235           77777                                    -                                     
025567,000907: 25,7236           13263                                    DP2(-10)                              
025568,000908: 25,7237           32033                           STORE    26D                                   #  SCALED AT 2(+5)
025569,000909: 
025570,000910: 25,7240           47575                           NOLOD    1                                     
025571,000911: 25,7241           70766                           DAD      VXSC                                  
025572,000912: 25,7242           13261                                    DP2(-5)                               
025573,000913: 25,7243           01367                                    UNITF                                 
025574,000914: 
025575,000915: 25,7244           66774                           DSU      2                                     
025576,000916: 25,7245           75642                           VXSC     VAD                                   
025577,000917: 25,7246           75622                           VXSC     VSLT                                  
025578,000918: 25,7247           00033                                    26D                                   
025579,000919: 25,7250           13261                                    DP2(-5)                               
025580,000920: 25,7251           01016                                    UNITR                                 
025581,000921: 25,7252           77777                                    -                                     
025582,000922: 25,7253           00037                                    30D                                   #  (VF)
025583,000923: 25,7254           00003                                    2                                     
025584,000924: 25,7255           33417                           STORE    VR                                    #  VR SCALED AT 2(+8)M/CS
025585,000925: 
025586,000926: 25,7256           76776                           ITC      0                                     
025587,000927: 25,7257           12431                                    CALCCBDT                              
025588,000928: 
025589,000929: 25,7260           01000 00000  DP2(-5)            2DEC     0.03125                               
025590,000930: 25,7262           00020 00000  DP2(-10)           2DEC     0.000976563                            
025591,000931: 

Page 650

025593,000933: 
025594,000934:                                                                                                  #  THIS ROUTINE COMPUTES VR TO ACHIEVE A TRANSLUNAR ELLIPSE DEFINED BY A TARGET VECTOR RTRNSLUN AND A SEMI MAJOR
025595,000935:                                                                                                  #  AXIS SMA
025596,000936: 
025597,000937: 
025598,000938: 
025599,000939: 25,7264           63775        TRANSLUN           TSLT     1                                     
025600,000940: 25,7265           53176                           SQRT                                           
025601,000941: 25,7266           13376                                    MUE                                   
025602,000942: 25,7267           00002                                    1                                     
025603,000943: 
025604,000944: 25,7270           45175                           DMOVE    1                                     
025605,000945: 25,7271           56376                           TSRT*                                          
025606,000946: 25,7272           00037                                    30D                                   #  (RN)
025607,000947: 25,7273           00025                                    10D,1                                 #  RN RESCALED TO 2(+26)M
025608,000948: 
025609,000949: 25,7274           75174                           VMOVE    2                                     
025610,000950: 25,7275           45232                           VSRT*    BVSU                                  
025611,000951: 25,7276           73026                           UNIT     VSRT                                  
025612,000952: 25,7277           00766                                    RN                                    
025613,000953: 25,7300           00025                                    10D,1                                 #  RTRNSLUN-RMAG SCALED AT 2(+25)M
025614,000954: 25,7301           01323                                    RTRNSLUN                              
025615,000955: 25,7302           00002                                    1                                     
025616,000956: 
025617,000957: 25,7303           45775                           VSRT     1                                     
025618,000958: 25,7304           46776                           BVSU                                           
025619,000959: 25,7305           01016                                    UNITR                                 
025620,000960: 25,7306           00002                                    1                                     
025621,000961: 25,7307           33367                           STORE    UNITD                                 
025622,000962: 
025623,000963: 25,7310           47575                           NOLOD    1                                     
025624,000964: 25,7311           50776                           VAD                                            
025625,000965: 25,7312           01016                                    UNITR                                 
025626,000966: 25,7313           33375                           STORE    UNITS                                 
025627,000967: 
025628,000968: 25,7314           71174                           ABVAL    2                                     
025629,000969: 25,7315           70742                           DAD      DAD                                   
025630,000970: 25,7316           56776                           TSRT                                           
025631,000971: 25,7317           01323                                    RTRNSLUN                              
025632,000972: 25,7320           00037                                    30D                                   #  (C)
025633,000973: 25,7321           77777                                    -                                     #  (RN)
025634,000974: 25,7322           00002                                    1                                     
025635,000975: 25,7323           33433                           STORE    S                                     #  S SCALED AT 2(+26)M
025636,000976: 
025637,000977: 25,7324           47575                           NOLOD    1                                     
025638,000978: 25,7325           66676                           DSU      TSLC                                  
025639,000979: 25,7326           00037                                    30D                                   #  (C)
025640,000980: 25,7327           00050                                    X2                                    
025641,000981: 25,7330           33435                           STORE    DN                                    
025642,000982: 
025643,000983: 25,7331           47575                           NOLOD    1                                     

Page 651

025645,000985: 25,7332           56326                           TSRT*    BDSU                                  
025646,000986: 25,7333           00016                                    6,2                                   
025647,000987: 25,7334           01437                                    SMA                                   
025648,000988: 
025649,000989: 25,7335           64773                           DMP      3                                     
025650,000990: 25,7336           61711                           BDDV     INCR,2                                
025651,000991: 25,7337           63253                           TSLT*    SQRT                                  
025652,000992: 25,7340           53766                           SIGN     VXSC                                  
025653,000993: 25,7341           01437                                    SMA                                   
025654,000994: 25,7342           01435                                    DN                                    
025655,000995: 25,7343           77777                                    -                                     
025656,000996: 25,7344           00021                                    16D                                   
025657,000997: 25,7345           00002                                    0,2                                   
025658,000998: 25,7346           01425                                    SGNTHETA                              
025659,000999: 25,7347           01375                                    UNITS                                 
025660,001000: 
025661,001001: 25,7350           56775                           TSRT     1                                     
025662,001002: 25,7351           65672                           BDSU     TSRT                                  
025663,001003: 25,7352           01433                                    S                                     
025664,001004: 25,7353           00007                                    6D                                    
025665,001005: 25,7354           01437                                    SMA                                   
025666,001006: 25,7355           00005                                    4                                     
025667,001007: 
025668,001008: 25,7356           64772                           DMP      4                                     
025669,001009: 25,7357           61653                           BDDV     SQRT                                  
025670,001010: 25,7360           56766                           TSRT     VXSC                                  
025671,001011: 25,7361           50622                           VAD      VSLT                                  
025672,001012: 25,7362           75776                           VXSC                                           
025673,001013: 25,7363           01437                                    SMA                                   
025674,001014: 25,7364           01433                                    S                                     
025675,001015: 25,7365           77777                                    -                                     
025676,001016: 25,7366           00007                                    6                                     
025677,001017: 25,7367           01367                                    UNITD                                 
025678,001018: 25,7370           77777                                    -                                     
025679,001019: 25,7371           00012                                    9D                                    
025680,001020: 25,7372           33417                           STORE    VR                                    #  VR SCALED AT 2(+8)M/CS
025681,001021: 
025682,001022: 25,7373           76776                           ITC      0                                     
025683,001023: 25,7374           12431                                    CALCCBDT                              
025684,001024: 
025685,001025: 25,7375           04507 33420  MUE                2DEC     0.145011008                            #  3.98603223 E14 SCALED 2(+38)M(+3)/CS(+2)
025686,001026: 25,7377           03516 10273  MUM                2DEC     0.114151696                            #  4.90277800 E08 SCALED 2(+32)M(+3)/CS(+2)
025687,001027: 

Page 652

025689,001029: 
025690,001030:                                                                                                  #  THIS ROUTINE COMPUTES THE DESIRED THRUST DIRECTION AS A HALF UNIT VECTOR XSC. IT COMPUTES THE HALF UNIT VECTOR
025691,001031:                                                                                                  #  YSC ALONG RN*XSC  (I.E. DEFINES A PITCH AXIS HORIZONTAL, YAW AXIS UP ROLL ATTITUDE) AND ZSC ALONG XSC*YSC. IT
025692,001032:                                                                                                  #  REQUIRES PRIOR PASSES THROUGH ROUTINES CALCRVG AND CALCVGB TO ESTABLISH UNITR, VG, AND CBDT. X1 MUST CONTAIN
025693,001033:                                                                                                  #  0,2,4... TO LOAD THE APPROPRIATE INTEGRATED INITIAL THRUST ACCELERATION MAGNITUDE ATDT
025694,001034: 
025695,001035: 
025696,001036: 
025697,001037: 25,7401           73176        CALCXSC            UNIT     0                                     
025698,001038: 25,7402           01353                                    VG                                    
025699,001039: 25,7403           33353                           STORE    UNITVG                                
025700,001040: 
025701,001041: 25,7404           47574                           NOLOD    2                                     
025702,001042: 25,7405           40622                           VPROJ    VSLT                                  
025703,001043: 25,7406           46776                           BVSU                                           
025704,001044: 25,7407           01411                                    CBDT                                  #  SCALED AT 2(+4)M/CS
025705,001045: 25,7410           00003                                    2                                     
025706,001046: 25,7411           01411                                    CBDT                                  
025707,001047: 
025708,001048: 25,7412           47571                           NOLOD    5                                     
025709,001049: 25,7413           71110                           ABVAL    DDV*                                  
025710,001050: 25,7414           51126                           DSQ      BDSU                                  
025711,001051: 25,7415           53120                           SQRT     DMP*                                  
025712,001052: 25,7416           63766                           TSLT     VXSC                                  
025713,001053: 25,7417           50753                           VAD      UNIT                                  
025714,001054: 25,7420           03631                                    ATDT,1                                #  SCALED AT 2(+5)M/CS
025715,001055: 25,7421           21043                                    NEARONE                               
025716,001056: 25,7422           03631                                    ATDT,1                                
025717,001057: 25,7423           00003                                    2                                     
025718,001058: 25,7424           01353                                    UNITVG                                
025719,001059: 25,7425           33367                           STORE    XSC                                   
025720,001060: 
025721,001061: 25,7426           47574                           NOLOD    2                                     
025722,001062: 25,7427           41753                           VXV      UNIT                                  
025723,001063: 25,7430           47176                           COMP                                           
025724,001064: 25,7431           01016                                    UNITR                                 
025725,001065: 25,7432           33375                           STORE    YSC                                   
025726,001066: 
025727,001067: 25,7433           43575                           TEST     1                                     
025728,001068: 25,7434           75033                           VMOVE    COMP                                  
025729,001069: 25,7435           00054                                    SPS2FLAG                              
025730,001070: 25,7436           13442                                    HEADWN2                               
025731,001071: 25,7437           01375                                    YSC                                   
025732,001072: 25,7440           33375                           STORE    YSC                                   
025733,001073: 
025734,001074: 25,7441           47574        HEADWN2            NOLOD    2                                     
025735,001075: 25,7442           41753                           VXV      UNIT                                  
025736,001076: 25,7443           47176                           COMP                                           
025737,001077: 25,7444           01367                                    XSC                                   
025738,001078: 25,7445           33403                           STORE    ZSC                                   

Page 653

025740,001080: 25,7446           40576                           ITCQ     0                                     
025741,001081: 

Page 654

025743,001083: 
025744,001084:                                                                                                  #        THIS ROUTINE RESOLVES THE VECTOR IN RTINIT THROUGH AN ANGULAR ROTATION WIE(DTEAROT) SCALED AT ONE REV-
025745,001085:                                                                                                  #  OLUTION ABOUT THE UNIT POLAR AXIS UMITW. IT REQUIRES DTEAROT SCALED AT 2(+28)CS. IT LEAVES THE RESOLVED
025746,001086:                                                                                                  #  VECTOR IN RT WITH EASTERLY AND NORMAL COMPONENTS IN RTEAST AND RTNORM RESPECTIVELY, AT THE SAME SCALING. FOR
025747,001087:                                                                                                  #  CONTINUOUS UPDATING ONLY ONE ENTRY AT EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2
025748,001088: 
025749,001089: 
025750,001090: 
025751,001091: 25,7447           41775        EARROT1            VXV      1                                     
025752,001092: 25,7450           44776                           VSLT                                           
025753,001093: 25,7451           01044                                    UNITW                                 
025754,001094: 25,7452           01115                                    RTINIT                                
025755,001095: 25,7453           00003                                    2                                     
025756,001096: 25,7454           33123                           STORE    RTEAST                                
025757,001097: 
025758,001098: 25,7455           47575                           NOLOD    1                                     
025759,001099: 25,7456           41622                           VXV      VSLT                                  
025760,001100: 25,7457           01044                                    UNITW                                 
025761,001101: 25,7460           00002                                    1                                     
025762,001102: 25,7461           33131                           STORE    RTNORM                                
025763,001103: 
025764,001104: 25,7462           72775        EARROT2            STZ      1                                     #  BRANCH TO OVERADAY UNTIL DTEAROT
025765,001105: 25,7463           62746                           DDV      BOV                                   #  LESS THAN ONE SIDEREAL DAY
025766,001106: 25,7464           00123                                    OVFIND                                
025767,001107: 25,7465           01145                                    DTEAROT                               
025768,001108: 25,7466           13520                                    1/WIE                                 #  TIME FOR ONE SIDEREAL REVOLUTION
025769,001109: 25,7467           13507                                    OVERADAY                              
025770,001110: 25,7470           32037                           STORE    30D                                   
025771,001111: 
025772,001112: 25,7471           47574                           NOLOD    2                                     
025773,001113: 25,7472           55132                           COS      DSU                                   
025774,001114: 25,7473           75776                           VXSC                                           
025775,001115: 25,7474           15573                                    DP2(-1)                               
025776,001116: 25,7475           01131                                    RTNORM                                
025777,001117: 
025778,001118: 25,7476           57174                           SIN      2                                     
025779,001119: 25,7477           75642                           VXSC     VAD                                   
025780,001120: 25,7500           50776                           VAD                                            
025781,001121: 25,7501           00037                                    30D                                   
025782,001122: 25,7502           01123                                    RTEAST                                
025783,001123: 25,7503           01115                                    RTINIT                                
025784,001124: 25,7504           33215                           STORE    RT                                    
025785,001125: 
025786,001126: 25,7505           40576                           ITCQ     0                                     
025787,001127: 
025788,001128: 25,7506           53775        OVERADAY           SIGN     1                                     
025789,001129: 25,7507           65776                           BDSU                                           
025790,001130: 25,7510           13520                                    1/WIE                                 
025791,001131: 25,7511           01145                                    DTEAROT                               
025792,001132: 25,7512           01145                                    DTEAROT                               
025793,001133: 25,7513           33145                           STORE    DTEAROT                               

Page 655

025795,001135: 25,7514           43776                           BPL      0                                     #  GO BACK WITHOUT DISTURBING QPRET.
025796,001136: 25,7515           13520                                    1/WIE                                 #  ANY POSITIVE CONSTANT WILL DO.
025797,001137: 25,7516           13463                                    EARROT2                               
025798,001138: 
025799,001139: 25,7517           01015 34732  1/WIE              2DEC     0.032098629                            #  8.61641000 E4 SECS SCALED AT 2(+28)CS
025800,001140: 

Page 656

025802,001142: 
025803,001143:                                                                                                  #  CONVERSION CONSTANTS FOR FREE FALL INTEGRATION PROGRAM
025804,001144: 
025805,001145: 25,7521           20304 23351  SCLRAVMD           2DEC     .512                                  
025806,001146: 25,7523           37200 00000  SCLRMDAV           2DEC     1000       B-10                       
025807,001147: 25,7525           21601 34056  SCLTAVMD           2DEC     4.4384169  B-3                        
025808,001148: 25,7527           24605 15301  SCLVAVMD           2DEC     .64876819                             
025809,001149: 25,7531           30523 00147  SCLVMDAV           2DEC     .770691300                            
025810,001150: 
025811,001151: 
025812,001152:                                                                                                  #  POWERED FLIGHT CONSTANTS. DELCDU SCALED AT KE/2 REVS (KE =A/P GAIN=1.5) EVS (KE =A/P GAIN =1.5)
025813,001153: 25,7533           00134 27361  DELCDU             2DEC     0.00566                               #                        ( =1.02 DEG)
025814,001154: 25,7535           00113 26154                     2DEC     0.00462                               #                        ( =0.83 DEG)
025815,001155: 25,7537           00216 33625                     2DEC     0.00872                               #                        ( =1.57 DEG)
025816,001156: 25,7541           00450 37342  MUE(41)            2DEC     .145011008 B-3                        #  SCALED AT 2(+41)M(+3)/CS(+2)
025817,001157: 

Page 657

025819,001159: 
025820,001160:                                                                                                  #  ROUTINE CALCMANU COMPUTES THE SEQUENCE OF MANUEVERS REQUIRED IN GOING FROM AN INITIAL ATTITUDE DEFINED BY THE
025821,001161:                                                                                                  #  EULER ANGLES IN THETAD,+1,+2 WHICH ARE THE PRESENT OUTER, MIDDLE, INNER GIMBAL ANGLES, TO AN ATTITUDE DEFINED
025822,001162:                                                                                                  #  BY THE MATRIX X,Y,ZSCD, THE DESIRED BODY AXES. CALCMANU WILL EXIT WITH A MANEUVER ANGLE IN THETAMAN SCALED AT
025823,001163:                                                                                                  #  1 REV, AND THE HALF UNIT VECTOR IN WC. ROTATIONS ARE BASED ON A PITCH/YAW-THEN ROLL POLICY. IF THIS
025824,001164:                                                                                                  #  POLICY WOULD CAUSE GIMBAL LOCK, A ROLL-PITCH/YAW-ROLL IS ADOPTED. IN EXTREMELY RARE CASES, INVOLVING MANEU-
025825,001165:                                                                                                  #  VERS FROM ONE GIMBAL LOCK AREA TO THE OTHER, THE POLICY MAY BE PITCH/YAW-ROLL-PITCH/YAW-ROLL, OR EVEN ROLL-
025826,001166:                                                                                                  #  PITCH/YAW-ROLL-PITCH/YAW-ROLL. IN ALL CASES, IF THE MANEUVER IS A ROLL, ROLLFLAG WILL BE ON. IF THERE IS NO
025827,001167:                                                                                                  #  MANEUVER REQUIRED,(VEHICLE LESS THAN ABOUT 3 DEGS AWAY FROM DESIRED ATTITUDE), CALCFLAG WILL BEOFF.
025828,001168:                                                                                                  #  OTHERWISE, CALCFLAG IS ON. CALCMANU PRESUMES THAT INITIAL CONDITIONS AND FINAL CONDITIONS ARE NOT IN GIMBAL LOCK
025829,001169: 26,6000                                           SETLOC   54000                                 
025830,001170: 26,6000           77576        CALCMANU           EXIT     0                                     
025831,001171: 
025832,001172: 26,6001           03440                           TC       FLAG2UP                               
025833,001173: 26,6002           12000                           OCT      12000                                 #  SET BACKFLAG, CALCFLAG
025834,001174: 
025835,001175: 26,6003           03452                           TC       FLAG2DWN                              
025836,001176: 26,6004           04600                           OCT      04600                                 #  REMOVE ROLLFLAG  ,NEGFLAG,BEGINFLG
025837,001177: 
025838,001178: 26,6005           04000                           TC       INTPRET                               
025839,001179: 
025840,001180: 26,6006           75575                           AXT,1    1                                     
025841,001181: 26,6007           45572                           ITA      ITC                                   
025842,001182: 26,6010           00007                                    6                                     
025843,001183: 26,6011           01472                                    EXITCADR                              
025844,001184: 26,6012           12013                                    THETRIG                               
025845,001185: 
025846,001186: 26,6013           76776                           ITC      0                                     
025847,001187: 26,6014           12110                                    CALCSMNB                              #  COMPUTE X,Y,ZNB
025848,001188: 
025849,001189: 26,6015           76776                           ITC      0                                     
025850,001190: 26,6016           12213                                    CALCNBSC                              #  COMPUTE X,Y,ZSC
025851,001191: 
025852,001192: 26,6017           74575                           AXT,2    1                                     
025853,001193: 26,6020           76576                           RTB                                            #  SET X2 TO 0
025854,001194: 26,6021           00001                                    0                                     
025855,001195: 26,6022           20265                                    FRESHPD                               #  SET PD POINTER TO 0
025856,001196: 
025857,001197: 26,6023           42774                           DOT      2                                     
025858,001198: 26,6024           65132                           ABS      DSU                                   
025859,001199: 26,6025           43776                           BPL                                            
025860,001200: 26,6026           01367                                    XSC                                   
025861,001201: 26,6027           01411                                    XSCD                                  
025862,001202: 26,6030           15655                                    COSSIX                                
025863,001203: 26,6031           14102                                    180/ZERO                              
025864,001204: 
025865,001205: 26,6032           41775        NOT179             VXV      1                                     
025866,001206: 26,6033           73176                           UNIT                                           
025867,001207: 26,6034           01367                                    XSC                                   
025868,001208: 26,6035           01411                                    XSCD                                  
025869,001209: 26,6036           33323                           STORE    WC                                    

Page 658

025871,001211: 
025872,001212: 26,6037           65175        ACCEPTWC           ABS      1                                     
025873,001213: 26,6040           66616                           DSU      BPL                                   
025874,001214: 26,6041           01325                                    WC         +2                         
025875,001215: 26,6042           15543                                    COS27                                 #  IF WC IS 27 OR LESS DEGS AWAY FROM
025876,001216: 26,6043           15520                                    GETPTCH                               #  +,- YSM, GIMBAL LOCK IS IMPOSSIBLE
025877,001217: 
025878,001218: 26,6044           41775                           VXV      1                                     #  PITCH/YAW MAY CAUSE GIMBAL LOCK. VARIOUS
025879,001219: 26,6045           41753                           VXV      UNIT                                  #  TESTS MUST BE MADE
025880,001220: 26,6046           01323                                    WC                                    
025881,001221: 26,6047           15601                                    UNITY                                 #  MP IS POINT OF CLOSEST APPROACH TO +YSM
025882,001222: 26,6050           01323                                    WC                                    #  MP TO PD AT 0
025883,001223: 
025884,001224: 26,6051           45176                           DMOVE    0                                     
025885,001225: 26,6052           15575                                    ZEROVEC                               
025886,001226: 26,6053           32020                           STORE    15D                                   
025887,001227: 
025888,001228: 26,6054           47575                           NOLOD    1                                     
025889,001229: 26,6055           41776                           VXV                                            
025890,001230: 26,6056           01411                                    XSCD                                  #  MP*XSCD TO PD AT 6
025891,001231: 
025892,001232: 26,6057           41775                           VXV      1                                     
025893,001233: 26,6060           42616                           DOT      BPL                                   
025894,001234: 26,6061           00001                                    0                                     
025895,001235: 26,6062           01367                                    XSC                                   
025896,001236: 26,6063           77777                                    -                                     #  BRANCH TO BEGINARC IF ARC FROM XSC TO
025897,001237: 26,6064           14351                                    BEGINARC                              #  XSCD DOES NOT INCLUDE MP OR -MP
025898,001238: 
025899,001239: 26,6065           50775                           VAD      1                                     
025900,001240: 26,6066           42616                           DOT      BPL                                   
025901,001241: 26,6067           01367                                    XSC                                   
025902,001242: 26,6070           01411                                    XSCD                                  
025903,001243: 26,6071           00001                                    0                                     
025904,001244: 26,6072           14076                                    PLUSPOLE                              
025905,001245: 
025906,001246: 26,6073           42576                           SWITCH   0                                     
025907,001247: 26,6074           00050                                    NEGFLAG                               #  -MP IS ON ARC
025908,001248: 
025909,001249: 26,6075           76776        PLUSPOLE           ITC      0                                     
025910,001250: 26,6076           14201                                    NORMLIMS                              
025911,001251: 
025912,001252: 26,6077           76776                           ITC      0                                     
025913,001253: 26,6100           14316                                    FILENORM                              
025914,001254: 
025915,001255: 26,6101           42775        180/ZERO           DOT      1                                     
025916,001256: 26,6102           73776                           BMN                                            
025917,001257: 26,6103           01367                                    XSC                                   
025918,001258: 26,6104           01411                                    XSCD                                  
025919,001259: 26,6105           15351                                    180CASE                               
025920,001260: 
025921,001261: 26,6106           47575                           NOLOD    1                                     

Page 659

025923,001263: 26,6107           66756                           DSU      BMN                                   
025924,001264: 26,6110           15541                                    COS3                                  
025925,001265: 26,6111           15401                                    NOGIMTST                              
025926,001266: 
025927,001267: 26,6112           42773                           DOT      3                                     
025928,001268: 26,6113           75622                           VXSC     VSLT                                  
025929,001269: 26,6114           74633                           VSU      COMP                                  
025930,001270: 26,6115           73012                           UNIT     DOT                                   
025931,001271: 26,6116           01425                                    ZSCD                                  
025932,001272: 26,6117           01367                                    XSC                                   
025933,001273: 26,6120           01367                                    XSC                                   
025934,001274: 26,6121           00003                                    2                                     
025935,001275: 26,6122           01425                                    ZSCD                                  
025936,001276: 26,6123           01403                                    ZSC                                   #  COSROLL TO PD AT 0 SCALED AT 2(2)
025937,001277: 
025938,001278: 26,6124           47575                           NOLOD    1                                     
025939,001279: 26,6125           66616                           DSU      BPL                                   
025940,001280: 26,6126           15655                                    COSSIX                                
025941,001281: 26,6127           14171                                    CALCSNAP                              
025942,001282: 
025943,001283: 26,6130           41775                           VXV      1                                     #  ROLL IS REQUIRED
025944,001284: 26,6131           42776                           DOT                                            
025945,001285: 26,6132           01403                                    ZSC                                   
025946,001286: 26,6133           01425                                    ZSCD                                  
025947,001287: 26,6134           01367                                    XSC                                   #  XSC.(ZSC*ZSCD) TO PD AT 2
025948,001288: 
025949,001289: 26,6135           63775                           TSLT     1                                     
025950,001290: 26,6136           61056                           ACOS     SIGN                                  
025951,001291: 26,6137           00001                                    0                                     
025952,001292: 26,6140           00002                                    1                                     
025953,001293: 26,6141           33455                           STORE    THETAMAN                              
025954,001294: 
025955,001295: 26,6142           65174                           ABS      2                                     
025956,001296: 26,6143           66756                           DSU      BMN                                   
025957,001297: 26,6144           76776                           ITC                                            
025958,001298: 26,6145           01371                                    XSC        +2                         
025959,001299: 26,6146           15545                                    COS63                                 
025960,001300: 26,6147           14152                                    NOTEST                                
025961,001301: 26,6150           15240                                    ROLLTEST                              #  SHORT ROLL MAY GO THROUGH GIMBAL LOCK
025962,001302: 
025963,001303: 26,6151           53775        NOTEST             SIGN     1                                     #  ATTACH SIGN OF THETAMAN TO WC
025964,001304: 26,6152           75776                           VXSC                                           
025965,001305: 26,6153           21043                                    NEARONE                               
025966,001306: 26,6154           01455                                    THETAMAN                              
025967,001307: 26,6155           01367                                    XSC                                   
025968,001308: 26,6156           33323                           STORE    WC                                    
025969,001309: 
025970,001310: 26,6157           65176                           ABS      0                                     #  THETAMAN MUST BE +VE FOR MANUJOB
025971,001311: 26,6160           01455                                    THETAMAN                              
025972,001312: 26,6161           33455                           STORE    THETAMAN                              

Page 660

025974,001314: 26,6162           77576                           EXIT     0                                     
025975,001315: 
025976,001316: 26,6163           03440                           TC       FLAG2UP                               
025977,001317: 26,6164           04000                           OCT      04000                                 #  SET ROLLFLAG
025978,001318: 
025979,001319: 26,6165           04000                           TC       INTPRET                               
025980,001320: 
025981,001321: 26,6166           44576                           ITCI     0                                     
025982,001322: 26,6167           01472                                    EXITCADR                              #  EXIT ON THE ROLL WHEN PITCH/YAW IS OVER
025983,001323: 
025984,001324: 26,6170           42575        CALCSNAP           SWITCH   1                                     #  WE ARE THERE
025985,001325: 26,6171           76776                           ITC                                            
025986,001326: 26,6172           00046                                    CALCFLAG                              #  REMOVE CALCFLAG
025987,001327: 26,6173           12167                                    CALCSCNB                              
025988,001328: 
025989,001329: 26,6174           76776                           ITC      0                                     
025990,001330: 26,6175           12072                                    CALCCDU                               #  SET THETAD,S TO CORRECT VALUES
025991,001331: 
025992,001332: 26,6176           44576                           ITCI     0                                     
025993,001333: 26,6177           01472                                    EXITCADR                              #  THIS IS THE LAST EXIT FROM CALCMANU
025994,001334: 
025995,001335: 26,6200           45574        NORMLIMS           ITA      2                                     
025996,001336: 26,6201           76455                           RTB      AXC,1                                 #  SET PD TO 18
025997,001337: 26,6202           65103                           ABS      ACOS                                  
025998,001338: 26,6203           01455                                    THETAMAN                              #  (TEMPORARY STORAGE)
025999,001339: 26,6204           15645                                    SETPD18                               
026000,001340: 26,6205           00003                                    2                                     #  -2 TO X1
026001,001341: 26,6206           00003                                    2                                     #  C TO 18
026002,001342: 
026003,001343: 26,6207           47575        BACKLIM            NOLOD    1                                     
026004,001344: 26,6210           65776                           BDSU                                           
026005,001345: 26,6211           15557                                    30DEG                                 #  30-C TO 20 AT 4PI
026006,001346: 
026007,001347: 26,6212           55176                           COS      0                                     
026008,001348: 26,6213           00025                                    20D                                   #  COS(30-C) TO PD AT 22
026009,001349: 
026010,001350: 26,6214           57174                           SIN      2                                     
026011,001351: 26,6215           62722                           DDV      DMP                                   
026012,001352: 26,6216           61072                           ACOS     TSRT                                  
026013,001353: 26,6217           00025                                    20D                                   
026014,001354: 26,6220           77777                                    -                                     
026015,001355: 26,6221           15551                                    1/TAN33                               #  (1/TAN33 SCALED AT 2(1) )
026016,001356: 26,6222           00002                                    1                                     #  OKA TO 22 AT 4PI
026017,001357: 
026018,001358: 26,6223           45176                           DMOVE    0                                     
026019,001359: 26,6224           15563                                    90DEG                                 #  90 DEGREES TO 24
026020,001360: 
026021,001361: 26,6225           43176                           SMOVE    0                                     
026022,001362: 26,6226           00047                                    X1                                    #  X1 TO 26

Page 661

026024,001364: 26,6227           45174                           DMOVE    2                                     
026025,001365: 26,6230           47056                           COMP     SIGN                                  
026026,001366: 26,6231           70633                           DAD      COMP                                  
026027,001367: 26,6232           15563                                    90DEG                                 #  -180 IF X1=-2,0 IF X1=0, TO 24
026028,001368: 
026029,001369: 26,6233           45175                           DMOVE    1                                     
026030,001370: 26,6234           43433                           TEST     COMP                                  
026031,001371: 26,6235           15563                                    90DEG                                 #  90DEG SCALED AT 4PI
026032,001372: 26,6236           00050                                    NEGFLAG                               
026033,001373: 26,6237           14242                                    POSPOLE                               
026034,001374: 26,6240           32033                           STORE    26D                                   
026035,001375: 
026036,001376:                                                                                                  #  +90 IN MPAC IF FLAG=0
026037,001377:                                                                                                  #  -90 IN MPAC IF FLAG=1
026038,001378: 26,6241           47575        POSPOLE            NOLOD    1                                     
026039,001379: 26,6242           53776                           SIGN                                           
026040,001380: 26,6243           01325                                    WC         +2                         
026041,001381: 
026042,001382:                                                                                                  #  +90 IN 24 IF
026043,001383:                                                                                                  #    A) FLAG=0, WC +2 POS
026044,001384:                                                                                                  #    B) FLAG=1, WC +2 NEG
026045,001385:                                                                                                  #  -90 IN 24 IF
026046,001386:                                                                                                  #    A) FLAG=0, WC +2 NEG
026047,001387:                                                                                                  #    B) FLAG=1, WC +2 POS
026048,001388: 26,6244           47575                           NOLOD    1                                     
026049,001389: 26,6245           66776                           DSU                                            
026050,001390: 26,6246           00031                                    24D                                   #  180J-90SIGMIM TO 28
026051,001391: 
026052,001392: 26,6247           43175                           SMOVE    1                                     
026053,001393: 26,6250           47776                           BZE                                            
026054,001394: 26,6251           00047                                    X1                                    
026055,001395: 26,6252           14300                                    CNEGLIMS                              #  TO CNEGLIMS IF X1 IS ZERO
026056,001396: 
026057,001397: 26,6253           66776                           DSU      0                                     
026058,001398: 26,6254           00035                                    28D                                   
026059,001399: 26,6255           00027                                    22D                                   
026060,001400: 26,6256           32007                           STORE    6                                     #  NBL1 TO 6, SCALED AT 4PI
026061,001401: 
026062,001402: 26,6257           70776                           DAD      0                                     
026063,001403: 26,6260           00027                                    22D                                   
026064,001404: 26,6261           32010                           STORE    7                                     #  NEL1 TO 7
026065,001405: 
026066,001406: 26,6262           66775                           DSU      1                                     
026067,001407: 26,6263           43776                           BPL                                            
026068,001408: 26,6264           00023                                    18D                                   
026069,001409: 26,6265           15561                                    3DEG                                  
026070,001410: 26,6266           14314                                    ENDNORMS                              
026071,001411: 
026072,001412: 26,6267           75575                           AXT,1    1                                     
026073,001413: 26,6270           76433                           RTB      COMP                                  

Page 662

026075,001415: 26,6271           00001                                    0                                     #  SET X1 TO 0
026076,001416: 26,6272           15651                                    SETPD20                               
026077,001417: 26,6273           00023                                    18D                                   #  COMPLEMENT C
026078,001418: 26,6274           32023                           STORE    18D                                   
026079,001419: 
026080,001420: 26,6275           76776                           ITC      0                                     
026081,001421: 26,6276           14210                                    BACKLIM                               #  BACKLIMITS EXIST IF C LESS THAN 3
026082,001422: 
026083,001423: 26,6277           66776        CNEGLIMS           DSU      0                                     
026084,001424: 26,6300           00035                                    28D                                   
026085,001425: 26,6301           00027                                    22D                                   
026086,001426: 26,6302           32011                           STORE    8D                                    #  NBL0 TO 8
026087,001427: 
026088,001428: 26,6303           70774                           DAD      2                                     
026089,001429: 26,6304           73535                           LXA,1    SXA,1                                 
026090,001430: 26,6305           75576                           AXT,1                                          
026091,001431: 26,6306           00035                                    28D                                   
026092,001432: 26,6307           00027                                    22D                                   
026093,001433: 26,6310           00116                                    MPAC                                  
026094,001434: 26,6311           00012                                    9D                                    #  NEL0 TO 9, PROTECTING 10
026095,001435: 26,6312           00001                                    0                                     #  RESET X1 TO 0
026096,001436: 
026097,001437: 26,6313           44576        ENDNORMS           ITCI     0                                     #  END OF NORMLIMS CALCULATIONS
026098,001438: 26,6314           01455                                    THETAMAN                              #  END OF NORMLIMS CALCS
026099,001439: 
026100,001440: 26,6315           43176        FILENORM           SMOVE    0                                     
026101,001441: 26,6316           00007                                    6D                                    #  6 INTO 10 IF X1=0 ,OR
026102,001442: 26,6317           34025                           STORE    10D,1                                 #  6 INTO 12 IF X1=-2
026103,001443: 
026104,001444: 26,6320           43175                           SMOVE    1                                     #  7 INTO 11 IF X1=0  , OR
026105,001445: 26,6321           62576                           INCR,2                                         #  7 INTO 13 IF X1=-2
026106,001446: 26,6322           00010                                    7                                     
026107,001447: 26,6323           77776                          -         2                                     #  MOVE LIMIT LIST POINTER BY -2 (TO -2)
026108,001448: 26,6324           34027                           STORE    11D,1                                 
026109,001449: 
026110,001450: 26,6325           43175                           SMOVE    1                                     
026111,001451: 26,6326           73611                           BMN      SWITCH                                
026112,001452: 26,6327           00047                                    X1                                    
026113,001453: 26,6330           14341                                    SET15D                                
026114,001454: 26,6331           00044                                    BACKFLAG                              #  SET BACKFLAG
026115,001455: 
026116,001456: 26,6332           43176                           SMOVE    0                                     
026117,001457: 26,6333           00011                                    8D                                    
026118,001458: 26,6334           32015                           STORE    12D                                   #  8 INTO 12 IF X1=0
026119,001459: 
026120,001460: 26,6335           43176                           SMOVE    0                                     
026121,001461: 26,6336           00012                                    9D                                    
026122,001462: 26,6337           32016                           STORE    13D                                   #  9 INTO 13 IF X1=0
026123,001463: 
026124,001464: 26,6340           45175        SET15D             DMOVE    1                                     

Page 663

026126,001466: 26,6341           43433                           TEST     COMP                                  
026127,001467: 26,6342           15573                                    UNITX                                 
026128,001468: 26,6343           00050                                    NEGFLAG                               
026129,001469: 26,6344           14347                                    PLUSMP                                
026130,001470: 26,6345           32020                           STORE    15D                                   
026131,001471: 
026132,001472: 26,6346           47576        PLUSMP             NOLOD    0                                     
026133,001473: 26,6347           32020                           STORE    15D                                   
026134,001474: 
026135,001475: 26,6350           75575        BEGINARC           AXT,1    1                                     
026136,001476: 26,6351           42576                           SWITCH                                         #  SET X1 TO 0
026137,001477: 26,6352           00001                                    0                                     
026138,001478: 26,6353           00051                                    BEGINFLG                              #  SET BEGINFLG
026139,001479: 
026140,001480: 26,6354           76575        ENDCHEK            RTB      1                                     
026141,001481: 26,6355           77576                           EXIT                                           
026142,001482: 26,6356           15645                                    SETPD18                               
026143,001483: 
026144,001484: 26,6357           03452                           TC       FLAG2DWN                              
026145,001485: 26,6360           00400                           OCT      00400                                 #  REMOVE NEGFLAG
026146,001486: 
026147,001487: 26,6361           04000                           TC       INTPRET                               
026148,001488: 
026149,001489: 26,6362           64175                           ABS*     1                                     
026150,001490: 26,6363           65616                           BDSU     BPL                                   
026151,001491: 26,6364           02761                                    XSC        +2,1                       
026152,001492: 26,6365           15545                                    COS63                                 #  IS END CLOSE TO A POLE Q.
026153,001493: 26,6366           14714                                    OVERYET                               #  BRANCH TO OVERYET IF NOT
026154,001494: 
026155,001495: 26,6367           43575        SETWARN            TEST     1                                     
026156,001496: 26,6370           42576                           SWITCH                                         
026157,001497: 26,6371           00051                                    BEGINFLG                              
026158,001498: 26,6372           14375                                    DONTSET                               #  SET ROLLFLAG IF BEGINNING OF ARC NEAR
026159,001499: 26,6373           00045                                    ROLLFLAG                              #    LOCK
026160,001500: 
026161,001501: 26,6374           44175        DONTSET            DMOVE*   1                                     
026162,001502: 26,6375           43611                           BPL      SWITCH                                
026163,001503: 26,6376           02761                                    XSC        +2,1                       
026164,001504: 26,6377           14402                                    POSPOLE1                              #  IF XSC +2,1 NEG, SET NEGFLAG
026165,001505: 26,6400           00050                                    NEGFLAG                               
026166,001506: 
026167,001507: 26,6401           43174        POSPOLE1           SMOVE    2                                     
026168,001508: 26,6402           43556                           TEST     BMN                                   
026169,001509: 26,6403           76776                           ITC                                            
026170,001510: 26,6404           00020                                    15D                                   
026171,001511: 26,6405           00050                                    NEGFLAG                               
026172,001512: 26,6406           14412                                    NEAR+MP                               
026173,001513: 26,6407           14714                                    OVERYET                               
026174,001514: 26,6410           14416                                    F2                                    

Page 664

026176,001516: 
026177,001517: 26,6411           47575        NEAR+MP            NOLOD    1                                     
026178,001518: 26,6412           47616                           BZE      BPL                                   
026179,001519: 26,6413           14416                                    F2                                    
026180,001520: 26,6414           14714                                    OVERYET                               
026181,001521: 
026182,001522: 26,6415           42776        F2                 DOT      0                                     
026183,001523: 26,6416           01411                                    XSCD                                  
026184,001524: 26,6417           00001                                    0                                     
026185,001525: 
026186,001526: 26,6420           42774                           DOT      2                                     
026187,001527: 26,6421           66615                           DSU      TEST                                  
026188,001528: 26,6422           47176                           COMP                                           
026189,001529: 26,6423           01367                                    XSC                                   
026190,001530: 26,6424           00001                                    0                                     
026191,001531: 26,6425           77777                                    -                                     
026192,001532: 26,6426           00050                                    NEGFLAG                               
026193,001533: 26,6427           14432                                    BEGIN1                                
026194,001534: 26,6430           33433                           STORE    DTEMP1                                
026195,001535: 
026196,001536: 26,6431           47575        BEGIN1             NOLOD    1                                     
026197,001537: 26,6432           43433                           TEST     COMP                                  
026198,001538: 26,6433           00051                                    BEGINFLG                              
026199,001539: 26,6434           14437                                    BEGIN2                                
026200,001540: 26,6435           33433                           STORE    DTEMP1                                
026201,001541: 
026202,001542: 26,6436           47575        BEGIN2             NOLOD    1                                     
026203,001543: 26,6437           43776                           BPL                                            
026204,001544: 26,6440           14714                                    OVERYET                               
026205,001545: 
026206,001546: 26,6441           43174        F3                 SMOVE    2                                     #  SPLITMANU( IF IT HAPPENS) NEEDS TO KNOW
026207,001547: 26,6442           66615                           DSU      TEST                                  #  WHICH LIMITS REFER TO THE BEGINNING OF
026208,001548: 26,6443           47176                           COMP                                           
026209,001549: 26,6444           00050                                    X2                                    
026210,001550: 26,6445           15567                                    DP2(-13)                              
026211,001551: 26,6446           00051                                    BEGINFLG                              
026212,001552: 26,6447           14452                                    F4                                    
026213,001553: 26,6450           32051                           STORE    S1                                    
026214,001554: 
026215,001555:                                                                                                  #  IF S1=+,-2, THEN THE LIMITS ABOUT TO BE
026216,001556:                                                                                                  #  CALCULATED WILL END UP IN PD AT 0
026217,001557:                                                                                                  #  IF S1=+,-4, THE LIMITS WILL END UP AT
026218,001558:                                                                                                  #  2,4 IN PD
026219,001559:                                                                                                  #  IF S1 IS NEG, THEN THE TAGGED LIMITS
026220,001560:                                                                                                  #  ARE THE ONES NOT TO USE IN SPLTMANU
026221,001561:                                                                                                  #  IF S1 IS POS, THE TAGGED LIMITS SHOULD
026222,001562:                                                                                                  #  BE USED
026223,001563: 26,6451           47576        F4                 NOLOD    0                                     
026224,001564: 26,6452           32051                           STORE    S1                                    
026225,001565: 
026226,001566: 26,6453           45175                           DMOVE    1                                     

Page 665

026228,001568: 26,6454           43433                           TEST     COMP                                  
026229,001569: 26,6455           15573                                    UNITX                                 
026230,001570: 26,6456           00051                                    BEGINFLG                              
026231,001571: 26,6457           14462                                    F5                                    
026232,001572: 26,6460           33433                           STORE    DTEMP1                                
026233,001573: 
026234,001574: 26,6461           47575        F5                 NOLOD    1                                     
026235,001575: 26,6462           43433                           TEST     COMP                                  
026236,001576: 26,6463           00050                                    NEGFLAG                               
026237,001577: 26,6464           14467                                    F6                                    
026238,001578: 26,6465           33433                           STORE    DTEMP1                                
026239,001579: 
026240,001580: 26,6466           47575        F6                 NOLOD    1                                     
026241,001581: 26,6467           53776                           SIGN                                           
026242,001582: 26,6470           01325                                    WC         +2                         
026243,001583: 26,6471           33433                           STORE    DTEMP1                                
026244,001584: 
026245,001585: 26,6472           64176                           ABS*     0                                     
026246,001586: 26,6473           02761                                    XSC        +2,1                       #  COSC TO 18 AT 2(1)
026247,001587: 
026248,001588: 26,6474           56774                           TSRT     2                                     
026249,001589: 26,6475           66711                           DSU      INCR,2                                
026250,001590: 26,6476           73776                           BMN                                            
026251,001591: 26,6477           00023                                    18D                                   
026252,001592: 26,6500           00002                                    1                                     
026253,001593: 26,6501           15541                                    COS3                                  
026254,001594: 26,6502           77776                          -         2                                     
026255,001595: 26,6503           14511                                    SOMESUN                               
026256,001596: 
026257,001597: 26,6504           76776                           ITC      0                                     
026258,001598: 26,6505           14201                                    NORMLIMS                              
026259,001599: 
026260,001600: 26,6506           76776                           ITC      0                                     
026261,001601: 26,6507           14673                                    ALLSHADE                              
026262,001602: 
026263,001603: 26,6510           74173        SOMESUN            VMOVE*   3                                     
026264,001604: 26,6511           41604                           VXV      VXV*                                  
026265,001605: 26,6512           73033                           UNIT     COMP                                  
026266,001606: 26,6513           43433                           TEST     COMP                                  
026267,001607: 26,6514           02755                                    XSC,1                                 
026268,001608: 26,6515           15601                                    UNITY                                 
026269,001609: 26,6516           02755                                    XSC,1                                 
026270,001610: 26,6517           00050                                    NEGFLAG                               
026271,001611: 26,6520           14523                                    POSP1                                 
026272,001612: 26,6521           32025                           STORE    20D                                   
026273,001613: 
026274,001614: 26,6522           73575        POSP1              LXA,1    1                                     
026275,001615: 26,6523           47576                           NOLOD                                          
026276,001616: 26,6524           00047                                    X1                                    

Page 666

026278,001618: 26,6525           61175                           ACOS     1                                     
026279,001619: 26,6526           56776                           TSRT                                           
026280,001620: 26,6527           00023                                    18D                                   
026281,001621: 26,6530           00002                                    1                                     #  C/2 TO 26 SCALED AT 2PI
026282,001622: 
026283,001623: 26,6531           47575                           NOLOD    1                                     
026284,001624: 26,6532           66673                           DSU      SIN                                   
026285,001625: 26,6533           15553                                    1.5DEG                                #  SIN(C/2-1.5) TO 28
026286,001626: 
026287,001627: 26,6534           66775                           DSU      1                                     
026288,001628: 26,6535           57122                           SIN      DMP                                   
026289,001629: 26,6536           15555                                    31.5DEG                               
026290,001630: 26,6537           00033                                    26D                                   #  SIN(C/2-1.5)SIN,31.5-C/2) TO 28
026291,001631: 
026292,001632: 26,6540           70775                           DAD      1                                     
026293,001633: 26,6541           57176                           SIN                                            
026294,001634: 26,6542           00033                                    26D                                   #  SIN(C/2+1.5) TO PD AT 30
026295,001635: 26,6543           15553                                    1.5DEG                                
026296,001636: 
026297,001637: 26,6544           70774                           DAD      2                                     
026298,001638: 26,6545           57122                           SIN      DMP                                   
026299,001639: 26,6546           61653                           BDDV     SQRT                                  
026300,001640: 26,6547           00033                                    26D                                   
026301,001641: 26,6550           15555                                    31.5DEG                               
026302,001642: 26,6551           32045                           STORE    VACZ                                  
026303,001643: 
026304,001644: 26,6552           45176                           DMOVE    0                                     
026305,001645: 26,6553           21043                                    NEARONE                               
026306,001646: 26,6554           32041                           STORE    VACX                                  
026307,001647: 
026308,001648: 26,6555           76575                           RTB      1                                     #  PD SET TO AVOID CONFLICT WITH ARCTAN
026309,001649: 26,6556           76526                           RTB      BDSU                                  
026310,001650: 26,6557           15643                                    SETPD6                                
026311,001651: 26,6560           20504                                    ARCTAN                                
026312,001652: 26,6561           15565                                    DP2(-2)                               
026313,001653: 26,6562           32033                           STORE    26D                                   #  SA AT 26 SCALED AT 4PI
026314,001654: 
026315,001655: 26,6563           42776                           DOT      0                                     
026316,001656: 26,6564           01323                                    WC                                    
026317,001657: 26,6565           00025                                    20D                                   #  TO PD TO SIGN AR IN NEXT EQUATION
026318,001658: 
026319,001659: 26,6566           74172                           VMOVE*   4                                     
026320,001660: 26,6567           41753                           VXV      UNIT                                  
026321,001661: 26,6570           42633                           DOT      COMP                                  
026322,001662: 26,6571           63703                           TSLT     ACOS                                  
026323,001663: 26,6572           56656                           TSRT     SIGN                                  
026324,001664: 26,6573           02755                                    XSC,1                                 #  POINT.UNIT(WC*XSC,1)
026325,001665: 26,6574           01323                                    WC                                    
026326,001666: 26,6575           00025                                    20D                                   
026327,001667: 26,6576           00002                                    1                                     

Page 667

026329,001669: 26,6577           00002                                    1                                     #  AR TO THETAMAN, SCALED AT 4PI
026330,001670: 26,6600           33455                           STORE    THETAMAN                              
026331,001671: 
026332,001672: 26,6601           66776                           DSU      0                                     
026333,001673: 26,6602           01455                                    THETAMAN                              
026334,001674: 26,6603           00033                                    26D                                   
026335,001675: 26,6604           34026                           STORE    10D,2                                 #  AR-SA
026336,001676: 
026337,001677: 26,6605           76575                           RTB      1                                     
026338,001678: 26,6606           70776                           DAD                                            
026339,001679: 26,6607           15647                                    SETPD28                               
026340,001680: 26,6610           01455                                    THETAMAN                              
026341,001681: 26,6611           34030                           STORE    11D,2                                 #  AR+SA
026342,001682: 
026343,001683: 26,6612           74175                           VMOVE*   1                                     
026344,001684: 26,6613           42723                           DOT      ABS                                   
026345,001685: 26,6614           02755                                    XSC,1                                 #  ABS(XSC,1.MP) TO 26 AT 2(2)
026346,001686: 26,6615           00001                                    0                                     
026347,001687: 
026348,001688: 26,6616           65175                           ABS      1                                     
026349,001689: 26,6617           61176                           ACOS                                           
026350,001690: 26,6620           00003                                    2                                     #  ACOS(ABS(MP.UNITY)) TO 28
026351,001691: 
026352,001692: 26,6621           47574                           NOLOD    2                                     
026353,001693: 26,6622           70663                           DAD      COS                                   
026354,001694: 26,6623           64716                           DMP      TSLT                                  
026355,001695: 26,6624           15557                                    30DEG                                 
026356,001696: 26,6625           00033                                    26D                                   
026357,001697: 26,6626           00002                                    1                                     
026358,001698: 26,6627           32021                           STORE    16D                                   #  COSB TO 16 AT 2(2)
026359,001699: 
026360,001700: 26,6630           66773                           DSU      3                                     
026361,001701: 26,6631           65063                           ABS      COS                                   
026362,001702: 26,6632           64716                           DMP      TSLT                                  
026363,001703: 26,6633           65616                           BDSU     BPL                                   
026364,001704: 26,6634           15557                                    30DEG                                 
026365,001705: 26,6635           77777                                    -                                     
026366,001706: 26,6636           77777                                    -                                     
026367,001707: 26,6637           00002                                    1                                     
026368,001708: 26,6640           15571                                    C33                                   
026369,001709: 26,6641           14714                                    OVERYET                               #  IF C33-COSA POS
026370,001710: 
026371,001711: 26,6642           76776                           ITC      0                                     
026372,001712: 26,6643           14201                                    NORMLIMS                              
026373,001713: 
026374,001714: 26,6644           66775                           DSU      1                                     
026375,001715: 26,6645           73776                           BMN                                            
026376,001716: 26,6646           15571                                    C33                                   
026377,001717: 26,6647           00021                                    16D                                   
026378,001718: 26,6650           14673                                    ALLSHADE                              

Page 668

026380,001720: 26,6651           44176                           DMOVE*   0                                     
026381,001721: 26,6652           00030                                    11D,2                                 #  11D,2 TO PD FOR PROTECTION
026382,001722: 
026383,001723: 26,6653           43776                           BPL      0                                     
026384,001724: 26,6654           01433                                    DTEMP1                                
026385,001725: 26,6655           14666                                    11MANU                                
026386,001726: 
026387,001727: 26,6656           43176                           SMOVE    0                                     
026388,001728: 26,6657           00007                                    6                                     #  NBL1 REPLACES AR-SA
026389,001729: 26,6660           34026                           STORE    10D,2                                 
026390,001730: 
026391,001731: 26,6661           45176                           DMOVE    0                                     
026392,001732: 26,6662           34030                           STORE    11D,2                                 #  NOW REINSERT 11,2
026393,001733: 
026394,001734: 26,6663           76776                           ITC      0                                     
026395,001735: 26,6664           14714                                    OVERYET                               
026396,001736: 
026397,001737: 26,6665           43176        11MANU             SMOVE    0                                     
026398,001738: 26,6666           00010                                    7                                     
026399,001739: 26,6667           34030                           STORE    11D,2                                 
026400,001740: 
026401,001741: 26,6670           76776                           ITC      0                                     
026402,001742: 26,6671           14714                                    OVERYET                               
026403,001743: 
026404,001744: 26,6672           43775        ALLSHADE           BPL      1                                     
026405,001745: 26,6673           41423                           LODON    DMOVE                                 
026406,001746: 26,6674           01433                                    DTEMP1                                
026407,001747: 26,6675           14706                                    12MANU                                
026408,001748: 26,6676           00007                                    6                                     
026409,001749: 26,6677           34026                           STORE    10D,2                                 
026410,001750: 
026411,001751: 26,6700           43176                           SMOVE    0                                     
026412,001752: 26,6701           00012                                    9D                                    
026413,001753: 26,6702           34030                           STORE    11D,2                                 
026414,001754: 
026415,001755: 26,6703           76776                           ITC      0                                     
026416,001756: 26,6704           14714                                    OVERYET                               
026417,001757: 
026418,001758: 26,6705           43176        12MANU             SMOVE    0                                     
026419,001759: 26,6706           00011                                    8D                                    
026420,001760: 26,6707           34026                           STORE    10D,2                                 
026421,001761: 
026422,001762: 26,6710           43176                           SMOVE    0                                     
026423,001763: 26,6711           00010                                    7                                     
026424,001764: 26,6712           34030                           STORE    11D,2                                 
026425,001765: 
026426,001766: 26,6713           43175        OVERYET            SMOVE    1                                     
026427,001767: 26,6714           70636                           DAD      BZE                                   
026428,001768: 26,6715           00050                                    X2                                    
026429,001769: 26,6716           13141                                    DP2(-12)                              

Page 669

026431,001771: 26,6717           14731                                    FINISHUP                              
026432,001772: 
026433,001773: 26,6720           43574                           TEST     2                                     #  ENDCHEK IS DONE TWICE, FOR THE
026434,001774: 26,6721           53411                           AXC,1    SWITCH                                #  BEGINNING AND FOR THE END OF THE ARC
026435,001775: 26,6722           76776                           ITC                                            
026436,001776: 26,6723           00051                                    BEGINFLG                              
026437,001777: 26,6724           14731                                    FINISHUP                              
026438,001778: 26,6725           00023                                    18D                                   #  -18 TO X1
026439,001779: 26,6726           00051                                    BEGINFLG                              #  REMOVE BEGINFLG
026440,001780: 26,6727           14355                                    ENDCHEK                               #  GO BACK, GET LIMITS FOR END OF ARC
026441,001781: 
026442,001782: 26,6730           43175        FINISHUP           SMOVE    1                                     
026443,001783: 26,6731           47776                           BZE                                            
026444,001784: 26,6732           00050                                    X2                                    
026445,001785: 26,6733           15520                                    GETPTCH                               #  NO LIMITS DETECTED
026446,001786: 
026447,001787: 26,6734           76575                           RTB      1                                     
026448,001788: 26,6735           41776                           VXV                                            
026449,001789: 26,6736           15651                                    SETPD20                               
026450,001790: 26,6737           01477                                    XNB                                   
026451,001791: 26,6740           01367                                    XSC                                   #  XNB*XSC TO PD AT 20
026452,001792: 
026453,001793: 26,6741           41775                           VXV      1                                     
026454,001794: 26,6742           42776                           DOT                                            
026455,001795: 26,6743           01323                                    WC                                    
026456,001796: 26,6744           01367                                    XSC                                   
026457,001797: 26,6745           00025                                    20D                                   
026458,001798: 26,6746           32023                           STORE    18D                                   #  (WC*XSC).(XNB*XSC) TO 18
026459,001799: 
026460,001800: 26,6747           73173                           UNIT     3                                     
026461,001801: 26,6750           42633                           DOT      COMP                                  
026462,001802: 26,6751           63703                           TSLT     ACOS                                  
026463,001803: 26,6752           53672                           SIGN     TSRT                                  
026464,001804: 26,6753           77777                                    -                                     
026465,001805: 26,6754           01323                                    WC                                    
026466,001806: 26,6755           00002                                    1                                     
026467,001807: 26,6756           77777                                    -                                     
026468,001808: 26,6757           00002                                    1                                     
026469,001809: 26,6760           34032                           STORE    12D,2                                 #  SCALED AT 4PI
026470,001810: 
026471,001811: 26,6761           43175                           SMOVE    1                                     
026472,001812: 26,6762           52565                           AXC,2    AXT,1                                 
026473,001813: 26,6763           00050                                    X2                                    
026474,001814: 26,6764           00001                                    0                                     
026475,001815: 26,6765           00001                                    0                                     #  0 INTO X2 AND X1
026476,001816: 26,6766           32037                           STORE    30D                                   #  SAVE X2
026477,001817: 
026478,001818: 26,6767           42175        22MANU             SMOVE*   1                                     
026479,001819: 26,6770           66776                           DSU                                            
026480,001820: 26,6771           00034                                    13D,2                                 

Page 670

026482,001822: 26,6772           00015                                    12D                                   
026483,001823: 
026484,001824: 26,6773           47575        23MANU             NOLOD    1                                     
026485,001825: 26,6774           66616                           DSU      BPL                                   
026486,001826: 26,6775           15573                                    360DEG                                
026487,001827: 26,6776           14774                                    23MANU                                
026488,001828: 
026489,001829: 26,6777           47575        20MANU             NOLOD    1                                     
026490,001830: 26,7000           70756                           DAD      BMN                                   
026491,001831: 26,7001           15573                                    360DEG                                
026492,001832: 26,7002           15000                                    20MANU                                
026493,001833: 26,7003           34001                           STORE    0,1                                   
026494,001834: 
026495,001835: 26,7004           73575                           LXA,1    1                                     
026496,001836: 26,7005           62515                           INCR,2   INCR,1                                
026497,001837: 26,7006           00047                                    X1                                    
026498,001838: 26,7007           77777                                    -1                                    
026499,001839: 26,7010           77776                                    -2                                    
026500,001840: 
026501,001841: 26,7011           43175                           SMOVE    1                                     
026502,001842: 26,7012           65756                           BDSU     BMN                                   
026503,001843: 26,7013           00050                                    X2                                    
026504,001844: 26,7014           00037                                    30D                                   
026505,001845: 26,7015           14770                                    22MANU                                
026506,001846: 
026507,001847: 26,7016           70775                           DAD      1                                     
026508,001848: 26,7017           47776                           BZE                                            
026509,001849: 26,7020           00037                                    30D                                   
026510,001850: 26,7021           15567                                    DP2(-13)                              
026511,001851: 26,7022           15333                                    EZCASE                                
026512,001852: 
026513,001853: 26,7023           66775                           DSU      1                                     
026514,001854: 26,7024           73776                           BMN                                            
026515,001855: 26,7025           00005                                    4                                     
026516,001856: 26,7026           00001                                    0                                     
026517,001857: 26,7027           15106                                    30MANU                                
026518,001858: 
026519,001859: 26,7030           66775                           DSU      1                                     
026520,001860: 26,7031           73776                           BMN                                            
026521,001861: 26,7032           00003                                    2                                     
026522,001862: 26,7033           00001                                    0                                     
026523,001863: 26,7034           15061                                    31MANU                                
026524,001864: 
026525,001865: 26,7035           66775                           DSU      1                                     
026526,001866: 26,7036           73776                           BMN                                            
026527,001867: 26,7037           00003                                    2                                     
026528,001868: 26,7040           00005                                    4                                     
026529,001869: 26,7041           15434                                    SPLITMNU                              
026530,001870: 
026531,001871: 26,7042           66775                           DSU      1                                     

Page 671

026533,001873: 26,7043           73776                           BMN                                            
026534,001874: 26,7044           00007                                    6                                     
026535,001875: 26,7045           00001                                    0                                     
026536,001876: 26,7046           15520                                    GETPTCH                               
026537,001877: 
026538,001878: 26,7047           43574                           TEST     2                                     
026539,001879: 26,7050           56732                           TSRT     DSU                                   
026540,001880: 26,7051           76776                           ITC                                            
026541,001881: 26,7052           00044                                    BACKFLAG                              #  (BACKFLAG DOWN MEANS DO BACKTEST
026542,001882: 26,7053           15317                                    BACKTEST                              
026543,001883: 26,7054           00001                                    0                                     
026544,001884: 26,7055           00002                                    1                                     
026545,001885: 26,7056           00007                                    6                                     
026546,001886: 26,7057           15204                                    40MANU                                
026547,001887: 
026548,001888: 26,7060           66775        31MANU             DSU      1                                     
026549,001889: 26,7061           73776                           BMN                                            
026550,001890: 26,7062           00007                                    6                                     
026551,001891: 26,7063           00001                                    0                                     
026552,001892: 26,7064           15100                                    33MANU                                
026553,001893: 
026554,001894: 26,7065           43574        333MANU            TEST     2                                     
026555,001895: 26,7066           70672                           DAD      TSRT                                  
026556,001896: 26,7067           66772                           DSU      ITC                                   
026557,001897: 26,7070           00044                                    BACKFLAG                              
026558,001898: 26,7071           15317                                    BACKTEST                              
026559,001899: 26,7072           00001                                    0                                     
026560,001900: 26,7073           00003                                    2                                     
026561,001901: 26,7074           00002                                    1                                     
026562,001902: 26,7075           00007                                    6                                     
026563,001903: 26,7076           15204                                    40MANU                                
026564,001904: 
026565,001905: 26,7077           66775        33MANU             DSU      1                                     
026566,001906: 26,7100           73772                           BMN      ITC                                   
026567,001907: 26,7101           00007                                    6                                     
026568,001908: 26,7102           00003                                    2                                     
026569,001909: 26,7103           15066                                    333MANU                               
026570,001910: 26,7104           15520                                    GETPTCH                               
026571,001911: 
026572,001912: 26,7105           66775        30MANU             DSU      1                                     
026573,001913: 26,7106           73776                           BMN                                            
026574,001914: 26,7107           00003                                    2                                     
026575,001915: 26,7110           00001                                    0                                     
026576,001916: 26,7111           15131                                    35MANU                                
026577,001917: 
026578,001918: 26,7112           66775                           DSU      1                                     
026579,001919: 26,7113           73776                           BMN                                            
026580,001920: 26,7114           00007                                    6                                     
026581,001921: 26,7115           00005                                    4                                     
026582,001922: 26,7116           15520                                    GETPTCH                               

Page 672

026584,001924: 
026585,001925: 26,7117           43574        38MANU             TEST     2                                     
026586,001926: 26,7120           56732                           TSRT     DSU                                   
026587,001927: 26,7121           76776                           ITC                                            
026588,001928: 26,7122           00044                                    BACKFLAG                              
026589,001929: 26,7123           15317                                    BACKTEST                              
026590,001930: 26,7124           00005                                    4                                     
026591,001931: 26,7125           00002                                    1                                     
026592,001932: 26,7126           00007                                    6                                     
026593,001933: 26,7127           15204                                    40MANU                                
026594,001934: 
026595,001935: 26,7130           66775        35MANU             DSU      1                                     
026596,001936: 26,7131           73776                           BMN                                            
026597,001937: 26,7132           00003                                    2                                     
026598,001938: 26,7133           00005                                    4                                     
026599,001939: 26,7134           15151                                    36MANU                                
026600,001940: 
026601,001941: 26,7135           66775                           DSU      1                                     
026602,001942: 26,7136           73776                           BMN                                            
026603,001943: 26,7137           00007                                    6                                     
026604,001944: 26,7140           00003                                    2                                     
026605,001945: 26,7141           15170                                    37MANU                                
026606,001946: 
026607,001947: 26,7142           66775                           DSU      1                                     
026608,001948: 26,7143           43772                           BPL      ITC                                   
026609,001949: 26,7144           00007                                    6                                     
026610,001950: 26,7145           00001                                    0                                     
026611,001951: 26,7146           15120                                    38MANU                                
026612,001952: 26,7147           15520                                    GETPTCH                               
026613,001953: 
026614,001954: 26,7150           66775        36MANU             DSU      1                                     
026615,001955: 26,7151           73776                           BMN                                            
026616,001956: 26,7152           00007                                    6                                     
026617,001957: 26,7153           00005                                    4                                     
026618,001958: 26,7154           15176                                    366MANU                               
026619,001959: 
026620,001960: 26,7155           43574        368MANU            TEST     2                                     
026621,001961: 26,7156           70672                           DAD      TSRT                                  
026622,001962: 26,7157           66772                           DSU      ITC                                   
026623,001963: 26,7160           00044                                    BACKFLAG                              
026624,001964: 26,7161           15317                                    BACKTEST                              
026625,001965: 26,7162           00005                                    4                                     
026626,001966: 26,7163           00003                                    2                                     
026627,001967: 26,7164           00002                                    1                                     
026628,001968: 26,7165           00007                                    6                                     
026629,001969: 26,7166           15204                                    40MANU                                
026630,001970: 
026631,001971: 26,7167           66775        37MANU             DSU      1                                     
026632,001972: 26,7170           73772                           BMN      ITC                                   
026633,001973: 26,7171           00007                                    6                                     
026634,001974: 26,7172           00005                                    4                                     

Page 673

026636,001976: 26,7173           15520                                    GETPTCH                               
026637,001977: 26,7174           15120                                    38MANU                                
026638,001978: 
026639,001979: 26,7175           66775        366MANU            DSU      1                                     
026640,001980: 26,7176           73772                           BMN      ITC                                   
026641,001981: 26,7177           00007                                    6                                     
026642,001982: 26,7200           00003                                    2                                     
026643,001983: 26,7201           15156                                    368MANU                               
026644,001984: 26,7202           15520                                    GETPTCH                               
026645,001985: 
026646,001986: 26,7203           47574        40MANU             NOLOD    2                                     #  ROLL IS IN MPAC,MPAC +1,SCALED AT 4PI
026647,001987: 26,7204           66756                           DSU      BMN                                   
026648,001988: 26,7205           66772                           DSU      ITC                                   
026649,001989: 26,7206           15565                                    DP2(-2)                               
026650,001990: 26,7207           15213                                    41MANU                                
026651,001991: 26,7210           15565                                    DP2(-2)                               
026652,001992: 26,7211           15225                                    42MANU                                
026653,001993: 
026654,001994: 26,7212           47574        41MANU             NOLOD    2                                     
026655,001995: 26,7213           70616                           DAD      BPL                                   
026656,001996: 26,7214           70772                           DAD      ITC                                   
026657,001997: 26,7215           15573                                    360DEG                                
026658,001998: 26,7216           15222                                    43MANU                                
026659,001999: 26,7217           15565                                    DP2(-2)                               
026660,002000: 26,7220           15225                                    42MANU                                
026661,002001: 
026662,002002: 26,7221           47575        43MANU             NOLOD    1                                     
026663,002003: 26,7222           66776                           DSU                                            
026664,002004: 26,7223           15565                                    DP2(-2)                               
026665,002005: 
026666,002006: 26,7224           47575        42MANU             NOLOD    1                                     
026667,002007: 26,7225           63776                           TSLT                                           
026668,002008: 26,7226           00002                                    1                                     
026669,002009: 26,7227           33455                           STORE    THETAMAN                              #  ROLL IN THETAMAN, SCALED AT 2PI
026670,002010: 
026671,002011: 26,7230           43576                           TEST     0                                     
026672,002012: 26,7231           00045                                    ROLLFLAG                              #  IF ROLLFLAG ISNT ON
026673,002013: 26,7232           15657                                    DONE                                  #  WE ARE DONE
026674,002014: 
026675,002015: 26,7233           76776                           ITC      0                                     
026676,002016: 26,7234           15240                                    ROLLTEST                              #  SHORT WAY ROLL MAY HIT GIMBAL LOCK
026677,002017: 
026678,002018: 26,7235           76776                           ITC      0                                     
026679,002019: 26,7236           15657                                    DONE                                  
026680,002020: 
026681,002021: 26,7237           76574        ROLLTEST           RTB      2                                     
026682,002022: 26,7240           41606                           VXV      VXV                                   
026683,002023: 26,7241           73176                           UNIT                                           
026684,002024: 26,7242           20265                                    FRESHPD                               
026685,002025: 26,7243           01367                                    XSC                                   

Page 674

026687,002027: 26,7244           01477                                    XNB                                   
026688,002028: 26,7245           01367                                    XSC                                   #  TEMP1 TO DP AT 0
026689,002029: 
026690,002030: 26,7246           53774                           SIGN     2                                     
026691,002031: 26,7247           75606                           VXSC     VXV                                   
026692,002032: 26,7250           41753                           VXV      UNIT                                  
026693,002033: 26,7251           21043                                    NEARONE                               
026694,002034: 26,7252           01371                                    XSC        +2                         
026695,002035: 26,7253           01367                                    XSC                                   
026696,002036: 26,7254           15601                                    UNITY                                 
026697,002037: 26,7255           01367                                    XSC                                   
026698,002038: 
026699,002039: 26,7256           42775                           DOT      1                                     
026700,002040: 26,7257           63703                           TSLT     ACOS                                  
026701,002041: 26,7260           00001                                    0                                     
026702,002042: 26,7261           00007                                    6                                     
026703,002043: 26,7262           00002                                    1                                     
026704,002044: 26,7263           32021                           STORE    16D                                   
026705,002045: 
026706,002046: 26,7264           65175                           ABS      1                                     
026707,002047: 26,7265           66756                           DSU      BMN                                   
026708,002048: 26,7266           01455                                    THETAMAN                              
026709,002049: 26,7267           00021                                    16D                                   
026710,002050: 26,7270           15316                                    ENDTST                                
026711,002051: 
026712,002052: 26,7271           75174                           VMOVE    2                                     
026713,002053: 26,7272           41612                           VXV      DOT                                   
026714,002054: 26,7273           73776                           BMN                                            
026715,002055: 26,7274           77777                                    -                                     
026716,002056: 26,7275           77777                                    -                                     
026717,002057: 26,7276           01367                                    XSC                                   
026718,002058: 26,7277           15310                                    50MANU                                
026719,002059: 
026720,002060: 26,7300           45175                           DMOVE    1                                     
026721,002061: 26,7301           43742                           BPL      DAD                                   
026722,002062: 26,7302           01455                                    THETAMAN                              
026723,002063: 26,7303           15316                                    ENDTST                                
026724,002064: 26,7304           21043                                    NEARONE                               
026725,002065: 26,7305           33455                           STORE    THETAMAN                              
026726,002066: 
026727,002067: 26,7306           40576                           ITCQ     0                                     
026728,002068: 
026729,002069: 26,7307           45175        50MANU             DMOVE    1                                     
026730,002070: 26,7310           73732                           BMN      DSU                                   
026731,002071: 26,7311           01455                                    THETAMAN                              
026732,002072: 26,7312           15316                                    ENDTST                                
026733,002073: 26,7313           21043                                    NEARONE                               
026734,002074: 26,7314           33455                           STORE    THETAMAN                              
026735,002075: 
026736,002076: 26,7315           40576        ENDTST             ITCQ     0                                     
026737,002077: 

Page 675

026739,002079: 
026740,002080: 26,7316           72575        BACKTEST           LXA,2    1                                     
026741,002081: 26,7317           42576                           SWITCH                                         
026742,002082: 26,7320           00037                                    30D                                   #  RESET SAVED X2
026743,002083: 26,7321           00044                                    BACKFLAG                              #  TURN BACKFLAG ON (DONT DO AGAIN)
026744,002084: 
026745,002085: 26,7322           43176                           SMOVE    0                                     
026746,002086: 26,7323           00013                                    10D                                   
026747,002087: 26,7324           32015                           STORE    12D                                   
026748,002088: 
026749,002089: 26,7325           73575                           LXA,1    1                                     
026750,002090: 26,7326           67572                           SXA,1    ITC                                   
026751,002091: 26,7327           00014                                    11D                                   
026752,002092: 26,7330           00016                                    13D                                   
026753,002093: 26,7331           14731                                    FINISHUP                              
026754,002094: 
026755,002095: 26,7332           66775        EZCASE             DSU      1                                     
026756,002096: 26,7333           73776                           BMN                                            
026757,002097: 26,7334           00003                                    2                                     
026758,002098: 26,7335           00001                                    0                                     
026759,002099: 26,7336           15520                                    GETPTCH                               #  NO ROLL REQ,D
026760,002100: 
026761,002101: 26,7337           43574                           TEST     2                                     
026762,002102: 26,7340           56732                           TSRT     DSU                                   
026763,002103: 26,7341           76776                           ITC                                            
026764,002104: 26,7342           00044                                    BACKFLAG                              
026765,002105: 26,7343           15317                                    BACKTEST                              
026766,002106: 26,7344           00001                                    0                                     
026767,002107: 26,7345           00002                                    1                                     
026768,002108: 26,7346           00003                                    2                                     
026769,002109: 26,7347           15204                                    40MANU                                
026770,002110: 
026771,002111: 26,7350           47575        180CASE            NOLOD    1                                     
026772,002112: 26,7351           70616                           DAD      BPL                                   
026773,002113: 26,7352           15653                                    COSONE                                
026774,002114: 26,7353           14033                                    NOT179                                
026775,002115: 
026776,002116: 26,7354           42774                           DOT      2                                     
026777,002117: 26,7355           65132                           ABS      DSU                                   
026778,002118: 26,7356           43776                           BPL                                            
026779,002119: 26,7357           01367                                    XSC                                   
026780,002120: 26,7360           15601                                    UNITY                                 
026781,002121: 26,7361           15653                                    COSONE                                
026782,002122: 26,7362           15374                                    ZEROWC                                
026783,002123: 
026784,002124: 26,7363           41775                           VXV      1                                     
026785,002125: 26,7364           41753                           VXV      UNIT                                  
026786,002126: 26,7365           01367                                    XSC                                   
026787,002127: 26,7366           15601                                    UNITY                                 
026788,002128: 26,7367           01367                                    XSC                                   
026789,002129: 26,7370           33323                           STORE    WC                                    

Page 676

026791,002131: 26,7371           76776                           ITC      0                                     
026792,002132: 26,7372           14040                                    ACCEPTWC                              
026793,002133: 
026794,002134: 26,7373           75176        ZEROWC             VMOVE    0                                     
026795,002135: 26,7374           01403                                    ZSC                                   
026796,002136: 26,7375           33323                           STORE    WC                                    
026797,002137: 
026798,002138: 26,7376           76776                           ITC      0                                     
026799,002139: 26,7377           14040                                    ACCEPTWC                              
026800,002140: 
026801,002141: 26,7400           41775        NOGIMTST           VXV      1                                     
026802,002142: 26,7401           73176                           UNIT                                           
026803,002143: 26,7402           01367                                    XSC                                   
026804,002144: 26,7403           01411                                    XSCD                                  
026805,002145: 26,7404           33323                           STORE    WC                                    
026806,002146: 
026807,002147: 26,7405           76776                           ITC      0                                     
026808,002148: 26,7406           15520                                    GETPTCH                               
026809,002149: 
026810,002150: 26,7407           65175        DONE1              ABS      1                                     
026811,002151: 26,7410           66756                           DSU      BMN                                   
026812,002152: 26,7411           01455                                    THETAMAN                              
026813,002153: 26,7412           15553                                    1.5DEG                                
026814,002154: 26,7413           15520                                    GETPTCH                               
026815,002155: 
026816,002156: 26,7414           53775                           SIGN     1                                     
026817,002157: 26,7415           75776                           VXSC                                           
026818,002158: 26,7416           21043                                    NEARONE                               
026819,002159: 26,7417           01455                                    THETAMAN                              
026820,002160: 26,7420           01367                                    XSC                                   
026821,002161: 26,7421           33323                           STORE    WC                                    
026822,002162: 
026823,002163: 26,7422           65176                           ABS      0                                     
026824,002164: 26,7423           01455                                    THETAMAN                              
026825,002165: 26,7424           33455                           STORE    THETAMAN                              
026826,002166: 
026827,002167: 26,7425           77576                           EXIT     0                                     
026828,002168: 
026829,002169: 26,7426           03440                           TC       FLAG2UP                               
026830,002170: 26,7427           04000                           OCT      04000                                 #  SET ROLLFLAG
026831,002171: 
026832,002172: 26,7430           04000                           TC       INTPRET                               
026833,002173: 
026834,002174: 26,7431           44576                           ITCI     0                                     #  EXIT FOR ROLL THAT AVOIDS GIMBAL LOCK IN
026835,002175: 26,7432           01472                                    EXITCADR                              #  SUBSEQUENT PITCH/YAW MANEUVER
026836,002176: 
026837,002177: 26,7433           43173        SPLITMNU           SMOVE    3                                     
026838,002178: 26,7434           65132                           ABS      DSU                                   
026839,002179: 26,7435           67605                           BHIZ     LODON                                 
026840,002180: 26,7436           43016                           SMOVE    BPL                                   

Page 677

026842,002182: 26,7437           00051                                    S1                                    
026843,002183: 26,7440           15567                                    DP2(-13)                              
026844,002184: 26,7441           15502                                    SPLIT1                                
026845,002185: 26,7442           00051                                    S1                                    
026846,002186: 26,7443           15460                                    SPLIT3                                
026847,002187: 
026848,002188: 26,7444           66775        SPLIT2             DSU      1                                     
026849,002189: 26,7445           73776                           BMN                                            
026850,002190: 26,7446           00007                                    6                                     
026851,002191: 26,7447           00001                                    0                                     
026852,002192: 26,7450           15507                                    SPLIT5                                
026853,002193: 
026854,002194: 26,7451           56775                           TSRT     1                                     
026855,002195: 26,7452           66772                           DSU      ITC                                   
026856,002196: 26,7453           00001                                    0                                     
026857,002197: 26,7454           00002                                    1                                     
026858,002198: 26,7455           00007                                    6                                     
026859,002199: 26,7456           15204                                    40MANU                                
026860,002200: 
026861,002201: 26,7457           66775        SPLIT3             DSU      1                                     
026862,002202: 26,7460           43776                           BPL                                            
026863,002203: 26,7461           00007                                    6                                     
026864,002204: 26,7462           00005                                    4                                     
026865,002205: 26,7463           15472                                    SPLIT4                                
026866,002206: 
026867,002207: 26,7464           66775                           DSU      1                                     
026868,002208: 26,7465           43776                           BPL                                            
026869,002209: 26,7466           00007                                    6                                     
026870,002210: 26,7467           00003                                    2                                     
026871,002211: 26,7470           15507                                    SPLIT5                                
026872,002212: 
026873,002213: 26,7471           70774        SPLIT4             DAD      2                                     
026874,002214: 26,7472           56732                           TSRT     DSU                                   
026875,002215: 26,7473           76776                           ITC                                            
026876,002216: 26,7474           00003                                    2                                     
026877,002217: 26,7475           00005                                    4                                     
026878,002218: 26,7476           00002                                    1                                     
026879,002219: 26,7477           00007                                    6                                     
026880,002220: 26,7500           15204                                    40MANU                                
026881,002221: 
026882,002222: 26,7501           43175        SPLIT1             SMOVE    1                                     
026883,002223: 26,7502           43772                           BPL      ITC                                   
026884,002224: 26,7503           00051                                    S1                                    
026885,002225: 26,7504           15445                                    SPLIT2                                
026886,002226: 26,7505           15460                                    SPLIT3                                
026887,002227: 
026888,002228: 26,7506           76776        SPLIT5             ITC      0                                     
026889,002229: 26,7507           15530                                    CALCPTCH                              
026890,002230: 
026891,002231: 26,7510           45175                           DMOVE    1                                     

Page 678

026893,002233: 26,7511           56776                           TSRT                                           
026894,002234: 26,7512           01455                                    THETAMAN                              
026895,002235: 26,7513           00002                                    1                                     
026896,002236: 26,7514           33455                           STORE    THETAMAN                              
026897,002237: 
026898,002238: 26,7515           76776                           ITC      0                                     
026899,002239: 26,7516           15522                                    GETPTCH2                              
026900,002240: 26,7517           76776        GETPTCH            ITC      0                                     
026901,002241: 26,7520           15530                                    CALCPTCH                              
026902,002242: 
026903,002243: 26,7521           77576        GETPTCH2           EXIT     0                                     
026904,002244: 
026905,002245: 26,7522           03452                           TC       FLAG2DWN                              
026906,002246: 26,7523           04000                           OCT      04000                                 #  REMOVE ROLLFLAG
026907,002247: 
026908,002248: 26,7524           04000                           TC       INTPRET                               
026909,002249: 
026910,002250: 26,7525           44576                           ITCI     0                                     
026911,002251: 26,7526           01472                                    EXITCADR                              #  EXIT FOR PITCH/YAW PORTION OF MANEUVER
026912,002252: 
026913,002253: 26,7527           42775        CALCPTCH           DOT      1                                     
026914,002254: 26,7530           63703                           TSLT     ACOS                                  
026915,002255: 26,7531           01367                                    XSC                                   
026916,002256: 26,7532           01411                                    XSCD                                  
026917,002257: 26,7533           00002                                    1                                     
026918,002258: 26,7534           33455                           STORE    THETAMAN                              
026919,002259: 
026920,002260: 26,7535           40576                           ITCQ     0                                     
026921,002261: 
026922,002262: 26,7536           03062                           TC       CCSHOLE                               
026923,002263: 26,7537           03062                           TC       CCSHOLE                               
026924,002264: 
026925,002265: 26,7540           07772 14276  COS3               2DEC     .249657385                            #  SCALED AT 2(4)
026926,002266: 26,7542           16203 04007  COS27              2DEC     .445503260                            #  SCALED AT 2(1)
026927,002267: 26,7544           07207 02705  COS63              2DEC     .226995250                            #  SCALED AT 2(1)
026928,002268: 26,7546           15666 17272  COS30              2DEC     .433012700                            #  SCALED AT 2(1)
026929,002269: 26,7550           30506 22276  1/TAN33            2DEC     .76993250                             #  SCALED AT 2(1)
026930,002270: 26,7552           00104 10421  1.5DEG             2DEC     .004166666                            #  SCALED AT 2PI
026931,002271: 26,7554           02631 23146  31.5DEG            2DEC     .0875                                 #  SCALED AT 2PI
026932,002272: 26,7556           02525 12524  30DEG              2DEC     .08333333                             #  SCALED AT 2PI
026933,002273: 26,7560           00210 21041  3DEG               2DEC     .00833333                             #  SCALED AT 2PI

Page 679

026935,002275: 26,7562           04000 00000  90DEG              2DEC     0.125                                 #  SCALED AT 4PI
026936,002276: 26,7564           10000 00000  DP2(-2)            2DEC     0.25                                  
026937,002277: 26,7566  26,7564               SIN30              EQUALS   DP2(-2)                               
026938,002278: 26,7566           00002 00000  DP2(-13)           2OCT     0000200000                            
026939,002279: 26,7570           06553 06165  C33                2DEC     .209667643                            
026940,002280: 26,7572           20000 00000  UNITX              2DEC     0.5                                   
026941,002281: 26,7574           00000 00000  ZEROVEC            2DEC     0.0                                   
026942,002282: 26,7576           00000 00000                     2DEC     0.0                                   
026943,002283: 26,7600           00000 00000  UNITY              2DEC     0.0                                   
026944,002284: 26,7602           20000 00000                     2DEC     0.5                                   
026945,002285: 26,7604           00000 00000                     2DEC     0.0                                   
026946,002286: 26,7606           15326 14356  SCNBMAT            2DEC     0.419335300                            
026947,002287: 26,7610           00000 00000                     2DEC     0.0                                   
026948,002288: 26,7612           67222 52116                     2DEC     -.272319500                            
026949,002289: 26,7614           00000 00000                     2DEC     0.0                                   
026950,002290: 26,7616           20000 00000                     2DEC     0.5                                   
026951,002291: 26,7620           00000 00000                     2DEC     0.0                                   
026952,002292: 26,7622           10555 25661                     2DEC     0.272319500                            
026953,002293: 26,7624           00000 00000                     2DEC     0.0                                   
026954,002294: 26,7626           15326 14356                     2DEC     0.419335300                            
026955,002295: 26,7630           00133 00327  DTH                2DEC     0.005555                              #  2.0 DEG SCALED AT 2PI
026956,002296: 26,7632           00243 32703                     2DEC     0.01                                  #  3.6 DEG
026957,002297: 26,7634           00525 12374                     2DEC     0.020833                              #  7.5 DEG
026958,002298: 
026959,002299: 
026960,002300: 26,7636           33540        SETPD16            CAF      SIXTN                                 
026961,002301: 26,7637           60067                           AD       FIXLOC                                
026962,002302: 26,7640           50123                           TS       PUSHLOC                               

Page 680

026964,002304: 26,7641           04703                           TC       RE-ENTER                              
026965,002305: 
026966,002306: 26,7642           34475        SETPD6             CAF      SIX                                   
026967,002307: 26,7643           07637                           TC       SETPD16    +1                         
026968,002308: 
026969,002309: 26,7644           33542        SETPD18            CAF      EIGHTN                                
026970,002310: 26,7645           07637                           TC       SETPD16    +1                         
026971,002311: 
026972,002312: 26,7646           33554        SETPD28            CAF      TWENTY8                               
026973,002313: 26,7647           07637                           TC       SETPD16    +1                         
026974,002314: 
026975,002315: 26,7650           33544        SETPD20            CAF      TWENTY0                               
026976,002316: 26,7651           07637                           TC       SETPD16    +1                         
026977,002317: 
026978,002318: 26,7652           07777 14256  COSONE             2DEC     .2499625                              #  SCALED AT 2(4)
026979,002319: 26,7654           07737 27116  COSSIX             2DEC     .2480300                              #  SCALED AT 2(4)
026980,002320: 26,7656  26,7572               180DEG             EQUALS   UNITX                                 #  SCALED AT 2PI.
026981,002321: 26,7656  26,7572               DP2(-1)            EQUALS   UNITX                                 
026982,002322: 26,7656  26,7572               360DEG             EQUALS   UNITX                                 #  SCALED AT 4PI.
026983,002323: 26,7656  26,7572               CFACTOR            EQUALS   UNITX                                 
026984,002324: 
026985,002325: 26,7656           42774        DONE               DOT      2                                     
026986,002326: 26,7657           70616                           DAD      BPL                                   
026987,002327: 26,7660           41406                           LODON    VXV                                   
026988,002328: 26,7661           01367                                    XSC                                   
026989,002329: 26,7662           01411                                    XSCD                                  
026990,002330: 26,7663           15655                                    COSSIX                                
026991,002331: 26,7664           15410                                    DONE1                                 
026992,002332: 26,7665           15601                                    UNITY                                 
026993,002333: 26,7666           01477                                    XNB                                   
026994,002334: 
026995,002335: 26,7667           53775                           SIGN     1                                     
026996,002336: 26,7670           75753                           VXSC     UNIT                                  
026997,002337: 26,7671           21043                                    NEARONE                               
026998,002338: 26,7672           01501                                    XNB        +2                         
026999,002339: 26,7673           33323                           STORE    WC                                    
027000,002340: 
027001,002341: 26,7674           45175                           DMOVE    1                                     
027002,002342: 26,7675           56776                           TSRT                                           
027003,002343: 26,7676           15557                                    30DEG                                 
027004,002344: 26,7677           00002                                    1                                     
027005,002345: 26,7700           33455                           STORE    THETAMAN                              
027006,002346: 
027007,002347: 26,7701           76776                           ITC      0                                     
027008,002348: 26,7702           15522                                    GETPTCH2                              
027009,002349: 
027010,002350: 26,7703           14250 00520  R280K              2DEC     6.463509   E6         B-24            

Page 681

027012,002352: 26,7705           14313 27520  R400K              2DEC     6.500085   E6         B-24            
027013,002353: 26,7707           00134 05075  DP.36              2DEC     .36        B-6                        

End of include-file POWERED_FLIGHT_SUBROUTINES.agc.  Parent file is MAIN.agc