Source Code

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