Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) 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.

039500,000002:                                                                                                  ## Copyright:   Public domain.
039501,000003:                                                                                                  ## Filename:    P37_P70.agc
039502,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
039503,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
039504,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
039505,000007:                                                                                                  ##              Apollo 15-17.
039506,000008:                                                                                                  ## Assembler:   yaYUL
039507,000009:                                                                                                  ## Contact:     Steve Case <case1780@adelphia.net>
039508,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039509,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
039510,000012:                                                                                                  ## Mod history: 2009-09-01 SMC  Adapted from Comanche055 files.
039511,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names, page metadata.
039512,000014:                                                                                                  ##              2009-09-04 JL   Fixed typo.
039513,000015:                                                                                                  ##              2009-09-08 JL   Fixed typos.
039514,000016:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
039515,000017:                                                                                                  ##              2010-02-13 JL   Fixed error on p905.
039516,000018:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
039517,000019:                                                                                                  ##              2010-04-11 JL   Add missing comment characters.
039518,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
039519,000021:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
039520,000022:                                                                                                  ##                              and corrected errors found.
039521,000023: 

Page 897

039523,000025: 36,2000                                           SETLOC   RTE1                                  
039524,000026: 36,2000                                           BANK                                           
039525,000027: 
039526,000028: 36,2476  E7,1631                                  EBANK=   RTEDVD                                
039527,000029: 36,2476                                           COUNT*   $$/P37                                
039528,000030: 
039529,000031:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039530,000032: 
039531,000033:                                                                                                  #  DESCRIPTION
039532,000034:                                                                                                  #    A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039533,000035:                                                                                                  #  TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039534,000036:                                                                                                  #  DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
039535,000037:                                                                                                  #  RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039536,000038:                                                                                                  #  COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039537,000039: 
039538,000040:                                                                                                  #  CALLING SEQUENCE
039539,000041:                                                                                                  #    L   TC      P37
039540,000042: 
039541,000043:                                                                                                  #  SUBROUTINES CALLED
039542,000044:                                                                                                  #    PREC100
039543,000045:                                                                                                  #      V2T100
039544,000046:                                                                                                  #      RTENCK2
039545,000047:                                                                                                  #      RTENCK3
039546,000048:                                                                                                  #      TIMERAD
039547,000049:                                                                                                  #      PARAM
039548,000050:                                                                                                  #    V2T100
039549,000051:                                                                                                  #      GAMDV10
039550,000052:                                                                                                  #      XT1LIM
039551,000053:                                                                                                  #      DVCALC
039552,000054:                                                                                                  #    RTENCK1
039553,000055:                                                                                                  #      INTSTALL
039554,000056:                                                                                                  #      INTEGRVS
039555,000057:                                                                                                  #    RTEVN
039556,000058:                                                                                                  #      RTEDISP
039557,000059:                                                                                                  #      TMRAD100
039558,000060:                                                                                                  #      AUGEKUGL
039559,000061:                                                                                                  #      LAT-LONG
039560,000062:                                                                                                  #    TMRAD100
039561,000063:                                                                                                  #      TIMERAD
039562,000064:                                                                                                  #    INVC100
039563,000065:                                                                                                  #      CSMPREC
039564,000066:                                                                                                  #    GETERAD
039565,000067:                                                                                                  #    TIMETHET
039566,000068:                                                                                                  #    P370ALRM
039567,000069:                                                                                                  #    VN1645
039568,000070:                                                                                                  #    POLY
039569,000071: 
039570,000072:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039571,000073:                                                                                                  #    CSM STATE VECTOR
039572,000074:                                                                                                  #    NJETSFLG    NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
039573,000075: 

Page 898

039575,000077:                                                                                                  #  ASTRONAUT INPUT
039576,000078:                                                                                                  #    SPRTETIG    TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
039577,000079:                                                                                                  #    VPRED       DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
039578,000080:                                                                                                  #    GAMMAEI     DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS  + ABOVE HORIZ.
039579,000081:                                                                                                  #    OPTION2     PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
039580,000082: 
039581,000083:                                                                                                  #  OUTPUT
039582,000084:                                                                                                  #    CONIC OR PRECISION TRAJECTORY DISPLAY
039583,000085:                                                                                                  #      VPRED     VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039584,000086:                                                                                                  #      T3TOT4    TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039585,000087:                                                                                                  #      GAMMAEI   FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZON
039586,000088:                                                                                                  #      DELVLVC   INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039587,000089:                                                                                                  #      LAT(SPL)  LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039588,000090:                                                                                                  #      LNG(SPL)  LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039589,000091:                                                                                                  #    TARGETING COMPUTATION DISPLAY
039590,000092:                                                                                                  #      TIG       RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
039591,000093:                                                                                                  #      TTOGO     TIME FROM TIG                                           DP      B28     CS
039592,000094:                                                                                                  #      +MGA      POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS  -.02 IF REFSMFLG=0
039593,000095:                                                                                                  #    THRUST PROGRAM COMMUNICATION
039594,000096:                                                                                                  #      XDELVFLG  EXTERNAL DELTA V FLAG                                   STATE FLAG      SET 0 FOR LAMBERT AIMPT
039595,000097:                                                                                                  #      NORMSW    LAMBERT AIMPT ROTATION SWITCH                           STATE FLAG      SET 0 FOR NO ROTATION
039596,000098:                                                                                                  #      ECSTEER   CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
039597,000099:                                                                                                  #      RTARG     CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
039598,000100:                                                                                                  #      TPASS4    REENTRY TIME                                            DP      B28     CS
039599,000101: 
039600,000102: 36,2476           05402        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
039601,000103: 36,2477           00004                           OCT      4                                     
039602,000104: 
039603,000105: 36,2500           06006                           TC       INTPRET                               
039604,000106: 36,2501           66170                           AXT,1    SXA,1                                 
039605,000107: 36,2502           04000                           OCT      04000                                 
039606,000108: 36,2503           03424                                    ECSTEER                               
039607,000109: 36,2504           77745                           DLOAD                                          
039608,000110: 36,2505           15336                                    ZEROVECS                              
039609,000111: 36,2506           03757                           STORE    VPRED                                 
039610,000112: 36,2507           03761                           STORE    GAMMAEI                               
039611,000113: 36,2510           77776                           EXIT                                           
039612,000114: 36,2511           35026                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
039613,000115: 36,2512           03246                           TCR      P370GOF                               #                   OVERLAYED WITH TIG
039614,000116: 36,2513           12511                           TCF      -2                                    #  DESPLAY NEW DATA
039615,000117: 36,2514           35033                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
039616,000118: 36,2515           03222                           TCR      P37GFRB1                              #    AND DESIRED DELTA V IN RTEDVD
039617,000119: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
039618,000120: 36,2517           06006        RTE299             TC       INTPRET                               
039619,000121: 36,2520           71331                           SSP      DLOAD                                 
039620,000122: 36,2521           00122                                    OVFIND                                
039621,000123: 36,2522           00000                                    0                                     
039622,000124: 36,2523           03757                                    VPRED                                 
039623,000125: 36,2524           17632                           STODL    RTEDVD                                
039624,000126: 36,2525           03761                                    GAMMAEI                               

Page 899

039626,000128: 36,2526           17634                           STODL    RTEGAM2D                              
039627,000129: 36,2527           33572                                    1RTEB13                               
039628,000130: 36,2530           17551                           STODL    CONICX1                               
039629,000131: 36,2531           33662                                    C4RTE                                 
039630,000132: 36,2532           37652                           STCALL   MAMAX1                                
039631,000133: 36,2533           64455                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
039632,000134: 36,2534           71214                           CLEAR    DLOAD                                 
039633,000135: 36,2535           02662                                    SLOWFLG                               
039634,000136: 36,2536           03632                                    RTEDVD                                
039635,000137: 36,2537           51444                           BPL      ABS                                   
039636,000138: 36,2540           74550                                    RTE317                                
039637,000139: 36,2541           03632                           STORE    RTEDVD                                
039638,000140: 36,2542           45345                           DLOAD    DSU                                   
039639,000141: 36,2543           03646                                    R(T1)                                 
039640,000142: 36,2544           33664                                    K1RTE                                 
039641,000143: 36,2545           43040                           BMN      SET                                   
039642,000144: 36,2546           74550                                    RTE317                                
039643,000145: 36,2547           02462                                    SLOWFLG                               
039644,000146: 36,2550           77545        RTE317             DLOAD    EXIT                                  
039645,000147: 36,2551           03646                                    R(T1)                                 
039646,000148: 36,2552           07171                           TC       POLY                                  
039647,000149: 36,2553           00002                           DEC      2          B-14                       
039648,000150: 36,2554           02544 35436                     2DEC     181000434. B-31                       
039649,000151: 36,2556           14040 05066                     2DEC     1.50785145 B-2                        
039650,000152: 36,2560           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
039651,000153: 36,2562           26415 25057                     2DEC*    9.76938926 E-18       B56*            
039652,000154: 36,2564           06006                           TC       INTPRET                               
039653,000155: 36,2565           77752                           SL1                                            
039654,000156: 36,2566           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039655,000157: 36,2567           33614                                    M9RTEB28                              
039656,000158: 36,2570           17730                           STODL    NN1A                                  
039657,000159: 36,2571           33666                                    K2RTE                                 
039658,000160: 36,2572           17636        RTE320             STODL    RCON                                  #  RCON=K2
039659,000161: 36,2573           03634                                    RTEGAM2D                              
039660,000162: 36,2574           44254                           BZE      BDSU                                  
039661,000163: 36,2575           74604                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
039662,000164: 36,2576           15326                                    1RTEB2                                
039663,000165: 36,2577           71406                           PUSH     COS                                   #                                    PL02D
039664,000166: 36,2600           73525                           PDDL     SIN                                   
039665,000167: 36,2601           45465                           BDDV     STADR                                 #                                    PL00D
039666,000168: 36,2602           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)               B0
039667,000169: 36,2603           74617                                    RTE360                                
039668,000170: 36,2604           45345        RTE340             DLOAD    DSU                                   
039669,000171: 36,2605           03646                                    R(T1)                                 
039670,000172: 36,2606           33664                                    K1RTE                                 
039671,000173: 36,2607           71240                           BMN      DLOAD                                 

Page 900

039673,000175: 36,2610           74614                                    RTE350                                
039674,000176: 36,2611           33672                                    K4RTE                                 
039675,000177: 36,2612           37726                           STCALL   X(T2)                                 #  X(T2)=K4
039676,000178: 36,2613           74617                                    RTE360                                
039677,000179: 36,2614           77745        RTE350             DLOAD                                          
039678,000180: 36,2615           33670                                    K3RTE                                 
039679,000181: 36,2616           03726                           STORE    X(T2)                                 #  X(T2)=K3
039680,000182: 36,2617           77624        RTE360             CALL                                           
039681,000183: 36,2620           65102                                    V2T100                                
039682,000184: 36,2621           52054                           BZE      GOTO                                  
039683,000185: 36,2622           74624                                    RTE367                                
039684,000186: 36,2623           64272                                    RTEALRM                               
039685,000187: 36,2624           77775        RTE367             VLOAD                                          
039686,000188: 36,2625           03640                                    R(T1)/                                
039687,000189: 36,2626           16657                           STODL    RVEC                                  
039688,000190: 36,2627           03636                                    RCON                                  
039689,000191: 36,2630           26760                           STOVL    RDESIRED                              
039690,000192: 36,2631           03700                                    V2(T1)/                               
039691,000193: 36,2632           36746                           STCALL   VVEC                                  
039692,000194: 36,2633           64304                                    TMRAD100                              
039693,000195: 36,2634           77615                           DAD                                            
039694,000196: 36,2635           03716                                    T1                                    
039695,000197: 36,2636           17552                           STODL    T2                                    
039696,000198: 36,2637           03634                                    RTEGAM2D                              
039697,000199: 36,2640           52054                           BZE      GOTO                                  
039698,000200: 36,2641           74643                                    RTE369                                
039699,000201: 36,2642           74665                                    RTE372                                
039700,000202: 36,2643           51575        RTE369             VLOAD    ABVAL                                 
039701,000203: 36,2644           03710                                    V(T2)/                                
039702,000204: 36,2645           77776                           EXIT                                           
039703,000205: 36,2646           07171                           TC       POLY                                  
039704,000206: 36,2647           00002                           DEC      2          B-14                       
039705,000207: 36,2650           00000 00000                     2DEC     0          B-28                       
039706,000208: 36,2652           47021 65002                     2DEC     -4.8760771 E-2        B4              
039707,000209: 36,2654           35610 07722                     2DEC     4.5419476  E-4        B11             
039708,000210: 36,2656           63772 63276                     2DEC     -1.4317675 E-6        B18             
039709,000211: 36,2660           06006                           TC       INTPRET                               
039710,000212: 36,2661           77615                           DAD                                            
039711,000213: 36,2662           01343                                    RTED1                                 
039712,000214: 36,2663           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
039713,000215: 36,2664           74667                                    RTE373                                
039714,000216: 36,2665           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
039715,000217: 36,2666           03726                                    X(T2)                                 
039716,000218: 36,2667           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                       B0 PL02D
039717,000219: 36,2670           03726                                    X(T2)                                 
039718,000220: 36,2671           53575                           VLOAD    UNIT                                  

Page 901

