Source Code

These source-code files are part of a reconstructed copy of Comanche 44, the initial release (though not the final mission release) of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 44, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 51 (separately previously reconstructed from an Apollo-era listing of Comanche 55, flown on Apollo 11). Comanche 51 source code was then modified by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed Comanche 44 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 printout, although the source code would likely have different page numbers in a contemporary Comanche 44 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the explanatory annotations, there is also a step-by-step commentary about the reconstruction process.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

039255,000002:                                                                                                  ## Copyright:   Public domain.
039256,000003:                                                                                                  ## Filename:    P37,P70.agc
039257,000004:                                                                                                  ## Purpose:     A section of Comanche revision 044.
039258,000005:                                                                                                  ##              It is part of the reconstructed source code for the
039259,000006:                                                                                                  ##              original release of the flight software for the Command
039260,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
039261,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
039262,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
039263,000010:                                                                                                  ##              exactly match those specified for Comanche 44 in NASA drawing
039264,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
039265,000012:                                                                                                  ##              reconstruction is correct.
039266,000013:                                                                                                  ## Assembler:   yaYUL
039267,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039268,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039269,000016:                                                                                                  ## Mod history: 2020-12-03 MAS  Created from Comanche 51.
039270,000017: 

Page 890

039272,000019: 31,3700                                           BANK     31                                    
039273,000020: 36,2000                                           SETLOC   RTE1                                  
039274,000021: 36,2000                                           BANK                                           
039275,000022: 
039276,000023: 36,2454  E7,1631                                  EBANK=   RTEDVD                                
039277,000024: 36,2454                                           COUNT    31/P37                                
039278,000025: 
039279,000026:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039280,000027: 
039281,000028:                                                                                                  #  DESCRIPTION
039282,000029:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039283,000030:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039284,000031:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
039285,000032:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039286,000033:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039287,000034: 
039288,000035:                                                                                                  #  CALLING SEQUENCE
039289,000036:                                                                                                  #        L       TC      P37
039290,000037: 
039291,000038:                                                                                                  #  SUBROUTINES CALLED
039292,000039:                                                                                                  #        PREC100
039293,000040:                                                                                                  #                V2T100
039294,000041:                                                                                                  #                RTENCK2
039295,000042:                                                                                                  #                RTENCK3
039296,000043:                                                                                                  #                TIMERAD
039297,000044:                                                                                                  #                PARAM
039298,000045:                                                                                                  #        V2T100
039299,000046:                                                                                                  #                GAMDV10
039300,000047:                                                                                                  #                XT1LIM
039301,000048:                                                                                                  #                DVCALC
039302,000049:                                                                                                  #        RTENCK1
039303,000050:                                                                                                  #                INTSTALL
039304,000051:                                                                                                  #                INTEGRVS
039305,000052:                                                                                                  #        RTEVN
039306,000053:                                                                                                  #                RTEDISP
039307,000054:                                                                                                  #                TMRAD100
039308,000055:                                                                                                  #                AUGEKUGL
039309,000056:                                                                                                  #                LAT-LONG
039310,000057:                                                                                                  #        TMRAD100
039311,000058:                                                                                                  #                TIMERAD
039312,000059:                                                                                                  #        INVC100
039313,000060:                                                                                                  #                CSMPREC
039314,000061:                                                                                                  #        GETERAD
039315,000062:                                                                                                  #        TIMETHET
039316,000063:                                                                                                  #        P370ALRM
039317,000064:                                                                                                  #        VN1645
039318,000065:                                                                                                  #        POLY
039319,000066: 
039320,000067:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039321,000068:                                                                                                  #        CSM STATE VECTOR

Page 891

039323,000070:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
039324,000071: 
039325,000072:                                                                                                  #  ASTRONAUT INPUT
039326,000073:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
039327,000074:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
039328,000075:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
039329,000076:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
039330,000077: 
039331,000078:                                                                                                  #  OUTPUT
039332,000079:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
039333,000080:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039334,000081:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039335,000082:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZON
039336,000083:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039337,000084:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039338,000085:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039339,000086:                                                                                                  #     TARGETING COMPUTATION DISPLAY
039340,000087:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
039341,000088:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
039342,000089:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
039343,000090:                                                                                                  #     THRUST PROGRAM COMMUNICATION
039344,000091:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
039345,000092:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
039346,000093:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
039347,000094:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
039348,000095:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
039349,000096: 
039350,000097: 36,2454           05412        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
039351,000098: 36,2455           00004                           OCT      4                                     
039352,000099: 
039353,000100: 36,2456           06006                           TC       INTPRET                               
039354,000101: 36,2457           66170                           AXT,1    SXA,1                                 
039355,000102: 36,2460           04000                           OCT      04000                                 
039356,000103: 36,2461           03424                                    ECSTEER                               
039357,000104: 36,2462           77745                           DLOAD                                          
039358,000105: 36,2463           15335                                    ZEROVECS                              
039359,000106: 36,2464           03767                           STORE    VPRED                                 
039360,000107: 36,2465           03771                           STORE    GAMMAEI                               
039361,000108: 36,2466           77776                           EXIT                                           
039362,000109: 36,2467           33234                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
039363,000110: 36,2470           03223                           TCR      P370GOF                               #                OVERLAYED WITH TIG
039364,000111: 36,2471           12467                           TCF      -2                                    #  DESPLAY NEW DATA
039365,000112: 36,2472           33240                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
039366,000113: 36,2473           03177                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RTEDVD
039367,000114: 36,2474           12472                           TCF      -2                                    #  DISPLAY NEW DATA
039368,000115: 36,2475           06006        RTE299             TC       INTPRET                               
039369,000116: 36,2476           71331                           SSP      DLOAD                                 
039370,000117: 36,2477           00122                                    OVFIND                                
039371,000118: 36,2500           00000                                    0                                     
039372,000119: 36,2501           03767                                    VPRED                                 

Page 892

039374,000121: 36,2502           17632                           STODL    RTEDVD                                
039375,000122: 36,2503           03771                                    GAMMAEI                               
039376,000123: 36,2504           17634                           STODL    RTEGAM2D                              
039377,000124: 36,2505           33521                                    1RTEB13                               
039378,000125: 36,2506           17735                           STODL    CONICX1                               
039379,000126: 36,2507           33625                                    C4RTE                                 
039380,000127: 36,2510           37652                           STCALL   MAMAX1                                
039381,000128: 36,2511           64450                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
039382,000129: 36,2512           71214                           CLEAR    DLOAD                                 
039383,000130: 36,2513           02662                                    SLOWFLG                               
039384,000131: 36,2514           03632                                    RTEDVD                                
039385,000132: 36,2515           51444                           BPL      ABS                                   
039386,000133: 36,2516           74526                                    RTE317                                
039387,000134: 36,2517           03632                           STORE    RTEDVD                                
039388,000135: 36,2520           45345                           DLOAD    DSU                                   
039389,000136: 36,2521           03646                                    R(T1)                                 
039390,000137: 36,2522           33627                                    K1RTE                                 
039391,000138: 36,2523           43040                           BMN      SET                                   
039392,000139: 36,2524           74526                                    RTE317                                
039393,000140: 36,2525           02462                                    SLOWFLG                               
039394,000141: 36,2526           77545        RTE317             DLOAD    EXIT                                  
039395,000142: 36,2527           03646                                    R(T1)                                 
039396,000143: 36,2530           07171                           TC       POLY                                  
039397,000144: 36,2531           00002                           DEC      2          B-14                       
039398,000145: 36,2532           02544 35436                     2DEC     181000434. B-31                       
039399,000146: 36,2534           14040 05066                     2DEC     1.50785145 B-2                        
039400,000147: 36,2536           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
039401,000148: 36,2540           26415 25057                     2DEC*    9.76938926 E-18       B56*            
039402,000149: 36,2542           06006                           TC       INTPRET                               
039403,000150: 36,2543           77752                           SL1                                            
039404,000151: 36,2544           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039405,000152: 36,2545           33551                                    M9RTEB28                              
039406,000153: 36,2546           17730                           STODL    NN1A                                  
039407,000154: 36,2547           33631                                    K2RTE                                 
039408,000155: 36,2550           17636        RTE320             STODL    RCON                                  #  RCON=K2
039409,000156: 36,2551           03634                                    RTEGAM2D                              
039410,000157: 36,2552           44254                           BZE      BDSU                                  
039411,000158: 36,2553           74562                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
039412,000159: 36,2554           33507                                    1RTEB2                                
039413,000160: 36,2555           71406                           PUSH     COS                                   #                                        PL02D
039414,000161: 36,2556           73525                           PDDL     SIN                                   
039415,000162: 36,2557           45465                           BDDV     STADR                                 #                                        PL00D
039416,000163: 36,2560           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
039417,000164: 36,2561           74575                                    RTE360                                
039418,000165: 36,2562           45345        RTE340             DLOAD    DSU                                   
039419,000166: 36,2563           03646                                    R(T1)                                 

Page 893

039421,000168: 36,2564           33627                                    K1RTE                                 
039422,000169: 36,2565           71240                           BMN      DLOAD                                 
039423,000170: 36,2566           74572                                    RTE350                                
039424,000171: 36,2567           33635                                    K4RTE                                 
039425,000172: 36,2570           37726                           STCALL   X(T2)                                 #  X(T2)=K4
039426,000173: 36,2571           74575                                    RTE360                                
039427,000174: 36,2572           77745        RTE350             DLOAD                                          
039428,000175: 36,2573           33633                                    K3RTE                                 
039429,000176: 36,2574           03726                           STORE    X(T2)                                 #  X(T2)=K3
039430,000177: 36,2575           77624        RTE360             CALL                                           
039431,000178: 36,2576           65075                                    V2T100                                
039432,000179: 36,2577           52054                           BZE      GOTO                                  
039433,000180: 36,2600           74602                                    RTE367                                
039434,000181: 36,2601           74764                                    RTEALRM                               
039435,000182: 36,2602           77775        RTE367             VLOAD                                          
039436,000183: 36,2603           03640                                    R(T1)/                                
039437,000184: 36,2604           16657                           STODL    RVEC                                  
039438,000185: 36,2605           03636                                    RCON                                  
039439,000186: 36,2606           26760                           STOVL    RDESIRED                              
039440,000187: 36,2607           03700                                    V2(T1)/                               
039441,000188: 36,2610           36746                           STCALL   VVEC                                  
039442,000189: 36,2611           64277                                    TMRAD100                              
039443,000190: 36,2612           77615                           DAD                                            
039444,000191: 36,2613           03716                                    T1                                    
039445,000192: 36,2614           17736                           STODL    T2                                    
039446,000193: 36,2615           03634                                    RTEGAM2D                              
039447,000194: 36,2616           52054                           BZE      GOTO                                  
039448,000195: 36,2617           74621                                    RTE369                                
039449,000196: 36,2620           74643                                    RTE372                                
039450,000197: 36,2621           51575        RTE369             VLOAD    ABVAL                                 
039451,000198: 36,2622           03710                                    V(T2)/                                
039452,000199: 36,2623           77776                           EXIT                                           
039453,000200: 36,2624           07171                           TC       POLY                                  
039454,000201: 36,2625           00002                           DEC      2          B-14                       
039455,000202: 36,2626           00000 00000                     2DEC     0          B-28                       
039456,000203: 36,2630           47021 65002                     2DEC     -4.8760771 E-2        B4              
039457,000204: 36,2632           35610 07722                     2DEC     4.5419476  E-4        B11             
039458,000205: 36,2634           63772 63276                     2DEC     -1.4317675 E-6        B18             
039459,000206: 
039460,000207: 36,2636           06006                           TC       INTPRET                               
039461,000208: 36,2637           77615                           DAD                                            
039462,000209: 36,2640           01352                                    RTED1                                 
039463,000210: 36,2641           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
039464,000211: 36,2642           74645                                    RTE373                                
039465,000212: 36,2643           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
039466,000213: 36,2644           03726                                    X(T2)                                 
039467,000214: 36,2645           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D

Page 894

