Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

038206,000002:                                                                                                  ## Copyright:   Public domain.
038207,000003:                                                                                                  ## Filename:    P37,P70.agc
038208,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
038209,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
038210,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
038211,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
038212,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
038213,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
038214,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
038215,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
038216,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
038217,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
038218,000014:                                                                                                  ##              reconstruction is correct.
038219,000015:                                                                                                  ## Assembler:   yaYUL
038220,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038221,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038222,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
038223,000019:                                                                                                  ##              2024-05-14 MAS  Implemented fix for anomaly COM-27, "V32E
038224,000020:                                                                                                  ##                              response to FLV16N45 in P37 results in
038225,000021:                                                                                                  ##                              indeterminate program transfer".
038226,000022: 
038227,000023: 31,3704                                           BANK     31                                    
038228,000024: 36,2000                                           SETLOC   RTE1                                  
038229,000025: 36,2000                                           BANK                                           
038230,000026: 
038231,000027: 36,2466  E7,1631                                  EBANK=   RTEDVD                                
038232,000028: 36,2466                                           COUNT    31/P37                                
038233,000029: 
038234,000030:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
038235,000031: 
038236,000032:                                                                                                  #  DESCRIPTION
038237,000033:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
038238,000034:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
038239,000035:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
038240,000036:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
038241,000037:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
038242,000038: 
038243,000039:                                                                                                  #  CALLING SEQUENCE
038244,000040:                                                                                                  #        L       TC      P37
038245,000041: 
038246,000042:                                                                                                  #  SUBROUTINES CALLED
038247,000043:                                                                                                  #        PREC100
038248,000044:                                                                                                  #                V2T100
038249,000045:                                                                                                  #                RTENCK2
038250,000046:                                                                                                  #                RTENCK3
038251,000047:                                                                                                  #                TIMERAD
038252,000048:                                                                                                  #                PARAM
038253,000049:                                                                                                  #        V2T100
038254,000050:                                                                                                  #                GAMDV10
038255,000051:                                                                                                  #                XT1LIM
038256,000052:                                                                                                  #                DVCALC
038257,000053:                                                                                                  #        RTENCK1
038258,000054:                                                                                                  #                INTSTALL
038259,000055:                                                                                                  #                INTEGRVS
038260,000056:                                                                                                  #        RTEVN
038261,000057:                                                                                                  #                RTEDISP
038262,000058:                                                                                                  #                TMRAD100
038263,000059:                                                                                                  #                AUGEKUGL
038264,000060:                                                                                                  #                LAT-LONG
038265,000061:                                                                                                  #        TMRAD100
038266,000062:                                                                                                  #                TIMERAD
038267,000063:                                                                                                  #        INVC100
038268,000064:                                                                                                  #                CSMPREC
038269,000065:                                                                                                  #        GETERAD
038270,000066:                                                                                                  #        TIMETHET
038271,000067:                                                                                                  #        P370ALRM
038272,000068:                                                                                                  #        VN1645
038273,000069:                                                                                                  #        POLY
038274,000070: 
038275,000071:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038276,000072:                                                                                                  #        CSM STATE VECTOR
038277,000073:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
038278,000074: 
038279,000075:                                                                                                  #  ASTRONAUT INPUT
038280,000076:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
038281,000077:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
038282,000078:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
038283,000079:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
038284,000080: 
038285,000081:                                                                                                  #  OUTPUT
038286,000082:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
038287,000083:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
038288,000084:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
038289,000085:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZON
038290,000086:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
038291,000087:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
038292,000088:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
038293,000089:                                                                                                  #     TARGETING COMPUTATION DISPLAY
038294,000090:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
038295,000091:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
038296,000092:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
038297,000093:                                                                                                  #     THRUST PROGRAM COMMUNICATION
038298,000094:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
038299,000095:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
038300,000096:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
038301,000097:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
038302,000098:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
038303,000099: 
038304,000100: 36,2466           05426        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
038305,000101: 36,2467           00004                           OCT      4                                     
038306,000102: 
038307,000103: 36,2470           06006                           TC       INTPRET                               
038308,000104: 36,2471           66170                           AXT,1    SXA,1                                 
038309,000105: 36,2472           04000                           OCT      04000                                 
038310,000106: 36,2473           03424                                    ECSTEER                               
038311,000107: 36,2474           77745                           DLOAD                                          
038312,000108: 36,2475           15334                                    ZEROVECS                              
038313,000109: 36,2476           03767                           STORE    VPRED                                 
038314,000110: 36,2477           03771                           STORE    GAMMAEI                               
038315,000111: 36,2500           77776                           EXIT                                           
038316,000112: 36,2501           33252                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
038317,000113: 36,2502           03241                           TCR      P370GOF                               #                OVERLAYED WITH TIG
038318,000114: 36,2503           12501                           TCF      -2                                    #  DESPLAY NEW DATA
038319,000115: 36,2504           33256                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
038320,000116: 36,2505           03215                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RTEDVD
038321,000117: 36,2506           12504                           TCF      -2                                    #  DISPLAY NEW DATA
038322,000118: 36,2507           06006        RTE299             TC       INTPRET                               
038323,000119: 36,2510           71331                           SSP      DLOAD                                 
038324,000120: 36,2511           00122                                    OVFIND                                
038325,000121: 36,2512           00000                                    0                                     
038326,000122: 36,2513           03767                                    VPRED                                 
038327,000123: 36,2514           17632                           STODL    RTEDVD                                
038328,000124: 36,2515           03771                                    GAMMAEI                               
038329,000125: 36,2516           17634                           STODL    RTEGAM2D                              
038330,000126: 36,2517           33514                                    1RTEB13                               
038331,000127: 36,2520           17735                           STODL    CONICX1                               
038332,000128: 36,2521           33620                                    C4RTE                                 
038333,000129: 36,2522           37652                           STCALL   MAMAX1                                
038334,000130: 36,2523           64450                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
038335,000131: 36,2524           71214                           CLEAR    DLOAD                                 
038336,000132: 36,2525           02662                                    SLOWFLG                               
038337,000133: 36,2526           03632                                    RTEDVD                                
038338,000134: 36,2527           51444                           BPL      ABS                                   
038339,000135: 36,2530           74540                                    RTE317                                
038340,000136: 36,2531           03632                           STORE    RTEDVD                                
038341,000137: 36,2532           45345                           DLOAD    DSU                                   
038342,000138: 36,2533           03646                                    R(T1)                                 
038343,000139: 36,2534           33622                                    K1RTE                                 
038344,000140: 36,2535           43040                           BMN      SET                                   
038345,000141: 36,2536           74540                                    RTE317                                
038346,000142: 36,2537           02462                                    SLOWFLG                               
038347,000143: 36,2540           77545        RTE317             DLOAD    EXIT                                  
038348,000144: 36,2541           03646                                    R(T1)                                 
038349,000145: 36,2542           07171                           TC       POLY                                  
038350,000146: 36,2543           00002                           DEC      2          B-14                       
038351,000147: 36,2544           02544 35436                     2DEC     181000434. B-31                       
038352,000148: 36,2546           14040 05066                     2DEC     1.50785145 B-2                        
038353,000149: 36,2550           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
038354,000150: 36,2552           26415 25057                     2DEC*    9.76938926 E-18       B56*            
038355,000151: 36,2554           06006                           TC       INTPRET                               
038356,000152: 36,2555           77752                           SL1                                            
038357,000153: 36,2556           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
038358,000154: 36,2557           33544                                    M9RTEB28                              
038359,000155: 36,2560           17730                           STODL    NN1A                                  
038360,000156: 36,2561           33624                                    K2RTE                                 
038361,000157: 36,2562           17636        RTE320             STODL    RCON                                  #  RCON=K2
038362,000158: 36,2563           03634                                    RTEGAM2D                              
038363,000159: 36,2564           44254                           BZE      BDSU                                  
038364,000160: 36,2565           74574                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
038365,000161: 36,2566           33502                                    1RTEB2                                
038366,000162: 36,2567           71406                           PUSH     COS                                   #                                        PL02D
038367,000163: 36,2570           73525                           PDDL     SIN                                   
038368,000164: 36,2571           45465                           BDDV     STADR                                 #                                        PL00D
038369,000165: 36,2572           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
038370,000166: 36,2573           74607                                    RTE360                                
038371,000167: 36,2574           45345        RTE340             DLOAD    DSU                                   
038372,000168: 36,2575           03646                                    R(T1)                                 
038373,000169: 36,2576           33622                                    K1RTE                                 
038374,000170: 36,2577           71240                           BMN      DLOAD                                 
038375,000171: 36,2600           74604                                    RTE350                                
038376,000172: 36,2601           33630                                    K4RTE                                 
038377,000173: 36,2602           37726                           STCALL   X(T2)                                 #  X(T2)=K4
038378,000174: 36,2603           74607                                    RTE360                                
038379,000175: 36,2604           77745        RTE350             DLOAD                                          
038380,000176: 36,2605           33626                                    K3RTE                                 
038381,000177: 36,2606           03726                           STORE    X(T2)                                 #  X(T2)=K3
038382,000178: 36,2607           77624        RTE360             CALL                                           
038383,000179: 36,2610           65075                                    V2T100                                
038384,000180: 36,2611           52054                           BZE      GOTO                                  
038385,000181: 36,2612           74614                                    RTE367                                
038386,000182: 36,2613           74776                                    RTEALRM                               
038387,000183: 36,2614           77775        RTE367             VLOAD                                          
038388,000184: 36,2615           03640                                    R(T1)/                                
038389,000185: 36,2616           16657                           STODL    RVEC                                  
038390,000186: 36,2617           03636                                    RCON                                  
038391,000187: 36,2620           26760                           STOVL    RDESIRED                              
038392,000188: 36,2621           03700                                    V2(T1)/                               
038393,000189: 36,2622           36746                           STCALL   VVEC                                  
038394,000190: 36,2623           64277                                    TMRAD100                              
038395,000191: 36,2624           77615                           DAD                                            
038396,000192: 36,2625           03716                                    T1                                    
038397,000193: 36,2626           17736                           STODL    T2                                    
038398,000194: 36,2627           03634                                    RTEGAM2D                              
038399,000195: 36,2630           52054                           BZE      GOTO                                  
038400,000196: 36,2631           74633                                    RTE369                                
038401,000197: 36,2632           74655                                    RTE372                                
038402,000198: 36,2633           51575        RTE369             VLOAD    ABVAL                                 
038403,000199: 36,2634           03710                                    V(T2)/                                
038404,000200: 36,2635           77776                           EXIT                                           
038405,000201: 36,2636           07171                           TC       POLY                                  
038406,000202: 36,2637           00002                           DEC      2          B-14                       
038407,000203: 36,2640           00000 00000                     2DEC     0          B-28                       
038408,000204: 36,2642           47021 65002                     2DEC     -4.8760771 E-2        B4              
038409,000205: 36,2644           35610 07722                     2DEC     4.5419476  E-4        B11             
038410,000206: 36,2646           63772 63276                     2DEC     -1.4317675 E-6        B18             
038411,000207: 
038412,000208: 36,2650           06006                           TC       INTPRET                               
038413,000209: 36,2651           77615                           DAD                                            
038414,000210: 36,2652           01346                                    RTED1                                 
038415,000211: 36,2653           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
038416,000212: 36,2654           74657                                    RTE373                                
038417,000213: 36,2655           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
038418,000214: 36,2656           03726                                    X(T2)                                 
038419,000215: 36,2657           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D
038420,000216: 36,2660           03726                                    X(T2)                                 
038421,000217: 36,2661           53575                           VLOAD    UNIT                                  
038422,000218: 36,2662           03656                                    R(T2)/                                #                                        B58
038423,000219: 36,2663           36152                           STCALL   ALPHAV                                
038424,000220: 36,2664           26513                                    GETERAD                               
038425,000221: 36,2665           77615                           DAD                                            
038426,000222: 36,2666           33634                                    E3RTE                                 
038427,000223: 36,2667           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3        B29 PL04D
038428,000224: 36,2670           03636                                    RCON                                  
038429,000225: 36,2671           45246                           ABS      DSU                                   
038430,000226: 36,2672           33600                                    EPC2RTE                               
038431,000227: 36,2673           52040                           BMN      GOTO                                  
038432,000228: 36,2674           74676                                    RTE374                                
038433,000229: 36,2675           74703                                    RTE375                                
038434,000230: 36,2676           51545        RTE374             DLOAD    ABS                                   
038435,000231: 36,2677           00001                                    00D                                   
038436,000232: 36,2700           50025                           DSU      BMN                                   
038437,000233: 36,2701           33602                                    EPC3RTE                               
038438,000234: 36,2702           74753                                    P37E                                  
038439,000235: 36,2703           43345        RTE375             DLOAD    DAD                                   
038440,000236: 36,2704           03730                                    NN1A                                  
038441,000237: 36,2705           33522                                    1RTEB28                               
038442,000238: 36,2706           67240                           BMN      SLOAD                                 
038443,000239: 36,2707           74713                                    RTE380                                
038444,000240: 36,2710           33562                                    OCT605                                
038445,000241: 36,2711           77650                           GOTO                                           
038446,000242: 36,2712           74776                                    RTEALRM                               #  TOO MANY ITERATIONS
038447,000243: 36,2713           03730        RTE380             STORE    NN1A                                  
038448,000244: 36,2714           53025                           DSU      BZE                                   
038449,000245: 36,2715           33546                                    M8RTEB28                              
038450,000246: 36,2716           74734                                    RTE385                                
038451,000247: 36,2717           45345                           DLOAD    DSU                                   
038452,000248: 36,2720           00001                                    00D                                   
038453,000249: 36,2721           03666                                    DRCON                                 
038454,000250: 36,2722           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1                 PL06D
038455,000251: 36,2723           00047                                    X1                                    
038456,000252: 36,2724           03670                                    RPRE'                                 
038457,000253: 36,2725           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
038458,000254: 36,2726           03726                                    X(T2)                                 
038459,000255: 36,2727           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
038460,000256: 36,2730           00001                                    00D                                   
038461,000257: 36,2731           20201                                    0,1                                   
038462,000258: 36,2732           77650                           GOTO                                           
038463,000259: 36,2733           74736                                    RTE390                                
038464,000260: 36,2734           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
038465,000261: 36,2735           00001                                    00D                                   
038466,000262: 36,2736           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
038467,000263: 36,2737           77626                           STADR                                          
038468,000264: 36,2740           60141                           STODL    RCON                                  #  RCON=RCON,
038469,000265: 36,2741           77600                           BOV                                            
038470,000266: 36,2742           74607                                    RTE360                                
038471,000267: 36,2743           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
038472,000268: 36,2744           03726                                    X(T2)                                 
038473,000269: 36,2745           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
038474,000270: 36,2746           00021                                    16D                                   
038475,000271: 36,2747           77615                           DAD                                            
038476,000272: 36,2750           03726                                    X(T2)                                 
038477,000273: 36,2751           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
038478,000274: 36,2752           74607                                    RTE360                                #  REITERATE
038479,000275: 36,2753           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
038480,000276: 36,2754           75002                                    RTEVN                                 
038481,000277: 36,2755           41345        RTE505             DLOAD    DMP                                   
038482,000278: 36,2756           03720                                    PCON                                  
038483,000279: 36,2757           03754                                    BETA1                                 
038484,000280: 36,2760           53021                           BDSU     BZE                                   
038485,000281: 36,2761           03636                                    RCON                                  
038486,000282: 36,2762           74770                                    RTE510                                
038487,000283: 36,2763           71240                           BMN      DLOAD                                 
038488,000284: 36,2764           74770                                    RTE510                                
038489,000285: 36,2765           33502                                    1RTEB2                                
038490,000286: 36,2766           77650                           GOTO                                           #  ENTRY NEAR APOGEE
038491,000287: 36,2767           74772                                    RTE515                                
038492,000288: 36,2770           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
038493,000289: 36,2771           33502                                    1RTEB2                                
038494,000290: 36,2772           37761        RTE515             STCALL   PHI2                                  
038495,000291: 36,2773           64541                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
038496,000292: 36,2774           77654        RTE625             BZE                                            
038497,000293: 36,2775           75030                                    P37G                                  
038498,000294: 36,2776           77624        RTEALRM            CALL                                           
038499,000295: 36,2777           64262                                    P370ALRM                              
038500,000296: 36,3000           77776                           EXIT                                           
038501,000297: 36,3001           12466                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
038502,000298: 
038503,000299:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
038504,000300: 
038505,000301: 36,3002           45020        RTEVN              STQ      CALL                                  
038506,000302: 36,3003           03763                                    VNSTORE                               
038507,000303: 36,3004           64316                                    RTEDISP                               #  DISPLAY PREPARATION
038508,000304: 36,3005           77776                           EXIT                                           
038509,000305: 36,3006           33254                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
038510,000306: 36,3007           03225                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
038511,000307: 36,3010           35031                           CAF      FOUR                                  
038512,000308: 36,3011           03221                           TCR      37BLANK    +1                         
038513,000309: 36,3012           13017                           TCF      +5                                    
038514,000310: 36,3013           12466                           TCF      P37                                   #  RECYCLE
038515,000311: 36,3014           33255                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
038516,000312: 36,3015           03241                           TCR      P370GOF                               
038517,000313: 36,3016           12466                           TCF      P37                                   #  RECYCLE
038518,000314: 36,3017           33256                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
038519,000315: 36,3020           03215                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
038520,000316: 36,3021           12466                           TCF      P37                                   #  RECYCLE
038521,000317: 36,3022           33257                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
038522,000318: 36,3023           03241                           TCR      P370GOF                               
038523,000319: 36,3024           12466                           TCF      P37                                   #  RECYCLE
038524,000320: 36,3025           06006                           TCR      INTPRET                               
038525,000321: 36,3026           77650                           GOTO                                           
038526,000322: 36,3027           03763                                    VNSTORE                               
038527,000323: 
038528,000324:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
038529,000325: 
038530,000326: 36,3030           77624        P37G               CALL                                           
038531,000327: 36,3031           75002                                    RTEVN                                 
038532,000328: 36,3032           77776                           EXIT                                           
038533,000329: 36,3033           35037        P37N               CAF      SEVEN                                 
038534,000330: 36,3034           55131                           TS       OPTION1                               
038535,000331: 36,3035           35033                           CAF      ONE                                   
038536,000332: 36,3036           55132                           TS       OPTION2                               
038537,000333: 36,3037           33253                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
038538,000334: 36,3040           03241                           TCR      P370GOF                               
038539,000335: 36,3041           13037                           TCF      -2                                    #  RECYCLE
038540,000336: 36,3042           06006                           TC       INTPRET                               #  PROCEED
038541,000337: 36,3043           67201                           SETPD    SLOAD                                 
038542,000338: 36,3044           00001                                    00D                                   
038543,000339: 36,3045           01133                                    OPTION2                               
038544,000340: 36,3046           53025                           DSU      BZE                                   
038545,000341: 36,3047           33514                                    1RTEB13                               
038546,000342: 36,3050           75057                                    P37Q                                  
038547,000343: 36,3051           60335                           SLOAD    NORM                                  #  SPS
038548,000344: 36,3052           00111                                    EMDOT                                 
038549,000345: 36,3053           00047                                    X1                                    
038550,000346: 36,3054           52125                           PDDL     GOTO                                  
038551,000347: 36,3055           33552                                    VCSPS                                 
038552,000348: 36,3056           75070                                    P37T                                  
038553,000349: 36,3057           43145        P37Q               DLOAD    BON                                   #  RCS
038554,000350: 36,3060           33556                                    MDOTRCS                               
038555,000351: 36,3061           00700                                    NJETSFLG                              
038556,000352: 36,3062           75064                                    P37R                                  
038557,000353: 36,3063           77752                           SL1                                            
038558,000354: 36,3064           77752        P37R               SL1                                            
038559,000355: 36,3065           65301                           NORM     PDDL                                  
038560,000356: 36,3066           00047                                    X1                                    
038561,000357: 36,3067           33554                                    VCRCS                                 
038562,000358: 36,3070           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2     PL02D
038563,000359: 36,3071           03706                                    DV                                    
038564,000360: 36,3072           77776                           EXIT                                           
038565,000361: 36,3073           07171                           TC       POLY                                  
038566,000362: 36,3074           00001                           DEC      1          B-14                       
038567,000363: 36,3075           00001 05070                     2DEC     5.66240507 E-4        B-3             
038568,000364: 36,3077           17527 36700                     2DEC     9.79487897 E-1        B-1             
038569,000365: 36,3101           47114 70670                     2DEC     -.388281955 B1                         
038570,000366: 36,3103           06006                           TC       INTPRET                               
038571,000367: 36,3104           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A             B3      PL04D
038572,000368: 36,3105           03076                                    WEIGHT/G                              
038573,000369: 36,3106           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16   PL00D
038574,000370: 36,3107           41257                           SL*      DMP                                   
038575,000371: 36,3110           20165                                    0          -12D,1                     
038576,000372: 36,3111           33560                                    CSUBT                                 
038577,000373: 36,3112           77621                           BDSU                                           
038578,000374: 36,3113           03716                                    T1                                    
038579,000375: 36,3114           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                 B28
038580,000376: 36,3115           77776                           EXIT                                           
038581,000377: 36,3116           33252                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
038582,000378: 36,3117           03241                           TCR      P370GOF                               
038583,000379: 36,3120           13116                           TCF      -2                                    
038584,000380: 36,3121           35035                           CAF      ZERO                                  
038585,000381: 36,3122           55125                           TS       VHFCNT                                
038586,000382: 36,3123           55126                           TS       TRKMKCNT                              
038587,000383: 36,3124           06006                           TC       INTPRET                               
038588,000384: 36,3125           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
038589,000385: 36,3126           63704                                    RTENCK1                               
038590,000386: 36,3127           53575                           VLOAD    UNIT                                  #                                        PL00D
038591,000387: 36,3130           03656                                    R(T2)/                                
038592,000388: 36,3131           74315                           PDVL     VXSC                                  #  UR2                           B1      PL06D
038593,000389: 36,3132           03740                                    UR1/                                  
038594,000390: 36,3133           33564                                    MCOS7.5                               
038595,000391: 36,3134           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                  B1      PL12D
038596,000392: 36,3135           03746                                    UH/                                   
038597,000393: 36,3136           33566                                    MSIN7.5                               
038598,000394: 36,3137           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2      PL00D
038599,000395: 36,3140           50015                           DAD      BMN                                   
038600,000396: 36,3141           33570                                    MCOS22.5                              
038601,000397: 36,3142           75167                                    P37W                                  
038602,000398: 36,3143           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
038603,000399: 36,3144           03746                                    UH/                                   
038604,000400: 36,3145           03656                                    R(T2)/                                
038605,000401: 36,3146           71240                           BMN      DLOAD                                 
038606,000402: 36,3147           75153                                    P37U                                  
038607,000403: 36,3150           33572                                    THETA165                              
038608,000404: 36,3151           52006                           PUSH     GOTO                                  
038609,000405: 36,3152           75155                                    P37V                                  
038610,000406: 36,3153           41545        P37U               DLOAD    PUSH                                  
038611,000407: 36,3154           33574                                    THETA210                              
038612,000408: 36,3155           77756        P37V               SIN                                            
038613,000409: 36,3156           16732                           STODL    SNTH                                  
038614,000410: 36,3157           43146                           COS      CLEAR                                 
038615,000411: 36,3160           03666                                    RVSW                                  
038616,000412: 36,3161           26734                           STOVL    CSTH                                  
038617,000413: 36,3162           03640                                    R(T1)/                                
038618,000414: 36,3163           26657                           STOVL    RVEC                                  
038619,000415: 36,3164           03700                                    V2(T1)/                               
038620,000416: 36,3165           36746                           STCALL   VVEC                                  
038621,000417: 36,3166           24744                                    TIMETHET                              
038622,000418: 36,3167           43014        P37W               CLEAR    CLEAR                                 
038623,000419: 36,3170           01267                                    XDELVFLG                              
038624,000420: 36,3171           03665                                    NORMSW                                
038625,000421: 36,3172           77214                           SET      VLOAD                                 
038626,000422: 36,3173           01071                                    FINALFLG                              
038627,000423: 36,3174           77626                           STADR                                          
038628,000424: 36,3175           60362                           STODL    RTARG                                 
038629,000425: 36,3176           00037                                    T                                     
038630,000426: 36,3177           77615                           DAD                                            
038631,000427: 36,3200           03716                                    T1                                    
038632,000428: 36,3201           27656                           STOVL    TPASS4                                
038633,000429: 36,3202           03700                                    V2(T1)/                               

