Source Code

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

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

037600,000002:                                                                                                  ## Copyright:   Public domain.
037601,000003:                                                                                                  ## Filename:    P37_P70.agc
037602,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
037603,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
037604,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
037605,000007:                                                                                                  ## Assembler:   yaYUL
037606,000008:                                                                                                  ## Reference:   pp. 843-886.
037607,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037608,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
037609,000011:                                                                                                  ## Mod history: 08/21/04 RSB.   Began transcribing.
037610,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes. Added missing # in comment.
037611,000013:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
037612,000014:                                                                                                  ##                              original harcopy, as opposed to the PDF page
037613,000015:                                                                                                  ##                              numbers in 1701.pdf.
037614,000016:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
037615,000017:                                                                                                  ##                              vs the already-proofed corresponding Colossus
037616,000018:                                                                                                  ##                              237 and Comanche 55 source-code files
037617,000019:                                                                                                  ##                              and corrected errors found.
037618,000020:                                                                                                  ##
037619,000021:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
037620,000022:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
037621,000023:                                                                                                  ## document read, in part:
037622,000024:                                                                                                  ##
037623,000025:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
037624,000026:                                                                                                  ##      2021111-041.  October 28, 1968.  
037625,000027:                                                                                                  ##
037626,000028:                                                                                                  ##      This AGC program shall also be referred to as
037627,000029:                                                                                                  ##                              Colossus 1A
037628,000030:                                                                                                  ##
037629,000031:                                                                                                  ##      Prepared by
037630,000032:                                                                                                  ##                      Massachusetts Institute of Technology
037631,000033:                                                                                                  ##                      75 Cambridge Parkway
037632,000034:                                                                                                  ##                      Cambridge, Massachusetts
037633,000035:                                                                                                  ##      under NASA contract NAS 9-4065.
037634,000036:                                                                                                  ##
037635,000037:                                                                                                  ## Refer directly to the online document mentioned above for further information.
037636,000038:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
037637,000039:                                                                                                  ##
037638,000040:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
037639,000041:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
037640,000042:                                                                                                  ## source file, and then is proofed to incorporate any changes.
037641,000043: 

Page 843

037643,000045: 31,3215                                           BANK     31                                    
037644,000046: 36,2000                                           SETLOC   RTE1                                  
037645,000047: 36,2000                                           BANK                                           
037646,000048: 
037647,000049: 36,2502  E7,1631                                  EBANK=   RTEDVD                                
037648,000050: 36,2502                                           COUNT    31/P37                                
037649,000051: 
037650,000052:                                                                                                  #  PROGRAM DESCRIPTION -  P37, RETURN TO EARTH
037651,000053: 
037652,000054:                                                                                                  #  DESCRIPTION
037653,000055:                                                                                                  #        A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
037654,000056:                                                                                                  #        TIME OF IGNITION.  INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
037655,000057:                                                                                                  #        DISPLAYED TO THE ASTRONAUT.  THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
037656,000058:                                                                                                  #        RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED.  UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
037657,000059:                                                                                                  #        COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
037658,000060: 
037659,000061:                                                                                                  #  CALLING SEQUENCE
037660,000062:                                                                                                  #        L       TC      P37
037661,000063: 
037662,000064:                                                                                                  #  SUBROUTINES CALLED
037663,000065:                                                                                                  #        PREC100
037664,000066:                                                                                                  #                V2T100
037665,000067:                                                                                                  #                RTENCK2
037666,000068:                                                                                                  #                RTENCK3
037667,000069:                                                                                                  #                TIMERAD
037668,000070:                                                                                                  #                PARAM
037669,000071:                                                                                                  #        V2T100
037670,000072:                                                                                                  #                GAMDV10
037671,000073:                                                                                                  #                XT1LIM
037672,000074:                                                                                                  #                DVCALC
037673,000075:                                                                                                  #        RTENCK1
037674,000076:                                                                                                  #                INTSTALL
037675,000077:                                                                                                  #                INTEGRVS
037676,000078:                                                                                                  #        RTEVN
037677,000079:                                                                                                  #                RTEDISP
037678,000080:                                                                                                  #                TMRAD100
037679,000081:                                                                                                  #                AUGEKUGL
037680,000082:                                                                                                  #                LAT-LONG
037681,000083:                                                                                                  #        TMRAD100
037682,000084:                                                                                                  #                TIMERAD
037683,000085:                                                                                                  #        INVC100
037684,000086:                                                                                                  #                CSMPREC
037685,000087:                                                                                                  #        GETERAD
037686,000088:                                                                                                  #        TIMETHET
037687,000089:                                                                                                  #        P370ALRM
037688,000090:                                                                                                  #        VN1645
037689,000091:                                                                                                  #        POLY
037690,000092: 
037691,000093:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037692,000094:                                                                                                  #        CSM STATE VECTOR

Page 844

037694,000096:                                                                                                  #        NJETSFLG        NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
037695,000097: 
037696,000098:                                                                                                  #  ASTRONAUT INPUT
037697,000099:                                                                                                  #        SPRTETIG        TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
037698,000100:                                                                                                  #        VPRED           DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
037699,000101:                                                                                                  #        GAMMAEI         DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS + ABOVE HORIZ.
037700,000102:                                                                                                  #        OPTION2         PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
037701,000103: 
037702,000104:                                                                                                  #  OUTPUT
037703,000105:                                                                                                  #     CONIC OR PRECISION TRAJECTORY DISPLAY
037704,000106:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037705,000107:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037706,000108:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZON
037707,000109:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037708,000110:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037709,000111:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037710,000112:                                                                                                  #     TARGETING COMPUTATION DISPLAY
037711,000113:                                                                                                  #        TIG             RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
037712,000114:                                                                                                  #        TTOGO           TIME FROM TIG                                           DP      B28     CS
037713,000115:                                                                                                  #        +MGA            POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS -.02 IF REFSMFLG=0
037714,000116:                                                                                                  #     THRUST PROGRAM COMMUNICATION
037715,000117:                                                                                                  #        XDELVFLG        EXTERNAL DELTA V FLAG                                   STATE   FLAG    SET 0 FOR LAMBERT AIMPT
037716,000118:                                                                                                  #        NORMSW          LAMBERT AIMPT ROTATION SWITCH                           STATE   FLAG    SET 0 FOR NO ROTATION
037717,000119:                                                                                                  #        ECSTEER         CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
037718,000120:                                                                                                  #        RTARG           CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
037719,000121:                                                                                                  #        TPASS4          REENTRY TIME                                            DP      B28     CS
037720,000122: 
037721,000123: 36,2502           05301        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
037722,000124: 36,2503           00004                           OCT      4                                     
037723,000125: 
037724,000126: 36,2504           06006                           TC       INTPRET                               
037725,000127: 36,2505           66170                           AXT,1    SXA,1                                 
037726,000128: 36,2506           04000                           OCT      04000                                 
037727,000129: 36,2507           03424                                    ECSTEER                               
037728,000130: 36,2510           77776                           EXIT                                           
037729,000131: 36,2511           33242                           CAF      V6N33RTE                              #  INPUT TIG     STORED IN SPRTETIG
037730,000132: 36,2512           03231                           TCR      P370GOF                               #                OVERLAYED WITH TIG
037731,000133: 36,2513           12511                           TCF      -2                                    #  DESPLAY NEW DATA
037732,000134: 36,2514           33246                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
037733,000135: 36,2515           03205                           TCR      P37GFRB1                              #        AND DESIRED DELTA V IN RTEDVD
037734,000136: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
037735,000137: 36,2517           06006        RTE299             TC       INTPRET                               
037736,000138: 36,2520           71331                           SSP      DLOAD                                 
037737,000139: 36,2521           00122                                    OVFIND                                
037738,000140: 36,2522           00000                                    0                                     
037739,000141: 36,2523           03767                                    VPRED                                 
037740,000142: 36,2524           17632                           STODL    RTEDVD                                
037741,000143: 36,2525           03771                                    GAMMAEI                               
037742,000144: 36,2526           17634                           STODL    RTEGAM2D                              
037743,000145: 36,2527           31667                                    1RTEB13                               

Page 845

037745,000147: 36,2530           17735                           STODL    CONICX1                               
037746,000148: 36,2531           33756                                    C4RTE                                 
037747,000149: 36,2532           37652                           STCALL   MAMAX1                                
037748,000150: 36,2533           64427                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
037749,000151: 36,2534           77545                           DLOAD    EXIT                                  
037750,000152: 36,2535           03646                                    R(T1)                                 
037751,000153: 36,2536           07171                           TC       POLY                                  
037752,000154: 36,2537           00002                           DEC      2          B-14                       
037753,000155: 36,2540           02544 35436                     2DEC     181000434  B-31                       
037754,000156: 36,2542           14040 05066                     2DEC     1.50785145 B-2                        
037755,000157: 36,2544           44052 60030                     2DEC*    -6.49993057 E-9        B27*            
037756,000158: 36,2546           26415 25057                     2DEC*    9.76938926 E-18       B56*            
037757,000159: 
037758,000160: 36,2550           06006                           TC       INTPRET                               
037759,000161: 36,2551           77752                           SL1                                            
037760,000162: 36,2552           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
037761,000163: 36,2553           31717                                    M9RTEB28                              
037762,000164: 36,2554           17730                           STODL    NN1A                                  
037763,000165: 36,2555           33762                                    K2RTE                                 
037764,000166: 36,2556           17636        RTE320             STODL    RCON                                  #  RCON=K2
037765,000167: 36,2557           03634                                    RTEGAM2D                              
037766,000168: 36,2560           44254                           BZE      BDSU                                  
037767,000169: 36,2561           74570                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
037768,000170: 36,2562           31655                                    1RTEB2                                
037769,000171: 36,2563           71406                           PUSH     COS                                   #                                        PL02D
037770,000172: 36,2564           73525                           PDDL     SIN                                   
037771,000173: 36,2565           45465                           BDDV     STADR                                 #                                        PL00D
037772,000174: 36,2566           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                      B0
037773,000175: 36,2567           74603                                    RTE360                                
037774,000176: 36,2570           45345        RTE340             DLOAD    DSU                                   
037775,000177: 36,2571           03646                                    R(T1)                                 
037776,000178: 36,2572           33760                                    K1RTE                                 
037777,000179: 36,2573           71240                           BMN      DLOAD                                 
037778,000180: 36,2574           74600                                    RTE350                                
037779,000181: 36,2575           33766                                    K4RTE                                 
037780,000182: 36,2576           37726                           STCALL   X(T2)                                 #  X(T2)=K4
037781,000183: 36,2577           74603                                    RTE360                                
037782,000184: 36,2600           77745        RTE350             DLOAD                                          
037783,000185: 36,2601           33764                                    K3RTE                                 
037784,000186: 36,2602           03726                           STORE    X(T2)                                 #  X(T2)=K3
037785,000187: 36,2603           77624        RTE360             CALL                                           
037786,000188: 36,2604           65136                                    V2T100                                
037787,000189: 36,2605           52054                           BZE      GOTO                                  
037788,000190: 36,2606           74610                                    RTE367                                
037789,000191: 36,2607           74772                                    RTEALRM                               
037790,000192: 36,2610           77775        RTE367             VLOAD                                          
037791,000193: 36,2611           03640                                    R(T1)/                                

Page 846

037793,000195: 36,2612           16657                           STODL    RVEC                                  
037794,000196: 36,2613           03636                                    RCON                                  
037795,000197: 36,2614           26760                           STOVL    RDESIRED                              
037796,000198: 36,2615           03700                                    V2(T1)/                               
037797,000199: 36,2616           36746                           STCALL   VVEC                                  
037798,000200: 36,2617           64272                                    TMRAD100                              
037799,000201: 36,2620           77615                           DAD                                            
037800,000202: 36,2621           03716                                    T1                                    
037801,000203: 36,2622           17736                           STODL    T2                                    
037802,000204: 36,2623           03634                                    RTEGAM2D                              
037803,000205: 36,2624           52054                           BZE      GOTO                                  
037804,000206: 36,2625           74627                                    RTE369                                
037805,000207: 36,2626           74651                                    RTE372                                
037806,000208: 36,2627           51575        RTE369             VLOAD    ABVAL                                 
037807,000209: 36,2630           03710                                    V(T2)/                                
037808,000210: 36,2631           77776                           EXIT                                           
037809,000211: 36,2632           07171                           TC       POLY                                  
037810,000212: 36,2633           00002                           DEC      2          B-14                       
037811,000213: 36,2634           00000 00000                     2DEC     0          B-28                       
037812,000214: 36,2636           47021 65002                     2DEC     -4.8760771 E-2        B4              
037813,000215: 36,2640           35610 07722                     2DEC     4.5419476  E-4        B11             
037814,000216: 36,2642           63772 63276                     2DEC     -1.4317675 E-6        B18             
037815,000217: 
037816,000218: 36,2644           06006                           TC       INTPRET                               
037817,000219: 36,2645           77615                           DAD                                            
037818,000220: 36,2646           01352                                    RTED1                                 
037819,000221: 36,2647           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
037820,000222: 36,2650           74653                                    RTE373                                
037821,000223: 36,2651           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
037822,000224: 36,2652           03726                                    X(T2)                                 
037823,000225: 36,2653           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                              B0 PL02D
037824,000226: 36,2654           03726                                    X(T2)                                 
037825,000227: 36,2655           53575                           VLOAD    UNIT                                  
037826,000228: 36,2656           03656                                    R(T2)/                                #                                        B58
037827,000229: 36,2657           36152                           STCALL   ALPHAV                                
037828,000230: 36,2660           26437                                    GETERAD                               
037829,000231: 36,2661           77615                           DAD                                            
037830,000232: 36,2662           33772                                    E3RTE                                 
037831,000233: 36,2663           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
037832,000234: 36,2664           03636                                    RCON                                  
037833,000235: 36,2665           45246                           ABS      DSU                                   
037834,000236: 36,2666           31754                                    EPC2RTE                               
037835,000237: 36,2667           52040                           BMN      GOTO                                  
037836,000238: 36,2670           74672                                    RTE374                                
037837,000239: 36,2671           74677                                    RTE375                                
037838,000240: 36,2672           51545        RTE374             DLOAD    ABS                                   
037839,000241: 36,2673           00001                                    00D                                   

