Source Code

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

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

037246,000002:                                                                                                  ## Copyright:   Public domain.
037247,000003:                                                                                                  ## Filename:    P37_P70.agc
037248,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
037249,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
037250,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
037251,000007:                                                                                                  ## Assembler:   yaYUL
037252,000008:                                                                                                  ## Reference:   pp. 847-890 of 1701.pdf.
037253,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037254,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
037255,000011:                                                                                                  ## Mod history: 08/21/04 RSB.   Began transcribing.
037256,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes. Added missing # in comment.
037257,000013:                                                                                                  ##
037258,000014:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
037259,000015:                                                                                                  ## from a scanned document obtained from MIT's website,
037260,000016:                                                                                                  ## http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf.  Notations on this
037261,000017:                                                                                                  ## document read, in part:
037262,000018:                                                                                                  ##
037263,000019:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
037264,000020:                                                                                                  ##      2021111-041.  October 28, 1968.  
037265,000021:                                                                                                  ##
037266,000022:                                                                                                  ##      This AGC program shall also be referred to as
037267,000023:                                                                                                  ##                              Colossus 1A
037268,000024:                                                                                                  ##
037269,000025:                                                                                                  ##      Prepared by
037270,000026:                                                                                                  ##                      Massachusetts Institute of Technology
037271,000027:                                                                                                  ##                      75 Cambridge Parkway
037272,000028:                                                                                                  ##                      Cambridge, Massachusetts
037273,000029:                                                                                                  ##      under NASA contract NAS 9-4065.
037274,000030:                                                                                                  ##
037275,000031:                                                                                                  ## Refer directly to the online document mentioned above for further information.
037276,000032:                                                                                                  ## Please report any errors (relative to 1701.pdf) to info@sandroid.org.
037277,000033:                                                                                                  ##
037278,000034:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
037279,000035:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
037280,000036:                                                                                                  ## source file, and then is proofed to incorporate any changes.
037281,000037: 

Page 847

037283,000039: 31,3215                                           BANK     31                                    
037284,000040: 36,2000                                           SETLOC   RTE1                                  
037285,000041: 36,2000                                           BANK                                           
037286,000042: 
037287,000043: 36,2502  E7,1631                                  EBANK=   RTEDVD                                
037288,000044: 36,2502                                           COUNT    31/P37                                
037289,000045: 
037290,000046:                                                                                                  #  PROGRAM DESCRIPTION:  P37, RETURN TO EARTH
037291,000047: 
037292,000048:                                                                                                  #  DESCRIPTION
037293,000049:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
037294,000050:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
037295,000051:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
037296,000052:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
037297,000053:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
037298,000054: 
037299,000055:                                                                                                  #  CALLING SEQUENCE
037300,000056:                                                                                                  #        L       TC      P37
037301,000057: 
037302,000058:                                                                                                  #  SUBROUTINES CALLED
037303,000059:                                                                                                  #        PREC100
037304,000060:                                                                                                  #                V2T100
037305,000061:                                                                                                  #                RTENCK2
037306,000062:                                                                                                  #                RTENCK3
037307,000063:                                                                                                  #                TIMERAD
037308,000064:                                                                                                  #                PARAM
037309,000065:                                                                                                  #        V2T100
037310,000066:                                                                                                  #                GAMDV10
037311,000067:                                                                                                  #                XT1LIM
037312,000068:                                                                                                  #                DVCALC
037313,000069:                                                                                                  #        RTENCK1
037314,000070:                                                                                                  #                INTSTALL
037315,000071:                                                                                                  #                INTEGRVS
037316,000072:                                                                                                  #        RTEVN
037317,000073:                                                                                                  #                RETDISP
037318,000074:                                                                                                  #                TMRAD100
037319,000075:                                                                                                  #                AUGEKUGL
037320,000076:                                                                                                  #                LAT-LONG
037321,000077:                                                                                                  #        TMRAD100
037322,000078:                                                                                                  #                TIMERAD
037323,000079:                                                                                                  #        INVC100
037324,000080:                                                                                                  #                CSMPREC
037325,000081:                                                                                                  #        GETERAD
037326,000082:                                                                                                  #        TIMETHET
037327,000083:                                                                                                  #        P370ALRM
037328,000084:                                                                                                  #        VN1645
037329,000085:                                                                                                  #        POLY
037330,000086: 
037331,000087:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037332,000088:                                                                                                  #        CSM STATE VECTOR

Page 848

037334,000090:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
037335,000091: 
037336,000092:                                                                                                  #  ASTRONAUT INPUT
037337,000093:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
037338,000094:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
037339,000095:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
037340,000096:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
037341,000097: 
037342,000098:                                                                                                  #  OUTPUT
037343,000099:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
037344,000100:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037345,000101:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037346,000102:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,00 FT. ENTRY ALTITUDE          DP      B0      REVS + ABOVE HORIZON
037347,000103:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037348,000104:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037349,000105:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037350,000106:                                                                                                  #     TARGETING COMPUTATION DISPLAY
037351,000107:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
037352,000108:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
037353,000109:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
037354,000110:                                                                                                  #     THRUST PROGRAM COMMUNICATION
037355,000111:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
037356,000112:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
037357,000113:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
037358,000114:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
037359,000115:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
037360,000116: 
037361,000117: 36,2502           05301        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE
037362,000118: 36,2503           00004                           OCT      4                                     
037363,000119: 
037364,000120: 36,2504           06006                           TC       INTPRET                               
037365,000121: 36,2505           66170                           AXT,1    SXA,1                                 
037366,000122: 36,2506           04000                           OCT      04000                                 
037367,000123: 36,2507           03424                                    ECSTEER                               
037368,000124: 36,2510           77776                           EXIT                                           
037369,000125: 36,2511           33242                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
037370,000126: 36,2512           03231                           TCR      P370GOF                               #                OVERLAYED WITH TIG
037371,000127: 36,2513           12511                           TCF      -2                                    #  DISPLAY NEW DATA
037372,000128: 36,2514           33246                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
037373,000129: 36,2515           03205                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RETDVD
037374,000130: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
037375,000131: 36,2517           06006        RTE299             TC       INTPRET                               
037376,000132: 36,2520           71331                           SSP      DLOAD                                 
037377,000133: 36,2521           00122                                    OVFIND                                
037378,000134: 36,2522           00000                                    0                                     
037379,000135: 36,2523           03767                                    VPRED                                 
037380,000136: 36,2524           17632                           STODL    RTEDVD                                
037381,000137: 36,2525           03771                                    GAMMAEI                               
037382,000138: 36,2526           17634                           STODL    RTEGAM2D                              
037383,000139: 36,2527           31667                                    1RTEB13                               

Page 849

037385,000141: 36,2530           17735                           STODL    CONICX1                               
037386,000142: 36,2531           33756                                    C4RTE                                 
037387,000143: 36,2532           37652                           STCALL   MAMAX1                                
037388,000144: 36,2533           64427                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
037389,000145: 36,2534           77545                           DLOAD    EXIT                                  
037390,000146: 36,2535           03646                                    R(T1)                                 
037391,000147: 36,2536           07171                           TC       POLY                                  
037392,000148: 36,2537           00002                           DEC      2          B-14                       
037393,000149: 36,2540           02544 35436                     2DEC     181000434  B-31                       
037394,000150: 36,2542           14040 05066                     2DEC     1.50785145 B-2                        
037395,000151: 36,2544           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
037396,000152: 36,2546           26415 25057                     2DEC*    9.76938926 E-18       B56*            
037397,000153: 
037398,000154: 36,2550           06006                           TC       INTPRET                               
037399,000155: 36,2551           77752                           SL1                                            
037400,000156: 36,2552           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
037401,000157: 36,2553           31717                                    M9RTEB28                              
037402,000158: 36,2554           17730                           STODL    NN1A                                  
037403,000159: 36,2555           33762                                    K2RTE                                 
037404,000160: 36,2556           17636        RTE320             STODL    RCON                                  #  RCON=K2
037405,000161: 36,2557           03634                                    RTEGAM2D                              
037406,000162: 36,2560           44254                           BZE      BDSU                                  
037407,000163: 36,2561           74570                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
037408,000164: 36,2562           31655                                    1RTEB2                                
037409,000165: 36,2563           71406                           PUSH     COS                                   #                                        PL02D
037410,000166: 36,2564           73525                           PDDL     SIN                                   
037411,000167: 36,2565           45465                           BDDV     STADR                                 #                                        PL00D
037412,000168: 36,2566           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
037413,000169: 36,2567           74603                                    RTE360                                
037414,000170: 36,2570           45345        RTE340             DLOAD    DSU                                   
037415,000171: 36,2571           03646                                    R(T1)                                 
037416,000172: 36,2572           33760                                    K1RTE                                 
037417,000173: 36,2573           71240                           BMN      DLOAD                                 
037418,000174: 36,2574           74600                                    RTE350                                
037419,000175: 36,2575           33766                                    K4RTE                                 
037420,000176: 36,2576           37726                           STCALL   X(T2)                                 #  X(T2)=K4
037421,000177: 36,2577           74603                                    RTE360                                
037422,000178: 36,2600           77745        RTE350             DLOAD                                          
037423,000179: 36,2601           33764                                    K3RTE                                 
037424,000180: 36,2602           03726                           STORE    X(T2)                                 #  X(T2)=K3
037425,000181: 36,2603           77624        RTE360             CALL                                           
037426,000182: 36,2604           65136                                    V2T100                                
037427,000183: 36,2605           52054                           BZE      GOTO                                  
037428,000184: 36,2606           74610                                    RTE367                                
037429,000185: 36,2607           74772                                    RTEALRM                               
037430,000186: 36,2610           77775        RTE367             VLOAD                                          
037431,000187: 36,2611           03640                                    R(T1)/                                

Page 850

037433,000189: 36,2612           16657                           STODL    RVEC                                  
037434,000190: 36,2613           03636                                    RCON                                  
037435,000191: 36,2614           26760                           STOVL    RDESIRED                              
037436,000192: 36,2615           03700                                    V2(T1)/                               
037437,000193: 36,2616           36746                           STCALL   VVEC                                  
037438,000194: 36,2617           64272                                    TMRAD100                              
037439,000195: 36,2620           77615                           DAD                                            
037440,000196: 36,2621           03716                                    T1                                    
037441,000197: 36,2622           17736                           STODL    T2                                    
037442,000198: 36,2623           03634                                    RTEGAM2D                              
037443,000199: 36,2624           52054                           BZE      GOTO                                  
037444,000200: 36,2625           74627                                    RTE369                                
037445,000201: 36,2626           74651                                    RTE372                                
037446,000202: 36,2627           51575        RTE369             VLOAD    ABVAL                                 
037447,000203: 36,2630           03710                                    V(T2)/                                
037448,000204: 36,2631           77776                           EXIT                                           
037449,000205: 36,2632           07171                           TC       POLY                                  
037450,000206: 36,2633           00002                           DEC      2          B-14                       
037451,000207: 36,2634           00000 00000                     2DEC     0          B-28                       
037452,000208: 36,2636           47021 65002                     2DEC     -4.8760771 E-2        B4              
037453,000209: 36,2640           35610 07722                     2DEC     4.5419476  E-4        B11             
037454,000210: 36,2642           63772 63276                     2DEC     -1.4317675 E-6        B18             
037455,000211: 
037456,000212: 36,2644           06006                           TC       INTPRET                               
037457,000213: 36,2645           77615                           DAD                                            
037458,000214: 36,2646           01352                                    RTED1                                 
037459,000215: 36,2647           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
037460,000216: 36,2650           74653                                    RTE373                                
037461,000217: 36,2651           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
037462,000218: 36,2652           03726                                    X(T2)                                 
037463,000219: 36,2653           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D
037464,000220: 36,2654           03726                                    X(T2)                                 
037465,000221: 36,2655           53575                           VLOAD    UNIT                                  
037466,000222: 36,2656           03656                                    R(T2)/                                #                                        B58
037467,000223: 36,2657           36152                           STCALL   ALPHAV                                
037468,000224: 36,2660           26437                                    GETERAD                               
037469,000225: 36,2661           77615                           DAD                                            
037470,000226: 36,2662           33772                                    E3RTE                                 
037471,000227: 36,2663           45206                           PUSH     DSU                                   #  RCON,=(E1/1+E2BETA11)**.5)+E3 B29 PL04D
037472,000228: 36,2664           03636                                    RCON                                  
037473,000229: 36,2665           45246                           ABS      DSU                                   
037474,000230: 36,2666           31754                                    EPC2RTE                               
037475,000231: 36,2667           52040                           BMN      GOTO                                  
037476,000232: 36,2670           74672                                    RTE374                                
037477,000233: 36,2671           74677                                    RTE375                                
037478,000234: 36,2672           51545        RTE374             DLOAD    ABS                                   
037479,000235: 36,2673           00001                                    00D                                   

Page 851

