Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

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