Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

037613,000002:                                                                                                  ## Copyright:   Public domain.
037614,000003:                                                                                                  ## Filename:    P37_P70.agc
037615,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
037616,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
037617,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
037618,000007:                                                                                                  ## Assembler:   yaYUL
037619,000008:                                                                                                  ## Reference:   pp. 843-886.
037620,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037621,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
037622,000011:                                                                                                  ## Mod history: 08/21/04 RSB.   Began transcribing.
037623,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes. Added missing # in comment.
037624,000013:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
037625,000014:                                                                                                  ##                              original harcopy, as opposed to the PDF page
037626,000015:                                                                                                  ##                              numbers in 1701.pdf.
037627,000016:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
037628,000017:                                                                                                  ##                              vs the already-proofed corresponding Colossus
037629,000018:                                                                                                  ##                              237 and Comanche 55 source-code files
037630,000019:                                                                                                  ##                              and corrected errors found.
037631,000020:                                                                                                  ##
037632,000021:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
037633,000022:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
037634,000023:                                                                                                  ## document read, in part:
037635,000024:                                                                                                  ##
037636,000025:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
037637,000026:                                                                                                  ##      2021111-041.  October 28, 1968.  
037638,000027:                                                                                                  ##
037639,000028:                                                                                                  ##      This AGC program shall also be referred to as
037640,000029:                                                                                                  ##                              Colossus 1A
037641,000030:                                                                                                  ##
037642,000031:                                                                                                  ##      Prepared by
037643,000032:                                                                                                  ##                      Massachusetts Institute of Technology
037644,000033:                                                                                                  ##                      75 Cambridge Parkway
037645,000034:                                                                                                  ##                      Cambridge, Massachusetts
037646,000035:                                                                                                  ##      under NASA contract NAS 9-4065.
037647,000036:                                                                                                  ##
037648,000037:                                                                                                  ## Refer directly to the online document mentioned above for further information.
037649,000038:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
037650,000039:                                                                                                  ##
037651,000040:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
037652,000041:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
037653,000042:                                                                                                  ## source file, and then is proofed to incorporate any changes.
037654,000043: 

Page 843

037656,000045: 31,3215                                           BANK     31                                    
037657,000046: 36,2000                                           SETLOC   RTE1                                  
037658,000047: 36,2000                                           BANK                                           
037659,000048: 
037660,000049: 36,2502  E7,1631                                  EBANK=   RTEDVD                                
037661,000050: 36,2502                                           COUNT    31/P37                                
037662,000051: 
037663,000052:                                                                                                  #  PROGRAM DESCRIPTION -  P37, RETURN TO EARTH
037664,000053: 
037665,000054:                                                                                                  #  DESCRIPTION
037666,000055:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
037667,000056:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
037668,000057:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
037669,000058:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
037670,000059:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
037671,000060: 
037672,000061:                                                                                                  #  CALLING SEQUENCE
037673,000062:                                                                                                  #        L       TC      P37
037674,000063: 
037675,000064:                                                                                                  #  SUBROUTINES CALLED
037676,000065:                                                                                                  #        PREC100
037677,000066:                                                                                                  #                V2T100
037678,000067:                                                                                                  #                RTENCK2
037679,000068:                                                                                                  #                RTENCK3
037680,000069:                                                                                                  #                TIMERAD
037681,000070:                                                                                                  #                PARAM
037682,000071:                                                                                                  #        V2T100
037683,000072:                                                                                                  #                GAMDV10
037684,000073:                                                                                                  #                XT1LIM
037685,000074:                                                                                                  #                DVCALC
037686,000075:                                                                                                  #        RTENCK1
037687,000076:                                                                                                  #                INTSTALL
037688,000077:                                                                                                  #                INTEGRVS
037689,000078:                                                                                                  #        RTEVN
037690,000079:                                                                                                  #                RTEDISP
037691,000080:                                                                                                  #                TMRAD100
037692,000081:                                                                                                  #                AUGEKUGL
037693,000082:                                                                                                  #                LAT-LONG
037694,000083:                                                                                                  #        TMRAD100
037695,000084:                                                                                                  #                TIMERAD
037696,000085:                                                                                                  #        INVC100
037697,000086:                                                                                                  #                CSMPREC
037698,000087:                                                                                                  #        GETERAD
037699,000088:                                                                                                  #        TIMETHET
037700,000089:                                                                                                  #        P370ALRM
037701,000090:                                                                                                  #        VN1645
037702,000091:                                                                                                  #        POLY
037703,000092: 
037704,000093:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037705,000094:                                                                                                  #        CSM STATE VECTOR

Page 844

037707,000096:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
037708,000097: 
037709,000098:                                                                                                  #  ASTRONAUT INPUT
037710,000099:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
037711,000100:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
037712,000101:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
037713,000102:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
037714,000103: 
037715,000104:                                                                                                  #  OUTPUT
037716,000105:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
037717,000106:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037718,000107:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037719,000108:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZON
037720,000109:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037721,000110:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037722,000111:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037723,000112:                                                                                                  #     TARGETING COMPUTATION DISPLAY
037724,000113:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
037725,000114:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
037726,000115:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
037727,000116:                                                                                                  #     THRUST PROGRAM COMMUNICATION
037728,000117:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
037729,000118:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
037730,000119:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
037731,000120:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
037732,000121:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
037733,000122: 
037734,000123: 36,2502           05301        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
037735,000124: 36,2503           00004                           OCT      4                                     
037736,000125: 
037737,000126: 36,2504           06006                           TC       INTPRET                               
037738,000127: 36,2505           66170                           AXT,1    SXA,1                                 
037739,000128: 36,2506           04000                           OCT      04000                                 
037740,000129: 36,2507           03424                                    ECSTEER                               
037741,000130: 36,2510           77776                           EXIT                                           
037742,000131: 36,2511           33242                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
037743,000132: 36,2512           03231                           TCR      P370GOF                               #                OVERLAYED WITH TIG
037744,000133: 36,2513           12511                           TCF      -2                                    #  DESPLAY NEW DATA
037745,000134: 36,2514           33246                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
037746,000135: 36,2515           03205                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RTEDVD
037747,000136: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
037748,000137: 36,2517           06006        RTE299             TC       INTPRET                               
037749,000138: 36,2520           71331                           SSP      DLOAD                                 
037750,000139: 36,2521           00122                                    OVFIND                                
037751,000140: 36,2522           00000                                    0                                     
037752,000141: 36,2523           03767                                    VPRED                                 
037753,000142: 36,2524           17632                           STODL    RTEDVD                                
037754,000143: 36,2525           03771                                    GAMMAEI                               
037755,000144: 36,2526           17634                           STODL    RTEGAM2D                              
037756,000145: 36,2527           31667                                    1RTEB13                               

Page 845

037758,000147: 36,2530           17735                           STODL    CONICX1                               
037759,000148: 36,2531           33756                                    C4RTE                                 
037760,000149: 36,2532           37652                           STCALL   MAMAX1                                
037761,000150: 36,2533           64427                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
037762,000151: 36,2534           77545                           DLOAD    EXIT                                  
037763,000152: 36,2535           03646                                    R(T1)                                 
037764,000153: 36,2536           07171                           TC       POLY                                  
037765,000154: 36,2537           00002                           DEC      2          B-14                       
037766,000155: 36,2540           02544 35436                     2DEC     181000434  B-31                       
037767,000156: 36,2542           14040 05066                     2DEC     1.50785145 B-2                        
037768,000157: 36,2544           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
037769,000158: 36,2546           26415 25057                     2DEC*    9.76938926 E-18       B56*            
037770,000159: 
037771,000160: 36,2550           06006                           TC       INTPRET                               
037772,000161: 36,2551           77752                           SL1                                            
037773,000162: 36,2552           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
037774,000163: 36,2553           31717                                    M9RTEB28                              
037775,000164: 36,2554           17730                           STODL    NN1A                                  
037776,000165: 36,2555           33762                                    K2RTE                                 
037777,000166: 36,2556           17636        RTE320             STODL    RCON                                  #  RCON=K2
037778,000167: 36,2557           03634                                    RTEGAM2D                              
037779,000168: 36,2560           44254                           BZE      BDSU                                  
037780,000169: 36,2561           74570                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
037781,000170: 36,2562           31655                                    1RTEB2                                
037782,000171: 36,2563           71406                           PUSH     COS                                   #                                        PL02D
037783,000172: 36,2564           73525                           PDDL     SIN                                   
037784,000173: 36,2565           45465                           BDDV     STADR                                 #                                        PL00D
037785,000174: 36,2566           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
037786,000175: 36,2567           74603                                    RTE360                                
037787,000176: 36,2570           45345        RTE340             DLOAD    DSU                                   
037788,000177: 36,2571           03646                                    R(T1)                                 
037789,000178: 36,2572           33760                                    K1RTE                                 
037790,000179: 36,2573           71240                           BMN      DLOAD                                 
037791,000180: 36,2574           74600                                    RTE350                                
037792,000181: 36,2575           33766                                    K4RTE                                 
037793,000182: 36,2576           37726                           STCALL   X(T2)                                 #  X(T2)=K4
037794,000183: 36,2577           74603                                    RTE360                                
037795,000184: 36,2600           77745        RTE350             DLOAD                                          
037796,000185: 36,2601           33764                                    K3RTE                                 
037797,000186: 36,2602           03726                           STORE    X(T2)                                 #  X(T2)=K3
037798,000187: 36,2603           77624        RTE360             CALL                                           
037799,000188: 36,2604           65136                                    V2T100                                
037800,000189: 36,2605           52054                           BZE      GOTO                                  
037801,000190: 36,2606           74610                                    RTE367                                
037802,000191: 36,2607           74772                                    RTEALRM                               
037803,000192: 36,2610           77775        RTE367             VLOAD                                          
037804,000193: 36,2611           03640                                    R(T1)/                                

Page 846

037806,000195: 36,2612           16657                           STODL    RVEC                                  
037807,000196: 36,2613           03636                                    RCON                                  
037808,000197: 36,2614           26760                           STOVL    RDESIRED                              
037809,000198: 36,2615           03700                                    V2(T1)/                               
037810,000199: 36,2616           36746                           STCALL   VVEC                                  
037811,000200: 36,2617           64272                                    TMRAD100                              
037812,000201: 36,2620           77615                           DAD                                            
037813,000202: 36,2621           03716                                    T1                                    
037814,000203: 36,2622           17736                           STODL    T2                                    
037815,000204: 36,2623           03634                                    RTEGAM2D                              
037816,000205: 36,2624           52054                           BZE      GOTO                                  
037817,000206: 36,2625           74627                                    RTE369                                
037818,000207: 36,2626           74651                                    RTE372                                
037819,000208: 36,2627           51575        RTE369             VLOAD    ABVAL                                 
037820,000209: 36,2630           03710                                    V(T2)/                                
037821,000210: 36,2631           77776                           EXIT                                           
037822,000211: 36,2632           07171                           TC       POLY                                  
037823,000212: 36,2633           00002                           DEC      2          B-14                       
037824,000213: 36,2634           00000 00000                     2DEC     0          B-28                       
037825,000214: 36,2636           47021 65002                     2DEC     -4.8760771 E-2        B4              
037826,000215: 36,2640           35610 07722                     2DEC     4.5419476  E-4        B11             
037827,000216: 36,2642           63772 63276                     2DEC     -1.4317675 E-6        B18             
037828,000217: 
037829,000218: 36,2644           06006                           TC       INTPRET                               
037830,000219: 36,2645           77615                           DAD                                            
037831,000220: 36,2646           01352                                    RTED1                                 
037832,000221: 36,2647           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
037833,000222: 36,2650           74653                                    RTE373                                
037834,000223: 36,2651           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
037835,000224: 36,2652           03726                                    X(T2)                                 
037836,000225: 36,2653           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D
037837,000226: 36,2654           03726                                    X(T2)                                 
037838,000227: 36,2655           53575                           VLOAD    UNIT                                  
037839,000228: 36,2656           03656                                    R(T2)/                                #                                        B58
037840,000229: 36,2657           36152                           STCALL   ALPHAV                                
037841,000230: 36,2660           26437                                    GETERAD                               
037842,000231: 36,2661           77615                           DAD                                            
037843,000232: 36,2662           33772                                    E3RTE                                 
037844,000233: 36,2663           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
037845,000234: 36,2664           03636                                    RCON                                  
037846,000235: 36,2665           45246                           ABS      DSU                                   
037847,000236: 36,2666           31754                                    EPC2RTE                               
037848,000237: 36,2667           52040                           BMN      GOTO                                  
037849,000238: 36,2670           74672                                    RTE374                                
037850,000239: 36,2671           74677                                    RTE375                                
037851,000240: 36,2672           51545        RTE374             DLOAD    ABS                                   
037852,000241: 36,2673           00001                                    00D                                   

Page 847

