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.

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

Page 897

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

Page 898

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

Page 899

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

Page 900

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

Page 901

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

Page 902

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

Page 903

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

Page 904

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

Page 905

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

Page 906

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

Page 907

040001,000495:                                                                                                  #  ALARM DISPLAY SUBROUTINE
040002,000496: 32,2272           77776        RTEALRM            EXIT                                           
040003,000497: 32,2273           30154                           CA       MPAC                                  
040004,000498: 32,2274           05770                           TC       VARALARM                              
040005,000499: 32,2275           35023                           CAF      V5N09RTE                              
040006,000500: 32,2276           04636                           TC       BANKCALL                              
040007,000501: 32,2277           20743                           CADR     GOFLASH                               
040008,000502: 32,2300           14103                           TCF      GOTOPOOH                              
040009,000503: 32,2301           12275                           TCF      -4                                    
040010,000504: 32,2302           04655                           TC       POSTJUMP                              
040011,000505: 32,2303           74476                           CADR     P37                                   
040012,000506: 32,2304     5023               V5N09RTE           =        V05N09                                
040013,000507: 

Page 908

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

Page 909

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

Page 910

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

Page 911

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

Page 912

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

Page 913

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

Page 914

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

Page 915

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

Page 916

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

Page 917

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

Page 918

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

Page 919

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

Page 920

040575,001069: 16,3026           35035                                    EPC8RTE                               
040576,001070: 16,3027           67240                           BMN      SLOAD                                 
040577,001071: 16,3030           65076                                    PREC225                               
040578,001072: 16,3031           35037                                    OCT613                                
040579,001073: 16,3032           77650                           GOTO                                           
040580,001074: 16,3033           65100                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040581,001075: 
040582,001076: 16,3034           00040 30447  EPC8RTE            2DEC     .002                                  
040583,001077: 16,3036           00613        OCT613             OCT      613                                   
040584,001078: 
040585,001079:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
040586,001080: 
040587,001081: 32,2000                                           SETLOC   RTE                                   
040588,001082: 32,2000                                           BANK                                           
040589,001083: 32,3076                                           COUNT*   $$/P37                                
040590,001084: 32,3076           77745        PREC225            DLOAD                                          
040591,001085: 32,3077           15330                                    ZERORTE                               
040592,001086: 32,3100           77650        PRECX              GOTO                                           
040593,001087: 32,3101           03752                                    SPRTEX                                
040594,001088: 

Page 921

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

Page 922

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

Page 923

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

Page 924

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

Page 925

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

Different than comanche55 ... smc

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

Page 926

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

Page 927

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

Page 928

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

Page 929

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

Page 930

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

Page 931

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

Page 932

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

Page 933

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

Page 934

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

Page 935

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

Page 936

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

Page 937

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

Page 938

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

Page 939

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

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