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.

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

Page 840

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

Page 841

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

Page 842

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

Page 843

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

Page 844

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

Page 845

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

Page 846

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

Page 847

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

Page 848

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

Page 849

037128,000466: 36,3247           01521        V6N81RTE           VN       0681                                  
037129,000467: 32,2251                                           BANK     32                                    
037130,000468: 32,2000                                           SETLOC   RTE                                   
037131,000469: 32,2000                                           BANK                                           
037132,000470: 32,2251                                           COUNT    32/RTE                                
037133,000471: 

Page 850

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

Page 851

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

Page 852

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

Page 853

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

Page 854

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

Page 855

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

Page 856

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

Page 857

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

Page 858

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

Page 859

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

Page 860

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

Page 861

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

Page 862

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

Page 863

037698,001036: 32,3045           77745        PREC225            DLOAD                                          
037699,001037: 32,3046           31701                                    ZERORTE                               
037700,001038: 32,3047           77650        PRECX              GOTO                                           
037701,001039: 32,3050           03762                                    SPRTEX                                
037702,001040: 

Page 864

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

Page 865

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

Page 866

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

Page 867

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

Page 868

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

Page 869

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

Page 870

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

Page 871

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

Page 872

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

Page 873

038127,001465: 32,3464           00013                                    10D                                   
038128,001466: 32,3465           03722                           STORE    X(T1)                                 #  X(T1)MIN = X(T1)
038129,001467: 32,3466           77624        V2T205             CALL                                           
038130,001468: 32,3467           65673                                    DVCALC                                
038131,001469: 32,3470           77745        V2T300             DLOAD                                          
038132,001470: 32,3471           31701                                    ZERORTE                               
038133,001471: 32,3472           77650        V2T1X              GOTO                                           
038134,001472: 32,3473           00041                                    33D                                   
038135,001473: 

Page 874

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

Page 875

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

Page 876

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

Page 877

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

Page 878

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

Page 879

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

Page 880

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

Page 881

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

Page 882

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

Page 883

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

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