039469,000216: 36,2646           03726                                    X(T2)                                 
039470,000217: 36,2647           53575                           VLOAD    UNIT                                  
039471,000218: 36,2650           03656                                    R(T2)/                                #                                        B58
039472,000219: 36,2651           36152                           STCALL   ALPHAV                                
039473,000220: 36,2652           26505                                    GETERAD                               
039474,000221: 36,2653           77615                           DAD                                            
039475,000222: 36,2654           33641                                    E3RTE                                 
039476,000223: 36,2655           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3        B29 PL04D
039477,000224: 36,2656           03636                                    RCON                                  
039478,000225: 36,2657           45246                           ABS      DSU                                   
039479,000226: 36,2660           33605                                    EPC2RTE                               
039480,000227: 36,2661           52040                           BMN      GOTO                                  
039481,000228: 36,2662           74664                                    RTE374                                
039482,000229: 36,2663           74671                                    RTE375                                
039483,000230: 36,2664           51545        RTE374             DLOAD    ABS                                   
039484,000231: 36,2665           00001                                    00D                                   
039485,000232: 36,2666           50025                           DSU      BMN                                   
039486,000233: 36,2667           33607                                    EPC3RTE                               
039487,000234: 36,2670           74741                                    P37E                                  
039488,000235: 36,2671           43345        RTE375             DLOAD    DAD                                   
039489,000236: 36,2672           03730                                    NN1A                                  
039490,000237: 36,2673           33527                                    1RTEB28                               
039491,000238: 36,2674           67240                           BMN      SLOAD                                 
039492,000239: 36,2675           74701                                    RTE380                                
039493,000240: 36,2676           33567                                    OCT605                                
039494,000241: 36,2677           77650                           GOTO                                           
039495,000242: 36,2700           74764                                    RTEALRM                               #  TOO MANY ITERATIONS
039496,000243: 36,2701           03730        RTE380             STORE    NN1A                                  
039497,000244: 36,2702           53025                           DSU      BZE                                   
039498,000245: 36,2703           33553                                    M8RTEB28                              
039499,000246: 36,2704           74722                                    RTE385                                
039500,000247: 36,2705           45345                           DLOAD    DSU                                   
039501,000248: 36,2706           00001                                    00D                                   
039502,000249: 36,2707           03666                                    DRCON                                 
039503,000250: 36,2710           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1                 PL06D
039504,000251: 36,2711           00047                                    X1                                    
039505,000252: 36,2712           03670                                    RPRE'                                 
039506,000253: 36,2713           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
039507,000254: 36,2714           03726                                    X(T2)                                 
039508,000255: 36,2715           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
039509,000256: 36,2716           00001                                    00D                                   
039510,000257: 36,2717           20201                                    0,1                                   
039511,000258: 36,2720           77650                           GOTO                                           
039512,000259: 36,2721           74724                                    RTE390                                
039513,000260: 36,2722           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
039514,000261: 36,2723           00001                                    00D                                   
039515,000262: 36,2724           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
039516,000263: 36,2725           77626                           STADR                                          
039517,000264: 36,2726           60141                           STODL    RCON                                  #  RCON=RCON,
039518,000265: 36,2727           77600                           BOV                                            

Page 895

039520,000267: 36,2730           74575                                    RTE360                                
039521,000268: 36,2731           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
039522,000269: 36,2732           03726                                    X(T2)                                 
039523,000270: 36,2733           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
039524,000271: 36,2734           00021                                    16D                                   
039525,000272: 36,2735           77615                           DAD                                            
039526,000273: 36,2736           03726                                    X(T2)                                 
039527,000274: 36,2737           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
039528,000275: 36,2740           74575                                    RTE360                                #  REITERATE
039529,000276: 36,2741           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
039530,000277: 36,2742           74770                                    RTEVN                                 
039531,000278: 36,2743           41345        RTE505             DLOAD    DMP                                   
039532,000279: 36,2744           03720                                    PCON                                  
039533,000280: 36,2745           03754                                    BETA1                                 
039534,000281: 36,2746           53021                           BDSU     BZE                                   
039535,000282: 36,2747           03636                                    RCON                                  
039536,000283: 36,2750           74756                                    RTE510                                
039537,000284: 36,2751           71240                           BMN      DLOAD                                 
039538,000285: 36,2752           74756                                    RTE510                                
039539,000286: 36,2753           33507                                    1RTEB2                                
039540,000287: 36,2754           77650                           GOTO                                           #  ENTRY NEAR APOGEE
039541,000288: 36,2755           74760                                    RTE515                                
039542,000289: 36,2756           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
039543,000290: 36,2757           33507                                    1RTEB2                                
039544,000291: 36,2760           37761        RTE515             STCALL   PHI2                                  
039545,000292: 36,2761           64541                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
039546,000293: 36,2762           77654        RTE625             BZE                                            
039547,000294: 36,2763           75016                                    P37G                                  
039548,000295: 36,2764           77624        RTEALRM            CALL                                           
039549,000296: 36,2765           64262                                    P370ALRM                              
039550,000297: 36,2766           77776                           EXIT                                           
039551,000298: 36,2767           12454                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
039552,000299: 
039553,000300:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
039554,000301: 
039555,000302: 36,2770           45020        RTEVN              STQ      CALL                                  
039556,000303: 36,2771           03763                                    VNSTORE                               
039557,000304: 36,2772           64316                                    RTEDISP                               #  DISPLAY PREPARATION
039558,000305: 36,2773           77776                           EXIT                                           
039559,000306: 36,2774           33236                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
039560,000307: 36,2775           03207                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
039561,000308: 36,2776           35015                           CAF      FOUR                                  
039562,000309: 36,2777           03203                           TCR      37BLANK    +1                         
039563,000310: 36,3000           13005                           TCF      +5                                    
039564,000311: 36,3001           12454                           TCF      P37                                   #  RECYCLE
039565,000312: 36,3002           33237                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
039566,000313: 36,3003           03223                           TCR      P370GOF                               
039567,000314: 36,3004           12454                           TCF      P37                                   #  RECYCLE
039568,000315: 36,3005           33240                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
039569,000316: 36,3006           03177                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI

Page 896

039571,000318: 36,3007           12454                           TCF      P37                                   #  RECYCLE
039572,000319: 36,3010           33241                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
039573,000320: 36,3011           03223                           TCR      P370GOF                               
039574,000321: 36,3012           12454                           TCF      P37                                   #  RECYCLE
039575,000322: 36,3013           06006                           TCR      INTPRET                               
039576,000323: 36,3014           77650                           GOTO                                           
039577,000324: 36,3015           03763                                    VNSTORE                               
039578,000325: 
039579,000326:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039580,000327: 
039581,000328: 36,3016           77624        P37G               CALL                                           
039582,000329: 36,3017           74770                                    RTEVN                                 
039583,000330: 36,3020           77776                           EXIT                                           
039584,000331: 36,3021           35023        P37N               CAF      SEVEN                                 
039585,000332: 36,3022           55131                           TS       OPTION1                               
039586,000333: 36,3023           35017                           CAF      ONE                                   
039587,000334: 36,3024           55132                           TS       OPTION2                               
039588,000335: 36,3025           33235                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
039589,000336: 36,3026           03223                           TCR      P370GOF                               
039590,000337: 36,3027           13025                           TCF      -2                                    #  RECYCLE
039591,000338: 36,3030           06006                           TC       INTPRET                               #  PROCEED
039592,000339: 36,3031           67201                           SETPD    SLOAD                                 
039593,000340: 36,3032           00001                                    00D                                   
039594,000341: 36,3033           01133                                    OPTION2                               
039595,000342: 36,3034           53025                           DSU      BZE                                   
039596,000343: 36,3035           33521                                    1RTEB13                               
039597,000344: 36,3036           75045                                    P37Q                                  
039598,000345: 36,3037           60335                           SLOAD    NORM                                  #  SPS
039599,000346: 36,3040           00111                                    EMDOT                                 
039600,000347: 36,3041           00047                                    X1                                    
039601,000348: 36,3042           52125                           PDDL     GOTO                                  
039602,000349: 36,3043           33557                                    VCSPS                                 
039603,000350: 36,3044           75056                                    P37T                                  
039604,000351: 36,3045           43145        P37Q               DLOAD    BON                                   #  RCS
039605,000352: 36,3046           33563                                    MDOTRCS                               
039606,000353: 36,3047           00700                                    NJETSFLG                              
039607,000354: 36,3050           75052                                    P37R                                  
039608,000355: 36,3051           77752                           SL1                                            
039609,000356: 36,3052           77752        P37R               SL1                                            
039610,000357: 36,3053           65301                           NORM     PDDL                                  
039611,000358: 36,3054           00047                                    X1                                    
039612,000359: 36,3055           33561                                    VCRCS                                 
039613,000360: 36,3056           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2     PL02D
039614,000361: 36,3057           03706                                    DV                                    
039615,000362: 36,3060           77776                           EXIT                                           
039616,000363: 36,3061           07171                           TC       POLY                                  
039617,000364: 36,3062           00001                           DEC      1          B-14                       
039618,000365: 36,3063           00001 05070                     2DEC     5.66240507 E-4        B-3             
039619,000366: 36,3065           17527 36700                     2DEC     9.79487897 E-1        B-1             

Page 897

039621,000368: 36,3067           47114 70670                     2DEC     -.388281955 B1                         
039622,000369: 36,3071           06006                           TC       INTPRET                               
039623,000370: 36,3072           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A             B3      PL04D
039624,000371: 36,3073           03076                                    WEIGHT/G                              
039625,000372: 36,3074           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16   PL00D
039626,000373: 36,3075           41257                           SL*      DMP                                   
039627,000374: 36,3076           20165                                    0          -12D,1                     
039628,000375: 36,3077           33565                                    CSUBT                                 
039629,000376: 36,3100           77621                           BDSU                                           
039630,000377: 36,3101           03716                                    T1                                    
039631,000378: 36,3102           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                 B28
039632,000379: 36,3103           77776                           EXIT                                           
039633,000380: 36,3104           33234                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
039634,000381: 36,3105           03223                           TCR      P370GOF                               
039635,000382: 36,3106           13104                           TCF      -2                                    
039636,000383: 36,3107           35021                           CAF      ZERO                                  
039637,000384: 36,3110           55125                           TS       VHFCNT                                
039638,000385: 36,3111           55126                           TS       TRKMKCNT                              
039639,000386: 36,3112           06006                           TC       INTPRET                               
039640,000387: 36,3113           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
039641,000388: 36,3114           63700                                    RTENCK1                               
039642,000389: 36,3115           53575                           VLOAD    UNIT                                  #                                        PL00D
039643,000390: 36,3116           03656                                    R(T2)/                                
039644,000391: 36,3117           74315                           PDVL     VXSC                                  #  UR2                           B1      PL06D
039645,000392: 36,3120           03740                                    UR1/                                  
039646,000393: 36,3121           33571                                    MCOS7.5                               
039647,000394: 36,3122           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                  B1      PL12D
039648,000395: 36,3123           03746                                    UH/                                   
039649,000396: 36,3124           33573                                    MSIN7.5                               
039650,000397: 36,3125           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2      PL00D
039651,000398: 36,3126           50015                           DAD      BMN                                   
039652,000399: 36,3127           33575                                    MCOS22.5                              
039653,000400: 36,3130           75155                                    P37W                                  
039654,000401: 36,3131           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
039655,000402: 36,3132           03746                                    UH/                                   
039656,000403: 36,3133           03656                                    R(T2)/                                
039657,000404: 36,3134           71240                           BMN      DLOAD                                 
039658,000405: 36,3135           75141                                    P37U                                  
039659,000406: 36,3136           33577                                    THETA165                              
039660,000407: 36,3137           52006                           PUSH     GOTO                                  
039661,000408: 36,3140           75143                                    P37V                                  
039662,000409: 36,3141           41545        P37U               DLOAD    PUSH                                  
039663,000410: 36,3142           33601                                    THETA210                              
039664,000411: 36,3143           77756        P37V               SIN                                            
039665,000412: 36,3144           16732                           STODL    SNTH                                  
039666,000413: 36,3145           43146                           COS      CLEAR                                 
039667,000414: 36,3146           03666                                    RVSW                                  
039668,000415: 36,3147           26734                           STOVL    CSTH                                  
039669,000416: 36,3150           03640                                    R(T1)/                                

Page 898

039671,000418: 36,3151           26657                           STOVL    RVEC                                  
039672,000419: 36,3152           03700                                    V2(T1)/                               
039673,000420: 36,3153           36746                           STCALL   VVEC                                  
039674,000421: 36,3154           24744                                    TIMETHET                              
039675,000422: 36,3155           43014        P37W               CLEAR    CLEAR                                 
039676,000423: 36,3156           01267                                    XDELVFLG                              
039677,000424: 36,3157           03665                                    NORMSW                                
039678,000425: 36,3160           77214                           SET      VLOAD                                 
039679,000426: 36,3161           01071                                    FINALFLG                              
039680,000427: 36,3162           77626                           STADR                                          
039681,000428: 36,3163           60362                           STODL    RTARG                                 
039682,000429: 36,3164           00037                                    T                                     
039683,000430: 36,3165           77615                           DAD                                            
039684,000431: 36,3166           03716                                    T1                                    
039685,000432: 36,3167           27656                           STOVL    TPASS4                                
039686,000433: 36,3170           03700                                    V2(T1)/                               
039687,000434: 36,3171           77651                           VSU                                            
039688,000435: 36,3172           03672                                    V(T1)/                                
039689,000436: 36,3173           37646                           STCALL   DELVSIN                               
039690,000437: 36,3174           73003                                    VN1645                                
039691,000438: 36,3175           77650                           GOTO                                           
039692,000439: 36,3176           75155                                    P37W                                  
039693,000440: 
039694,000441:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
039695,000442: 
039696,000443: 36,3177           00006        P37GFRB1           EXTEND                                         
039697,000444: 36,3200           23762                           QXCH     SPRTEX                                
039698,000445: 36,3201           03207                           TCR      P370GOFR                              
039699,000446: 36,3202           35017        37BLANK            CAF      ONE                                   
039700,000447: 36,3203           05526                           TCR      BLANKET                               
039701,000448: 36,3204           15217                           TCF      ENDOFJOB                              
039702,000449: 36,3205           01762                           TC       SPRTEX                                #  RECYCLE
039703,000450: 36,3206           13232                           TCF      P37PROC                               #  PROCEED
039704,000451: 
039705,000452:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
039706,000453: 
039707,000454: 36,3207           00006        P370GOFR           EXTEND                                         
039708,000455: 36,3210           23733                           QXCH     RTENCKEX                              
039709,000456: 36,3211           04662                           TCR      BANKCALL                              
039710,000457: 36,3212           21057                           CADR     GOFLASHR                              
039711,000458: 36,3213           14106                           TCF      GOTOPOOH                              #  TERMINATE
039712,000459: 36,3214           13217                           TCF      +3                                    
039713,000460: 36,3215           13221                           TCF      +4                                    
039714,000461: 36,3216           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
039715,000462: 36,3217           51733                           INDEX    RTENCKEX                              #  PROCEED
039716,000463: 36,3220           10004                           TCF      0          +4                         
039717,000464: 36,3221           51733                           INDEX    RTENCKEX                              #  RECYCLE
039718,000465: 36,3222           10003                           TCF      0          +3                         
039719,000466: 
039720,000467:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
039721,000468: 

