Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

039627,000002:                                                                                                  ## Copyright:   Public domain.
039628,000003:                                                                                                  ## Filename:    P37_P70.agc
039629,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
039630,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
039631,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
039632,000007:                                                                                                  ## Assembler:   yaYUL
039633,000008:                                                                                                  ## Contact:     Jim Lawton <jim.lawton@gmail.com>.
039634,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
039635,000010:                                                                                                  ## Pages:       890-933
039636,000011:                                                                                                  ## Mod history: 2009-05-11 JVL  Adapted from the Colossus249/ file
039637,000012:                                                                                                  ##                              of the same name, using Comanche055 page
039638,000013:                                                                                                  ##                              images.
039639,000014:                                                                                                  ##              2009-05-20 RSB  Added missing label V2T179.  Fixed POODOO -> POODOO.
039640,000015:                                                                                                  ##              2009-05-23 RSB  In RTD18, corrected a STOVL DELVLVC to 
039641,000016:                                                                                                  ##                              STODL DELVLVC and a STODL 02D to STORE 02D.
039642,000017:                                                                                                  ##              2010-08-28 JL   Added missing comment characters.
039643,000018:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
039644,000019:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
039645,000020:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
039646,000021:                                                                                                  ##                              and corrected the errors found.
039647,000022:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
039648,000023:                                                                                                  ##                              vs Colossus 249.
039649,000024:                                                                                                  ##
039650,000025:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
039651,000026:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
039652,000027:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
039653,000028:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
039654,000029:                                                                                                  ## consequent reduction in image quality as well) are available online at
039655,000030:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
039656,000031:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the
039657,000032:                                                                                                  ## (much) higher-quality images which Paul actually created.
039658,000033:                                                                                                  ##
039659,000034:                                                                                                  ## Notations on the hardcopy document read, in part:
039660,000035:                                                                                                  ##
039661,000036:                                                                                                  ##    Assemble revision 055 of AGC program Comanche by NASA
039662,000037:                                                                                                  ##    2021113-051.  10:28 APR. 1, 1969 
039663,000038:                                                                                                  ##
039664,000039:                                                                                                  ##    This AGC program shall also be referred to as
039665,000040:                                                                                                  ##            Colossus 2A
039666,000041: 

Page 890

039668,000043: 31,3700                                           BANK     31                                    
039669,000044: 36,2000                                           SETLOC   RTE1                                  
039670,000045: 36,2000                                           BANK                                           
039671,000046: 
039672,000047: 36,2466  E7,1631                                  EBANK=   RTEDVD                                
039673,000048: 36,2466                                           COUNT    31/P37                                
039674,000049: 
039675,000050:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039676,000051: 
039677,000052:                                                                                                  #  DESCRIPTION
039678,000053:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039679,000054:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039680,000055:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
039681,000056:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039682,000057:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039683,000058: 
039684,000059:                                                                                                  #  CALLING SEQUENCE
039685,000060:                                                                                                  #        L       TC      P37
039686,000061: 
039687,000062:                                                                                                  #  SUBROUTINES CALLED
039688,000063:                                                                                                  #        PREC100
039689,000064:                                                                                                  #                V2T100
039690,000065:                                                                                                  #                RTENCK2
039691,000066:                                                                                                  #                RTENCK3
039692,000067:                                                                                                  #                TIMERAD
039693,000068:                                                                                                  #                PARAM
039694,000069:                                                                                                  #        V2T100
039695,000070:                                                                                                  #                GAMDV10
039696,000071:                                                                                                  #                XT1LIM
039697,000072:                                                                                                  #                DVCALC
039698,000073:                                                                                                  #        RTENCK1
039699,000074:                                                                                                  #                INTSTALL
039700,000075:                                                                                                  #                INTEGRVS
039701,000076:                                                                                                  #        RTEVN
039702,000077:                                                                                                  #                RTEDISP
039703,000078:                                                                                                  #                TMRAD100
039704,000079:                                                                                                  #                AUGEKUGL
039705,000080:                                                                                                  #                LAT-LONG
039706,000081:                                                                                                  #        TMRAD100
039707,000082:                                                                                                  #                TIMERAD
039708,000083:                                                                                                  #        INVC100
039709,000084:                                                                                                  #                CSMPREC
039710,000085:                                                                                                  #        GETERAD
039711,000086:                                                                                                  #        TIMETHET
039712,000087:                                                                                                  #        P370ALRM
039713,000088:                                                                                                  #        VN1645
039714,000089:                                                                                                  #        POLY
039715,000090: 
039716,000091:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039717,000092:                                                                                                  #        CSM STATE VECTOR

Page 891

039719,000094:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
039720,000095: 
039721,000096:                                                                                                  #  ASTRONAUT INPUT
039722,000097:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
039723,000098:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
039724,000099:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
039725,000100:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
039726,000101: 
039727,000102:                                                                                                  #  OUTPUT
039728,000103:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
039729,000104:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039730,000105:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039731,000106:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZON
039732,000107:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039733,000108:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039734,000109:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039735,000110:                                                                                                  #     TARGETING COMPUTATION DISPLAY
039736,000111:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
039737,000112:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
039738,000113:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
039739,000114:                                                                                                  #     THRUST PROGRAM COMMUNICATION
039740,000115:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
039741,000116:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
039742,000117:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
039743,000118:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
039744,000119:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
039745,000120: 
039746,000121: 36,2466           05412        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
039747,000122: 36,2467           00004                           OCT      4                                     
039748,000123: 
039749,000124: 36,2470           06006                           TC       INTPRET                               
039750,000125: 36,2471           66170                           AXT,1    SXA,1                                 
039751,000126: 36,2472           04000                           OCT      04000                                 
039752,000127: 36,2473           03424                                    ECSTEER                               
039753,000128: 36,2474           77745                           DLOAD                                          
039754,000129: 36,2475           15335                                    ZEROVECS                              
039755,000130: 36,2476           03767                           STORE    VPRED                                 
039756,000131: 36,2477           03771                           STORE    GAMMAEI                               
039757,000132: 36,2500           77776                           EXIT                                           
039758,000133: 36,2501           33246                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
039759,000134: 36,2502           03235                           TCR      P370GOF                               #                OVERLAYED WITH TIG
039760,000135: 36,2503           12501                           TCF      -2                                    #  DESPLAY NEW DATA
039761,000136: 36,2504           33252                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
039762,000137: 36,2505           03211                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RTEDVD
039763,000138: 36,2506           12504                           TCF      -2                                    #  DISPLAY NEW DATA
039764,000139: 36,2507           06006        RTE299             TC       INTPRET                               
039765,000140: 36,2510           71331                           SSP      DLOAD                                 
039766,000141: 36,2511           00122                                    OVFIND                                
039767,000142: 36,2512           00000                                    0                                     
039768,000143: 36,2513           03767                                    VPRED                                 

Page 892

039770,000145: 36,2514           17632                           STODL    RTEDVD                                
039771,000146: 36,2515           03771                                    GAMMAEI                               
039772,000147: 36,2516           17634                           STODL    RTEGAM2D                              
039773,000148: 36,2517           33514                                    1RTEB13                               
039774,000149: 36,2520           17735                           STODL    CONICX1                               
039775,000150: 36,2521           33620                                    C4RTE                                 
039776,000151: 36,2522           37652                           STCALL   MAMAX1                                
039777,000152: 36,2523           64450                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
039778,000153: 36,2524           71214                           CLEAR    DLOAD                                 
039779,000154: 36,2525           02662                                    SLOWFLG                               
039780,000155: 36,2526           03632                                    RTEDVD                                
039781,000156: 36,2527           51444                           BPL      ABS                                   
039782,000157: 36,2530           74540                                    RTE317                                
039783,000158: 36,2531           03632                           STORE    RTEDVD                                
039784,000159: 36,2532           45345                           DLOAD    DSU                                   
039785,000160: 36,2533           03646                                    R(T1)                                 
039786,000161: 36,2534           33622                                    K1RTE                                 
039787,000162: 36,2535           43040                           BMN      SET                                   
039788,000163: 36,2536           74540                                    RTE317                                
039789,000164: 36,2537           02462                                    SLOWFLG                               
039790,000165: 36,2540           77545        RTE317             DLOAD    EXIT                                  
039791,000166: 36,2541           03646                                    R(T1)                                 
039792,000167: 36,2542           07171                           TC       POLY                                  
039793,000168: 36,2543           00002                           DEC      2          B-14                       
039794,000169: 36,2544           02544 35436                     2DEC     181000434. B-31                       
039795,000170: 36,2546           14040 05066                     2DEC     1.50785145 B-2                        
039796,000171: 36,2550           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
039797,000172: 36,2552           26415 25057                     2DEC*    9.76938926 E-18       B56*            
039798,000173: 36,2554           06006                           TC       INTPRET                               
039799,000174: 36,2555           77752                           SL1                                            
039800,000175: 36,2556           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039801,000176: 36,2557           33544                                    M9RTEB28                              
039802,000177: 36,2560           17730                           STODL    NN1A                                  
039803,000178: 36,2561           33624                                    K2RTE                                 
039804,000179: 36,2562           17636        RTE320             STODL    RCON                                  #  RCON=K2
039805,000180: 36,2563           03634                                    RTEGAM2D                              
039806,000181: 36,2564           44254                           BZE      BDSU                                  
039807,000182: 36,2565           74574                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
039808,000183: 36,2566           33502                                    1RTEB2                                
039809,000184: 36,2567           71406                           PUSH     COS                                   #                                        PL02D
039810,000185: 36,2570           73525                           PDDL     SIN                                   
039811,000186: 36,2571           45465                           BDDV     STADR                                 #                                        PL00D
039812,000187: 36,2572           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
039813,000188: 36,2573           74607                                    RTE360                                
039814,000189: 36,2574           45345        RTE340             DLOAD    DSU                                   
039815,000190: 36,2575           03646                                    R(T1)                                 

Page 893

039817,000192: 36,2576           33622                                    K1RTE                                 
039818,000193: 36,2577           71240                           BMN      DLOAD                                 
039819,000194: 36,2600           74604                                    RTE350                                
039820,000195: 36,2601           33630                                    K4RTE                                 
039821,000196: 36,2602           37726                           STCALL   X(T2)                                 #  X(T2)=K4
039822,000197: 36,2603           74607                                    RTE360                                
039823,000198: 36,2604           77745        RTE350             DLOAD                                          
039824,000199: 36,2605           33626                                    K3RTE                                 
039825,000200: 36,2606           03726                           STORE    X(T2)                                 #  X(T2)=K3
039826,000201: 36,2607           77624        RTE360             CALL                                           
039827,000202: 36,2610           65075                                    V2T100                                
039828,000203: 36,2611           52054                           BZE      GOTO                                  
039829,000204: 36,2612           74614                                    RTE367                                
039830,000205: 36,2613           74776                                    RTEALRM                               
039831,000206: 36,2614           77775        RTE367             VLOAD                                          
039832,000207: 36,2615           03640                                    R(T1)/                                
039833,000208: 36,2616           16657                           STODL    RVEC                                  
039834,000209: 36,2617           03636                                    RCON                                  
039835,000210: 36,2620           26760                           STOVL    RDESIRED                              
039836,000211: 36,2621           03700                                    V2(T1)/                               
039837,000212: 36,2622           36746                           STCALL   VVEC                                  
039838,000213: 36,2623           64277                                    TMRAD100                              
039839,000214: 36,2624           77615                           DAD                                            
039840,000215: 36,2625           03716                                    T1                                    
039841,000216: 36,2626           17736                           STODL    T2                                    
039842,000217: 36,2627           03634                                    RTEGAM2D                              
039843,000218: 36,2630           52054                           BZE      GOTO                                  
039844,000219: 36,2631           74633                                    RTE369                                
039845,000220: 36,2632           74655                                    RTE372                                
039846,000221: 36,2633           51575        RTE369             VLOAD    ABVAL                                 
039847,000222: 36,2634           03710                                    V(T2)/                                
039848,000223: 36,2635           77776                           EXIT                                           
039849,000224: 36,2636           07171                           TC       POLY                                  
039850,000225: 36,2637           00002                           DEC      2          B-14                       
039851,000226: 36,2640           00000 00000                     2DEC     0          B-28                       
039852,000227: 36,2642           47021 65002                     2DEC     -4.8760771 E-2        B4              
039853,000228: 36,2644           35610 07722                     2DEC     4.5419476  E-4        B11             
039854,000229: 36,2646           63772 63276                     2DEC     -1.4317675 E-6        B18             
039855,000230: 
039856,000231: 36,2650           06006                           TC       INTPRET                               
039857,000232: 36,2651           77615                           DAD                                            
039858,000233: 36,2652           01352                                    RTED1                                 
039859,000234: 36,2653           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
039860,000235: 36,2654           74657                                    RTE373                                
039861,000236: 36,2655           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
039862,000237: 36,2656           03726                                    X(T2)                                 
039863,000238: 36,2657           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D

Page 894