039720,000222: 36,2672           03656                                    R(T2)/                                #                                B58
039721,000223: 36,2673           36152                           STCALL   ALPHAV                                
039722,000224: 36,2674           26570                                    GETERAD                               
039723,000225: 36,2675           77615                           DAD                                            
039724,000226: 36,2676           33676                                    E3RTE                                 
039725,000227: 36,2677           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
039726,000228: 36,2700           03636                                    RCON                                  
039727,000229: 36,2701           45246                           ABS      DSU                                   
039728,000230: 36,2702           33646                                    EPC2RTE                               
039729,000231: 36,2703           52040                           BMN      GOTO                                  
039730,000232: 36,2704           74706                                    RTE374                                
039731,000233: 36,2705           74713                                    RTE375                                
039732,000234: 36,2706           51545        RTE374             DLOAD    ABS                                   
039733,000235: 36,2707           00001                                    00D                                   
039734,000236: 36,2710           50025                           DSU      BMN                                   
039735,000237: 36,2711           33650                                    EPC3RTE                               
039736,000238: 36,2712           74763                                    P37E                                  
039737,000239: 36,2713           43345        RTE375             DLOAD    DAD                                   
039738,000240: 36,2714           03730                                    NN1A                                  
039739,000241: 36,2715           33600                                    1RTEB28                               
039740,000242: 36,2716           67240                           BMN      SLOAD                                 
039741,000243: 36,2717           74723                                    RTE380                                
039742,000244: 36,2720           33630                                    OCT605                                
039743,000245: 36,2721           77650                           GOTO                                           
039744,000246: 36,2722           64272                                    RTEALRM                               #  TOO MANY ITERATIONS
039745,000247: 36,2723           03730        RTE380             STORE    NN1A                                  
039746,000248: 36,2724           53025                           DSU      BZE                                   
039747,000249: 36,2725           33616                                    M8RTEB28                              
039748,000250: 36,2726           74744                                    RTE385                                
039749,000251: 36,2727           45345                           DLOAD    DSU                                   
039750,000252: 36,2730           00001                                    00D                                   
039751,000253: 36,2731           03666                                    DRCON                                 
039752,000254: 36,2732           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1             PL06D
039753,000255: 36,2733           00047                                    X1                                    
039754,000256: 36,2734           03670                                    RPRE,                                 
039755,000257: 36,2735           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                 PL04D
039756,000258: 36,2736           03726                                    X(T2)                                 
039757,000259: 36,2737           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
039758,000260: 36,2740           00001                                    00D                                   
039759,000261: 36,2741           20201                                    0,1                                   
039760,000262: 36,2742           77650                           GOTO                                           
039761,000263: 36,2743           74746                                    RTE390                                
039762,000264: 36,2744           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
039763,000265: 36,2745           00001                                    00D                                   
039764,000266: 36,2746           14021        RTE390             STODL    16D                                   #  DX(T2)                            PL02D
039765,000267: 36,2747           77626                           STADR                                          
039766,000268: 36,2750           60141                           STODL    RCON                                  #  RCON=RCON,
039767,000269: 36,2751           77600                           BOV                                            
039768,000270: 36,2752           74617                                    RTE360                                
039769,000271: 36,2753           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR

Page 902

039771,000273: 36,2754           03726                                    X(T2)                                 
039772,000274: 36,2755           17670                           STODL    RPRE,                                 #  X(T2)PRI=X(T2)
039773,000275: 36,2756           00021                                    16D                                   
039774,000276: 36,2757           77615                           DAD                                            
039775,000277: 36,2760           03726                                    X(T2)                                 
039776,000278: 36,2761           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
039777,000279: 36,2762           74617                                    RTE360                                #  REITERATE
039778,000280: 36,2763           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
039779,000281: 36,2764           75007                                    RTEVN                                 
039780,000282: 36,2765           41345        RTE505             DLOAD    DMP                                   
039781,000283: 36,2766           03720                                    PCON                                  
039782,000284: 36,2767           03744                                    BETA1                                 
039783,000285: 36,2770           53021                           BDSU     BZE                                   
039784,000286: 36,2771           03636                                    RCON                                  
039785,000287: 36,2772           75000                                    RTE510                                
039786,000288: 36,2773           71240                           BMN      DLOAD                                 
039787,000289: 36,2774           75000                                    RTE510                                
039788,000290: 36,2775           15326                                    1RTEB2                                
039789,000291: 36,2776           77650                           GOTO                                           #  ENTRY NEAR APOGEE
039790,000292: 36,2777           75002                                    RTE515                                
039791,000293: 36,3000           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
039792,000294: 36,3001           15326                                    1RTEB2                                
039793,000295: 36,3002           37751        RTE515             STCALL   PHI2                                  
039794,000296: 36,3003           64546                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
039795,000297: 36,3004           52054        RTE625             BZE      GOTO                                  
039796,000298: 36,3005           75035                                    P37G                                  
039797,000299: 36,3006           64272                                    RTEALRM                               
039798,000300: 
039799,000301:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
039800,000302: 
039801,000303: 36,3007           45020        RTEVN              STQ      CALL                                  
039802,000304: 36,3010           03753                                    VNSTORE                               
039803,000305: 36,3011           64323                                    RTEDISP                               #  DISPLAY PREPARATION
039804,000306: 36,3012           77776                           EXIT                                           
039805,000307: 36,3013           35034                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
039806,000308: 36,3014           03232                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
039807,000309: 36,3015           34766                           CAF      FOUR                                  
039808,000310: 36,3016           03226                           TCR      37BLANK    +1                         
039809,000311: 36,3017           13024                           TCF      +5                                    
039810,000312: 36,3020           12476                           TCF      P37                                   #  RECYCLE
039811,000313: 36,3021           33257                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
039812,000314: 36,3022           03246                           TCR      P370GOF                               
039813,000315: 36,3023           12476                           TCF      P37                                   #  RECYCLE
039814,000316: 36,3024           35033                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
039815,000317: 36,3025           03222                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
039816,000318: 36,3026           12476                           TCF      P37                                   #  RECYCLE
039817,000319: 36,3027           34535                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
039818,000320: 36,3030           03246                           TCR      P370GOF                               
039819,000321: 36,3031           12476                           TCF      P37                                   #  RECYCLE
039820,000322: 36,3032           06006                           TCR      INTPRET                               

Page 903

039822,000324: 36,3033           77650                           GOTO                                           
039823,000325: 36,3034           03753                                    VNSTORE                               
039824,000326: 
039825,000327:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039826,000328: 
039827,000329: 36,3035           77624        P37G               CALL                                           
039828,000330: 36,3036           75007                                    RTEVN                                 
039829,000331: 36,3037           77776                           EXIT                                           
039830,000332: 36,3040           34774        P37N               CAF      SEVEN                                 
039831,000333: 36,3041           54775                           TS       OPTION1                               
039832,000334: 36,3042           34770                           CAF      ONE                                   
039833,000335: 36,3043           54776                           TS       OPTION2                               
039834,000336: 36,3044           34537                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
039835,000337: 36,3045           03246                           TCR      P370GOF                               
039836,000338: 36,3046           13044                           TCF      -2                                    #  RECYCLE
039837,000339: 36,3047           06006                           TC       INTPRET                               #  PROCEED
039838,000340: 36,3050           67201                           SETPD    SLOAD                                 
039839,000341: 36,3051           00001                                    00D                                   
039840,000342: 36,3052           00777                                    OPTION2                               
039841,000343: 36,3053           53025                           DSU      BZE                                   
039842,000344: 36,3054           33572                                    1RTEB13                               
039843,000345: 36,3055           75064                                    P37Q                                  
039844,000346: 36,3056           60335                           SLOAD    NORM                                  #  SPS
039845,000347: 36,3057           01351                                    EMDOT                                 
039846,000348: 36,3060           00047                                    X1                                    
039847,000349: 36,3061           52125                           PDDL     GOTO                                  
039848,000350: 36,3062           33622                                    VCSPS                                 
039849,000351: 36,3063           75075                                    P37T                                  
039850,000352: 36,3064           43145        P37Q               DLOAD    BON                                   #  RCS
039851,000353: 36,3065           33626                                    MDOTRCS                               
039852,000354: 36,3066           00700                                    NJETSFLG                              
039853,000355: 36,3067           75071                                    P37R                                  
039854,000356: 36,3070           77752                           SL1                                            
039855,000357: 36,3071           77752        P37R               SL1                                            
039856,000358: 36,3072           65301                           NORM     PDDL                                  
039857,000359: 36,3073           00047                                    X1                                    
039858,000360: 36,3074           33624                                    VCRCS                                 
039859,000361: 36,3075           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2 PL02D
039860,000362: 36,3076           03706                                    DV                                    
039861,000363: 36,3077           77776                           EXIT                                           
039862,000364: 36,3100           07171                           TC       POLY                                  
039863,000365: 36,3101           00001                           DEC      1          B-14                       
039864,000366: 36,3102           00001 05070                     2DEC     5.66240507 E-4        B-3             
039865,000367: 36,3104           17527 36700                     2DEC     9.79487897 E-1        B-1             
039866,000368: 36,3106           47114 70670                     2DEC     -.388281955 B1                         
039867,000369: 36,3110           06006                           TC       INTPRET                               
039868,000370: 36,3111           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A              B3 PL04D

Page 904

039870,000372: 36,3112           03076                                    WEIGHT/G                              
039871,000373: 36,3113           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A      B16+B3-B3=B16 PL00D
039872,000374: 36,3114           41257                           SL*      DMP                                   
039873,000375: 36,3115           20165                                    0          -12D,1                     
039874,000376: 36,3116           15334                                    CSUBT                                 
039875,000377: 36,3117           77621                           BDSU                                           
039876,000378: 36,3120           03716                                    T1                                    
039877,000379: 36,3121           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                 B28
039878,000380: 36,3122           77776                           EXIT                                           
039879,000381: 36,3123           35026                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
039880,000382: 36,3124           03246                           TCR      P370GOF                               
039881,000383: 36,3125           13123                           TCF      -2                                    
039882,000384: 36,3126           34772                           CAF      ZERO                                  
039883,000385: 36,3127           54771                           TS       VHFCNT                                
039884,000386: 36,3130           54772                           TS       TRKMKCNT                              
039885,000387: 36,3131           06006                           TC       INTPRET                               
039886,000388: 36,3132           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
039887,000389: 36,3133           63624                                    RTENCK1                               
039888,000390: 36,3134           53575                           VLOAD    UNIT                                  #                                    PL00D
039889,000391: 36,3135           03656                                    R(T2)/                                
039890,000392: 36,3136           74315                           PDVL     VXSC                                  #  UR2                            B1 PL06D
039891,000393: 36,3137           03554                                    UR1/                                  
039892,000394: 36,3140           33632                                    MCOS7.5                               
039893,000395: 36,3141           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                   B1 PL12D
039894,000396: 36,3142           03562                                    UH/                                   
039895,000397: 36,3143           33634                                    MSIN7.5                               
039896,000398: 36,3144           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)     B2 PL00D
039897,000399: 36,3145           50015                           DAD      BMN                                   
039898,000400: 36,3146           33636                                    MCOS22.5                              
039899,000401: 36,3147           75174                                    P37W                                  
039900,000402: 36,3150           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
039901,000403: 36,3151           03562                                    UH/                                   
039902,000404: 36,3152           03656                                    R(T2)/                                
039903,000405: 36,3153           71240                           BMN      DLOAD                                 
039904,000406: 36,3154           75160                                    P37U                                  
039905,000407: 36,3155           33640                                    THETA165                              
039906,000408: 36,3156           52006                           PUSH     GOTO                                  
039907,000409: 36,3157           75162                                    P37V                                  
039908,000410: 36,3160           41545        P37U               DLOAD    PUSH                                  
039909,000411: 36,3161           33642                                    THETA210                              
039910,000412: 36,3162           77756        P37V               SIN                                            
039911,000413: 36,3163           16732                           STODL    SNTH                                  
039912,000414: 36,3164           43146                           COS      CLEAR                                 
039913,000415: 36,3165           03666                                    RVSW                                  
039914,000416: 36,3166           26734                           STOVL    CSTH                                  
039915,000417: 36,3167           03640                                    R(T1)/                                
039916,000418: 36,3170           26657                           STOVL    RVEC                                  
039917,000419: 36,3171           03700                                    V2(T1)/                               
039918,000420: 36,3172           36746                           STCALL   VVEC                                  
039919,000421: 36,3173           25002                                    TIMETHET                              

Page 905

039921,000423: 36,3174           43014        P37W               CLEAR    CLEAR                                 
039922,000424: 36,3175           01267                                    XDELVFLG                              
039923,000425: 36,3176           03665                                    NORMSW                                
039924,000426: 36,3177           77214                           SET      VLOAD                                 
039925,000427: 36,3200           01071                                    FINALFLG                              
039926,000428: 36,3201           77626                           STADR                                          
039927,000429: 36,3202           60362                           STODL    RTARG                                 
039928,000430: 36,3203           00037                                    T                                     
039929,000431: 36,3204           77615                           DAD                                            
039930,000432: 36,3205           03716                                    T1                                    
039931,000433: 36,3206           27656                           STOVL    TPASS4                                
039932,000434: 36,3207           03700                                    V2(T1)/                               
039933,000435: 36,3210           77451                           VSU      EXIT                                  
039934,000436: 36,3211           03672                                    V(T1)/                                
039935,000437: 36,3212           34756                           CAF      EBANK4                                
039936,000438: 36,3213           54003                           TS       EBANK                                 
039937,000439: 36,3214           06006                           TC       INTPRET                               
039938,000440: 36,3215           03646                           STORE    DELVSIN                               
039939,000441: 36,3216           77624        P37WW              CALL                                           
039940,000442: 36,3217           73027                                    VN1645                                
039941,000443: 36,3220           77650                           GOTO                                           
039942,000444: 36,3221           75216                                    P37WW                                 
039943,000445: 
039944,000446:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
039945,000447: 
039946,000448: 36,3222           00006        P37GFRB1           EXTEND                                         
039947,000449: 36,3223           23752                           QXCH     SPRTEX                                
039948,000450: 36,3224           03232                           TCR      P370GOFR                              
039949,000451: 36,3225           34770        37BLANK            CAF      ONE                                   
039950,000452: 36,3226           05516                 +1        TCR      BLANKET                               
039951,000453: 36,3227           15205                           TCF      ENDOFJOB                              
039952,000454: 36,3230           01752                           TC       SPRTEX                                #  RECYCLE
039953,000455: 36,3231           13255                           TCF      P37PROC                               #  PROCEED
039954,000456: 
039955,000457:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
039956,000458: 
039957,000459: 36,3232           00006        P370GOFR           EXTEND                                         
039958,000460: 36,3233           23547                           QXCH     RTENCKEX                              
039959,000461: 36,3234           04636                           TCR      BANKCALL                              
039960,000462: 36,3235           21101                           CADR     GOFLASHR                              
039961,000463: 36,3236           14103                           TCF      GOTOPOOH                              #  TERMINATE
039962,000464: 36,3237           13242                           TCF      +3                                    
039963,000465: 36,3240           13244                           TCF      +4                                    
039964,000466: 36,3241           01547                           TC       RTENCKEX                              #  IMMEDIATE RETURN
039965,000467: 36,3242           51547                           INDEX    RTENCKEX                              #  PROCEED
039966,000468: 36,3243           10004                           TCF      0          +4                         
039967,000469: 36,3244           51547                           INDEX    RTENCKEX                              #  RECYCLE
039968,000470: 36,3245           10003                           TCF      0          +3                         
039969,000471: 
039970,000472:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
039971,000473: 