037854,000243: 36,2674           50025                           DSU      BMN                                   
037855,000244: 36,2675           31756                                    EPC3RTE                               
037856,000245: 36,2676           74747                                    P37E                                  
037857,000246: 36,2677           43345        RTE375             DLOAD    DAD                                   
037858,000247: 36,2700           03730                                    NN1A                                  
037859,000248: 36,2701           31675                                    1RTEB28                               
037860,000249: 36,2702           67240                           BMN      SLOAD                                 
037861,000250: 36,2703           74707                                    RTE380                                
037862,000251: 36,2704           31735                                    OCT605                                
037863,000252: 36,2705           77650                           GOTO                                           
037864,000253: 36,2706           74772                                    RTEALRM                               #  TOO MANY ITERATIONS
037865,000254: 36,2707           03730        RTE380             STORE    NN1A                                  
037866,000255: 36,2710           53025                           DSU      BZE                                   
037867,000256: 36,2711           31721                                    M8RTEB28                              
037868,000257: 36,2712           74730                                    RTE385                                
037869,000258: 36,2713           45345                           DLOAD    DSU                                   
037870,000259: 36,2714           00001                                    00D                                   
037871,000260: 36,2715           03666                                    DRCON                                 
037872,000261: 36,2716           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1                 PL06D
037873,000262: 36,2717           00047                                    X1                                    
037874,000263: 36,2720           03670                                    RPRE'                                 
037875,000264: 36,2721           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
037876,000265: 36,2722           03726                                    X(T2)                                 
037877,000266: 36,2723           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
037878,000267: 36,2724           00001                                    00D                                   
037879,000268: 36,2725           20201                                    0,1                                   
037880,000269: 36,2726           77650                           GOTO                                           
037881,000270: 36,2727           74732                                    RTE390                                
037882,000271: 36,2730           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
037883,000272: 36,2731           00001                                    00D                                   
037884,000273: 36,2732           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
037885,000274: 36,2733           77626                           STADR                                          
037886,000275: 36,2734           60141                           STODL    RCON                                  #  RCON=RCON,
037887,000276: 36,2735           77600                           BOV                                            
037888,000277: 36,2736           74603                                    RTE360                                
037889,000278: 36,2737           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
037890,000279: 36,2740           03726                                    X(T2)                                 
037891,000280: 36,2741           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
037892,000281: 36,2742           00021                                    16D                                   
037893,000282: 36,2743           77615                           DAD                                            
037894,000283: 36,2744           03726                                    X(T2)                                 
037895,000284: 36,2745           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
037896,000285: 36,2746           74603                                    RTE360                                #  REITERATE
037897,000286: 36,2747           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
037898,000287: 36,2750           74776                                    RTEVN                                 
037899,000288: 36,2751           41345        RTE505             DLOAD    DMP                                   
037900,000289: 36,2752           03720                                    PCON                                  
037901,000290: 36,2753           03754                                    BETA1                                 
037902,000291: 36,2754           53021                           BDSU     BZE                                   
037903,000292: 36,2755           03636                                    RCON                                  

Page 848

037905,000294: 36,2756           74764                                    RTE510                                
037906,000295: 36,2757           71240                           BMN      DLOAD                                 
037907,000296: 36,2760           74764                                    RTE510                                
037908,000297: 36,2761           31655                                    1RTEB2                                
037909,000298: 36,2762           77650                           GOTO                                           #  ENTRY NEAR APOGEE
037910,000299: 36,2763           74766                                    RTE515                                
037911,000300: 36,2764           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
037912,000301: 36,2765           31655                                    1RTEB2                                
037913,000302: 36,2766           37761        RTE515             STCALL   PHI2                                  
037914,000303: 36,2767           64515                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
037915,000304: 36,2770           77654        RTE625             BZE                                            
037916,000305: 36,2771           75024                                    P37G                                  
037917,000306: 36,2772           77624        RTEALRM            CALL                                           
037918,000307: 36,2773           64255                                    P370ALRM                              
037919,000308: 36,2774           77776                           EXIT                                           
037920,000309: 36,2775           12502                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
037921,000310: 
037922,000311:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
037923,000312: 
037924,000313: 36,2776           45020        RTEVN              STQ      CALL                                  
037925,000314: 36,2777           03763                                    VNSTORE                               
037926,000315: 36,3000           64311                                    RTEDISP                               #  DISPLAY PREPARATION
037927,000316: 36,3001           77776                           EXIT                                           
037928,000317: 36,3002           33244                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
037929,000318: 36,3003           03215                           TCR      P370GOFR                              #        IN LAT(SPL),LNG(SPL),-
037930,000319: 36,3004           34710                           CAF      FOUR                                  
037931,000320: 36,3005           03211                           TCR      37BLANK    +1                         
037932,000321: 36,3006           13013                           TCF      +5                                    
037933,000322: 36,3007           12502                           TCF      P37                                   #  RECYCLE
037934,000323: 36,3010           33245                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
037935,000324: 36,3011           03231                           TCR      P370GOF                               
037936,000325: 36,3012           12502                           TCF      P37                                   #  RECYCLE
037937,000326: 36,3013           33246                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
037938,000327: 36,3014           03205                           TCR      P37GFRB1                              #        IN -,VPRED,GAMMAEI
037939,000328: 36,3015           12502                           TCF      P37                                   #  RECYCLE
037940,000329: 36,3016           33247                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
037941,000330: 36,3017           03231                           TCR      P370GOF                               
037942,000331: 36,3020           12502                           TCF      P37                                   #  RECYCLE
037943,000332: 36,3021           06006                           TCR      INTPRET                               
037944,000333: 36,3022           77650                           GOTO                                           
037945,000334: 36,3023           03763                                    VNSTORE                               
037946,000335: 
037947,000336:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
037948,000337: 
037949,000338: 36,3024           77624        P37G               CALL                                           
037950,000339: 36,3025           74776                                    RTEVN                                 
037951,000340: 36,3026           77776                           EXIT                                           
037952,000341: 36,3027           34716        P37N               CAF      SEVEN                                 
037953,000342: 36,3030           55131                           TS       OPTION1                               
037954,000343: 36,3031           34712                           CAF      ONE                                   

Page 849

037956,000345: 36,3032           55132                           TS       OPTION2                               
037957,000346: 36,3033           33243                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION     SPS ASSUMED
037958,000347: 36,3034           03231                           TCR      P370GOF                               
037959,000348: 36,3035           13033                           TCF      -2                                    #  RECYCLE
037960,000349: 36,3036           06006                           TC       INTPRET                               #  PROCEED
037961,000350: 36,3037           67201                           SETPD    SLOAD                                 
037962,000351: 36,3040           00001                                    00D                                   
037963,000352: 36,3041           01133                                    OPTION2                               
037964,000353: 36,3042           53025                           DSU      BZE                                   
037965,000354: 36,3043           31667                                    1RTEB13                               
037966,000355: 36,3044           75053                                    P37Q                                  
037967,000356: 36,3045           60335                           SLOAD    NORM                                  #  SPS
037968,000357: 36,3046           00111                                    EMDOT                                 
037969,000358: 36,3047           00047                                    X1                                    
037970,000359: 36,3050           52125                           PDDL     GOTO                                  
037971,000360: 36,3051           31725                                    VCSPS                                 
037972,000361: 36,3052           75064                                    P37T                                  
037973,000362: 36,3053           43145        P37Q               DLOAD    BON                                   #  RCS
037974,000363: 36,3054           31731                                    MDOTRCS                               
037975,000364: 36,3055           00700                                    NJETSFLG                              
037976,000365: 36,3056           75060                                    P37R                                  
037977,000366: 36,3057           77752                           SL1                                            
037978,000367: 36,3060           77752        P37R               SL1                                            
037979,000368: 36,3061           65301                           NORM     PDDL                                  
037980,000369: 36,3062           00047                                    X1                                    
037981,000370: 36,3063           31727                                    VCRCS                                 
037982,000371: 36,3064           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2 PL02D
037983,000372: 36,3065           03706                                    DV                                    
037984,000373: 36,3066           77776                           EXIT                                           
037985,000374: 36,3067           07171                           TC       POLY                                  
037986,000375: 36,3070           00001                           DEC      1          B-14                       
037987,000376: 36,3071           00001 05070                     2DEC     5.66240507 E-4        B-3             
037988,000377: 36,3073           17527 36700                     2DEC     9.79487897 E-1        B-1             
037989,000378: 36,3075           47114 70670                     2DEC     -.388281955 B1                         
037990,000379: 36,3077           06006                           TC       INTPRET                               
037991,000380: 36,3100           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A     B3 PL04D
037992,000381: 36,3101           03076                                    WEIGHT/G                              
037993,000382: 36,3102           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16 PL00D
037994,000383: 36,3103           41257                           SL*      DMP                                   
037995,000384: 36,3104           20165                                    0          -12D,1                     
037996,000385: 36,3105           31733                                    CSUBT                                 
037997,000386: 36,3106           77621                           BDSU                                           
037998,000387: 36,3107           03716                                    T1                                    
037999,000388: 36,3110           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB         B28
038000,000389: 36,3111           77776                           EXIT                                           
038001,000390: 36,3112           33242                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
038002,000391: 36,3113           03231                           TCR      P370GOF                               

Page 850

038004,000393: 36,3114           13112                           TCF      -2                                    
038005,000394: 36,3115           34714                           CAF      ZERO                                  
038006,000395: 36,3116           55125                           TS       VHFCNT                                
038007,000396: 36,3117           55126                           TS       TRKMKCNT                              
038008,000397: 36,3120           06006                           TC       INTPRET                               
038009,000398: 36,3121           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
038010,000399: 36,3122           65055                                    RTENCK1                               
038011,000400: 36,3123           53575                           VLOAD    UNIT                                  #                        PL00D
038012,000401: 36,3124           03656                                    R(T2)/                                
038013,000402: 36,3125           74315                           PDVL     VXSC                                  #  UR2                   B1 PL06D
038014,000403: 36,3126           03740                                    UR1/                                  
038015,000404: 36,3127           31740                                    MCOS7.5                               
038016,000405: 36,3130           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)          B1 PL12D
038017,000406: 36,3131           03746                                    UH/                                   
038018,000407: 36,3132           31742                                    MSIN7.5                               
038019,000408: 36,3133           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2 PL00D
038020,000409: 36,3134           50015                           DAD      BMN                                   
038021,000410: 36,3135           31744                                    MCOS22.5                              
038022,000411: 36,3136           75163                                    P37W                                  
038023,000412: 36,3137           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
038024,000413: 36,3140           03746                                    UH/                                   
038025,000414: 36,3141           03656                                    R(T2)/                                
038026,000415: 36,3142           71240                           BMN      DLOAD                                 
038027,000416: 36,3143           75147                                    P37U                                  
038028,000417: 36,3144           31746                                    THETA165                              
038029,000418: 36,3145           52006                           PUSH     GOTO                                  
038030,000419: 36,3146           75151                                    P37V                                  
038031,000420: 36,3147           41545        P37U               DLOAD    PUSH                                  
038032,000421: 36,3150           31750                                    THETA210                              
038033,000422: 36,3151           77756        P37V               SIN                                            
038034,000423: 36,3152           16732                           STODL    SNTH                                  
038035,000424: 36,3153           43146                           COS      CLEAR                                 
038036,000425: 36,3154           03666                                    RVSW                                  
038037,000426: 36,3155           26734                           STOVL    CSTH                                  
038038,000427: 36,3156           03640                                    R(T1)/                                
038039,000428: 36,3157           26657                           STOVL    RVEC                                  
038040,000429: 36,3160           03700                                    V2(T1)/                               
038041,000430: 36,3161           36746                           STCALL   VVEC                                  
038042,000431: 36,3162           24737                                    TIMETHET                              
038043,000432: 36,3163           43014        P37W               CLEAR    CLEAR                                 
038044,000433: 36,3164           01267                                    XDELVFLG                              
038045,000434: 36,3165           03665                                    NORMSW                                
038046,000435: 36,3166           77214                           SET      VLOAD                                 
038047,000436: 36,3167           01071                                    FINALFLG                              
038048,000437: 36,3170           77626                           STADR                                          
038049,000438: 36,3171           60362                           STODL    RTARG                                 
038050,000439: 36,3172           00037                                    T                                     
038051,000440: 36,3173           77615                           DAD                                            
038052,000441: 36,3174           03716                                    T1                                    
038053,000442: 36,3175           27656                           STOVL    TPASS4                                

Page 851