Page 847

037841,000243: 36,2674           50025                           DSU      BMN                                   
037842,000244: 36,2675           31756                                    EPC3RTE                               
037843,000245: 36,2676           74747                                    P37E                                  
037844,000246: 36,2677           43345        RTE375             DLOAD    DAD                                   
037845,000247: 36,2700           03730                                    NN1A                                  
037846,000248: 36,2701           31675                                    1RTEB28                               
037847,000249: 36,2702           67240                           BMN      SLOAD                                 
037848,000250: 36,2703           74707                                    RTE380                                
037849,000251: 36,2704           31735                                    OCT605                                
037850,000252: 36,2705           77650                           GOTO                                           
037851,000253: 36,2706           74772                                    RTEALRM                               #  TOO MANY ITERATIONS
037852,000254: 36,2707           03730        RTE380             STORE    NN1A                                  
037853,000255: 36,2710           53025                           DSU      BZE                                   
037854,000256: 36,2711           31721                                    M8RTEB28                              
037855,000257: 36,2712           74730                                    RTE385                                
037856,000258: 36,2713           45345                           DLOAD    DSU                                   
037857,000259: 36,2714           00001                                    00D                                   
037858,000260: 36,2715           03666                                    DRCON                                 
037859,000261: 36,2716           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1                 PL06D
037860,000262: 36,2717           00047                                    X1                                    
037861,000263: 36,2720           03670                                    RPRE'                                 
037862,000264: 36,2721           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                     PL04D
037863,000265: 36,2722           03726                                    X(T2)                                 
037864,000266: 36,2723           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
037865,000267: 36,2724           00001                                    00D                                   
037866,000268: 36,2725           20201                                    0,1                                   
037867,000269: 36,2726           77650                           GOTO                                           
037868,000270: 36,2727           74732                                    RTE390                                
037869,000271: 36,2730           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
037870,000272: 36,2731           00001                                    00D                                   
037871,000273: 36,2732           14021        RTE390             STODL    16D                                   #  DX(T2)                                PL02D
037872,000274: 36,2733           77626                           STADR                                          
037873,000275: 36,2734           60141                           STODL    RCON                                  #  RCON=RCON,
037874,000276: 36,2735           77600                           BOV                                            
037875,000277: 36,2736           74603                                    RTE360                                
037876,000278: 36,2737           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
037877,000279: 36,2740           03726                                    X(T2)                                 
037878,000280: 36,2741           17670                           STODL    RPRE'                                 #  X(T2)PRI=X(T2)
037879,000281: 36,2742           00021                                    16D                                   
037880,000282: 36,2743           77615                           DAD                                            
037881,000283: 36,2744           03726                                    X(T2)                                 
037882,000284: 36,2745           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
037883,000285: 36,2746           74603                                    RTE360                                #  REITERATE
037884,000286: 36,2747           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
037885,000287: 36,2750           74776                                    RTEVN                                 
037886,000288: 36,2751           41345        RTE505             DLOAD    DMP                                   
037887,000289: 36,2752           03720                                    PCON                                  
037888,000290: 36,2753           03754                                    BETA1                                 
037889,000291: 36,2754           53021                           BDSU     BZE                                   
037890,000292: 36,2755           03636                                    RCON                                  

Page 848

037892,000294: 36,2756           74764                                    RTE510                                
037893,000295: 36,2757           71240                           BMN      DLOAD                                 
037894,000296: 36,2760           74764                                    RTE510                                
037895,000297: 36,2761           31655                                    1RTEB2                                
037896,000298: 36,2762           77650                           GOTO                                           #  ENTRY NEAR APOGEE
037897,000299: 36,2763           74766                                    RTE515                                
037898,000300: 36,2764           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
037899,000301: 36,2765           31655                                    1RTEB2                                
037900,000302: 36,2766           37761        RTE515             STCALL   PHI2                                  
037901,000303: 36,2767           64515                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
037902,000304: 36,2770           77654        RTE625             BZE                                            
037903,000305: 36,2771           75024                                    P37G                                  
037904,000306: 36,2772           77624        RTEALRM            CALL                                           
037905,000307: 36,2773           64255                                    P370ALRM                              
037906,000308: 36,2774           77776                           EXIT                                           
037907,000309: 36,2775           12502                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
037908,000310: 
037909,000311:                                                                                                  #  RETURN TO EARTH DISPLAY SUBROUTINE
037910,000312: 
037911,000313: 36,2776           45020        RTEVN              STQ      CALL                                  
037912,000314: 36,2777           03763                                    VNSTORE                               
037913,000315: 36,3000           64311                                    RTEDISP                               #  DISPLAY PREPARATION
037914,000316: 36,3001           77776                           EXIT                                           
037915,000317: 36,3002           33244                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
037916,000318: 36,3003           03215                           TCR      P370GOFR                              #        IN LAT(SPL),LNG(SPL),-
037917,000319: 36,3004           34710                           CAF      FOUR                                  
037918,000320: 36,3005           03211                           TCR      37BLANK    +1                         
037919,000321: 36,3006           13013                           TCF      +5                                    
037920,000322: 36,3007           12502                           TCF      P37                                   #  RECYCLE
037921,000323: 36,3010           33245                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
037922,000324: 36,3011           03231                           TCR      P370GOF                               
037923,000325: 36,3012           12502                           TCF      P37                                   #  RECYCLE
037924,000326: 36,3013           33246                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
037925,000327: 36,3014           03205                           TCR      P37GFRB1                              #        IN -,VPRED,GAMMAEI
037926,000328: 36,3015           12502                           TCF      P37                                   #  RECYCLE
037927,000329: 36,3016           33247                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
037928,000330: 36,3017           03231                           TCR      P370GOF                               
037929,000331: 36,3020           12502                           TCF      P37                                   #  RECYCLE
037930,000332: 36,3021           06006                           TCR      INTPRET                               
037931,000333: 36,3022           77650                           GOTO                                           
037932,000334: 36,3023           03763                                    VNSTORE                               
037933,000335: 
037934,000336:                                                                                                  #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
037935,000337: 
037936,000338: 36,3024           77624        P37G               CALL                                           
037937,000339: 36,3025           74776                                    RTEVN                                 
037938,000340: 36,3026           77776                           EXIT                                           
037939,000341: 36,3027           34716        P37N               CAF      SEVEN                                 
037940,000342: 36,3030           55131                           TS       OPTION1                               
037941,000343: 36,3031           34712                           CAF      ONE                                   

Page 849

037943,000345: 36,3032           55132                           TS       OPTION2                               
037944,000346: 36,3033           33243                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION     SPS ASSUMED
037945,000347: 36,3034           03231                           TCR      P370GOF                               
037946,000348: 36,3035           13033                           TCF      -2                                    #  RECYCLE
037947,000349: 36,3036           06006                           TC       INTPRET                               #  PROCEED
037948,000350: 36,3037           67201                           SETPD    SLOAD                                 
037949,000351: 36,3040           00001                                    00D                                   
037950,000352: 36,3041           01133                                    OPTION2                               
037951,000353: 36,3042           53025                           DSU      BZE                                   
037952,000354: 36,3043           31667                                    1RTEB13                               
037953,000355: 36,3044           75053                                    P37Q                                  
037954,000356: 36,3045           60335                           SLOAD    NORM                                  #  SPS
037955,000357: 36,3046           00111                                    EMDOT                                 
037956,000358: 36,3047           00047                                    X1                                    
037957,000359: 36,3050           52125                           PDDL     GOTO                                  
037958,000360: 36,3051           31725                                    VCSPS                                 
037959,000361: 36,3052           75064                                    P37T                                  
037960,000362: 36,3053           43145        P37Q               DLOAD    BON                                   #  RCS
037961,000363: 36,3054           31731                                    MDOTRCS                               
037962,000364: 36,3055           00700                                    NJETSFLG                              
037963,000365: 36,3056           75060                                    P37R                                  
037964,000366: 36,3057           77752                           SL1                                            
037965,000367: 36,3060           77752        P37R               SL1                                            
037966,000368: 36,3061           65301                           NORM     PDDL                                  
037967,000369: 36,3062           00047                                    X1                                    
037968,000370: 36,3063           31727                                    VCRCS                                 
037969,000371: 36,3064           56325        P37T               PDDL     DDV                                   #  DV/VC                 B7 -B5 = B2 PL02D
037970,000372: 36,3065           03706                                    DV                                    
037971,000373: 36,3066           77776                           EXIT                                           
037972,000374: 36,3067           07171                           TC       POLY                                  
037973,000375: 36,3070           00001                           DEC      1          B-14                       
037974,000376: 36,3071           00001 05070                     2DEC     5.66240507 E-4        B-3             
037975,000377: 36,3073           17527 36700                     2DEC     9.79487897 E-1        B-1             
037976,000378: 36,3075           47114 70670                     2DEC     -.388281955 B1                         
037977,000379: 36,3077           06006                           TC       INTPRET                               
037978,000380: 36,3100           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A     B3 PL04D
037979,000381: 36,3101           03076                                    WEIGHT/G                              
037980,000382: 36,3102           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A        B16+B3-B3=B16 PL00D
037981,000383: 36,3103           41257                           SL*      DMP                                   
037982,000384: 36,3104           20165                                    0          -12D,1                     
037983,000385: 36,3105           31733                                    CSUBT                                 
037984,000386: 36,3106           77621                           BDSU                                           
037985,000387: 36,3107           03716                                    T1                                    
037986,000388: 36,3110           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB         B28
037987,000389: 36,3111           77776                           EXIT                                           
037988,000390: 36,3112           33242                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
037989,000391: 36,3113           03231                           TCR      P370GOF                               

Page 850

037991,000393: 36,3114           13112                           TCF      -2                                    
037992,000394: 36,3115           34714                           CAF      ZERO                                  
037993,000395: 36,3116           55125                           TS       VHFCNT                                
037994,000396: 36,3117           55126                           TS       TRKMKCNT                              
037995,000397: 36,3120           06006                           TC       INTPRET                               
037996,000398: 36,3121           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
037997,000399: 36,3122           65055                                    RTENCK1                               
037998,000400: 36,3123           53575                           VLOAD    UNIT                                  #                        PL00D
037999,000401: 36,3124           03656                                    R(T2)/                                
038000,000402: 36,3125           74315                           PDVL     VXSC                                  #  UR2                   B1 PL06D
038001,000403: 36,3126           03740                                    UR1/                                  
038002,000404: 36,3127           31740                                    MCOS7.5                               
038003,000405: 36,3130           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)          B1 PL12D
038004,000406: 36,3131           03746                                    UH/                                   
038005,000407: 36,3132           31742                                    MSIN7.5                               
038006,000408: 36,3133           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)    B2 PL00D
038007,000409: 36,3134           50015                           DAD      BMN                                   
038008,000410: 36,3135           31744                                    MCOS22.5                              
038009,000411: 36,3136           75163                                    P37W                                  
038010,000412: 36,3137           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
038011,000413: 36,3140           03746                                    UH/                                   
038012,000414: 36,3141           03656                                    R(T2)/                                
038013,000415: 36,3142           71240                           BMN      DLOAD                                 
038014,000416: 36,3143           75147                                    P37U                                  
038015,000417: 36,3144           31746                                    THETA165                              
038016,000418: 36,3145           52006                           PUSH     GOTO                                  
038017,000419: 36,3146           75151                                    P37V                                  
038018,000420: 36,3147           41545        P37U               DLOAD    PUSH                                  
038019,000421: 36,3150           31750                                    THETA210                              
038020,000422: 36,3151           77756        P37V               SIN                                            
038021,000423: 36,3152           16732                           STODL    SNTH                                  
038022,000424: 36,3153           43146                           COS      CLEAR                                 
038023,000425: 36,3154           03666                                    RVSW                                  
038024,000426: 36,3155           26734                           STOVL    CSTH                                  
038025,000427: 36,3156           03640                                    R(T1)/                                
038026,000428: 36,3157           26657                           STOVL    RVEC                                  
038027,000429: 36,3160           03700                                    V2(T1)/                               
038028,000430: 36,3161           36746                           STCALL   VVEC                                  
038029,000431: 36,3162           24737                                    TIMETHET                              
038030,000432: 36,3163           43014        P37W               CLEAR    CLEAR                                 
038031,000433: 36,3164           01267                                    XDELVFLG                              
038032,000434: 36,3165           03665                                    NORMSW                                
038033,000435: 36,3166           77214                           SET      VLOAD                                 
038034,000436: 36,3167           01071                                    FINALFLG                              
038035,000437: 36,3170           77626                           STADR                                          
038036,000438: 36,3171           60362                           STODL    RTARG                                 
038037,000439: 36,3172           00037                                    T                                     
038038,000440: 36,3173           77615                           DAD                                            
038039,000441: 36,3174           03716                                    T1                                    
038040,000442: 36,3175           27656                           STOVL    TPASS4                                

Page 851