Page 906

039973,000475: 36,3246           00006        P370GOF            EXTEND                                         
039974,000476: 36,3247           23752                           QXCH     SPRTEX                                
039975,000477: 36,3250           04636                           TCR      BANKCALL                              
039976,000478: 36,3251           20743                           CADR     GOFLASH                               
039977,000479: 36,3252           14103                           TCF      GOTOPOOH                              
039978,000480: 36,3253           13255                           TCF      +2                                    
039979,000481: 36,3254           01752                           TC       SPRTEX                                
039980,000482: 36,3255           51752        P37PROC            INDEX    SPRTEX                                
039981,000483: 36,3256           10001                           TCF      0          +1                         
039982,000484: 36,3257     5026               V6N33RTE           =        V06N33                                
039983,000485: 36,3257     4537               V4N06RTE           =        V04N06                                
039984,000486: 36,3257     5034               V6N61RTE           =        V06N61                                
039985,000487: 36,3257           01447        V6N39RTE           VN       0639                                  
039986,000488: 36,3260     5033               V6N60RTE           =        V06N60                                
039987,000489: 36,3260     4535               V6N81RTE           =        V06N81                                
039988,000490: 32,2000                                           SETLOC   RTE                                   
039989,000491: 32,2000                                           BANK                                           
039990,000492: 32,2272                                           COUNT*   $$/P37                                

Page 907

039992,000494:                                                                                                  #  ALARM DISPLAY SUBROUTINE
039993,000495: 32,2272           77776        RTEALRM            EXIT                                           
039994,000496: 32,2273           30154                           CA       MPAC                                  
039995,000497: 32,2274           05770                           TC       VARALARM                              
039996,000498: 32,2275           35023                           CAF      V5N09RTE                              
039997,000499: 32,2276           04636                           TC       BANKCALL                              
039998,000500: 32,2277           20743                           CADR     GOFLASH                               
039999,000501: 32,2300           14103                           TCF      GOTOPOOH                              
040000,000502: 32,2301           12275                           TCF      -4                                    
040001,000503: 32,2302           04655                           TC       POSTJUMP                              
040002,000504: 32,2303           74476                           CADR     P37                                   
040003,000505: 32,2304     5023               V5N09RTE           =        V05N09                                
040004,000506: 

Page 908

040006,000508:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
040007,000509: 
040008,000510:                                                                                                  #  INPUT
040009,000511:                                                                                                  #    RVEC        INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040010,000512:                                                                                                  #    VVEC        INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
040011,000513:                                                                                                  #    RDESIRED    FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
040012,000514:                                                                                                  #    CONICX1     X1 SETTING FOR CONIC SUBROUTINES  -2 = EARTH            SP      B14
040013,000515:                                                                                                  #  OUTPUT
040014,000516:                                                                                                  #    R(T2)/      FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040015,000517:                                                                                                  #    V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040016,000518:                                                                                                  #    T12         TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
040017,000519: 
040018,000520: 32,2304           43020        TMRAD100           STQ      CLEAR                                 
040019,000521: 32,2305           03547                                    RTENCKEX                              
040020,000522: 32,2306           03666                                    RVSW                                  
040021,000523: 32,2307           67164                           AXC,2    SXA,2                                 
040022,000524: 32,2310           20000                           OCT      20000                                 
040023,000525: 32,2311           02756                                    SGNRDOT                               
040024,000526: 32,2312           45140                           LXC,1    CALL                                  
040025,000527: 32,2313           03550                                    CONICX1                               
040026,000528: 32,2314           25607                                    TIMERAD                               
040027,000529: 32,2315           27710                           STOVL    V(T2)/                                #                                    PL00D
040028,000530: 32,2316           77626                           STADR                                          
040029,000531: 32,2317           60121                           STODL    R(T2)/                                
040030,000532: 32,2320           00037                                    T                                     
040031,000533: 32,2321           37724                           STCALL   T12                                   
040032,000534: 32,2322           03547                                    RTENCKEX                              
040033,000535: 

Page 909

040035,000537:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
040036,000538: 
040037,000539:                                                                                                  #  DESCRIPTION
040038,000540:                                                                                                  #    OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
040039,000541:                                                                                                  #  COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
040040,000542: 
040041,000543:                                                                                                  #  CALLING SEQUENCE
040042,000544:                                                                                                  #    L   CALL
040043,000545:                                                                                                  #    L+1         RTEDISP
040044,000546: 
040045,000547:                                                                                                  #  SUBROUTINES CALLED
040046,000548:                                                                                                  #    TMRAD100
040047,000549:                                                                                                  #    AUGEKUGL
040048,000550:                                                                                                  #    LAT-LONG
040049,000551: 
040050,000552:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040051,000553:                                                                                                  #    PUSHLIST
040052,000554:                                                                                                  #      NONE
040053,000555:                                                                                                  #    MPAC
040054,000556:                                                                                                  #      NONE
040055,000557:                                                                                                  #    OTHER
040056,000558:                                                                                                  #      R(T2)/            FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040057,000559:                                                                                                  #      V(T2)/            FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040058,000560:                                                                                                  #      T2                FINAL TIME                                              DP      B28     CS
040059,000561:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040060,000562:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
040061,000563:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040062,000564:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040063,000565: 
040064,000566:                                                                                                  #  OUTPUT
040065,000567:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
040066,000568:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
040067,000569:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZ
040068,000570:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
040069,000571:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
040070,000572:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
040071,000573: 
040072,000574: 32,2323           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
040073,000575: 32,2324           03752                                    SPRTEX                                
040074,000576: 32,2325           03710                                    V(T2)/                                
040075,000577: 32,2326           65256                           UNIT     PDDL                                  
040076,000578: 32,2327           00045                                    36D                                   
040077,000579: 32,2330           17757                           STODL    VPRED                                 #  V(T2)
040078,000580: 32,2331           03552                                    T2                                    
040079,000581: 32,2332           77625                           DSU                                            
040080,000582: 32,2333           03413                                    SPRTETIG                              
040081,000583: 32,2334           26641                           STOVL    T3TOT4                                #  T21
040082,000584: 32,2335           03656                                    R(T2)/                                
040083,000585: 32,2336           50256                           UNIT     DOT                                   
040084,000586: 32,2337           77752                           SL1                                            

Page 910

040086,000588: 32,2340           44326                           ARCCOS   BDSU                                  
040087,000589: 32,2341           15326                                    1RTEB2                                
040088,000590: 32,2342           27761                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
040089,000591: 32,2343           03700                                    V2(T1)/                               
040090,000592: 32,2344           41451                           VSU      PUSH                                  
040091,000593: 32,2345           03672                                    V(T1)/                                
040092,000594: 32,2346           57441                           DOT      DCOMP                                 
040093,000595: 32,2347           03554                                    UR1/                                  
040094,000596: 32,2350           41515                           PDVL     PUSH                                  
040095,000597: 32,2351           63345                           DLOAD    PDVL                                  
040096,000598: 32,2352           15330                                    ZERORTE                               
040097,000599: 32,2353           55441                           DOT      VDEF                                  
040098,000600: 32,2354           03562                                    UH/                                   
040099,000601: 32,2355           77772                           VSL1                                           
040100,000602: 32,2356           17405                           STODL    DELVLVC                               
040101,000603: 32,2357           03405                                    DELVLVC                               
040102,000604: 32,2360           57414                           BOFF     DCOMP                                 
040103,000605: 32,2361           02741                                    RETROFLG                              
040104,000606: 32,2362           64364                                    RTD18                                 
040105,000607: 32,2363           03405                           STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
040106,000608: 32,2364           51575        RTD18              VLOAD    ABVAL                                 
040107,000609: 32,2365           03405                                    DELVLVC                               
040108,000610: 32,2366           27763                           STOVL    VGDISP                                
040109,000611: 32,2367           03656                                    R(T2)/                                
040110,000612: 32,2370           02657                           STORE    RVEC                                  #  *****  LANDING SITE COMPUTATION  *****
040111,000613: 32,2371           45246                           ABVAL    DSU                                   
040112,000614: 32,2372           33620                                    30480RTE                              
040113,000615: 32,2373           26760                           STOVL    RDESIRED                              
040114,000616: 32,2374           03710                                    V(T2)/                                
040115,000617: 32,2375           36746                           STCALL   VVEC                                  
040116,000618: 32,2376           64304                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
040117,000619: 32,2377           53575                           VLOAD    UNIT                                  
040118,000620: 32,2400           03656                                    R(T2)/                                
040119,000621: 32,2401           53515                           PDVL     UNIT                                  #  UR3                               PL06D
040120,000622: 32,2402           03710                                    V(T2)/                                
040121,000623: 32,2403           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)          PL00D
040122,000624: 32,2404           65336                           ARCSIN   PDDL                                  #  V(T3)                             PL02D
040123,000625: 32,2405           00045                                    36D                                   
040124,000626: 32,2406           51525                           PDDL     ABS                                   
040125,000627: 32,2407           45006                           PUSH     CALL                                  #  /GAMMAE/                          PL04D
040126,000628: 32,2410           64105                                    AUGEKUGL                              #  PHIE                              PL06D
040127,000629: 32,2411           43215                           DAD      DAD                                   
040128,000630: 32,2412           03724                                    T12                                   #  T23
040129,000631: 32,2413           03552                                    T2                                    
040130,000632: 32,2414           00003                           STORE    02D                                   #  T(LS)=T2&T23&TE
040131,000633: 32,2415           53135                           SLOAD    BZE                                   
040132,000634: 32,2416           03013                                    P37RANGE                              
040133,000635: 32,2417           64421                                    RTD22                                 
040134,000636: 32,2420           00005                           STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
040135,000637: 32,2421           73545        RTD22              DLOAD    SIN                                   

Page 911

040137,000639: 32,2422           00005                                    04D                                   
040138,000640: 32,2423           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                PL04D
040139,000641: 32,2424           77746                           COS                                            
040140,000642: 32,2425           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
040141,000643: 32,2426           53575                           VLOAD    UNIT                                  
040142,000644: 32,2427           03656                                    R(T2)/                                
040143,000645: 32,2430           41406                           PUSH     PUSH                                  
040144,000646: 32,2431           53515                           PDVL     UNIT                                  #                                    PL22D
040145,000647: 32,2432           03710                                    V(T2)/                                
040146,000648: 32,2433           47315                           PDVL     VXV                                   
040147,000649: 32,2434           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)         PL10D
040148,000650: 32,2435           63361                           VXSC     PDVL                                  
040149,000651: 32,2436           03403                                    LNG(SPL)                              
040150,000652: 32,2437           53361                           VXSC     VAD                                   #                                    PL04D
040151,000653: 32,2440           03401                                    LAT(SPL)                              
040152,000654: 32,2441           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
040153,000655: 32,2442           00662                                    ERADFLAG                              
040154,000656: 32,2443           01663                                    LUNAFLAG                              
040155,000657: 32,2444           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)  PL02D
040156,000658: 32,2445           77624                           CALL                                           
040157,000659: 32,2446           26453                                    LAT-LONG                              
040158,000660: 32,2447           77745                           DLOAD                                          
040159,000661: 32,2450           00747                                    LAT                                   
040160,000662: 32,2451           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE   *****
040161,000663: 32,2452           00751                                    LONG                                  
040162,000664: 32,2453           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE  *****
040163,000665: 32,2454           03752                                    SPRTEX                                

Page 912

040165,000667:                                                                                                  #  INITIAL VECTOR SUBROUTINE
040166,000668: 
040167,000669:                                                                                                  #  DESCRIPTION
040168,000670:                                                                                                  #    A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
040169,000671: 
040170,000672:                                                                                                  #  CALLING SEQUENCE
040171,000673:                                                                                                  #    L   CALL
040172,000674:                                                                                                  #    L+1         INVC100
040173,000675: 
040174,000676:                                                                                                  #  NORMAL EXIT MODE
040175,000677:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040176,000678: 
040177,000679:                                                                                                  #  ALARM EXIT MODE
040178,000680:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
040179,000681: 
040180,000682:                                                                                                  #  SUBROUTINES CALLED
040181,000683:                                                                                                  #    CSMPREC
040182,000684: 
040183,000685:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040184,000686:                                                                                                  #    PUSHLIST
040185,000687:                                                                                                  #      NONE
040186,000688:                                                                                                  #    MPAC
040187,000689:                                                                                                  #      NONE
040188,000690:                                                                                                  #    OTHER
040189,000691:                                                                                                  #      SPRTETIG          TIME OF IGNITION                                        DP      B28     CS
040190,000692:                                                                                                  #      CSM STATE VECTOR
040191,000693: 
040192,000694:                                                                                                  #  OUTPUT
040193,000695:                                                                                                  #    R(T1)/              INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
040194,000696:                                                                                                  #    V(T1)/              INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
040195,000697:                                                                                                  #    T1                  INITIAL VECTOR TIME (TIG)                               DP      B28     CS
040196,000698:                                                                                                  #    UR1/                UNIT INITIAL VECTOR                                     VECTOR  B1
040197,000699:                                                                                                  #    UH/                 UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040198,000700:                                                                                                  #    CFPA                COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040199,000701: 
040200,000702: 32,2455           71220        INVC100            STQ      DLOAD                                 
040201,000703: 32,2456           03752                                    SPRTEX                                
040202,000704: 32,2457           03413                                    SPRTETIG                              
040203,000705: 32,2460           34041                           STCALL   TDEC1                                 
040204,000706: 32,2461           27145                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
040205,000707: 32,2462           67175                           VLOAD    SXA,2                                 
040206,000708: 32,2463           00001                                    RATT                                  
040207,000709: 32,2464           03745                                    P(T1)                                 
040208,000710: 32,2465           27640                           STOVL    R(T1)/                                
040209,000711: 32,2466           00007                                    VATT                                  
040210,000712: 32,2467           17672                           STODL    V(T1)/                                
040211,000713: 32,2470           00015                                    TAT                                   
040212,000714: 32,2471           03716                           STORE    T1                                    
040213,000715: 32,2472           53135                           SLOAD    BZE                                   
040214,000716: 32,2473           03746                                    P(T1)                                 

