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.

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

Page 843

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

Page 844

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

Page 845

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

Page 846

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

Page 847

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

Page 848

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

Page 849

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

Page 850

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

Page 851

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

Page 852

038111,000495: 36,3247           01521        V6N81RTE           VN       0681                                  
038112,000496: 32,2255                                           BANK     32                                    
038113,000497: 32,2000                                           SETLOC   RTE                                   
038114,000498: 32,2000                                           BANK                                           
038115,000499: 32,2255                                           COUNT    32/RTE                                
038116,000500: 

Page 853

038118,000502:                                                                                                  #  ALARM DISPLAY SUBROUTINE
038119,000503: 
038120,000504: 32,2255           77420        P370ALRM           STQ      EXIT                                  
038121,000505: 32,2256           03762                                    SPRTEX                                
038122,000506: 32,2257           30154                           CA       MPAC                                  
038123,000507: 32,2260           05651                           TC       VARALARM                              
038124,000508: 32,2261           32271                           CAF      V5N09RTE                              
038125,000509: 32,2262           04555                           TC       BANKCALL                              
038126,000510: 32,2263           20624                           CADR     GOFLASH                               
038127,000511: 32,2264           14106                           TCF      GOTOPOOH                              
038128,000512: 32,2265           12261                           TCF      -4                                    
038129,000513: 32,2266           06006                           TC       INTPRET                               
038130,000514: 32,2267           77650                           GOTO                                           
038131,000515: 32,2270           03762                                    SPRTEX                                
038132,000516: 32,2271           01211        V5N09RTE           VN       0509                                  
038133,000517: 

Page 854

038135,000519:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
038136,000520: 
038137,000521:                                                                                                  #  INPUT
038138,000522:                                                                                                  #        RVEC            INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
038139,000523:                                                                                                  #        VVEC            INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
038140,000524:                                                                                                  #        RDESIRED        FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
038141,000525:                                                                                                  #        CONICX1         X1 SETTING FOR CONIC SUBROUTINES        -2=EARTH        SP      B14
038142,000526: 
038143,000527:                                                                                                  #  OUTPUT
038144,000528:                                                                                                  #        R(T2)/          FINAL POSITION VECTOR                                   VECTOR  B29     METERS
038145,000529:                                                                                                  #        V(T2)/          FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
038146,000530:                                                                                                  #        T12             TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
038147,000531: 
038148,000532: 32,2272           43020        TMRAD100           STQ      CLEAR                                 
038149,000533: 32,2273           03733                                    RTENCKEX                              
038150,000534: 32,2274           03666                                    RVSW                                  
038151,000535: 32,2275           67164                           AXC,2    SXA,2                                 
038152,000536: 32,2276           20000                           OCT      20000                                 
038153,000537: 32,2277           02756                                    SGNRDOT                               
038154,000538: 32,2300           45140                           LXC,1    CALL                                  
038155,000539: 32,2301           03734                                    CONICX1                               
038156,000540: 32,2302           25552                                    TIMERAD                               
038157,000541: 32,2303           27710                           STOVL    V(T2)/                                #                        PL00D
038158,000542: 32,2304           77626                           STADR                                          
038159,000543: 32,2305           60121                           STODL    R(T2)/                                
038160,000544: 32,2306           00037                                    T                                     
038161,000545: 32,2307           37724                           STCALL   T12                                   
038162,000546: 32,2310           03733                                    RTENCKEX                              
038163,000547: 

Page 855

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

Page 856

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

Page 857

038267,000651: 32,2410           03403                                    LNG(SPL)                              
038268,000652: 32,2411           53361                           VXSC     VAD                                   #                                PL04D
038269,000653: 32,2412           03401                                    LAT(SPL)                              
038270,000654: 32,2413           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
038271,000655: 32,2414           00662                                    ERADFLAG                              
038272,000656: 32,2415           01663                                    LUNAFLAG                              
038273,000657: 32,2416           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
038274,000658: 32,2417           77624                           CALL                                           
038275,000659: 32,2420           26322                                    LAT-LONG                              
038276,000660: 32,2421           77745                           DLOAD                                          
038277,000661: 32,2422           01104                                    LAT                                   
038278,000662: 32,2423           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE  *****
038279,000663: 32,2424           01106                                    LONG                                  
038280,000664: 32,2425           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE *****
038281,000665: 32,2426           03762                                    SPRTEX                                
038282,000666: 32,2427                                           COUNT*   $$/RTE                                
038283,000667: 