Reconstruction: Comanche 72 has been changed to exit out of interpretive code here and switch the erasable bank to 4, in order to fix anomaly COM-27, "V32E response to FLV16N45 in P37 results in indeterminate program transfer". Furthermore, the STORE DELVSIN and CALL VN1645 were split up into two different instructions (from their former STCALL) so that the CALL instruction could be given the new label P37WW. The following GOTO was changed to jump to this new label instead of P37W.

038642,000438: 36,3203           77451                           VSU      EXIT                                  
038643,000439: 36,3204           03672                                    V(T1)/                                
038644,000440: 36,3205           35021                           CAF      EBANK4                                
038645,000441: 36,3206           54003                           TS       EBANK                                 
038646,000442: 36,3207           06006                           TC       INTPRET                               
038647,000443: 36,3210           03646                           STORE    DELVSIN                               
038648,000444: 36,3211           77624        P37WW              CALL                                           
038649,000445: 36,3212           73002                                    VN1645                                
038650,000446: 36,3213           77650                           GOTO                                           
038651,000447: 36,3214           75211                                    P37WW                                 
038652,000448: 
038653,000449:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
038654,000450: 
038655,000451: 36,3215           00006        P37GFRB1           EXTEND                                         
038656,000452: 36,3216           23762                           QXCH     SPRTEX                                
038657,000453: 36,3217           03225                           TCR      P370GOFR                              
038658,000454: 36,3220           35033        37BLANK            CAF      ONE                                   
038659,000455: 36,3221           05542                           TCR      BLANKET                               
038660,000456: 36,3222           15233                           TCF      ENDOFJOB                              
038661,000457: 36,3223           01762                           TC       SPRTEX                                #  RECYCLE
038662,000458: 36,3224           13250                           TCF      P37PROC                               #  PROCEED
038663,000459: 
038664,000460:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
038665,000461: 
038666,000462: 36,3225           00006        P370GOFR           EXTEND                                         
038667,000463: 36,3226           23733                           QXCH     RTENCKEX                              
038668,000464: 36,3227           04676                           TCR      BANKCALL                              
038669,000465: 36,3230           21057                           CADR     GOFLASHR                              
038670,000466: 36,3231           14106                           TCF      GOTOPOOH                              #  TERMINATE
038671,000467: 36,3232           13235                           TCF      +3                                    
038672,000468: 36,3233           13237                           TCF      +4                                    
038673,000469: 36,3234           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
038674,000470: 36,3235           51733                           INDEX    RTENCKEX                              #  PROCEED
038675,000471: 36,3236           10004                           TCF      0          +4                         
038676,000472: 36,3237           51733                           INDEX    RTENCKEX                              #  RECYCLE
038677,000473: 36,3240           10003                           TCF      0          +3                         
038678,000474: 
038679,000475:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
038680,000476: 
038681,000477: 36,3241           00006        P370GOF            EXTEND                                         
038682,000478: 36,3242           23762                           QXCH     SPRTEX                                
038683,000479: 36,3243           04676                           TCR      BANKCALL                              
038684,000480: 36,3244           20720                           CADR     GOFLASH                               
038685,000481: 36,3245           14106                           TCF      GOTOPOOH                              
038686,000482: 36,3246           13250                           TCF      +2                                    
038687,000483: 36,3247           01762                           TC       SPRTEX                                
038688,000484: 36,3250           51762        P37PROC            INDEX    SPRTEX                                
038689,000485: 36,3251           10001                           TCF      0          +1                         
038690,000486: 36,3252           01441        V6N33RTE           VN       0633                                  
038691,000487: 36,3253           01006        V4N06RTE           VN       0406                                  
038692,000488: 36,3254           01475        V6N61RTE           VN       0661                                  
038693,000489: 36,3255           01447        V6N39RTE           VN       0639                                  
038694,000490: 36,3256           01474        V6N60RTE           VN       0660                                  
038695,000491: 36,3257           01521        V6N81RTE           VN       0681                                  
038696,000492: 32,2262                                           BANK     32                                    
038697,000493: 32,2000                                           SETLOC   RTE                                   
038698,000494: 32,2000                                           BANK                                           
038699,000495: 32,2262                                           COUNT    32/RTE                                
038700,000496: 
038701,000497:                                                                                                  #  ALARM DISPLAY SUBROUTINE
038702,000498: 
038703,000499: 32,2262           77420        P370ALRM           STQ      EXIT                                  
038704,000500: 32,2263           03762                                    SPRTEX                                
038705,000501: 32,2264           30154                           CA       MPAC                                  
038706,000502: 32,2265           05770                           TC       VARALARM                              
038707,000503: 32,2266           32276                           CAF      V5N09RTE                              
038708,000504: 32,2267           04676                           TC       BANKCALL                              
038709,000505: 32,2270           20720                           CADR     GOFLASH                               
038710,000506: 32,2271           14106                           TCF      GOTOPOOH                              
038711,000507: 32,2272           12266                           TCF      -4                                    
038712,000508: 32,2273           06006                           TC       INTPRET                               
038713,000509: 32,2274           77650                           GOTO                                           
038714,000510: 32,2275           03762                                    SPRTEX                                
038715,000511: 32,2276           01211        V5N09RTE           VN       0509                                  
038716,000512: 
038717,000513:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
038718,000514: 
038719,000515:                                                                                                  #  INPUT
038720,000516:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038721,000517:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038722,000518:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
038723,000519:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES  -2=EARTH              SP      B14
038724,000520: 
038725,000521:                                                                                                  #  OUTPUT
038726,000522:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038727,000523:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038728,000524:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
038729,000525: 
038730,000526: 32,2277           43020        TMRAD100           STQ      CLEAR                                 
038731,000527: 32,2300           03733                                    RTENCKEX                              
038732,000528: 32,2301           03666                                    RVSW                                  
038733,000529: 32,2302           67164                           AXC,2    SXA,2                                 
038734,000530: 32,2303           20000                           OCT      20000                                 
038735,000531: 32,2304           02756                                    SGNRDOT                               
038736,000532: 32,2305           45140                           LXC,1    CALL                                  
038737,000533: 32,2306           03734                                    CONICX1                               
038738,000534: 32,2307           25566                                    TIMERAD                               
038739,000535: 32,2310           27710                           STOVL    V(T2)/                                #                                        PL00D
038740,000536: 32,2311           77626                           STADR                                          
038741,000537: 32,2312           60121                           STODL    R(T2)/                                
038742,000538: 32,2313           00037                                    T                                     
038743,000539: 32,2314           37724                           STCALL   T12                                   
038744,000540: 32,2315           03733                                    RTENCKEX                              
038745,000541: 
038746,000542:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
038747,000543: 
038748,000544:                                                                                                  #  DESCRIPTION
038749,000545:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
038750,000546:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
038751,000547: 
038752,000548:                                                                                                  #  CALLING SEQUENCE
038753,000549:                                                                                                  #        L       CALL
038754,000550:                                                                                                  #        L+1             RTEDISP
038755,000551: 
038756,000552:                                                                                                  #  SUBROUTINES CALLED
038757,000553:                                                                                                  #        TMRAD100
038758,000554:                                                                                                  #        AUGEKUGL
038759,000555:                                                                                                  #        LAT-LONG
038760,000556: 
038761,000557:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038762,000558:                                                                                                  #     PUSHLIST
038763,000559:                                                                                                  #        NONE
038764,000560:                                                                                                  #     MPAC
038765,000561:                                                                                                  #        NONE
038766,000562:                                                                                                  #     OTHER
038767,000563:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038768,000564:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038769,000565:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038770,000566:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038771,000567:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038772,000568:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038773,000569:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038774,000570: 
038775,000571:                                                                                                  #  OUTPUT
038776,000572:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
038777,000573:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
038778,000574:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
038779,000575:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
038780,000576:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
038781,000577:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
038782,000578: 
038783,000579: 32,2316           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
038784,000580: 32,2317           03762                                    SPRTEX                                
038785,000581: 32,2320           03710                                    V(T2)/                                
038786,000582: 32,2321           65256                           UNIT     PDDL                                  
038787,000583: 32,2322           00045                                    36D                                   
038788,000584: 32,2323           17767                           STODL    VPRED                                 #  V(T2)
038789,000585: 32,2324           03736                                    T2                                    
038790,000586: 32,2325           77625                           DSU                                            
038791,000587: 32,2326           03413                                    SPRTETIG                              
038792,000588: 32,2327           26641                           STOVL    T3TOT4                                #  T21
038793,000589: 32,2330           03656                                    R(T2)/                                
038794,000590: 32,2331           50256                           UNIT     DOT                                   
038795,000591: 32,2332           77752                           SL1                                            
038796,000592: 
038797,000593: 32,2333           44326                           ARCCOS   BDSU                                  
038798,000594: 32,2334           33502                                    1RTEB2                                
038799,000595: 32,2335           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
038800,000596: 32,2336           03700                                    V2(T1)/                               
038801,000597: 32,2337           41451                           VSU      PUSH                                  
038802,000598: 32,2340           03672                                    V(T1)/                                
038803,000599: 32,2341           57441                           DOT      DCOMP                                 
038804,000600: 32,2342           03740                                    UR1/                                  
038805,000601: 32,2343           41515                           PDVL     PUSH                                  
038806,000602: 32,2344           63345                           DLOAD    PDVL                                  
038807,000603: 32,2345           33524                                    ZERORTE                               
038808,000604: 32,2346           55441                           DOT      VDEF                                  
038809,000605: 32,2347           03746                                    UH/                                   
038810,000606: 32,2350           77772                           VSL1                                           
038811,000607: 32,2351           17405                           STODL    DELVLVC                               
038812,000608: 32,2352           03405                                    DELVLVC                               
038813,000609: 32,2353           57414                           BOFF     DCOMP                                 
038814,000610: 32,2354           02741                                    RETROFLG                              
038815,000611: 32,2355           64357                                    RTD18                                 
038816,000612: 32,2356           03405                           STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
038817,000613: 32,2357           51575        RTD18              VLOAD    ABVAL                                 
038818,000614: 32,2360           03405                                    DELVLVC                               
038819,000615: 32,2361           27773                           STOVL    VGDISP                                
038820,000616: 32,2362           03656                                    R(T2)/                                
038821,000617: 32,2363           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
038822,000618: 32,2364           45246                           ABVAL    DSU                                   
038823,000619: 32,2365           33550                                    30480RTE                              
038824,000620: 32,2366           26760                           STOVL    RDESIRED                              
038825,000621: 32,2367           03710                                    V(T2)/                                
038826,000622: 32,2370           36746                           STCALL   VVEC                                  
038827,000623: 32,2371           64277                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
038828,000624: 32,2372           53575                           VLOAD    UNIT                                  
038829,000625: 32,2373           03656                                    R(T2)/                                
038830,000626: 32,2374           53515                           PDVL     UNIT                                  #  UR3                                   PL06D
038831,000627: 32,2375           03710                                    V(T2)/                                
038832,000628: 32,2376           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)              PL00D
038833,000629: 32,2377           65336                           ARCSIN   PDDL                                  #  V(T3)                                 PL02D
038834,000630: 32,2400           00045                                    36D                                   
038835,000631: 32,2401           51525                           PDDL     ABS                                   
038836,000632: 32,2402           45006                           PUSH     CALL                                  #  /GAMMAE/                              PL04D
038837,000633: 32,2403           64075                                    AUGEKUGL                              #  PHIE                                  PL06D
038838,000634: 32,2404           43215                           DAD      DAD                                   
038839,000635: 32,2405           03724                                    T12                                   #  T23
038840,000636: 32,2406           03736                                    T2                                    
038841,000637: 32,2407           00003                           STORE    02D                                   #  T(LS)=T2&T23&TE
038842,000638: 32,2410           53135                           SLOAD    BZE                                   
038843,000639: 32,2411           03377                                    P37RANGE                              
038844,000640: 32,2412           64414                                    RTD22                                 
038845,000641: 32,2413           00005                           STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
038846,000642: 32,2414           73545        RTD22              DLOAD    SIN                                   
038847,000643: 
038848,000644: 32,2415           00005                                    04D                                   
038849,000645: 32,2416           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                    PL04D
038850,000646: 32,2417           77746                           COS                                            
038851,000647: 32,2420           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
038852,000648: 32,2421           53575                           VLOAD    UNIT                                  
038853,000649: 32,2422           03656                                    R(T2)/                                
038854,000650: 32,2423           41406                           PUSH     PUSH                                  
038855,000651: 32,2424           53515                           PDVL     UNIT                                  #                                        PL22D
038856,000652: 32,2425           03710                                    V(T2)/                                
038857,000653: 32,2426           47315                           PDVL     VXV                                   
038858,000654: 32,2427           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)             PL10D
038859,000655: 32,2430           63361                           VXSC     PDVL                                  
038860,000656: 32,2431           03403                                    LNG(SPL)                              
038861,000657: 32,2432           53361                           VXSC     VAD                                   #                                        PL04D
038862,000658: 32,2433           03401                                    LAT(SPL)                              
038863,000659: 32,2434           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
038864,000660: 32,2435           00662                                    ERADFLAG                              
038865,000661: 32,2436           01663                                    LUNAFLAG                              
038866,000662: 32,2437           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)      PL02D
038867,000663: 32,2440           77624                           CALL                                           
038868,000664: 32,2441           26376                                    LAT-LONG                              
038869,000665: 32,2442           77745                           DLOAD                                          
038870,000666: 32,2443           01104                                    LAT                                   
038871,000667: 32,2444           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
038872,000668: 32,2445           01106                                    LONG                                  
038873,000669: 32,2446           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
038874,000670: 32,2447           03762                                    SPRTEX                                
038875,000671: 32,2450                                           COUNT*   $$/RTE                                
038876,000672: 
038877,000673:                                                                                                  #  INITIAL VECTOR SUBROUTINE
038878,000674: 
038879,000675:                                                                                                  #  DESCRIPTION
038880,000676:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
038881,000677: 
038882,000678:                                                                                                  #  CALLING SEQUENCE
038883,000679:                                                                                                  #        L       CALL
038884,000680:                                                                                                  #        L+1             INVC100
038885,000681: 
038886,000682:                                                                                                  #  NORMAL EXIT MODE
038887,000683:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038888,000684: 
038889,000685:                                                                                                  #  ALARM EXIT MODE
038890,000686:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
038891,000687: 
038892,000688:                                                                                                  #  SUBROUTINES CALLED
038893,000689:                                                                                                  #        CSMPREC
038894,000690: 
038895,000691:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038896,000692:                                                                                                  #     PUSHLIST
038897,000693:                                                                                                  #        NONE
038898,000694:                                                                                                  #     MPAC
038899,000695:                                                                                                  #        NONE
038900,000696:                                                                                                  #     OTHER
038901,000697:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
038902,000698:                                                                                                  #        CSM STATE VECTOR
038903,000699: 
038904,000700:                                                                                                  #  OUTPUT
038905,000701:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
038906,000702:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
038907,000703:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
038908,000704:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038909,000705:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038910,000706:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038911,000707: 
038912,000708: 32,2450           71220        INVC100            STQ      DLOAD                                 
038913,000709: 32,2451           03762                                    SPRTEX                                
038914,000710: 32,2452           03413                                    SPRTETIG                              
038915,000711: 32,2453           34041                           STCALL   TDEC1                                 
038916,000712: 32,2454           27100                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
038917,000713: 32,2455           67175                           VLOAD    SXA,2                                 
038918,000714: 32,2456           00001                                    RATT                                  
038919,000715: 32,2457           03755                                    P(T1)                                 
038920,000716: 32,2460           27640                           STOVL    R(T1)/                                
038921,000717: 32,2461           00007                                    VATT                                  
038922,000718: 32,2462           17672                           STODL    V(T1)/                                
038923,000719: 32,2463           00015                                    TAT                                   
038924,000720: 32,2464           03716                           STORE    T1                                    
038925,000721: 32,2465           53135                           SLOAD    BZE                                   
038926,000722: 32,2466           03756                                    P(T1)                                 
038927,000723: 32,2467           64473                                    INVC109                               
038928,000724: 32,2470           52135        INVC107            SLOAD    GOTO                                  
038929,000725: 32,2471           33563                                    OCT612                                
038930,000726: 32,2472           74776                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
038931,000727: 32,2473           53575        INVC109            VLOAD    UNIT                                  
038932,000728: 32,2474           03640                                    R(T1)/                                
038933,000729: 32,2475           17740                           STODL    UR1/                                  #  UR1/                                  B1
038934,000730: 32,2476           00045                                    36D                                   
038935,000731: 32,2477           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
038936,000732: 32,2500           03672                                    V(T1)/                                
038937,000733: 32,2501           77656                           UNIT                                           
038938,000734: 32,2502           03746                           STORE    UV1/                                  
038939,000735: 32,2503           72441                           DOT      SL1                                   
038940,000736: 32,2504           03740                                    UR1/                                  
038941,000737: 32,2505           03757                           STORE    CFPA                                  #  CFPA                                  B1
038942,000738: 32,2506           45246                           ABS      DSU                                   
038943,000739: 32,2507           33576                                    EPC1RTE                               
038944,000740: 32,2510           71240                           BMN      DLOAD                                 
038945,000741: 32,2511           64520                                    INVC115                               #  NOT NEAR RECTILINEAR
038946,000742: 32,2512           33502                                    1RTEB2                                
038947,000743: 32,2513           41525                           PDDL     PUSH                                  
038948,000744: 32,2514           33524                                    ZERORTE                               
038949,000745: 32,2515           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
038950,000746: 32,2516           77650                           GOTO                                           
038951,000747: 32,2517           64524                                    INVC120                               
038952,000748: 32,2520           47375        INVC115            VLOAD    VXV                                   
038953,000749: 32,2521           03740                                    UR1/                                  
038954,000750: 32,2522           03746                                    UV1/                                  
038955,000751: 32,2523           77606                           PUSH                                           #  N/ = UR X UV                          B2
038956,000752: 32,2524           71214        INVC120            CLEAR    DLOAD                                 
038957,000753: 32,2525           02661                                    RETROFLG                              
038958,000754: 32,2526           51006                           PUSH     BPL                                   
038959,000755: 32,2527           64533                                    INVC125                               
038960,000756: 32,2530           57575                           VLOAD    VCOMP                                 #  RETROGRADE ORBIT
038961,000757: 32,2531           43006                           PUSH     SET                                   
038962,000758: 32,2532           02461                                    RETROFLG                              
038963,000759: 32,2533           77775        INVC125            VLOAD                                          
038964,000760: 32,2534           53435                           VXV      UNIT                                  
038965,000761: 32,2535           03740                                    UR1/                                  
038966,000762: 32,2536           03746                           STORE    UH/                                   #  UH/                                   B1
038967,000763: 32,2537           77650                           GOTO                                           
038968,000764: 32,2540           03762                                    SPRTEX                                
038969,000765: 
038970,000766:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038971,000767: 
038972,000768:                                                                                                  #  DESCRIPTION
038973,000769:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038974,000770:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038975,000771:                                                                                                  #        AS POSSIBLE.
038976,000772: 
038977,000773:                                                                                                  #  CALLING SEQUENCE
038978,000774:                                                                                                  #        L       CALL
038979,000775:                                                                                                  #        L+1             PREC100
038980,000776: 
038981,000777:                                                                                                  #  NORMAL EXIT MODE
038982,000778:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038983,000779: 
038984,000780:                                                                                                  #  ALARM EXIT MODE
038985,000781:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
038986,000782:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
038987,000783:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
038988,000784: 
038989,000785:                                                                                                  #  SUBROUTINES CALLED
038990,000786:                                                                                                  #        INTSTALL
038991,000787:                                                                                                  #        RTENCK2
038992,000788:                                                                                                  #        RTENCK3
038993,000789:                                                                                                  #        TIMERAD
038994,000790:                                                                                                  #        PARAM
038995,000791:                                                                                                  #        V2T100
038996,000792: 
038997,000793:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038998,000794:                                                                                                  #     PUSHLIST
038999,000795:                                                                                                  #        NONE
039000,000796:                                                                                                  #     MPAC
039001,000797:                                                                                                  #        NONE
039002,000798:                                                                                                  #     OTHER
039003,000799:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
039004,000800:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039005,000801:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
039006,000802:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
039007,000803:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
039008,000804:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
039009,000805:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
039010,000806:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
039011,000807:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
039012,000808:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
039013,000809:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
039014,000810:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
039015,000811:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039016,000812:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039017,000813:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
039018,000814:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
039019,000815: 
039020,000816: 
039021,000817:                                                                                                  #  OUTPUT
039022,000818:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
039023,000819:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039024,000820:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039025,000821:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
039026,000822: 
039027,000823:                                                                                                  #  DEBRIS
039028,000824:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
039029,000825:                                                                                                  #        R/APRE          R/A                                                     DP      B6
039030,000826:                                                                                                  #        P/RPRE          P/R                                                     DP      B4
039031,000827:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
039032,000828:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
039033,000829:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
039034,000830:                                                                                                  #        RCON            FINAL RADIUS                                            DP      B29/B27 METERS
039035,000831:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
039036,000832: 
039037,000833: 32,2541           71220        PREC100            STQ      DLOAD                                 
039038,000834: 32,2542           03762                                    SPRTEX                                
039039,000835: 32,2543           33532                                    10RTE                                 
039040,000836: 32,2544           17730                           STODL    NN1A                                  
039041,000837: 32,2545           03636                                    RCON                                  
039042,000838: 32,2546           03664                           STORE    RD                                    
039043,000839: 32,2547           77745        PREC120            DLOAD                                          
039044,000840: 32,2550           33542                                    2RTEB1                                
039045,000841: 32,2551           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
039046,000842: 32,2552           33530                                    M15RTE                                
039047,000843: 32,2553           37732                           STCALL   NN2                                   
039048,000844: 32,2554           63732                                    RTENCK3                               
039049,000845: 32,2555           77624        PREC125            CALL                                           
039050,000846: 32,2556           11637                                    PARAM                                 
039051,000847: 32,2557           77745                           DLOAD                                          
039052,000848: 32,2560           02742                                    P                                     
039053,000849: 32,2561           14033                           STODL    P/RPRE                                
039054,000850: 32,2562           02744                                    R1A                                   
039055,000851: 32,2563           14035                           STODL    R/APRE                                
039056,000852: 32,2564           00041                                    R1                                    
039057,000853: 32,2565           14031                           STODL    RPRE                                  
039058,000854: 32,2566           03775                                    COGA                                  
039059,000855: 32,2567           77661                           SL                                             
039060,000856: 32,2570           20206                                    5                                     
039061,000857: 32,2571           03724                           STORE    X(T2)PRE                              
039062,000858: 32,2572           43276                           DCOMP    DAD                                   
039063,000859: 32,2573           03726                                    X(T2)                                 
039064,000860: 32,2574           45246                           ABS      DSU                                   
039065,000861: 32,2575           33604                                    EPC4RTE                               
039066,000862: 32,2576           50000                           BOV      BMN                                   
039067,000863: 32,2577           64601                                    PREC130                               
039068,000864: 32,2600           64770                                    PREC175                               
039069,000865: 
039070,000866:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED
039071,000867: 
039072,000868: 32,2601           50145        PREC130            DLOAD    BMN                                   
039073,000869: 32,2602           03732                                    NN2                                   
039074,000870: 32,2603           64607                                    PREC140                               
039075,000871: 32,2604           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
039076,000872: 32,2605           33562                                    OCT605                                #        EXIT WITH ALARM
039077,000873: 32,2606           65073                                    PRECX                                 
039078,000874: 
039079,000875:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
039080,000876: 
039081,000877: 32,2607           53145        PREC140            DLOAD    BZE                                   
039082,000878: 32,2610           03730                                    NN1A                                  
039083,000879: 32,2611           64647                                    PREC162                               
039084,000880: 32,2612           62545        PREC150            DLOAD    SL2                                   #                                B2
039085,000881: 32,2613           00033                                    P/RPRE                                
039086,000882: 32,2614           72405                           DMP      SL1                                   #  BETA2=BETA1*P/R               B2      PL02
039087,000883: 32,2615           03754                                    BETA1                                 
039088,000884: 32,2616           71206                           PUSH     DLOAD                                 
039089,000885: 32,2617           00035                                    R/APRE                                
039090,000886: 32,2620           41212                           SL4      DMP                                   
039091,000887: 32,2621           00001                                    00D                                   
039092,000888: 32,2622           50021                           BDSU     BMN                                   #  BETA3=1-BETA2*R/A
039093,000889: 32,2623           33506                                    1RTEB4                                
039094,000890: 32,2624           64637                                    PREC160                               
039095,000891: 32,2625           75512        PREC155            SL2      SQRT                                  
039096,000892: 32,2626           44205                           DMP      BDSU                                  
039097,000893: 32,2627           03761                                    PHI2                                  
039098,000894: 32,2630           33504                                    1RTEB3                                
039099,000895: 32,2631           65301                           NORM     PDDL                                  
039100,000896: 32,2632           00047                                    X1                                    
039101,000897: 32,2633           56342                           SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
039102,000898: 32,2634           52057                           SL*      GOTO                                  #                                B1
039103,000899: 32,2635           20200                                    0          -1,1                       
039104,000900: 32,2636           64655                                    PREC165                               
039105,000901: 32,2637           60345        PREC160            DLOAD    NORM                                  
039106,000902: 32,2640           00035                                    R/APRE                                
039107,000903: 32,2641           00047                                    X1                                    
039108,000904: 32,2642           53665                           BDDV     SL*                                   #                                B1
039109,000905: 32,2643           33500                                    1RTEB1                                
039110,000906: 32,2644           20173                                    0          -6,1                       
039111,000907: 32,2645           77650                           GOTO                                           
039112,000908: 32,2646           64655                                    PREC165                               
039113,000909: 32,2647           60345        PREC162            DLOAD    NORM                                  
039114,000910: 32,2650           00031                                    RPRE                                  
039115,000911: 32,2651           00047                                    X1                                    
039116,000912: 32,2652           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
039117,000913: 32,2653           03664                                    RD                                    
039118,000914: 32,2654           20200                                    0          -1,1                       
039119,000915: 32,2655           41401        PREC165            SETPD    PUSH                                  
039120,000916: 32,2656           00001                                    0                                     
039121,000917: 32,2657           57425                           DSU      DCOMP                                 
039122,000918: 32,2660           33500                                    1RTEB1                                
039123,000919: 32,2661           03765                           STORE    BETA12                                
039124,000920: 32,2662           71240                           BMN      DLOAD                                 
039125,000921: 32,2663           64674                                    PREC168                               
039126,000922: 32,2664           03724                                    X(T2)PRE                              
039127,000923: 32,2665           71240                           BMN      DLOAD                                 
039128,000924: 32,2666           64672                                    PREC167                               
039129,000925: 32,2667           03765                                    BETA12                                
039130,000926: 32,2670           77676                           DCOMP                                          
039131,000927: 32,2671           03765                           STORE    BETA12                                
039132,000928: 32,2672           77745        PREC167            DLOAD                                          
039133,000929: 32,2673           03765                                    BETA12                                
039134,000930: 32,2674           45246        PREC168            ABS      DSU                                   
039135,000931: 32,2675           33610                                    EPC6RTE                               
039136,000932: 32,2676           71240                           BMN      DLOAD                                 
039137,000933: 32,2677           64770                                    PREC175                               
039138,000934: 32,2700           72405                           DMP      SL1                                   
039139,000935: 32,2701           00031                                    RPRE                                  
039140,000936: 32,2702           77606                           PUSH                                           #  RF = NEW RADIUS
039141,000937: 32,2703           43345        PREC170            DLOAD    DAD                                   
039142,000938: 32,2704           03732                                    NN2                                   
039143,000939: 32,2705           33522                                    1RTEB28                               
039144,000940: 32,2706           03732                           STORE    NN2                                   
039145,000941: 32,2707           43175                           VLOAD    SET                                   
039146,000942: 32,2710           03656                                    R(T2)/                                
039147,000943: 32,2711           03466                                    RVSW                                  
039148,000944: 32,2712           26657                           STOVL    RVEC                                  
039149,000945: 32,2713           03710                                    V(T2)/                                
039150,000946: 32,2714           77765                           SIGN                                           
039151,000947: 32,2715           03765                                    BETA12                                
039152,000948: 32,2716           16746                           STODL    VVEC                                  
039153,000949: 32,2717           33500                                    1RTEB1                                
039154,000950: 32,2720           57565                           SIGN     DCOMP                                 
039155,000951: 32,2721           03765                                    BETA12                                
039156,000952: 32,2722           71354                           LXA,2    DLOAD                                 
039157,000953: 32,2723           00154                                    MPAC                                  
039158,000954: 32,2724           67140                           LXC,1    SXA,2                                 
039159,000955: 32,2725           03734                                    CONICX1                               
039160,000956: 32,2726           02756                                    SGNRDOT                               
039161,000957: 32,2727           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
039162,000958: 32,2730           25566                                    TIMERAD                               #        NEW RADIUS)
039163,000959: 32,2731           75345                           DLOAD    SIGN                                  
039164,000960: 32,2732           00037                                    T                                     
039165,000961: 32,2733           03765                                    BETA12                                
039166,000962: 32,2734           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                       PL02D
039167,000963: 32,2735           03650                                    DT21PR                                
039168,000964: 32,2736           00047                                    X1                                    
039169,000965: 32,2737           53665                           BDDV     SL*                                   
039170,000966: 32,2740           00001                                    00D                                   
039171,000967: 32,2741           20176                                    0          -3,1                       
039172,000968: 32,2742           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        B3      PL04D
039173,000969: 32,2743           64750                                    PREC172                               
039174,000970: 32,2744           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0      PL04D
039175,000971: 32,2745           33542                                    2RTEB1                                
039176,000972: 32,2746           77650                           GOTO                                           
039177,000973: 32,2747           64752                                    PREC173                               
039178,000974: 32,2750           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0      PL04D
039179,000975: 32,2751           33534                                    M.6RTE                                
039180,000976: 32,2752           45271        PREC173            DDV      DSU                                   
039181,000977: 32,2753           00003                                    02D                                   
039182,000978: 32,2754           33504                                    1RTEB3                                
039183,000979: 32,2755           71240                           BMN      DLOAD                                 
039184,000980: 32,2756           64762                                    PREC174                               
039185,000981: 32,2757           77605                           DMP                                            
039186,000982: 32,2760           03650                                    DT21PR                                
039187,000983: 32,2761           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
039188,000984: 32,2762           41545        PREC174            DLOAD    PUSH                                  
039189,000985: 32,2763           00001                                    00D                                   
039190,000986: 32,2764           37650                           STCALL   DT21PR                                
039191,000987: 32,2765           63714                                    RTENCK2                               
039192,000988: 32,2766           77650                           GOTO                                           
039193,000989: 32,2767           64555                                    PREC125                               
039194,000990: 32,2770           45345        PREC175            DLOAD    DSU                                   
039195,000991: 32,2771           00031                                    RPRE                                  
039196,000992: 32,2772           03664                                    RD                                    
039197,000993: 32,2773           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
039198,000994: 32,2774           50025                           DSU      BMN                                   
039199,000995: 32,2775           33612                                    EPC7RTE                               
039200,000996: 32,2776           34755                                    PREC220                               
039201,000997: 
039202,000998:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
039203,000999: 
039204,001000: 32,2777           53145                           DLOAD    BZE                                   
039205,001001: 32,3000           03730                                    NN1A                                  
039206,001002: 32,3001           64604                                    PREC132                               #  TOO MANY ITERATIONS
039207,001003: 32,3002           53025                           DSU      BZE                                   
039208,001004: 32,3003           33532                                    10RTE                                 
039209,001005: 32,3004           65037                                    PREC207                               
039210,001006: 32,3005           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
039211,001007: 32,3006           03670                                    RPRE'                                 
039212,001008: 32,3007           00031                                    RPRE                                  #  RPRE,-RPRE                    B29/B27
039213,001009: 32,3010           55301                           NORM     BDDV                                  
039214,001010: 32,3011           00050                                    X2                                    
039215,001011: 32,3012           03666                                    DRCON                                 
039216,001012: 32,3013           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S          B2
039217,001013: 32,3014           57600                                    0          -2,2                       
039218,001014: 32,3015           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
039219,001015: 32,3016           33500                                    1RTEB1                                
039220,001016: 32,3017           65024                                    PREC205M                              
039221,001017: 32,3020           45246                           ABS      DSU                                   
039222,001018: 32,3021           33500                                    1RTEB1                                
039223,001019: 32,3022           77640                           BMN                                            
039224,001020: 32,3023           65027                                    PREC206                               
039225,001021: 32,3024           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
039226,001022: 32,3025           33542                                    2RTEB1                                
039227,001023: 32,3026           77725                           PDDL                                           #  S=-4                          B2
039228,001024: 32,3027           41345        PREC206            DLOAD    DMP                                   
039229,001025: 32,3030           77712                           SL2                                            
039230,001026: 32,3031           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
039231,001027: 32,3032           77615                           DAD                                            
039232,001028: 32,3033           03636                                    RCON                                  
039233,001029: 32,3034           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
039234,001030: 32,3035           77650                           GOTO                                           
039235,001031: 32,3036           65056                                    PREC210                               
039236,001032: 32,3037           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
039237,001033: 32,3040           03664                                    RD                                    
039238,001034: 32,3041           70501                           NORM     SR1                                   
039239,001035: 32,3042           00047                                    X1                                    
039240,001036: 32,3043           60325                           PDDL     NORM                                  
039241,001037: 32,3044           00031                                    RPRE                                  
039242,001038: 32,3045           00050                                    X2                                    
039243,001039: 32,3046           55260                           XSU,1    BDDV                                  
039244,001040: 32,3047           00047                                    X2                                    
039245,001041: 32,3050           77657                           SR*                                            
039246,001042: 32,3051           20600                                    0          -1,1                       
039247,001043: 32,3052           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
039248,001044: 32,3053           77625                           DSU                                            
039249,001045: 32,3054           03664                                    RD                                    
039250,001046: 32,3055           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
039251,001047: 32,3056           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
039252,001048: 32,3057           00031                                    RPRE                                  
039253,001049: 32,3060           17670                           STODL    RPRE'                                 
039254,001050: 32,3061           03730                                    NN1A                                  
039255,001051: 32,3062           77625                           DSU                                            
039256,001052: 32,3063           33522                                    1RTEB28                               
039257,001053: 32,3064           37730                           STCALL   NN1A                                  
039258,001054: 32,3065           65075                                    V2T100                                
039259,001055: 32,3066           52030                           BHIZ     GOTO                                  
039260,001056: 32,3067           64547                                    PREC120                               
039261,001057: 32,3070           65073                                    PRECX                                 
039262,001058: 
039263,001059:                                                                                                  #  DESIRED RADIUS ACHIEVED
039264,001060: 
039265,001061: 16,2000                                           SETLOC   RTE2                                  
039266,001062: 16,2000                                           BANK                                           
039267,001063: 16,2755           45345        PREC220            DLOAD    DSU                                   
039268,001064: 16,2756           03726                                    X(T2)                                 
039269,001065: 16,2757           03724                                    X(T2)PRE                              
039270,001066: 16,2760           45246                           ABS      DSU                                   
039271,001067: 16,2761           34770                                    EPC8RTE                               
039272,001068: 16,2762           67240                           BMN      SLOAD                                 
039273,001069: 16,2763           65071                                    PREC225                               
039274,001070: 16,2764           34772                                    OCT613                                
039275,001071: 16,2765           77650                           GOTO                                           
039276,001072: 16,2766           65073                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
039277,001073: 
039278,001074: 16,2767           00040 30447  EPC8RTE            2DEC     .002                                  
039279,001075: 
039280,001076: 16,2771           00613        OCT613             OCT      613                                   
039281,001077: 
039282,001078:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
039283,001079: 
039284,001080: 32,2000                                           SETLOC   RTE                                   
039285,001081: 32,2000                                           BANK                                           
039286,001082: 32,3071           77745        PREC225            DLOAD                                          
039287,001083: 32,3072           33524                                    ZERORTE                               
039288,001084: 32,3073           77650        PRECX              GOTO                                           
039289,001085: 32,3074           03762                                    SPRTEX                                
039290,001086: 
039291,001087:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
039292,001088: 
039293,001089:                                                                                                  #  DESCRIPTION
039294,001090:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
039295,001091:                                                                                                  #        RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
039296,001092:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
039297,001093: 
039298,001094:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
039299,001095: 
039300,001096:                                                                                                  #     CALLING SEQUENCE
039301,001097:                                                                                                  #        L       CALL
039302,001098:                                                                                                  #        L+1             RTENCK1
039303,001099: 
039304,001100:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
039305,001101:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
039306,001102: 
039307,001103:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
039308,001104: 
039309,001105:                                                                                                  #     CALLING SEQUENCE
039310,001106:                                                                                                  #        L       CALL
039311,001107:                                                                                                  #        L+1             RTENCK2
039312,001108: 
039313,001109:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
039314,001110:                                                                                                  #        PUSHLIST
039315,001111:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
039316,001112:                                                                                                  #        OTHER
039317,001113:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR .B29     METERS
039318,001114:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039319,001115:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
039320,001116: 
039321,001117:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
039322,001118: 
039323,001119:                                                                                                  #     CALLING SEQUENCE
039324,001120:                                                                                                  #        L       CALL
039325,001121:                                                                                                  #        L+1             RTENCK3
039326,001122: 
039327,001123:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
039328,001124:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
039329,001125:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
039330,001126:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
039331,001127:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
039332,001128: 
039333,001129:                                                                                                  #  EXIT MODE
039334,001130:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
039335,001131: 
039336,001132:                                                                                                  #  SUBROUTINES CALLED
039337,001133:                                                                                                  #        INTSTALL
039338,001134:                                                                                                  #        INTEGRVS
039339,001135: 
039340,001136:                                                                                                  #  OUTPUT
039341,001137:                                                                                                  #     PUSHLIST
039342,001138:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
039343,001139:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
039344,001140:                                                                                                  #     MPAC
039345,001141:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
039346,001142:                                                                                                  #     OTHER
039347,001143:                                                                                                  #        R(T2)/          AS IN PUSHLIST
039348,001144:                                                                                                  #        V(T2)/          AS IN MPAC
039349,001145:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
039350,001146: 
039351,001147: 31,2000                                           SETLOC   RTE3                                  
039352,001148: 31,2000                                           BANK                                           
039353,001149: 31,3704           45020        RTENCK1            STQ      CALL                                  
039354,001150: 31,3705           03733                                    RTENCKEX                              
039355,001151: 31,3706           27446                                    INTSTALL                              
039356,001152: 31,3707           43175                           VLOAD    SET                                   
039357,001153: 31,3710           03640                                    R(T1)/                                
039358,001154: 31,3711           01473                                    INTYPFLG                              
039359,001155: 31,3712           77650                           GOTO                                           
039360,001156: 31,3713           63740                                    RTENCK3B                              
039361,001157: 
039362,001158: 31,3714           45020        RTENCK2            STQ      CALL                                  
039363,001159: 31,3715           03733                                    RTENCKEX                              
039364,001160: 31,3716           27446                                    INTSTALL                              
039365,001161: 31,3717           77214                           CLEAR    VLOAD                                 
039366,001162: 31,3720           01673                                    INTYPFLG                              
039367,001163: 31,3721           03656                                    R(T2)/                                
039368,001164: 31,3722           25535                           STOVL    RCV                                   
039369,001165: 31,3723           03710                                    V(T2)/                                
039370,001166: 31,3724           15543                           STODL    VCV                                   
039371,001167: 31,3725           03736                                    T2                                    
039372,001168: 31,3726           01517                           STORE    TET                                   
039373,001169: 31,3727           77615                           DAD                                            
039374,001170: 31,3730           77650                           GOTO                                           
039375,001171: 31,3731           63746                                    RTENCK3D                              
039376,001172: 
039377,001173: 31,3732           45020        RTENCK3            STQ      CALL                                  
039378,001174: 31,3733           03733                                    RTENCKEX                              
039379,001175: 31,3734           27446                                    INTSTALL                              
039380,001176: 31,3735           43175        RTENCK3A           VLOAD    CLEAR                                 
039381,001177: 31,3736           03640                                    R(T1)/                                
039382,001178: 31,3737           01673                                    INTYPFLG                              
039383,001179: 31,3740           25535        RTENCK3B           STOVL    RCV                                   
039384,001180: 31,3741           03700                                    V2(T1)/                               
039385,001181: 31,3742           15543                           STODL    VCV                                   
039386,001182: 31,3743           03716                                    T1                                    
039387,001183: 31,3744           15517                           STODL    TET                                   
039388,001184: 31,3745           03736                                    T2                                    
039389,001185: 31,3746           00041        RTENCK3D           STORE    TDEC1                                 
039390,001186: 31,3747           45014                           CLEAR    CALL                                  
039391,001187: 31,3750           00263                                    MOONFLAG                              
039392,001188: 31,3751           27144                                    INTEGRVS                              
039393,001189: 31,3752           77775                           VLOAD                                          
039394,001190: 31,3753           00001                                    RATT                                  
039395,001191: 31,3754           03656                           STORE    R(T2)/                                
039396,001192: 31,3755           70125                           PDDL     LXC,1                                 
039397,001193: 31,3756           00015                                    TAT                                   
039398,001194: 31,3757           03734                                    CONICX1                               
039399,001195: 31,3760           27736                           STOVL    T2                                    
039400,001196: 31,3761           00007                                    VATT                                  
039401,001197: 31,3762           03710                           STORE    V(T2)/                                
039402,001198: 31,3763           77650                           GOTO                                           
039403,001199: 31,3764           03733                                    RTENCKEX                              
039404,001200: 32,2000                                           SETLOC   RTE                                   
039405,001201: 32,2000                                           BANK                                           
039406,001202: 
039407,001203:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
039408,001204: 
039409,001205:                                                                                                  #  DESCRIPTION
039410,001206:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
039411,001207:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
039412,001208:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
039413,001209:                                                                                                  #                AND CONSEQUENTLY FUEL.
039414,001210: 
039415,001211:                                                                                                  #  CALLING SEQUENCE
039416,001212:                                                                                                  #        L       CALL
039417,001213:                                                                                                  #        L+1             V2T100
039418,001214: 
039419,001215:                                                                                                  #  NORMAL EXIT MODE
039420,001216:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
039421,001217: 
039422,001218:                                                                                                  #  ALARM EXIT MODE
039423,001219:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039424,001220: 
039425,001221:                                                                                                  #  SUBROUTINES CALLED
039426,001222:                                                                                                  #        GAMDV10
039427,001223:                                                                                                  #        XT1LIM
039428,001224:                                                                                                  #        DVCALC
039429,001225: 
039430,001226:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039431,001227:                                                                                                  #     PUSHLIST
039432,001228:                                                                                                  #        NONE
039433,001229:                                                                                                  #     MPAC
039434,001230:                                                                                                  #        NONE
039435,001231:                                                                                                  #     OTHER
039436,001232:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
039437,001233:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
039438,001234:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
039439,001235:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
039440,001236:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039441,001237:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039442,001238:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
039443,001239:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
039444,001240:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
039445,001241:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
039446,001242:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
039447,001243:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
039448,001244:                                                                                                  #        N1              CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC,PLUS PREC
039449,001245: 
039450,001246:                                                                                                  #  OUTPUT
039451,001247:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039452,001248:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039453,001249:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
039454,001250:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039455,001251:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
039456,001252: 
039457,001253: 
039458,001254:                                                                                                  #  DEBRIS
039459,001255:                                                                                                  #     PUSHLIST
039460,001256:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
039461,001257:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039462,001258:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039463,001259:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039464,001260:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
039465,001261:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
039466,001262:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
039467,001263:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
039468,001264:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
039469,001265:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039470,001266:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
039471,001267: 
039472,001268: 32,3075           71220        V2T100             STQ      DLOAD                                 
039473,001269: 32,3076           00041                                    33D                                   
039474,001270: 32,3077           03636                                    RCON                                  
039475,001271: 32,3100           45240                           BMN      DSU                                   #  ABORT IF RCON NEGATIVE
039476,001272: 32,3101           65105                                    V2TERROR                              
039477,001273: 32,3102           03646                                    R(T1)                                 
039478,001274: 32,3103           77640                           BMN                                            
039479,001275: 32,3104           65110                                    V2T101                                
039480,001276: 32,3105           77776        V2TERROR           EXIT                                           #        OR IF LAMBDA LESS THAN ONE
039481,001277: 32,3106           05725                           TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1
039482,001278: 32,3107           20610                           OCT      20610                                 
039483,001279: 32,3110           43001        V2T101             SETPD    CLEAR                                 
039484,001280: 32,3111           00001                                    0                                     #                                        PL00D
039485,001281: 32,3112           00272                                    F2RTE                                 
039486,001282: 32,3113           60345                           DLOAD    NORM                                  
039487,001283: 32,3114           03636                                    RCON                                  
039488,001284: 32,3115           00047                                    X1                                    
039489,001285: 32,3116           60325                           PDDL     NORM                                  
039490,001286: 32,3117           03646                                    R(T1)                                 
039491,001287: 32,3120           00051                                    S1                                    
039492,001288: 32,3121           00013                           STORE    10D                                   
039493,001289: 32,3122           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
039494,001290: 32,3123           65260                           XSU,1    PDDL                                  #                                        PL02D
039495,001291: 32,3124           00050                                    S1                                    
039496,001292: 32,3125           03726                                    X(T2)                                 
039497,001293: 32,3126           77716                           DSQ                                            
039498,001294: 32,3127           43342                           SR1      DAD                                   
039499,001295: 32,3130           33500                                    1RTEB1                                
039500,001296: 32,3131           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
039501,001297: 32,3132           77605                           DMP                                            
039502,001298: 32,3133           00001                                    00D                                   
039503,001299: 32,3134           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
039504,001300: 32,3135           53605                           DMP      SL*                                   
039505,001301: 32,3136           00001                                    00D                                   
039506,001302: 32,3137           20172                                    0          -7,1                       
039507,001303: 32,3140           45257                           SL*      DSU                                   
039508,001304: 32,3141           20172                                    0          -7,1                       
039509,001305: 32,3142           33516                                    1RTEB17                               
039510,001306: 32,3143           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17     PL05D
039511,001307: 32,3144           45565                                    TPMODE                                
039512,001308: 32,3145           33500                                    1RTEB1                                
039513,001309: 32,3146           57457                           SR*      DCOMP                                 
039514,001310: 32,3147           20601                                    0,1                                   
039515,001311: 32,3150           41215                           DAD      DMP                                   
039516,001312: 32,3151           00001                                    00D                                   
039517,001313: 32,3152           03646                                    R(T1)                                 
039518,001314: 32,3153           47057                           SL*      RTB                                   
039519,001315: 32,3154           20172                                    0          -7D,1                      
039520,001316: 32,3155           45565                                    TPMODE                                
039521,001317: 32,3156           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
039522,001318: 32,3157           33632                                    RTMURTE                               
039523,001319: 32,3160           70501                           NORM     SR1                                   
039524,001320: 32,3161           00050                                    X2                                    
039525,001321: 32,3162           56264                           XSU,2    DDV                                   
039526,001322: 32,3163           00050                                    S1                                    
039527,001323: 32,3164           00013                                    10D                                   
039528,001324: 32,3165           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
039529,001325: 32,3166           57170                                    6,2                                   
039530,001326: 32,3167           03652                                    MAMAX1                                
039531,001327: 32,3170           41406                           PUSH     PUSH                                  #  MAMAX1=MA
039532,001328: 32,3171           77624                           CALL                                           
039533,001329: 32,3172           65734                                    XT1LIM                                
039534,001330: 32,3173           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5      PL12D
039535,001331: 32,3174           40476                           DCOMP    SR4                                   
039536,001332: 32,3175           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5      PL14D
039537,001333: 32,3176           03654                                    MAMAX2                                
039538,001334: 32,3177           45006                           PUSH     CALL                                  
039539,001335: 32,3200           65734                                    XT1LIM                                
039540,001336: 32,3201           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5      PL16D
039541,001337: 32,3202           03730                                    NN1A                                  
039542,001338: 32,3203           65206                                    V2T102                                
039543,001339: 32,3204           77650                           GOTO                                           
039544,001340: 32,3205           65220                                    V2T110                                
039545,001341: 
039546,001342:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
039547,001343: 
039548,001344: 32,3206           77745        V2T102             DLOAD                                          
039549,001345: 32,3207           03632                                    RTEDVD                                
039550,001346: 32,3210           52054                           BZE      GOTO                                  
039551,001347: 32,3211           65213                                    V2T105                                
039552,001348: 32,3212           65314                                    V2T140                                
039553,001349: 32,3213           50145        V2T105             DLOAD    BMN                                   
039554,001350: 32,3214           03757                                    CFPA                                  
039555,001351: 32,3215           65314                                    V2T140                                
039556,001352: 32,3216           77650                           GOTO                                           
039557,001353: 32,3217           65322                                    V2T145                                
039558,001354:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
039559,001355:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
039560,001356:                                                                                                  #  THROUGH X(T2)
039561,001357: 
039562,001358: 32,3220           47145        V2T110             DLOAD    RTB                                   
039563,001359: 32,3221           33516                                    1RTEB17                               
039564,001360: 32,3222           45565                                    TPMODE                                
039565,001361: 32,3223           65276                           DCOMP    PDDL                                  #  -1                            B17     PL19D
039566,001362: 32,3224           33542                                    2RTEB1                                
039567,001363: 32,3225           45257                           SR*      DSU                                   
039568,001364: 32,3226           20601                                    0,1                                   
039569,001365: 32,3227           00001                                    00D                                   
039570,001366: 32,3230           53605                           DMP      SL*                                   
039571,001367: 32,3231           00035                                    28D                                   
039572,001368: 32,3232           20172                                    0          -7,1                       
039573,001369: 32,3233           76257                           SL*      TAD                                   
039574,001370: 32,3234           20172                                    0          -7,1                       
039575,001371: 32,3235           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17     PL19D
039576,001372: 32,3236           45565                                    TPMODE                                
039577,001373: 32,3237           03722                                    X(T1)                                 
039578,001374: 32,3240           00001                           STORE    00D                                   #  X(T1),,                       B5
039579,001375: 32,3241           77751                           TLOAD                                          #                                        PL16D
039580,001376: 32,3242           53040                           BMN      BZE                                   
039581,001377: 32,3243           65250                                    V2T115                                
039582,001378: 32,3244           65250                                    V2T115                                
039583,001379: 32,3245           52061                           SL       GOTO                                  
039584,001380: 32,3246           20210                                    7                                     
039585,001381: 32,3247           65261                                    V2T120                                
039586,001382: 32,3250           50145        V2T115             DLOAD    BMN                                   
039587,001383: 32,3251           03761                                    PHI2                                  
039588,001384: 32,3252           65272                                    V2T125                                
039589,001385: 32,3253           77676                           DCOMP                                          
039590,001386: 32,3254           17761                           STODL    PHI2                                  
039591,001387: 32,3255           33532                                    10RTE                                 
039592,001388: 32,3256           03730                           STORE    NN1A                                  
039593,001389: 32,3257           77650                           GOTO                                           
039594,001390: 32,3260           65272                                    V2T125                                
039595,001391: 32,3261           47166        V2T120             SQRT     RTB                                   
039596,001392: 32,3262           45716                                    DPMODE                                
039597,001393: 32,3263           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM            B5      PL18D
039598,001394: 32,3264           03761                                    PHI2                                  
039599,001395: 32,3265           65300                                    V2T130                                
039600,001396: 32,3266           45545                           DLOAD    STADR                                 #                                        PL16D
039601,001397: 32,3267           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX 
039602,001398: 32,3270           77676                           DCOMP                                          
039603,001399: 32,3271           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
039604,001400: 32,3272           53145        V2T125             DLOAD    BZE                                   
039605,001401: 32,3273           03722                                    X(T1)                                 
039606,001402: 32,3274           65314                                    V2T140                                
039607,001403: 32,3275           52040                           BMN      GOTO                                  
039608,001404: 32,3276           65314                                    V2T140                                
039609,001405: 32,3277           65322                                    V2T145                                
039610,001406: 32,3300           53145        V2T130             DLOAD    BZE                                   
039611,001407: 32,3301           03722                                    X(T1)                                 
039612,001408: 32,3302           65311                                    V2T135                                
039613,001409: 32,3303           71240                           BMN      DLOAD                                 #                                        PL16D
039614,001410: 32,3304           65311                                    V2T135                                
039615,001411: 32,3305           77626                           STADR                                          
039616,001412: 32,3306           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
039617,001413: 32,3307           77650                           GOTO                                           
039618,001414: 32,3310           65322                                    V2T145                                
039619,001415: 32,3311           57545        V2T135             DLOAD    DCOMP                                 #                                        PL16D
039620,001416: 32,3312           77626                           STADR                                          
039621,001417: 32,3313           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
039622,001418: 32,3314           77745        V2T140             DLOAD                                          
039623,001419: 32,3315           00013                                    10D                                   
039624,001420: 32,3316           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
039625,001421: 32,3317           00015                                    12D                                   
039626,001422: 32,3320           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                    PL18D
039627,001423: 32,3321           65327                                    V2T150                                
039628,001424: 32,3322           77745        V2T145             DLOAD                                          
039629,001425: 32,3323           00017                                    14D                                   
039630,001426: 32,3324           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
039631,001427: 32,3325           00015                                    12D                                   
039632,001428: 32,3326           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                   PL18D
039633,001429: 32,3327           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
039634,001430: 32,3330           65457                                    GAMDV10                               
039635,001431: 32,3331           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
039636,001432: 32,3332           03632                                    RTEDVD                                
039637,001433: 32,3333           65455                                    V2T1X                                 
039638,001434: 
039639,001435:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
039640,001436: 
039641,001437: 32,3334           50025                           DSU      BMN                                   
039642,001438: 32,3335           03706                                    DV                                    
039643,001439: 32,3336           65341                                    V2T155                                
039644,001440: 32,3337           77650                           GOTO                                           
039645,001441: 32,3340           65374                                    V2T175                                
039646,001442: 32,3341           50145        V2T155             DLOAD    BMN                                   
039647,001443: 32,3342           03730                                    NN1A                                  
039648,001444: 32,3343           65346                                    V2T160                                
039649,001445: 32,3344           77650                           GOTO                                           
039650,001446: 32,3345           65416                                    V2T185                                
039651,001447: 
039652,001448:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
039653,001449: 
039654,001450: 32,3346           53145        V2T160             DLOAD    BZE                                   
039655,001451: 32,3347           03722                                    X(T1)                                 
039656,001452: 32,3350           65354                                    V2T165                                
039657,001453: 32,3351           52040                           BMN      GOTO                                  
039658,001454: 32,3352           65354                                    V2T165                                
039659,001455: 32,3353           65453                                    V2T300                                
039660,001456: 32,3354           53145        V2T165             DLOAD    BZE                                   
039661,001457: 32,3355           03757                                    CFPA                                  
039662,001458: 32,3356           65453                                    V2T300                                
039663,001459: 32,3357           71240                           BMN      DLOAD                                 
039664,001460: 32,3360           65453                                    V2T300                                
039665,001461: 32,3361           00017                                    14D                                   
039666,001462: 32,3362           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
039667,001463: 32,3363           00015                                    12D                                   
039668,001464: 32,3364           77676                           DCOMP                                          
039669,001465: 32,3365           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
039670,001466: 32,3366           65457                                    GAMDV10                               
039671,001467: 32,3367           45345                           DLOAD    DSU                                   
039672,001468: 32,3370           03632                                    RTEDVD                                
039673,001469: 32,3371           03706                                    DV                                    
039674,001470: 32,3372           77640                           BMN                                            
039675,001471: 32,3373           65453                                    V2T300                                
039676,001472: 32,3374           71214        V2T175             SET      DLOAD                                 
039677,001473: 32,3375           00072                                    F2RTE                                 
039678,001474: 32,3376           03722                                    X(T1)                                 
039679,001475: 32,3377           77614                           BOFF                                           
039680,001476: 32,3400           02742                                    SLOWFLG                               
039681,001477: 32,3401           65406                                    V2T177                                
039682,001478: 32,3402           14013                           STODL    10D                                   #  X(T1)MIN
039683,001479: 32,3403           00015                                    12D                                   #  DX(T1)MAX
039684,001480: 32,3404           77650                           GOTO                                           
039685,001481: 32,3405           65411                                    V2T179                                
039686,001482: 32,3406           14017        V2T177             STODL    14D                                   
039687,001483: 32,3407           00015                                    12D                                   
039688,001484: 32,3410           77676                           DCOMP                                          
039689,001485: 32,3411           34021        V2T179             STCALL   16D                                   #  DX(T1)
039690,001486: 32,3412           65457                                    GAMDV10                               
039691,001487: 32,3413           50145                           DLOAD    BMN                                   
039692,001488: 32,3414           03730                                    NN1A                                  
039693,001489: 32,3415           65453                                    V2T300                                
039694,001490: 
039695,001491:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
039696,001492:                                                                                                  #  PRECISION TRAJECTORY
039697,001493: 
039698,001494: 32,3416           45345        V2T185             DLOAD    DSU                                   
039699,001495: 32,3417           03722                                    X(T1)                                 
039700,001496: 32,3420           00001                                    00D                                   
039701,001497: 32,3421           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
039702,001498: 32,3422           00015                                    12D                                   
039703,001499: 32,3423           44352                           SL1      BDSU                                  
039704,001500: 32,3424           71240                           BMN      DLOAD                                 
039705,001501: 32,3425           65453                                    V2T300                                
039706,001502: 32,3426           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
039707,001503: 32,3427           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
039708,001504: 32,3430           50025                           DSU      BMN                                   
039709,001505: 32,3431           00017                                    14D                                   
039710,001506: 32,3432           65440                                    V2T195                                
039711,001507: 32,3433           77745                           DLOAD                                          
039712,001508: 32,3434           00017                                    14D                                   
039713,001509: 32,3435           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
039714,001510: 32,3436           77650                           GOTO                                           
039715,001511: 32,3437           65451                                    V2T205                                
039716,001512: 32,3440           45345        V2T195             DLOAD    DSU                                   
039717,001513: 32,3441           03722                                    X(T1)                                 
039718,001514: 32,3442           00013                                    10D                                   
039719,001515: 32,3443           52040                           BMN      GOTO                                  
039720,001516: 32,3444           65446                                    V2T200                                
039721,001517: 32,3445           65451                                    V2T205                                
039722,001518: 32,3446           77745        V2T200             DLOAD                                          
039723,001519: 32,3447           00013                                    10D                                   
039724,001520: 32,3450           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
039725,001521: 32,3451           77624        V2T205             CALL                                           
039726,001522: 32,3452           65660                                    DVCALC                                
039727,001523: 32,3453           77745        V2T300             DLOAD                                          
039728,001524: 32,3454           33524                                    ZERORTE                               
039729,001525: 32,3455           77650        V2T1X              GOTO                                           
039730,001526: 32,3456           00041                                    33D                                   
039731,001527: 
039732,001528:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
039733,001529: 
039734,001530:                                                                                                  #  DESCRIPTION
039735,001531:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
039736,001532: 
039737,001533:                                                                                                  #  CALLING SEQUENCE
039738,001534:                                                                                                  #        L       CALL
039739,001535:                                                                                                  #        L+1             GAMDV10
039740,001536: 
039741,001537:                                                                                                  #  NORMAL EXIT MODE
039742,001538:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
039743,001539: 
039744,001540:                                                                                                  #  ALARM EXIT MODE
039745,001541:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039746,001542: 
039747,001543:                                                                                                  #  SUBROUTINES CALLED
039748,001544:                                                                                                  #        DVCALC
039749,001545: 
039750,001546:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039751,001547:                                                                                                  #     PUSHLIST
039752,001548:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039753,001549:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039754,001550:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039755,001551:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039756,001552:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
039757,001553:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039758,001554:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
039759,001555:                                                                                                  #     MPAC
039760,001556:                                                                                                  #        NONE
039761,001557:                                                                                                  #     OTHER
039762,001558:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
039763,001559:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
039764,001560:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039765,001561:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039766,001562:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
039767,001563:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
039768,001564: 
039769,001565:                                                                                                  #  OUTPUT
039770,001566:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039771,001567:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039772,001568:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
039773,001569:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039774,001570: 
039775,001571:                                                                                                  #  DEBRIS
039776,001572:                                                                                                  #     PUSHLIST
039777,001573:                                                                                                  #        00D             X(T1),,
039778,001574:                                                                                                  #        02D             THETA1
039779,001575:                                                                                                  #        05D             THETA2
039780,001576:                                                                                                  #        08D             THETA3
039781,001577:                                                                                                  #        10D             X(T1)MIN
039782,001578:                                                                                                  #        12D             DX(T1)MAX
039783,001579:                                                                                                  #        14D             X(T1)MAX
039784,001580:                                                                                                  #        16D             DX(T1)
039785,001581:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
039786,001582:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
039787,001583:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
039788,001584:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039789,001585:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
039790,001586: 
039791,001587: 32,3457           77620        GAMDV10            STQ                                            
039792,001588: 32,3460           00037                                    31D                                   
039793,001589: 32,3461           45001                           SETPD    CALL                                  
039794,001590: 32,3462           00023                                    18D                                   #                                        PL18D
039795,001591: 32,3463           65660                                    DVCALC                                
039796,001592: 32,3464           45345                           DLOAD    DSU                                   
039797,001593: 32,3465           00017                                    14D                                   
039798,001594: 32,3466           00013                                    10D                                   
039799,001595: 32,3467           77600                           BOV                                            
039800,001596: 32,3470           65510                                    GAMDV20                               
039801,001597: 32,3471           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5      PL20D
039802,001598: 32,3472           33614                                    EPC9RTE                               
039803,001599: 32,3473           71240                           BMN      DLOAD                                 
039804,001600: 32,3474           65656                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
039805,001601: 32,3475           00023                                    18D                                   
039806,001602: 32,3476           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
039807,001603: 32,3477           00015                                    12D                                   
039808,001604: 32,3500           65504                                    GAMDV15                               
039809,001605: 32,3501           52001                           SETPD    GOTO                                  #                                        PL18D
039810,001606: 32,3502           00023                                    18D                                   
039811,001607: 32,3503           65510                                    GAMDV20                               
039812,001608: 32,3504           77745        GAMDV15            DLOAD                                          #                                        PL18D
039813,001609: 32,3505           70565                           SIGN     SR1                                   
039814,001610: 32,3506           00021                                    16D                                   
039815,001611: 32,3507           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
039816,001612: 32,3510           77745        GAMDV20            DLOAD                                          
039817,001613: 32,3511           33526                                    M144RTE                               
039818,001614: 32,3512           03732                           STORE    NN2                                   
039819,001615: 32,3513           43345        GAMDV25            DLOAD    DAD                                   
039820,001616: 32,3514           03732                                    NN2                                   
039821,001617: 32,3515           33522                                    1RTEB28                               
039822,001618: 32,3516           67240                           BMN      SLOAD                                 
039823,001619: 32,3517           65523                                    GAMDV30                               
039824,001620: 32,3520           33562                                    OCT605                                
039825,001621: 32,3521           77650                           GOTO                                           
039826,001622: 32,3522           65455                                    V2T1X                                 
039827,001623: 32,3523           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
039828,001624: 32,3524           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  B5      PL20D
039829,001625: 32,3525           03722                                    X(T1)                                 
039830,001626: 32,3526           03706                                    DV                                    
039831,001627: 32,3527           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5   PL22D
039832,001628: 32,3530           03722                                    X(T1)                                 
039833,001629: 32,3531           00021                                    16D                                   
039834,001630: 32,3532           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
039835,001631: 32,3533           65660                                    DVCALC                                
039836,001632: 32,3534           71214                           BON      DLOAD                                 
039837,001633: 32,3535           00312                                    F2RTE                                 
039838,001634: 32,3536           65552                                    GAMDV35                               
039839,001635: 32,3537           03706                                    DV                                    
039840,001636: 32,3540           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
039841,001637: 32,3541           00025                                    20D                                   
039842,001638: 32,3542           65547                                    GAMDV33                               
039843,001639: 32,3543           57545        GAMDV32            DLOAD    DCOMP                                 
039844,001640: 32,3544           00021                                    16D                                   
039845,001641: 32,3545           77742                           SR1                                            
039846,001642: 32,3546           00021                           STORE    16D                                   
039847,001643: 32,3547           52001        GAMDV33            SETPD    GOTO                                  
039848,001644: 32,3550           00023                                    18D                                   #                                        PL18D
039849,001645: 32,3551           65615                                    GAMDV50                               
039850,001646: 
039851,001647:                                                                                                  #  TIME CRITICAL MODE
039852,001648: 
039853,001649: 32,3552           45345        GAMDV35            DLOAD    DSU                                   
039854,001650: 32,3553           03632                                    RTEDVD                                
039855,001651: 32,3554           03706                                    DV                                    
039856,001652: 32,3555           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5   PL22D
039857,001653: 32,3556           51545        GAMDV40            DLOAD    ABS                                   #  DV,                                   PL24D
039858,001654: 32,3557           00025                                    20D                                   
039859,001655: 32,3560           50025                           DSU      BMN                                   
039860,001656: 32,3561           33616                                    EPC10RTE                              
039861,001657: 32,3562           65656                                    GAMDVX                                
039862,001658: 32,3563           71204        GAMDV45            BOVB     DLOAD                                 
039863,001659: 32,3564           57353                                    TCDANZIG                              #  ASSURE OVFIND IS 0
039864,001660: 32,3565           60221                           BDSU     NORM                                  
039865,001661: 32,3566           03706                                    DV                                    
039866,001662: 32,3567           00050                                    X2                                    
039867,001663: 32,3570           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
039868,001664: 32,3571           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
039869,001665: 32,3572           00047                                    X1                                    
039870,001666: 32,3573           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
039871,001667: 32,3574           41221                           BDSU     DMP                                   #                                        PL18D
039872,001668: 32,3575           03722                                    X(T1)                                 
039873,001669: 32,3576           77660                           XSU,1                                          
039874,001670: 32,3577           00047                                    X2                                    
039875,001671: 32,3600           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
039876,001672: 32,3601           40057                           SR*      BOV                                   
039877,001673: 32,3602           20600                                    0          -1,1                       
039878,001674: 32,3603           65611                                    GAMDV47                               
039879,001675: 32,3604           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
039880,001676: 32,3605           45246                           ABS      DSU                                   
039881,001677: 32,3606           00015                                    12D                                   
039882,001678: 32,3607           77640                           BMN                                            
039883,001679: 32,3610           65615                                    GAMDV50                               
039884,001680: 32,3611           75345        GAMDV47            DLOAD    SIGN                                  
039885,001681: 32,3612           00015                                    12D                                   
039886,001682: 32,3613           00021                                    16D                                   
039887,001683: 32,3614           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
039888,001684: 
039889,001685:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
039890,001686: 
039891,001687: 32,3615           41345        GAMDV50            DLOAD    DMP                                   
039892,001688: 32,3616           00021                                    16D                                   
039893,001689: 32,3617           33536                                    1.1RTEB1                              
039894,001690: 32,3620           43352                           SL1      DAD                                   
039895,001691: 32,3621           03722                                    X(T1)                                 
039896,001692: 32,3622           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
039897,001693: 32,3623           50025                           DSU      BMN                                   
039898,001694: 32,3624           00017                                    14D                                   
039899,001695: 32,3625           65634                                    GAMDV55                               
039900,001696: 32,3626           45345                           DLOAD    DSU                                   
039901,001697: 32,3627           00017                                    14D                                   
039902,001698: 32,3630           03722                                    X(T1)                                 
039903,001699: 32,3631           77742                           SR1                                            
039904,001700: 32,3632           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
039905,001701: 32,3633           65647                                    GAMDV65                               
039906,001702: 32,3634           45345        GAMDV55            DLOAD    DSU                                   
039907,001703: 32,3635           00031                                    24D                                   
039908,001704: 32,3636           00013                                    10D                                   
039909,001705: 32,3637           52040                           BMN      GOTO                                  
039910,001706: 32,3640           65642                                    GAMDV60                               
039911,001707: 32,3641           65647                                    GAMDV65                               
039912,001708: 32,3642           45345        GAMDV60            DLOAD    DSU                                   
039913,001709: 32,3643           00013                                    10D                                   
039914,001710: 32,3644           03722                                    X(T1)                                 
039915,001711: 32,3645           77742                           SR1                                            
039916,001712: 32,3646           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
039917,001713: 32,3647           51545        GAMDV65            DLOAD    ABS                                   
039918,001714: 32,3650           00021                                    16D                                   
039919,001715: 32,3651           50025                           DSU      BMN                                   
039920,001716: 32,3652           33614                                    EPC9RTE                               
039921,001717: 32,3653           65656                                    GAMDVX                                
039922,001718: 32,3654           77650                           GOTO                                           
039923,001719: 32,3655           65513                                    GAMDV25                               
039924,001720: 32,3656           77650        GAMDVX             GOTO                                           
039925,001721: 32,3657           00037                                    31D                                   
039926,001722: 
039927,001723:                                                                                                  #  DV CALCULATION SUBROUTINE
039928,001724: 
039929,001725:                                                                                                  #  INPUT
039930,001726:                                                                                                  #     PUSHLIST
039931,001727:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039932,001728:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039933,001729:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039934,001730:                                                                                                  #     OTHER
039935,001731:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
039936,001732:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
039937,001733:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039938,001734:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039939,001735: 
039940,001736:                                                                                                  #  OUTPUT
039941,001737:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039942,001738:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039943,001739:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039944,001740: 
039945,001741:                                                                                                  #  DEBRIS
039946,001742:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
039947,001743:                                                                                                  #        C(PUSLOC)       THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
039948,001744:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039949,001745:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
039950,001746: 
039951,001747:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
039952,001748: 
039953,001749: 32,3660           71220        DVCALC             STQ      DLOAD                                 
039954,001750: 32,3661           00040                                    32D                                   
039955,001751: 32,3662           03722                                    X(T1)                                 
039956,001752: 32,3663           54316                           DSQ      SR                                    
039957,001753: 32,3664           20610                                    7                                     
039958,001754: 32,3665           76276                           DCOMP    TAD                                   
039959,001755: 32,3666           00003                                    02D                                   
039960,001756: 32,3667           41501                           NORM     PUSH                                  
039961,001757: 32,3670           00047                                    X1                                    
039962,001758: 32,3671           60351                           TLOAD    NORM                                  
039963,001759: 32,3672           00006                                    05D                                   
039964,001760: 32,3673           00050                                    X2                                    
039965,001761: 32,3674           70434                           RTB      SR1                                   
039966,001762: 32,3675           45716                                    DPMODE                                
039967,001763: 32,3676           56264                           XSU,2    DDV                                   
039968,001764: 32,3677           00046                                    X1                                    
039969,001765: 32,3700           77657                           SR*                                            
039970,001766: 32,3701           57170                                    6,2                                   
039971,001767: 32,3702           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
039972,001768: 32,3703           41366                           SQRT     DMP                                   
039973,001769: 32,3704           00011                                    08D                                   
039974,001770: 32,3705           77701                           NORM                                           
039975,001771: 32,3706           00047                                    X1                                    
039976,001772: 32,3707           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1
039977,001773: 32,3710           03722                                    X(T1)                                 
039978,001774: 32,3711           74301                           NORM     VXSC                                  
039979,001775: 32,3712           00050                                    X2                                    
039980,001776: 32,3713           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
039981,001777: 32,3714           74274                           XAD,2    VXSC                                  
039982,001778: 32,3715           00046                                    X1                                    
039983,001779: 32,3716           00035                                    28D                                   
039984,001780: 32,3717           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
039985,001781: 32,3720           57207                                    0          -9D,2                      #                +
039986,001782: 32,3721           03746                                    UH/                                   
039987,001783: 32,3722           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
039988,001784: 32,3723           00035                                    28D                                   
039989,001785: 32,3724           20575                                    0          -4,1                       #                =
039990,001786: 32,3725           45455                           VAD      STADR                                 
039991,001787: 32,3726           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
039992,001788: 32,3727           51451                           VSU      ABVAL                                 
039993,001789: 32,3730           03672                                    V(T1)/                                
039994,001790: 32,3731           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
039995,001791: 32,3732           77650                           GOTO                                           
039996,001792: 32,3733           00040                                    32D                                   
039997,001793: 
039998,001794:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039999,001795: 
040000,001796:                                                                                                  #  INPUT
040001,001797:                                                                                                  #     PUSHLIST
040002,001798:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
040003,001799:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
040004,001800:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
040005,001801:                                                                                                  #     OTHER
040006,001802:                                                                                                  #        RCON                                                                    DP      B29/B27
040007,001803:                                                                                                  #        R(T1)                                                                   DP      B29/B27
040008,001804: 
040009,001805:                                                                                                  #  OUTPUT
040010,001806:                                                                                                  #     MPAC
040011,001807:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
040012,001808: 
040013,001809:                                                                                                  #  DEBRIS
040014,001810:                                                                                                  #     PUSHLIST
040015,001811:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
040016,001812:                                                                                                  #        C(PSHLOC)+2     MA                                                      DP      B30/B28
040017,001813:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
040018,001814:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
040019,001815: 
040020,001816:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
040021,001817: 
040022,001818: 32,3734           71220        XT1LIM             STQ      DLOAD                                 
040023,001819: 32,3735           00024                                    20D                                   
040024,001820: 32,3736           03636                                    RCON                                  
040025,001821: 32,3737           44342                           SR1      BDSU                                  
040026,001822: 32,3740           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
040027,001823: 32,3741           00050                                    X2                                    
040028,001824: 32,3742           70525                           PDDL     SR1                                   
040029,001825: 32,3743           03646                                    R(T1)                                 
040030,001826: 32,3744           56221                           BDSU     DDV                                   
040031,001827: 32,3745           41257                           SL*      DMP                                   
040032,001828: 32,3746           57601                                    0          -3,2                       #                                B3
040033,001829: 32,3747           00035                                    28D                                   
040034,001830: 32,3750           45257                           SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
040035,001831: 32,3751           20173                                    0          -6,1                       
040036,001832: 32,3752           33521                                    1RTEB25    +1                         #  1.0 B-11
040037,001833: 32,3753           40152                           SL1      BOV                                   
040038,001834: 32,3754           65760                                    XT1LIM2                               #                                B10
040039,001835: 32,3755           52040                           BMN      GOTO                                  
040040,001836: 32,3756           65764                                    XT1LIM5                               
040041,001837: 32,3757           65762                                    XT1LIM3                               
040042,001838: 32,3760           77745        XT1LIM2            DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
040043,001839: 32,3761           33542                                    2RTEB1                                
040044,001840: 32,3762           52166        XT1LIM3            SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)            B5
040045,001841: 32,3763           65766                                    XT1LIMX                               
040046,001842: 32,3764           77745        XT1LIM5            DLOAD                                          
040047,001843: 32,3765           33524                                    ZERORTE                               
040048,001844: 32,3766           77650        XT1LIMX            GOTO                                           
040049,001845: 32,3767           00024                                    20D                                   
040050,001846: 
040051,001847:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
040052,001848: 
040053,001849: 36,3260                                           BANK     36                                    
040054,001850: 35,2000                                           SETLOC   RTECON1                               
040055,001851: 35,2000                                           BANK                                           
040056,001852: 
040057,001853: 35,3477           20000 00000  1RTEB1             2DEC     1.         B-1                        
040058,001854: 35,3501           10000 00000  1RTEB2             2DEC     1.         B-2                        
040059,001855: 35,3503           04000 00000  1RTEB3             2DEC     1.         B-3                        
040060,001856: 35,3505           02000 00000  1RTEB4             2DEC     1.         B-4                        
040061,001857: 35,3507           00020 00000  1RTEB10            2DEC     1.         B-10                       
040062,001858: 35,3511           00004 00000  1RTEB12            2DEC     1.         B-12                       
040063,001859: 35,3513           00002 00000  1RTEB13            2DEC     1.         B-13                       
040064,001860: 35,3515           00000 04000  1RTEB17            2DEC     1.         B-17                       
040065,001861: 35,3517           00000 00010  1RTEB25            2DEC     1.         B-25                       
040066,001862:                                                                                                  #                                        * * B25 AND B28 MUST BE CONSECUTIVE * * 
040067,001863: 35,3521           00000 00001  1RTEB28            2DEC     1.         B-28                       
040068,001864: 35,3523           00000 00000  ZERORTE            2DEC     0          B-28                       
040069,001865: 35,3525           77777 77557  M144RTE            2DEC     -144.      B-28                       
040070,001866: 35,3527           77777 77760  M15RTE             2DEC     -15        B-28                       
040071,001867: 35,3531           00000 00012  10RTE              2DEC     10         B-28                       
040072,001868: 35,3533           54631 63145  M.6RTE             2DEC     -.6                                   
040073,001869: 35,3535           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
040074,001870: 35,3537           77777 77771  M6RTEB28           2DEC     -6         B-28                       
040075,001871: 35,3541           37777 37777  2RTEB1             2OCT     3777737777                            
040076,001872: 35,3543           77777 77766  M9RTEB28           2DEC     -9         B-28                       
040077,001873: 35,3545           77777 77767  M8RTEB28           2DEC     -8         B-28                       
040078,001874: 35,3547           00000 35610  30480RTE           2DEC     30480.     B-29                       
040079,001875: 35,3551           37405 12250  VCSPS              2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)
040080,001876: 35,3553           33041 37714  VCRCS              2DEC     27.0664    B-5                        
040081,001877: 35,3555           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
040082,001878: 35,3557           20000 00000  CSUBT              2DEC     .5                                    
040083,001879: 35,3561           00605        OCT605             OCT      00605                                 
040084,001880: 35,3562           00612        OCT612             OCT      00612                                 
040085,001881: 35,3563           40214 45266  MCOS7.5            2DEC     -.99144486                            
040086,001882: 35,3565           73645 56536  MSIN7.5            2DEC     -.13052619                            
040087,001883: 35,3567           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
040088,001884: 35,3571           16525 12525  THETA165           2DEC     .4583333333                            
040089,001885: 35,3573           22525 12525  THETA210           2DEC     .5833333333                            
040090,001886: 35,3575           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
040091,001887: 35,3577           00000 00062  EPC2RTE            2DEC     100.       B-29                       
040092,001888: 35,3601           00020 14223  EPC3RTE            2DEC     .001                                  
040093,001889: 35,3603           00000 05174  EPC4RTE            2DEC     .00001                                
040094,001890: 35,3605           00002 21727  EPC5RTE            2DEC     .01        B-6                        
040095,001891: 35,3607           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
040096,001892: 35,3611           00000 00764  EPC7RTE            2DEC     1000.      B-29                       
040097,001893: 35,3613           00000 00010  EPC9RTE            2DEC     1.         B-25                       
040098,001894: 35,3615           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
040099,001895: 
040100,001896: 35,3617                                           BANK     35                                    
040101,001897: 35,2000                                           SETLOC   RTECON1                               
040102,001898: 35,2000                                           BANK                                           
040103,001899: 
040104,001900: 35,3617           75725 75417  C4RTE              2DEC     -6.986643  E7         B-30            
040105,001901: 35,3621           00325 23740  K1RTE              2DEC     7.         E6         B-29            
040106,001902: 35,3623           00306 06614  K2RTE              2DEC     6495000.   B-29                       
040107,001903: 35,3625           76027 70156  K3RTE              2DEC     -.06105                               
040108,001904: 35,3627           74517 54131  K4RTE              2DEC     -.10453                               
040109,001905: 35,3631           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
040110,001906: 35,3633           00003 27040  E3RTE              2DEC     121920.    B-29                       
040111,001907: 

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