Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

036657,000002:                                                                                                  ## Copyright:   Public domain.
036658,000003:                                                                                                  ## Filename:    P37,P70.agc
036659,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
036660,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
036661,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
036662,000007:                                                                                                  ## Assembler:   yaYUL
036663,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
036664,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036665,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
036666,000011:                                                                                                  ## Mod history: 2011-03-05 JL   Adapted from corresponding Colossus 249 file.
036667,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
036668,000013:                                                                                                  ##                              and fixed errors found.
036669,000014:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
036670,000015:                                                                                                  ##                              vs Colossus 249.
036671,000016: 

Page 840

036673,000018: 31,3215                                           BANK     31                                    
036674,000019: 36,2000                                           SETLOC   RTE1                                  
036675,000020: 36,2000                                           BANK                                           
036676,000021: 
036677,000022: 36,2502  E7,1631                                  EBANK=   RTEDVD                                
036678,000023: 36,2502                                           COUNT    31/P37                                
036679,000024: 
036680,000025:                                                                                                  #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
036681,000026: 
036682,000027:                                                                                                  #  DESCRIPTION
036683,000028:                                                                                                  #    A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
036684,000029:                                                                                                  #  TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
036685,000030:                                                                                                  #  DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
036686,000031:                                                                                                  #  RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
036687,000032:                                                                                                  #  COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BYSPS PROGRAM (P40) OR RCS PROGRAM (P41).
036688,000033: 
036689,000034:                                                                                                  #  CALLING SEQUENCE
036690,000035:                                                                                                  #    L      TC     P37
036691,000036: 
036692,000037:                                                                                                  #  SUBROUTINES CALLED
036693,000038:                                                                                                  #    PREC100
036694,000039:                                                                                                  #      V2T100
036695,000040:                                                                                                  #      RTENCK2
036696,000041:                                                                                                  #      RTENCK3
036697,000042:                                                                                                  #      TIMERAD
036698,000043:                                                                                                  #      PARAM
036699,000044:                                                                                                  #    V2T100
036700,000045:                                                                                                  #      GAMDV10
036701,000046:                                                                                                  #      XT1LIM
036702,000047:                                                                                                  #      DVCALC
036703,000048:                                                                                                  #    RTENCK1
036704,000049:                                                                                                  #      INTSTALL
036705,000050:                                                                                                  #      INTEGRVS
036706,000051:                                                                                                  #    RTEVN
036707,000052:                                                                                                  #      RTEDISP
036708,000053:                                                                                                  #      TMRAD100
036709,000054:                                                                                                  #      AUGEKUGL
036710,000055:                                                                                                  #      LAT-LONG
036711,000056:                                                                                                  #    TMRAD100
036712,000057:                                                                                                  #      TIMERAD
036713,000058:                                                                                                  #    INVC100
036714,000059:                                                                                                  #      CSMPREC
036715,000060:                                                                                                  #    GETERAD
036716,000061:                                                                                                  #    TIMETHET
036717,000062:                                                                                                  #    P370ALRM
036718,000063:                                                                                                  #    VN1645
036719,000064:                                                                                                  #    POLY
036720,000065: 
036721,000066:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
036722,000067:                                                                                                  #    CSM STATE VECTOR

Page 841

036724,000069:                                                                                                  #    NJETSFLG      NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
036725,000070: 
036726,000071:                                                                                                  #  ASTRONAUT INPUT
036727,000072:                                                                                                  #    SPRTETIG      TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
036728,000073:                                                                                                  #    VPRED         DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
036729,000074:                                                                                                  #    GAMMAEI       DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS  + ABOVE HORIZ.
036730,000075:                                                                                                  #    OPTION2       PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
036731,000076: 
036732,000077:                                                                                                  #  OUTPUT
036733,000078:                                                                                                  #    CONIC OR PRECISION TRAJECTORY DISPLAY
036734,000079:                                                                                                  #      VPRED       VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
036735,000080:                                                                                                  #      T3TOT4      TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
036736,000081:                                                                                                  #      GAMMAEI     FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZON
036737,000082:                                                                                                  #      DELVLVC     INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
036738,000083:                                                                                                  #      LAT(SPL)    LATITUDE OF THE LANDING SITE                            DP      B0      REVS
036739,000084:                                                                                                  #      LNG(SPL)    LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
036740,000085:                                                                                                  #    TARGETING COMPUTATION DISPLAY
036741,000086:                                                                                                  #      TIG         RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
036742,000087:                                                                                                  #      TTOGO       TIME FROM TIG                                           DP      B28     CS
036743,000088:                                                                                                  #      +MGA        POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS  -.02 IF REFSMFLG=0
036744,000089:                                                                                                  #    THRUST PROGRAM COMMUNICATION
036745,000090:                                                                                                  #      XDELVFLG    EXTERNAL DELTA V FLAG                                   STATE FLAG      SET 0 FOR LAMBERT AIMPT
036746,000091:                                                                                                  #      NORMSW      LAMBERT AIMPT ROTATION SWITCH                           STATE FLAG      SET 0 FOR NO ROTATION
036747,000092:                                                                                                  #      ECSTEER     CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
036748,000093:                                                                                                  #      RTARG       CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
036749,000094:                                                                                                  #      TPASS4      REENTRY TIME                                            DP      B28     CS
036750,000095: 
036751,000096: 36,2502           05301        P37                TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
036752,000097: 36,2503           00004                           OCT      4                                     
036753,000098: 
036754,000099: 36,2504           06006                           TC       INTPRET                               
036755,000100: 36,2505           66170                           AXT,1    SXA,1                                 
036756,000101: 36,2506           04000                           OCT      04000                                 
036757,000102: 36,2507           03424                                    ECSTEER                               
036758,000103: 36,2510           77776                           EXIT                                           
036759,000104: 36,2511           33242                           CAF      V6N33RTE                              #  INPUT TIG   STORED IN SPRTETIG
036760,000105: 36,2512           03231                           TCR      P370GOF                               #                 OVERLAYED WITH TIG
036761,000106: 36,2513           12511                           TCF      -2                                    #  DESPLAY NEW DATA
036762,000107: 36,2514           33246                           CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
036763,000108: 36,2515           03205                           TCR      P37GFRB1                              #    AND DESIRED DELTA V IN RTEDVD
036764,000109: 36,2516           12514                           TCF      -2                                    #  DISPLAY NEW DATA
036765,000110: 36,2517           06006        RTE299             TC       INTPRET                               
036766,000111: 36,2520           71331                           SSP      DLOAD                                 
036767,000112: 36,2521           00122                                    OVFIND                                
036768,000113: 36,2522           00000                                    0                                     
036769,000114: 36,2523           03767                                    VPRED                                 
036770,000115: 36,2524           17632                           STODL    RTEDVD                                
036771,000116: 36,2525           03771                                    GAMMAEI                               
036772,000117: 36,2526           17634                           STODL    RTEGAM2D                              
036773,000118: 36,2527           31671                                    1RTEB13                               

Page 842

036775,000120: 36,2530           17735                           STODL    CONICX1                               
036776,000121: 36,2531           33756                                    C4RTE                                 
036777,000122: 36,2532           37652                           STCALL   MAMAX1                                
036778,000123: 36,2533           64423                                    INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
036779,000124: 36,2534           77545                           DLOAD    EXIT                                  
036780,000125: 36,2535           03646                                    R(T1)                                 
036781,000126: 36,2536           07171                           TC       POLY                                  
036782,000127: 36,2537           00002                           DEC      2          B-14                       
036783,000128: 36,2540           02544 35436                     2DEC     181000434.                            
036784,000129: 36,2542           14040 05066                     2DEC     1.50785145                            
036785,000130: 36,2544           44052 60030                     2DEC*    -6.49993057                            
036786,000131: 36,2546           26415 25057                     2DEC*    9.76938926                            
036787,000132: 36,2550           06006                           TC       INTPRET                               
036788,000133: 36,2551           77752                           SL1                                            
036789,000134: 36,2552           17654                           STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
036790,000135: 36,2553           31721                                    M9RTEB28                              
036791,000136: 36,2554           17730                           STODL    NN1A                                  
036792,000137: 36,2555           33762                                    K2RTE                                 
036793,000138: 36,2556           17636        RTE320             STODL    RCON                                  #  RCON=K2
036794,000139: 36,2557           03634                                    RTEGAM2D                              
036795,000140: 36,2560           44254                           BZE      BDSU                                  
036796,000141: 36,2561           74570                                    RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
036797,000142: 36,2562           31657                                    1RTEB2                                
036798,000143: 36,2563           71406                           PUSH     COS                                   #                                     PL02D
036799,000144: 36,2564           73525                           PDDL     SIN                                   
036800,000145: 36,2565           45465                           BDDV     STADR                                 #                                     PL00D
036801,000146: 36,2566           40051                           STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                B0
036802,000147: 36,2567           74603                                    RTE360                                
036803,000148: 36,2570           45345        RTE340             DLOAD    DSU                                   
036804,000149: 36,2571           03646                                    R(T1)                                 
036805,000150: 36,2572           33760                                    K1RTE                                 
036806,000151: 36,2573           71240                           BMN      DLOAD                                 
036807,000152: 36,2574           74600                                    RTE350                                
036808,000153: 36,2575           33766                                    K4RTE                                 
036809,000154: 36,2576           37726                           STCALL   X(T2)                                 #  X(T2)=K4
036810,000155: 36,2577           74603                                    RTE360                                
036811,000156: 36,2600           77745        RTE350             DLOAD                                          
036812,000157: 36,2601           33764                                    K3RTE                                 
036813,000158: 36,2602           03726                           STORE    X(T2)                                 #  X(T2)=K3
036814,000159: 36,2603           77624        RTE360             CALL                                           
036815,000160: 36,2604           65132                                    V2T100                                
036816,000161: 36,2605           52054                           BZE      GOTO                                  
036817,000162: 36,2606           74610                                    RTE367                                
036818,000163: 36,2607           74772                                    RTEALRM                               
036819,000164: 36,2610           77775        RTE367             VLOAD                                          
036820,000165: 36,2611           03640                                    R(T1)/                                

Page 843

036822,000167: 36,2612           16657                           STODL    RVEC                                  
036823,000168: 36,2613           03636                                    RCON                                  
036824,000169: 36,2614           26760                           STOVL    RDESIRED                              
036825,000170: 36,2615           03700                                    V2(T1)/                               
036826,000171: 36,2616           36746                           STCALL   VVEC                                  
036827,000172: 36,2617           64266                                    TMRAD100                              
036828,000173: 36,2620           77615                           DAD                                            
036829,000174: 36,2621           03716                                    T1                                    
036830,000175: 36,2622           17736                           STODL    T2                                    
036831,000176: 36,2623           03634                                    RTEGAM2D                              
036832,000177: 36,2624           52054                           BZE      GOTO                                  
036833,000178: 36,2625           74627                                    RTE369                                
036834,000179: 36,2626           74651                                    RTE372                                
036835,000180: 36,2627           51575        RTE369             VLOAD    ABVAL                                 
036836,000181: 36,2630           03710                                    V(T2)/                                
036837,000182: 36,2631           77776                           EXIT                                           
036838,000183: 36,2632           07171                           TC       POLY                                  
036839,000184: 36,2633           00002                           DEC      2          B-14                       
036840,000185: 36,2634           00000 00000                     2DEC     0          B-28                       
036841,000186: 36,2636           47021 65002                     2DEC     -4.8760771                            
036842,000187: 36,2640           35610 07722                     2DEC     4.5419476                             
036843,000188: 36,2642           63772 63276                     2DEC     -1.4317675                            
036844,000189: 36,2644           06006                           TC       INTPRET                               
036845,000190: 36,2645           77615                           DAD                                            
036846,000191: 36,2646           01352                                    RTED1                                 
036847,000192: 36,2647           52052                           SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
036848,000193: 36,2650           74653                                    RTE373                                
036849,000194: 36,2651           77745        RTE372             DLOAD                                          #  X(T2),=X(T2)
036850,000195: 36,2652           03726                                    X(T2)                                 
036851,000196: 36,2653           41425        RTE373             DSU      PUSH                                  #  X(T2)ERR                        B0 PL02D
036852,000197: 36,2654           03726                                    X(T2)                                 
036853,000198: 36,2655           53575                           VLOAD    UNIT                                  
036854,000199: 36,2656           03656                                    R(T2)/                                #                                 B58
036855,000200: 36,2657           36152                           STCALL   ALPHAV                                
036856,000201: 36,2660           26437                                    GETERAD                               
036857,000202: 36,2661           77615                           DAD                                            
036858,000203: 36,2662           33772                                    E3RTE                                 
036859,000204: 36,2663           45206                           PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
036860,000205: 36,2664           03636                                    RCON                                  
036861,000206: 36,2665           45246                           ABS      DSU                                   
036862,000207: 36,2666           31756                                    EPC2RTE                               
036863,000208: 36,2667           52040                           BMN      GOTO                                  
036864,000209: 36,2670           74672                                    RTE374                                
036865,000210: 36,2671           74677                                    RTE375                                
036866,000211: 36,2672           51545        RTE374             DLOAD    ABS                                   
036867,000212: 36,2673           00001                                    00D                                   

Page 844

