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.

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

Page 840

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

Page 841

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

Page 842

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

Page 843

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

Page 844

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

Page 845

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

Page 846

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

Page 847

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

Page 848

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

Page 849

037114,000466: 36,3247           01521        V6N81RTE           VN       0681                                  
037115,000467: 32,2251                                           BANK     32                                    
037116,000468: 32,2000                                           SETLOC   RTE                                   
037117,000469: 32,2000                                           BANK                                           
037118,000470: 32,2251                                           COUNT    32/RTE                                
037119,000471: 

Page 850

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

Page 851

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

Page 852

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

Page 853

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

Page 854

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

Page 855

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

Page 856

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

Page 857

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

Page 858

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

Page 859

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

Page 860

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

Page 861

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

Page 862

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

Page 863

037684,001036: 32,3045           77745        PREC225            DLOAD                                          
037685,001037: 32,3046           31701                                    ZERORTE                               
037686,001038: 32,3047           77650        PRECX              GOTO                                           
037687,001039: 32,3050           03762                                    SPRTEX                                
037688,001040: 

Page 864

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

Page 865

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

Page 866

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

Page 867

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

Page 868

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

Page 869

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

Page 870

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

Page 871

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

Page 872

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

Page 873

038113,001465: 32,3464           00013                                    10D                                   
038114,001466: 32,3465           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
038115,001467: 32,3466           77624        V2T205             CALL                                           
038116,001468: 32,3467           65673                                    DVCALC                                
038117,001469: 32,3470           77745        V2T300             DLOAD                                          
038118,001470: 32,3471           31701                                    ZERORTE                               
038119,001471: 32,3472           77650        V2T1X              GOTO                                           
038120,001472: 32,3473           00041                                    33D                                   
038121,001473: 

Page 874

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

Page 875

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

Page 876

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

Page 877

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

Page 878

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

Page 879

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

Page 880

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

Page 881

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

Page 882

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

Page 883

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

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