Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

039330,000002:                                                                                                  ## Copyright:   Public domain.
039331,000003:                                                                                                  ## Filename:    P37_P70.agc
039332,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
039333,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
039334,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), we believe for
039335,000007:                                                                                                  ##              Apollo 15-17.
039336,000008:                                                                                                  ## Assembler:   yaYUL
039337,000009:                                                                                                  ## Contact:     Steve Case <case1780@adelphia.net>
039338,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039339,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
039340,000012:                                                                                                  ## Mod history: 2009-09-01 SMC  Adapted from Comanche055 files.
039341,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names, page metadata.
039342,000014:                                                                                                  ##              2009-09-04 JL   Fixed typo.
039343,000015:                                                                                                  ##              2009-09-08 JL   Fixed typos.
039344,000016:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
039345,000017:                                                                                                  ##              2010-02-13 JL   Fixed error on p905.
039346,000018:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
039347,000019:                                                                                                  ##              2010-04-11 JL   Add missing comment characters.
039348,000020: 

Page 897

039350,000022: 36,2000                                           SETLOC   RTE1                                  
039351,000023: 36,2000                                           BANK                                           
039352,000024: 
039353,000025: 36,2476  E7,1631                                  EBANK=   RTEDVD                                
039354,000026: 36,2476                                           COUNT*   $$/P37                                
039355,000027: 
039356,000028:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039357,000029: 
039358,000030:                                                                                                  #  DESCRIPTION
039359,000031:                                                                                                  #    A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039360,000032:                                                                                                  #  TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039361,000033:                                                                                                  #  DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
039362,000034:                                                                                                  #  RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039363,000035:                                                                                                  #  COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039364,000036: 
039365,000037:                                                                                                  #  CALLING SEQUENCE
039366,000038:                                                                                                  #    L   TC      P37
039367,000039: 
039368,000040:                                                                                                  #  SUBROUTINES CALLED
039369,000041:                                                                                                  #    PREC100
039370,000042:                                                                                                  #      V2T100
039371,000043:                                                                                                  #      RTENCK2
039372,000044:                                                                                                  #      RTENCK3
039373,000045:                                                                                                  #      TIMERAD
039374,000046:                                                                                                  #      PARAM
039375,000047:                                                                                                  #    V2T100
039376,000048:                                                                                                  #      GAMDV10
039377,000049:                                                                                                  #      XT1LIM
039378,000050:                                                                                                  #      DVCALC
039379,000051:                                                                                                  #    RTENCK1
039380,000052:                                                                                                  #      INTSTALL
039381,000053:                                                                                                  #      INTEGRVS
039382,000054:                                                                                                  #    RTEVN
039383,000055:                                                                                                  #      RETDISP
039384,000056:                                                                                                  #      TMRAD100
039385,000057:                                                                                                  #      AUGEKUGL
039386,000058:                                                                                                  #      LAT-LONG
039387,000059:                                                                                                  #    TMRAD100
039388,000060:                                                                                                  #      TIMERAD
039389,000061:                                                                                                  #    INVC100
039390,000062:                                                                                                  #      CSMPREC
039391,000063:                                                                                                  #    GETERAD
039392,000064:                                                                                                  #    TIMETHET
039393,000065:                                                                                                  #    P370ALRM
039394,000066:                                                                                                  #    VN1645
039395,000067:                                                                                                  #    POLY
039396,000068: 
039397,000069:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039398,000070:                                                                                                  #    CSM STATE VECTOR
039399,000071:                                                                                                  #    NJETSFLG    NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
039400,000072: 

Page 898

039402,000074:                                                                                                  #  ASTRONAUT INPUT
039403,000075:                                                                                                  #    SPRTETIG    TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
039404,000076:                                                                                                  #    VPRED       DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
039405,000077:                                                                                                  #    GAMMAEI     DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS  + ABOVE HORIZ.
039406,000078:                                                                                                  #    OPTION2     PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
039407,000079: 
039408,000080:                                                                                                  #  OUTPUT
039409,000081:                                                                                                  #    CONIC OR PRECISION TRAJECTORY DISPLAY
039410,000082:                                                                                                  #      VPRED     VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039411,000083:                                                                                                  #      T3TOT4    TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039412,000084:                                                                                                  #      GAMMAEI   FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZON
039413,000085:                                                                                                  #      DELVLVC   INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039414,000086:                                                                                                  #      LAT(SPL)  LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039415,000087:                                                                                                  #      LNG(SPL)  LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039416,000088:                                                                                                  #    TARGETING COMPUTATION DISPLAY
039417,000089:                                                                                                  #      TIG       RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
039418,000090:                                                                                                  #      TTOGO     TIME FROM TIG                                           DP      B28     CS
039419,000091:                                                                                                  #      +MGA      POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS  -.02 IF REFSMFLG=0
039420,000092:                                                                                                  #    THRUST PROGRAM COMMUNICATION
039421,000093:                                                                                                  #      XDELVFLG  EXTERNAL DELTA V FLAG                                   STATE FLAG      SET 0 FOR LAMBERT AIMPT
039422,000094:                                                                                                  #      NORMSW    LAMBERT AIMPT ROTATION SWITCH                           STATE FLAG      SET 0 FOR NO ROTATION
039423,000095:                                                                                                  #      ECSTEER   CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
039424,000096:                                                                                                  #      RTARG     CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
039425,000097:                                                                                                  #      TPASS4    REENTRY TIME                                            DP      B28     CS
039426,000098: 
039427,000099: 36,2476           05402        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
039428,000100: 36,2477           00004                           OCT      4                                     
039429,000101: 
039430,000102: 36,2500           06006                           TC       INTPRET                               
039431,000103: 36,2501           66170                           AXT,1    SXA,1                                 
039432,000104: 36,2502           04000                           OCT      04000                                 
039433,000105: 36,2503           03424                                    ECSTEER                               
039434,000106: 36,2504           77745                           DLOAD                                          
039435,000107: 36,2505           15336                                    ZEROVECS                              
039436,000108: 36,2506           03757                           STORE    VPRED                                 
039437,000109: 36,2507           03761                           STORE    GAMMAEI                               
039438,000110: 36,2510           77776                           EXIT                                           
039439,000111: 36,2511           35026                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
039440,000112: 36,2512           03246                           TCR      P370GOF                               #                   OVERLAYED WITH TIG
039441,000113: 36,2513           12511                           TCF      -2                                    #  DISPLAY NEW DATA
039442,000114: 36,2514           35033                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
039443,000115: 36,2515           03222                           TCR      P37GFRB1                              #    AND DESIRED DELTA V IN RTEDVD
039444,000116: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
039445,000117: 36,2517           06006        RTE299             TC       INTPRET                               
039446,000118: 36,2520           71331                           SSP      DLOAD                                 
039447,000119: 36,2521           00122                                    OVFIND                                
039448,000120: 36,2522           00000                                    0                                     
039449,000121: 36,2523           03757                                    VPRED                                 
039450,000122: 36,2524           17632                           STODL    RTEDVD                                
039451,000123: 36,2525           03761                                    GAMMAEI                               

Page 899

039453,000125: 36,2526           17634                           STODL    RTEGAM2D                              
039454,000126: 36,2527           33572                                    1RTEB13                               
039455,000127: 36,2530           17551                           STODL    CONICX1                               
039456,000128: 36,2531           33662                                    C4RTE                                 
039457,000129: 36,2532           37652                           STCALL   MAMAX1                                
039458,000130: 36,2533           64455                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
039459,000131: 36,2534           71214                           CLEAR    DLOAD                                 
039460,000132: 36,2535           02662                                    SLOWFLG                               
039461,000133: 36,2536           03632                                    RTEDVD                                
039462,000134: 36,2537           51444                           BPL      ABS                                   
039463,000135: 36,2540           74550                                    RTE317                                
039464,000136: 36,2541           03632                           STORE    RTEDVD                                
039465,000137: 36,2542           45345                           DLOAD    DSU                                   
039466,000138: 36,2543           03646                                    R(T1)                                 
039467,000139: 36,2544           33664                                    K1RTE                                 
039468,000140: 36,2545           43040                           BMN      SET                                   
039469,000141: 36,2546           74550                                    RTE317                                
039470,000142: 36,2547           02462                                    SLOWFLG                               
039471,000143: 36,2550           77545        RTE317             DLOAD    EXIT                                  
039472,000144: 36,2551           03646                                    R(T1)                                 
039473,000145: 36,2552           07171                           TC       POLY                                  
039474,000146: 36,2553           00002                           DEC      2          B-14                       
039475,000147: 36,2554           02544 35436                     2DEC     181000434. B-31                       
039476,000148: 36,2556           14040 05066                     2DEC     1.50785145 B-2                        
039477,000149: 36,2560           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
039478,000150: 36,2562           26415 25057                     2DEC*    9.76938926 E-18       B56*            
039479,000151: 36,2564           06006                           TC       INTPRET                               
039480,000152: 36,2565           77752                           SL1                                            
039481,000153: 36,2566           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039482,000154: 36,2567           33614                                    M9RTEB28                              
039483,000155: 36,2570           17730                           STODL    NN1A                                  
039484,000156: 36,2571           33666                                    K2RTE                                 
039485,000157: 36,2572           17636        RTE320             STODL    RCON                                  #  RCON=K2
039486,000158: 36,2573           03634                                    RTEGAM2D                              
039487,000159: 36,2574           44254                           BZE      BDSU                                  
039488,000160: 36,2575           74604                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
039489,000161: 36,2576           15326                                    1RTEB2                                
039490,000162: 36,2577           71406                           PUSH     COS                                   #                                    PL02D
039491,000163: 36,2600           73525                           PDDL     SIN                                   
039492,000164: 36,2601           45465                           BDDV     STADR                                 #                                    PL00D
039493,000165: 36,2602           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)               B0
039494,000166: 36,2603           74617                                    RTE360                                
039495,000167: 36,2604           45345        RTE340             DLOAD    DSU                                   
039496,000168: 36,2605           03646                                    R(T1)                                 
039497,000169: 36,2606           33664                                    K1RTE                                 
039498,000170: 36,2607           71240                           BMN      DLOAD                                 

Page 900

039500,000172: 36,2610           74614                                    RTE350                                
039501,000173: 36,2611           33672                                    K4RTE                                 
039502,000174: 36,2612           37726                           STCALL   X(T2)                                 #  X(T2)=K4
039503,000175: 36,2613           74617                                    RTE360                                
039504,000176: 36,2614           77745        RTE350             DLOAD                                          
039505,000177: 36,2615           33670                                    K3RTE                                 
039506,000178: 36,2616           03726                           STORE    X(T2)                                 #  X(T2)=K3
039507,000179: 36,2617           77624        RTE360             CALL                                           
039508,000180: 36,2620           65102                                    V2T100                                
039509,000181: 36,2621           52054                           BZE      GOTO                                  
039510,000182: 36,2622           74624                                    RTE367                                
039511,000183: 36,2623           64272                                    RTEALRM                               
039512,000184: 36,2624           77775        RTE367             VLOAD                                          
039513,000185: 36,2625           03640                                    R(T1)/                                
039514,000186: 36,2626           16657                           STODL    RVEC                                  
039515,000187: 36,2627           03636                                    RCON                                  
039516,000188: 36,2630           26760                           STOVL    RDESIRED                              
039517,000189: 36,2631           03700                                    V2(T1)/                               
039518,000190: 36,2632           36746                           STCALL   VVEC                                  
039519,000191: 36,2633           64304                                    TMRAD100                              
039520,000192: 36,2634           77615                           DAD                                            
039521,000193: 36,2635           03716                                    T1                                    
039522,000194: 36,2636           17552                           STODL    T2                                    
039523,000195: 36,2637           03634                                    RTEGAM2D                              
039524,000196: 36,2640           52054                           BZE      GOTO                                  
039525,000197: 36,2641           74643                                    RTE369                                
039526,000198: 36,2642           74665                                    RTE372                                
039527,000199: 36,2643           51575        RTE369             VLOAD    ABVAL                                 
039528,000200: 36,2644           03710                                    V(T2)/                                
039529,000201: 36,2645           77776                           EXIT                                           
039530,000202: 36,2646           07171                           TC       POLY                                  
039531,000203: 36,2647           00002                           DEC      2          B-14                       
039532,000204: 36,2650           00000 00000                     2DEC     0          B-28                       
039533,000205: 36,2652           47021 65002                     2DEC     -4.8760771 E-2        B4              
039534,000206: 36,2654           35610 07722                     2DEC     4.5419476  E-4        B11             
039535,000207: 36,2656           63772 63276                     2DEC     -1.4317675 E-6        B18             
039536,000208: 36,2660           06006                           TC       INTPRET                               
039537,000209: 36,2661           77615                           DAD                                            
039538,000210: 36,2662           01343                                    RTED1                                 
039539,000211: 36,2663           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
039540,000212: 36,2664           74667                                    RTE373                                
039541,000213: 36,2665           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
039542,000214: 36,2666           03726                                    X(T2)                                 
039543,000215: 36,2667           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                       B0 PL02D
039544,000216: 36,2670           03726                                    X(T2)                                 
039545,000217: 36,2671           53575                           VLOAD    UNIT                                  

Page 901