039865,000240: 36,2660           03726                                    X(T2)                                 
039866,000241: 36,2661           53575                           VLOAD    UNIT                                  
039867,000242: 36,2662           03656                                    R(T2)/                                #                                        B58
039868,000243: 36,2663           36152                           STCALL   ALPHAV                                
039869,000244: 36,2664           26505                                    GETERAD                               
039870,000245: 36,2665           77615                           DAD                                            
039871,000246: 36,2666           33634                                    E3RTE                                 
039872,000247: 36,2667           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3        B29 PL04D
039873,000248: 36,2670           03636                                    RCON                                  
039874,000249: 36,2671           45246                           ABS      DSU                                   
039875,000250: 36,2672           33600                                    EPC2RTE                               
039876,000251: 36,2673           52040                           BMN      GOTO                                  
039877,000252: 36,2674           74676                                    RTE374                                
039878,000253: 36,2675           74703                                    RTE375                                
039879,000254: 36,2676           51545        RTE374             DLOAD    ABS                                   
039880,000255: 36,2677           00001                                    00D                                   
039881,000256: 36,2700           50025                           DSU      BMN                                   
039882,000257: 36,2701           33602                                    EPC3RTE                               
039883,000258: 36,2702           74753                                    P37E                                  
039884,000259: 36,2703           43345        RTE375             DLOAD    DAD                                   
039885,000260: 36,2704           03730                                    NN1A                                  
039886,000261: 36,2705           33522                                    1RTEB28                               
039887,000262: 36,2706           67240                           BMN      SLOAD                                 
039888,000263: 36,2707           74713                                    RTE380                                
039889,000264: 36,2710           33562                                    OCT605                                
039890,000265: 36,2711           77650                           GOTO                                           
039891,000266: 36,2712           74776                                    RTEALRM                               #  TOO MANY ITERATIONS
039892,000267: 36,2713           03730        RTE380             STORE    NN1A                                  
039893,000268: 36,2714           53025                           DSU      BZE                                   
039894,000269: 36,2715           33546                                    M8RTEB28                              
039895,000270: 36,2716           74734                                    RTE385                                
039896,000271: 36,2717           45345                           DLOAD    DSU                                   
039897,000272: 36,2720           00001                                    00D                                   
039898,000273: 36,2721           03666                                    DRCON                                 
039899,000274: 36,2722           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1                 PL06D
039900,000275: 36,2723           00047                                    X1                                    
039901,000276: 36,2724           03670                                    RPRE'                                 
039902,000277: 36,2725           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
039903,000278: 36,2726           03726                                    X(T2)                                 
039904,000279: 36,2727           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
039905,000280: 36,2730           00001                                    00D                                   
039906,000281: 36,2731           20201                                    0,1                                   
039907,000282: 36,2732           77650                           GOTO                                           
039908,000283: 36,2733           74736                                    RTE390                                
039909,000284: 36,2734           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
039910,000285: 36,2735           00001                                    00D                                   
039911,000286: 36,2736           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
039912,000287: 36,2737           77626                           STADR                                          
039913,000288: 36,2740           60141                           STODL    RCON                                  #  RCON=RCON,
039914,000289: 36,2741           77600                           BOV                                            

Page 895

039916,000291: 36,2742           74607                                    RTE360                                
039917,000292: 36,2743           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
039918,000293: 36,2744           03726                                    X(T2)                                 
039919,000294: 36,2745           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
039920,000295: 36,2746           00021                                    16D                                   
039921,000296: 36,2747           77615                           DAD                                            
039922,000297: 36,2750           03726                                    X(T2)                                 
039923,000298: 36,2751           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
039924,000299: 36,2752           74607                                    RTE360                                #  REITERATE
039925,000300: 36,2753           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
039926,000301: 36,2754           75002                                    RTEVN                                 
039927,000302: 36,2755           41345        RTE505             DLOAD    DMP                                   
039928,000303: 36,2756           03720                                    PCON                                  
039929,000304: 36,2757           03754                                    BETA1                                 
039930,000305: 36,2760           53021                           BDSU     BZE                                   
039931,000306: 36,2761           03636                                    RCON                                  
039932,000307: 36,2762           74770                                    RTE510                                
039933,000308: 36,2763           71240                           BMN      DLOAD                                 
039934,000309: 36,2764           74770                                    RTE510                                
039935,000310: 36,2765           33502                                    1RTEB2                                
039936,000311: 36,2766           77650                           GOTO                                           #  ENTRY NEAR APOGEE
039937,000312: 36,2767           74772                                    RTE515                                
039938,000313: 36,2770           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
039939,000314: 36,2771           33502                                    1RTEB2                                
039940,000315: 36,2772           37761        RTE515             STCALL   PHI2                                  
039941,000316: 36,2773           64541                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
039942,000317: 36,2774           77654        RTE625             BZE                                            
039943,000318: 36,2775           75030                                    P37G                                  
039944,000319: 36,2776           77624        RTEALRM            CALL                                           
039945,000320: 36,2777           64262                                    P370ALRM                              
039946,000321: 36,3000           77776                           EXIT                                           
039947,000322: 36,3001           12466                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
039948,000323: 
039949,000324:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
039950,000325: 
039951,000326: 36,3002           45020        RTEVN              STQ      CALL                                  
039952,000327: 36,3003           03763                                    VNSTORE                               
039953,000328: 36,3004           64316                                    RTEDISP                               #  DISPLAY PREPARATION
039954,000329: 36,3005           77776                           EXIT                                           
039955,000330: 36,3006           33250                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
039956,000331: 36,3007           03221                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
039957,000332: 36,3010           35015                           CAF      FOUR                                  
039958,000333: 36,3011           03215                           TCR      37BLANK    +1                         
039959,000334: 36,3012           13017                           TCF      +5                                    
039960,000335: 36,3013           12466                           TCF      P37                                   #  RECYCLE
039961,000336: 36,3014           33251                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
039962,000337: 36,3015           03235                           TCR      P370GOF                               
039963,000338: 36,3016           12466                           TCF      P37                                   #  RECYCLE
039964,000339: 36,3017           33252                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
039965,000340: 36,3020           03211                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI

Page 896

039967,000342: 36,3021           12466                           TCF      P37                                   #  RECYCLE
039968,000343: 36,3022           33253                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
039969,000344: 36,3023           03235                           TCR      P370GOF                               
039970,000345: 36,3024           12466                           TCF      P37                                   #  RECYCLE
039971,000346: 36,3025           06006                           TCR      INTPRET                               
039972,000347: 36,3026           77650                           GOTO                                           
039973,000348: 36,3027           03763                                    VNSTORE                               
039974,000349: 
039975,000350:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039976,000351: 
039977,000352: 36,3030           77624        P37G               CALL                                           
039978,000353: 36,3031           75002                                    RTEVN                                 
039979,000354: 36,3032           77776                           EXIT                                           
039980,000355: 36,3033           35023        P37N               CAF      SEVEN                                 
039981,000356: 36,3034           55131                           TS       OPTION1                               
039982,000357: 36,3035           35017                           CAF      ONE                                   
039983,000358: 36,3036           55132                           TS       OPTION2                               
039984,000359: 36,3037           33247                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
039985,000360: 36,3040           03235                           TCR      P370GOF                               
039986,000361: 36,3041           13037                           TCF      -2                                    #  RECYCLE
039987,000362: 36,3042           06006                           TC       INTPRET                               #  PROCEED
039988,000363: 36,3043           67201                           SETPD    SLOAD                                 
039989,000364: 36,3044           00001                                    00D                                   
039990,000365: 36,3045           01133                                    OPTION2                               
039991,000366: 36,3046           53025                           DSU      BZE                                   
039992,000367: 36,3047           33514                                    1RTEB13                               
039993,000368: 36,3050           75057                                    P37Q                                  
039994,000369: 36,3051           60335                           SLOAD    NORM                                  #  SPS
039995,000370: 36,3052           00111                                    EMDOT                                 
039996,000371: 36,3053           00047                                    X1                                    
039997,000372: 36,3054           52125                           PDDL     GOTO                                  
039998,000373: 36,3055           33552                                    VCSPS                                 
039999,000374: 36,3056           75070                                    P37T                                  
040000,000375: 36,3057           43145        P37Q               DLOAD    BON                                   #  RCS
040001,000376: 36,3060           33556                                    MDOTRCS                               
040002,000377: 36,3061           00700                                    NJETSFLG                              
040003,000378: 36,3062           75064                                    P37R                                  
040004,000379: 36,3063           77752                           SL1                                            
040005,000380: 36,3064           77752        P37R               SL1                                            
040006,000381: 36,3065           65301                           NORM     PDDL                                  
040007,000382: 36,3066           00047                                    X1                                    
040008,000383: 36,3067           33554                                    VCRCS                                 
040009,000384: 36,3070           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2     PL02D
040010,000385: 36,3071           03706                                    DV                                    
040011,000386: 36,3072           77776                           EXIT                                           
040012,000387: 36,3073           07171                           TC       POLY                                  
040013,000388: 36,3074           00001                           DEC      1          B-14                       
040014,000389: 36,3075           00001 05070                     2DEC     5.66240507 E-4        B-3             
040015,000390: 36,3077           17527 36700                     2DEC     9.79487897 E-1        B-1             

Page 897

040017,000392: 36,3101           47114 70670                     2DEC     -.388281955 B1                         
040018,000393: 36,3103           06006                           TC       INTPRET                               
040019,000394: 36,3104           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A             B3      PL04D
040020,000395: 36,3105           03076                                    WEIGHT/G                              
040021,000396: 36,3106           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16   PL00D
040022,000397: 36,3107           41257                           SL*      DMP                                   
040023,000398: 36,3110           20165                                    0          -12D,1                     
040024,000399: 36,3111           33560                                    CSUBT                                 
040025,000400: 36,3112           77621                           BDSU                                           
040026,000401: 36,3113           03716                                    T1                                    
040027,000402: 36,3114           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                 B28
040028,000403: 36,3115           77776                           EXIT                                           
040029,000404: 36,3116           33246                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
040030,000405: 36,3117           03235                           TCR      P370GOF                               
040031,000406: 36,3120           13116                           TCF      -2                                    
040032,000407: 36,3121           35021                           CAF      ZERO                                  
040033,000408: 36,3122           55125                           TS       VHFCNT                                
040034,000409: 36,3123           55126                           TS       TRKMKCNT                              
040035,000410: 36,3124           06006                           TC       INTPRET                               
040036,000411: 36,3125           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
040037,000412: 36,3126           63700                                    RTENCK1                               
040038,000413: 36,3127           53575                           VLOAD    UNIT                                  #                                        PL00D
040039,000414: 36,3130           03656                                    R(T2)/                                
040040,000415: 36,3131           74315                           PDVL     VXSC                                  #  UR2                           B1      PL06D
040041,000416: 36,3132           03740                                    UR1/                                  
040042,000417: 36,3133           33564                                    MCOS7.5                               
040043,000418: 36,3134           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                  B1      PL12D
040044,000419: 36,3135           03746                                    UH/                                   
040045,000420: 36,3136           33566                                    MSIN7.5                               
040046,000421: 36,3137           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2      PL00D
040047,000422: 36,3140           50015                           DAD      BMN                                   
040048,000423: 36,3141           33570                                    MCOS22.5                              
040049,000424: 36,3142           75167                                    P37W                                  
040050,000425: 36,3143           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
040051,000426: 36,3144           03746                                    UH/                                   
040052,000427: 36,3145           03656                                    R(T2)/                                
040053,000428: 36,3146           71240                           BMN      DLOAD                                 
040054,000429: 36,3147           75153                                    P37U                                  
040055,000430: 36,3150           33572                                    THETA165                              
040056,000431: 36,3151           52006                           PUSH     GOTO                                  
040057,000432: 36,3152           75155                                    P37V                                  
040058,000433: 36,3153           41545        P37U               DLOAD    PUSH                                  
040059,000434: 36,3154           33574                                    THETA210                              
040060,000435: 36,3155           77756        P37V               SIN                                            
040061,000436: 36,3156           16732                           STODL    SNTH                                  
040062,000437: 36,3157           43146                           COS      CLEAR                                 
040063,000438: 36,3160           03666                                    RVSW                                  
040064,000439: 36,3161           26734                           STOVL    CSTH                                  
040065,000440: 36,3162           03640                                    R(T1)/                                

Page 898