Page 899

039723,000470: 36,3223           00006        P370GOF            EXTEND                                         
039724,000471: 36,3224           23762                           QXCH     SPRTEX                                
039725,000472: 36,3225           04662                           TCR      BANKCALL                              
039726,000473: 36,3226           20720                           CADR     GOFLASH                               
039727,000474: 36,3227           14106                           TCF      GOTOPOOH                              
039728,000475: 36,3230           13232                           TCF      +2                                    
039729,000476: 36,3231           01762                           TC       SPRTEX                                
039730,000477: 36,3232           51762        P37PROC            INDEX    SPRTEX                                
039731,000478: 36,3233           10001                           TCF      0          +1                         
039732,000479: 36,3234           01441        V6N33RTE           VN       0633                                  
039733,000480: 36,3235           01006        V4N06RTE           VN       0406                                  
039734,000481: 36,3236           01475        V6N61RTE           VN       0661                                  
039735,000482: 36,3237           01447        V6N39RTE           VN       0639                                  
039736,000483: 36,3240           01474        V6N60RTE           VN       0660                                  
039737,000484: 36,3241           01521        V6N81RTE           VN       0681                                  
039738,000485: 32,2262                                           BANK     32                                    
039739,000486: 32,2000                                           SETLOC   RTE                                   
039740,000487: 32,2000                                           BANK                                           
039741,000488: 32,2262                                           COUNT    32/RTE                                
039742,000489: 

Page 900

039744,000491:                                                                                                  #  ALARM DISPLAY SUBROUTINE
039745,000492: 
039746,000493: 32,2262           77420        P370ALRM           STQ      EXIT                                  
039747,000494: 32,2263           03762                                    SPRTEX                                
039748,000495: 32,2264           30154                           CA       MPAC                                  
039749,000496: 32,2265           05756                           TC       VARALARM                              
039750,000497: 32,2266           32276                           CAF      V5N09RTE                              
039751,000498: 32,2267           04662                           TC       BANKCALL                              
039752,000499: 32,2270           20720                           CADR     GOFLASH                               
039753,000500: 32,2271           14106                           TCF      GOTOPOOH                              
039754,000501: 32,2272           12266                           TCF      -4                                    
039755,000502: 32,2273           06006                           TC       INTPRET                               
039756,000503: 32,2274           77650                           GOTO                                           
039757,000504: 32,2275           03762                                    SPRTEX                                
039758,000505: 32,2276           01211        V5N09RTE           VN       0509                                  
039759,000506: 

Page 901

039761,000508:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
039762,000509: 
039763,000510:                                                                                                  #  INPUT
039764,000511:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
039765,000512:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039766,000513:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
039767,000514:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES  -2=EARTH              SP      B14
039768,000515: 
039769,000516:                                                                                                  #  OUTPUT
039770,000517:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039771,000518:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039772,000519:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
039773,000520: 
039774,000521: 32,2277           43020        TMRAD100           STQ      CLEAR                                 
039775,000522: 32,2300           03733                                    RTENCKEX                              
039776,000523: 32,2301           03666                                    RVSW                                  
039777,000524: 32,2302           67164                           AXC,2    SXA,2                                 
039778,000525: 32,2303           20000                           OCT      20000                                 
039779,000526: 32,2304           02756                                    SGNRDOT                               
039780,000527: 32,2305           45140                           LXC,1    CALL                                  
039781,000528: 32,2306           03734                                    CONICX1                               
039782,000529: 32,2307           25556                                    TIMERAD                               
039783,000530: 32,2310           27710                           STOVL    V(T2)/                                #                                        PL00D
039784,000531: 32,2311           77626                           STADR                                          
039785,000532: 32,2312           60121                           STODL    R(T2)/                                
039786,000533: 32,2313           00037                                    T                                     
039787,000534: 32,2314           37724                           STCALL   T12                                   
039788,000535: 32,2315           03733                                    RTENCKEX                              
039789,000536: 

Page 902

039791,000538:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
039792,000539: 
039793,000540:                                                                                                  #  DESCRIPTION
039794,000541:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
039795,000542:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
039796,000543: 
039797,000544:                                                                                                  #  CALLING SEQUENCE
039798,000545:                                                                                                  #        L       CALL
039799,000546:                                                                                                  #        L+1             RTEDISP
039800,000547: 
039801,000548:                                                                                                  #  SUBROUTINES CALLED
039802,000549:                                                                                                  #        TMRAD100
039803,000550:                                                                                                  #        AUGEKUGL
039804,000551:                                                                                                  #        LAT-LONG
039805,000552: 
039806,000553:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039807,000554:                                                                                                  #     PUSHLIST
039808,000555:                                                                                                  #        NONE
039809,000556:                                                                                                  #     MPAC
039810,000557:                                                                                                  #        NONE
039811,000558:                                                                                                  #     OTHER
039812,000559:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039813,000560:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039814,000561:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
039815,000562:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
039816,000563:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039817,000564:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039818,000565:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039819,000566: 
039820,000567:                                                                                                  #  OUTPUT
039821,000568:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039822,000569:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039823,000570:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
039824,000571:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039825,000572:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039826,000573:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039827,000574: 
039828,000575: 32,2316           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
039829,000576: 32,2317           03762                                    SPRTEX                                
039830,000577: 32,2320           03710                                    V(T2)/                                
039831,000578: 32,2321           65256                           UNIT     PDDL                                  
039832,000579: 32,2322           00045                                    36D                                   
039833,000580: 32,2323           17767                           STODL    VPRED                                 #  V(T2)
039834,000581: 32,2324           03736                                    T2                                    
039835,000582: 32,2325           77625                           DSU                                            
039836,000583: 32,2326           03413                                    SPRTETIG                              
039837,000584: 32,2327           26641                           STOVL    T3TOT4                                #  T21
039838,000585: 32,2330           03656                                    R(T2)/                                
039839,000586: 32,2331           50256                           UNIT     DOT                                   
039840,000587: 32,2332           77752                           SL1                                            
039841,000588: 

Page 903

039843,000590: 32,2333           44326                           ARCCOS   BDSU                                  
039844,000591: 32,2334           33507                                    1RTEB2                                
039845,000592: 32,2335           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
039846,000593: 32,2336           03700                                    V2(T1)/                               
039847,000594: 32,2337           41451                           VSU      PUSH                                  
039848,000595: 32,2340           03672                                    V(T1)/                                
039849,000596: 32,2341           57441                           DOT      DCOMP                                 
039850,000597: 32,2342           03740                                    UR1/                                  
039851,000598: 32,2343           41515                           PDVL     PUSH                                  
039852,000599: 32,2344           63345                           DLOAD    PDVL                                  
039853,000600: 32,2345           33531                                    ZERORTE                               
039854,000601: 32,2346           55441                           DOT      VDEF                                  
039855,000602: 32,2347           03746                                    UH/                                   
039856,000603: 32,2350           77772                           VSL1                                           
039857,000604: 32,2351           17405                           STODL    DELVLVC                               
039858,000605: 32,2352           03405                                    DELVLVC                               
039859,000606: 32,2353           57414                           BOFF     DCOMP                                 
039860,000607: 32,2354           02741                                    RETROFLG                              
039861,000608: 32,2355           64357                                    RTD18                                 
039862,000609: 32,2356           03405                           STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
039863,000610: 32,2357           51575        RTD18              VLOAD    ABVAL                                 
039864,000611: 32,2360           03405                                    DELVLVC                               
039865,000612: 32,2361           27773                           STOVL    VGDISP                                
039866,000613: 32,2362           03656                                    R(T2)/                                
039867,000614: 32,2363           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
039868,000615: 32,2364           45246                           ABVAL    DSU                                   
039869,000616: 32,2365           33555                                    30480RTE                              
039870,000617: 32,2366           26760                           STOVL    RDESIRED                              
039871,000618: 32,2367           03710                                    V(T2)/                                
039872,000619: 32,2370           36746                           STCALL   VVEC                                  
039873,000620: 32,2371           64277                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
039874,000621: 32,2372           53575                           VLOAD    UNIT                                  
039875,000622: 32,2373           03656                                    R(T2)/                                
039876,000623: 32,2374           53515                           PDVL     UNIT                                  #  UR3                                   PL06D
039877,000624: 32,2375           03710                                    V(T2)/                                
039878,000625: 32,2376           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)              PL00D
039879,000626: 32,2377           65336                           ARCSIN   PDDL                                  #  V(T3)                                 PL02D
039880,000627: 32,2400           00045                                    36D                                   
039881,000628: 32,2401           51525                           PDDL     ABS                                   
039882,000629: 32,2402           45006                           PUSH     CALL                                  #  /GAMMAE/                              PL04D
039883,000630: 32,2403           64075                                    AUGEKUGL                              #  PHIE                                  PL06D
039884,000631: 32,2404           43215                           DAD      DAD                                   
039885,000632: 32,2405           03724                                    T12                                   #  T23
039886,000633: 32,2406           03736                                    T2                                    
039887,000634: 32,2407           00003                           STORE    02D                                   #  T(LS)=T2&T23&TE
039888,000635: 32,2410           53135                           SLOAD    BZE                                   
039889,000636: 32,2411           03377                                    P37RANGE                              
039890,000637: 32,2412           64414                                    RTD22                                 
039891,000638: 32,2413           00005                           STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
039892,000639: 32,2414           73545        RTD22              DLOAD    SIN                                   
039893,000640: 

Page 904

039895,000642: 32,2415           00005                                    04D                                   
039896,000643: 32,2416           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                    PL04D
039897,000644: 32,2417           77746                           COS                                            
039898,000645: 32,2420           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
039899,000646: 32,2421           53575                           VLOAD    UNIT                                  
039900,000647: 32,2422           03656                                    R(T2)/                                
039901,000648: 32,2423           41406                           PUSH     PUSH                                  
039902,000649: 32,2424           53515                           PDVL     UNIT                                  #                                        PL22D
039903,000650: 32,2425           03710                                    V(T2)/                                
039904,000651: 32,2426           47315                           PDVL     VXV                                   
039905,000652: 32,2427           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)             PL10D
039906,000653: 32,2430           63361                           VXSC     PDVL                                  
039907,000654: 32,2431           03403                                    LNG(SPL)                              
039908,000655: 32,2432           53361                           VXSC     VAD                                   #                                        PL04D
039909,000656: 32,2433           03401                                    LAT(SPL)                              
039910,000657: 32,2434           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
039911,000658: 32,2435           00662                                    ERADFLAG                              
039912,000659: 32,2436           01663                                    LUNAFLAG                              
039913,000660: 32,2437           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)      PL02D
039914,000661: 32,2440           77624                           CALL                                           
039915,000662: 32,2441           26370                                    LAT-LONG                              
039916,000663: 32,2442           77745                           DLOAD                                          
039917,000664: 32,2443           01104                                    LAT                                   
039918,000665: 32,2444           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
039919,000666: 32,2445           01106                                    LONG                                  
039920,000667: 32,2446           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
039921,000668: 32,2447           03762                                    SPRTEX                                
039922,000669: 32,2450                                           COUNT*   $$/RTE                                
039923,000670: 

Page 905

039925,000672:                                                                                                  #  INITIAL VECTOR SUBROUTINE
039926,000673: 
039927,000674:                                                                                                  #  DESCRIPTION
039928,000675:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
039929,000676: 
039930,000677:                                                                                                  #  CALLING SEQUENCE
039931,000678:                                                                                                  #        L       CALL
039932,000679:                                                                                                  #        L+1             INVC100
039933,000680: 
039934,000681:                                                                                                  #  NORMAL EXIT MODE
039935,000682:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
039936,000683: 
039937,000684:                                                                                                  #  ALARM EXIT MODE
039938,000685:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
039939,000686: 
039940,000687:                                                                                                  #  SUBROUTINES CALLED
039941,000688:                                                                                                  #        CSMPREC
039942,000689: 
039943,000690:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039944,000691:                                                                                                  #     PUSHLIST
039945,000692:                                                                                                  #        NONE
039946,000693:                                                                                                  #     MPAC
039947,000694:                                                                                                  #        NONE
039948,000695:                                                                                                  #     OTHER
039949,000696:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
039950,000697:                                                                                                  #        CSM STATE VECTOR
039951,000698: 
039952,000699:                                                                                                  #  OUTPUT
039953,000700:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
039954,000701:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
039955,000702:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
039956,000703:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039957,000704:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039958,000705:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
039959,000706: 
039960,000707: 32,2450           71220        INVC100            STQ      DLOAD                                 
039961,000708: 32,2451           03762                                    SPRTEX                                
039962,000709: 32,2452           03413                                    SPRTETIG                              
039963,000710: 32,2453           34041                           STCALL   TDEC1                                 
039964,000711: 32,2454           27071                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
039965,000712: 32,2455           67175                           VLOAD    SXA,2                                 
039966,000713: 32,2456           00001                                    RATT                                  
039967,000714: 32,2457           03755                                    P(T1)                                 
039968,000715: 32,2460           27640                           STOVL    R(T1)/                                
039969,000716: 32,2461           00007                                    VATT                                  
039970,000717: 32,2462           17672                           STODL    V(T1)/                                
039971,000718: 32,2463           00015                                    TAT                                   
039972,000719: 32,2464           03716                           STORE    T1                                    
039973,000720: 32,2465           53135                           SLOAD    BZE                                   
039974,000721: 32,2466           03756                                    P(T1)                                 