Page 913

040216,000718: 32,2474           64500                                    INVC109                               
040217,000719: 32,2475           52135        INVC107            SLOAD    GOTO                                  
040218,000720: 32,2476           33631                                    OCT612                                
040219,000721: 32,2477           64272                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
040220,000722: 32,2500           53575        INVC109            VLOAD    UNIT                                  
040221,000723: 32,2501           03640                                    R(T1)/                                
040222,000724: 32,2502           17554                           STODL    UR1/                                  #  UR1/                           B1
040223,000725: 32,2503           00045                                    36D                                   
040224,000726: 32,2504           27646                           STOVL    R(T1)                                 #  R(T1)                         B29
040225,000727: 32,2505           03672                                    V(T1)/                                
040226,000728: 32,2506           77656                           UNIT                                           
040227,000729: 32,2507           03562                           STORE    UV1/                                  
040228,000730: 32,2510           72441                           DOT      SL1                                   
040229,000731: 32,2511           03554                                    UR1/                                  
040230,000732: 32,2512           03747                           STORE    CFPA                                  #  CFPA                           B1
040231,000733: 32,2513           45246                           ABS      DSU                                   
040232,000734: 32,2514           33644                                    EPC1RTE                               
040233,000735: 32,2515           71240                           BMN      DLOAD                                 
040234,000736: 32,2516           64525                                    INVC115                               #  NOT NEAR RECTILINEAR
040235,000737: 32,2517           15326                                    1RTEB2                                
040236,000738: 32,2520           41525                           PDDL     PUSH                                  
040237,000739: 32,2521           15330                                    ZERORTE                               
040238,000740: 32,2522           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
040239,000741: 32,2523           77650                           GOTO                                           
040240,000742: 32,2524           64531                                    INVC120                               
040241,000743: 32,2525           47375        INVC115            VLOAD    VXV                                   
040242,000744: 32,2526           03554                                    UR1/                                  
040243,000745: 32,2527           03562                                    UV1/                                  
040244,000746: 32,2530           77606                           PUSH                                           #  N/ = UR X UV                   B2
040245,000747: 32,2531           71214        INVC120            CLEAR    DLOAD                                 
040246,000748: 32,2532           02661                                    RETROFLG                              
040247,000749: 32,2533           51006                           PUSH     BPL                                   
040248,000750: 32,2534           64540                                    INVC125                               
040249,000751: 32,2535           57575                           VLOAD    VCOMP                                 #  RETROGRADE ORBIT
040250,000752: 32,2536           43006                           PUSH     SET                                   
040251,000753: 32,2537           02461                                    RETROFLG                              
040252,000754: 32,2540           77775        INVC125            VLOAD                                          
040253,000755: 32,2541           53435                           VXV      UNIT                                  
040254,000756: 32,2542           03554                                    UR1/                                  
040255,000757: 32,2543           03562                           STORE    UH/                                   #  UH/                            B1
040256,000758: 32,2544           77650                           GOTO                                           
040257,000759: 32,2545           03752                                    SPRTEX                                
040258,000760: 

Page 914

040260,000762:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040261,000763: 
040262,000764:                                                                                                  #  DESCRIPTION
040263,000765:                                                                                                  #    A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040264,000766:                                                                                                  #  CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040265,000767:                                                                                                  #  AS POSSIBLE.
040266,000768: 
040267,000769:                                                                                                  #  CALLING SEQUENCE
040268,000770:                                                                                                  #    L   CALL
040269,000771:                                                                                                  #    L+1         PREC100
040270,000772: 
040271,000773:                                                                                                  #  NORMAL EXIT MODE
040272,000774:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040273,000775: 
040274,000776:                                                                                                  #  ALARM EXIT MODE
040275,000777:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC =
040276,000778:                                                                                                  #        OCTAL 605       FOR EXCESS ITERATIONS
040277,000779:                                                                                                  #        OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
040278,000780: 
040279,000781:                                                                                                  #  SUBROUTINES CALLED
040280,000782:                                                                                                  #    INTSTALL
040281,000783:                                                                                                  #    RTENCK2
040282,000784:                                                                                                  #    RTENCK3
040283,000785:                                                                                                  #    TIMERAD
040284,000786:                                                                                                  #    PARAM
040285,000787:                                                                                                  #    V2T100
040286,000788: 
040287,000789:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040288,000790:                                                                                                  #    PUSHLIST
040289,000791:                                                                                                  #      NONE
040290,000792:                                                                                                  #    MPAC
040291,000793:                                                                                                  #      NONE
040292,000794:                                                                                                  #    OTHER
040293,000795:                                                                                                  #      R(T1)/            INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
040294,000796:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040295,000797:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040296,000798:                                                                                                  #      T1                INITIAL VECTOR TIME                                     DP      B28     CS
040297,000799:                                                                                                  #      T12               INITIAL TO FINAL POSITION TIME                          DP      B28     CS
040298,000800:                                                                                                  #      RCON              CONIC FINAL RADIUS                                      DP      B29/B27 METERS
040299,000801:                                                                                                  #      R(T1)             MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040300,000802:                                                                                                  #      X(T2)             COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040301,000803:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
040302,000804:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040303,000805:                                                                                                  #      MAMAX1            MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040304,000806:                                                                                                  #      MAMAX2            MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040305,000807:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040306,000808:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040307,000809:                                                                                                  #      BETA1             1+X(T2)**2                                              DP      B1
040308,000810:                                                                                                  #      PHI2              PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
040309,000811: 

Page 915

040311,000813:                                                                                                  #  OUTPUT
040312,000814:                                                                                                  #    V2(T1)/             POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040313,000815:                                                                                                  #    R(T2)/              FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040314,000816:                                                                                                  #    V(T2)/              FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040315,000817:                                                                                                  #    T2                  FINAL TIME                                              DP      B28     CENTISECONDS
040316,000818: 
040317,000819:                                                                                                  #  DEBRIS
040318,000820:                                                                                                  #    RD                  FINAL R DESIRED                                         DP      B29/B27 METERS
040319,000821:                                                                                                  #    R/APRE              R/A                                                     DP      B6
040320,000822:                                                                                                  #    P/RPRE              P/R                                                     DP      B4
040321,000823:                                                                                                  #    RPRE                MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
040322,000824:                                                                                                  #    X(T2)PRE            COTANGENT OF GAMMA2                                     DP      B0
040323,000825:                                                                                                  #    DT12                CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
040324,000826:                                                                                                  #    RCON                FINAL RADIUS                                            DP      B29/B27 METERS
040325,000827:                                                                                                  #    DRCON               DELTA RCON                                              DP      B29/B27 METERS
040326,000828: 
040327,000829: 32,2546           71220        PREC100            STQ      DLOAD                                 
040328,000830: 32,2547           03752                                    SPRTEX                                
040329,000831: 32,2550           33606                                    10RTE                                 
040330,000832: 32,2551           17730                           STODL    NN1A                                  
040331,000833: 32,2552           03636                                    RCON                                  
040332,000834: 32,2553           03664                           STORE    RD                                    
040333,000835: 32,2554           77745        PREC120            DLOAD                                          
040334,000836: 32,2555           15344                                    2RTEB1                                
040335,000837: 32,2556           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
040336,000838: 32,2557           33604                                    M15RTE                                
040337,000839: 32,2560           37546                           STCALL   NN2                                   
040338,000840: 32,2561           63652                                    RTENCK3                               
040339,000841: 32,2562           77624        PREC125            CALL                                           
040340,000842: 32,2563           37727                                    PARAM                                 
040341,000843: 32,2564           77745                           DLOAD                                          
040342,000844: 32,2565           02742                                    P                                     
040343,000845: 32,2566           14033                           STODL    P/RPRE                                
040344,000846: 32,2567           02744                                    R1A                                   
040345,000847: 32,2570           14035                           STODL    R/APRE                                
040346,000848: 32,2571           00041                                    R1                                    
040347,000849: 32,2572           14031                           STODL    RPRE                                  
040348,000850: 32,2573           03770                                    COGA                                  
040349,000851: 32,2574           77661                           SL                                             
040350,000852: 32,2575           20206                                    5                                     
040351,000853: 32,2576           03724                           STORE    X(T2)PRE                              
040352,000854: 32,2577           43276                           DCOMP    DAD                                   
040353,000855: 32,2600           03726                                    X(T2)                                 
040354,000856: 32,2601           45246                           ABS      DSU                                   
040355,000857: 32,2602           33652                                    EPC4RTE                               
040356,000858: 32,2603           50000                           BOV      BMN                                   
040357,000859: 32,2604           64606                                    PREC130                               
040358,000860: 32,2605           64775                                    PREC175                               
040359,000861: 
040360,000862:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 916

040362,000864: 32,2606           50145        PREC130            DLOAD    BMN                                   
040363,000865: 32,2607           03546                                    NN2                                   
040364,000866: 32,2610           64614                                    PREC140                               
040365,000867: 32,2611           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
040366,000868: 32,2612           33630                                    OCT605                                #      EXIT WITH ALARM
040367,000869: 32,2613           65100                                    PRECX                                 
040368,000870: 
040369,000871:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040370,000872: 
040371,000873: 32,2614           53145        PREC140            DLOAD    BZE                                   
040372,000874: 32,2615           03730                                    NN1A                                  
040373,000875: 32,2616           64654                                    PREC162                               
040374,000876: 32,2617           62545        PREC150            DLOAD    SL2                                   #                                 B2
040375,000877: 32,2620           00033                                    P/RPRE                                
040376,000878: 32,2621           72405                           DMP      SL1                                   #  BETA2=BETA1*P/R                B2 PL02
040377,000879: 32,2622           03744                                    BETA1                                 
040378,000880: 32,2623           71206                           PUSH     DLOAD                                 
040379,000881: 32,2624           00035                                    R/APRE                                
040380,000882: 32,2625           41212                           SL4      DMP                                   
040381,000883: 32,2626           00001                                    00D                                   
040382,000884: 32,2627           50021                           BDSU     BMN                                   #  BETA3=1-BETA2*R/A
040383,000885: 32,2630           31771                                    1RTEB4                                
040384,000886: 32,2631           64644                                    PREC160                               
040385,000887: 32,2632           75512        PREC155            SL2      SQRT                                  
040386,000888: 32,2633           44205                           DMP      BDSU                                  
040387,000889: 32,2634           03751                                    PHI2                                  
040388,000890: 32,2635           31767                                    1RTEB3                                
040389,000891: 32,2636           65301                           NORM     PDDL                                  
040390,000892: 32,2637           00047                                    X1                                    
040391,000893: 32,2640           56342                           SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040392,000894: 32,2641           52057                           SL*      GOTO                                  #                                 B1
040393,000895: 32,2642           20200                                    0          -1,1                       
040394,000896: 32,2643           64662                                    PREC165                               
040395,000897: 32,2644           60345        PREC160            DLOAD    NORM                                  
040396,000898: 32,2645           00035                                    R/APRE                                
040397,000899: 32,2646           00047                                    X1                                    
040398,000900: 32,2647           53665                           BDDV     SL*                                   #                                 B1
040399,000901: 32,2650           15334                                    1RTEB1                                
040400,000902: 32,2651           20173                                    0          -6,1                       
040401,000903: 32,2652           77650                           GOTO                                           
040402,000904: 32,2653           64662                                    PREC165                               
040403,000905: 32,2654           60345        PREC162            DLOAD    NORM                                  
040404,000906: 32,2655           00031                                    RPRE                                  
040405,000907: 32,2656           00047                                    X1                                    
040406,000908: 32,2657           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                  B1
040407,000909: 32,2660           03664                                    RD                                    
040408,000910: 32,2661           20200                                    0          -1,1                       
040409,000911: 32,2662           41401        PREC165            SETPD    PUSH                                  
040410,000912: 32,2663           00001                                    0                                     
040411,000913: 32,2664           57425                           DSU      DCOMP                                 

Page 917

040413,000915: 32,2665           15334                                    1RTEB1                                
040414,000916: 32,2666           03755                           STORE    BETA12                                
040415,000917: 32,2667           71240                           BMN      DLOAD                                 
040416,000918: 32,2670           64701                                    PREC168                               
040417,000919: 32,2671           03724                                    X(T2)PRE                              
040418,000920: 32,2672           71240                           BMN      DLOAD                                 
040419,000921: 32,2673           64677                                    PREC167                               
040420,000922: 32,2674           03755                                    BETA12                                
040421,000923: 32,2675           77676                           DCOMP                                          
040422,000924: 32,2676           03755                           STORE    BETA12                                
040423,000925: 32,2677           77745        PREC167            DLOAD                                          
040424,000926: 32,2700           03755                                    BETA12                                
040425,000927: 32,2701           45246        PREC168            ABS      DSU                                   
040426,000928: 32,2702           33654                                    EPC6RTE                               
040427,000929: 32,2703           71240                           BMN      DLOAD                                 
040428,000930: 32,2704           64775                                    PREC175                               
040429,000931: 32,2705           72405                           DMP      SL1                                   
040430,000932: 32,2706           00031                                    RPRE                                  
040431,000933: 32,2707           77606                           PUSH                                           #  RF = NEW RADIUS
040432,000934: 32,2710           43345        PREC170            DLOAD    DAD                                   
040433,000935: 32,2711           03546                                    NN2                                   
040434,000936: 32,2712           33600                                    1RTEB28                               
040435,000937: 32,2713           03546                           STORE    NN2                                   
040436,000938: 32,2714           43175                           VLOAD    SET                                   
040437,000939: 32,2715           03656                                    R(T2)/                                
040438,000940: 32,2716           03466                                    RVSW                                  
040439,000941: 32,2717           26657                           STOVL    RVEC                                  
040440,000942: 32,2720           03710                                    V(T2)/                                
040441,000943: 32,2721           77765                           SIGN                                           
040442,000944: 32,2722           03755                                    BETA12                                
040443,000945: 32,2723           16746                           STODL    VVEC                                  
040444,000946: 32,2724           15334                                    1RTEB1                                
040445,000947: 32,2725           57565                           SIGN     DCOMP                                 
040446,000948: 32,2726           03755                                    BETA12                                
040447,000949: 32,2727           71354                           LXA,2    DLOAD                                 
040448,000950: 32,2730           00154                                    MPAC                                  
040449,000951: 32,2731           67140                           LXC,1    SXA,2                                 
040450,000952: 32,2732           03550                                    CONICX1                               
040451,000953: 32,2733           02756                                    SGNRDOT                               
040452,000954: 32,2734           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
040453,000955: 32,2735           25607                                    TIMERAD                               #        NEW RADIUS)
040454,000956: 32,2736           75345                           DLOAD    SIGN                                  
040455,000957: 32,2737           00037                                    T                                     
040456,000958: 32,2740           03755                                    BETA12                                
040457,000959: 32,2741           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                   PL02D
040458,000960: 32,2742           03650                                    DT21PR                                
040459,000961: 32,2743           00047                                    X1                                    
040460,000962: 32,2744           53665                           BDDV     SL*                                   
040461,000963: 32,2745           00001                                    00D                                   
040462,000964: 32,2746           20176                                    0          -3,1                       