038055,000444: 36,3176           03700                                    V2(T1)/                               
038056,000445: 36,3177           77651                           VSU                                            
038057,000446: 36,3200           03672                                    V(T1)/                                
038058,000447: 36,3201           37646                           STCALL   DELVSIN                               
038059,000448: 36,3202           73005                                    VN1645                                
038060,000449: 36,3203           77650                           GOTO                                           
038061,000450: 36,3204           75163                                    P37W                                  
038062,000451: 
038063,000452:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
038064,000453: 
038065,000454: 36,3205           00006        P37GFRB1           EXTEND                                         
038066,000455: 36,3206           23762                           QXCH     SPRTEX                                
038067,000456: 36,3207           03215                           TCR      P370GOFR                              
038068,000457: 36,3210           34712        37BLANK            CAF      ONE                                   
038069,000458: 36,3211           05415                           TCR      BLANKET                               
038070,000459: 36,3212           15112                           TCF      ENDOFJOB                              
038071,000460: 36,3213           01762                           TC       SPRTEX                                #  RECYCLE
038072,000461: 36,3214           13240                           TCF      P37PROC                               #  PROCEED
038073,000462: 
038074,000463:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
038075,000464: 
038076,000465: 36,3215           00006        P370GOFR           EXTEND                                         
038077,000466: 36,3216           23733                           QXCH     RTENCKEX                              
038078,000467: 36,3217           04555                           TCR      BANKCALL                              
038079,000468: 36,3220           20763                           CADR     GOFLASHR                              
038080,000469: 36,3221           14106                           TCF      GOTOPOOH                              #  TERMINATE
038081,000470: 36,3222           13225                           TCF      +3                                    
038082,000471: 36,3223           13227                           TCF      +4                                    
038083,000472: 36,3224           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
038084,000473: 36,3225           51733                           INDEX    RTENCKEX                              #  PROCEED
038085,000474: 36,3226           10004                           TCF      0          +4                         
038086,000475: 36,3227           51733                           INDEX    RTENCKEX                              #  RECYCLE
038087,000476: 36,3230           10003                           TCF      0          +3                         
038088,000477: 
038089,000478:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
038090,000479: 
038091,000480: 36,3231           00006        P370GOF            EXTEND                                         
038092,000481: 36,3232           23762                           QXCH     SPRTEX                                
038093,000482: 36,3233           04555                           TCR      BANKCALL                              
038094,000483: 36,3234           20624                           CADR     GOFLASH                               
038095,000484: 36,3235           14106                           TCF      GOTOPOOH                              
038096,000485: 36,3236           13240                           TCF      +2                                    
038097,000486: 36,3237           01762                           TC       SPRTEX                                
038098,000487: 36,3240           51762        P37PROC            INDEX    SPRTEX                                
038099,000488: 36,3241           10001                           TCF      0          +1                         
038100,000489: 36,3242           01441        V6N33RTE           VN       0633                                  
038101,000490: 36,3243           01006        V4N06RTE           VN       0406                                  
038102,000491: 36,3244           01475        V6N61RTE           VN       0661                                  
038103,000492: 36,3245           01447        V6N39RTE           VN       0639                                  
038104,000493: 36,3246           01474        V6N60RTE           VN       0660                                  

Page 852

038106,000495: 36,3247           01521        V6N81RTE           VN       0681                                  
038107,000496: 32,2255                                           BANK     32                                    
038108,000497: 32,2000                                           SETLOC   RTE                                   
038109,000498: 32,2000                                           BANK                                           
038110,000499: 32,2255                                           COUNT    32/RTE                                
038111,000500: 

Page 853

038113,000502:                                                                                                  #  ALARM DISPLAY SUBROUTINE
038114,000503: 
038115,000504: 32,2255           77420        P370ALRM           STQ      EXIT                                  
038116,000505: 32,2256           03762                                    SPRTEX                                
038117,000506: 32,2257           30154                           CA       MPAC                                  
038118,000507: 32,2260           05651                           TC       VARALARM                              
038119,000508: 32,2261           32271                           CAF      V5N09RTE                              
038120,000509: 32,2262           04555                           TC       BANKCALL                              
038121,000510: 32,2263           20624                           CADR     GOFLASH                               
038122,000511: 32,2264           14106                           TCF      GOTOPOOH                              
038123,000512: 32,2265           12261                           TCF      -4                                    
038124,000513: 32,2266           06006                           TC       INTPRET                               
038125,000514: 32,2267           77650                           GOTO                                           
038126,000515: 32,2270           03762                                    SPRTEX                                
038127,000516: 32,2271           01211        V5N09RTE           VN       0509                                  
038128,000517: 

Page 854

038130,000519:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
038131,000520: 
038132,000521:                                                                                                  #  INPUT
038133,000522:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038134,000523:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038135,000524:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
038136,000525:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES        -2=EARTH        SP      B14
038137,000526: 
038138,000527:                                                                                                  #  OUTPUT
038139,000528:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038140,000529:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038141,000530:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
038142,000531: 
038143,000532: 32,2272           43020        TMRAD100           STQ      CLEAR                                 
038144,000533: 32,2273           03733                                    RTENCKEX                              
038145,000534: 32,2274           03666                                    RVSW                                  
038146,000535: 32,2275           67164                           AXC,2    SXA,2                                 
038147,000536: 32,2276           20000                           OCT      20000                                 
038148,000537: 32,2277           02756                                    SGNRDOT                               
038149,000538: 32,2300           45140                           LXC,1    CALL                                  
038150,000539: 32,2301           03734                                    CONICX1                               
038151,000540: 32,2302           25552                                    TIMERAD                               
038152,000541: 32,2303           27710                           STOVL    V(T2)/                                #                        PL00D
038153,000542: 32,2304           77626                           STADR                                          
038154,000543: 32,2305           60121                           STODL    R(T2)/                                
038155,000544: 32,2306           00037                                    T                                     
038156,000545: 32,2307           37724                           STCALL   T12                                   
038157,000546: 32,2310           03733                                    RTENCKEX                              
038158,000547: 

Page 855

038160,000549:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
038161,000550: 
038162,000551:                                                                                                  #  DESCRIPTION
038163,000552:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
038164,000553:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
038165,000554: 
038166,000555:                                                                                                  #  CALLING SEQUENCE
038167,000556:                                                                                                  #        L       CALL
038168,000557:                                                                                                  #        L+1             RTEDISP
038169,000558: 
038170,000559:                                                                                                  #  SUBROUTINES CALLED
038171,000560:                                                                                                  #        TMRAD100
038172,000561:                                                                                                  #        AUGEKUGL
038173,000562:                                                                                                  #        LAT-LONG
038174,000563: 
038175,000564:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038176,000565:                                                                                                  #     PUSHLIST
038177,000566:                                                                                                  #        NONE
038178,000567:                                                                                                  #     MPAC
038179,000568:                                                                                                  #        NONE
038180,000569:                                                                                                  #     OTHER
038181,000570:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038182,000571:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038183,000572:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038184,000573:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038185,000574:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038186,000575:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038187,000576:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038188,000577: 
038189,000578:                                                                                                  #  OUTPUT
038190,000579:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
038191,000580:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
038192,000581:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
038193,000582:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
038194,000583:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
038195,000584:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
038196,000585: 
038197,000586: 32,2311           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
038198,000587: 32,2312           03762                                    SPRTEX                                
038199,000588: 32,2313           03710                                    V(T2)/                                
038200,000589: 32,2314           65256                           UNIT     PDDL                                  
038201,000590: 32,2315           00045                                    36D                                   
038202,000591: 32,2316           17767                           STODL    VPRED                                 #  V(T2)
038203,000592: 32,2317           03736                                    T2                                    
038204,000593: 32,2320           77625                           DSU                                            
038205,000594: 32,2321           03413                                    SPRTETIG                              
038206,000595: 32,2322           26641                           STOVL    T3TOT4                                #  T21
038207,000596: 32,2323           03656                                    R(T2)/                                
038208,000597: 32,2324           50256                           UNIT     DOT                                   
038209,000598: 32,2325           77752                           SL1                                            

Page 856

038211,000600: 32,2326           44326                           ARCCOS   BDSU                                  
038212,000601: 32,2327           31655                                    1RTEB2                                
038213,000602: 32,2330           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
038214,000603: 32,2331           03700                                    V2(T1)/                               
038215,000604: 32,2332           41451                           VSU      PUSH                                  
038216,000605: 32,2333           03672                                    V(T1)/                                
038217,000606: 32,2334           57441                           DOT      DCOMP                                 
038218,000607: 32,2335           03740                                    UR1/                                  
038219,000608: 32,2336           41515                           PDVL     PUSH                                  
038220,000609: 32,2337           63345                           DLOAD    PDVL                                  
038221,000610: 32,2340           31677                                    ZERORTE                               
038222,000611: 32,2341           55441                           DOT      VDEF                                  
038223,000612: 32,2342           03746                                    UH/                                   
038224,000613: 32,2343           77772                           VSL1                                           
038225,000614: 32,2344           27405                           STOVL    DELVLVC                               #  DV/ (LVC)
038226,000615: 32,2345           03656                                    R(T2)/                                
038227,000616: 32,2346           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
038228,000617: 32,2347           45246                           ABVAL    DSU                                   
038229,000618: 32,2350           31723                                    30480RTE                              
038230,000619: 32,2351           26760                           STOVL    RDESIRED                              
038231,000620: 32,2352           03710                                    V(T2)/                                
038232,000621: 32,2353           36746                           STCALL   VVEC                                  
038233,000622: 32,2354           64272                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
038234,000623: 32,2355           53575                           VLOAD    UNIT                                  
038235,000624: 32,2356           03656                                    R(T2)/                                
038236,000625: 32,2357           53515                           PDVL     UNIT                                  #  UR3                           PL06D
038237,000626: 32,2360           03710                                    V(T2)/                                
038238,000627: 32,2361           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)      PL00D
038239,000628: 32,2362           65336                           ARCSIN   PDDL                                  #  V(T3)                         PL02D
038240,000629: 32,2363           00045                                    36D                                   
038241,000630: 32,2364           51525                           PDDL     ABS                                   
038242,000631: 32,2365           45006                           PUSH     CALL                                  #  /GAMMAE/                      PL04D
038243,000632: 32,2366           64075                                    AUGEKUGL                              #  PHIE                          PL06D
038244,000633: 32,2367           43215                           DAD      DAD                                   
038245,000634: 32,2370           03724                                    T12                                   #  T23
038246,000635: 32,2371           03736                                    T2                                    
038247,000636: 32,2372           14003                           STODL    02D                                   #  T(LS)=T2+T23+TE
038248,000637: 32,2373           00005                                    04D                                   
038249,000638: 32,2374           77756                           SIN                                            
038250,000639: 32,2375           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)            PL04D
038251,000640: 32,2376           77746                           COS                                            
038252,000641: 32,2377           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
038253,000642: 32,2400           53575                           VLOAD    UNIT                                  
038254,000643: 32,2401           03656                                    R(T2)/                                
038255,000644: 32,2402           41406                           PUSH     PUSH                                  
038256,000645: 32,2403           53515                           PDVL     UNIT                                  #                                PL22D
038257,000646: 32,2404           03710                                    V(T2)/                                
038258,000647: 32,2405           47315                           PDVL     VXV                                   
038259,000648: 32,2406           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)     PL10D
038260,000649: 32,2407           63361                           VXSC     PDVL                                  

Page 857

038262,000651: 32,2410           03403                                    LNG(SPL)                              
038263,000652: 32,2411           53361                           VXSC     VAD                                   #                                PL04D
038264,000653: 32,2412           03401                                    LAT(SPL)                              
038265,000654: 32,2413           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
038266,000655: 32,2414           00662                                    ERADFLAG                              
038267,000656: 32,2415           01663                                    LUNAFLAG                              
038268,000657: 32,2416           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
038269,000658: 32,2417           77624                           CALL                                           
038270,000659: 32,2420           26322                                    LAT-LONG                              
038271,000660: 32,2421           77745                           DLOAD                                          
038272,000661: 32,2422           01104                                    LAT                                   
038273,000662: 32,2423           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
038274,000663: 32,2424           01106                                    LONG                                  
038275,000664: 32,2425           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
038276,000665: 32,2426           03762                                    SPRTEX                                
038277,000666: 32,2427                                           COUNT*   $$/RTE                                
038278,000667: 

Page 858