037481,000237: 36,2674           50025                           DSU      BMN                                   
037482,000238: 36,2675           31756                                    EPC3RTE                               
037483,000239: 36,2676           74747                                    P37E                                  
037484,000240: 36,2677           43345        RTE375             DLOAD    DAD                                   
037485,000241: 36,2700           03730                                    NN1A                                  
037486,000242: 36,2701           31675                                    1RTEB28                               
037487,000243: 36,2702           67240                           BMN      SLOAD                                 
037488,000244: 36,2703           74707                                    RTE380                                
037489,000245: 36,2704           31735                                    OCT605                                
037490,000246: 36,2705           77650                           GOTO                                           
037491,000247: 36,2706           74772                                    RTEALRM                               #  TOO MANY ITERATIONS
037492,000248: 36,2707           03730        RTE380             STORE    NN1A                                  
037493,000249: 36,2710           53025                           DSU      BZE                                   
037494,000250: 36,2711           31721                                    M8RTEB28                              
037495,000251: 36,2712           74730                                    RTE385                                
037496,000252: 36,2713           45345                           DLOAD    DSU                                   
037497,000253: 36,2714           00001                                    00D                                   
037498,000254: 36,2715           03666                                    DRCON                                 
037499,000255: 36,2716           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=21                 PL06D
037500,000256: 36,2717           00047                                    X1                                    
037501,000257: 36,2720           03670                                    RPRE'                                 
037502,000258: 36,2721           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
037503,000259: 36,2722           03726                                    X(T2)                                 
037504,000260: 36,2723           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
037505,000261: 36,2724           00001                                    00D                                   
037506,000262: 36,2725           20201                                    0,1                                   
037507,000263: 36,2726           77650                           GOTO                                           
037508,000264: 36,2727           74732                                    RTE390                                
037509,000265: 36,2730           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
037510,000266: 36,2731           00001                                    00D                                   
037511,000267: 36,2732           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
037512,000268: 36,2733           77626                           STADR                                          
037513,000269: 36,2734           60141                           STODL    RCON                                  #  RCON=RCON,
037514,000270: 36,2735           77600                           BOV                                            
037515,000271: 36,2736           74603                                    RTE360                                
037516,000272: 36,2737           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
037517,000273: 36,2740           03726                                    X(T2)                                 
037518,000274: 36,2741           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
037519,000275: 36,2742           00021                                    16D                                   
037520,000276: 36,2743           77615                           DAD                                            
037521,000277: 36,2744           03726                                    X(T2)                                 
037522,000278: 36,2745           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
037523,000279: 36,2746           74603                                    RTE360                                #  REITERATE
037524,000280: 36,2747           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
037525,000281: 36,2750           74776                                    RTEVN                                 
037526,000282: 36,2751           41345        RTE505             DLOAD    DMP                                   
037527,000283: 36,2752           03720                                    PCON                                  
037528,000284: 36,2753           03754                                    BETA1                                 
037529,000285: 36,2754           53021                           BDSU     BZE                                   
037530,000286: 36,2755           03636                                    RCON                                  

Page 852

037532,000288: 36,2756           74764                                    RTE510                                
037533,000289: 36,2757           71240                           BMN      DLOAD                                 
037534,000290: 36,2760           74764                                    RTE510                                
037535,000291: 36,2761           31655                                    1RTEB2                                
037536,000292: 36,2762           77650                           GOTO                                           #  ENTRY NEAR APOGEE
037537,000293: 36,2763           74766                                    RTE515                                
037538,000294: 36,2764           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
037539,000295: 36,2765           31655                                    1RTEB2                                
037540,000296: 36,2766           37761        RTE515             STCALL   PHI2                                  
037541,000297: 36,2767           64515                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
037542,000298: 36,2770           77654        RTE625             BZE                                            
037543,000299: 36,2771           75024                                    P37G                                  
037544,000300: 36,2772           77624        RTEALRM            CALL                                           
037545,000301: 36,2773           64255                                    P370ALRM                              
037546,000302: 36,2774           77776                           EXIT                                           
037547,000303: 36,2775           12502                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
037548,000304: 
037549,000305:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
037550,000306: 
037551,000307: 36,2776           45020        RTEVN              STQ      CALL                                  
037552,000308: 36,2777           03763                                    VNSTORE                               
037553,000309: 36,3000           64311                                    RTEDISP                               #  DISPLAY PREPARATION
037554,000310: 36,3001           77776                           EXIT                                           
037555,000311: 36,3002           33244                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
037556,000312: 36,3003           03215                           TCR      P370GOFR                              #        IN LAT(SPL),LNG(SPL),-
037557,000313: 36,3004           34710                           CAF      FOUR                                  
037558,000314: 36,3005           03211                           TCR      37BLANK    +1                         
037559,000315: 36,3006           13013                           TCF      +5                                    
037560,000316: 36,3007           12502                           TCF      P37                                   #  RECYCLE
037561,000317: 36,3010           33245                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
037562,000318: 36,3011           03231                           TCR      P370GOF                               
037563,000319: 36,3012           12502                           TCF      P37                                   #  RECYCLE
037564,000320: 36,3013           33246                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
037565,000321: 36,3014           03205                           TCR      P37GFRB1                              #        IN -,VPRED,GAMMAEI
037566,000322: 36,3015           12502                           TCF      P37                                   #  RECYCLE
037567,000323: 36,3016           33247                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
037568,000324: 36,3017           03231                           TCR      P370GOF                               
037569,000325: 36,3020           12502                           TCF      P37                                   #  RECYCLE
037570,000326: 36,3021           06006                           TCR      INTPRET                               
037571,000327: 36,3022           77650                           GOTO                                           
037572,000328: 36,3023           03763                                    VNSTORE                               
037573,000329: 
037574,000330:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
037575,000331: 
037576,000332: 36,3024           77624        P37G               CALL                                           
037577,000333: 36,3025           74776                                    RTEVN                                 
037578,000334: 36,3026           77776                           EXIT                                           
037579,000335: 36,3027           34716        P37N               CAF      SEVEN                                 
037580,000336: 36,3030           55131                           TS       OPTION1                               
037581,000337: 36,3031           34712                           CAF      ONE                                   

Page 853

037583,000339: 36,3032           55132                           TS       OPTION2                               
037584,000340: 36,3033           33243                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION     SPS ASSUMED
037585,000341: 36,3034           03231                           TCR      P370GOF                               
037586,000342: 36,3035           13033                           TCF      -2                                    #  RECYCLE
037587,000343: 36,3036           06006                           TC       INTPRET                               #  PROCEED
037588,000344: 36,3037           67201                           SETPD    SLOAD                                 
037589,000345: 36,3040           00001                                    00D                                   
037590,000346: 36,3041           01133                                    OPTION2                               
037591,000347: 36,3042           53025                           DSU      BZE                                   
037592,000348: 36,3043           31667                                    1RTEB13                               
037593,000349: 36,3044           75053                                    P37Q                                  
037594,000350: 36,3045           60335                           SLOAD    NORM                                  #  SPS
037595,000351: 36,3046           00111                                    EMDOT                                 
037596,000352: 36,3047           00047                                    X1                                    
037597,000353: 36,3050           52125                           PDDL     GOTO                                  
037598,000354: 36,3051           31725                                    VCSPS                                 
037599,000355: 36,3052           75064                                    P37T                                  
037600,000356: 36,3053           43145        P37Q               DLOAD    BON                                   #  RCS
037601,000357: 36,3054           31731                                    MDOTRCS                               
037602,000358: 36,3055           00700                                    NJETSFLG                              
037603,000359: 36,3056           75060                                    P37R                                  
037604,000360: 36,3057           77752                           SL1                                            
037605,000361: 36,3060           77752        P37R               SL1                                            
037606,000362: 36,3061           65301                           NORM     PDDL                                  
037607,000363: 36,3062           00047                                    X1                                    
037608,000364: 36,3063           31727                                    VCRCS                                 
037609,000365: 36,3064           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2 PL02D
037610,000366: 36,3065           03706                                    DV                                    
037611,000367: 36,3066           77776                           EXIT                                           
037612,000368: 36,3067           07171                           TC       POLY                                  
037613,000369: 36,3070           00001                           DEC      1          B-14                       
037614,000370: 36,3071           00001 05070                     2DEC     5.66240507 E-4        B-3             
037615,000371: 36,3073           17527 36700                     2DEC     9.79487897 E-1        B-1             
037616,000372: 36,3075           47114 70670                     2DEC     -.388281955 B1                         
037617,000373: 36,3077           06006                           TC       INTPRET                               
037618,000374: 36,3100           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A     B3 PL04D
037619,000375: 36,3101           03076                                    WEIGHT/G                              
037620,000376: 36,3102           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16 PL00D
037621,000377: 36,3103           41257                           SL*      DMP                                   
037622,000378: 36,3104           20165                                    0          -12D,1                     
037623,000379: 36,3105           31733                                    CSUBT                                 
037624,000380: 36,3106           77621                           BDSU                                           
037625,000381: 36,3107           03716                                    T1                                    
037626,000382: 36,3110           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB         B28
037627,000383: 36,3111           77776                           EXIT                                           
037628,000384: 36,3112           33242                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
037629,000385: 36,3113           03231                           TCR      P370GOF                               

Page 854

037631,000387: 36,3114           13112                           TCF      -2                                    
037632,000388: 36,3115           34714                           CAF      ZERO                                  
037633,000389: 36,3116           55125                           TS       VHFCNT                                
037634,000390: 36,3117           55126                           TS       TRKMKCNT                              
037635,000391: 36,3120           06006                           TC       INTPRET                               
037636,000392: 36,3121           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
037637,000393: 36,3122           65055                                    RTENCK1                               
037638,000394: 36,3123           53575                           VLOAD    UNIT                                  #                        PL00D
037639,000395: 36,3124           03656                                    R(T2)/                                
037640,000396: 36,3125           74315                           PDVL     VXSC                                  #  UR2                   B1 PL08D
037641,000397: 36,3126           03740                                    UR1/                                  
037642,000398: 36,3127           31740                                    MCOS7.5                               
037643,000399: 36,3130           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)          B1 PL12D
037644,000400: 36,3131           03746                                    UH/                                   
037645,000401: 36,3132           31742                                    MSIN7.5                               
037646,000402: 36,3133           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2 PL00D
037647,000403: 36,3134           50015                           DAD      BMN                                   
037648,000404: 36,3135           31744                                    MCOS22.5                              
037649,000405: 36,3136           75163                                    P37W                                  
037650,000406: 36,3137           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
037651,000407: 36,3140           03746                                    UH/                                   
037652,000408: 36,3141           03656                                    R(T2)/                                
037653,000409: 36,3142           71240                           BMN      DLOAD                                 
037654,000410: 36,3143           75147                                    P37U                                  
037655,000411: 36,3144           31746                                    THETA165                              
037656,000412: 36,3145           52006                           PUSH     GOTO                                  
037657,000413: 36,3146           75151                                    P37V                                  
037658,000414: 36,3147           41545        P37U               DLOAD    PUSH                                  
037659,000415: 36,3150           31750                                    THETA210                              
037660,000416: 36,3151           77756        P37V               SIN                                            
037661,000417: 36,3152           16732                           STODL    SNTH                                  
037662,000418: 36,3153           43146                           COS      CLEAR                                 
037663,000419: 36,3154           03666                                    RVSW                                  
037664,000420: 36,3155           26734                           STOVL    CSTH                                  
037665,000421: 36,3156           03640                                    R(T1)/                                
037666,000422: 36,3157           26657                           STOVL    RVEC                                  
037667,000423: 36,3160           03700                                    V2(T1)/                               
037668,000424: 36,3161           36746                           STCALL   VVEC                                  
037669,000425: 36,3162           24737                                    TIMETHET                              
037670,000426: 36,3163           43014        P37W               CLEAR    CLEAR                                 
037671,000427: 36,3164           01267                                    XDELVFLG                              
037672,000428: 36,3165           03665                                    NORMSW                                
037673,000429: 36,3166           77214                           SET      VLOAD                                 
037674,000430: 36,3167           01071                                    FINALFLG                              
037675,000431: 36,3170           77626                           STADR                                          
037676,000432: 36,3171           60362                           STODL    RTARG                                 
037677,000433: 36,3172           00037                                    T                                     
037678,000434: 36,3173           77615                           DAD                                            
037679,000435: 36,3174           03716                                    T1                                    
037680,000436: 36,3175           27656                           STOVL    TPASS4                                

Page 855