Page 906

039976,000723: 32,2467           64473                                    INVC109                               
039977,000724: 32,2470           52135        INVC107            SLOAD    GOTO                                  
039978,000725: 32,2471           33570                                    OCT612                                
039979,000726: 32,2472           74764                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
039980,000727: 32,2473           53575        INVC109            VLOAD    UNIT                                  
039981,000728: 32,2474           03640                                    R(T1)/                                
039982,000729: 32,2475           17740                           STODL    UR1/                                  #  UR1/                                  B1
039983,000730: 32,2476           00045                                    36D                                   
039984,000731: 32,2477           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
039985,000732: 32,2500           03672                                    V(T1)/                                
039986,000733: 32,2501           77656                           UNIT                                           
039987,000734: 32,2502           03746                           STORE    UV1/                                  
039988,000735: 32,2503           72441                           DOT      SL1                                   
039989,000736: 32,2504           03740                                    UR1/                                  
039990,000737: 32,2505           03757                           STORE    CFPA                                  #  CFPA                                  B1
039991,000738: 32,2506           45246                           ABS      DSU                                   
039992,000739: 32,2507           33603                                    EPC1RTE                               
039993,000740: 32,2510           71240                           BMN      DLOAD                                 
039994,000741: 32,2511           64520                                    INVC115                               #  NOT NEAR RECTILINEAR
039995,000742: 32,2512           33507                                    1RTEB2                                
039996,000743: 32,2513           41525                           PDDL     PUSH                                  
039997,000744: 32,2514           33531                                    ZERORTE                               
039998,000745: 32,2515           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
039999,000746: 32,2516           77650                           GOTO                                           
040000,000747: 32,2517           64524                                    INVC120                               
040001,000748: 32,2520           47375        INVC115            VLOAD    VXV                                   
040002,000749: 32,2521           03740                                    UR1/                                  
040003,000750: 32,2522           03746                                    UV1/                                  
040004,000751: 32,2523           77606                           PUSH                                           #  N/ = UR X UV                          B2
040005,000752: 32,2524           71214        INVC120            CLEAR    DLOAD                                 
040006,000753: 32,2525           02661                                    RETROFLG                              
040007,000754: 32,2526           51006                           PUSH     BPL                                   
040008,000755: 32,2527           64533                                    INVC125                               
040009,000756: 32,2530           57575                           VLOAD    VCOMP                                 #  RETROGRADE ORBIT
040010,000757: 32,2531           43006                           PUSH     SET                                   
040011,000758: 32,2532           02461                                    RETROFLG                              
040012,000759: 32,2533           77775        INVC125            VLOAD                                          
040013,000760: 32,2534           53435                           VXV      UNIT                                  
040014,000761: 32,2535           03740                                    UR1/                                  
040015,000762: 32,2536           03746                           STORE    UH/                                   #  UH/                                   B1
040016,000763: 32,2537           77650                           GOTO                                           
040017,000764: 32,2540           03762                                    SPRTEX                                
040018,000765: 

Page 907

040020,000767:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040021,000768: 
040022,000769:                                                                                                  #  DESCRIPTION
040023,000770:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040024,000771:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040025,000772:                                                                                                  #        AS POSSIBLE.
040026,000773: 
040027,000774:                                                                                                  #  CALLING SEQUENCE
040028,000775:                                                                                                  #        L       CALL
040029,000776:                                                                                                  #        L+1             PREC100
040030,000777: 
040031,000778:                                                                                                  #  NORMAL EXIT MODE
040032,000779:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040033,000780: 
040034,000781:                                                                                                  #  ALARM EXIT MODE
040035,000782:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
040036,000783:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
040037,000784:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
040038,000785: 
040039,000786:                                                                                                  #  SUBROUTINES CALLED
040040,000787:                                                                                                  #        INTSTALL
040041,000788:                                                                                                  #        RTENCK2
040042,000789:                                                                                                  #        RTENCK3
040043,000790:                                                                                                  #        TIMERAD
040044,000791:                                                                                                  #        PARAM
040045,000792:                                                                                                  #        V2T100
040046,000793: 
040047,000794:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040048,000795:                                                                                                  #     PUSHLIST
040049,000796:                                                                                                  #        NONE
040050,000797:                                                                                                  #     MPAC
040051,000798:                                                                                                  #        NONE
040052,000799:                                                                                                  #     OTHER
040053,000800:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
040054,000801:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040055,000802:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040056,000803:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040057,000804:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
040058,000805:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
040059,000806:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040060,000807:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040061,000808:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
040062,000809:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040063,000810:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040064,000811:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040065,000812:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040066,000813:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040067,000814:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
040068,000815:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
040069,000816: 

Page 908

040071,000818: 
040072,000819:                                                                                                  #  OUTPUT
040073,000820:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040074,000821:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040075,000822:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040076,000823:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
040077,000824: 
040078,000825:                                                                                                  #  DEBRIS
040079,000826:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
040080,000827:                                                                                                  #        R/APRE          R/A                                                     DP      B6
040081,000828:                                                                                                  #        P/RPRE          P/R                                                     DP      B4
040082,000829:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
040083,000830:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
040084,000831:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
040085,000832:                                                                                                  #        RCON            FINAL RADIUS                                            DP      B29/B27 METERS
040086,000833:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
040087,000834: 
040088,000835: 32,2541           71220        PREC100            STQ      DLOAD                                 
040089,000836: 32,2542           03762                                    SPRTEX                                
040090,000837: 32,2543           33537                                    10RTE                                 
040091,000838: 32,2544           17730                           STODL    NN1A                                  
040092,000839: 32,2545           03636                                    RCON                                  
040093,000840: 32,2546           03664                           STORE    RD                                    
040094,000841: 32,2547           77745        PREC120            DLOAD                                          
040095,000842: 32,2550           33547                                    2RTEB1                                
040096,000843: 32,2551           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
040097,000844: 32,2552           33535                                    M15RTE                                
040098,000845: 32,2553           37732                           STCALL   NN2                                   
040099,000846: 32,2554           63726                                    RTENCK3                               
040100,000847: 32,2555           77624        PREC125            CALL                                           
040101,000848: 32,2556           11634                                    PARAM                                 
040102,000849: 32,2557           77745                           DLOAD                                          
040103,000850: 32,2560           02742                                    P                                     
040104,000851: 32,2561           14033                           STODL    P/RPRE                                
040105,000852: 32,2562           02744                                    R1A                                   
040106,000853: 32,2563           14035                           STODL    R/APRE                                
040107,000854: 32,2564           00041                                    R1                                    
040108,000855: 32,2565           14031                           STODL    RPRE                                  
040109,000856: 32,2566           03775                                    COGA                                  
040110,000857: 32,2567           77661                           SL                                             
040111,000858: 32,2570           20206                                    5                                     
040112,000859: 32,2571           03724                           STORE    X(T2)PRE                              
040113,000860: 32,2572           43276                           DCOMP    DAD                                   
040114,000861: 32,2573           03726                                    X(T2)                                 
040115,000862: 32,2574           45246                           ABS      DSU                                   
040116,000863: 32,2575           33611                                    EPC4RTE                               
040117,000864: 32,2576           50000                           BOV      BMN                                   
040118,000865: 32,2577           64601                                    PREC130                               
040119,000866: 32,2600           64770                                    PREC175                               
040120,000867: 
040121,000868:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED
040122,000869: 

Page 909

040124,000871: 32,2601           50145        PREC130            DLOAD    BMN                                   
040125,000872: 32,2602           03732                                    NN2                                   
040126,000873: 32,2603           64607                                    PREC140                               
040127,000874: 32,2604           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
040128,000875: 32,2605           33567                                    OCT605                                #        EXIT WITH ALARM
040129,000876: 32,2606           65073                                    PRECX                                 
040130,000877: 
040131,000878:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040132,000879: 
040133,000880: 32,2607           53145        PREC140            DLOAD    BZE                                   
040134,000881: 32,2610           03730                                    NN1A                                  
040135,000882: 32,2611           64647                                    PREC162                               
040136,000883: 32,2612           62545        PREC150            DLOAD    SL2                                   #                                B2
040137,000884: 32,2613           00033                                    P/RPRE                                
040138,000885: 32,2614           72405                           DMP      SL1                                   #  BETA2=BETA1*P/R               B2      PL02
040139,000886: 32,2615           03754                                    BETA1                                 
040140,000887: 32,2616           71206                           PUSH     DLOAD                                 
040141,000888: 32,2617           00035                                    R/APRE                                
040142,000889: 32,2620           41212                           SL4      DMP                                   
040143,000890: 32,2621           00001                                    00D                                   
040144,000891: 32,2622           50021                           BDSU     BMN                                   #  BETA3=1-BETA2*R/A
040145,000892: 32,2623           33513                                    1RTEB4                                
040146,000893: 32,2624           64637                                    PREC160                               
040147,000894: 32,2625           75512        PREC155            SL2      SQRT                                  
040148,000895: 32,2626           44205                           DMP      BDSU                                  
040149,000896: 32,2627           03761                                    PHI2                                  
040150,000897: 32,2630           33511                                    1RTEB3                                
040151,000898: 32,2631           65301                           NORM     PDDL                                  
040152,000899: 32,2632           00047                                    X1                                    
040153,000900: 32,2633           56342                           SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040154,000901: 32,2634           52057                           SL*      GOTO                                  #                                B1
040155,000902: 32,2635           20200                                    0          -1,1                       
040156,000903: 32,2636           64655                                    PREC165                               
040157,000904: 32,2637           60345        PREC160            DLOAD    NORM                                  
040158,000905: 32,2640           00035                                    R/APRE                                
040159,000906: 32,2641           00047                                    X1                                    
040160,000907: 32,2642           53665                           BDDV     SL*                                   #                                B1
040161,000908: 32,2643           33505                                    1RTEB1                                
040162,000909: 32,2644           20173                                    0          -6,1                       
040163,000910: 32,2645           77650                           GOTO                                           
040164,000911: 32,2646           64655                                    PREC165                               
040165,000912: 32,2647           60345        PREC162            DLOAD    NORM                                  
040166,000913: 32,2650           00031                                    RPRE                                  
040167,000914: 32,2651           00047                                    X1                                    
040168,000915: 32,2652           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
040169,000916: 32,2653           03664                                    RD                                    
040170,000917: 32,2654           20200                                    0          -1,1                       
040171,000918: 32,2655           41401        PREC165            SETPD    PUSH                                  
040172,000919: 32,2656           00001                                    0                                     
040173,000920: 32,2657           57425                           DSU      DCOMP                                 

Page 910

040175,000922: 32,2660           33505                                    1RTEB1                                
040176,000923: 32,2661           03765                           STORE    BETA12                                
040177,000924: 32,2662           71240                           BMN      DLOAD                                 
040178,000925: 32,2663           64674                                    PREC168                               
040179,000926: 32,2664           03724                                    X(T2)PRE                              
040180,000927: 32,2665           71240                           BMN      DLOAD                                 
040181,000928: 32,2666           64672                                    PREC167                               
040182,000929: 32,2667           03765                                    BETA12                                
040183,000930: 32,2670           77676                           DCOMP                                          
040184,000931: 32,2671           03765                           STORE    BETA12                                
040185,000932: 32,2672           77745        PREC167            DLOAD                                          
040186,000933: 32,2673           03765                                    BETA12                                
040187,000934: 32,2674           45246        PREC168            ABS      DSU                                   
040188,000935: 32,2675           33615                                    EPC6RTE                               
040189,000936: 32,2676           71240                           BMN      DLOAD                                 
040190,000937: 32,2677           64770                                    PREC175                               
040191,000938: 32,2700           72405                           DMP      SL1                                   
040192,000939: 32,2701           00031                                    RPRE                                  
040193,000940: 32,2702           77606                           PUSH                                           #  RF = NEW RADIUS
040194,000941: 32,2703           43345        PREC170            DLOAD    DAD                                   
040195,000942: 32,2704           03732                                    NN2                                   
040196,000943: 32,2705           33527                                    1RTEB28                               
040197,000944: 32,2706           03732                           STORE    NN2                                   
040198,000945: 32,2707           43175                           VLOAD    SET                                   
040199,000946: 32,2710           03656                                    R(T2)/                                
040200,000947: 32,2711           03466                                    RVSW                                  
040201,000948: 32,2712           26657                           STOVL    RVEC                                  
040202,000949: 32,2713           03710                                    V(T2)/                                
040203,000950: 32,2714           77765                           SIGN                                           
040204,000951: 32,2715           03765                                    BETA12                                
040205,000952: 32,2716           16746                           STODL    VVEC                                  
040206,000953: 32,2717           33505                                    1RTEB1                                
040207,000954: 32,2720           57565                           SIGN     DCOMP                                 
040208,000955: 32,2721           03765                                    BETA12                                
040209,000956: 32,2722           71354                           LXA,2    DLOAD                                 
040210,000957: 32,2723           00154                                    MPAC                                  
040211,000958: 32,2724           67140                           LXC,1    SXA,2                                 
040212,000959: 32,2725           03734                                    CONICX1                               
040213,000960: 32,2726           02756                                    SGNRDOT                               
040214,000961: 32,2727           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
040215,000962: 32,2730           25556                                    TIMERAD                               #        NEW RADIUS)
040216,000963: 32,2731           75345                           DLOAD    SIGN                                  
040217,000964: 32,2732           00037                                    T                                     
040218,000965: 32,2733           03765                                    BETA12                                
040219,000966: 32,2734           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                       PL02D
040220,000967: 32,2735           03650                                    DT21PR                                
040221,000968: 32,2736           00047                                    X1                                    
040222,000969: 32,2737           53665                           BDDV     SL*                                   
040223,000970: 32,2740           00001                                    00D                                   
040224,000971: 32,2741           20176                                    0          -3,1                       