039547,000219: 36,2672           03656                                    R(T2)/                                #                                B58
039548,000220: 36,2673           36152                           STCALL   ALPHAV                                
039549,000221: 36,2674           26570                                    GETERAD                               
039550,000222: 36,2675           77615                           DAD                                            
039551,000223: 36,2676           33676                                    E3RTE                                 
039552,000224: 36,2677           45206                           PUSH     DSU                                   #  RCON,=(E1/1+E2BETA11)**.5)+E3 B29 PL04D
039553,000225: 36,2700           03636                                    RCON                                  
039554,000226: 36,2701           45246                           ABS      DSU                                   
039555,000227: 36,2702           33646                                    EPC2RTE                               
039556,000228: 36,2703           52040                           BMN      GOTO                                  
039557,000229: 36,2704           74706                                    RTE374                                
039558,000230: 36,2705           74713                                    RTE375                                
039559,000231: 36,2706           51545        RTE374             DLOAD    ABS                                   
039560,000232: 36,2707           00001                                    00D                                   
039561,000233: 36,2710           50025                           DSU      BMN                                   
039562,000234: 36,2711           33650                                    EPC3RTE                               
039563,000235: 36,2712           74763                                    P37E                                  
039564,000236: 36,2713           43345        RTE375             DLOAD    DAD                                   
039565,000237: 36,2714           03730                                    NN1A                                  
039566,000238: 36,2715           33600                                    1RTEB28                               
039567,000239: 36,2716           67240                           BMN      SLOAD                                 
039568,000240: 36,2717           74723                                    RTE380                                
039569,000241: 36,2720           33630                                    OCT605                                
039570,000242: 36,2721           77650                           GOTO                                           
039571,000243: 36,2722           64272                                    RTEALRM                               #  TOO MANY ITERATIONS
039572,000244: 36,2723           03730        RTE380             STORE    NN1A                                  
039573,000245: 36,2724           53025                           DSU      BZE                                   
039574,000246: 36,2725           33616                                    M8RTEB28                              
039575,000247: 36,2726           74744                                    RTE385                                
039576,000248: 36,2727           45345                           DLOAD    DSU                                   
039577,000249: 36,2730           00001                                    00D                                   
039578,000250: 36,2731           03666                                    DRCON                                 
039579,000251: 36,2732           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1             PL06D
039580,000252: 36,2733           00047                                    X1                                    
039581,000253: 36,2734           03670                                    RPRE,                                 
039582,000254: 36,2735           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                 PL04D
039583,000255: 36,2736           03726                                    X(T2)                                 
039584,000256: 36,2737           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
039585,000257: 36,2740           00001                                    00D                                   
039586,000258: 36,2741           20201                                    0,1                                   
039587,000259: 36,2742           77650                           GOTO                                           
039588,000260: 36,2743           74746                                    RTE390                                
039589,000261: 36,2744           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
039590,000262: 36,2745           00001                                    00D                                   
039591,000263: 36,2746           14021        RTE390             STODL    16D                                   #  DX(T2)                            PL02D
039592,000264: 36,2747           77626                           STADR                                          
039593,000265: 36,2750           60141                           STODL    RCON                                  #  RCON=RCON,
039594,000266: 36,2751           77600                           BOV                                            
039595,000267: 36,2752           74617                                    RTE360                                
039596,000268: 36,2753           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR

Page 902

039598,000270: 36,2754           03726                                    X(T2)                                 
039599,000271: 36,2755           17670                           STODL    RPRE,                                 #  X(T2)PRI=X(T2)
039600,000272: 36,2756           00021                                    16D                                   
039601,000273: 36,2757           77615                           DAD                                            
039602,000274: 36,2760           03726                                    X(T2)                                 
039603,000275: 36,2761           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
039604,000276: 36,2762           74617                                    RTE360                                #  REITERATE
039605,000277: 36,2763           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
039606,000278: 36,2764           75007                                    RTEVN                                 
039607,000279: 36,2765           41345        RTE505             DLOAD    DMP                                   
039608,000280: 36,2766           03720                                    PCON                                  
039609,000281: 36,2767           03744                                    BETA1                                 
039610,000282: 36,2770           53021                           BDSU     BZE                                   
039611,000283: 36,2771           03636                                    RCON                                  
039612,000284: 36,2772           75000                                    RTE510                                
039613,000285: 36,2773           71240                           BMN      DLOAD                                 
039614,000286: 36,2774           75000                                    RTE510                                
039615,000287: 36,2775           15326                                    1RTEB2                                
039616,000288: 36,2776           77650                           GOTO                                           #  ENTRY NEAR APOGEE
039617,000289: 36,2777           75002                                    RTE515                                
039618,000290: 36,3000           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
039619,000291: 36,3001           15326                                    1RTEB2                                
039620,000292: 36,3002           37751        RTE515             STCALL   PHI2                                  
039621,000293: 36,3003           64546                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
039622,000294: 36,3004           52054        RTE625             BZE      GOTO                                  
039623,000295: 36,3005           75035                                    P37G                                  
039624,000296: 36,3006           64272                                    RTEALRM                               
039625,000297: 
039626,000298:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
039627,000299: 
039628,000300: 36,3007           45020        RTEVN              STQ      CALL                                  
039629,000301: 36,3010           03753                                    VNSTORE                               
039630,000302: 36,3011           64323                                    RTEDISP                               #  DISPLAY PREPARATION
039631,000303: 36,3012           77776                           EXIT                                           
039632,000304: 36,3013           35034                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
039633,000305: 36,3014           03232                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
039634,000306: 36,3015           34766                           CAF      FOUR                                  
039635,000307: 36,3016           03226                           TCR      37BLANK    +1                         
039636,000308: 36,3017           13024                           TCF      +5                                    
039637,000309: 36,3020           12476                           TCF      P37                                   #  RECYCLE
039638,000310: 36,3021           33257                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
039639,000311: 36,3022           03246                           TCR      P370GOF                               
039640,000312: 36,3023           12476                           TCF      P37                                   #  RECYCLE
039641,000313: 36,3024           35033                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
039642,000314: 36,3025           03222                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
039643,000315: 36,3026           12476                           TCF      P37                                   #  RECYCLE
039644,000316: 36,3027           34535                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
039645,000317: 36,3030           03246                           TCR      P370GOF                               
039646,000318: 36,3031           12476                           TCF      P37                                   #  RECYCLE
039647,000319: 36,3032           06006                           TCR      INTPRET                               

Page 903

039649,000321: 36,3033           77650                           GOTO                                           
039650,000322: 36,3034           03753                                    VNSTORE                               
039651,000323: 
039652,000324:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039653,000325: 
039654,000326: 36,3035           77624        P37G               CALL                                           
039655,000327: 36,3036           75007                                    RTEVN                                 
039656,000328: 36,3037           77776                           EXIT                                           
039657,000329: 36,3040           34774        P37N               CAF      SEVEN                                 
039658,000330: 36,3041           54775                           TS       OPTION1                               
039659,000331: 36,3042           34770                           CAF      ONE                                   
039660,000332: 36,3043           54776                           TS       OPTION2                               
039661,000333: 36,3044           34537                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
039662,000334: 36,3045           03246                           TCR      P370GOF                               
039663,000335: 36,3046           13044                           TCF      -2                                    #  RECYCLE
039664,000336: 36,3047           06006                           TC       INTPRET                               #  PROCEED
039665,000337: 36,3050           67201                           SETPD    SLOAD                                 
039666,000338: 36,3051           00001                                    00D                                   
039667,000339: 36,3052           00777                                    OPTION2                               
039668,000340: 36,3053           53025                           DSU      BZE                                   
039669,000341: 36,3054           33572                                    1RTEB13                               
039670,000342: 36,3055           75064                                    P37Q                                  
039671,000343: 36,3056           60335                           SLOAD    NORM                                  #  SPS
039672,000344: 36,3057           01351                                    EMDOT                                 
039673,000345: 36,3060           00047                                    X1                                    
039674,000346: 36,3061           52125                           PDDL     GOTO                                  
039675,000347: 36,3062           33622                                    VCSPS                                 
039676,000348: 36,3063           75075                                    P37T                                  
039677,000349: 36,3064           43145        P37Q               DLOAD    BON                                   #  RCS
039678,000350: 36,3065           33626                                    MDOTRCS                               
039679,000351: 36,3066           00700                                    NJETSFLG                              
039680,000352: 36,3067           75071                                    P37R                                  
039681,000353: 36,3070           77752                           SL1                                            
039682,000354: 36,3071           77752        P37R               SL1                                            
039683,000355: 36,3072           65301                           NORM     PDDL                                  
039684,000356: 36,3073           00047                                    X1                                    
039685,000357: 36,3074           33624                                    VCRCS                                 
039686,000358: 36,3075           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2 PL02D
039687,000359: 36,3076           03706                                    DV                                    
039688,000360: 36,3077           77776                           EXIT                                           
039689,000361: 36,3100           07171                           TC       POLY                                  
039690,000362: 36,3101           00001                           DEC      1          B-14                       
039691,000363: 36,3102           00001 05070                     2DEC     5.66240507 E-4        B-3             
039692,000364: 36,3104           17527 36700                     2DEC     9.79487897 E-1        B-1             
039693,000365: 36,3106           47114 70670                     2DEC     -.388281955 B1                         
039694,000366: 36,3110           06006                           TC       INTPRET                               
039695,000367: 36,3111           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A              B3 PL04D

Page 904

039697,000369: 36,3112           03076                                    WEIGHT/G                              
039698,000370: 36,3113           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A      B16+B3-B3=B16 PL00D
039699,000371: 36,3114           41257                           SL*      DMP                                   
039700,000372: 36,3115           20165                                    0          -12D,1                     
039701,000373: 36,3116           15334                                    CSUBT                                 
039702,000374: 36,3117           77621                           BDSU                                           
039703,000375: 36,3120           03716                                    T1                                    
039704,000376: 36,3121           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                 B28
039705,000377: 36,3122           77776                           EXIT                                           
039706,000378: 36,3123           35026                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
039707,000379: 36,3124           03246                           TCR      P370GOF                               
039708,000380: 36,3125           13123                           TCF      -2                                    
039709,000381: 36,3126           34772                           CAF      ZERO                                  
039710,000382: 36,3127           54771                           TS       VHFCNT                                
039711,000383: 36,3130           54772                           TS       TRKMKCNT                              
039712,000384: 36,3131           06006                           TC       INTPRET                               
039713,000385: 36,3132           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
039714,000386: 36,3133           63624                                    RTENCK1                               
039715,000387: 36,3134           53575                           VLOAD    UNIT                                  #                                    PL00D
039716,000388: 36,3135           03656                                    R(T2)/                                
039717,000389: 36,3136           74315                           PDVL     VXSC                                  #  UR2                            B1 PL06D
039718,000390: 36,3137           03554                                    UR1/                                  
039719,000391: 36,3140           33632                                    MCOS7.5                               
039720,000392: 36,3141           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                   B1 PL12D
039721,000393: 36,3142           03562                                    UH/                                   
039722,000394: 36,3143           33634                                    MSIN7.5                               
039723,000395: 36,3144           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)     B2 PL00D
039724,000396: 36,3145           50015                           DAD      BMN                                   
039725,000397: 36,3146           33636                                    MCOS22.5                              
039726,000398: 36,3147           75174                                    P37W                                  
039727,000399: 36,3150           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
039728,000400: 36,3151           03562                                    UH/                                   
039729,000401: 36,3152           03656                                    R(T2)/                                
039730,000402: 36,3153           71240                           BMN      DLOAD                                 
039731,000403: 36,3154           75160                                    P37U                                  
039732,000404: 36,3155           33640                                    THETA165                              
039733,000405: 36,3156           52006                           PUSH     GOTO                                  
039734,000406: 36,3157           75162                                    P37V                                  
039735,000407: 36,3160           41545        P37U               DLOAD    PUSH                                  
039736,000408: 36,3161           33642                                    THETA210                              
039737,000409: 36,3162           77756        P37V               SIN                                            
039738,000410: 36,3163           16732                           STODL    SNTH                                  
039739,000411: 36,3164           43146                           COS      CLEAR                                 
039740,000412: 36,3165           03666                                    RVSW                                  
039741,000413: 36,3166           26734                           STOVL    CSTH                                  
039742,000414: 36,3167           03640                                    R(T1)/                                
039743,000415: 36,3170           26657                           STOVL    RVEC                                  
039744,000416: 36,3171           03700                                    V2(T1)/                               
039745,000417: 36,3172           36746                           STCALL   VVEC                                  
039746,000418: 36,3173           25002                                    TIMETHET                              

Page 905

039748,000420: 36,3174           43014        P37W               CLEAR    CLEAR                                 
039749,000421: 36,3175           01267                                    XDELVFLG                              
039750,000422: 36,3176           03665                                    NORMSW                                
039751,000423: 36,3177           77214                           SET      VLOAD                                 
039752,000424: 36,3200           01071                                    FINALFLG                              
039753,000425: 36,3201           77626                           STADR                                          
039754,000426: 36,3202           60362                           STODL    RTARG                                 
039755,000427: 36,3203           00037                                    T                                     
039756,000428: 36,3204           77615                           DAD                                            
039757,000429: 36,3205           03716                                    T1                                    
039758,000430: 36,3206           27656                           STOVL    TPASS4                                
039759,000431: 36,3207           03700                                    V2(T1)/                               
039760,000432: 36,3210           77451                           VSU      EXIT                                  
039761,000433: 36,3211           03672                                    V(T1)/                                
039762,000434: 36,3212           34756                           CAF      EBANK4                                
039763,000435: 36,3213           54003                           TS       EBANK                                 
039764,000436: 36,3214           06006                           TC       INTPRET                               
039765,000437: 36,3215           03646                           STORE    DELVSIN                               
039766,000438: 36,3216           77624        P37WW              CALL                                           
039767,000439: 36,3217           73027                                    VN1645                                
039768,000440: 36,3220           77650                           GOTO                                           
039769,000441: 36,3221           75216                                    P37WW                                 
039770,000442: 
039771,000443:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
039772,000444: 
039773,000445: 36,3222           00006        P37GFRB1           EXTEND                                         
039774,000446: 36,3223           23752                           QXCH     SPRTEX                                
039775,000447: 36,3224           03232                           TCR      P370GOFR                              
039776,000448: 36,3225           34770        37BLANK            CAF      ONE                                   
039777,000449: 36,3226           05516                 +1        TCR      BLANKET                               
039778,000450: 36,3227           15205                           TCF      ENDOFJOB                              
039779,000451: 36,3230           01752                           TC       SPRTEX                                #  RECYCLE
039780,000452: 36,3231           13255                           TCF      P37PROC                               #  PROCEED
039781,000453: 
039782,000454:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
039783,000455: 
039784,000456: 36,3232           00006        P370GOFR           EXTEND                                         
039785,000457: 36,3233           23547                           QXCH     RTENCKEX                              
039786,000458: 36,3234           04636                           TCR      BANKCALL                              
039787,000459: 36,3235           21101                           CADR     GOFLASHR                              
039788,000460: 36,3236           14103                           TCF      GOTOPOOH                              #  TERMINATE
039789,000461: 36,3237           13242                           TCF      +3                                    
039790,000462: 36,3240           13244                           TCF      +4                                    
039791,000463: 36,3241           01547                           TC       RTENCKEX                              #  IMMEDIATE RETURN
039792,000464: 36,3242           51547                           INDEX    RTENCKEX                              #  PROCEED
039793,000465: 36,3243           10004                           TCF      0          +4                         
039794,000466: 36,3244           51547                           INDEX    RTENCKEX                              #  RECYCLE
039795,000467: 36,3245           10003                           TCF      0          +3                         
039796,000468: 
039797,000469:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
039798,000470: 