038280,000669:                                                                                                  #  INITIAL VECTOR SUBROUTINE
038281,000670: 
038282,000671:                                                                                                  #  DESCRIPTION
038283,000672:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED.  PRECOMPUTATIONS OCCUR.
038284,000673: 
038285,000674:                                                                                                  #  CALLING SEQUENCE
038286,000675:                                                                                                  #        L       CALL
038287,000676:                                                                                                  #        L+1             INVC100
038288,000677: 
038289,000678:                                                                                                  #  NORMAL EXIT MODE
038290,000679:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038291,000680: 
038292,000681:                                                                                                  #  ALARM EXIT MODE
038293,000682:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
038294,000683: 
038295,000684:                                                                                                  #  SUBROUTINES CALLED
038296,000685:                                                                                                  #        CSMPREC
038297,000686: 
038298,000687:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038299,000688:                                                                                                  #     PUSHLIST
038300,000689:                                                                                                  #        NONE
038301,000690:                                                                                                  #     MPAC
038302,000691:                                                                                                  #        NONE
038303,000692:                                                                                                  #     OTHER
038304,000693:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
038305,000694:                                                                                                  #        CSM STATE VECTOR
038306,000695: 
038307,000696:                                                                                                  #  OUTPUT
038308,000697:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
038309,000698:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
038310,000699:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
038311,000700:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038312,000701:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038313,000702:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038314,000703: 
038315,000704: 32,2427           71220        INVC100            STQ      DLOAD                                 
038316,000705: 32,2430           03762                                    SPRTEX                                
038317,000706: 32,2431           03413                                    SPRTETIG                              
038318,000707: 32,2432           34041                           STCALL   TDEC1                                 
038319,000708: 32,2433           27022                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
038320,000709: 32,2434           67175                           VLOAD    SXA,2                                 
038321,000710: 32,2435           00001                                    RATT                                  
038322,000711: 32,2436           03755                                    P(T1)                                 
038323,000712: 32,2437           27640                           STOVL    R(T1)/                                
038324,000713: 32,2440           00007                                    VATT                                  
038325,000714: 32,2441           17672                           STODL    V(T1)/                                
038326,000715: 32,2442           00015                                    TAT                                   
038327,000716: 32,2443           03716                           STORE    T1                                    
038328,000717: 32,2444           53135                           SLOAD    BZE                                   
038329,000718: 32,2445           03756                                    P(T1)                                 

Page 859

038331,000720: 32,2446           64452                                    INVC109                               
038332,000721: 32,2447           52135        INVC107            SLOAD    GOTO                                  
038333,000722: 32,2450           31736                                    OCT612                                
038334,000723: 32,2451           74772                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
038335,000724: 32,2452           53575        INVC109            VLOAD    UNIT                                  
038336,000725: 32,2453           03640                                    R(T1)/                                
038337,000726: 32,2454           17740                           STODL    UR1/                                  #  UR1/                                  B1
038338,000727: 32,2455           00045                                    36D                                   
038339,000728: 32,2456           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
038340,000729: 32,2457           03672                                    V(T1)/                                
038341,000730: 32,2460           77656                           UNIT                                           
038342,000731: 32,2461           03746                           STORE    UV1/                                  
038343,000732: 32,2462           72441                           DOT      SL1                                   
038344,000733: 32,2463           03740                                    UR1/                                  
038345,000734: 32,2464           03757                           STORE    CFPA                                  #  CFPA                                  B1
038346,000735: 32,2465           45246                           ABS      DSU                                   
038347,000736: 32,2466           31752                                    EPC1RTE                               
038348,000737: 32,2467           71240                           BMN      DLOAD                                 
038349,000738: 32,2470           64477                                    INVC115                               #  NOT NEAR RECTILINEAR
038350,000739: 32,2471           31655                                    1RTEB2                                
038351,000740: 32,2472           41525                           PDDL     PUSH                                  
038352,000741: 32,2473           31677                                    ZERORTE                               
038353,000742: 32,2474           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
038354,000743: 32,2475           77650                           GOTO                                           
038355,000744: 32,2476           64503                                    INVC120                               
038356,000745: 32,2477           47375        INVC115            VLOAD    VXV                                   
038357,000746: 32,2500           03740                                    UR1/                                  
038358,000747: 32,2501           03746                                    UV1/                                  
038359,000748: 32,2502           77606                           PUSH                                           #  N/ = UR X UV                          B2
038360,000749: 32,2503           41545        INVC120            DLOAD    PUSH                                  
038361,000750: 32,2504           77244                           BPL      VLOAD                                 
038362,000751: 32,2505           64507                                    INVC125                               
038363,000752: 32,2506           41476                           VCOMP    PUSH                                  #  CORRECT N/ FOR RETROGRADE TRAJECTORY
038364,000753: 32,2507           77775        INVC125            VLOAD                                          
038365,000754: 32,2510           53435                           VXV      UNIT                                  
038366,000755: 32,2511           03740                                    UR1/                                  
038367,000756: 32,2512           03746                           STORE    UH/                                   #  UH/                                   B1
038368,000757: 32,2513           77650                           GOTO                                           
038369,000758: 32,2514           03762                                    SPRTEX                                
038370,000759: 

Page 860

038372,000761:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038373,000762: 
038374,000763:                                                                                                  #  DESCRIPTION
038375,000764:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038376,000765:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038377,000766:                                                                                                  #        AS POSSIBLE.
038378,000767: 
038379,000768:                                                                                                  #  CALLING SEQUENCE
038380,000769:                                                                                                  #        L       CALL
038381,000770:                                                                                                  #        L+1             PREC100
038382,000771: 
038383,000772:                                                                                                  #  NORMAL EXIT MODE
038384,000773:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038385,000774: 
038386,000775:                                                                                                  #  ALARM EXIT MODE
038387,000776:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
038388,000777:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
038389,000778:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
038390,000779: 
038391,000780:                                                                                                  #  SUBROUTINES CALLED
038392,000781:                                                                                                  #        INTSTALL
038393,000782:                                                                                                  #        RTENCK2
038394,000783:                                                                                                  #        RTENCK3
038395,000784:                                                                                                  #        TIMERAD
038396,000785:                                                                                                  #        PARAM
038397,000786:                                                                                                  #        V2T100
038398,000787: 
038399,000788:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038400,000789:                                                                                                  #     PUSHLIST
038401,000790:                                                                                                  #        NONE
038402,000791:                                                                                                  #     MPAC
038403,000792:                                                                                                  #        NONE
038404,000793:                                                                                                  #     OTHER
038405,000794:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
038406,000795:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038407,000796:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038408,000797:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038409,000798:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
038410,000799:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
038411,000800:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038412,000801:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038413,000802:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
038414,000803:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038415,000804:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038416,000805:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038417,000806:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038418,000807:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038419,000808:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
038420,000809:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE

Page 861

038422,000811: 
038423,000812:                                                                                                  #  OUTPUT
038424,000813:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038425,000814:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038426,000815:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038427,000816:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
038428,000817: 
038429,000818:                                                                                                  #  DEBRIS
038430,000819:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
038431,000820:                                                                                                  #        R/APRE          R/A                                                     DP      B6
038432,000821:                                                                                                  #        P/RPRE          P/R                                                     DP      B2
038433,000822:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
038434,000823:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
038435,000824:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
038436,000825:                                                                                                  #        RCON            FINAL RADIUS                                            DP      B29/B27 METERS
038437,000826:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
038438,000827: 
038439,000828: 32,2515           71220        PREC100            STQ      DLOAD                                 
038440,000829: 32,2516           03762                                    SPRTEX                                
038441,000830: 32,2517           31705                                    10RTE                                 
038442,000831: 32,2520           17730                           STODL    NN1A                                  
038443,000832: 32,2521           03636                                    RCON                                  
038444,000833: 32,2522           03664                           STORE    RD                                    
038445,000834: 32,2523           77745        PREC120            DLOAD                                          
038446,000835: 32,2524           31715                                    2RTEB1                                
038447,000836: 32,2525           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
038448,000837: 32,2526           31703                                    M15RTE                                
038449,000838: 32,2527           37732                           STCALL   NN2                                   
038450,000839: 32,2530           65103                                    RTENCK3                               
038451,000840: 32,2531           77624        PREC125            CALL                                           
038452,000841: 32,2532           11527                                    PARAM                                 
038453,000842: 32,2533           77745                           DLOAD                                          
038454,000843: 32,2534           02742                                    P                                     
038455,000844: 32,2535           14033                           STODL    P/RPRE                                
038456,000845: 32,2536           02744                                    R1A                                   
038457,000846: 32,2537           14035                           STODL    R/APRE                                
038458,000847: 32,2540           00041                                    R1                                    
038459,000848: 32,2541           14031                           STODL    RPRE                                  
038460,000849: 32,2542           03775                                    COGA                                  
038461,000850: 32,2543           77661                           SL                                             
038462,000851: 32,2544           20206                                    5                                     
038463,000852: 32,2545           03724                           STORE    X(T2)PRE                              
038464,000853: 32,2546           43276                           DCOMP    DAD                                   
038465,000854: 32,2547           03726                                    X(T2)                                 
038466,000855: 32,2550           45246                           ABS      DSU                                   
038467,000856: 32,2551           31760                                    EPC4RTE                               
038468,000857: 32,2552           50000                           BOV      BMN                                   
038469,000858: 32,2553           64555                                    PREC130                               
038470,000859: 32,2554           64736                                    PREC175                               
038471,000860: 
038472,000861:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 862

038474,000863: 32,2555           50145        PREC130            DLOAD    BMN                                   
038475,000864: 32,2556           03732                                    NN2                                   
038476,000865: 32,2557           64563                                    PREC140                               
038477,000866: 32,2560           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
038478,000867: 32,2561           31735                                    OCT605                                #        EXIT WITH ALARM
038479,000868: 32,2562           65053                                    PRECX                                 
038480,000869: 
038481,000870:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
038482,000871: 
038483,000872: 32,2563           53145        PREC140            DLOAD    BZE                                   
038484,000873: 32,2564           03730                                    NN1A                                  
038485,000874: 32,2565           64616                                    PREC162                               
038486,000875: 32,2566           42545        PREC150            DLOAD    SL4                                   #  ELLIPTIC CASE
038487,000876: 32,2567           00035                                    R/APRE                                
038488,000877: 32,2570           52525                           PDDL     SL3                                   #                                PL02D
038489,000878: 32,2571           00033                                    P/RPRE                                
038490,000879: 32,2572           41205                           DMP      DMP                                   #  (P/A)BETA1                    B4 PL00D
038491,000880: 32,2573           03754                                    BETA1                                 
038492,000881: 32,2574           57512                           SL2      DCOMP                                 
038493,000882: 32,2575           50015                           DAD      BMN                                   #  1-(P/A)BETA1=BETA2            B2
038494,000883: 32,2576           31655                                    1RTEB2                                
038495,000884: 32,2577           64602                                    PREC155                               
038496,000885: 32,2600           52166                           SQRT     GOTO                                  #  BETA2**.5=BETA3               B1
038497,000886: 32,2601           64604                                    PREC160                               
038498,000887: 32,2602           77745        PREC155            DLOAD                                          
038499,000888: 32,2603           31677                                    ZERORTE                               #  BETA3=0
038500,000889: 32,2604           43205        PREC160            DMP      DAD                                   
038501,000890: 32,2605           03761                                    PHI2                                  
038502,000891: 32,2606           31657                                    1RTEB3                                
038503,000892: 32,2607           60325                           PDDL     NORM                                  #  1+(PHI2)(BETA3)               B3
038504,000893: 32,2610           00035                                    R/APRE                                
038505,000894: 32,2611           00047                                    X1                                    
038506,000895: 32,2612           77665                           BDDV                                           #                                PL00D
038507,000896: 32,2613           52057                           SL*      GOTO                                  #  (1+PHI2*BETA3)/(R/A)=BETA4    B1
038508,000897: 32,2614           20175                                    0          -4,1                       
038509,000898: 32,2615           64624                                    PREC165                               
038510,000899: 32,2616           60345        PREC162            DLOAD    NORM                                  
038511,000900: 32,2617           00031                                    RPRE                                  
038512,000901: 32,2620           00047                                    X1                                    
038513,000902: 32,2621           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
038514,000903: 32,2622           03664                                    RD                                    
038515,000904: 32,2623           20200                                    0          -1,1                       
038516,000905: 32,2624           45206        PREC165            PUSH     DSU                                   
038517,000906: 32,2625           31653                                    1RTEB1                                
038518,000907: 32,2626           77676                           DCOMP                                          
038519,000908: 32,2627           03765                           STORE    BETA12                                
038520,000909: 32,2630           71240                           BMN      DLOAD                                 
038521,000910: 32,2631           64642                                    PREC168                               
038522,000911: 32,2632           03724                                    X(T2)PRE                              
038523,000912: 32,2633           71240                           BMN      DLOAD                                 

Page 863