036869,000214: 36,2674           50025                           DSU      BMN                                   
036870,000215: 36,2675           31760                                    EPC3RTE                               
036871,000216: 36,2676           74747                                    P37E                                  
036872,000217: 36,2677           43345        RTE375             DLOAD    DAD                                   
036873,000218: 36,2700           03730                                    NN1A                                  
036874,000219: 36,2701           31677                                    1RTEB28                               
036875,000220: 36,2702           67240                           BMN      SLOAD                                 
036876,000221: 36,2703           74707                                    RTE380                                
036877,000222: 36,2704           31737                                    OCT605                                
036878,000223: 36,2705           77650                           GOTO                                           
036879,000224: 36,2706           74772                                    RTEALRM                               #  TOO MANY ITERATIONS
036880,000225: 36,2707           03730        RTE380             STORE    NN1A                                  
036881,000226: 36,2710           53025                           DSU      BZE                                   
036882,000227: 36,2711           31723                                    M8RTEB28                              
036883,000228: 36,2712           74730                                    RTE385                                
036884,000229: 36,2713           45345                           DLOAD    DSU                                   
036885,000230: 36,2714           00001                                    00D                                   
036886,000231: 36,2715           03666                                    DRCON                                 
036887,000232: 36,2716           65301                           NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1              PL06D
036888,000233: 36,2717           00047                                    X1                                    
036889,000234: 36,2720           03670                                    RPRE,                                 
036890,000235: 36,2721           56225                           DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                  PL04D
036891,000236: 36,2722           03726                                    X(T2)                                 
036892,000237: 36,2723           53605                           DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
036893,000238: 36,2724           00001                                    00D                                   
036894,000239: 36,2725           20201                                    0,1                                   
036895,000240: 36,2726           77650                           GOTO                                           
036896,000241: 36,2727           74732                                    RTE390                                
036897,000242: 36,2730           77745        RTE385             DLOAD                                          #  DX(T2)=X(T2)ERR
036898,000243: 36,2731           00001                                    00D                                   
036899,000244: 36,2732           14021        RTE390             STODL    16D                                   #  DX(T2)                             PL02D
036900,000245: 36,2733           77626                           STADR                                          
036901,000246: 36,2734           60141                           STODL    RCON                                  #  RCON=RCON,
036902,000247: 36,2735           77600                           BOV                                            
036903,000248: 36,2736           74603                                    RTE360                                
036904,000249: 36,2737           17666                           STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
036905,000250: 36,2740           03726                                    X(T2)                                 
036906,000251: 36,2741           17670                           STODL    RPRE,                                 #  X(T2)PRI=X(T2)
036907,000252: 36,2742           00021                                    16D                                   
036908,000253: 36,2743           77615                           DAD                                            
036909,000254: 36,2744           03726                                    X(T2)                                 
036910,000255: 36,2745           37726                           STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
036911,000256: 36,2746           74603                                    RTE360                                #  REITERATE
036912,000257: 36,2747           77624        P37E               CALL                                           #  DISPLAY CONIC SOLUTION
036913,000258: 36,2750           74776                                    RTEVN                                 
036914,000259: 36,2751           41345        RTE505             DLOAD    DMP                                   
036915,000260: 36,2752           03720                                    PCON                                  
036916,000261: 36,2753           03754                                    BETA1                                 
036917,000262: 36,2754           53021                           BDSU     BZE                                   
036918,000263: 36,2755           03636                                    RCON                                  

Page 845

036920,000265: 36,2756           74764                                    RTE510                                
036921,000266: 36,2757           71240                           BMN      DLOAD                                 
036922,000267: 36,2760           74764                                    RTE510                                
036923,000268: 36,2761           31657                                    1RTEB2                                
036924,000269: 36,2762           77650                           GOTO                                           #  ENTRY NEAR APOGEE
036925,000270: 36,2763           74766                                    RTE515                                
036926,000271: 36,2764           57545        RTE510             DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
036927,000272: 36,2765           31657                                    1RTEB2                                
036928,000273: 36,2766           37761        RTE515             STCALL   PHI2                                  
036929,000274: 36,2767           64511                                    PREC100                               #  PRECISION TRAJECTORY COMPUTATION
036930,000275: 36,2770           77654        RTE625             BZE                                            
036931,000276: 36,2771           75024                                    P37G                                  
036932,000277: 36,2772           77624        RTEALRM            CALL                                           
036933,000278: 36,2773           64251                                    P370ALRM                              
036934,000279: 36,2774           77776                           EXIT                                           
036935,000280: 36,2775           12502                           TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
036936,000281: 
036937,000282:                                                                                                  #                                        RETURN TO EARTH DISPLAY SUBROUTINE
036938,000283: 
036939,000284: 36,2776           45020        RTEVN              STQ      CALL                                  
036940,000285: 36,2777           03763                                    VNSTORE                               
036941,000286: 36,3000           64305                                    RTEDISP                               #  DISPLAY PREPARATION
036942,000287: 36,3001           77776                           EXIT                                           
036943,000288: 36,3002           33244                           CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
036944,000289: 36,3003           03215                           TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
036945,000290: 36,3004           34710                           CAF      FOUR                                  
036946,000291: 36,3005           03211                           TCR      37BLANK    +1                         
036947,000292: 36,3006           13013                           TCF      +5                                    
036948,000293: 36,3007           12502                           TCF      P37                                   #  RECYCLE
036949,000294: 36,3010           33245                           CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
036950,000295: 36,3011           03231                           TCR      P370GOF                               
036951,000296: 36,3012           12502                           TCF      P37                                   #  RECYCLE
036952,000297: 36,3013           33246                           CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
036953,000298: 36,3014           03205                           TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
036954,000299: 36,3015           12502                           TCF      P37                                   #  RECYCLE
036955,000300: 36,3016           33247                           CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
036956,000301: 36,3017           03231                           TCR      P370GOF                               
036957,000302: 36,3020           12502                           TCF      P37                                   #  RECYCLE
036958,000303: 36,3021           06006                           TCR      INTPRET                               
036959,000304: 36,3022           77650                           GOTO                                           
036960,000305: 36,3023           03763                                    VNSTORE                               
036961,000306: 
036962,000307:                                                                                                  #  PRECISION DISPLAY,TARGETING COMPUTATION AND RTE END PROCESSING
036963,000308: 
036964,000309: 36,3024           77624        P37G               CALL                                           
036965,000310: 36,3025           74776                                    RTEVN                                 
036966,000311: 36,3026           77776                           EXIT                                           
036967,000312: 36,3027           34716        P37N               CAF      SEVEN                                 
036968,000313: 36,3030           55131                           TS       OPTION1                               
036969,000314: 36,3031           34712                           CAF      ONE                                   

Page 846

036971,000316: 36,3032           55132                           TS       OPTION2                               
036972,000317: 36,3033           33243                           CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
036973,000318: 36,3034           03231                           TCR      P370GOF                               
036974,000319: 36,3035           13033                           TCF      -2                                    #  RECYCLE
036975,000320: 36,3036           06006                           TC       INTPRET                               #  PROCEED
036976,000321: 36,3037           67201                           SETPD    SLOAD                                 
036977,000322: 36,3040           00001                                    00D                                   
036978,000323: 36,3041           01133                                    OPTION2                               
036979,000324: 36,3042           53025                           DSU      BZE                                   
036980,000325: 36,3043           31671                                    1RTEB13                               
036981,000326: 36,3044           75053                                    P37Q                                  
036982,000327: 36,3045           60345                           DLOAD    NORM                                  #  SPS
036983,000328: 36,3046           10362                                    MDOTHI                                
036984,000329: 36,3047           00047                                    X1                                    
036985,000330: 36,3050           52125                           PDDL     GOTO                                  
036986,000331: 36,3051           31727                                    VCSPS                                 
036987,000332: 36,3052           75064                                    P37T                                  
036988,000333: 36,3053           43145        P37Q               DLOAD    BON                                   #  RCS
036989,000334: 36,3054           31733                                    MDOTRCS                               
036990,000335: 36,3055           00700                                    NJETSFLG                              
036991,000336: 36,3056           75060                                    P37R                                  
036992,000337: 36,3057           77752                           SL1                                            
036993,000338: 36,3060           77752        P37R               SL1                                            
036994,000339: 36,3061           65301                           NORM     PDDL                                  
036995,000340: 36,3062           00047                                    X1                                    
036996,000341: 36,3063           31731                                    VCRCS                                 
036997,000342: 36,3064           56325        P37T               PDDL     DDV                                   #  DV/VC                  B7 -B5 = B2 PL02D
036998,000343: 36,3065           03706                                    DV                                    
036999,000344: 36,3066           77776                           EXIT                                           
037000,000345: 36,3067           07171                           TC       POLY                                  
037001,000346: 36,3070           00001                           DEC      1          B-14                       
037002,000347: 36,3071           00001 05070                     2DEC     5.66240507                            
037003,000348: 36,3073           17527 36700                     2DEC     9.79487897                            
037004,000349: 36,3075           47114 70670                     2DEC     -.388281955                            
037005,000350: 36,3077           06006                           TC       INTPRET                               
037006,000351: 36,3100           67206                           PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A               B3 PL04D
037007,000352: 36,3101           03076                                    WEIGHT/G                              
037008,000353: 36,3102           56205                           DMP      DDV                                   #  DTB=(M0/MDOT)A       B16+B3-B3=B16 PL00D
037009,000354: 36,3103           41257                           SL*      DMP                                   
037010,000355: 36,3104           20165                                    0          -12D,1                     
037011,000356: 36,3105           31735                                    CSUBT                                 
037012,000357: 36,3106           77621                           BDSU                                           
037013,000358: 36,3107           03716                                    T1                                    
037014,000359: 36,3110           03413                           STORE    TIG                                   #  TIG=T1-CT*DTB                  B28
037015,000360: 36,3111           77776                           EXIT                                           
037016,000361: 36,3112           33242                           CAF      V6N33RTE                              #  DISPLAY BIASED TIG
037017,000362: 36,3113           03231                           TCR      P370GOF                               

Page 847

037019,000364: 36,3114           13112                           TCF      -2                                    
037020,000365: 36,3115           34714                           CAF      ZERO                                  
037021,000366: 36,3116           55125                           TS       VHFCNT                                
037022,000367: 36,3117           55126                           TS       TRKMKCNT                              
037023,000368: 36,3120           06006                           TC       INTPRET                               
037024,000369: 36,3121           77624                           CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
037025,000370: 36,3122           65051                                    RTENCK1                               
037026,000371: 36,3123           53575                           VLOAD    UNIT                                  #                                     PL00D
037027,000372: 36,3124           03656                                    R(T2)/                                
037028,000373: 36,3125           74315                           PDVL     VXSC                                  #  UR2                             B1 PL06D
037029,000374: 36,3126           03740                                    UR1/                                  
037030,000375: 36,3127           31742                                    MCOS7.5                               
037031,000376: 36,3130           74315                           PDVL     VXSC                                  #  -UR1(COS7.5)                    B1 PL12D
037032,000377: 36,3131           03746                                    UH/                                   
037033,000378: 36,3132           31744                                    MSIN7.5                               
037034,000379: 36,3133           50255                           VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)      B2 PL00D
037035,000380: 36,3134           50015                           DAD      BMN                                   
037036,000381: 36,3135           31746                                    MCOS22.5                              
037037,000382: 36,3136           75163                                    P37W                                  
037038,000383: 36,3137           50375                           VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
037039,000384: 36,3140           03746                                    UH/                                   
037040,000385: 36,3141           03656                                    R(T2)/                                
037041,000386: 36,3142           71240                           BMN      DLOAD                                 
037042,000387: 36,3143           75147                                    P37U                                  
037043,000388: 36,3144           31750                                    THETA165                              
037044,000389: 36,3145           52006                           PUSH     GOTO                                  
037045,000390: 36,3146           75151                                    P37V                                  
037046,000391: 36,3147           41545        P37U               DLOAD    PUSH                                  
037047,000392: 36,3150           31752                                    THETA210                              
037048,000393: 36,3151           77756        P37V               SIN                                            
037049,000394: 36,3152           16732                           STODL    SNTH                                  
037050,000395: 36,3153           43146                           COS      CLEAR                                 
037051,000396: 36,3154           03666                                    RVSW                                  
037052,000397: 36,3155           26734                           STOVL    CSTH                                  
037053,000398: 36,3156           03640                                    R(T1)/                                
037054,000399: 36,3157           26657                           STOVL    RVEC                                  
037055,000400: 36,3160           03700                                    V2(T1)/                               
037056,000401: 36,3161           36746                           STCALL   VVEC                                  
037057,000402: 36,3162           24737                                    TIMETHET                              
037058,000403: 36,3163           43014        P37W               CLEAR    CLEAR                                 
037059,000404: 36,3164           01267                                    XDELVFLG                              
037060,000405: 36,3165           03665                                    NORMSW                                
037061,000406: 36,3166           77214                           SET      VLOAD                                 
037062,000407: 36,3167           01071                                    FINALFLG                              
037063,000408: 36,3170           77626                           STADR                                          
037064,000409: 36,3171           60362                           STODL    RTARG                                 
037065,000410: 36,3172           00037                                    T                                     
037066,000411: 36,3173           77615                           DAD                                            
037067,000412: 36,3174           03716                                    T1                                    
037068,000413: 36,3175           27656                           STOVL    TPASS4                                

Page 848

037070,000415: 36,3176           03700                                    V2(T1)/                               
037071,000416: 36,3177           77651                           VSU                                            
037072,000417: 36,3200           03672                                    V(T1)/                                
037073,000418: 36,3201           37646                           STCALL   DELVSIN                               
037074,000419: 36,3202           73005                                    VN1645                                
037075,000420: 36,3203           77650                           GOTO                                           
037076,000421: 36,3204           75163                                    P37W                                  
037077,000422: 
037078,000423:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
037079,000424: 
037080,000425: 36,3205           00006        P37GFRB1           EXTEND                                         
037081,000426: 36,3206           23762                           QXCH     SPRTEX                                
037082,000427: 36,3207           03215                           TCR      P370GOFR                              
037083,000428: 36,3210           34712        37BLANK            CAF      ONE                                   
037084,000429: 36,3211           05415                           TCR      BLANKET                               
037085,000430: 36,3212           15112                           TCF      ENDOFJOB                              
037086,000431: 36,3213           01762                           TC       SPRTEX                                #  RECYCLE
037087,000432: 36,3214           13240                           TCF      P37PROC                               #  PROCEED
037088,000433: 
037089,000434:                                                                                                  #  SUBROUTINE TO GO TO GOFLASHR
037090,000435: 
037091,000436: 36,3215           00006        P370GOFR           EXTEND                                         
037092,000437: 36,3216           23733                           QXCH     RTENCKEX                              
037093,000438: 36,3217           04555                           TCR      BANKCALL                              
037094,000439: 36,3220           20763                           CADR     GOFLASHR                              
037095,000440: 36,3221           14106                           TCF      GOTOPOOH                              #  TERMINATE
037096,000441: 36,3222           13225                           TCF      +3                                    
037097,000442: 36,3223           13227                           TCF      +4                                    
037098,000443: 36,3224           01733                           TC       RTENCKEX                              #  IMMEDIATE RETURN
037099,000444: 36,3225           51733                           INDEX    RTENCKEX                              #  PROCEED
037100,000445: 36,3226           10004                           TCF      0          +4                         
037101,000446: 36,3227           51733                           INDEX    RTENCKEX                              #  RECYCLE
037102,000447: 36,3230           10003                           TCF      0          +3                         
037103,000448: 
037104,000449:                                                                                                  #  SUBROUTINE TO GO TO GOFLASH
037105,000450: 
037106,000451: 36,3231           00006        P370GOF            EXTEND                                         
037107,000452: 36,3232           23762                           QXCH     SPRTEX                                
037108,000453: 36,3233           04555                           TCR      BANKCALL                              
037109,000454: 36,3234           20624                           CADR     GOFLASH                               
037110,000455: 36,3235           14106                           TCF      GOTOPOOH                              
037111,000456: 36,3236           13240                           TCF      +2                                    
037112,000457: 36,3237           01762                           TC       SPRTEX                                
037113,000458: 36,3240           51762        P37PROC            INDEX    SPRTEX                                
037114,000459: 36,3241           10001                           TCF      0          +1                         
037115,000460: 36,3242           01441        V6N33RTE           VN       0633                                  
037116,000461: 36,3243           01006        V4N06RTE           VN       0406                                  
037117,000462: 36,3244           01475        V6N61RTE           VN       0661                                  
037118,000463: 36,3245           01447        V6N39RTE           VN       0639                                  
037119,000464: 36,3246           01474        V6N60RTE           VN       0660                                  