Page 906

039800,000472: 36,3246           00006        P370GOF            EXTEND                                         
039801,000473: 36,3247           23752                           QXCH     SPRTEX                                
039802,000474: 36,3250           04636                           TCR      BANKCALL                              
039803,000475: 36,3251           20743                           CADR     GOFLASH                               
039804,000476: 36,3252           14103                           TCF      GOTOPOOH                              
039805,000477: 36,3253           13255                           TCF      +2                                    
039806,000478: 36,3254           01752                           TC       SPRTEX                                
039807,000479: 36,3255           51752        P37PROC            INDEX    SPRTEX                                
039808,000480: 36,3256           10001                           TCF      0          +1                         
039809,000481: 36,3257     5026               V6N33RTE           =        V06N33                                
039810,000482: 36,3257     4537               V4N06RTE           =        V04N06                                
039811,000483: 36,3257     5034               V6N61RTE           =        V06N61                                
039812,000484: 36,3257           01447        V6N39RTE           VN       0639                                  
039813,000485: 36,3260     5033               V6N60RTE           =        V06N60                                
039814,000486: 36,3260     4535               V6N81RTE           =        V06N81                                
039815,000487: 32,2000                                           SETLOC   RTE                                   
039816,000488: 32,2000                                           BANK                                           
039817,000489: 32,2272                                           COUNT*   $$/P37                                

Page 907

039819,000491:                                                                                                  #  ALARM DISPLAY SUBROUTINE
039820,000492: 32,2272           77776        RTEALRM            EXIT                                           
039821,000493: 32,2273           30154                           CA       MPAC                                  
039822,000494: 32,2274           05770                           TC       VARALARM                              
039823,000495: 32,2275           35023                           CAF      V5N09RTE                              
039824,000496: 32,2276           04636                           TC       BANKCALL                              
039825,000497: 32,2277           20743                           CADR     GOFLASH                               
039826,000498: 32,2300           14103                           TCF      GOTOPOOH                              
039827,000499: 32,2301           12275                           TCF      -4                                    
039828,000500: 32,2302           04655                           TC       POSTJUMP                              
039829,000501: 32,2303           74476                           CADR     P37                                   
039830,000502: 32,2304     5023               V5N09RTE           =        V05N09                                
039831,000503: 

Page 908

039833,000505:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
039834,000506: 
039835,000507:                                                                                                  #  INPUT
039836,000508:                                                                                                  #    RVEC        INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
039837,000509:                                                                                                  #    VVEC        INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039838,000510:                                                                                                  #    RDESIRED    FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
039839,000511:                                                                                                  #    CONICX1     X1 SETTING FOR CONIC SUBROUTINES  -2 = EARTH            SP      B14
039840,000512:                                                                                                  #  OUTPUT
039841,000513:                                                                                                  #    R(T2)/      FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039842,000514:                                                                                                  #    V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039843,000515:                                                                                                  #    T12         TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
039844,000516: 
039845,000517: 32,2304           43020        TMRAD100           STQ      CLEAR                                 
039846,000518: 32,2305           03547                                    RTENCKEX                              
039847,000519: 32,2306           03666                                    RVSW                                  
039848,000520: 32,2307           67164                           AXC,2    SXA,2                                 
039849,000521: 32,2310           20000                           OCT      20000                                 
039850,000522: 32,2311           02756                                    SGNRDOT                               
039851,000523: 32,2312           45140                           LXC,1    CALL                                  
039852,000524: 32,2313           03550                                    CONICX1                               
039853,000525: 32,2314           25607                                    TIMERAD                               
039854,000526: 32,2315           27710                           STOVL    V(T2)/                                #                                    PL00D
039855,000527: 32,2316           77626                           STADR                                          
039856,000528: 32,2317           60121                           STODL    R(T2)/                                
039857,000529: 32,2320           00037                                    T                                     
039858,000530: 32,2321           37724                           STCALL   T12                                   
039859,000531: 32,2322           03547                                    RTENCKEX                              
039860,000532: 

Page 909

039862,000534:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
039863,000535: 
039864,000536:                                                                                                  #  DESCRIPTION
039865,000537:                                                                                                  #    OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
039866,000538:                                                                                                  #  COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
039867,000539: 
039868,000540:                                                                                                  #  CALLING SEQUENCE
039869,000541:                                                                                                  #    L   CALL
039870,000542:                                                                                                  #    L+1         RTEDISP
039871,000543: 
039872,000544:                                                                                                  #  SUBROUTINES CALLED
039873,000545:                                                                                                  #    TMRAD100
039874,000546:                                                                                                  #    AUGEKUGL
039875,000547:                                                                                                  #    LAT-LONG
039876,000548: 
039877,000549:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039878,000550:                                                                                                  #    PUSHLIST
039879,000551:                                                                                                  #      NONE
039880,000552:                                                                                                  #    MPAC
039881,000553:                                                                                                  #      NONE
039882,000554:                                                                                                  #    OTHER
039883,000555:                                                                                                  #      R(T2)/            FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039884,000556:                                                                                                  #      V(T2)/            FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039885,000557:                                                                                                  #      T2                FINAL TIME                                              DP      B28     CS
039886,000558:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
039887,000559:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039888,000560:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
039889,000561:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039890,000562: 
039891,000563:                                                                                                  #  OUTPUT
039892,000564:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039893,000565:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039894,000566:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZ
039895,000567:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039896,000568:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039897,000569:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039898,000570: 
039899,000571: 32,2323           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
039900,000572: 32,2324           03752                                    SPRTEX                                
039901,000573: 32,2325           03710                                    V(T2)/                                
039902,000574: 32,2326           65256                           UNIT     PDDL                                  
039903,000575: 32,2327           00045                                    36D                                   
039904,000576: 32,2330           17757                           STODL    VPRED                                 #  V(T2)
039905,000577: 32,2331           03552                                    T2                                    
039906,000578: 32,2332           77625                           DSU                                            
039907,000579: 32,2333           03413                                    SPRTETIG                              
039908,000580: 32,2334           26641                           STOVL    T3TOT4                                #  T21
039909,000581: 32,2335           03656                                    R(T2)/                                
039910,000582: 32,2336           50256                           UNIT     DOT                                   
039911,000583: 32,2337           77752                           SL1                                            

Page 910

039913,000585: 32,2340           44326                           ARCCOS   BDSU                                  
039914,000586: 32,2341           15326                                    1RTEB2                                
039915,000587: 32,2342           27761                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
039916,000588: 32,2343           03700                                    V2(T1)/                               
039917,000589: 32,2344           41451                           VSU      PUSH                                  
039918,000590: 32,2345           03672                                    V(T1)/                                
039919,000591: 32,2346           57441                           DOT      DCOMP                                 
039920,000592: 32,2347           03554                                    UR1/                                  
039921,000593: 32,2350           41515                           PDVL     PUSH                                  
039922,000594: 32,2351           63345                           DLOAD    PDVL                                  
039923,000595: 32,2352           15330                                    ZERORTE                               
039924,000596: 32,2353           55441                           DOT      VDEF                                  
039925,000597: 32,2354           03562                                    UH/                                   
039926,000598: 32,2355           77772                           VSL1                                           
039927,000599: 32,2356           17405                           STODL    DELVLVC                               
039928,000600: 32,2357           03405                                    DELVLVC                               
039929,000601: 32,2360           57414                           BOFF     DCOMP                                 
039930,000602: 32,2361           02741                                    RETROFLG                              
039931,000603: 32,2362           64364                                    RTD18                                 
039932,000604: 32,2363           03405                           STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
039933,000605: 32,2364           51575        RTD18              VLOAD    ABVAL                                 
039934,000606: 32,2365           03405                                    DELVLVC                               
039935,000607: 32,2366           27763                           STOVL    VGDISP                                
039936,000608: 32,2367           03656                                    R(T2)/                                
039937,000609: 32,2370           02657                           STORE    RVEC                                  #  *****  LANDING SITE COMPUTATION  *****
039938,000610: 32,2371           45246                           ABVAL    DSU                                   
039939,000611: 32,2372           33620                                    30480RTE                              
039940,000612: 32,2373           26760                           STOVL    RDESIRED                              
039941,000613: 32,2374           03710                                    V(T2)/                                
039942,000614: 32,2375           36746                           STCALL   VVEC                                  
039943,000615: 32,2376           64304                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
039944,000616: 32,2377           53575                           VLOAD    UNIT                                  
039945,000617: 32,2400           03656                                    R(T2)/                                
039946,000618: 32,2401           53515                           PDVL     UNIT                                  #  UR3                               PL06D
039947,000619: 32,2402           03710                                    V(T2)/                                
039948,000620: 32,2403           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)          PL00D
039949,000621: 32,2404           65336                           ARCSIN   PDDL                                  #  V(T3)                             PL02D
039950,000622: 32,2405           00045                                    36D                                   
039951,000623: 32,2406           51525                           PDDL     ABS                                   
039952,000624: 32,2407           45006                           PUSH     CALL                                  #  /GAMMAE/                          PL04D
039953,000625: 32,2410           64105                                    AUGEKUGL                              #  PHIE                              PL06D
039954,000626: 32,2411           43215                           DAD      DAD                                   
039955,000627: 32,2412           03724                                    T12                                   #  T23
039956,000628: 32,2413           03552                                    T2                                    
039957,000629: 32,2414           00003                           STORE    02D                                   #  T(LS)=T2&T23&TE
039958,000630: 32,2415           53135                           SLOAD    BZE                                   
039959,000631: 32,2416           03013                                    P37RANGE                              
039960,000632: 32,2417           64421                                    RTD22                                 
039961,000633: 32,2420           00005                           STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
039962,000634: 32,2421           73545        RTD22              DLOAD    SIN                                   

Page 911

039964,000636: 32,2422           00005                                    04D                                   
039965,000637: 32,2423           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                PL04D
039966,000638: 32,2424           77746                           COS                                            
039967,000639: 32,2425           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
039968,000640: 32,2426           53575                           VLOAD    UNIT                                  
039969,000641: 32,2427           03656                                    R(T2)/                                
039970,000642: 32,2430           41406                           PUSH     PUSH                                  
039971,000643: 32,2431           53515                           PDVL     UNIT                                  #                                    PL22D
039972,000644: 32,2432           03710                                    V(T2)/                                
039973,000645: 32,2433           47315                           PDVL     VXV                                   
039974,000646: 32,2434           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)         PL10D
039975,000647: 32,2435           63361                           VXSC     PDVL                                  
039976,000648: 32,2436           03403                                    LNG(SPL)                              
039977,000649: 32,2437           53361                           VXSC     VAD                                   #                                    PL04D
039978,000650: 32,2440           03401                                    LAT(SPL)                              
039979,000651: 32,2441           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
039980,000652: 32,2442           00662                                    ERADFLAG                              
039981,000653: 32,2443           01663                                    LUNAFLAG                              
039982,000654: 32,2444           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)  PL02D
039983,000655: 32,2445           77624                           CALL                                           
039984,000656: 32,2446           26453                                    LAT-LONG                              
039985,000657: 32,2447           77745                           DLOAD                                          
039986,000658: 32,2450           00747                                    LAT                                   
039987,000659: 32,2451           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE   *****
039988,000660: 32,2452           00751                                    LONG                                  
039989,000661: 32,2453           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE  *****
039990,000662: 32,2454           03752                                    SPRTEX                                

Page 912

039992,000664:                                                                                                  #  INITIAL VECTOR SUBROUTINE
039993,000665: 
039994,000666:                                                                                                  #  DESCRIPTION
039995,000667:                                                                                                  #    A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
039996,000668: 
039997,000669:                                                                                                  #  CALLING SEQUENCE
039998,000670:                                                                                                  #    L   CALL
039999,000671:                                                                                                  #    L+1         INVC100
040000,000672: 
040001,000673:                                                                                                  #  NORMAL EXIT MODE
040002,000674:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040003,000675: 
040004,000676:                                                                                                  #  ALARM EXIT MODE
040005,000677:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
040006,000678: 
040007,000679:                                                                                                  #  SUBROUTINES CALLED
040008,000680:                                                                                                  #    CSMPREC
040009,000681: 
040010,000682:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040011,000683:                                                                                                  #    PUSHLIST
040012,000684:                                                                                                  #      NONE
040013,000685:                                                                                                  #    MPAC
040014,000686:                                                                                                  #      NONE
040015,000687:                                                                                                  #    OTHER
040016,000688:                                                                                                  #      SPRTETIG          TIME OF IGNITION                                        DP      B28     CS
040017,000689:                                                                                                  #      CSM STATE VECTOR
040018,000690: 
040019,000691:                                                                                                  #  OUTPUT
040020,000692:                                                                                                  #    R(T1)/              INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
040021,000693:                                                                                                  #    V(T1)/              INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
040022,000694:                                                                                                  #    T1                  INITIAL VECTOR TIME (TIG)                               DP      B28     CS
040023,000695:                                                                                                  #    UR1/                UNIT INITIAL VECTOR                                     VECTOR  B1
040024,000696:                                                                                                  #    UH/                 UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040025,000697:                                                                                                  #    CFPA                COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040026,000698: 
040027,000699: 32,2455           71220        INVC100            STQ      DLOAD                                 
040028,000700: 32,2456           03752                                    SPRTEX                                
040029,000701: 32,2457           03413                                    SPRTETIG                              
040030,000702: 32,2460           34041                           STCALL   TDEC1                                 
040031,000703: 32,2461           27145                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
040032,000704: 32,2462           67175                           VLOAD    SXA,2                                 
040033,000705: 32,2463           00001                                    RATT                                  
040034,000706: 32,2464           03745                                    P(T1)                                 
040035,000707: 32,2465           27640                           STOVL    R(T1)/                                
040036,000708: 32,2466           00007                                    VATT                                  
040037,000709: 32,2467           17672                           STODL    V(T1)/                                
040038,000710: 32,2470           00015                                    TAT                                   
040039,000711: 32,2471           03716                           STORE    T1                                    
040040,000712: 32,2472           53135                           SLOAD    BZE                                   
040041,000713: 32,2473           03746                                    P(T1)                                 