037682,000438: 36,3176           03700                                    V2(T1)/                               
037683,000439: 36,3177           77651                           VSU                                            
037684,000440: 36,3200           03672                                    V(T1)/                                
037685,000441: 36,3201           37646                           STCALL   DELVSIN                               
037686,000442: 36,3202           73005                                    VN1645                                
037687,000443: 36,3203           77650                           GOTO                                           
037688,000444: 36,3204           75163                                    P37W                                  
037689,000445: 
037690,000446:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
037691,000447: 
037692,000448: 36,3205           00006        P37GFRB1           EXTEND                                         
037693,000449: 36,3206           23762                           QXCH     SPRTEX                                
037694,000450: 36,3207           03215                           TCR      P370GOFR                              
037695,000451: 36,3210           34712        37BLANK            CAF      ONE                                   
037696,000452: 36,3211           05415                           TCR      BLANKET                               
037697,000453: 36,3212           15112                           TCF      ENDOFJOB                              
037698,000454: 36,3213           01762                           TC       SPRTEX                                #  RECYCLE
037699,000455: 36,3214           13240                           TCF      P37PROC                               #  PROCEED
037700,000456: 
037701,000457:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
037702,000458: 
037703,000459: 36,3215           00006        P370GOFR           EXTEND                                         
037704,000460: 36,3216           23733                           QXCH     RTENCKEX                              
037705,000461: 36,3217           04555                           TCR      BANKCALL                              
037706,000462: 36,3220           20763                           CADR     GOFLASHR                              
037707,000463: 36,3221           14106                           TCF      GOTOP00H                              #  TERMINATE
037708,000464: 36,3222           13225                           TCF      +3                                    
037709,000465: 36,3223           13227                           TCF      +4                                    
037710,000466: 36,3224           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
037711,000467: 36,3225           51733                           INDEX    RTENCKEX                              #  PROCEED
037712,000468: 36,3226           10004                           TCF      0          +4                         
037713,000469: 36,3227           51733                           INDEX    RTENCKEX                              #  RECYCLE
037714,000470: 36,3230           10003                           TCF      0          +3                         
037715,000471: 
037716,000472:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
037717,000473: 
037718,000474: 36,3231           00006        P370GOF            EXTEND                                         
037719,000475: 36,3232           23762                           QXCH     SPRTEX                                
037720,000476: 36,3233           04555                           TCR      BANKCALL                              
037721,000477: 36,3234           20624                           CADR     GOFLASH                               
037722,000478: 36,3235           14106                           TCF      GOTOP00H                              
037723,000479: 36,3236           13240                           TCF      +2                                    
037724,000480: 36,3237           01762                           TC       SPRTEX                                
037725,000481: 36,3240           51762        P37PROC            INDEX    SPRTEX                                
037726,000482: 36,3241           10001                           TCF      0          +1                         
037727,000483: 36,3242           01441        V6N33RTE           VN       0633                                  
037728,000484: 36,3243           01006        V4N06RTE           VN       0406                                  
037729,000485: 36,3244           01475        V6N61RTE           VN       0661                                  
037730,000486: 36,3245           01447        V6N39RTE           VN       0639                                  
037731,000487: 36,3246           01474        V6N60RTE           VN       0660                                  

Page 856

037733,000489: 36,3247           01521        V6N81RTE           VN       0681                                  
037734,000490: 32,2255                                           BANK     32                                    
037735,000491: 32,2000                                           SETLOC   RTE                                   
037736,000492: 32,2000                                           BANK                                           
037737,000493: 32,2255                                           COUNT    32/RTE                                
037738,000494: 

Page 857

037740,000496:                                                                                                  #  ALARM DISPLAY SUBROUTINE
037741,000497: 
037742,000498: 32,2255           77420        P370ALRM           STQ      EXIT                                  
037743,000499: 32,2256           03762                                    SPRTEX                                
037744,000500: 32,2257           30154                           CA       MPAC                                  
037745,000501: 32,2260           05651                           TC       VARALARM                              
037746,000502: 32,2261           32271                           CAF      V5N09RTE                              
037747,000503: 32,2262           04555                           TC       BANKCALL                              
037748,000504: 32,2263           20624                           CADR     GOFLASH                               
037749,000505: 32,2264           14106                           TCF      GOTOP00H                              
037750,000506: 32,2265           12261                           TCF      -4                                    
037751,000507: 32,2266           06006                           TC       INTPRET                               
037752,000508: 32,2267           77650                           GOTO                                           
037753,000509: 32,2270           03762                                    SPRTEX                                
037754,000510: 32,2271           01211        V5N09RTE           VN       0509                                  
037755,000511: 

Page 858

037757,000513:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
037758,000514: 
037759,000515:                                                                                                  #  INPUT
037760,000516:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
037761,000517:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
037762,000518:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
037763,000519:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES        -2=EARTH        SP      B14
037764,000520: 
037765,000521:                                                                                                  #  OUTPUT
037766,000522:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037767,000523:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037768,000524:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
037769,000525: 
037770,000526: 32,2272           43020        TMRAD100           STQ      CLEAR                                 
037771,000527: 32,2273           03733                                    RTENCKEX                              
037772,000528: 32,2274           03666                                    RVSW                                  
037773,000529: 32,2275           67164                           AXC,2    SXA,2                                 
037774,000530: 32,2276           20000                           OCT      20000                                 
037775,000531: 32,2277           02756                                    SGNRDOT                               
037776,000532: 32,2300           45140                           LXC,1    CALL                                  
037777,000533: 32,2301           03734                                    CONICX1                               
037778,000534: 32,2302           25552                                    TIMERAD                               
037779,000535: 32,2303           27710                           STOVL    V(T2)/                                #                        PL00D
037780,000536: 32,2304           77626                           STADR                                          
037781,000537: 32,2305           60121                           STODL    R(T2)/                                
037782,000538: 32,2306           00037                                    T                                     
037783,000539: 32,2307           37724                           STCALL   T12                                   
037784,000540: 32,2310           03733                                    RTENCKEX                              
037785,000541: 

Page 859

037787,000543:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
037788,000544: 
037789,000545:                                                                                                  #  DESCRIPTION
037790,000546:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
037791,000547:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
037792,000548: 
037793,000549:                                                                                                  #  CALLING SEQUENCE
037794,000550:                                                                                                  #        L       CALL
037795,000551:                                                                                                  #        L+1             RTEDISP
037796,000552: 
037797,000553:                                                                                                  #  SUBROUTINES CALLED
037798,000554:                                                                                                  #        TMRAD100
037799,000555:                                                                                                  #        AUGEKUGL
037800,000556:                                                                                                  #        LAT-LONG
037801,000557: 
037802,000558:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037803,000559:                                                                                                  #     PUSHLIST
037804,000560:                                                                                                  #        NONE
037805,000561:                                                                                                  #     MPAC
037806,000562:                                                                                                  #        NONE
037807,000563:                                                                                                  #     OTHER
037808,000564:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037809,000565:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037810,000566:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
037811,000567:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
037812,000568:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7
037813,000569:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
037814,000570:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037815,000571: 
037816,000572:                                                                                                  #  OUTPUT
037817,000573:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037818,000574:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037819,000575:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
037820,000576:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037821,000577:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037822,000578:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037823,000579: 
037824,000580: 32,2311           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
037825,000581: 32,2312           03762                                    SPRTEX                                
037826,000582: 32,2313           03710                                    V(T2)/                                
037827,000583: 32,2314           65256                           UNIT     PDDL                                  
037828,000584: 32,2315           00045                                    36D                                   
037829,000585: 32,2316           17767                           STODL    VPRED                                 #  V(T2)
037830,000586: 32,2317           03736                                    T2                                    
037831,000587: 32,2320           77625                           DSU                                            
037832,000588: 32,2321           03413                                    SPRTETIG                              
037833,000589: 32,2322           26641                           STOVL    T3TOT4                                #  T21
037834,000590: 32,2323           03656                                    R(T2)/                                
037835,000591: 32,2324           50256                           UNIT     DOT                                   
037836,000592: 32,2325           77752                           SL1                                            

Page 860

037838,000594: 32,2326           44326                           ARCCOS   BDSU                                  
037839,000595: 32,2327           31655                                    1RTEB2                                
037840,000596: 32,2330           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
037841,000597: 32,2331           03700                                    V2(T1)/                               
037842,000598: 32,2332           41451                           VSU      PUSH                                  
037843,000599: 32,2333           03672                                    V(T1)/                                
037844,000600: 32,2334           57441                           DOT      DCOMP                                 
037845,000601: 32,2335           03740                                    UR1/                                  
037846,000602: 32,2336           41515                           PDVL     PUSH                                  
037847,000603: 32,2337           63345                           DLOAD    PDVL                                  
037848,000604: 32,2340           31677                                    ZERORTE                               
037849,000605: 32,2341           55441                           DOT      VDEF                                  
037850,000606: 32,2342           03746                                    UH/                                   
037851,000607: 32,2343           77772                           VSL1                                           
037852,000608: 32,2344           27405                           STOVL    DELVLVC                               #  DV/ (LVC)
037853,000609: 32,2345           03656                                    R(T2)/                                
037854,000610: 32,2346           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
037855,000611: 32,2347           45246                           ABVAL    DSU                                   
037856,000612: 32,2350           31723                                    30480RTE                              
037857,000613: 32,2351           26760                           STOVL    RDESIRED                              
037858,000614: 32,2352           03710                                    V(T2)/                                
037859,000615: 32,2353           36746                           STCALL   VVEC                                  
037860,000616: 32,2354           64272                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
037861,000617: 32,2355           53575                           VLOAD    UNIT                                  
037862,000618: 32,2356           03656                                    R(T2)/                                
037863,000619: 32,2357           53515                           PDVL     UNIT                                  #  UR3                           PL06D
037864,000620: 32,2360           03710                                    V(T2)/                                
037865,000621: 32,2361           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)      PL00D
037866,000622: 32,2362           65336                           ARCSIN   PDDL                                  #  V(T3)                         PL02D
037867,000623: 32,2363           00045                                    36D                                   
037868,000624: 32,2364           51525                           PDDL     ABS                                   
037869,000625: 32,2365           45006                           PUSH     CALL                                  #  /GAMMAE/                      PL04D
037870,000626: 32,2366           64075                                    AUGEKUGL                              #  PHIE                          PL06D
037871,000627: 32,2367           43215                           DAD      DAD                                   
037872,000628: 32,2370           03724                                    T12                                   #  T23
037873,000629: 32,2371           03736                                    T2                                    
037874,000630: 32,2372           14003                           STODL    02D                                   #  T(LS)=T2+T23+TE
037875,000631: 32,2373           00005                                    04D                                   
037876,000632: 32,2374           77756                           SIN                                            
037877,000633: 32,2375           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)            PL04D
037878,000634: 32,2376           77746                           COS                                            
037879,000635: 32,2377           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
037880,000636: 32,2400           53575                           VLOAD    UNIT                                  
037881,000637: 32,2401           03656                                    R(T2)/                                
037882,000638: 32,2402           41406                           PUSH     PUSH                                  
037883,000639: 32,2403           53515                           PDVL     UNIT                                  #                                PL22D
037884,000640: 32,2404           03710                                    V(T2)/                                
037885,000641: 32,2405           47315                           PDVL     VXV                                   
037886,000642: 32,2406           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)     PL10D
037887,000643: 32,2407           63361                           VXSC     PDVL                                  

Page 861

037889,000645: 32,2410           03403                                    LNG(SPL)                              
037890,000646: 32,2411           53361                           VXSC     VAD                                   #                                PL04D
037891,000647: 32,2412           03401                                    LAT(SPL)                              
037892,000648: 32,2413           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
037893,000649: 32,2414           00662                                    ERADFLAG                              
037894,000650: 32,2415           01663                                    LUNAFLAG                              
037895,000651: 32,2416           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
037896,000652: 32,2417           77624                           CALL                                           
037897,000653: 32,2420           26322                                    LAT-LONG                              
037898,000654: 32,2421           77745                           DLOAD                                          
037899,000655: 32,2422           01104                                    LAT                                   
037900,000656: 32,2423           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
037901,000657: 32,2424           01106                                    LONG                                  
037902,000658: 32,2425           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
037903,000659: 32,2426           03762                                    SPRTEX                                
037904,000660: 32,2427                                           COUNT*   $$/RTE                                
037905,000661: 

Page 862