040067,000442: 36,3163           26657                           STOVL    RVEC                                  
040068,000443: 36,3164           03700                                    V2(T1)/                               
040069,000444: 36,3165           36746                           STCALL   VVEC                                  
040070,000445: 36,3166           24744                                    TIMETHET                              
040071,000446: 36,3167           43014        P37W               CLEAR    CLEAR                                 
040072,000447: 36,3170           01267                                    XDELVFLG                              
040073,000448: 36,3171           03665                                    NORMSW                                
040074,000449: 36,3172           77214                           SET      VLOAD                                 
040075,000450: 36,3173           01071                                    FINALFLG                              
040076,000451: 36,3174           77626                           STADR                                          
040077,000452: 36,3175           60362                           STODL    RTARG                                 
040078,000453: 36,3176           00037                                    T                                     
040079,000454: 36,3177           77615                           DAD                                            
040080,000455: 36,3200           03716                                    T1                                    
040081,000456: 36,3201           27656                           STOVL    TPASS4                                
040082,000457: 36,3202           03700                                    V2(T1)/                               
040083,000458: 36,3203           77651                           VSU                                            
040084,000459: 36,3204           03672                                    V(T1)/                                
040085,000460: 36,3205           37646                           STCALL   DELVSIN                               
040086,000461: 36,3206           73002                                    VN1645                                
040087,000462: 36,3207           77650                           GOTO                                           
040088,000463: 36,3210           75167                                    P37W                                  
040089,000464: 
040090,000465:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
040091,000466: 
040092,000467: 36,3211           00006        P37GFRB1           EXTEND                                         
040093,000468: 36,3212           23762                           QXCH     SPRTEX                                
040094,000469: 36,3213           03221                           TCR      P370GOFR                              
040095,000470: 36,3214           35017        37BLANK            CAF      ONE                                   
040096,000471: 36,3215           05526                           TCR      BLANKET                               
040097,000472: 36,3216           15217                           TCF      ENDOFJOB                              
040098,000473: 36,3217           01762                           TC       SPRTEX                                #  RECYCLE
040099,000474: 36,3220           13244                           TCF      P37PROC                               #  PROCEED
040100,000475: 
040101,000476:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
040102,000477: 
040103,000478: 36,3221           00006        P370GOFR           EXTEND                                         
040104,000479: 36,3222           23733                           QXCH     RTENCKEX                              
040105,000480: 36,3223           04662                           TCR      BANKCALL                              
040106,000481: 36,3224           21057                           CADR     GOFLASHR                              
040107,000482: 36,3225           14106                           TCF      GOTOPOOH                              #  TERMINATE
040108,000483: 36,3226           13231                           TCF      +3                                    
040109,000484: 36,3227           13233                           TCF      +4                                    
040110,000485: 36,3230           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
040111,000486: 36,3231           51733                           INDEX    RTENCKEX                              #  PROCEED
040112,000487: 36,3232           10004                           TCF      0          +4                         
040113,000488: 36,3233           51733                           INDEX    RTENCKEX                              #  RECYCLE
040114,000489: 36,3234           10003                           TCF      0          +3                         
040115,000490: 
040116,000491:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
040117,000492: 

Page 899

040119,000494: 36,3235           00006        P370GOF            EXTEND                                         
040120,000495: 36,3236           23762                           QXCH     SPRTEX                                
040121,000496: 36,3237           04662                           TCR      BANKCALL                              
040122,000497: 36,3240           20720                           CADR     GOFLASH                               
040123,000498: 36,3241           14106                           TCF      GOTOPOOH                              
040124,000499: 36,3242           13244                           TCF      +2                                    
040125,000500: 36,3243           01762                           TC       SPRTEX                                
040126,000501: 36,3244           51762        P37PROC            INDEX    SPRTEX                                
040127,000502: 36,3245           10001                           TCF      0          +1                         
040128,000503: 36,3246           01441        V6N33RTE           VN       0633                                  
040129,000504: 36,3247           01006        V4N06RTE           VN       0406                                  
040130,000505: 36,3250           01475        V6N61RTE           VN       0661                                  
040131,000506: 36,3251           01447        V6N39RTE           VN       0639                                  
040132,000507: 36,3252           01474        V6N60RTE           VN       0660                                  
040133,000508: 36,3253           01521        V6N81RTE           VN       0681                                  
040134,000509: 32,2262                                           BANK     32                                    
040135,000510: 32,2000                                           SETLOC   RTE                                   
040136,000511: 32,2000                                           BANK                                           
040137,000512: 32,2262                                           COUNT    32/RTE                                
040138,000513: 

Page 900

040140,000515:                                                                                                  #  ALARM DISPLAY SUBROUTINE
040141,000516: 
040142,000517: 32,2262           77420        P370ALRM           STQ      EXIT                                  
040143,000518: 32,2263           03762                                    SPRTEX                                
040144,000519: 32,2264           30154                           CA       MPAC                                  
040145,000520: 32,2265           05764                           TC       VARALARM                              
040146,000521: 32,2266           32276                           CAF      V5N09RTE                              
040147,000522: 32,2267           04662                           TC       BANKCALL                              
040148,000523: 32,2270           20720                           CADR     GOFLASH                               
040149,000524: 32,2271           14106                           TCF      GOTOPOOH                              
040150,000525: 32,2272           12266                           TCF      -4                                    
040151,000526: 32,2273           06006                           TC       INTPRET                               
040152,000527: 32,2274           77650                           GOTO                                           
040153,000528: 32,2275           03762                                    SPRTEX                                
040154,000529: 32,2276           01211        V5N09RTE           VN       0509                                  
040155,000530: 

Page 901

040157,000532:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
040158,000533: 
040159,000534:                                                                                                  #  INPUT
040160,000535:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040161,000536:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
040162,000537:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
040163,000538:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES  -2=EARTH              SP      B14
040164,000539: 
040165,000540:                                                                                                  #  OUTPUT
040166,000541:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040167,000542:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040168,000543:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
040169,000544: 
040170,000545: 32,2277           43020        TMRAD100           STQ      CLEAR                                 
040171,000546: 32,2300           03733                                    RTENCKEX                              
040172,000547: 32,2301           03666                                    RVSW                                  
040173,000548: 32,2302           67164                           AXC,2    SXA,2                                 
040174,000549: 32,2303           20000                           OCT      20000                                 
040175,000550: 32,2304           02756                                    SGNRDOT                               
040176,000551: 32,2305           45140                           LXC,1    CALL                                  
040177,000552: 32,2306           03734                                    CONICX1                               
040178,000553: 32,2307           25556                                    TIMERAD                               
040179,000554: 32,2310           27710                           STOVL    V(T2)/                                #                                        PL00D
040180,000555: 32,2311           77626                           STADR                                          
040181,000556: 32,2312           60121                           STODL    R(T2)/                                
040182,000557: 32,2313           00037                                    T                                     
040183,000558: 32,2314           37724                           STCALL   T12                                   
040184,000559: 32,2315           03733                                    RTENCKEX                              
040185,000560: 

Page 902

040187,000562:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
040188,000563: 
040189,000564:                                                                                                  #  DESCRIPTION
040190,000565:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
040191,000566:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
040192,000567: 
040193,000568:                                                                                                  #  CALLING SEQUENCE
040194,000569:                                                                                                  #        L       CALL
040195,000570:                                                                                                  #        L+1             RTEDISP
040196,000571: 
040197,000572:                                                                                                  #  SUBROUTINES CALLED
040198,000573:                                                                                                  #        TMRAD100
040199,000574:                                                                                                  #        AUGEKUGL
040200,000575:                                                                                                  #        LAT-LONG
040201,000576: 
040202,000577:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040203,000578:                                                                                                  #     PUSHLIST
040204,000579:                                                                                                  #        NONE
040205,000580:                                                                                                  #     MPAC
040206,000581:                                                                                                  #        NONE
040207,000582:                                                                                                  #     OTHER
040208,000583:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040209,000584:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040210,000585:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040211,000586:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040212,000587:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
040213,000588:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040214,000589:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040215,000590: 
040216,000591:                                                                                                  #  OUTPUT
040217,000592:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
040218,000593:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
040219,000594:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
040220,000595:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
040221,000596:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
040222,000597:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
040223,000598: 
040224,000599: 32,2316           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
040225,000600: 32,2317           03762                                    SPRTEX                                
040226,000601: 32,2320           03710                                    V(T2)/                                
040227,000602: 32,2321           65256                           UNIT     PDDL                                  
040228,000603: 32,2322           00045                                    36D                                   
040229,000604: 32,2323           17767                           STODL    VPRED                                 #  V(T2)
040230,000605: 32,2324           03736                                    T2                                    
040231,000606: 32,2325           77625                           DSU                                            
040232,000607: 32,2326           03413                                    SPRTETIG                              
040233,000608: 32,2327           26641                           STOVL    T3TOT4                                #  T21
040234,000609: 32,2330           03656                                    R(T2)/                                
040235,000610: 32,2331           50256                           UNIT     DOT                                   
040236,000611: 32,2332           77752                           SL1                                            
040237,000612: 

Page 903

040239,000614: 32,2333           44326                           ARCCOS   BDSU                                  
040240,000615: 32,2334           33502                                    1RTEB2                                
040241,000616: 32,2335           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
040242,000617: 32,2336           03700                                    V2(T1)/                               
040243,000618: 32,2337           41451                           VSU      PUSH                                  
040244,000619: 32,2340           03672                                    V(T1)/                                
040245,000620: 32,2341           57441                           DOT      DCOMP                                 
040246,000621: 32,2342           03740                                    UR1/                                  
040247,000622: 32,2343           41515                           PDVL     PUSH                                  
040248,000623: 32,2344           63345                           DLOAD    PDVL                                  
040249,000624: 32,2345           33524                                    ZERORTE                               
040250,000625: 32,2346           55441                           DOT      VDEF                                  
040251,000626: 32,2347           03746                                    UH/                                   
040252,000627: 32,2350           77772                           VSL1                                           
040253,000628: 32,2351           17405                           STODL    DELVLVC                               
040254,000629: 32,2352           03405                                    DELVLVC                               
040255,000630: 32,2353           57414                           BOFF     DCOMP                                 
040256,000631: 32,2354           02741                                    RETROFLG                              
040257,000632: 32,2355           64357                                    RTD18                                 
040258,000633: 32,2356           03405                           STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
040259,000634: 32,2357           51575        RTD18              VLOAD    ABVAL                                 
040260,000635: 32,2360           03405                                    DELVLVC                               
040261,000636: 32,2361           27773                           STOVL    VGDISP                                
040262,000637: 32,2362           03656                                    R(T2)/                                
040263,000638: 32,2363           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
040264,000639: 32,2364           45246                           ABVAL    DSU                                   
040265,000640: 32,2365           33550                                    30480RTE                              
040266,000641: 32,2366           26760                           STOVL    RDESIRED                              
040267,000642: 32,2367           03710                                    V(T2)/                                
040268,000643: 32,2370           36746                           STCALL   VVEC                                  
040269,000644: 32,2371           64277                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
040270,000645: 32,2372           53575                           VLOAD    UNIT                                  
040271,000646: 32,2373           03656                                    R(T2)/                                
040272,000647: 32,2374           53515                           PDVL     UNIT                                  #  UR3                                   PL06D
040273,000648: 32,2375           03710                                    V(T2)/                                
040274,000649: 32,2376           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)              PL00D
040275,000650: 32,2377           65336                           ARCSIN   PDDL                                  #  V(T3)                                 PL02D
040276,000651: 32,2400           00045                                    36D                                   
040277,000652: 32,2401           51525                           PDDL     ABS                                   
040278,000653: 32,2402           45006                           PUSH     CALL                                  #  /GAMMAE/                              PL04D
040279,000654: 32,2403           64075                                    AUGEKUGL                              #  PHIE                                  PL06D
040280,000655: 32,2404           43215                           DAD      DAD                                   
040281,000656: 32,2405           03724                                    T12                                   #  T23
040282,000657: 32,2406           03736                                    T2                                    
040283,000658: 32,2407           00003                           STORE    02D                                   #  T(LS)=T2&T23&TE
040284,000659: 32,2410           53135                           SLOAD    BZE                                   
040285,000660: 32,2411           03377                                    P37RANGE                              
040286,000661: 32,2412           64414                                    RTD22                                 
040287,000662: 32,2413           00005                           STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
040288,000663: 32,2414           73545        RTD22              DLOAD    SIN                                   
040289,000664: 

Page 904

040291,000666: 32,2415           00005                                    04D                                   
040292,000667: 32,2416           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                    PL04D
040293,000668: 32,2417           77746                           COS                                            
040294,000669: 32,2420           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
040295,000670: 32,2421           53575                           VLOAD    UNIT                                  
040296,000671: 32,2422           03656                                    R(T2)/                                
040297,000672: 32,2423           41406                           PUSH     PUSH                                  
040298,000673: 32,2424           53515                           PDVL     UNIT                                  #                                        PL22D
040299,000674: 32,2425           03710                                    V(T2)/                                
040300,000675: 32,2426           47315                           PDVL     VXV                                   
040301,000676: 32,2427           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)             PL10D
040302,000677: 32,2430           63361                           VXSC     PDVL                                  
040303,000678: 32,2431           03403                                    LNG(SPL)                              
040304,000679: 32,2432           53361                           VXSC     VAD                                   #                                        PL04D
040305,000680: 32,2433           03401                                    LAT(SPL)                              
040306,000681: 32,2434           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
040307,000682: 32,2435           00662                                    ERADFLAG                              
040308,000683: 32,2436           01663                                    LUNAFLAG                              
040309,000684: 32,2437           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)      PL02D
040310,000685: 32,2440           77624                           CALL                                           
040311,000686: 32,2441           26370                                    LAT-LONG                              
040312,000687: 32,2442           77745                           DLOAD                                          
040313,000688: 32,2443           01104                                    LAT                                   
040314,000689: 32,2444           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
040315,000690: 32,2445           01106                                    LONG                                  
040316,000691: 32,2446           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
040317,000692: 32,2447           03762                                    SPRTEX                                
040318,000693: 32,2450                                           COUNT*   $$/RTE                                
040319,000694: 

Page 905