Page 918

040464,000966: 32,2747           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)         B3 PL04D
040465,000967: 32,2750           64755                                    PREC172                               
040466,000968: 32,2751           65345                           DLOAD    PDDL                                  #  BETA14=1                       B0 PL04D
040467,000969: 32,2752           15344                                    2RTEB1                                
040468,000970: 32,2753           77650                           GOTO                                           
040469,000971: 32,2754           64757                                    PREC173                               
040470,000972: 32,2755           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                      B0 PL04D
040471,000973: 32,2756           33610                                    M.6RTE                                
040472,000974: 32,2757           45271        PREC173            DDV      DSU                                   
040473,000975: 32,2760           00003                                    02D                                   
040474,000976: 32,2761           31767                                    1RTEB3                                
040475,000977: 32,2762           71240                           BMN      DLOAD                                 
040476,000978: 32,2763           64767                                    PREC174                               
040477,000979: 32,2764           77605                           DMP                                            
040478,000980: 32,2765           03650                                    DT21PR                                
040479,000981: 32,2766           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
040480,000982: 32,2767           41545        PREC174            DLOAD    PUSH                                  
040481,000983: 32,2770           00001                                    00D                                   
040482,000984: 32,2771           37650                           STCALL   DT21PR                                
040483,000985: 32,2772           63634                                    RTENCK2                               
040484,000986: 32,2773           77650                           GOTO                                           
040485,000987: 32,2774           64562                                    PREC125                               
040486,000988: 32,2775           45345        PREC175            DLOAD    DSU                                   
040487,000989: 32,2776           00031                                    RPRE                                  
040488,000990: 32,2777           03664                                    RD                                    
040489,000991: 32,3000           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
040490,000992: 32,3001           50025                           DSU      BMN                                   
040491,000993: 32,3002           33656                                    EPC7RTE                               
040492,000994: 32,3003           35022                                    PREC220                               
040493,000995: 
040494,000996:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
040495,000997: 
040496,000998: 32,3004           53145                           DLOAD    BZE                                   
040497,000999: 32,3005           03730                                    NN1A                                  
040498,001000: 32,3006           64611                                    PREC132                               #  TOO MANY ITERATIONS
040499,001001: 32,3007           53025                           DSU      BZE                                   
040500,001002: 32,3010           33606                                    10RTE                                 
040501,001003: 32,3011           65044                                    PREC207                               
040502,001004: 32,3012           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
040503,001005: 32,3013           03670                                    RPRE,                                 
040504,001006: 32,3014           00031                                    RPRE                                  #  RPRE,-RPRE                B29/B27
040505,001007: 32,3015           55301                           NORM     BDDV                                  
040506,001008: 32,3016           00050                                    X2                                    
040507,001009: 32,3017           03666                                    DRCON                                 
040508,001010: 32,3020           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S           B2
040509,001011: 32,3021           57600                                    0          -2,2                       
040510,001012: 32,3022           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
040511,001013: 32,3023           15334                                    1RTEB1                                
040512,001014: 32,3024           65031                                    PREC205M                              
040513,001015: 32,3025           45246                           ABS      DSU                                   

Page 919

040515,001017: 32,3026           15334                                    1RTEB1                                
040516,001018: 32,3027           77640                           BMN                                            
040517,001019: 32,3030           65034                                    PREC206                               
040518,001020: 32,3031           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
040519,001021: 32,3032           15344                                    2RTEB1                                
040520,001022: 32,3033           77725                           PDDL                                           #  S=-4                           B2
040521,001023: 32,3034           41345        PREC206            DLOAD    DMP                                   
040522,001024: 32,3035           77712                           SL2                                            
040523,001025: 32,3036           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
040524,001026: 32,3037           77615                           DAD                                            
040525,001027: 32,3040           03636                                    RCON                                  
040526,001028: 32,3041           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
040527,001029: 32,3042           77650                           GOTO                                           
040528,001030: 32,3043           65063                                    PREC210                               
040529,001031: 32,3044           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
040530,001032: 32,3045           03664                                    RD                                    
040531,001033: 32,3046           70501                           NORM     SR1                                   
040532,001034: 32,3047           00047                                    X1                                    
040533,001035: 32,3050           60325                           PDDL     NORM                                  
040534,001036: 32,3051           00031                                    RPRE                                  
040535,001037: 32,3052           00050                                    X2                                    
040536,001038: 32,3053           55260                           XSU,1    BDDV                                  
040537,001039: 32,3054           00047                                    X2                                    
040538,001040: 32,3055           77657                           SR*                                            
040539,001041: 32,3056           20600                                    0          -1,1                       
040540,001042: 32,3057           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
040541,001043: 32,3060           77625                           DSU                                            
040542,001044: 32,3061           03664                                    RD                                    
040543,001045: 32,3062           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
040544,001046: 32,3063           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
040545,001047: 32,3064           00031                                    RPRE                                  
040546,001048: 32,3065           17670                           STODL    RPRE,                                 
040547,001049: 32,3066           03730                                    NN1A                                  
040548,001050: 32,3067           77625                           DSU                                            
040549,001051: 32,3070           33600                                    1RTEB28                               
040550,001052: 32,3071           37730                           STCALL   NN1A                                  
040551,001053: 32,3072           65102                                    V2T100                                
040552,001054: 32,3073           52030                           BHIZ     GOTO                                  
040553,001055: 32,3074           64554                                    PREC120                               
040554,001056: 32,3075           65100                                    PRECX                                 
040555,001057: 
040556,001058:                                                                                                  #  DESIRED RADIUS ACHIEVED
040557,001059: 
040558,001060: 16,2000                                           SETLOC   RTE2                                  
040559,001061: 16,2000                                           BANK                                           
040560,001062: 16,3022           45345        PREC220            DLOAD    DSU                                   
040561,001063: 16,3023           03726                                    X(T2)                                 
040562,001064: 16,3024           03724                                    X(T2)PRE                              
040563,001065: 16,3025           45246                           ABS      DSU                                   

Page 920

040565,001067: 16,3026           35035                                    EPC8RTE                               
040566,001068: 16,3027           67240                           BMN      SLOAD                                 
040567,001069: 16,3030           65076                                    PREC225                               
040568,001070: 16,3031           35037                                    OCT613                                
040569,001071: 16,3032           77650                           GOTO                                           
040570,001072: 16,3033           65100                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040571,001073: 
040572,001074: 16,3034           00040 30447  EPC8RTE            2DEC     .002                                  
040573,001075: 16,3036           00613        OCT613             OCT      613                                   
040574,001076: 
040575,001077:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
040576,001078: 
040577,001079: 32,2000                                           SETLOC   RTE                                   
040578,001080: 32,2000                                           BANK                                           
040579,001081: 32,3076                                           COUNT*   $$/P37                                
040580,001082: 32,3076           77745        PREC225            DLOAD                                          
040581,001083: 32,3077           15330                                    ZERORTE                               
040582,001084: 32,3100           77650        PRECX              GOTO                                           
040583,001085: 32,3101           03752                                    SPRTEX                                
040584,001086: 

Page 921

040586,001088:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
040587,001089: 
040588,001090:                                                                                                  #  DESCRIPTION
040589,001091:                                                                                                  #    PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
040590,001092:                                                                                                  #  RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
040591,001093:                                                                                                  #  WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040592,001094: 
040593,001095:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
040594,001096: 
040595,001097:                                                                                                  #    CALLING SEQUENCE
040596,001098:                                                                                                  #        L       CALL
040597,001099:                                                                                                  #        L+1             RTENCK1
040598,001100: 
040599,001101:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040600,001102:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
040601,001103: 
040602,001104:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
040603,001105: 
040604,001106:                                                                                                  #    CALLING SEQUENCE
040605,001107:                                                                                                  #        L       CALL
040606,001108:                                                                                                  #        L+1             RTENCK2
040607,001109: 
040608,001110:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040609,001111:                                                                                                  #        PUSHLIST
040610,001112:                                                                                                  #          PUSHLOC-2     INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
040611,001113:                                                                                                  #        OTHER
040612,001114:                                                                                                  #          R(T2)/        FINAL POSITION VECTOR                                   VECTOR .B29     METERS
040613,001115:                                                                                                  #          V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040614,001116:                                                                                                  #          T2            FINAL TIME                                              DP      B28     CS
040615,001117: 
040616,001118:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
040617,001119: 
040618,001120:                                                                                                  #    CALLING SEQUENCE
040619,001121:                                                                                                  #        L       CALL
040620,001122:                                                                                                  #        L+1             RTENCK3
040621,001123: 
040622,001124:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
040623,001125:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040624,001126:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
040625,001127:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040626,001128:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040627,001129: 
040628,001130:                                                                                                  #  EXIT MODE
040629,001131:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
040630,001132:                                                                                                  #  SUBROUTINES CALLED
040631,001133:                                                                                                  #    INTSTALL
040632,001134:                                                                                                  #    INTEGRVS
040633,001135: 
040634,001136:                                                                                                  #  OUTPUT
040635,001137:                                                                                                  #    PUSHLIST

Page 922

040637,001139:                                                                                                  #      PUSHLOC-6         FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
040638,001140:                                                                                                  #      X1                CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
040639,001141:                                                                                                  #    MPAC
040640,001142:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
040641,001143:                                                                                                  #    OTHER
040642,001144:                                                                                                  #        R(T2)/          AS IN PUSHLIST
040643,001145:                                                                                                  #        V(T2)/          AS IN MPAC
040644,001146:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040645,001147: 
040646,001148: 31,2000                                           SETLOC   RTE3                                  
040647,001149: 31,2000                                           BANK                                           
040648,001150: 31,3624                                           COUNT*   $$/P37                                
040649,001151: 31,3624           45020        RTENCK1            STQ      CALL                                  
040650,001152: 31,3625           03547                                    RTENCKEX                              
040651,001153: 31,3626           27516                                    INTSTALL                              
040652,001154: 31,3627           43175                           VLOAD    SET                                   
040653,001155: 31,3630           03640                                    R(T1)/                                
040654,001156: 31,3631           01473                                    INTYPFLG                              
040655,001157: 31,3632           77650                           GOTO                                           
040656,001158: 31,3633           63660                                    RTENCK3B                              
040657,001159: 
040658,001160: 31,3634           45020        RTENCK2            STQ      CALL                                  
040659,001161: 31,3635           03547                                    RTENCKEX                              
040660,001162: 31,3636           27516                                    INTSTALL                              
040661,001163: 31,3637           77214                           CLEAR    VLOAD                                 
040662,001164: 31,3640           01673                                    INTYPFLG                              
040663,001165: 31,3641           03656                                    R(T2)/                                
040664,001166: 31,3642           25535                           STOVL    RCV                                   
040665,001167: 31,3643           03710                                    V(T2)/                                
040666,001168: 31,3644           15543                           STODL    VCV                                   
040667,001169: 31,3645           03552                                    T2                                    
040668,001170: 31,3646           01517                           STORE    TET                                   
040669,001171: 31,3647           77615                           DAD                                            
040670,001172: 31,3650           77650                           GOTO                                           
040671,001173: 31,3651           63666                                    RTENCK3D                              
040672,001174: 
040673,001175: 31,3652           45020        RTENCK3            STQ      CALL                                  
040674,001176: 31,3653           03547                                    RTENCKEX                              
040675,001177: 31,3654           27516                                    INTSTALL                              
040676,001178: 31,3655           43175        RTENCK3A           VLOAD    CLEAR                                 
040677,001179: 31,3656           03640                                    R(T1)/                                
040678,001180: 31,3657           01673                                    INTYPFLG                              
040679,001181: 31,3660           25535        RTENCK3B           STOVL    RCV                                   
040680,001182: 31,3661           03700                                    V2(T1)/                               
040681,001183: 31,3662           15543                           STODL    VCV                                   
040682,001184: 31,3663           03716                                    T1                                    
040683,001185: 31,3664           15517                           STODL    TET                                   

Page 923

040685,001187: 31,3665           03552                                    T2                                    
040686,001188: 31,3666           00041        RTENCK3D           STORE    TDEC1                                 
040687,001189: 31,3667           45014                           CLEAR    CALL                                  
040688,001190: 31,3670           00263                                    MOONFLAG                              
040689,001191: 31,3671           27211                                    INTEGRVS                              
040690,001192: 31,3672           77775                           VLOAD                                          
040691,001193: 31,3673           00001                                    RATT                                  
040692,001194: 31,3674           03656                           STORE    R(T2)/                                
040693,001195: 31,3675           70125                           PDDL     LXC,1                                 
040694,001196: 31,3676           00015                                    TAT                                   
040695,001197: 31,3677           03550                                    CONICX1                               
040696,001198: 31,3700           27552                           STOVL    T2                                    
040697,001199: 31,3701           00007                                    VATT                                  
040698,001200: 31,3702           03710                           STORE    V(T2)/                                
040699,001201: 31,3703           77650                           GOTO                                           
040700,001202: 31,3704           03547                                    RTENCKEX                              
040701,001203: 32,2000                                           SETLOC   RTE                                   
040702,001204: 32,2000                                           BANK                                           
040703,001205: 32,3102                                           COUNT*   $$/P37                                
040704,001206: 