037907,000663:                                                                                                  #  INITIAL VECTOR SUBROUTINE
037908,000664: 
037909,000665:                                                                                                  #  DESCRIPTION
037910,000666:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED.  PRECOMPUTATIONS OCCUR.
037911,000667: 
037912,000668:                                                                                                  #  CALLING SEQUENCE
037913,000669:                                                                                                  #        L       CALL
037914,000670:                                                                                                  #        L+1             INVC100
037915,000671: 
037916,000672:                                                                                                  #  NORMAL EXIT MODE
037917,000673:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037918,000674: 
037919,000675:                                                                                                  #  ALARM EXIT MODE
037920,000676:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOON'S SPHERE OF INFLUENCE
037921,000677: 
037922,000678:                                                                                                  #  SUBROUTINES CALLED
037923,000679:                                                                                                  #        CSMPREC
037924,000680: 
037925,000681:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037926,000682:                                                                                                  #     PUSHLIST
037927,000683:                                                                                                  #        NONE
037928,000684:                                                                                                  #     MPAC
037929,000685:                                                                                                  #        NONE
037930,000686:                                                                                                  #     OTHER
037931,000687:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
037932,000688:                                                                                                  #        CSM STATE VECTOR
037933,000689: 
037934,000690:                                                                                                  #  OUTPUT
037935,000691:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
037936,000692:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
037937,000693:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
037938,000694:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
037939,000695:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037940,000696:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
037941,000697: 
037942,000698: 32,2427           71220        INVC100            STQ      DLOAD                                 
037943,000699: 32,2430           03762                                    SPRTEX                                
037944,000700: 32,2431           03413                                    SPRTETIG                              
037945,000701: 32,2432           34041                           STCALL   TDEC1                                 
037946,000702: 32,2433           27022                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
037947,000703: 32,2434           67175                           VLOAD    SXA,2                                 
037948,000704: 32,2435           00001                                    RATT                                  
037949,000705: 32,2436           03755                                    P(T1)                                 
037950,000706: 32,2437           27640                           STOVL    R(T1)/                                
037951,000707: 32,2440           00007                                    VATT                                  
037952,000708: 32,2441           17672                           STODL    V(T1)/                                
037953,000709: 32,2442           00015                                    TAT                                   
037954,000710: 32,2443           03716                           STORE    T1                                    
037955,000711: 32,2444           53135                           SLOAD    BZE                                   
037956,000712: 32,2445           03756                                    P(T1)                                 

Page 863

037958,000714: 32,2446           64452                                    INVC109                               
037959,000715: 32,2447           52135        INVC107            SLOAD    GOTO                                  
037960,000716: 32,2450           31736                                    OCT612                                
037961,000717: 32,2451           74772                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037962,000718: 32,2452           53575        INVC109            VLOAD    UNIT                                  
037963,000719: 32,2453           03640                                    R(T1)/                                
037964,000720: 32,2454           17740                           STODL    UR1/                                  #  UR1/                                  B1
037965,000721: 32,2455           00045                                    36D                                   
037966,000722: 32,2456           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
037967,000723: 32,2457           03672                                    V(T1)/                                
037968,000724: 32,2460           77656                           UNIT                                           
037969,000725: 32,2461           03746                           STORE    UV1/                                  
037970,000726: 32,2462           72441                           DOT      SL1                                   
037971,000727: 32,2463           03740                                    UR1/                                  
037972,000728: 32,2464           03757                           STORE    CFPA                                  #  CFPA                                  B1
037973,000729: 32,2465           45246                           ABS      DSU                                   
037974,000730: 32,2466           31752                                    EPC1RTE                               
037975,000731: 32,2467           71240                           BMN      DLOAD                                 
037976,000732: 32,2470           64477                                    INVC115                               #  NOT NEAR RECTILINEAR
037977,000733: 32,2471           31655                                    1RTEB2                                
037978,000734: 32,2472           41525                           PDDL     PUSH                                  
037979,000735: 32,2473           31677                                    ZERORTE                               
037980,000736: 32,2474           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
037981,000737: 32,2475           77650                           GOTO                                           
037982,000738: 32,2476           64503                                    INVC120                               
037983,000739: 32,2477           47375        INVC115            VLOAD    VXV                                   
037984,000740: 32,2500           03740                                    UR1/                                  
037985,000741: 32,2501           03746                                    UV1/                                  
037986,000742: 32,2502           77606                           PUSH                                           #  N/ = UR X UV                          B2
037987,000743: 32,2503           41545        INVC120            DLOAD    PUSH                                  
037988,000744: 32,2504           77244                           BPL      VLOAD                                 
037989,000745: 32,2505           64507                                    INVC125                               
037990,000746: 32,2506           41476                           VCOMP    PUSH                                  #  CORRECT N/ FOR RETROGRADE TRAJECTORY
037991,000747: 32,2507           77775        INVC125            VLOAD                                          
037992,000748: 32,2510           53435                           VXV      UNIT                                  
037993,000749: 32,2511           03740                                    UR1/                                  
037994,000750: 32,2512           03746                           STORE    UH/                                   #  UH/                                   B1
037995,000751: 32,2513           77650                           GOTO                                           
037996,000752: 32,2514           03762                                    SPRTEX                                
037997,000753: 

Page 864

037999,000755:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038000,000756: 
038001,000757:                                                                                                  #  DESCRIPTION
038002,000758:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENEATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038003,000759:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038004,000760:                                                                                                  #        AS POSSIBLE.
038005,000761: 
038006,000762:                                                                                                  #  CALLING SEQUENCE
038007,000763:                                                                                                  #        L       CALL
038008,000764:                                                                                                  #        L+1             PREC100
038009,000765: 
038010,000766:                                                                                                  #  NORMAL EXIT MODE
038011,000767:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038012,000768: 
038013,000769:                                                                                                  #  ALARM EXIT MODE
038014,000770:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
038015,000771:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
038016,000772:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
038017,000773: 
038018,000774:                                                                                                  #  SUBROUTINES CALLED
038019,000775:                                                                                                  #        INTSTALL
038020,000776:                                                                                                  #        RTENCK2
038021,000777:                                                                                                  #        RTENCK3
038022,000778:                                                                                                  #        TIMERAD
038023,000779:                                                                                                  #        PARAM
038024,000780:                                                                                                  #        V2T100
038025,000781: 
038026,000782:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038027,000783:                                                                                                  #     PUSHLIST
038028,000784:                                                                                                  #        NONE
038029,000785:                                                                                                  #     MPAC
038030,000786:                                                                                                  #        NONE
038031,000787:                                                                                                  #     OTHER
038032,000788:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B28/B27 METERS
038033,000789:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038034,000790:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038035,000791:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038036,000792:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
038037,000793:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
038038,000794:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038039,000795:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038040,000796:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
038041,000797:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038042,000798:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038043,000799:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038044,000800:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038045,000801:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038046,000802:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
038047,000803:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE

Page 865

038049,000805: 
038050,000806:                                                                                                  #  OUTPUT
038051,000807:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038052,000808:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038053,000809:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038054,000810:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
038055,000811: 
038056,000812:                                                                                                  #  DEBRIS
038057,000813:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
038058,000814:                                                                                                  #        R/APRE          R/A                                                     DP      B6
038059,000815:                                                                                                  #        P/RPRE          P/R                                                     DP      B2
038060,000816:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
038061,000817:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
038062,000818:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
038063,000819:                                                                                                  #        RCON            FONAL RADIUS                                            DP      B29/B27 METERS
038064,000820:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
038065,000821: 
038066,000822: 32,2515           71220        PREC100            STQ      DLOAD                                 
038067,000823: 32,2516           03762                                    SPRTEX                                
038068,000824: 32,2517           31705                                    10RTE                                 
038069,000825: 32,2520           17730                           STODL    NN1A                                  
038070,000826: 32,2521           03636                                    RCON                                  
038071,000827: 32,2522           03664                           STORE    RD                                    
038072,000828: 32,2523           77745        PREC120            DLOAD                                          
038073,000829: 32,2524           31715                                    2RTEB1                                
038074,000830: 32,2525           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
038075,000831: 32,2526           31703                                    M15RTE                                
038076,000832: 32,2527           37732                           STCALL   NN2                                   
038077,000833: 32,2530           65103                                    RTENCK3                               
038078,000834: 32,2531           77624        PREC125            CALL                                           
038079,000835: 32,2532           11527                                    PARAM                                 
038080,000836: 32,2533           77745                           DLOAD                                          
038081,000837: 32,2534           02742                                    P                                     
038082,000838: 32,2535           14033                           STODL    P/RPRE                                
038083,000839: 32,2536           02744                                    R1A                                   
038084,000840: 32,2537           14035                           STODL    R/APRE                                
038085,000841: 32,2540           00041                                    R1                                    
038086,000842: 32,2541           14031                           STODL    RPRE                                  
038087,000843: 32,2542           03775                                    COGA                                  
038088,000844: 32,2543           77661                           SL                                             
038089,000845: 32,2544           20206                                    5                                     
038090,000846: 32,2545           03724                           STORE    X(T2)PRE                              
038091,000847: 32,2546           43276                           DCOMP    DAD                                   
038092,000848: 32,2547           03726                                    X(T2)                                 
038093,000849: 32,2550           45246                           ABS      DSU                                   
038094,000850: 32,2551           31760                                    EPC4RTE                               
038095,000851: 32,2552           50000                           BOV      BMN                                   
038096,000852: 32,2553           64555                                    PREC130                               
038097,000853: 32,2554           64736                                    PREC175                               
038098,000854: 
038099,000855:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 866

038101,000857: 32,2555           50145        PREC130            DLOAD    BMN                                   
038102,000858: 32,2556           03732                                    NN2                                   
038103,000859: 32,2557           64563                                    PREC140                               
038104,000860: 32,2560           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
038105,000861: 32,2561           31735                                    OCT605                                #        EXIT WITH ALARM
038106,000862: 32,2562           65053                                    PRECX                                 
038107,000863: 
038108,000864:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
038109,000865: 
038110,000866: 32,2563           53145        PREC140            DLOAD    BZE                                   
038111,000867: 32,2564           03730                                    NN1A                                  
038112,000868: 32,2565           64616                                    PREC162                               
038113,000869: 32,2566           42545        PREC150            DLOAD    SL4                                   #  ELLIPTIC CASE
038114,000870: 32,2567           00035                                    R/APRE                                
038115,000871: 32,2570           52525                           PDDL     SL3                                   #                                PL02D
038116,000872: 32,2571           00033                                    P/RPRE                                
038117,000873: 32,2572           41205                           DMP      DMP                                   #  (P/A)BETA1                    B4 PL00D
038118,000874: 32,2573           03754                                    BETA1                                 
038119,000875: 32,2574           57512                           SL2      DCOMP                                 
038120,000876: 32,2575           50015                           DAD      BMN                                   #  1-(P/A)BETA1=BETA2            B2
038121,000877: 32,2576           31655                                    1RTEB2                                
038122,000878: 32,2577           64602                                    PREC155                               
038123,000879: 32,2600           52166                           SQRT     GOTO                                  #  BETA2**.5=BETA3               B1
038124,000880: 32,2601           64604                                    PREC160                               
038125,000881: 32,2602           77745        PREC155            DLOAD                                          
038126,000882: 32,2603           31677                                    ZERORTE                               #  BETA3=0
038127,000883: 32,2604           43205        PREC160            DMP      DAD                                   
038128,000884: 32,2605           03761                                    PHI2                                  
038129,000885: 32,2606           31657                                    1RTEB3                                
038130,000886: 32,2607           60325                           PDDL     NORM                                  #  1+(PHI2)(beta3)               B3
038131,000887: 32,2610           00035                                    R/APRE                                
038132,000888: 32,2611           00047                                    X1                                    
038133,000889: 32,2612           77665                           BDDV                                           #                                PL00D
038134,000890: 32,2613           52057                           SL*      GOTO                                  #  (1+PHI2*BETA3)/(R/A)=BETA4    B1
038135,000891: 32,2614           20175                                    0          -4,1                       
038136,000892: 32,2615           64624                                    PREC165                               
038137,000893: 32,2616           60345        PREC162            DLOAD    NORM                                  
038138,000894: 32,2617           00031                                    RPRE                                  
038139,000895: 32,2620           00047                                    X1                                    
038140,000896: 32,2621           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
038141,000897: 32,2622           03664                                    RD                                    
038142,000898: 32,2623           20200                                    0          -1,1                       
038143,000899: 32,2624           45206        PREC165            PUSH     DSU                                   
038144,000900: 32,2625           31653                                    1RTEB1                                
038145,000901: 32,2626           77676                           DCOMP                                          
038146,000902: 32,2627           03765                           STORE    BETA12                                
038147,000903: 32,2630           71240                           BMN      DLOAD                                 
038148,000904: 32,2631           64642                                    PREC168                               
038149,000905: 32,2632           03724                                    X(T2)PRE                              
038150,000906: 32,2633           71240                           BMN      DLOAD                                 

Page 867