Page 858

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

Page 859

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

Page 860

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

Page 861

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

Page 862

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

Page 863

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

Page 864

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

Page 865

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

Page 866

038682,001066: 
038683,001067: 32,3051           77745        PREC225            DLOAD                                          
038684,001068: 32,3052           31677                                    ZERORTE                               
038685,001069: 32,3053           77650        PRECX              GOTO                                           
038686,001070: 32,3054           03762                                    SPRTEX                                
038687,001071: 

Page 867

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

Page 868

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

Page 869

038789,001173: 32,3121           00263                                    MOONFLAG                              
038790,001174: 32,3122           27066                                    INTEGRVS                              
038791,001175: 32,3123           77775                           VLOAD                                          
038792,001176: 32,3124           00001                                    RATT                                  
038793,001177: 32,3125           03656                           STORE    R(T2)/                                
038794,001178: 32,3126           70125                           PDDL     LXC,1                                 
038795,001179: 32,3127           00015                                    TAT                                   
038796,001180: 32,3130           03734                                    CONICX1                               
038797,001181: 32,3131           27736                           STOVL    T2                                    
038798,001182: 32,3132           00007                                    VATT                                  
038799,001183: 32,3133           03710                           STORE    V(T2)/                                
038800,001184: 32,3134           77650                           GOTO                                           
038801,001185: 32,3135           03733                                    RTENCKEX                              
038802,001186: 

Page 870

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

Page 871

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

Page 872

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

Page 873

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

Page 874

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

Page 875

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

Page 876

039110,001494: 32,3470           00013                                    10D                                   
039111,001495: 32,3471           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
039112,001496: 32,3472           77624        V2T205             CALL                                           
039113,001497: 32,3473           65701                                    DVCALC                                
039114,001498: 32,3474           77745        V2T300             DLOAD                                          
039115,001499: 32,3475           31677                                    ZERORTE                               
039116,001500: 32,3476           77650        V2T1X              GOTO                                           
039117,001501: 32,3477           00041                                    33D                                   
039118,001502: 

Page 877

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

Page 878

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

Page 879

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

Page 880

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

Page 881

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

Page 882

039370,001754: 32,3731           03722                                    X(T1)                                 
039371,001755: 32,3732           74301                           NORM     VXSC                                  
039372,001756: 32,3733           00050                                    X2                                    
039373,001757: 32,3734           03740                                    UR1/                                  #  X(T1)*UR1/                    B5+B1 -N2
039374,001758: 32,3735           74274                           XAD,2    VXSC                                  
039375,001759: 32,3736           00046                                    X1                                    
039376,001760: 32,3737           00035                                    28D                                   
039377,001761: 32,3740           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/    B7/B5
039378,001762: 32,3741           57207                                    0          -9D,2                      #                +
039379,001763: 32,3742           03746                                    UH/                                   
039380,001764: 32,3743           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/           B7/B5
039381,001765: 32,3744           00035                                    28D                                   
039382,001766: 32,3745           20575                                    0          -4,1                       #                =
039383,001767: 32,3746           45455                           VAD      STADR                                 
039384,001768: 32,3747           74077                           STORE    V2(T1)/                               #  V2(T1)/                       B7/B5
039385,001769: 32,3750           51451                           VSU      ABVAL                                 
039386,001770: 32,3751           03672                                    V(T1)/                                
039387,001771: 32,3752           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV      B7/B5
039388,001772: 32,3753           77650                           GOTO                                           
039389,001773: 32,3754           00040                                    32D                                   
039390,001774: 

Page 883

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

Page 884

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

Page 885

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

Page 886

039503,001887: 35,3765           74517 54131  K4RTE              2DEC     -.10453                               
039504,001888: 35,3767           30276 05001  RTMURTE            2DEC     199650.501 B-18                       
039505,001889: 35,3771           00003 27040  E3RTE              2DEC     121920     B-29                       
039506,001890: 

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