Page 913

040043,000715: 32,2474           64500                                    INVC109                               
040044,000716: 32,2475           52135        INVC107            SLOAD    GOTO                                  
040045,000717: 32,2476           33631                                    OCT612                                
040046,000718: 32,2477           64272                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
040047,000719: 32,2500           53575        INVC109            VLOAD    UNIT                                  
040048,000720: 32,2501           03640                                    R(T1)/                                
040049,000721: 32,2502           17554                           STODL    UR1/                                  #  UR1/                           B1
040050,000722: 32,2503           00045                                    36D                                   
040051,000723: 32,2504           27646                           STOVL    R(T1)                                 #  R(T1)                         B29
040052,000724: 32,2505           03672                                    V(T1)/                                
040053,000725: 32,2506           77656                           UNIT                                           
040054,000726: 32,2507           03562                           STORE    UV1/                                  
040055,000727: 32,2510           72441                           DOT      SL1                                   
040056,000728: 32,2511           03554                                    UR1/                                  
040057,000729: 32,2512           03747                           STORE    CFPA                                  #  CFPA                           B1
040058,000730: 32,2513           45246                           ABS      DSU                                   
040059,000731: 32,2514           33644                                    EPC1RTE                               
040060,000732: 32,2515           71240                           BMN      DLOAD                                 
040061,000733: 32,2516           64525                                    INVC115                               #  NOT NEAR RECTILINEAR
040062,000734: 32,2517           15326                                    1RTEB2                                
040063,000735: 32,2520           41525                           PDDL     PUSH                                  
040064,000736: 32,2521           15330                                    ZERORTE                               
040065,000737: 32,2522           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
040066,000738: 32,2523           77650                           GOTO                                           
040067,000739: 32,2524           64531                                    INVC120                               
040068,000740: 32,2525           47375        INVC115            VLOAD    VXV                                   
040069,000741: 32,2526           03554                                    UR1/                                  
040070,000742: 32,2527           03562                                    UV1/                                  
040071,000743: 32,2530           77606                           PUSH                                           #  N/ = UR X UV                   B2
040072,000744: 32,2531           71214        INVC120            CLEAR    DLOAD                                 
040073,000745: 32,2532           02661                                    RETROFLG                              
040074,000746: 32,2533           51006                           PUSH     BPL                                   
040075,000747: 32,2534           64540                                    INVC125                               
040076,000748: 32,2535           57575                           VLOAD    VCOMP                                 #  RETROGRADE ORBIT
040077,000749: 32,2536           43006                           PUSH     SET                                   
040078,000750: 32,2537           02461                                    RETROFLG                              
040079,000751: 32,2540           77775        INVC125            VLOAD                                          
040080,000752: 32,2541           53435                           VXV      UNIT                                  
040081,000753: 32,2542           03554                                    UR1/                                  
040082,000754: 32,2543           03562                           STORE    UH/                                   #  UH/                            B1
040083,000755: 32,2544           77650                           GOTO                                           
040084,000756: 32,2545           03752                                    SPRTEX                                
040085,000757: 

Page 914

040087,000759:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040088,000760: 
040089,000761:                                                                                                  #  DESCRIPTION
040090,000762:                                                                                                  #    A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040091,000763:                                                                                                  #  CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040092,000764:                                                                                                  #  AS POSSIBLE.
040093,000765: 
040094,000766:                                                                                                  #  CALLING SEQUENCE
040095,000767:                                                                                                  #    L   CALL
040096,000768:                                                                                                  #    L+1         PREC100
040097,000769: 
040098,000770:                                                                                                  #  NORMAL EXIT MODE
040099,000771:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040100,000772: 
040101,000773:                                                                                                  #  ALARM EXIT MODE
040102,000774:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC =
040103,000775:                                                                                                  #        OCTAL 605       FOR EXCESS ITERATIONS
040104,000776:                                                                                                  #        OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
040105,000777: 
040106,000778:                                                                                                  #  SUBROUTINES CALLED
040107,000779:                                                                                                  #    INTSTALL
040108,000780:                                                                                                  #    RTENCK2
040109,000781:                                                                                                  #    RTENCK3
040110,000782:                                                                                                  #    TIMERAD
040111,000783:                                                                                                  #    PARAM
040112,000784:                                                                                                  #    V2T100
040113,000785: 
040114,000786:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040115,000787:                                                                                                  #    PUSHLIST
040116,000788:                                                                                                  #      NONE
040117,000789:                                                                                                  #    MPAC
040118,000790:                                                                                                  #      NONE
040119,000791:                                                                                                  #    OTHER
040120,000792:                                                                                                  #      R(T1)/            INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
040121,000793:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040122,000794:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040123,000795:                                                                                                  #      T1                INITIAL VECTOR TIME                                     DP      B28     CS
040124,000796:                                                                                                  #      T12               INITIAL TO FINAL POSITION TIME                          DP      B28     CS
040125,000797:                                                                                                  #      RCON              CONIC FINAL RADIUS                                      DP      B29/B27 METERS
040126,000798:                                                                                                  #      R(T1)             MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040127,000799:                                                                                                  #      X(T2)             COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040128,000800:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
040129,000801:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040130,000802:                                                                                                  #      MAMAX1            MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040131,000803:                                                                                                  #      MAMAX2            MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040132,000804:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040133,000805:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040134,000806:                                                                                                  #      BETA1             1+X(T2)**2                                              DP      B1
040135,000807:                                                                                                  #      PHI2              PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
040136,000808: 

Page 915

040138,000810:                                                                                                  #  OUTPUT
040139,000811:                                                                                                  #    V2(T1)/             POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040140,000812:                                                                                                  #    R(T2)/              FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040141,000813:                                                                                                  #    V(T2)/              FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040142,000814:                                                                                                  #    T2                  FINAL TIME                                              DP      B28     CENTISECONDS
040143,000815: 
040144,000816:                                                                                                  #  DEBRIS
040145,000817:                                                                                                  #    RD                  FINAL R DESIRED                                         DP      B29/B27 METERS
040146,000818:                                                                                                  #    R/APRE              R/A                                                     DP      B6
040147,000819:                                                                                                  #    P/RPRE              P/R                                                     DP      B4
040148,000820:                                                                                                  #    RPRE                MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
040149,000821:                                                                                                  #    X(T2)PRE            COTANGENT OF GAMMA2                                     DP      B0
040150,000822:                                                                                                  #    DT12                CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
040151,000823:                                                                                                  #    RCON                FINAL RADIUS                                            DP      B29/B27 METERS
040152,000824:                                                                                                  #    DRCON               DELTA RCON                                              DP      B29/B27 METERS
040153,000825: 
040154,000826: 32,2546           71220        PREC100            STQ      DLOAD                                 
040155,000827: 32,2547           03752                                    SPRTEX                                
040156,000828: 32,2550           33606                                    10RTE                                 
040157,000829: 32,2551           17730                           STODL    NN1A                                  
040158,000830: 32,2552           03636                                    RCON                                  
040159,000831: 32,2553           03664                           STORE    RD                                    
040160,000832: 32,2554           77745        PREC120            DLOAD                                          
040161,000833: 32,2555           15344                                    2RTEB1                                
040162,000834: 32,2556           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
040163,000835: 32,2557           33604                                    M15RTE                                
040164,000836: 32,2560           37546                           STCALL   NN2                                   
040165,000837: 32,2561           63652                                    RTENCK3                               
040166,000838: 32,2562           77624        PREC125            CALL                                           
040167,000839: 32,2563           37727                                    PARAM                                 
040168,000840: 32,2564           77745                           DLOAD                                          
040169,000841: 32,2565           02742                                    P                                     
040170,000842: 32,2566           14033                           STODL    P/RPRE                                
040171,000843: 32,2567           02744                                    R1A                                   
040172,000844: 32,2570           14035                           STODL    R/APRE                                
040173,000845: 32,2571           00041                                    R1                                    
040174,000846: 32,2572           14031                           STODL    RPRE                                  
040175,000847: 32,2573           03770                                    COGA                                  
040176,000848: 32,2574           77661                           SL                                             
040177,000849: 32,2575           20206                                    5                                     
040178,000850: 32,2576           03724                           STORE    X(T2)PRE                              
040179,000851: 32,2577           43276                           DCOMP    DAD                                   
040180,000852: 32,2600           03726                                    X(T2)                                 
040181,000853: 32,2601           45246                           ABS      DSU                                   
040182,000854: 32,2602           33652                                    EPC4RTE                               
040183,000855: 32,2603           50000                           BOV      BMN                                   
040184,000856: 32,2604           64606                                    PREC130                               
040185,000857: 32,2605           64775                                    PREC175                               
040186,000858: 
040187,000859:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 916

040189,000861: 32,2606           50145        PREC130            DLOAD    BMN                                   
040190,000862: 32,2607           03546                                    NN2                                   
040191,000863: 32,2610           64614                                    PREC140                               
040192,000864: 32,2611           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
040193,000865: 32,2612           33630                                    OCT605                                #      EXIT WITH ALARM
040194,000866: 32,2613           65100                                    PRECX                                 
040195,000867: 
040196,000868:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040197,000869: 
040198,000870: 32,2614           53145        PREC140            DLOAD    BZE                                   
040199,000871: 32,2615           03730                                    NN1A                                  
040200,000872: 32,2616           64654                                    PREC162                               
040201,000873: 32,2617           62545        PREC150            DLOAD    SL2                                   #                                 B2
040202,000874: 32,2620           00033                                    P/RPRE                                
040203,000875: 32,2621           72405                           DMP      SL1                                   #  BETA2=BETA1*P/R                B2 PL02
040204,000876: 32,2622           03744                                    BETA1                                 
040205,000877: 32,2623           71206                           PUSH     DLOAD                                 
040206,000878: 32,2624           00035                                    R/APRE                                
040207,000879: 32,2625           41212                           SL4      DMP                                   
040208,000880: 32,2626           00001                                    00D                                   
040209,000881: 32,2627           50021                           BDSU     BMN                                   #  BETA3=1-BETA2*R/A
040210,000882: 32,2630           31771                                    1RTEB4                                
040211,000883: 32,2631           64644                                    PREC160                               
040212,000884: 32,2632           75512        PREC155            SL2      SQRT                                  
040213,000885: 32,2633           44205                           DMP      BDSU                                  
040214,000886: 32,2634           03751                                    PHI2                                  
040215,000887: 32,2635           31767                                    1RTEB3                                
040216,000888: 32,2636           65301                           NORM     PDDL                                  
040217,000889: 32,2637           00047                                    X1                                    
040218,000890: 32,2640           56342                           SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040219,000891: 32,2641           52057                           SL*      GOTO                                  #                                 B1
040220,000892: 32,2642           20200                                    0          -1,1                       
040221,000893: 32,2643           64662                                    PREC165                               
040222,000894: 32,2644           60345        PREC160            DLOAD    NORM                                  
040223,000895: 32,2645           00035                                    R/APRE                                
040224,000896: 32,2646           00047                                    X1                                    
040225,000897: 32,2647           53665                           BDDV     SL*                                   #                                 B1
040226,000898: 32,2650           15334                                    1RTEB1                                
040227,000899: 32,2651           20173                                    0          -6,1                       
040228,000900: 32,2652           77650                           GOTO                                           
040229,000901: 32,2653           64662                                    PREC165                               
040230,000902: 32,2654           60345        PREC162            DLOAD    NORM                                  
040231,000903: 32,2655           00031                                    RPRE                                  
040232,000904: 32,2656           00047                                    X1                                    
040233,000905: 32,2657           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                  B1
040234,000906: 32,2660           03664                                    RD                                    
040235,000907: 32,2661           20200                                    0          -1,1                       
040236,000908: 32,2662           41401        PREC165            SETPD    PUSH                                  
040237,000909: 32,2663           00001                                    0                                     
040238,000910: 32,2664           57425                           DSU      DCOMP                                 

Page 917

040240,000912: 32,2665           15334                                    1RTEB1                                
040241,000913: 32,2666           03755                           STORE    BETA12                                
040242,000914: 32,2667           71240                           BMN      DLOAD                                 
040243,000915: 32,2670           64701                                    PREC168                               
040244,000916: 32,2671           03724                                    X(T2)PRE                              
040245,000917: 32,2672           71240                           BMN      DLOAD                                 
040246,000918: 32,2673           64677                                    PREC167                               
040247,000919: 32,2674           03755                                    BETA12                                
040248,000920: 32,2675           77676                           DCOMP                                          
040249,000921: 32,2676           03755                           STORE    BETA12                                
040250,000922: 32,2677           77745        PREC167            DLOAD                                          
040251,000923: 32,2700           03755                                    BETA12                                
040252,000924: 32,2701           45246        PREC168            ABS      DSU                                   
040253,000925: 32,2702           33654                                    EPC6RTE                               
040254,000926: 32,2703           71240                           BMN      DLOAD                                 
040255,000927: 32,2704           64775                                    PREC175                               
040256,000928: 32,2705           72405                           DMP      SL1                                   
040257,000929: 32,2706           00031                                    RPRE                                  
040258,000930: 32,2707           77606                           PUSH                                           #  RF = NEW RADIUS
040259,000931: 32,2710           43345        PREC170            DLOAD    DAD                                   
040260,000932: 32,2711           03546                                    NN2                                   
040261,000933: 32,2712           33600                                    1RTEB28                               
040262,000934: 32,2713           03546                           STORE    NN2                                   
040263,000935: 32,2714           43175                           VLOAD    SET                                   
040264,000936: 32,2715           03656                                    R(T2)/                                
040265,000937: 32,2716           03466                                    RVSW                                  
040266,000938: 32,2717           26657                           STOVL    RVEC                                  
040267,000939: 32,2720           03710                                    V(T2)/                                
040268,000940: 32,2721           77765                           SIGN                                           
040269,000941: 32,2722           03755                                    BETA12                                
040270,000942: 32,2723           16746                           STODL    VVEC                                  
040271,000943: 32,2724           15334                                    1RTEB1                                
040272,000944: 32,2725           57565                           SIGN     DCOMP                                 
040273,000945: 32,2726           03755                                    BETA12                                
040274,000946: 32,2727           71354                           LXA,2    DLOAD                                 
040275,000947: 32,2730           00154                                    MPAC                                  
040276,000948: 32,2731           67140                           LXC,1    SXA,2                                 
040277,000949: 32,2732           03550                                    CONICX1                               
040278,000950: 32,2733           02756                                    SGNRDOT                               
040279,000951: 32,2734           36760                           STCALL   RDESIRED                              #  COMPUTED DT12 (CORRECTION TO TIME OF
040280,000952: 32,2735           25607                                    TIMERAD                               #        NEW RADIUS)
040281,000953: 32,2736           75345                           DLOAD    SIGN                                  
040282,000954: 32,2737           00037                                    T                                     
040283,000955: 32,2740           03755                                    BETA12                                
040284,000956: 32,2741           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                   PL02D
040285,000957: 32,2742           03650                                    DT21PR                                
040286,000958: 32,2743           00047                                    X1                                    
040287,000959: 32,2744           53665                           BDDV     SL*                                   
040288,000960: 32,2745           00001                                    00D                                   
040289,000961: 32,2746           20176                                    0          -3,1                       