038525,000914: 32,2634           64640                                    PREC167                               
038526,000915: 32,2635           03765                                    BETA12                                
038527,000916: 32,2636           77676                           DCOMP                                          
038528,000917: 32,2637           03765                           STORE    BETA12                                
038529,000918: 32,2640           77745        PREC167            DLOAD                                          
038530,000919: 32,2641           03765                                    BETA12                                
038531,000920: 32,2642           45246        PREC168            ABS      DSU                                   
038532,000921: 32,2643           31764                                    EPC6RTE                               
038533,000922: 32,2644           71240                           BMN      DLOAD                                 
038534,000923: 32,2645           64736                                    PREC175                               
038535,000924: 32,2646           72405                           DMP      SL1                                   
038536,000925: 32,2647           00031                                    RPRE                                  
038537,000926: 32,2650           77606                           PUSH                                           #  RF = NEW RADIUS
038538,000927: 32,2651           43345        PREC170            DLOAD    DAD                                   
038539,000928: 32,2652           03732                                    NN2                                   
038540,000929: 32,2653           31675                                    1RTEB28                               
038541,000930: 32,2654           03732                           STORE    NN2                                   
038542,000931: 32,2655           43175                           VLOAD    SET                                   
038543,000932: 32,2656           03656                                    R(T2)/                                
038544,000933: 32,2657           03466                                    RVSW                                  
038545,000934: 32,2660           26657                           STOVL    RVEC                                  
038546,000935: 32,2661           03710                                    V(T2)/                                
038547,000936: 32,2662           77765                           SIGN                                           
038548,000937: 32,2663           03765                                    BETA12                                
038549,000938: 32,2664           16746                           STODL    VVEC                                  
038550,000939: 32,2665           31653                                    1RTEB1                                
038551,000940: 32,2666           57565                           SIGN     DCOMP                                 
038552,000941: 32,2667           03765                                    BETA12                                
038553,000942: 32,2670           71354                           LXA,2    DLOAD                                 
038554,000943: 32,2671           00154                                    MPAC                                  
038555,000944: 32,2672           67140                           LXC,1    SXA,2                                 
038556,000945: 32,2673           03734                                    CONICX1                               
038557,000946: 32,2674           02756                                    SGNRDOT                               
038558,000947: 32,2675           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
038559,000948: 32,2676           25552                                    TIMERAD                               #        NEW RADIUS)
038560,000949: 32,2677           75345                           DLOAD    SIGN                                  
038561,000950: 32,2700           00037                                    T                                     
038562,000951: 32,2701           03765                                    BETA12                                
038563,000952: 32,2702           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21               PL02D
038564,000953: 32,2703           03650                                    DT21PR                                
038565,000954: 32,2704           00047                                    X1                                    
038566,000955: 32,2705           53665                           BDDV     SL*                                   
038567,000956: 32,2706           00001                                    00D                                   
038568,000957: 32,2707           20176                                    0          -3,1                       
038569,000958: 32,2710           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        B3 PL04D
038570,000959: 32,2711           64716                                    PREC172                               
038571,000960: 32,2712           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0 PL04D
038572,000961: 32,2713           31715                                    2RTEB1                                
038573,000962: 32,2714           77650                           GOTO                                           
038574,000963: 32,2715           64720                                    PREC173                               

Page 864

038576,000965: 32,2716           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0 PL04D
038577,000966: 32,2717           31707                                    M.6RTE                                
038578,000967: 32,2720           45271        PREC173            DDV      DSU                                   
038579,000968: 32,2721           00003                                    02D                                   
038580,000969: 32,2722           31657                                    1RTEB3                                
038581,000970: 32,2723           71240                           BMN      DLOAD                                 
038582,000971: 32,2724           64730                                    PREC174                               
038583,000972: 32,2725           77605                           DMP                                            
038584,000973: 32,2726           03650                                    DT21PR                                
038585,000974: 32,2727           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
038586,000975: 32,2730           41545        PREC174            DLOAD    PUSH                                  
038587,000976: 32,2731           00001                                    00D                                   
038588,000977: 32,2732           37650                           STCALL   DT21PR                                
038589,000978: 32,2733           65065                                    RTENCK2                               
038590,000979: 32,2734           77650                           GOTO                                           
038591,000980: 32,2735           64531                                    PREC125                               
038592,000981: 32,2736           45345        PREC175            DLOAD    DSU                                   
038593,000982: 32,2737           00031                                    RPRE                                  
038594,000983: 32,2740           03664                                    RD                                    
038595,000984: 32,2741           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
038596,000985: 32,2742           50025                           DSU      BMN                                   
038597,000986: 32,2743           31766                                    EPC7RTE                               
038598,000987: 32,2744           65037                                    PREC220                               
038599,000988: 
038600,000989:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
038601,000990: 
038602,000991: 32,2745           53145                           DLOAD    BZE                                   
038603,000992: 32,2746           03730                                    NN1A                                  
038604,000993: 32,2747           64560                                    PREC132                               #  TOO MANY ITERATIONS
038605,000994: 32,2750           53025                           DSU      BZE                                   
038606,000995: 32,2751           31705                                    10RTE                                 
038607,000996: 32,2752           65005                                    PREC207                               
038608,000997: 32,2753           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
038609,000998: 32,2754           03670                                    RPRE'                                 
038610,000999: 32,2755           00031                                    RPRE                                  #  RPRE,-RPRE                    B29/B27
038611,001000: 32,2756           55301                           NORM     BDDV                                  
038612,001001: 32,2757           00050                                    X2                                    
038613,001002: 32,2760           03666                                    DRCON                                 
038614,001003: 32,2761           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S          B2
038615,001004: 32,2762           57600                                    0          -2,2                       
038616,001005: 32,2763           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
038617,001006: 32,2764           31653                                    1RTEB1                                
038618,001007: 32,2765           64772                                    PREC205M                              
038619,001008: 32,2766           45246                           ABS      DSU                                   
038620,001009: 32,2767           31653                                    1RTEB1                                
038621,001010: 32,2770           77640                           BMN                                            
038622,001011: 32,2771           64775                                    PREC206                               
038623,001012: 32,2772           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
038624,001013: 32,2773           31715                                    2RTEB1                                
038625,001014: 32,2774           77725                           PDDL                                           #  S=-4                          B2

Page 865

038627,001016: 32,2775           41345        PREC206            DLOAD    DMP                                   
038628,001017: 32,2776           77712                           SL2                                            
038629,001018: 32,2777           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
038630,001019: 32,3000           77615                           DAD                                            
038631,001020: 32,3001           03636                                    RCON                                  
038632,001021: 32,3002           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
038633,001022: 32,3003           77650                           GOTO                                           
038634,001023: 32,3004           65024                                    PREC210                               
038635,001024: 32,3005           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
038636,001025: 32,3006           03664                                    RD                                    
038637,001026: 32,3007           70501                           NORM     SR1                                   
038638,001027: 32,3010           00047                                    X1                                    
038639,001028: 32,3011           60325                           PDDL     NORM                                  
038640,001029: 32,3012           00031                                    RPRE                                  
038641,001030: 32,3013           00050                                    X2                                    
038642,001031: 32,3014           55260                           XSU,1    BDDV                                  
038643,001032: 32,3015           00047                                    X2                                    
038644,001033: 32,3016           77657                           SR*                                            
038645,001034: 32,3017           20600                                    0          -1,1                       
038646,001035: 32,3020           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
038647,001036: 32,3021           77625                           DSU                                            
038648,001037: 32,3022           03664                                    RD                                    
038649,001038: 32,3023           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
038650,001039: 32,3024           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
038651,001040: 32,3025           00031                                    RPRE                                  
038652,001041: 32,3026           17670                           STODL    RPRE'                                 
038653,001042: 32,3027           03730                                    NN1A                                  
038654,001043: 32,3030           77625                           DSU                                            
038655,001044: 32,3031           31675                                    1RTEB28                               
038656,001045: 32,3032           37730                           STCALL   NN1A                                  
038657,001046: 32,3033           65136                                    V2T100                                
038658,001047: 32,3034           52030                           BHIZ     GOTO                                  
038659,001048: 32,3035           64523                                    PREC120                               
038660,001049: 32,3036           65053                                    PRECX                                 
038661,001050: 
038662,001051:                                                                                                  #  DESIRED RADIUS ACHIEVED
038663,001052: 
038664,001053: 32,3037           45345        PREC220            DLOAD    DSU                                   
038665,001054: 32,3040           03726                                    X(T2)                                 
038666,001055: 32,3041           03724                                    X(T2)PRE                              
038667,001056: 32,3042           45246                           ABS      DSU                                   
038668,001057: 32,3043           31770                                    EPC8RTE                               
038669,001058: 32,3044           67240                           BMN      SLOAD                                 
038670,001059: 32,3045           65051                                    PREC225                               
038671,001060: 32,3046           31737                                    OCT613                                
038672,001061: 32,3047           77650                           GOTO                                           
038673,001062: 32,3050           65053                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
038674,001063: 
038675,001064:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED

Page 866

038677,001066: 
038678,001067: 32,3051           77745        PREC225            DLOAD                                          
038679,001068: 32,3052           31677                                    ZERORTE                               
038680,001069: 32,3053           77650        PRECX              GOTO                                           
038681,001070: 32,3054           03762                                    SPRTEX                                
038682,001071: 

Page 867

038684,001073:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
038685,001074: 
038686,001075:                                                                                                  #  DESCRIPTION
038687,001076:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
038688,001077:                                                                                                  #        RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
038689,001078:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
038690,001079: 
038691,001080:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
038692,001081: 
038693,001082:                                                                                                  #     CALLING SEQUENCE
038694,001083:                                                                                                  #        L       CALL
038695,001084:                                                                                                  #        L+1             RTENCK1
038696,001085: 
038697,001086:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038698,001087:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
038699,001088: 
038700,001089:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
038701,001090: 
038702,001091:                                                                                                  #     CALLING SEQUENCE
038703,001092:                                                                                                  #        L       CALL
038704,001093:                                                                                                  #        L+1             RTENCK2
038705,001094: 
038706,001095:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038707,001096:                                                                                                  #        PUSHLIST
038708,001097:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
038709,001098:                                                                                                  #        OTHER
038710,001099:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR .B29     METERS
038711,001100:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038712,001101:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
038713,001102: 
038714,001103:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
038715,001104: 
038716,001105:                                                                                                  #     CALLING SEQUENCE
038717,001106:                                                                                                  #        L       CALL
038718,001107:                                                                                                  #        L+1             RTENCK3
038719,001108: 
038720,001109:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038721,001110:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038722,001111:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
038723,001112:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038724,001113:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038725,001114: 
038726,001115:                                                                                                  #  EXIT MODE
038727,001116:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
038728,001117: 
038729,001118:                                                                                                  #  SUBROUTINES CALLED
038730,001119:                                                                                                  #        INTSTALL
038731,001120:                                                                                                  #        INTEGRVS
038732,001121: 
038733,001122:                                                                                                  #  OUTPUT
038734,001123:                                                                                                  #     PUSHLIST

Page 868

038736,001125:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
038737,001126:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
038738,001127:                                                                                                  #     MPAC
038739,001128:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
038740,001129:                                                                                                  #     OTHER
038741,001130:                                                                                                  #        R(T2)/          AS IN PUSHLIST
038742,001131:                                                                                                  #        V(T2)/          AS IN MPAC
038743,001132:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038744,001133: 
038745,001134: 32,3055           45020        RTENCK1            STQ      CALL                                  
038746,001135: 32,3056           03733                                    RTENCKEX                              
038747,001136: 32,3057           27371                                    INTSTALL                              
038748,001137: 32,3060           43175                           VLOAD    SET                                   
038749,001138: 32,3061           03640                                    R(T1)/                                
038750,001139: 32,3062           01473                                    INTYPFLG                              
038751,001140: 32,3063           77650                           GOTO                                           
038752,001141: 32,3064           65111                                    RTENCK3B                              
038753,001142: 
038754,001143: 32,3065           45020        RTENCK2            STQ      CALL                                  
038755,001144: 32,3066           03733                                    RTENCKEX                              
038756,001145: 32,3067           27371                                    INTSTALL                              
038757,001146: 32,3070           77214                           CLEAR    VLOAD                                 
038758,001147: 32,3071           01673                                    INTYPFLG                              
038759,001148: 32,3072           03656                                    R(T2)/                                
038760,001149: 32,3073           25535                           STOVL    RCV                                   
038761,001150: 32,3074           03710                                    V(T2)/                                
038762,001151: 32,3075           15543                           STODL    VCV                                   
038763,001152: 32,3076           03736                                    T2                                    
038764,001153: 32,3077           01517                           STORE    TET                                   
038765,001154: 32,3100           77615                           DAD                                            
038766,001155: 32,3101           77650                           GOTO                                           
038767,001156: 32,3102           65117                                    RTENCK3D                              
038768,001157: 
038769,001158: 32,3103           45020        RTENCK3            STQ      CALL                                  
038770,001159: 32,3104           03733                                    RTENCKEX                              
038771,001160: 32,3105           27371                                    INTSTALL                              
038772,001161: 32,3106           43175        RTENCK3A           VLOAD    CLEAR                                 
038773,001162: 32,3107           03640                                    R(T1)/                                
038774,001163: 32,3110           01673                                    INTYPFLG                              
038775,001164: 32,3111           25535        RTENCK3B           STOVL    RCV                                   
038776,001165: 32,3112           03700                                    V2(T1)/                               
038777,001166: 32,3113           15543                           STODL    VCV                                   
038778,001167: 32,3114           03716                                    T1                                    
038779,001168: 32,3115           15517                           STODL    TET                                   
038780,001169: 32,3116           03736                                    T2                                    
038781,001170: 32,3117           00041        RTENCK3D           STORE    TDEC1                                 
038782,001171: 32,3120           45014                           CLEAR    CALL                                  