038042,000444: 36,3176           03700                                    V2(T1)/                               
038043,000445: 36,3177           77651                           VSU                                            
038044,000446: 36,3200           03672                                    V(T1)/                                
038045,000447: 36,3201           37646                           STCALL   DELVSIN                               
038046,000448: 36,3202           73005                                    VN1645                                
038047,000449: 36,3203           77650                           GOTO                                           
038048,000450: 36,3204           75163                                    P37W                                  
038049,000451: 
038050,000452:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
038051,000453: 
038052,000454: 36,3205           00006        P37GFRB1           EXTEND                                         
038053,000455: 36,3206           23762                           QXCH     SPRTEX                                
038054,000456: 36,3207           03215                           TCR      P370GOFR                              
038055,000457: 36,3210           34712        37BLANK            CAF      ONE                                   
038056,000458: 36,3211           05415                           TCR      BLANKET                               
038057,000459: 36,3212           15112                           TCF      ENDOFJOB                              
038058,000460: 36,3213           01762                           TC       SPRTEX                                #  RECYCLE
038059,000461: 36,3214           13240                           TCF      P37PROC                               #  PROCEED
038060,000462: 
038061,000463:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
038062,000464: 
038063,000465: 36,3215           00006        P370GOFR           EXTEND                                         
038064,000466: 36,3216           23733                           QXCH     RTENCKEX                              
038065,000467: 36,3217           04555                           TCR      BANKCALL                              
038066,000468: 36,3220           20763                           CADR     GOFLASHR                              
038067,000469: 36,3221           14106                           TCF      GOTOPOOH                              #  TERMINATE
038068,000470: 36,3222           13225                           TCF      +3                                    
038069,000471: 36,3223           13227                           TCF      +4                                    
038070,000472: 36,3224           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
038071,000473: 36,3225           51733                           INDEX    RTENCKEX                              #  PROCEED
038072,000474: 36,3226           10004                           TCF      0          +4                         
038073,000475: 36,3227           51733                           INDEX    RTENCKEX                              #  RECYCLE
038074,000476: 36,3230           10003                           TCF      0          +3                         
038075,000477: 
038076,000478:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
038077,000479: 
038078,000480: 36,3231           00006        P370GOF            EXTEND                                         
038079,000481: 36,3232           23762                           QXCH     SPRTEX                                
038080,000482: 36,3233           04555                           TCR      BANKCALL                              
038081,000483: 36,3234           20624                           CADR     GOFLASH                               
038082,000484: 36,3235           14106                           TCF      GOTOPOOH                              
038083,000485: 36,3236           13240                           TCF      +2                                    
038084,000486: 36,3237           01762                           TC       SPRTEX                                
038085,000487: 36,3240           51762        P37PROC            INDEX    SPRTEX                                
038086,000488: 36,3241           10001                           TCF      0          +1                         
038087,000489: 36,3242           01441        V6N33RTE           VN       0633                                  
038088,000490: 36,3243           01006        V4N06RTE           VN       0406                                  
038089,000491: 36,3244           01475        V6N61RTE           VN       0661                                  
038090,000492: 36,3245           01447        V6N39RTE           VN       0639                                  
038091,000493: 36,3246           01474        V6N60RTE           VN       0660                                  

Page 852

038093,000495: 36,3247           01521        V6N81RTE           VN       0681                                  
038094,000496: 32,2255                                           BANK     32                                    
038095,000497: 32,2000                                           SETLOC   RTE                                   
038096,000498: 32,2000                                           BANK                                           
038097,000499: 32,2255                                           COUNT    32/RTE                                
038098,000500: 

Page 853

038100,000502:                                                                                                  #  ALARM DISPLAY SUBROUTINE
038101,000503: 
038102,000504: 32,2255           77420        P370ALRM           STQ      EXIT                                  
038103,000505: 32,2256           03762                                    SPRTEX                                
038104,000506: 32,2257           30154                           CA       MPAC                                  
038105,000507: 32,2260           05651                           TC       VARALARM                              
038106,000508: 32,2261           32271                           CAF      V5N09RTE                              
038107,000509: 32,2262           04555                           TC       BANKCALL                              
038108,000510: 32,2263           20624                           CADR     GOFLASH                               
038109,000511: 32,2264           14106                           TCF      GOTOPOOH                              
038110,000512: 32,2265           12261                           TCF      -4                                    
038111,000513: 32,2266           06006                           TC       INTPRET                               
038112,000514: 32,2267           77650                           GOTO                                           
038113,000515: 32,2270           03762                                    SPRTEX                                
038114,000516: 32,2271           01211        V5N09RTE           VN       0509                                  
038115,000517: 

Page 854

038117,000519:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
038118,000520: 
038119,000521:                                                                                                  #  INPUT
038120,000522:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038121,000523:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038122,000524:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
038123,000525:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES        -2=EARTH        SP      B14
038124,000526: 
038125,000527:                                                                                                  #  OUTPUT
038126,000528:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038127,000529:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038128,000530:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
038129,000531: 
038130,000532: 32,2272           43020        TMRAD100           STQ      CLEAR                                 
038131,000533: 32,2273           03733                                    RTENCKEX                              
038132,000534: 32,2274           03666                                    RVSW                                  
038133,000535: 32,2275           67164                           AXC,2    SXA,2                                 
038134,000536: 32,2276           20000                           OCT      20000                                 
038135,000537: 32,2277           02756                                    SGNRDOT                               
038136,000538: 32,2300           45140                           LXC,1    CALL                                  
038137,000539: 32,2301           03734                                    CONICX1                               
038138,000540: 32,2302           25552                                    TIMERAD                               
038139,000541: 32,2303           27710                           STOVL    V(T2)/                                #                        PL00D
038140,000542: 32,2304           77626                           STADR                                          
038141,000543: 32,2305           60121                           STODL    R(T2)/                                
038142,000544: 32,2306           00037                                    T                                     
038143,000545: 32,2307           37724                           STCALL   T12                                   
038144,000546: 32,2310           03733                                    RTENCKEX                              
038145,000547: 

Page 855

038147,000549:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
038148,000550: 
038149,000551:                                                                                                  #  DESCRIPTION
038150,000552:                                                                                                  #        OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS.  LANDING SITE
038151,000553:                                                                                                  #        COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
038152,000554: 
038153,000555:                                                                                                  #  CALLING SEQUENCE
038154,000556:                                                                                                  #        L       CALL
038155,000557:                                                                                                  #        L+1             RTEDISP
038156,000558: 
038157,000559:                                                                                                  #  SUBROUTINES CALLED
038158,000560:                                                                                                  #        TMRAD100
038159,000561:                                                                                                  #        AUGEKUGL
038160,000562:                                                                                                  #        LAT-LONG
038161,000563: 
038162,000564:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038163,000565:                                                                                                  #     PUSHLIST
038164,000566:                                                                                                  #        NONE
038165,000567:                                                                                                  #     MPAC
038166,000568:                                                                                                  #        NONE
038167,000569:                                                                                                  #     OTHER
038168,000570:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038169,000571:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038170,000572:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038171,000573:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038172,000574:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038173,000575:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038174,000576:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038175,000577: 
038176,000578:                                                                                                  #  OUTPUT
038177,000579:                                                                                                  #        VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
038178,000580:                                                                                                  #        T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
038179,000581:                                                                                                  #        GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS + ABOVE HORIZ
038180,000582:                                                                                                  #        DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
038181,000583:                                                                                                  #        LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
038182,000584:                                                                                                  #        LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
038183,000585: 
038184,000586: 32,2311           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
038185,000587: 32,2312           03762                                    SPRTEX                                
038186,000588: 32,2313           03710                                    V(T2)/                                
038187,000589: 32,2314           65256                           UNIT     PDDL                                  
038188,000590: 32,2315           00045                                    36D                                   
038189,000591: 32,2316           17767                           STODL    VPRED                                 #  V(T2)
038190,000592: 32,2317           03736                                    T2                                    
038191,000593: 32,2320           77625                           DSU                                            
038192,000594: 32,2321           03413                                    SPRTETIG                              
038193,000595: 32,2322           26641                           STOVL    T3TOT4                                #  T21
038194,000596: 32,2323           03656                                    R(T2)/                                
038195,000597: 32,2324           50256                           UNIT     DOT                                   
038196,000598: 32,2325           77752                           SL1                                            

Page 856

038198,000600: 32,2326           44326                           ARCCOS   BDSU                                  
038199,000601: 32,2327           31655                                    1RTEB2                                
038200,000602: 32,2330           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
038201,000603: 32,2331           03700                                    V2(T1)/                               
038202,000604: 32,2332           41451                           VSU      PUSH                                  
038203,000605: 32,2333           03672                                    V(T1)/                                
038204,000606: 32,2334           57441                           DOT      DCOMP                                 
038205,000607: 32,2335           03740                                    UR1/                                  
038206,000608: 32,2336           41515                           PDVL     PUSH                                  
038207,000609: 32,2337           63345                           DLOAD    PDVL                                  
038208,000610: 32,2340           31677                                    ZERORTE                               
038209,000611: 32,2341           55441                           DOT      VDEF                                  
038210,000612: 32,2342           03746                                    UH/                                   
038211,000613: 32,2343           77772                           VSL1                                           
038212,000614: 32,2344           27405                           STOVL    DELVLVC                               #  DV/ (LVC)
038213,000615: 32,2345           03656                                    R(T2)/                                
038214,000616: 32,2346           02657                           STORE    RVEC                                  #  ***** LANDING SITE COMPUTATION *****
038215,000617: 32,2347           45246                           ABVAL    DSU                                   
038216,000618: 32,2350           31723                                    30480RTE                              
038217,000619: 32,2351           26760                           STOVL    RDESIRED                              
038218,000620: 32,2352           03710                                    V(T2)/                                
038219,000621: 32,2353           36746                           STCALL   VVEC                                  
038220,000622: 32,2354           64272                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
038221,000623: 32,2355           53575                           VLOAD    UNIT                                  
038222,000624: 32,2356           03656                                    R(T2)/                                
038223,000625: 32,2357           53515                           PDVL     UNIT                                  #  UR3                           PL06D
038224,000626: 32,2360           03710                                    V(T2)/                                
038225,000627: 32,2361           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)      PL00D
038226,000628: 32,2362           65336                           ARCSIN   PDDL                                  #  V(T3)                         PL02D
038227,000629: 32,2363           00045                                    36D                                   
038228,000630: 32,2364           51525                           PDDL     ABS                                   
038229,000631: 32,2365           45006                           PUSH     CALL                                  #  /GAMMAE/                      PL04D
038230,000632: 32,2366           64075                                    AUGEKUGL                              #  PHIE                          PL06D
038231,000633: 32,2367           43215                           DAD      DAD                                   
038232,000634: 32,2370           03724                                    T12                                   #  T23
038233,000635: 32,2371           03736                                    T2                                    
038234,000636: 32,2372           14003                           STODL    02D                                   #  T(LS)=T2+T23+TE
038235,000637: 32,2373           00005                                    04D                                   
038236,000638: 32,2374           77756                           SIN                                            
038237,000639: 32,2375           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)            PL04D
038238,000640: 32,2376           77746                           COS                                            
038239,000641: 32,2377           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
038240,000642: 32,2400           53575                           VLOAD    UNIT                                  
038241,000643: 32,2401           03656                                    R(T2)/                                
038242,000644: 32,2402           41406                           PUSH     PUSH                                  
038243,000645: 32,2403           53515                           PDVL     UNIT                                  #                                PL22D
038244,000646: 32,2404           03710                                    V(T2)/                                
038245,000647: 32,2405           47315                           PDVL     VXV                                   
038246,000648: 32,2406           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)     PL10D
038247,000649: 32,2407           63361                           VXSC     PDVL                                  

Page 857

038249,000651: 32,2410           03403                                    LNG(SPL)                              
038250,000652: 32,2411           53361                           VXSC     VAD                                   #                                PL04D
038251,000653: 32,2412           03401                                    LAT(SPL)                              
038252,000654: 32,2413           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
038253,000655: 32,2414           00662                                    ERADFLAG                              
038254,000656: 32,2415           01663                                    LUNAFLAG                              
038255,000657: 32,2416           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
038256,000658: 32,2417           77624                           CALL                                           
038257,000659: 32,2420           26322                                    LAT-LONG                              
038258,000660: 32,2421           77745                           DLOAD                                          
038259,000661: 32,2422           01104                                    LAT                                   
038260,000662: 32,2423           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
038261,000663: 32,2424           01106                                    LONG                                  
038262,000664: 32,2425           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
038263,000665: 32,2426           03762                                    SPRTEX                                
038264,000666: 32,2427                                           COUNT*   $$/RTE                                
038265,000667: 

Page 858

038267,000669:                                                                                                  #  INITIAL VECTOR SUBROUTINE
038268,000670: 
038269,000671:                                                                                                  #  DESCRIPTION
038270,000672:                                                                                                  #        A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED.  PRECOMPUTATIONS OCCUR.
038271,000673: 
038272,000674:                                                                                                  #  CALLING SEQUENCE
038273,000675:                                                                                                  #        L       CALL
038274,000676:                                                                                                  #        L+1             INVC100
038275,000677: 
038276,000678:                                                                                                  #  NORMAL EXIT MODE
038277,000679:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038278,000680: 
038279,000681:                                                                                                  #  ALARM EXIT MODE
038280,000682:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
038281,000683: 
038282,000684:                                                                                                  #  SUBROUTINES CALLED
038283,000685:                                                                                                  #        CSMPREC
038284,000686: 
038285,000687:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038286,000688:                                                                                                  #     PUSHLIST
038287,000689:                                                                                                  #        NONE
038288,000690:                                                                                                  #     MPAC
038289,000691:                                                                                                  #        NONE
038290,000692:                                                                                                  #     OTHER
038291,000693:                                                                                                  #        SPRTETIG        TIME OF IGNITION                                        DP      B28     CS
038292,000694:                                                                                                  #        CSM STATE VECTOR
038293,000695: 
038294,000696:                                                                                                  #  OUTPUT
038295,000697:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
038296,000698:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
038297,000699:                                                                                                  #        T1              INITIAL VECTOR TIME (TIG)                               DP      B28     CS
038298,000700:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038299,000701:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038300,000702:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038301,000703: 
038302,000704: 32,2427           71220        INVC100            STQ      DLOAD                                 
038303,000705: 32,2430           03762                                    SPRTEX                                
038304,000706: 32,2431           03413                                    SPRTETIG                              
038305,000707: 32,2432           34041                           STCALL   TDEC1                                 
038306,000708: 32,2433           27022                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
038307,000709: 32,2434           67175                           VLOAD    SXA,2                                 
038308,000710: 32,2435           00001                                    RATT                                  
038309,000711: 32,2436           03755                                    P(T1)                                 
038310,000712: 32,2437           27640                           STOVL    R(T1)/                                
038311,000713: 32,2440           00007                                    VATT                                  
038312,000714: 32,2441           17672                           STODL    V(T1)/                                
038313,000715: 32,2442           00015                                    TAT                                   
038314,000716: 32,2443           03716                           STORE    T1                                    
038315,000717: 32,2444           53135                           SLOAD    BZE                                   
038316,000718: 32,2445           03756                                    P(T1)                                 