Page 911

040226,000973: 32,2742           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        B3      PL04D
040227,000974: 32,2743           64750                                    PREC172                               
040228,000975: 32,2744           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0      PL04D
040229,000976: 32,2745           33547                                    2RTEB1                                
040230,000977: 32,2746           77650                           GOTO                                           
040231,000978: 32,2747           64752                                    PREC173                               
040232,000979: 32,2750           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0      PL04D
040233,000980: 32,2751           33541                                    M.6RTE                                
040234,000981: 32,2752           45271        PREC173            DDV      DSU                                   
040235,000982: 32,2753           00003                                    02D                                   
040236,000983: 32,2754           33511                                    1RTEB3                                
040237,000984: 32,2755           71240                           BMN      DLOAD                                 
040238,000985: 32,2756           64762                                    PREC174                               
040239,000986: 32,2757           77605                           DMP                                            
040240,000987: 32,2760           03650                                    DT21PR                                
040241,000988: 32,2761           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
040242,000989: 32,2762           41545        PREC174            DLOAD    PUSH                                  
040243,000990: 32,2763           00001                                    00D                                   
040244,000991: 32,2764           37650                           STCALL   DT21PR                                
040245,000992: 32,2765           63710                                    RTENCK2                               
040246,000993: 32,2766           77650                           GOTO                                           
040247,000994: 32,2767           64555                                    PREC125                               
040248,000995: 32,2770           45345        PREC175            DLOAD    DSU                                   
040249,000996: 32,2771           00031                                    RPRE                                  
040250,000997: 32,2772           03664                                    RD                                    
040251,000998: 32,2773           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
040252,000999: 32,2774           50025                           DSU      BMN                                   
040253,001000: 32,2775           33617                                    EPC7RTE                               
040254,001001: 32,2776           34700                                    PREC220                               
040255,001002: 
040256,001003:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
040257,001004: 
040258,001005: 32,2777           53145                           DLOAD    BZE                                   
040259,001006: 32,3000           03730                                    NN1A                                  
040260,001007: 32,3001           64604                                    PREC132                               #  TOO MANY ITERATIONS
040261,001008: 32,3002           53025                           DSU      BZE                                   
040262,001009: 32,3003           33537                                    10RTE                                 
040263,001010: 32,3004           65037                                    PREC207                               
040264,001011: 32,3005           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
040265,001012: 32,3006           03670                                    RPRE'                                 
040266,001013: 32,3007           00031                                    RPRE                                  #  RPRE,-RPRE                    B29/B27
040267,001014: 32,3010           55301                           NORM     BDDV                                  
040268,001015: 32,3011           00050                                    X2                                    
040269,001016: 32,3012           03666                                    DRCON                                 
040270,001017: 32,3013           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S          B2
040271,001018: 32,3014           57600                                    0          -2,2                       
040272,001019: 32,3015           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
040273,001020: 32,3016           33505                                    1RTEB1                                
040274,001021: 32,3017           65024                                    PREC205M                              
040275,001022: 32,3020           45246                           ABS      DSU                                   

Page 912

040277,001024: 32,3021           33505                                    1RTEB1                                
040278,001025: 32,3022           77640                           BMN                                            
040279,001026: 32,3023           65027                                    PREC206                               
040280,001027: 32,3024           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
040281,001028: 32,3025           33547                                    2RTEB1                                
040282,001029: 32,3026           77725                           PDDL                                           #  S=-4                          B2
040283,001030: 32,3027           41345        PREC206            DLOAD    DMP                                   
040284,001031: 32,3030           77712                           SL2                                            
040285,001032: 32,3031           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
040286,001033: 32,3032           77615                           DAD                                            
040287,001034: 32,3033           03636                                    RCON                                  
040288,001035: 32,3034           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
040289,001036: 32,3035           77650                           GOTO                                           
040290,001037: 32,3036           65056                                    PREC210                               
040291,001038: 32,3037           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
040292,001039: 32,3040           03664                                    RD                                    
040293,001040: 32,3041           70501                           NORM     SR1                                   
040294,001041: 32,3042           00047                                    X1                                    
040295,001042: 32,3043           60325                           PDDL     NORM                                  
040296,001043: 32,3044           00031                                    RPRE                                  
040297,001044: 32,3045           00050                                    X2                                    
040298,001045: 32,3046           55260                           XSU,1    BDDV                                  
040299,001046: 32,3047           00047                                    X2                                    
040300,001047: 32,3050           77657                           SR*                                            
040301,001048: 32,3051           20600                                    0          -1,1                       
040302,001049: 32,3052           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
040303,001050: 32,3053           77625                           DSU                                            
040304,001051: 32,3054           03664                                    RD                                    
040305,001052: 32,3055           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
040306,001053: 32,3056           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
040307,001054: 32,3057           00031                                    RPRE                                  
040308,001055: 32,3060           17670                           STODL    RPRE'                                 
040309,001056: 32,3061           03730                                    NN1A                                  
040310,001057: 32,3062           77625                           DSU                                            
040311,001058: 32,3063           33527                                    1RTEB28                               
040312,001059: 32,3064           37730                           STCALL   NN1A                                  
040313,001060: 32,3065           65075                                    V2T100                                
040314,001061: 32,3066           52030                           BHIZ     GOTO                                  
040315,001062: 32,3067           64547                                    PREC120                               
040316,001063: 32,3070           65073                                    PRECX                                 
040317,001064: 
040318,001065:                                                                                                  #  DESIRED RADIUS ACHIEVED
040319,001066: 
040320,001067: 16,2000                                           SETLOC   RTE2                                  
040321,001068: 16,2000                                           BANK                                           
040322,001069: 16,2700           45345        PREC220            DLOAD    DSU                                   
040323,001070: 16,2701           03726                                    X(T2)                                 
040324,001071: 16,2702           03724                                    X(T2)PRE                              
040325,001072: 16,2703           45246                           ABS      DSU                                   
040326,001073: 16,2704           34713                                    EPC8RTE                               

Page 913

040328,001075: 16,2705           67240                           BMN      SLOAD                                 
040329,001076: 16,2706           65071                                    PREC225                               
040330,001077: 16,2707           34715                                    OCT613                                
040331,001078: 16,2710           77650                           GOTO                                           
040332,001079: 16,2711           65073                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040333,001080: 
040334,001081: 16,2712           00040 30447  EPC8RTE            2DEC     .002                                  
040335,001082: 
040336,001083: 16,2714           00613        OCT613             OCT      613                                   
040337,001084: 
040338,001085:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
040339,001086: 
040340,001087: 32,2000                                           SETLOC   RTE                                   
040341,001088: 32,2000                                           BANK                                           
040342,001089: 32,3071           77745        PREC225            DLOAD                                          
040343,001090: 32,3072           33531                                    ZERORTE                               
040344,001091: 32,3073           77650        PRECX              GOTO                                           
040345,001092: 32,3074           03762                                    SPRTEX                                
040346,001093: 

Page 914

040348,001095:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
040349,001096: 
040350,001097:                                                                                                  #  DESCRIPTION
040351,001098:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
040352,001099:                                                                                                  #        RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
040353,001100:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040354,001101: 
040355,001102:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
040356,001103: 
040357,001104:                                                                                                  #     CALLING SEQUENCE
040358,001105:                                                                                                  #        L       CALL
040359,001106:                                                                                                  #        L+1             RTENCK1
040360,001107: 
040361,001108:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040362,001109:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
040363,001110: 
040364,001111:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
040365,001112: 
040366,001113:                                                                                                  #     CALLING SEQUENCE
040367,001114:                                                                                                  #        L       CALL
040368,001115:                                                                                                  #        L+1             RTENCK2
040369,001116: 
040370,001117:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040371,001118:                                                                                                  #        PUSHLIST
040372,001119:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
040373,001120:                                                                                                  #        OTHER
040374,001121:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR .B29     METERS
040375,001122:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040376,001123:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
040377,001124: 
040378,001125:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
040379,001126: 
040380,001127:                                                                                                  #     CALLING SEQUENCE
040381,001128:                                                                                                  #        L       CALL
040382,001129:                                                                                                  #        L+1             RTENCK3
040383,001130: 
040384,001131:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040385,001132:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040386,001133:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
040387,001134:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040388,001135:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040389,001136: 
040390,001137:                                                                                                  #  EXIT MODE
040391,001138:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
040392,001139: 
040393,001140:                                                                                                  #  SUBROUTINES CALLED
040394,001141:                                                                                                  #        INTSTALL
040395,001142:                                                                                                  #        INTEGRVS
040396,001143: 
040397,001144:                                                                                                  #  OUTPUT
040398,001145:                                                                                                  #     PUSHLIST

Page 915

040400,001147:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
040401,001148:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
040402,001149:                                                                                                  #     MPAC
040403,001150:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
040404,001151:                                                                                                  #     OTHER
040405,001152:                                                                                                  #        R(T2)/          AS IN PUSHLIST
040406,001153:                                                                                                  #        V(T2)/          AS IN MPAC
040407,001154:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040408,001155: 
040409,001156: 31,2000                                           SETLOC   RTE3                                  
040410,001157: 31,2000                                           BANK                                           
040411,001158: 31,3700           45020        RTENCK1            STQ      CALL                                  
040412,001159: 31,3701           03733                                    RTENCKEX                              
040413,001160: 31,3702           27442                                    INTSTALL                              
040414,001161: 31,3703           43175                           VLOAD    SET                                   
040415,001162: 31,3704           03640                                    R(T1)/                                
040416,001163: 31,3705           01473                                    INTYPFLG                              
040417,001164: 31,3706           77650                           GOTO                                           
040418,001165: 31,3707           63734                                    RTENCK3B                              
040419,001166: 
040420,001167: 31,3710           45020        RTENCK2            STQ      CALL                                  
040421,001168: 31,3711           03733                                    RTENCKEX                              
040422,001169: 31,3712           27442                                    INTSTALL                              
040423,001170: 31,3713           77214                           CLEAR    VLOAD                                 
040424,001171: 31,3714           01673                                    INTYPFLG                              
040425,001172: 31,3715           03656                                    R(T2)/                                
040426,001173: 31,3716           25535                           STOVL    RCV                                   
040427,001174: 31,3717           03710                                    V(T2)/                                
040428,001175: 31,3720           15543                           STODL    VCV                                   
040429,001176: 31,3721           03736                                    T2                                    
040430,001177: 31,3722           01517                           STORE    TET                                   
040431,001178: 31,3723           77615                           DAD                                            
040432,001179: 31,3724           77650                           GOTO                                           
040433,001180: 31,3725           63742                                    RTENCK3D                              
040434,001181: 
040435,001182: 31,3726           45020        RTENCK3            STQ      CALL                                  
040436,001183: 31,3727           03733                                    RTENCKEX                              
040437,001184: 31,3730           27442                                    INTSTALL                              
040438,001185: 31,3731           43175        RTENCK3A           VLOAD    CLEAR                                 
040439,001186: 31,3732           03640                                    R(T1)/                                
040440,001187: 31,3733           01673                                    INTYPFLG                              
040441,001188: 31,3734           25535        RTENCK3B           STOVL    RCV                                   
040442,001189: 31,3735           03700                                    V2(T1)/                               
040443,001190: 31,3736           15543                           STODL    VCV                                   
040444,001191: 31,3737           03716                                    T1                                    
040445,001192: 31,3740           15517                           STODL    TET                                   
040446,001193: 31,3741           03736                                    T2                                    

Page 916