Page 918

040291,000963: 32,2747           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)         B3 PL04D
040292,000964: 32,2750           64755                                    PREC172                               
040293,000965: 32,2751           65345                           DLOAD    PDDL                                  #  BETA14=1                       B0 PL04D
040294,000966: 32,2752           15344                                    2RTEB1                                
040295,000967: 32,2753           77650                           GOTO                                           
040296,000968: 32,2754           64757                                    PREC173                               
040297,000969: 32,2755           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                      B0 PL04D
040298,000970: 32,2756           33610                                    M.6RTE                                
040299,000971: 32,2757           45271        PREC173            DDV      DSU                                   
040300,000972: 32,2760           00003                                    02D                                   
040301,000973: 32,2761           31767                                    1RTEB3                                
040302,000974: 32,2762           71240                           BMN      DLOAD                                 
040303,000975: 32,2763           64767                                    PREC174                               
040304,000976: 32,2764           77605                           DMP                                            
040305,000977: 32,2765           03650                                    DT21PR                                
040306,000978: 32,2766           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
040307,000979: 32,2767           41545        PREC174            DLOAD    PUSH                                  
040308,000980: 32,2770           00001                                    00D                                   
040309,000981: 32,2771           37650                           STCALL   DT21PR                                
040310,000982: 32,2772           63634                                    RTENCK2                               
040311,000983: 32,2773           77650                           GOTO                                           
040312,000984: 32,2774           64562                                    PREC125                               
040313,000985: 32,2775           45345        PREC175            DLOAD    DSU                                   
040314,000986: 32,2776           00031                                    RPRE                                  
040315,000987: 32,2777           03664                                    RD                                    
040316,000988: 32,3000           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
040317,000989: 32,3001           50025                           DSU      BMN                                   
040318,000990: 32,3002           33656                                    EPC7RTE                               
040319,000991: 32,3003           35022                                    PREC220                               
040320,000992: 
040321,000993:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
040322,000994: 
040323,000995: 32,3004           53145                           DLOAD    BZE                                   
040324,000996: 32,3005           03730                                    NN1A                                  
040325,000997: 32,3006           64611                                    PREC132                               #  TOO MANY ITERATIONS
040326,000998: 32,3007           53025                           DSU      BZE                                   
040327,000999: 32,3010           33606                                    10RTE                                 
040328,001000: 32,3011           65044                                    PREC207                               
040329,001001: 32,3012           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
040330,001002: 32,3013           03670                                    RPRE,                                 
040331,001003: 32,3014           00031                                    RPRE                                  #  RPRE,-RPRE                B29/B27
040332,001004: 32,3015           55301                           NORM     BDDV                                  
040333,001005: 32,3016           00050                                    X2                                    
040334,001006: 32,3017           03666                                    DRCON                                 
040335,001007: 32,3020           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S           B2
040336,001008: 32,3021           57600                                    0          -2,2                       
040337,001009: 32,3022           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
040338,001010: 32,3023           15334                                    1RTEB1                                
040339,001011: 32,3024           65031                                    PREC205M                              
040340,001012: 32,3025           45246                           ABS      DSU                                   

Page 919

040342,001014: 32,3026           15334                                    1RTEB1                                
040343,001015: 32,3027           77640                           BMN                                            
040344,001016: 32,3030           65034                                    PREC206                               
040345,001017: 32,3031           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
040346,001018: 32,3032           15344                                    2RTEB1                                
040347,001019: 32,3033           77725                           PDDL                                           #  S=-4                           B2
040348,001020: 32,3034           41345        PREC206            DLOAD    DMP                                   
040349,001021: 32,3035           77712                           SL2                                            
040350,001022: 32,3036           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
040351,001023: 32,3037           77615                           DAD                                            
040352,001024: 32,3040           03636                                    RCON                                  
040353,001025: 32,3041           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
040354,001026: 32,3042           77650                           GOTO                                           
040355,001027: 32,3043           65063                                    PREC210                               
040356,001028: 32,3044           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
040357,001029: 32,3045           03664                                    RD                                    
040358,001030: 32,3046           70501                           NORM     SR1                                   
040359,001031: 32,3047           00047                                    X1                                    
040360,001032: 32,3050           60325                           PDDL     NORM                                  
040361,001033: 32,3051           00031                                    RPRE                                  
040362,001034: 32,3052           00050                                    X2                                    
040363,001035: 32,3053           55260                           XSU,1    BDDV                                  
040364,001036: 32,3054           00047                                    X2                                    
040365,001037: 32,3055           77657                           SR*                                            
040366,001038: 32,3056           20600                                    0          -1,1                       
040367,001039: 32,3057           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
040368,001040: 32,3060           77625                           DSU                                            
040369,001041: 32,3061           03664                                    RD                                    
040370,001042: 32,3062           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
040371,001043: 32,3063           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
040372,001044: 32,3064           00031                                    RPRE                                  
040373,001045: 32,3065           17670                           STODL    RPRE,                                 
040374,001046: 32,3066           03730                                    NN1A                                  
040375,001047: 32,3067           77625                           DSU                                            
040376,001048: 32,3070           33600                                    1RTEB28                               
040377,001049: 32,3071           37730                           STCALL   NN1A                                  
040378,001050: 32,3072           65102                                    V2T100                                
040379,001051: 32,3073           52030                           BHIZ     GOTO                                  
040380,001052: 32,3074           64554                                    PREC120                               
040381,001053: 32,3075           65100                                    PRECX                                 
040382,001054: 
040383,001055:                                                                                                  #  DESIRED RADIUS ACHIEVED
040384,001056: 
040385,001057: 16,2000                                           SETLOC   RTE2                                  
040386,001058: 16,2000                                           BANK                                           
040387,001059: 16,3022           45345        PREC220            DLOAD    DSU                                   
040388,001060: 16,3023           03726                                    X(T2)                                 
040389,001061: 16,3024           03724                                    X(T2)PRE                              
040390,001062: 16,3025           45246                           ABS      DSU                                   

Page 920

040392,001064: 16,3026           35035                                    EPC8RTE                               
040393,001065: 16,3027           67240                           BMN      SLOAD                                 
040394,001066: 16,3030           65076                                    PREC225                               
040395,001067: 16,3031           35037                                    OCT613                                
040396,001068: 16,3032           77650                           GOTO                                           
040397,001069: 16,3033           65100                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040398,001070: 
040399,001071: 16,3034           00040 30447  EPC8RTE            2DEC     .002                                  
040400,001072: 16,3036           00613        OCT613             OCT      613                                   
040401,001073: 
040402,001074:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED.
040403,001075: 
040404,001076: 32,2000                                           SETLOC   RTE                                   
040405,001077: 32,2000                                           BANK                                           
040406,001078: 32,3076                                           COUNT*   $$/P37                                
040407,001079: 32,3076           77745        PREC225            DLOAD                                          
040408,001080: 32,3077           15330                                    ZERORTE                               
040409,001081: 32,3100           77650        PRECX              GOTO                                           
040410,001082: 32,3101           03752                                    SPRTEX                                
040411,001083: 

Page 921

040413,001085:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
040414,001086: 
040415,001087:                                                                                                  #  DESCRIPTION
040416,001088:                                                                                                  #    PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
040417,001089:                                                                                                  #  RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
040418,001090:                                                                                                  #  WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040419,001091: 
040420,001092:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
040421,001093: 
040422,001094:                                                                                                  #    CALLING SEQUENCE
040423,001095:                                                                                                  #        L       CALL
040424,001096:                                                                                                  #        L+1             RTENCK1
040425,001097: 
040426,001098:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040427,001099:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
040428,001100: 
040429,001101:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
040430,001102: 
040431,001103:                                                                                                  #    CALLING SEQUENCE
040432,001104:                                                                                                  #        L       CALL
040433,001105:                                                                                                  #        L+1             RTENCK2
040434,001106: 
040435,001107:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040436,001108:                                                                                                  #        PUSHLIST
040437,001109:                                                                                                  #          PUSHLOC-2     INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
040438,001110:                                                                                                  #        OTHER
040439,001111:                                                                                                  #          R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040440,001112:                                                                                                  #          V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040441,001113:                                                                                                  #          T2            FINAL TIME                                              DP      B28     CS
040442,001114: 
040443,001115:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
040444,001116: 
040445,001117:                                                                                                  #    CALLING SEQUENCE
040446,001118:                                                                                                  #        L       CALL
040447,001119:                                                                                                  #        L+1             RTENCK3
040448,001120: 
040449,001121:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040450,001122:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040451,001123:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
040452,001124:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040453,001125:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040454,001126: 
040455,001127:                                                                                                  #  EXIT MODE
040456,001128:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
040457,001129:                                                                                                  #  SUBROUTINES CALLED
040458,001130:                                                                                                  #    INTSTALL
040459,001131:                                                                                                  #    INTEGRVS
040460,001132: 
040461,001133:                                                                                                  #  OUTPUT
040462,001134:                                                                                                  #    PUSHLIST

Page 922

040464,001136:                                                                                                  #      PUSHLOC-6         FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
040465,001137:                                                                                                  #      X1                CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
040466,001138:                                                                                                  #    MPAC
040467,001139:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
040468,001140:                                                                                                  #    OTHER
040469,001141:                                                                                                  #        R(T2)/          AS IN PUSHLIST
040470,001142:                                                                                                  #        V(T2)/          AS IN MPAC
040471,001143:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040472,001144: 
040473,001145: 31,2000                                           SETLOC   RTE3                                  
040474,001146: 31,2000                                           BANK                                           
040475,001147: 31,3624                                           COUNT*   $$/P37                                
040476,001148: 31,3624           45020        RTENCK1            STQ      CALL                                  
040477,001149: 31,3625           03547                                    RTENCKEX                              
040478,001150: 31,3626           27516                                    INTSTALL                              
040479,001151: 31,3627           43175                           VLOAD    SET                                   
040480,001152: 31,3630           03640                                    R(T1)/                                
040481,001153: 31,3631           01473                                    INTYPFLG                              
040482,001154: 31,3632           77650                           GOTO                                           
040483,001155: 31,3633           63660                                    RTENCK3B                              
040484,001156: 
040485,001157: 31,3634           45020        RTENCK2            STQ      CALL                                  
040486,001158: 31,3635           03547                                    RTENCKEX                              
040487,001159: 31,3636           27516                                    INTSTALL                              
040488,001160: 31,3637           77214                           CLEAR    VLOAD                                 
040489,001161: 31,3640           01673                                    INTYPFLG                              
040490,001162: 31,3641           03656                                    R(T2)/                                
040491,001163: 31,3642           25535                           STOVL    RCV                                   
040492,001164: 31,3643           03710                                    V(T2)/                                
040493,001165: 31,3644           15543                           STODL    VCV                                   
040494,001166: 31,3645           03552                                    T2                                    
040495,001167: 31,3646           01517                           STORE    TET                                   
040496,001168: 31,3647           77615                           DAD                                            
040497,001169: 31,3650           77650                           GOTO                                           
040498,001170: 31,3651           63666                                    RTENCK3D                              
040499,001171: 
040500,001172: 31,3652           45020        RTENCK3            STQ      CALL                                  
040501,001173: 31,3653           03547                                    RTENCKEX                              
040502,001174: 31,3654           27516                                    INTSTALL                              
040503,001175: 31,3655           43175        RTENCK3A           VLOAD    CLEAR                                 
040504,001176: 31,3656           03640                                    R(T1)/                                
040505,001177: 31,3657           01673                                    INTYPFLG                              
040506,001178: 31,3660           25535        RTENCK3B           STOVL    RCV                                   
040507,001179: 31,3661           03700                                    V2(T1)/                               
040508,001180: 31,3662           15543                           STODL    VCV                                   
040509,001181: 31,3663           03716                                    T1                                    
040510,001182: 31,3664           15517                           STODL    TET                                   

Page 923

040512,001184: 31,3665           03552                                    T2                                    
040513,001185: 31,3666           00041        RTENCK3D           STORE    TDEC1                                 
040514,001186: 31,3667           45014                           CLEAR    CALL                                  
040515,001187: 31,3670           00263                                    MOONFLAG                              
040516,001188: 31,3671           27211                                    INTEGRVS                              
040517,001189: 31,3672           77775                           VLOAD                                          
040518,001190: 31,3673           00001                                    RATT                                  
040519,001191: 31,3674           03656                           STORE    R(T2)/                                
040520,001192: 31,3675           70125                           PDDL     LXC,1                                 
040521,001193: 31,3676           00015                                    TAT                                   
040522,001194: 31,3677           03550                                    CONICX1                               
040523,001195: 31,3700           27552                           STOVL    T2                                    
040524,001196: 31,3701           00007                                    VATT                                  
040525,001197: 31,3702           03710                           STORE    V(T2)/                                
040526,001198: 31,3703           77650                           GOTO                                           
040527,001199: 31,3704           03547                                    RTENCKEX                              
040528,001200: 32,2000                                           SETLOC   RTE                                   
040529,001201: 32,2000                                           BANK                                           
040530,001202: 32,3102                                           COUNT*   $$/P37                                
040531,001203: 