Page 859

038318,000720: 32,2446           64452                                    INVC109                               
038319,000721: 32,2447           52135        INVC107            SLOAD    GOTO                                  
038320,000722: 32,2450           31736                                    OCT612                                
038321,000723: 32,2451           74772                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
038322,000724: 32,2452           53575        INVC109            VLOAD    UNIT                                  
038323,000725: 32,2453           03640                                    R(T1)/                                
038324,000726: 32,2454           17740                           STODL    UR1/                                  #  UR1/                                  B1
038325,000727: 32,2455           00045                                    36D                                   
038326,000728: 32,2456           27646                           STOVL    R(T1)                                 #  R(T1)                                 B29
038327,000729: 32,2457           03672                                    V(T1)/                                
038328,000730: 32,2460           77656                           UNIT                                           
038329,000731: 32,2461           03746                           STORE    UV1/                                  
038330,000732: 32,2462           72441                           DOT      SL1                                   
038331,000733: 32,2463           03740                                    UR1/                                  
038332,000734: 32,2464           03757                           STORE    CFPA                                  #  CFPA                                  B1
038333,000735: 32,2465           45246                           ABS      DSU                                   
038334,000736: 32,2466           31752                                    EPC1RTE                               
038335,000737: 32,2467           71240                           BMN      DLOAD                                 
038336,000738: 32,2470           64477                                    INVC115                               #  NOT NEAR RECTILINEAR
038337,000739: 32,2471           31655                                    1RTEB2                                
038338,000740: 32,2472           41525                           PDDL     PUSH                                  
038339,000741: 32,2473           31677                                    ZERORTE                               
038340,000742: 32,2474           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
038341,000743: 32,2475           77650                           GOTO                                           
038342,000744: 32,2476           64503                                    INVC120                               
038343,000745: 32,2477           47375        INVC115            VLOAD    VXV                                   
038344,000746: 32,2500           03740                                    UR1/                                  
038345,000747: 32,2501           03746                                    UV1/                                  
038346,000748: 32,2502           77606                           PUSH                                           #  N/ = UR X UV                          B2
038347,000749: 32,2503           41545        INVC120            DLOAD    PUSH                                  
038348,000750: 32,2504           77244                           BPL      VLOAD                                 
038349,000751: 32,2505           64507                                    INVC125                               
038350,000752: 32,2506           41476                           VCOMP    PUSH                                  #  CORRECT N/ FOR RETROGRADE TRAJECTORY
038351,000753: 32,2507           77775        INVC125            VLOAD                                          
038352,000754: 32,2510           53435                           VXV      UNIT                                  
038353,000755: 32,2511           03740                                    UR1/                                  
038354,000756: 32,2512           03746                           STORE    UH/                                   #  UH/                                   B1
038355,000757: 32,2513           77650                           GOTO                                           
038356,000758: 32,2514           03762                                    SPRTEX                                
038357,000759: 

Page 860

038359,000761:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038360,000762: 
038361,000763:                                                                                                  #  DESCRIPTION
038362,000764:                                                                                                  #        A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038363,000765:                                                                                                  #        CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038364,000766:                                                                                                  #        AS POSSIBLE.
038365,000767: 
038366,000768:                                                                                                  #  CALLING SEQUENCE
038367,000769:                                                                                                  #        L       CALL
038368,000770:                                                                                                  #        L+1             PREC100
038369,000771: 
038370,000772:                                                                                                  #  NORMAL EXIT MODE
038371,000773:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038372,000774: 
038373,000775:                                                                                                  #  ALARM EXIT MODE
038374,000776:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC =
038375,000777:                                                                                                  #                OCTAL 605       FOR EXCESS ITERATIONS
038376,000778:                                                                                                  #                OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
038377,000779: 
038378,000780:                                                                                                  #  SUBROUTINES CALLED
038379,000781:                                                                                                  #        INTSTALL
038380,000782:                                                                                                  #        RTENCK2
038381,000783:                                                                                                  #        RTENCK3
038382,000784:                                                                                                  #        TIMERAD
038383,000785:                                                                                                  #        PARAM
038384,000786:                                                                                                  #        V2T100
038385,000787: 
038386,000788:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038387,000789:                                                                                                  #     PUSHLIST
038388,000790:                                                                                                  #        NONE
038389,000791:                                                                                                  #     MPAC
038390,000792:                                                                                                  #        NONE
038391,000793:                                                                                                  #     OTHER
038392,000794:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
038393,000795:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038394,000796:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038395,000797:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038396,000798:                                                                                                  #        T12             INITIAL TO FINAL POSITION TIME                          DP      B28     CS
038397,000799:                                                                                                  #        RCON            CONIC FINAL RADIUS                                      DP      B29/B27 METERS
038398,000800:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038399,000801:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038400,000802:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
038401,000803:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038402,000804:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038403,000805:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038404,000806:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038405,000807:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038406,000808:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1
038407,000809:                                                                                                  #        PHI2            PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE

Page 861

038409,000811: 
038410,000812:                                                                                                  #  OUTPUT
038411,000813:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
038412,000814:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038413,000815:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038414,000816:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CENTISECONDS
038415,000817: 
038416,000818:                                                                                                  #  DEBRIS
038417,000819:                                                                                                  #        RD              FINAL R DESIRED                                         DP      B29/B27 METERS
038418,000820:                                                                                                  #        R/APRE          R/A                                                     DP      B6
038419,000821:                                                                                                  #        P/RPRE          P/R                                                     DP      B2
038420,000822:                                                                                                  #        RPRE            MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
038421,000823:                                                                                                  #        X(T2)PRE        COTANGENT OF GAMMA2                                     DP      B0
038422,000824:                                                                                                  #        DT12            CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
038423,000825:                                                                                                  #        RCON            FINAL RADIUS                                            DP      B29/B27 METERS
038424,000826:                                                                                                  #        DRCON           DELTA RCON                                              DP      B29/B27 METERS
038425,000827: 
038426,000828: 32,2515           71220        PREC100            STQ      DLOAD                                 
038427,000829: 32,2516           03762                                    SPRTEX                                
038428,000830: 32,2517           31705                                    10RTE                                 
038429,000831: 32,2520           17730                           STODL    NN1A                                  
038430,000832: 32,2521           03636                                    RCON                                  
038431,000833: 32,2522           03664                           STORE    RD                                    
038432,000834: 32,2523           77745        PREC120            DLOAD                                          
038433,000835: 32,2524           31715                                    2RTEB1                                
038434,000836: 32,2525           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
038435,000837: 32,2526           31703                                    M15RTE                                
038436,000838: 32,2527           37732                           STCALL   NN2                                   
038437,000839: 32,2530           65103                                    RTENCK3                               
038438,000840: 32,2531           77624        PREC125            CALL                                           
038439,000841: 32,2532           11527                                    PARAM                                 
038440,000842: 32,2533           77745                           DLOAD                                          
038441,000843: 32,2534           02742                                    P                                     
038442,000844: 32,2535           14033                           STODL    P/RPRE                                
038443,000845: 32,2536           02744                                    R1A                                   
038444,000846: 32,2537           14035                           STODL    R/APRE                                
038445,000847: 32,2540           00041                                    R1                                    
038446,000848: 32,2541           14031                           STODL    RPRE                                  
038447,000849: 32,2542           03775                                    COGA                                  
038448,000850: 32,2543           77661                           SL                                             
038449,000851: 32,2544           20206                                    5                                     
038450,000852: 32,2545           03724                           STORE    X(T2)PRE                              
038451,000853: 32,2546           43276                           DCOMP    DAD                                   
038452,000854: 32,2547           03726                                    X(T2)                                 
038453,000855: 32,2550           45246                           ABS      DSU                                   
038454,000856: 32,2551           31760                                    EPC4RTE                               
038455,000857: 32,2552           50000                           BOV      BMN                                   
038456,000858: 32,2553           64555                                    PREC130                               
038457,000859: 32,2554           64736                                    PREC175                               
038458,000860: 
038459,000861:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 862

038461,000863: 32,2555           50145        PREC130            DLOAD    BMN                                   
038462,000864: 32,2556           03732                                    NN2                                   
038463,000865: 32,2557           64563                                    PREC140                               
038464,000866: 32,2560           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
038465,000867: 32,2561           31735                                    OCT605                                #        EXIT WITH ALARM
038466,000868: 32,2562           65053                                    PRECX                                 
038467,000869: 
038468,000870:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
038469,000871: 
038470,000872: 32,2563           53145        PREC140            DLOAD    BZE                                   
038471,000873: 32,2564           03730                                    NN1A                                  
038472,000874: 32,2565           64616                                    PREC162                               
038473,000875: 32,2566           42545        PREC150            DLOAD    SL4                                   #  ELLIPTIC CASE
038474,000876: 32,2567           00035                                    R/APRE                                
038475,000877: 32,2570           52525                           PDDL     SL3                                   #                                PL02D
038476,000878: 32,2571           00033                                    P/RPRE                                
038477,000879: 32,2572           41205                           DMP      DMP                                   #  (P/A)BETA1                    B4 PL00D
038478,000880: 32,2573           03754                                    BETA1                                 
038479,000881: 32,2574           57512                           SL2      DCOMP                                 
038480,000882: 32,2575           50015                           DAD      BMN                                   #  1-(P/A)BETA1=BETA2            B2
038481,000883: 32,2576           31655                                    1RTEB2                                
038482,000884: 32,2577           64602                                    PREC155                               
038483,000885: 32,2600           52166                           SQRT     GOTO                                  #  BETA2**.5=BETA3               B1
038484,000886: 32,2601           64604                                    PREC160                               
038485,000887: 32,2602           77745        PREC155            DLOAD                                          
038486,000888: 32,2603           31677                                    ZERORTE                               #  BETA3=0
038487,000889: 32,2604           43205        PREC160            DMP      DAD                                   
038488,000890: 32,2605           03761                                    PHI2                                  
038489,000891: 32,2606           31657                                    1RTEB3                                
038490,000892: 32,2607           60325                           PDDL     NORM                                  #  1+(PHI2)(BETA3)               B3
038491,000893: 32,2610           00035                                    R/APRE                                
038492,000894: 32,2611           00047                                    X1                                    
038493,000895: 32,2612           77665                           BDDV                                           #                                PL00D
038494,000896: 32,2613           52057                           SL*      GOTO                                  #  (1+PHI2*BETA3)/(R/A)=BETA4    B1
038495,000897: 32,2614           20175                                    0          -4,1                       
038496,000898: 32,2615           64624                                    PREC165                               
038497,000899: 32,2616           60345        PREC162            DLOAD    NORM                                  
038498,000900: 32,2617           00031                                    RPRE                                  
038499,000901: 32,2620           00047                                    X1                                    
038500,000902: 32,2621           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                 B1
038501,000903: 32,2622           03664                                    RD                                    
038502,000904: 32,2623           20200                                    0          -1,1                       
038503,000905: 32,2624           45206        PREC165            PUSH     DSU                                   
038504,000906: 32,2625           31653                                    1RTEB1                                
038505,000907: 32,2626           77676                           DCOMP                                          
038506,000908: 32,2627           03765                           STORE    BETA12                                
038507,000909: 32,2630           71240                           BMN      DLOAD                                 
038508,000910: 32,2631           64642                                    PREC168                               
038509,000911: 32,2632           03724                                    X(T2)PRE                              
038510,000912: 32,2633           71240                           BMN      DLOAD                                 

Page 863

038512,000914: 32,2634           64640                                    PREC167                               
038513,000915: 32,2635           03765                                    BETA12                                
038514,000916: 32,2636           77676                           DCOMP                                          
038515,000917: 32,2637           03765                           STORE    BETA12                                
038516,000918: 32,2640           77745        PREC167            DLOAD                                          
038517,000919: 32,2641           03765                                    BETA12                                
038518,000920: 32,2642           45246        PREC168            ABS      DSU                                   
038519,000921: 32,2643           31764                                    EPC6RTE                               
038520,000922: 32,2644           71240                           BMN      DLOAD                                 
038521,000923: 32,2645           64736                                    PREC175                               
038522,000924: 32,2646           72405                           DMP      SL1                                   
038523,000925: 32,2647           00031                                    RPRE                                  
038524,000926: 32,2650           77606                           PUSH                                           #  RF = NEW RADIUS
038525,000927: 32,2651           43345        PREC170            DLOAD    DAD                                   
038526,000928: 32,2652           03732                                    NN2                                   
038527,000929: 32,2653           31675                                    1RTEB28                               
038528,000930: 32,2654           03732                           STORE    NN2                                   
038529,000931: 32,2655           43175                           VLOAD    SET                                   
038530,000932: 32,2656           03656                                    R(T2)/                                
038531,000933: 32,2657           03466                                    RVSW                                  
038532,000934: 32,2660           26657                           STOVL    RVEC                                  
038533,000935: 32,2661           03710                                    V(T2)/                                
038534,000936: 32,2662           77765                           SIGN                                           
038535,000937: 32,2663           03765                                    BETA12                                
038536,000938: 32,2664           16746                           STODL    VVEC                                  
038537,000939: 32,2665           31653                                    1RTEB1                                
038538,000940: 32,2666           57565                           SIGN     DCOMP                                 
038539,000941: 32,2667           03765                                    BETA12                                
038540,000942: 32,2670           71354                           LXA,2    DLOAD                                 
038541,000943: 32,2671           00154                                    MPAC                                  
038542,000944: 32,2672           67140                           LXC,1    SXA,2                                 
038543,000945: 32,2673           03734                                    CONICX1                               
038544,000946: 32,2674           02756                                    SGNRDOT                               
038545,000947: 32,2675           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
038546,000948: 32,2676           25552                                    TIMERAD                               #        NEW RADIUS)
038547,000949: 32,2677           75345                           DLOAD    SIGN                                  
038548,000950: 32,2700           00037                                    T                                     
038549,000951: 32,2701           03765                                    BETA12                                
038550,000952: 32,2702           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21               PL02D
038551,000953: 32,2703           03650                                    DT21PR                                
038552,000954: 32,2704           00047                                    X1                                    
038553,000955: 32,2705           53665                           BDDV     SL*                                   
038554,000956: 32,2706           00001                                    00D                                   
038555,000957: 32,2707           20176                                    0          -3,1                       
038556,000958: 32,2710           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)        B3 PL04D
038557,000959: 32,2711           64716                                    PREC172                               
038558,000960: 32,2712           65345                           DLOAD    PDDL                                  #  BETA14=1                      B0 PL04D
038559,000961: 32,2713           31715                                    2RTEB1                                
038560,000962: 32,2714           77650                           GOTO                                           
038561,000963: 32,2715           64720                                    PREC173                               