Page 849

037121,000466: 36,3247           01521        V6N81RTE           VN       0681                                  
037122,000467: 32,2251                                           BANK     32                                    
037123,000468: 32,2000                                           SETLOC   RTE                                   
037124,000469: 32,2000                                           BANK                                           
037125,000470: 32,2251                                           COUNT    32/RTE                                
037126,000471: 

Page 850

037128,000473:                                                                                                  #  ALARM DISPLAY SUBROUTINE
037129,000474: 32,2251           77420        P370ALRM           STQ      EXIT                                  
037130,000475: 32,2252           03762                                    SPRTEX                                
037131,000476: 32,2253           30154                           CA       MPAC                                  
037132,000477: 32,2254           05653                           TC       VARALARM                              
037133,000478: 32,2255           32265                           CAF      V5N09RTE                              
037134,000479: 32,2256           04555                           TC       BANKCALL                              
037135,000480: 32,2257           20624                           CADR     GOFLASH                               
037136,000481: 32,2260           14106                           TCF      GOTOPOOH                              
037137,000482: 32,2261           12255                           TCF      -4                                    
037138,000483: 32,2262           06006                           TC       INTPRET                               
037139,000484: 32,2263           77650                           GOTO                                           
037140,000485: 32,2264           03762                                    SPRTEX                                
037141,000486: 32,2265           01211        V5N09RTE           VN       0509                                  
037142,000487: 

Page 851

037144,000489:                                                                                                  #  TIME RADIUS CALLING SUBROUTINE
037145,000490: 
037146,000491:                                                                                                  #  INPUT
037147,000492:                                                                                                  #    RVEC          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
037148,000493:                                                                                                  #    VVEC          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
037149,000494:                                                                                                  #    RDESIRED      FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
037150,000495:                                                                                                  #    CONICX1       X1 SETTING FOR CONIC SUBROUTINES  -2 = EARTH            SP      B14
037151,000496:                                                                                                  #  OUTPUT
037152,000497:                                                                                                  #    R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037153,000498:                                                                                                  #    V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037154,000499:                                                                                                  #    T12           TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
037155,000500: 
037156,000501: 32,2266           43020        TMRAD100           STQ      CLEAR                                 
037157,000502: 32,2267           03733                                    RTENCKEX                              
037158,000503: 32,2270           03666                                    RVSW                                  
037159,000504: 32,2271           67164                           AXC,2    SXA,2                                 
037160,000505: 32,2272           20000                           OCT      20000                                 
037161,000506: 32,2273           02756                                    SGNRDOT                               
037162,000507: 32,2274           45140                           LXC,1    CALL                                  
037163,000508: 32,2275           03734                                    CONICX1                               
037164,000509: 32,2276           25552                                    TIMERAD                               
037165,000510: 32,2277           27710                           STOVL    V(T2)/                                #                                     PL00D
037166,000511: 32,2300           77626                           STADR                                          
037167,000512: 32,2301           60121                           STODL    R(T2)/                                
037168,000513: 32,2302           00037                                    T                                     
037169,000514: 32,2303           37724                           STCALL   T12                                   
037170,000515: 32,2304           03733                                    RTENCKEX                              
037171,000516: 

Page 852

037173,000518:                                                                                                  #  DISPLAY CALCULATION SUBROUTINE
037174,000519: 
037175,000520:                                                                                                  #  DESCRIPTION
037176,000521:                                                                                                  #    OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
037177,000522:                                                                                                  #  COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
037178,000523: 
037179,000524:                                                                                                  #  CALLING SEQUENCE
037180,000525:                                                                                                  #    L      CALL
037181,000526:                                                                                                  #    L+1           RTEDISP
037182,000527: 
037183,000528:                                                                                                  #  SUBROUTINES CALLED
037184,000529:                                                                                                  #    TMRAD100
037185,000530:                                                                                                  #    AUGEKUGL
037186,000531:                                                                                                  #    LAT-LONG
037187,000532: 
037188,000533:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037189,000534:                                                                                                  #    PUSHLIST
037190,000535:                                                                                                  #      NONE
037191,000536:                                                                                                  #    MPAC
037192,000537:                                                                                                  #      NONE
037193,000538:                                                                                                  #    OTHER
037194,000539:                                                                                                  #      R(T2)/      FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037195,000540:                                                                                                  #      V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037196,000541:                                                                                                  #      T2          FINAL TIME                                              DP      B28     CS
037197,000542:                                                                                                  #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
037198,000543:                                                                                                  #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
037199,000544:                                                                                                  #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
037200,000545:                                                                                                  #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037201,000546: 
037202,000547:                                                                                                  #  OUTPUT
037203,000548:                                                                                                  #      VPRED       VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037204,000549:                                                                                                  #      T3TOT4      TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037205,000550:                                                                                                  #      GAMMAEI     FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZ
037206,000551:                                                                                                  #      DELVLVC     INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037207,000552:                                                                                                  #      LAT(SPL)    LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037208,000553:                                                                                                  #      LNG(SPL)    LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037209,000554: 
037210,000555: 32,2305           77220        RTEDISP            STQ      VLOAD                                 #  DISPLAY
037211,000556: 32,2306           03762                                    SPRTEX                                
037212,000557: 32,2307           03710                                    V(T2)/                                
037213,000558: 32,2310           65256                           UNIT     PDDL                                  
037214,000559: 32,2311           00045                                    36D                                   
037215,000560: 32,2312           17767                           STODL    VPRED                                 #  V(T2)
037216,000561: 32,2313           03736                                    T2                                    
037217,000562: 32,2314           77625                           DSU                                            
037218,000563: 32,2315           03413                                    SPRTETIG                              
037219,000564: 32,2316           26641                           STOVL    T3TOT4                                #  T21
037220,000565: 32,2317           03656                                    R(T2)/                                
037221,000566: 32,2320           50256                           UNIT     DOT                                   
037222,000567: 32,2321           77752                           SL1                                            

Page 853

037224,000569: 32,2322           44326                           ARCCOS   BDSU                                  
037225,000570: 32,2323           31657                                    1RTEB2                                
037226,000571: 32,2324           27771                           STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
037227,000572: 32,2325           03700                                    V2(T1)/                               
037228,000573: 32,2326           41451                           VSU      PUSH                                  
037229,000574: 32,2327           03672                                    V(T1)/                                
037230,000575: 32,2330           57441                           DOT      DCOMP                                 
037231,000576: 32,2331           03740                                    UR1/                                  
037232,000577: 32,2332           41515                           PDVL     PUSH                                  
037233,000578: 32,2333           63345                           DLOAD    PDVL                                  
037234,000579: 32,2334           31701                                    ZERORTE                               
037235,000580: 32,2335           55441                           DOT      VDEF                                  
037236,000581: 32,2336           03746                                    UH/                                   
037237,000582: 32,2337           77772                           VSL1                                           
037238,000583: 32,2340           27405                           STOVL    DELVLVC                               #  DV/ (LVC)
037239,000584: 32,2341           03656                                    R(T2)/                                
037240,000585: 32,2342           02657                           STORE    RVEC                                  #  *****  LANDING SITE COMPUTATION  *****
037241,000586: 32,2343           45246                           ABVAL    DSU                                   
037242,000587: 32,2344           31725                                    30480RTE                              
037243,000588: 32,2345           26760                           STOVL    RDESIRED                              
037244,000589: 32,2346           03710                                    V(T2)/                                
037245,000590: 32,2347           36746                           STCALL   VVEC                                  
037246,000591: 32,2350           64266                                    TMRAD100                              #  R3,V3,T23 FROM TIMERAD
037247,000592: 32,2351           53575                           VLOAD    UNIT                                  
037248,000593: 32,2352           03656                                    R(T2)/                                
037249,000594: 32,2353           53515                           PDVL     UNIT                                  #  UR3                                PL06D
037250,000595: 32,2354           03710                                    V(T2)/                                
037251,000596: 32,2355           72441                           DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)           PL00D
037252,000597: 32,2356           65336                           ARCSIN   PDDL                                  #  V(T3)                              PL02D
037253,000598: 32,2357           00045                                    36D                                   
037254,000599: 32,2360           51525                           PDDL     ABS                                   
037255,000600: 32,2361           45006                           PUSH     CALL                                  #  /GAMMAE/                           PL04D
037256,000601: 32,2362           64071                                    AUGEKUGL                              #  PHIE                               PL06D
037257,000602: 32,2363           43215                           DAD      DAD                                   
037258,000603: 32,2364           03724                                    T12                                   #  T23
037259,000604: 32,2365           03736                                    T2                                    
037260,000605: 32,2366           14003                           STODL    02D                                   #  T(LS)=T2+T23+TE
037261,000606: 32,2367           00005                                    04D                                   
037262,000607: 32,2370           77756                           SIN                                            
037263,000608: 32,2371           17403                           STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                 PL04D
037264,000609: 32,2372           77746                           COS                                            
037265,000610: 32,2373           03401                           STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
037266,000611: 32,2374           53575                           VLOAD    UNIT                                  
037267,000612: 32,2375           03656                                    R(T2)/                                
037268,000613: 32,2376           41406                           PUSH     PUSH                                  
037269,000614: 32,2377           53515                           PDVL     UNIT                                  #                                     PL22D
037270,000615: 32,2400           03710                                    V(T2)/                                
037271,000616: 32,2401           47315                           PDVL     VXV                                   
037272,000617: 32,2402           53435                           VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)          PL10D
037273,000618: 32,2403           63361                           VXSC     PDVL                                  

Page 854

037275,000620: 32,2404           03403                                    LNG(SPL)                              
037276,000621: 32,2405           53361                           VXSC     VAD                                   #                                     PL04D
037277,000622: 32,2406           03401                                    LAT(SPL)                              
037278,000623: 32,2407           43014                           CLEAR    CLEAR                                 #  T(LS) IN MPAC
037279,000624: 32,2410           00662                                    ERADFLAG                              
037280,000625: 32,2411           01663                                    LUNAFLAG                              
037281,000626: 32,2412           16152                           STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)   PL02D
037282,000627: 32,2413           77624                           CALL                                           
037283,000628: 32,2414           26322                                    LAT-LONG                              
037284,000629: 32,2415           77745                           DLOAD                                          
037285,000630: 32,2416           01104                                    LAT                                   
037286,000631: 32,2417           17401                           STODL    LAT(SPL)                              #  LATITUDE LANDING SITE   *****
037287,000632: 32,2420           01106                                    LONG                                  
037288,000633: 32,2421           37403                           STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE  *****
037289,000634: 32,2422           03762                                    SPRTEX                                
037290,000635: 32,2423                                           COUNT*   $$/RTE                                
037291,000636: 

Page 855

037293,000638:                                                                                                  #  INITIAL VECTOR SUBROUTINE
037294,000639: 
037295,000640:                                                                                                  #  DESCRIPTION
037296,000641:                                                                                                  #    A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION ISPERFORMED.PRECOMPUTATIONS OCCUR.
037297,000642: 
037298,000643:                                                                                                  #  CALLING SEQUENCE
037299,000644:                                                                                                  #    L      CALL
037300,000645:                                                                                                  #    L+1           INVC100
037301,000646: 
037302,000647:                                                                                                  #  NORMAL EXIT MODE
037303,000648:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037304,000649: 
037305,000650:                                                                                                  #  ALARM EXIT MODE
037306,000651:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
037307,000652: 
037308,000653:                                                                                                  #  SUBROUTINES CALLED
037309,000654:                                                                                                  #    CSMPREC
037310,000655: 
037311,000656:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037312,000657:                                                                                                  #    PUSHLIST
037313,000658:                                                                                                  #      NONE
037314,000659:                                                                                                  #    MPAC
037315,000660:                                                                                                  #      NONE
037316,000661:                                                                                                  #    OTHER
037317,000662:                                                                                                  #      SPRTETIG    TIME OF IGNITION                                        DP      B28     CS
037318,000663:                                                                                                  #      CSM STATE VECTOR
037319,000664: 
037320,000665:                                                                                                  #  OUTPUT
037321,000666:                                                                                                  #    R(T1)/        INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
037322,000667:                                                                                                  #    V(T1)/        INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
037323,000668:                                                                                                  #    T1            INITIAL VECTOR TIME (TIG)                               DP      B28     CS
037324,000669:                                                                                                  #    UR1/          UNIT INITIAL VECTOR                                     VECTOR  B1
037325,000670:                                                                                                  #    UH/           UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037326,000671:                                                                                                  #    CFPA          COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
037327,000672: 
037328,000673: 32,2423           71220        INVC100            STQ      DLOAD                                 
037329,000674: 32,2424           03762                                    SPRTEX                                
037330,000675: 32,2425           03413                                    SPRTETIG                              
037331,000676: 32,2426           34041                           STCALL   TDEC1                                 
037332,000677: 32,2427           27022                                    CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
037333,000678: 32,2430           67175                           VLOAD    SXA,2                                 
037334,000679: 32,2431           00001                                    RATT                                  
037335,000680: 32,2432           03755                                    P(T1)                                 
037336,000681: 32,2433           27640                           STOVL    R(T1)/                                
037337,000682: 32,2434           00007                                    VATT                                  
037338,000683: 32,2435           17672                           STODL    V(T1)/                                
037339,000684: 32,2436           00015                                    TAT                                   
037340,000685: 32,2437           03716                           STORE    T1                                    
037341,000686: 32,2440           53135                           SLOAD    BZE                                   
037342,000687: 32,2441           03756                                    P(T1)                                 

Page 856