038152,000908: 32,2634           64640                                    PREC167                               
038153,000909: 32,2635           03765                                    BETA12                                
038154,000910: 32,2636           77676                           DCOMP                                          
038155,000911: 32,2637           03765                           STORE    BETA12                                
038156,000912: 32,2640           77745        PREC167            DLOAD                                          
038157,000913: 32,2641           03765                                    BETA12                                
038158,000914: 32,2642           45246        PREC168            ABS      DSU                                   
038159,000915: 32,2643           31764                                    EPC6RTE                               
038160,000916: 32,2644           71240                           BMN      DLOAD                                 
038161,000917: 32,2645           64736                                    PREC175                               
038162,000918: 32,2646           72405                           DMP      SL1                                   
038163,000919: 32,2647           00031                                    RPRE                                  
038164,000920: 32,2650           77606                           PUSH                                           #  RF = NEW RADIUS
038165,000921: 32,2651           43345        PREC170            DLOAD    DAD                                   
038166,000922: 32,2652           03732                                    NN2                                   
038167,000923: 32,2653           31675                                    1RTEB28                               
038168,000924: 32,2654           03732                           STORE    NN2                                   
038169,000925: 32,2655           43175                           VLOAD    SET                                   
038170,000926: 32,2656           03656                                    R(T2)/                                
038171,000927: 32,2657           03466                                    RVSW                                  
038172,000928: 32,2660           26657                           STOVL    RVEC                                  
038173,000929: 32,2661           03710                                    V(T2)/                                
038174,000930: 32,2662           77765                           SIGN                                           
038175,000931: 32,2663           03765                                    BETA12                                
038176,000932: 32,2664           16746                           STODL    VVEC                                  
038177,000933: 32,2665           31653                                    1RTEB1                                
038178,000934: 32,2666           57565                           SIGN     DCOMP                                 
038179,000935: 32,2667           03765                                    BETA12                                
038180,000936: 32,2670           71354                           LXA,2    DLOAD                                 
038181,000937: 32,2671           00154                                    MPAC                                  
038182,000938: 32,2672           67140                           LXC,1    SXA,2                                 
038183,000939: 32,2673           03734                                    CONICX1                               
038184,000940: 32,2674           02756                                    SGNRDOT                               
038185,000941: 32,2675           36760                           STCALL   RDESIRED                              #  COMPUTED DT12 (CORRECTION TO TIME OF
038186,000942: 32,2676           25552                                    TIMERAD                               #        NEW RADIUS)
038187,000943: 32,2677           75345                           DLOAD    SIGN                                  
038188,000944: 32,2700           00037                                    T                                     
038189,000945: 32,2701           03765                                    BETA12                                
038190,000946: 32,2702           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21               PL02D
038191,000947: 32,2703           03650                                    DT21PR                                
038192,000948: 32,2704           00047                                    X1                                    
038193,000949: 32,2705           53665                           BDDV     SL*                                   
038194,000950: 32,2706           00001                                    00D                                   
038195,000951: 32,2707           20176                                    0          -3,1                       
038196,000952: 32,2710           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        R3 PL04D
038197,000953: 32,2711           64716                                    PREC172                               
038198,000954: 32,2712           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0 PL04D
038199,000955: 32,2713           31715                                    2RTEB1                                
038200,000956: 32,2714           77650                           GOTO                                           
038201,000957: 32,2715           64720                                    PREC173                               

Page 868

038203,000959: 32,2716           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0 PL04D
038204,000960: 32,2717           31707                                    M.6RTE                                
038205,000961: 32,2720           45271        PREC173            DDV      DSU                                   
038206,000962: 32,2721           00003                                    02D                                   
038207,000963: 32,2722           31657                                    1RTEB3                                
038208,000964: 32,2723           71240                           BMN      DLOAD                                 
038209,000965: 32,2724           64730                                    PREC174                               
038210,000966: 32,2725           77605                           DMP                                            
038211,000967: 32,2726           03650                                    DT21PR                                
038212,000968: 32,2727           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
038213,000969: 32,2730           41545        PREC174            DLOAD    PUSH                                  
038214,000970: 32,2731           00001                                    00D                                   
038215,000971: 32,2732           37650                           STCALL   DT21PR                                
038216,000972: 32,2733           65065                                    RTENCK2                               
038217,000973: 32,2734           77650                           GOTO                                           
038218,000974: 32,2735           64531                                    PREC125                               
038219,000975: 32,2736           45345        PREC175            DLOAD    DSU                                   
038220,000976: 32,2737           00031                                    RPRE                                  
038221,000977: 32,2740           03664                                    RD                                    
038222,000978: 32,2741           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
038223,000979: 32,2742           50025                           DSU      BMN                                   
038224,000980: 32,2743           31766                                    EPC7RTE                               
038225,000981: 32,2744           65037                                    PREC220                               
038226,000982: 
038227,000983:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
038228,000984: 
038229,000985: 32,2745           53145                           DLOAD    BZE                                   
038230,000986: 32,2746           03730                                    NN1A                                  
038231,000987: 32,2747           64560                                    PREC132                               #  TOO MANY ITERATIONS
038232,000988: 32,2750           53025                           DSU      BZE                                   
038233,000989: 32,2751           31705                                    10RTE                                 
038234,000990: 32,2752           65005                                    PREC207                               
038235,000991: 32,2753           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
038236,000992: 32,2754           03670                                    RPRE'                                 
038237,000993: 32,2755           00031                                    RPRE                                  #  RPRE'-RPRE                    B29/B27
038238,000994: 32,2756           55301                           NORM     BDDV                                  
038239,000995: 32,2757           00050                                    X2                                    
038240,000996: 32,2760           03666                                    DRCON                                 
038241,000997: 32,2761           41457                           SL*      PUSH                                  #  DRCON/(RPRE'-RPRE)=S          B2
038242,000998: 32,2762           57600                                    0          -2,2                       
038243,000999: 32,2763           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
038244,001000: 32,2764           31653                                    1RTEB1                                
038245,001001: 32,2765           64772                                    PREC205M                              
038246,001002: 32,2766           45246                           ABS      DSU                                   
038247,001003: 32,2767           31653                                    1RTEB1                                
038248,001004: 32,2770           77640                           BMN                                            
038249,001005: 32,2771           64775                                    PREC206                               
038250,001006: 32,2772           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
038251,001007: 32,2773           31715                                    2RTEB1                                
038252,001008: 32,2774           77725                           PDDL                                           #  S=-4                          B2

Page 869

038254,001010: 32,2775           41345        PREC206            DLOAD    DMP                                   
038255,001011: 32,2776           77712                           SL2                                            
038256,001012: 32,2777           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
038257,001013: 32,3000           77615                           DAD                                            
038258,001014: 32,3001           03636                                    RCON                                  
038259,001015: 32,3002           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
038260,001016: 32,3003           77650                           GOTO                                           
038261,001017: 32,3004           65024                                    PREC210                               
038262,001018: 32,3005           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
038263,001019: 32,3006           03664                                    RD                                    
038264,001020: 32,3007           70501                           NORM     SR1                                   
038265,001021: 32,3010           00047                                    X1                                    
038266,001022: 32,3011           60325                           PDDL     NORM                                  
038267,001023: 32,3012           00031                                    RPRE                                  
038268,001024: 32,3013           00050                                    X2                                    
038269,001025: 32,3014           55260                           XSU,1    BDDV                                  
038270,001026: 32,3015           00047                                    X2                                    
038271,001027: 32,3016           77657                           SR*                                            
038272,001028: 32,3017           20600                                    0          -1,1                       
038273,001029: 32,3020           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
038274,001030: 32,3021           77625                           DSU                                            
038275,001031: 32,3022           03664                                    RD                                    
038276,001032: 32,3023           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
038277,001033: 32,3024           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
038278,001034: 32,3025           00031                                    RPRE                                  
038279,001035: 32,3026           17670                           STODL    RPRE'                                 
038280,001036: 32,3027           03730                                    NN1A                                  
038281,001037: 32,3030           77625                           DSU                                            
038282,001038: 32,3031           31675                                    1RTEB28                               
038283,001039: 32,3032           37730                           STCALL   NN1A                                  
038284,001040: 32,3033           65136                                    V2T100                                
038285,001041: 32,3034           52030                           BHIZ     GOTO                                  
038286,001042: 32,3035           64523                                    PREC120                               
038287,001043: 32,3036           65053                                    PRECX                                 
038288,001044: 
038289,001045:                                                                                                  #  DESIRED RADIUS ACHIEVED
038290,001046: 
038291,001047: 32,3037           45345        PREC220            DLOAD    DSU                                   
038292,001048: 32,3040           03726                                    X(T2)                                 
038293,001049: 32,3041           03724                                    X(T2)PRE                              
038294,001050: 32,3042           45246                           ABS      DSU                                   
038295,001051: 32,3043           31770                                    EPC8RTE                               
038296,001052: 32,3044           67240                           BMN      SLOAD                                 
038297,001053: 32,3045           65051                                    PREC225                               
038298,001054: 32,3046           31737                                    OCT613                                
038299,001055: 32,3047           77650                           GOTO                                           
038300,001056: 32,3050           65053                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
038301,001057: 
038302,001058:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED.

Page 870

038304,001060: 
038305,001061: 32,3051           77745        PREC225            DLOAD                                          
038306,001062: 32,3052           31677                                    ZERORTE                               
038307,001063: 32,3053           77650        PRECX              GOTO                                           
038308,001064: 32,3054           03762                                    SPRTEX                                
038309,001065: 

Page 871

038311,001067:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
038312,001068: 
038313,001069:                                                                                                  #  DESCRIPTION
038314,001070:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
038315,001071:                                                                                                  #        RTENCK2, AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
038316,001072:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE.
038317,001073: 
038318,001074:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
038319,001075: 
038320,001076:                                                                                                  #     CALLING SEQUENCE
038321,001077:                                                                                                  #        L       CALL
038322,001078:                                                                                                  #        L+1             RTENCK1
038323,001079: 
038324,001080:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038325,001081:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
038326,001082: 
038327,001083:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
038328,001084: 
038329,001085:                                                                                                  #     CALLING SEQUENCE
038330,001086:                                                                                                  #        L       CALL
038331,001087:                                                                                                  #        L+1             RTENCK2
038332,001088: 
038333,001089:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038334,001090:                                                                                                  #        PUSHLIST
038335,001091:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
038336,001092:                                                                                                  #        OTHER
038337,001093:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038338,001094:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038339,001095:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
038340,001096: 
038341,001097:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
038342,001098: 
038343,001099:                                                                                                  #     CALLING SEQUENCE
038344,001100:                                                                                                  #        L       CALL
038345,001101:                                                                                                  #        L+1             RTENCK3
038346,001102: 
038347,001103:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038348,001104:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038349,001105:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
038350,001106:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038351,001107:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038352,001108: 
038353,001109:                                                                                                  #  EXIT MODE
038354,001110:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
038355,001111: 
038356,001112:                                                                                                  #  SUBROUTINES CALLED
038357,001113:                                                                                                  #        INTSTALL
038358,001114:                                                                                                  #        INTEGRVS
038359,001115: 
038360,001116:                                                                                                  #  OUTPUT
038361,001117:                                                                                                  #     PUSHLIST

Page 872

038363,001119:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
038364,001120:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
038365,001121:                                                                                                  #     MPAC
038366,001122:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
038367,001123:                                                                                                  #     OTHER
038368,001124:                                                                                                  #        R(T2)/          AS IN PUSHLIST
038369,001125:                                                                                                  #        V(T2)/          AS IN MPAC
038370,001126:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038371,001127: 
038372,001128: 32,3055           45020        RTENCK1            STQ      CALL                                  
038373,001129: 32,3056           03733                                    RTENCKEX                              
038374,001130: 32,3057           27371                                    INTSTALL                              
038375,001131: 32,3060           43175                           VLOAD    SET                                   
038376,001132: 32,3061           03640                                    R(T1)/                                
038377,001133: 32,3062           01473                                    INTYPFLG                              
038378,001134: 32,3063           77650                           GOTO                                           
038379,001135: 32,3064           65111                                    RTENCK3B                              
038380,001136: 
038381,001137: 32,3065           45020        RTENCK2            STQ      CALL                                  
038382,001138: 32,3066           03733                                    RTENCKEX                              
038383,001139: 32,3067           27371                                    INTSTALL                              
038384,001140: 32,3070           77214                           CLEAR    VLOAD                                 
038385,001141: 32,3071           01673                                    INTYPFLG                              
038386,001142: 32,3072           03656                                    R(T2)/                                
038387,001143: 32,3073           25535                           STOVL    RCV                                   
038388,001144: 32,3074           03710                                    V(T2)/                                
038389,001145: 32,3075           15543                           STODL    VCV                                   
038390,001146: 32,3076           03736                                    T2                                    
038391,001147: 32,3077           01517                           STORE    TET                                   
038392,001148: 32,3100           77615                           DAD                                            
038393,001149: 32,3101           77650                           GOTO                                           
038394,001150: 32,3102           65117                                    RTENCK3D                              
038395,001151: 
038396,001152: 32,3103           45020        RTENCK3            STQ      CALL                                  
038397,001153: 32,3104           03733                                    RTENCKEX                              
038398,001154: 32,3105           27371                                    INTSTALL                              
038399,001155: 32,3106           43175        RTENCK3A           VLOAD    CLEAR                                 
038400,001156: 32,3107           03640                                    R(T1)/                                
038401,001157: 32,3110           01673                                    INTYPFLG                              
038402,001158: 32,3111           25535        RTENCK3B           STOVL    RCV                                   
038403,001159: 32,3112           03700                                    V2(T1)/                               
038404,001160: 32,3113           15543                           STODL    VCV                                   
038405,001161: 32,3114           03716                                    T1                                    
038406,001162: 32,3115           15517                           STODL    TET                                   
038407,001163: 32,3116           03736                                    T2                                    
038408,001164: 32,3117           00041        RTENCK3D           STORE    TDEC1                                 
038409,001165: 32,3120           45014                           CLEAR    CALL                                  

