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.

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

Page 628

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

Page 629

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

Page 630

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

Page 631

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

Page 632

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

Page 633

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

Page 634

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

Page 635

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

Page 636

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

Page 643

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

Page 644

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

Page 645

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

Page 646

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

Page 647

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

Page 648

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

Page 649

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

Page 650

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

Page 651

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

Page 652

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

Page 653

025744,001080: 25,7446           40576                           ITCQ     0                                     
025745,001081: 

Page 654

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

Page 655

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

Page 656

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

Page 657

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

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

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