037344,000689: 32,2442           64446                                    INVC109                               
037345,000690: 32,2443           52135        INVC107            SLOAD    GOTO                                  
037346,000691: 32,2444           31740                                    OCT612                                
037347,000692: 32,2445           74772                                    RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037348,000693: 32,2446           53575        INVC109            VLOAD    UNIT                                  
037349,000694: 32,2447           03640                                    R(T1)/                                
037350,000695: 32,2450           17740                           STODL    UR1/                                  #  UR1/                           B1
037351,000696: 32,2451           00045                                    36D                                   
037352,000697: 32,2452           27646                           STOVL    R(T1)                                 #  R(T1)                         B29
037353,000698: 32,2453           03672                                    V(T1)/                                
037354,000699: 32,2454           77656                           UNIT                                           
037355,000700: 32,2455           03746                           STORE    UV1/                                  
037356,000701: 32,2456           72441                           DOT      SL1                                   
037357,000702: 32,2457           03740                                    UR1/                                  
037358,000703: 32,2460           03757                           STORE    CFPA                                  #  CFPA                            B1
037359,000704: 32,2461           45246                           ABS      DSU                                   
037360,000705: 32,2462           31754                                    EPC1RTE                               
037361,000706: 32,2463           71240                           BMN      DLOAD                                 
037362,000707: 32,2464           64473                                    INVC115                               #  NOT NEAR RECTILINEAR
037363,000708: 32,2465           31657                                    1RTEB2                                
037364,000709: 32,2466           41525                           PDDL     PUSH                                  
037365,000710: 32,2467           31701                                    ZERORTE                               
037366,000711: 32,2470           41466                           VDEF     PUSH                                  #  N/ = (0,0,1)
037367,000712: 32,2471           77650                           GOTO                                           
037368,000713: 32,2472           64477                                    INVC120                               
037369,000714: 32,2473           47375        INVC115            VLOAD    VXV                                   
037370,000715: 32,2474           03740                                    UR1/                                  
037371,000716: 32,2475           03746                                    UV1/                                  
037372,000717: 32,2476           77606                           PUSH                                           #  N/ = UR X UV                    B2
037373,000718: 32,2477           41545        INVC120            DLOAD    PUSH                                  
037374,000719: 32,2500           77244                           BPL      VLOAD                                 
037375,000720: 32,2501           64503                                    INVC125                               
037376,000721: 32,2502           41476                           VCOMP    PUSH                                  #  CORRECT N/ FOR RETROGRADE TRAJECTORY
037377,000722: 32,2503           77775        INVC125            VLOAD                                          
037378,000723: 32,2504           53435                           VXV      UNIT                                  
037379,000724: 32,2505           03740                                    UR1/                                  
037380,000725: 32,2506           03746                           STORE    UH/                                   #  UH/                             B1
037381,000726: 32,2507           77650                           GOTO                                           
037382,000727: 32,2510           03762                                    SPRTEX                                
037383,000728: 

Page 857

037385,000730:                                                                                                  #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
037386,000731: 
037387,000732:                                                                                                  #  DESCRIPTION
037388,000733:                                                                                                  #    A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
037389,000734:                                                                                                  #  CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
037390,000735:                                                                                                  #  AS POSSIBLE.
037391,000736: 
037392,000737:                                                                                                  #  CALLING SEQUENCE
037393,000738:                                                                                                  #    L      CALL
037394,000739:                                                                                                  #    L+1           PREC100
037395,000740: 
037396,000741:                                                                                                  #  NORMAL EXIT MODE
037397,000742:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037398,000743: 
037399,000744:                                                                                                  #  ALARM EXIT MODE
037400,000745:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC =
037401,000746:                                                                                                  #         OCTAL 605        FOR EXCESS ITERATIONS
037402,000747:                                                                                                  #         OCTAL 613        FOR REENTRY ANGLE OUT OF LIMITS
037403,000748: 
037404,000749:                                                                                                  #  SUBROUTINES CALLED
037405,000750:                                                                                                  #    INTSTALL
037406,000751:                                                                                                  #    RTENCK2
037407,000752:                                                                                                  #    RTENCK3
037408,000753:                                                                                                  #    TIMERAD
037409,000754:                                                                                                  #    PARAM
037410,000755:                                                                                                  #    V2T100
037411,000756: 
037412,000757:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037413,000758:                                                                                                  #    PUSHLIST
037414,000759:                                                                                                  #      NONE
037415,000760:                                                                                                  #    MPAC
037416,000761:                                                                                                  #      NONE
037417,000762:                                                                                                  #    OTHER
037418,000763:                                                                                                  #      R(T1)/      INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
037419,000764:                                                                                                  #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
037420,000765:                                                                                                  #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
037421,000766:                                                                                                  #      T1          INITIAL VECTOR TIME                                     DP      B28     CS
037422,000767:                                                                                                  #      T12         INITIAL TO FINAL POSITION TIME                          DP      B28     CS
037423,000768:                                                                                                  #      RCON        CONIC FINAL RADIUS                                      DP      B29/B27 METERS
037424,000769:                                                                                                  #      R(T1)       MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
037425,000770:                                                                                                  #      X(T2)       COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
037426,000771:                                                                                                  #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
037427,000772:                                                                                                  #      RTEDVD      DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
037428,000773:                                                                                                  #      MAMAX1      MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
037429,000774:                                                                                                  #      MAMAX2      MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
037430,000775:                                                                                                  #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
037431,000776:                                                                                                  #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037432,000777:                                                                                                  #      BETA1       1+X(T2)**2                                              DP      B1
037433,000778:                                                                                                  #      PHI2        PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE,+1 APOGEE
037434,000779: 

Page 858

037436,000781:                                                                                                  #  OUTPUT
037437,000782:                                                                                                  #    V2(T1)/       POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
037438,000783:                                                                                                  #    R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037439,000784:                                                                                                  #    V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037440,000785:                                                                                                  #    T2            FINAL TIME                                              DP      B28     CENTISECONDS
037441,000786: 
037442,000787:                                                                                                  #  DEBRIS
037443,000788:                                                                                                  #    RD            FINAL R DESIRED                                         DP      B29/B27 METERS
037444,000789:                                                                                                  #    R/APRE        R/A                                                     DP      B6
037445,000790:                                                                                                  #    P/RPRE        P/R                                                     DP      B2
037446,000791:                                                                                                  #    RPRE          MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
037447,000792:                                                                                                  #    X(T2)PRE      COTANGENT OF GAMMA2                                     DP      B0
037448,000793:                                                                                                  #    DT12          CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
037449,000794:                                                                                                  #    RCON          FINAL RADIUS                                            DP      B29/B27 METERS
037450,000795:                                                                                                  #    DRCON         DELTA RCON                                              DP      B29/B27 METERS
037451,000796: 
037452,000797: 32,2511           71220        PREC100            STQ      DLOAD                                 
037453,000798: 32,2512           03762                                    SPRTEX                                
037454,000799: 32,2513           31707                                    10RTE                                 
037455,000800: 32,2514           17730                           STODL    NN1A                                  
037456,000801: 32,2515           03636                                    RCON                                  
037457,000802: 32,2516           03664                           STORE    RD                                    
037458,000803: 32,2517           77745        PREC120            DLOAD                                          
037459,000804: 32,2520           31717                                    2RTEB1                                
037460,000805: 32,2521           17650                           STODL    DT21PR                                #  DT21PR = POSMAX
037461,000806: 32,2522           31705                                    M15RTE                                
037462,000807: 32,2523           37732                           STCALL   NN2                                   
037463,000808: 32,2524           65077                                    RTENCK3                               
037464,000809: 32,2525           77624        PREC125            CALL                                           
037465,000810: 32,2526           11524                                    PARAM                                 
037466,000811: 32,2527           77745                           DLOAD                                          
037467,000812: 32,2530           02742                                    P                                     
037468,000813: 32,2531           14033                           STODL    P/RPRE                                
037469,000814: 32,2532           02744                                    R1A                                   
037470,000815: 32,2533           14035                           STODL    R/APRE                                
037471,000816: 32,2534           00041                                    R1                                    
037472,000817: 32,2535           14031                           STODL    RPRE                                  
037473,000818: 32,2536           03775                                    COGA                                  
037474,000819: 32,2537           77661                           SL                                             
037475,000820: 32,2540           20206                                    5                                     
037476,000821: 32,2541           03724                           STORE    X(T2)PRE                              
037477,000822: 32,2542           43276                           DCOMP    DAD                                   
037478,000823: 32,2543           03726                                    X(T2)                                 
037479,000824: 32,2544           45246                           ABS      DSU                                   
037480,000825: 32,2545           31762                                    EPC4RTE                               
037481,000826: 32,2546           50000                           BOV      BMN                                   
037482,000827: 32,2547           64551                                    PREC130                               
037483,000828: 32,2550           64732                                    PREC175                               
037484,000829: 
037485,000830:                                                                                                  #  DESIRED REENTRY ANGLE NOT ACHIEVED

Page 859

037487,000832: 32,2551           50145        PREC130            DLOAD    BMN                                   
037488,000833: 32,2552           03732                                    NN2                                   
037489,000834: 32,2553           64557                                    PREC140                               
037490,000835: 32,2554           52135        PREC132            SLOAD    GOTO                                  #  TOO MANY ITERATIONS
037491,000836: 32,2555           31737                                    OCT605                                #      EXIT WITH ALARM
037492,000837: 32,2556           65047                                    PRECX                                 
037493,000838: 
037494,000839:                                                                                                  #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
037495,000840: 
037496,000841: 32,2557           53145        PREC140            DLOAD    BZE                                   
037497,000842: 32,2560           03730                                    NN1A                                  
037498,000843: 32,2561           64612                                    PREC162                               
037499,000844: 32,2562           42545        PREC150            DLOAD    SL4                                   #  ELLIPTIC CASE
037500,000845: 32,2563           00035                                    R/APRE                                
037501,000846: 32,2564           52525                           PDDL     SL3                                   #                                     PL02D
037502,000847: 32,2565           00033                                    P/RPRE                                
037503,000848: 32,2566           41205                           DMP      DMP                                   #  (P/A)BETA1                      B4 PL00D
037504,000849: 32,2567           03754                                    BETA1                                 
037505,000850: 32,2570           57512                           SL2      DCOMP                                 
037506,000851: 32,2571           50015                           DAD      BMN                                   #  1-(P/A)BETA1=BETA2              B2
037507,000852: 32,2572           31657                                    1RTEB2                                
037508,000853: 32,2573           64576                                    PREC155                               
037509,000854: 32,2574           52166                           SQRT     GOTO                                  #  BETA2**.5=BETA3                 B1
037510,000855: 32,2575           64600                                    PREC160                               
037511,000856: 32,2576           77745        PREC155            DLOAD                                          
037512,000857: 32,2577           31701                                    ZERORTE                               #  BETA3=0
037513,000858: 32,2600           43205        PREC160            DMP      DAD                                   
037514,000859: 32,2601           03761                                    PHI2                                  
037515,000860: 32,2602           31661                                    1RTEB3                                
037516,000861: 32,2603           60325                           PDDL     NORM                                  #  1+(PHI2)(BETA3)                 B3
037517,000862: 32,2604           00035                                    R/APRE                                
037518,000863: 32,2605           00047                                    X1                                    
037519,000864: 32,2606           77665                           BDDV                                           #                                     PL00D
037520,000865: 32,2607           52057                           SL*      GOTO                                  #  (1+PHI2*BETA3)/(R/A)=BETA4      B1
037521,000866: 32,2610           20175                                    0          -4,1                       
037522,000867: 32,2611           64620                                    PREC165                               
037523,000868: 32,2612           60345        PREC162            DLOAD    NORM                                  
037524,000869: 32,2613           00031                                    RPRE                                  
037525,000870: 32,2614           00047                                    X1                                    
037526,000871: 32,2615           53665                           BDDV     SL*                                   #  BETA4=RD/RPRE                   B1
037527,000872: 32,2616           03664                                    RD                                    
037528,000873: 32,2617           20200                                    0          -1,1                       
037529,000874: 32,2620           45206        PREC165            PUSH     DSU                                   
037530,000875: 32,2621           31655                                    1RTEB1                                
037531,000876: 32,2622           77676                           DCOMP                                          
037532,000877: 32,2623           03765                           STORE    BETA12                                
037533,000878: 32,2624           71240                           BMN      DLOAD                                 
037534,000879: 32,2625           64636                                    PREC168                               
037535,000880: 32,2626           03724                                    X(T2)PRE                              
037536,000881: 32,2627           71240                           BMN      DLOAD                                 

Page 860

037538,000883: 32,2630           64634                                    PREC167                               
037539,000884: 32,2631           03765                                    BETA12                                
037540,000885: 32,2632           77676                           DCOMP                                          
037541,000886: 32,2633           03765                           STORE    BETA12                                
037542,000887: 32,2634           77745        PREC167            DLOAD                                          
037543,000888: 32,2635           03765                                    BETA12                                
037544,000889: 32,2636           45246        PREC168            ABS      DSU                                   
037545,000890: 32,2637           31766                                    EPC6RTE                               
037546,000891: 32,2640           71240                           BMN      DLOAD                                 
037547,000892: 32,2641           64732                                    PREC175                               
037548,000893: 32,2642           72405                           DMP      SL1                                   
037549,000894: 32,2643           00031                                    RPRE                                  
037550,000895: 32,2644           77606                           PUSH                                           #  RF = NEW RADIUS
037551,000896: 32,2645           43345        PREC170            DLOAD    DAD                                   
037552,000897: 32,2646           03732                                    NN2                                   
037553,000898: 32,2647           31677                                    1RTEB28                               
037554,000899: 32,2650           03732                           STORE    NN2                                   
037555,000900: 32,2651           43175                           VLOAD    SET                                   
037556,000901: 32,2652           03656                                    R(T2)/                                
037557,000902: 32,2653           03466                                    RVSW                                  
037558,000903: 32,2654           26657                           STOVL    RVEC                                  
037559,000904: 32,2655           03710                                    V(T2)/                                
037560,000905: 32,2656           77765                           SIGN                                           
037561,000906: 32,2657           03765                                    BETA12                                
037562,000907: 32,2660           16746                           STODL    VVEC                                  
037563,000908: 32,2661           31655                                    1RTEB1                                
037564,000909: 32,2662           57565                           SIGN     DCOMP                                 
037565,000910: 32,2663           03765                                    BETA12                                
037566,000911: 32,2664           71354                           LXA,2    DLOAD                                 
037567,000912: 32,2665           00154                                    MPAC                                  
037568,000913: 32,2666           67140                           LXC,1    SXA,2                                 
037569,000914: 32,2667           03734                                    CONICX1                               
037570,000915: 32,2670           02756                                    SGNRDOT                               
037571,000916: 32,2671           36760                           STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
037572,000917: 32,2672           25552                                    TIMERAD                               #        NEW RADIUS)
037573,000918: 32,2673           75345                           DLOAD    SIGN                                  
037574,000919: 32,2674           00037                                    T                                     
037575,000920: 32,2675           03765                                    BETA12                                
037576,000921: 32,2676           60325                           PDDL     NORM                                  #  DT21=(PHI4)DT21                    PL02D
037577,000922: 32,2677           03650                                    DT21PR                                
037578,000923: 32,2700           00047                                    X1                                    
037579,000924: 32,2701           53665                           BDDV     SL*                                   
037580,000925: 32,2702           00001                                    00D                                   
037581,000926: 32,2703           20176                                    0          -3,1                       
037582,000927: 32,2704           50006                           PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)          B3 PL04D
037583,000928: 32,2705           64712                                    PREC172                               
037584,000929: 32,2706           65345                           DLOAD    PDDL                                  #  BETA14=1                        B0 PL04D
037585,000930: 32,2707           31717                                    2RTEB1                                
037586,000931: 32,2710           77650                           GOTO                                           
037587,000932: 32,2711           64714                                    PREC173                               

Page 861