Page 873

038411,001167: 32,3121           00263                                    MOONFLAG                              
038412,001168: 32,3122           27066                                    INTEGRVS                              
038413,001169: 32,3123           77775                           VLOAD                                          
038414,001170: 32,3124           00001                                    RATT                                  
038415,001171: 32,3125           03656                           STORE    R(T2)/                                
038416,001172: 32,3126           70125                           PDDL     LXC,1                                 
038417,001173: 32,3127           00015                                    TAT                                   
038418,001174: 32,3130           03734                                    CONICX1                               
038419,001175: 32,3131           27736                           STOVL    T2                                    
038420,001176: 32,3132           00007                                    VATT                                  
038421,001177: 32,3133           03710                           STORE    V(T2)/                                
038422,001178: 32,3134           77650                           GOTO                                           
038423,001179: 32,3135           03733                                    RTENCKEX                              
038424,001180: 

Page 874

038426,001182:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
038427,001183: 
038428,001184:                                                                                                  #  DESCRIPTION
038429,001185:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
038430,001186:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
038431,001187:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN'T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
038432,001188:                                                                                                  #                AND CONSEQUENTLY FUEL.
038433,001189: 
038434,001190:                                                                                                  #  CALLING SEQUENCE
038435,001191:                                                                                                  #        L       CALL
038436,001192:                                                                                                  #        L+1             V2T100
038437,001193: 
038438,001194:                                                                                                  #  NORMAL EXIT MODE
038439,001195:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038440,001196: 
038441,001197:                                                                                                  #  ALARM EXIT MODE
038442,001198:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS.
038443,001199: 
038444,001200:                                                                                                  #  SUBROUTINES CALLED
038445,001201:                                                                                                  #        GAMDV10
038446,001202:                                                                                                  #        XT1LIM
038447,001203:                                                                                                  #        DVCALC
038448,001204: 
038449,001205:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038450,001206:                                                                                                  #     PUSHLIST
038451,001207:                                                                                                  #        NONE
038452,001208:                                                                                                  #     MPAC
038453,001209:                                                                                                  #        NONE
038454,001210:                                                                                                  #     OTHER
038455,001211:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038456,001212:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
038457,001213:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038458,001214:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038459,001215:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038460,001216:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038461,001217:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038462,001218:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
038463,001219:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038464,001220:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038465,001221:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038466,001222:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP      B2      -1 PERIGEE, +1 APOGEE
038467,001223:                                                                                                  #        N1              CONIC OR PRECISION ITERATION OPERATOR                   DP      B28     NEGATIVE CONIC, PLUS PREC
038468,001224: 
038469,001225:                                                                                                  #  OUTPUT
038470,001226:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038471,001227:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038472,001228:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
038473,001229:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038474,001230:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1

Page 875

038476,001232: 
038477,001233:                                                                                                  #  DEBRIS
038478,001234:                                                                                                  #     PUSHLIST
038479,001235:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
038480,001236:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
038481,001237:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038482,001238:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038483,001239:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038484,001240:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
038485,001241:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038486,001242:                                                                                                  #        16D             DX(T1=ITERATOR INCREMENT                                DP      B5
038487,001243:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
038488,001244:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
038489,001245:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
038490,001246: 
038491,001247: 32,3136           77620        V2T100             STQ                                            
038492,001248: 32,3137           00041                                    33D                                   
038493,001249: 32,3140           43001                           SETPD    CLEAR                                 
038494,001250: 32,3141           00001                                    0                                     
038495,001251: 32,3142           00272                                    F2RTE                                 
038496,001252: 32,3143           60345                           DLOAD    NORM                                  
038497,001253: 32,3144           03636                                    RCON                                  
038498,001254: 32,3145           00047                                    X1                                    
038499,001255: 32,3146           60325                           PDDL     NORM                                  
038500,001256: 32,3147           03646                                    R(T1)                                 
038501,001257: 32,3150           00051                                    S1                                    
038502,001258: 32,3151           00013                           STORE    10D                                   
038503,001259: 32,3152           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
038504,001260: 32,3153           65260                           XSU,1    PDDL                                  
038505,001261: 32,3154           00050                                    S1                                    
038506,001262: 32,3155           03726                                    X(T2)                                 
038507,001263: 32,3156           77716                           DSQ                                            
038508,001264: 32,3157           43342                           SR1      DAD                                   
038509,001265: 32,3160           31653                                    1RTEB1                                
038510,001266: 32,3161           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
038511,001267: 32,3162           77605                           DMP                                            
038512,001268: 32,3163           00001                                    00D                                   
038513,001269: 32,3164           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
038514,001270: 32,3165           53605                           DMP      SL*                                   
038515,001271: 32,3166           00001                                    00D                                   
038516,001272: 32,3167           20172                                    0          -7,1                       
038517,001273: 32,3170           45257                           SL*      DSU                                   
038518,001274: 32,3171           20172                                    0          -7,1                       
038519,001275: 32,3172           31671                                    1RTEB17                               
038520,001276: 32,3173           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17
038521,001277: 32,3174           45562                                    TPMODE                                
038522,001278: 32,3175           31653                                    1RTEB1                                
038523,001279: 32,3176           57457                           SR*      DCOMP                                 
038524,001280: 32,3177           20601                                    0,1                                   
038525,001281: 32,3200           41215                           DAD      DMP                                   
038526,001282: 32,3201           00001                                    00D                                   

Page 876

038528,001284: 32,3202           03646                                    R(T1)                                 
038529,001285: 32,3203           47057                           SL*      RTB                                   
038530,001286: 32,3204           20172                                    0          -7D,1                      
038531,001287: 32,3205           45562                                    TPMODE                                
038532,001288: 32,3206           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
038533,001289: 32,3207           33770                                    RTMURTE                               
038534,001290: 32,3210           70501                           NORM     SR1                                   
038535,001291: 32,3211           00050                                    X2                                    
038536,001292: 32,3212           56264                           XSU,2    DDV                                   
038537,001293: 32,3213           00050                                    S1                                    
038538,001294: 32,3214           00013                                    10D                                   
038539,001295: 32,3215           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
038540,001296: 32,3216           57170                                    6,2                                   
038541,001297: 32,3217           03652                                    MAMAX1                                
038542,001298: 32,3220           41406                           PUSH     PUSH                                  #  MAMAX1=MA
038543,001299: 32,3221           77624                           CALL                                           
038544,001300: 32,3222           56633                                    XT1LIM                                
038545,001301: 32,3223           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5 PL12D
038546,001302: 32,3224           40476                           DCOMP    SR4                                   
038547,001303: 32,3225           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5 PL14D
038548,001304: 32,3226           03654                                    MAMAX2                                
038549,001305: 32,3227           45006                           PUSH     CALL                                  
038550,001306: 32,3230           56633                                    XT1LIM                                
038551,001307: 32,3231           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5 PL16D
038552,001308: 32,3232           03730                                    NN1A                                  
038553,001309: 32,3233           65236                                    V2T102                                
038554,001310: 32,3234           77650                           GOTO                                           
038555,001311: 32,3235           65250                                    V2T110                                
038556,001312: 
038557,001313:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
038558,001314: 
038559,001315: 32,3236           77745        V2T102             DLOAD                                          
038560,001316: 32,3237           03632                                    RTEDVD                                
038561,001317: 32,3240           52054                           BZE      GOTO                                  
038562,001318: 32,3241           65243                                    V2T105                                
038563,001319: 32,3242           65344                                    V2T140                                
038564,001320: 32,3243           50145        V2T105             DLOAD    BMN                                   
038565,001321: 32,3244           03757                                    CFPA                                  
038566,001322: 32,3245           65344                                    V2T140                                
038567,001323: 32,3246           77650                           GOTO                                           
038568,001324: 32,3247           65352                                    V2T145                                
038569,001325: 
038570,001326:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
038571,001327:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
038572,001328:                                                                                                  #  THROUGH X(T2)
038573,001329: 
038574,001330: 32,3250           47145        V2T110             DLOAD    RTB                                   
038575,001331: 32,3251           31671                                    1RTEB17                               
038576,001332: 32,3252           45562                                    TPMODE                                
038577,001333: 32,3253           65276                           DCOMP    PDDL                                  #  -1                            B17 PL19D

Page 877

038579,001335: 32,3254           31715                                    2RTEB1                                
038580,001336: 32,3255           45257                           SR*      DSU                                   
038581,001337: 32,3256           20601                                    0,1                                   
038582,001338: 32,3257           00001                                    00D                                   
038583,001339: 32,3260           53605                           DMP      SL*                                   
038584,001340: 32,3261           00035                                    28D                                   
038585,001341: 32,3262           20172                                    0          -7,1                       
038586,001342: 32,3263           76257                           SL*      TAD                                   
038587,001343: 32,3264           20172                                    0          -7,1                       
038588,001344: 32,3265           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17 PL19D
038589,001345: 32,3266           45562                                    TPMODE                                
038590,001346: 32,3267           03722                                    X(T1)                                 
038591,001347: 32,3270           00001                           STORE    00D                                   #  X(T1),,                       B5
038592,001348: 32,3271           77751                           TLOAD                                          #                                PL16D
038593,001349: 32,3272           53040                           BMN      BZE                                   
038594,001350: 32,3273           65300                                    V2T115                                
038595,001351: 32,3274           65300                                    V2T115                                
038596,001352: 32,3275           52061                           SL       GOTO                                  
038597,001353: 32,3276           20210                                    7                                     
038598,001354: 32,3277           65311                                    V2T120                                
038599,001355: 32,3300           50145        V2T115             DLOAD    BMN                                   
038600,001356: 32,3301           03761                                    PHI2                                  
038601,001357: 32,3302           65322                                    V2T125                                
038602,001358: 32,3303           77676                           DCOMP                                          
038603,001359: 32,3304           17761                           STODL    PHI2                                  
038604,001360: 32,3305           31705                                    10RTE                                 
038605,001361: 32,3306           03730                           STORE    NN1A                                  
038606,001362: 32,3307           77650                           GOTO                                           
038607,001363: 32,3310           65322                                    V2T125                                
038608,001364: 32,3311           47166        V2T120             SQRT     RTB                                   
038609,001365: 32,3312           45713                                    DPMODE                                
038610,001366: 32,3313           50125                           PDDL     BMN                                   #  BETA8**.5=X(T1)LIM            B5 PL18D
038611,001367: 32,3314           03761                                    PHI2                                  
038612,001368: 32,3315           65330                                    V2T130                                
038613,001369: 32,3316           45545                           DLOAD    STADR                                 
038614,001370: 32,3317           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
038615,001371: 32,3320           77676                           DCOMP                                          
038616,001372: 32,3321           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
038617,001373: 32,3322           53145        V2T125             DLOAD    BZE                                   
038618,001374: 32,3323           03722                                    X(T1)                                 
038619,001375: 32,3324           65344                                    V2T140                                
038620,001376: 32,3325           52040                           BMN      GOTO                                  
038621,001377: 32,3326           65344                                    V2T140                                
038622,001378: 32,3327           65352                                    V2T145                                
038623,001379: 32,3330           53145        V2T130             DLOAD    BZE                                   
038624,001380: 32,3331           03722                                    X(T1)                                 
038625,001381: 32,3332           65341                                    V2T135                                
038626,001382: 32,3333           71240                           BMN      DLOAD                                 #                                PL16D
038627,001383: 32,3334           65341                                    V2T135                                
038628,001384: 32,3335           77626                           STADR                                          

Page 878