Page 864

038563,000965: 32,2716           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                     B0 PL04D
038564,000966: 32,2717           31707                                    M.6RTE                                
038565,000967: 32,2720           45271        PREC173            DDV      DSU                                   
038566,000968: 32,2721           00003                                    02D                                   
038567,000969: 32,2722           31657                                    1RTEB3                                
038568,000970: 32,2723           71240                           BMN      DLOAD                                 
038569,000971: 32,2724           64730                                    PREC174                               
038570,000972: 32,2725           77605                           DMP                                            
038571,000973: 32,2726           03650                                    DT21PR                                
038572,000974: 32,2727           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR           B28
038573,000975: 32,2730           41545        PREC174            DLOAD    PUSH                                  
038574,000976: 32,2731           00001                                    00D                                   
038575,000977: 32,2732           37650                           STCALL   DT21PR                                
038576,000978: 32,2733           65065                                    RTENCK2                               
038577,000979: 32,2734           77650                           GOTO                                           
038578,000980: 32,2735           64531                                    PREC125                               
038579,000981: 32,2736           45345        PREC175            DLOAD    DSU                                   
038580,000982: 32,2737           00031                                    RPRE                                  
038581,000983: 32,2740           03664                                    RD                                    
038582,000984: 32,2741           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
038583,000985: 32,2742           50025                           DSU      BMN                                   
038584,000986: 32,2743           31766                                    EPC7RTE                               
038585,000987: 32,2744           65037                                    PREC220                               
038586,000988: 
038587,000989:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
038588,000990: 
038589,000991: 32,2745           53145                           DLOAD    BZE                                   
038590,000992: 32,2746           03730                                    NN1A                                  
038591,000993: 32,2747           64560                                    PREC132                               #  TOO MANY ITERATIONS
038592,000994: 32,2750           53025                           DSU      BZE                                   
038593,000995: 32,2751           31705                                    10RTE                                 
038594,000996: 32,2752           65005                                    PREC207                               
038595,000997: 32,2753           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
038596,000998: 32,2754           03670                                    RPRE'                                 
038597,000999: 32,2755           00031                                    RPRE                                  #  RPRE,-RPRE                    B29/B27
038598,001000: 32,2756           55301                           NORM     BDDV                                  
038599,001001: 32,2757           00050                                    X2                                    
038600,001002: 32,2760           03666                                    DRCON                                 
038601,001003: 32,2761           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S          B2
038602,001004: 32,2762           57600                                    0          -2,2                       
038603,001005: 32,2763           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
038604,001006: 32,2764           31653                                    1RTEB1                                
038605,001007: 32,2765           64772                                    PREC205M                              
038606,001008: 32,2766           45246                           ABS      DSU                                   
038607,001009: 32,2767           31653                                    1RTEB1                                
038608,001010: 32,2770           77640                           BMN                                            
038609,001011: 32,2771           64775                                    PREC206                               
038610,001012: 32,2772           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
038611,001013: 32,2773           31715                                    2RTEB1                                
038612,001014: 32,2774           77725                           PDDL                                           #  S=-4                          B2

Page 865

038614,001016: 32,2775           41345        PREC206            DLOAD    DMP                                   
038615,001017: 32,2776           77712                           SL2                                            
038616,001018: 32,2777           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                 B29
038617,001019: 32,3000           77615                           DAD                                            
038618,001020: 32,3001           03636                                    RCON                                  
038619,001021: 32,3002           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
038620,001022: 32,3003           77650                           GOTO                                           
038621,001023: 32,3004           65024                                    PREC210                               
038622,001024: 32,3005           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
038623,001025: 32,3006           03664                                    RD                                    
038624,001026: 32,3007           70501                           NORM     SR1                                   
038625,001027: 32,3010           00047                                    X1                                    
038626,001028: 32,3011           60325                           PDDL     NORM                                  
038627,001029: 32,3012           00031                                    RPRE                                  
038628,001030: 32,3013           00050                                    X2                                    
038629,001031: 32,3014           55260                           XSU,1    BDDV                                  
038630,001032: 32,3015           00047                                    X2                                    
038631,001033: 32,3016           77657                           SR*                                            
038632,001034: 32,3017           20600                                    0          -1,1                       
038633,001035: 32,3020           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
038634,001036: 32,3021           77625                           DSU                                            
038635,001037: 32,3022           03664                                    RD                                    
038636,001038: 32,3023           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
038637,001039: 32,3024           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
038638,001040: 32,3025           00031                                    RPRE                                  
038639,001041: 32,3026           17670                           STODL    RPRE'                                 
038640,001042: 32,3027           03730                                    NN1A                                  
038641,001043: 32,3030           77625                           DSU                                            
038642,001044: 32,3031           31675                                    1RTEB28                               
038643,001045: 32,3032           37730                           STCALL   NN1A                                  
038644,001046: 32,3033           65136                                    V2T100                                
038645,001047: 32,3034           52030                           BHIZ     GOTO                                  
038646,001048: 32,3035           64523                                    PREC120                               
038647,001049: 32,3036           65053                                    PRECX                                 
038648,001050: 
038649,001051:                                                                                                  #  DESIRED RADIUS ACHIEVED
038650,001052: 
038651,001053: 32,3037           45345        PREC220            DLOAD    DSU                                   
038652,001054: 32,3040           03726                                    X(T2)                                 
038653,001055: 32,3041           03724                                    X(T2)PRE                              
038654,001056: 32,3042           45246                           ABS      DSU                                   
038655,001057: 32,3043           31770                                    EPC8RTE                               
038656,001058: 32,3044           67240                           BMN      SLOAD                                 
038657,001059: 32,3045           65051                                    PREC225                               
038658,001060: 32,3046           31737                                    OCT613                                
038659,001061: 32,3047           77650                           GOTO                                           
038660,001062: 32,3050           65053                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
038661,001063: 
038662,001064:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED

Page 866

038664,001066: 
038665,001067: 32,3051           77745        PREC225            DLOAD                                          
038666,001068: 32,3052           31677                                    ZERORTE                               
038667,001069: 32,3053           77650        PRECX              GOTO                                           
038668,001070: 32,3054           03762                                    SPRTEX                                
038669,001071: 

Page 867

038671,001073:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
038672,001074: 
038673,001075:                                                                                                  #  DESCRIPTION
038674,001076:                                                                                                  #        PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS.  THERE ARE THREE ENTRANCES (RTENCK1,
038675,001077:                                                                                                  #        RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS.  THERE IS A COMMON SET OF OUTPUT
038676,001078:                                                                                                  #        WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
038677,001079: 
038678,001080:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
038679,001081: 
038680,001082:                                                                                                  #     CALLING SEQUENCE
038681,001083:                                                                                                  #        L       CALL
038682,001084:                                                                                                  #        L+1             RTENCK1
038683,001085: 
038684,001086:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038685,001087:                                                                                                  #        SAME AS FOR THE RTENCK3 ENTRANCE
038686,001088: 
038687,001089:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
038688,001090: 
038689,001091:                                                                                                  #     CALLING SEQUENCE
038690,001092:                                                                                                  #        L       CALL
038691,001093:                                                                                                  #        L+1             RTENCK2
038692,001094: 
038693,001095:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038694,001096:                                                                                                  #        PUSHLIST
038695,001097:                                                                                                  #            PUSHLOC-2   INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
038696,001098:                                                                                                  #        OTHER
038697,001099:                                                                                                  #            R(T2)/      FINAL POSITION VECTOR                                   VECTOR .B29     METERS
038698,001100:                                                                                                  #            V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038699,001101:                                                                                                  #            T2          FINAL TIME                                              DP      B28     CS
038700,001102: 
038701,001103:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
038702,001104: 
038703,001105:                                                                                                  #     CALLING SEQUENCE
038704,001106:                                                                                                  #        L       CALL
038705,001107:                                                                                                  #        L+1             RTENCK3
038706,001108: 
038707,001109:                                                                                                  #     ERASABLE INITIALIZATION REQUIRED
038708,001110:                                                                                                  #        R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038709,001111:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
038710,001112:                                                                                                  #        T1              INITIAL VECTOR TIME                                     DP      B28     CS
038711,001113:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038712,001114: 
038713,001115:                                                                                                  #  EXIT MODE
038714,001116:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
038715,001117: 
038716,001118:                                                                                                  #  SUBROUTINES CALLED
038717,001119:                                                                                                  #        INTSTALL
038718,001120:                                                                                                  #        INTEGRVS
038719,001121: 
038720,001122:                                                                                                  #  OUTPUT
038721,001123:                                                                                                  #     PUSHLIST

Page 868

038723,001125:                                                                                                  #        PUSHLOC-6       FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
038724,001126:                                                                                                  #        X1              CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
038725,001127:                                                                                                  #     MPAC
038726,001128:                                                                                                  #                        FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
038727,001129:                                                                                                  #     OTHER
038728,001130:                                                                                                  #        R(T2)/          AS IN PUSHLIST
038729,001131:                                                                                                  #        V(T2)/          AS IN MPAC
038730,001132:                                                                                                  #        T2              FINAL TIME                                              DP      B28     CS
038731,001133: 
038732,001134: 32,3055           45020        RTENCK1            STQ      CALL                                  
038733,001135: 32,3056           03733                                    RTENCKEX                              
038734,001136: 32,3057           27371                                    INTSTALL                              
038735,001137: 32,3060           43175                           VLOAD    SET                                   
038736,001138: 32,3061           03640                                    R(T1)/                                
038737,001139: 32,3062           01473                                    INTYPFLG                              
038738,001140: 32,3063           77650                           GOTO                                           
038739,001141: 32,3064           65111                                    RTENCK3B                              
038740,001142: 
038741,001143: 32,3065           45020        RTENCK2            STQ      CALL                                  
038742,001144: 32,3066           03733                                    RTENCKEX                              
038743,001145: 32,3067           27371                                    INTSTALL                              
038744,001146: 32,3070           77214                           CLEAR    VLOAD                                 
038745,001147: 32,3071           01673                                    INTYPFLG                              
038746,001148: 32,3072           03656                                    R(T2)/                                
038747,001149: 32,3073           25535                           STOVL    RCV                                   
038748,001150: 32,3074           03710                                    V(T2)/                                
038749,001151: 32,3075           15543                           STODL    VCV                                   
038750,001152: 32,3076           03736                                    T2                                    
038751,001153: 32,3077           01517                           STORE    TET                                   
038752,001154: 32,3100           77615                           DAD                                            
038753,001155: 32,3101           77650                           GOTO                                           
038754,001156: 32,3102           65117                                    RTENCK3D                              
038755,001157: 
038756,001158: 32,3103           45020        RTENCK3            STQ      CALL                                  
038757,001159: 32,3104           03733                                    RTENCKEX                              
038758,001160: 32,3105           27371                                    INTSTALL                              
038759,001161: 32,3106           43175        RTENCK3A           VLOAD    CLEAR                                 
038760,001162: 32,3107           03640                                    R(T1)/                                
038761,001163: 32,3110           01673                                    INTYPFLG                              
038762,001164: 32,3111           25535        RTENCK3B           STOVL    RCV                                   
038763,001165: 32,3112           03700                                    V2(T1)/                               
038764,001166: 32,3113           15543                           STODL    VCV                                   
038765,001167: 32,3114           03716                                    T1                                    
038766,001168: 32,3115           15517                           STODL    TET                                   
038767,001169: 32,3116           03736                                    T2                                    
038768,001170: 32,3117           00041        RTENCK3D           STORE    TDEC1                                 
038769,001171: 32,3120           45014                           CLEAR    CALL                                  

Page 869

038771,001173: 32,3121           00263                                    MOONFLAG                              
038772,001174: 32,3122           27066                                    INTEGRVS                              
038773,001175: 32,3123           77775                           VLOAD                                          
038774,001176: 32,3124           00001                                    RATT                                  
038775,001177: 32,3125           03656                           STORE    R(T2)/                                
038776,001178: 32,3126           70125                           PDDL     LXC,1                                 
038777,001179: 32,3127           00015                                    TAT                                   
038778,001180: 32,3130           03734                                    CONICX1                               
038779,001181: 32,3131           27736                           STOVL    T2                                    
038780,001182: 32,3132           00007                                    VATT                                  
038781,001183: 32,3133           03710                           STORE    V(T2)/                                
038782,001184: 32,3134           77650                           GOTO                                           
038783,001185: 32,3135           03733                                    RTENCKEX                              
038784,001186: 