040321,000696:                                                                                                  #  INITIAL VECTOR SUBROUTINE
040322,000697: 
040323,000698:                                                                                                  #  DESCRIPTION
040324,000699:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
040325,000700: 
040326,000701:                                                                                                  #  CALLING SEQUENCE
040327,000702:                                                                                                  #        L       CALL
040328,000703:                                                                                                  #        L+1             INVC100
040329,000704: 
040330,000705:                                                                                                  #  NORMAL EXIT MODE
040331,000706:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040332,000707: 
040333,000708:                                                                                                  #  ALARM EXIT MODE
040334,000709:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
040335,000710: 
040336,000711:                                                                                                  #  SUBROUTINES CALLED
040337,000712:                                                                                                  #        CSMPREC
040338,000713: 
040339,000714:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040340,000715:                                                                                                  #     PUSHLIST
040341,000716:                                                                                                  #        NONE
040342,000717:                                                                                                  #     MPAC
040343,000718:                                                                                                  #        NONE
040344,000719:                                                                                                  #     OTHER
040345,000720:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
040346,000721:                                                                                                  #        CSM STATE VECTOR
040347,000722: 
040348,000723:                                                                                                  #  OUTPUT
040349,000724:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
040350,000725:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
040351,000726:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
040352,000727:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040353,000728:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040354,000729:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040355,000730: 
040356,000731: 32,2450           71220        INVC100            STQ      DLOAD                                 
040357,000732: 32,2451           03762                                    SPRTEX                                
040358,000733: 32,2452           03413                                    SPRTETIG                              
040359,000734: 32,2453           34041                           STCALL   TDEC1                                 
040360,000735: 32,2454           27071                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
040361,000736: 32,2455           67175                           VLOAD    SXA,2                                 
040362,000737: 32,2456           00001                                    RATT                                  
040363,000738: 32,2457           03755                                    P(T1)                                 
040364,000739: 32,2460           27640                           STOVL    R(T1)/                                
040365,000740: 32,2461           00007                                    VATT                                  
040366,000741: 32,2462           17672                           STODL    V(T1)/                                
040367,000742: 32,2463           00015                                    TAT                                   
040368,000743: 32,2464           03716                           STORE    T1                                    
040369,000744: 32,2465           53135                           SLOAD    BZE                                   
040370,000745: 32,2466           03756                                    P(T1)                                 

Page 906

040372,000747: 32,2467           64473                                    INVC109                               
040373,000748: 32,2470           52135        INVC107            SLOAD    GOTO                                  
040374,000749: 32,2471           33563                                    OCT612                                
040375,000750: 32,2472           74776                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
040376,000751: 32,2473           53575        INVC109            VLOAD    UNIT                                  
040377,000752: 32,2474           03640                                    R(T1)/                                
040378,000753: 32,2475           17740                           STODL    UR1/                                  #  UR1/                                  B1
040379,000754: 32,2476           00045                                    36D                                   
040380,000755: 32,2477           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
040381,000756: 32,2500           03672                                    V(T1)/                                
040382,000757: 32,2501           77656                           UNIT                                           
040383,000758: 32,2502           03746                           STORE    UV1/                                  
040384,000759: 32,2503           72441                           DOT      SL1                                   
040385,000760: 32,2504           03740                                    UR1/                                  
040386,000761: 32,2505           03757                           STORE    CFPA                                  #  CFPA                                  B1
040387,000762: 32,2506           45246                           ABS      DSU                                   
040388,000763: 32,2507           33576                                    EPC1RTE                               
040389,000764: 32,2510           71240                           BMN      DLOAD                                 
040390,000765: 32,2511           64520                                    INVC115                               #  NOT NEAR RECTILINEAR
040391,000766: 32,2512           33502                                    1RTEB2                                
040392,000767: 32,2513           41525                           PDDL     PUSH                                  
040393,000768: 32,2514           33524                                    ZERORTE                               
040394,000769: 32,2515           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
040395,000770: 32,2516           77650                           GOTO                                           
040396,000771: 32,2517           64524                                    INVC120                               
040397,000772: 32,2520           47375        INVC115            VLOAD    VXV                                   
040398,000773: 32,2521           03740                                    UR1/                                  
040399,000774: 32,2522           03746                                    UV1/                                  
040400,000775: 32,2523           77606                           PUSH                                           #  N/ = UR X UV                          B2
040401,000776: 32,2524           71214        INVC120            CLEAR    DLOAD                                 
040402,000777: 32,2525           02661                                    RETROFLG                              
040403,000778: 32,2526           51006                           PUSH     BPL                                   
040404,000779: 32,2527           64533                                    INVC125                               
040405,000780: 32,2530           57575                           VLOAD    VCOMP                                 #  RETROGRADE ORBIT
040406,000781: 32,2531           43006                           PUSH     SET                                   
040407,000782: 32,2532           02461                                    RETROFLG                              
040408,000783: 32,2533           77775        INVC125            VLOAD                                          
040409,000784: 32,2534           53435                           VXV      UNIT                                  
040410,000785: 32,2535           03740                                    UR1/                                  
040411,000786: 32,2536           03746                           STORE    UH/                                   #  UH/                                   B1
040412,000787: 32,2537           77650                           GOTO                                           
040413,000788: 32,2540           03762                                    SPRTEX                                
040414,000789: 

Page 907

040416,000791:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040417,000792: 
040418,000793:                                                                                                  #  DESCRIPTION
040419,000794:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040420,000795:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040421,000796:                                                                                                  #        AS POSSIBLE.
040422,000797: 
040423,000798:                                                                                                  #  CALLING SEQUENCE
040424,000799:                                                                                                  #        L       CALL
040425,000800:                                                                                                  #        L+1             PREC100
040426,000801: 
040427,000802:                                                                                                  #  NORMAL EXIT MODE
040428,000803:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040429,000804: 
040430,000805:                                                                                                  #  ALARM EXIT MODE
040431,000806:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
040432,000807:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
040433,000808:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
040434,000809: 
040435,000810:                                                                                                  #  SUBROUTINES CALLED
040436,000811:                                                                                                  #        INTSTALL
040437,000812:                                                                                                  #        RTENCK2
040438,000813:                                                                                                  #        RTENCK3
040439,000814:                                                                                                  #        TIMERAD
040440,000815:                                                                                                  #        PARAM
040441,000816:                                                                                                  #        V2T100
040442,000817: 
040443,000818:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040444,000819:                                                                                                  #     PUSHLIST
040445,000820:                                                                                                  #        NONE
040446,000821:                                                                                                  #     MPAC
040447,000822:                                                                                                  #        NONE
040448,000823:                                                                                                  #     OTHER
040449,000824:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
040450,000825:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040451,000826:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040452,000827:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040453,000828:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
040454,000829:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
040455,000830:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040456,000831:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040457,000832:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
040458,000833:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040459,000834:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040460,000835:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040461,000836:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040462,000837:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040463,000838:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
040464,000839:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
040465,000840: 

Page 908

040467,000842: 
040468,000843:                                                                                                  #  OUTPUT
040469,000844:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040470,000845:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040471,000846:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040472,000847:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
040473,000848: 
040474,000849:                                                                                                  #  DEBRIS
040475,000850:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
040476,000851:                                                                                                  #        R/APRE          R/A                                                     DP      B6
040477,000852:                                                                                                  #        P/RPRE          P/R                                                     DP      B4
040478,000853:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
040479,000854:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
040480,000855:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
040481,000856:                                                                                                  #        RCON            FINAL RADIUS                                            DP      B29/B27 METERS
040482,000857:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
040483,000858: 
040484,000859: 32,2541           71220        PREC100            STQ      DLOAD                                 
040485,000860: 32,2542           03762                                    SPRTEX                                
040486,000861: 32,2543           33532                                    10RTE                                 
040487,000862: 32,2544           17730                           STODL    NN1A                                  
040488,000863: 32,2545           03636                                    RCON                                  
040489,000864: 32,2546           03664                           STORE    RD                                    
040490,000865: 32,2547           77745        PREC120            DLOAD                                          
040491,000866: 32,2550           33542                                    2RTEB1                                
040492,000867: 32,2551           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
040493,000868: 32,2552           33530                                    M15RTE                                
040494,000869: 32,2553           37732                           STCALL   NN2                                   
040495,000870: 32,2554           63726                                    RTENCK3                               
040496,000871: 32,2555           77624        PREC125            CALL                                           
040497,000872: 32,2556           11637                                    PARAM                                 
040498,000873: 32,2557           77745                           DLOAD                                          
040499,000874: 32,2560           02742                                    P                                     
040500,000875: 32,2561           14033                           STODL    P/RPRE                                
040501,000876: 32,2562           02744                                    R1A                                   
040502,000877: 32,2563           14035                           STODL    R/APRE                                
040503,000878: 32,2564           00041                                    R1                                    
040504,000879: 32,2565           14031                           STODL    RPRE                                  
040505,000880: 32,2566           03775                                    COGA                                  
040506,000881: 32,2567           77661                           SL                                             
040507,000882: 32,2570           20206                                    5                                     
040508,000883: 32,2571           03724                           STORE    X(T2)PRE                              
040509,000884: 32,2572           43276                           DCOMP    DAD                                   
040510,000885: 32,2573           03726                                    X(T2)                                 
040511,000886: 32,2574           45246                           ABS      DSU                                   
040512,000887: 32,2575           33604                                    EPC4RTE                               
040513,000888: 32,2576           50000                           BOV      BMN                                   
040514,000889: 32,2577           64601                                    PREC130                               
040515,000890: 32,2600           64770                                    PREC175                               
040516,000891: 
040517,000892:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED
040518,000893: 

Page 909

040520,000895: 32,2601           50145        PREC130            DLOAD    BMN                                   
040521,000896: 32,2602           03732                                    NN2                                   
040522,000897: 32,2603           64607                                    PREC140                               
040523,000898: 32,2604           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
040524,000899: 32,2605           33562                                    OCT605                                #        EXIT WITH ALARM
040525,000900: 32,2606           65073                                    PRECX                                 
040526,000901: 
040527,000902:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040528,000903: 
040529,000904: 32,2607           53145        PREC140            DLOAD    BZE                                   
040530,000905: 32,2610           03730                                    NN1A                                  
040531,000906: 32,2611           64647                                    PREC162                               
040532,000907: 32,2612           62545        PREC150            DLOAD    SL2                                   #                                B2
040533,000908: 32,2613           00033                                    P/RPRE                                
040534,000909: 32,2614           72405                           DMP      SL1                                   #  BETA2=BETA1*P/R               B2      PL02
040535,000910: 32,2615           03754                                    BETA1                                 
040536,000911: 32,2616           71206                           PUSH     DLOAD                                 
040537,000912: 32,2617           00035                                    R/APRE                                
040538,000913: 32,2620           41212                           SL4      DMP                                   
040539,000914: 32,2621           00001                                    00D                                   
040540,000915: 32,2622           50021                           BDSU     BMN                                   #  BETA3=1-BETA2*R/A
040541,000916: 32,2623           33506                                    1RTEB4                                
040542,000917: 32,2624           64637                                    PREC160                               
040543,000918: 32,2625           75512        PREC155            SL2      SQRT                                  
040544,000919: 32,2626           44205                           DMP      BDSU                                  
040545,000920: 32,2627           03761                                    PHI2                                  
040546,000921: 32,2630           33504                                    1RTEB3                                
040547,000922: 32,2631           65301                           NORM     PDDL                                  
040548,000923: 32,2632           00047                                    X1                                    
040549,000924: 32,2633           56342                           SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040550,000925: 32,2634           52057                           SL*      GOTO                                  #                                B1
040551,000926: 32,2635           20200                                    0          -1,1                       
040552,000927: 32,2636           64655                                    PREC165                               
040553,000928: 32,2637           60345        PREC160            DLOAD    NORM                                  
040554,000929: 32,2640           00035                                    R/APRE                                
040555,000930: 32,2641           00047                                    X1                                    
040556,000931: 32,2642           53665                           BDDV     SL*                                   #                                B1
040557,000932: 32,2643           33500                                    1RTEB1                                
040558,000933: 32,2644           20173                                    0          -6,1                       
040559,000934: 32,2645           77650                           GOTO                                           
040560,000935: 32,2646           64655                                    PREC165                               
040561,000936: 32,2647           60345        PREC162            DLOAD    NORM                                  
040562,000937: 32,2650           00031                                    RPRE                                  
040563,000938: 32,2651           00047                                    X1                                    
040564,000939: 32,2652           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
040565,000940: 32,2653           03664                                    RD                                    
040566,000941: 32,2654           20200                                    0          -1,1                       
040567,000942: 32,2655           41401        PREC165            SETPD    PUSH                                  
040568,000943: 32,2656           00001                                    0                                     
040569,000944: 32,2657           57425                           DSU      DCOMP                                 

Page 910