038630,001386: 32,3336           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
038631,001387: 32,3337           77650                           GOTO                                           
038632,001388: 32,3340           65352                                    V2T145                                
038633,001389: 32,3341           57545        V2T135             DLOAD    DCOMP                                 #                                PL16D
038634,001390: 32,3342           77626                           STADR                                          
038635,001391: 32,3343           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
038636,001392: 32,3344           77745        V2T140             DLOAD                                          
038637,001393: 32,3345           00013                                    10D                                   
038638,001394: 32,3346           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
038639,001395: 32,3347           00015                                    12D                                   
038640,001396: 32,3350           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)            PL18D
038641,001397: 32,3351           65357                                    V2T150                                
038642,001398: 32,3352           77745        V2T145             DLOAD                                          
038643,001399: 32,3353           00017                                    14D                                   
038644,001400: 32,3354           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
038645,001401: 32,3355           00015                                    12D                                   
038646,001402: 32,3356           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)           PL18D
038647,001403: 32,3357           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
038648,001404: 32,3360           65500                                    GAMDV10                               
038649,001405: 32,3361           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
038650,001406: 32,3362           03632                                    RTEDVD                                
038651,001407: 32,3363           65476                                    V2T1X                                 
038652,001408: 
038653,001409:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
038654,001410: 
038655,001411: 32,3364           50025                           DSU      BMN                                   
038656,001412: 32,3365           03706                                    DV                                    
038657,001413: 32,3366           65371                                    V2T155                                
038658,001414: 32,3367           77650                           GOTO                                           
038659,001415: 32,3370           65424                                    V2T175                                
038660,001416: 32,3371           50145        V2T155             DLOAD    BMN                                   
038661,001417: 32,3372           03730                                    NN1A                                  
038662,001418: 32,3373           65376                                    V2T160                                
038663,001419: 32,3374           77650                           GOTO                                           
038664,001420: 32,3375           65437                                    V2T185                                
038665,001421: 
038666,001422:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
038667,001423: 
038668,001424: 32,3376           53145        V2T160             DLOAD    BZE                                   
038669,001425: 32,3377           03722                                    X(T1)                                 
038670,001426: 32,3400           65404                                    V2T165                                
038671,001427: 32,3401           52040                           BMN      GOTO                                  
038672,001428: 32,3402           65404                                    V2T165                                
038673,001429: 32,3403           65474                                    V2T300                                
038674,001430: 32,3404           53145        V2T165             DLOAD    BZE                                   
038675,001431: 32,3405           03757                                    CFPA                                  
038676,001432: 32,3406           65474                                    V2T300                                
038677,001433: 32,3407           71240                           BMN      DLOAD                                 
038678,001434: 32,3410           65474                                    V2T300                                
038679,001435: 32,3411           00017                                    14D                                   

Page 879

038681,001437: 32,3412           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
038682,001438: 32,3413           00015                                    12D                                   
038683,001439: 32,3414           77676                           DCOMP                                          
038684,001440: 32,3415           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
038685,001441: 32,3416           65500                                    GAMDV10                               
038686,001442: 32,3417           45345                           DLOAD    DSU                                   
038687,001443: 32,3420           03632                                    RTEDVD                                
038688,001444: 32,3421           03706                                    DV                                    
038689,001445: 32,3422           77640                           BMN                                            
038690,001446: 32,3423           65474                                    V2T300                                
038691,001447: 32,3424           71214        V2T175             SET      DLOAD                                 
038692,001448: 32,3425           00072                                    F2RTE                                 
038693,001449: 32,3426           03722                                    X(T1)                                 
038694,001450: 32,3427           14017                           STODL    14D                                   #  X(T1)=X(T1)MAX
038695,001451: 32,3430           00015                                    12D                                   
038696,001452: 32,3431           77676                           DCOMP                                          
038697,001453: 32,3432           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
038698,001454: 32,3433           65500                                    GAMDV10                               
038699,001455: 32,3434           50145                           DLOAD    BMN                                   
038700,001456: 32,3435           03730                                    NN1A                                  
038701,001457: 32,3436           65474                                    V2T300                                
038702,001458: 
038703,001459:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
038704,001460:                                                                                                  #  PRECISION TRAJECTORY
038705,001461: 
038706,001462: 32,3437           45345        V2T185             DLOAD    DSU                                   
038707,001463: 32,3440           03722                                    X(T1)                                 
038708,001464: 32,3441           00001                                    00D                                   
038709,001465: 32,3442           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
038710,001466: 32,3443           00015                                    12D                                   
038711,001467: 32,3444           44352                           SL1      BDSU                                  
038712,001468: 32,3445           71240                           BMN      DLOAD                                 
038713,001469: 32,3446           65474                                    V2T300                                
038714,001470: 32,3447           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
038715,001471: 32,3450           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
038716,001472: 32,3451           50025                           DSU      BMN                                   
038717,001473: 32,3452           00017                                    14D                                   
038718,001474: 32,3453           65461                                    V2T195                                
038719,001475: 32,3454           77745                           DLOAD                                          
038720,001476: 32,3455           00017                                    14D                                   
038721,001477: 32,3456           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
038722,001478: 32,3457           77650                           GOTO                                           
038723,001479: 32,3460           65472                                    V2T205                                
038724,001480: 32,3461           45345        V2T195             DLOAD    DSU                                   
038725,001481: 32,3462           03722                                    X(T1)                                 
038726,001482: 32,3463           00013                                    10D                                   
038727,001483: 32,3464           52040                           BMN      GOTO                                  
038728,001484: 32,3465           65467                                    V2T200                                
038729,001485: 32,3466           65472                                    V2T205                                
038730,001486: 32,3467           77745        V2T200             DLOAD                                          

Page 880

038732,001488: 32,3470           00013                                    10D                                   
038733,001489: 32,3471           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
038734,001490: 32,3472           77624        V2T205             CALL                                           
038735,001491: 32,3473           65701                                    DVCALC                                
038736,001492: 32,3474           77745        V2T300             DLOAD                                          
038737,001493: 32,3475           31677                                    ZERORTE                               
038738,001494: 32,3476           77650        V2T1X              GOTO                                           
038739,001495: 32,3477           00041                                    33D                                   
038740,001496: 

Page 881

038742,001498:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
038743,001499: 
038744,001500:                                                                                                  #  DESCRIPTION
038745,001501:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
038746,001502: 
038747,001503:                                                                                                  #  CALLING SEQUENCE
038748,001504:                                                                                                  #        L       CALL
038749,001505:                                                                                                  #        L+1             GAMDV10
038750,001506: 
038751,001507:                                                                                                  #  NORMAL EXIT MODE
038752,001508:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
038753,001509: 
038754,001510:                                                                                                  #  ALARM EXIT MODE
038755,001511:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038756,001512: 
038757,001513:                                                                                                  #  SUBROUTINES CALLED
038758,001514:                                                                                                  #        DVCALC
038759,001515: 
038760,001516:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038761,001517:                                                                                                  #     PUSHLIST
038762,001518:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
038763,001519:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038764,001520:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038765,001521:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
038766,001522:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
038767,001523:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
038768,001524:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
038769,001525:                                                                                                  #     MPAC
038770,001526:                                                                                                  #        NONE
038771,001527:                                                                                                  #     OTHER
038772,001528:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038773,001529:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038774,001530:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038775,001531:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038776,001532:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
038777,001533:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
038778,001534: 
038779,001535:                                                                                                  #  OUTPUT
038780,001536:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038781,001537:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038782,001538:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
038783,001539:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038784,001540: 
038785,001541:                                                                                                  #  DEBRIS
038786,001542:                                                                                                  #     PUSHLIST
038787,001543:                                                                                                  #        00D             X(T1),,
038788,001544:                                                                                                  #        02D             THETA1
038789,001545:                                                                                                  #        05D             THETA2
038790,001546:                                                                                                  #        08D             THETA3
038791,001547:                                                                                                  #        10D             X(T1)MIN
038792,001548:                                                                                                  #        12D             DX(T1)MAX

Page 882

038794,001550:                                                                                                  #        14D             X(T1)MAX
038795,001551:                                                                                                  #        16D             DX(T1)
038796,001552:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
038797,001553:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
038798,001554:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
038799,001555:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
038800,001556:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
038801,001557: 
038802,001558: 32,3500           77620        GAMDV10            STQ                                            
038803,001559: 32,3501           00037                                    31D                                   
038804,001560: 32,3502           45001                           SETPD    CALL                                  
038805,001561: 32,3503           00023                                    18D                                   #                                PL18D
038806,001562: 32,3504           65701                                    DVCALC                                
038807,001563: 32,3505           45345                           DLOAD    DSU                                   
038808,001564: 32,3506           00017                                    14D                                   
038809,001565: 32,3507           00013                                    10D                                   
038810,001566: 32,3510           77600                           BOV                                            
038811,001567: 32,3511           65531                                    GAMDV20                               
038812,001568: 32,3512           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5 PL20D
038813,001569: 32,3513           31772                                    EPC9RTE                               
038814,001570: 32,3514           71240                           BMN      DLOAD                                 
038815,001571: 32,3515           65677                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
038816,001572: 32,3516           00023                                    18D                                   
038817,001573: 32,3517           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
038818,001574: 32,3520           00015                                    12D                                   
038819,001575: 32,3521           65525                                    GAMDV15                               
038820,001576: 32,3522           52001                           SETPD    GOTO                                  #                                PL18D
038821,001577: 32,3523           00023                                    18D                                   
038822,001578: 32,3524           65531                                    GAMDV20                               
038823,001579: 32,3525           77745        GAMDV15            DLOAD                                          #                                PL18D
038824,001580: 32,3526           70565                           SIGN     SR1                                   
038825,001581: 32,3527           00021                                    16D                                   
038826,001582: 32,3530           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
038827,001583: 32,3531           77745        GAMDV20            DLOAD                                          
038828,001584: 32,3532           31701                                    M144RTE                               
038829,001585: 32,3533           03732                           STORE    NN2                                   
038830,001586: 32,3534           43345        GAMDV25            DLOAD    DAD                                   
038831,001587: 32,3535           03732                                    NN2                                   
038832,001588: 32,3536           31675                                    1RTEB28                               
038833,001589: 32,3537           67240                           BMN      SLOAD                                 
038834,001590: 32,3540           65544                                    GAMDV30                               
038835,001591: 32,3541           31735                                    OCT605                                
038836,001592: 32,3542           77650                           GOTO                                           
038837,001593: 32,3543           65476                                    V2T1X                                 
038838,001594: 32,3544           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
038839,001595: 32,3545           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  R5 PL20D
038840,001596: 32,3546           03722                                    X(T1)                                 
038841,001597: 32,3547           03706                                    DV                                    
038842,001598: 32,3550           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5 PL22D
038843,001599: 32,3551           03722                                    X(T1)                                 
038844,001600: 32,3552           00021                                    16D                                   

Page 883

038846,001602: 32,3553           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
038847,001603: 32,3554           65701                                    DVCALC                                
038848,001604: 32,3555           71214                           BON      DLOAD                                 
038849,001605: 32,3556           00312                                    F2RTE                                 
038850,001606: 32,3557           65573                                    GAMDV35                               
038851,001607: 32,3560           03706                                    DV                                    
038852,001608: 32,3561           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
038853,001609: 32,3562           00025                                    20D                                   
038854,001610: 32,3563           65570                                    GAMDV33                               
038855,001611: 32,3564           57545        GAMDV32            DLOAD    DCOMP                                 
038856,001612: 32,3565           00021                                    16D                                   
038857,001613: 32,3566           77742                           SR1                                            
038858,001614: 32,3567           00021                           STORE    16D                                   
038859,001615: 32,3570           52001        GAMDV33            SETPD    GOTO                                  
038860,001616: 32,3571           00023                                    18D                                   #                                PL18D
038861,001617: 32,3572           65636                                    GAMDV50                               
038862,001618: 
038863,001619:                                                                                                  #  TIME CRITICAL MODE
038864,001620: 
038865,001621: 32,3573           45345        GAMDV35            DLOAD    DSU                                   
038866,001622: 32,3574           03632                                    RTEDVD                                
038867,001623: 32,3575           03706                                    DV                                    
038868,001624: 32,3576           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5 PL22D
038869,001625: 32,3577           51545        GAMDV40            DLOAD    ABS                                   #  DV,                           PL24D
038870,001626: 32,3600           00025                                    20D                                   
038871,001627: 32,3601           50025                           DSU      BMN                                   
038872,001628: 32,3602           31774                                    EPC10RTE                              
038873,001629: 32,3603           65677                                    GAMDVX                                
038874,001630: 32,3604           71204        GAMDV45            BOVB     DLOAD                                 
038875,001631: 32,3605           57343                                    TCDANZIG                              #  ASSURE OVFIND IS 0
038876,001632: 32,3606           60221                           BDSU     NORM                                  
038877,001633: 32,3607           03706                                    DV                                    
038878,001634: 32,3610           00050                                    X2                                    
038879,001635: 32,3611           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
038880,001636: 32,3612           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
038881,001637: 32,3613           00047                                    X1                                    
038882,001638: 32,3614           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
038883,001639: 32,3615           41221                           BDSU     DMP                                   #                                PL18D
038884,001640: 32,3616           03722                                    X(T1)                                 
038885,001641: 32,3617           77660                           XSU,1                                          
038886,001642: 32,3620           00047                                    X2                                    
038887,001643: 32,3621           00021                           STORE    16D                                   #  PRESERV SIGN IF OVERFLOW
038888,001644: 32,3622           40057                           SR*      BOV                                   
038889,001645: 32,3623           20600                                    0          -1,1                       
038890,001646: 32,3624           65632                                    GAMDV47                               
038891,001647: 32,3625           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038892,001648: 32,3626           45246                           ABS      DSU                                   
038893,001649: 32,3627           00015                                    12D                                   
038894,001650: 32,3630           77640                           BMN                                            
038895,001651: 32,3631           65636                                    GAMDV50                               

Page 884