Page 870

038786,001188:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
038787,001189: 
038788,001190:                                                                                                  #  DESCRIPTION
038789,001191:                                                                                                  #        A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
038790,001192:                                                                                                  #        (1)     MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME      OR
038791,001193:                                                                                                  #        (2)     IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
038792,001194:                                                                                                  #                AND CONSEQUENTLY FUEL.
038793,001195: 
038794,001196:                                                                                                  #  CALLING SEQUENCE
038795,001197:                                                                                                  #        L       CALL
038796,001198:                                                                                                  #        L+1             V2T100
038797,001199: 
038798,001200:                                                                                                  #  NORMAL EXIT MODE
038799,001201:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038800,001202: 
038801,001203:                                                                                                  #  ALARM EXIT MODE
038802,001204:                                                                                                  #        AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038803,001205: 
038804,001206:                                                                                                  #  SUBROUTINES CALLED
038805,001207:                                                                                                  #        GAMDV10
038806,001208:                                                                                                  #        XT1LIM
038807,001209:                                                                                                  #        DVCALC
038808,001210: 
038809,001211:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038810,001212:                                                                                                  #     PUSHLIST
038811,001213:                                                                                                  #        NONE
038812,001214:                                                                                                  #     MPAC
038813,001215:                                                                                                  #        NONE
038814,001216:                                                                                                  #     OTHER
038815,001217:                                                                                                  #        R(T1)           MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
038816,001218:                                                                                                  #        RCON            MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
038817,001219:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038818,001220:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038819,001221:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
038820,001222:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038821,001223:                                                                                                  #        X(T2)           COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
038822,001224:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP      B5
038823,001225:                                                                                                  #        CFPA            COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
038824,001226:                                                                                                  #        MAMAX1          MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038825,001227:                                                                                                  #        MAMAX2          MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
038826,001228:                                                                                                  #        PHI2            REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP      B2      -1 PERIGEE, +1 APOGEE
038827,001229:                                                                                                  #        N1              CONIC OR PRECISION ITERATION COUNTER                    DP      B28     NEGATIVE CONIC, PLUS PREC
038828,001230: 
038829,001231:                                                                                                  #  OUTPUT
038830,001232:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038831,001233:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038832,001234:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
038833,001235:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038834,001236:                                                                                                  #        BETA1           1+X(T2)**2                                              DP      B1

Page 871

038836,001238: 
038837,001239:                                                                                                  #  DEBRIS
038838,001240:                                                                                                  #     PUSHLIST
038839,001241:                                                                                                  #        00D             X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
038840,001242:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
038841,001243:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038842,001244:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038843,001245:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038844,001246:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
038845,001247:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
038846,001248:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
038847,001249:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
038848,001250:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
038849,001251:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
038850,001252: 
038851,001253: 32,3136           77620        V2T100             STQ                                            
038852,001254: 32,3137           00041                                    33D                                   
038853,001255: 32,3140           43001                           SETPD    CLEAR                                 
038854,001256: 32,3141           00001                                    0                                     #                                PL00D
038855,001257: 32,3142           00272                                    F2RTE                                 
038856,001258: 32,3143           60345                           DLOAD    NORM                                  
038857,001259: 32,3144           03636                                    RCON                                  
038858,001260: 32,3145           00047                                    X1                                    
038859,001261: 32,3146           60325                           PDDL     NORM                                  
038860,001262: 32,3147           03646                                    R(T1)                                 
038861,001263: 32,3150           00051                                    S1                                    
038862,001264: 32,3151           00013                           STORE    10D                                   
038863,001265: 32,3152           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA              B1
038864,001266: 32,3153           65260                           XSU,1    PDDL                                  #                                PL02D
038865,001267: 32,3154           00050                                    S1                                    
038866,001268: 32,3155           03726                                    X(T2)                                 
038867,001269: 32,3156           77716                           DSQ                                            
038868,001270: 32,3157           43342                           SR1      DAD                                   
038869,001271: 32,3160           31653                                    1RTEB1                                
038870,001272: 32,3161           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1            B1
038871,001273: 32,3162           77605                           DMP                                            
038872,001274: 32,3163           00001                                    00D                                   
038873,001275: 32,3164           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
038874,001276: 32,3165           53605                           DMP      SL*                                   
038875,001277: 32,3166           00001                                    00D                                   
038876,001278: 32,3167           20172                                    0          -7,1                       
038877,001279: 32,3170           45257                           SL*      DSU                                   
038878,001280: 32,3171           20172                                    0          -7,1                       
038879,001281: 32,3172           31671                                    1RTEB17                               
038880,001282: 32,3173           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1       B17 PL05D
038881,001283: 32,3174           45562                                    TPMODE                                
038882,001284: 32,3175           31653                                    1RTEB1                                
038883,001285: 32,3176           57457                           SR*      DCOMP                                 
038884,001286: 32,3177           20601                                    0,1                                   
038885,001287: 32,3200           41215                           DAD      DMP                                   
038886,001288: 32,3201           00001                                    00D                                   

Page 872

038888,001290: 32,3202           03646                                    R(T1)                                 
038889,001291: 32,3203           47057                           SL*      RTB                                   
038890,001292: 32,3204           20172                                    0          -7D,1                      
038891,001293: 32,3205           45562                                    TPMODE                                
038892,001294: 32,3206           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2     B38/B36 PL08D
038893,001295: 32,3207           33770                                    RTMURTE                               
038894,001296: 32,3210           70501                           NORM     SR1                                   
038895,001297: 32,3211           00050                                    X2                                    
038896,001298: 32,3212           56264                           XSU,2    DDV                                   
038897,001299: 32,3213           00050                                    S1                                    
038898,001300: 32,3214           00013                                    10D                                   
038899,001301: 32,3215           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3           B-4/B-5 PL10D
038900,001302: 32,3216           57170                                    6,2                                   
038901,001303: 32,3217           03652                                    MAMAX1                                
038902,001304: 32,3220           41406                           PUSH     PUSH                                  #  MAMAX1=MA
038903,001305: 32,3221           77624                           CALL                                           
038904,001306: 32,3222           56633                                    XT1LIM                                
038905,001307: 32,3223           41476                           DCOMP    PUSH                                  #  X(T1)MIN                      B5 PL12D
038906,001308: 32,3224           40476                           DCOMP    SR4                                   
038907,001309: 32,3225           41525                           PDDL     PUSH                                  #  DX(T1)MAX                     B5 PL14D
038908,001310: 32,3226           03654                                    MAMAX2                                
038909,001311: 32,3227           45006                           PUSH     CALL                                  
038910,001312: 32,3230           56633                                    XT1LIM                                
038911,001313: 32,3231           50125                           PDDL     BMN                                   #  X(T1)MAX                      B5 PL16D
038912,001314: 32,3232           03730                                    NN1A                                  
038913,001315: 32,3233           65236                                    V2T102                                
038914,001316: 32,3234           77650                           GOTO                                           
038915,001317: 32,3235           65250                                    V2T110                                
038916,001318: 
038917,001319:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
038918,001320: 
038919,001321: 32,3236           77745        V2T102             DLOAD                                          
038920,001322: 32,3237           03632                                    RTEDVD                                
038921,001323: 32,3240           52054                           BZE      GOTO                                  
038922,001324: 32,3241           65243                                    V2T105                                
038923,001325: 32,3242           65344                                    V2T140                                
038924,001326: 32,3243           50145        V2T105             DLOAD    BMN                                   
038925,001327: 32,3244           03757                                    CFPA                                  
038926,001328: 32,3245           65344                                    V2T140                                
038927,001329: 32,3246           77650                           GOTO                                           
038928,001330: 32,3247           65352                                    V2T145                                
038929,001331: 
038930,001332:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
038931,001333:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
038932,001334:                                                                                                  #  THROUGH X(T2)
038933,001335: 
038934,001336: 32,3250           47145        V2T110             DLOAD    RTB                                   
038935,001337: 32,3251           31671                                    1RTEB17                               
038936,001338: 32,3252           45562                                    TPMODE                                
038937,001339: 32,3253           65276                           DCOMP    PDDL                                  #  -1                            B17 PL19D

Page 873

038939,001341: 32,3254           31715                                    2RTEB1                                
038940,001342: 32,3255           45257                           SR*      DSU                                   
038941,001343: 32,3256           20601                                    0,1                                   
038942,001344: 32,3257           00001                                    00D                                   
038943,001345: 32,3260           53605                           DMP      SL*                                   
038944,001346: 32,3261           00035                                    28D                                   
038945,001347: 32,3262           20172                                    0          -7,1                       
038946,001348: 32,3263           76257                           SL*      TAD                                   
038947,001349: 32,3264           20172                                    0          -7,1                       
038948,001350: 32,3265           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6       B17 PL19D
038949,001351: 32,3266           45562                                    TPMODE                                
038950,001352: 32,3267           03722                                    X(T1)                                 
038951,001353: 32,3270           00001                           STORE    00D                                   #  X(T1),,                       B5
038952,001354: 32,3271           77751                           TLOAD                                          #                                PL16D
038953,001355: 32,3272           53040                           BMN      BZE                                   
038954,001356: 32,3273           65300                                    V2T115                                
038955,001357: 32,3274           65300                                    V2T115                                
038956,001358: 32,3275           52061                           SL       GOTO                                  
038957,001359: 32,3276           20210                                    7                                     
038958,001360: 32,3277           65311                                    V2T120                                
038959,001361: 32,3300           50145        V2T115             DLOAD    BMN                                   
038960,001362: 32,3301           03761                                    PHI2                                  
038961,001363: 32,3302           65322                                    V2T125                                
038962,001364: 32,3303           77676                           DCOMP                                          
038963,001365: 32,3304           17761                           STODL    PHI2                                  
038964,001366: 32,3305           31705                                    10RTE                                 
038965,001367: 32,3306           03730                           STORE    NN1A                                  
038966,001368: 32,3307           77650                           GOTO                                           
038967,001369: 32,3310           65322                                    V2T125                                
038968,001370: 32,3311           47166        V2T120             SQRT     RTB                                   
038969,001371: 32,3312           45713                                    DPMODE                                
038970,001372: 32,3313           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM            B5 PL18D
038971,001373: 32,3314           03761                                    PHI2                                  
038972,001374: 32,3315           65330                                    V2T130                                
038973,001375: 32,3316           45545                           DLOAD    STADR                                 #                                PL16D
038974,001376: 32,3317           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
038975,001377: 32,3320           77676                           DCOMP                                          
038976,001378: 32,3321           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
038977,001379: 32,3322           53145        V2T125             DLOAD    BZE                                   
038978,001380: 32,3323           03722                                    X(T1)                                 
038979,001381: 32,3324           65344                                    V2T140                                
038980,001382: 32,3325           52040                           BMN      GOTO                                  
038981,001383: 32,3326           65344                                    V2T140                                
038982,001384: 32,3327           65352                                    V2T145                                
038983,001385: 32,3330           53145        V2T130             DLOAD    BZE                                   
038984,001386: 32,3331           03722                                    X(T1)                                 
038985,001387: 32,3332           65341                                    V2T135                                
038986,001388: 32,3333           71240                           BMN      DLOAD                                 #                                PL16D
038987,001389: 32,3334           65341                                    V2T135                                
038988,001390: 32,3335           77626                           STADR                                          

Page 874

038990,001392: 32,3336           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
038991,001393: 32,3337           77650                           GOTO                                           
038992,001394: 32,3340           65352                                    V2T145                                
038993,001395: 32,3341           57545        V2T135             DLOAD    DCOMP                                 #                                PL16D
038994,001396: 32,3342           77626                           STADR                                          
038995,001397: 32,3343           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
038996,001398: 32,3344           77745        V2T140             DLOAD                                          
038997,001399: 32,3345           00013                                    10D                                   
038998,001400: 32,3346           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
038999,001401: 32,3347           00015                                    12D                                   
039000,001402: 32,3350           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)            PL18D
039001,001403: 32,3351           65357                                    V2T150                                
039002,001404: 32,3352           77745        V2T145             DLOAD                                          
039003,001405: 32,3353           00017                                    14D                                   
039004,001406: 32,3354           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
039005,001407: 32,3355           00015                                    12D                                   
039006,001408: 32,3356           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)           PL18D
039007,001409: 32,3357           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
039008,001410: 32,3360           65500                                    GAMDV10                               
039009,001411: 32,3361           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
039010,001412: 32,3362           03632                                    RTEDVD                                
039011,001413: 32,3363           65476                                    V2T1X                                 
039012,001414: 
039013,001415:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
039014,001416: 
039015,001417: 32,3364           50025                           DSU      BMN                                   
039016,001418: 32,3365           03706                                    DV                                    
039017,001419: 32,3366           65371                                    V2T155                                
039018,001420: 32,3367           77650                           GOTO                                           
039019,001421: 32,3370           65424                                    V2T175                                
039020,001422: 32,3371           50145        V2T155             DLOAD    BMN                                   
039021,001423: 32,3372           03730                                    NN1A                                  
039022,001424: 32,3373           65376                                    V2T160                                
039023,001425: 32,3374           77650                           GOTO                                           
039024,001426: 32,3375           65437                                    V2T185                                
039025,001427: 
039026,001428:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
039027,001429: 
039028,001430: 32,3376           53145        V2T160             DLOAD    BZE                                   
039029,001431: 32,3377           03722                                    X(T1)                                 
039030,001432: 32,3400           65404                                    V2T165                                
039031,001433: 32,3401           52040                           BMN      GOTO                                  
039032,001434: 32,3402           65404                                    V2T165                                
039033,001435: 32,3403           65474                                    V2T300                                
039034,001436: 32,3404           53145        V2T165             DLOAD    BZE                                   
039035,001437: 32,3405           03757                                    CFPA                                  
039036,001438: 32,3406           65474                                    V2T300                                
039037,001439: 32,3407           71240                           BMN      DLOAD                                 
039038,001440: 32,3410           65474                                    V2T300                                
039039,001441: 32,3411           00017                                    14D                                   