040571,000946: 32,2660           33500                                    1RTEB1                                
040572,000947: 32,2661           03765                           STORE    BETA12                                
040573,000948: 32,2662           71240                           BMN      DLOAD                                 
040574,000949: 32,2663           64674                                    PREC168                               
040575,000950: 32,2664           03724                                    X(T2)PRE                              
040576,000951: 32,2665           71240                           BMN      DLOAD                                 
040577,000952: 32,2666           64672                                    PREC167                               
040578,000953: 32,2667           03765                                    BETA12                                
040579,000954: 32,2670           77676                           DCOMP                                          
040580,000955: 32,2671           03765                           STORE    BETA12                                
040581,000956: 32,2672           77745        PREC167            DLOAD                                          
040582,000957: 32,2673           03765                                    BETA12                                
040583,000958: 32,2674           45246        PREC168            ABS      DSU                                   
040584,000959: 32,2675           33610                                    EPC6RTE                               
040585,000960: 32,2676           71240                           BMN      DLOAD                                 
040586,000961: 32,2677           64770                                    PREC175                               
040587,000962: 32,2700           72405                           DMP      SL1                                   
040588,000963: 32,2701           00031                                    RPRE                                  
040589,000964: 32,2702           77606                           PUSH                                           #  RF = NEW RADIUS
040590,000965: 32,2703           43345        PREC170            DLOAD    DAD                                   
040591,000966: 32,2704           03732                                    NN2                                   
040592,000967: 32,2705           33522                                    1RTEB28                               
040593,000968: 32,2706           03732                           STORE    NN2                                   
040594,000969: 32,2707           43175                           VLOAD    SET                                   
040595,000970: 32,2710           03656                                    R(T2)/                                
040596,000971: 32,2711           03466                                    RVSW                                  
040597,000972: 32,2712           26657                           STOVL    RVEC                                  
040598,000973: 32,2713           03710                                    V(T2)/                                
040599,000974: 32,2714           77765                           SIGN                                           
040600,000975: 32,2715           03765                                    BETA12                                
040601,000976: 32,2716           16746                           STODL    VVEC                                  
040602,000977: 32,2717           33500                                    1RTEB1                                
040603,000978: 32,2720           57565                           SIGN     DCOMP                                 
040604,000979: 32,2721           03765                                    BETA12                                
040605,000980: 32,2722           71354                           LXA,2    DLOAD                                 
040606,000981: 32,2723           00154                                    MPAC                                  
040607,000982: 32,2724           67140                           LXC,1    SXA,2                                 
040608,000983: 32,2725           03734                                    CONICX1                               
040609,000984: 32,2726           02756                                    SGNRDOT                               
040610,000985: 32,2727           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
040611,000986: 32,2730           25556                                    TIMERAD                               #        NEW RADIUS)
040612,000987: 32,2731           75345                           DLOAD    SIGN                                  
040613,000988: 32,2732           00037                                    T                                     
040614,000989: 32,2733           03765                                    BETA12                                
040615,000990: 32,2734           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                       PL02D
040616,000991: 32,2735           03650                                    DT21PR                                
040617,000992: 32,2736           00047                                    X1                                    
040618,000993: 32,2737           53665                           BDDV     SL*                                   
040619,000994: 32,2740           00001                                    00D                                   
040620,000995: 32,2741           20176                                    0          -3,1                       

Page 911

040622,000997: 32,2742           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        B3      PL04D
040623,000998: 32,2743           64750                                    PREC172                               
040624,000999: 32,2744           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0      PL04D
040625,001000: 32,2745           33542                                    2RTEB1                                
040626,001001: 32,2746           77650                           GOTO                                           
040627,001002: 32,2747           64752                                    PREC173                               
040628,001003: 32,2750           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0      PL04D
040629,001004: 32,2751           33534                                    M.6RTE                                
040630,001005: 32,2752           45271        PREC173            DDV      DSU                                   
040631,001006: 32,2753           00003                                    02D                                   
040632,001007: 32,2754           33504                                    1RTEB3                                
040633,001008: 32,2755           71240                           BMN      DLOAD                                 
040634,001009: 32,2756           64762                                    PREC174                               
040635,001010: 32,2757           77605                           DMP                                            
040636,001011: 32,2760           03650                                    DT21PR                                
040637,001012: 32,2761           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
040638,001013: 32,2762           41545        PREC174            DLOAD    PUSH                                  
040639,001014: 32,2763           00001                                    00D                                   
040640,001015: 32,2764           37650                           STCALL   DT21PR                                
040641,001016: 32,2765           63710                                    RTENCK2                               
040642,001017: 32,2766           77650                           GOTO                                           
040643,001018: 32,2767           64555                                    PREC125                               
040644,001019: 32,2770           45345        PREC175            DLOAD    DSU                                   
040645,001020: 32,2771           00031                                    RPRE                                  
040646,001021: 32,2772           03664                                    RD                                    
040647,001022: 32,2773           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
040648,001023: 32,2774           50025                           DSU      BMN                                   
040649,001024: 32,2775           33612                                    EPC7RTE                               
040650,001025: 32,2776           34703                                    PREC220                               
040651,001026: 
040652,001027:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
040653,001028: 
040654,001029: 32,2777           53145                           DLOAD    BZE                                   
040655,001030: 32,3000           03730                                    NN1A                                  
040656,001031: 32,3001           64604                                    PREC132                               #  TOO MANY ITERATIONS
040657,001032: 32,3002           53025                           DSU      BZE                                   
040658,001033: 32,3003           33532                                    10RTE                                 
040659,001034: 32,3004           65037                                    PREC207                               
040660,001035: 32,3005           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
040661,001036: 32,3006           03670                                    RPRE'                                 
040662,001037: 32,3007           00031                                    RPRE                                  #  RPRE,-RPRE                    B29/B27
040663,001038: 32,3010           55301                           NORM     BDDV                                  
040664,001039: 32,3011           00050                                    X2                                    
040665,001040: 32,3012           03666                                    DRCON                                 
040666,001041: 32,3013           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S          B2
040667,001042: 32,3014           57600                                    0          -2,2                       
040668,001043: 32,3015           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
040669,001044: 32,3016           33500                                    1RTEB1                                
040670,001045: 32,3017           65024                                    PREC205M                              
040671,001046: 32,3020           45246                           ABS      DSU                                   

Page 912

040673,001048: 32,3021           33500                                    1RTEB1                                
040674,001049: 32,3022           77640                           BMN                                            
040675,001050: 32,3023           65027                                    PREC206                               
040676,001051: 32,3024           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
040677,001052: 32,3025           33542                                    2RTEB1                                
040678,001053: 32,3026           77725                           PDDL                                           #  S=-4                          B2
040679,001054: 32,3027           41345        PREC206            DLOAD    DMP                                   
040680,001055: 32,3030           77712                           SL2                                            
040681,001056: 32,3031           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
040682,001057: 32,3032           77615                           DAD                                            
040683,001058: 32,3033           03636                                    RCON                                  
040684,001059: 32,3034           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
040685,001060: 32,3035           77650                           GOTO                                           
040686,001061: 32,3036           65056                                    PREC210                               
040687,001062: 32,3037           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
040688,001063: 32,3040           03664                                    RD                                    
040689,001064: 32,3041           70501                           NORM     SR1                                   
040690,001065: 32,3042           00047                                    X1                                    
040691,001066: 32,3043           60325                           PDDL     NORM                                  
040692,001067: 32,3044           00031                                    RPRE                                  
040693,001068: 32,3045           00050                                    X2                                    
040694,001069: 32,3046           55260                           XSU,1    BDDV                                  
040695,001070: 32,3047           00047                                    X2                                    
040696,001071: 32,3050           77657                           SR*                                            
040697,001072: 32,3051           20600                                    0          -1,1                       
040698,001073: 32,3052           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
040699,001074: 32,3053           77625                           DSU                                            
040700,001075: 32,3054           03664                                    RD                                    
040701,001076: 32,3055           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
040702,001077: 32,3056           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
040703,001078: 32,3057           00031                                    RPRE                                  
040704,001079: 32,3060           17670                           STODL    RPRE'                                 
040705,001080: 32,3061           03730                                    NN1A                                  
040706,001081: 32,3062           77625                           DSU                                            
040707,001082: 32,3063           33522                                    1RTEB28                               
040708,001083: 32,3064           37730                           STCALL   NN1A                                  
040709,001084: 32,3065           65075                                    V2T100                                
040710,001085: 32,3066           52030                           BHIZ     GOTO                                  
040711,001086: 32,3067           64547                                    PREC120                               
040712,001087: 32,3070           65073                                    PRECX                                 
040713,001088: 
040714,001089:                                                                                                  #  DESIRED RADIUS ACHIEVED
040715,001090: 
040716,001091: 16,2000                                           SETLOC   RTE2                                  
040717,001092: 16,2000                                           BANK                                           
040718,001093: 16,2703           45345        PREC220            DLOAD    DSU                                   
040719,001094: 16,2704           03726                                    X(T2)                                 
040720,001095: 16,2705           03724                                    X(T2)PRE                              
040721,001096: 16,2706           45246                           ABS      DSU                                   
040722,001097: 16,2707           34716                                    EPC8RTE                               

Page 913

040724,001099: 16,2710           67240                           BMN      SLOAD                                 
040725,001100: 16,2711           65071                                    PREC225                               
040726,001101: 16,2712           34720                                    OCT613                                
040727,001102: 16,2713           77650                           GOTO                                           
040728,001103: 16,2714           65073                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040729,001104: 
040730,001105: 16,2715           00040 30447  EPC8RTE            2DEC     .002                                  
040731,001106: 
040732,001107: 16,2717           00613        OCT613             OCT      613                                   
040733,001108: 
040734,001109:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
040735,001110: 
040736,001111: 32,2000                                           SETLOC   RTE                                   
040737,001112: 32,2000                                           BANK                                           
040738,001113: 32,3071           77745        PREC225            DLOAD                                          
040739,001114: 32,3072           33524                                    ZERORTE                               
040740,001115: 32,3073           77650        PRECX              GOTO                                           
040741,001116: 32,3074           03762                                    SPRTEX                                
040742,001117: 

Page 914

040744,001119:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
040745,001120: 
040746,001121:                                                                                                  #  DESCRIPTION
040747,001122:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
040748,001123:                                                                                                  #        RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
040749,001124:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040750,001125: 
040751,001126:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
040752,001127: 
040753,001128:                                                                                                  #     CALLING SEQUENCE
040754,001129:                                                                                                  #        L       CALL
040755,001130:                                                                                                  #        L+1             RTENCK1
040756,001131: 
040757,001132:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040758,001133:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
040759,001134: 
040760,001135:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
040761,001136: 
040762,001137:                                                                                                  #     CALLING SEQUENCE
040763,001138:                                                                                                  #        L       CALL
040764,001139:                                                                                                  #        L+1             RTENCK2
040765,001140: 
040766,001141:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040767,001142:                                                                                                  #        PUSHLIST
040768,001143:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
040769,001144:                                                                                                  #        OTHER
040770,001145:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR .B29     METERS
040771,001146:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040772,001147:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
040773,001148: 
040774,001149:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
040775,001150: 
040776,001151:                                                                                                  #     CALLING SEQUENCE
040777,001152:                                                                                                  #        L       CALL
040778,001153:                                                                                                  #        L+1             RTENCK3
040779,001154: 
040780,001155:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
040781,001156:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040782,001157:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
040783,001158:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
040784,001159:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040785,001160: 
040786,001161:                                                                                                  #  EXIT MODE
040787,001162:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
040788,001163: 
040789,001164:                                                                                                  #  SUBROUTINES CALLED
040790,001165:                                                                                                  #        INTSTALL
040791,001166:                                                                                                  #        INTEGRVS
040792,001167: 
040793,001168:                                                                                                  #  OUTPUT
040794,001169:                                                                                                  #     PUSHLIST

Page 915

040796,001171:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
040797,001172:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
040798,001173:                                                                                                  #     MPAC
040799,001174:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
040800,001175:                                                                                                  #     OTHER
040801,001176:                                                                                                  #        R(T2)/          AS IN PUSHLIST
040802,001177:                                                                                                  #        V(T2)/          AS IN MPAC
040803,001178:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
040804,001179: 
040805,001180: 31,2000                                           SETLOC   RTE3                                  
040806,001181: 31,2000                                           BANK                                           
040807,001182: 31,3700           45020        RTENCK1            STQ      CALL                                  
040808,001183: 31,3701           03733                                    RTENCKEX                              
040809,001184: 31,3702           27442                                    INTSTALL                              
040810,001185: 31,3703           43175                           VLOAD    SET                                   
040811,001186: 31,3704           03640                                    R(T1)/                                
040812,001187: 31,3705           01473                                    INTYPFLG                              
040813,001188: 31,3706           77650                           GOTO                                           
040814,001189: 31,3707           63734                                    RTENCK3B                              
040815,001190: 
040816,001191: 31,3710           45020        RTENCK2            STQ      CALL                                  
040817,001192: 31,3711           03733                                    RTENCKEX                              
040818,001193: 31,3712           27442                                    INTSTALL                              
040819,001194: 31,3713           77214                           CLEAR    VLOAD                                 
040820,001195: 31,3714           01673                                    INTYPFLG                              
040821,001196: 31,3715           03656                                    R(T2)/                                
040822,001197: 31,3716           25535                           STOVL    RCV                                   
040823,001198: 31,3717           03710                                    V(T2)/                                
040824,001199: 31,3720           15543                           STODL    VCV                                   
040825,001200: 31,3721           03736                                    T2                                    
040826,001201: 31,3722           01517                           STORE    TET                                   
040827,001202: 31,3723           77615                           DAD                                            
040828,001203: 31,3724           77650                           GOTO                                           
040829,001204: 31,3725           63742                                    RTENCK3D                              
040830,001205: 
040831,001206: 31,3726           45020        RTENCK3            STQ      CALL                                  
040832,001207: 31,3727           03733                                    RTENCKEX                              
040833,001208: 31,3730           27442                                    INTSTALL                              
040834,001209: 31,3731           43175        RTENCK3A           VLOAD    CLEAR                                 
040835,001210: 31,3732           03640                                    R(T1)/                                
040836,001211: 31,3733           01673                                    INTYPFLG                              
040837,001212: 31,3734           25535        RTENCK3B           STOVL    RCV                                   
040838,001213: 31,3735           03700                                    V2(T1)/                               
040839,001214: 31,3736           15543                           STODL    VCV                                   
040840,001215: 31,3737           03716                                    T1                                    
040841,001216: 31,3740           15517                           STODL    TET                                   
040842,001217: 31,3741           03736                                    T2                                    