Page 869

038784,001173: 32,3121           00263                                    MOONFLAG                              
038785,001174: 32,3122           27066                                    INTEGRVS                              
038786,001175: 32,3123           77775                           VLOAD                                          
038787,001176: 32,3124           00001                                    RATT                                  
038788,001177: 32,3125           03656                           STORE    R(T2)/                                
038789,001178: 32,3126           70125                           PDDL     LXC,1                                 
038790,001179: 32,3127           00015                                    TAT                                   
038791,001180: 32,3130           03734                                    CONICX1                               
038792,001181: 32,3131           27736                           STOVL    T2                                    
038793,001182: 32,3132           00007                                    VATT                                  
038794,001183: 32,3133           03710                           STORE    V(T2)/                                
038795,001184: 32,3134           77650                           GOTO                                           
038796,001185: 32,3135           03733                                    RTENCKEX                              
038797,001186: 

Page 870

038799,001188:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
038800,001189: 
038801,001190:                                                                                                  #  DESCRIPTION
038802,001191:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
038803,001192:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
038804,001193:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
038805,001194:                                                                                                  #                AND CONSEQUENTLY FUEL.
038806,001195: 
038807,001196:                                                                                                  #  CALLING SEQUENCE
038808,001197:                                                                                                  #        L       CALL
038809,001198:                                                                                                  #        L+1             V2T100
038810,001199: 
038811,001200:                                                                                                  #  NORMAL EXIT MODE
038812,001201:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038813,001202: 
038814,001203:                                                                                                  #  ALARM EXIT MODE
038815,001204:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038816,001205: 
038817,001206:                                                                                                  #  SUBROUTINES CALLED
038818,001207:                                                                                                  #        GAMDV10
038819,001208:                                                                                                  #        XT1LIM
038820,001209:                                                                                                  #        DVCALC
038821,001210: 
038822,001211:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038823,001212:                                                                                                  #     PUSHLIST
038824,001213:                                                                                                  #        NONE
038825,001214:                                                                                                  #     MPAC
038826,001215:                                                                                                  #        NONE
038827,001216:                                                                                                  #     OTHER
038828,001217:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038829,001218:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
038830,001219:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038831,001220:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038832,001221:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038833,001222:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038834,001223:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038835,001224:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
038836,001225:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038837,001226:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038838,001227:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038839,001228:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP      B2      -1 PERIGEE, +1 APOGEE
038840,001229:                                                                                                  #        N1              CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC, PLUS PREC
038841,001230: 
038842,001231:                                                                                                  #  OUTPUT
038843,001232:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038844,001233:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038845,001234:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
038846,001235:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038847,001236:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1

Page 871

038849,001238: 
038850,001239:                                                                                                  #  DEBRIS
038851,001240:                                                                                                  #     PUSHLIST
038852,001241:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
038853,001242:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
038854,001243:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038855,001244:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038856,001245:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038857,001246:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
038858,001247:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038859,001248:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
038860,001249:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
038861,001250:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
038862,001251:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
038863,001252: 
038864,001253: 32,3136           77620        V2T100             STQ                                            
038865,001254: 32,3137           00041                                    33D                                   
038866,001255: 32,3140           43001                           SETPD    CLEAR                                 
038867,001256: 32,3141           00001                                    0                                     #                                PL00D
038868,001257: 32,3142           00272                                    F2RTE                                 
038869,001258: 32,3143           60345                           DLOAD    NORM                                  
038870,001259: 32,3144           03636                                    RCON                                  
038871,001260: 32,3145           00047                                    X1                                    
038872,001261: 32,3146           60325                           PDDL     NORM                                  
038873,001262: 32,3147           03646                                    R(T1)                                 
038874,001263: 32,3150           00051                                    S1                                    
038875,001264: 32,3151           00013                           STORE    10D                                   
038876,001265: 32,3152           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
038877,001266: 32,3153           65260                           XSU,1    PDDL                                  #                                PL02D
038878,001267: 32,3154           00050                                    S1                                    
038879,001268: 32,3155           03726                                    X(T2)                                 
038880,001269: 32,3156           77716                           DSQ                                            
038881,001270: 32,3157           43342                           SR1      DAD                                   
038882,001271: 32,3160           31653                                    1RTEB1                                
038883,001272: 32,3161           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
038884,001273: 32,3162           77605                           DMP                                            
038885,001274: 32,3163           00001                                    00D                                   
038886,001275: 32,3164           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
038887,001276: 32,3165           53605                           DMP      SL*                                   
038888,001277: 32,3166           00001                                    00D                                   
038889,001278: 32,3167           20172                                    0          -7,1                       
038890,001279: 32,3170           45257                           SL*      DSU                                   
038891,001280: 32,3171           20172                                    0          -7,1                       
038892,001281: 32,3172           31671                                    1RTEB17                               
038893,001282: 32,3173           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17 PL05D
038894,001283: 32,3174           45562                                    TPMODE                                
038895,001284: 32,3175           31653                                    1RTEB1                                
038896,001285: 32,3176           57457                           SR*      DCOMP                                 
038897,001286: 32,3177           20601                                    0,1                                   
038898,001287: 32,3200           41215                           DAD      DMP                                   
038899,001288: 32,3201           00001                                    00D                                   

Page 872

038901,001290: 32,3202           03646                                    R(T1)                                 
038902,001291: 32,3203           47057                           SL*      RTB                                   
038903,001292: 32,3204           20172                                    0          -7D,1                      
038904,001293: 32,3205           45562                                    TPMODE                                
038905,001294: 32,3206           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
038906,001295: 32,3207           33770                                    RTMURTE                               
038907,001296: 32,3210           70501                           NORM     SR1                                   
038908,001297: 32,3211           00050                                    X2                                    
038909,001298: 32,3212           56264                           XSU,2    DDV                                   
038910,001299: 32,3213           00050                                    S1                                    
038911,001300: 32,3214           00013                                    10D                                   
038912,001301: 32,3215           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
038913,001302: 32,3216           57170                                    6,2                                   
038914,001303: 32,3217           03652                                    MAMAX1                                
038915,001304: 32,3220           41406                           PUSH     PUSH                                  #  MAMAX1=MA
038916,001305: 32,3221           77624                           CALL                                           
038917,001306: 32,3222           56633                                    XT1LIM                                
038918,001307: 32,3223           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5 PL12D
038919,001308: 32,3224           40476                           DCOMP    SR4                                   
038920,001309: 32,3225           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5 PL14D
038921,001310: 32,3226           03654                                    MAMAX2                                
038922,001311: 32,3227           45006                           PUSH     CALL                                  
038923,001312: 32,3230           56633                                    XT1LIM                                
038924,001313: 32,3231           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5 PL16D
038925,001314: 32,3232           03730                                    NN1A                                  
038926,001315: 32,3233           65236                                    V2T102                                
038927,001316: 32,3234           77650                           GOTO                                           
038928,001317: 32,3235           65250                                    V2T110                                
038929,001318: 
038930,001319:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
038931,001320: 
038932,001321: 32,3236           77745        V2T102             DLOAD                                          
038933,001322: 32,3237           03632                                    RTEDVD                                
038934,001323: 32,3240           52054                           BZE      GOTO                                  
038935,001324: 32,3241           65243                                    V2T105                                
038936,001325: 32,3242           65344                                    V2T140                                
038937,001326: 32,3243           50145        V2T105             DLOAD    BMN                                   
038938,001327: 32,3244           03757                                    CFPA                                  
038939,001328: 32,3245           65344                                    V2T140                                
038940,001329: 32,3246           77650                           GOTO                                           
038941,001330: 32,3247           65352                                    V2T145                                
038942,001331: 
038943,001332:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
038944,001333:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
038945,001334:                                                                                                  #  THROUGH X(T2)
038946,001335: 
038947,001336: 32,3250           47145        V2T110             DLOAD    RTB                                   
038948,001337: 32,3251           31671                                    1RTEB17                               
038949,001338: 32,3252           45562                                    TPMODE                                
038950,001339: 32,3253           65276                           DCOMP    PDDL                                  #  -1                            B17 PL19D

Page 873

038952,001341: 32,3254           31715                                    2RTEB1                                
038953,001342: 32,3255           45257                           SR*      DSU                                   
038954,001343: 32,3256           20601                                    0,1                                   
038955,001344: 32,3257           00001                                    00D                                   
038956,001345: 32,3260           53605                           DMP      SL*                                   
038957,001346: 32,3261           00035                                    28D                                   
038958,001347: 32,3262           20172                                    0          -7,1                       
038959,001348: 32,3263           76257                           SL*      TAD                                   
038960,001349: 32,3264           20172                                    0          -7,1                       
038961,001350: 32,3265           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17 PL19D
038962,001351: 32,3266           45562                                    TPMODE                                
038963,001352: 32,3267           03722                                    X(T1)                                 
038964,001353: 32,3270           00001                           STORE    00D                                   #  X(T1),,                       B5
038965,001354: 32,3271           77751                           TLOAD                                          #                                PL16D
038966,001355: 32,3272           53040                           BMN      BZE                                   
038967,001356: 32,3273           65300                                    V2T115                                
038968,001357: 32,3274           65300                                    V2T115                                
038969,001358: 32,3275           52061                           SL       GOTO                                  
038970,001359: 32,3276           20210                                    7                                     
038971,001360: 32,3277           65311                                    V2T120                                
038972,001361: 32,3300           50145        V2T115             DLOAD    BMN                                   
038973,001362: 32,3301           03761                                    PHI2                                  
038974,001363: 32,3302           65322                                    V2T125                                
038975,001364: 32,3303           77676                           DCOMP                                          
038976,001365: 32,3304           17761                           STODL    PHI2                                  
038977,001366: 32,3305           31705                                    10RTE                                 
038978,001367: 32,3306           03730                           STORE    NN1A                                  
038979,001368: 32,3307           77650                           GOTO                                           
038980,001369: 32,3310           65322                                    V2T125                                
038981,001370: 32,3311           47166        V2T120             SQRT     RTB                                   
038982,001371: 32,3312           45713                                    DPMODE                                
038983,001372: 32,3313           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM            B5 PL18D
038984,001373: 32,3314           03761                                    PHI2                                  
038985,001374: 32,3315           65330                                    V2T130                                
038986,001375: 32,3316           45545                           DLOAD    STADR                                 #                                PL16D
038987,001376: 32,3317           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
038988,001377: 32,3320           77676                           DCOMP                                          
038989,001378: 32,3321           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
038990,001379: 32,3322           53145        V2T125             DLOAD    BZE                                   
038991,001380: 32,3323           03722                                    X(T1)                                 
038992,001381: 32,3324           65344                                    V2T140                                
038993,001382: 32,3325           52040                           BMN      GOTO                                  
038994,001383: 32,3326           65344                                    V2T140                                
038995,001384: 32,3327           65352                                    V2T145                                
038996,001385: 32,3330           53145        V2T130             DLOAD    BZE                                   
038997,001386: 32,3331           03722                                    X(T1)                                 
038998,001387: 32,3332           65341                                    V2T135                                
038999,001388: 32,3333           71240                           BMN      DLOAD                                 #                                PL16D
039000,001389: 32,3334           65341                                    V2T135                                
039001,001390: 32,3335           77626                           STADR                                          

Page 874

039003,001392: 32,3336           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
039004,001393: 32,3337           77650                           GOTO                                           
039005,001394: 32,3340           65352                                    V2T145                                
039006,001395: 32,3341           57545        V2T135             DLOAD    DCOMP                                 #                                PL16D
039007,001396: 32,3342           77626                           STADR                                          
039008,001397: 32,3343           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
039009,001398: 32,3344           77745        V2T140             DLOAD                                          
039010,001399: 32,3345           00013                                    10D                                   
039011,001400: 32,3346           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
039012,001401: 32,3347           00015                                    12D                                   
039013,001402: 32,3350           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)            PL18D
039014,001403: 32,3351           65357                                    V2T150                                
039015,001404: 32,3352           77745        V2T145             DLOAD                                          
039016,001405: 32,3353           00017                                    14D                                   
039017,001406: 32,3354           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
039018,001407: 32,3355           00015                                    12D                                   
039019,001408: 32,3356           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)           PL18D
039020,001409: 32,3357           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
039021,001410: 32,3360           65500                                    GAMDV10                               
039022,001411: 32,3361           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
039023,001412: 32,3362           03632                                    RTEDVD                                
039024,001413: 32,3363           65476                                    V2T1X                                 
039025,001414: 
039026,001415:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
039027,001416: 
039028,001417: 32,3364           50025                           DSU      BMN                                   
039029,001418: 32,3365           03706                                    DV                                    
039030,001419: 32,3366           65371                                    V2T155                                
039031,001420: 32,3367           77650                           GOTO                                           
039032,001421: 32,3370           65424                                    V2T175                                
039033,001422: 32,3371           50145        V2T155             DLOAD    BMN                                   
039034,001423: 32,3372           03730                                    NN1A                                  
039035,001424: 32,3373           65376                                    V2T160                                
039036,001425: 32,3374           77650                           GOTO                                           
039037,001426: 32,3375           65437                                    V2T185                                
039038,001427: 
039039,001428:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
039040,001429: 
039041,001430: 32,3376           53145        V2T160             DLOAD    BZE                                   
039042,001431: 32,3377           03722                                    X(T1)                                 
039043,001432: 32,3400           65404                                    V2T165                                
039044,001433: 32,3401           52040                           BMN      GOTO                                  
039045,001434: 32,3402           65404                                    V2T165                                
039046,001435: 32,3403           65474                                    V2T300                                
039047,001436: 32,3404           53145        V2T165             DLOAD    BZE                                   
039048,001437: 32,3405           03757                                    CFPA                                  
039049,001438: 32,3406           65474                                    V2T300                                
039050,001439: 32,3407           71240                           BMN      DLOAD                                 
039051,001440: 32,3410           65474                                    V2T300                                
039052,001441: 32,3411           00017                                    14D                                   