040448,001195: 31,3742           00041        RTENCK3D           STORE    TDEC1                                 
040449,001196: 31,3743           45014                           CLEAR    CALL                                  
040450,001197: 31,3744           00263                                    MOONFLAG                              
040451,001198: 31,3745           27135                                    INTEGRVS                              
040452,001199: 31,3746           77775                           VLOAD                                          
040453,001200: 31,3747           00001                                    RATT                                  
040454,001201: 31,3750           03656                           STORE    R(T2)/                                
040455,001202: 31,3751           70125                           PDDL     LXC,1                                 
040456,001203: 31,3752           00015                                    TAT                                   
040457,001204: 31,3753           03734                                    CONICX1                               
040458,001205: 31,3754           27736                           STOVL    T2                                    
040459,001206: 31,3755           00007                                    VATT                                  
040460,001207: 31,3756           03710                           STORE    V(T2)/                                
040461,001208: 31,3757           77650                           GOTO                                           
040462,001209: 31,3760           03733                                    RTENCKEX                              
040463,001210: 32,2000                                           SETLOC   RTE                                   
040464,001211: 32,2000                                           BANK                                           
040465,001212: 

Page 917

040467,001214:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
040468,001215: 
040469,001216:                                                                                                  #  DESCRIPTION
040470,001217:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040471,001218:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
040472,001219:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040473,001220:                                                                                                  #                AND CONSEQUENTLY FUEL.
040474,001221: 
040475,001222:                                                                                                  #  CALLING SEQUENCE
040476,001223:                                                                                                  #        L       CALL
040477,001224:                                                                                                  #        L+1             V2T100
040478,001225: 
040479,001226:                                                                                                  #  NORMAL EXIT MODE
040480,001227:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040481,001228: 
040482,001229:                                                                                                  #  ALARM EXIT MODE
040483,001230:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040484,001231: 
040485,001232:                                                                                                  #  SUBROUTINES CALLED
040486,001233:                                                                                                  #        GAMDV10
040487,001234:                                                                                                  #        XT1LIM
040488,001235:                                                                                                  #        DVCALC
040489,001236: 
040490,001237:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040491,001238:                                                                                                  #     PUSHLIST
040492,001239:                                                                                                  #        NONE
040493,001240:                                                                                                  #     MPAC
040494,001241:                                                                                                  #        NONE
040495,001242:                                                                                                  #     OTHER
040496,001243:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040497,001244:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
040498,001245:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040499,001246:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040500,001247:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040501,001248:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040502,001249:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040503,001250:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
040504,001251:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040505,001252:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040506,001253:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040507,001254:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
040508,001255:                                                                                                  #        N1              CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC,PLUS PREC
040509,001256: 
040510,001257:                                                                                                  #  OUTPUT
040511,001258:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040512,001259:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040513,001260:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
040514,001261:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040515,001262:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
040516,001263: 

Page 918

040518,001265: 
040519,001266:                                                                                                  #  DEBRIS
040520,001267:                                                                                                  #     PUSHLIST
040521,001268:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
040522,001269:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
040523,001270:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040524,001271:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040525,001272:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040526,001273:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
040527,001274:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040528,001275:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
040529,001276:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
040530,001277:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
040531,001278:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
040532,001279: 
040533,001280: 32,3075           71220        V2T100             STQ      DLOAD                                 
040534,001281: 32,3076           00041                                    33D                                   
040535,001282: 32,3077           03636                                    RCON                                  
040536,001283: 32,3100           45240                           BMN      DSU                                   #  ABORT IF RCON NEGATIVE
040537,001284: 32,3101           65105                                    V2TERROR                              
040538,001285: 32,3102           03646                                    R(T1)                                 
040539,001286: 32,3103           77640                           BMN                                            
040540,001287: 32,3104           65110                                    V2T101                                
040541,001288: 32,3105           77776        V2TERROR           EXIT                                           #        OR IF LAMBDA LESS THAN ONE
040542,001289: 32,3106           05721                           TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1
040543,001290: 32,3107           00610                           OCT      00610                                 
040544,001291: 32,3110           43001        V2T101             SETPD    CLEAR                                 
040545,001292: 32,3111           00001                                    0                                     #                                        PL00D
040546,001293: 32,3112           00272                                    F2RTE                                 
040547,001294: 32,3113           60345                           DLOAD    NORM                                  
040548,001295: 32,3114           03636                                    RCON                                  
040549,001296: 32,3115           00047                                    X1                                    
040550,001297: 32,3116           60325                           PDDL     NORM                                  
040551,001298: 32,3117           03646                                    R(T1)                                 
040552,001299: 32,3120           00051                                    S1                                    
040553,001300: 32,3121           00013                           STORE    10D                                   
040554,001301: 32,3122           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
040555,001302: 32,3123           65260                           XSU,1    PDDL                                  #                                        PL02D
040556,001303: 32,3124           00050                                    S1                                    
040557,001304: 32,3125           03726                                    X(T2)                                 
040558,001305: 32,3126           77716                           DSQ                                            
040559,001306: 32,3127           43342                           SR1      DAD                                   
040560,001307: 32,3130           33505                                    1RTEB1                                
040561,001308: 32,3131           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
040562,001309: 32,3132           77605                           DMP                                            
040563,001310: 32,3133           00001                                    00D                                   
040564,001311: 32,3134           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
040565,001312: 32,3135           53605                           DMP      SL*                                   
040566,001313: 32,3136           00001                                    00D                                   
040567,001314: 32,3137           20172                                    0          -7,1                       
040568,001315: 32,3140           45257                           SL*      DSU                                   

Page 919

040570,001317: 32,3141           20172                                    0          -7,1                       
040571,001318: 32,3142           33523                                    1RTEB17                               
040572,001319: 32,3143           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17     PL05D
040573,001320: 32,3144           45565                                    TPMODE                                
040574,001321: 32,3145           33505                                    1RTEB1                                
040575,001322: 32,3146           57457                           SR*      DCOMP                                 
040576,001323: 32,3147           20601                                    0,1                                   
040577,001324: 32,3150           41215                           DAD      DMP                                   
040578,001325: 32,3151           00001                                    00D                                   
040579,001326: 32,3152           03646                                    R(T1)                                 
040580,001327: 32,3153           47057                           SL*      RTB                                   
040581,001328: 32,3154           20172                                    0          -7D,1                      
040582,001329: 32,3155           45565                                    TPMODE                                
040583,001330: 32,3156           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
040584,001331: 32,3157           33637                                    RTMURTE                               
040585,001332: 32,3160           70501                           NORM     SR1                                   
040586,001333: 32,3161           00050                                    X2                                    
040587,001334: 32,3162           56264                           XSU,2    DDV                                   
040588,001335: 32,3163           00050                                    S1                                    
040589,001336: 32,3164           00013                                    10D                                   
040590,001337: 32,3165           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
040591,001338: 32,3166           57170                                    6,2                                   
040592,001339: 32,3167           03652                                    MAMAX1                                
040593,001340: 32,3170           41406                           PUSH     PUSH                                  #  MAMAX1=MA
040594,001341: 32,3171           77624                           CALL                                           
040595,001342: 32,3172           65734                                    XT1LIM                                
040596,001343: 32,3173           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5      PL12D
040597,001344: 32,3174           40476                           DCOMP    SR4                                   
040598,001345: 32,3175           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5      PL14D
040599,001346: 32,3176           03654                                    MAMAX2                                
040600,001347: 32,3177           45006                           PUSH     CALL                                  
040601,001348: 32,3200           65734                                    XT1LIM                                
040602,001349: 32,3201           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5      PL16D
040603,001350: 32,3202           03730                                    NN1A                                  
040604,001351: 32,3203           65206                                    V2T102                                
040605,001352: 32,3204           77650                           GOTO                                           
040606,001353: 32,3205           65220                                    V2T110                                
040607,001354: 
040608,001355:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
040609,001356: 
040610,001357: 32,3206           77745        V2T102             DLOAD                                          
040611,001358: 32,3207           03632                                    RTEDVD                                
040612,001359: 32,3210           52054                           BZE      GOTO                                  
040613,001360: 32,3211           65213                                    V2T105                                
040614,001361: 32,3212           65314                                    V2T140                                
040615,001362: 32,3213           50145        V2T105             DLOAD    BMN                                   
040616,001363: 32,3214           03757                                    CFPA                                  
040617,001364: 32,3215           65314                                    V2T140                                
040618,001365: 32,3216           77650                           GOTO                                           
040619,001366: 32,3217           65322                                    V2T145                                

Page 920

040621,001368:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
040622,001369:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
040623,001370:                                                                                                  #  THROUGH X(T2)
040624,001371: 
040625,001372: 32,3220           47145        V2T110             DLOAD    RTB                                   
040626,001373: 32,3221           33523                                    1RTEB17                               
040627,001374: 32,3222           45565                                    TPMODE                                
040628,001375: 32,3223           65276                           DCOMP    PDDL                                  #  -1                            B17     PL19D
040629,001376: 32,3224           33547                                    2RTEB1                                
040630,001377: 32,3225           45257                           SR*      DSU                                   
040631,001378: 32,3226           20601                                    0,1                                   
040632,001379: 32,3227           00001                                    00D                                   
040633,001380: 32,3230           53605                           DMP      SL*                                   
040634,001381: 32,3231           00035                                    28D                                   
040635,001382: 32,3232           20172                                    0          -7,1                       
040636,001383: 32,3233           76257                           SL*      TAD                                   
040637,001384: 32,3234           20172                                    0          -7,1                       
040638,001385: 32,3235           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17     PL19D
040639,001386: 32,3236           45565                                    TPMODE                                
040640,001387: 32,3237           03722                                    X(T1)                                 
040641,001388: 32,3240           00001                           STORE    00D                                   #  X(T1),,                       B5
040642,001389: 32,3241           77751                           TLOAD                                          #                                        PL16D
040643,001390: 32,3242           53040                           BMN      BZE                                   
040644,001391: 32,3243           65250                                    V2T115                                
040645,001392: 32,3244           65250                                    V2T115                                
040646,001393: 32,3245           52061                           SL       GOTO                                  
040647,001394: 32,3246           20210                                    7                                     
040648,001395: 32,3247           65261                                    V2T120                                
040649,001396: 32,3250           50145        V2T115             DLOAD    BMN                                   
040650,001397: 32,3251           03761                                    PHI2                                  
040651,001398: 32,3252           65272                                    V2T125                                
040652,001399: 32,3253           77676                           DCOMP                                          
040653,001400: 32,3254           17761                           STODL    PHI2                                  
040654,001401: 32,3255           33537                                    10RTE                                 
040655,001402: 32,3256           03730                           STORE    NN1A                                  
040656,001403: 32,3257           77650                           GOTO                                           
040657,001404: 32,3260           65272                                    V2T125                                
040658,001405: 32,3261           47166        V2T120             SQRT     RTB                                   
040659,001406: 32,3262           45716                                    DPMODE                                
040660,001407: 32,3263           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM            B5      PL18D
040661,001408: 32,3264           03761                                    PHI2                                  
040662,001409: 32,3265           65300                                    V2T130                                
040663,001410: 32,3266           45545                           DLOAD    STADR                                 #                                        PL16D
040664,001411: 32,3267           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX 
040665,001412: 32,3270           77676                           DCOMP                                          
040666,001413: 32,3271           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
040667,001414: 32,3272           53145        V2T125             DLOAD    BZE                                   
040668,001415: 32,3273           03722                                    X(T1)                                 
040669,001416: 32,3274           65314                                    V2T140                                
040670,001417: 32,3275           52040                           BMN      GOTO                                  

Page 921

040672,001419: 32,3276           65314                                    V2T140                                
040673,001420: 32,3277           65322                                    V2T145                                
040674,001421: 32,3300           53145        V2T130             DLOAD    BZE                                   
040675,001422: 32,3301           03722                                    X(T1)                                 
040676,001423: 32,3302           65311                                    V2T135                                
040677,001424: 32,3303           71240                           BMN      DLOAD                                 #                                        PL16D
040678,001425: 32,3304           65311                                    V2T135                                
040679,001426: 32,3305           77626                           STADR                                          
040680,001427: 32,3306           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
040681,001428: 32,3307           77650                           GOTO                                           
040682,001429: 32,3310           65322                                    V2T145                                
040683,001430: 32,3311           57545        V2T135             DLOAD    DCOMP                                 #                                        PL16D
040684,001431: 32,3312           77626                           STADR                                          
040685,001432: 32,3313           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
040686,001433: 32,3314           77745        V2T140             DLOAD                                          
040687,001434: 32,3315           00013                                    10D                                   
040688,001435: 32,3316           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
040689,001436: 32,3317           00015                                    12D                                   
040690,001437: 32,3320           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                    PL18D
040691,001438: 32,3321           65327                                    V2T150                                
040692,001439: 32,3322           77745        V2T145             DLOAD                                          
040693,001440: 32,3323           00017                                    14D                                   
040694,001441: 32,3324           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
040695,001442: 32,3325           00015                                    12D                                   
040696,001443: 32,3326           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                   PL18D
040697,001444: 32,3327           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
040698,001445: 32,3330           65457                                    GAMDV10                               
040699,001446: 32,3331           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
040700,001447: 32,3332           03632                                    RTEDVD                                
040701,001448: 32,3333           65455                                    V2T1X                                 
040702,001449: 
040703,001450:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
040704,001451: 
040705,001452: 32,3334           50025                           DSU      BMN                                   
040706,001453: 32,3335           03706                                    DV                                    
040707,001454: 32,3336           65341                                    V2T155                                
040708,001455: 32,3337           77650                           GOTO                                           
040709,001456: 32,3340           65374                                    V2T175                                
040710,001457: 32,3341           50145        V2T155             DLOAD    BMN                                   
040711,001458: 32,3342           03730                                    NN1A                                  
040712,001459: 32,3343           65346                                    V2T160                                
040713,001460: 32,3344           77650                           GOTO                                           
040714,001461: 32,3345           65416                                    V2T185                                
040715,001462: 
040716,001463:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
040717,001464: 
040718,001465: 32,3346           53145        V2T160             DLOAD    BZE                                   
040719,001466: 32,3347           03722                                    X(T1)                                 
040720,001467: 32,3350           65354                                    V2T165                                
040721,001468: 32,3351           52040                           BMN      GOTO                                  