037589,000934: 32,2712           65345        PREC172            DLOAD    PDDL                                  #  BETA14=.6                       B0 PL04D
037590,000935: 32,2713           31711                                    M.6RTE                                
037591,000936: 32,2714           45271        PREC173            DDV      DSU                                   
037592,000937: 32,2715           00003                                    02D                                   
037593,000938: 32,2716           31661                                    1RTEB3                                
037594,000939: 32,2717           71240                           BMN      DLOAD                                 
037595,000940: 32,2720           64724                                    PREC174                               
037596,000941: 32,2721           77605                           DMP                                            
037597,000942: 32,2722           03650                                    DT21PR                                
037598,000943: 32,2723           00001                           STORE    00D                                   #  DT21=(BETA14)DT21PR             B28
037599,000944: 32,2724           41545        PREC174            DLOAD    PUSH                                  
037600,000945: 32,2725           00001                                    00D                                   
037601,000946: 32,2726           37650                           STCALL   DT21PR                                
037602,000947: 32,2727           65061                                    RTENCK2                               
037603,000948: 32,2730           77650                           GOTO                                           
037604,000949: 32,2731           64525                                    PREC125                               
037605,000950: 32,2732           45345        PREC175            DLOAD    DSU                                   
037606,000951: 32,2733           00031                                    RPRE                                  
037607,000952: 32,2734           03664                                    RD                                    
037608,000953: 32,2735           51406                           PUSH     ABS                                   #  RPRE-RD = RERR
037609,000954: 32,2736           50025                           DSU      BMN                                   
037610,000955: 32,2737           31770                                    EPC7RTE                               
037611,000956: 32,2740           65033                                    PREC220                               
037612,000957: 
037613,000958:                                                                                                  #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
037614,000959: 
037615,000960: 32,2741           53145                           DLOAD    BZE                                   
037616,000961: 32,2742           03730                                    NN1A                                  
037617,000962: 32,2743           64554                                    PREC132                               #  TOO MANY ITERATIONS
037618,000963: 32,2744           53025                           DSU      BZE                                   
037619,000964: 32,2745           31707                                    10RTE                                 
037620,000965: 32,2746           65001                                    PREC207                               
037621,000966: 32,2747           45345        PREC205            DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
037622,000967: 32,2750           03670                                    RPRE,                                 
037623,000968: 32,2751           00031                                    RPRE                                  #  RPRE,-RPRE                 B29/B27
037624,000969: 32,2752           55301                           NORM     BDDV                                  
037625,000970: 32,2753           00050                                    X2                                    
037626,000971: 32,2754           03666                                    DRCON                                 
037627,000972: 32,2755           41457                           SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S            B2
037628,000973: 32,2756           57600                                    0          -2,2                       
037629,000974: 32,2757           40015                           DAD      BOV                                   #  S GR +4 OR LS -4
037630,000975: 32,2760           31655                                    1RTEB1                                
037631,000976: 32,2761           64766                                    PREC205M                              
037632,000977: 32,2762           45246                           ABS      DSU                                   
037633,000978: 32,2763           31655                                    1RTEB1                                
037634,000979: 32,2764           77640                           BMN                                            
037635,000980: 32,2765           64771                                    PREC206                               
037636,000981: 32,2766           57545        PREC205M           DLOAD    DCOMP                                 #  S GR 0 OR LS -4
037637,000982: 32,2767           31717                                    2RTEB1                                
037638,000983: 32,2770           77725                           PDDL                                           #  S=-4                            B2

Page 862

037640,000985: 32,2771           41345        PREC206            DLOAD    DMP                                   
037641,000986: 32,2772           77712                           SL2                                            
037642,000987: 32,2773           03666                           STORE    DRCON                                 #  DRCON=S(RERR)                  B29
037643,000988: 32,2774           77615                           DAD                                            
037644,000989: 32,2775           03636                                    RCON                                  
037645,000990: 32,2776           03636                           STORE    RCON                                  #  RCON+DRCON=RCON
037646,000991: 32,2777           77650                           GOTO                                           
037647,000992: 32,3000           65020                                    PREC210                               
037648,000993: 32,3001           63545        PREC207            DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
037649,000994: 32,3002           03664                                    RD                                    
037650,000995: 32,3003           70501                           NORM     SR1                                   
037651,000996: 32,3004           00047                                    X1                                    
037652,000997: 32,3005           60325                           PDDL     NORM                                  
037653,000998: 32,3006           00031                                    RPRE                                  
037654,000999: 32,3007           00050                                    X2                                    
037655,001000: 32,3010           55260                           XSU,1    BDDV                                  
037656,001001: 32,3011           00047                                    X2                                    
037657,001002: 32,3012           77657                           SR*                                            
037658,001003: 32,3013           20600                                    0          -1,1                       
037659,001004: 32,3014           03636                           STORE    RCON                                  #  RD**2/RPRE=RCON
037660,001005: 32,3015           77625                           DSU                                            
037661,001006: 32,3016           03664                                    RD                                    
037662,001007: 32,3017           03666                           STORE    DRCON                                 #  RCON-RD=DRCON
037663,001008: 32,3020           77745        PREC210            DLOAD                                          #  PREPARE FOR NEXT ITERATION
037664,001009: 32,3021           00031                                    RPRE                                  
037665,001010: 32,3022           17670                           STODL    RPRE,                                 
037666,001011: 32,3023           03730                                    NN1A                                  
037667,001012: 32,3024           77625                           DSU                                            
037668,001013: 32,3025           31677                                    1RTEB28                               
037669,001014: 32,3026           37730                           STCALL   NN1A                                  
037670,001015: 32,3027           65132                                    V2T100                                
037671,001016: 32,3030           52030                           BHIZ     GOTO                                  
037672,001017: 32,3031           64517                                    PREC120                               
037673,001018: 32,3032           65047                                    PRECX                                 
037674,001019: 
037675,001020:                                                                                                  #  DESIRED RADIUS ACHIEVED
037676,001021: 
037677,001022: 32,3033           45345        PREC220            DLOAD    DSU                                   
037678,001023: 32,3034           03726                                    X(T2)                                 
037679,001024: 32,3035           03724                                    X(T2)PRE                              
037680,001025: 32,3036           45246                           ABS      DSU                                   
037681,001026: 32,3037           31772                                    EPC8RTE                               
037682,001027: 32,3040           67240                           BMN      SLOAD                                 
037683,001028: 32,3041           65045                                    PREC225                               
037684,001029: 32,3042           31741                                    OCT613                                
037685,001030: 32,3043           77650                           GOTO                                           
037686,001031: 32,3044           65047                                    PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
037687,001032: 
037688,001033:                                                                                                  #  DESIRED FINAL ANGLE HAS BEEN REACHED
037689,001034: 

Page 863

037691,001036: 32,3045           77745        PREC225            DLOAD                                          
037692,001037: 32,3046           31701                                    ZERORTE                               
037693,001038: 32,3047           77650        PRECX              GOTO                                           
037694,001039: 32,3050           03762                                    SPRTEX                                
037695,001040: 

Page 864

037697,001042:                                                                                                  #  INTEGRATION CALLING SUBROUTINE
037698,001043: 
037699,001044:                                                                                                  #  DESCRIPTION
037700,001045:                                                                                                  #    PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
037701,001046:                                                                                                  #  RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
037702,001047:                                                                                                  #  WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
037703,001048: 
037704,001049:                                                                                                  #  RTENCK1 (CONIC INTEGRATION)
037705,001050: 
037706,001051:                                                                                                  #    CALLING SEQUENCE
037707,001052:                                                                                                  #      L    CALL
037708,001053:                                                                                                  #      L+1         RTENCK1
037709,001054: 
037710,001055:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
037711,001056:                                                                                                  #      SAME AS FOR THE RTENCK3 ENTRANCE
037712,001057: 
037713,001058:                                                                                                  #  RTENCK2 (PRECISION INTEGRATION)
037714,001059: 
037715,001060:                                                                                                  #    CALLING SEQUENCE
037716,001061:                                                                                                  #      L    CALL
037717,001062:                                                                                                  #      L+1         RTENCK2
037718,001063: 
037719,001064:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
037720,001065:                                                                                                  #      PUSHLIST
037721,001066:                                                                                                  #        PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
037722,001067:                                                                                                  #      OTHER
037723,001068:                                                                                                  #        R(T2)/    FINAL POSITION VECTOR                                   VECTOR .B29     METERS
037724,001069:                                                                                                  #        V(T2)/    FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037725,001070:                                                                                                  #        T2        FINAL TIME                                              DP      B28     CS
037726,001071: 
037727,001072:                                                                                                  #  RTENCK3 (PRECISION INTEGRATION)
037728,001073: 
037729,001074:                                                                                                  #    CALLING SEQUENCE
037730,001075:                                                                                                  #      L    CALL
037731,001076:                                                                                                  #      L+1         RTENCK3
037732,001077: 
037733,001078:                                                                                                  #    ERASABLE INITIALIZATION REQUIRED
037734,001079:                                                                                                  #        R(T1)/    INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
037735,001080:                                                                                                  #        V2(T1)/   POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
037736,001081:                                                                                                  #        T1        INITIAL VECTOR TIME                                     DP      B28     CS
037737,001082:                                                                                                  #        T2        FINAL TIME                                              DP      B28     CS
037738,001083: 
037739,001084:                                                                                                  #  EXIT MODE
037740,001085:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
037741,001086:                                                                                                  #  SUBROUTINES CALLED
037742,001087:                                                                                                  #    INTSTALL
037743,001088:                                                                                                  #    INTEGRVS
037744,001089: 
037745,001090:                                                                                                  #  OUTPUT
037746,001091:                                                                                                  #    PUSHLIST

Page 865

037748,001093:                                                                                                  #      PUSHLOC-6   FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
037749,001094:                                                                                                  #      X1          CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
037750,001095:                                                                                                  #    MPAC
037751,001096:                                                                                                  #                  FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
037752,001097:                                                                                                  #    OTHER
037753,001098:                                                                                                  #        R(T2)/    AS IN PUSHLIST
037754,001099:                                                                                                  #        V(T2)/    AS IN MPAC
037755,001100:                                                                                                  #        T2        FINAL TIME                                              DP      B28     CS
037756,001101: 
037757,001102: 
037758,001103: 32,3051           45020        RTENCK1            STQ      CALL                                  
037759,001104: 32,3052           03733                                    RTENCKEX                              
037760,001105: 32,3053           27371                                    INTSTALL                              
037761,001106: 32,3054           43175                           VLOAD    SET                                   
037762,001107: 32,3055           03640                                    R(T1)/                                
037763,001108: 32,3056           01473                                    INTYPFLG                              
037764,001109: 32,3057           77650                           GOTO                                           
037765,001110: 32,3060           65105                                    RTENCK3B                              
037766,001111: 
037767,001112: 
037768,001113: 32,3061           45020        RTENCK2            STQ      CALL                                  
037769,001114: 32,3062           03733                                    RTENCKEX                              
037770,001115: 32,3063           27371                                    INTSTALL                              
037771,001116: 32,3064           77214                           CLEAR    VLOAD                                 
037772,001117: 32,3065           01673                                    INTYPFLG                              
037773,001118: 32,3066           03656                                    R(T2)/                                
037774,001119: 32,3067           25535                           STOVL    RCV                                   
037775,001120: 32,3070           03710                                    V(T2)/                                
037776,001121: 32,3071           15543                           STODL    VCV                                   
037777,001122: 32,3072           03736                                    T2                                    
037778,001123: 32,3073           01517                           STORE    TET                                   
037779,001124: 32,3074           77615                           DAD                                            
037780,001125: 32,3075           77650                           GOTO                                           
037781,001126: 32,3076           65113                                    RTENCK3D                              
037782,001127: 
037783,001128: 
037784,001129: 32,3077           45020        RTENCK3            STQ      CALL                                  
037785,001130: 32,3100           03733                                    RTENCKEX                              
037786,001131: 32,3101           27371                                    INTSTALL                              
037787,001132: 32,3102           43175        RTENCK3A           VLOAD    CLEAR                                 
037788,001133: 32,3103           03640                                    R(T1)/                                
037789,001134: 32,3104           01673                                    INTYPFLG                              
037790,001135: 32,3105           25535        RTENCK3B           STOVL    RCV                                   
037791,001136: 32,3106           03700                                    V2(T1)/                               
037792,001137: 32,3107           15543                           STODL    VCV                                   
037793,001138: 32,3110           03716                                    T1                                    
037794,001139: 32,3111           15517                           STODL    TET                                   
037795,001140: 32,3112           03736                                    T2                                    
037796,001141: 32,3113           00041        RTENCK3D           STORE    TDEC1                                 
037797,001142: 32,3114           45014                           CLEAR    CALL                                  

Page 866

037799,001144: 32,3115           00263                                    MOONFLAG                              
037800,001145: 32,3116           27066                                    INTEGRVS                              
037801,001146: 32,3117           77775                           VLOAD                                          
037802,001147: 32,3120           00001                                    RATT                                  
037803,001148: 32,3121           03656                           STORE    R(T2)/                                
037804,001149: 32,3122           70125                           PDDL     LXC,1                                 
037805,001150: 32,3123           00015                                    TAT                                   
037806,001151: 32,3124           03734                                    CONICX1                               
037807,001152: 32,3125           27736                           STOVL    T2                                    
037808,001153: 32,3126           00007                                    VATT                                  
037809,001154: 32,3127           03710                           STORE    V(T2)/                                
037810,001155: 32,3130           77650                           GOTO                                           
037811,001156: 32,3131           03733                                    RTENCKEX                              
037812,001157: 

Page 867