Page 875

039054,001443: 32,3412           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
039055,001444: 32,3413           00015                                    12D                                   
039056,001445: 32,3414           77676                           DCOMP                                          
039057,001446: 32,3415           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
039058,001447: 32,3416           65500                                    GAMDV10                               
039059,001448: 32,3417           45345                           DLOAD    DSU                                   
039060,001449: 32,3420           03632                                    RTEDVD                                
039061,001450: 32,3421           03706                                    DV                                    
039062,001451: 32,3422           77640                           BMN                                            
039063,001452: 32,3423           65474                                    V2T300                                
039064,001453: 32,3424           71214        V2T175             SET      DLOAD                                 
039065,001454: 32,3425           00072                                    F2RTE                                 
039066,001455: 32,3426           03722                                    X(T1)                                 
039067,001456: 32,3427           14017                           STODL    14D                                   #  X(T1)=X(T1)MAX
039068,001457: 32,3430           00015                                    12D                                   
039069,001458: 32,3431           77676                           DCOMP                                          
039070,001459: 32,3432           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
039071,001460: 32,3433           65500                                    GAMDV10                               
039072,001461: 32,3434           50145                           DLOAD    BMN                                   
039073,001462: 32,3435           03730                                    NN1A                                  
039074,001463: 32,3436           65474                                    V2T300                                
039075,001464: 
039076,001465:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
039077,001466:                                                                                                  #  PRECISION TRAJECTORY
039078,001467: 
039079,001468: 32,3437           45345        V2T185             DLOAD    DSU                                   
039080,001469: 32,3440           03722                                    X(T1)                                 
039081,001470: 32,3441           00001                                    00D                                   
039082,001471: 32,3442           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
039083,001472: 32,3443           00015                                    12D                                   
039084,001473: 32,3444           44352                           SL1      BDSU                                  
039085,001474: 32,3445           71240                           BMN      DLOAD                                 
039086,001475: 32,3446           65474                                    V2T300                                
039087,001476: 32,3447           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
039088,001477: 32,3450           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
039089,001478: 32,3451           50025                           DSU      BMN                                   
039090,001479: 32,3452           00017                                    14D                                   
039091,001480: 32,3453           65461                                    V2T195                                
039092,001481: 32,3454           77745                           DLOAD                                          
039093,001482: 32,3455           00017                                    14D                                   
039094,001483: 32,3456           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
039095,001484: 32,3457           77650                           GOTO                                           
039096,001485: 32,3460           65472                                    V2T205                                
039097,001486: 32,3461           45345        V2T195             DLOAD    DSU                                   
039098,001487: 32,3462           03722                                    X(T1)                                 
039099,001488: 32,3463           00013                                    10D                                   
039100,001489: 32,3464           52040                           BMN      GOTO                                  
039101,001490: 32,3465           65467                                    V2T200                                
039102,001491: 32,3466           65472                                    V2T205                                
039103,001492: 32,3467           77745        V2T200             DLOAD                                          

Page 876

039105,001494: 32,3470           00013                                    10D                                   
039106,001495: 32,3471           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
039107,001496: 32,3472           77624        V2T205             CALL                                           
039108,001497: 32,3473           65701                                    DVCALC                                
039109,001498: 32,3474           77745        V2T300             DLOAD                                          
039110,001499: 32,3475           31677                                    ZERORTE                               
039111,001500: 32,3476           77650        V2T1X              GOTO                                           
039112,001501: 32,3477           00041                                    33D                                   
039113,001502: 

Page 877

039115,001504:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
039116,001505: 
039117,001506:                                                                                                  #  DESCRIPTION
039118,001507:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
039119,001508: 
039120,001509:                                                                                                  #  CALLING SEQUENCE
039121,001510:                                                                                                  #        L       CALL
039122,001511:                                                                                                  #        L+1             GAMDV10
039123,001512: 
039124,001513:                                                                                                  #  NORMAL EXIT MODE
039125,001514:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
039126,001515: 
039127,001516:                                                                                                  #  ALARM EXIT MODE
039128,001517:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039129,001518: 
039130,001519:                                                                                                  #  SUBROUTINES CALLED
039131,001520:                                                                                                  #        DVCALC
039132,001521: 
039133,001522:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039134,001523:                                                                                                  #     PUSHLIST
039135,001524:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039136,001525:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039137,001526:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039138,001527:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039139,001528:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
039140,001529:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039141,001530:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
039142,001531:                                                                                                  #     MPAC
039143,001532:                                                                                                  #        NONE
039144,001533:                                                                                                  #     OTHER
039145,001534:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
039146,001535:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
039147,001536:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039148,001537:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039149,001538:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
039150,001539:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
039151,001540: 
039152,001541:                                                                                                  #  OUTPUT
039153,001542:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039154,001543:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039155,001544:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
039156,001545:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039157,001546: 
039158,001547:                                                                                                  #  DEBRIS
039159,001548:                                                                                                  #     PUSHLIST
039160,001549:                                                                                                  #        00D             X(T1),,
039161,001550:                                                                                                  #        02D             THETA1
039162,001551:                                                                                                  #        05D             THETA2
039163,001552:                                                                                                  #        08D             THETA3
039164,001553:                                                                                                  #        10D             X(T1)MIN
039165,001554:                                                                                                  #        12D             DX(T1)MAX

Page 878

039167,001556:                                                                                                  #        14D             X(T1)MAX
039168,001557:                                                                                                  #        16D             DX(T1)
039169,001558:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
039170,001559:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
039171,001560:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
039172,001561:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039173,001562:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
039174,001563: 
039175,001564: 32,3500           77620        GAMDV10            STQ                                            
039176,001565: 32,3501           00037                                    31D                                   
039177,001566: 32,3502           45001                           SETPD    CALL                                  
039178,001567: 32,3503           00023                                    18D                                   #                                PL18D
039179,001568: 32,3504           65701                                    DVCALC                                
039180,001569: 32,3505           45345                           DLOAD    DSU                                   
039181,001570: 32,3506           00017                                    14D                                   
039182,001571: 32,3507           00013                                    10D                                   
039183,001572: 32,3510           77600                           BOV                                            
039184,001573: 32,3511           65531                                    GAMDV20                               
039185,001574: 32,3512           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5 PL20D
039186,001575: 32,3513           31772                                    EPC9RTE                               
039187,001576: 32,3514           71240                           BMN      DLOAD                                 
039188,001577: 32,3515           65677                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
039189,001578: 32,3516           00023                                    18D                                   
039190,001579: 32,3517           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
039191,001580: 32,3520           00015                                    12D                                   
039192,001581: 32,3521           65525                                    GAMDV15                               
039193,001582: 32,3522           52001                           SETPD    GOTO                                  #                                PL18D
039194,001583: 32,3523           00023                                    18D                                   
039195,001584: 32,3524           65531                                    GAMDV20                               
039196,001585: 32,3525           77745        GAMDV15            DLOAD                                          #                                PL18D
039197,001586: 32,3526           70565                           SIGN     SR1                                   
039198,001587: 32,3527           00021                                    16D                                   
039199,001588: 32,3530           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
039200,001589: 32,3531           77745        GAMDV20            DLOAD                                          
039201,001590: 32,3532           31701                                    M144RTE                               
039202,001591: 32,3533           03732                           STORE    NN2                                   
039203,001592: 32,3534           43345        GAMDV25            DLOAD    DAD                                   
039204,001593: 32,3535           03732                                    NN2                                   
039205,001594: 32,3536           31675                                    1RTEB28                               
039206,001595: 32,3537           67240                           BMN      SLOAD                                 
039207,001596: 32,3540           65544                                    GAMDV30                               
039208,001597: 32,3541           31735                                    OCT605                                
039209,001598: 32,3542           77650                           GOTO                                           
039210,001599: 32,3543           65476                                    V2T1X                                 
039211,001600: 32,3544           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
039212,001601: 32,3545           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  B5 PL20D
039213,001602: 32,3546           03722                                    X(T1)                                 
039214,001603: 32,3547           03706                                    DV                                    
039215,001604: 32,3550           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5 PL22D
039216,001605: 32,3551           03722                                    X(T1)                                 
039217,001606: 32,3552           00021                                    16D                                   

Page 879

039219,001608: 32,3553           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
039220,001609: 32,3554           65701                                    DVCALC                                
039221,001610: 32,3555           71214                           BON      DLOAD                                 
039222,001611: 32,3556           00312                                    F2RTE                                 
039223,001612: 32,3557           65573                                    GAMDV35                               
039224,001613: 32,3560           03706                                    DV                                    
039225,001614: 32,3561           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
039226,001615: 32,3562           00025                                    20D                                   
039227,001616: 32,3563           65570                                    GAMDV33                               
039228,001617: 32,3564           57545        GAMDV32            DLOAD    DCOMP                                 
039229,001618: 32,3565           00021                                    16D                                   
039230,001619: 32,3566           77742                           SR1                                            
039231,001620: 32,3567           00021                           STORE    16D                                   
039232,001621: 32,3570           52001        GAMDV33            SETPD    GOTO                                  
039233,001622: 32,3571           00023                                    18D                                   #                                PL18D
039234,001623: 32,3572           65636                                    GAMDV50                               
039235,001624: 
039236,001625:                                                                                                  #  TIME CRITICAL MODE
039237,001626: 
039238,001627: 32,3573           45345        GAMDV35            DLOAD    DSU                                   
039239,001628: 32,3574           03632                                    RTEDVD                                
039240,001629: 32,3575           03706                                    DV                                    
039241,001630: 32,3576           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5 PL22D
039242,001631: 32,3577           51545        GAMDV40            DLOAD    ABS                                   #  DV,                           PL24D
039243,001632: 32,3600           00025                                    20D                                   
039244,001633: 32,3601           50025                           DSU      BMN                                   
039245,001634: 32,3602           31774                                    EPC10RTE                              
039246,001635: 32,3603           65677                                    GAMDVX                                
039247,001636: 32,3604           71204        GAMDV45            BOVB     DLOAD                                 
039248,001637: 32,3605           57343                                    TCDANZIG                              #  ASSURE OVFIND IS 0
039249,001638: 32,3606           60221                           BDSU     NORM                                  
039250,001639: 32,3607           03706                                    DV                                    
039251,001640: 32,3610           00050                                    X2                                    
039252,001641: 32,3611           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
039253,001642: 32,3612           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
039254,001643: 32,3613           00047                                    X1                                    
039255,001644: 32,3614           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
039256,001645: 32,3615           41221                           BDSU     DMP                                   #                                PL18D
039257,001646: 32,3616           03722                                    X(T1)                                 
039258,001647: 32,3617           77660                           XSU,1                                          
039259,001648: 32,3620           00047                                    X2                                    
039260,001649: 32,3621           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
039261,001650: 32,3622           40057                           SR*      BOV                                   
039262,001651: 32,3623           20600                                    0          -1,1                       
039263,001652: 32,3624           65632                                    GAMDV47                               
039264,001653: 32,3625           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
039265,001654: 32,3626           45246                           ABS      DSU                                   
039266,001655: 32,3627           00015                                    12D                                   
039267,001656: 32,3630           77640                           BMN                                            
039268,001657: 32,3631           65636                                    GAMDV50                               

Page 880