Page 924

040706,001208:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
040707,001209: 
040708,001210:                                                                                                  #  DESCRIPTION
040709,001211:                                                                                                  #  A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040710,001212:                                                                                                  #  (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME  OR
040711,001213:                                                                                                  #  (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040712,001214:                                                                                                  #  AND CONSEQUENTLY FUEL.
040713,001215: 
040714,001216:                                                                                                  #  CALLING SEQUENCE
040715,001217:                                                                                                  #    L   CALL
040716,001218:                                                                                                  #    L+1         V2T100
040717,001219: 
040718,001220:                                                                                                  #  NORMAL EXIT MODE
040719,001221:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040720,001222: 
040721,001223:                                                                                                  #  ALARM EXIT MODE
040722,001224:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040723,001225: 
040724,001226:                                                                                                  #  SUBROUTINES CALLED
040725,001227:                                                                                                  #    GAMDV10
040726,001228:                                                                                                  #    XT1LIM
040727,001229:                                                                                                  #    DVCALC
040728,001230: 
040729,001231:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040730,001232:                                                                                                  #    PUSHLIST
040731,001233:                                                                                                  #      NONE
040732,001234:                                                                                                  #    MPAC
040733,001235:                                                                                                  #      NONE
040734,001236:                                                                                                  #    OTHER
040735,001237:                                                                                                  #      R(T1)             MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040736,001238:                                                                                                  #      RCON              MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
040737,001239:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040738,001240:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040739,001241:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
040740,001242:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040741,001243:                                                                                                  #      X(T2)             COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040742,001244:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE(INPUT FOR PREC)  DP      B5
040743,001245:                                                                                                  #      CFPA              COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040744,001246:                                                                                                  #      MAMAX1            MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040745,001247:                                                                                                  #      MAMAX2            MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040746,001248:                                                                                                  #      PHI2              REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
040747,001249:                                                                                                  #      N1                CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC, PLUS PREC
040748,001250: 
040749,001251:                                                                                                  #  OUTPUT
040750,001252:                                                                                                  #    V2(T1)/             POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040751,001253:                                                                                                  #    DV                  INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040752,001254:                                                                                                  #    X(T1)               COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
040753,001255:                                                                                                  #    PCON                SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040754,001256:                                                                                                  #    BETA1               1+X(T2)**2                                              DP      B1
040755,001257: 

Page 925

040757,001259:                                                                                                  #  DEBRIS
040758,001260:                                                                                                  #    PUSHLIST
040759,001261:                                                                                                  #      00D               X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
040760,001262:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
040761,001263:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040762,001264:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040763,001265:                                                                                                  #      10D               X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040764,001266:                                                                                                  #      12D               DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
040765,001267:                                                                                                  #      14D               X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040766,001268:                                                                                                  #      16D               DX(T1)=ITERATOR INCREMENT                               DP      B5
040767,001269:                                                                                                  #      31D               GAMDV10 SUBROUTINE RETURN ADDRESS
040768,001270:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
040769,001271:                                                                                                  #      33D               V2T100 SUBROUTINE RETURN ADDRESS
040770,001272: 
040771,001273: 32,3102           71220        V2T100             STQ      DLOAD                                 
040772,001274: 32,3103           00041                                    33D                                   
040773,001275: 32,3104           03636                                    RCON                                  
040774,001276: 32,3105           45240                           BMN      DSU                                   #  ABORT IF RCON NEGATIVE
040775,001277: 32,3106           65112                                    V2TERROR                              
040776,001278: 32,3107           03646                                    R(T1)                                 
040777,001279: 32,3110           77640                           BMN                                            
040778,001280: 32,3111           65115                                    V2T101                                
040779,001281: 32,3112           77776        V2TERROR           EXIT                                           #     OR IF LAMBDA LESS THAN ONE
040780,001282: 32,3113           05726                           TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1

Different than comanche55 ... smc

040782,001284: 32,3114           20610                           OCT      20610                                 
040783,001285: 
040784,001286: 32,3115           43001        V2T101             SETPD    CLEAR                                 
040785,001287: 32,3116           00001                                    0                                     #                                    PL00D
040786,001288: 32,3117           00272                                    F2RTE                                 
040787,001289: 32,3120           60345                           DLOAD    NORM                                  
040788,001290: 32,3121           03636                                    RCON                                  
040789,001291: 32,3122           00047                                    X1                                    
040790,001292: 32,3123           60325                           PDDL     NORM                                  
040791,001293: 32,3124           03646                                    R(T1)                                 
040792,001294: 32,3125           00051                                    S1                                    
040793,001295: 32,3126           00013                           STORE    10D                                   
040794,001296: 32,3127           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA               B1
040795,001297: 32,3130           65260                           XSU,1    PDDL                                  #                                    PL02D
040796,001298: 32,3131           00050                                    S1                                    
040797,001299: 32,3132           03726                                    X(T2)                                 
040798,001300: 32,3133           77716                           DSQ                                            
040799,001301: 32,3134           43342                           SR1      DAD                                   
040800,001302: 32,3135           15334                                    1RTEB1                                
040801,001303: 32,3136           03744                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1             B1
040802,001304: 32,3137           77605                           DMP                                            
040803,001305: 32,3140           00001                                    00D                                   
040804,001306: 32,3141           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
040805,001307: 32,3142           53605                           DMP      SL*                                   
040806,001308: 32,3143           00001                                    00D                                   
040807,001309: 32,3144           20172                                    0          -7,1                       

Page 926

040809,001311: 32,3145           45257                           SL*      DSU                                   
040810,001312: 32,3146           20172                                    0          -7,1                       
040811,001313: 32,3147           33574                                    1RTEB17                               
040812,001314: 32,3150           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17 PL05D
040813,001315: 32,3151           45657                                    TPMODE                                
040814,001316: 32,3152           15334                                    1RTEB1                                
040815,001317: 32,3153           57457                           SR*      DCOMP                                 
040816,001318: 32,3154           20601                                    0,1                                   
040817,001319: 32,3155           41215                           DAD      DMP                                   
040818,001320: 32,3156           00001                                    00D                                   
040819,001321: 32,3157           03646                                    R(T1)                                 
040820,001322: 32,3160           47057                           SL*      RTB                                   
040821,001323: 32,3161           20172                                    0          -7D,1                      
040822,001324: 32,3162           45657                                    TPMODE                                
040823,001325: 32,3163           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
040824,001326: 32,3164           33674                                    RTMURTE                               
040825,001327: 32,3165           70501                           NORM     SR1                                   
040826,001328: 32,3166           00050                                    X2                                    
040827,001329: 32,3167           56264                           XSU,2    DDV                                   
040828,001330: 32,3170           00050                                    S1                                    
040829,001331: 32,3171           00013                                    10D                                   
040830,001332: 32,3172           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3       B-4/B-5 PL10D
040831,001333: 32,3173           57170                                    6,2                                   
040832,001334: 32,3174           03652                                    MAMAX1                                
040833,001335: 32,3175           41406                           PUSH     PUSH                                  #  MAMAX1=MA
040834,001336: 32,3176           77624                           CALL                                           
040835,001337: 32,3177           65741                                    XT1LIM                                
040836,001338: 32,3200           41476                           DCOMP    PUSH                                  #  X(T1)MIN                       B5 PL12D
040837,001339: 32,3201           40476                           DCOMP    SR4                                   
040838,001340: 32,3202           41525                           PDDL     PUSH                                  #  DX(T1)MAX                      B5 PL14D
040839,001341: 32,3203           03654                                    MAMAX2                                
040840,001342: 32,3204           45006                           PUSH     CALL                                  
040841,001343: 32,3205           65741                                    XT1LIM                                
040842,001344: 32,3206           50125                           PDDL     BMN                                   #  X(T1)MAX                       B5 PL16D
040843,001345: 32,3207           03730                                    NN1A                                  
040844,001346: 32,3210           65213                                    V2T102                                
040845,001347: 32,3211           77650                           GOTO                                           
040846,001348: 32,3212           65225                                    V2T110                                
040847,001349: 
040848,001350:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
040849,001351: 
040850,001352: 32,3213           77745        V2T102             DLOAD                                          
040851,001353: 32,3214           03632                                    RTEDVD                                
040852,001354: 32,3215           52054                           BZE      GOTO                                  
040853,001355: 32,3216           65220                                    V2T105                                
040854,001356: 32,3217           65321                                    V2T140                                
040855,001357: 32,3220           50145        V2T105             DLOAD    BMN                                   
040856,001358: 32,3221           03747                                    CFPA                                  
040857,001359: 32,3222           65321                                    V2T140                                
040858,001360: 32,3223           77650                           GOTO                                           

Page 927

040860,001362: 32,3224           65327                                    V2T145                                
040861,001363: 
040862,001364:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
040863,001365:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
040864,001366:                                                                                                  #  THROUGH X(T2)
040865,001367: 
040866,001368: 32,3225           47145        V2T110             DLOAD    RTB                                   
040867,001369: 32,3226           33574                                    1RTEB17                               
040868,001370: 32,3227           45657                                    TPMODE                                
040869,001371: 32,3230           65276                           DCOMP    PDDL                                  #  -1                            B17 PL19D
040870,001372: 32,3231           15344                                    2RTEB1                                
040871,001373: 32,3232           45257                           SR*      DSU                                   
040872,001374: 32,3233           20601                                    0,1                                   
040873,001375: 32,3234           00001                                    00D                                   
040874,001376: 32,3235           53605                           DMP      SL*                                   
040875,001377: 32,3236           00035                                    28D                                   
040876,001378: 32,3237           20172                                    0          -7,1                       
040877,001379: 32,3240           76257                           SL*      TAD                                   
040878,001380: 32,3241           20172                                    0          -7,1                       
040879,001381: 32,3242           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17 PL19D
040880,001382: 32,3243           45657                                    TPMODE                                
040881,001383: 32,3244           03722                                    X(T1)                                 
040882,001384: 32,3245           00001                           STORE    00D                                   #  X(T1),,                        B5
040883,001385: 32,3246           77751                           TLOAD                                          #                                    PL16D
040884,001386: 32,3247           53040                           BMN      BZE                                   
040885,001387: 32,3250           65255                                    V2T115                                
040886,001388: 32,3251           65255                                    V2T115                                
040887,001389: 32,3252           52061                           SL       GOTO                                  
040888,001390: 32,3253           20210                                    7                                     
040889,001391: 32,3254           65266                                    V2T120                                
040890,001392: 32,3255           50145        V2T115             DLOAD    BMN                                   
040891,001393: 32,3256           03751                                    PHI2                                  
040892,001394: 32,3257           65277                                    V2T125                                
040893,001395: 32,3260           77676                           DCOMP                                          
040894,001396: 32,3261           17751                           STODL    PHI2                                  
040895,001397: 32,3262           33606                                    10RTE                                 
040896,001398: 32,3263           03730                           STORE    NN1A                                  
040897,001399: 32,3264           77650                           GOTO                                           
040898,001400: 32,3265           65277                                    V2T125                                
040899,001401: 32,3266           47166        V2T120             SQRT     RTB                                   
040900,001402: 32,3267           45765                                    DPMODE                                
040901,001403: 32,3270           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM             B5 PL18D
040902,001404: 32,3271           03751                                    PHI2                                  
040903,001405: 32,3272           65305                                    V2T130                                
040904,001406: 32,3273           45545                           DLOAD    STADR                                 #                                    PL16D
040905,001407: 32,3274           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
040906,001408: 32,3275           77676                           DCOMP                                          
040907,001409: 32,3276           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
040908,001410: 32,3277           53145        V2T125             DLOAD    BZE                                   
040909,001411: 32,3300           03722                                    X(T1)                                 

Page 928

040911,001413: 32,3301           65321                                    V2T140                                
040912,001414: 32,3302           52040                           BMN      GOTO                                  
040913,001415: 32,3303           65321                                    V2T140                                
040914,001416: 32,3304           65327                                    V2T145                                
040915,001417: 32,3305           53145        V2T130             DLOAD    BZE                                   
040916,001418: 32,3306           03722                                    X(T1)                                 
040917,001419: 32,3307           65316                                    V2T135                                
040918,001420: 32,3310           71240                           BMN      DLOAD                                 #                                    PL16D
040919,001421: 32,3311           65316                                    V2T135                                
040920,001422: 32,3312           77626                           STADR                                          
040921,001423: 32,3313           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
040922,001424: 32,3314           77650                           GOTO                                           
040923,001425: 32,3315           65327                                    V2T145                                
040924,001426: 32,3316           57545        V2T135             DLOAD    DCOMP                                 #                                    PL16D
040925,001427: 32,3317           77626                           STADR                                          
040926,001428: 32,3320           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
040927,001429: 32,3321           77745        V2T140             DLOAD                                          
040928,001430: 32,3322           00013                                    10D                                   
040929,001431: 32,3323           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
040930,001432: 32,3324           00015                                    12D                                   
040931,001433: 32,3325           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                PL18D
040932,001434: 32,3326           65334                                    V2T150                                
040933,001435: 32,3327           77745        V2T145             DLOAD                                          
040934,001436: 32,3330           00017                                    14D                                   
040935,001437: 32,3331           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
040936,001438: 32,3332           00015                                    12D                                   
040937,001439: 32,3333           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)               PL18D
040938,001440: 32,3334           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
040939,001441: 32,3335           65464                                    GAMDV10                               
040940,001442: 32,3336           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
040941,001443: 32,3337           03632                                    RTEDVD                                
040942,001444: 32,3340           65462                                    V2T1X                                 
040943,001445: 
040944,001446:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
040945,001447: 
040946,001448: 32,3341           50025                           DSU      BMN                                   
040947,001449: 32,3342           03706                                    DV                                    
040948,001450: 32,3343           65346                                    V2T155                                
040949,001451: 32,3344           77650                           GOTO                                           
040950,001452: 32,3345           65401                                    V2T175                                
040951,001453: 32,3346           50145        V2T155             DLOAD    BMN                                   
040952,001454: 32,3347           03730                                    NN1A                                  
040953,001455: 32,3350           65353                                    V2T160                                
040954,001456: 32,3351           77650                           GOTO                                           
040955,001457: 32,3352           65423                                    V2T185                                
040956,001458: 
040957,001459:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
040958,001460: 
040959,001461: 32,3353           53145        V2T160             DLOAD    BZE                                   
040960,001462: 32,3354           03722                                    X(T1)                                 