Page 922

040723,001470: 32,3352           65354                                    V2T165                                
040724,001471: 32,3353           65453                                    V2T300                                
040725,001472: 32,3354           53145        V2T165             DLOAD    BZE                                   
040726,001473: 32,3355           03757                                    CFPA                                  
040727,001474: 32,3356           65453                                    V2T300                                
040728,001475: 32,3357           71240                           BMN      DLOAD                                 
040729,001476: 32,3360           65453                                    V2T300                                
040730,001477: 32,3361           00017                                    14D                                   
040731,001478: 32,3362           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
040732,001479: 32,3363           00015                                    12D                                   
040733,001480: 32,3364           77676                           DCOMP                                          
040734,001481: 32,3365           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
040735,001482: 32,3366           65457                                    GAMDV10                               
040736,001483: 32,3367           45345                           DLOAD    DSU                                   
040737,001484: 32,3370           03632                                    RTEDVD                                
040738,001485: 32,3371           03706                                    DV                                    
040739,001486: 32,3372           77640                           BMN                                            
040740,001487: 32,3373           65453                                    V2T300                                
040741,001488: 32,3374           71214        V2T175             SET      DLOAD                                 
040742,001489: 32,3375           00072                                    F2RTE                                 
040743,001490: 32,3376           03722                                    X(T1)                                 
040744,001491: 32,3377           77614                           BOFF                                           
040745,001492: 32,3400           02742                                    SLOWFLG                               
040746,001493: 32,3401           65406                                    V2T177                                
040747,001494: 32,3402           14013                           STODL    10D                                   #  X(T1)MIN
040748,001495: 32,3403           00015                                    12D                                   #  DX(T1)MAX
040749,001496: 32,3404           77650                           GOTO                                           
040750,001497: 32,3405           65411                                    V2T179                                
040751,001498: 32,3406           14017        V2T177             STODL    14D                                   
040752,001499: 32,3407           00015                                    12D                                   
040753,001500: 32,3410           77676                           DCOMP                                          
040754,001501: 32,3411           34021        V2T179             STCALL   16D                                   #  DX(T1)
040755,001502: 32,3412           65457                                    GAMDV10                               
040756,001503: 32,3413           50145                           DLOAD    BMN                                   
040757,001504: 32,3414           03730                                    NN1A                                  
040758,001505: 32,3415           65453                                    V2T300                                
040759,001506: 
040760,001507:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
040761,001508:                                                                                                  #  PRECISION TRAJECTORY
040762,001509: 
040763,001510: 32,3416           45345        V2T185             DLOAD    DSU                                   
040764,001511: 32,3417           03722                                    X(T1)                                 
040765,001512: 32,3420           00001                                    00D                                   
040766,001513: 32,3421           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
040767,001514: 32,3422           00015                                    12D                                   
040768,001515: 32,3423           44352                           SL1      BDSU                                  
040769,001516: 32,3424           71240                           BMN      DLOAD                                 
040770,001517: 32,3425           65453                                    V2T300                                
040771,001518: 32,3426           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
040772,001519: 32,3427           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)

Page 923

040774,001521: 32,3430           50025                           DSU      BMN                                   
040775,001522: 32,3431           00017                                    14D                                   
040776,001523: 32,3432           65440                                    V2T195                                
040777,001524: 32,3433           77745                           DLOAD                                          
040778,001525: 32,3434           00017                                    14D                                   
040779,001526: 32,3435           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
040780,001527: 32,3436           77650                           GOTO                                           
040781,001528: 32,3437           65451                                    V2T205                                
040782,001529: 32,3440           45345        V2T195             DLOAD    DSU                                   
040783,001530: 32,3441           03722                                    X(T1)                                 
040784,001531: 32,3442           00013                                    10D                                   
040785,001532: 32,3443           52040                           BMN      GOTO                                  
040786,001533: 32,3444           65446                                    V2T200                                
040787,001534: 32,3445           65451                                    V2T205                                
040788,001535: 32,3446           77745        V2T200             DLOAD                                          
040789,001536: 32,3447           00013                                    10D                                   
040790,001537: 32,3450           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
040791,001538: 32,3451           77624        V2T205             CALL                                           
040792,001539: 32,3452           65660                                    DVCALC                                
040793,001540: 32,3453           77745        V2T300             DLOAD                                          
040794,001541: 32,3454           33531                                    ZERORTE                               
040795,001542: 32,3455           77650        V2T1X              GOTO                                           
040796,001543: 32,3456           00041                                    33D                                   
040797,001544: 

Page 924

040799,001546:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
040800,001547: 
040801,001548:                                                                                                  #  DESCRIPTION
040802,001549:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
040803,001550: 
040804,001551:                                                                                                  #  CALLING SEQUENCE
040805,001552:                                                                                                  #        L       CALL
040806,001553:                                                                                                  #        L+1             GAMDV10
040807,001554: 
040808,001555:                                                                                                  #  NORMAL EXIT MODE
040809,001556:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
040810,001557: 
040811,001558:                                                                                                  #  ALARM EXIT MODE
040812,001559:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040813,001560: 
040814,001561:                                                                                                  #  SUBROUTINES CALLED
040815,001562:                                                                                                  #        DVCALC
040816,001563: 
040817,001564:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040818,001565:                                                                                                  #     PUSHLIST
040819,001566:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
040820,001567:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040821,001568:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040822,001569:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040823,001570:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
040824,001571:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040825,001572:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
040826,001573:                                                                                                  #     MPAC
040827,001574:                                                                                                  #        NONE
040828,001575:                                                                                                  #     OTHER
040829,001576:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040830,001577:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040831,001578:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040832,001579:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040833,001580:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
040834,001581:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
040835,001582: 
040836,001583:                                                                                                  #  OUTPUT
040837,001584:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040838,001585:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040839,001586:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
040840,001587:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040841,001588: 
040842,001589:                                                                                                  #  DEBRIS
040843,001590:                                                                                                  #     PUSHLIST
040844,001591:                                                                                                  #        00D             X(T1),,
040845,001592:                                                                                                  #        02D             THETA1
040846,001593:                                                                                                  #        05D             THETA2
040847,001594:                                                                                                  #        08D             THETA3
040848,001595:                                                                                                  #        10D             X(T1)MIN
040849,001596:                                                                                                  #        12D             DX(T1)MAX

Page 925

040851,001598:                                                                                                  #        14D             X(T1)MAX
040852,001599:                                                                                                  #        16D             DX(T1)
040853,001600:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
040854,001601:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
040855,001602:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
040856,001603:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
040857,001604:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
040858,001605: 
040859,001606: 32,3457           77620        GAMDV10            STQ                                            
040860,001607: 32,3460           00037                                    31D                                   
040861,001608: 32,3461           45001                           SETPD    CALL                                  
040862,001609: 32,3462           00023                                    18D                                   #                                        PL18D
040863,001610: 32,3463           65660                                    DVCALC                                
040864,001611: 32,3464           45345                           DLOAD    DSU                                   
040865,001612: 32,3465           00017                                    14D                                   
040866,001613: 32,3466           00013                                    10D                                   
040867,001614: 32,3467           77600                           BOV                                            
040868,001615: 32,3470           65510                                    GAMDV20                               
040869,001616: 32,3471           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5      PL20D
040870,001617: 32,3472           33621                                    EPC9RTE                               
040871,001618: 32,3473           71240                           BMN      DLOAD                                 
040872,001619: 32,3474           65656                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
040873,001620: 32,3475           00023                                    18D                                   
040874,001621: 32,3476           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
040875,001622: 32,3477           00015                                    12D                                   
040876,001623: 32,3500           65504                                    GAMDV15                               
040877,001624: 32,3501           52001                           SETPD    GOTO                                  #                                        PL18D
040878,001625: 32,3502           00023                                    18D                                   
040879,001626: 32,3503           65510                                    GAMDV20                               
040880,001627: 32,3504           77745        GAMDV15            DLOAD                                          #                                        PL18D
040881,001628: 32,3505           70565                           SIGN     SR1                                   
040882,001629: 32,3506           00021                                    16D                                   
040883,001630: 32,3507           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
040884,001631: 32,3510           77745        GAMDV20            DLOAD                                          
040885,001632: 32,3511           33533                                    M144RTE                               
040886,001633: 32,3512           03732                           STORE    NN2                                   
040887,001634: 32,3513           43345        GAMDV25            DLOAD    DAD                                   
040888,001635: 32,3514           03732                                    NN2                                   
040889,001636: 32,3515           33527                                    1RTEB28                               
040890,001637: 32,3516           67240                           BMN      SLOAD                                 
040891,001638: 32,3517           65523                                    GAMDV30                               
040892,001639: 32,3520           33567                                    OCT605                                
040893,001640: 32,3521           77650                           GOTO                                           
040894,001641: 32,3522           65455                                    V2T1X                                 
040895,001642: 32,3523           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
040896,001643: 32,3524           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  B5      PL20D
040897,001644: 32,3525           03722                                    X(T1)                                 
040898,001645: 32,3526           03706                                    DV                                    
040899,001646: 32,3527           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5   PL22D
040900,001647: 32,3530           03722                                    X(T1)                                 
040901,001648: 32,3531           00021                                    16D                                   

Page 926

040903,001650: 32,3532           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
040904,001651: 32,3533           65660                                    DVCALC                                
040905,001652: 32,3534           71214                           BON      DLOAD                                 
040906,001653: 32,3535           00312                                    F2RTE                                 
040907,001654: 32,3536           65552                                    GAMDV35                               
040908,001655: 32,3537           03706                                    DV                                    
040909,001656: 32,3540           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
040910,001657: 32,3541           00025                                    20D                                   
040911,001658: 32,3542           65547                                    GAMDV33                               
040912,001659: 32,3543           57545        GAMDV32            DLOAD    DCOMP                                 
040913,001660: 32,3544           00021                                    16D                                   
040914,001661: 32,3545           77742                           SR1                                            
040915,001662: 32,3546           00021                           STORE    16D                                   
040916,001663: 32,3547           52001        GAMDV33            SETPD    GOTO                                  
040917,001664: 32,3550           00023                                    18D                                   #                                        PL18D
040918,001665: 32,3551           65615                                    GAMDV50                               
040919,001666: 
040920,001667:                                                                                                  #  TIME CRITICAL MODE
040921,001668: 
040922,001669: 32,3552           45345        GAMDV35            DLOAD    DSU                                   
040923,001670: 32,3553           03632                                    RTEDVD                                
040924,001671: 32,3554           03706                                    DV                                    
040925,001672: 32,3555           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5   PL22D
040926,001673: 32,3556           51545        GAMDV40            DLOAD    ABS                                   #  DV,                                   PL24D
040927,001674: 32,3557           00025                                    20D                                   
040928,001675: 32,3560           50025                           DSU      BMN                                   
040929,001676: 32,3561           33623                                    EPC10RTE                              
040930,001677: 32,3562           65656                                    GAMDVX                                
040931,001678: 32,3563           71204        GAMDV45            BOVB     DLOAD                                 
040932,001679: 32,3564           57352                                    TCDANZIG                              #  ASSURE OVFIND IS 0
040933,001680: 32,3565           60221                           BDSU     NORM                                  
040934,001681: 32,3566           03706                                    DV                                    
040935,001682: 32,3567           00050                                    X2                                    
040936,001683: 32,3570           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
040937,001684: 32,3571           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
040938,001685: 32,3572           00047                                    X1                                    
040939,001686: 32,3573           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
040940,001687: 32,3574           41221                           BDSU     DMP                                   #                                        PL18D
040941,001688: 32,3575           03722                                    X(T1)                                 
040942,001689: 32,3576           77660                           XSU,1                                          
040943,001690: 32,3577           00047                                    X2                                    
040944,001691: 32,3600           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
040945,001692: 32,3601           40057                           SR*      BOV                                   
040946,001693: 32,3602           20600                                    0          -1,1                       
040947,001694: 32,3603           65611                                    GAMDV47                               
040948,001695: 32,3604           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
040949,001696: 32,3605           45246                           ABS      DSU                                   
040950,001697: 32,3606           00015                                    12D                                   
040951,001698: 32,3607           77640                           BMN                                            
040952,001699: 32,3610           65615                                    GAMDV50                               

Page 927

