Source Code

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