037814,001159:                                                                                                  #  V2(T1) COMPUTATION SUBROUTINE
037815,001160: 
037816,001161:                                                                                                  #  DESCRIPTION
037817,001162:                                                                                                  #  A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
037818,001163:                                                                                                  #  (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME  OR
037819,001164:                                                                                                  #  (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
037820,001165:                                                                                                  #  AND CONSEQUENTLY FUEL.
037821,001166: 
037822,001167:                                                                                                  #  CALLING SEQUENCE
037823,001168:                                                                                                  #    L      CALL
037824,001169:                                                                                                  #    L+1           V2T100
037825,001170: 
037826,001171:                                                                                                  #  NORMAL EXIT MODE
037827,001172:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037828,001173: 
037829,001174:                                                                                                  #  ALARM EXIT MODE
037830,001175:                                                                                                  #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037831,001176: 
037832,001177:                                                                                                  #  SUBROUTINES CALLED
037833,001178:                                                                                                  #    GAMDV10
037834,001179:                                                                                                  #    XT1LIM
037835,001180:                                                                                                  #    DVCALC
037836,001181: 
037837,001182:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
037838,001183:                                                                                                  #    PUSHLIST
037839,001184:                                                                                                  #      NONE
037840,001185:                                                                                                  #    MPAC
037841,001186:                                                                                                  #      NONE
037842,001187:                                                                                                  #    OTHER
037843,001188:                                                                                                  #      R(T1)       MAGNITUDE OF INITIAL POSITION VECTOR                     DP      B29/B27 METERS
037844,001189:                                                                                                  #      RCON        MAGNITUDE OF FINAL POSITION VECTOR                       DP      B29/B27 METERS
037845,001190:                                                                                                  #      V(T1)/      INITIAL VELOCITY VECTOR                                  VECTOR  B7/B5   METERS/CS
037846,001191:                                                                                                  #      RTEDVD      DELTA VELOCITY DESIRED                                   DP      B7/B5   METERS/CS
037847,001192:                                                                                                  #      UR1/        UNIT INITIAL VECTOR                                      VECTOR  B1
037848,001193:                                                                                                  #      UH/         UNIT HORIZONTAL VECTOR                                   VECTOR  B1
037849,001194:                                                                                                  #      X(T2)       COTANGENT OF FINAL FLIGHT PATH ANGLE                     DP      B0
037850,001195:                                                                                                  #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC)  DP      B5
037851,001196:                                                                                                  #      CFPA        COSINE OF INITIAL FLIGHT PATH ANGLE                      DP      B1
037852,001197:                                                                                                  #      MAMAX1      MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR       DP      B30/B28 METERS
037853,001198:                                                                                                  #      MAMAX2      MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR       DP      B30/B28 METERS
037854,001199:                                                                                                  #      PHI2        REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)       DP      B2      -1 PERIGEE,+1 APOGEE
037855,001200:                                                                                                  #      N1          CONIC OR PRECISION ITERATION COUNTER                     DP      B28     NEGATIVE CONIC,PLUS PREC
037856,001201: 
037857,001202:                                                                                                  #  OUTPUT
037858,001203:                                                                                                  #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                     VECTOR  B7/B5   METERS/CS
037859,001204:                                                                                                  #      DV          INITIAL VELOCITY CHANGE                                  DP      B7/B5   METERS/CS
037860,001205:                                                                                                  #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)    DP      B5
037861,001206:                                                                                                  #      PCON        SEMI-LATUS RECTUM                                        DP      B28/B26 METERS
037862,001207:                                                                                                  #      BETA1       1+X(T2)**2                                               DP      B1
037863,001208: 

Page 868

037865,001210:                                                                                                  #  DEBRIS
037866,001211:                                                                                                  #     PUSHLIST
037867,001212:                                                                                                  #       00D        X(T1),,=PREVIOUS PRECISION X(T1)                         DP      B5
037868,001213:                                                                                                  #       02D        THETA1=BETA5*LAMBDA-1                                    TP      B17
037869,001214:                                                                                                  #       05D        THETA2=2*R(T1)*(LAMBDA-1)                                TP      B38/B36
037870,001215:                                                                                                  #       08D        THETA3=MU**.5/R(T1)                                      DP      B-4/B-5
037871,001216:                                                                                                  #       10D        X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR          DP      B5
037872,001217:                                                                                                  #       12D        DX(T1)MAX=MAXIMUM DELTA X(T1)                            DP      B5
037873,001218:                                                                                                  #       14D        X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR          DP      B5
037874,001219:                                                                                                  #       16D        DX(T1)=ITERATOR INCREMENT                                DP      B5
037875,001220:                                                                                                  #       31D        GAMDV10 SUBROUTINE RETURN ADDRESS
037876,001221:                                                                                                  #       32D        DVCALC SUBROUTINE RETURN ADDRESS
037877,001222:                                                                                                  #       33D        V2T100 SUBROUTINE RETURN ADDRESS
037878,001223: 
037879,001224: 32,3132           77620        V2T100             STQ                                            
037880,001225: 32,3133           00041                                    33D                                   
037881,001226: 32,3134           43001                           SETPD    CLEAR                                 
037882,001227: 32,3135           00001                                    0                                     #                                     PL00D
037883,001228: 32,3136           00272                                    F2RTE                                 
037884,001229: 32,3137           60345                           DLOAD    NORM                                  
037885,001230: 32,3140           03636                                    RCON                                  
037886,001231: 32,3141           00047                                    X1                                    
037887,001232: 32,3142           60325                           PDDL     NORM                                  
037888,001233: 32,3143           03646                                    R(T1)                                 
037889,001234: 32,3144           00051                                    S1                                    
037890,001235: 32,3145           00013                           STORE    10D                                   
037891,001236: 32,3146           56342                           SR1      DDV                                   #  R1/RCON = LAMBDA                B1
037892,001237: 32,3147           65260                           XSU,1    PDDL                                  #                                     PL02D
037893,001238: 32,3150           00050                                    S1                                    
037894,001239: 32,3151           03726                                    X(T2)                                 
037895,001240: 32,3152           77716                           DSQ                                            
037896,001241: 32,3153           43342                           SR1      DAD                                   
037897,001242: 32,3154           31655                                    1RTEB1                                
037898,001243: 32,3155           03754                           STORE    BETA1                                 #  1+X(T2)**2 = BETA1              B1
037899,001244: 32,3156           77605                           DMP                                            
037900,001245: 32,3157           00001                                    00D                                   
037901,001246: 32,3160           00035                           STORE    28D                                   #  BETAI*LAMBDA = BETA5
037902,001247: 32,3161           53605                           DMP      SL*                                   
037903,001248: 32,3162           00001                                    00D                                   
037904,001249: 32,3163           20172                                    0          -7,1                       
037905,001250: 32,3164           45257                           SL*      DSU                                   
037906,001251: 32,3165           20172                                    0          -7,1                       
037907,001252: 32,3166           31673                                    1RTEB17                               
037908,001253: 32,3167           65234                           RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1        B17 PL05D
037909,001254: 32,3170           45562                                    TPMODE                                
037910,001255: 32,3171           31655                                    1RTEB1                                
037911,001256: 32,3172           57457                           SR*      DCOMP                                 
037912,001257: 32,3173           20601                                    0,1                                   
037913,001258: 32,3174           41215                           DAD      DMP                                   
037914,001259: 32,3175           00001                                    00D                                   

Page 869

037916,001261: 32,3176           03646                                    R(T1)                                 
037917,001262: 32,3177           47057                           SL*      RTB                                   
037918,001263: 32,3200           20172                                    0          -7D,1                      
037919,001264: 32,3201           45562                                    TPMODE                                
037920,001265: 32,3202           77725                           PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2  B38/B36 PL08D
037921,001266: 32,3203           33770                                    RTMURTE                               
037922,001267: 32,3204           70501                           NORM     SR1                                   
037923,001268: 32,3205           00050                                    X2                                    
037924,001269: 32,3206           56264                           XSU,2    DDV                                   
037925,001270: 32,3207           00050                                    S1                                    
037926,001271: 32,3210           00013                                    10D                                   
037927,001272: 32,3211           65257                           SR*      PDDL                                  #  MU**.5/R(T1)=THETA3        B-4/B-5 PL10D
037928,001273: 32,3212           57170                                    6,2                                   
037929,001274: 32,3213           03652                                    MAMAX1                                
037930,001275: 32,3214           41406                           PUSH     PUSH                                  #  MAMAX1=MA
037931,001276: 32,3215           77624                           CALL                                           
037932,001277: 32,3216           65747                                    XT1LIM                                
037933,001278: 32,3217           41476                           DCOMP    PUSH                                  #  X(T1)MIN                        B5 PL12D
037934,001279: 32,3220           40476                           DCOMP    SR4                                   
037935,001280: 32,3221           41525                           PDDL     PUSH                                  #  DX(T1)MAX                       B5 PL14D
037936,001281: 32,3222           03654                                    MAMAX2                                
037937,001282: 32,3223           45006                           PUSH     CALL                                  
037938,001283: 32,3224           65747                                    XT1LIM                                
037939,001284: 32,3225           50125                           PDDL     BMN                                   #  X(T1)MAX                        B5 PL16D
037940,001285: 32,3226           03730                                    NN1A                                  
037941,001286: 32,3227           65232                                    V2T102                                
037942,001287: 32,3230           77650                           GOTO                                           
037943,001288: 32,3231           65244                                    V2T110                                
037944,001289: 
037945,001290:                                                                                                  #  PROCEED HERE IF NOT PRECISION COMPUTATION
037946,001291: 
037947,001292: 32,3232           77745        V2T102             DLOAD                                          
037948,001293: 32,3233           03632                                    RTEDVD                                
037949,001294: 32,3234           52054                           BZE      GOTO                                  
037950,001295: 32,3235           65237                                    V2T105                                
037951,001296: 32,3236           65340                                    V2T140                                
037952,001297: 32,3237           50145        V2T105             DLOAD    BMN                                   
037953,001298: 32,3240           03757                                    CFPA                                  
037954,001299: 32,3241           65340                                    V2T140                                
037955,001300: 32,3242           77650                           GOTO                                           
037956,001301: 32,3243           65346                                    V2T145                                
037957,001302: 
037958,001303:                                                                                                  #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
037959,001304:                                                                                                  #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
037960,001305:                                                                                                  #  THROUGH X(T2)
037961,001306: 
037962,001307: 32,3244           47145        V2T110             DLOAD    RTB                                   
037963,001308: 32,3245           31673                                    1RTEB17                               
037964,001309: 32,3246           45562                                    TPMODE                                
037965,001310: 32,3247           65276                           DCOMP    PDDL                                  #  -1                             B17 PL19D

Page 870

037967,001312: 32,3250           31717                                    2RTEB1                                
037968,001313: 32,3251           45257                           SR*      DSU                                   
037969,001314: 32,3252           20601                                    0,1                                   
037970,001315: 32,3253           00001                                    00D                                   
037971,001316: 32,3254           53605                           DMP      SL*                                   
037972,001317: 32,3255           00035                                    28D                                   
037973,001318: 32,3256           20172                                    0          -7,1                       
037974,001319: 32,3257           76257                           SL*      TAD                                   
037975,001320: 32,3260           20172                                    0          -7,1                       
037976,001321: 32,3261           65234                           RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6        B17 PL19D
037977,001322: 32,3262           45562                                    TPMODE                                
037978,001323: 32,3263           03722                                    X(T1)                                 
037979,001324: 32,3264           00001                           STORE    00D                                   #  X(T1),,                         B5
037980,001325: 32,3265           77751                           TLOAD                                          #                                     PL16D
037981,001326: 32,3266           53040                           BMN      BZE                                   
037982,001327: 32,3267           65274                                    V2T115                                
037983,001328: 32,3270           65274                                    V2T115                                
037984,001329: 32,3271           52061                           SL       GOTO                                  
037985,001330: 32,3272           20210                                    7                                     
037986,001331: 32,3273           65305                                    V2T120                                
037987,001332: 32,3274           50145        V2T115             DLOAD    BMN                                   
037988,001333: 32,3275           03761                                    PHI2                                  
037989,001334: 32,3276           65316                                    V2T125                                
037990,001335: 32,3277           77676                           DCOMP                                          
037991,001336: 32,3300           17761                           STODL    PHI2                                  
037992,001337: 32,3301           31721                                    M9RTEB28                              
037993,001338: 32,3302           03730                           STORE    NN1A                                  
037994,001339: 32,3303           77650                           GOTO                                           
037995,001340: 32,3304           65316                                    V2T125                                
037996,001341: 32,3305           47166        V2T120             SQRT     RTB                                   
037997,001342: 32,3306           45713                                    DPMODE                                
037998,001343: 32,3307           50125                           PDDL     BMN                                   #  BETA6**.5=X(T1)LIM              B5 PL18D
037999,001344: 32,3310           03761                                    PHI2                                  
038000,001345: 32,3311           65324                                    V2T130                                
038001,001346: 32,3312           45545                           DLOAD    STADR                                 #                                     PL16D
038002,001347: 32,3313           77760                           STORE    14D                                   #  X(T1)LIM = X(T1)MAX
038003,001348: 32,3314           77676                           DCOMP                                          
038004,001349: 32,3315           00013                           STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
038005,001350: 32,3316           53145        V2T125             DLOAD    BZE                                   
038006,001351: 32,3317           03722                                    X(T1)                                 
038007,001352: 32,3320           65340                                    V2T140                                
038008,001353: 32,3321           52040                           BMN      GOTO                                  
038009,001354: 32,3322           65340                                    V2T140                                
038010,001355: 32,3323           65346                                    V2T145                                
038011,001356: 32,3324           53145        V2T130             DLOAD    BZE                                   
038012,001357: 32,3325           03722                                    X(T1)                                 
038013,001358: 32,3326           65335                                    V2T135                                
038014,001359: 32,3327           71240                           BMN      DLOAD                                 #                                     PL16D
038015,001360: 32,3330           65335                                    V2T135                                
038016,001361: 32,3331           77626                           STADR                                          

Page 871

038018,001363: 32,3332           77764                           STORE    10D                                   #  X(T1)LIM = X(T1)MIN
038019,001364: 32,3333           77650                           GOTO                                           
038020,001365: 32,3334           65346                                    V2T145                                
038021,001366: 32,3335           57545        V2T135             DLOAD    DCOMP                                 #                                     PL16D
038022,001367: 32,3336           77626                           STADR                                          
038023,001368: 32,3337           77760                           STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
038024,001369: 32,3340           77745        V2T140             DLOAD                                          
038025,001370: 32,3341           00013                                    10D                                   
038026,001371: 32,3342           17722                           STODL    X(T1)                                 #  X(T1)MIN = X(T1)
038027,001372: 32,3343           00015                                    12D                                   
038028,001373: 32,3344           52006                           PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                 PL18D
038029,001374: 32,3345           65353                                    V2T150                                
038030,001375: 32,3346           77745        V2T145             DLOAD                                          
038031,001376: 32,3347           00017                                    14D                                   
038032,001377: 32,3350           17722                           STODL    X(T1)                                 #  X(T1)MAX = X(T1)
038033,001378: 32,3351           00015                                    12D                                   
038034,001379: 32,3352           41476                           DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                PL18D
038035,001380: 32,3353           77624        V2T150             CALL                                           #  GOTO X(T1)-DV ITERATOR
038036,001381: 32,3354           65474                                    GAMDV10                               
038037,001382: 32,3355           53145                           DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
038038,001383: 32,3356           03632                                    RTEDVD                                
038039,001384: 32,3357           65472                                    V2T1X                                 
038040,001385: 
038041,001386:                                                                                                  #  CONTINUE IF TIME CRITICAL MODE
038042,001387: 
038043,001388: 32,3360           50025                           DSU      BMN                                   
038044,001389: 32,3361           03706                                    DV                                    
038045,001390: 32,3362           65365                                    V2T155                                
038046,001391: 32,3363           77650                           GOTO                                           
038047,001392: 32,3364           65420                                    V2T175                                
038048,001393: 32,3365           50145        V2T155             DLOAD    BMN                                   
038049,001394: 32,3366           03730                                    NN1A                                  
038050,001395: 32,3367           65372                                    V2T160                                
038051,001396: 32,3370           77650                           GOTO                                           
038052,001397: 32,3371           65433                                    V2T185                                
038053,001398: 
038054,001399:                                                                                                  #  CONIC TRAJECTORY COMPUTATION
038055,001400: 
038056,001401: 32,3372           53145        V2T160             DLOAD    BZE                                   
038057,001402: 32,3373           03722                                    X(T1)                                 
038058,001403: 32,3374           65400                                    V2T165                                
038059,001404: 32,3375           52040                           BMN      GOTO                                  
038060,001405: 32,3376           65400                                    V2T165                                
038061,001406: 32,3377           65470                                    V2T300                                
038062,001407: 32,3400           53145        V2T165             DLOAD    BZE                                   
038063,001408: 32,3401           03757                                    CFPA                                  
038064,001409: 32,3402           65470                                    V2T300                                
038065,001410: 32,3403           71240                           BMN      DLOAD                                 
038066,001411: 32,3404           65470                                    V2T300                                
038067,001412: 32,3405           00017                                    14D                                   

