Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

036480,000002:                                                                                                 #  Copyright:    Public domain.
036481,000003:                                                                                                 #  Filename:      P37,P70.agc
036482,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
036483,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
036484,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
036485,000007:                                                                                                 #  Assembler:    yaYUL
036486,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
036487,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
036488,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
036489,000011:                                                                                                 #  Mod history:  2011-03-05 JL    Adapted from corresponding Colossus 249 file.
036490,000012: 
036491,000013:                                                                                                 # # Page 840
036492,000014: 31,3215                                          BANK     31                                    
036493,000015: 36,2000                                          SETLOC   RTE1                                  
036494,000016: 36,2000                                          BANK                                           
036495,000017: 
036496,000018: 36,2502  E7,1631                                 EBANK=   RTEDVD                                
036497,000019: 36,2502                                          COUNT    31/P37                                
036498,000020: 
036499,000021:                                                                                                 #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
036500,000022: 
036501,000023:                                                                                                 #  DESCRIPTION
036502,000024:                                                                                                 #    A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
036503,000025:                                                                                                 #  TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
036504,000026:                                                                                                 #  DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
036505,000027:                                                                                                 #  RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
036506,000028:                                                                                                 #  COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BYSPS PROGRAM (P40) OR RCS PROGRAM (P41).
036507,000029: 
036508,000030:                                                                                                 #  CALLING SEQUENCE
036509,000031:                                                                                                 #    L      TC     P37
036510,000032: 
036511,000033:                                                                                                 #  SUBROUTINES CALLED
036512,000034:                                                                                                 #    PREC100
036513,000035:                                                                                                 #      V2T100
036514,000036:                                                                                                 #      RTENCK2
036515,000037:                                                                                                 #      RTENCK3
036516,000038:                                                                                                 #      TIMERAD
036517,000039:                                                                                                 #      PARAM
036518,000040:                                                                                                 #    V2T100
036519,000041:                                                                                                 #      GAMDV10
036520,000042:                                                                                                 #      XT1LIM
036521,000043:                                                                                                 #      DVCALC
036522,000044:                                                                                                 #    RTENCK1
036523,000045:                                                                                                 #      INTSTALL
036524,000046:                                                                                                 #      INTEGRVS
036525,000047:                                                                                                 #    RTEVN
036526,000048:                                                                                                 #      RETDISP
036527,000049:                                                                                                 #      TMRAD100
036528,000050:                                                                                                 #      AUGEKUGL
036529,000051:                                                                                                 #      LAT-LONG
036530,000052:                                                                                                 #    TMRAD100
036531,000053:                                                                                                 #      TIMERAD
036532,000054:                                                                                                 #    INVC100
036533,000055:                                                                                                 #      CSMPREC
036534,000056:                                                                                                 #    GETERAD
036535,000057:                                                                                                 #    TIMETHET
036536,000058:                                                                                                 #    P370ALRM
036537,000059:                                                                                                 #    VN1645
036538,000060:                                                                                                 #    POLY
036539,000061: 
036540,000062:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
036541,000063:                                                                                                 #    CSM STATE VECTOR
036542,000064:                                                                                                 # # Page 841
036543,000065:                                                                                                 #    NJETSFLG      NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
036544,000066: 
036545,000067:                                                                                                 #  ASTRONAUT INPUT
036546,000068:                                                                                                 #    SPRTETIG      TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
036547,000069:                                                                                                 #    VPRED         DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
036548,000070:                                                                                                 #    GAMMAEI       DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS  + ABOVE HORIZ.
036549,000071:                                                                                                 #    OPTION2       PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
036550,000072: 
036551,000073:                                                                                                 #  OUTPUT
036552,000074:                                                                                                 #    CONIC OR PRECISION TRAJECTORY DISPLAY
036553,000075:                                                                                                 #      VPRED       VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
036554,000076:                                                                                                 #      T3TOT4      TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
036555,000077:                                                                                                 #      GAMMAEI     FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZON
036556,000078:                                                                                                 #      DELVLVC     INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
036557,000079:                                                                                                 #      LAT(SPL)    LATITUDE OF THE LANDING SITE                            DP      B0      REVS
036558,000080:                                                                                                 #      LNG(SPL)    LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
036559,000081:                                                                                                 #    TARGETING COMPUTATION DISPLAY
036560,000082:                                                                                                 #      TIG         RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
036561,000083:                                                                                                 #      TTOGO       TIME FROM TIG                                           DP      B28     CS
036562,000084:                                                                                                 #      +MGA        POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS  -.02 IF REFSMFLG=0
036563,000085:                                                                                                 #    THRUST PROGRAM COMMUNICATION
036564,000086:                                                                                                 #      XDELVFLG    EXTERNAL DELTA V FLAG                                   STATE  FLAG      SET 0 FOR LAMBERT AIMPT
036565,000087:                                                                                                 #      NORMSW      LAMBERT AIMPT ROTATION SWITCH                           STATE  FLAG      SET 0 FOR NO ROTATION
036566,000088:                                                                                                 #      ECSTEER     CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
036567,000089:                                                                                                 #      RTARG       CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
036568,000090:                                                                                                 #      TPASS4      REENTRY TIME                                            DP      B28     CS
036569,000091: 
036570,000092: 36,2502           05301        P37               TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
036571,000093: 36,2503           00004                          OCT      4                                     
036572,000094: 
036573,000095: 36,2504           06006                          TC       INTPRET                               
036574,000096: 36,2505           66170                          AXT,1    SXA,1                                 
036575,000097: 36,2506           04000                          OCT      04000                                 
036576,000098: 36,2507           03424                                   ECSTEER                               
036577,000099: 36,2510           77776                          EXIT                                           
036578,000100: 36,2511           33242                          CAF      V6N33RTE                              #  INPUT TIG   STORED IN SPRTETIG
036579,000101: 36,2512           03231                          TCR      P370GOF                               #                 OVERLAYED WITH TIG
036580,000102: 36,2513           12511                          TCF      -2                                    #  DESPLAY NEW DATA
036581,000103: 36,2514           33246                          CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
036582,000104: 36,2515           03205                          TCR      P37GFRB1                              #    AND DESIRED DELTA V IN RETDVD
036583,000105: 36,2516           12514                          TCF      -2                                    #  DISPLAY NEW DATA
036584,000106: 36,2517           06006        RTE299            TC       INTPRET                               
036585,000107: 36,2520           71331                          SSP      DLOAD                                 
036586,000108: 36,2521           00122                                   OVFIND                                
036587,000109: 36,2522           00000                                   0                                     
036588,000110: 36,2523           03767                                   VPRED                                 
036589,000111: 36,2524           17632                          STODL    RTEDVD                                
036590,000112: 36,2525           03771                                   GAMMAEI                               
036591,000113: 36,2526           17634                          STODL    RTEGAM2D                              
036592,000114: 36,2527           31671                                   1RTEB13                               
036593,000115:                                                                                                 # # Page 842
036594,000116: 36,2530           17735                          STODL    CONICX1                               
036595,000117: 36,2531           33756                                   C4RTE                                 
036596,000118: 36,2532           37652                          STCALL   MAMAX1                                
036597,000119: 36,2533           64423                                   INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
036598,000120: 36,2534           77545                          DLOAD    EXIT                                  
036599,000121: 36,2535           03646                                   R(T1)                                 
036600,000122: 36,2536           07171                          TC       POLY                                  
036601,000123: 36,2537           00002                          DEC      2          B-14                       
036602,000124: 36,2540           02544 35436                    2DEC     181000434.                            
036603,000125: 36,2542           14040 05066                    2DEC     1.50785145                            
036604,000126: 36,2544           44052 60030                    2DEC*    -6.49993057                            
036605,000127: 36,2546           26415 25057                    2DEC*    9.76938926                            
036606,000128: 36,2550           06006                          TC       INTPRET                               
036607,000129: 36,2551           77752                          SL1                                            
036608,000130: 36,2552           17654                          STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
036609,000131: 36,2553           31721                                   M9RTEB28                              
036610,000132: 36,2554           17730                          STODL    NN1A                                  
036611,000133: 36,2555           33762                                   K2RTE                                 
036612,000134: 36,2556           17636        RTE320            STODL    RCON                                  #  RCON=K2
036613,000135: 36,2557           03634                                   RTEGAM2D                              
036614,000136: 36,2560           44254                          BZE      BDSU                                  
036615,000137: 36,2561           74570                                   RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
036616,000138: 36,2562           31657                                   1RTEB2                                
036617,000139: 36,2563           71406                          PUSH     COS                                   #                                     PL02D
036618,000140: 36,2564           73525                          PDDL     SIN                                   
036619,000141: 36,2565           45465                          BDDV     STADR                                 #                                     PL00D
036620,000142: 36,2566           40051                          STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                B0
036621,000143: 36,2567           74603                                   RTE360                                
036622,000144: 36,2570           45345        RTE340            DLOAD    DSU                                   
036623,000145: 36,2571           03646                                   R(T1)                                 
036624,000146: 36,2572           33760                                   K1RTE                                 
036625,000147: 36,2573           71240                          BMN      DLOAD                                 
036626,000148: 36,2574           74600                                   RTE350                                
036627,000149: 36,2575           33766                                   K4RTE                                 
036628,000150: 36,2576           37726                          STCALL   X(T2)                                 #  X(T2)=K4
036629,000151: 36,2577           74603                                   RTE360                                
036630,000152: 36,2600           77745        RTE350            DLOAD                                          
036631,000153: 36,2601           33764                                   K3RTE                                 
036632,000154: 36,2602           03726                          STORE    X(T2)                                 #  X(T2)=K3
036633,000155: 36,2603           77624        RTE360            CALL                                           
036634,000156: 36,2604           65132                                   V2T100                                
036635,000157: 36,2605           52054                          BZE      GOTO                                  
036636,000158: 36,2606           74610                                   RTE367                                
036637,000159: 36,2607           74772                                   RTEALRM                               
036638,000160: 36,2610           77775        RTE367            VLOAD                                          
036639,000161: 36,2611           03640                                   R(T1)/                                
036640,000162:                                                                                                 # # Page 843
036641,000163: 36,2612           16657                          STODL    RVEC                                  
036642,000164: 36,2613           03636                                   RCON                                  
036643,000165: 36,2614           26760                          STOVL    RDESIRED                              
036644,000166: 36,2615           03700                                   V2(T1)/                               
036645,000167: 36,2616           36746                          STCALL   VVEC                                  
036646,000168: 36,2617           64266                                   TMRAD100                              
036647,000169: 36,2620           77615                          DAD                                            
036648,000170: 36,2621           03716                                   T1                                    
036649,000171: 36,2622           17736                          STODL    T2                                    
036650,000172: 36,2623           03634                                   RTEGAM2D                              
036651,000173: 36,2624           52054                          BZE      GOTO                                  
036652,000174: 36,2625           74627                                   RTE369                                
036653,000175: 36,2626           74651                                   RTE372                                
036654,000176: 36,2627           51575        RTE369            VLOAD    ABVAL                                 
036655,000177: 36,2630           03710                                   V(T2)/                                
036656,000178: 36,2631           77776                          EXIT                                           
036657,000179: 36,2632           07171                          TC       POLY                                  
036658,000180: 36,2633           00002                          DEC      2          B-14                       
036659,000181: 36,2634           00000 00000                    2DEC     0          B-28                       
036660,000182: 36,2636           47021 65002                    2DEC     -4.8760771                            
036661,000183: 36,2640           35610 07722                    2DEC     4.5419476                             
036662,000184: 36,2642           63772 63276                    2DEC     -1.4317675                            
036663,000185: 36,2644           06006                          TC       INTPRET                               
036664,000186: 36,2645           77615                          DAD                                            
036665,000187: 36,2646           01352                                   RTED1                                 
036666,000188: 36,2647           52052                          SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
036667,000189: 36,2650           74653                                   RTE373                                
036668,000190: 36,2651           77745        RTE372            DLOAD                                          #  X(T2),=X(T2)
036669,000191: 36,2652           03726                                   X(T2)                                 
036670,000192: 36,2653           41425        RTE373            DSU      PUSH                                  #  X(T2)ERR                        B0 PL02D
036671,000193: 36,2654           03726                                   X(T2)                                 
036672,000194: 36,2655           53575                          VLOAD    UNIT                                  
036673,000195: 36,2656           03656                                   R(T2)/                                #                                 B58
036674,000196: 36,2657           36152                          STCALL   ALPHAV                                
036675,000197: 36,2660           26437                                   GETERAD                               
036676,000198: 36,2661           77615                          DAD                                            
036677,000199: 36,2662           33772                                   E3RTE                                 
036678,000200: 36,2663           45206                          PUSH     DSU                                   #  RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
036679,000201: 36,2664           03636                                   RCON                                  
036680,000202: 36,2665           45246                          ABS      DSU                                   
036681,000203: 36,2666           31756                                   EPC2RTE                               
036682,000204: 36,2667           52040                          BMN      GOTO                                  
036683,000205: 36,2670           74672                                   RTE374                                
036684,000206: 36,2671           74677                                   RTE375                                
036685,000207: 36,2672           51545        RTE374            DLOAD    ABS                                   
036686,000208: 36,2673           00001                                   00D                                   
036687,000209:                                                                                                 # # Page 844
036688,000210: 36,2674           50025                          DSU      BMN                                   
036689,000211: 36,2675           31760                                   EPC3RTE                               
036690,000212: 36,2676           74747                                   P37E                                  
036691,000213: 36,2677           43345        RTE375            DLOAD    DAD                                   
036692,000214: 36,2700           03730                                   NN1A                                  
036693,000215: 36,2701           31677                                   1RTEB28                               
036694,000216: 36,2702           67240                          BMN      SLOAD                                 
036695,000217: 36,2703           74707                                   RTE380                                
036696,000218: 36,2704           31737                                   OCT605                                
036697,000219: 36,2705           77650                          GOTO                                           
036698,000220: 36,2706           74772                                   RTEALRM                               #  TOO MANY ITERATIONS
036699,000221: 36,2707           03730        RTE380            STORE    NN1A                                  
036700,000222: 36,2710           53025                          DSU      BZE                                   
036701,000223: 36,2711           31723                                   M8RTEB28                              
036702,000224: 36,2712           74730                                   RTE385                                
036703,000225: 36,2713           45345                          DLOAD    DSU                                   
036704,000226: 36,2714           00001                                   00D                                   
036705,000227: 36,2715           03666                                   DRCON                                 
036706,000228: 36,2716           65301                          NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1              PL06D
036707,000229: 36,2717           00047                                   X1                                    
036708,000230: 36,2720           03670                                   RPRE,                                 
036709,000231: 36,2721           56225                          DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                  PL04D
036710,000232: 36,2722           03726                                   X(T2)                                 
036711,000233: 36,2723           53605                          DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
036712,000234: 36,2724           00001                                   00D                                   
036713,000235: 36,2725           20201                                   0,1                                   
036714,000236: 36,2726           77650                          GOTO                                           
036715,000237: 36,2727           74732                                   RTE390                                
036716,000238: 36,2730           77745        RTE385            DLOAD                                          #  DX(T2)=X(T2)ERR
036717,000239: 36,2731           00001                                   00D                                   
036718,000240: 36,2732           14021        RTE390            STODL    16D                                   #  DX(T2)                             PL02D
036719,000241: 36,2733           77626                          STADR                                          
036720,000242: 36,2734           60141                          STODL    RCON                                  #  RCON=RCON,
036721,000243: 36,2735           77600                          BOV                                            
036722,000244: 36,2736           74603                                   RTE360                                
036723,000245: 36,2737           17666                          STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
036724,000246: 36,2740           03726                                   X(T2)                                 
036725,000247: 36,2741           17670                          STODL    RPRE,                                 #  X(T2)PRI=X(T2)
036726,000248: 36,2742           00021                                   16D                                   
036727,000249: 36,2743           77615                          DAD                                            
036728,000250: 36,2744           03726                                   X(T2)                                 
036729,000251: 36,2745           37726                          STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
036730,000252: 36,2746           74603                                   RTE360                                #  REITERATE
036731,000253: 36,2747           77624        P37E              CALL                                           #  DISPLAY CONIC SOLUTION
036732,000254: 36,2750           74776                                   RTEVN                                 
036733,000255: 36,2751           41345        RTE505            DLOAD    DMP                                   
036734,000256: 36,2752           03720                                   PCON                                  
036735,000257: 36,2753           03754                                   BETA1                                 
036736,000258: 36,2754           53021                          BDSU     BZE                                   
036737,000259: 36,2755           03636                                   RCON                                  
036738,000260:                                                                                                 # # Page 845
036739,000261: 36,2756           74764                                   RTE510                                
036740,000262: 36,2757           71240                          BMN      DLOAD                                 
036741,000263: 36,2760           74764                                   RTE510                                
036742,000264: 36,2761           31657                                   1RTEB2                                
036743,000265: 36,2762           77650                          GOTO                                           #  ENTRY NEAR APOGEE
036744,000266: 36,2763           74766                                   RTE515                                
036745,000267: 36,2764           57545        RTE510            DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
036746,000268: 36,2765           31657                                   1RTEB2                                
036747,000269: 36,2766           37761        RTE515            STCALL   PHI2                                  
036748,000270: 36,2767           64511                                   PREC100                               #  PRECISION TRAJECTORY COMPUTATION
036749,000271: 36,2770           77654        RTE625            BZE                                            
036750,000272: 36,2771           75024                                   P37G                                  
036751,000273: 36,2772           77624        RTEALRM           CALL                                           
036752,000274: 36,2773           64251                                   P370ALRM                              
036753,000275: 36,2774           77776                          EXIT                                           
036754,000276: 36,2775           12502                          TCF      P37                                   #  RECYCLE AFTER ALARM DISPLAY
036755,000277: 
036756,000278:                                                                                                 #                                        RETURN TO EARTH DISPLAY SUBROUTINE
036757,000279: 
036758,000280: 36,2776           45020        RTEVN             STQ      CALL                                  
036759,000281: 36,2777           03763                                   VNSTORE                               
036760,000282: 36,3000           64305                                   RTEDISP                               #  DISPLAY PREPARATION
036761,000283: 36,3001           77776                          EXIT                                           
036762,000284: 36,3002           33244                          CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
036763,000285: 36,3003           03215                          TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
036764,000286: 36,3004           34710                          CAF      FOUR                                  
036765,000287: 36,3005           03211                          TCR      37BLANK    +1                         
036766,000288: 36,3006           13013                          TCF      +5                                    
036767,000289: 36,3007           12502                          TCF      P37                                   #  RECYCLE
036768,000290: 36,3010           33245                          CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
036769,000291: 36,3011           03231                          TCR      P370GOF                               
036770,000292: 36,3012           12502                          TCF      P37                                   #  RECYCLE
036771,000293: 36,3013           33246                          CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
036772,000294: 36,3014           03205                          TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
036773,000295: 36,3015           12502                          TCF      P37                                   #  RECYCLE
036774,000296: 36,3016           33247                          CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
036775,000297: 36,3017           03231                          TCR      P370GOF                               
036776,000298: 36,3020           12502                          TCF      P37                                   #  RECYCLE
036777,000299: 36,3021           06006                          TCR      INTPRET                               
036778,000300: 36,3022           77650                          GOTO                                           
036779,000301: 36,3023           03763                                   VNSTORE                               
036780,000302: 
036781,000303:                                                                                                 #  PRECISION DISPLAY,TARGETING COMPUTATION AND RTE END PROCESSING
036782,000304: 
036783,000305: 36,3024           77624        P37G              CALL                                           
036784,000306: 36,3025           74776                                   RTEVN                                 
036785,000307: 36,3026           77776                          EXIT                                           
036786,000308: 36,3027           34716        P37N              CAF      SEVEN                                 
036787,000309: 36,3030           55131                          TS       OPTION1                               
036788,000310: 36,3031           34712                          CAF      ONE                                   
036789,000311:                                                                                                 # # Page 846
036790,000312: 36,3032           55132                          TS       OPTION2                               
036791,000313: 36,3033           33243                          CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
036792,000314: 36,3034           03231                          TCR      P370GOF                               
036793,000315: 36,3035           13033                          TCF      -2                                    #  RECYCLE
036794,000316: 36,3036           06006                          TC       INTPRET                               #  PROCEED
036795,000317: 36,3037           67201                          SETPD    SLOAD                                 
036796,000318: 36,3040           00001                                   00D                                   
036797,000319: 36,3041           01133                                   OPTION2                               
036798,000320: 36,3042           53025                          DSU      BZE                                   
036799,000321: 36,3043           31671                                   1RTEB13                               
036800,000322: 36,3044           75053                                   P37Q                                  
036801,000323: 36,3045           60345                          DLOAD    NORM                                  #  SPS
036802,000324: 36,3046           10362                                   MDOTHI                                
036803,000325: 36,3047           00047                                   X1                                    
036804,000326: 36,3050           52125                          PDDL     GOTO                                  
036805,000327: 36,3051           31727                                   VCSPS                                 
036806,000328: 36,3052           75064                                   P37T                                  
036807,000329: 36,3053           43145        P37Q              DLOAD    BON                                   #  RCS
036808,000330: 36,3054           31733                                   MDOTRCS                               
036809,000331: 36,3055           00700                                   NJETSFLG                              
036810,000332: 36,3056           75060                                   P37R                                  
036811,000333: 36,3057           77752                          SL1                                            
036812,000334: 36,3060           77752        P37R              SL1                                            
036813,000335: 36,3061           65301                          NORM     PDDL                                  
036814,000336: 36,3062           00047                                   X1                                    
036815,000337: 36,3063           31731                                   VCRCS                                 
036816,000338: 36,3064           56325        P37T              PDDL     DDV                                   #  DV/VC                  B7 -B5 = B2 PL02D
036817,000339: 36,3065           03706                                   DV                                    
036818,000340: 36,3066           77776                          EXIT                                           
036819,000341: 36,3067           07171                          TC       POLY                                  
036820,000342: 36,3070           00001                          DEC      1          B-14                       
036821,000343: 36,3071           00001 05070                    2DEC     5.66240507                            
036822,000344: 36,3073           17527 36700                    2DEC     9.79487897                            
036823,000345: 36,3075           47114 70670                    2DEC     -.388281955                            
036824,000346: 36,3077           06006                          TC       INTPRET                               
036825,000347: 36,3100           67206                          PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A               B3 PL04D
036826,000348: 36,3101           03076                                   WEIGHT/G                              
036827,000349: 36,3102           56205                          DMP      DDV                                   #  DTB=(M0/MDOT)A       B16+B3-B3=B16 PL00D
036828,000350: 36,3103           41257                          SL*      DMP                                   
036829,000351: 36,3104           20165                                   0          -12D,1                     
036830,000352: 36,3105           31735                                   CSUBT                                 
036831,000353: 36,3106           77621                          BDSU                                           
036832,000354: 36,3107           03716                                   T1                                    
036833,000355: 36,3110           03413                          STORE    TIG                                   #  TIG=T1-CT*DTB                  B28
036834,000356: 36,3111           77776                          EXIT                                           
036835,000357: 36,3112           33242                          CAF      V6N33RTE                              #  DISPLAY BIASED TIG
036836,000358: 36,3113           03231                          TCR      P370GOF                               
036837,000359:                                                                                                 # # Page 847
036838,000360: 36,3114           13112                          TCF      -2                                    
036839,000361: 36,3115           34714                          CAF      ZERO                                  
036840,000362: 36,3116           55125                          TS       VHFCNT                                
036841,000363: 36,3117           55126                          TS       TRKMKCNT                              
036842,000364: 36,3120           06006                          TC       INTPRET                               
036843,000365: 36,3121           77624                          CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
036844,000366: 36,3122           65051                                   RTENCK1                               
036845,000367: 36,3123           53575                          VLOAD    UNIT                                  #                                     PL00D
036846,000368: 36,3124           03656                                   R(T2)/                                
036847,000369: 36,3125           74315                          PDVL     VXSC                                  #  UR2                             B1 PL06D
036848,000370: 36,3126           03740                                   UR1/                                  
036849,000371: 36,3127           31742                                   MCOS7.5                               
036850,000372: 36,3130           74315                          PDVL     VXSC                                  #  -UR1(COS7.5)                    B1 PL12D
036851,000373: 36,3131           03746                                   UH/                                   
036852,000374: 36,3132           31744                                   MSIN7.5                               
036853,000375: 36,3133           50255                          VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)      B2 PL00D
036854,000376: 36,3134           50015                          DAD      BMN                                   
036855,000377: 36,3135           31746                                   MCOS22.5                              
036856,000378: 36,3136           75163                                   P37W                                  
036857,000379: 36,3137           50375                          VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
036858,000380: 36,3140           03746                                   UH/                                   
036859,000381: 36,3141           03656                                   R(T2)/                                
036860,000382: 36,3142           71240                          BMN      DLOAD                                 
036861,000383: 36,3143           75147                                   P37U                                  
036862,000384: 36,3144           31750                                   THETA165                              
036863,000385: 36,3145           52006                          PUSH     GOTO                                  
036864,000386: 36,3146           75151                                   P37V                                  
036865,000387: 36,3147           41545        P37U              DLOAD    PUSH                                  
036866,000388: 36,3150           31752                                   THETA210                              
036867,000389: 36,3151           77756        P37V              SIN                                            
036868,000390: 36,3152           16732                          STODL    SNTH                                  
036869,000391: 36,3153           43146                          COS      CLEAR                                 
036870,000392: 36,3154           03666                                   RVSW                                  
036871,000393: 36,3155           26734                          STOVL    CSTH                                  
036872,000394: 36,3156           03640                                   R(T1)/                                
036873,000395: 36,3157           26657                          STOVL    RVEC                                  
036874,000396: 36,3160           03700                                   V2(T1)/                               
036875,000397: 36,3161           36746                          STCALL   VVEC                                  
036876,000398: 36,3162           24737                                   TIMETHET                              
036877,000399: 36,3163           43014        P37W              CLEAR    CLEAR                                 
036878,000400: 36,3164           01267                                   XDELVFLG                              
036879,000401: 36,3165           03665                                   NORMSW                                
036880,000402: 36,3166           77214                          SET      VLOAD                                 
036881,000403: 36,3167           01071                                   FINALFLG                              
036882,000404: 36,3170           77626                          STADR                                          
036883,000405: 36,3171           60362                          STODL    RTARG                                 
036884,000406: 36,3172           00037                                   T                                     
036885,000407: 36,3173           77615                          DAD                                            
036886,000408: 36,3174           03716                                   T1                                    
036887,000409: 36,3175           27656                          STOVL    TPASS4                                
036888,000410:                                                                                                 # # Page 848
036889,000411: 36,3176           03700                                   V2(T1)/                               
036890,000412: 36,3177           77651                          VSU                                            
036891,000413: 36,3200           03672                                   V(T1)/                                
036892,000414: 36,3201           37646                          STCALL   DELVSIN                               
036893,000415: 36,3202           73005                                   VN1645                                
036894,000416: 36,3203           77650                          GOTO                                           
036895,000417: 36,3204           75163                                   P37W                                  
036896,000418: 
036897,000419:                                                                                                 #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
036898,000420: 
036899,000421: 36,3205           00006        P37GFRB1          EXTEND                                         
036900,000422: 36,3206           23762                          QXCH     SPRTEX                                
036901,000423: 36,3207           03215                          TCR      P370GOFR                              
036902,000424: 36,3210           34712        37BLANK           CAF      ONE                                   
036903,000425: 36,3211           05415                          TCR      BLANKET                               
036904,000426: 36,3212           15112                          TCF      ENDOFJOB                              
036905,000427: 36,3213           01762                          TC       SPRTEX                                #  RECYCLE
036906,000428: 36,3214           13240                          TCF      P37PROC                               #  PROCEED
036907,000429: 
036908,000430:                                                                                                 #  SUBROUTINE TO GO TO GOFLASHR
036909,000431: 
036910,000432: 36,3215           00006        P370GOFR          EXTEND                                         
036911,000433: 36,3216           23733                          QXCH     RTENCKEX                              
036912,000434: 36,3217           04555                          TCR      BANKCALL                              
036913,000435: 36,3220           20763                          CADR     GOFLASHR                              
036914,000436: 36,3221           14106                          TCF      GOTOPOOH                              #  TERMINATE
036915,000437: 36,3222           13225                          TCF      +3                                    
036916,000438: 36,3223           13227                          TCF      +4                                    
036917,000439: 36,3224           01733                          TC       RTENCKEX                              #  IMMEDIATE RETURN
036918,000440: 36,3225           51733                          INDEX    RTENCKEX                              #  PROCEED
036919,000441: 36,3226           10004                          TCF      0          +4                         
036920,000442: 36,3227           51733                          INDEX    RTENCKEX                              #  RECYCLE
036921,000443: 36,3230           10003                          TCF      0          +3                         
036922,000444: 
036923,000445:                                                                                                 #  SUBROUTINE TO GO TO GOFLASH
036924,000446: 
036925,000447: 36,3231           00006        P370GOF           EXTEND                                         
036926,000448: 36,3232           23762                          QXCH     SPRTEX                                
036927,000449: 36,3233           04555                          TCR      BANKCALL                              
036928,000450: 36,3234           20624                          CADR     GOFLASH                               
036929,000451: 36,3235           14106                          TCF      GOTOPOOH                              
036930,000452: 36,3236           13240                          TCF      +2                                    
036931,000453: 36,3237           01762                          TC       SPRTEX                                
036932,000454: 36,3240           51762        P37PROC           INDEX    SPRTEX                                
036933,000455: 36,3241           10001                          TCF      0          +1                         
036934,000456: 36,3242           01441        V6N33RTE          VN       0633                                  
036935,000457: 36,3243           01006        V4N06RTE          VN       0406                                  
036936,000458: 36,3244           01475        V6N61RTE          VN       0661                                  
036937,000459: 36,3245           01447        V6N39RTE          VN       0639                                  
036938,000460: 36,3246           01474        V6N60RTE          VN       0660                                  
036939,000461:                                                                                                 # # Page 849
036940,000462: 36,3247           01521        V6N81RTE          VN       0681                                  
036941,000463: 32,2251                                          BANK     32                                    
036942,000464: 32,2000                                          SETLOC   RTE                                   
036943,000465: 32,2000                                          BANK                                           
036944,000466: 32,2251                                          COUNT    32/RTE                                
036945,000467: 
036946,000468:                                                                                                 # # Page 850
036947,000469:                                                                                                 #  ALARM DISPLAY SUBROUTINE
036948,000470: 32,2251           77420        P370ALRM          STQ      EXIT                                  
036949,000471: 32,2252           03762                                   SPRTEX                                
036950,000472: 32,2253           30154                          CA       MPAC                                  
036951,000473: 32,2254           05653                          TC       VARALARM                              
036952,000474: 32,2255           32265                          CAF      V5N09RTE                              
036953,000475: 32,2256           04555                          TC       BANKCALL                              
036954,000476: 32,2257           20624                          CADR     GOFLASH                               
036955,000477: 32,2260           14106                          TCF      GOTOPOOH                              
036956,000478: 32,2261           12255                          TCF      -4                                    
036957,000479: 32,2262           06006                          TC       INTPRET                               
036958,000480: 32,2263           77650                          GOTO                                           
036959,000481: 32,2264           03762                                   SPRTEX                                
036960,000482: 32,2265           01211        V5N09RTE          VN       0509                                  
036961,000483: 
036962,000484:                                                                                                 # # Page 851
036963,000485:                                                                                                 #  TIME RADIUS CALLING SUBROUTINE
036964,000486: 
036965,000487:                                                                                                 #  INPUT
036966,000488:                                                                                                 #    RVEC          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
036967,000489:                                                                                                 #    VVEC          INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
036968,000490:                                                                                                 #    RDESIRED      FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
036969,000491:                                                                                                 #    CONICX1       X1 SETTING FOR CONIC SUBROUTINES  -2 = EARTH            SP      B14
036970,000492:                                                                                                 #  OUTPUT
036971,000493:                                                                                                 #    R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
036972,000494:                                                                                                 #    V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
036973,000495:                                                                                                 #    T12            TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
036974,000496: 
036975,000497: 32,2266           43020        TMRAD100          STQ      CLEAR                                 
036976,000498: 32,2267           03733                                   RTENCKEX                              
036977,000499: 32,2270           03666                                   RVSW                                  
036978,000500: 32,2271           67164                          AXC,2    SXA,2                                 
036979,000501: 32,2272           20000                          OCT      20000                                 
036980,000502: 32,2273           02756                                   SGNRDOT                               
036981,000503: 32,2274           45140                          LXC,1    CALL                                  
036982,000504: 32,2275           03734                                   CONICX1                               
036983,000505: 32,2276           25552                                   TIMERAD                               
036984,000506: 32,2277           27710                          STOVL    V(T2)/                                #                                     PL00D
036985,000507: 32,2300           77626                          STADR                                          
036986,000508: 32,2301           60121                          STODL    R(T2)/                                
036987,000509: 32,2302           00037                                   T                                     
036988,000510: 32,2303           37724                          STCALL   T12                                   
036989,000511: 32,2304           03733                                   RTENCKEX                              
036990,000512: 
036991,000513:                                                                                                 # # Page 852
036992,000514:                                                                                                 #  DISPLAY CALCULATION SUBROUTINE
036993,000515: 
036994,000516:                                                                                                 #  DESCRIPTION
036995,000517:                                                                                                 #    OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
036996,000518:                                                                                                 #  COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
036997,000519: 
036998,000520:                                                                                                 #  CALLING SEQUENCE
036999,000521:                                                                                                 #    L      CALL
037000,000522:                                                                                                 #    L+1           RTEDISP
037001,000523: 
037002,000524:                                                                                                 #  SUBROUTINES CALLED
037003,000525:                                                                                                 #    TMRAD100
037004,000526:                                                                                                 #    AUGEKUGL
037005,000527:                                                                                                 #    LAT-LONG
037006,000528: 
037007,000529:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
037008,000530:                                                                                                 #    PUSHLIST
037009,000531:                                                                                                 #      NONE
037010,000532:                                                                                                 #    MPAC
037011,000533:                                                                                                 #      NONE
037012,000534:                                                                                                 #    OTHER
037013,000535:                                                                                                 #      R(T2)/      FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037014,000536:                                                                                                 #      V(T2)/      FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037015,000537:                                                                                                 #      T2          FINAL TIME                                              DP      B28     CS
037016,000538:                                                                                                 #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
037017,000539:                                                                                                 #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
037018,000540:                                                                                                 #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
037019,000541:                                                                                                 #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037020,000542: 
037021,000543:                                                                                                 #  OUTPUT
037022,000544:                                                                                                 #      VPRED       VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
037023,000545:                                                                                                 #      T3TOT4      TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
037024,000546:                                                                                                 #      GAMMAEI     FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZ
037025,000547:                                                                                                 #      DELVLVC     INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
037026,000548:                                                                                                 #      LAT(SPL)    LATITUDE OF THE LANDING SITE                            DP      B0      REVS
037027,000549:                                                                                                 #      LNG(SPL)    LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
037028,000550: 
037029,000551: 32,2305           77220        RTEDISP           STQ      VLOAD                                 #  DISPLAY
037030,000552: 32,2306           03762                                   SPRTEX                                
037031,000553: 32,2307           03710                                   V(T2)/                                
037032,000554: 32,2310           65256                          UNIT     PDDL                                  
037033,000555: 32,2311           00045                                   36D                                   
037034,000556: 32,2312           17767                          STODL    VPRED                                 #  V(T2)
037035,000557: 32,2313           03736                                   T2                                    
037036,000558: 32,2314           77625                          DSU                                            
037037,000559: 32,2315           03413                                   SPRTETIG                              
037038,000560: 32,2316           26641                          STOVL    T3TOT4                                #  T21
037039,000561: 32,2317           03656                                   R(T2)/                                
037040,000562: 32,2320           50256                          UNIT     DOT                                   
037041,000563: 32,2321           77752                          SL1                                            
037042,000564:                                                                                                 # # Page 853
037043,000565: 32,2322           44326                          ARCCOS   BDSU                                  
037044,000566: 32,2323           31657                                   1RTEB2                                
037045,000567: 32,2324           27771                          STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
037046,000568: 32,2325           03700                                   V2(T1)/                               
037047,000569: 32,2326           41451                          VSU      PUSH                                  
037048,000570: 32,2327           03672                                   V(T1)/                                
037049,000571: 32,2330           57441                          DOT      DCOMP                                 
037050,000572: 32,2331           03740                                   UR1/                                  
037051,000573: 32,2332           41515                          PDVL     PUSH                                  
037052,000574: 32,2333           63345                          DLOAD    PDVL                                  
037053,000575: 32,2334           31701                                   ZERORTE                               
037054,000576: 32,2335           55441                          DOT      VDEF                                  
037055,000577: 32,2336           03746                                   UH/                                   
037056,000578: 32,2337           77772                          VSL1                                           
037057,000579: 32,2340           27405                          STOVL    DELVLVC                               #  DV/ (LVC)
037058,000580: 32,2341           03656                                   R(T2)/                                
037059,000581: 32,2342           02657                          STORE    RVEC                                  #  *****  LANDING SITE COMPUTATION  *****
037060,000582: 32,2343           45246                          ABVAL    DSU                                   
037061,000583: 32,2344           31725                                   30480RTE                              
037062,000584: 32,2345           26760                          STOVL    RDESIRED                              
037063,000585: 32,2346           03710                                   V(T2)/                                
037064,000586: 32,2347           36746                          STCALL   VVEC                                  
037065,000587: 32,2350           64266                                   TMRAD100                              #  R3,V3,T23 FROM TIMERAD
037066,000588: 32,2351           53575                          VLOAD    UNIT                                  
037067,000589: 32,2352           03656                                   R(T2)/                                
037068,000590: 32,2353           53515                          PDVL     UNIT                                  #  UR3                                PL06D
037069,000591: 32,2354           03710                                   V(T2)/                                
037070,000592: 32,2355           72441                          DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)           PL00D
037071,000593: 32,2356           65336                          ARCSIN   PDDL                                  #  V(T3)                              PL02D
037072,000594: 32,2357           00045                                   36D                                   
037073,000595: 32,2360           51525                          PDDL     ABS                                   
037074,000596: 32,2361           45006                          PUSH     CALL                                  #  /GAMMAE/                           PL04D
037075,000597: 32,2362           64071                                   AUGEKUGL                              #  PHIE                               PL06D
037076,000598: 32,2363           43215                          DAD      DAD                                   
037077,000599: 32,2364           03724                                   T12                                   #  T23
037078,000600: 32,2365           03736                                   T2                                    
037079,000601: 32,2366           14003                          STODL    02D                                   #  T(LS)=T2+T23+TE
037080,000602: 32,2367           00005                                   04D                                   
037081,000603: 32,2370           77756                          SIN                                            
037082,000604: 32,2371           17403                          STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                 PL04D
037083,000605: 32,2372           77746                          COS                                            
037084,000606: 32,2373           03401                          STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
037085,000607: 32,2374           53575                          VLOAD    UNIT                                  
037086,000608: 32,2375           03656                                   R(T2)/                                
037087,000609: 32,2376           41406                          PUSH     PUSH                                  
037088,000610: 32,2377           53515                          PDVL     UNIT                                  #                                     PL22D
037089,000611: 32,2400           03710                                   V(T2)/                                
037090,000612: 32,2401           47315                          PDVL     VXV                                   
037091,000613: 32,2402           53435                          VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)          PL10D
037092,000614: 32,2403           63361                          VXSC     PDVL                                  
037093,000615:                                                                                                 # # Page 854
037094,000616: 32,2404           03403                                   LNG(SPL)                              
037095,000617: 32,2405           53361                          VXSC     VAD                                   #                                     PL04D
037096,000618: 32,2406           03401                                   LAT(SPL)                              
037097,000619: 32,2407           43014                          CLEAR    CLEAR                                 #  T(LS) IN MPAC
037098,000620: 32,2410           00662                                   ERADFLAG                              
037099,000621: 32,2411           01663                                   LUNAFLAG                              
037100,000622: 32,2412           16152                          STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)   PL02D
037101,000623: 32,2413           77624                          CALL                                           
037102,000624: 32,2414           26322                                   LAT-LONG                              
037103,000625: 32,2415           77745                          DLOAD                                          
037104,000626: 32,2416           01104                                   LAT                                   
037105,000627: 32,2417           17401                          STODL    LAT(SPL)                              #  LATITUDE LANDING SITE   *****
037106,000628: 32,2420           01106                                   LONG                                  
037107,000629: 32,2421           37403                          STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE  *****
037108,000630: 32,2422           03762                                   SPRTEX                                
037109,000631: 32,2423                                          COUNT*   $$/RTE                                
037110,000632: 
037111,000633:                                                                                                 # # Page 855
037112,000634:                                                                                                 #  INITIAL VECTOR SUBROUTINE
037113,000635: 
037114,000636:                                                                                                 #  DESCRIPTION
037115,000637:                                                                                                 #    A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION ISPERFORMED.PRECOMPUTATIONS OCCUR.
037116,000638: 
037117,000639:                                                                                                 #  CALLING SEQUENCE
037118,000640:                                                                                                 #    L      CALL
037119,000641:                                                                                                 #    L+1           INVC100
037120,000642: 
037121,000643:                                                                                                 #  NORMAL EXIT MODE
037122,000644:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037123,000645: 
037124,000646:                                                                                                 #  ALARM EXIT MODE
037125,000647:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
037126,000648: 
037127,000649:                                                                                                 #  SUBROUTINES CALLED
037128,000650:                                                                                                 #    CSMPREC
037129,000651: 
037130,000652:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
037131,000653:                                                                                                 #    PUSHLIST
037132,000654:                                                                                                 #      NONE
037133,000655:                                                                                                 #    MPAC
037134,000656:                                                                                                 #      NONE
037135,000657:                                                                                                 #    OTHER
037136,000658:                                                                                                 #      SPRTETIG    TIME OF IGNITION                                        DP      B28     CS
037137,000659:                                                                                                 #      CSM STATE VECTOR
037138,000660: 
037139,000661:                                                                                                 #  OUTPUT
037140,000662:                                                                                                 #    R(T1)/        INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
037141,000663:                                                                                                 #    V(T1)/        INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
037142,000664:                                                                                                 #    T1            INITIAL VECTOR TIME (TIG)                               DP      B28     CS
037143,000665:                                                                                                 #    UR1/          UNIT INITIAL VECTOR                                     VECTOR  B1
037144,000666:                                                                                                 #    UH/           UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037145,000667:                                                                                                 #    CFPA          COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
037146,000668: 
037147,000669: 32,2423           71220        INVC100           STQ      DLOAD                                 
037148,000670: 32,2424           03762                                   SPRTEX                                
037149,000671: 32,2425           03413                                   SPRTETIG                              
037150,000672: 32,2426           34041                          STCALL   TDEC1                                 
037151,000673: 32,2427           27022                                   CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
037152,000674: 32,2430           67175                          VLOAD    SXA,2                                 
037153,000675: 32,2431           00001                                   RATT                                  
037154,000676: 32,2432           03755                                   P(T1)                                 
037155,000677: 32,2433           27640                          STOVL    R(T1)/                                
037156,000678: 32,2434           00007                                   VATT                                  
037157,000679: 32,2435           17672                          STODL    V(T1)/                                
037158,000680: 32,2436           00015                                   TAT                                   
037159,000681: 32,2437           03716                          STORE    T1                                    
037160,000682: 32,2440           53135                          SLOAD    BZE                                   
037161,000683: 32,2441           03756                                   P(T1)                                 
037162,000684:                                                                                                 # # Page 856
037163,000685: 32,2442           64446                                   INVC109                               
037164,000686: 32,2443           52135        INVC107           SLOAD    GOTO                                  
037165,000687: 32,2444           31740                                   OCT612                                
037166,000688: 32,2445           74772                                   RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037167,000689: 32,2446           53575        INVC109           VLOAD    UNIT                                  
037168,000690: 32,2447           03640                                   R(T1)/                                
037169,000691: 32,2450           17740                          STODL    UR1/                                  #  UR1/                           B1
037170,000692: 32,2451           00045                                   36D                                   
037171,000693: 32,2452           27646                          STOVL    R(T1)                                 #  R(T1)                         B29
037172,000694: 32,2453           03672                                   V(T1)/                                
037173,000695: 32,2454           77656                          UNIT                                           
037174,000696: 32,2455           03746                          STORE    UV1/                                  
037175,000697: 32,2456           72441                          DOT      SL1                                   
037176,000698: 32,2457           03740                                   UR1/                                  
037177,000699: 32,2460           03757                          STORE    CFPA                                  #  CFPA                            B1
037178,000700: 32,2461           45246                          ABS      DSU                                   
037179,000701: 32,2462           31754                                   EPC1RTE                               
037180,000702: 32,2463           71240                          BMN      DLOAD                                 
037181,000703: 32,2464           64473                                   INVC115                               #  NOT NEAR RECTILINEAR
037182,000704: 32,2465           31657                                   1RTEB2                                
037183,000705: 32,2466           41525                          PDDL     PUSH                                  
037184,000706: 32,2467           31701                                   ZERORTE                               
037185,000707: 32,2470           41466                          VDEF     PUSH                                  #  N/ = (0,0,1)
037186,000708: 32,2471           77650                          GOTO                                           
037187,000709: 32,2472           64477                                   INVC120                               
037188,000710: 32,2473           47375        INVC115           VLOAD    VXV                                   
037189,000711: 32,2474           03740                                   UR1/                                  
037190,000712: 32,2475           03746                                   UV1/                                  
037191,000713: 32,2476           77606                          PUSH                                           #  N/ = UR X UV                    B2
037192,000714: 32,2477           41545        INVC120           DLOAD    PUSH                                  
037193,000715: 32,2500           77244                          BPL      VLOAD                                 
037194,000716: 32,2501           64503                                   INVC125                               
037195,000717: 32,2502           41476                          VCOMP    PUSH                                  #  CORRECT N/ FOR RETROGRADE TRAJECTORY
037196,000718: 32,2503           77775        INVC125           VLOAD                                          
037197,000719: 32,2504           53435                          VXV      UNIT                                  
037198,000720: 32,2505           03740                                   UR1/                                  
037199,000721: 32,2506           03746                          STORE    UH/                                   #  UH/                             B1
037200,000722: 32,2507           77650                          GOTO                                           
037201,000723: 32,2510           03762                                   SPRTEX                                
037202,000724: 
037203,000725:                                                                                                 # # Page 857
037204,000726:                                                                                                 #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
037205,000727: 
037206,000728:                                                                                                 #  DESCRIPTION
037207,000729:                                                                                                 #    A NUMERICALLY INTEGRATED TRAJECTORY IS GENEATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
037208,000730:                                                                                                 #  CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
037209,000731:                                                                                                 #  AS POSSIBLE.
037210,000732: 
037211,000733:                                                                                                 #  CALLING SEQUENCE
037212,000734:                                                                                                 #    L      CALL
037213,000735:                                                                                                 #    L+1           PREC100
037214,000736: 
037215,000737:                                                                                                 #  NORMAL EXIT MODE
037216,000738:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037217,000739: 
037218,000740:                                                                                                 #  ALARM EXIT MODE
037219,000741:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC =
037220,000742:                                                                                                 #         OCTAL 605        FOR EXCESS ITERATIONS
037221,000743:                                                                                                 #         OCTAL 613        FOR REENTRY ANGLE OUT OF LIMITS
037222,000744: 
037223,000745:                                                                                                 #  SUBROUTINES CALLED
037224,000746:                                                                                                 #    INTSTALL
037225,000747:                                                                                                 #    RTENCK2
037226,000748:                                                                                                 #    RTENCK3
037227,000749:                                                                                                 #    TIMERAD
037228,000750:                                                                                                 #    PARAM
037229,000751:                                                                                                 #    V2T100
037230,000752: 
037231,000753:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
037232,000754:                                                                                                 #    PUSHLIST
037233,000755:                                                                                                 #      NONE
037234,000756:                                                                                                 #    MPAC
037235,000757:                                                                                                 #      NONE
037236,000758:                                                                                                 #    OTHER
037237,000759:                                                                                                 #      R(T1)/      INITIAL POSITION VECTOR                                 VECTOR  B28/B27 METERS
037238,000760:                                                                                                 #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
037239,000761:                                                                                                 #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
037240,000762:                                                                                                 #      T1          INITIAL VECTOR TIME                                     DP      B28     CS
037241,000763:                                                                                                 #      T12         INITIAL TO FINAL POSITION TIME                          DP      B28     CS
037242,000764:                                                                                                 #      RCON        CONIC FINAL RADIUS                                      DP      B29/B27 METERS
037243,000765:                                                                                                 #      R(T1)       MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
037244,000766:                                                                                                 #      X(T2)       COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
037245,000767:                                                                                                 #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
037246,000768:                                                                                                 #      RTEDVD      DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
037247,000769:                                                                                                 #      MAMAX1      MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
037248,000770:                                                                                                 #      MAMAX2      MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
037249,000771:                                                                                                 #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
037250,000772:                                                                                                 #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037251,000773:                                                                                                 #      BETA1       1+X(T2)**2                                              DP      B1
037252,000774:                                                                                                 #      PHI2        PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE,+1 APOGEE
037253,000775: 
037254,000776:                                                                                                 # # Page 858
037255,000777:                                                                                                 #  OUTPUT
037256,000778:                                                                                                 #    V2(T1)/       POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
037257,000779:                                                                                                 #    R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
037258,000780:                                                                                                 #    V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037259,000781:                                                                                                 #    T2            FINAL TIME                                              DP      B28     CENTISECONDS
037260,000782: 
037261,000783:                                                                                                 #  DEBRIS
037262,000784:                                                                                                 #    RD            FINAL R DESIRED                                         DP      B29/B27 METERS
037263,000785:                                                                                                 #    R/APRE        R/A                                                     DP      B6
037264,000786:                                                                                                 #    P/RPRE        P/R                                                     DP      B2
037265,000787:                                                                                                 #    RPRE          MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
037266,000788:                                                                                                 #    X(T2)PRE      COTANGENT OF GAMMA2                                     DP      B0
037267,000789:                                                                                                 #    DT12          CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
037268,000790:                                                                                                 #    RCON          FINAL RADIUS                                            DP      B29/B27 METERS
037269,000791:                                                                                                 #    DRCON         DELTA RCON                                              DP      B29/B27 METERS
037270,000792: 
037271,000793: 32,2511           71220        PREC100           STQ      DLOAD                                 
037272,000794: 32,2512           03762                                   SPRTEX                                
037273,000795: 32,2513           31707                                   10RTE                                 
037274,000796: 32,2514           17730                          STODL    NN1A                                  
037275,000797: 32,2515           03636                                   RCON                                  
037276,000798: 32,2516           03664                          STORE    RD                                    
037277,000799: 32,2517           77745        PREC120           DLOAD                                          
037278,000800: 32,2520           31717                                   2RTEB1                                
037279,000801: 32,2521           17650                          STODL    DT21PR                                #  DT21PR = POSMAX
037280,000802: 32,2522           31705                                   M15RTE                                
037281,000803: 32,2523           37732                          STCALL   NN2                                   
037282,000804: 32,2524           65077                                   RTENCK3                               
037283,000805: 32,2525           77624        PREC125           CALL                                           
037284,000806: 32,2526           11524                                   PARAM                                 
037285,000807: 32,2527           77745                          DLOAD                                          
037286,000808: 32,2530           02742                                   P                                     
037287,000809: 32,2531           14033                          STODL    P/RPRE                                
037288,000810: 32,2532           02744                                   R1A                                   
037289,000811: 32,2533           14035                          STODL    R/APRE                                
037290,000812: 32,2534           00041                                   R1                                    
037291,000813: 32,2535           14031                          STODL    RPRE                                  
037292,000814: 32,2536           03775                                   COGA                                  
037293,000815: 32,2537           77661                          SL                                             
037294,000816: 32,2540           20206                                   5                                     
037295,000817: 32,2541           03724                          STORE    X(T2)PRE                              
037296,000818: 32,2542           43276                          DCOMP    DAD                                   
037297,000819: 32,2543           03726                                   X(T2)                                 
037298,000820: 32,2544           45246                          ABS      DSU                                   
037299,000821: 32,2545           31762                                   EPC4RTE                               
037300,000822: 32,2546           50000                          BOV      BMN                                   
037301,000823: 32,2547           64551                                   PREC130                               
037302,000824: 32,2550           64732                                   PREC175                               
037303,000825: 
037304,000826:                                                                                                 #  DESIRED REENTRY ANGLE NOT ACHIEVED
037305,000827:                                                                                                 # # Page 859
037306,000828: 32,2551           50145        PREC130           DLOAD    BMN                                   
037307,000829: 32,2552           03732                                   NN2                                   
037308,000830: 32,2553           64557                                   PREC140                               
037309,000831: 32,2554           52135        PREC132           SLOAD    GOTO                                  #  TOO MANY ITERATIONS
037310,000832: 32,2555           31737                                   OCT605                                #      EXIT WITH ALARM
037311,000833: 32,2556           65047                                   PRECX                                 
037312,000834: 
037313,000835:                                                                                                 #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
037314,000836: 
037315,000837: 32,2557           53145        PREC140           DLOAD    BZE                                   
037316,000838: 32,2560           03730                                   NN1A                                  
037317,000839: 32,2561           64612                                   PREC162                               
037318,000840: 32,2562           42545        PREC150           DLOAD    SL4                                   #  ELLIPTIC CASE
037319,000841: 32,2563           00035                                   R/APRE                                
037320,000842: 32,2564           52525                          PDDL     SL3                                   #                                     PL02D
037321,000843: 32,2565           00033                                   P/RPRE                                
037322,000844: 32,2566           41205                          DMP      DMP                                   #  (P/A)BETA1                      B4 PL00D
037323,000845: 32,2567           03754                                   BETA1                                 
037324,000846: 32,2570           57512                          SL2      DCOMP                                 
037325,000847: 32,2571           50015                          DAD      BMN                                   #  1-(P/A)BETA1=BETA2              B2
037326,000848: 32,2572           31657                                   1RTEB2                                
037327,000849: 32,2573           64576                                   PREC155                               
037328,000850: 32,2574           52166                          SQRT     GOTO                                  #  BETA2**.5=BETA3                 B1
037329,000851: 32,2575           64600                                   PREC160                               
037330,000852: 32,2576           77745        PREC155           DLOAD                                          
037331,000853: 32,2577           31701                                   ZERORTE                               #  BETA3=0
037332,000854: 32,2600           43205        PREC160           DMP      DAD                                   
037333,000855: 32,2601           03761                                   PHI2                                  
037334,000856: 32,2602           31661                                   1RTEB3                                
037335,000857: 32,2603           60325                          PDDL     NORM                                  #  1+(PHI2)(BETA3)                 B3
037336,000858: 32,2604           00035                                   R/APRE                                
037337,000859: 32,2605           00047                                   X1                                    
037338,000860: 32,2606           77665                          BDDV                                           #                                     PL00D
037339,000861: 32,2607           52057                          SL*      GOTO                                  #  (1+PHI2*BETA3)/(R/A)=BETA4      B1
037340,000862: 32,2610           20175                                   0          -4,1                       
037341,000863: 32,2611           64620                                   PREC165                               
037342,000864: 32,2612           60345        PREC162           DLOAD    NORM                                  
037343,000865: 32,2613           00031                                   RPRE                                  
037344,000866: 32,2614           00047                                   X1                                    
037345,000867: 32,2615           53665                          BDDV     SL*                                   #  BETA4=RD/RPRE                   B1
037346,000868: 32,2616           03664                                   RD                                    
037347,000869: 32,2617           20200                                   0          -1,1                       
037348,000870: 32,2620           45206        PREC165           PUSH     DSU                                   
037349,000871: 32,2621           31655                                   1RTEB1                                
037350,000872: 32,2622           77676                          DCOMP                                          
037351,000873: 32,2623           03765                          STORE    BETA12                                
037352,000874: 32,2624           71240                          BMN      DLOAD                                 
037353,000875: 32,2625           64636                                   PREC168                               
037354,000876: 32,2626           03724                                   X(T2)PRE                              
037355,000877: 32,2627           71240                          BMN      DLOAD                                 
037356,000878:                                                                                                 # # Page 860
037357,000879: 32,2630           64634                                   PREC167                               
037358,000880: 32,2631           03765                                   BETA12                                
037359,000881: 32,2632           77676                          DCOMP                                          
037360,000882: 32,2633           03765                          STORE    BETA12                                
037361,000883: 32,2634           77745        PREC167           DLOAD                                          
037362,000884: 32,2635           03765                                   BETA12                                
037363,000885: 32,2636           45246        PREC168           ABS      DSU                                   
037364,000886: 32,2637           31766                                   EPC6RTE                               
037365,000887: 32,2640           71240                          BMN      DLOAD                                 
037366,000888: 32,2641           64732                                   PREC175                               
037367,000889: 32,2642           72405                          DMP      SL1                                   
037368,000890: 32,2643           00031                                   RPRE                                  
037369,000891: 32,2644           77606                          PUSH                                           #  RF = NEW RADIUS
037370,000892: 32,2645           43345        PREC170           DLOAD    DAD                                   
037371,000893: 32,2646           03732                                   NN2                                   
037372,000894: 32,2647           31677                                   1RTEB28                               
037373,000895: 32,2650           03732                          STORE    NN2                                   
037374,000896: 32,2651           43175                          VLOAD    SET                                   
037375,000897: 32,2652           03656                                   R(T2)/                                
037376,000898: 32,2653           03466                                   RVSW                                  
037377,000899: 32,2654           26657                          STOVL    RVEC                                  
037378,000900: 32,2655           03710                                   V(T2)/                                
037379,000901: 32,2656           77765                          SIGN                                           
037380,000902: 32,2657           03765                                   BETA12                                
037381,000903: 32,2660           16746                          STODL    VVEC                                  
037382,000904: 32,2661           31655                                   1RTEB1                                
037383,000905: 32,2662           57565                          SIGN     DCOMP                                 
037384,000906: 32,2663           03765                                   BETA12                                
037385,000907: 32,2664           71354                          LXA,2    DLOAD                                 
037386,000908: 32,2665           00154                                   MPAC                                  
037387,000909: 32,2666           67140                          LXC,1    SXA,2                                 
037388,000910: 32,2667           03734                                   CONICX1                               
037389,000911: 32,2670           02756                                   SGNRDOT                               
037390,000912: 32,2671           36760                          STCALL   RDESIRED                              #  COMPUTE DT12 (CORRECTION TO TIME OF
037391,000913: 32,2672           25552                                   TIMERAD                               #        NEW RADIUS)
037392,000914: 32,2673           75345                          DLOAD    SIGN                                  
037393,000915: 32,2674           00037                                   T                                     
037394,000916: 32,2675           03765                                   BETA12                                
037395,000917: 32,2676           60325                          PDDL     NORM                                  #  DT21=(PHI4)DT21                    PL02D
037396,000918: 32,2677           03650                                   DT21PR                                
037397,000919: 32,2700           00047                                   X1                                    
037398,000920: 32,2701           53665                          BDDV     SL*                                   
037399,000921: 32,2702           00001                                   00D                                   
037400,000922: 32,2703           20176                                   0          -3,1                       
037401,000923: 32,2704           50006                          PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)          B3 PL04D
037402,000924: 32,2705           64712                                   PREC172                               
037403,000925: 32,2706           65345                          DLOAD    PDDL                                  #  BETA14=1                        B0 PL04D
037404,000926: 32,2707           31717                                   2RTEB1                                
037405,000927: 32,2710           77650                          GOTO                                           
037406,000928: 32,2711           64714                                   PREC173                               
037407,000929:                                                                                                 # # Page 861
037408,000930: 32,2712           65345        PREC172           DLOAD    PDDL                                  #  BETA14=.6                       B0 PL04D
037409,000931: 32,2713           31711                                   M.6RTE                                
037410,000932: 32,2714           45271        PREC173           DDV      DSU                                   
037411,000933: 32,2715           00003                                   02D                                   
037412,000934: 32,2716           31661                                   1RTEB3                                
037413,000935: 32,2717           71240                          BMN      DLOAD                                 
037414,000936: 32,2720           64724                                   PREC174                               
037415,000937: 32,2721           77605                          DMP                                            
037416,000938: 32,2722           03650                                   DT21PR                                
037417,000939: 32,2723           00001                          STORE    00D                                   #  DT21=(BETA14)DT21PR             B28
037418,000940: 32,2724           41545        PREC174           DLOAD    PUSH                                  
037419,000941: 32,2725           00001                                   00D                                   
037420,000942: 32,2726           37650                          STCALL   DT21PR                                
037421,000943: 32,2727           65061                                   RTENCK2                               
037422,000944: 32,2730           77650                          GOTO                                           
037423,000945: 32,2731           64525                                   PREC125                               
037424,000946: 32,2732           45345        PREC175           DLOAD    DSU                                   
037425,000947: 32,2733           00031                                   RPRE                                  
037426,000948: 32,2734           03664                                   RD                                    
037427,000949: 32,2735           51406                          PUSH     ABS                                   #  RPRE-RD = RERR
037428,000950: 32,2736           50025                          DSU      BMN                                   
037429,000951: 32,2737           31770                                   EPC7RTE                               
037430,000952: 32,2740           65033                                   PREC220                               
037431,000953: 
037432,000954:                                                                                                 #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
037433,000955: 
037434,000956: 32,2741           53145                          DLOAD    BZE                                   
037435,000957: 32,2742           03730                                   NN1A                                  
037436,000958: 32,2743           64554                                   PREC132                               #  TOO MANY ITERATIONS
037437,000959: 32,2744           53025                          DSU      BZE                                   
037438,000960: 32,2745           31707                                   10RTE                                 
037439,000961: 32,2746           65001                                   PREC207                               
037440,000962: 32,2747           45345        PREC205           DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
037441,000963: 32,2750           03670                                   RPRE,                                 
037442,000964: 32,2751           00031                                   RPRE                                  #  RPRE,-RPRE                 B29/B27
037443,000965: 32,2752           55301                          NORM     BDDV                                  
037444,000966: 32,2753           00050                                   X2                                    
037445,000967: 32,2754           03666                                   DRCON                                 
037446,000968: 32,2755           41457                          SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S            B2
037447,000969: 32,2756           57600                                   0          -2,2                       
037448,000970: 32,2757           40015                          DAD      BOV                                   #  S GR +4 OR LS -4
037449,000971: 32,2760           31655                                   1RTEB1                                
037450,000972: 32,2761           64766                                   PREC205M                              
037451,000973: 32,2762           45246                          ABS      DSU                                   
037452,000974: 32,2763           31655                                   1RTEB1                                
037453,000975: 32,2764           77640                          BMN                                            
037454,000976: 32,2765           64771                                   PREC206                               
037455,000977: 32,2766           57545        PREC205M          DLOAD    DCOMP                                 #  S GR 0 OR LS -4
037456,000978: 32,2767           31717                                   2RTEB1                                
037457,000979: 32,2770           77725                          PDDL                                           #  S=-4                            B2
037458,000980:                                                                                                 # # Page 862
037459,000981: 32,2771           41345        PREC206           DLOAD    DMP                                   
037460,000982: 32,2772           77712                          SL2                                            
037461,000983: 32,2773           03666                          STORE    DRCON                                 #  DRCON=S(RERR)                  B29
037462,000984: 32,2774           77615                          DAD                                            
037463,000985: 32,2775           03636                                   RCON                                  
037464,000986: 32,2776           03636                          STORE    RCON                                  #  RCON+DRCON=RCON
037465,000987: 32,2777           77650                          GOTO                                           
037466,000988: 32,3000           65020                                   PREC210                               
037467,000989: 32,3001           63545        PREC207           DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
037468,000990: 32,3002           03664                                   RD                                    
037469,000991: 32,3003           70501                          NORM     SR1                                   
037470,000992: 32,3004           00047                                   X1                                    
037471,000993: 32,3005           60325                          PDDL     NORM                                  
037472,000994: 32,3006           00031                                   RPRE                                  
037473,000995: 32,3007           00050                                   X2                                    
037474,000996: 32,3010           55260                          XSU,1    BDDV                                  
037475,000997: 32,3011           00047                                   X2                                    
037476,000998: 32,3012           77657                          SR*                                            
037477,000999: 32,3013           20600                                   0          -1,1                       
037478,001000: 32,3014           03636                          STORE    RCON                                  #  RD**2/RPRE=RCON
037479,001001: 32,3015           77625                          DSU                                            
037480,001002: 32,3016           03664                                   RD                                    
037481,001003: 32,3017           03666                          STORE    DRCON                                 #  RCON-RD=DRCON
037482,001004: 32,3020           77745        PREC210           DLOAD                                          #  PREPARE FOR NEXT ITERATION
037483,001005: 32,3021           00031                                   RPRE                                  
037484,001006: 32,3022           17670                          STODL    RPRE,                                 
037485,001007: 32,3023           03730                                   NN1A                                  
037486,001008: 32,3024           77625                          DSU                                            
037487,001009: 32,3025           31677                                   1RTEB28                               
037488,001010: 32,3026           37730                          STCALL   NN1A                                  
037489,001011: 32,3027           65132                                   V2T100                                
037490,001012: 32,3030           52030                          BHIZ     GOTO                                  
037491,001013: 32,3031           64517                                   PREC120                               
037492,001014: 32,3032           65047                                   PRECX                                 
037493,001015: 
037494,001016:                                                                                                 #  DESIRED RADIUS ACHIEVED
037495,001017: 
037496,001018: 32,3033           45345        PREC220           DLOAD    DSU                                   
037497,001019: 32,3034           03726                                   X(T2)                                 
037498,001020: 32,3035           03724                                   X(T2)PRE                              
037499,001021: 32,3036           45246                          ABS      DSU                                   
037500,001022: 32,3037           31772                                   EPC8RTE                               
037501,001023: 32,3040           67240                          BMN      SLOAD                                 
037502,001024: 32,3041           65045                                   PREC225                               
037503,001025: 32,3042           31741                                   OCT613                                
037504,001026: 32,3043           77650                          GOTO                                           
037505,001027: 32,3044           65047                                   PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
037506,001028: 
037507,001029:                                                                                                 #  DESIRED FINAL ANGLE HAS BEEN REACHED
037508,001030: 
037509,001031:                                                                                                 # # Page 863
037510,001032: 32,3045           77745        PREC225           DLOAD                                          
037511,001033: 32,3046           31701                                   ZERORTE                               
037512,001034: 32,3047           77650        PRECX             GOTO                                           
037513,001035: 32,3050           03762                                   SPRTEX                                
037514,001036: 
037515,001037:                                                                                                 # # Page 864
037516,001038:                                                                                                 #  INTEGRATION CALLING SUBROUTINE
037517,001039: 
037518,001040:                                                                                                 #  DESCRIPTION
037519,001041:                                                                                                 #    PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
037520,001042:                                                                                                 #  RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
037521,001043:                                                                                                 #  WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
037522,001044: 
037523,001045:                                                                                                 #  RTENCK1 (CONIC INTEGRATION)
037524,001046: 
037525,001047:                                                                                                 #    CALLING SEQUENCE
037526,001048:                                                                                                 #      L    CALL
037527,001049:                                                                                                 #      L+1         RTENCK1
037528,001050: 
037529,001051:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
037530,001052:                                                                                                 #      SAME AS FOR THE RTENCK3 ENTRANCE
037531,001053: 
037532,001054:                                                                                                 #  RTENCK2 (PRECISION INTEGRATION)
037533,001055: 
037534,001056:                                                                                                 #    CALLING SEQUENCE
037535,001057:                                                                                                 #      L    CALL
037536,001058:                                                                                                 #      L+1         RTENCK2
037537,001059: 
037538,001060:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
037539,001061:                                                                                                 #      PUSHLIST
037540,001062:                                                                                                 #        PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
037541,001063:                                                                                                 #      OTHER
037542,001064:                                                                                                 #        R(T2)/    FINAL POSITION VECTOR                                   VECTOR .B29     METERS
037543,001065:                                                                                                 #        V(T2)/    FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
037544,001066:                                                                                                 #        T2        FINAL TIME                                              DP      B28     CS
037545,001067: 
037546,001068:                                                                                                 #  RTENCK3 (PRECISION INTEGRATION)
037547,001069: 
037548,001070:                                                                                                 #    CALLING SEQUENCE
037549,001071:                                                                                                 #      L    CALL
037550,001072:                                                                                                 #      L+1         RTENCK3
037551,001073: 
037552,001074:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
037553,001075:                                                                                                 #        R(T1)/    INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
037554,001076:                                                                                                 #        V2(T1)/   POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
037555,001077:                                                                                                 #        T1        INITIAL VECTOR TIME                                     DP      B28     CS
037556,001078:                                                                                                 #        T2        FINAL TIME                                              DP      B28     CS
037557,001079: 
037558,001080:                                                                                                 #  EXIT MODE
037559,001081:                                                                                                 #    AT L+2 OF CALLING SEQUENCE
037560,001082:                                                                                                 #  SUBROUTINES CALLED
037561,001083:                                                                                                 #    INTSTALL
037562,001084:                                                                                                 #    INTEGRVS
037563,001085: 
037564,001086:                                                                                                 #  OUTPUT
037565,001087:                                                                                                 #    PUSHLIST
037566,001088:                                                                                                 # # Page 865
037567,001089:                                                                                                 #      PUSHLOC-6   FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
037568,001090:                                                                                                 #      X1          CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
037569,001091:                                                                                                 #    MPAC
037570,001092:                                                                                                 #                  FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
037571,001093:                                                                                                 #    OTHER
037572,001094:                                                                                                 #         R(T2)/    AS IN PUSHLIST
037573,001095:                                                                                                 #         V(T2)/    AS IN MPAC
037574,001096:                                                                                                 #         T2        FINAL TIME                                              DP      B28     CS
037575,001097: 
037576,001098: 
037577,001099: 32,3051           45020        RTENCK1           STQ      CALL                                  
037578,001100: 32,3052           03733                                   RTENCKEX                              
037579,001101: 32,3053           27371                                   INTSTALL                              
037580,001102: 32,3054           43175                          VLOAD    SET                                   
037581,001103: 32,3055           03640                                   R(T1)/                                
037582,001104: 32,3056           01473                                   INTYPFLG                              
037583,001105: 32,3057           77650                          GOTO                                           
037584,001106: 32,3060           65105                                   RTENCK3B                              
037585,001107: 
037586,001108: 
037587,001109: 32,3061           45020        RTENCK2           STQ      CALL                                  
037588,001110: 32,3062           03733                                   RTENCKEX                              
037589,001111: 32,3063           27371                                   INTSTALL                              
037590,001112: 32,3064           77214                          CLEAR    VLOAD                                 
037591,001113: 32,3065           01673                                   INTYPFLG                              
037592,001114: 32,3066           03656                                   R(T2)/                                
037593,001115: 32,3067           25535                          STOVL    RCV                                   
037594,001116: 32,3070           03710                                   V(T2)/                                
037595,001117: 32,3071           15543                          STODL    VCV                                   
037596,001118: 32,3072           03736                                   T2                                    
037597,001119: 32,3073           01517                          STORE    TET                                   
037598,001120: 32,3074           77615                          DAD                                            
037599,001121: 32,3075           77650                          GOTO                                           
037600,001122: 32,3076           65113                                   RTENCK3D                              
037601,001123: 
037602,001124: 
037603,001125: 32,3077           45020        RTENCK3           STQ      CALL                                  
037604,001126: 32,3100           03733                                   RTENCKEX                              
037605,001127: 32,3101           27371                                   INTSTALL                              
037606,001128: 32,3102           43175        RTENCK3A          VLOAD    CLEAR                                 
037607,001129: 32,3103           03640                                   R(T1)/                                
037608,001130: 32,3104           01673                                   INTYPFLG                              
037609,001131: 32,3105           25535        RTENCK3B          STOVL    RCV                                   
037610,001132: 32,3106           03700                                   V2(T1)/                               
037611,001133: 32,3107           15543                          STODL    VCV                                   
037612,001134: 32,3110           03716                                   T1                                    
037613,001135: 32,3111           15517                          STODL    TET                                   
037614,001136: 32,3112           03736                                   T2                                    
037615,001137: 32,3113           00041        RTENCK3D          STORE    TDEC1                                 
037616,001138: 32,3114           45014                          CLEAR    CALL                                  
037617,001139:                                                                                                 # # Page 866
037618,001140: 32,3115           00263                                   MOONFLAG                              
037619,001141: 32,3116           27066                                   INTEGRVS                              
037620,001142: 32,3117           77775                          VLOAD                                          
037621,001143: 32,3120           00001                                   RATT                                  
037622,001144: 32,3121           03656                          STORE    R(T2)/                                
037623,001145: 32,3122           70125                          PDDL     LXC,1                                 
037624,001146: 32,3123           00015                                   TAT                                   
037625,001147: 32,3124           03734                                   CONICX1                               
037626,001148: 32,3125           27736                          STOVL    T2                                    
037627,001149: 32,3126           00007                                   VATT                                  
037628,001150: 32,3127           03710                          STORE    V(T2)/                                
037629,001151: 32,3130           77650                          GOTO                                           
037630,001152: 32,3131           03733                                   RTENCKEX                              
037631,001153: 
037632,001154:                                                                                                 # # Page 867
037633,001155:                                                                                                 #  V2(T1) COMPUTATION SUBROUTINE
037634,001156: 
037635,001157:                                                                                                 #  DESCRIPTION
037636,001158:                                                                                                 #  A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
037637,001159:                                                                                                 #  (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME  OR
037638,001160:                                                                                                 #  (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
037639,001161:                                                                                                 #  AND CONSEQUENTLY FUEL.
037640,001162: 
037641,001163:                                                                                                 #  CALLING SEQUENCE
037642,001164:                                                                                                 #    L      CALL
037643,001165:                                                                                                 #    L+1           V2T100
037644,001166: 
037645,001167:                                                                                                 #  NORMAL EXIT MODE
037646,001168:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037647,001169: 
037648,001170:                                                                                                 #  ALARM EXIT MODE
037649,001171:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037650,001172: 
037651,001173:                                                                                                 #  SUBROUTINES CALLED
037652,001174:                                                                                                 #    GAMDV10
037653,001175:                                                                                                 #    XT1LIM
037654,001176:                                                                                                 #    DVCALC
037655,001177: 
037656,001178:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
037657,001179:                                                                                                 #    PUSHLIST
037658,001180:                                                                                                 #      NONE
037659,001181:                                                                                                 #    MPAC
037660,001182:                                                                                                 #      NONE
037661,001183:                                                                                                 #    OTHER
037662,001184:                                                                                                 #      R(T1)       MAGNITUDE OF INITIAL POSITION VECTOR                     DP      B29/B27 METERS
037663,001185:                                                                                                 #      RCON        MAGNITUDE OF FINAL POSITION VECTOR                       DP      B29/B27 METERS
037664,001186:                                                                                                 #      V(T1)/      INITIAL VELOCITY VECTOR                                  VECTOR  B7/B5   METERS/CS
037665,001187:                                                                                                 #      RTEDVD      DELTA VELOCITY DESIRED                                   DP      B7/B5   METERS/CS
037666,001188:                                                                                                 #      UR1/        UNIT INITIAL VECTOR                                      VECTOR  B1
037667,001189:                                                                                                 #      UH/         UNIT HORIZONTAL VECTOR                                   VECTOR  B1
037668,001190:                                                                                                 #      X(T2)       COTANGENT OF FINAL FLIGHT PATH ANGLE                     DP      B0
037669,001191:                                                                                                 #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC)  DP      B5
037670,001192:                                                                                                 #      CFPA        COSINE OF INITIAL FLIGHT PATH ANGLE                      DP      B1
037671,001193:                                                                                                 #      MAMAX1      MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR       DP      B30/B28 METERS
037672,001194:                                                                                                 #      MAMAX2      MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR       DP      B30/B28 METERS
037673,001195:                                                                                                 #      PHI2        REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)       DP      B2      -1 PERIGEE,+1 APOGEE
037674,001196:                                                                                                 #      N1          CONIC OR PRECISION ITERATION COUNTER                     DP      B28     NEGATIVE CONIC,PLUS PREC
037675,001197: 
037676,001198:                                                                                                 #  OUTPUT
037677,001199:                                                                                                 #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                     VECTOR  B7/B5   METERS/CS
037678,001200:                                                                                                 #      DV          INITIAL VELOCITY CHANGE                                  DP      B7/B5   METERS/CS
037679,001201:                                                                                                 #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)    DP      B5
037680,001202:                                                                                                 #      PCON        SEMI-LATUS RECTUM                                        DP      B28/B26 METERS
037681,001203:                                                                                                 #      BETA1       1+X(T2)**2                                               DP      B1
037682,001204: 
037683,001205:                                                                                                 # # Page 868
037684,001206:                                                                                                 #  DEBRIS
037685,001207:                                                                                                 #     PUSHLIST
037686,001208:                                                                                                 #       00D        X(T1),,=PREVIOUS PRECISION X(T1)                         DP      B5
037687,001209:                                                                                                 #       02D        THETA1=BETA5*LAMBDA-1                                    TP      B17
037688,001210:                                                                                                 #       05D        THETA2=2*R(T1)*(LAMBDA-1)                                TP      B38/B36
037689,001211:                                                                                                 #       08D        THETA3=MU**.5/R(T1)                                      DP      B-4/B-5
037690,001212:                                                                                                 #       10D        X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR          DP      B5
037691,001213:                                                                                                 #       12D        DX(T1)MAX=MAXIMUM DELTA X(T1)                            DP      B5
037692,001214:                                                                                                 #       14D        X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR          DP      B5
037693,001215:                                                                                                 #       16D        DX(T1)=ITERATOR INCREMENT                                DP      B5
037694,001216:                                                                                                 #       31D        GAMDV10 SUBROUTINE RETURN ADDRESS
037695,001217:                                                                                                 #       32D        DVCALC SUBROUTINE RETURN ADDRESS
037696,001218:                                                                                                 #       33D        V2T100 SUBROUTINE RETURN ADDRESS
037697,001219: 
037698,001220: 32,3132           77620        V2T100            STQ                                            
037699,001221: 32,3133           00041                                   33D                                   
037700,001222: 32,3134           43001                          SETPD    CLEAR                                 
037701,001223: 32,3135           00001                                   0                                     #                                     PL00D
037702,001224: 32,3136           00272                                   F2RTE                                 
037703,001225: 32,3137           60345                          DLOAD    NORM                                  
037704,001226: 32,3140           03636                                   RCON                                  
037705,001227: 32,3141           00047                                   X1                                    
037706,001228: 32,3142           60325                          PDDL     NORM                                  
037707,001229: 32,3143           03646                                   R(T1)                                 
037708,001230: 32,3144           00051                                   S1                                    
037709,001231: 32,3145           00013                          STORE    10D                                   
037710,001232: 32,3146           56342                          SR1      DDV                                   #  R1/RCON = LAMBDA                B1
037711,001233: 32,3147           65260                          XSU,1    PDDL                                  #                                     PL02D
037712,001234: 32,3150           00050                                   S1                                    
037713,001235: 32,3151           03726                                   X(T2)                                 
037714,001236: 32,3152           77716                          DSQ                                            
037715,001237: 32,3153           43342                          SR1      DAD                                   
037716,001238: 32,3154           31655                                   1RTEB1                                
037717,001239: 32,3155           03754                          STORE    BETA1                                 #  1+X(T2)**2 = BETA1              B1
037718,001240: 32,3156           77605                          DMP                                            
037719,001241: 32,3157           00001                                   00D                                   
037720,001242: 32,3160           00035                          STORE    28D                                   #  BETAI*LAMBDA = BETA5
037721,001243: 32,3161           53605                          DMP      SL*                                   
037722,001244: 32,3162           00001                                   00D                                   
037723,001245: 32,3163           20172                                   0          -7,1                       
037724,001246: 32,3164           45257                          SL*      DSU                                   
037725,001247: 32,3165           20172                                   0          -7,1                       
037726,001248: 32,3166           31673                                   1RTEB17                               
037727,001249: 32,3167           65234                          RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1        B17 PL05D
037728,001250: 32,3170           45562                                   TPMODE                                
037729,001251: 32,3171           31655                                   1RTEB1                                
037730,001252: 32,3172           57457                          SR*      DCOMP                                 
037731,001253: 32,3173           20601                                   0,1                                   
037732,001254: 32,3174           41215                          DAD      DMP                                   
037733,001255: 32,3175           00001                                   00D                                   
037734,001256:                                                                                                 # # Page 869
037735,001257: 32,3176           03646                                   R(T1)                                 
037736,001258: 32,3177           47057                          SL*      RTB                                   
037737,001259: 32,3200           20172                                   0          -7D,1                      
037738,001260: 32,3201           45562                                   TPMODE                                
037739,001261: 32,3202           77725                          PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2  B38/B36 PL08D
037740,001262: 32,3203           33770                                   RTMURTE                               
037741,001263: 32,3204           70501                          NORM     SR1                                   
037742,001264: 32,3205           00050                                   X2                                    
037743,001265: 32,3206           56264                          XSU,2    DDV                                   
037744,001266: 32,3207           00050                                   S1                                    
037745,001267: 32,3210           00013                                   10D                                   
037746,001268: 32,3211           65257                          SR*      PDDL                                  #  MU**.5/R(T1)=THETA3        B-4/B-5 PL10D
037747,001269: 32,3212           57170                                   6,2                                   
037748,001270: 32,3213           03652                                   MAMAX1                                
037749,001271: 32,3214           41406                          PUSH     PUSH                                  #  MAMAX1=MA
037750,001272: 32,3215           77624                          CALL                                           
037751,001273: 32,3216           65747                                   XT1LIM                                
037752,001274: 32,3217           41476                          DCOMP    PUSH                                  #  X(T1)MIN                        B5 PL12D
037753,001275: 32,3220           40476                          DCOMP    SR4                                   
037754,001276: 32,3221           41525                          PDDL     PUSH                                  #  DX(T1)MAX                       B5 PL14D
037755,001277: 32,3222           03654                                   MAMAX2                                
037756,001278: 32,3223           45006                          PUSH     CALL                                  
037757,001279: 32,3224           65747                                   XT1LIM                                
037758,001280: 32,3225           50125                          PDDL     BMN                                   #  X(T1)MAX                        B5 PL16D
037759,001281: 32,3226           03730                                   NN1A                                  
037760,001282: 32,3227           65232                                   V2T102                                
037761,001283: 32,3230           77650                          GOTO                                           
037762,001284: 32,3231           65244                                   V2T110                                
037763,001285: 
037764,001286:                                                                                                 #  PROCEED HERE IF NOT PRECISION COMPUTATION
037765,001287: 
037766,001288: 32,3232           77745        V2T102            DLOAD                                          
037767,001289: 32,3233           03632                                   RTEDVD                                
037768,001290: 32,3234           52054                          BZE      GOTO                                  
037769,001291: 32,3235           65237                                   V2T105                                
037770,001292: 32,3236           65340                                   V2T140                                
037771,001293: 32,3237           50145        V2T105            DLOAD    BMN                                   
037772,001294: 32,3240           03757                                   CFPA                                  
037773,001295: 32,3241           65340                                   V2T140                                
037774,001296: 32,3242           77650                          GOTO                                           
037775,001297: 32,3243           65346                                   V2T145                                
037776,001298: 
037777,001299:                                                                                                 #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
037778,001300:                                                                                                 #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
037779,001301:                                                                                                 #  THROUGH X(T2)
037780,001302: 
037781,001303: 32,3244           47145        V2T110            DLOAD    RTB                                   
037782,001304: 32,3245           31673                                   1RTEB17                               
037783,001305: 32,3246           45562                                   TPMODE                                
037784,001306: 32,3247           65276                          DCOMP    PDDL                                  #  -1                             B17 PL19D
037785,001307:                                                                                                 # # Page 870
037786,001308: 32,3250           31717                                   2RTEB1                                
037787,001309: 32,3251           45257                          SR*      DSU                                   
037788,001310: 32,3252           20601                                   0,1                                   
037789,001311: 32,3253           00001                                   00D                                   
037790,001312: 32,3254           53605                          DMP      SL*                                   
037791,001313: 32,3255           00035                                   28D                                   
037792,001314: 32,3256           20172                                   0          -7,1                       
037793,001315: 32,3257           76257                          SL*      TAD                                   
037794,001316: 32,3260           20172                                   0          -7,1                       
037795,001317: 32,3261           65234                          RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6        B17 PL19D
037796,001318: 32,3262           45562                                   TPMODE                                
037797,001319: 32,3263           03722                                   X(T1)                                 
037798,001320: 32,3264           00001                          STORE    00D                                   #  X(T1),,                         B5
037799,001321: 32,3265           77751                          TLOAD                                          #                                     PL16D
037800,001322: 32,3266           53040                          BMN      BZE                                   
037801,001323: 32,3267           65274                                   V2T115                                
037802,001324: 32,3270           65274                                   V2T115                                
037803,001325: 32,3271           52061                          SL       GOTO                                  
037804,001326: 32,3272           20210                                   7                                     
037805,001327: 32,3273           65305                                   V2T120                                
037806,001328: 32,3274           50145        V2T115            DLOAD    BMN                                   
037807,001329: 32,3275           03761                                   PHI2                                  
037808,001330: 32,3276           65316                                   V2T125                                
037809,001331: 32,3277           77676                          DCOMP                                          
037810,001332: 32,3300           17761                          STODL    PHI2                                  
037811,001333: 32,3301           31721                                   M9RTEB28                              
037812,001334: 32,3302           03730                          STORE    NN1A                                  
037813,001335: 32,3303           77650                          GOTO                                           
037814,001336: 32,3304           65316                                   V2T125                                
037815,001337: 32,3305           47166        V2T120            SQRT     RTB                                   
037816,001338: 32,3306           45713                                   DPMODE                                
037817,001339: 32,3307           50125                          PDDL     BMN                                   #  BETA8**.5=X(T1)LIM              B5 PL18D
037818,001340: 32,3310           03761                                   PHI2                                  
037819,001341: 32,3311           65324                                   V2T130                                
037820,001342: 32,3312           45545                          DLOAD    STADR                                 #                                     PL16D
037821,001343: 32,3313           77760                          STORE    14D                                   #  X(T1)LIM = X(T1)MAX
037822,001344: 32,3314           77676                          DCOMP                                          
037823,001345: 32,3315           00013                          STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
037824,001346: 32,3316           53145        V2T125            DLOAD    BZE                                   
037825,001347: 32,3317           03722                                   X(T1)                                 
037826,001348: 32,3320           65340                                   V2T140                                
037827,001349: 32,3321           52040                          BMN      GOTO                                  
037828,001350: 32,3322           65340                                   V2T140                                
037829,001351: 32,3323           65346                                   V2T145                                
037830,001352: 32,3324           53145        V2T130            DLOAD    BZE                                   
037831,001353: 32,3325           03722                                   X(T1)                                 
037832,001354: 32,3326           65335                                   V2T135                                
037833,001355: 32,3327           71240                          BMN      DLOAD                                 #                                     PL16D
037834,001356: 32,3330           65335                                   V2T135                                
037835,001357: 32,3331           77626                          STADR                                          
037836,001358:                                                                                                 # # Page 871
037837,001359: 32,3332           77764                          STORE    10D                                   #  X(T1)LIM = X(T1)MIN
037838,001360: 32,3333           77650                          GOTO                                           
037839,001361: 32,3334           65346                                   V2T145                                
037840,001362: 32,3335           57545        V2T135            DLOAD    DCOMP                                 #                                     PL16D
037841,001363: 32,3336           77626                          STADR                                          
037842,001364: 32,3337           77760                          STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
037843,001365: 32,3340           77745        V2T140            DLOAD                                          
037844,001366: 32,3341           00013                                   10D                                   
037845,001367: 32,3342           17722                          STODL    X(T1)                                 #  X(T1)MIN = X(T1)
037846,001368: 32,3343           00015                                   12D                                   
037847,001369: 32,3344           52006                          PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                 PL18D
037848,001370: 32,3345           65353                                   V2T150                                
037849,001371: 32,3346           77745        V2T145            DLOAD                                          
037850,001372: 32,3347           00017                                   14D                                   
037851,001373: 32,3350           17722                          STODL    X(T1)                                 #  X(T1)MAX = X(T1)
037852,001374: 32,3351           00015                                   12D                                   
037853,001375: 32,3352           41476                          DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                PL18D
037854,001376: 32,3353           77624        V2T150            CALL                                           #  GOTO X(T1)-DV ITERATOR
037855,001377: 32,3354           65474                                   GAMDV10                               
037856,001378: 32,3355           53145                          DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
037857,001379: 32,3356           03632                                   RTEDVD                                
037858,001380: 32,3357           65472                                   V2T1X                                 
037859,001381: 
037860,001382:                                                                                                 #  CONTINUE IF TIME CRITICAL MODE
037861,001383: 
037862,001384: 32,3360           50025                          DSU      BMN                                   
037863,001385: 32,3361           03706                                   DV                                    
037864,001386: 32,3362           65365                                   V2T155                                
037865,001387: 32,3363           77650                          GOTO                                           
037866,001388: 32,3364           65420                                   V2T175                                
037867,001389: 32,3365           50145        V2T155            DLOAD    BMN                                   
037868,001390: 32,3366           03730                                   NN1A                                  
037869,001391: 32,3367           65372                                   V2T160                                
037870,001392: 32,3370           77650                          GOTO                                           
037871,001393: 32,3371           65433                                   V2T185                                
037872,001394: 
037873,001395:                                                                                                 #  CONIC TRAJECTORY COMPUTATION
037874,001396: 
037875,001397: 32,3372           53145        V2T160            DLOAD    BZE                                   
037876,001398: 32,3373           03722                                   X(T1)                                 
037877,001399: 32,3374           65400                                   V2T165                                
037878,001400: 32,3375           52040                          BMN      GOTO                                  
037879,001401: 32,3376           65400                                   V2T165                                
037880,001402: 32,3377           65470                                   V2T300                                
037881,001403: 32,3400           53145        V2T165            DLOAD    BZE                                   
037882,001404: 32,3401           03757                                   CFPA                                  
037883,001405: 32,3402           65470                                   V2T300                                
037884,001406: 32,3403           71240                          BMN      DLOAD                                 
037885,001407: 32,3404           65470                                   V2T300                                
037886,001408: 32,3405           00017                                   14D                                   
037887,001409:                                                                                                 # # Page 872
037888,001410: 32,3406           17722                          STODL    X(T1)                                 #  X(T1)MAX=X(T1)
037889,001411: 32,3407           00015                                   12D                                   
037890,001412: 32,3410           77676                          DCOMP                                          
037891,001413: 32,3411           34021                          STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
037892,001414: 32,3412           65474                                   GAMDV10                               
037893,001415: 32,3413           45345                          DLOAD    DSU                                   
037894,001416: 32,3414           03632                                   RTEDVD                                
037895,001417: 32,3415           03706                                   DV                                    
037896,001418: 32,3416           77640                          BMN                                            
037897,001419: 32,3417           65470                                   V2T300                                
037898,001420: 32,3420           71214        V2T175            SET      DLOAD                                 
037899,001421: 32,3421           00072                                   F2RTE                                 
037900,001422: 32,3422           03722                                   X(T1)                                 
037901,001423: 32,3423           14017                          STODL    14D                                   #  X(T1)=X(T1)MAX
037902,001424: 32,3424           00015                                   12D                                   
037903,001425: 32,3425           77676                          DCOMP                                          
037904,001426: 32,3426           34021                          STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
037905,001427: 32,3427           65474                                   GAMDV10                               
037906,001428: 32,3430           50145                          DLOAD    BMN                                   
037907,001429: 32,3431           03730                                   NN1A                                  
037908,001430: 32,3432           65470                                   V2T300                                
037909,001431: 
037910,001432:                                                                                                 #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
037911,001433:                                                                                                 #  PRECISION TRAJECTORY
037912,001434: 
037913,001435: 32,3433           45345        V2T185            DLOAD    DSU                                   
037914,001436: 32,3434           03722                                   X(T1)                                 
037915,001437: 32,3435           00001                                   00D                                   
037916,001438: 32,3436           65246                          ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
037917,001439: 32,3437           00015                                   12D                                   
037918,001440: 32,3440           44352                          SL1      BDSU                                  
037919,001441: 32,3441           71240                          BMN      DLOAD                                 
037920,001442: 32,3442           65470                                   V2T300                                
037921,001443: 32,3443           00001                                   00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
037922,001444: 32,3444           03722                          STORE    X(T1)                                 #  X(T1),, = X(T1)
037923,001445: 32,3445           50025                          DSU      BMN                                   
037924,001446: 32,3446           00017                                   14D                                   
037925,001447: 32,3447           65455                                   V2T195                                
037926,001448: 32,3450           77745                          DLOAD                                          
037927,001449: 32,3451           00017                                   14D                                   
037928,001450: 32,3452           03722                          STORE    X(T1)                                 #  X(T1)MAX = X(T1)
037929,001451: 32,3453           77650                          GOTO                                           
037930,001452: 32,3454           65466                                   V2T205                                
037931,001453: 32,3455           45345        V2T195            DLOAD    DSU                                   
037932,001454: 32,3456           03722                                   X(T1)                                 
037933,001455: 32,3457           00013                                   10D                                   
037934,001456: 32,3460           52040                          BMN      GOTO                                  
037935,001457: 32,3461           65463                                   V2T200                                
037936,001458: 32,3462           65466                                   V2T205                                
037937,001459: 32,3463           77745        V2T200            DLOAD                                          
037938,001460:                                                                                                 # # Page 873
037939,001461: 32,3464           00013                                   10D                                   
037940,001462: 32,3465           03722                          STORE    X(T1)                                 #  X(T1)MIN = X(T1)
037941,001463: 32,3466           77624        V2T205            CALL                                           
037942,001464: 32,3467           65673                                   DVCALC                                
037943,001465: 32,3470           77745        V2T300            DLOAD                                          
037944,001466: 32,3471           31701                                   ZERORTE                               
037945,001467: 32,3472           77650        V2T1X             GOTO                                           
037946,001468: 32,3473           00041                                   33D                                   
037947,001469: 
037948,001470:                                                                                                 # # Page 874
037949,001471:                                                                                                 #  X(T1)-DV ITERATOR SUBROUTINE
037950,001472: 
037951,001473:                                                                                                 #  DESCRIPTION
037952,001474:                                                                                                 #      COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
037953,001475:                                                                                                 #  CALLING SEQUENCE
037954,001476:                                                                                                 #    L      CALL
037955,001477:                                                                                                 #    L+1           GAMDV10
037956,001478: 
037957,001479:                                                                                                 #  NORMAL EXIT MODE
037958,001480:                                                                                                 #    AT L+2 OF CALLING SEQUENCE
037959,001481: 
037960,001482:                                                                                                 #  ALARM EXIT MODE
037961,001483:                                                                                                 #    AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037962,001484: 
037963,001485:                                                                                                 #  SUBROUTINES CALLED
037964,001486:                                                                                                 #    DVCALC
037965,001487: 
037966,001488:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
037967,001489:                                                                                                 #    PUSHLIST
037968,001490:                                                                                                 #      02D         THETA1=BETA5*LAMBDA-1                                   TP      B17
037969,001491:                                                                                                 #      05D         THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
037970,001492:                                                                                                 #      08D         THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
037971,001493:                                                                                                 #      10D         X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
037972,001494:                                                                                                 #      12D         DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
037973,001495:                                                                                                 #      14D         X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
037974,001496:                                                                                                 #      16D         DX(T1)=ITERATOR INCREMENT                               DP      B5
037975,001497:                                                                                                 #    MPAC
037976,001498:                                                                                                 #      NONE
037977,001499:                                                                                                 #    OTHER
037978,001500:                                                                                                 #      V(T1)/      INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
037979,001501:                                                                                                 #      RTEDVD      DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
037980,001502:                                                                                                 #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
037981,001503:                                                                                                 #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
037982,001504:                                                                                                 #      X(T1)       COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
037983,001505:                                                                                                 #      F2RTE       TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
037984,001506: 
037985,001507:                                                                                                 #  OUTPUT
037986,001508:                                                                                                 #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
037987,001509:                                                                                                 #      DV          INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
037988,001510:                                                                                                 #      X(T1)       COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
037989,001511:                                                                                                 #      PCON        SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
037990,001512: 
037991,001513:                                                                                                 #  DEBRIS
037992,001514:                                                                                                 #    PUSHLIST
037993,001515:                                                                                                 #      00D         X(T1),,
037994,001516:                                                                                                 #      02D         THETA1
037995,001517:                                                                                                 #      05D         THETA2
037996,001518:                                                                                                 #      08D         THETA3
037997,001519:                                                                                                 #      10D         X(T1)MIN
037998,001520:                                                                                                 #      12D         DX(T1)MAX
037999,001521:                                                                                                 # # Page 875
038000,001522:                                                                                                 #      14D         X(T1)MAX
038001,001523:                                                                                                 #      16D         DX(T1)
038002,001524:                                                                                                 #      22D         DV,=PREVIOUS DV                                         DP      B7/B5
038003,001525:                                                                                                 #      24D         BETA9=X(T1)+1.1DX(T1)                                   DP      B5
038004,001526:                                                                                                 #      31D         GAMDV10 SUBROUTINE RETURN ADDRESS
038005,001527:                                                                                                 #      32D         DVCALC SUBROUTINE RETURN ADDRESS
038006,001528:                                                                                                 #      33D         V2T100 SUBROUTINE RETURN ADDRESS
038007,001529: 32,3474           77620        GAMDV10           STQ                                            
038008,001530: 32,3475           00037                                   31D                                   
038009,001531: 32,3476           45001                          SETPD    CALL                                  
038010,001532: 32,3477           00023                                   18D                                   #                                     PL18D
038011,001533: 32,3500           65673                                   DVCALC                                
038012,001534: 32,3501           45345                          DLOAD    DSU                                   
038013,001535: 32,3502           00017                                   14D                                   
038014,001536: 32,3503           00013                                   10D                                   
038015,001537: 32,3504           77600                          BOV                                            
038016,001538: 32,3505           65525                                   GAMDV20                               
038017,001539: 32,3506           45206                          PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8         B5 PL20D
038018,001540: 32,3507           31774                                   EPC9RTE                               
038019,001541: 32,3510           71240                          BMN      DLOAD                                 
038020,001542: 32,3511           65671                                   GAMDVX                                #  BOUNDS CLOSE TOGETHER
038021,001543: 32,3512           00023                                   18D                                   
038022,001544: 32,3513           50025                          DSU      BMN                                   #  BETA8-DX(T1)MAX
038023,001545: 32,3514           00015                                   12D                                   
038024,001546: 32,3515           65521                                   GAMDV15                               
038025,001547: 32,3516           52001                          SETPD    GOTO                                  #                                     PL18D
038026,001548: 32,3517           00023                                   18D                                   
038027,001549: 32,3520           65525                                   GAMDV20                               
038028,001550: 32,3521           77745        GAMDV15           DLOAD                                          #                                     PL18D
038029,001551: 32,3522           70565                          SIGN     SR1                                   
038030,001552: 32,3523           00021                                   16D                                   
038031,001553: 32,3524           00021                          STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
038032,001554: 32,3525           77745        GAMDV20           DLOAD                                          
038033,001555: 32,3526           31703                                   M144RTE                               
038034,001556: 32,3527           03732                          STORE    NN2                                   
038035,001557: 32,3530           43345        GAMDV25           DLOAD    DAD                                   
038036,001558: 32,3531           03732                                   NN2                                   
038037,001559: 32,3532           31677                                   1RTEB28                               
038038,001560: 32,3533           67240                          BMN      SLOAD                                 
038039,001561: 32,3534           65540                                   GAMDV30                               
038040,001562: 32,3535           31737                                   OCT605                                
038041,001563: 32,3536           77650                          GOTO                                           
038042,001564: 32,3537           65472                                   V2T1X                                 
038043,001565: 32,3540           03732        GAMDV30           STORE    NN2                                   #  NN2=NN2+1
038044,001566: 32,3541           65345                          DLOAD    PDDL                                  #  X(T1)=X(T1),                    B5 PL20D
038045,001567: 32,3542           03722                                   X(T1)                                 
038046,001568: 32,3543           03706                                   DV                                    
038047,001569: 32,3544           43325                          PDDL     DAD                                   #  DV=DV,                       B7/B5 PL22D
038048,001570: 32,3545           03722                                   X(T1)                                 
038049,001571: 32,3546           00021                                   16D                                   
038050,001572:                                                                                                 # # Page 876
038051,001573: 32,3547           37722                          STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)              B5
038052,001574: 32,3550           65673                                   DVCALC                                
038053,001575: 32,3551           71214                          BON      DLOAD                                 
038054,001576: 32,3552           00312                                   F2RTE                                 
038055,001577: 32,3553           65567                                   GAMDV35                               
038056,001578: 32,3554           03706                                   DV                                    
038057,001579: 32,3555           50025                          DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
038058,001580: 32,3556           00025                                   20D                                   
038059,001581: 32,3557           65564                                   GAMDV33                               
038060,001582: 32,3560           57545        GAMDV32           DLOAD    DCOMP                                 
038061,001583: 32,3561           00021                                   16D                                   
038062,001584: 32,3562           77742                          SR1                                            
038063,001585: 32,3563           00021                          STORE    16D                                   
038064,001586: 32,3564           52001        GAMDV33           SETPD    GOTO                                  
038065,001587: 32,3565           00023                                   18D                                   #                                     PL18D
038066,001588: 32,3566           65630                                   GAMDV50                               
038067,001589: 
038068,001590:                                                                                                 #  TIME CRITICAL MODE
038069,001591: 
038070,001592: 32,3567           45345        GAMDV35           DLOAD    DSU                                   
038071,001593: 32,3570           03632                                   RTEDVD                                
038072,001594: 32,3571           03706                                   DV                                    
038073,001595: 32,3572           41525                          PDDL     PUSH                                  #  DVD-DV=DVERR                 B7/B5 PL22D
038074,001596: 32,3573           51545        GAMDV40           DLOAD    ABS                                   #  DV,                                PL24D
038075,001597: 32,3574           00025                                   20D                                   
038076,001598: 32,3575           50025                          DSU      BMN                                   
038077,001599: 32,3576           31776                                   EPC10RTE                              
038078,001600: 32,3577           65671                                   GAMDVX                                
038079,001601: 32,3600           77745        GAMDV45           DLOAD                                          #                                     PL22D
038080,001602: 32,3601           60221                          BDSU     NORM                                  
038081,001603: 32,3602           03706                                   DV                                    
038082,001604: 32,3603           00050                                   X2                                    
038083,001605: 32,3604           77725                          PDDL                                           #  DV-DV,                    B7/B5-N2 PL22D
038084,001606: 32,3605           70501                          NORM     SR1                                   #  DVERR                    B8/B6-N1
038085,001607: 32,3606           00047                                   X1                                    
038086,001608: 32,3607           77671                          DDV                                            
038087,001609: 32,3610           65200                          BOV      PDDL                                  #  DVERR/(DV-DV,)                     PL20D
038088,001610: 32,3611           65624                                   GAMDV47                               
038089,001611: 32,3612           41221                          BDSU     DMP                                   #                                     PL18D
038090,001612: 32,3613           03722                                   X(T1)                                 
038091,001613: 32,3614           53660                          XSU,1    SR*                                   
038092,001614: 32,3615           00047                                   X2                                    
038093,001615: 32,3616           20600                                   0          -1,1                       
038094,001616: 32,3617           00021                          STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038095,001617: 32,3620           45246                          ABS      DSU                                   
038096,001618: 32,3621           00015                                   12D                                   
038097,001619: 32,3622           77640                          BMN                                            
038098,001620: 32,3623           65630                                   GAMDV50                               
038099,001621: 32,3624           75345        GAMDV47           DLOAD    SIGN                                  
038100,001622: 32,3625           00015                                   12D                                   
038101,001623:                                                                                                 # # Page 877
038102,001624: 32,3626           00021                                   16D                                   
038103,001625: 32,3627           00021                          STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
038104,001626: 
038105,001627:                                                                                                 #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038106,001628: 
038107,001629: 32,3630           41345        GAMDV50           DLOAD    DMP                                   
038108,001630: 32,3631           00021                                   16D                                   
038109,001631: 32,3632           31713                                   1.1RTEB1                              
038110,001632: 32,3633           43352                          SL1      DAD                                   
038111,001633: 32,3634           03722                                   X(T1)                                 
038112,001634: 32,3635           00031                          STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9           B5
038113,001635: 32,3636           50025                          DSU      BMN                                   
038114,001636: 32,3637           00017                                   14D                                   
038115,001637: 32,3640           65647                                   GAMDV55                               
038116,001638: 32,3641           45345                          DLOAD    DSU                                   
038117,001639: 32,3642           00017                                   14D                                   
038118,001640: 32,3643           03722                                   X(T1)                                 
038119,001641: 32,3644           77742                          SR1                                            
038120,001642: 32,3645           34021                          STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)       B5
038121,001643: 32,3646           65662                                   GAMDV65                               
038122,001644: 32,3647           45345        GAMDV55           DLOAD    DSU                                   
038123,001645: 32,3650           00031                                   24D                                   
038124,001646: 32,3651           00013                                   10D                                   
038125,001647: 32,3652           52040                          BMN      GOTO                                  
038126,001648: 32,3653           65655                                   GAMDV60                               
038127,001649: 32,3654           65662                                   GAMDV65                               
038128,001650: 32,3655           45345        GAMDV60           DLOAD    DSU                                   
038129,001651: 32,3656           00013                                   10D                                   
038130,001652: 32,3657           03722                                   X(T1)                                 
038131,001653: 32,3660           77742                          SR1                                            
038132,001654: 32,3661           00021                          STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)       B5
038133,001655: 32,3662           51545        GAMDV65           DLOAD    ABS                                   
038134,001656: 32,3663           00021                                   16D                                   
038135,001657: 32,3664           50025                          DSU      BMN                                   
038136,001658: 32,3665           31774                                   EPC9RTE                               
038137,001659: 32,3666           65671                                   GAMDVX                                
038138,001660: 32,3667           77650                          GOTO                                           
038139,001661: 32,3670           65530                                   GAMDV25                               
038140,001662: 32,3671           77650        GAMDVX            GOTO                                           
038141,001663: 32,3672           00037                                   31D                                   
038142,001664: 
038143,001665:                                                                                                 # # Page 878
038144,001666:                                                                                                 #  DV CALCULATION SUBROUTINE
038145,001667: 
038146,001668:                                                                                                 #  INPUT
038147,001669:                                                                                                 #    PUSHLIST
038148,001670:                                                                                                 #      02D         THETA1=BETA5*LAMBDA-1                                   TP     B17
038149,001671:                                                                                                 #      05D         THETA2=2*R(T1)*(LAMBDA-1)                               TP     B38/B36
038150,001672:                                                                                                 #      08D         THETA3=MU**.5/R(T1)                                     DP     B-4/B-5
038151,001673:                                                                                                 #    OTHER
038152,001674:                                                                                                 #      X(T1)       COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP     B5
038153,001675:                                                                                                 #      V(T1)/      INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
038154,001676:                                                                                                 #      UR1/        UNIT INITIAL VECTOR                                     VECTOR  B1
038155,001677:                                                                                                 #      UH/         UNIT HORIZONTAL VECTOR                                  VECTOR  B1
038156,001678: 
038157,001679:                                                                                                 #  OUTPUT
038158,001680:                                                                                                 #      V2(T1)/     POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
038159,001681:                                                                                                 #      DV          INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
038160,001682:                                                                                                 #      PCON        SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
038161,001683: 
038162,001684:                                                                                                 #  DEBRIS
038163,001685:                                                                                                 #      28D         THETA3*PCON**.5                                         DP      B10/B8-N1
038164,001686:                                                                                                 #      C(PUSHLOC)  THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
038165,001687:                                                                                                 #      32D         DVCALC SUBROUTINE RETURN ADDRESS
038166,001688:                                                                                                 #      X1          NORMALIZATION FACTOR FOR VALUE IN 28D
038167,001689: 
038168,001690:                                                                                                 #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038169,001691: 
038170,001692: 32,3673           71220        DVCALC            STQ      DLOAD                                 
038171,001693: 32,3674           00040                                   32D                                   
038172,001694: 32,3675           03722                                   X(T1)                                 
038173,001695: 32,3676           54316                          DSQ      SR                                    
038174,001696: 32,3677           20610                                   7                                     
038175,001697: 32,3700           76276                          DCOMP    TAD                                   
038176,001698: 32,3701           00003                                   02D                                   
038177,001699: 32,3702           41501                          NORM     PUSH                                  
038178,001700: 32,3703           00047                                   X1                                    
038179,001701: 32,3704           60351                          TLOAD    NORM                                  
038180,001702: 32,3705           00006                                   05D                                   
038181,001703: 32,3706           00050                                   X2                                    
038182,001704: 32,3707           70434                          RTB      SR1                                   
038183,001705: 32,3710           45713                                   DPMODE                                
038184,001706: 32,3711           56264                          XSU,2    DDV                                   
038185,001707: 32,3712           00046                                   X1                                    
038186,001708: 32,3713           77657                          SR*                                            
038187,001709: 32,3714           57170                                   6,2                                   
038188,001710: 32,3715           03720                          STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON  B28/26
038189,001711: 32,3716           41366                          SQRT     DMP                                   
038190,001712: 32,3717           00011                                   08D                                   
038191,001713: 32,3720           77701                          NORM                                           
038192,001714: 32,3721           00047                                   X1                                    
038193,001715: 32,3722           14035                          STODL    28D                                   #  THETA3*PCON**.5         B10/B8 -N1
038194,001716:                                                                                                 # # Page 879
038195,001717: 32,3723           03722                                   X(T1)                                 
038196,001718: 32,3724           74301                          NORM     VXSC                                  
038197,001719: 32,3725           00050                                   X2                                    
038198,001720: 32,3726           03740                                   UR1/                                  #  X(T1)*UR1/             B5+B1 -N2
038199,001721: 32,3727           74274                          XAD,2    VXSC                                  
038200,001722: 32,3730           00046                                   X1                                    
038201,001723: 32,3731           00035                                   28D                                   
038202,001724: 32,3732           63257                          VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/ B7/B5
038203,001725: 32,3733           57207                                   0          -9D,2                      #             +
038204,001726: 32,3734           03746                                   UH/                                   
038205,001727: 32,3735           53761                          VXSC     VSR*                                  #  THETA3(PCON**.5)UH/        B7/B5
038206,001728: 32,3736           00035                                   28D                                   
038207,001729: 32,3737           20575                                   0          -4,1                       #             =
038208,001730: 32,3740           45455                          VAD      STADR                                 
038209,001731: 32,3741           74077                          STORE    V2(T1)/                               #  V2(T1)/                    B7/B5
038210,001732: 32,3742           51451                          VSU      ABVAL                                 
038211,001733: 32,3743           03672                                   V(T1)/                                
038212,001734: 32,3744           03706                          STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV   B7/B5
038213,001735: 32,3745           77650                          GOTO                                           
038214,001736: 32,3746           00040                                   32D                                   
038215,001737: 
038216,001738:                                                                                                 # # Page 880
038217,001739:                                                                                                 #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
038218,001740: 
038219,001741:                                                                                                 #  INPUT
038220,001742:                                                                                                 #    PUSHLIST
038221,001743:                                                                                                 #      PUSHLOC -4  MAJOR AXIS (MA)                                         DP      B30/B28
038222,001744:                                                                                                 #      PUSHLOC -2  MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
038223,001745:                                                                                                 #      28D         BETA5=LAMBDA*BETA1                                      DP      B9
038224,001746:                                                                                                 #    OTHER
038225,001747:                                                                                                 #      RCON                                                                DP      B29/B27
038226,001748:                                                                                                 #      R(T1)                                                               DP      B29/B27
038227,001749:                                                                                                 #  OUTPUT
038228,001750:                                                                                                 #    MPAC
038229,001751:                                                                                                 #      X(T1)LIM    LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
038230,001752:                                                                                                 #  DEBRIS
038231,001753:                                                                                                 #    PUSHLIST
038232,001754:                                                                                                 #      C(PUSHLOC)  MA-RCON                                                 DP      (B30/28)-N1
038233,001755:                                                                                                 #      C(PSHLOC)+2 MA                                                      DP      B30/B28
038234,001756:                                                                                                 #      X1          NORMALIZATION FACTOR FOR MA-RCON
038235,001757:                                                                                                 #      20D         XT1LIM SUBROUTINE RETURN ADDRESS
038236,001758:                                                                                                 #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
038237,001759: 
038238,001760: 32,3747           71220        XT1LIM            STQ      DLOAD                                 
038239,001761: 32,3750           00024                                   20D                                   
038240,001762: 32,3751           03636                                   RCON                                  
038241,001763: 32,3752           44342                          SR1      BDSU                                  
038242,001764: 32,3753           65301                          NORM     PDDL                                  #  MA-RCON                     B30-N1
038243,001765: 32,3754           00050                                   X2                                    
038244,001766: 32,3755           70525                          PDDL     SR1                                   
038245,001767: 32,3756           03646                                   R(T1)                                 
038246,001768: 32,3757           56221                          BDSU     DDV                                   
038247,001769: 32,3760           41257                          SL*      DMP                                   
038248,001770: 32,3761           57577                                   0          -1,2                       
038249,001771: 32,3762           00035                                   28D                                   
038250,001772: 32,3763           77657                          SL*                                            
038251,001773: 32,3764           20172                                   0          -7,1                       
038252,001774: 32,3765           50025                          DSU      BMN                                   #  (BETA5(MA-R(T1))/(MA-RCON))-1  B10
038253,001775: 32,3766           31665                                   1RTEB10                               
038254,001776: 32,3767           65772                                   XT1LIM5                               
038255,001777: 32,3770           52166                          SQRT     GOTO                                  
038256,001778: 32,3771           65774                                   XT1LIMX                               
038257,001779: 32,3772           77745        XT1LIM5           DLOAD                                          
038258,001780: 32,3773           31701                                   ZERORTE                               
038259,001781: 32,3774           77650        XT1LIMX           GOTO                                           
038260,001782: 32,3775           00024                                   20D                                   
038261,001783: 
038262,001784:                                                                                                 # # Page 881
038263,001785:                                                                                                 #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
038264,001786: 
038265,001787: 36,3250                                          BANK     36                                    
038266,001788: 34,2000                                          SETLOC   RTECON                                
038267,001789: 34,2000                                          BANK                                           
038268,001790: 
038269,001791: 34,3654           20000 00000  1RTEB1            2DEC     1.                                    
038270,001792: 34,3656           10000 00000  1RTEB2            2DEC     1.                                    
038271,001793: 34,3660           04000 00000  1RTEB3            2DEC     1.                                    
038272,001794: 34,3662           02000 00000  1RTEB4            2DEC     1.                                    
038273,001795: 34,3664           00020 00000  1RTEB10           2DEC     1.                                    
038274,001796: 34,3666           00004 00000  1RTEB12           2DEC     1.                                    
038275,001797: 34,3670           00002 00000  1RTEB13           2DEC     1.                                    
038276,001798: 34,3672           00000 04000  1RTEB17           2DEC     1.                                    
038277,001799: 34,3674           00000 00010  1RTEB25           2DEC     1.                                    
038278,001800: 34,3676           00000 00001  1RTEB28           2DEC     1.                                    
038279,001801: 34,3700           00000 00000  ZERORTE           2DEC     0          B-28                       
038280,001802: 34,3702           77777 77557  M144RTE           2DEC     -144.                                 
038281,001803: 34,3704           77777 77760  M15RTE            2DEC     -15        B-28                       
038282,001804: 34,3706           00000 00012  10RTE             2DEC     10         B-28                       
038283,001805: 34,3710           54631 63145  M.6RTE            2DEC     -.6                                   
038284,001806: 34,3712           21463 06315  1.1RTEB1          2DEC     1.1                                   
038285,001807: 34,3714           77777 77771  M6RTEB28          2DEC     -6         B-28                       
038286,001808: 34,3716           37777 37777  2RTEB1            2OCT     3777737777                            
038287,001809: 34,3720           77777 77766  M9RTEB28          2DEC     -9         B-28                       
038288,001810: 34,3722           77777 77767  M8RTEB28          2DEC     -8         B-28                       
038289,001811: 34,3724           00000 35610  30480RTE          2DEC     30480.                                
038290,001812: 34,3726           36703 03743  VCSPS             2DEC     30.8811                               
038291,001813:                                                                                                 # # Page 882
038292,001814: 34,3730           33041 37714  VCRCS             2DEC     27.0664                               
038293,001815: 34,3732           00003 13241  MDOTRCS           2DEC     .0016375                              
038294,001816: 34,3734           20000 00000  CSUBT             2DEC     .5                                    
038295,001817: 34,3736           00605        OCT605            OCT      00605                                 
038296,001818: 34,3737           00612        OCT612            OCT      00612                                 
038297,001819: 34,3740           00613        OCT613            OCT      00613                                 
038298,001820: 34,3741           40214 45266  MCOS7.5           2DEC     -.99144486                            
038299,001821: 34,3743           73645 56536  MSIN7.5           2DEC     -.13052619                            
038300,001822: 34,3745           70467 71205  MCOS22.5          2DEC     -.92387953                            
038301,001823: 34,3747           16525 12525  THETA165          2DEC     .458333333                            
038302,001824: 34,3751           22525 12525  THETA210          2DEC     .583333333                            
038303,001825: 34,3753           17775 06676  EPC1RTE           2DEC     .99966                                
038304,001826: 34,3755           00000 00062  EPC2RTE           2DEC     100.                                  
038305,001827: 34,3757           00020 14223  EPC3RTE           2DEC     .001                                  
038306,001828: 34,3761           00000 05174  EPC4RTE           2DEC     .00001                                
038307,001829: 34,3763           00002 21727  EPC5RTE           2DEC     .01                                   
038308,001830: 34,3765           00000 01654  EPC6RTE           2DEC     .000007                               
038309,001831: 34,3767           00000 00764  EPC7RTE           2DEC     1000.                                 
038310,001832: 34,3771           00040 30447  EPC8RTE           2DEC     .002                                  
038311,001833: 34,3773           00000 00010  EPC9RTE           2DEC     1.                                    
038312,001834: 34,3775           00000 00322  EPC10RTE          2DEC     .0001                                 
038313,001835: 35,3755                                          BANK     35                                    
038314,001836: 35,2000                                          SETLOC   RTECON1                               
038315,001837: 35,2000                                          BANK                                           
038316,001838: 35,3755           27657 01000  C4RTE             2DEC     8.                                    
038317,001839: 35,3757           00325 23740  K1RTE             2DEC     7.                                    
038318,001840: 35,3761           00306 06614  K2RTE             2DEC     6495000.                              
038319,001841: 35,3763           76027 70156  K3RTE             2DEC     -.06105                               
038320,001842:                                                                                                 # # Page 883
038321,001843: 35,3765           74517 54131  K4RTE             2DEC     -.10453                               
038322,001844: 35,3767           30276 05001  RTMURTE           2DEC     199650.501                            
038323,001845: 35,3771           00003 27040  E3RTE             2DEC     121920.                               

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