Page 875

039041,001443: 32,3412           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
039042,001444: 32,3413           00015                                    12D                                   
039043,001445: 32,3414           77676                           DCOMP                                          
039044,001446: 32,3415           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
039045,001447: 32,3416           65500                                    GAMDV10                               
039046,001448: 32,3417           45345                           DLOAD    DSU                                   
039047,001449: 32,3420           03632                                    RTEDVD                                
039048,001450: 32,3421           03706                                    DV                                    
039049,001451: 32,3422           77640                           BMN                                            
039050,001452: 32,3423           65474                                    V2T300                                
039051,001453: 32,3424           71214        V2T175             SET      DLOAD                                 
039052,001454: 32,3425           00072                                    F2RTE                                 
039053,001455: 32,3426           03722                                    X(T1)                                 
039054,001456: 32,3427           14017                           STODL    14D                                   #  X(T1)=X(T1)MAX
039055,001457: 32,3430           00015                                    12D                                   
039056,001458: 32,3431           77676                           DCOMP                                          
039057,001459: 32,3432           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
039058,001460: 32,3433           65500                                    GAMDV10                               
039059,001461: 32,3434           50145                           DLOAD    BMN                                   
039060,001462: 32,3435           03730                                    NN1A                                  
039061,001463: 32,3436           65474                                    V2T300                                
039062,001464: 
039063,001465:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
039064,001466:                                                                                                  #  PRECISION TRAJECTORY
039065,001467: 
039066,001468: 32,3437           45345        V2T185             DLOAD    DSU                                   
039067,001469: 32,3440           03722                                    X(T1)                                 
039068,001470: 32,3441           00001                                    00D                                   
039069,001471: 32,3442           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
039070,001472: 32,3443           00015                                    12D                                   
039071,001473: 32,3444           44352                           SL1      BDSU                                  
039072,001474: 32,3445           71240                           BMN      DLOAD                                 
039073,001475: 32,3446           65474                                    V2T300                                
039074,001476: 32,3447           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
039075,001477: 32,3450           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
039076,001478: 32,3451           50025                           DSU      BMN                                   
039077,001479: 32,3452           00017                                    14D                                   
039078,001480: 32,3453           65461                                    V2T195                                
039079,001481: 32,3454           77745                           DLOAD                                          
039080,001482: 32,3455           00017                                    14D                                   
039081,001483: 32,3456           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
039082,001484: 32,3457           77650                           GOTO                                           
039083,001485: 32,3460           65472                                    V2T205                                
039084,001486: 32,3461           45345        V2T195             DLOAD    DSU                                   
039085,001487: 32,3462           03722                                    X(T1)                                 
039086,001488: 32,3463           00013                                    10D                                   
039087,001489: 32,3464           52040                           BMN      GOTO                                  
039088,001490: 32,3465           65467                                    V2T200                                
039089,001491: 32,3466           65472                                    V2T205                                
039090,001492: 32,3467           77745        V2T200             DLOAD                                          

Page 876

039092,001494: 32,3470           00013                                    10D                                   
039093,001495: 32,3471           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
039094,001496: 32,3472           77624        V2T205             CALL                                           
039095,001497: 32,3473           65701                                    DVCALC                                
039096,001498: 32,3474           77745        V2T300             DLOAD                                          
039097,001499: 32,3475           31677                                    ZERORTE                               
039098,001500: 32,3476           77650        V2T1X              GOTO                                           
039099,001501: 32,3477           00041                                    33D                                   
039100,001502: 

Page 877

039102,001504:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
039103,001505: 
039104,001506:                                                                                                  #  DESCRIPTION
039105,001507:                                                                                                  #        COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
039106,001508: 
039107,001509:                                                                                                  #  CALLING SEQUENCE
039108,001510:                                                                                                  #        L       CALL
039109,001511:                                                                                                  #        L+1             GAMDV10
039110,001512: 
039111,001513:                                                                                                  #  NORMAL EXIT MODE
039112,001514:                                                                                                  #        AT L+2 OF CALLING SEQUENCE
039113,001515: 
039114,001516:                                                                                                  #  ALARM EXIT MODE
039115,001517:                                                                                                  #        AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039116,001518: 
039117,001519:                                                                                                  #  SUBROUTINES CALLED
039118,001520:                                                                                                  #        DVCALC
039119,001521: 
039120,001522:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
039121,001523:                                                                                                  #     PUSHLIST
039122,001524:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039123,001525:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039124,001526:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039125,001527:                                                                                                  #        10D             X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039126,001528:                                                                                                  #        12D             DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
039127,001529:                                                                                                  #        14D             X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
039128,001530:                                                                                                  #        16D             DX(T1)=ITERATOR INCREMENT                               DP      B5
039129,001531:                                                                                                  #     MPAC
039130,001532:                                                                                                  #        NONE
039131,001533:                                                                                                  #     OTHER
039132,001534:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
039133,001535:                                                                                                  #        RTEDVD          DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
039134,001536:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039135,001537:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039136,001538:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
039137,001539:                                                                                                  #        F2RTE           TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
039138,001540: 
039139,001541:                                                                                                  #  OUTPUT
039140,001542:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039141,001543:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039142,001544:                                                                                                  #        X(T1)           COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
039143,001545:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039144,001546: 
039145,001547:                                                                                                  #  DEBRIS
039146,001548:                                                                                                  #     PUSHLIST
039147,001549:                                                                                                  #        00D             X(T1),,
039148,001550:                                                                                                  #        02D             THETA1
039149,001551:                                                                                                  #        05D             THETA2
039150,001552:                                                                                                  #        08D             THETA3
039151,001553:                                                                                                  #        10D             X(T1)MIN
039152,001554:                                                                                                  #        12D             DX(T1)MAX

Page 878

039154,001556:                                                                                                  #        14D             X(T1)MAX
039155,001557:                                                                                                  #        16D             DX(T1)
039156,001558:                                                                                                  #        22D             DV,=PREVIOUS DV                                         DP      B7/B5
039157,001559:                                                                                                  #        24D             BETA9=X(T1)+1.1DX(T1)                                   DP      B5
039158,001560:                                                                                                  #        31D             GAMDV10 SUBROUTINE RETURN ADDRESS
039159,001561:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039160,001562:                                                                                                  #        33D             V2T100 SUBROUTINE RETURN ADDRESS
039161,001563: 
039162,001564: 32,3500           77620        GAMDV10            STQ                                            
039163,001565: 32,3501           00037                                    31D                                   
039164,001566: 32,3502           45001                           SETPD    CALL                                  
039165,001567: 32,3503           00023                                    18D                                   #                                PL18D
039166,001568: 32,3504           65701                                    DVCALC                                
039167,001569: 32,3505           45345                           DLOAD    DSU                                   
039168,001570: 32,3506           00017                                    14D                                   
039169,001571: 32,3507           00013                                    10D                                   
039170,001572: 32,3510           77600                           BOV                                            
039171,001573: 32,3511           65531                                    GAMDV20                               
039172,001574: 32,3512           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8       B5 PL20D
039173,001575: 32,3513           31772                                    EPC9RTE                               
039174,001576: 32,3514           71240                           BMN      DLOAD                                 
039175,001577: 32,3515           65677                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
039176,001578: 32,3516           00023                                    18D                                   
039177,001579: 32,3517           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
039178,001580: 32,3520           00015                                    12D                                   
039179,001581: 32,3521           65525                                    GAMDV15                               
039180,001582: 32,3522           52001                           SETPD    GOTO                                  #                                PL18D
039181,001583: 32,3523           00023                                    18D                                   
039182,001584: 32,3524           65531                                    GAMDV20                               
039183,001585: 32,3525           77745        GAMDV15            DLOAD                                          #                                PL18D
039184,001586: 32,3526           70565                           SIGN     SR1                                   
039185,001587: 32,3527           00021                                    16D                                   
039186,001588: 32,3530           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
039187,001589: 32,3531           77745        GAMDV20            DLOAD                                          
039188,001590: 32,3532           31701                                    M144RTE                               
039189,001591: 32,3533           03732                           STORE    NN2                                   
039190,001592: 32,3534           43345        GAMDV25            DLOAD    DAD                                   
039191,001593: 32,3535           03732                                    NN2                                   
039192,001594: 32,3536           31675                                    1RTEB28                               
039193,001595: 32,3537           67240                           BMN      SLOAD                                 
039194,001596: 32,3540           65544                                    GAMDV30                               
039195,001597: 32,3541           31735                                    OCT605                                
039196,001598: 32,3542           77650                           GOTO                                           
039197,001599: 32,3543           65476                                    V2T1X                                 
039198,001600: 32,3544           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
039199,001601: 32,3545           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                  B5 PL20D
039200,001602: 32,3546           03722                                    X(T1)                                 
039201,001603: 32,3547           03706                                    DV                                    
039202,001604: 32,3550           43325                           PDDL     DAD                                   #  DV=DV,                        B7/B5 PL22D
039203,001605: 32,3551           03722                                    X(T1)                                 
039204,001606: 32,3552           00021                                    16D                                   

Page 879

039206,001608: 32,3553           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)            B5
039207,001609: 32,3554           65701                                    DVCALC                                
039208,001610: 32,3555           71214                           BON      DLOAD                                 
039209,001611: 32,3556           00312                                    F2RTE                                 
039210,001612: 32,3557           65573                                    GAMDV35                               
039211,001613: 32,3560           03706                                    DV                                    
039212,001614: 32,3561           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
039213,001615: 32,3562           00025                                    20D                                   
039214,001616: 32,3563           65570                                    GAMDV33                               
039215,001617: 32,3564           57545        GAMDV32            DLOAD    DCOMP                                 
039216,001618: 32,3565           00021                                    16D                                   
039217,001619: 32,3566           77742                           SR1                                            
039218,001620: 32,3567           00021                           STORE    16D                                   
039219,001621: 32,3570           52001        GAMDV33            SETPD    GOTO                                  
039220,001622: 32,3571           00023                                    18D                                   #                                PL18D
039221,001623: 32,3572           65636                                    GAMDV50                               
039222,001624: 
039223,001625:                                                                                                  #  TIME CRITICAL MODE
039224,001626: 
039225,001627: 32,3573           45345        GAMDV35            DLOAD    DSU                                   
039226,001628: 32,3574           03632                                    RTEDVD                                
039227,001629: 32,3575           03706                                    DV                                    
039228,001630: 32,3576           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                  B7/B5 PL22D
039229,001631: 32,3577           51545        GAMDV40            DLOAD    ABS                                   #  DV,                           PL24D
039230,001632: 32,3600           00025                                    20D                                   
039231,001633: 32,3601           50025                           DSU      BMN                                   
039232,001634: 32,3602           31774                                    EPC10RTE                              
039233,001635: 32,3603           65677                                    GAMDVX                                
039234,001636: 32,3604           71204        GAMDV45            BOVB     DLOAD                                 
039235,001637: 32,3605           57343                                    TCDANZIG                              #  ASSURE OVFIND IS 0
039236,001638: 32,3606           60221                           BDSU     NORM                                  
039237,001639: 32,3607           03706                                    DV                                    
039238,001640: 32,3610           00050                                    X2                                    
039239,001641: 32,3611           77725                           PDDL                                           #  DV-DV,                        B7/B5-N2 PL22D
039240,001642: 32,3612           70501                           NORM     SR1                                   #  DVERR                         B8/B6-N1
039241,001643: 32,3613           00047                                    X1                                    
039242,001644: 32,3614           65271                           DDV      PDDL                                  #  DVERR/ DV - DV
039243,001645: 32,3615           41221                           BDSU     DMP                                   #                                PL18D
039244,001646: 32,3616           03722                                    X(T1)                                 
039245,001647: 32,3617           77660                           XSU,1                                          
039246,001648: 32,3620           00047                                    X2                                    
039247,001649: 32,3621           00021                           STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
039248,001650: 32,3622           40057                           SR*      BOV                                   
039249,001651: 32,3623           20600                                    0          -1,1                       
039250,001652: 32,3624           65632                                    GAMDV47                               
039251,001653: 32,3625           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
039252,001654: 32,3626           45246                           ABS      DSU                                   
039253,001655: 32,3627           00015                                    12D                                   
039254,001656: 32,3630           77640                           BMN                                            
039255,001657: 32,3631           65636                                    GAMDV50                               

Page 880

