Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

039329,000002:                                                                                                 #  Copyright:     Public domain.
039330,000003:                                                                                                 #  Filename:      P37_P70.agc
039331,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
039332,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
039333,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
039334,000007:                                                                                                 #                 Apollo 15-17.
039335,000008:                                                                                                 #  Assembler:     yaYUL
039336,000009:                                                                                                 #  Contact:       Steve Case <case1780@adelphia.net>
039337,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
039338,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
039339,000012:                                                                                                 #  Mod history:   2009-09-01 SMC  Adapted from Comanche055 files.
039340,000013:                                                                                                 #                 2009-09-03 JL   Fixed symbol names, page metadata.
039341,000014:                                                                                                 #                 2009-09-04 JL   Fixed typo.
039342,000015:                                                                                                 #                 2009-09-08 JL   Fixed typos.
039343,000016:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
039344,000017:                                                                                                 #                 2010-02-13 JL   Fixed error on p905.
039345,000018:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
039346,000019:                                                                                                 #                 2010-04-11 JL   Add missing comment characters.
039347,000020: 
039348,000021:                                                                                                 # # Page 897
039349,000022: 36,2000                                          SETLOC   RTE1                                  
039350,000023: 36,2000                                          BANK                                           
039351,000024: 
039352,000025: 36,2476  E7,1631                                 EBANK=   RTEDVD                                
039353,000026: 36,2476                                          COUNT*   $$/P37                                
039354,000027: 
039355,000028:                                                                                                 #  PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039356,000029: 
039357,000030:                                                                                                 #  DESCRIPTION
039358,000031:                                                                                                 #    A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039359,000032:                                                                                                 #  TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039360,000033:                                                                                                 #  DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
039361,000034:                                                                                                 #  RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039362,000035:                                                                                                 #  COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039363,000036: 
039364,000037:                                                                                                 #  CALLING SEQUENCE
039365,000038:                                                                                                 #    L    TC      P37
039366,000039: 
039367,000040:                                                                                                 #  SUBROUTINES CALLED
039368,000041:                                                                                                 #    PREC100
039369,000042:                                                                                                 #      V2T100
039370,000043:                                                                                                 #      RTENCK2
039371,000044:                                                                                                 #      RTENCK3
039372,000045:                                                                                                 #      TIMERAD
039373,000046:                                                                                                 #      PARAM
039374,000047:                                                                                                 #    V2T100
039375,000048:                                                                                                 #      GAMDV10
039376,000049:                                                                                                 #      XT1LIM
039377,000050:                                                                                                 #      DVCALC
039378,000051:                                                                                                 #    RTENCK1
039379,000052:                                                                                                 #      INTSTALL
039380,000053:                                                                                                 #      INTEGRVS
039381,000054:                                                                                                 #    RTEVN
039382,000055:                                                                                                 #      RETDISP
039383,000056:                                                                                                 #      TMRAD100
039384,000057:                                                                                                 #      AUGEKUGL
039385,000058:                                                                                                 #      LAT-LONG
039386,000059:                                                                                                 #    TMRAD100
039387,000060:                                                                                                 #      TIMERAD
039388,000061:                                                                                                 #    INVC100
039389,000062:                                                                                                 #      CSMPREC
039390,000063:                                                                                                 #    GETERAD
039391,000064:                                                                                                 #    TIMETHET
039392,000065:                                                                                                 #    P370ALRM
039393,000066:                                                                                                 #    VN1645
039394,000067:                                                                                                 #    POLY
039395,000068: 
039396,000069:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
039397,000070:                                                                                                 #    CSM STATE VECTOR
039398,000071:                                                                                                 #    NJETSFLG     NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED    STATE FLAG      0=4 JETS  1=2 JETS
039399,000072: 
039400,000073:                                                                                                 # # Page 898
039401,000074:                                                                                                 #  ASTRONAUT INPUT
039402,000075:                                                                                                 #    SPRTETIG     TIME OF IGNITION (OVERLAYS TIG)                         DP      B28     CS
039403,000076:                                                                                                 #    VPRED        DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP      B7      METERS/CS
039404,000077:                                                                                                 #    GAMMAEI      DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0)    DP      B0      REVS  + ABOVE HORIZ.
039405,000078:                                                                                                 #    OPTION2      PROPULSION SYSTEM OPTION                                SP      B14     1=SPS, 2=RCS
039406,000079: 
039407,000080:                                                                                                 #  OUTPUT
039408,000081:                                                                                                 #    CONIC OR PRECISION TRAJECTORY DISPLAY
039409,000082:                                                                                                 #      VPRED      VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039410,000083:                                                                                                 #      T3TOT4     TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039411,000084:                                                                                                 #      GAMMAEI    FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZON
039412,000085:                                                                                                 #      DELVLVC    INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039413,000086:                                                                                                 #      LAT(SPL)   LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039414,000087:                                                                                                 #      LNG(SPL)   LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039415,000088:                                                                                                 #    TARGETING COMPUTATION DISPLAY
039416,000089:                                                                                                 #      TIG        RECOMPUTED TIG BASED ON THRUST OPTION                   DP      B28     CS
039417,000090:                                                                                                 #      TTOGO      TIME FROM TIG                                           DP      B28     CS
039418,000091:                                                                                                 #      +MGA       POSITIVE MIDDLE GIMBAL ANGLE                            DP      B0      REVS  -.02 IF REFSMFLG=0
039419,000092:                                                                                                 #    THRUST PROGRAM COMMUNICATION
039420,000093:                                                                                                 #      XDELVFLG   EXTERNAL DELTA V FLAG                                   STATE FLAG      SET 0 FOR LAMBERT AIMPT
039421,000094:                                                                                                 #      NORMSW     LAMBERT AIMPT ROTATION SWITCH                           STATE FLAG      SET 0 FOR NO ROTATION
039422,000095:                                                                                                 #      ECSTEER    CROSS PRODUCT STEERING CONSTANT                         SP      B2      SET 1
039423,000096:                                                                                                 #      RTARG      CONICALLY INTEGRATED REENTRY POSITION VECTOR            VECTOR  B29     METERS
039424,000097:                                                                                                 #      TPASS4     REENTRY TIME                                            DP      B28     CS
039425,000098: 
039426,000099: 36,2476           05402        P37               TC       PHASCHNG                              #  P37 IS NOT RESTARTABLE.
039427,000100: 36,2477           00004                          OCT      4                                     
039428,000101: 
039429,000102: 36,2500           06006                          TC       INTPRET                               
039430,000103: 36,2501           66170                          AXT,1    SXA,1                                 
039431,000104: 36,2502           04000                          OCT      04000                                 
039432,000105: 36,2503           03424                                   ECSTEER                               
039433,000106: 36,2504           77745                          DLOAD                                          
039434,000107: 36,2505           15336                                   ZEROVECS                              
039435,000108: 36,2506           03757                          STORE    VPRED                                 
039436,000109: 36,2507           03761                          STORE    GAMMAEI                               
039437,000110: 36,2510           77776                          EXIT                                           
039438,000111: 36,2511           35026                          CAF      V6N33RTE                              #  INPUT TIG      STORED IN SPRTETIG
039439,000112: 36,2512           03246                          TCR      P370GOF                               #                    OVERLAYED WITH TIG
039440,000113: 36,2513           12511                          TCF      -2                                    #  DISPLAY NEW DATA
039441,000114: 36,2514           35033                          CAF      V6N60RTE                              #  INPUT REENTRY ANGLE IN GAMMAEI
039442,000115: 36,2515           03222                          TCR      P37GFRB1                              #    AND DESIRED DELTA V IN RTEDVD
039443,000116: 36,2516           12514                          TCF      -2                                    #  DISPLAY NEW DATA
039444,000117: 36,2517           06006        RTE299            TC       INTPRET                               
039445,000118: 36,2520           71331                          SSP      DLOAD                                 
039446,000119: 36,2521           00122                                   OVFIND                                
039447,000120: 36,2522           00000                                   0                                     
039448,000121: 36,2523           03757                                   VPRED                                 
039449,000122: 36,2524           17632                          STODL    RTEDVD                                
039450,000123: 36,2525           03761                                   GAMMAEI                               
039451,000124:                                                                                                 # # Page 899
039452,000125: 36,2526           17634                          STODL    RTEGAM2D                              
039453,000126: 36,2527           33572                                   1RTEB13                               
039454,000127: 36,2530           17551                          STODL    CONICX1                               
039455,000128: 36,2531           33662                                   C4RTE                                 
039456,000129: 36,2532           37652                          STCALL   MAMAX1                                
039457,000130: 36,2533           64455                                   INVC100                               #  GET R(T1)/,V(T1)/,UR1/,UH/
039458,000131: 36,2534           71214                          CLEAR    DLOAD                                 
039459,000132: 36,2535           02662                                   SLOWFLG                               
039460,000133: 36,2536           03632                                   RTEDVD                                
039461,000134: 36,2537           51444                          BPL      ABS                                   
039462,000135: 36,2540           74550                                   RTE317                                
039463,000136: 36,2541           03632                          STORE    RTEDVD                                
039464,000137: 36,2542           45345                          DLOAD    DSU                                   
039465,000138: 36,2543           03646                                   R(T1)                                 
039466,000139: 36,2544           33664                                   K1RTE                                 
039467,000140: 36,2545           43040                          BMN      SET                                   
039468,000141: 36,2546           74550                                   RTE317                                
039469,000142: 36,2547           02462                                   SLOWFLG                               
039470,000143: 36,2550           77545        RTE317            DLOAD    EXIT                                  
039471,000144: 36,2551           03646                                   R(T1)                                 
039472,000145: 36,2552           07171                          TC       POLY                                  
039473,000146: 36,2553           00002                          DEC      2          B-14                       
039474,000147: 36,2554           02544 35436                    2DEC     181000434. B-31                       
039475,000148: 36,2556           14040 05066                    2DEC     1.50785145 B-2                        
039476,000149: 36,2560           44052 60030                    2DEC*    -6.49993057 E-9        B27*            
039477,000150: 36,2562           26415 25057                    2DEC*    9.76938926 E-18       B56*            
039478,000151: 36,2564           06006                          TC       INTPRET                               
039479,000152: 36,2565           77752                          SL1                                            
039480,000153: 36,2566           17654                          STODL    MAMAX2                                #  C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039481,000154: 36,2567           33614                                   M9RTEB28                              
039482,000155: 36,2570           17730                          STODL    NN1A                                  
039483,000156: 36,2571           33666                                   K2RTE                                 
039484,000157: 36,2572           17636        RTE320            STODL    RCON                                  #  RCON=K2
039485,000158: 36,2573           03634                                   RTEGAM2D                              
039486,000159: 36,2574           44254                          BZE      BDSU                                  
039487,000160: 36,2575           74604                                   RTE340                                #  GOTORTE340 IF REENTRY ANGLE NOT INPUT
039488,000161: 36,2576           15326                                   1RTEB2                                
039489,000162: 36,2577           71406                          PUSH     COS                                   #                                     PL02D
039490,000163: 36,2600           73525                          PDDL     SIN                                   
039491,000164: 36,2601           45465                          BDDV     STADR                                 #                                     PL00D
039492,000165: 36,2602           40051                          STCALL   X(T2)                                 #  X(T2)=COT(GAM2D)                B0
039493,000166: 36,2603           74617                                   RTE360                                
039494,000167: 36,2604           45345        RTE340            DLOAD    DSU                                   
039495,000168: 36,2605           03646                                   R(T1)                                 
039496,000169: 36,2606           33664                                   K1RTE                                 
039497,000170: 36,2607           71240                          BMN      DLOAD                                 
039498,000171:                                                                                                 # # Page 900
039499,000172: 36,2610           74614                                   RTE350                                
039500,000173: 36,2611           33672                                   K4RTE                                 
039501,000174: 36,2612           37726                          STCALL   X(T2)                                 #  X(T2)=K4
039502,000175: 36,2613           74617                                   RTE360                                
039503,000176: 36,2614           77745        RTE350            DLOAD                                          
039504,000177: 36,2615           33670                                   K3RTE                                 
039505,000178: 36,2616           03726                          STORE    X(T2)                                 #  X(T2)=K3
039506,000179: 36,2617           77624        RTE360            CALL                                           
039507,000180: 36,2620           65102                                   V2T100                                
039508,000181: 36,2621           52054                          BZE      GOTO                                  
039509,000182: 36,2622           74624                                   RTE367                                
039510,000183: 36,2623           64272                                   RTEALRM                               
039511,000184: 36,2624           77775        RTE367            VLOAD                                          
039512,000185: 36,2625           03640                                   R(T1)/                                
039513,000186: 36,2626           16657                          STODL    RVEC                                  
039514,000187: 36,2627           03636                                   RCON                                  
039515,000188: 36,2630           26760                          STOVL    RDESIRED                              
039516,000189: 36,2631           03700                                   V2(T1)/                               
039517,000190: 36,2632           36746                          STCALL   VVEC                                  
039518,000191: 36,2633           64304                                   TMRAD100                              
039519,000192: 36,2634           77615                          DAD                                            
039520,000193: 36,2635           03716                                   T1                                    
039521,000194: 36,2636           17552                          STODL    T2                                    
039522,000195: 36,2637           03634                                   RTEGAM2D                              
039523,000196: 36,2640           52054                          BZE      GOTO                                  
039524,000197: 36,2641           74643                                   RTE369                                
039525,000198: 36,2642           74665                                   RTE372                                
039526,000199: 36,2643           51575        RTE369            VLOAD    ABVAL                                 
039527,000200: 36,2644           03710                                   V(T2)/                                
039528,000201: 36,2645           77776                          EXIT                                           
039529,000202: 36,2646           07171                          TC       POLY                                  
039530,000203: 36,2647           00002                          DEC      2          B-14                       
039531,000204: 36,2650           00000 00000                    2DEC     0          B-28                       
039532,000205: 36,2652           47021 65002                    2DEC     -4.8760771 E-2        B4              
039533,000206: 36,2654           35610 07722                    2DEC     4.5419476  E-4        B11             
039534,000207: 36,2656           63772 63276                    2DEC     -1.4317675 E-6        B18             
039535,000208: 36,2660           06006                          TC       INTPRET                               
039536,000209: 36,2661           77615                          DAD                                            
039537,000210: 36,2662           01343                                   RTED1                                 
039538,000211: 36,2663           52052                          SL3      GOTO                                  #  X(T2),=D1+D2V2+D3V2**2+D4V2**3
039539,000212: 36,2664           74667                                   RTE373                                
039540,000213: 36,2665           77745        RTE372            DLOAD                                          #  X(T2),=X(T2)
039541,000214: 36,2666           03726                                   X(T2)                                 
039542,000215: 36,2667           41425        RTE373            DSU      PUSH                                  #  X(T2)ERR                        B0 PL02D
039543,000216: 36,2670           03726                                   X(T2)                                 
039544,000217: 36,2671           53575                          VLOAD    UNIT                                  
039545,000218:                                                                                                 # # Page 901
039546,000219: 36,2672           03656                                   R(T2)/                                #                                 B58
039547,000220: 36,2673           36152                          STCALL   ALPHAV                                
039548,000221: 36,2674           26570                                   GETERAD                               
039549,000222: 36,2675           77615                          DAD                                            
039550,000223: 36,2676           33676                                   E3RTE                                 
039551,000224: 36,2677           45206                          PUSH     DSU                                   #  RCON,=(E1/1+E2BETA11)**.5)+E3 B29 PL04D
039552,000225: 36,2700           03636                                   RCON                                  
039553,000226: 36,2701           45246                          ABS      DSU                                   
039554,000227: 36,2702           33646                                   EPC2RTE                               
039555,000228: 36,2703           52040                          BMN      GOTO                                  
039556,000229: 36,2704           74706                                   RTE374                                
039557,000230: 36,2705           74713                                   RTE375                                
039558,000231: 36,2706           51545        RTE374            DLOAD    ABS                                   
039559,000232: 36,2707           00001                                   00D                                   
039560,000233: 36,2710           50025                          DSU      BMN                                   
039561,000234: 36,2711           33650                                   EPC3RTE                               
039562,000235: 36,2712           74763                                   P37E                                  
039563,000236: 36,2713           43345        RTE375            DLOAD    DAD                                   
039564,000237: 36,2714           03730                                   NN1A                                  
039565,000238: 36,2715           33600                                   1RTEB28                               
039566,000239: 36,2716           67240                          BMN      SLOAD                                 
039567,000240: 36,2717           74723                                   RTE380                                
039568,000241: 36,2720           33630                                   OCT605                                
039569,000242: 36,2721           77650                          GOTO                                           
039570,000243: 36,2722           64272                                   RTEALRM                               #  TOO MANY ITERATIONS
039571,000244: 36,2723           03730        RTE380            STORE    NN1A                                  
039572,000245: 36,2724           53025                          DSU      BZE                                   
039573,000246: 36,2725           33616                                   M8RTEB28                              
039574,000247: 36,2726           74744                                   RTE385                                
039575,000248: 36,2727           45345                          DLOAD    DSU                                   
039576,000249: 36,2730           00001                                   00D                                   
039577,000250: 36,2731           03666                                   DRCON                                 
039578,000251: 36,2732           65301                          NORM     PDDL                                  #  X(T2)ERR-X(T2)ERR,=Z1              PL06D
039579,000252: 36,2733           00047                                   X1                                    
039580,000253: 36,2734           03670                                   RPRE,                                 
039581,000254: 36,2735           56225                          DSU      DDV                                   #  X(T2)PRI-X(T2)=Z2                  PL04D
039582,000255: 36,2736           03726                                   X(T2)                                 
039583,000256: 36,2737           53605                          DMP      SL*                                   #  DX(T2)=X(T2)ERR(Z2/Z1)
039584,000257: 36,2740           00001                                   00D                                   
039585,000258: 36,2741           20201                                   0,1                                   
039586,000259: 36,2742           77650                          GOTO                                           
039587,000260: 36,2743           74746                                   RTE390                                
039588,000261: 36,2744           77745        RTE385            DLOAD                                          #  DX(T2)=X(T2)ERR
039589,000262: 36,2745           00001                                   00D                                   
039590,000263: 36,2746           14021        RTE390            STODL    16D                                   #  DX(T2)                     PL02D
039591,000264: 36,2747           77626                          STADR                                          
039592,000265: 36,2750           60141                          STODL    RCON                                  #  RCON=RCON,
039593,000266: 36,2751           77600                          BOV                                            
039594,000267: 36,2752           74617                                   RTE360                                
039595,000268: 36,2753           17666                          STODL    DRCON                                 #  X(T2)ERR,=X(T2)ERR
039596,000269:                                                                                                 # # Page 902
039597,000270: 36,2754           03726                                   X(T2)                                 
039598,000271: 36,2755           17670                          STODL    RPRE,                                 #  X(T2)PRI=X(T2)
039599,000272: 36,2756           00021                                   16D                                   
039600,000273: 36,2757           77615                          DAD                                            
039601,000274: 36,2760           03726                                   X(T2)                                 
039602,000275: 36,2761           37726                          STCALL   X(T2)                                 #  X(T2)=X(T2)+DX(T2)
039603,000276: 36,2762           74617                                   RTE360                                #  REITERATE
039604,000277: 36,2763           77624        P37E              CALL                                           #  DISPLAY CONIC SOLUTION
039605,000278: 36,2764           75007                                   RTEVN                                 
039606,000279: 36,2765           41345        RTE505            DLOAD    DMP                                   
039607,000280: 36,2766           03720                                   PCON                                  
039608,000281: 36,2767           03744                                   BETA1                                 
039609,000282: 36,2770           53021                          BDSU     BZE                                   
039610,000283: 36,2771           03636                                   RCON                                  
039611,000284: 36,2772           75000                                   RTE510                                
039612,000285: 36,2773           71240                          BMN      DLOAD                                 
039613,000286: 36,2774           75000                                   RTE510                                
039614,000287: 36,2775           15326                                   1RTEB2                                
039615,000288: 36,2776           77650                          GOTO                                           #  ENTRY NEAR APOGEE
039616,000289: 36,2777           75002                                   RTE515                                
039617,000290: 36,3000           57545        RTE510            DLOAD    DCOMP                                 #  ENTRY NEAR PERIGEE
039618,000291: 36,3001           15326                                   1RTEB2                                
039619,000292: 36,3002           37751        RTE515            STCALL   PHI2                                  
039620,000293: 36,3003           64546                                   PREC100                               #  PRECISION TRAJECTORY COMPUTATION
039621,000294: 36,3004           52054        RTE625            BZE      GOTO                                  
039622,000295: 36,3005           75035                                   P37G                                  
039623,000296: 36,3006           64272                                   RTEALRM                               
039624,000297: 
039625,000298:                                                                                                 #  RETURN TO EARTH DISPLAY SUBROUTINE
039626,000299: 
039627,000300: 36,3007           45020        RTEVN             STQ      CALL                                  
039628,000301: 36,3010           03753                                   VNSTORE                               
039629,000302: 36,3011           64323                                   RTEDISP                               #  DISPLAY PREPARATION
039630,000303: 36,3012           77776                          EXIT                                           
039631,000304: 36,3013           35034                          CAF      V6N61RTE                              #  LATITUDE,LONGITUDE,BLANK
039632,000305: 36,3014           03232                          TCR      P370GOFR                              #    IN LAT(SPL),LNG(SPL),-
039633,000306: 36,3015           34766                          CAF      FOUR                                  
039634,000307: 36,3016           03226                          TCR      37BLANK    +1                         
039635,000308: 36,3017           13024                          TCF      +5                                    
039636,000309: 36,3020           12476                          TCF      P37                                   #  RECYCLE
039637,000310: 36,3021           33257                          CAF      V6N39RTE                              #  T21 HRS,MIN,SEC IN T3TOT4
039638,000311: 36,3022           03246                          TCR      P370GOF                               
039639,000312: 36,3023           12476                          TCF      P37                                   #  RECYCLE
039640,000313: 36,3024           35033                          CAF      V6N60RTE                              #  DISPLAY BLANK,V(T2),FPA2
039641,000314: 36,3025           03222                          TCR      P37GFRB1                              #    IN -,VPRED,GAMMAEI
039642,000315: 36,3026           12476                          TCF      P37                                   #  RECYCLE
039643,000316: 36,3027           34535                          CAF      V6N81RTE                              #  DISPLAY DELTA V (LV) IN DELVLVC
039644,000317: 36,3030           03246                          TCR      P370GOF                               
039645,000318: 36,3031           12476                          TCF      P37                                   #  RECYCLE
039646,000319: 36,3032           06006                          TCR      INTPRET                               
039647,000320:                                                                                                 # # Page 903
039648,000321: 36,3033           77650                          GOTO                                           
039649,000322: 36,3034           03753                                   VNSTORE                               
039650,000323: 
039651,000324:                                                                                                 #  PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039652,000325: 
039653,000326: 36,3035           77624        P37G              CALL                                           
039654,000327: 36,3036           75007                                   RTEVN                                 
039655,000328: 36,3037           77776                          EXIT                                           
039656,000329: 36,3040           34774        P37N              CAF      SEVEN                                 
039657,000330: 36,3041           54775                          TS       OPTION1                               
039658,000331: 36,3042           34770                          CAF      ONE                                   
039659,000332: 36,3043           54776                          TS       OPTION2                               
039660,000333: 36,3044           34537                          CAF      V4N06RTE                              #  DISPLAY RCS OR SPS OPTION  SPS ASSUMED
039661,000334: 36,3045           03246                          TCR      P370GOF                               
039662,000335: 36,3046           13044                          TCF      -2                                    #  RECYCLE
039663,000336: 36,3047           06006                          TC       INTPRET                               #  PROCEED
039664,000337: 36,3050           67201                          SETPD    SLOAD                                 
039665,000338: 36,3051           00001                                   00D                                   
039666,000339: 36,3052           00777                                   OPTION2                               
039667,000340: 36,3053           53025                          DSU      BZE                                   
039668,000341: 36,3054           33572                                   1RTEB13                               
039669,000342: 36,3055           75064                                   P37Q                                  
039670,000343: 36,3056           60335                          SLOAD    NORM                                  #  SPS
039671,000344: 36,3057           01351                                   EMDOT                                 
039672,000345: 36,3060           00047                                   X1                                    
039673,000346: 36,3061           52125                          PDDL     GOTO                                  
039674,000347: 36,3062           33622                                   VCSPS                                 
039675,000348: 36,3063           75075                                   P37T                                  
039676,000349: 36,3064           43145        P37Q              DLOAD    BON                                   #  RCS
039677,000350: 36,3065           33626                                   MDOTRCS                               
039678,000351: 36,3066           00700                                   NJETSFLG                              
039679,000352: 36,3067           75071                                   P37R                                  
039680,000353: 36,3070           77752                          SL1                                            
039681,000354: 36,3071           77752        P37R              SL1                                            
039682,000355: 36,3072           65301                          NORM     PDDL                                  
039683,000356: 36,3073           00047                                   X1                                    
039684,000357: 36,3074           33624                                   VCRCS                                 
039685,000358: 36,3075           56325        P37T              PDDL     DDV                                   #  DV/VC                  B7 -B5 = B2 PL02D
039686,000359: 36,3076           03706                                   DV                                    
039687,000360: 36,3077           77776                          EXIT                                           
039688,000361: 36,3100           07171                          TC       POLY                                  
039689,000362: 36,3101           00001                          DEC      1          B-14                       
039690,000363: 36,3102           00001 05070                    2DEC     5.66240507 E-4        B-3             
039691,000364: 36,3104           17527 36700                    2DEC     9.79487897 E-1        B-1             
039692,000365: 36,3106           47114 70670                    2DEC     -.388281955 B1                         
039693,000366: 36,3110           06006                          TC       INTPRET                               
039694,000367: 36,3111           67206                          PUSH     SLOAD                                 #  (1-E)**(-DV/VC)=A               B3 PL04D
039695,000368:                                                                                                 # # Page 904
039696,000369: 36,3112           03076                                   WEIGHT/G                              
039697,000370: 36,3113           56205                          DMP      DDV                                   #  DTB=(M0/MDOT)A      B16+B3-B3=B16 PL00D
039698,000371: 36,3114           41257                          SL*      DMP                                   
039699,000372: 36,3115           20165                                   0          -12D,1                     
039700,000373: 36,3116           15334                                   CSUBT                                 
039701,000374: 36,3117           77621                          BDSU                                           
039702,000375: 36,3120           03716                                   T1                                    
039703,000376: 36,3121           03413                          STORE    TIG                                   #  TIG=T1-CT*DTB                  B28
039704,000377: 36,3122           77776                          EXIT                                           
039705,000378: 36,3123           35026                          CAF      V6N33RTE                              #  DISPLAY BIASED TIG
039706,000379: 36,3124           03246                          TCR      P370GOF                               
039707,000380: 36,3125           13123                          TCF      -2                                    
039708,000381: 36,3126           34772                          CAF      ZERO                                  
039709,000382: 36,3127           54771                          TS       VHFCNT                                
039710,000383: 36,3130           54772                          TS       TRKMKCNT                              
039711,000384: 36,3131           06006                          TC       INTPRET                               
039712,000385: 36,3132           77624                          CALL                                           #  CONICALLY INTEGRATE FROM R1,V1 OVER T12
039713,000386: 36,3133           63624                                   RTENCK1                               
039714,000387: 36,3134           53575                          VLOAD    UNIT                                  #                                     PL00D
039715,000388: 36,3135           03656                                   R(T2)/                                
039716,000389: 36,3136           74315                          PDVL     VXSC                                  #  UR2                             B1 PL06D
039717,000390: 36,3137           03554                                   UR1/                                  
039718,000391: 36,3140           33632                                   MCOS7.5                               
039719,000392: 36,3141           74315                          PDVL     VXSC                                  #  -UR1(COS7.5)                    B1 PL12D
039720,000393: 36,3142           03562                                   UH/                                   
039721,000394: 36,3143           33634                                   MSIN7.5                               
039722,000395: 36,3144           50255                          VAD      DOT                                   #  K/=-UR1(COS7.5)-UH(SIN7.5)      B2 PL00D
039723,000396: 36,3145           50015                          DAD      BMN                                   
039724,000397: 36,3146           33636                                   MCOS22.5                              
039725,000398: 36,3147           75174                                   P37W                                  
039726,000399: 36,3150           50375                          VLOAD    DOT                                   #  K/ . UR2 GR COS22.5
039727,000400: 36,3151           03562                                   UH/                                   
039728,000401: 36,3152           03656                                   R(T2)/                                
039729,000402: 36,3153           71240                          BMN      DLOAD                                 
039730,000403: 36,3154           75160                                   P37U                                  
039731,000404: 36,3155           33640                                   THETA165                              
039732,000405: 36,3156           52006                          PUSH     GOTO                                  
039733,000406: 36,3157           75162                                   P37V                                  
039734,000407: 36,3160           41545        P37U              DLOAD    PUSH                                  
039735,000408: 36,3161           33642                                   THETA210                              
039736,000409: 36,3162           77756        P37V              SIN                                            
039737,000410: 36,3163           16732                          STODL    SNTH                                  
039738,000411: 36,3164           43146                          COS      CLEAR                                 
039739,000412: 36,3165           03666                                   RVSW                                  
039740,000413: 36,3166           26734                          STOVL    CSTH                                  
039741,000414: 36,3167           03640                                   R(T1)/                                
039742,000415: 36,3170           26657                          STOVL    RVEC                                  
039743,000416: 36,3171           03700                                   V2(T1)/                               
039744,000417: 36,3172           36746                          STCALL   VVEC                                  
039745,000418: 36,3173           25002                                   TIMETHET                              
039746,000419:                                                                                                 # # Page 905
039747,000420: 36,3174           43014        P37W              CLEAR    CLEAR                                 
039748,000421: 36,3175           01267                                   XDELVFLG                              
039749,000422: 36,3176           03665                                   NORMSW                                
039750,000423: 36,3177           77214                          SET      VLOAD                                 
039751,000424: 36,3200           01071                                   FINALFLG                              
039752,000425: 36,3201           77626                          STADR                                          
039753,000426: 36,3202           60362                          STODL    RTARG                                 
039754,000427: 36,3203           00037                                   T                                     
039755,000428: 36,3204           77615                          DAD                                            
039756,000429: 36,3205           03716                                   T1                                    
039757,000430: 36,3206           27656                          STOVL    TPASS4                                
039758,000431: 36,3207           03700                                   V2(T1)/                               
039759,000432: 36,3210           77451                          VSU      EXIT                                  
039760,000433: 36,3211           03672                                   V(T1)/                                
039761,000434: 36,3212           34756                          CAF      EBANK4                                
039762,000435: 36,3213           54003                          TS       EBANK                                 
039763,000436: 36,3214           06006                          TC       INTPRET                               
039764,000437: 36,3215           03646                          STORE    DELVSIN                               
039765,000438: 36,3216           77624        P37WW             CALL                                           
039766,000439: 36,3217           73027                                   VN1645                                
039767,000440: 36,3220           77650                          GOTO                                           
039768,000441: 36,3221           75216                                   P37WW                                 
039769,000442: 
039770,000443:                                                                                                 #  SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
039771,000444: 
039772,000445: 36,3222           00006        P37GFRB1          EXTEND                                         
039773,000446: 36,3223           23752                          QXCH     SPRTEX                                
039774,000447: 36,3224           03232                          TCR      P370GOFR                              
039775,000448: 36,3225           34770        37BLANK           CAF      ONE                                   
039776,000449: 36,3226           05516                 +1       TCR      BLANKET                               
039777,000450: 36,3227           15205                          TCF      ENDOFJOB                              
039778,000451: 36,3230           01752                          TC       SPRTEX                                #  RECYCLE
039779,000452: 36,3231           13255                          TCF      P37PROC                               #  PROCEED
039780,000453: 
039781,000454:                                                                                                 #  SUBROUTINE TO GO TO GOFLASHR
039782,000455: 
039783,000456: 36,3232           00006        P370GOFR          EXTEND                                         
039784,000457: 36,3233           23547                          QXCH     RTENCKEX                              
039785,000458: 36,3234           04636                          TCR      BANKCALL                              
039786,000459: 36,3235           21101                          CADR     GOFLASHR                              
039787,000460: 36,3236           14103                          TCF      GOTOPOOH                              #  TERMINATE
039788,000461: 36,3237           13242                          TCF      +3                                    
039789,000462: 36,3240           13244                          TCF      +4                                    
039790,000463: 36,3241           01547                          TC       RTENCKEX                              #  IMMEDIATE RETURN
039791,000464: 36,3242           51547                          INDEX    RTENCKEX                              #  PROCEED
039792,000465: 36,3243           10004                          TCF      0          +4                         
039793,000466: 36,3244           51547                          INDEX    RTENCKEX                              #  RECYCLE
039794,000467: 36,3245           10003                          TCF      0          +3                         
039795,000468: 
039796,000469:                                                                                                 #  SUBROUTINE TO GO TO GOFLASH
039797,000470: 
039798,000471:                                                                                                 # # Page 906
039799,000472: 36,3246           00006        P370GOF           EXTEND                                         
039800,000473: 36,3247           23752                          QXCH     SPRTEX                                
039801,000474: 36,3250           04636                          TCR      BANKCALL                              
039802,000475: 36,3251           20743                          CADR     GOFLASH                               
039803,000476: 36,3252           14103                          TCF      GOTOPOOH                              
039804,000477: 36,3253           13255                          TCF      +2                                    
039805,000478: 36,3254           01752                          TC       SPRTEX                                
039806,000479: 36,3255           51752        P37PROC           INDEX    SPRTEX                                
039807,000480: 36,3256           10001                          TCF      0          +1                         
039808,000481: 36,3257     5026               V6N33RTE          =        V06N33                                
039809,000482: 36,3257     4537               V4N06RTE          =        V04N06                                
039810,000483: 36,3257     5034               V6N61RTE          =        V06N61                                
039811,000484: 36,3257           01447        V6N39RTE          VN       0639                                  
039812,000485: 36,3260     5033               V6N60RTE          =        V06N60                                
039813,000486: 36,3260     4535               V6N81RTE          =        V06N81                                
039814,000487: 32,2000                                          SETLOC   RTE                                   
039815,000488: 32,2000                                          BANK                                           
039816,000489: 32,2272                                          COUNT*   $$/P37                                
039817,000490:                                                                                                 # # Page 907
039818,000491:                                                                                                 #  ALARM DISPLAY SUBROUTINE
039819,000492: 32,2272           77776        RTEALRM           EXIT                                           
039820,000493: 32,2273           30154                          CA       MPAC                                  
039821,000494: 32,2274           05770                          TC       VARALARM                              
039822,000495: 32,2275           35023                          CAF      V5N09RTE                              
039823,000496: 32,2276           04636                          TC       BANKCALL                              
039824,000497: 32,2277           20743                          CADR     GOFLASH                               
039825,000498: 32,2300           14103                          TCF      GOTOPOOH                              
039826,000499: 32,2301           12275                          TCF      -4                                    
039827,000500: 32,2302           04655                          TC       POSTJUMP                              
039828,000501: 32,2303           74476                          CADR     P37                                   
039829,000502: 32,2304     5023               V5N09RTE          =        V05N09                                
039830,000503: 
039831,000504:                                                                                                 # # Page 908
039832,000505:                                                                                                 #  TIME RADIUS CALLING SUBROUTINE
039833,000506: 
039834,000507:                                                                                                 #  INPUT
039835,000508:                                                                                                 #    RVEC INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
039836,000509:                                                                                                 #    VVEC INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039837,000510:                                                                                                 #    RDESIRED     FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED  DP      B29     METERS
039838,000511:                                                                                                 #    CONICX1      X1 SETTING FOR CONIC SUBROUTINES  -2 = EARTH            SP      B14
039839,000512:                                                                                                 #  OUTPUT
039840,000513:                                                                                                 #    R(T2)/       FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039841,000514:                                                                                                 #    V(T2)/       FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039842,000515:                                                                                                 #    T12          TRANSFER TIME TO FINAL RADIUS                           DP      B28     CS
039843,000516: 
039844,000517: 32,2304           43020        TMRAD100          STQ      CLEAR                                 
039845,000518: 32,2305           03547                                   RTENCKEX                              
039846,000519: 32,2306           03666                                   RVSW                                  
039847,000520: 32,2307           67164                          AXC,2    SXA,2                                 
039848,000521: 32,2310           20000                          OCT      20000                                 
039849,000522: 32,2311           02756                                   SGNRDOT                               
039850,000523: 32,2312           45140                          LXC,1    CALL                                  
039851,000524: 32,2313           03550                                   CONICX1                               
039852,000525: 32,2314           25607                                   TIMERAD                               
039853,000526: 32,2315           27710                          STOVL    V(T2)/                                #                                     PL00D
039854,000527: 32,2316           77626                          STADR                                          
039855,000528: 32,2317           60121                          STODL    R(T2)/                                
039856,000529: 32,2320           00037                                   T                                     
039857,000530: 32,2321           37724                          STCALL   T12                                   
039858,000531: 32,2322           03547                                   RTENCKEX                              
039859,000532: 
039860,000533:                                                                                                 # # Page 909
039861,000534:                                                                                                 #  DISPLAY CALCULATION SUBROUTINE
039862,000535: 
039863,000536:                                                                                                 #  DESCRIPTION
039864,000537:                                                                                                 #    OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
039865,000538:                                                                                                 #  COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
039866,000539: 
039867,000540:                                                                                                 #  CALLING SEQUENCE
039868,000541:                                                                                                 #    L    CALL
039869,000542:                                                                                                 #    L+1          RTEDISP
039870,000543: 
039871,000544:                                                                                                 #  SUBROUTINES CALLED
039872,000545:                                                                                                 #    TMRAD100
039873,000546:                                                                                                 #    AUGEKUGL
039874,000547:                                                                                                 #    LAT-LONG
039875,000548: 
039876,000549:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
039877,000550:                                                                                                 #    PUSHLIST
039878,000551:                                                                                                 #      NONE
039879,000552:                                                                                                 #    MPAC
039880,000553:                                                                                                 #      NONE
039881,000554:                                                                                                 #    OTHER
039882,000555:                                                                                                 #      R(T2)/             FINAL POSITION VECTOR                                   VECTOR  B29     METERS
039883,000556:                                                                                                 #      V(T2)/             FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
039884,000557:                                                                                                 #      T2         FINAL TIME                                              DP      B28     CS
039885,000558:                                                                                                 #      V2(T1)/            POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
039886,000559:                                                                                                 #      V(T1)/             INITIAL VELOCITY VECTOR                                 VECTOR  B7      METERS/CS
039887,000560:                                                                                                 #      UR1/               UNIT INITIAL VECTOR                                     VECTOR  B1
039888,000561:                                                                                                 #      UH/                UNIT HORIZONTAL VECTOR                                  VECTOR  B1
039889,000562: 
039890,000563:                                                                                                 #  OUTPUT
039891,000564:                                                                                                 #         VPRED           VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE        DP      B7      METERS/CS
039892,000565:                                                                                                 #         T3TOT4          TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE              DP      B28     CS
039893,000566:                                                                                                 #         GAMMAEI         FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE         DP      B0      REVS  + ABOVE HORIZ
039894,000567:                                                                                                 #         DELVLVC         INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR  B7      METERS/CS
039895,000568:                                                                                                 #         LAT(SPL)        LATITUDE OF THE LANDING SITE                            DP      B0      REVS
039896,000569:                                                                                                 #         LNG(SPL)        LONGITUDE OF THE LANDING SITE                           DP      B0      REVS
039897,000570: 
039898,000571: 32,2323           77220        RTEDISP           STQ      VLOAD                                 #  DISPLAY
039899,000572: 32,2324           03752                                   SPRTEX                                
039900,000573: 32,2325           03710                                   V(T2)/                                
039901,000574: 32,2326           65256                          UNIT     PDDL                                  
039902,000575: 32,2327           00045                                   36D                                   
039903,000576: 32,2330           17757                          STODL    VPRED                                 #  V(T2)
039904,000577: 32,2331           03552                                   T2                                    
039905,000578: 32,2332           77625                          DSU                                            
039906,000579: 32,2333           03413                                   SPRTETIG                              
039907,000580: 32,2334           26641                          STOVL    T3TOT4                                #  T21
039908,000581: 32,2335           03656                                   R(T2)/                                
039909,000582: 32,2336           50256                          UNIT     DOT                                   
039910,000583: 32,2337           77752                          SL1                                            
039911,000584:                                                                                                 # # Page 910
039912,000585: 32,2340           44326                          ARCCOS   BDSU                                  
039913,000586: 32,2341           15326                                   1RTEB2                                
039914,000587: 32,2342           27761                          STOVL    GAMMAEI                               #  FLIGHT PATH ANGLE T2
039915,000588: 32,2343           03700                                   V2(T1)/                               
039916,000589: 32,2344           41451                          VSU      PUSH                                  
039917,000590: 32,2345           03672                                   V(T1)/                                
039918,000591: 32,2346           57441                          DOT      DCOMP                                 
039919,000592: 32,2347           03554                                   UR1/                                  
039920,000593: 32,2350           41515                          PDVL     PUSH                                  
039921,000594: 32,2351           63345                          DLOAD    PDVL                                  
039922,000595: 32,2352           15330                                   ZERORTE                               
039923,000596: 32,2353           55441                          DOT      VDEF                                  
039924,000597: 32,2354           03562                                   UH/                                   
039925,000598: 32,2355           77772                          VSL1                                           
039926,000599: 32,2356           17405                          STODL    DELVLVC                               
039927,000600: 32,2357           03405                                   DELVLVC                               
039928,000601: 32,2360           57414                          BOFF     DCOMP                                 
039929,000602: 32,2361           02741                                   RETROFLG                              
039930,000603: 32,2362           64364                                   RTD18                                 
039931,000604: 32,2363           03405                          STORE    DELVLVC                               #  NEGATE X COMPONENT, RETROGRADE
039932,000605: 32,2364           51575        RTD18             VLOAD    ABVAL                                 
039933,000606: 32,2365           03405                                   DELVLVC                               
039934,000607: 32,2366           27763                          STOVL    VGDISP                                
039935,000608: 32,2367           03656                                   R(T2)/                                
039936,000609: 32,2370           02657                          STORE    RVEC                                  #  *****  LANDING SITE COMPUTATION  *****
039937,000610: 32,2371           45246                          ABVAL    DSU                                   
039938,000611: 32,2372           33620                                   30480RTE                              
039939,000612: 32,2373           26760                          STOVL    RDESIRED                              
039940,000613: 32,2374           03710                                   V(T2)/                                
039941,000614: 32,2375           36746                          STCALL   VVEC                                  
039942,000615: 32,2376           64304                                   TMRAD100                              #  R3,V3,T23 FROM TIMERAD
039943,000616: 32,2377           53575                          VLOAD    UNIT                                  
039944,000617: 32,2400           03656                                   R(T2)/                                
039945,000618: 32,2401           53515                          PDVL     UNIT                                  #  UR3                                PL06D
039946,000619: 32,2402           03710                                   V(T2)/                                
039947,000620: 32,2403           72441                          DOT      SL1                                   #  GAMMAE=ARCSIN(UR3 . UV3)           PL00D
039948,000621: 32,2404           65336                          ARCSIN   PDDL                                  #  V(T3)                              PL02D
039949,000622: 32,2405           00045                                   36D                                   
039950,000623: 32,2406           51525                          PDDL     ABS                                   
039951,000624: 32,2407           45006                          PUSH     CALL                                  #  /GAMMAE/                           PL04D
039952,000625: 32,2410           64105                                   AUGEKUGL                              #  PHIE                               PL06D
039953,000626: 32,2411           43215                          DAD      DAD                                   
039954,000627: 32,2412           03724                                   T12                                   #  T23
039955,000628: 32,2413           03552                                   T2                                    
039956,000629: 32,2414           00003                          STORE    02D                                   #  T(LS)=T2&T23&TE
039957,000630: 32,2415           53135                          SLOAD    BZE                                   
039958,000631: 32,2416           03013                                   P37RANGE                              
039959,000632: 32,2417           64421                                   RTD22                                 
039960,000633: 32,2420           00005                          STORE    04D                                   #  OVERRIDE RANGE (PCR 261)
039961,000634: 32,2421           73545        RTD22             DLOAD    SIN                                   
039962,000635:                                                                                                 # # Page 911
039963,000636: 32,2422           00005                                   04D                                   
039964,000637: 32,2423           17403                          STODL    LNG(SPL)                              #  LNG(SPL)=SIN(PHIE)                 PL04D
039965,000638: 32,2424           77746                          COS                                            
039966,000639: 32,2425           03401                          STORE    LAT(SPL)                              #  LAT(SPL)=COS(PHIE)
039967,000640: 32,2426           53575                          VLOAD    UNIT                                  
039968,000641: 32,2427           03656                                   R(T2)/                                
039969,000642: 32,2430           41406                          PUSH     PUSH                                  
039970,000643: 32,2431           53515                          PDVL     UNIT                                  #                                     PL22D
039971,000644: 32,2432           03710                                   V(T2)/                                
039972,000645: 32,2433           47315                          PDVL     VXV                                   
039973,000646: 32,2434           53435                          VXV      UNIT                                  #  UH3=UNIT(UR3 X UV3 X UR3)          PL10D
039974,000647: 32,2435           63361                          VXSC     PDVL                                  
039975,000648: 32,2436           03403                                   LNG(SPL)                              
039976,000649: 32,2437           53361                          VXSC     VAD                                   #                                     PL04D
039977,000650: 32,2440           03401                                   LAT(SPL)                              
039978,000651: 32,2441           43014                          CLEAR    CLEAR                                 #  T(LS) IN MPAC
039979,000652: 32,2442           00662                                   ERADFLAG                              
039980,000653: 32,2443           01663                                   LUNAFLAG                              
039981,000654: 32,2444           16152                          STODL    ALPHAV                                #  ALPHAV=UR3(COSPHIE)+UH3(SINPHIE)  PL02D
039982,000655: 32,2445           77624                          CALL                                           
039983,000656: 32,2446           26453                                   LAT-LONG                              
039984,000657: 32,2447           77745                          DLOAD                                          
039985,000658: 32,2450           00747                                   LAT                                   
039986,000659: 32,2451           17401                          STODL    LAT(SPL)                              #  LATITUDE LANDING SITE   *****
039987,000660: 32,2452           00751                                   LONG                                  
039988,000661: 32,2453           37403                          STCALL   LNG(SPL)                              #  LONGITUDE LANDING SITE  *****
039989,000662: 32,2454           03752                                   SPRTEX                                
039990,000663:                                                                                                 # # Page 912
039991,000664:                                                                                                 #  INITIAL VECTOR SUBROUTINE
039992,000665: 
039993,000666:                                                                                                 #  DESCRIPTION
039994,000667:                                                                                                 #    A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
039995,000668: 
039996,000669:                                                                                                 #  CALLING SEQUENCE
039997,000670:                                                                                                 #    L    CALL
039998,000671:                                                                                                 #    L+1          INVC100
039999,000672: 
040000,000673:                                                                                                 #  NORMAL EXIT MODE
040001,000674:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040002,000675: 
040003,000676:                                                                                                 #  ALARM EXIT MODE
040004,000677:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
040005,000678: 
040006,000679:                                                                                                 #  SUBROUTINES CALLED
040007,000680:                                                                                                 #    CSMPREC
040008,000681: 
040009,000682:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
040010,000683:                                                                                                 #    PUSHLIST
040011,000684:                                                                                                 #      NONE
040012,000685:                                                                                                 #    MPAC
040013,000686:                                                                                                 #      NONE
040014,000687:                                                                                                 #    OTHER
040015,000688:                                                                                                 #      SPRTETIG           TIME OF IGNITION                                        DP      B28     CS
040016,000689:                                                                                                 #      CSM STATE VECTOR
040017,000690: 
040018,000691:                                                                                                 #  OUTPUT
040019,000692:                                                                                                 #    R(T1)/               INITIAL POSITION VECTOR AT TIG                          VECTOR  B29     METERS
040020,000693:                                                                                                 #    V(T1)/               INITIAL VELOCITY VECTOR AT TIG                          VECTOR  B7      METERS/CS
040021,000694:                                                                                                 #    T1                   INITIAL VECTOR TIME (TIG)                               DP      B28     CS
040022,000695:                                                                                                 #    UR1/         UNIT INITIAL VECTOR                                     VECTOR  B1
040023,000696:                                                                                                 #    UH/                  UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040024,000697:                                                                                                 #    CFPA         COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040025,000698: 
040026,000699: 32,2455           71220        INVC100           STQ      DLOAD                                 
040027,000700: 32,2456           03752                                   SPRTEX                                
040028,000701: 32,2457           03413                                   SPRTETIG                              
040029,000702: 32,2460           34041                          STCALL   TDEC1                                 
040030,000703: 32,2461           27145                                   CSMPREC                               #  PRECISION INTEGRATION  R0,V0 TO R1,V1
040031,000704: 32,2462           67175                          VLOAD    SXA,2                                 
040032,000705: 32,2463           00001                                   RATT                                  
040033,000706: 32,2464           03745                                   P(T1)                                 
040034,000707: 32,2465           27640                          STOVL    R(T1)/                                
040035,000708: 32,2466           00007                                   VATT                                  
040036,000709: 32,2467           17672                          STODL    V(T1)/                                
040037,000710: 32,2470           00015                                   TAT                                   
040038,000711: 32,2471           03716                          STORE    T1                                    
040039,000712: 32,2472           53135                          SLOAD    BZE                                   
040040,000713: 32,2473           03746                                   P(T1)                                 
040041,000714:                                                                                                 # # Page 913
040042,000715: 32,2474           64500                                   INVC109                               
040043,000716: 32,2475           52135        INVC107           SLOAD    GOTO                                  
040044,000717: 32,2476           33631                                   OCT612                                
040045,000718: 32,2477           64272                                   RTEALRM                               #  R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
040046,000719: 32,2500           53575        INVC109           VLOAD    UNIT                                  
040047,000720: 32,2501           03640                                   R(T1)/                                
040048,000721: 32,2502           17554                          STODL    UR1/                                  #  UR1/                            B1
040049,000722: 32,2503           00045                                   36D                                   
040050,000723: 32,2504           27646                          STOVL    R(T1)                                 #  R(T1)                          B29
040051,000724: 32,2505           03672                                   V(T1)/                                
040052,000725: 32,2506           77656                          UNIT                                           
040053,000726: 32,2507           03562                          STORE    UV1/                                  
040054,000727: 32,2510           72441                          DOT      SL1                                   
040055,000728: 32,2511           03554                                   UR1/                                  
040056,000729: 32,2512           03747                          STORE    CFPA                                  #  CFPA                            B1
040057,000730: 32,2513           45246                          ABS      DSU                                   
040058,000731: 32,2514           33644                                   EPC1RTE                               
040059,000732: 32,2515           71240                          BMN      DLOAD                                 
040060,000733: 32,2516           64525                                   INVC115                               #  NOT NEAR RECTILINEAR
040061,000734: 32,2517           15326                                   1RTEB2                                
040062,000735: 32,2520           41525                          PDDL     PUSH                                  
040063,000736: 32,2521           15330                                   ZERORTE                               
040064,000737: 32,2522           41466                          VDEF     PUSH                                  #  N/ = (0,0,1)
040065,000738: 32,2523           77650                          GOTO                                           
040066,000739: 32,2524           64531                                   INVC120                               
040067,000740: 32,2525           47375        INVC115           VLOAD    VXV                                   
040068,000741: 32,2526           03554                                   UR1/                                  
040069,000742: 32,2527           03562                                   UV1/                                  
040070,000743: 32,2530           77606                          PUSH                                           #  N/ = UR X UV                    B2
040071,000744: 32,2531           71214        INVC120           CLEAR    DLOAD                                 
040072,000745: 32,2532           02661                                   RETROFLG                              
040073,000746: 32,2533           51006                          PUSH     BPL                                   
040074,000747: 32,2534           64540                                   INVC125                               
040075,000748: 32,2535           57575                          VLOAD    VCOMP                                 #  RETROGRADE ORBIT
040076,000749: 32,2536           43006                          PUSH     SET                                   
040077,000750: 32,2537           02461                                   RETROFLG                              
040078,000751: 32,2540           77775        INVC125           VLOAD                                          
040079,000752: 32,2541           53435                          VXV      UNIT                                  
040080,000753: 32,2542           03554                                   UR1/                                  
040081,000754: 32,2543           03562                          STORE    UH/                                   #  UH/                             B1
040082,000755: 32,2544           77650                          GOTO                                           
040083,000756: 32,2545           03752                                   SPRTEX                                
040084,000757: 
040085,000758:                                                                                                 # # Page 914
040086,000759:                                                                                                 #  PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040087,000760: 
040088,000761:                                                                                                 #  DESCRIPTION
040089,000762:                                                                                                 #    A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040090,000763:                                                                                                 #  CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040091,000764:                                                                                                 #  AS POSSIBLE.
040092,000765: 
040093,000766:                                                                                                 #  CALLING SEQUENCE
040094,000767:                                                                                                 #    L    CALL
040095,000768:                                                                                                 #    L+1          PREC100
040096,000769: 
040097,000770:                                                                                                 #  NORMAL EXIT MODE
040098,000771:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040099,000772: 
040100,000773:                                                                                                 #  ALARM EXIT MODE
040101,000774:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC =
040102,000775:                                                                                                 #         OCTAL 605       FOR EXCESS ITERATIONS
040103,000776:                                                                                                 #         OCTAL 613       FOR REENTRY ANGLE OUT OF LIMITS
040104,000777: 
040105,000778:                                                                                                 #  SUBROUTINES CALLED
040106,000779:                                                                                                 #    INTSTALL
040107,000780:                                                                                                 #    RTENCK2
040108,000781:                                                                                                 #    RTENCK3
040109,000782:                                                                                                 #    TIMERAD
040110,000783:                                                                                                 #    PARAM
040111,000784:                                                                                                 #    V2T100
040112,000785: 
040113,000786:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
040114,000787:                                                                                                 #    PUSHLIST
040115,000788:                                                                                                 #      NONE
040116,000789:                                                                                                 #    MPAC
040117,000790:                                                                                                 #      NONE
040118,000791:                                                                                                 #    OTHER
040119,000792:                                                                                                 #      R(T1)/             INITIAL POSITION VECTOR                                 VECTOR  B29/B27 METERS
040120,000793:                                                                                                 #      V2(T1)/            POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040121,000794:                                                                                                 #      V(T1)/             INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040122,000795:                                                                                                 #      T1         INITIAL VECTOR TIME                                     DP      B28     CS
040123,000796:                                                                                                 #      T12                INITIAL TO FINAL POSITION TIME                          DP      B28     CS
040124,000797:                                                                                                 #      RCON               CONIC FINAL RADIUS                                      DP      B29/B27 METERS
040125,000798:                                                                                                 #      R(T1)              MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040126,000799:                                                                                                 #      X(T2)              COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040127,000800:                                                                                                 #      X(T1)              COTANGENT OF INITIAL FLIGHT PATH ANGLE                  DP      B5
040128,000801:                                                                                                 #      RTEDVD             DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040129,000802:                                                                                                 #      MAMAX1             MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040130,000803:                                                                                                 #      MAMAX2             MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040131,000804:                                                                                                 #      UR1/               UNIT INITIAL VECTOR                                     VECTOR  B1
040132,000805:                                                                                                 #      UH/                UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040133,000806:                                                                                                 #      BETA1              1+X(T2)**2                                              DP      B1
040134,000807:                                                                                                 #      PHI2               PERIGEE OR APOGEE INDICATOR                             DP      B2      -1 PERIGEE, +1 APOGEE
040135,000808: 
040136,000809:                                                                                                 # # Page 915
040137,000810:                                                                                                 #  OUTPUT
040138,000811:                                                                                                 #    V2(T1)/              POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      METERS/CS
040139,000812:                                                                                                 #    R(T2)/               FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040140,000813:                                                                                                 #    V(T2)/               FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040141,000814:                                                                                                 #    T2                   FINAL TIME                                              DP      B28     CENTISECONDS
040142,000815: 
040143,000816:                                                                                                 #  DEBRIS
040144,000817:                                                                                                 #    RD                   FINAL R DESIRED                                         DP      B29/B27 METERS
040145,000818:                                                                                                 #    R/APRE               R/A                                                     DP      B6
040146,000819:                                                                                                 #    P/RPRE               P/R                                                     DP      B4
040147,000820:                                                                                                 #    RPRE         MAGNITUDE OF R(T2)/                                     DP      B29/B27 METERS
040148,000821:                                                                                                 #    X(T2)PRE             COTANGENT OF GAMMA2                                     DP      B0
040149,000822:                                                                                                 #    DT12         CORRECTION TO FINAL TIME T2                             DP      B28     CENTISECONDS
040150,000823:                                                                                                 #    RCON         FINAL RADIUS                                            DP      B29/B27 METERS
040151,000824:                                                                                                 #    DRCON                DELTA RCON                                              DP      B29/B27 METERS
040152,000825: 
040153,000826: 32,2546           71220        PREC100           STQ      DLOAD                                 
040154,000827: 32,2547           03752                                   SPRTEX                                
040155,000828: 32,2550           33606                                   10RTE                                 
040156,000829: 32,2551           17730                          STODL    NN1A                                  
040157,000830: 32,2552           03636                                   RCON                                  
040158,000831: 32,2553           03664                          STORE    RD                                    
040159,000832: 32,2554           77745        PREC120           DLOAD                                          
040160,000833: 32,2555           15344                                   2RTEB1                                
040161,000834: 32,2556           17650                          STODL    DT21PR                                #  DT21PR = POSMAX
040162,000835: 32,2557           33604                                   M15RTE                                
040163,000836: 32,2560           37546                          STCALL   NN2                                   
040164,000837: 32,2561           63652                                   RTENCK3                               
040165,000838: 32,2562           77624        PREC125           CALL                                           
040166,000839: 32,2563           37727                                   PARAM                                 
040167,000840: 32,2564           77745                          DLOAD                                          
040168,000841: 32,2565           02742                                   P                                     
040169,000842: 32,2566           14033                          STODL    P/RPRE                                
040170,000843: 32,2567           02744                                   R1A                                   
040171,000844: 32,2570           14035                          STODL    R/APRE                                
040172,000845: 32,2571           00041                                   R1                                    
040173,000846: 32,2572           14031                          STODL    RPRE                                  
040174,000847: 32,2573           03770                                   COGA                                  
040175,000848: 32,2574           77661                          SL                                             
040176,000849: 32,2575           20206                                   5                                     
040177,000850: 32,2576           03724                          STORE    X(T2)PRE                              
040178,000851: 32,2577           43276                          DCOMP    DAD                                   
040179,000852: 32,2600           03726                                   X(T2)                                 
040180,000853: 32,2601           45246                          ABS      DSU                                   
040181,000854: 32,2602           33652                                   EPC4RTE                               
040182,000855: 32,2603           50000                          BOV      BMN                                   
040183,000856: 32,2604           64606                                   PREC130                               
040184,000857: 32,2605           64775                                   PREC175                               
040185,000858: 
040186,000859:                                                                                                 #  DESIRED REENTRY ANGLE NOT ACHIEVED
040187,000860:                                                                                                 # # Page 916
040188,000861: 32,2606           50145        PREC130           DLOAD    BMN                                   
040189,000862: 32,2607           03546                                   NN2                                   
040190,000863: 32,2610           64614                                   PREC140                               
040191,000864: 32,2611           52135        PREC132           SLOAD    GOTO                                  #  TOO MANY ITERATIONS
040192,000865: 32,2612           33630                                   OCT605                                #      EXIT WITH ALARM
040193,000866: 32,2613           65100                                   PRECX                                 
040194,000867: 
040195,000868:                                                                                                 #  DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040196,000869: 
040197,000870: 32,2614           53145        PREC140           DLOAD    BZE                                   
040198,000871: 32,2615           03730                                   NN1A                                  
040199,000872: 32,2616           64654                                   PREC162                               
040200,000873: 32,2617           62545        PREC150           DLOAD    SL2                                   #                                  B2
040201,000874: 32,2620           00033                                   P/RPRE                                
040202,000875: 32,2621           72405                          DMP      SL1                                   #  BETA2=BETA1*P/R                 B2 PL02
040203,000876: 32,2622           03744                                   BETA1                                 
040204,000877: 32,2623           71206                          PUSH     DLOAD                                 
040205,000878: 32,2624           00035                                   R/APRE                                
040206,000879: 32,2625           41212                          SL4      DMP                                   
040207,000880: 32,2626           00001                                   00D                                   
040208,000881: 32,2627           50021                          BDSU     BMN                                   #  BETA3=1-BETA2*R/A
040209,000882: 32,2630           31771                                   1RTEB4                                
040210,000883: 32,2631           64644                                   PREC160                               
040211,000884: 32,2632           75512        PREC155           SL2      SQRT                                  
040212,000885: 32,2633           44205                          DMP      BDSU                                  
040213,000886: 32,2634           03751                                   PHI2                                  
040214,000887: 32,2635           31767                                   1RTEB3                                
040215,000888: 32,2636           65301                          NORM     PDDL                                  
040216,000889: 32,2637           00047                                   X1                                    
040217,000890: 32,2640           56342                          SR1      DDV                                   #  BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040218,000891: 32,2641           52057                          SL*      GOTO                                  #                                  B1
040219,000892: 32,2642           20200                                   0          -1,1                       
040220,000893: 32,2643           64662                                   PREC165                               
040221,000894: 32,2644           60345        PREC160           DLOAD    NORM                                  
040222,000895: 32,2645           00035                                   R/APRE                                
040223,000896: 32,2646           00047                                   X1                                    
040224,000897: 32,2647           53665                          BDDV     SL*                                   #                                  B1
040225,000898: 32,2650           15334                                   1RTEB1                                
040226,000899: 32,2651           20173                                   0          -6,1                       
040227,000900: 32,2652           77650                          GOTO                                           
040228,000901: 32,2653           64662                                   PREC165                               
040229,000902: 32,2654           60345        PREC162           DLOAD    NORM                                  
040230,000903: 32,2655           00031                                   RPRE                                  
040231,000904: 32,2656           00047                                   X1                                    
040232,000905: 32,2657           53665                          BDDV     SL*                                   #  BETA4=RD/RPRE                   B1
040233,000906: 32,2660           03664                                   RD                                    
040234,000907: 32,2661           20200                                   0          -1,1                       
040235,000908: 32,2662           41401        PREC165           SETPD    PUSH                                  
040236,000909: 32,2663           00001                                   0                                     
040237,000910: 32,2664           57425                          DSU      DCOMP                                 
040238,000911:                                                                                                 # # Page 917
040239,000912: 32,2665           15334                                   1RTEB1                                
040240,000913: 32,2666           03755                          STORE    BETA12                                
040241,000914: 32,2667           71240                          BMN      DLOAD                                 
040242,000915: 32,2670           64701                                   PREC168                               
040243,000916: 32,2671           03724                                   X(T2)PRE                              
040244,000917: 32,2672           71240                          BMN      DLOAD                                 
040245,000918: 32,2673           64677                                   PREC167                               
040246,000919: 32,2674           03755                                   BETA12                                
040247,000920: 32,2675           77676                          DCOMP                                          
040248,000921: 32,2676           03755                          STORE    BETA12                                
040249,000922: 32,2677           77745        PREC167           DLOAD                                          
040250,000923: 32,2700           03755                                   BETA12                                
040251,000924: 32,2701           45246        PREC168           ABS      DSU                                   
040252,000925: 32,2702           33654                                   EPC6RTE                               
040253,000926: 32,2703           71240                          BMN      DLOAD                                 
040254,000927: 32,2704           64775                                   PREC175                               
040255,000928: 32,2705           72405                          DMP      SL1                                   
040256,000929: 32,2706           00031                                   RPRE                                  
040257,000930: 32,2707           77606                          PUSH                                           #  RF = NEW RADIUS
040258,000931: 32,2710           43345        PREC170           DLOAD    DAD                                   
040259,000932: 32,2711           03546                                   NN2                                   
040260,000933: 32,2712           33600                                   1RTEB28                               
040261,000934: 32,2713           03546                          STORE    NN2                                   
040262,000935: 32,2714           43175                          VLOAD    SET                                   
040263,000936: 32,2715           03656                                   R(T2)/                                
040264,000937: 32,2716           03466                                   RVSW                                  
040265,000938: 32,2717           26657                          STOVL    RVEC                                  
040266,000939: 32,2720           03710                                   V(T2)/                                
040267,000940: 32,2721           77765                          SIGN                                           
040268,000941: 32,2722           03755                                   BETA12                                
040269,000942: 32,2723           16746                          STODL    VVEC                                  
040270,000943: 32,2724           15334                                   1RTEB1                                
040271,000944: 32,2725           57565                          SIGN     DCOMP                                 
040272,000945: 32,2726           03755                                   BETA12                                
040273,000946: 32,2727           71354                          LXA,2    DLOAD                                 
040274,000947: 32,2730           00154                                   MPAC                                  
040275,000948: 32,2731           67140                          LXC,1    SXA,2                                 
040276,000949: 32,2732           03550                                   CONICX1                               
040277,000950: 32,2733           02756                                   SGNRDOT                               
040278,000951: 32,2734           36760                          STCALL   RDESIRED                              #  COMPUTED DT12 (CORRECTION TO TIME OF
040279,000952: 32,2735           25607                                   TIMERAD                               #         NEW RADIUS)
040280,000953: 32,2736           75345                          DLOAD    SIGN                                  
040281,000954: 32,2737           00037                                   T                                     
040282,000955: 32,2740           03755                                   BETA12                                
040283,000956: 32,2741           60325                          PDDL     NORM                                  #  DT21=(PHI4)DT21                    PL02D
040284,000957: 32,2742           03650                                   DT21PR                                
040285,000958: 32,2743           00047                                   X1                                    
040286,000959: 32,2744           53665                          BDDV     SL*                                   
040287,000960: 32,2745           00001                                   00D                                   
040288,000961: 32,2746           20176                                   0          -3,1                       
040289,000962:                                                                                                 # # Page 918
040290,000963: 32,2747           50006                          PUSH     BMN                                   #  BETA13=(DT21)/(DT21PR)  B3 PL04D
040291,000964: 32,2750           64755                                   PREC172                               
040292,000965: 32,2751           65345                          DLOAD    PDDL                                  #  BETA14=1                        B0 PL04D
040293,000966: 32,2752           15344                                   2RTEB1                                
040294,000967: 32,2753           77650                          GOTO                                           
040295,000968: 32,2754           64757                                   PREC173                               
040296,000969: 32,2755           65345        PREC172           DLOAD    PDDL                                  #  BETA14=.6                       B0 PL04D
040297,000970: 32,2756           33610                                   M.6RTE                                
040298,000971: 32,2757           45271        PREC173           DDV      DSU                                   
040299,000972: 32,2760           00003                                   02D                                   
040300,000973: 32,2761           31767                                   1RTEB3                                
040301,000974: 32,2762           71240                          BMN      DLOAD                                 
040302,000975: 32,2763           64767                                   PREC174                               
040303,000976: 32,2764           77605                          DMP                                            
040304,000977: 32,2765           03650                                   DT21PR                                
040305,000978: 32,2766           00001                          STORE    00D                                   #  DT21=(BETA14)DT21PR            B28
040306,000979: 32,2767           41545        PREC174           DLOAD    PUSH                                  
040307,000980: 32,2770           00001                                   00D                                   
040308,000981: 32,2771           37650                          STCALL   DT21PR                                
040309,000982: 32,2772           63634                                   RTENCK2                               
040310,000983: 32,2773           77650                          GOTO                                           
040311,000984: 32,2774           64562                                   PREC125                               
040312,000985: 32,2775           45345        PREC175           DLOAD    DSU                                   
040313,000986: 32,2776           00031                                   RPRE                                  
040314,000987: 32,2777           03664                                   RD                                    
040315,000988: 32,3000           51406                          PUSH     ABS                                   #  RPRE-RD = RERR
040316,000989: 32,3001           50025                          DSU      BMN                                   
040317,000990: 32,3002           33656                                   EPC7RTE                               
040318,000991: 32,3003           35022                                   PREC220                               
040319,000992: 
040320,000993:                                                                                                 #  DESIRED RADIUS HAS NOT BEEN ACHIEVED
040321,000994: 
040322,000995: 32,3004           53145                          DLOAD    BZE                                   
040323,000996: 32,3005           03730                                   NN1A                                  
040324,000997: 32,3006           64611                                   PREC132                               #  TOO MANY ITERATIONS
040325,000998: 32,3007           53025                          DSU      BZE                                   
040326,000999: 32,3010           33606                                   10RTE                                 
040327,001000: 32,3011           65044                                   PREC207                               
040328,001001: 32,3012           45345        PREC205           DLOAD    DSU                                   #  NOT FIRST PASS OF ITERATION
040329,001002: 32,3013           03670                                   RPRE,                                 
040330,001003: 32,3014           00031                                   RPRE                                  #  RPRE,-RPRE                 B29/B27
040331,001004: 32,3015           55301                          NORM     BDDV                                  
040332,001005: 32,3016           00050                                   X2                                    
040333,001006: 32,3017           03666                                   DRCON                                 
040334,001007: 32,3020           41457                          SL*      PUSH                                  #  DRCON/(RPRE,-RPRE)=S            B2
040335,001008: 32,3021           57600                                   0          -2,2                       
040336,001009: 32,3022           40015                          DAD      BOV                                   #  S GR +4 OR LS -4
040337,001010: 32,3023           15334                                   1RTEB1                                
040338,001011: 32,3024           65031                                   PREC205M                              
040339,001012: 32,3025           45246                          ABS      DSU                                   
040340,001013:                                                                                                 # # Page 919
040341,001014: 32,3026           15334                                   1RTEB1                                
040342,001015: 32,3027           77640                          BMN                                            
040343,001016: 32,3030           65034                                   PREC206                               
040344,001017: 32,3031           57545        PREC205M          DLOAD    DCOMP                                 #  S GR 0 OR LS -4
040345,001018: 32,3032           15344                                   2RTEB1                                
040346,001019: 32,3033           77725                          PDDL                                           #  S=-4                            B2
040347,001020: 32,3034           41345        PREC206           DLOAD    DMP                                   
040348,001021: 32,3035           77712                          SL2                                            
040349,001022: 32,3036           03666                          STORE    DRCON                                 #  DRCON=S(RERR)                  B29
040350,001023: 32,3037           77615                          DAD                                            
040351,001024: 32,3040           03636                                   RCON                                  
040352,001025: 32,3041           03636                          STORE    RCON                                  #  RCON+DRCON=RCON
040353,001026: 32,3042           77650                          GOTO                                           
040354,001027: 32,3043           65063                                   PREC210                               
040355,001028: 32,3044           63545        PREC207           DLOAD    DSQ                                   #  FIRST PASS OF ITERATION
040356,001029: 32,3045           03664                                   RD                                    
040357,001030: 32,3046           70501                          NORM     SR1                                   
040358,001031: 32,3047           00047                                   X1                                    
040359,001032: 32,3050           60325                          PDDL     NORM                                  
040360,001033: 32,3051           00031                                   RPRE                                  
040361,001034: 32,3052           00050                                   X2                                    
040362,001035: 32,3053           55260                          XSU,1    BDDV                                  
040363,001036: 32,3054           00047                                   X2                                    
040364,001037: 32,3055           77657                          SR*                                            
040365,001038: 32,3056           20600                                   0          -1,1                       
040366,001039: 32,3057           03636                          STORE    RCON                                  #  RD**2/RPRE=RCON
040367,001040: 32,3060           77625                          DSU                                            
040368,001041: 32,3061           03664                                   RD                                    
040369,001042: 32,3062           03666                          STORE    DRCON                                 #  RCON-RD=DRCON
040370,001043: 32,3063           77745        PREC210           DLOAD                                          #  PREPARE FOR NEXT ITERATION
040371,001044: 32,3064           00031                                   RPRE                                  
040372,001045: 32,3065           17670                          STODL    RPRE,                                 
040373,001046: 32,3066           03730                                   NN1A                                  
040374,001047: 32,3067           77625                          DSU                                            
040375,001048: 32,3070           33600                                   1RTEB28                               
040376,001049: 32,3071           37730                          STCALL   NN1A                                  
040377,001050: 32,3072           65102                                   V2T100                                
040378,001051: 32,3073           52030                          BHIZ     GOTO                                  
040379,001052: 32,3074           64554                                   PREC120                               
040380,001053: 32,3075           65100                                   PRECX                                 
040381,001054: 
040382,001055:                                                                                                 #  DESIRED RADIUS ACHIEVED
040383,001056: 
040384,001057: 16,2000                                          SETLOC   RTE2                                  
040385,001058: 16,2000                                          BANK                                           
040386,001059: 16,3022           45345        PREC220           DLOAD    DSU                                   
040387,001060: 16,3023           03726                                   X(T2)                                 
040388,001061: 16,3024           03724                                   X(T2)PRE                              
040389,001062: 16,3025           45246                          ABS      DSU                                   
040390,001063:                                                                                                 # # Page 920
040391,001064: 16,3026           35035                                   EPC8RTE                               
040392,001065: 16,3027           67240                          BMN      SLOAD                                 
040393,001066: 16,3030           65076                                   PREC225                               
040394,001067: 16,3031           35037                                   OCT613                                
040395,001068: 16,3032           77650                          GOTO                                           
040396,001069: 16,3033           65100                                   PRECX                                 #  IF REENTRY ANGLE OUT OF LIMITS
040397,001070: 
040398,001071: 16,3034           00040 30447  EPC8RTE           2DEC     .002                                  
040399,001072: 16,3036           00613        OCT613            OCT      613                                   
040400,001073: 
040401,001074:                                                                                                 #  DESIRED FINAL ANGLE HAS BEEN REACHED.
040402,001075: 
040403,001076: 32,2000                                          SETLOC   RTE                                   
040404,001077: 32,2000                                          BANK                                           
040405,001078: 32,3076                                          COUNT*   $$/P37                                
040406,001079: 32,3076           77745        PREC225           DLOAD                                          
040407,001080: 32,3077           15330                                   ZERORTE                               
040408,001081: 32,3100           77650        PRECX             GOTO                                           
040409,001082: 32,3101           03752                                   SPRTEX                                
040410,001083: 
040411,001084:                                                                                                 # # Page 921
040412,001085:                                                                                                 #  INTEGRATION CALLING SUBROUTINE
040413,001086: 
040414,001087:                                                                                                 #  DESCRIPTION
040415,001088:                                                                                                 #    PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
040416,001089:                                                                                                 #  RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
040417,001090:                                                                                                 #  WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040418,001091: 
040419,001092:                                                                                                 #  RTENCK1 (CONIC INTEGRATION)
040420,001093: 
040421,001094:                                                                                                 #    CALLING SEQUENCE
040422,001095:                                                                                                 #         L       CALL
040423,001096:                                                                                                 #         L+1             RTENCK1
040424,001097: 
040425,001098:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
040426,001099:                                                                                                 #         SAME AS FOR THE RTENCK3 ENTRANCE
040427,001100: 
040428,001101:                                                                                                 #  RTENCK2 (PRECISION INTEGRATION)
040429,001102: 
040430,001103:                                                                                                 #    CALLING SEQUENCE
040431,001104:                                                                                                 #         L       CALL
040432,001105:                                                                                                 #         L+1             RTENCK2
040433,001106: 
040434,001107:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
040435,001108:                                                                                                 #         PUSHLIST
040436,001109:                                                                                                 #           PUSHLOC-2     INTEGRATION TIME DT12 (CORRECTION TO T2)                DP      B28     CS
040437,001110:                                                                                                 #         OTHER
040438,001111:                                                                                                 #           R(T2)/        FINAL POSITION VECTOR                                   VECTOR  B29     METERS
040439,001112:                                                                                                 #           V(T2)/        FINAL VELOCITY VECTOR                                   VECTOR  B7      METERS/CS
040440,001113:                                                                                                 #           T2            FINAL TIME                                              DP      B28     CS
040441,001114: 
040442,001115:                                                                                                 #  RTENCK3 (PRECISION INTEGRATION)
040443,001116: 
040444,001117:                                                                                                 #    CALLING SEQUENCE
040445,001118:                                                                                                 #         L       CALL
040446,001119:                                                                                                 #         L+1             RTENCK3
040447,001120: 
040448,001121:                                                                                                 #    ERASABLE INITIALIZATION REQUIRED
040449,001122:                                                                                                 #         R(T1)/          INITIAL POSITION VECTOR                                 VECTOR  B29     METERS
040450,001123:                                                                                                 #         V2(T1)/         POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7      M/CS
040451,001124:                                                                                                 #         T1              INITIAL VECTOR TIME                                     DP      B28     CS
040452,001125:                                                                                                 #         T2              FINAL TIME                                              DP      B28     CS
040453,001126: 
040454,001127:                                                                                                 #  EXIT MODE
040455,001128:                                                                                                 #    AT L+2 OF CALLING SEQUENCE
040456,001129:                                                                                                 #  SUBROUTINES CALLED
040457,001130:                                                                                                 #    INTSTALL
040458,001131:                                                                                                 #    INTEGRVS
040459,001132: 
040460,001133:                                                                                                 #  OUTPUT
040461,001134:                                                                                                 #    PUSHLIST
040462,001135:                                                                                                 # # Page 922
040463,001136:                                                                                                 #      PUSHLOC-6          FINAL POSITION VECTOR R(T2)/                            VECTOR  B29     METERS
040464,001137:                                                                                                 #      X1         CONICS MUTABLE ENTRY FOR EARTH (-2)                     SP      B14
040465,001138:                                                                                                 #    MPAC
040466,001139:                                                                                                 #                         FINAL VELOCITY VECTOR V(T2)/                            VECTOR  B7      M/CS
040467,001140:                                                                                                 #    OTHER
040468,001141:                                                                                                 #         R(T2)/          AS IN PUSHLIST
040469,001142:                                                                                                 #         V(T2)/          AS IN MPAC
040470,001143:                                                                                                 #         T2              FINAL TIME                                              DP      B28     CS
040471,001144: 
040472,001145: 31,2000                                          SETLOC   RTE3                                  
040473,001146: 31,2000                                          BANK                                           
040474,001147: 31,3624                                          COUNT*   $$/P37                                
040475,001148: 31,3624           45020        RTENCK1           STQ      CALL                                  
040476,001149: 31,3625           03547                                   RTENCKEX                              
040477,001150: 31,3626           27516                                   INTSTALL                              
040478,001151: 31,3627           43175                          VLOAD    SET                                   
040479,001152: 31,3630           03640                                   R(T1)/                                
040480,001153: 31,3631           01473                                   INTYPFLG                              
040481,001154: 31,3632           77650                          GOTO                                           
040482,001155: 31,3633           63660                                   RTENCK3B                              
040483,001156: 
040484,001157: 31,3634           45020        RTENCK2           STQ      CALL                                  
040485,001158: 31,3635           03547                                   RTENCKEX                              
040486,001159: 31,3636           27516                                   INTSTALL                              
040487,001160: 31,3637           77214                          CLEAR    VLOAD                                 
040488,001161: 31,3640           01673                                   INTYPFLG                              
040489,001162: 31,3641           03656                                   R(T2)/                                
040490,001163: 31,3642           25535                          STOVL    RCV                                   
040491,001164: 31,3643           03710                                   V(T2)/                                
040492,001165: 31,3644           15543                          STODL    VCV                                   
040493,001166: 31,3645           03552                                   T2                                    
040494,001167: 31,3646           01517                          STORE    TET                                   
040495,001168: 31,3647           77615                          DAD                                            
040496,001169: 31,3650           77650                          GOTO                                           
040497,001170: 31,3651           63666                                   RTENCK3D                              
040498,001171: 
040499,001172: 31,3652           45020        RTENCK3           STQ      CALL                                  
040500,001173: 31,3653           03547                                   RTENCKEX                              
040501,001174: 31,3654           27516                                   INTSTALL                              
040502,001175: 31,3655           43175        RTENCK3A          VLOAD    CLEAR                                 
040503,001176: 31,3656           03640                                   R(T1)/                                
040504,001177: 31,3657           01673                                   INTYPFLG                              
040505,001178: 31,3660           25535        RTENCK3B          STOVL    RCV                                   
040506,001179: 31,3661           03700                                   V2(T1)/                               
040507,001180: 31,3662           15543                          STODL    VCV                                   
040508,001181: 31,3663           03716                                   T1                                    
040509,001182: 31,3664           15517                          STODL    TET                                   
040510,001183:                                                                                                 # # Page 923
040511,001184: 31,3665           03552                                   T2                                    
040512,001185: 31,3666           00041        RTENCK3D          STORE    TDEC1                                 
040513,001186: 31,3667           45014                          CLEAR    CALL                                  
040514,001187: 31,3670           00263                                   MOONFLAG                              
040515,001188: 31,3671           27211                                   INTEGRVS                              
040516,001189: 31,3672           77775                          VLOAD                                          
040517,001190: 31,3673           00001                                   RATT                                  
040518,001191: 31,3674           03656                          STORE    R(T2)/                                
040519,001192: 31,3675           70125                          PDDL     LXC,1                                 
040520,001193: 31,3676           00015                                   TAT                                   
040521,001194: 31,3677           03550                                   CONICX1                               
040522,001195: 31,3700           27552                          STOVL    T2                                    
040523,001196: 31,3701           00007                                   VATT                                  
040524,001197: 31,3702           03710                          STORE    V(T2)/                                
040525,001198: 31,3703           77650                          GOTO                                           
040526,001199: 31,3704           03547                                   RTENCKEX                              
040527,001200: 32,2000                                          SETLOC   RTE                                   
040528,001201: 32,2000                                          BANK                                           
040529,001202: 32,3102                                          COUNT*   $$/P37                                
040530,001203: 
040531,001204:                                                                                                 # # Page 924
040532,001205:                                                                                                 #  V2(T1) COMPUTATION SUBROUTINE
040533,001206: 
040534,001207:                                                                                                 #  DESCRIPTION
040535,001208:                                                                                                 #  A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040536,001209:                                                                                                 #  (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME  OR
040537,001210:                                                                                                 #  (2) IF A VELOCITY CHANGE ISN'T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040538,001211:                                                                                                 #  AND CONSEQUENTLY FUEL.
040539,001212: 
040540,001213:                                                                                                 #  CALLING SEQUENCE
040541,001214:                                                                                                 #    L    CALL
040542,001215:                                                                                                 #    L+1          V2T100
040543,001216: 
040544,001217:                                                                                                 #  NORMAL EXIT MODE
040545,001218:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040546,001219: 
040547,001220:                                                                                                 #  ALARM EXIT MODE
040548,001221:                                                                                                 #    AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS.
040549,001222: 
040550,001223:                                                                                                 #  SUBROUTINES CALLED
040551,001224:                                                                                                 #    GAMDV10
040552,001225:                                                                                                 #    XT1LIM
040553,001226:                                                                                                 #    DVCALC
040554,001227: 
040555,001228:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
040556,001229:                                                                                                 #    PUSHLIST
040557,001230:                                                                                                 #      NONE
040558,001231:                                                                                                 #    MPAC
040559,001232:                                                                                                 #      NONE
040560,001233:                                                                                                 #    OTHER
040561,001234:                                                                                                 #      R(T1)              MAGNITUDE OF INITIAL POSITION VECTOR                    DP      B29/B27 METERS
040562,001235:                                                                                                 #      RCON               MAGNITUDE OF FINAL POSITION VECTOR                      DP      B29/B27 METERS
040563,001236:                                                                                                 #      V(T1)/             INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040564,001237:                                                                                                 #      RTEDVD             DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040565,001238:                                                                                                 #      UR1/               UNIT INITIAL VECTOR                                     VECTOR  B1
040566,001239:                                                                                                 #      UH/                UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040567,001240:                                                                                                 #      X(T2)              COTANGENT OF FINAL FLIGHT PATH ANGLE                    DP      B0
040568,001241:                                                                                                 #      X(T1)              COTANGENT OF INITIAL FLIGHT PATH ANGLE(INPUT FOR PREC)  DP      B5
040569,001242:                                                                                                 #      CFPA               COSINE OF INITIAL FLIGHT PATH ANGLE                     DP      B1
040570,001243:                                                                                                 #      MAMAX1             MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040571,001244:                                                                                                 #      MAMAX2             MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR      DP      B30/B28 METERS
040572,001245:                                                                                                 #      PHI2               REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY)      DP       B2     -1 PERIGEE, +1 APOGEE
040573,001246:                                                                                                 #      N1         CONIC OR PRECISION ITERATION OPERATOR                   DP      B28     NEGATIVE CONIC, PLUS PREC
040574,001247: 
040575,001248:                                                                                                 #  OUTPUT
040576,001249:                                                                                                 #    V2(T1)/              POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040577,001250:                                                                                                 #    DV                   INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040578,001251:                                                                                                 #    X(T1)                COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE)   DP      B5
040579,001252:                                                                                                 #    PCON         SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040580,001253:                                                                                                 #    BETA1                1+X(T2)**2                                              DP      B1
040581,001254: 
040582,001255:                                                                                                 # # Page 925
040583,001256:                                                                                                 #  DEBRIS
040584,001257:                                                                                                 #    PUSHLIST
040585,001258:                                                                                                 #      00D                X(T1),,=PREVIOUS PRECISION X(T1)                        DP      B5
040586,001259:                                                                                                 #      02D                THETA1=BETA5*LAMBDA-1                                   TP      B17
040587,001260:                                                                                                 #      05D                THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040588,001261:                                                                                                 #      08D                THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040589,001262:                                                                                                 #      10D                X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040590,001263:                                                                                                 #      12D                DX(T1)MAX=MAXIMUM DELTA X(T1)                           DP      B5
040591,001264:                                                                                                 #      14D                X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR         DP      B5
040592,001265:                                                                                                 #      16D                DX(T1)=ITERATOR INCREMENT                               DP      B5
040593,001266:                                                                                                 #      31D                GAMDV10 SUBROUTINE RETURN ADDRESS
040594,001267:                                                                                                 #      32D                DVCALC SUBROUTINE RETURN ADDRESS
040595,001268:                                                                                                 #      33D                V2T100 SUBROUTINE RETURN ADDRESS
040596,001269: 
040597,001270: 32,3102           71220        V2T100            STQ      DLOAD                                 
040598,001271: 32,3103           00041                                   33D                                   
040599,001272: 32,3104           03636                                   RCON                                  
040600,001273: 32,3105           45240                          BMN      DSU                                   #  ABORT IF RCON NEGATIVE
040601,001274: 32,3106           65112                                   V2TERROR                              
040602,001275: 32,3107           03646                                   R(T1)                                 
040603,001276: 32,3110           77640                          BMN                                            
040604,001277: 32,3111           65115                                   V2T101                                
040605,001278: 32,3112           77776        V2TERROR          EXIT                                           #     OR IF LAMBDA LESS THAN ONE
040606,001279: 32,3113           05726                          TC       POODOO                                #  NO SOLUTION IF LAMBDA LESS THAN 1
040607,001280: 32,3114           20610                          OCT      20610                                 #  different that comanche55...smc
040608,001281: 
040609,001282: 32,3115           43001        V2T101            SETPD    CLEAR                                 
040610,001283: 32,3116           00001                                   0                                     #                                     PL00D
040611,001284: 32,3117           00272                                   F2RTE                                 
040612,001285: 32,3120           60345                          DLOAD    NORM                                  
040613,001286: 32,3121           03636                                   RCON                                  
040614,001287: 32,3122           00047                                   X1                                    
040615,001288: 32,3123           60325                          PDDL     NORM                                  
040616,001289: 32,3124           03646                                   R(T1)                                 
040617,001290: 32,3125           00051                                   S1                                    
040618,001291: 32,3126           00013                          STORE    10D                                   
040619,001292: 32,3127           56342                          SR1      DDV                                   #  R1/RCON = LAMBDA                B1
040620,001293: 32,3130           65260                          XSU,1    PDDL                                  #                                     PL02D
040621,001294: 32,3131           00050                                   S1                                    
040622,001295: 32,3132           03726                                   X(T2)                                 
040623,001296: 32,3133           77716                          DSQ                                            
040624,001297: 32,3134           43342                          SR1      DAD                                   
040625,001298: 32,3135           15334                                   1RTEB1                                
040626,001299: 32,3136           03744                          STORE    BETA1                                 #  1+X(T2)**2 = BETA1              B1
040627,001300: 32,3137           77605                          DMP                                            
040628,001301: 32,3140           00001                                   00D                                   
040629,001302: 32,3141           00035                          STORE    28D                                   #  BETAI*LAMBDA = BETA5
040630,001303: 32,3142           53605                          DMP      SL*                                   
040631,001304: 32,3143           00001                                   00D                                   
040632,001305: 32,3144           20172                                   0          -7,1                       
040633,001306:                                                                                                 # # Page 926
040634,001307: 32,3145           45257                          SL*      DSU                                   
040635,001308: 32,3146           20172                                   0          -7,1                       
040636,001309: 32,3147           33574                                   1RTEB17                               
040637,001310: 32,3150           65234                          RTB      PDDL                                  #  BETA5*LAMBDA-1 = THETA1        B17 PL05D
040638,001311: 32,3151           45657                                   TPMODE                                
040639,001312: 32,3152           15334                                   1RTEB1                                
040640,001313: 32,3153           57457                          SR*      DCOMP                                 
040641,001314: 32,3154           20601                                   0,1                                   
040642,001315: 32,3155           41215                          DAD      DMP                                   
040643,001316: 32,3156           00001                                   00D                                   
040644,001317: 32,3157           03646                                   R(T1)                                 
040645,001318: 32,3160           47057                          SL*      RTB                                   
040646,001319: 32,3161           20172                                   0          -7D,1                      
040647,001320: 32,3162           45657                                   TPMODE                                
040648,001321: 32,3163           77725                          PDDL                                           #  2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
040649,001322: 32,3164           33674                                   RTMURTE                               
040650,001323: 32,3165           70501                          NORM     SR1                                   
040651,001324: 32,3166           00050                                   X2                                    
040652,001325: 32,3167           56264                          XSU,2    DDV                                   
040653,001326: 32,3170           00050                                   S1                                    
040654,001327: 32,3171           00013                                   10D                                   
040655,001328: 32,3172           65257                          SR*      PDDL                                  #  MU**.5/R(T1)=THETA3        B-4/B-5 PL10D
040656,001329: 32,3173           57170                                   6,2                                   
040657,001330: 32,3174           03652                                   MAMAX1                                
040658,001331: 32,3175           41406                          PUSH     PUSH                                  #  MAMAX1=MA
040659,001332: 32,3176           77624                          CALL                                           
040660,001333: 32,3177           65741                                   XT1LIM                                
040661,001334: 32,3200           41476                          DCOMP    PUSH                                  #  X(T1)MIN                        B5 PL12D
040662,001335: 32,3201           40476                          DCOMP    SR4                                   
040663,001336: 32,3202           41525                          PDDL     PUSH                                  #  DX(T1)MAX                       B5 PL14D
040664,001337: 32,3203           03654                                   MAMAX2                                
040665,001338: 32,3204           45006                          PUSH     CALL                                  
040666,001339: 32,3205           65741                                   XT1LIM                                
040667,001340: 32,3206           50125                          PDDL     BMN                                   #  X(T1)MAX                        B5 PL16D
040668,001341: 32,3207           03730                                   NN1A                                  
040669,001342: 32,3210           65213                                   V2T102                                
040670,001343: 32,3211           77650                          GOTO                                           
040671,001344: 32,3212           65225                                   V2T110                                
040672,001345: 
040673,001346:                                                                                                 #  PROCEED HERE IF NOT PRECISION COMPUTATION
040674,001347: 
040675,001348: 32,3213           77745        V2T102            DLOAD                                          
040676,001349: 32,3214           03632                                   RTEDVD                                
040677,001350: 32,3215           52054                          BZE      GOTO                                  
040678,001351: 32,3216           65220                                   V2T105                                
040679,001352: 32,3217           65321                                   V2T140                                
040680,001353: 32,3220           50145        V2T105            DLOAD    BMN                                   
040681,001354: 32,3221           03747                                   CFPA                                  
040682,001355: 32,3222           65321                                   V2T140                                
040683,001356: 32,3223           77650                          GOTO                                           
040684,001357:                                                                                                 # # Page 927
040685,001358: 32,3224           65327                                   V2T145                                
040686,001359: 
040687,001360:                                                                                                 #  DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
040688,001361:                                                                                                 #  VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
040689,001362:                                                                                                 #  THROUGH X(T2)
040690,001363: 
040691,001364: 32,3225           47145        V2T110            DLOAD    RTB                                   
040692,001365: 32,3226           33574                                   1RTEB17                               
040693,001366: 32,3227           45657                                   TPMODE                                
040694,001367: 32,3230           65276                          DCOMP    PDDL                                  #  -1                             B17 PL19D
040695,001368: 32,3231           15344                                   2RTEB1                                
040696,001369: 32,3232           45257                          SR*      DSU                                   
040697,001370: 32,3233           20601                                   0,1                                   
040698,001371: 32,3234           00001                                   00D                                   
040699,001372: 32,3235           53605                          DMP      SL*                                   
040700,001373: 32,3236           00035                                   28D                                   
040701,001374: 32,3237           20172                                   0          -7,1                       
040702,001375: 32,3240           76257                          SL*      TAD                                   
040703,001376: 32,3241           20172                                   0          -7,1                       
040704,001377: 32,3242           65234                          RTB      PDDL                                  #  BETA5(2-LAMBDA)-1=BETA6        B17 PL19D
040705,001378: 32,3243           45657                                   TPMODE                                
040706,001379: 32,3244           03722                                   X(T1)                                 
040707,001380: 32,3245           00001                          STORE    00D                                   #  X(T1),,                         B5
040708,001381: 32,3246           77751                          TLOAD                                          #                                     PL16D
040709,001382: 32,3247           53040                          BMN      BZE                                   
040710,001383: 32,3250           65255                                   V2T115                                
040711,001384: 32,3251           65255                                   V2T115                                
040712,001385: 32,3252           52061                          SL       GOTO                                  
040713,001386: 32,3253           20210                                   7                                     
040714,001387: 32,3254           65266                                   V2T120                                
040715,001388: 32,3255           50145        V2T115            DLOAD    BMN                                   
040716,001389: 32,3256           03751                                   PHI2                                  
040717,001390: 32,3257           65277                                   V2T125                                
040718,001391: 32,3260           77676                          DCOMP                                          
040719,001392: 32,3261           17751                          STODL    PHI2                                  
040720,001393: 32,3262           33606                                   10RTE                                 
040721,001394: 32,3263           03730                          STORE    NN1A                                  
040722,001395: 32,3264           77650                          GOTO                                           
040723,001396: 32,3265           65277                                   V2T125                                
040724,001397: 32,3266           47166        V2T120            SQRT     RTB                                   
040725,001398: 32,3267           45765                                   DPMODE                                
040726,001399: 32,3270           50125                          PDDL     BMN                                   #  BETA6**.5=X(T1)LIM              B5 PL18D
040727,001400: 32,3271           03751                                   PHI2                                  
040728,001401: 32,3272           65305                                   V2T130                                
040729,001402: 32,3273           45545                          DLOAD    STADR                                 #                                     PL16D
040730,001403: 32,3274           77760                          STORE    14D                                   #  X(T1)LIM = X(T1)MAX
040731,001404: 32,3275           77676                          DCOMP                                          
040732,001405: 32,3276           00013                          STORE    10D                                   #  -X(T1)LIM = X(T1)MIN
040733,001406: 32,3277           53145        V2T125            DLOAD    BZE                                   
040734,001407: 32,3300           03722                                   X(T1)                                 
040735,001408:                                                                                                 # # Page 928
040736,001409: 32,3301           65321                                   V2T140                                
040737,001410: 32,3302           52040                          BMN      GOTO                                  
040738,001411: 32,3303           65321                                   V2T140                                
040739,001412: 32,3304           65327                                   V2T145                                
040740,001413: 32,3305           53145        V2T130            DLOAD    BZE                                   
040741,001414: 32,3306           03722                                   X(T1)                                 
040742,001415: 32,3307           65316                                   V2T135                                
040743,001416: 32,3310           71240                          BMN      DLOAD                                 #                                     PL16D
040744,001417: 32,3311           65316                                   V2T135                                
040745,001418: 32,3312           77626                          STADR                                          
040746,001419: 32,3313           77764                          STORE    10D                                   #  X(T1)LIM = X(T1)MIN
040747,001420: 32,3314           77650                          GOTO                                           
040748,001421: 32,3315           65327                                   V2T145                                
040749,001422: 32,3316           57545        V2T135            DLOAD    DCOMP                                 #                                     PL16D
040750,001423: 32,3317           77626                          STADR                                          
040751,001424: 32,3320           77760                          STORE    14D                                   #  -X(T1)LIM = X(T1)MAX
040752,001425: 32,3321           77745        V2T140            DLOAD                                          
040753,001426: 32,3322           00013                                   10D                                   
040754,001427: 32,3323           17722                          STODL    X(T1)                                 #  X(T1)MIN = X(T1)
040755,001428: 32,3324           00015                                   12D                                   
040756,001429: 32,3325           52006                          PUSH     GOTO                                  #  DX(T1)MAX = DX(T1)                 PL18D
040757,001430: 32,3326           65334                                   V2T150                                
040758,001431: 32,3327           77745        V2T145            DLOAD                                          
040759,001432: 32,3330           00017                                   14D                                   
040760,001433: 32,3331           17722                          STODL    X(T1)                                 #  X(T1)MAX = X(T1)
040761,001434: 32,3332           00015                                   12D                                   
040762,001435: 32,3333           41476                          DCOMP    PUSH                                  #  -DX(T1)MAX = DX(T1)                PL18D
040763,001436: 32,3334           77624        V2T150            CALL                                           #  GOTO X(T1)-DV ITERATOR
040764,001437: 32,3335           65464                                   GAMDV10                               
040765,001438: 32,3336           53145                          DLOAD    BZE                                   #  EXIT IF MINIMUM FUEL MODE
040766,001439: 32,3337           03632                                   RTEDVD                                
040767,001440: 32,3340           65462                                   V2T1X                                 
040768,001441: 
040769,001442:                                                                                                 #  CONTINUE IF TIME CRITICAL MODE
040770,001443: 
040771,001444: 32,3341           50025                          DSU      BMN                                   
040772,001445: 32,3342           03706                                   DV                                    
040773,001446: 32,3343           65346                                   V2T155                                
040774,001447: 32,3344           77650                          GOTO                                           
040775,001448: 32,3345           65401                                   V2T175                                
040776,001449: 32,3346           50145        V2T155            DLOAD    BMN                                   
040777,001450: 32,3347           03730                                   NN1A                                  
040778,001451: 32,3350           65353                                   V2T160                                
040779,001452: 32,3351           77650                          GOTO                                           
040780,001453: 32,3352           65423                                   V2T185                                
040781,001454: 
040782,001455:                                                                                                 #  CONIC TRAJECTORY COMPUTATION
040783,001456: 
040784,001457: 32,3353           53145        V2T160            DLOAD    BZE                                   
040785,001458: 32,3354           03722                                   X(T1)                                 
040786,001459:                                                                                                 # # Page 929
040787,001460: 32,3355           65361                                   V2T165                                
040788,001461: 32,3356           52040                          BMN      GOTO                                  
040789,001462: 32,3357           65361                                   V2T165                                
040790,001463: 32,3360           65460                                   V2T300                                
040791,001464: 32,3361           53145        V2T165            DLOAD    BZE                                   
040792,001465: 32,3362           03747                                   CFPA                                  
040793,001466: 32,3363           65460                                   V2T300                                
040794,001467: 32,3364           71240                          BMN      DLOAD                                 
040795,001468: 32,3365           65460                                   V2T300                                
040796,001469: 32,3366           00017                                   14D                                   
040797,001470: 32,3367           17722                          STODL    X(T1)                                 #  X(T1)MAX=X(T1)
040798,001471: 32,3370           00015                                   12D                                   
040799,001472: 32,3371           77676                          DCOMP                                          
040800,001473: 32,3372           34021                          STCALL   16D                                   #  -DX(T1)MAX=DX(T1)
040801,001474: 32,3373           65464                                   GAMDV10                               
040802,001475: 32,3374           45345                          DLOAD    DSU                                   
040803,001476: 32,3375           03632                                   RTEDVD                                
040804,001477: 32,3376           03706                                   DV                                    
040805,001478: 32,3377           77640                          BMN                                            
040806,001479: 32,3400           65460                                   V2T300                                
040807,001480: 32,3401           71214        V2T175            SET      DLOAD                                 
040808,001481: 32,3402           00072                                   F2RTE                                 
040809,001482: 32,3403           03722                                   X(T1)                                 
040810,001483: 32,3404           77614                          BOFF                                           
040811,001484: 32,3405           02742                                   SLOWFLG                               
040812,001485: 32,3406           65413                                   V2T177                                
040813,001486: 32,3407           14013                          STODL    10D                                   #   X(T1)MIN
040814,001487: 32,3410           00015                                   12D                                   #  DX(T1)MAX
040815,001488: 32,3411           77650                          GOTO                                           
040816,001489: 32,3412           65416                                   V2T179                                
040817,001490: 32,3413           14017        V2T177            STODL    14D                                   
040818,001491: 32,3414           00015                                   12D                                   
040819,001492: 32,3415           77676                          DCOMP                                          
040820,001493: 32,3416           34021        V2T179            STCALL   16D                                   #  DX(T1)
040821,001494: 32,3417           65464                                   GAMDV10                               
040822,001495: 32,3420           50145                          DLOAD    BMN                                   
040823,001496: 32,3421           03730                                   NN1A                                  
040824,001497: 32,3422           65460                                   V2T300                                
040825,001498: 
040826,001499:                                                                                                 #  PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
040827,001500:                                                                                                 #  PRECISION TRAJECTORY
040828,001501: 
040829,001502: 32,3423           45345        V2T185            DLOAD    DSU                                   
040830,001503: 32,3424           03722                                   X(T1)                                 
040831,001504: 32,3425           00001                                   00D                                   
040832,001505: 32,3426           65246                          ABS      PDDL                                  #  /X(T1)-X(T1),,/ = BETA7
040833,001506: 32,3427           00015                                   12D                                   
040834,001507: 32,3430           44352                          SL1      BDSU                                  
040835,001508: 32,3431           71240                          BMN      DLOAD                                 
040836,001509: 32,3432           65460                                   V2T300                                
040837,001510:                                                                                                 # # Page 930
040838,001511: 32,3433           00001                                   00D                                   #  CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
040839,001512: 32,3434           03722                          STORE    X(T1)                                 #  X(T1),, = X(T1)
040840,001513: 32,3435           50025                          DSU      BMN                                   
040841,001514: 32,3436           00017                                   14D                                   
040842,001515: 32,3437           65445                                   V2T195                                
040843,001516: 32,3440           77745                          DLOAD                                          
040844,001517: 32,3441           00017                                   14D                                   
040845,001518: 32,3442           03722                          STORE    X(T1)                                 #  X(T1)MAX = X(T1)
040846,001519: 32,3443           77650                          GOTO                                           
040847,001520: 32,3444           65456                                   V2T205                                
040848,001521: 32,3445           45345        V2T195            DLOAD    DSU                                   
040849,001522: 32,3446           03722                                   X(T1)                                 
040850,001523: 32,3447           00013                                   10D                                   
040851,001524: 32,3450           52040                          BMN      GOTO                                  
040852,001525: 32,3451           65453                                   V2T200                                
040853,001526: 32,3452           65456                                   V2T205                                
040854,001527: 32,3453           77745        V2T200            DLOAD                                          
040855,001528: 32,3454           00013                                   10D                                   
040856,001529: 32,3455           03722                          STORE    X(T1)                                 #  X(T1)MIN = X(T1)
040857,001530: 32,3456           77624        V2T205            CALL                                           
040858,001531: 32,3457           65665                                   DVCALC                                
040859,001532: 32,3460           77745        V2T300            DLOAD                                          
040860,001533: 32,3461           15330                                   ZERORTE                               
040861,001534: 32,3462           77650        V2T1X             GOTO                                           
040862,001535: 32,3463           00041                                   33D                                   
040863,001536: 
040864,001537:                                                                                                 # # Page 931
040865,001538:                                                                                                 #  X(T1)-DV ITERATOR SUBROUTINE
040866,001539: 
040867,001540:                                                                                                 #  DESCRIPTION
040868,001541:                                                                                                 #         COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
040869,001542: 
040870,001543:                                                                                                 #  CALLING SEQUENCE
040871,001544:                                                                                                 #    L    CALL
040872,001545:                                                                                                 #    L+1          GAMDV10
040873,001546: 
040874,001547:                                                                                                 #  NORMAL EXIT MODE
040875,001548:                                                                                                 #    AT L+2 OF CALLING SEQUENCE
040876,001549: 
040877,001550:                                                                                                 #  ALARM EXIT MODE
040878,001551:                                                                                                 #    AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040879,001552: 
040880,001553:                                                                                                 #  SUBROUTINES CALLED
040881,001554:                                                                                                 #    DVCALC
040882,001555: 
040883,001556:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
040884,001557:                                                                                                 #    PUSHLIST
040885,001558:                                                                                                 #      02D                THETA1=BETA5*LAMBDA-1                                   TP      B17
040886,001559:                                                                                                 #      05D                THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
040887,001560:                                                                                                 #      08D                THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
040888,001561:                                                                                                 #      10D                X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040889,001562:                                                                                                 #      12D                DX(T1)MAX=MAXIMUM DX(T1)                                DP      B5
040890,001563:                                                                                                 #      14D                X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1)      DP      B5
040891,001564:                                                                                                 #      16D                DX(T1)=ITERATOR INCREMENT                               DP      B5
040892,001565:                                                                                                 #    MPAC
040893,001566:                                                                                                 #      NONE
040894,001567:                                                                                                 #    OTHER
040895,001568:                                                                                                 #      V(T1)/             INITIAL VELOCITY VECTOR                                 VECTOR  B7/B5   METERS/CS
040896,001569:                                                                                                 #      RTEDVD             DELTA VELOCITY DESIRED                                  DP      B7/B5   METERS/CS
040897,001570:                                                                                                 #      UR1/               UNIT INITIAL VECTOR                                     VECTOR  B1
040898,001571:                                                                                                 #      UH/                UNIT HORIZONTAL VECTOR                                  VECTOR  B1
040899,001572:                                                                                                 #      X(T1)              COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL)  DP      B5
040900,001573:                                                                                                 #      F2RTE              TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR            STATE AREA      0 MIN. FUEL, 1 MIN. TIME
040901,001574: 
040902,001575:                                                                                                 #  OUTPUT
040903,001576:                                                                                                 #      V2(T1)/            POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
040904,001577:                                                                                                 #      DV         INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
040905,001578:                                                                                                 #      X(T1)              COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL         DP      B5
040906,001579:                                                                                                 #      PCON               SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
040907,001580: 
040908,001581:                                                                                                 #  DEBRIS
040909,001582:                                                                                                 #    PUSHLIST
040910,001583:                                                                                                 #      00D                X(T1),,
040911,001584:                                                                                                 #      02D                THETA1
040912,001585:                                                                                                 #      05D                THETA2
040913,001586:                                                                                                 #      08D                THETA3
040914,001587:                                                                                                 #      10D                X(T1)MIN
040915,001588:                                                                                                 #      12D                DX(T1)MAX
040916,001589:                                                                                                 # # Page 932
040917,001590:                                                                                                 #      14D                X(T1)MAX
040918,001591:                                                                                                 #      16D                DX(T1)
040919,001592:                                                                                                 #      22D                DV,=PREVIOUS DV                                         DP      B7/B5
040920,001593:                                                                                                 #      24D                BETA9=X(T1)+1.1DX(T1)                                   DP      B5
040921,001594:                                                                                                 #      31D                GAMDV10 SUBROUTINE RETURN ADDRESS
040922,001595:                                                                                                 #      32D                DVCALC SUBROUTINE RETURN ADDRESS
040923,001596:                                                                                                 #      33D                V2T100 SUBROUTINE RETURN ADDRESS
040924,001597: 
040925,001598: 32,3464           77620        GAMDV10           STQ                                            
040926,001599: 32,3465           00037                                   31D                                   
040927,001600: 32,3466           45001                          SETPD    CALL                                  
040928,001601: 32,3467           00023                                   18D                                   #                                     PL18D
040929,001602: 32,3470           65665                                   DVCALC                                
040930,001603: 32,3471           45345                          DLOAD    DSU                                   
040931,001604: 32,3472           00017                                   14D                                   
040932,001605: 32,3473           00013                                   10D                                   
040933,001606: 32,3474           77600                          BOV                                            
040934,001607: 32,3475           65515                                   GAMDV20                               
040935,001608: 32,3476           45206                          PUSH     DSU                                   #  X(T1)MAX-X(T1)MIN=BETA8         B5 PL20D
040936,001609: 32,3477           33576                                   EPC9RTE                               
040937,001610: 32,3500           71240                          BMN      DLOAD                                 
040938,001611: 32,3501           65663                                   GAMDVX                                #  BOUNDS CLOSE TOGETHER
040939,001612: 32,3502           00023                                   18D                                   
040940,001613: 32,3503           50025                          DSU      BMN                                   #  BETA8-DX(T1)MAX
040941,001614: 32,3504           00015                                   12D                                   
040942,001615: 32,3505           65511                                   GAMDV15                               
040943,001616: 32,3506           52001                          SETPD    GOTO                                  #                                     PL18D
040944,001617: 32,3507           00023                                   18D                                   
040945,001618: 32,3510           65515                                   GAMDV20                               
040946,001619: 32,3511           77745        GAMDV15           DLOAD                                          #                                     PL18D
040947,001620: 32,3512           70565                          SIGN     SR1                                   
040948,001621: 32,3513           00021                                   16D                                   
040949,001622: 32,3514           00021                          STORE    16D                                   #  BETA8(SIGNDX(T1))/2=DX(T1)
040950,001623: 32,3515           77745        GAMDV20           DLOAD                                          
040951,001624: 32,3516           33602                                   M144RTE                               
040952,001625: 32,3517           03546                          STORE    NN2                                   
040953,001626: 32,3520           43345        GAMDV25           DLOAD    DAD                                   
040954,001627: 32,3521           03546                                   NN2                                   
040955,001628: 32,3522           33600                                   1RTEB28                               
040956,001629: 32,3523           67240                          BMN      SLOAD                                 
040957,001630: 32,3524           65530                                   GAMDV30                               
040958,001631: 32,3525           33630                                   OCT605                                
040959,001632: 32,3526           77650                          GOTO                                           
040960,001633: 32,3527           65462                                   V2T1X                                 
040961,001634: 32,3530           03546        GAMDV30           STORE    NN2                                   #  NN2=NN2+1
040962,001635: 32,3531           65345                          DLOAD    PDDL                                  #  X(T1)=X(T1),                    B5 PL20D
040963,001636: 32,3532           03722                                   X(T1)                                 
040964,001637: 32,3533           03706                                   DV                                    
040965,001638: 32,3534           43325                          PDDL     DAD                                   #  DV=DV,               B7/B5 PL22D
040966,001639: 32,3535           03722                                   X(T1)                                 
040967,001640: 32,3536           00021                                   16D                                   
040968,001641:                                                                                                 # # Page 933
040969,001642: 32,3537           37722                          STCALL   X(T1)                                 #  X(T1)+DX(T1)=X(T1)              B5
040970,001643: 32,3540           65665                                   DVCALC                                
040971,001644: 32,3541           71214                          BON      DLOAD                                 
040972,001645: 32,3542           00312                                   F2RTE                                 
040973,001646: 32,3543           65557                                   GAMDV35                               
040974,001647: 32,3544           03706                                   DV                                    
040975,001648: 32,3545           50025                          DSU      BMN                                   #  CONTINUE IF FUEL CRITICAL MODE
040976,001649: 32,3546           00025                                   20D                                   
040977,001650: 32,3547           65554                                   GAMDV33                               
040978,001651: 32,3550           57545        GAMDV32           DLOAD    DCOMP                                 
040979,001652: 32,3551           00021                                   16D                                   
040980,001653: 32,3552           77742                          SR1                                            
040981,001654: 32,3553           00021                          STORE    16D                                   
040982,001655: 32,3554           52001        GAMDV33           SETPD    GOTO                                  
040983,001656: 32,3555           00023                                   18D                                   #                                     PL18D
040984,001657: 32,3556           65622                                   GAMDV50                               
040985,001658: 
040986,001659:                                                                                                 #  TIME CRITICAL MODE
040987,001660: 
040988,001661: 32,3557           45345        GAMDV35           DLOAD    DSU                                   
040989,001662: 32,3560           03632                                   RTEDVD                                
040990,001663: 32,3561           03706                                   DV                                    
040991,001664: 32,3562           41525                          PDDL     PUSH                                  #  DVD-DV=DVERR                 B7/B5 PL22D
040992,001665: 32,3563           51545        GAMDV40           DLOAD    ABS                                   #  DV,                                PL24D
040993,001666: 32,3564           00025                                   20D                                   
040994,001667: 32,3565           50025                          DSU      BMN                                   
040995,001668: 32,3566           33660                                   EPC10RTE                              
040996,001669: 32,3567           65663                                   GAMDVX                                
040997,001670: 32,3570           71204        GAMDV45           BOVB     DLOAD                                 
040998,001671: 32,3571           57544                                   TCDANZIG                              #  ASSURE OVFIND IS 0
040999,001672: 32,3572           60221                          BDSU     NORM                                  
041000,001673: 32,3573           03706                                   DV                                    
041001,001674: 32,3574           00050                                   X2                                    
041002,001675: 32,3575           77725                          PDDL                                           #  DV-DV,            B7/B5-N2 PL22D
041003,001676: 32,3576           70501                          NORM     SR1                                   #  DVERR                    B8/B6-N1
041004,001677: 32,3577           00047                                   X1                                    
041005,001678: 32,3600           65271                          DDV      PDDL                                  #  DVERR/ DV - DV
041006,001679: 32,3601           41221                          BDSU     DMP                                   #                                     PL18D
041007,001680: 32,3602           03722                                   X(T1)                                 
041008,001681: 32,3603           77660                          XSU,1                                          
041009,001682: 32,3604           00047                                   X2                                    
041010,001683: 32,3605           00021                          STORE    16D                                   #  PRESERVE SIGN IF OVERFLOW
041011,001684: 32,3606           40057                          SR*      BOV                                   
041012,001685: 32,3607           20600                                   0          -1,1                       
041013,001686: 32,3610           65616                                   GAMDV47                               
041014,001687: 32,3611           00021                          STORE    16D                                   #  (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
041015,001688: 32,3612           45246                          ABS      DSU                                   
041016,001689: 32,3613           00015                                   12D                                   
041017,001690: 32,3614           77640                          BMN                                            
041018,001691: 32,3615           65622                                   GAMDV50                               
041019,001692:                                                                                                 # # Page 934
041020,001693: 32,3616           75345        GAMDV47           DLOAD    SIGN                                  
041021,001694: 32,3617           00015                                   12D                                   
041022,001695: 32,3620           00021                                   16D                                   
041023,001696: 32,3621           00021                          STORE    16D                                   #  DX(T1)MAX(SIGNDX(T1))=DX(T1)
041024,001697: 
041025,001698:                                                                                                 #  CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
041026,001699: 
041027,001700: 32,3622           41345        GAMDV50           DLOAD    DMP                                   
041028,001701: 32,3623           00021                                   16D                                   
041029,001702: 32,3624           33612                                   1.1RTEB1                              
041030,001703: 32,3625           43352                          SL1      DAD                                   
041031,001704: 32,3626           03722                                   X(T1)                                 
041032,001705: 32,3627           00031                          STORE    24D                                   #  X(T1)+1.1DX(T1)=BETA9           B5
041033,001706: 32,3630           50025                          DSU      BMN                                   
041034,001707: 32,3631           00017                                   14D                                   
041035,001708: 32,3632           65641                                   GAMDV55                               
041036,001709: 32,3633           45345                          DLOAD    DSU                                   
041037,001710: 32,3634           00017                                   14D                                   
041038,001711: 32,3635           03722                                   X(T1)                                 
041039,001712: 32,3636           77742                          SR1                                            
041040,001713: 32,3637           34021                          STCALL   16D                                   #  (X(T1)MAX-X(T1))/2=DX(T1)       B5
041041,001714: 32,3640           65654                                   GAMDV65                               
041042,001715: 32,3641           45345        GAMDV55           DLOAD    DSU                                   
041043,001716: 32,3642           00031                                   24D                                   
041044,001717: 32,3643           00013                                   10D                                   
041045,001718: 32,3644           52040                          BMN      GOTO                                  
041046,001719: 32,3645           65647                                   GAMDV60                               
041047,001720: 32,3646           65654                                   GAMDV65                               
041048,001721: 32,3647           45345        GAMDV60           DLOAD    DSU                                   
041049,001722: 32,3650           00013                                   10D                                   
041050,001723: 32,3651           03722                                   X(T1)                                 
041051,001724: 32,3652           77742                          SR1                                            
041052,001725: 32,3653           00021                          STORE    16D                                   #  (X(T1)MIN-X(T1))/2=DX(T1)       B5
041053,001726: 32,3654           51545        GAMDV65           DLOAD    ABS                                   
041054,001727: 32,3655           00021                                   16D                                   
041055,001728: 32,3656           50025                          DSU      BMN                                   
041056,001729: 32,3657           33576                                   EPC9RTE                               
041057,001730: 32,3660           65663                                   GAMDVX                                
041058,001731: 32,3661           77650                          GOTO                                           
041059,001732: 32,3662           65520                                   GAMDV25                               
041060,001733: 32,3663           77650        GAMDVX            GOTO                                           
041061,001734: 32,3664           00037                                   31D                                   
041062,001735: 
041063,001736:                                                                                                 # # Page 935
041064,001737:                                                                                                 #  DV CALCULATION SUBROUTINE
041065,001738: 
041066,001739:                                                                                                 #  INPUT
041067,001740:                                                                                                 #    PUSHLIST
041068,001741:                                                                                                 #      02D                THETA1=BETA5*LAMBDA-1                                   TP      B17
041069,001742:                                                                                                 #      05D                THETA2=2*R(T1)*(LAMBDA-1)                               TP      B38/B36
041070,001743:                                                                                                 #      08D                THETA3=MU**.5/R(T1)                                     DP      B-4/B-5
041071,001744:                                                                                                 #    OTHER
041072,001745:                                                                                                 #      X(T1)              COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE     DP      B5
041073,001746:                                                                                                 #      V(T1)/             INITIAL VELOCITY VECTOR (PRE IMPULSE)                   VECTOR  B7/B5   METERS/CS
041074,001747:                                                                                                 #      UR1/               UNIT INITIAL VECTOR                                     VECTOR  B1
041075,001748:                                                                                                 #      UH/                UNIT HORIZONTAL VECTOR                                  VECTOR  B1
041076,001749: 
041077,001750:                                                                                                 #  OUTPUT
041078,001751:                                                                                                 #      V2(T1)/            POST IMPULSE INITIAL VELOCITY VECTOR                    VECTOR  B7/B5   METERS/CS
041079,001752:                                                                                                 #      DV         INITIAL VELOCITY CHANGE                                 DP      B7/B5   METERS/CS
041080,001753:                                                                                                 #      PCON               SEMI-LATUS RECTUM                                       DP      B28/B26 METERS
041081,001754: 
041082,001755:                                                                                                 #  DEBRIS
041083,001756:                                                                                                 #      28D                THETA3*PCON**.5                                         DP      B10/B8-N1
041084,001757:                                                                                                 #      C(PUSHLOC) THETA3(PCON**.5)*X(T1)*UR1/                             VECTOR  B7/B5
041085,001758:                                                                                                 #      32D                DVCALC SUBROUTINE RETURN ADDRESS
041086,001759:                                                                                                 #      X1         NORMALIZATION FACTOR FOR VALUE IN 28D
041087,001760: 
041088,001761:                                                                                                 #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041089,001762: 
041090,001763: 32,3665           71220        DVCALC            STQ      DLOAD                                 
041091,001764: 32,3666           00040                                   32D                                   
041092,001765: 32,3667           03722                                   X(T1)                                 
041093,001766: 32,3670           54316                          DSQ      SR                                    
041094,001767: 32,3671           20610                                   7                                     
041095,001768: 32,3672           76276                          DCOMP    TAD                                   
041096,001769: 32,3673           00003                                   02D                                   
041097,001770: 32,3674           41501                          NORM     PUSH                                  
041098,001771: 32,3675           00047                                   X1                                    
041099,001772: 32,3676           60351                          TLOAD    NORM                                  
041100,001773: 32,3677           00006                                   05D                                   
041101,001774: 32,3700           00050                                   X2                                    
041102,001775: 32,3701           70434                          RTB      SR1                                   
041103,001776: 32,3702           45765                                   DPMODE                                
041104,001777: 32,3703           56264                          XSU,2    DDV                                   
041105,001778: 32,3704           00046                                   X1                                    
041106,001779: 32,3705           77657                          SR*                                            
041107,001780: 32,3706           57170                                   6,2                                   
041108,001781: 32,3707           03720                          STORE    PCON                                  #  THETA2/(THETA1-X(T1)**2)=PCON  B28/26
041109,001782: 32,3710           41366                          SQRT     DMP                                   
041110,001783: 32,3711           00011                                   08D                                   
041111,001784: 32,3712           77701                          NORM                                           
041112,001785: 32,3713           00047                                   X1                                    
041113,001786: 32,3714           14035                          STODL    28D                                   #  THETA3*PCON**.5         B10/B8 -N1
041114,001787:                                                                                                 # # Page 936
041115,001788: 32,3715           03722                                   X(T1)                                 
041116,001789: 32,3716           74301                          NORM     VXSC                                  
041117,001790: 32,3717           00050                                   X2                                    
041118,001791: 32,3720           03554                                   UR1/                                  #  X(T1)*UR1/               B5+B1 -N2
041119,001792: 32,3721           74274                          XAD,2    VXSC                                  
041120,001793: 32,3722           00046                                   X1                                    
041121,001794: 32,3723           00035                                   28D                                   
041122,001795: 32,3724           63257                          VSR*     PDVL                                  #  THETA3(PCON**.5)X(T1)*UR1/  B7/B5
041123,001796: 32,3725           57207                                   0          -9D,2                      #             +
041124,001797: 32,3726           03562                                   UH/                                   
041125,001798: 32,3727           53761                          VXSC     VSR*                                  #  THETA3(PCON**.5)UH/          B7/B5
041126,001799: 32,3730           00035                                   28D                                   
041127,001800: 32,3731           20575                                   0          -4,1                       #             =
041128,001801: 32,3732           45455                          VAD      STADR                                 
041129,001802: 32,3733           74077                          STORE    V2(T1)/                               #  V2(T1)/                      B7/B5
041130,001803: 32,3734           51451                          VSU      ABVAL                                 
041131,001804: 32,3735           03672                                   V(T1)/                                
041132,001805: 32,3736           03706                          STORE    DV                                    #  ABVAL(V2(T1)/-V1(T)/)=DV    B7/B5
041133,001806: 32,3737           77650                          GOTO                                           
041134,001807: 32,3740           00040                                   32D                                   
041135,001808: 
041136,001809:                                                                                                 # # Page 937
041137,001810:                                                                                                 #  SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041138,001811: 
041139,001812:                                                                                                 #  INPUT
041140,001813:                                                                                                 #    PUSHLIST
041141,001814:                                                                                                 #      PUSHLOC -4 MAJOR AXIS (MA)                                         DP      B30/B28
041142,001815:                                                                                                 #      PUSHLOC -2 MAJOR AXIS (MA) AGAIN                                   DP      B30/B28
041143,001816:                                                                                                 #      28D                BETA5=LAMBDA*BETA1                                      DP      B9
041144,001817:                                                                                                 #    OTHER
041145,001818:                                                                                                 #      RCON                                                                       DP      B29/B27
041146,001819:                                                                                                 #      R(T1)                                                                      DP      B29/B27
041147,001820: 
041148,001821:                                                                                                 #  OUTPUT
041149,001822:                                                                                                 #    MPAC
041150,001823:                                                                                                 #      X(T1)LIM           LIMIT ON INDEPENDENT VARIABLE X(T1)                     DP      B5
041151,001824: 
041152,001825:                                                                                                 #  DEBRIS
041153,001826:                                                                                                 #    PUSHLIST
041154,001827:                                                                                                 #      C(PUSHLOC) MA-RCON                                                 DP      (B30/28)-N1
041155,001828:                                                                                                 #      C(PUSHLOC)+2       MA                                                      DP      B30/B28
041156,001829:                                                                                                 #      X1         NORMALIZATION FACTOR FOR MA-RCON
041157,001830:                                                                                                 #      20D                XT1LIM SUBROUTINE RETURN ADDRESS
041158,001831:                                                                                                 #  PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041159,001832: 
041160,001833: 32,3741           71220        XT1LIM            STQ      DLOAD                                 
041161,001834: 32,3742           00024                                   20D                                   
041162,001835: 32,3743           03636                                   RCON                                  
041163,001836: 32,3744           44342                          SR1      BDSU                                  
041164,001837: 32,3745           65301                          NORM     PDDL                                  #  MA-RCON                     B30-N1
041165,001838: 32,3746           00050                                   X2                                    
041166,001839: 32,3747           70525                          PDDL     SR1                                   
041167,001840: 32,3750           03646                                   R(T1)                                 
041168,001841: 32,3751           56221                          BDSU     DDV                                   
041169,001842: 32,3752           41257                          SL*      DMP                                   
041170,001843: 32,3753           57601                                   0          -3,2                       
041171,001844: 32,3754           00035                                   28D                                   
041172,001845: 32,3755           45257                          SL*      DSU                                   #  BETA10=BETA5(MA-RT)/(MA-RC)-1  B11
041173,001846: 32,3756           20173                                   0          -6,1                       
041174,001847: 32,3757           33577                                   1RTEB25    +1                         #  1.0 B-11
041175,001848: 32,3760           40152                          SL1      BOV                                   #                                 B10
041176,001849: 32,3761           65765                                   XT1LIM2                               
041177,001850: 32,3762           52040                          BMN      GOTO                                  
041178,001851: 32,3763           65771                                   XT1LIM5                               
041179,001852: 32,3764           65767                                   XT1LIM3                               
041180,001853: 32,3765           77745        XT1LIM2           DLOAD                                          #  BETA10=POSMAX IF OVERFLOW
041181,001854: 32,3766           15344                                   2RTEB1                                
041182,001855: 32,3767           52166        XT1LIM3           SQRT     GOTO                                  #  X(T1)=SQRT(BETA10)              B5
041183,001856: 32,3770           65773                                   XT1LIMX                               
041184,001857: 32,3771           77745        XT1LIM5           DLOAD                                          
041185,001858: 32,3772           15330                                   ZERORTE                               
041186,001859: 32,3773           77650        XT1LIMX           GOTO                                           
041187,001860: 32,3774           00024                                   20D                                   
041188,001861: 
041189,001862:                                                                                                 # # Page 938
041190,001863:                                                                                                 #  CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041191,001864: 
041192,001865: 35,2000                                          SETLOC   RTECON1                               
041193,001866: 35,2000                                          BANK                                           
041194,001867: 
041195,001868: 35,3571                                          COUNT*   $$/P37                                
041196,001869: 35,3571  26,3333               1RTEB1            =        UNITX                                 
041197,001870: 35,3571  26,3325               1RTEB2            =        DP1/4TH                               
041198,001871: 35,3571  34,3766               1RTEB3            =        DP2(-3)                               
041199,001872: 35,3571  34,3770               1RTEB4            =        DP2(-4)                               
041200,001873: 35,3571           00002 00000  1RTEB13           2DEC     1.         B-13                       
041201,001874: 35,3573           00000 04000  1RTEB17           2DEC     1.         B-17                       
041202,001875: 35,3575           00000 00010  1RTEB25           2DEC     1.         B-25                       
041203,001876:                                                                                                 #  * * B25 AND B28 MUST BE CONSECUTIVE * * 
041204,001877: 35,3577           00000 00001  1RTEB28           2DEC     1.         B-28                       
041205,001878: 35,3601  26,3327               ZERORTE           =        UNITZ                                 
041206,001879: 35,3601           77777 77557  M144RTE           2DEC     -144.      B-28                       
041207,001880: 35,3603           77777 77760  M15RTE            2DEC     -15        B-28                       
041208,001881: 35,3605           00000 00012  10RTE             2DEC     10         B-28                       
041209,001882: 35,3607           54631 63145  M.6RTE            2DEC     -.6                                   
041210,001883: 35,3611           21463 06315  1.1RTEB1          2DEC     1.1        B-1                        
041211,001884: 35,3613  26,3343               2RTEB1            =        DPPOSMAX                              
041212,001885: 35,3613           77777 77766  M9RTEB28          2DEC     -9         B-28                       
041213,001886: 35,3615           77777 77767  M8RTEB28          2DEC     -8         B-28                       
041214,001887: 35,3617           00000 35610  30480RTE          2DEC     30480.     B-29                       
041215,001888: 35,3621           37405 12250  VCSPS             2DEC     31.510396  B-5                        #  (SEE 2VEXHUST)
041216,001889: 35,3623           33041 37714  VCRCS             2DEC     27.0664    B-5                        
041217,001890: 35,3625           00003 13241  MDOTRCS           2DEC     .0016375   B-3                        
041218,001891: 35,3627  26,3333               CSUBT             =        UNITX                                 
041219,001892: 35,3627           00605        OCT605            OCT      00605                                 
041220,001893: 35,3630           00612        OCT612            OCT      00612                                 
041221,001894: 35,3631           40214 45266  MCOS7.5           2DEC     -.99144486                            
041222,001895: 35,3633           73645 56536  MSIN7.5           2DEC     -.13052619                            
041223,001896:                                                                                                 # # Page 939
041224,001897: 35,3635           70467 71205  MCOS22.5          2DEC     -.92387953 B-2                        
041225,001898: 35,3637           16525 12525  THETA165          2DEC     .458333333                            
041226,001899: 35,3641           22525 12525  THETA210          2DEC     .583333333                            
041227,001900: 35,3643           17775 06676  EPC1RTE           2DEC     .99966     B-1                        
041228,001901: 35,3645           00000 00062  EPC2RTE           2DEC     100.       B-29                       
041229,001902: 35,3647           00020 14223  EPC3RTE           2DEC     .001                                  
041230,001903: 35,3651           00000 05174  EPC4RTE           2DEC     .00001                                
041231,001904: 35,3653           00000 01654  EPC6RTE           2DEC     .000007    B-1                        
041232,001905: 35,3655           00000 00764  EPC7RTE           2DEC     1000.      B-29                       
041233,001906: 35,3657  35,3575               EPC9RTE           =        1RTEB25                               
041234,001907: 35,3657           00000 00322  EPC10RTE          2DEC     .0001      B-7                        
041235,001908: 
041236,001909: 35,3661                                          BANK     35                                    
041237,001910: 35,2000                                          SETLOC   RTECON1                               
041238,001911: 35,2000                                          BANK                                           
041239,001912: 35,3661                                          COUNT*   $$/P37                                
041240,001913: 35,3661           75725 75417  C4RTE             2DEC     -6.986643  E7         B-30            
041241,001914: 35,3663           00325 23740  K1RTE             2DEC     7.         E6         B-29            
041242,001915: 35,3665           00306 06614  K2RTE             2DEC     6495000.   B-29                       
041243,001916: 35,3667           76027 70156  K3RTE             2DEC     -.06105                               
041244,001917: 35,3671           74517 54131  K4RTE             2DEC     -.10453                               
041245,001918: 35,3673           30276 05001  RTMURTE           2DEC     199650.501 B-18                       
041246,001919: 35,3675           00003 27040  E3RTE             2DEC     121920.    B-29                       

End of include-file P37_P70.agc.  Parent file is MAIN.agc