Page 924

040533,001205:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
040534,001206: 
040535,001207:                                                                                                  #  DESCRIPTION
040536,001208:                                                                                                  #  A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040537,001209:                                                                                                  #  (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME  OR
040538,001210:                                                                                                  #  (2) IF A VELOCITY CHANGE ISN'T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040539,001211:                                                                                                  #  AND CONSEQUENTLY FUEL.
040540,001212: 
040541,001213:                                                                                                  #  CALLING SEQUENCE
040542,001214:                                                                                                  #    L   CALL
040543,001215:                                                                                                  #    L+1         V2T100
040544,001216: 
040545,001217:                                                                                                  #  NORMAL EXIT MODE
040546,001218:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040547,001219: 
040548,001220:                                                                                                  #  ALARM EXIT MODE
040549,001221:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS.
040550,001222: 
040551,001223:                                                                                                  #  SUBROUTINES CALLED
040552,001224:                                                                                                  #    GAMDV10
040553,001225:                                                                                                  #    XT1LIM
040554,001226:                                                                                                  #    DVCALC
040555,001227: 
040556,001228:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040557,001229:                                                                                                  #    PUSHLIST
040558,001230:                                                                                                  #      NONE
040559,001231:                                                                                                  #    MPAC
040560,001232:                                                                                                  #      NONE
040561,001233:                                                                                                  #    OTHER
040562,001234:                                                                                                  #      R(T1)             MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040563,001235:                                                                                                  #      RCON              MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
040564,001236:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040565,001237:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040566,001238:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040567,001239:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040568,001240:                                                                                                  #      X(T2)             COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040569,001241:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE(INPUT FOR PREC)  DP      B5
040570,001242:                                                                                                  #      CFPA              COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040571,001243:                                                                                                  #      MAMAX1            MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040572,001244:                                                                                                  #      MAMAX2            MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040573,001245:                                                                                                  #      PHI2              REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
040574,001246:                                                                                                  #      N1                CONIC OR PRECISION ITERATION OPERATOR                   DP      B28     NEGATIVE CONIC, PLUS PREC
040575,001247: 
040576,001248:                                                                                                  #  OUTPUT
040577,001249:                                                                                                  #    V2(T1)/             POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040578,001250:                                                                                                  #    DV                  INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040579,001251:                                                                                                  #    X(T1)               COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
040580,001252:                                                                                                  #    PCON                SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040581,001253:                                                                                                  #    BETA1               1+X(T2)**2                                              DP      B1
040582,001254: 

Page 925

040584,001256:                                                                                                  #  DEBRIS
040585,001257:                                                                                                  #    PUSHLIST
040586,001258:                                                                                                  #      00D               X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
040587,001259:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
040588,001260:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040589,001261:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040590,001262:                                                                                                  #      10D               X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040591,001263:                                                                                                  #      12D               DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
040592,001264:                                                                                                  #      14D               X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040593,001265:                                                                                                  #      16D               DX(T1)=ITERATOR INCREMENT                               DP      B5
040594,001266:                                                                                                  #      31D               GAMDV10 SUBROUTINE RETURN ADDRESS
040595,001267:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
040596,001268:                                                                                                  #      33D               V2T100 SUBROUTINE RETURN ADDRESS
040597,001269: 
040598,001270: 32,3102           71220        V2T100             STQ      DLOAD                                 
040599,001271: 32,3103           00041                                    33D                                   
040600,001272: 32,3104           03636                                    RCON                                  
040601,001273: 32,3105           45240                           BMN      DSU                                   #  ABORT IF RCON NEGATIVE
040602,001274: 32,3106           65112                                    V2TERROR                              
040603,001275: 32,3107           03646                                    R(T1)                                 
040604,001276: 32,3110           77640                           BMN                                            
040605,001277: 32,3111           65115                                    V2T101                                
040606,001278: 32,3112           77776        V2TERROR           EXIT                                           #     OR IF LAMBDA LESS THAN ONE
040607,001279: 32,3113           05726                           TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1
040608,001280: 32,3114           20610                           OCT      20610                                 #  different that comanche55...smc
040609,001281: 
040610,001282: 32,3115           43001        V2T101             SETPD    CLEAR                                 
040611,001283: 32,3116           00001                                    0                                     #                                    PL00D
040612,001284: 32,3117           00272                                    F2RTE                                 
040613,001285: 32,3120           60345                           DLOAD    NORM                                  
040614,001286: 32,3121           03636                                    RCON                                  
040615,001287: 32,3122           00047                                    X1                                    
040616,001288: 32,3123           60325                           PDDL     NORM                                  
040617,001289: 32,3124           03646                                    R(T1)                                 
040618,001290: 32,3125           00051                                    S1                                    
040619,001291: 32,3126           00013                           STORE    10D                                   
040620,001292: 32,3127           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA               B1
040621,001293: 32,3130           65260                           XSU,1    PDDL                                  #                                    PL02D
040622,001294: 32,3131           00050                                    S1                                    
040623,001295: 32,3132           03726                                    X(T2)                                 
040624,001296: 32,3133           77716                           DSQ                                            
040625,001297: 32,3134           43342                           SR1      DAD                                   
040626,001298: 32,3135           15334                                    1RTEB1                                
040627,001299: 32,3136           03744                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1             B1
040628,001300: 32,3137           77605                           DMP                                            
040629,001301: 32,3140           00001                                    00D                                   
040630,001302: 32,3141           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
040631,001303: 32,3142           53605                           DMP      SL*                                   
040632,001304: 32,3143           00001                                    00D                                   
040633,001305: 32,3144           20172                                    0          -7,1                       

Page 926

040635,001307: 32,3145           45257                           SL*      DSU                                   
040636,001308: 32,3146           20172                                    0          -7,1                       
040637,001309: 32,3147           33574                                    1RTEB17                               
040638,001310: 32,3150           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17 PL05D
040639,001311: 32,3151           45657                                    TPMODE                                
040640,001312: 32,3152           15334                                    1RTEB1                                
040641,001313: 32,3153           57457                           SR*      DCOMP                                 
040642,001314: 32,3154           20601                                    0,1                                   
040643,001315: 32,3155           41215                           DAD      DMP                                   
040644,001316: 32,3156           00001                                    00D                                   
040645,001317: 32,3157           03646                                    R(T1)                                 
040646,001318: 32,3160           47057                           SL*      RTB                                   
040647,001319: 32,3161           20172                                    0          -7D,1                      
040648,001320: 32,3162           45657                                    TPMODE                                
040649,001321: 32,3163           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
040650,001322: 32,3164           33674                                    RTMURTE                               
040651,001323: 32,3165           70501                           NORM     SR1                                   
040652,001324: 32,3166           00050                                    X2                                    
040653,001325: 32,3167           56264                           XSU,2    DDV                                   
040654,001326: 32,3170           00050                                    S1                                    
040655,001327: 32,3171           00013                                    10D                                   
040656,001328: 32,3172           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3       B-4/B-5 PL10D
040657,001329: 32,3173           57170                                    6,2                                   
040658,001330: 32,3174           03652                                    MAMAX1                                
040659,001331: 32,3175           41406                           PUSH     PUSH                                  #  MAMAX1=MA
040660,001332: 32,3176           77624                           CALL                                           
040661,001333: 32,3177           65741                                    XT1LIM                                
040662,001334: 32,3200           41476                           DCOMP    PUSH                                  #  X(T1)MIN                       B5 PL12D
040663,001335: 32,3201           40476                           DCOMP    SR4                                   
040664,001336: 32,3202           41525                           PDDL     PUSH                                  #  DX(T1)MAX                      B5 PL14D
040665,001337: 32,3203           03654                                    MAMAX2                                
040666,001338: 32,3204           45006                           PUSH     CALL                                  
040667,001339: 32,3205           65741                                    XT1LIM                                
040668,001340: 32,3206           50125                           PDDL     BMN                                   #  X(T1)MAX                       B5 PL16D
040669,001341: 32,3207           03730                                    NN1A                                  
040670,001342: 32,3210           65213                                    V2T102                                
040671,001343: 32,3211           77650                           GOTO                                           
040672,001344: 32,3212           65225                                    V2T110                                
040673,001345: 
040674,001346:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
040675,001347: 
040676,001348: 32,3213           77745        V2T102             DLOAD                                          
040677,001349: 32,3214           03632                                    RTEDVD                                
040678,001350: 32,3215           52054                           BZE      GOTO                                  
040679,001351: 32,3216           65220                                    V2T105                                
040680,001352: 32,3217           65321                                    V2T140                                
040681,001353: 32,3220           50145        V2T105             DLOAD    BMN                                   
040682,001354: 32,3221           03747                                    CFPA                                  
040683,001355: 32,3222           65321                                    V2T140                                
040684,001356: 32,3223           77650                           GOTO                                           

Page 927

040686,001358: 32,3224           65327                                    V2T145                                
040687,001359: 
040688,001360:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
040689,001361:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
040690,001362:                                                                                                  #  THROUGH X(T2)
040691,001363: 
040692,001364: 32,3225           47145        V2T110             DLOAD    RTB                                   
040693,001365: 32,3226           33574                                    1RTEB17                               
040694,001366: 32,3227           45657                                    TPMODE                                
040695,001367: 32,3230           65276                           DCOMP    PDDL                                  #  -1                            B17 PL19D
040696,001368: 32,3231           15344                                    2RTEB1                                
040697,001369: 32,3232           45257                           SR*      DSU                                   
040698,001370: 32,3233           20601                                    0,1                                   
040699,001371: 32,3234           00001                                    00D                                   
040700,001372: 32,3235           53605                           DMP      SL*                                   
040701,001373: 32,3236           00035                                    28D                                   
040702,001374: 32,3237           20172                                    0          -7,1                       
040703,001375: 32,3240           76257                           SL*      TAD                                   
040704,001376: 32,3241           20172                                    0          -7,1                       
040705,001377: 32,3242           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17 PL19D
040706,001378: 32,3243           45657                                    TPMODE                                
040707,001379: 32,3244           03722                                    X(T1)                                 
040708,001380: 32,3245           00001                           STORE    00D                                   #  X(T1),,                        B5
040709,001381: 32,3246           77751                           TLOAD                                          #                                    PL16D
040710,001382: 32,3247           53040                           BMN      BZE                                   
040711,001383: 32,3250           65255                                    V2T115                                
040712,001384: 32,3251           65255                                    V2T115                                
040713,001385: 32,3252           52061                           SL       GOTO                                  
040714,001386: 32,3253           20210                                    7                                     
040715,001387: 32,3254           65266                                    V2T120                                
040716,001388: 32,3255           50145        V2T115             DLOAD    BMN                                   
040717,001389: 32,3256           03751                                    PHI2                                  
040718,001390: 32,3257           65277                                    V2T125                                
040719,001391: 32,3260           77676                           DCOMP                                          
040720,001392: 32,3261           17751                           STODL    PHI2                                  
040721,001393: 32,3262           33606                                    10RTE                                 
040722,001394: 32,3263           03730                           STORE    NN1A                                  
040723,001395: 32,3264           77650                           GOTO                                           
040724,001396: 32,3265           65277                                    V2T125                                
040725,001397: 32,3266           47166        V2T120             SQRT     RTB                                   
040726,001398: 32,3267           45765                                    DPMODE                                
040727,001399: 32,3270           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM             B5 PL18D
040728,001400: 32,3271           03751                                    PHI2                                  
040729,001401: 32,3272           65305                                    V2T130                                
040730,001402: 32,3273           45545                           DLOAD    STADR                                 #                                    PL16D
040731,001403: 32,3274           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
040732,001404: 32,3275           77676                           DCOMP                                          
040733,001405: 32,3276           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
040734,001406: 32,3277           53145        V2T125             DLOAD    BZE                                   
040735,001407: 32,3300           03722                                    X(T1)                                 

Page 928

040737,001409: 32,3301           65321                                    V2T140                                
040738,001410: 32,3302           52040                           BMN      GOTO                                  
040739,001411: 32,3303           65321                                    V2T140                                
040740,001412: 32,3304           65327                                    V2T145                                
040741,001413: 32,3305           53145        V2T130             DLOAD    BZE                                   
040742,001414: 32,3306           03722                                    X(T1)                                 
040743,001415: 32,3307           65316                                    V2T135                                
040744,001416: 32,3310           71240                           BMN      DLOAD                                 #                                    PL16D
040745,001417: 32,3311           65316                                    V2T135                                
040746,001418: 32,3312           77626                           STADR                                          
040747,001419: 32,3313           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
040748,001420: 32,3314           77650                           GOTO                                           
040749,001421: 32,3315           65327                                    V2T145                                
040750,001422: 32,3316           57545        V2T135             DLOAD    DCOMP                                 #                                    PL16D
040751,001423: 32,3317           77626                           STADR                                          
040752,001424: 32,3320           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
040753,001425: 32,3321           77745        V2T140             DLOAD                                          
040754,001426: 32,3322           00013                                    10D                                   
040755,001427: 32,3323           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
040756,001428: 32,3324           00015                                    12D                                   
040757,001429: 32,3325           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                PL18D
040758,001430: 32,3326           65334                                    V2T150                                
040759,001431: 32,3327           77745        V2T145             DLOAD                                          
040760,001432: 32,3330           00017                                    14D                                   
040761,001433: 32,3331           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
040762,001434: 32,3332           00015                                    12D                                   
040763,001435: 32,3333           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)               PL18D
040764,001436: 32,3334           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
040765,001437: 32,3335           65464                                    GAMDV10                               
040766,001438: 32,3336           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
040767,001439: 32,3337           03632                                    RTEDVD                                
040768,001440: 32,3340           65462                                    V2T1X                                 
040769,001441: 
040770,001442:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
040771,001443: 
040772,001444: 32,3341           50025                           DSU      BMN                                   
040773,001445: 32,3342           03706                                    DV                                    
040774,001446: 32,3343           65346                                    V2T155                                
040775,001447: 32,3344           77650                           GOTO                                           
040776,001448: 32,3345           65401                                    V2T175                                
040777,001449: 32,3346           50145        V2T155             DLOAD    BMN                                   
040778,001450: 32,3347           03730                                    NN1A                                  
040779,001451: 32,3350           65353                                    V2T160                                
040780,001452: 32,3351           77650                           GOTO                                           
040781,001453: 32,3352           65423                                    V2T185                                
040782,001454: 
040783,001455:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
040784,001456: 
040785,001457: 32,3353           53145        V2T160             DLOAD    BZE                                   
040786,001458: 32,3354           03722                                    X(T1)                                 