Page 872

038069,001414: 32,3406           17722                           STODL    X(T1)                                 #  X(T1)MAX=X(T1)
038070,001415: 32,3407           00015                                    12D                                   
038071,001416: 32,3410           77676                           DCOMP                                          
038072,001417: 32,3411           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
038073,001418: 32,3412           65474                                    GAMDV10                               
038074,001419: 32,3413           45345                           DLOAD    DSU                                   
038075,001420: 32,3414           03632                                    RTEDVD                                
038076,001421: 32,3415           03706                                    DV                                    
038077,001422: 32,3416           77640                           BMN                                            
038078,001423: 32,3417           65470                                    V2T300                                
038079,001424: 32,3420           71214        V2T175             SET      DLOAD                                 
038080,001425: 32,3421           00072                                    F2RTE                                 
038081,001426: 32,3422           03722                                    X(T1)                                 
038082,001427: 32,3423           14017                           STODL    14D                                   #  X(T1)=X(T1)MAX
038083,001428: 32,3424           00015                                    12D                                   
038084,001429: 32,3425           77676                           DCOMP                                          
038085,001430: 32,3426           34021                           STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
038086,001431: 32,3427           65474                                    GAMDV10                               
038087,001432: 32,3430           50145                           DLOAD    BMN                                   
038088,001433: 32,3431           03730                                    NN1A                                  
038089,001434: 32,3432           65470                                    V2T300                                
038090,001435: 
038091,001436:                                                                                                  #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
038092,001437:                                                                                                  #  PRECISION TRAJECTORY
038093,001438: 
038094,001439: 32,3433           45345        V2T185             DLOAD    DSU                                   
038095,001440: 32,3434           03722                                    X(T1)                                 
038096,001441: 32,3435           00001                                    00D                                   
038097,001442: 32,3436           65246                           ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
038098,001443: 32,3437           00015                                    12D                                   
038099,001444: 32,3440           44352                           SL1      BDSU                                  
038100,001445: 32,3441           71240                           BMN      DLOAD                                 
038101,001446: 32,3442           65470                                    V2T300                                
038102,001447: 32,3443           00001                                    00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
038103,001448: 32,3444           03722                           STORE    X(T1)                                 #  X(T1),, = X(T1)
038104,001449: 32,3445           50025                           DSU      BMN                                   
038105,001450: 32,3446           00017                                    14D                                   
038106,001451: 32,3447           65455                                    V2T195                                
038107,001452: 32,3450           77745                           DLOAD                                          
038108,001453: 32,3451           00017                                    14D                                   
038109,001454: 32,3452           03722                           STORE    X(T1)                                 #  X(T1)MAX = X(T1)
038110,001455: 32,3453           77650                           GOTO                                           
038111,001456: 32,3454           65466                                    V2T205                                
038112,001457: 32,3455           45345        V2T195             DLOAD    DSU                                   
038113,001458: 32,3456           03722                                    X(T1)                                 
038114,001459: 32,3457           00013                                    10D                                   
038115,001460: 32,3460           52040                           BMN      GOTO                                  
038116,001461: 32,3461           65463                                    V2T200                                
038117,001462: 32,3462           65466                                    V2T205                                
038118,001463: 32,3463           77745        V2T200             DLOAD                                          

Page 873

038120,001465: 32,3464           00013                                    10D                                   
038121,001466: 32,3465           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
038122,001467: 32,3466           77624        V2T205             CALL                                           
038123,001468: 32,3467           65673                                    DVCALC                                
038124,001469: 32,3470           77745        V2T300             DLOAD                                          
038125,001470: 32,3471           31701                                    ZERORTE                               
038126,001471: 32,3472           77650        V2T1X              GOTO                                           
038127,001472: 32,3473           00041                                    33D                                   
038128,001473: 

Page 874

038130,001475:                                                                                                  #  X(T1)-DV ITERATOR SUBROUTINE
038131,001476: 
038132,001477:                                                                                                  #  DESCRIPTION
038133,001478:                                                                                                  #      COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
038134,001479:                                                                                                  #  CALLING SEQUENCE
038135,001480:                                                                                                  #    L      CALL
038136,001481:                                                                                                  #    L+1           GAMDV10
038137,001482: 
038138,001483:                                                                                                  #  NORMAL EXIT MODE
038139,001484:                                                                                                  #    AT L+2 OF CALLING SEQUENCE
038140,001485: 
038141,001486:                                                                                                  #  ALARM EXIT MODE
038142,001487:                                                                                                  #    AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038143,001488: 
038144,001489:                                                                                                  #  SUBROUTINES CALLED
038145,001490:                                                                                                  #    DVCALC
038146,001491: 
038147,001492:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
038148,001493:                                                                                                  #    PUSHLIST
038149,001494:                                                                                                  #      02D         THETA1=BETA5*LAMBDA-1                                   TP      B17
038150,001495:                                                                                                  #      05D         THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
038151,001496:                                                                                                  #      08D         THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
038152,001497:                                                                                                  #      10D         X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
038153,001498:                                                                                                  #      12D         DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
038154,001499:                                                                                                  #      14D         X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
038155,001500:                                                                                                  #      16D         DX(T1)=ITERATOR INCREMENT                               DP      B5
038156,001501:                                                                                                  #    MPAC
038157,001502:                                                                                                  #      NONE
038158,001503:                                                                                                  #    OTHER
038159,001504:                                                                                                  #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
038160,001505:                                                                                                  #      RTEDVD      DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
038161,001506:                                                                                                  #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
038162,001507:                                                                                                  #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038163,001508:                                                                                                  #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
038164,001509:                                                                                                  #      F2RTE       TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
038165,001510: 
038166,001511:                                                                                                  #  OUTPUT
038167,001512:                                                                                                  #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038168,001513:                                                                                                  #      DV          INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038169,001514:                                                                                                  #      X(T1)       COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
038170,001515:                                                                                                  #      PCON        SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038171,001516: 
038172,001517:                                                                                                  #  DEBRIS
038173,001518:                                                                                                  #    PUSHLIST
038174,001519:                                                                                                  #      00D         X(T1),,
038175,001520:                                                                                                  #      02D         THETA1
038176,001521:                                                                                                  #      05D         THETA2
038177,001522:                                                                                                  #      08D         THETA3
038178,001523:                                                                                                  #      10D         X(T1)MIN
038179,001524:                                                                                                  #      12D         DX(T1)MAX

Page 875

038181,001526:                                                                                                  #      14D         X(T1)MAX
038182,001527:                                                                                                  #      16D         DX(T1)
038183,001528:                                                                                                  #      22D         DV,=PREVIOUS DV                                         DP      B7/B5
038184,001529:                                                                                                  #      24D         BETA9=X(T1)+1.1DX(T1)                                   DP      B5
038185,001530:                                                                                                  #      31D         GAMDV10 SUBROUTINE RETURN ADDRESS
038186,001531:                                                                                                  #      32D         DVCALC SUBROUTINE RETURN ADDRESS
038187,001532:                                                                                                  #      33D         V2T100 SUBROUTINE RETURN ADDRESS
038188,001533: 32,3474           77620        GAMDV10            STQ                                            
038189,001534: 32,3475           00037                                    31D                                   
038190,001535: 32,3476           45001                           SETPD    CALL                                  
038191,001536: 32,3477           00023                                    18D                                   #                                     PL18D
038192,001537: 32,3500           65673                                    DVCALC                                
038193,001538: 32,3501           45345                           DLOAD    DSU                                   
038194,001539: 32,3502           00017                                    14D                                   
038195,001540: 32,3503           00013                                    10D                                   
038196,001541: 32,3504           77600                           BOV                                            
038197,001542: 32,3505           65525                                    GAMDV20                               
038198,001543: 32,3506           45206                           PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8         B5 PL20D
038199,001544: 32,3507           31774                                    EPC9RTE                               
038200,001545: 32,3510           71240                           BMN      DLOAD                                 
038201,001546: 32,3511           65671                                    GAMDVX                                #  BOUNDS CLOSE TOGETHER
038202,001547: 32,3512           00023                                    18D                                   
038203,001548: 32,3513           50025                           DSU      BMN                                   #  BETA8-DX(T1)MAX
038204,001549: 32,3514           00015                                    12D                                   
038205,001550: 32,3515           65521                                    GAMDV15                               
038206,001551: 32,3516           52001                           SETPD    GOTO                                  #                                     PL18D
038207,001552: 32,3517           00023                                    18D                                   
038208,001553: 32,3520           65525                                    GAMDV20                               
038209,001554: 32,3521           77745        GAMDV15            DLOAD                                          #                                     PL18D
038210,001555: 32,3522           70565                           SIGN     SR1                                   
038211,001556: 32,3523           00021                                    16D                                   
038212,001557: 32,3524           00021                           STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
038213,001558: 32,3525           77745        GAMDV20            DLOAD                                          
038214,001559: 32,3526           31703                                    M144RTE                               
038215,001560: 32,3527           03732                           STORE    NN2                                   
038216,001561: 32,3530           43345        GAMDV25            DLOAD    DAD                                   
038217,001562: 32,3531           03732                                    NN2                                   
038218,001563: 32,3532           31677                                    1RTEB28                               
038219,001564: 32,3533           67240                           BMN      SLOAD                                 
038220,001565: 32,3534           65540                                    GAMDV30                               
038221,001566: 32,3535           31737                                    OCT605                                
038222,001567: 32,3536           77650                           GOTO                                           
038223,001568: 32,3537           65472                                    V2T1X                                 
038224,001569: 32,3540           03732        GAMDV30            STORE    NN2                                   #  NN2=NN2+1
038225,001570: 32,3541           65345                           DLOAD    PDDL                                  #  X(T1)=X(T1),                    B5 PL20D
038226,001571: 32,3542           03722                                    X(T1)                                 
038227,001572: 32,3543           03706                                    DV                                    
038228,001573: 32,3544           43325                           PDDL     DAD                                   #  DV=DV,                       B7/B5 PL22D
038229,001574: 32,3545           03722                                    X(T1)                                 
038230,001575: 32,3546           00021                                    16D                                   

Page 876

038232,001577: 32,3547           37722                           STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)              B5
038233,001578: 32,3550           65673                                    DVCALC                                
038234,001579: 32,3551           71214                           BON      DLOAD                                 
038235,001580: 32,3552           00312                                    F2RTE                                 
038236,001581: 32,3553           65567                                    GAMDV35                               
038237,001582: 32,3554           03706                                    DV                                    
038238,001583: 32,3555           50025                           DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
038239,001584: 32,3556           00025                                    20D                                   
038240,001585: 32,3557           65564                                    GAMDV33                               
038241,001586: 32,3560           57545        GAMDV32            DLOAD    DCOMP                                 
038242,001587: 32,3561           00021                                    16D                                   
038243,001588: 32,3562           77742                           SR1                                            
038244,001589: 32,3563           00021                           STORE    16D                                   
038245,001590: 32,3564           52001        GAMDV33            SETPD    GOTO                                  
038246,001591: 32,3565           00023                                    18D                                   #                                     PL18D
038247,001592: 32,3566           65630                                    GAMDV50                               
038248,001593: 
038249,001594:                                                                                                  #  TIME CRITICAL MODE
038250,001595: 
038251,001596: 32,3567           45345        GAMDV35            DLOAD    DSU                                   
038252,001597: 32,3570           03632                                    RTEDVD                                
038253,001598: 32,3571           03706                                    DV                                    
038254,001599: 32,3572           41525                           PDDL     PUSH                                  #  DVD-DV=DVERR                 B7/B5 PL22D
038255,001600: 32,3573           51545        GAMDV40            DLOAD    ABS                                   #  DV,                                PL24D
038256,001601: 32,3574           00025                                    20D                                   
038257,001602: 32,3575           50025                           DSU      BMN                                   
038258,001603: 32,3576           31776                                    EPC10RTE                              
038259,001604: 32,3577           65671                                    GAMDVX                                
038260,001605: 32,3600           77745        GAMDV45            DLOAD                                          #                                     PL22D
038261,001606: 32,3601           60221                           BDSU     NORM                                  
038262,001607: 32,3602           03706                                    DV                                    
038263,001608: 32,3603           00050                                    X2                                    
038264,001609: 32,3604           77725                           PDDL                                           #  DV-DV,                    B7/B5-N2 PL22D
038265,001610: 32,3605           70501                           NORM     SR1                                   #  DVERR                    B8/B6-N1
038266,001611: 32,3606           00047                                    X1                                    
038267,001612: 32,3607           77671                           DDV                                            
038268,001613: 32,3610           65200                           BOV      PDDL                                  #  DVERR/(DV-DV,)                     PL20D
038269,001614: 32,3611           65624                                    GAMDV47                               
038270,001615: 32,3612           41221                           BDSU     DMP                                   #                                     PL18D
038271,001616: 32,3613           03722                                    X(T1)                                 
038272,001617: 32,3614           53660                           XSU,1    SR*                                   
038273,001618: 32,3615           00047                                    X2                                    
038274,001619: 32,3616           20600                                    0          -1,1                       
038275,001620: 32,3617           00021                           STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038276,001621: 32,3620           45246                           ABS      DSU                                   
038277,001622: 32,3621           00015                                    12D                                   
038278,001623: 32,3622           77640                           BMN                                            
038279,001624: 32,3623           65630                                    GAMDV50                               
038280,001625: 32,3624           75345        GAMDV47            DLOAD    SIGN                                  
038281,001626: 32,3625           00015                                    12D                                   

Page 877