Page 929

040962,001464: 32,3355           65361                                    V2T165                                
040963,001465: 32,3356           52040                           BMN      GOTO                                  
040964,001466: 32,3357           65361                                    V2T165                                
040965,001467: 32,3360           65460                                    V2T300                                
040966,001468: 32,3361           53145        V2T165             DLOAD    BZE                                   
040967,001469: 32,3362           03747                                    CFPA                                  
040968,001470: 32,3363           65460                                    V2T300                                
040969,001471: 32,3364           71240                           BMN      DLOAD                                 
040970,001472: 32,3365           65460                                    V2T300                                
040971,001473: 32,3366           00017                                    14D                                   
040972,001474: 32,3367           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
040973,001475: 32,3370           00015                                    12D                                   
040974,001476: 32,3371           77676                           DCOMP                                          
040975,001477: 32,3372           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
040976,001478: 32,3373           65464                                    GAMDV10                               
040977,001479: 32,3374           45345                           DLOAD    DSU                                   
040978,001480: 32,3375           03632                                    RTEDVD                                
040979,001481: 32,3376           03706                                    DV                                    
040980,001482: 32,3377           77640                           BMN                                            
040981,001483: 32,3400           65460                                    V2T300                                
040982,001484: 32,3401           71214        V2T175             SET      DLOAD                                 
040983,001485: 32,3402           00072                                    F2RTE                                 
040984,001486: 32,3403           03722                                    X(T1)                                 
040985,001487: 32,3404           77614                           BOFF                                           
040986,001488: 32,3405           02742                                    SLOWFLG                               
040987,001489: 32,3406           65413                                    V2T177                                
040988,001490: 32,3407           14013                           STODL    10D                                   #   X(T1)MIN
040989,001491: 32,3410           00015                                    12D                                   #  DX(T1)MAX
040990,001492: 32,3411           77650                           GOTO                                           
040991,001493: 32,3412           65416                                    V2T179                                
040992,001494: 32,3413           14017        V2T177             STODL    14D                                   
040993,001495: 32,3414           00015                                    12D                                   
040994,001496: 32,3415           77676                           DCOMP                                          
040995,001497: 32,3416           34021        V2T179             STCALL   16D                                   #  DX(T1)
040996,001498: 32,3417           65464                                    GAMDV10                               
040997,001499: 32,3420           50145                           DLOAD    BMN                                   
040998,001500: 32,3421           03730                                    NN1A                                  
040999,001501: 32,3422           65460                                    V2T300                                
041000,001502: 
041001,001503:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
041002,001504:                                                                                                  #  PRECISION TRAJECTORY
041003,001505: 
041004,001506: 32,3423           45345        V2T185             DLOAD    DSU                                   
041005,001507: 32,3424           03722                                    X(T1)                                 
041006,001508: 32,3425           00001                                    00D                                   
041007,001509: 32,3426           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
041008,001510: 32,3427           00015                                    12D                                   
041009,001511: 32,3430           44352                           SL1      BDSU                                  
041010,001512: 32,3431           71240                           BMN      DLOAD                                 
041011,001513: 32,3432           65460                                    V2T300                                

Page 930

041013,001515: 32,3433           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
041014,001516: 32,3434           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
041015,001517: 32,3435           50025                           DSU      BMN                                   
041016,001518: 32,3436           00017                                    14D                                   
041017,001519: 32,3437           65445                                    V2T195                                
041018,001520: 32,3440           77745                           DLOAD                                          
041019,001521: 32,3441           00017                                    14D                                   
041020,001522: 32,3442           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
041021,001523: 32,3443           77650                           GOTO                                           
041022,001524: 32,3444           65456                                    V2T205                                
041023,001525: 32,3445           45345        V2T195             DLOAD    DSU                                   
041024,001526: 32,3446           03722                                    X(T1)                                 
041025,001527: 32,3447           00013                                    10D                                   
041026,001528: 32,3450           52040                           BMN      GOTO                                  
041027,001529: 32,3451           65453                                    V2T200                                
041028,001530: 32,3452           65456                                    V2T205                                
041029,001531: 32,3453           77745        V2T200             DLOAD                                          
041030,001532: 32,3454           00013                                    10D                                   
041031,001533: 32,3455           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
041032,001534: 32,3456           77624        V2T205             CALL                                           
041033,001535: 32,3457           65665                                    DVCALC                                
041034,001536: 32,3460           77745        V2T300             DLOAD                                          
041035,001537: 32,3461           15330                                    ZERORTE                               
041036,001538: 32,3462           77650        V2T1X              GOTO                                           
041037,001539: 32,3463           00041                                    33D                                   
041038,001540: 

Page 931

041040,001542:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
041041,001543: 
041042,001544:                                                                                                  #  DESCRIPTION
041043,001545:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
041044,001546: 
041045,001547:                                                                                                  #  CALLING SEQUENCE
041046,001548:                                                                                                  #    L   CALL
041047,001549:                                                                                                  #    L+1         GAMDV10
041048,001550: 
041049,001551:                                                                                                  #  NORMAL EXIT MODE
041050,001552:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
041051,001553: 
041052,001554:                                                                                                  #  ALARM EXIT MODE
041053,001555:                                                                                                  #    AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
041054,001556: 
041055,001557:                                                                                                  #  SUBROUTINES CALLED
041056,001558:                                                                                                  #    DVCALC
041057,001559: 
041058,001560:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
041059,001561:                                                                                                  #    PUSHLIST
041060,001562:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
041061,001563:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041062,001564:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041063,001565:                                                                                                  #      10D               X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
041064,001566:                                                                                                  #      12D               DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
041065,001567:                                                                                                  #      14D               X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
041066,001568:                                                                                                  #      16D               DX(T1)=ITERATOR INCREMENT                               DP      B5
041067,001569:                                                                                                  #    MPAC
041068,001570:                                                                                                  #      NONE
041069,001571:                                                                                                  #    OTHER
041070,001572:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
041071,001573:                                                                                                  #      RTEDVD            DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
041072,001574:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
041073,001575:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041074,001576:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
041075,001577:                                                                                                  #      F2RTE             TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
041076,001578: 
041077,001579:                                                                                                  #  OUTPUT
041078,001580:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041079,001581:                                                                                                  #      DV                INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041080,001582:                                                                                                  #      X(T1)             COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
041081,001583:                                                                                                  #      PCON              SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041082,001584: 
041083,001585:                                                                                                  #  DEBRIS
041084,001586:                                                                                                  #    PUSHLIST
041085,001587:                                                                                                  #      00D               X(T1),,
041086,001588:                                                                                                  #      02D               THETA1
041087,001589:                                                                                                  #      05D               THETA2
041088,001590:                                                                                                  #      08D               THETA3
041089,001591:                                                                                                  #      10D               X(T1)MIN
041090,001592:                                                                                                  #      12D               DX(T1)MAX

Page 932

041092,001594:                                                                                                  #      14D               X(T1)MAX
041093,001595:                                                                                                  #      16D               DX(T1)
041094,001596:                                                                                                  #      22D               DV,=PREVIOUS DV                                         DP      B7/B5
041095,001597:                                                                                                  #      24D               BETA9=X(T1)+1.1DX(T1)                                   DP      B5
041096,001598:                                                                                                  #      31D               GAMDV10 SUBROUTINE RETURN ADDRESS
041097,001599:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
041098,001600:                                                                                                  #      33D               V2T100 SUBROUTINE RETURN ADDRESS
041099,001601: 
041100,001602: 32,3464           77620        GAMDV10            STQ                                            
041101,001603: 32,3465           00037                                    31D                                   
041102,001604: 32,3466           45001                           SETPD    CALL                                  
041103,001605: 32,3467           00023                                    18D                                   #                                    PL18D
041104,001606: 32,3470           65665                                    DVCALC                                
041105,001607: 32,3471           45345                           DLOAD    DSU                                   
041106,001608: 32,3472           00017                                    14D                                   
041107,001609: 32,3473           00013                                    10D                                   
041108,001610: 32,3474           77600                           BOV                                            
041109,001611: 32,3475           65515                                    GAMDV20                               
041110,001612: 32,3476           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8        B5 PL20D
041111,001613: 32,3477           33576                                    EPC9RTE                               
041112,001614: 32,3500           71240                           BMN      DLOAD                                 
041113,001615: 32,3501           65663                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
041114,001616: 32,3502           00023                                    18D                                   
041115,001617: 32,3503           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
041116,001618: 32,3504           00015                                    12D                                   
041117,001619: 32,3505           65511                                    GAMDV15                               
041118,001620: 32,3506           52001                           SETPD    GOTO                                  #                                    PL18D
041119,001621: 32,3507           00023                                    18D                                   
041120,001622: 32,3510           65515                                    GAMDV20                               
041121,001623: 32,3511           77745        GAMDV15            DLOAD                                          #                                    PL18D
041122,001624: 32,3512           70565                           SIGN     SR1                                   
041123,001625: 32,3513           00021                                    16D                                   
041124,001626: 32,3514           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
041125,001627: 32,3515           77745        GAMDV20            DLOAD                                          
041126,001628: 32,3516           33602                                    M144RTE                               
041127,001629: 32,3517           03546                           STORE    NN2                                   
041128,001630: 32,3520           43345        GAMDV25            DLOAD    DAD                                   
041129,001631: 32,3521           03546                                    NN2                                   
041130,001632: 32,3522           33600                                    1RTEB28                               
041131,001633: 32,3523           67240                           BMN      SLOAD                                 
041132,001634: 32,3524           65530                                    GAMDV30                               
041133,001635: 32,3525           33630                                    OCT605                                
041134,001636: 32,3526           77650                           GOTO                                           
041135,001637: 32,3527           65462                                    V2T1X                                 
041136,001638: 32,3530           03546        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
041137,001639: 32,3531           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                   B5 PL20D
041138,001640: 32,3532           03722                                    X(T1)                                 
041139,001641: 32,3533           03706                                    DV                                    
041140,001642: 32,3534           43325                           PDDL     DAD                                   #  DV=DV,                      B7/B5 PL22D
041141,001643: 32,3535           03722                                    X(T1)                                 
041142,001644: 32,3536           00021                                    16D                                   

Page 933

041144,001646: 32,3537           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)             B5
041145,001647: 32,3540           65665                                    DVCALC                                
041146,001648: 32,3541           71214                           BON      DLOAD                                 
041147,001649: 32,3542           00312                                    F2RTE                                 
041148,001650: 32,3543           65557                                    GAMDV35                               
041149,001651: 32,3544           03706                                    DV                                    
041150,001652: 32,3545           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
041151,001653: 32,3546           00025                                    20D                                   
041152,001654: 32,3547           65554                                    GAMDV33                               
041153,001655: 32,3550           57545        GAMDV32            DLOAD    DCOMP                                 
041154,001656: 32,3551           00021                                    16D                                   
041155,001657: 32,3552           77742                           SR1                                            
041156,001658: 32,3553           00021                           STORE    16D                                   
041157,001659: 32,3554           52001        GAMDV33            SETPD    GOTO                                  
041158,001660: 32,3555           00023                                    18D                                   #                                    PL18D
041159,001661: 32,3556           65622                                    GAMDV50                               
041160,001662: 
041161,001663:                                                                                                  #  TIME CRITICAL MODE
041162,001664: 
041163,001665: 32,3557           45345        GAMDV35            DLOAD    DSU                                   
041164,001666: 32,3560           03632                                    RTEDVD                                
041165,001667: 32,3561           03706                                    DV                                    
041166,001668: 32,3562           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                B7/B5 PL22D
041167,001669: 32,3563           51545        GAMDV40            DLOAD    ABS                                   #  DV,                               PL24D
041168,001670: 32,3564           00025                                    20D                                   
041169,001671: 32,3565           50025                           DSU      BMN                                   
041170,001672: 32,3566           33660                                    EPC10RTE                              
041171,001673: 32,3567           65663                                    GAMDVX                                
041172,001674: 32,3570           71204        GAMDV45            BOVB     DLOAD                                 
041173,001675: 32,3571           57544                                    TCDANZIG                              #  ASSURE OVFIND IS 0
041174,001676: 32,3572           60221                           BDSU     NORM                                  
041175,001677: 32,3573           03706                                    DV                                    
041176,001678: 32,3574           00050                                    X2                                    
041177,001679: 32,3575           77725                           PDDL                                           #  DV-DV,                   B7/B5-N2 PL22D
041178,001680: 32,3576           70501                           NORM     SR1                                   #  DVERR                   B8/B6-N1
041179,001681: 32,3577           00047                                    X1                                    
041180,001682: 32,3600           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
041181,001683: 32,3601           41221                           BDSU     DMP                                   #                                    PL18D
041182,001684: 32,3602           03722                                    X(T1)                                 
041183,001685: 32,3603           77660                           XSU,1                                          
041184,001686: 32,3604           00047                                    X2                                    
041185,001687: 32,3605           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
041186,001688: 32,3606           40057                           SR*      BOV                                   
041187,001689: 32,3607           20600                                    0          -1,1                       
041188,001690: 32,3610           65616                                    GAMDV47                               
041189,001691: 32,3611           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
041190,001692: 32,3612           45246                           ABS      DSU                                   
041191,001693: 32,3613           00015                                    12D                                   
041192,001694: 32,3614           77640                           BMN                                            
041193,001695: 32,3615           65622                                    GAMDV50                               

Page 934