Page 929

040788,001460: 32,3355           65361                                    V2T165                                
040789,001461: 32,3356           52040                           BMN      GOTO                                  
040790,001462: 32,3357           65361                                    V2T165                                
040791,001463: 32,3360           65460                                    V2T300                                
040792,001464: 32,3361           53145        V2T165             DLOAD    BZE                                   
040793,001465: 32,3362           03747                                    CFPA                                  
040794,001466: 32,3363           65460                                    V2T300                                
040795,001467: 32,3364           71240                           BMN      DLOAD                                 
040796,001468: 32,3365           65460                                    V2T300                                
040797,001469: 32,3366           00017                                    14D                                   
040798,001470: 32,3367           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
040799,001471: 32,3370           00015                                    12D                                   
040800,001472: 32,3371           77676                           DCOMP                                          
040801,001473: 32,3372           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
040802,001474: 32,3373           65464                                    GAMDV10                               
040803,001475: 32,3374           45345                           DLOAD    DSU                                   
040804,001476: 32,3375           03632                                    RTEDVD                                
040805,001477: 32,3376           03706                                    DV                                    
040806,001478: 32,3377           77640                           BMN                                            
040807,001479: 32,3400           65460                                    V2T300                                
040808,001480: 32,3401           71214        V2T175             SET      DLOAD                                 
040809,001481: 32,3402           00072                                    F2RTE                                 
040810,001482: 32,3403           03722                                    X(T1)                                 
040811,001483: 32,3404           77614                           BOFF                                           
040812,001484: 32,3405           02742                                    SLOWFLG                               
040813,001485: 32,3406           65413                                    V2T177                                
040814,001486: 32,3407           14013                           STODL    10D                                   #   X(T1)MIN
040815,001487: 32,3410           00015                                    12D                                   #  DX(T1)MAX
040816,001488: 32,3411           77650                           GOTO                                           
040817,001489: 32,3412           65416                                    V2T179                                
040818,001490: 32,3413           14017        V2T177             STODL    14D                                   
040819,001491: 32,3414           00015                                    12D                                   
040820,001492: 32,3415           77676                           DCOMP                                          
040821,001493: 32,3416           34021        V2T179             STCALL   16D                                   #  DX(T1)
040822,001494: 32,3417           65464                                    GAMDV10                               
040823,001495: 32,3420           50145                           DLOAD    BMN                                   
040824,001496: 32,3421           03730                                    NN1A                                  
040825,001497: 32,3422           65460                                    V2T300                                
040826,001498: 
040827,001499:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
040828,001500:                                                                                                  #  PRECISION TRAJECTORY
040829,001501: 
040830,001502: 32,3423           45345        V2T185             DLOAD    DSU                                   
040831,001503: 32,3424           03722                                    X(T1)                                 
040832,001504: 32,3425           00001                                    00D                                   
040833,001505: 32,3426           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
040834,001506: 32,3427           00015                                    12D                                   
040835,001507: 32,3430           44352                           SL1      BDSU                                  
040836,001508: 32,3431           71240                           BMN      DLOAD                                 
040837,001509: 32,3432           65460                                    V2T300                                

Page 930

040839,001511: 32,3433           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
040840,001512: 32,3434           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
040841,001513: 32,3435           50025                           DSU      BMN                                   
040842,001514: 32,3436           00017                                    14D                                   
040843,001515: 32,3437           65445                                    V2T195                                
040844,001516: 32,3440           77745                           DLOAD                                          
040845,001517: 32,3441           00017                                    14D                                   
040846,001518: 32,3442           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
040847,001519: 32,3443           77650                           GOTO                                           
040848,001520: 32,3444           65456                                    V2T205                                
040849,001521: 32,3445           45345        V2T195             DLOAD    DSU                                   
040850,001522: 32,3446           03722                                    X(T1)                                 
040851,001523: 32,3447           00013                                    10D                                   
040852,001524: 32,3450           52040                           BMN      GOTO                                  
040853,001525: 32,3451           65453                                    V2T200                                
040854,001526: 32,3452           65456                                    V2T205                                
040855,001527: 32,3453           77745        V2T200             DLOAD                                          
040856,001528: 32,3454           00013                                    10D                                   
040857,001529: 32,3455           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
040858,001530: 32,3456           77624        V2T205             CALL                                           
040859,001531: 32,3457           65665                                    DVCALC                                
040860,001532: 32,3460           77745        V2T300             DLOAD                                          
040861,001533: 32,3461           15330                                    ZERORTE                               
040862,001534: 32,3462           77650        V2T1X              GOTO                                           
040863,001535: 32,3463           00041                                    33D                                   
040864,001536: 

Page 931

040866,001538:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
040867,001539: 
040868,001540:                                                                                                  #  DESCRIPTION
040869,001541:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
040870,001542: 
040871,001543:                                                                                                  #  CALLING SEQUENCE
040872,001544:                                                                                                  #    L   CALL
040873,001545:                                                                                                  #    L+1         GAMDV10
040874,001546: 
040875,001547:                                                                                                  #  NORMAL EXIT MODE
040876,001548:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
040877,001549: 
040878,001550:                                                                                                  #  ALARM EXIT MODE
040879,001551:                                                                                                  #    AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040880,001552: 
040881,001553:                                                                                                  #  SUBROUTINES CALLED
040882,001554:                                                                                                  #    DVCALC
040883,001555: 
040884,001556:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040885,001557:                                                                                                  #    PUSHLIST
040886,001558:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
040887,001559:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040888,001560:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040889,001561:                                                                                                  #      10D               X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040890,001562:                                                                                                  #      12D               DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
040891,001563:                                                                                                  #      14D               X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040892,001564:                                                                                                  #      16D               DX(T1)=ITERATOR INCREMENT                               DP      B5
040893,001565:                                                                                                  #    MPAC
040894,001566:                                                                                                  #      NONE
040895,001567:                                                                                                  #    OTHER
040896,001568:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040897,001569:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040898,001570:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040899,001571:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040900,001572:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
040901,001573:                                                                                                  #      F2RTE             TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
040902,001574: 
040903,001575:                                                                                                  #  OUTPUT
040904,001576:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040905,001577:                                                                                                  #      DV                INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040906,001578:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
040907,001579:                                                                                                  #      PCON              SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040908,001580: 
040909,001581:                                                                                                  #  DEBRIS
040910,001582:                                                                                                  #    PUSHLIST
040911,001583:                                                                                                  #      00D               X(T1),,
040912,001584:                                                                                                  #      02D               THETA1
040913,001585:                                                                                                  #      05D               THETA2
040914,001586:                                                                                                  #      08D               THETA3
040915,001587:                                                                                                  #      10D               X(T1)MIN
040916,001588:                                                                                                  #      12D               DX(T1)MAX

Page 932

040918,001590:                                                                                                  #      14D               X(T1)MAX
040919,001591:                                                                                                  #      16D               DX(T1)
040920,001592:                                                                                                  #      22D               DV,=PREVIOUS DV                                         DP      B7/B5
040921,001593:                                                                                                  #      24D               BETA9=X(T1)+1.1DX(T1)                                   DP      B5
040922,001594:                                                                                                  #      31D               GAMDV10 SUBROUTINE RETURN ADDRESS
040923,001595:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
040924,001596:                                                                                                  #      33D               V2T100 SUBROUTINE RETURN ADDRESS
040925,001597: 
040926,001598: 32,3464           77620        GAMDV10            STQ                                            
040927,001599: 32,3465           00037                                    31D                                   
040928,001600: 32,3466           45001                           SETPD    CALL                                  
040929,001601: 32,3467           00023                                    18D                                   #                                    PL18D
040930,001602: 32,3470           65665                                    DVCALC                                
040931,001603: 32,3471           45345                           DLOAD    DSU                                   
040932,001604: 32,3472           00017                                    14D                                   
040933,001605: 32,3473           00013                                    10D                                   
040934,001606: 32,3474           77600                           BOV                                            
040935,001607: 32,3475           65515                                    GAMDV20                               
040936,001608: 32,3476           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8        B5 PL20D
040937,001609: 32,3477           33576                                    EPC9RTE                               
040938,001610: 32,3500           71240                           BMN      DLOAD                                 
040939,001611: 32,3501           65663                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
040940,001612: 32,3502           00023                                    18D                                   
040941,001613: 32,3503           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
040942,001614: 32,3504           00015                                    12D                                   
040943,001615: 32,3505           65511                                    GAMDV15                               
040944,001616: 32,3506           52001                           SETPD    GOTO                                  #                                    PL18D
040945,001617: 32,3507           00023                                    18D                                   
040946,001618: 32,3510           65515                                    GAMDV20                               
040947,001619: 32,3511           77745        GAMDV15            DLOAD                                          #                                    PL18D
040948,001620: 32,3512           70565                           SIGN     SR1                                   
040949,001621: 32,3513           00021                                    16D                                   
040950,001622: 32,3514           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
040951,001623: 32,3515           77745        GAMDV20            DLOAD                                          
040952,001624: 32,3516           33602                                    M144RTE                               
040953,001625: 32,3517           03546                           STORE    NN2                                   
040954,001626: 32,3520           43345        GAMDV25            DLOAD    DAD                                   
040955,001627: 32,3521           03546                                    NN2                                   
040956,001628: 32,3522           33600                                    1RTEB28                               
040957,001629: 32,3523           67240                           BMN      SLOAD                                 
040958,001630: 32,3524           65530                                    GAMDV30                               
040959,001631: 32,3525           33630                                    OCT605                                
040960,001632: 32,3526           77650                           GOTO                                           
040961,001633: 32,3527           65462                                    V2T1X                                 
040962,001634: 32,3530           03546        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
040963,001635: 32,3531           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                   B5 PL20D
040964,001636: 32,3532           03722                                    X(T1)                                 
040965,001637: 32,3533           03706                                    DV                                    
040966,001638: 32,3534           43325                           PDDL     DAD                                   #  DV=DV,                      B7/B5 PL22D
040967,001639: 32,3535           03722                                    X(T1)                                 
040968,001640: 32,3536           00021                                    16D                                   

Page 933

040970,001642: 32,3537           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)             B5
040971,001643: 32,3540           65665                                    DVCALC                                
040972,001644: 32,3541           71214                           BON      DLOAD                                 
040973,001645: 32,3542           00312                                    F2RTE                                 
040974,001646: 32,3543           65557                                    GAMDV35                               
040975,001647: 32,3544           03706                                    DV                                    
040976,001648: 32,3545           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
040977,001649: 32,3546           00025                                    20D                                   
040978,001650: 32,3547           65554                                    GAMDV33                               
040979,001651: 32,3550           57545        GAMDV32            DLOAD    DCOMP                                 
040980,001652: 32,3551           00021                                    16D                                   
040981,001653: 32,3552           77742                           SR1                                            
040982,001654: 32,3553           00021                           STORE    16D                                   
040983,001655: 32,3554           52001        GAMDV33            SETPD    GOTO                                  
040984,001656: 32,3555           00023                                    18D                                   #                                    PL18D
040985,001657: 32,3556           65622                                    GAMDV50                               
040986,001658: 
040987,001659:                                                                                                  #  TIME CRITICAL MODE
040988,001660: 
040989,001661: 32,3557           45345        GAMDV35            DLOAD    DSU                                   
040990,001662: 32,3560           03632                                    RTEDVD                                
040991,001663: 32,3561           03706                                    DV                                    
040992,001664: 32,3562           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                B7/B5 PL22D
040993,001665: 32,3563           51545        GAMDV40            DLOAD    ABS                                   #  DV,                               PL24D
040994,001666: 32,3564           00025                                    20D                                   
040995,001667: 32,3565           50025                           DSU      BMN                                   
040996,001668: 32,3566           33660                                    EPC10RTE                              
040997,001669: 32,3567           65663                                    GAMDVX                                
040998,001670: 32,3570           71204        GAMDV45            BOVB     DLOAD                                 
040999,001671: 32,3571           57544                                    TCDANZIG                              #  ASSURE OVFIND IS 0
041000,001672: 32,3572           60221                           BDSU     NORM                                  
041001,001673: 32,3573           03706                                    DV                                    
041002,001674: 32,3574           00050                                    X2                                    
041003,001675: 32,3575           77725                           PDDL                                           #  DV-DV,                   B7/B5-N2 PL22D
041004,001676: 32,3576           70501                           NORM     SR1                                   #  DVERR                   B8/B6-N1
041005,001677: 32,3577           00047                                    X1                                    
041006,001678: 32,3600           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
041007,001679: 32,3601           41221                           BDSU     DMP                                   #                                    PL18D
041008,001680: 32,3602           03722                                    X(T1)                                 
041009,001681: 32,3603           77660                           XSU,1                                          
041010,001682: 32,3604           00047                                    X2                                    
041011,001683: 32,3605           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
041012,001684: 32,3606           40057                           SR*      BOV                                   
041013,001685: 32,3607           20600                                    0          -1,1                       
041014,001686: 32,3610           65616                                    GAMDV47                               
041015,001687: 32,3611           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
041016,001688: 32,3612           45246                           ABS      DSU                                   
041017,001689: 32,3613           00015                                    12D                                   
041018,001690: 32,3614           77640                           BMN                                            
041019,001691: 32,3615           65622                                    GAMDV50                               