038897,001653: 32,3632           75345        GAMDV47            DLOAD    SIGN                                  
038898,001654: 32,3633           00015                                    12D                                   
038899,001655: 32,3634           00021                                    16D                                   
038900,001656: 32,3635           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
038901,001657: 
038902,001658:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038903,001659: 
038904,001660: 32,3636           41345        GAMDV50            DLOAD    DMP                                   
038905,001661: 32,3637           00021                                    16D                                   
038906,001662: 32,3640           31711                                    1.1RTEB1                              
038907,001663: 32,3641           43352                           SL1      DAD                                   
038908,001664: 32,3642           03722                                    X(T1)                                 
038909,001665: 32,3643           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
038910,001666: 32,3644           50025                           DSU      BMN                                   
038911,001667: 32,3645           00017                                    14D                                   
038912,001668: 32,3646           65655                                    GAMDV55                               
038913,001669: 32,3647           45345                           DLOAD    DSU                                   
038914,001670: 32,3650           00017                                    14D                                   
038915,001671: 32,3651           03722                                    X(T1)                                 
038916,001672: 32,3652           77742                           SR1                                            
038917,001673: 32,3653           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
038918,001674: 32,3654           65670                                    GAMDV65                               
038919,001675: 32,3655           45345        GAMDV55            DLOAD    DSU                                   
038920,001676: 32,3656           00031                                    24D                                   
038921,001677: 32,3657           00013                                    10D                                   
038922,001678: 32,3660           52040                           BMN      GOTO                                  
038923,001679: 32,3661           65663                                    GAMDV60                               
038924,001680: 32,3662           65670                                    GAMDV65                               
038925,001681: 32,3663           45345        GAMDV60            DLOAD    DSU                                   
038926,001682: 32,3664           00013                                    10D                                   
038927,001683: 32,3665           03722                                    X(T1)                                 
038928,001684: 32,3666           77742                           SR1                                            
038929,001685: 32,3667           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
038930,001686: 32,3670           51545        GAMDV65            DLOAD    ABS                                   
038931,001687: 32,3671           00021                                    16D                                   
038932,001688: 32,3672           50025                           DSU      BMN                                   
038933,001689: 32,3673           31772                                    EPC9RTE                               
038934,001690: 32,3674           65677                                    GAMDVX                                
038935,001691: 32,3675           77650                           GOTO                                           
038936,001692: 32,3676           65534                                    GAMDV25                               
038937,001693: 32,3677           77650        GAMDVX             GOTO                                           
038938,001694: 32,3700           00037                                    31D                                   
038939,001695: 

Page 885

038941,001697:                                                                                                  #  DV CALCULATION SUBROUTINE
038942,001698: 
038943,001699:                                                                                                  #  INPUT
038944,001700:                                                                                                  #     PUSHLIST
038945,001701:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
038946,001702:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038947,001703:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038948,001704:                                                                                                  #     OTHER
038949,001705:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
038950,001706:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
038951,001707:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038952,001708:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038953,001709: 
038954,001710:                                                                                                  #  OUTPUT
038955,001711:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038956,001712:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038957,001713:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038958,001714: 
038959,001715:                                                                                                  #  DEBRIS
038960,001716:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
038961,001717:                                                                                                  #        C(PUSHLOC)      THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
038962,001718:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
038963,001719:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
038964,001720: 
038965,001721:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038966,001722: 
038967,001723: 32,3701           71220        DVCALC             STQ      DLOAD                                 
038968,001724: 32,3702           00040                                    32D                                   
038969,001725: 32,3703           03722                                    X(T1)                                 
038970,001726: 32,3704           54316                           DSQ      SR                                    
038971,001727: 32,3705           20610                                    7                                     
038972,001728: 32,3706           76276                           DCOMP    TAD                                   
038973,001729: 32,3707           00003                                    02D                                   
038974,001730: 32,3710           41501                           NORM     PUSH                                  
038975,001731: 32,3711           00047                                    X1                                    
038976,001732: 32,3712           60351                           TLOAD    NORM                                  
038977,001733: 32,3713           00006                                    05D                                   
038978,001734: 32,3714           00050                                    X2                                    
038979,001735: 32,3715           70434                           RTB      SR1                                   
038980,001736: 32,3716           45713                                    DPMODE                                
038981,001737: 32,3717           56264                           XSU,2    DDV                                   
038982,001738: 32,3720           00046                                    X1                                    
038983,001739: 32,3721           77657                           SR*                                            
038984,001740: 32,3722           57170                                    6,2                                   
038985,001741: 32,3723           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
038986,001742: 32,3724           41366                           SQRT     DMP                                   
038987,001743: 32,3725           00011                                    08D                                   
038988,001744: 32,3726           77701                           NORM                                           
038989,001745: 32,3727           00047                                    X1                                    
038990,001746: 32,3730           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1

Page 886

038992,001748: 32,3731           03722                                    X(T1)                                 
038993,001749: 32,3732           74301                           NORM     VXSC                                  
038994,001750: 32,3733           00050                                    X2                                    
038995,001751: 32,3734           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
038996,001752: 32,3735           74274                           XAD,2    VXSC                                  
038997,001753: 32,3736           00046                                    X1                                    
038998,001754: 32,3737           00035                                    28D                                   
038999,001755: 32,3740           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
039000,001756: 32,3741           57207                                    0          -9D,2                      #                +
039001,001757: 32,3742           03746                                    UH/                                   
039002,001758: 32,3743           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
039003,001759: 32,3744           00035                                    28D                                   
039004,001760: 32,3745           20575                                    0          -4,1                       #                =
039005,001761: 32,3746           45455                           VAD      STADR                                 
039006,001762: 32,3747           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
039007,001763: 32,3750           51451                           VSU      ABVAL                                 
039008,001764: 32,3751           03672                                    V(T1)/                                
039009,001765: 32,3752           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
039010,001766: 32,3753           77650                           GOTO                                           
039011,001767: 32,3754           00040                                    32D                                   
039012,001768: 

Page 887

039014,001770:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039015,001771: 
039016,001772:                                                                                                  #  INPUT
039017,001773:                                                                                                  #     PUSHLIST
039018,001774:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
039019,001775:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
039020,001776:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
039021,001777:                                                                                                  #     OTHER
039022,001778:                                                                                                  #        RCON                                                                    DP      B29/B27
039023,001779:                                                                                                  #        R(T1)                                                                   DP      B29/B27
039024,001780: 
039025,001781:                                                                                                  #  OUTPUT
039026,001782:                                                                                                  #     MPAC
039027,001783:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
039028,001784: 
039029,001785:                                                                                                  #  DEBRIS
039030,001786:                                                                                                  #     PUSHLIST
039031,001787:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
039032,001788:                                                                                                  #        C(PUSHLOC) +2   MA                                                      DP      B30/B28
039033,001789:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
039034,001790:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
039035,001791: 
039036,001792:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
039037,001793: 
039038,001794: 27,2000                                           SETLOC   RTE2                                  
039039,001795: 27,2000                                           BANK                                           
039040,001796: 27,2633           71220        XT1LIM             STQ      DLOAD                                 
039041,001797: 27,2634           00024                                    20D                                   
039042,001798: 27,2635           03636                                    RCON                                  
039043,001799: 27,2636           44342                           SR1      BDSU                                  
039044,001800: 27,2637           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
039045,001801: 27,2640           00050                                    X2                                    
039046,001802: 27,2641           70525                           PDDL     SR1                                   
039047,001803: 27,2642           03646                                    R(T1)                                 
039048,001804: 27,2643           56221                           BDSU     DDV                                   
039049,001805: 27,2644           41257                           SL*      DMP                                   
039050,001806: 27,2645           57577                                    0          -1,2                       
039051,001807: 27,2646           00035                                    28D                                   
039052,001808: 27,2647           77657                           SL*                                            
039053,001809: 27,2650           20172                                    0          -7,1                       
039054,001810: 27,2651           50025                           DSU      BMN                                   #  (BETA5(MA-R(T1))/(MA-RCON))-1 B10
039055,001811: 27,2652           31663                                    1RTEB10                               
039056,001812: 27,2653           56656                                    XT1LIM5                               
039057,001813: 27,2654           52166                           SQRT     GOTO                                  
039058,001814: 27,2655           56660                                    XT1LIMX                               
039059,001815: 27,2656           77745        XT1LIM5            DLOAD                                          
039060,001816: 27,2657           31677                                    ZERORTE                               
039061,001817: 27,2660           77650        XT1LIMX            GOTO                                           
039062,001818: 27,2661           00024                                    20D                                   
039063,001819: 

Page 888

039065,001821:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
039066,001822: 
039067,001823: 36,3250                                           BANK     36                                    
039068,001824: 34,2000                                           SETLOC   RTECON                                
039069,001825: 34,2000                                           BANK                                           
039070,001826: 
039071,001827: 34,3652           20000 00000  1RTEB1             2DEC     1          B-1                        
039072,001828: 34,3654           10000 00000  1RTEB2             2DEC     1          B-2                        
039073,001829: 34,3656           04000 00000  1RTEB3             2DEC     1          B-3                        
039074,001830: 34,3660           02000 00000  1RTEB4             2DEC     1          B-4                        
039075,001831: 34,3662           00020 00000  1RTEB10            2DEC     1          B-10                       
039076,001832: 34,3664           00004 00000  1RTEB12            2DEC     1          B-12                       
039077,001833: 34,3666           00002 00000  1RTEB13            2DEC     1          B-13                       
039078,001834: 34,3670           00000 04000  1RTEB17            2DEC     1          B-17                       
039079,001835: 34,3672           00000 00010  1RTEB25            2DEC     1          B-25                       
039080,001836: 34,3674           00000 00001  1RTEB28            2DEC     1          B-28                       
039081,001837: 34,3676           00000 00000  ZERORTE            2DEC     0          B-28                       
039082,001838: 34,3700           77777 77557  M144RTE            2DEC     -144       B-28                       
039083,001839: 34,3702           77777 77760  M15RTE             2DEC     -15        B-28                       
039084,001840: 34,3704           00000 00012  10RTE              2DEC     10         B-28                       
039085,001841: 34,3706           54631 63145  M.6RTE             2DEC     -.6                                   
039086,001842: 34,3710           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
039087,001843: 34,3712           77777 77771  M6RTEB28           2DEC     -6         B-28                       
039088,001844: 34,3714           37777 37777  2RTEB1             2OCT     3777737777                            
039089,001845: 34,3716           77777 77766  M9RTEB28           2DEC     -9         B-28                       
039090,001846: 34,3720           77777 77767  M8RTEB28           2DEC     -8         B-28                       
039091,001847: 34,3722           00000 35610  30480RTE           2DEC     30480      B-29                       
039092,001848: 34,3724           36703 03743  VCSPS              2DEC     30.8811    B-5                        

Page 889

039094,001850: 34,3726           33041 37714  VCRCS              2DEC     27.0664    B-5                        
039095,001851: 34,3730           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
039096,001852: 34,3732           20000 00000  CSUBT              2DEC     .5                                    
039097,001853: 34,3734           00605        OCT605             OCT      00605                                 
039098,001854: 34,3735           00612        OCT612             OCT      00612                                 
039099,001855: 34,3736           00613        OCT613             OCT      00613                                 
039100,001856: 34,3737           40214 45266  MCOS7.5            2DEC     -.99144486                            
039101,001857: 34,3741           73645 56536  MSIN7.5            2DEC     -.13052619                            
039102,001858: 34,3743           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
039103,001859: 34,3745           16525 12525  THETA165           2DEC     .4583333333                            
039104,001860: 34,3747           22525 12525  THETA210           2DEC     .5833333333                            
039105,001861: 34,3751           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
039106,001862: 34,3753           00000 00062  EPC2RTE            2DEC     100        B-29                       
039107,001863: 34,3755           00020 14223  EPC3RTE            2DEC     .001                                  
039108,001864: 34,3757           00000 05174  EPC4RTE            2DEC     .00001                                
039109,001865: 34,3761           00002 21727  EPC5RTE            2DEC     .01        B-6                        
039110,001866: 34,3763           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
039111,001867: 34,3765           00000 00764  EPC7RTE            2DEC     1000       B-29                       
039112,001868: 34,3767           00040 30447  EPC8RTE            2DEC     .002                                  
039113,001869: 34,3771           00000 00010  EPC9RTE            2DEC     1          B-25                       
039114,001870: 34,3773           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
039115,001871: 
039116,001872: 35,3755                                           BANK     35                                    
039117,001873: 35,2000                                           SETLOC   RTECON1                               
039118,001874: 35,2000                                           BANK                                           
039119,001875: 
039120,001876: 35,3755           27657 01000  C4RTE              2DEC     8          E8         B-30            
039121,001877: 35,3757           00325 23740  K1RTE              2DEC     7          E6         B-29            
039122,001878: 35,3761           00306 06614  K2RTE              2DEC     6495000    B-29                       
039123,001879: 35,3763           76027 70156  K3RTE              2DEC     -.06105                               

Page 890

039125,001881: 35,3765           74517 54131  K4RTE              2DEC     -.10453                               
039126,001882: 35,3767           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
039127,001883: 35,3771           00003 27040  E3RTE              2DEC     121920     B-29                       
039128,001884: 

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