039270,001659: 32,3632           75345        GAMDV47            DLOAD    SIGN                                  
039271,001660: 32,3633           00015                                    12D                                   
039272,001661: 32,3634           00021                                    16D                                   
039273,001662: 32,3635           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
039274,001663: 
039275,001664:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
039276,001665: 
039277,001666: 32,3636           41345        GAMDV50            DLOAD    DMP                                   
039278,001667: 32,3637           00021                                    16D                                   
039279,001668: 32,3640           31711                                    1.1RTEB1                              
039280,001669: 32,3641           43352                           SL1      DAD                                   
039281,001670: 32,3642           03722                                    X(T1)                                 
039282,001671: 32,3643           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
039283,001672: 32,3644           50025                           DSU      BMN                                   
039284,001673: 32,3645           00017                                    14D                                   
039285,001674: 32,3646           65655                                    GAMDV55                               
039286,001675: 32,3647           45345                           DLOAD    DSU                                   
039287,001676: 32,3650           00017                                    14D                                   
039288,001677: 32,3651           03722                                    X(T1)                                 
039289,001678: 32,3652           77742                           SR1                                            
039290,001679: 32,3653           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
039291,001680: 32,3654           65670                                    GAMDV65                               
039292,001681: 32,3655           45345        GAMDV55            DLOAD    DSU                                   
039293,001682: 32,3656           00031                                    24D                                   
039294,001683: 32,3657           00013                                    10D                                   
039295,001684: 32,3660           52040                           BMN      GOTO                                  
039296,001685: 32,3661           65663                                    GAMDV60                               
039297,001686: 32,3662           65670                                    GAMDV65                               
039298,001687: 32,3663           45345        GAMDV60            DLOAD    DSU                                   
039299,001688: 32,3664           00013                                    10D                                   
039300,001689: 32,3665           03722                                    X(T1)                                 
039301,001690: 32,3666           77742                           SR1                                            
039302,001691: 32,3667           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
039303,001692: 32,3670           51545        GAMDV65            DLOAD    ABS                                   
039304,001693: 32,3671           00021                                    16D                                   
039305,001694: 32,3672           50025                           DSU      BMN                                   
039306,001695: 32,3673           31772                                    EPC9RTE                               
039307,001696: 32,3674           65677                                    GAMDVX                                
039308,001697: 32,3675           77650                           GOTO                                           
039309,001698: 32,3676           65534                                    GAMDV25                               
039310,001699: 32,3677           77650        GAMDVX             GOTO                                           
039311,001700: 32,3700           00037                                    31D                                   
039312,001701: 

Page 881

039314,001703:                                                                                                  #  DV CALCULATION SUBROUTINE
039315,001704: 
039316,001705:                                                                                                  #  INPUT
039317,001706:                                                                                                  #     PUSHLIST
039318,001707:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039319,001708:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039320,001709:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039321,001710:                                                                                                  #     OTHER
039322,001711:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
039323,001712:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
039324,001713:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039325,001714:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039326,001715: 
039327,001716:                                                                                                  #  OUTPUT
039328,001717:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039329,001718:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039330,001719:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039331,001720: 
039332,001721:                                                                                                  #  DEBRIS
039333,001722:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
039334,001723:                                                                                                  #        C(PUSLOC)       THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
039335,001724:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039336,001725:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
039337,001726: 
039338,001727:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
039339,001728: 
039340,001729: 32,3701           71220        DVCALC             STQ      DLOAD                                 
039341,001730: 32,3702           00040                                    32D                                   
039342,001731: 32,3703           03722                                    X(T1)                                 
039343,001732: 32,3704           54316                           DSQ      SR                                    
039344,001733: 32,3705           20610                                    7                                     
039345,001734: 32,3706           76276                           DCOMP    TAD                                   
039346,001735: 32,3707           00003                                    02D                                   
039347,001736: 32,3710           41501                           NORM     PUSH                                  
039348,001737: 32,3711           00047                                    X1                                    
039349,001738: 32,3712           60351                           TLOAD    NORM                                  
039350,001739: 32,3713           00006                                    05D                                   
039351,001740: 32,3714           00050                                    X2                                    
039352,001741: 32,3715           70434                           RTB      SR1                                   
039353,001742: 32,3716           45713                                    DPMODE                                
039354,001743: 32,3717           56264                           XSU,2    DDV                                   
039355,001744: 32,3720           00046                                    X1                                    
039356,001745: 32,3721           77657                           SR*                                            
039357,001746: 32,3722           57170                                    6,2                                   
039358,001747: 32,3723           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
039359,001748: 32,3724           41366                           SQRT     DMP                                   
039360,001749: 32,3725           00011                                    08D                                   
039361,001750: 32,3726           77701                           NORM                                           
039362,001751: 32,3727           00047                                    X1                                    
039363,001752: 32,3730           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1

Page 882

039365,001754: 32,3731           03722                                    X(T1)                                 
039366,001755: 32,3732           74301                           NORM     VXSC                                  
039367,001756: 32,3733           00050                                    X2                                    
039368,001757: 32,3734           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
039369,001758: 32,3735           74274                           XAD,2    VXSC                                  
039370,001759: 32,3736           00046                                    X1                                    
039371,001760: 32,3737           00035                                    28D                                   
039372,001761: 32,3740           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
039373,001762: 32,3741           57207                                    0          -9D,2                      #                +
039374,001763: 32,3742           03746                                    UH/                                   
039375,001764: 32,3743           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
039376,001765: 32,3744           00035                                    28D                                   
039377,001766: 32,3745           20575                                    0          -4,1                       #                =
039378,001767: 32,3746           45455                           VAD      STADR                                 
039379,001768: 32,3747           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
039380,001769: 32,3750           51451                           VSU      ABVAL                                 
039381,001770: 32,3751           03672                                    V(T1)/                                
039382,001771: 32,3752           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
039383,001772: 32,3753           77650                           GOTO                                           
039384,001773: 32,3754           00040                                    32D                                   
039385,001774: 

Page 883

039387,001776:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039388,001777: 
039389,001778:                                                                                                  #  INPUT
039390,001779:                                                                                                  #     PUSHLIST
039391,001780:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
039392,001781:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
039393,001782:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
039394,001783:                                                                                                  #     OTHER
039395,001784:                                                                                                  #        RCON                                                                    DP      B29/B27
039396,001785:                                                                                                  #        R(T1)                                                                   DP      B29/B27
039397,001786: 
039398,001787:                                                                                                  #  OUTPUT
039399,001788:                                                                                                  #     MPAC
039400,001789:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
039401,001790: 
039402,001791:                                                                                                  #  DEBRIS
039403,001792:                                                                                                  #     PUSHLIST
039404,001793:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
039405,001794:                                                                                                  #        C(PSHLOC) +2    MA                                                      DP      B30/B28
039406,001795:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
039407,001796:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
039408,001797: 
039409,001798:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
039410,001799: 
039411,001800: 27,2000                                           SETLOC   RTE2                                  
039412,001801: 27,2000                                           BANK                                           
039413,001802: 27,2633           71220        XT1LIM             STQ      DLOAD                                 
039414,001803: 27,2634           00024                                    20D                                   
039415,001804: 27,2635           03636                                    RCON                                  
039416,001805: 27,2636           44342                           SR1      BDSU                                  
039417,001806: 27,2637           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
039418,001807: 27,2640           00050                                    X2                                    
039419,001808: 27,2641           70525                           PDDL     SR1                                   
039420,001809: 27,2642           03646                                    R(T1)                                 
039421,001810: 27,2643           56221                           BDSU     DDV                                   
039422,001811: 27,2644           41257                           SL*      DMP                                   
039423,001812: 27,2645           57577                                    0          -1,2                       
039424,001813: 27,2646           00035                                    28D                                   
039425,001814: 27,2647           77657                           SL*                                            
039426,001815: 27,2650           20172                                    0          -7,1                       
039427,001816: 27,2651           50025                           DSU      BMN                                   #  (BETA5(MA-R(T1))/(MA-RCON))-1 B10
039428,001817: 27,2652           31663                                    1RTEB10                               
039429,001818: 27,2653           56656                                    XT1LIM5                               
039430,001819: 27,2654           52166                           SQRT     GOTO                                  
039431,001820: 27,2655           56660                                    XT1LIMX                               
039432,001821: 27,2656           77745        XT1LIM5            DLOAD                                          
039433,001822: 27,2657           31677                                    ZERORTE                               
039434,001823: 27,2660           77650        XT1LIMX            GOTO                                           
039435,001824: 27,2661           00024                                    20D                                   
039436,001825: 

Page 884

039438,001827:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
039439,001828: 
039440,001829: 36,3250                                           BANK     36                                    
039441,001830: 34,2000                                           SETLOC   RTECON                                
039442,001831: 34,2000                                           BANK                                           
039443,001832: 
039444,001833: 34,3652           20000 00000  1RTEB1             2DEC     1          B-1                        
039445,001834: 34,3654           10000 00000  1RTEB2             2DEC     1          B-2                        
039446,001835: 34,3656           04000 00000  1RTEB3             2DEC     1          B-3                        
039447,001836: 34,3660           02000 00000  1RTEB4             2DEC     1          B-4                        
039448,001837: 34,3662           00020 00000  1RTEB10            2DEC     1          B-10                       
039449,001838: 34,3664           00004 00000  1RTEB12            2DEC     1          B-12                       
039450,001839: 34,3666           00002 00000  1RTEB13            2DEC     1          B-13                       
039451,001840: 34,3670           00000 04000  1RTEB17            2DEC     1          B-17                       
039452,001841: 34,3672           00000 00010  1RTEB25            2DEC     1          B-25                       
039453,001842: 34,3674           00000 00001  1RTEB28            2DEC     1          B-28                       
039454,001843: 34,3676           00000 00000  ZERORTE            2DEC     0          B-28                       
039455,001844: 34,3700           77777 77557  M144RTE            2DEC     -144       B-28                       
039456,001845: 34,3702           77777 77760  M15RTE             2DEC     -15        B-28                       
039457,001846: 34,3704           00000 00012  10RTE              2DEC     10         B-28                       
039458,001847: 34,3706           54631 63145  M.6RTE             2DEC     -.6                                   
039459,001848: 34,3710           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
039460,001849: 34,3712           77777 77771  M6RTEB28           2DEC     -6         B-28                       
039461,001850: 34,3714           37777 37777  2RTEB1             2OCT     3777737777                            
039462,001851: 34,3716           77777 77766  M9RTEB28           2DEC     -9         B-28                       
039463,001852: 34,3720           77777 77767  M8RTEB28           2DEC     -8         B-28                       
039464,001853: 34,3722           00000 35610  30480RTE           2DEC     30480      B-29                       
039465,001854: 34,3724           36703 03743  VCSPS              2DEC     30.8811    B-5                        

Page 885

039467,001856: 34,3726           33041 37714  VCRCS              2DEC     27.0664    B-5                        
039468,001857: 34,3730           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
039469,001858: 34,3732           20000 00000  CSUBT              2DEC     .5                                    
039470,001859: 34,3734           00605        OCT605             OCT      00605                                 
039471,001860: 34,3735           00612        OCT612             OCT      00612                                 
039472,001861: 34,3736           00613        OCT613             OCT      00613                                 
039473,001862: 34,3737           40214 45266  MCOS7.5            2DEC     -.99144486                            
039474,001863: 34,3741           73645 56536  MSIN7.5            2DEC     -.13052619                            
039475,001864: 34,3743           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
039476,001865: 34,3745           16525 12525  THETA165           2DEC     .4583333333                            
039477,001866: 34,3747           22525 12525  THETA210           2DEC     .5833333333                            
039478,001867: 34,3751           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
039479,001868: 34,3753           00000 00062  EPC2RTE            2DEC     100        B-29                       
039480,001869: 34,3755           00020 14223  EPC3RTE            2DEC     .001                                  
039481,001870: 34,3757           00000 05174  EPC4RTE            2DEC     .00001                                
039482,001871: 34,3761           00002 21727  EPC5RTE            2DEC     .01        B-6                        
039483,001872: 34,3763           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
039484,001873: 34,3765           00000 00764  EPC7RTE            2DEC     1000       B-29                       
039485,001874: 34,3767           00040 30447  EPC8RTE            2DEC     .002                                  
039486,001875: 34,3771           00000 00010  EPC9RTE            2DEC     1          B-25                       
039487,001876: 34,3773           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
039488,001877: 
039489,001878: 35,3755                                           BANK     35                                    
039490,001879: 35,2000                                           SETLOC   RTECON1                               
039491,001880: 35,2000                                           BANK                                           
039492,001881: 
039493,001882: 35,3755           27657 01000  C4RTE              2DEC     8          E8         B-30            
039494,001883: 35,3757           00325 23740  K1RTE              2DEC     7          E6         B-29            
039495,001884: 35,3761           00306 06614  K2RTE              2DEC     6495000    B-29                       
039496,001885: 35,3763           76027 70156  K3RTE              2DEC     -.06105                               

Page 886

039498,001887: 35,3765           74517 54131  K4RTE              2DEC     -.10453                               
039499,001888: 35,3767           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
039500,001889: 35,3771           00003 27040  E3RTE              2DEC     121920     B-29                       
039501,001890: 

End of include-file P37,P70.agc.  Parent file is MAIN.agc