Page 916

040844,001219: 31,3742           00041        RTENCK3D           STORE    TDEC1                                 
040845,001220: 31,3743           45014                           CLEAR    CALL                                  
040846,001221: 31,3744           00263                                    MOONFLAG                              
040847,001222: 31,3745           27135                                    INTEGRVS                              
040848,001223: 31,3746           77775                           VLOAD                                          
040849,001224: 31,3747           00001                                    RATT                                  
040850,001225: 31,3750           03656                           STORE    R(T2)/                                
040851,001226: 31,3751           70125                           PDDL     LXC,1                                 
040852,001227: 31,3752           00015                                    TAT                                   
040853,001228: 31,3753           03734                                    CONICX1                               
040854,001229: 31,3754           27736                           STOVL    T2                                    
040855,001230: 31,3755           00007                                    VATT                                  
040856,001231: 31,3756           03710                           STORE    V(T2)/                                
040857,001232: 31,3757           77650                           GOTO                                           
040858,001233: 31,3760           03733                                    RTENCKEX                              
040859,001234: 32,2000                                           SETLOC   RTE                                   
040860,001235: 32,2000                                           BANK                                           
040861,001236: 

Page 917

040863,001238:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
040864,001239: 
040865,001240:                                                                                                  #  DESCRIPTION
040866,001241:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040867,001242:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
040868,001243:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040869,001244:                                                                                                  #                AND CONSEQUENTLY FUEL.
040870,001245: 
040871,001246:                                                                                                  #  CALLING SEQUENCE
040872,001247:                                                                                                  #        L       CALL
040873,001248:                                                                                                  #        L+1             V2T100
040874,001249: 
040875,001250:                                                                                                  #  NORMAL EXIT MODE
040876,001251:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040877,001252: 
040878,001253:                                                                                                  #  ALARM EXIT MODE
040879,001254:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040880,001255: 
040881,001256:                                                                                                  #  SUBROUTINES CALLED
040882,001257:                                                                                                  #        GAMDV10
040883,001258:                                                                                                  #        XT1LIM
040884,001259:                                                                                                  #        DVCALC
040885,001260: 
040886,001261:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040887,001262:                                                                                                  #     PUSHLIST
040888,001263:                                                                                                  #        NONE
040889,001264:                                                                                                  #     MPAC
040890,001265:                                                                                                  #        NONE
040891,001266:                                                                                                  #     OTHER
040892,001267:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040893,001268:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
040894,001269:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040895,001270:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040896,001271:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
040897,001272:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040898,001273:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040899,001274:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
040900,001275:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040901,001276:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040902,001277:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040903,001278:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
040904,001279:                                                                                                  #        N1              CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC,PLUS PREC
040905,001280: 
040906,001281:                                                                                                  #  OUTPUT
040907,001282:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040908,001283:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040909,001284:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
040910,001285:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040911,001286:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
040912,001287: 

Page 918

040914,001289: 
040915,001290:                                                                                                  #  DEBRIS
040916,001291:                                                                                                  #     PUSHLIST
040917,001292:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
040918,001293:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
040919,001294:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040920,001295:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040921,001296:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040922,001297:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
040923,001298:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040924,001299:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
040925,001300:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
040926,001301:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
040927,001302:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
040928,001303: 
040929,001304: 32,3075           71220        V2T100             STQ      DLOAD                                 
040930,001305: 32,3076           00041                                    33D                                   
040931,001306: 32,3077           03636                                    RCON                                  
040932,001307: 32,3100           45240                           BMN      DSU                                   #  ABORT IF RCON NEGATIVE
040933,001308: 32,3101           65105                                    V2TERROR                              
040934,001309: 32,3102           03646                                    R(T1)                                 
040935,001310: 32,3103           77640                           BMN                                            
040936,001311: 32,3104           65110                                    V2T101                                
040937,001312: 32,3105           77776        V2TERROR           EXIT                                           #        OR IF LAMBDA LESS THAN ONE
040938,001313: 32,3106           05721                           TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1
040939,001314: 32,3107           00610                           OCT      00610                                 
040940,001315: 32,3110           43001        V2T101             SETPD    CLEAR                                 
040941,001316: 32,3111           00001                                    0                                     #                                        PL00D
040942,001317: 32,3112           00272                                    F2RTE                                 
040943,001318: 32,3113           60345                           DLOAD    NORM                                  
040944,001319: 32,3114           03636                                    RCON                                  
040945,001320: 32,3115           00047                                    X1                                    
040946,001321: 32,3116           60325                           PDDL     NORM                                  
040947,001322: 32,3117           03646                                    R(T1)                                 
040948,001323: 32,3120           00051                                    S1                                    
040949,001324: 32,3121           00013                           STORE    10D                                   
040950,001325: 32,3122           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
040951,001326: 32,3123           65260                           XSU,1    PDDL                                  #                                        PL02D
040952,001327: 32,3124           00050                                    S1                                    
040953,001328: 32,3125           03726                                    X(T2)                                 
040954,001329: 32,3126           77716                           DSQ                                            
040955,001330: 32,3127           43342                           SR1      DAD                                   
040956,001331: 32,3130           33500                                    1RTEB1                                
040957,001332: 32,3131           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
040958,001333: 32,3132           77605                           DMP                                            
040959,001334: 32,3133           00001                                    00D                                   
040960,001335: 32,3134           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
040961,001336: 32,3135           53605                           DMP      SL*                                   
040962,001337: 32,3136           00001                                    00D                                   
040963,001338: 32,3137           20172                                    0          -7,1                       
040964,001339: 32,3140           45257                           SL*      DSU                                   

Page 919

040966,001341: 32,3141           20172                                    0          -7,1                       
040967,001342: 32,3142           33516                                    1RTEB17                               
040968,001343: 32,3143           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17     PL05D
040969,001344: 32,3144           45565                                    TPMODE                                
040970,001345: 32,3145           33500                                    1RTEB1                                
040971,001346: 32,3146           57457                           SR*      DCOMP                                 
040972,001347: 32,3147           20601                                    0,1                                   
040973,001348: 32,3150           41215                           DAD      DMP                                   
040974,001349: 32,3151           00001                                    00D                                   
040975,001350: 32,3152           03646                                    R(T1)                                 
040976,001351: 32,3153           47057                           SL*      RTB                                   
040977,001352: 32,3154           20172                                    0          -7D,1                      
040978,001353: 32,3155           45565                                    TPMODE                                
040979,001354: 32,3156           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
040980,001355: 32,3157           33632                                    RTMURTE                               
040981,001356: 32,3160           70501                           NORM     SR1                                   
040982,001357: 32,3161           00050                                    X2                                    
040983,001358: 32,3162           56264                           XSU,2    DDV                                   
040984,001359: 32,3163           00050                                    S1                                    
040985,001360: 32,3164           00013                                    10D                                   
040986,001361: 32,3165           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
040987,001362: 32,3166           57170                                    6,2                                   
040988,001363: 32,3167           03652                                    MAMAX1                                
040989,001364: 32,3170           41406                           PUSH     PUSH                                  #  MAMAX1=MA
040990,001365: 32,3171           77624                           CALL                                           
040991,001366: 32,3172           65734                                    XT1LIM                                
040992,001367: 32,3173           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5      PL12D
040993,001368: 32,3174           40476                           DCOMP    SR4                                   
040994,001369: 32,3175           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5      PL14D
040995,001370: 32,3176           03654                                    MAMAX2                                
040996,001371: 32,3177           45006                           PUSH     CALL                                  
040997,001372: 32,3200           65734                                    XT1LIM                                
040998,001373: 32,3201           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5      PL16D
040999,001374: 32,3202           03730                                    NN1A                                  
041000,001375: 32,3203           65206                                    V2T102                                
041001,001376: 32,3204           77650                           GOTO                                           
041002,001377: 32,3205           65220                                    V2T110                                
041003,001378: 
041004,001379:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
041005,001380: 
041006,001381: 32,3206           77745        V2T102             DLOAD                                          
041007,001382: 32,3207           03632                                    RTEDVD                                
041008,001383: 32,3210           52054                           BZE      GOTO                                  
041009,001384: 32,3211           65213                                    V2T105                                
041010,001385: 32,3212           65314                                    V2T140                                
041011,001386: 32,3213           50145        V2T105             DLOAD    BMN                                   
041012,001387: 32,3214           03757                                    CFPA                                  
041013,001388: 32,3215           65314                                    V2T140                                
041014,001389: 32,3216           77650                           GOTO                                           
041015,001390: 32,3217           65322                                    V2T145                                

Page 920

041017,001392:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
041018,001393:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
041019,001394:                                                                                                  #  THROUGH X(T2)
041020,001395: 
041021,001396: 32,3220           47145        V2T110             DLOAD    RTB                                   
041022,001397: 32,3221           33516                                    1RTEB17                               
041023,001398: 32,3222           45565                                    TPMODE                                
041024,001399: 32,3223           65276                           DCOMP    PDDL                                  #  -1                            B17     PL19D
041025,001400: 32,3224           33542                                    2RTEB1                                
041026,001401: 32,3225           45257                           SR*      DSU                                   
041027,001402: 32,3226           20601                                    0,1                                   
041028,001403: 32,3227           00001                                    00D                                   
041029,001404: 32,3230           53605                           DMP      SL*                                   
041030,001405: 32,3231           00035                                    28D                                   
041031,001406: 32,3232           20172                                    0          -7,1                       
041032,001407: 32,3233           76257                           SL*      TAD                                   
041033,001408: 32,3234           20172                                    0          -7,1                       
041034,001409: 32,3235           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17     PL19D
041035,001410: 32,3236           45565                                    TPMODE                                
041036,001411: 32,3237           03722                                    X(T1)                                 
041037,001412: 32,3240           00001                           STORE    00D                                   #  X(T1),,                       B5
041038,001413: 32,3241           77751                           TLOAD                                          #                                        PL16D
041039,001414: 32,3242           53040                           BMN      BZE                                   
041040,001415: 32,3243           65250                                    V2T115                                
041041,001416: 32,3244           65250                                    V2T115                                
041042,001417: 32,3245           52061                           SL       GOTO                                  
041043,001418: 32,3246           20210                                    7                                     
041044,001419: 32,3247           65261                                    V2T120                                
041045,001420: 32,3250           50145        V2T115             DLOAD    BMN                                   
041046,001421: 32,3251           03761                                    PHI2                                  
041047,001422: 32,3252           65272                                    V2T125                                
041048,001423: 32,3253           77676                           DCOMP                                          
041049,001424: 32,3254           17761                           STODL    PHI2                                  
041050,001425: 32,3255           33532                                    10RTE                                 
041051,001426: 32,3256           03730                           STORE    NN1A                                  
041052,001427: 32,3257           77650                           GOTO                                           
041053,001428: 32,3260           65272                                    V2T125                                
041054,001429: 32,3261           47166        V2T120             SQRT     RTB                                   
041055,001430: 32,3262           45716                                    DPMODE                                
041056,001431: 32,3263           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM            B5      PL18D
041057,001432: 32,3264           03761                                    PHI2                                  
041058,001433: 32,3265           65300                                    V2T130                                
041059,001434: 32,3266           45545                           DLOAD    STADR                                 #                                        PL16D
041060,001435: 32,3267           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX 
041061,001436: 32,3270           77676                           DCOMP                                          
041062,001437: 32,3271           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
041063,001438: 32,3272           53145        V2T125             DLOAD    BZE                                   
041064,001439: 32,3273           03722                                    X(T1)                                 
041065,001440: 32,3274           65314                                    V2T140                                
041066,001441: 32,3275           52040                           BMN      GOTO                                  

Page 921

041068,001443: 32,3276           65314                                    V2T140                                
041069,001444: 32,3277           65322                                    V2T145                                
041070,001445: 32,3300           53145        V2T130             DLOAD    BZE                                   
041071,001446: 32,3301           03722                                    X(T1)                                 
041072,001447: 32,3302           65311                                    V2T135                                
041073,001448: 32,3303           71240                           BMN      DLOAD                                 #                                        PL16D
041074,001449: 32,3304           65311                                    V2T135                                
041075,001450: 32,3305           77626                           STADR                                          
041076,001451: 32,3306           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
041077,001452: 32,3307           77650                           GOTO                                           
041078,001453: 32,3310           65322                                    V2T145                                
041079,001454: 32,3311           57545        V2T135             DLOAD    DCOMP                                 #                                        PL16D
041080,001455: 32,3312           77626                           STADR                                          
041081,001456: 32,3313           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
041082,001457: 32,3314           77745        V2T140             DLOAD                                          
041083,001458: 32,3315           00013                                    10D                                   
041084,001459: 32,3316           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
041085,001460: 32,3317           00015                                    12D                                   
041086,001461: 32,3320           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                    PL18D
041087,001462: 32,3321           65327                                    V2T150                                
041088,001463: 32,3322           77745        V2T145             DLOAD                                          
041089,001464: 32,3323           00017                                    14D                                   
041090,001465: 32,3324           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
041091,001466: 32,3325           00015                                    12D                                   
041092,001467: 32,3326           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                   PL18D
041093,001468: 32,3327           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
041094,001469: 32,3330           65457                                    GAMDV10                               
041095,001470: 32,3331           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
041096,001471: 32,3332           03632                                    RTEDVD                                
041097,001472: 32,3333           65455                                    V2T1X                                 
041098,001473: 
041099,001474:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
041100,001475: 
041101,001476: 32,3334           50025                           DSU      BMN                                   
041102,001477: 32,3335           03706                                    DV                                    
041103,001478: 32,3336           65341                                    V2T155                                
041104,001479: 32,3337           77650                           GOTO                                           
041105,001480: 32,3340           65374                                    V2T175                                
041106,001481: 32,3341           50145        V2T155             DLOAD    BMN                                   
041107,001482: 32,3342           03730                                    NN1A                                  
041108,001483: 32,3343           65346                                    V2T160                                
041109,001484: 32,3344           77650                           GOTO                                           
041110,001485: 32,3345           65416                                    V2T185                                
041111,001486: 
041112,001487:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
041113,001488: 
041114,001489: 32,3346           53145        V2T160             DLOAD    BZE                                   
041115,001490: 32,3347           03722                                    X(T1)                                 
041116,001491: 32,3350           65354                                    V2T165                                
041117,001492: 32,3351           52040                           BMN      GOTO                                  