039257,001659: 32,3632           75345        GAMDV47            DLOAD    SIGN                                  
039258,001660: 32,3633           00015                                    12D                                   
039259,001661: 32,3634           00021                                    16D                                   
039260,001662: 32,3635           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
039261,001663: 
039262,001664:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
039263,001665: 
039264,001666: 32,3636           41345        GAMDV50            DLOAD    DMP                                   
039265,001667: 32,3637           00021                                    16D                                   
039266,001668: 32,3640           31711                                    1.1RTEB1                              
039267,001669: 32,3641           43352                           SL1      DAD                                   
039268,001670: 32,3642           03722                                    X(T1)                                 
039269,001671: 32,3643           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9         B5
039270,001672: 32,3644           50025                           DSU      BMN                                   
039271,001673: 32,3645           00017                                    14D                                   
039272,001674: 32,3646           65655                                    GAMDV55                               
039273,001675: 32,3647           45345                           DLOAD    DSU                                   
039274,001676: 32,3650           00017                                    14D                                   
039275,001677: 32,3651           03722                                    X(T1)                                 
039276,001678: 32,3652           77742                           SR1                                            
039277,001679: 32,3653           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)     B5
039278,001680: 32,3654           65670                                    GAMDV65                               
039279,001681: 32,3655           45345        GAMDV55            DLOAD    DSU                                   
039280,001682: 32,3656           00031                                    24D                                   
039281,001683: 32,3657           00013                                    10D                                   
039282,001684: 32,3660           52040                           BMN      GOTO                                  
039283,001685: 32,3661           65663                                    GAMDV60                               
039284,001686: 32,3662           65670                                    GAMDV65                               
039285,001687: 32,3663           45345        GAMDV60            DLOAD    DSU                                   
039286,001688: 32,3664           00013                                    10D                                   
039287,001689: 32,3665           03722                                    X(T1)                                 
039288,001690: 32,3666           77742                           SR1                                            
039289,001691: 32,3667           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)     B5
039290,001692: 32,3670           51545        GAMDV65            DLOAD    ABS                                   
039291,001693: 32,3671           00021                                    16D                                   
039292,001694: 32,3672           50025                           DSU      BMN                                   
039293,001695: 32,3673           31772                                    EPC9RTE                               
039294,001696: 32,3674           65677                                    GAMDVX                                
039295,001697: 32,3675           77650                           GOTO                                           
039296,001698: 32,3676           65534                                    GAMDV25                               
039297,001699: 32,3677           77650        GAMDVX             GOTO                                           
039298,001700: 32,3700           00037                                    31D                                   
039299,001701: 

Page 881

039301,001703:                                                                                                  #  DV CALCULATION SUBROUTINE
039302,001704: 
039303,001705:                                                                                                  #  INPUT
039304,001706:                                                                                                  #     PUSHLIST
039305,001707:                                                                                                  #        02D             THETA1=BETA5*LAMBDA-1                                   TP      B17
039306,001708:                                                                                                  #        05D             THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
039307,001709:                                                                                                  #        08D             THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
039308,001710:                                                                                                  #     OTHER
039309,001711:                                                                                                  #        X(T1)           COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
039310,001712:                                                                                                  #        V(T1)/          INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
039311,001713:                                                                                                  #        UR1/            UNIT INITIAL VECTOR                                     VECTOR  B1
039312,001714:                                                                                                  #        UH/             UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039313,001715: 
039314,001716:                                                                                                  #  OUTPUT
039315,001717:                                                                                                  #        V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
039316,001718:                                                                                                  #        DV              INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
039317,001719:                                                                                                  #        PCON            SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
039318,001720: 
039319,001721:                                                                                                  #  DEBRIS
039320,001722:                                                                                                  #        28D             THETA3*PCON**.5                                         DP      B10/B8-N1
039321,001723:                                                                                                  #        C(PUSLOC)       THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
039322,001724:                                                                                                  #        32D             DVCALC SUBROUTINE RETURN ADDRESS
039323,001725:                                                                                                  #        X1              NORMALIZATION FACTOR FOR VALUE IN 28D
039324,001726: 
039325,001727:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
039326,001728: 
039327,001729: 32,3701           71220        DVCALC             STQ      DLOAD                                 
039328,001730: 32,3702           00040                                    32D                                   
039329,001731: 32,3703           03722                                    X(T1)                                 
039330,001732: 32,3704           54316                           DSQ      SR                                    
039331,001733: 32,3705           20610                                    7                                     
039332,001734: 32,3706           76276                           DCOMP    TAD                                   
039333,001735: 32,3707           00003                                    02D                                   
039334,001736: 32,3710           41501                           NORM     PUSH                                  
039335,001737: 32,3711           00047                                    X1                                    
039336,001738: 32,3712           60351                           TLOAD    NORM                                  
039337,001739: 32,3713           00006                                    05D                                   
039338,001740: 32,3714           00050                                    X2                                    
039339,001741: 32,3715           70434                           RTB      SR1                                   
039340,001742: 32,3716           45713                                    DPMODE                                
039341,001743: 32,3717           56264                           XSU,2    DDV                                   
039342,001744: 32,3720           00046                                    X1                                    
039343,001745: 32,3721           77657                           SR*                                            
039344,001746: 32,3722           57170                                    6,2                                   
039345,001747: 32,3723           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
039346,001748: 32,3724           41366                           SQRT     DMP                                   
039347,001749: 32,3725           00011                                    08D                                   
039348,001750: 32,3726           77701                           NORM                                           
039349,001751: 32,3727           00047                                    X1                                    
039350,001752: 32,3730           14035                           STODL    28D                                   #  THETA3*PCON**.5               B10/B8 -N1

Page 882

039352,001754: 32,3731           03722                                    X(T1)                                 
039353,001755: 32,3732           74301                           NORM     VXSC                                  
039354,001756: 32,3733           00050                                    X2                                    
039355,001757: 32,3734           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
039356,001758: 32,3735           74274                           XAD,2    VXSC                                  
039357,001759: 32,3736           00046                                    X1                                    
039358,001760: 32,3737           00035                                    28D                                   
039359,001761: 32,3740           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
039360,001762: 32,3741           57207                                    0          -9D,2                      #                +
039361,001763: 32,3742           03746                                    UH/                                   
039362,001764: 32,3743           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
039363,001765: 32,3744           00035                                    28D                                   
039364,001766: 32,3745           20575                                    0          -4,1                       #                =
039365,001767: 32,3746           45455                           VAD      STADR                                 
039366,001768: 32,3747           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
039367,001769: 32,3750           51451                           VSU      ABVAL                                 
039368,001770: 32,3751           03672                                    V(T1)/                                
039369,001771: 32,3752           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
039370,001772: 32,3753           77650                           GOTO                                           
039371,001773: 32,3754           00040                                    32D                                   
039372,001774: 

Page 883

039374,001776:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039375,001777: 
039376,001778:                                                                                                  #  INPUT
039377,001779:                                                                                                  #     PUSHLIST
039378,001780:                                                                                                  #        PUSHLOC -4      MAJOR AXIS (MA)                                         DP      B30/B28
039379,001781:                                                                                                  #        PUSHLOC -2      MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
039380,001782:                                                                                                  #        28D             BETA5=LAMBDA*BETA1                                      DP      B9
039381,001783:                                                                                                  #     OTHER
039382,001784:                                                                                                  #        RCON                                                                    DP      B29/B27
039383,001785:                                                                                                  #        R(T1)                                                                   DP      B29/B27
039384,001786: 
039385,001787:                                                                                                  #  OUTPUT
039386,001788:                                                                                                  #     MPAC
039387,001789:                                                                                                  #        X(T1)LIM        LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
039388,001790: 
039389,001791:                                                                                                  #  DEBRIS
039390,001792:                                                                                                  #     PUSHLIST
039391,001793:                                                                                                  #        C(PUSHLOC)      MA-RCON                                                 DP      (B30/28)-N1
039392,001794:                                                                                                  #        C(PSHLOC) +2    MA                                                      DP      B30/B28
039393,001795:                                                                                                  #        X1              NORMALIZATION FACTOR FOR MA-RCON
039394,001796:                                                                                                  #        20D             XT1LIM SUBROUTINE RETURN ADDRESS
039395,001797: 
039396,001798:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
039397,001799: 
039398,001800: 27,2000                                           SETLOC   RTE2                                  
039399,001801: 27,2000                                           BANK                                           
039400,001802: 27,2633           71220        XT1LIM             STQ      DLOAD                                 
039401,001803: 27,2634           00024                                    20D                                   
039402,001804: 27,2635           03636                                    RCON                                  
039403,001805: 27,2636           44342                           SR1      BDSU                                  
039404,001806: 27,2637           65301                           NORM     PDDL                                  #  MA-RCON                       B30-N1
039405,001807: 27,2640           00050                                    X2                                    
039406,001808: 27,2641           70525                           PDDL     SR1                                   
039407,001809: 27,2642           03646                                    R(T1)                                 
039408,001810: 27,2643           56221                           BDSU     DDV                                   
039409,001811: 27,2644           41257                           SL*      DMP                                   
039410,001812: 27,2645           57577                                    0          -1,2                       
039411,001813: 27,2646           00035                                    28D                                   
039412,001814: 27,2647           77657                           SL*                                            
039413,001815: 27,2650           20172                                    0          -7,1                       
039414,001816: 27,2651           50025                           DSU      BMN                                   #  (BETA5(MA-R(T1))/(MA-RCON))-1 B10
039415,001817: 27,2652           31663                                    1RTEB10                               
039416,001818: 27,2653           56656                                    XT1LIM5                               
039417,001819: 27,2654           52166                           SQRT     GOTO                                  
039418,001820: 27,2655           56660                                    XT1LIMX                               
039419,001821: 27,2656           77745        XT1LIM5            DLOAD                                          
039420,001822: 27,2657           31677                                    ZERORTE                               
039421,001823: 27,2660           77650        XT1LIMX            GOTO                                           
039422,001824: 27,2661           00024                                    20D                                   
039423,001825: 

Page 884

039425,001827:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
039426,001828: 
039427,001829: 36,3250                                           BANK     36                                    
039428,001830: 34,2000                                           SETLOC   RTECON                                
039429,001831: 34,2000                                           BANK                                           
039430,001832: 
039431,001833: 34,3652           20000 00000  1RTEB1             2DEC     1          B-1                        
039432,001834: 34,3654           10000 00000  1RTEB2             2DEC     1          B-2                        
039433,001835: 34,3656           04000 00000  1RTEB3             2DEC     1          B-3                        
039434,001836: 34,3660           02000 00000  1RTEB4             2DEC     1          B-4                        
039435,001837: 34,3662           00020 00000  1RTEB10            2DEC     1          B-10                       
039436,001838: 34,3664           00004 00000  1RTEB12            2DEC     1          B-12                       
039437,001839: 34,3666           00002 00000  1RTEB13            2DEC     1          B-13                       
039438,001840: 34,3670           00000 04000  1RTEB17            2DEC     1          B-17                       
039439,001841: 34,3672           00000 00010  1RTEB25            2DEC     1          B-25                       
039440,001842: 34,3674           00000 00001  1RTEB28            2DEC     1          B-28                       
039441,001843: 34,3676           00000 00000  ZERORTE            2DEC     0          B-28                       
039442,001844: 34,3700           77777 77557  M144RTE            2DEC     -144       B-28                       
039443,001845: 34,3702           77777 77760  M15RTE             2DEC     -15        B-28                       
039444,001846: 34,3704           00000 00012  10RTE              2DEC     10         B-28                       
039445,001847: 34,3706           54631 63145  M.6RTE             2DEC     -.6                                   
039446,001848: 34,3710           21463 06315  1.1RTEB1           2DEC     1.1        B-1                        
039447,001849: 34,3712           77777 77771  M6RTEB28           2DEC     -6         B-28                       
039448,001850: 34,3714           37777 37777  2RTEB1             2OCT     3777737777                            
039449,001851: 34,3716           77777 77766  M9RTEB28           2DEC     -9         B-28                       
039450,001852: 34,3720           77777 77767  M8RTEB28           2DEC     -8         B-28                       
039451,001853: 34,3722           00000 35610  30480RTE           2DEC     30480      B-29                       
039452,001854: 34,3724           36703 03743  VCSPS              2DEC     30.8811    B-5                        

Page 885

039454,001856: 34,3726           33041 37714  VCRCS              2DEC     27.0664    B-5                        
039455,001857: 34,3730           00003 13241  MDOTRCS            2DEC     .0016375   B-3                        
039456,001858: 34,3732           20000 00000  CSUBT              2DEC     .5                                    
039457,001859: 34,3734           00605        OCT605             OCT      00605                                 
039458,001860: 34,3735           00612        OCT612             OCT      00612                                 
039459,001861: 34,3736           00613        OCT613             OCT      00613                                 
039460,001862: 34,3737           40214 45266  MCOS7.5            2DEC     -.99144486                            
039461,001863: 34,3741           73645 56536  MSIN7.5            2DEC     -.13052619                            
039462,001864: 34,3743           70467 71205  MCOS22.5           2DEC     -.92387953 B-2                        
039463,001865: 34,3745           16525 12525  THETA165           2DEC     .4583333333                            
039464,001866: 34,3747           22525 12525  THETA210           2DEC     .5833333333                            
039465,001867: 34,3751           17775 06676  EPC1RTE            2DEC     .99966     B-1                        
039466,001868: 34,3753           00000 00062  EPC2RTE            2DEC     100        B-29                       
039467,001869: 34,3755           00020 14223  EPC3RTE            2DEC     .001                                  
039468,001870: 34,3757           00000 05174  EPC4RTE            2DEC     .00001                                
039469,001871: 34,3761           00002 21727  EPC5RTE            2DEC     .01        B-6                        
039470,001872: 34,3763           00000 01654  EPC6RTE            2DEC     .000007    B-1                        
039471,001873: 34,3765           00000 00764  EPC7RTE            2DEC     1000       B-29                       
039472,001874: 34,3767           00040 30447  EPC8RTE            2DEC     .002                                  
039473,001875: 34,3771           00000 00010  EPC9RTE            2DEC     1          B-25                       
039474,001876: 34,3773           00000 00322  EPC10RTE           2DEC     .0001      B-7                        
039475,001877: 
039476,001878: 35,3755                                           BANK     35                                    
039477,001879: 35,2000                                           SETLOC   RTECON1                               
039478,001880: 35,2000                                           BANK                                           
039479,001881: 
039480,001882: 35,3755           27657 01000  C4RTE              2DEC     8          E8         B-30            
039481,001883: 35,3757           00325 23740  K1RTE              2DEC     7          E6         B-29            
039482,001884: 35,3761           00306 06614  K2RTE              2DEC     6495000    B-29                       
039483,001885: 35,3763           76027 70156  K3RTE              2DEC     -.06105                               

Page 886

039485,001887: 35,3765           74517 54131  K4RTE              2DEC     -.10453                               
039486,001888: 35,3767           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
039487,001889: 35,3771           00003 27040  E3RTE              2DEC     121920     B-29                       
039488,001890: 

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