Page 934

041021,001693: 32,3616           75345        GAMDV47            DLOAD    SIGN                                  
041022,001694: 32,3617           00015                                    12D                                   
041023,001695: 32,3620           00021                                    16D                                   
041024,001696: 32,3621           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
041025,001697: 
041026,001698:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
041027,001699: 
041028,001700: 32,3622           41345        GAMDV50            DLOAD    DMP                                   
041029,001701: 32,3623           00021                                    16D                                   
041030,001702: 32,3624           33612                                    1.1RTEB1                              
041031,001703: 32,3625           43352                           SL1      DAD                                   
041032,001704: 32,3626           03722                                    X(T1)                                 
041033,001705: 32,3627           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9          B5
041034,001706: 32,3630           50025                           DSU      BMN                                   
041035,001707: 32,3631           00017                                    14D                                   
041036,001708: 32,3632           65641                                    GAMDV55                               
041037,001709: 32,3633           45345                           DLOAD    DSU                                   
041038,001710: 32,3634           00017                                    14D                                   
041039,001711: 32,3635           03722                                    X(T1)                                 
041040,001712: 32,3636           77742                           SR1                                            
041041,001713: 32,3637           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)      B5
041042,001714: 32,3640           65654                                    GAMDV65                               
041043,001715: 32,3641           45345        GAMDV55            DLOAD    DSU                                   
041044,001716: 32,3642           00031                                    24D                                   
041045,001717: 32,3643           00013                                    10D                                   
041046,001718: 32,3644           52040                           BMN      GOTO                                  
041047,001719: 32,3645           65647                                    GAMDV60                               
041048,001720: 32,3646           65654                                    GAMDV65                               
041049,001721: 32,3647           45345        GAMDV60            DLOAD    DSU                                   
041050,001722: 32,3650           00013                                    10D                                   
041051,001723: 32,3651           03722                                    X(T1)                                 
041052,001724: 32,3652           77742                           SR1                                            
041053,001725: 32,3653           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)      B5
041054,001726: 32,3654           51545        GAMDV65            DLOAD    ABS                                   
041055,001727: 32,3655           00021                                    16D                                   
041056,001728: 32,3656           50025                           DSU      BMN                                   
041057,001729: 32,3657           33576                                    EPC9RTE                               
041058,001730: 32,3660           65663                                    GAMDVX                                
041059,001731: 32,3661           77650                           GOTO                                           
041060,001732: 32,3662           65520                                    GAMDV25                               
041061,001733: 32,3663           77650        GAMDVX             GOTO                                           
041062,001734: 32,3664           00037                                    31D                                   
041063,001735: 

Page 935

041065,001737:                                                                                                  #  DV CALCULATION SUBROUTINE
041066,001738: 
041067,001739:                                                                                                  #  INPUT
041068,001740:                                                                                                  #    PUSHLIST
041069,001741:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
041070,001742:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041071,001743:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041072,001744:                                                                                                  #    OTHER
041073,001745:                                                                                                  #      X(T1)             COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
041074,001746:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
041075,001747:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
041076,001748:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041077,001749: 
041078,001750:                                                                                                  #  OUTPUT
041079,001751:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041080,001752:                                                                                                  #      DV                INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041081,001753:                                                                                                  #      PCON              SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041082,001754: 
041083,001755:                                                                                                  #  DEBRIS
041084,001756:                                                                                                  #      28D               THETA3*PCON**.5                                         DP      B10/B8-N1
041085,001757:                                                                                                  #      C(PUSHLOC)        THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
041086,001758:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
041087,001759:                                                                                                  #      X1                NORMALIZATION FACTOR FOR VALUE IN 28D
041088,001760: 
041089,001761:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041090,001762: 
041091,001763: 32,3665           71220        DVCALC             STQ      DLOAD                                 
041092,001764: 32,3666           00040                                    32D                                   
041093,001765: 32,3667           03722                                    X(T1)                                 
041094,001766: 32,3670           54316                           DSQ      SR                                    
041095,001767: 32,3671           20610                                    7                                     
041096,001768: 32,3672           76276                           DCOMP    TAD                                   
041097,001769: 32,3673           00003                                    02D                                   
041098,001770: 32,3674           41501                           NORM     PUSH                                  
041099,001771: 32,3675           00047                                    X1                                    
041100,001772: 32,3676           60351                           TLOAD    NORM                                  
041101,001773: 32,3677           00006                                    05D                                   
041102,001774: 32,3700           00050                                    X2                                    
041103,001775: 32,3701           70434                           RTB      SR1                                   
041104,001776: 32,3702           45765                                    DPMODE                                
041105,001777: 32,3703           56264                           XSU,2    DDV                                   
041106,001778: 32,3704           00046                                    X1                                    
041107,001779: 32,3705           77657                           SR*                                            
041108,001780: 32,3706           57170                                    6,2                                   
041109,001781: 32,3707           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
041110,001782: 32,3710           41366                           SQRT     DMP                                   
041111,001783: 32,3711           00011                                    08D                                   
041112,001784: 32,3712           77701                           NORM                                           
041113,001785: 32,3713           00047                                    X1                                    
041114,001786: 32,3714           14035                           STODL    28D                                   #  THETA3*PCON**.5        B10/B8 -N1

Page 936

041116,001788: 32,3715           03722                                    X(T1)                                 
041117,001789: 32,3716           74301                           NORM     VXSC                                  
041118,001790: 32,3717           00050                                    X2                                    
041119,001791: 32,3720           03554                                    UR1/                                  #  X(T1)*UR1/              B5+B1 -N2
041120,001792: 32,3721           74274                           XAD,2    VXSC                                  
041121,001793: 32,3722           00046                                    X1                                    
041122,001794: 32,3723           00035                                    28D                                   
041123,001795: 32,3724           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/  B7/B5
041124,001796: 32,3725           57207                                    0          -9D,2                      #             +
041125,001797: 32,3726           03562                                    UH/                                   
041126,001798: 32,3727           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/         B7/B5
041127,001799: 32,3730           00035                                    28D                                   
041128,001800: 32,3731           20575                                    0          -4,1                       #             =
041129,001801: 32,3732           45455                           VAD      STADR                                 
041130,001802: 32,3733           74077                           STORE    V2(T1)/                               #  V2(T1)/                     B7/B5
041131,001803: 32,3734           51451                           VSU      ABVAL                                 
041132,001804: 32,3735           03672                                    V(T1)/                                
041133,001805: 32,3736           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV    B7/B5
041134,001806: 32,3737           77650                           GOTO                                           
041135,001807: 32,3740           00040                                    32D                                   
041136,001808: 

Page 937

041138,001810:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041139,001811: 
041140,001812:                                                                                                  #  INPUT
041141,001813:                                                                                                  #    PUSHLIST
041142,001814:                                                                                                  #      PUSHLOC -4        MAJOR AXIS (MA)                                         DP      B30/B28
041143,001815:                                                                                                  #      PUSHLOC -2        MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
041144,001816:                                                                                                  #      28D               BETA5=LAMBDA*BETA1                                      DP      B9
041145,001817:                                                                                                  #    OTHER
041146,001818:                                                                                                  #      RCON                                                                      DP      B29/B27
041147,001819:                                                                                                  #      R(T1)                                                                     DP      B29/B27
041148,001820: 
041149,001821:                                                                                                  #  OUTPUT
041150,001822:                                                                                                  #    MPAC
041151,001823:                                                                                                  #      X(T1)LIM          LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
041152,001824: 
041153,001825:                                                                                                  #  DEBRIS
041154,001826:                                                                                                  #    PUSHLIST
041155,001827:                                                                                                  #      C(PUSHLOC)        MA-RCON                                                 DP      (B30/28)-N1
041156,001828:                                                                                                  #      C(PUSHLOC)+2      MA                                                      DP      B30/B28
041157,001829:                                                                                                  #      X1                NORMALIZATION FACTOR FOR MA-RCON
041158,001830:                                                                                                  #      20D               XT1LIM SUBROUTINE RETURN ADDRESS
041159,001831:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041160,001832: 
041161,001833: 32,3741           71220        XT1LIM             STQ      DLOAD                                 
041162,001834: 32,3742           00024                                    20D                                   
041163,001835: 32,3743           03636                                    RCON                                  
041164,001836: 32,3744           44342                           SR1      BDSU                                  
041165,001837: 32,3745           65301                           NORM     PDDL                                  #  MA-RCON                    B30-N1
041166,001838: 32,3746           00050                                    X2                                    
041167,001839: 32,3747           70525                           PDDL     SR1                                   
041168,001840: 32,3750           03646                                    R(T1)                                 
041169,001841: 32,3751           56221                           BDSU     DDV                                   
041170,001842: 32,3752           41257                           SL*      DMP                                   
041171,001843: 32,3753           57601                                    0          -3,2                       
041172,001844: 32,3754           00035                                    28D                                   
041173,001845: 32,3755           45257                           SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
041174,001846: 32,3756           20173                                    0          -6,1                       
041175,001847: 32,3757           33577                                    1RTEB25    +1                         #  1.0 B-11
041176,001848: 32,3760           40152                           SL1      BOV                                   #                                B10
041177,001849: 32,3761           65765                                    XT1LIM2                               
041178,001850: 32,3762           52040                           BMN      GOTO                                  
041179,001851: 32,3763           65771                                    XT1LIM5                               
041180,001852: 32,3764           65767                                    XT1LIM3                               
041181,001853: 32,3765           77745        XT1LIM2            DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
041182,001854: 32,3766           15344                                    2RTEB1                                
041183,001855: 32,3767           52166        XT1LIM3            SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)             B5
041184,001856: 32,3770           65773                                    XT1LIMX                               
041185,001857: 32,3771           77745        XT1LIM5            DLOAD                                          
041186,001858: 32,3772           15330                                    ZERORTE                               
041187,001859: 32,3773           77650        XT1LIMX            GOTO                                           
041188,001860: 32,3774           00024                                    20D                                   
041189,001861: 

Page 938

041191,001863:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041192,001864: 
041193,001865: 35,2000                                           SETLOC   RTECON1                               
041194,001866: 35,2000                                           BANK                                           
041195,001867: 
041196,001868: 35,3571                                           COUNT*   $$/P37                                
041197,001869: 35,3571  26,3333               1RTEB1             =        UNITX                                 
041198,001870: 35,3571  26,3325               1RTEB2             =        DP1/4TH                               
041199,001871: 35,3571  34,3766               1RTEB3             =        DP2(-3)                               
041200,001872: 35,3571  34,3770               1RTEB4             =        DP2(-4)                               
041201,001873: 35,3571           00002 00000  1RTEB13            2DEC     1.         B-13                       
041202,001874: 35,3573           00000 04000  1RTEB17            2DEC     1.         B-17                       
041203,001875: 35,3575           00000 00010  1RTEB25            2DEC     1.         B-25                       
041204,001876:                                                                                                  #  * * B25 AND B28 MUST BE CONSECUTIVE * * 
041205,001877: 35,3577           00000 00001  1RTEB28            2DEC     1.         B-28                       
041206,001878: 35,3601  26,3327               ZERORTE            =        UNITZ                                 
041207,001879: 35,3601           77777 77557  M144RTE            2DEC     -144.      B-28                       
041208,001880: 35,3603           77777 77760  M15RTE             2DEC     -15        B-28                       
041209,001881: 35,3605           00000 00012  10RTE              2DEC     10         B-28                       
041210,001882: 35,3607           54631 63145  M.6RTE             2DEC     -.6                                   
041211,001883: 35,3611           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
041212,001884: 35,3613  26,3343               2RTEB1             =        DPPOSMAX                              
041213,001885: 35,3613           77777 77766  M9RTEB28           2DEC     -9         B-28                       
041214,001886: 35,3615           77777 77767  M8RTEB28           2DEC     -8         B-28                       
041215,001887: 35,3617           00000 35610  30480RTE           2DEC     30480.     B-29                       
041216,001888: 35,3621           37405 12250  VCSPS              2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)
041217,001889: 35,3623           33041 37714  VCRCS              2DEC     27.0664    B-5                        
041218,001890: 35,3625           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
041219,001891: 35,3627  26,3333               CSUBT              =        UNITX                                 
041220,001892: 35,3627           00605        OCT605             OCT      00605                                 
041221,001893: 35,3630           00612        OCT612             OCT      00612                                 
041222,001894: 35,3631           40214 45266  MCOS7.5            2DEC     -.99144486                            
041223,001895: 35,3633           73645 56536  MSIN7.5            2DEC     -.13052619                            

Page 939

041225,001897: 35,3635           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
041226,001898: 35,3637           16525 12525  THETA165           2DEC     .458333333                            
041227,001899: 35,3641           22525 12525  THETA210           2DEC     .583333333                            
041228,001900: 35,3643           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
041229,001901: 35,3645           00000 00062  EPC2RTE            2DEC     100.       B-29                       
041230,001902: 35,3647           00020 14223  EPC3RTE            2DEC     .001                                  
041231,001903: 35,3651           00000 05174  EPC4RTE            2DEC     .00001                                
041232,001904: 35,3653           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
041233,001905: 35,3655           00000 00764  EPC7RTE            2DEC     1000.      B-29                       
041234,001906: 35,3657  35,3575               EPC9RTE            =        1RTEB25                               
041235,001907: 35,3657           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
041236,001908: 
041237,001909: 35,3661                                           BANK     35                                    
041238,001910: 35,2000                                           SETLOC   RTECON1                               
041239,001911: 35,2000                                           BANK                                           
041240,001912: 35,3661                                           COUNT*   $$/P37                                
041241,001913: 35,3661           75725 75417  C4RTE              2DEC     -6.986643  E7         B-30            
041242,001914: 35,3663           00325 23740  K1RTE              2DEC     7.         E6         B-29            
041243,001915: 35,3665           00306 06614  K2RTE              2DEC     6495000.   B-29                       
041244,001916: 35,3667           76027 70156  K3RTE              2DEC     -.06105                               
041245,001917: 35,3671           74517 54131  K4RTE              2DEC     -.10453                               
041246,001918: 35,3673           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
041247,001919: 35,3675           00003 27040  E3RTE              2DEC     121920.    B-29                       

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