Page 922

041119,001494: 32,3352           65354                                    V2T165                                
041120,001495: 32,3353           65453                                    V2T300                                
041121,001496: 32,3354           53145        V2T165             DLOAD    BZE                                   
041122,001497: 32,3355           03757                                    CFPA                                  
041123,001498: 32,3356           65453                                    V2T300                                
041124,001499: 32,3357           71240                           BMN      DLOAD                                 
041125,001500: 32,3360           65453                                    V2T300                                
041126,001501: 32,3361           00017                                    14D                                   
041127,001502: 32,3362           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
041128,001503: 32,3363           00015                                    12D                                   
041129,001504: 32,3364           77676                           DCOMP                                          
041130,001505: 32,3365           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
041131,001506: 32,3366           65457                                    GAMDV10                               
041132,001507: 32,3367           45345                           DLOAD    DSU                                   
041133,001508: 32,3370           03632                                    RTEDVD                                
041134,001509: 32,3371           03706                                    DV                                    
041135,001510: 32,3372           77640                           BMN                                            
041136,001511: 32,3373           65453                                    V2T300                                
041137,001512: 32,3374           71214        V2T175             SET      DLOAD                                 
041138,001513: 32,3375           00072                                    F2RTE                                 
041139,001514: 32,3376           03722                                    X(T1)                                 
041140,001515: 32,3377           77614                           BOFF                                           
041141,001516: 32,3400           02742                                    SLOWFLG                               
041142,001517: 32,3401           65406                                    V2T177                                
041143,001518: 32,3402           14013                           STODL    10D                                   #  X(T1)MIN
041144,001519: 32,3403           00015                                    12D                                   #  DX(T1)MAX
041145,001520: 32,3404           77650                           GOTO                                           
041146,001521: 32,3405           65411                                    V2T179                                
041147,001522: 32,3406           14017        V2T177             STODL    14D                                   
041148,001523: 32,3407           00015                                    12D                                   
041149,001524: 32,3410           77676                           DCOMP                                          
041150,001525: 32,3411           34021        V2T179             STCALL   16D                                   #  DX(T1)
041151,001526: 32,3412           65457                                    GAMDV10                               
041152,001527: 32,3413           50145                           DLOAD    BMN                                   
041153,001528: 32,3414           03730                                    NN1A                                  
041154,001529: 32,3415           65453                                    V2T300                                
041155,001530: 
041156,001531:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
041157,001532:                                                                                                  #  PRECISION TRAJECTORY
041158,001533: 
041159,001534: 32,3416           45345        V2T185             DLOAD    DSU                                   
041160,001535: 32,3417           03722                                    X(T1)                                 
041161,001536: 32,3420           00001                                    00D                                   
041162,001537: 32,3421           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
041163,001538: 32,3422           00015                                    12D                                   
041164,001539: 32,3423           44352                           SL1      BDSU                                  
041165,001540: 32,3424           71240                           BMN      DLOAD                                 
041166,001541: 32,3425           65453                                    V2T300                                
041167,001542: 32,3426           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
041168,001543: 32,3427           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)

Page 923

041170,001545: 32,3430           50025                           DSU      BMN                                   
041171,001546: 32,3431           00017                                    14D                                   
041172,001547: 32,3432           65440                                    V2T195                                
041173,001548: 32,3433           77745                           DLOAD                                          
041174,001549: 32,3434           00017                                    14D                                   
041175,001550: 32,3435           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
041176,001551: 32,3436           77650                           GOTO                                           
041177,001552: 32,3437           65451                                    V2T205                                
041178,001553: 32,3440           45345        V2T195             DLOAD    DSU                                   
041179,001554: 32,3441           03722                                    X(T1)                                 
041180,001555: 32,3442           00013                                    10D                                   
041181,001556: 32,3443           52040                           BMN      GOTO                                  
041182,001557: 32,3444           65446                                    V2T200                                
041183,001558: 32,3445           65451                                    V2T205                                
041184,001559: 32,3446           77745        V2T200             DLOAD                                          
041185,001560: 32,3447           00013                                    10D                                   
041186,001561: 32,3450           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
041187,001562: 32,3451           77624        V2T205             CALL                                           
041188,001563: 32,3452           65660                                    DVCALC                                
041189,001564: 32,3453           77745        V2T300             DLOAD                                          
041190,001565: 32,3454           33524                                    ZERORTE                               
041191,001566: 32,3455           77650        V2T1X              GOTO                                           
041192,001567: 32,3456           00041                                    33D                                   
041193,001568: 

Page 924

041195,001570:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
041196,001571: 
041197,001572:                                                                                                  #  DESCRIPTION
041198,001573:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
041199,001574: 
041200,001575:                                                                                                  #  CALLING SEQUENCE
041201,001576:                                                                                                  #        L       CALL
041202,001577:                                                                                                  #        L+1             GAMDV10
041203,001578: 
041204,001579:                                                                                                  #  NORMAL EXIT MODE
041205,001580:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
041206,001581: 
041207,001582:                                                                                                  #  ALARM EXIT MODE
041208,001583:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
041209,001584: 
041210,001585:                                                                                                  #  SUBROUTINES CALLED
041211,001586:                                                                                                  #        DVCALC
041212,001587: 
041213,001588:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
041214,001589:                                                                                                  #     PUSHLIST
041215,001590:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
041216,001591:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041217,001592:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041218,001593:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
041219,001594:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
041220,001595:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
041221,001596:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
041222,001597:                                                                                                  #     MPAC
041223,001598:                                                                                                  #        NONE
041224,001599:                                                                                                  #     OTHER
041225,001600:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
041226,001601:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
041227,001602:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
041228,001603:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041229,001604:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
041230,001605:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
041231,001606: 
041232,001607:                                                                                                  #  OUTPUT
041233,001608:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041234,001609:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041235,001610:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
041236,001611:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041237,001612: 
041238,001613:                                                                                                  #  DEBRIS
041239,001614:                                                                                                  #     PUSHLIST
041240,001615:                                                                                                  #        00D             X(T1),,
041241,001616:                                                                                                  #        02D             THETA1
041242,001617:                                                                                                  #        05D             THETA2
041243,001618:                                                                                                  #        08D             THETA3
041244,001619:                                                                                                  #        10D             X(T1)MIN
041245,001620:                                                                                                  #        12D             DX(T1)MAX

Page 925

041247,001622:                                                                                                  #        14D             X(T1)MAX
041248,001623:                                                                                                  #        16D             DX(T1)
041249,001624:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
041250,001625:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
041251,001626:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
041252,001627:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
041253,001628:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
041254,001629: 
041255,001630: 32,3457           77620        GAMDV10            STQ                                            
041256,001631: 32,3460           00037                                    31D                                   
041257,001632: 32,3461           45001                           SETPD    CALL                                  
041258,001633: 32,3462           00023                                    18D                                   #                                        PL18D
041259,001634: 32,3463           65660                                    DVCALC                                
041260,001635: 32,3464           45345                           DLOAD    DSU                                   
041261,001636: 32,3465           00017                                    14D                                   
041262,001637: 32,3466           00013                                    10D                                   
041263,001638: 32,3467           77600                           BOV                                            
041264,001639: 32,3470           65510                                    GAMDV20                               
041265,001640: 32,3471           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5      PL20D
041266,001641: 32,3472           33614                                    EPC9RTE                               
041267,001642: 32,3473           71240                           BMN      DLOAD                                 
041268,001643: 32,3474           65656                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
041269,001644: 32,3475           00023                                    18D                                   
041270,001645: 32,3476           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
041271,001646: 32,3477           00015                                    12D                                   
041272,001647: 32,3500           65504                                    GAMDV15                               
041273,001648: 32,3501           52001                           SETPD    GOTO                                  #                                        PL18D
041274,001649: 32,3502           00023                                    18D                                   
041275,001650: 32,3503           65510                                    GAMDV20                               
041276,001651: 32,3504           77745        GAMDV15            DLOAD                                          #                                        PL18D
041277,001652: 32,3505           70565                           SIGN     SR1                                   
041278,001653: 32,3506           00021                                    16D                                   
041279,001654: 32,3507           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
041280,001655: 32,3510           77745        GAMDV20            DLOAD                                          
041281,001656: 32,3511           33526                                    M144RTE                               
041282,001657: 32,3512           03732                           STORE    NN2                                   
041283,001658: 32,3513           43345        GAMDV25            DLOAD    DAD                                   
041284,001659: 32,3514           03732                                    NN2                                   
041285,001660: 32,3515           33522                                    1RTEB28                               
041286,001661: 32,3516           67240                           BMN      SLOAD                                 
041287,001662: 32,3517           65523                                    GAMDV30                               
041288,001663: 32,3520           33562                                    OCT605                                
041289,001664: 32,3521           77650                           GOTO                                           
041290,001665: 32,3522           65455                                    V2T1X                                 
041291,001666: 32,3523           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
041292,001667: 32,3524           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  B5      PL20D
041293,001668: 32,3525           03722                                    X(T1)                                 
041294,001669: 32,3526           03706                                    DV                                    
041295,001670: 32,3527           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5   PL22D
041296,001671: 32,3530           03722                                    X(T1)                                 
041297,001672: 32,3531           00021                                    16D                                   

Page 926

041299,001674: 32,3532           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
041300,001675: 32,3533           65660                                    DVCALC                                
041301,001676: 32,3534           71214                           BON      DLOAD                                 
041302,001677: 32,3535           00312                                    F2RTE                                 
041303,001678: 32,3536           65552                                    GAMDV35                               
041304,001679: 32,3537           03706                                    DV                                    
041305,001680: 32,3540           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
041306,001681: 32,3541           00025                                    20D                                   
041307,001682: 32,3542           65547                                    GAMDV33                               
041308,001683: 32,3543           57545        GAMDV32            DLOAD    DCOMP                                 
041309,001684: 32,3544           00021                                    16D                                   
041310,001685: 32,3545           77742                           SR1                                            
041311,001686: 32,3546           00021                           STORE    16D                                   
041312,001687: 32,3547           52001        GAMDV33            SETPD    GOTO                                  
041313,001688: 32,3550           00023                                    18D                                   #                                        PL18D
041314,001689: 32,3551           65615                                    GAMDV50                               
041315,001690: 
041316,001691:                                                                                                  #  TIME CRITICAL MODE
041317,001692: 
041318,001693: 32,3552           45345        GAMDV35            DLOAD    DSU                                   
041319,001694: 32,3553           03632                                    RTEDVD                                
041320,001695: 32,3554           03706                                    DV                                    
041321,001696: 32,3555           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5   PL22D
041322,001697: 32,3556           51545        GAMDV40            DLOAD    ABS                                   #  DV,                                   PL24D
041323,001698: 32,3557           00025                                    20D                                   
041324,001699: 32,3560           50025                           DSU      BMN                                   
041325,001700: 32,3561           33616                                    EPC10RTE                              
041326,001701: 32,3562           65656                                    GAMDVX                                
041327,001702: 32,3563           71204        GAMDV45            BOVB     DLOAD                                 
041328,001703: 32,3564           57352                                    TCDANZIG                              #  ASSURE OVFIND IS 0
041329,001704: 32,3565           60221                           BDSU     NORM                                  
041330,001705: 32,3566           03706                                    DV                                    
041331,001706: 32,3567           00050                                    X2                                    
041332,001707: 32,3570           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
041333,001708: 32,3571           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
041334,001709: 32,3572           00047                                    X1                                    
041335,001710: 32,3573           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
041336,001711: 32,3574           41221                           BDSU     DMP                                   #                                        PL18D
041337,001712: 32,3575           03722                                    X(T1)                                 
041338,001713: 32,3576           77660                           XSU,1                                          
041339,001714: 32,3577           00047                                    X2                                    
041340,001715: 32,3600           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
041341,001716: 32,3601           40057                           SR*      BOV                                   
041342,001717: 32,3602           20600                                    0          -1,1                       
041343,001718: 32,3603           65611                                    GAMDV47                               
041344,001719: 32,3604           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
041345,001720: 32,3605           45246                           ABS      DSU                                   
041346,001721: 32,3606           00015                                    12D                                   
041347,001722: 32,3607           77640                           BMN                                            
041348,001723: 32,3610           65615                                    GAMDV50                               

Page 927