041195,001697: 32,3616           75345        GAMDV47            DLOAD    SIGN                                  
041196,001698: 32,3617           00015                                    12D                                   
041197,001699: 32,3620           00021                                    16D                                   
041198,001700: 32,3621           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
041199,001701: 
041200,001702:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
041201,001703: 
041202,001704: 32,3622           41345        GAMDV50            DLOAD    DMP                                   
041203,001705: 32,3623           00021                                    16D                                   
041204,001706: 32,3624           33612                                    1.1RTEB1                              
041205,001707: 32,3625           43352                           SL1      DAD                                   
041206,001708: 32,3626           03722                                    X(T1)                                 
041207,001709: 32,3627           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9          B5
041208,001710: 32,3630           50025                           DSU      BMN                                   
041209,001711: 32,3631           00017                                    14D                                   
041210,001712: 32,3632           65641                                    GAMDV55                               
041211,001713: 32,3633           45345                           DLOAD    DSU                                   
041212,001714: 32,3634           00017                                    14D                                   
041213,001715: 32,3635           03722                                    X(T1)                                 
041214,001716: 32,3636           77742                           SR1                                            
041215,001717: 32,3637           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)      B5
041216,001718: 32,3640           65654                                    GAMDV65                               
041217,001719: 32,3641           45345        GAMDV55            DLOAD    DSU                                   
041218,001720: 32,3642           00031                                    24D                                   
041219,001721: 32,3643           00013                                    10D                                   
041220,001722: 32,3644           52040                           BMN      GOTO                                  
041221,001723: 32,3645           65647                                    GAMDV60                               
041222,001724: 32,3646           65654                                    GAMDV65                               
041223,001725: 32,3647           45345        GAMDV60            DLOAD    DSU                                   
041224,001726: 32,3650           00013                                    10D                                   
041225,001727: 32,3651           03722                                    X(T1)                                 
041226,001728: 32,3652           77742                           SR1                                            
041227,001729: 32,3653           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)      B5
041228,001730: 32,3654           51545        GAMDV65            DLOAD    ABS                                   
041229,001731: 32,3655           00021                                    16D                                   
041230,001732: 32,3656           50025                           DSU      BMN                                   
041231,001733: 32,3657           33576                                    EPC9RTE                               
041232,001734: 32,3660           65663                                    GAMDVX                                
041233,001735: 32,3661           77650                           GOTO                                           
041234,001736: 32,3662           65520                                    GAMDV25                               
041235,001737: 32,3663           77650        GAMDVX             GOTO                                           
041236,001738: 32,3664           00037                                    31D                                   
041237,001739: 

Page 935

041239,001741:                                                                                                  #  DV CALCULATION SUBROUTINE
041240,001742: 
041241,001743:                                                                                                  #  INPUT
041242,001744:                                                                                                  #    PUSHLIST
041243,001745:                                                                                                  #      02D               THETA1=BETA5*LAMBDA-1                                   TP      B17
041244,001746:                                                                                                  #      05D               THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041245,001747:                                                                                                  #      08D               THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041246,001748:                                                                                                  #    OTHER
041247,001749:                                                                                                  #      X(T1)             COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
041248,001750:                                                                                                  #      V(T1)/            INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
041249,001751:                                                                                                  #      UR1/              UNIT INITIAL VECTOR                                     VECTOR  B1
041250,001752:                                                                                                  #      UH/               UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041251,001753: 
041252,001754:                                                                                                  #  OUTPUT
041253,001755:                                                                                                  #      V2(T1)/           POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041254,001756:                                                                                                  #      DV                INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041255,001757:                                                                                                  #      PCON              SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041256,001758: 
041257,001759:                                                                                                  #  DEBRIS
041258,001760:                                                                                                  #      28D               THETA3*PCON**.5                                         DP      B10/B8-N1
041259,001761:                                                                                                  #      C(PUSLOC)         THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
041260,001762:                                                                                                  #      32D               DVCALC SUBROUTINE RETURN ADDRESS
041261,001763:                                                                                                  #      X1                NORMALIZATION FACTOR FOR VALUE IN 28D
041262,001764: 
041263,001765:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041264,001766: 
041265,001767: 32,3665           71220        DVCALC             STQ      DLOAD                                 
041266,001768: 32,3666           00040                                    32D                                   
041267,001769: 32,3667           03722                                    X(T1)                                 
041268,001770: 32,3670           54316                           DSQ      SR                                    
041269,001771: 32,3671           20610                                    7                                     
041270,001772: 32,3672           76276                           DCOMP    TAD                                   
041271,001773: 32,3673           00003                                    02D                                   
041272,001774: 32,3674           41501                           NORM     PUSH                                  
041273,001775: 32,3675           00047                                    X1                                    
041274,001776: 32,3676           60351                           TLOAD    NORM                                  
041275,001777: 32,3677           00006                                    05D                                   
041276,001778: 32,3700           00050                                    X2                                    
041277,001779: 32,3701           70434                           RTB      SR1                                   
041278,001780: 32,3702           45765                                    DPMODE                                
041279,001781: 32,3703           56264                           XSU,2    DDV                                   
041280,001782: 32,3704           00046                                    X1                                    
041281,001783: 32,3705           77657                           SR*                                            
041282,001784: 32,3706           57170                                    6,2                                   
041283,001785: 32,3707           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
041284,001786: 32,3710           41366                           SQRT     DMP                                   
041285,001787: 32,3711           00011                                    08D                                   
041286,001788: 32,3712           77701                           NORM                                           
041287,001789: 32,3713           00047                                    X1                                    
041288,001790: 32,3714           14035                           STODL    28D                                   #  THETA3*PCON**.5        B10/B8 -N1

Page 936

041290,001792: 32,3715           03722                                    X(T1)                                 
041291,001793: 32,3716           74301                           NORM     VXSC                                  
041292,001794: 32,3717           00050                                    X2                                    
041293,001795: 32,3720           03554                                    UR1/                                  #  X(T1)*UR1/              B5+B1 -N2
041294,001796: 32,3721           74274                           XAD,2    VXSC                                  
041295,001797: 32,3722           00046                                    X1                                    
041296,001798: 32,3723           00035                                    28D                                   
041297,001799: 32,3724           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/  B7/B5
041298,001800: 32,3725           57207                                    0          -9D,2                      #             +
041299,001801: 32,3726           03562                                    UH/                                   
041300,001802: 32,3727           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/         B7/B5
041301,001803: 32,3730           00035                                    28D                                   
041302,001804: 32,3731           20575                                    0          -4,1                       #             =
041303,001805: 32,3732           45455                           VAD      STADR                                 
041304,001806: 32,3733           74077                           STORE    V2(T1)/                               #  V2(T1)/                     B7/B5
041305,001807: 32,3734           51451                           VSU      ABVAL                                 
041306,001808: 32,3735           03672                                    V(T1)/                                
041307,001809: 32,3736           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV    B7/B5
041308,001810: 32,3737           77650                           GOTO                                           
041309,001811: 32,3740           00040                                    32D                                   
041310,001812: 

Page 937

041312,001814:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041313,001815: 
041314,001816:                                                                                                  #  INPUT
041315,001817:                                                                                                  #    PUSHLIST
041316,001818:                                                                                                  #      PUSHLOC -4        MAJOR AXIS (MA)                                         DP      B30/B28
041317,001819:                                                                                                  #      PUSHLOC -2        MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
041318,001820:                                                                                                  #      28D               BETA5=LAMBDA*BETA1                                      DP      B9
041319,001821:                                                                                                  #    OTHER
041320,001822:                                                                                                  #      RCON                                                                      DP      B29/B27
041321,001823:                                                                                                  #      R(T1)                                                                     DP      B29/B27
041322,001824: 
041323,001825:                                                                                                  #  OUTPUT
041324,001826:                                                                                                  #    MPAC
041325,001827:                                                                                                  #      X(T1)LIM          LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
041326,001828: 
041327,001829:                                                                                                  #  DEBRIS
041328,001830:                                                                                                  #    PUSHLIST
041329,001831:                                                                                                  #      C(PUSHLOC)        MA-RCON                                                 DP      (B30/28)-N1
041330,001832:                                                                                                  #      C(PSHLOC)+2       MA                                                      DP      B30/B28
041331,001833:                                                                                                  #      X1                NORMALIZATION FACTOR FOR MA-RCON
041332,001834:                                                                                                  #      20D               XT1LIM SUBROUTINE RETURN ADDRESS
041333,001835:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041334,001836: 
041335,001837: 32,3741           71220        XT1LIM             STQ      DLOAD                                 
041336,001838: 32,3742           00024                                    20D                                   
041337,001839: 32,3743           03636                                    RCON                                  
041338,001840: 32,3744           44342                           SR1      BDSU                                  
041339,001841: 32,3745           65301                           NORM     PDDL                                  #  MA-RCON                    B30-N1
041340,001842: 32,3746           00050                                    X2                                    
041341,001843: 32,3747           70525                           PDDL     SR1                                   
041342,001844: 32,3750           03646                                    R(T1)                                 
041343,001845: 32,3751           56221                           BDSU     DDV                                   
041344,001846: 32,3752           41257                           SL*      DMP                                   
041345,001847: 32,3753           57601                                    0          -3,2                       
041346,001848: 32,3754           00035                                    28D                                   
041347,001849: 32,3755           45257                           SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
041348,001850: 32,3756           20173                                    0          -6,1                       
041349,001851: 32,3757           33577                                    1RTEB25    +1                         #  1.0 B-11
041350,001852: 32,3760           40152                           SL1      BOV                                   #                                B10
041351,001853: 32,3761           65765                                    XT1LIM2                               
041352,001854: 32,3762           52040                           BMN      GOTO                                  
041353,001855: 32,3763           65771                                    XT1LIM5                               
041354,001856: 32,3764           65767                                    XT1LIM3                               
041355,001857: 32,3765           77745        XT1LIM2            DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
041356,001858: 32,3766           15344                                    2RTEB1                                
041357,001859: 32,3767           52166        XT1LIM3            SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)             B5
041358,001860: 32,3770           65773                                    XT1LIMX                               
041359,001861: 32,3771           77745        XT1LIM5            DLOAD                                          
041360,001862: 32,3772           15330                                    ZERORTE                               
041361,001863: 32,3773           77650        XT1LIMX            GOTO                                           
041362,001864: 32,3774           00024                                    20D                                   
041363,001865: 

Page 938

041365,001867:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041366,001868: 
041367,001869: 35,2000                                           SETLOC   RTECON1                               
041368,001870: 35,2000                                           BANK                                           
041369,001871: 
041370,001872: 35,3571                                           COUNT*   $$/P37                                
041371,001873: 35,3571  26,3333               1RTEB1             =        UNITX                                 
041372,001874: 35,3571  26,3325               1RTEB2             =        DP1/4TH                               
041373,001875: 35,3571  34,3766               1RTEB3             =        DP2(-3)                               
041374,001876: 35,3571  34,3770               1RTEB4             =        DP2(-4)                               
041375,001877: 35,3571           00002 00000  1RTEB13            2DEC     1.         B-13                       
041376,001878: 35,3573           00000 04000  1RTEB17            2DEC     1.         B-17                       
041377,001879: 35,3575           00000 00010  1RTEB25            2DEC     1.         B-25                       
041378,001880:                                                                                                  #  * * B25 AND B28 MUST BE CONSECUTIVE * * 
041379,001881: 35,3577           00000 00001  1RTEB28            2DEC     1.         B-28                       
041380,001882: 35,3601  26,3327               ZERORTE            =        UNITZ                                 
041381,001883: 35,3601           77777 77557  M144RTE            2DEC     -144.      B-28                       
041382,001884: 35,3603           77777 77760  M15RTE             2DEC     -15        B-28                       
041383,001885: 35,3605           00000 00012  10RTE              2DEC     10         B-28                       
041384,001886: 35,3607           54631 63145  M.6RTE             2DEC     -.6                                   
041385,001887: 35,3611           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
041386,001888: 35,3613  26,3343               2RTEB1             =        DPPOSMAX                              
041387,001889: 35,3613           77777 77766  M9RTEB28           2DEC     -9         B-28                       
041388,001890: 35,3615           77777 77767  M8RTEB28           2DEC     -8         B-28                       
041389,001891: 35,3617           00000 35610  30480RTE           2DEC     30480.     B-29                       
041390,001892: 35,3621           37405 12250  VCSPS              2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)
041391,001893: 35,3623           33041 37714  VCRCS              2DEC     27.0664    B-5                        
041392,001894: 35,3625           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
041393,001895: 35,3627  26,3333               CSUBT              =        UNITX                                 
041394,001896: 35,3627           00605        OCT605             OCT      00605                                 
041395,001897: 35,3630           00612        OCT612             OCT      00612                                 
041396,001898: 35,3631           40214 45266  MCOS7.5            2DEC     -.99144486                            
041397,001899: 35,3633           73645 56536  MSIN7.5            2DEC     -.13052619                            

Page 939

041399,001901: 35,3635           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
041400,001902: 35,3637           16525 12525  THETA165           2DEC     .458333333                            
041401,001903: 35,3641           22525 12525  THETA210           2DEC     .583333333                            
041402,001904: 35,3643           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
041403,001905: 35,3645           00000 00062  EPC2RTE            2DEC     100.       B-29                       
041404,001906: 35,3647           00020 14223  EPC3RTE            2DEC     .001                                  
041405,001907: 35,3651           00000 05174  EPC4RTE            2DEC     .00001                                
041406,001908: 35,3653           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
041407,001909: 35,3655           00000 00764  EPC7RTE            2DEC     1000.      B-29                       
041408,001910: 35,3657  35,3575               EPC9RTE            =        1RTEB25                               
041409,001911: 35,3657           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
041410,001912: 
041411,001913: 35,3661                                           BANK     35                                    
041412,001914: 35,2000                                           SETLOC   RTECON1                               
041413,001915: 35,2000                                           BANK                                           
041414,001916: 35,3661                                           COUNT*   $$/P37                                
041415,001917: 35,3661           75725 75417  C4RTE              2DEC     -6.986643  E7         B-30            
041416,001918: 35,3663           00325 23740  K1RTE              2DEC     7.         E6         B-29            
041417,001919: 35,3665           00306 06614  K2RTE              2DEC     6495000.   B-29                       
041418,001920: 35,3667           76027 70156  K3RTE              2DEC     -.06105                               
041419,001921: 35,3671           74517 54131  K4RTE              2DEC     -.10453                               
041420,001922: 35,3673           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
041421,001923: 35,3675           00003 27040  E3RTE              2DEC     121920.    B-29                       

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