040954,001701: 32,3611           75345        GAMDV47            DLOAD    SIGN                                  
040955,001702: 32,3612           00015                                    12D                                   
040956,001703: 32,3613           00021                                    16D                                   
040957,001704: 32,3614           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
040958,001705: 
040959,001706:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
040960,001707: 
040961,001708: 32,3615           41345        GAMDV50            DLOAD    DMP                                   
040962,001709: 32,3616           00021                                    16D                                   
040963,001710: 32,3617           33543                                    1.1RTEB1                              
040964,001711: 32,3620           43352                           SL1      DAD                                   
040965,001712: 32,3621           03722                                    X(T1)                                 
040966,001713: 32,3622           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
040967,001714: 32,3623           50025                           DSU      BMN                                   
040968,001715: 32,3624           00017                                    14D                                   
040969,001716: 32,3625           65634                                    GAMDV55                               
040970,001717: 32,3626           45345                           DLOAD    DSU                                   
040971,001718: 32,3627           00017                                    14D                                   
040972,001719: 32,3630           03722                                    X(T1)                                 
040973,001720: 32,3631           77742                           SR1                                            
040974,001721: 32,3632           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
040975,001722: 32,3633           65647                                    GAMDV65                               
040976,001723: 32,3634           45345        GAMDV55            DLOAD    DSU                                   
040977,001724: 32,3635           00031                                    24D                                   
040978,001725: 32,3636           00013                                    10D                                   
040979,001726: 32,3637           52040                           BMN      GOTO                                  
040980,001727: 32,3640           65642                                    GAMDV60                               
040981,001728: 32,3641           65647                                    GAMDV65                               
040982,001729: 32,3642           45345        GAMDV60            DLOAD    DSU                                   
040983,001730: 32,3643           00013                                    10D                                   
040984,001731: 32,3644           03722                                    X(T1)                                 
040985,001732: 32,3645           77742                           SR1                                            
040986,001733: 32,3646           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
040987,001734: 32,3647           51545        GAMDV65            DLOAD    ABS                                   
040988,001735: 32,3650           00021                                    16D                                   
040989,001736: 32,3651           50025                           DSU      BMN                                   
040990,001737: 32,3652           33621                                    EPC9RTE                               
040991,001738: 32,3653           65656                                    GAMDVX                                
040992,001739: 32,3654           77650                           GOTO                                           
040993,001740: 32,3655           65513                                    GAMDV25                               
040994,001741: 32,3656           77650        GAMDVX             GOTO                                           
040995,001742: 32,3657           00037                                    31D                                   
040996,001743: 

Page 928

040998,001745:                                                                                                  #  DV CALCULATION SUBROUTINE
040999,001746: 
041000,001747:                                                                                                  #  INPUT
041001,001748:                                                                                                  #     PUSHLIST
041002,001749:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
041003,001750:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041004,001751:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041005,001752:                                                                                                  #     OTHER
041006,001753:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
041007,001754:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
041008,001755:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
041009,001756:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041010,001757: 
041011,001758:                                                                                                  #  OUTPUT
041012,001759:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041013,001760:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041014,001761:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041015,001762: 
041016,001763:                                                                                                  #  DEBRIS
041017,001764:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
041018,001765:                                                                                                  #        C(PUSLOC)       THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
041019,001766:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
041020,001767:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
041021,001768: 
041022,001769:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041023,001770: 
041024,001771: 32,3660           71220        DVCALC             STQ      DLOAD                                 
041025,001772: 32,3661           00040                                    32D                                   
041026,001773: 32,3662           03722                                    X(T1)                                 
041027,001774: 32,3663           54316                           DSQ      SR                                    
041028,001775: 32,3664           20610                                    7                                     
041029,001776: 32,3665           76276                           DCOMP    TAD                                   
041030,001777: 32,3666           00003                                    02D                                   
041031,001778: 32,3667           41501                           NORM     PUSH                                  
041032,001779: 32,3670           00047                                    X1                                    
041033,001780: 32,3671           60351                           TLOAD    NORM                                  
041034,001781: 32,3672           00006                                    05D                                   
041035,001782: 32,3673           00050                                    X2                                    
041036,001783: 32,3674           70434                           RTB      SR1                                   
041037,001784: 32,3675           45716                                    DPMODE                                
041038,001785: 32,3676           56264                           XSU,2    DDV                                   
041039,001786: 32,3677           00046                                    X1                                    
041040,001787: 32,3700           77657                           SR*                                            
041041,001788: 32,3701           57170                                    6,2                                   
041042,001789: 32,3702           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
041043,001790: 32,3703           41366                           SQRT     DMP                                   
041044,001791: 32,3704           00011                                    08D                                   
041045,001792: 32,3705           77701                           NORM                                           
041046,001793: 32,3706           00047                                    X1                                    
041047,001794: 32,3707           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1

Page 929

041049,001796: 32,3710           03722                                    X(T1)                                 
041050,001797: 32,3711           74301                           NORM     VXSC                                  
041051,001798: 32,3712           00050                                    X2                                    
041052,001799: 32,3713           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
041053,001800: 32,3714           74274                           XAD,2    VXSC                                  
041054,001801: 32,3715           00046                                    X1                                    
041055,001802: 32,3716           00035                                    28D                                   
041056,001803: 32,3717           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
041057,001804: 32,3720           57207                                    0          -9D,2                      #                +
041058,001805: 32,3721           03746                                    UH/                                   
041059,001806: 32,3722           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
041060,001807: 32,3723           00035                                    28D                                   
041061,001808: 32,3724           20575                                    0          -4,1                       #                =
041062,001809: 32,3725           45455                           VAD      STADR                                 
041063,001810: 32,3726           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
041064,001811: 32,3727           51451                           VSU      ABVAL                                 
041065,001812: 32,3730           03672                                    V(T1)/                                
041066,001813: 32,3731           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
041067,001814: 32,3732           77650                           GOTO                                           
041068,001815: 32,3733           00040                                    32D                                   
041069,001816: 

Page 930

041071,001818:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041072,001819: 
041073,001820:                                                                                                  #  INPUT
041074,001821:                                                                                                  #     PUSHLIST
041075,001822:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
041076,001823:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
041077,001824:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
041078,001825:                                                                                                  #     OTHER
041079,001826:                                                                                                  #        RCON                                                                    DP      B29/B27
041080,001827:                                                                                                  #        R(T1)                                                                   DP      B29/B27
041081,001828: 
041082,001829:                                                                                                  #  OUTPUT
041083,001830:                                                                                                  #     MPAC
041084,001831:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
041085,001832: 
041086,001833:                                                                                                  #  DEBRIS
041087,001834:                                                                                                  #     PUSHLIST
041088,001835:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
041089,001836:                                                                                                  #        C(PSHLOC)+2     MA                                                      DP      B30/B28
041090,001837:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
041091,001838:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
041092,001839: 
041093,001840:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041094,001841: 
041095,001842: 32,3734           71220        XT1LIM             STQ      DLOAD                                 
041096,001843: 32,3735           00024                                    20D                                   
041097,001844: 32,3736           03636                                    RCON                                  
041098,001845: 32,3737           44342                           SR1      BDSU                                  
041099,001846: 32,3740           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
041100,001847: 32,3741           00050                                    X2                                    
041101,001848: 32,3742           70525                           PDDL     SR1                                   
041102,001849: 32,3743           03646                                    R(T1)                                 
041103,001850: 32,3744           56221                           BDSU     DDV                                   
041104,001851: 32,3745           41257                           SL*      DMP                                   
041105,001852: 32,3746           57601                                    0          -3,2                       #                                B3
041106,001853: 32,3747           00035                                    28D                                   
041107,001854: 32,3750           45257                           SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
041108,001855: 32,3751           20173                                    0          -6,1                       
041109,001856: 32,3752           33526                                    1RTEB25    +1                         #  1.0 B-11
041110,001857: 32,3753           40152                           SL1      BOV                                   
041111,001858: 32,3754           65760                                    XT1LIM2                               #                                B10
041112,001859: 32,3755           52040                           BMN      GOTO                                  
041113,001860: 32,3756           65764                                    XT1LIM5                               
041114,001861: 32,3757           65762                                    XT1LIM3                               
041115,001862: 32,3760           77745        XT1LIM2            DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
041116,001863: 32,3761           33547                                    2RTEB1                                
041117,001864: 32,3762           52166        XT1LIM3            SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)            B5
041118,001865: 32,3763           65766                                    XT1LIMX                               
041119,001866: 32,3764           77745        XT1LIM5            DLOAD                                          
041120,001867: 32,3765           33531                                    ZERORTE                               
041121,001868: 32,3766           77650        XT1LIMX            GOTO                                           
041122,001869: 32,3767           00024                                    20D                                   
041123,001870: 

Page 931

041125,001872:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041126,001873: 
041127,001874: 36,3242                                           BANK     36                                    
041128,001875: 35,2000                                           SETLOC   RTECON1                               
041129,001876: 35,2000                                           BANK                                           
041130,001877: 
041131,001878: 35,3504           20000 00000  1RTEB1             2DEC     1.         B-1                        
041132,001879: 35,3506           10000 00000  1RTEB2             2DEC     1.         B-2                        
041133,001880: 35,3510           04000 00000  1RTEB3             2DEC     1.         B-3                        
041134,001881: 35,3512           02000 00000  1RTEB4             2DEC     1.         B-4                        
041135,001882: 35,3514           00020 00000  1RTEB10            2DEC     1.         B-10                       
041136,001883: 35,3516           00004 00000  1RTEB12            2DEC     1.         B-12                       
041137,001884: 35,3520           00002 00000  1RTEB13            2DEC     1.         B-13                       
041138,001885: 35,3522           00000 04000  1RTEB17            2DEC     1.         B-17                       
041139,001886: 35,3524           00000 00010  1RTEB25            2DEC     1.         B-25                       
041140,001887:                                                                                                  #                                        * * B25 AND B28 MUST BE CONSECUTIVE * * 
041141,001888: 35,3526           00000 00001  1RTEB28            2DEC     1.         B-28                       
041142,001889: 35,3530           00000 00000  ZERORTE            2DEC     0          B-28                       
041143,001890: 35,3532           77777 77557  M144RTE            2DEC     -144.      B-28                       
041144,001891: 35,3534           77777 77760  M15RTE             2DEC     -15        B-28                       
041145,001892: 35,3536           00000 00012  10RTE              2DEC     10         B-28                       
041146,001893: 35,3540           54631 63145  M.6RTE             2DEC     -.6                                   
041147,001894: 35,3542           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
041148,001895: 35,3544           77777 77771  M6RTEB28           2DEC     -6         B-28                       
041149,001896: 35,3546           37777 37777  2RTEB1             2OCT     3777737777                            
041150,001897: 35,3550           77777 77766  M9RTEB28           2DEC     -9         B-28                       
041151,001898: 35,3552           77777 77767  M8RTEB28           2DEC     -8         B-28                       
041152,001899: 35,3554           00000 35610  30480RTE           2DEC     30480.     B-29                       
041153,001900: 35,3556           37405 12250  VCSPS              2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)

Page 932

041155,001902: 35,3560           33041 37714  VCRCS              2DEC     27.0664    B-5                        
041156,001903: 35,3562           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
041157,001904: 35,3564           20000 00000  CSUBT              2DEC     .5                                    
041158,001905: 35,3566           00605        OCT605             OCT      00605                                 
041159,001906: 35,3567           00612        OCT612             OCT      00612                                 
041160,001907: 35,3570           40214 45266  MCOS7.5            2DEC     -.99144486                            
041161,001908: 35,3572           73645 56536  MSIN7.5            2DEC     -.13052619                            
041162,001909: 35,3574           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
041163,001910: 35,3576           16525 12525  THETA165           2DEC     .4583333333                            
041164,001911: 35,3600           22525 12525  THETA210           2DEC     .5833333333                            
041165,001912: 35,3602           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
041166,001913: 35,3604           00000 00062  EPC2RTE            2DEC     100.       B-29                       
041167,001914: 35,3606           00020 14223  EPC3RTE            2DEC     .001                                  
041168,001915: 35,3610           00000 05174  EPC4RTE            2DEC     .00001                                
041169,001916: 35,3612           00002 21727  EPC5RTE            2DEC     .01        B-6                        
041170,001917: 35,3614           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
041171,001918: 35,3616           00000 00764  EPC7RTE            2DEC     1000.      B-29                       
041172,001919: 35,3620           00000 00010  EPC9RTE            2DEC     1.         B-25                       
041173,001920: 35,3622           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
041174,001921: 
041175,001922: 35,3624                                           BANK     35                                    
041176,001923: 35,2000                                           SETLOC   RTECON1                               
041177,001924: 35,2000                                           BANK                                           
041178,001925: 
041179,001926: 35,3624           75725 75417  C4RTE              2DEC     -6.986643  E7         B-30            
041180,001927: 35,3626           00325 23740  K1RTE              2DEC     7.         E6         B-29            
041181,001928: 35,3630           00306 06614  K2RTE              2DEC     6495000.   B-29                       
041182,001929: 35,3632           76027 70156  K3RTE              2DEC     -.06105                               
041183,001930: 35,3634           74517 54131  K4RTE              2DEC     -.10453                               
041184,001931: 35,3636           30276 05001  RTMURTE            2DEC     199650.501 B-18                       

Page 933

041186,001933: 35,3640           00003 27040  E3RTE              2DEC     121920.    B-29                       
041187,001934: 

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