041350,001725: 32,3611           75345        GAMDV47            DLOAD    SIGN                                  
041351,001726: 32,3612           00015                                    12D                                   
041352,001727: 32,3613           00021                                    16D                                   
041353,001728: 32,3614           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
041354,001729: 
041355,001730:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
041356,001731: 
041357,001732: 32,3615           41345        GAMDV50            DLOAD    DMP                                   
041358,001733: 32,3616           00021                                    16D                                   
041359,001734: 32,3617           33536                                    1.1RTEB1                              
041360,001735: 32,3620           43352                           SL1      DAD                                   
041361,001736: 32,3621           03722                                    X(T1)                                 
041362,001737: 32,3622           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
041363,001738: 32,3623           50025                           DSU      BMN                                   
041364,001739: 32,3624           00017                                    14D                                   
041365,001740: 32,3625           65634                                    GAMDV55                               
041366,001741: 32,3626           45345                           DLOAD    DSU                                   
041367,001742: 32,3627           00017                                    14D                                   
041368,001743: 32,3630           03722                                    X(T1)                                 
041369,001744: 32,3631           77742                           SR1                                            
041370,001745: 32,3632           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
041371,001746: 32,3633           65647                                    GAMDV65                               
041372,001747: 32,3634           45345        GAMDV55            DLOAD    DSU                                   
041373,001748: 32,3635           00031                                    24D                                   
041374,001749: 32,3636           00013                                    10D                                   
041375,001750: 32,3637           52040                           BMN      GOTO                                  
041376,001751: 32,3640           65642                                    GAMDV60                               
041377,001752: 32,3641           65647                                    GAMDV65                               
041378,001753: 32,3642           45345        GAMDV60            DLOAD    DSU                                   
041379,001754: 32,3643           00013                                    10D                                   
041380,001755: 32,3644           03722                                    X(T1)                                 
041381,001756: 32,3645           77742                           SR1                                            
041382,001757: 32,3646           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
041383,001758: 32,3647           51545        GAMDV65            DLOAD    ABS                                   
041384,001759: 32,3650           00021                                    16D                                   
041385,001760: 32,3651           50025                           DSU      BMN                                   
041386,001761: 32,3652           33614                                    EPC9RTE                               
041387,001762: 32,3653           65656                                    GAMDVX                                
041388,001763: 32,3654           77650                           GOTO                                           
041389,001764: 32,3655           65513                                    GAMDV25                               
041390,001765: 32,3656           77650        GAMDVX             GOTO                                           
041391,001766: 32,3657           00037                                    31D                                   
041392,001767: 

Page 928

041394,001769:                                                                                                  #  DV CALCULATION SUBROUTINE
041395,001770: 
041396,001771:                                                                                                  #  INPUT
041397,001772:                                                                                                  #     PUSHLIST
041398,001773:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
041399,001774:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041400,001775:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041401,001776:                                                                                                  #     OTHER
041402,001777:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
041403,001778:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
041404,001779:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
041405,001780:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041406,001781: 
041407,001782:                                                                                                  #  OUTPUT
041408,001783:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041409,001784:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041410,001785:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041411,001786: 
041412,001787:                                                                                                  #  DEBRIS
041413,001788:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
041414,001789:                                                                                                  #        C(PUSLOC)       THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
041415,001790:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
041416,001791:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
041417,001792: 
041418,001793:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041419,001794: 
041420,001795: 32,3660           71220        DVCALC             STQ      DLOAD                                 
041421,001796: 32,3661           00040                                    32D                                   
041422,001797: 32,3662           03722                                    X(T1)                                 
041423,001798: 32,3663           54316                           DSQ      SR                                    
041424,001799: 32,3664           20610                                    7                                     
041425,001800: 32,3665           76276                           DCOMP    TAD                                   
041426,001801: 32,3666           00003                                    02D                                   
041427,001802: 32,3667           41501                           NORM     PUSH                                  
041428,001803: 32,3670           00047                                    X1                                    
041429,001804: 32,3671           60351                           TLOAD    NORM                                  
041430,001805: 32,3672           00006                                    05D                                   
041431,001806: 32,3673           00050                                    X2                                    
041432,001807: 32,3674           70434                           RTB      SR1                                   
041433,001808: 32,3675           45716                                    DPMODE                                
041434,001809: 32,3676           56264                           XSU,2    DDV                                   
041435,001810: 32,3677           00046                                    X1                                    
041436,001811: 32,3700           77657                           SR*                                            
041437,001812: 32,3701           57170                                    6,2                                   
041438,001813: 32,3702           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
041439,001814: 32,3703           41366                           SQRT     DMP                                   
041440,001815: 32,3704           00011                                    08D                                   
041441,001816: 32,3705           77701                           NORM                                           
041442,001817: 32,3706           00047                                    X1                                    
041443,001818: 32,3707           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1

Page 929

041445,001820: 32,3710           03722                                    X(T1)                                 
041446,001821: 32,3711           74301                           NORM     VXSC                                  
041447,001822: 32,3712           00050                                    X2                                    
041448,001823: 32,3713           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
041449,001824: 32,3714           74274                           XAD,2    VXSC                                  
041450,001825: 32,3715           00046                                    X1                                    
041451,001826: 32,3716           00035                                    28D                                   
041452,001827: 32,3717           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
041453,001828: 32,3720           57207                                    0          -9D,2                      #                +
041454,001829: 32,3721           03746                                    UH/                                   
041455,001830: 32,3722           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
041456,001831: 32,3723           00035                                    28D                                   
041457,001832: 32,3724           20575                                    0          -4,1                       #                =
041458,001833: 32,3725           45455                           VAD      STADR                                 
041459,001834: 32,3726           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
041460,001835: 32,3727           51451                           VSU      ABVAL                                 
041461,001836: 32,3730           03672                                    V(T1)/                                
041462,001837: 32,3731           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
041463,001838: 32,3732           77650                           GOTO                                           
041464,001839: 32,3733           00040                                    32D                                   
041465,001840: 

Page 930

041467,001842:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041468,001843: 
041469,001844:                                                                                                  #  INPUT
041470,001845:                                                                                                  #     PUSHLIST
041471,001846:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
041472,001847:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
041473,001848:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
041474,001849:                                                                                                  #     OTHER
041475,001850:                                                                                                  #        RCON                                                                    DP      B29/B27
041476,001851:                                                                                                  #        R(T1)                                                                   DP      B29/B27
041477,001852: 
041478,001853:                                                                                                  #  OUTPUT
041479,001854:                                                                                                  #     MPAC
041480,001855:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
041481,001856: 
041482,001857:                                                                                                  #  DEBRIS
041483,001858:                                                                                                  #     PUSHLIST
041484,001859:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
041485,001860:                                                                                                  #        C(PSHLOC)+2     MA                                                      DP      B30/B28
041486,001861:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
041487,001862:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
041488,001863: 
041489,001864:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041490,001865: 
041491,001866: 32,3734           71220        XT1LIM             STQ      DLOAD                                 
041492,001867: 32,3735           00024                                    20D                                   
041493,001868: 32,3736           03636                                    RCON                                  
041494,001869: 32,3737           44342                           SR1      BDSU                                  
041495,001870: 32,3740           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
041496,001871: 32,3741           00050                                    X2                                    
041497,001872: 32,3742           70525                           PDDL     SR1                                   
041498,001873: 32,3743           03646                                    R(T1)                                 
041499,001874: 32,3744           56221                           BDSU     DDV                                   
041500,001875: 32,3745           41257                           SL*      DMP                                   
041501,001876: 32,3746           57601                                    0          -3,2                       #                                B3
041502,001877: 32,3747           00035                                    28D                                   
041503,001878: 32,3750           45257                           SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
041504,001879: 32,3751           20173                                    0          -6,1                       
041505,001880: 32,3752           33521                                    1RTEB25    +1                         #  1.0 B-11
041506,001881: 32,3753           40152                           SL1      BOV                                   
041507,001882: 32,3754           65760                                    XT1LIM2                               #                                B10
041508,001883: 32,3755           52040                           BMN      GOTO                                  
041509,001884: 32,3756           65764                                    XT1LIM5                               
041510,001885: 32,3757           65762                                    XT1LIM3                               
041511,001886: 32,3760           77745        XT1LIM2            DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
041512,001887: 32,3761           33542                                    2RTEB1                                
041513,001888: 32,3762           52166        XT1LIM3            SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)            B5
041514,001889: 32,3763           65766                                    XT1LIMX                               
041515,001890: 32,3764           77745        XT1LIM5            DLOAD                                          
041516,001891: 32,3765           33524                                    ZERORTE                               
041517,001892: 32,3766           77650        XT1LIMX            GOTO                                           
041518,001893: 32,3767           00024                                    20D                                   
041519,001894: 

Page 931

041521,001896:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041522,001897: 
041523,001898: 36,3254                                           BANK     36                                    
041524,001899: 35,2000                                           SETLOC   RTECON1                               
041525,001900: 35,2000                                           BANK                                           
041526,001901: 
041527,001902: 35,3477           20000 00000  1RTEB1             2DEC     1.         B-1                        
041528,001903: 35,3501           10000 00000  1RTEB2             2DEC     1.         B-2                        
041529,001904: 35,3503           04000 00000  1RTEB3             2DEC     1.         B-3                        
041530,001905: 35,3505           02000 00000  1RTEB4             2DEC     1.         B-4                        
041531,001906: 35,3507           00020 00000  1RTEB10            2DEC     1.         B-10                       
041532,001907: 35,3511           00004 00000  1RTEB12            2DEC     1.         B-12                       
041533,001908: 35,3513           00002 00000  1RTEB13            2DEC     1.         B-13                       
041534,001909: 35,3515           00000 04000  1RTEB17            2DEC     1.         B-17                       
041535,001910: 35,3517           00000 00010  1RTEB25            2DEC     1.         B-25                       
041536,001911:                                                                                                  #                                        * * B25 AND B28 MUST BE CONSECUTIVE * * 
041537,001912: 35,3521           00000 00001  1RTEB28            2DEC     1.         B-28                       
041538,001913: 35,3523           00000 00000  ZERORTE            2DEC     0          B-28                       
041539,001914: 35,3525           77777 77557  M144RTE            2DEC     -144.      B-28                       
041540,001915: 35,3527           77777 77760  M15RTE             2DEC     -15        B-28                       
041541,001916: 35,3531           00000 00012  10RTE              2DEC     10         B-28                       
041542,001917: 35,3533           54631 63145  M.6RTE             2DEC     -.6                                   
041543,001918: 35,3535           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
041544,001919: 35,3537           77777 77771  M6RTEB28           2DEC     -6         B-28                       
041545,001920: 35,3541           37777 37777  2RTEB1             2OCT     3777737777                            
041546,001921: 35,3543           77777 77766  M9RTEB28           2DEC     -9         B-28                       
041547,001922: 35,3545           77777 77767  M8RTEB28           2DEC     -8         B-28                       
041548,001923: 35,3547           00000 35610  30480RTE           2DEC     30480.     B-29                       
041549,001924: 35,3551           37405 12250  VCSPS              2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)

Page 932

041551,001926: 35,3553           33041 37714  VCRCS              2DEC     27.0664    B-5                        
041552,001927: 35,3555           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
041553,001928: 35,3557           20000 00000  CSUBT              2DEC     .5                                    
041554,001929: 35,3561           00605        OCT605             OCT      00605                                 
041555,001930: 35,3562           00612        OCT612             OCT      00612                                 
041556,001931: 35,3563           40214 45266  MCOS7.5            2DEC     -.99144486                            
041557,001932: 35,3565           73645 56536  MSIN7.5            2DEC     -.13052619                            
041558,001933: 35,3567           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
041559,001934: 35,3571           16525 12525  THETA165           2DEC     .4583333333                            
041560,001935: 35,3573           22525 12525  THETA210           2DEC     .5833333333                            
041561,001936: 35,3575           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
041562,001937: 35,3577           00000 00062  EPC2RTE            2DEC     100.       B-29                       
041563,001938: 35,3601           00020 14223  EPC3RTE            2DEC     .001                                  
041564,001939: 35,3603           00000 05174  EPC4RTE            2DEC     .00001                                
041565,001940: 35,3605           00002 21727  EPC5RTE            2DEC     .01        B-6                        
041566,001941: 35,3607           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
041567,001942: 35,3611           00000 00764  EPC7RTE            2DEC     1000.      B-29                       
041568,001943: 35,3613           00000 00010  EPC9RTE            2DEC     1.         B-25                       
041569,001944: 35,3615           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
041570,001945: 
041571,001946: 35,3617                                           BANK     35                                    
041572,001947: 35,2000                                           SETLOC   RTECON1                               
041573,001948: 35,2000                                           BANK                                           
041574,001949: 
041575,001950: 35,3617           75725 75417  C4RTE              2DEC     -6.986643  E7         B-30            
041576,001951: 35,3621           00325 23740  K1RTE              2DEC     7.         E6         B-29            
041577,001952: 35,3623           00306 06614  K2RTE              2DEC     6495000.   B-29                       
041578,001953: 35,3625           76027 70156  K3RTE              2DEC     -.06105                               
041579,001954: 35,3627           74517 54131  K4RTE              2DEC     -.10453                               
041580,001955: 35,3631           30276 05001  RTMURTE            2DEC     199650.501 B-18                       

Page 933

041582,001957: 35,3633           00003 27040  E3RTE              2DEC     121920.    B-29                       
041583,001958: 

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