038283,001628: 32,3626           00021                                    16D                                   
038284,001629: 32,3627           00021                           STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
038285,001630: 
038286,001631:                                                                                                  #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038287,001632: 
038288,001633: 32,3630           41345        GAMDV50            DLOAD    DMP                                   
038289,001634: 32,3631           00021                                    16D                                   
038290,001635: 32,3632           31713                                    1.1RTEB1                              
038291,001636: 32,3633           43352                           SL1      DAD                                   
038292,001637: 32,3634           03722                                    X(T1)                                 
038293,001638: 32,3635           00031                           STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9           B5
038294,001639: 32,3636           50025                           DSU      BMN                                   
038295,001640: 32,3637           00017                                    14D                                   
038296,001641: 32,3640           65647                                    GAMDV55                               
038297,001642: 32,3641           45345                           DLOAD    DSU                                   
038298,001643: 32,3642           00017                                    14D                                   
038299,001644: 32,3643           03722                                    X(T1)                                 
038300,001645: 32,3644           77742                           SR1                                            
038301,001646: 32,3645           34021                           STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)       B5
038302,001647: 32,3646           65662                                    GAMDV65                               
038303,001648: 32,3647           45345        GAMDV55            DLOAD    DSU                                   
038304,001649: 32,3650           00031                                    24D                                   
038305,001650: 32,3651           00013                                    10D                                   
038306,001651: 32,3652           52040                           BMN      GOTO                                  
038307,001652: 32,3653           65655                                    GAMDV60                               
038308,001653: 32,3654           65662                                    GAMDV65                               
038309,001654: 32,3655           45345        GAMDV60            DLOAD    DSU                                   
038310,001655: 32,3656           00013                                    10D                                   
038311,001656: 32,3657           03722                                    X(T1)                                 
038312,001657: 32,3660           77742                           SR1                                            
038313,001658: 32,3661           00021                           STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)       B5
038314,001659: 32,3662           51545        GAMDV65            DLOAD    ABS                                   
038315,001660: 32,3663           00021                                    16D                                   
038316,001661: 32,3664           50025                           DSU      BMN                                   
038317,001662: 32,3665           31774                                    EPC9RTE                               
038318,001663: 32,3666           65671                                    GAMDVX                                
038319,001664: 32,3667           77650                           GOTO                                           
038320,001665: 32,3670           65530                                    GAMDV25                               
038321,001666: 32,3671           77650        GAMDVX             GOTO                                           
038322,001667: 32,3672           00037                                    31D                                   
038323,001668: 

Page 878

038325,001670:                                                                                                  #  DV CALCULATION SUBROUTINE
038326,001671: 
038327,001672:                                                                                                  #  INPUT
038328,001673:                                                                                                  #    PUSHLIST
038329,001674:                                                                                                  #      02D         THETA1=BETA5*LAMBDA-1                                   TP    B17
038330,001675:                                                                                                  #      05D         THETA2=2*R(T1)*(LAMBDA-1)                               TP    B38/B36
038331,001676:                                                                                                  #      08D         THETA3=MU**.5/R(T1)                                     DP    B-4/B-5
038332,001677:                                                                                                  #    OTHER
038333,001678:                                                                                                  #      X(T1)       COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP    B5
038334,001679:                                                                                                  #      V(T1)/      INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
038335,001680:                                                                                                  #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
038336,001681:                                                                                                  #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038337,001682: 
038338,001683:                                                                                                  #  OUTPUT
038339,001684:                                                                                                  #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038340,001685:                                                                                                  #      DV          INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038341,001686:                                                                                                  #      PCON        SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038342,001687: 
038343,001688:                                                                                                  #  DEBRIS
038344,001689:                                                                                                  #      28D         THETA3*PCON**.5                                         DP      B10/B8-N1
038345,001690:                                                                                                  #      C(PUSLOC)   THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
038346,001691:                                                                                                  #      32D         DVCALC SUBROUTINE RETURN ADDRESS
038347,001692:                                                                                                  #      X1          NORMALIZATION FACTOR FOR VALUE IN 28D
038348,001693: 
038349,001694:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038350,001695: 
038351,001696: 32,3673           71220        DVCALC             STQ      DLOAD                                 
038352,001697: 32,3674           00040                                    32D                                   
038353,001698: 32,3675           03722                                    X(T1)                                 
038354,001699: 32,3676           54316                           DSQ      SR                                    
038355,001700: 32,3677           20610                                    7                                     
038356,001701: 32,3700           76276                           DCOMP    TAD                                   
038357,001702: 32,3701           00003                                    02D                                   
038358,001703: 32,3702           41501                           NORM     PUSH                                  
038359,001704: 32,3703           00047                                    X1                                    
038360,001705: 32,3704           60351                           TLOAD    NORM                                  
038361,001706: 32,3705           00006                                    05D                                   
038362,001707: 32,3706           00050                                    X2                                    
038363,001708: 32,3707           70434                           RTB      SR1                                   
038364,001709: 32,3710           45713                                    DPMODE                                
038365,001710: 32,3711           56264                           XSU,2    DDV                                   
038366,001711: 32,3712           00046                                    X1                                    
038367,001712: 32,3713           77657                           SR*                                            
038368,001713: 32,3714           57170                                    6,2                                   
038369,001714: 32,3715           03720                           STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON B28/26
038370,001715: 32,3716           41366                           SQRT     DMP                                   
038371,001716: 32,3717           00011                                    08D                                   
038372,001717: 32,3720           77701                           NORM                                           
038373,001718: 32,3721           00047                                    X1                                    
038374,001719: 32,3722           14035                           STODL    28D                                   #  THETA3*PCON**.5         B10/B8 -N1

Page 879

038376,001721: 32,3723           03722                                    X(T1)                                 
038377,001722: 32,3724           74301                           NORM     VXSC                                  
038378,001723: 32,3725           00050                                    X2                                    
038379,001724: 32,3726           03740                                    UR1/                                  #  X(T1)*UR1/             B5+B1 -N2
038380,001725: 32,3727           74274                           XAD,2    VXSC                                  
038381,001726: 32,3730           00046                                    X1                                    
038382,001727: 32,3731           00035                                    28D                                   
038383,001728: 32,3732           63257                           VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/ B7/B5
038384,001729: 32,3733           57207                                    0          -9D,2                      #             +
038385,001730: 32,3734           03746                                    UH/                                   
038386,001731: 32,3735           53761                           VXSC     VSR*                                  #  THETA3(PCON**.5)UH/        B7/B5
038387,001732: 32,3736           00035                                    28D                                   
038388,001733: 32,3737           20575                                    0          -4,1                       #             =
038389,001734: 32,3740           45455                           VAD      STADR                                 
038390,001735: 32,3741           74077                           STORE    V2(T1)/                               #  V2(T1)/                    B7/B5
038391,001736: 32,3742           51451                           VSU      ABVAL                                 
038392,001737: 32,3743           03672                                    V(T1)/                                
038393,001738: 32,3744           03706                           STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV   B7/B5
038394,001739: 32,3745           77650                           GOTO                                           
038395,001740: 32,3746           00040                                    32D                                   
038396,001741: 

Page 880

038398,001743:                                                                                                  #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
038399,001744: 
038400,001745:                                                                                                  #  INPUT
038401,001746:                                                                                                  #    PUSHLIST
038402,001747:                                                                                                  #      PUSHLOC -4  MAJOR AXIS (MA)                                         DP      B30/B28
038403,001748:                                                                                                  #      PUSHLOC -2  MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
038404,001749:                                                                                                  #      28D         BETA5=LAMBDA*BETA1                                      DP      B9
038405,001750:                                                                                                  #    OTHER
038406,001751:                                                                                                  #      RCON                                                                DP      B29/B27
038407,001752:                                                                                                  #      R(T1)                                                               DP      B29/B27
038408,001753:                                                                                                  #  OUTPUT
038409,001754:                                                                                                  #    MPAC
038410,001755:                                                                                                  #      X(T1)LIM    LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
038411,001756:                                                                                                  #  DEBRIS
038412,001757:                                                                                                  #    PUSHLIST
038413,001758:                                                                                                  #      C(PUSHLOC)  MA-RCON                                                 DP      (B30/28)-N1
038414,001759:                                                                                                  #      C(PSHLOC)+2 MA                                                      DP      B30/B28
038415,001760:                                                                                                  #      X1          NORMALIZATION FACTOR FOR MA-RCON
038416,001761:                                                                                                  #      20D         XT1LIM SUBROUTINE RETURN ADDRESS
038417,001762:                                                                                                  #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
038418,001763: 
038419,001764: 32,3747           71220        XT1LIM             STQ      DLOAD                                 
038420,001765: 32,3750           00024                                    20D                                   
038421,001766: 32,3751           03636                                    RCON                                  
038422,001767: 32,3752           44342                           SR1      BDSU                                  
038423,001768: 32,3753           65301                           NORM     PDDL                                  #  MA-RCON                     B30-N1
038424,001769: 32,3754           00050                                    X2                                    
038425,001770: 32,3755           70525                           PDDL     SR1                                   
038426,001771: 32,3756           03646                                    R(T1)                                 
038427,001772: 32,3757           56221                           BDSU     DDV                                   
038428,001773: 32,3760           41257                           SL*      DMP                                   
038429,001774: 32,3761           57577                                    0          -1,2                       
038430,001775: 32,3762           00035                                    28D                                   
038431,001776: 32,3763           77657                           SL*                                            
038432,001777: 32,3764           20172                                    0          -7,1                       
038433,001778: 32,3765           50025                           DSU      BMN                                   #  (BETA5(MA-R(T1))/(MA-RCON))-1  B10
038434,001779: 32,3766           31665                                    1RTEB10                               
038435,001780: 32,3767           65772                                    XT1LIM5                               
038436,001781: 32,3770           52166                           SQRT     GOTO                                  
038437,001782: 32,3771           65774                                    XT1LIMX                               
038438,001783: 32,3772           77745        XT1LIM5            DLOAD                                          
038439,001784: 32,3773           31701                                    ZERORTE                               
038440,001785: 32,3774           77650        XT1LIMX            GOTO                                           
038441,001786: 32,3775           00024                                    20D                                   
038442,001787: 

Page 881

038444,001789:                                                                                                  #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
038445,001790: 
038446,001791: 36,3250                                           BANK     36                                    
038447,001792: 34,2000                                           SETLOC   RTECON                                
038448,001793: 34,2000                                           BANK                                           
038449,001794: 
038450,001795: 34,3654           20000 00000  1RTEB1             2DEC     1.                                    
038451,001796: 34,3656           10000 00000  1RTEB2             2DEC     1.                                    
038452,001797: 34,3660           04000 00000  1RTEB3             2DEC     1.                                    
038453,001798: 34,3662           02000 00000  1RTEB4             2DEC     1.                                    
038454,001799: 34,3664           00020 00000  1RTEB10            2DEC     1.                                    
038455,001800: 34,3666           00004 00000  1RTEB12            2DEC     1.                                    
038456,001801: 34,3670           00002 00000  1RTEB13            2DEC     1.                                    
038457,001802: 34,3672           00000 04000  1RTEB17            2DEC     1.                                    
038458,001803: 34,3674           00000 00010  1RTEB25            2DEC     1.                                    
038459,001804: 34,3676           00000 00001  1RTEB28            2DEC     1.                                    
038460,001805: 34,3700           00000 00000  ZERORTE            2DEC     0          B-28                       
038461,001806: 34,3702           77777 77557  M144RTE            2DEC     -144.                                 
038462,001807: 34,3704           77777 77760  M15RTE             2DEC     -15        B-28                       
038463,001808: 34,3706           00000 00012  10RTE              2DEC     10         B-28                       
038464,001809: 34,3710           54631 63145  M.6RTE             2DEC     -.6                                   
038465,001810: 34,3712           21463 06315  1.1RTEB1           2DEC     1.1                                   
038466,001811: 34,3714           77777 77771  M6RTEB28           2DEC     -6         B-28                       
038467,001812: 34,3716           37777 37777  2RTEB1             2OCT     3777737777                            
038468,001813: 34,3720           77777 77766  M9RTEB28           2DEC     -9         B-28                       
038469,001814: 34,3722           77777 77767  M8RTEB28           2DEC     -8         B-28                       
038470,001815: 34,3724           00000 35610  30480RTE           2DEC     30480.                                
038471,001816: 34,3726           36703 03743  VCSPS              2DEC     30.8811                               

Page 882

038473,001818: 34,3730           33041 37714  VCRCS              2DEC     27.0664                               
038474,001819: 34,3732           00003 13241  MDOTRCS            2DEC     .0016375                              
038475,001820: 34,3734           20000 00000  CSUBT              2DEC     .5                                    
038476,001821: 34,3736           00605        OCT605             OCT      00605                                 
038477,001822: 34,3737           00612        OCT612             OCT      00612                                 
038478,001823: 34,3740           00613        OCT613             OCT      00613                                 
038479,001824: 34,3741           40214 45266  MCOS7.5            2DEC     -.99144486                            
038480,001825: 34,3743           73645 56536  MSIN7.5            2DEC     -.13052619                            
038481,001826: 34,3745           70467 71205  MCOS22.5           2DEC     -.92387953                            
038482,001827: 34,3747           16525 12525  THETA165           2DEC     .458333333                            
038483,001828: 34,3751           22525 12525  THETA210           2DEC     .583333333                            
038484,001829: 34,3753           17775 06676  EPC1RTE            2DEC     .99966                                
038485,001830: 34,3755           00000 00062  EPC2RTE            2DEC     100.                                  
038486,001831: 34,3757           00020 14223  EPC3RTE            2DEC     .001                                  
038487,001832: 34,3761           00000 05174  EPC4RTE            2DEC     .00001                                
038488,001833: 34,3763           00002 21727  EPC5RTE            2DEC     .01                                   
038489,001834: 34,3765           00000 01654  EPC6RTE            2DEC     .000007                               
038490,001835: 34,3767           00000 00764  EPC7RTE            2DEC     1000.                                 
038491,001836: 34,3771           00040 30447  EPC8RTE            2DEC     .002                                  
038492,001837: 34,3773           00000 00010  EPC9RTE            2DEC     1.                                    
038493,001838: 34,3775           00000 00322  EPC10RTE           2DEC     .0001                                 
038494,001839: 35,3755                                           BANK     35                                    
038495,001840: 35,2000                                           SETLOC   RTECON1                               
038496,001841: 35,2000                                           BANK                                           
038497,001842: 35,3755           27657 01000  C4RTE              2DEC     8.                                    
038498,001843: 35,3757           00325 23740  K1RTE              2DEC     7.                                    
038499,001844: 35,3761           00306 06614  K2RTE              2DEC     6495000.                              
038500,001845: 35,3763           76027 70156  K3RTE              2DEC     -.06105                               

Page 883

038502,001847: 35,3765           74517 54131  K4RTE              2DEC     -.10453                               
038503,001848: 35,3767           30276 05001  RTMURTE            2DEC     199650.501                            
038504,001849: 35,3771           00003 27040  E3RTE              2DEC     121920.                               

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