Source Code

037205,000001: # Copyright: Public domain. 037206,000002: # Filename: Template.agc 037207,000003: # Purpose: Part of the source code for Colossus, build 249. 037208,000004: # It is part of the source code for the Command Module's (CM) 037209,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 037210,000006: # Assembler: yaYUL 037211,000007: # Reference: pp. 847-890 of 1701.pdf. 037212,000008: # Contact: Ron Burkey <info@sandroid.org>. 037213,000009: # Website: www.ibiblio.org/apollo. 037214,000010: # Mod history: 08/21/04 RSB. Began transcribing. 037215,000011: # 2010-10-24 JL Indentation fixes. Added missing # in comment. 037216,000012: 037217,000013: # The contents of the "Colossus249" files, in general, are transcribed 037218,000014: # from a scanned document obtained from MIT's website, 037219,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 037220,000016: # document read, in part: 037221,000017: 037222,000018: # Assemble revision 249 of AGC program Colossus by NASA 037223,000019: # 2021111-041. October 28, 1968. 037224,000020: 037225,000021: # This AGC program shall also be referred to as 037226,000022: # Colossus 1A 037227,000023: 037228,000024: # Prepared by 037229,000025: # Massachusetts Institute of Technology 037230,000026: # 75 Cambridge Parkway 037231,000027: # Cambridge, Massachusetts 037232,000028: # under NASA contract NAS 9-4065. 037233,000029: 037234,000030: # Refer directly to the online document mentioned above for further information. 037235,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 037236,000032: 037237,000033: # In some cases, where the source code for Luminary 131 overlaps that of 037238,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131 037239,000035: # source file, and then is proofed to incorporate any changes. 037240,000036: 037241,000037: # Page 847 037242,000038: 31,3215 BANK 31 037243,000039: 36,2000 SETLOC RTE1 037244,000040: 36,2000 BANK 037245,000041: 037246,000042: 36,2502 E7,1631 EBANK= RTEDVD 037247,000043: 36,2502 COUNT 31/P37 037248,000044: 037249,000045: # PROGRAM DESCRIPTION: P37, RETURN TO EARTH 037250,000046: 037251,000047: # DESCRIPTION 037252,000048: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE 037253,000049: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE 037254,000050: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE 037255,000051: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM 037256,000052: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41). 037257,000053: 037258,000054: # CALLING SEQUENCE 037259,000055: # L TC P37 037260,000056: 037261,000057: # SUBROUTINES CALLED 037262,000058: # PREC100 037263,000059: # V2T100 037264,000060: # RTENCK2 037265,000061: # RTENCK3 037266,000062: # TIMERAD 037267,000063: # PARAM 037268,000064: # V2T100 037269,000065: # GAMDV10 037270,000066: # XT1LIM 037271,000067: # DVCALC 037272,000068: # RTENCK1 037273,000069: # INTSTALL 037274,000070: # INTEGRVS 037275,000071: # RTEVN 037276,000072: # RETDISP 037277,000073: # TMRAD100 037278,000074: # AUGEKUGL 037279,000075: # LAT-LONG 037280,000076: # TMRAD100 037281,000077: # TIMERAD 037282,000078: # INVC100 037283,000079: # CSMPREC 037284,000080: # GETERAD 037285,000081: # TIMETHET 037286,000082: # P370ALRM 037287,000083: # VN1645 037288,000084: # POLY 037289,000085: 037290,000086: # ERASABLE INITIALIZATION REQUIRED 037291,000087: # CSM STATE VECTOR 037292,000088: # Page 848 037293,000089: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS 037294,000090: 037295,000091: # ASTRONAUT INPUT 037296,000092: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS 037297,000093: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS 037298,000094: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ. 037299,000095: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS 037300,000096: 037301,000097: # OUTPUT 037302,000098: # CONIC OR PRECISION TRAJECTORY DISPLAY 037303,000099: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS 037304,000100: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS 037305,000101: # GAMMAEI FLIGHT PATH ANGLE AT 400,00 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON 037306,000102: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS 037307,000103: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS 037308,000104: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS 037309,000105: # TARGETING COMPUTATION DISPLAY 037310,000106: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS 037311,000107: # TTOGO TIME FROM TIG DP B28 CS 037312,000108: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0 037313,000109: # THRUST PROGRAM COMMUNICATION 037314,000110: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT 037315,000111: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION 037316,000112: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1 037317,000113: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS 037318,000114: # TPASS4 REENTRY TIME DP B28 CS 037319,000115: 037320,000116: 36,2502 05301 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE 037321,000117: 36,2503 00004 OCT 4 037322,000118: 037323,000119: 36,2504 06006 TC INTPRET 037324,000120: 36,2505 66170 AXT,1 SXA,1 037325,000121: 36,2506 04000 OCT 04000 037326,000122: 36,2507 03424 ECSTEER 037327,000123: 36,2510 77776 EXIT 037328,000124: 36,2511 33242 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG 037329,000125: 36,2512 03231 TCR P370GOF # OVERLAYED WITH TIG 037330,000126: 36,2513 12511 TCF -2 # DISPLAY NEW DATA 037331,000127: 36,2514 33246 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI 037332,000128: 36,2515 03205 TCR P37GFRB1 # AND DESIRED DELTA V IN RETDVD 037333,000129: 36,2516 12514 TCF -2 # DISPLAY NEW DATA 037334,000130: 36,2517 06006 RTE299 TC INTPRET 037335,000131: 36,2520 71331 SSP DLOAD 037336,000132: 36,2521 00122 OVFIND 037337,000133: 36,2522 00000 0 037338,000134: 36,2523 03767 VPRED 037339,000135: 36,2524 17632 STODL RTEDVD 037340,000136: 36,2525 03771 GAMMAEI 037341,000137: 36,2526 17634 STODL RTEGAM2D 037342,000138: 36,2527 31667 1RTEB13 037343,000139: # Page 849 037344,000140: 36,2530 17735 STODL CONICX1 037345,000141: 36,2531 33756 C4RTE 037346,000142: 36,2532 37652 STCALL MAMAX1 037347,000143: 36,2533 64427 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/ 037348,000144: 36,2534 77545 DLOAD EXIT 037349,000145: 36,2535 03646 R(T1) 037350,000146: 36,2536 07171 TC POLY 037351,000147: 36,2537 00002 DEC 2 B-14 037352,000148: 36,2540 02544 35436 2DEC 181000434 B-31 037353,000149: 36,2542 14040 05066 2DEC 1.50785145 B-2 037354,000150: 36,2544 44052 60030 2DEC* -6.49993057 E-9 B27* 037355,000151: 36,2546 26415 25057 2DEC* 9.76938926 E-18 B56* 037356,000152: 037357,000153: 36,2550 06006 TC INTPRET 037358,000154: 36,2551 77752 SL1 037359,000155: 36,2552 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30 037360,000156: 36,2553 31717 M9RTEB28 037361,000157: 36,2554 17730 STODL NN1A 037362,000158: 36,2555 33762 K2RTE 037363,000159: 36,2556 17636 RTE320 STODL RCON # RCON=K2 037364,000160: 36,2557 03634 RTEGAM2D 037365,000161: 36,2560 44254 BZE BDSU 037366,000162: 36,2561 74570 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT 037367,000163: 36,2562 31655 1RTEB2 037368,000164: 36,2563 71406 PUSH COS # PL02D 037369,000165: 36,2564 73525 PDDL SIN 037370,000166: 36,2565 45465 BDDV STADR # PL00D 037371,000167: 36,2566 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0 037372,000168: 36,2567 74603 RTE360 037373,000169: 36,2570 45345 RTE340 DLOAD DSU 037374,000170: 36,2571 03646 R(T1) 037375,000171: 36,2572 33760 K1RTE 037376,000172: 36,2573 71240 BMN DLOAD 037377,000173: 36,2574 74600 RTE350 037378,000174: 36,2575 33766 K4RTE 037379,000175: 36,2576 37726 STCALL X(T2) # X(T2)=K4 037380,000176: 36,2577 74603 RTE360 037381,000177: 36,2600 77745 RTE350 DLOAD 037382,000178: 36,2601 33764 K3RTE 037383,000179: 36,2602 03726 STORE X(T2) # X(T2)=K3 037384,000180: 36,2603 77624 RTE360 CALL 037385,000181: 36,2604 65136 V2T100 037386,000182: 36,2605 52054 BZE GOTO 037387,000183: 36,2606 74610 RTE367 037388,000184: 36,2607 74772 RTEALRM 037389,000185: 36,2610 77775 RTE367 VLOAD 037390,000186: 36,2611 03640 R(T1)/ 037391,000187: # Page 850 037392,000188: 36,2612 16657 STODL RVEC 037393,000189: 36,2613 03636 RCON 037394,000190: 36,2614 26760 STOVL RDESIRED 037395,000191: 36,2615 03700 V2(T1)/ 037396,000192: 36,2616 36746 STCALL VVEC 037397,000193: 36,2617 64272 TMRAD100 037398,000194: 36,2620 77615 DAD 037399,000195: 36,2621 03716 T1 037400,000196: 36,2622 17736 STODL T2 037401,000197: 36,2623 03634 RTEGAM2D 037402,000198: 36,2624 52054 BZE GOTO 037403,000199: 36,2625 74627 RTE369 037404,000200: 36,2626 74651 RTE372 037405,000201: 36,2627 51575 RTE369 VLOAD ABVAL 037406,000202: 36,2630 03710 V(T2)/ 037407,000203: 36,2631 77776 EXIT 037408,000204: 36,2632 07171 TC POLY 037409,000205: 36,2633 00002 DEC 2 B-14 037410,000206: 36,2634 00000 00000 2DEC 0 B-28 037411,000207: 36,2636 47021 65002 2DEC -4.8760771 E-2 B4 037412,000208: 36,2640 35610 07722 2DEC 4.5419476 E-4 B11 037413,000209: 36,2642 63772 63276 2DEC -1.4317675 E-6 B18 037414,000210: 037415,000211: 36,2644 06006 TC INTPRET 037416,000212: 36,2645 77615 DAD 037417,000213: 36,2646 01352 RTED1 037418,000214: 36,2647 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3 037419,000215: 36,2650 74653 RTE373 037420,000216: 36,2651 77745 RTE372 DLOAD # X(T2),=X(T2) 037421,000217: 36,2652 03726 X(T2) 037422,000218: 36,2653 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D 037423,000219: 36,2654 03726 X(T2) 037424,000220: 36,2655 53575 VLOAD UNIT 037425,000221: 36,2656 03656 R(T2)/ # B58 037426,000222: 36,2657 36152 STCALL ALPHAV 037427,000223: 36,2660 26437 GETERAD 037428,000224: 36,2661 77615 DAD 037429,000225: 36,2662 33772 E3RTE 037430,000226: 36,2663 45206 PUSH DSU # RCON,=(E1/1+E2BETA11)**.5)+E3 B29 PL04D 037431,000227: 36,2664 03636 RCON 037432,000228: 36,2665 45246 ABS DSU 037433,000229: 36,2666 31754 EPC2RTE 037434,000230: 36,2667 52040 BMN GOTO 037435,000231: 36,2670 74672 RTE374 037436,000232: 36,2671 74677 RTE375 037437,000233: 36,2672 51545 RTE374 DLOAD ABS 037438,000234: 36,2673 00001 00D 037439,000235: # Page 851 037440,000236: 36,2674 50025 DSU BMN 037441,000237: 36,2675 31756 EPC3RTE 037442,000238: 36,2676 74747 P37E 037443,000239: 36,2677 43345 RTE375 DLOAD DAD 037444,000240: 36,2700 03730 NN1A 037445,000241: 36,2701 31675 1RTEB28 037446,000242: 36,2702 67240 BMN SLOAD 037447,000243: 36,2703 74707 RTE380 037448,000244: 36,2704 31735 OCT605 037449,000245: 36,2705 77650 GOTO 037450,000246: 36,2706 74772 RTEALRM # TOO MANY ITERATIONS 037451,000247: 36,2707 03730 RTE380 STORE NN1A 037452,000248: 36,2710 53025 DSU BZE 037453,000249: 36,2711 31721 M8RTEB28 037454,000250: 36,2712 74730 RTE385 037455,000251: 36,2713 45345 DLOAD DSU 037456,000252: 36,2714 00001 00D 037457,000253: 36,2715 03666 DRCON 037458,000254: 36,2716 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=21 PL06D 037459,000255: 36,2717 00047 X1 037460,000256: 36,2720 03670 RPRE' 037461,000257: 36,2721 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D 037462,000258: 36,2722 03726 X(T2) 037463,000259: 36,2723 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1) 037464,000260: 36,2724 00001 00D 037465,000261: 36,2725 20201 0,1 037466,000262: 36,2726 77650 GOTO 037467,000263: 36,2727 74732 RTE390 037468,000264: 36,2730 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR 037469,000265: 36,2731 00001 00D 037470,000266: 36,2732 14021 RTE390 STODL 16D # DX(T2) PL02D 037471,000267: 36,2733 77626 STADR 037472,000268: 36,2734 60141 STODL RCON # RCON=RCON, 037473,000269: 36,2735 77600 BOV 037474,000270: 36,2736 74603 RTE360 037475,000271: 36,2737 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR 037476,000272: 36,2740 03726 X(T2) 037477,000273: 36,2741 17670 STODL RPRE' # X(T2)PRI=X(T2) 037478,000274: 36,2742 00021 16D 037479,000275: 36,2743 77615 DAD 037480,000276: 36,2744 03726 X(T2) 037481,000277: 36,2745 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2) 037482,000278: 36,2746 74603 RTE360 # REITERATE 037483,000279: 36,2747 77624 P37E CALL # DISPLAY CONIC SOLUTION 037484,000280: 36,2750 74776 RTEVN 037485,000281: 36,2751 41345 RTE505 DLOAD DMP 037486,000282: 36,2752 03720 PCON 037487,000283: 36,2753 03754 BETA1 037488,000284: 36,2754 53021 BDSU BZE 037489,000285: 36,2755 03636 RCON 037490,000286: # Page 852 037491,000287: 36,2756 74764 RTE510 037492,000288: 36,2757 71240 BMN DLOAD 037493,000289: 36,2760 74764 RTE510 037494,000290: 36,2761 31655 1RTEB2 037495,000291: 36,2762 77650 GOTO # ENTRY NEAR APOGEE 037496,000292: 36,2763 74766 RTE515 037497,000293: 36,2764 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE 037498,000294: 36,2765 31655 1RTEB2 037499,000295: 36,2766 37761 RTE515 STCALL PHI2 037500,000296: 36,2767 64515 PREC100 # PRECISION TRAJECTORY COMPUTATION 037501,000297: 36,2770 77654 RTE625 BZE 037502,000298: 36,2771 75024 P37G 037503,000299: 36,2772 77624 RTEALRM CALL 037504,000300: 36,2773 64255 P370ALRM 037505,000301: 36,2774 77776 EXIT 037506,000302: 36,2775 12502 TCF P37 # RECYCLE AFTER ALARM DISPLAY 037507,000303: 037508,000304: # RETURN TO EARTH DISPLAY SUBROUTINE 037509,000305: 037510,000306: 36,2776 45020 RTEVN STQ CALL 037511,000307: 36,2777 03763 VNSTORE 037512,000308: 36,3000 64311 RTEDISP # DISPLAY PREPARATION 037513,000309: 36,3001 77776 EXIT 037514,000310: 36,3002 33244 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK 037515,000311: 36,3003 03215 TCR P370GOFR # IN LAT(SPL),LNG(SPL),- 037516,000312: 36,3004 34710 CAF FOUR 037517,000313: 36,3005 03211 TCR 37BLANK +1 037518,000314: 36,3006 13013 TCF +5 037519,000315: 36,3007 12502 TCF P37 # RECYCLE 037520,000316: 36,3010 33245 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4 037521,000317: 36,3011 03231 TCR P370GOF 037522,000318: 36,3012 12502 TCF P37 # RECYCLE 037523,000319: 36,3013 33246 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2 037524,000320: 36,3014 03205 TCR P37GFRB1 # IN -,VPRED,GAMMAEI 037525,000321: 36,3015 12502 TCF P37 # RECYCLE 037526,000322: 36,3016 33247 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC 037527,000323: 36,3017 03231 TCR P370GOF 037528,000324: 36,3020 12502 TCF P37 # RECYCLE 037529,000325: 36,3021 06006 TCR INTPRET 037530,000326: 36,3022 77650 GOTO 037531,000327: 36,3023 03763 VNSTORE 037532,000328: 037533,000329: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING 037534,000330: 037535,000331: 36,3024 77624 P37G CALL 037536,000332: 36,3025 74776 RTEVN 037537,000333: 36,3026 77776 EXIT 037538,000334: 36,3027 34716 P37N CAF SEVEN 037539,000335: 36,3030 55131 TS OPTION1 037540,000336: 36,3031 34712 CAF ONE 037541,000337: # Page 853 037542,000338: 36,3032 55132 TS OPTION2 037543,000339: 36,3033 33243 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED 037544,000340: 36,3034 03231 TCR P370GOF 037545,000341: 36,3035 13033 TCF -2 # RECYCLE 037546,000342: 36,3036 06006 TC INTPRET # PROCEED 037547,000343: 36,3037 67201 SETPD SLOAD 037548,000344: 36,3040 00001 00D 037549,000345: 36,3041 01133 OPTION2 037550,000346: 36,3042 53025 DSU BZE 037551,000347: 36,3043 31667 1RTEB13 037552,000348: 36,3044 75053 P37Q 037553,000349: 36,3045 60335 SLOAD NORM # SPS 037554,000350: 36,3046 00111 EMDOT 037555,000351: 36,3047 00047 X1 037556,000352: 36,3050 52125 PDDL GOTO 037557,000353: 36,3051 31725 VCSPS 037558,000354: 36,3052 75064 P37T 037559,000355: 36,3053 43145 P37Q DLOAD BON # RCS 037560,000356: 36,3054 31731 MDOTRCS 037561,000357: 36,3055 00700 NJETSFLG 037562,000358: 36,3056 75060 P37R 037563,000359: 36,3057 77752 SL1 037564,000360: 36,3060 77752 P37R SL1 037565,000361: 36,3061 65301 NORM PDDL 037566,000362: 36,3062 00047 X1 037567,000363: 36,3063 31727 VCRCS 037568,000364: 36,3064 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D 037569,000365: 36,3065 03706 DV 037570,000366: 36,3066 77776 EXIT 037571,000367: 36,3067 07171 TC POLY 037572,000368: 36,3070 00001 DEC 1 B-14 037573,000369: 36,3071 00001 05070 2DEC 5.66240507 E-4 B-3 037574,000370: 36,3073 17527 36700 2DEC 9.79487897 E-1 B-1 037575,000371: 36,3075 47114 70670 2DEC -.388281955 B1 037576,000372: 36,3077 06006 TC INTPRET 037577,000373: 36,3100 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D 037578,000374: 36,3101 03076 WEIGHT/G 037579,000375: 36,3102 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D 037580,000376: 36,3103 41257 SL* DMP 037581,000377: 36,3104 20165 0 -12D,1 037582,000378: 36,3105 31733 CSUBT 037583,000379: 36,3106 77621 BDSU 037584,000380: 36,3107 03716 T1 037585,000381: 36,3110 03413 STORE TIG # TIG=T1-CT*DTB B28 037586,000382: 36,3111 77776 EXIT 037587,000383: 36,3112 33242 CAF V6N33RTE # DISPLAY BIASED TIG 037588,000384: 36,3113 03231 TCR P370GOF 037589,000385: # Page 854 037590,000386: 36,3114 13112 TCF -2 037591,000387: 36,3115 34714 CAF ZERO 037592,000388: 36,3116 55125 TS VHFCNT 037593,000389: 36,3117 55126 TS TRKMKCNT 037594,000390: 36,3120 06006 TC INTPRET 037595,000391: 36,3121 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12 037596,000392: 36,3122 65055 RTENCK1 037597,000393: 36,3123 53575 VLOAD UNIT # PL00D 037598,000394: 36,3124 03656 R(T2)/ 037599,000395: 36,3125 74315 PDVL VXSC # UR2 B1 PL08D 037600,000396: 36,3126 03740 UR1/ 037601,000397: 36,3127 31740 MCOS7.5 037602,000398: 36,3130 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D 037603,000399: 36,3131 03746 UH/ 037604,000400: 36,3132 31742 MSIN7.5 037605,000401: 36,3133 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D 037606,000402: 36,3134 50015 DAD BMN 037607,000403: 36,3135 31744 MCOS22.5 037608,000404: 36,3136 75163 P37W 037609,000405: 36,3137 50375 VLOAD DOT # K/ . UR2 GR COS22.5 037610,000406: 36,3140 03746 UH/ 037611,000407: 36,3141 03656 R(T2)/ 037612,000408: 36,3142 71240 BMN DLOAD 037613,000409: 36,3143 75147 P37U 037614,000410: 36,3144 31746 THETA165 037615,000411: 36,3145 52006 PUSH GOTO 037616,000412: 36,3146 75151 P37V 037617,000413: 36,3147 41545 P37U DLOAD PUSH 037618,000414: 36,3150 31750 THETA210 037619,000415: 36,3151 77756 P37V SIN 037620,000416: 36,3152 16732 STODL SNTH 037621,000417: 36,3153 43146 COS CLEAR 037622,000418: 36,3154 03666 RVSW 037623,000419: 36,3155 26734 STOVL CSTH 037624,000420: 36,3156 03640 R(T1)/ 037625,000421: 36,3157 26657 STOVL RVEC 037626,000422: 36,3160 03700 V2(T1)/ 037627,000423: 36,3161 36746 STCALL VVEC 037628,000424: 36,3162 24737 TIMETHET 037629,000425: 36,3163 43014 P37W CLEAR CLEAR 037630,000426: 36,3164 01267 XDELVFLG 037631,000427: 36,3165 03665 NORMSW 037632,000428: 36,3166 77214 SET VLOAD 037633,000429: 36,3167 01071 FINALFLG 037634,000430: 36,3170 77626 STADR 037635,000431: 36,3171 60362 STODL RTARG 037636,000432: 36,3172 00037 T 037637,000433: 36,3173 77615 DAD 037638,000434: 36,3174 03716 T1 037639,000435: 36,3175 27656 STOVL TPASS4 037640,000436: # Page 855 037641,000437: 36,3176 03700 V2(T1)/ 037642,000438: 36,3177 77651 VSU 037643,000439: 36,3200 03672 V(T1)/ 037644,000440: 36,3201 37646 STCALL DELVSIN 037645,000441: 36,3202 73005 VN1645 037646,000442: 36,3203 77650 GOTO 037647,000443: 36,3204 75163 P37W 037648,000444: 037649,000445: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1 037650,000446: 037651,000447: 36,3205 00006 P37GFRB1 EXTEND 037652,000448: 36,3206 23762 QXCH SPRTEX 037653,000449: 36,3207 03215 TCR P370GOFR 037654,000450: 36,3210 34712 37BLANK CAF ONE 037655,000451: 36,3211 05415 TCR BLANKET 037656,000452: 36,3212 15112 TCF ENDOFJOB 037657,000453: 36,3213 01762 TC SPRTEX # RECYCLE 037658,000454: 36,3214 13240 TCF P37PROC # PROCEED 037659,000455: 037660,000456: # SUBROUTINE TO GO TO GOFLASHR 037661,000457: 037662,000458: 36,3215 00006 P370GOFR EXTEND 037663,000459: 36,3216 23733 QXCH RTENCKEX 037664,000460: 36,3217 04555 TCR BANKCALL 037665,000461: 36,3220 20763 CADR GOFLASHR 037666,000462: 36,3221 14106 TCF GOTOP00H # TERMINATE 037667,000463: 36,3222 13225 TCF +3 037668,000464: 36,3223 13227 TCF +4 037669,000465: 36,3224 01733 TC RTENCKEX # IMMEDIATE RETURN 037670,000466: 36,3225 51733 INDEX RTENCKEX # PROCEED 037671,000467: 36,3226 10004 TCF 0 +4 037672,000468: 36,3227 51733 INDEX RTENCKEX # RECYCLE 037673,000469: 36,3230 10003 TCF 0 +3 037674,000470: 037675,000471: # SUBROUTINE TO GO TO GOFLASH 037676,000472: 037677,000473: 36,3231 00006 P370GOF EXTEND 037678,000474: 36,3232 23762 QXCH SPRTEX 037679,000475: 36,3233 04555 TCR BANKCALL 037680,000476: 36,3234 20624 CADR GOFLASH 037681,000477: 36,3235 14106 TCF GOTOP00H 037682,000478: 36,3236 13240 TCF +2 037683,000479: 36,3237 01762 TC SPRTEX 037684,000480: 36,3240 51762 P37PROC INDEX SPRTEX 037685,000481: 36,3241 10001 TCF 0 +1 037686,000482: 36,3242 01441 V6N33RTE VN 0633 037687,000483: 36,3243 01006 V4N06RTE VN 0406 037688,000484: 36,3244 01475 V6N61RTE VN 0661 037689,000485: 36,3245 01447 V6N39RTE VN 0639 037690,000486: 36,3246 01474 V6N60RTE VN 0660 037691,000487: # Page 856 037692,000488: 36,3247 01521 V6N81RTE VN 0681 037693,000489: 32,2255 BANK 32 037694,000490: 32,2000 SETLOC RTE 037695,000491: 32,2000 BANK 037696,000492: 32,2255 COUNT 32/RTE 037697,000493: 037698,000494: # Page 857 037699,000495: # ALARM DISPLAY SUBROUTINE 037700,000496: 037701,000497: 32,2255 77420 P370ALRM STQ EXIT 037702,000498: 32,2256 03762 SPRTEX 037703,000499: 32,2257 30154 CA MPAC 037704,000500: 32,2260 05651 TC VARALARM 037705,000501: 32,2261 32271 CAF V5N09RTE 037706,000502: 32,2262 04555 TC BANKCALL 037707,000503: 32,2263 20624 CADR GOFLASH 037708,000504: 32,2264 14106 TCF GOTOP00H 037709,000505: 32,2265 12261 TCF -4 037710,000506: 32,2266 06006 TC INTPRET 037711,000507: 32,2267 77650 GOTO 037712,000508: 32,2270 03762 SPRTEX 037713,000509: 32,2271 01211 V5N09RTE VN 0509 037714,000510: 037715,000511: # Page 858 037716,000512: # TIME RADIUS CALLING SUBROUTINE 037717,000513: 037718,000514: # INPUT 037719,000515: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS 037720,000516: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS 037721,000517: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS 037722,000518: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14 037723,000519: 037724,000520: # OUTPUT 037725,000521: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS 037726,000522: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS 037727,000523: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS 037728,000524: 037729,000525: 32,2272 43020 TMRAD100 STQ CLEAR 037730,000526: 32,2273 03733 RTENCKEX 037731,000527: 32,2274 03666 RVSW 037732,000528: 32,2275 67164 AXC,2 SXA,2 037733,000529: 32,2276 20000 OCT 20000 037734,000530: 32,2277 02756 SGNRDOT 037735,000531: 32,2300 45140 LXC,1 CALL 037736,000532: 32,2301 03734 CONICX1 037737,000533: 32,2302 25552 TIMERAD 037738,000534: 32,2303 27710 STOVL V(T2)/ # PL00D 037739,000535: 32,2304 77626 STADR 037740,000536: 32,2305 60121 STODL R(T2)/ 037741,000537: 32,2306 00037 T 037742,000538: 32,2307 37724 STCALL T12 037743,000539: 32,2310 03733 RTENCKEX 037744,000540: 037745,000541: # Page 859 037746,000542: # DISPLAY CALCULATION SUBROUTINE 037747,000543: 037748,000544: # DESCRIPTION 037749,000545: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE 037750,000546: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE. 037751,000547: 037752,000548: # CALLING SEQUENCE 037753,000549: # L CALL 037754,000550: # L+1 RTEDISP 037755,000551: 037756,000552: # SUBROUTINES CALLED 037757,000553: # TMRAD100 037758,000554: # AUGEKUGL 037759,000555: # LAT-LONG 037760,000556: 037761,000557: # ERASABLE INITIALIZATION REQUIRED 037762,000558: # PUSHLIST 037763,000559: # NONE 037764,000560: # MPAC 037765,000561: # NONE 037766,000562: # OTHER 037767,000563: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS 037768,000564: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS 037769,000565: # T2 FINAL TIME DP B28 CS 037770,000566: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS 037771,000567: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 037772,000568: # UR1/ UNIT INITIAL VECTOR VECTOR B1 037773,000569: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 037774,000570: 037775,000571: # OUTPUT 037776,000572: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS 037777,000573: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS 037778,000574: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ 037779,000575: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS 037780,000576: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS 037781,000577: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS 037782,000578: 037783,000579: 32,2311 77220 RTEDISP STQ VLOAD # DISPLAY 037784,000580: 32,2312 03762 SPRTEX 037785,000581: 32,2313 03710 V(T2)/ 037786,000582: 32,2314 65256 UNIT PDDL 037787,000583: 32,2315 00045 36D 037788,000584: 32,2316 17767 STODL VPRED # V(T2) 037789,000585: 32,2317 03736 T2 037790,000586: 32,2320 77625 DSU 037791,000587: 32,2321 03413 SPRTETIG 037792,000588: 32,2322 26641 STOVL T3TOT4 # T21 037793,000589: 32,2323 03656 R(T2)/ 037794,000590: 32,2324 50256 UNIT DOT 037795,000591: 32,2325 77752 SL1 037796,000592: # Page 860 037797,000593: 32,2326 44326 ARCCOS BDSU 037798,000594: 32,2327 31655 1RTEB2 037799,000595: 32,2330 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2 037800,000596: 32,2331 03700 V2(T1)/ 037801,000597: 32,2332 41451 VSU PUSH 037802,000598: 32,2333 03672 V(T1)/ 037803,000599: 32,2334 57441 DOT DCOMP 037804,000600: 32,2335 03740 UR1/ 037805,000601: 32,2336 41515 PDVL PUSH 037806,000602: 32,2337 63345 DLOAD PDVL 037807,000603: 32,2340 31677 ZERORTE 037808,000604: 32,2341 55441 DOT VDEF 037809,000605: 32,2342 03746 UH/ 037810,000606: 32,2343 77772 VSL1 037811,000607: 32,2344 27405 STOVL DELVLVC # DV/ (LVC) 037812,000608: 32,2345 03656 R(T2)/ 037813,000609: 32,2346 02657 STORE RVEC # ***** LANDING SITE COMPUTATION ***** 037814,000610: 32,2347 45246 ABVAL DSU 037815,000611: 32,2350 31723 30480RTE 037816,000612: 32,2351 26760 STOVL RDESIRED 037817,000613: 32,2352 03710 V(T2)/ 037818,000614: 32,2353 36746 STCALL VVEC 037819,000615: 32,2354 64272 TMRAD100 # R3,V3,T23 FROM TIMERAD 037820,000616: 32,2355 53575 VLOAD UNIT 037821,000617: 32,2356 03656 R(T2)/ 037822,000618: 32,2357 53515 PDVL UNIT # UR3 PL06D 037823,000619: 32,2360 03710 V(T2)/ 037824,000620: 32,2361 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D 037825,000621: 32,2362 65336 ARCSIN PDDL # V(T3) PL02D 037826,000622: 32,2363 00045 36D 037827,000623: 32,2364 51525 PDDL ABS 037828,000624: 32,2365 45006 PUSH CALL # /GAMMAE/ PL04D 037829,000625: 32,2366 64075 AUGEKUGL # PHIE PL06D 037830,000626: 32,2367 43215 DAD DAD 037831,000627: 32,2370 03724 T12 # T23 037832,000628: 32,2371 03736 T2 037833,000629: 32,2372 14003 STODL 02D # T(LS)=T2+T23+TE 037834,000630: 32,2373 00005 04D 037835,000631: 32,2374 77756 SIN 037836,000632: 32,2375 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D 037837,000633: 32,2376 77746 COS 037838,000634: 32,2377 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE) 037839,000635: 32,2400 53575 VLOAD UNIT 037840,000636: 32,2401 03656 R(T2)/ 037841,000637: 32,2402 41406 PUSH PUSH 037842,000638: 32,2403 53515 PDVL UNIT # PL22D 037843,000639: 32,2404 03710 V(T2)/ 037844,000640: 32,2405 47315 PDVL VXV 037845,000641: 32,2406 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D 037846,000642: 32,2407 63361 VXSC PDVL 037847,000643: # Page 861 037848,000644: 32,2410 03403 LNG(SPL) 037849,000645: 32,2411 53361 VXSC VAD # PL04D 037850,000646: 32,2412 03401 LAT(SPL) 037851,000647: 32,2413 43014 CLEAR CLEAR # T(LS) IN MPAC 037852,000648: 32,2414 00662 ERADFLAG 037853,000649: 32,2415 01663 LUNAFLAG 037854,000650: 32,2416 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D 037855,000651: 32,2417 77624 CALL 037856,000652: 32,2420 26322 LAT-LONG 037857,000653: 32,2421 77745 DLOAD 037858,000654: 32,2422 01104 LAT 037859,000655: 32,2423 17401 STODL LAT(SPL) # LATITUDE LANDING SITE ***** 037860,000656: 32,2424 01106 LONG 037861,000657: 32,2425 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE ***** 037862,000658: 32,2426 03762 SPRTEX 037863,000659: 32,2427 COUNT* $$/RTE 037864,000660: 037865,000661: # Page 862 037866,000662: # INITIAL VECTOR SUBROUTINE 037867,000663: 037868,000664: # DESCRIPTION 037869,000665: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR. 037870,000666: 037871,000667: # CALLING SEQUENCE 037872,000668: # L CALL 037873,000669: # L+1 INVC100 037874,000670: 037875,000671: # NORMAL EXIT MODE 037876,000672: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0 037877,000673: 037878,000674: # ALARM EXIT MODE 037879,000675: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOON'S SPHERE OF INFLUENCE 037880,000676: 037881,000677: # SUBROUTINES CALLED 037882,000678: # CSMPREC 037883,000679: 037884,000680: # ERASABLE INITIALIZATION REQUIRED 037885,000681: # PUSHLIST 037886,000682: # NONE 037887,000683: # MPAC 037888,000684: # NONE 037889,000685: # OTHER 037890,000686: # SPRTETIG TIME OF IGNITION DP B28 CS 037891,000687: # CSM STATE VECTOR 037892,000688: 037893,000689: # OUTPUT 037894,000690: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS 037895,000691: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS 037896,000692: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS 037897,000693: # UR1/ UNIT INITIAL VECTOR VECTOR B1 037898,000694: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 037899,000695: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1 037900,000696: 037901,000697: 32,2427 71220 INVC100 STQ DLOAD 037902,000698: 32,2430 03762 SPRTEX 037903,000699: 32,2431 03413 SPRTETIG 037904,000700: 32,2432 34041 STCALL TDEC1 037905,000701: 32,2433 27022 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1 037906,000702: 32,2434 67175 VLOAD SXA,2 037907,000703: 32,2435 00001 RATT 037908,000704: 32,2436 03755 P(T1) 037909,000705: 32,2437 27640 STOVL R(T1)/ 037910,000706: 32,2440 00007 VATT 037911,000707: 32,2441 17672 STODL V(T1)/ 037912,000708: 32,2442 00015 TAT 037913,000709: 32,2443 03716 STORE T1 037914,000710: 32,2444 53135 SLOAD BZE 037915,000711: 32,2445 03756 P(T1) 037916,000712: # Page 863 037917,000713: 32,2446 64452 INVC109 037918,000714: 32,2447 52135 INVC107 SLOAD GOTO 037919,000715: 32,2450 31736 OCT612 037920,000716: 32,2451 74772 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE 037921,000717: 32,2452 53575 INVC109 VLOAD UNIT 037922,000718: 32,2453 03640 R(T1)/ 037923,000719: 32,2454 17740 STODL UR1/ # UR1/ B1 037924,000720: 32,2455 00045 36D 037925,000721: 32,2456 27646 STOVL R(T1) # R(T1) B29 037926,000722: 32,2457 03672 V(T1)/ 037927,000723: 32,2460 77656 UNIT 037928,000724: 32,2461 03746 STORE UV1/ 037929,000725: 32,2462 72441 DOT SL1 037930,000726: 32,2463 03740 UR1/ 037931,000727: 32,2464 03757 STORE CFPA # CFPA B1 037932,000728: 32,2465 45246 ABS DSU 037933,000729: 32,2466 31752 EPC1RTE 037934,000730: 32,2467 71240 BMN DLOAD 037935,000731: 32,2470 64477 INVC115 # NOT NEAR RECTILINEAR 037936,000732: 32,2471 31655 1RTEB2 037937,000733: 32,2472 41525 PDDL PUSH 037938,000734: 32,2473 31677 ZERORTE 037939,000735: 32,2474 41466 VDEF PUSH # N/ = (0,0,1) 037940,000736: 32,2475 77650 GOTO 037941,000737: 32,2476 64503 INVC120 037942,000738: 32,2477 47375 INVC115 VLOAD VXV 037943,000739: 32,2500 03740 UR1/ 037944,000740: 32,2501 03746 UV1/ 037945,000741: 32,2502 77606 PUSH # N/ = UR X UV B2 037946,000742: 32,2503 41545 INVC120 DLOAD PUSH 037947,000743: 32,2504 77244 BPL VLOAD 037948,000744: 32,2505 64507 INVC125 037949,000745: 32,2506 41476 VCOMP PUSH # CORRECT N/ FOR RETROGRADE TRAJECTORY 037950,000746: 32,2507 77775 INVC125 VLOAD 037951,000747: 32,2510 53435 VXV UNIT 037952,000748: 32,2511 03740 UR1/ 037953,000749: 32,2512 03746 STORE UH/ # UH/ B1 037954,000750: 32,2513 77650 GOTO 037955,000751: 32,2514 03762 SPRTEX 037956,000752: 037957,000753: # Page 864 037958,000754: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE 037959,000755: 037960,000756: # DESCRIPTION 037961,000757: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENEATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY 037962,000758: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY 037963,000759: # AS POSSIBLE. 037964,000760: 037965,000761: # CALLING SEQUENCE 037966,000762: # L CALL 037967,000763: # L+1 PREC100 037968,000764: 037969,000765: # NORMAL EXIT MODE 037970,000766: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0 037971,000767: 037972,000768: # ALARM EXIT MODE 037973,000769: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 037974,000770: # OCTAL 605 FOR EXCESS ITERATIONS 037975,000771: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS 037976,000772: 037977,000773: # SUBROUTINES CALLED 037978,000774: # INTSTALL 037979,000775: # RTENCK2 037980,000776: # RTENCK3 037981,000777: # TIMERAD 037982,000778: # PARAM 037983,000779: # V2T100 037984,000780: 037985,000781: # ERASABLE INITIALIZATION REQUIRED 037986,000782: # PUSHLIST 037987,000783: # NONE 037988,000784: # MPAC 037989,000785: # NONE 037990,000786: # OTHER 037991,000787: # R(T1)/ INITIAL POSITION VECTOR VECTOR B28/B27 METERS 037992,000788: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 037993,000789: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 037994,000790: # T1 INITIAL VECTOR TIME DP B28 CS 037995,000791: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS 037996,000792: # RCON CONIC FINAL RADIUS DP B29/B27 METERS 037997,000793: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS 037998,000794: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0 037999,000795: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5 038000,000796: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS 038001,000797: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS 038002,000798: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS 038003,000799: # UR1/ UNIT INITIAL VECTOR VECTOR B1 038004,000800: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 038005,000801: # BETA1 1+X(T2)**2 DP B1 038006,000802: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE 038007,000803: # Page 865 038008,000804: 038009,000805: # OUTPUT 038010,000806: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS 038011,000807: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS 038012,000808: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS 038013,000809: # T2 FINAL TIME DP B28 CENTISECONDS 038014,000810: 038015,000811: # DEBRIS 038016,000812: # RD FINAL R DESIRED DP B29/B27 METERS 038017,000813: # R/APRE R/A DP B6 038018,000814: # P/RPRE P/R DP B2 038019,000815: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS 038020,000816: # X(T2)PRE COTANGENT OF GAMMA2 DP B0 038021,000817: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS 038022,000818: # RCON FONAL RADIUS DP B29/B27 METERS 038023,000819: # DRCON DELTA RCON DP B29/B27 METERS 038024,000820: 038025,000821: 32,2515 71220 PREC100 STQ DLOAD 038026,000822: 32,2516 03762 SPRTEX 038027,000823: 32,2517 31705 10RTE 038028,000824: 32,2520 17730 STODL NN1A 038029,000825: 32,2521 03636 RCON 038030,000826: 32,2522 03664 STORE RD 038031,000827: 32,2523 77745 PREC120 DLOAD 038032,000828: 32,2524 31715 2RTEB1 038033,000829: 32,2525 17650 STODL DT21PR # DT21PR = POSMAX 038034,000830: 32,2526 31703 M15RTE 038035,000831: 32,2527 37732 STCALL NN2 038036,000832: 32,2530 65103 RTENCK3 038037,000833: 32,2531 77624 PREC125 CALL 038038,000834: 32,2532 11527 PARAM 038039,000835: 32,2533 77745 DLOAD 038040,000836: 32,2534 02742 P 038041,000837: 32,2535 14033 STODL P/RPRE 038042,000838: 32,2536 02744 R1A 038043,000839: 32,2537 14035 STODL R/APRE 038044,000840: 32,2540 00041 R1 038045,000841: 32,2541 14031 STODL RPRE 038046,000842: 32,2542 03775 COGA 038047,000843: 32,2543 77661 SL 038048,000844: 32,2544 20206 5 038049,000845: 32,2545 03724 STORE X(T2)PRE 038050,000846: 32,2546 43276 DCOMP DAD 038051,000847: 32,2547 03726 X(T2) 038052,000848: 32,2550 45246 ABS DSU 038053,000849: 32,2551 31760 EPC4RTE 038054,000850: 32,2552 50000 BOV BMN 038055,000851: 32,2553 64555 PREC130 038056,000852: 32,2554 64736 PREC175 038057,000853: 038058,000854: # DESIRED REENTRY ANGLE NOT ACHIEVED 038059,000855: # Page 866 038060,000856: 32,2555 50145 PREC130 DLOAD BMN 038061,000857: 32,2556 03732 NN2 038062,000858: 32,2557 64563 PREC140 038063,000859: 32,2560 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS 038064,000860: 32,2561 31735 OCT605 # EXIT WITH ALARM 038065,000861: 32,2562 65053 PRECX 038066,000862: 038067,000863: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED 038068,000864: 038069,000865: 32,2563 53145 PREC140 DLOAD BZE 038070,000866: 32,2564 03730 NN1A 038071,000867: 32,2565 64616 PREC162 038072,000868: 32,2566 42545 PREC150 DLOAD SL4 # ELLIPTIC CASE 038073,000869: 32,2567 00035 R/APRE 038074,000870: 32,2570 52525 PDDL SL3 # PL02D 038075,000871: 32,2571 00033 P/RPRE 038076,000872: 32,2572 41205 DMP DMP # (P/A)BETA1 B4 PL00D 038077,000873: 32,2573 03754 BETA1 038078,000874: 32,2574 57512 SL2 DCOMP 038079,000875: 32,2575 50015 DAD BMN # 1-(P/A)BETA1=BETA2 B2 038080,000876: 32,2576 31655 1RTEB2 038081,000877: 32,2577 64602 PREC155 038082,000878: 32,2600 52166 SQRT GOTO # BETA2**.5=BETA3 B1 038083,000879: 32,2601 64604 PREC160 038084,000880: 32,2602 77745 PREC155 DLOAD 038085,000881: 32,2603 31677 ZERORTE # BETA3=0 038086,000882: 32,2604 43205 PREC160 DMP DAD 038087,000883: 32,2605 03761 PHI2 038088,000884: 32,2606 31657 1RTEB3 038089,000885: 32,2607 60325 PDDL NORM # 1+(PHI2)(beta3) B3 038090,000886: 32,2610 00035 R/APRE 038091,000887: 32,2611 00047 X1 038092,000888: 32,2612 77665 BDDV # PL00D 038093,000889: 32,2613 52057 SL* GOTO # (1+PHI2*BETA3)/(R/A)=BETA4 B1 038094,000890: 32,2614 20175 0 -4,1 038095,000891: 32,2615 64624 PREC165 038096,000892: 32,2616 60345 PREC162 DLOAD NORM 038097,000893: 32,2617 00031 RPRE 038098,000894: 32,2620 00047 X1 038099,000895: 32,2621 53665 BDDV SL* # BETA4=RD/RPRE B1 038100,000896: 32,2622 03664 RD 038101,000897: 32,2623 20200 0 -1,1 038102,000898: 32,2624 45206 PREC165 PUSH DSU 038103,000899: 32,2625 31653 1RTEB1 038104,000900: 32,2626 77676 DCOMP 038105,000901: 32,2627 03765 STORE BETA12 038106,000902: 32,2630 71240 BMN DLOAD 038107,000903: 32,2631 64642 PREC168 038108,000904: 32,2632 03724 X(T2)PRE 038109,000905: 32,2633 71240 BMN DLOAD 038110,000906: # Page 867 038111,000907: 32,2634 64640 PREC167 038112,000908: 32,2635 03765 BETA12 038113,000909: 32,2636 77676 DCOMP 038114,000910: 32,2637 03765 STORE BETA12 038115,000911: 32,2640 77745 PREC167 DLOAD 038116,000912: 32,2641 03765 BETA12 038117,000913: 32,2642 45246 PREC168 ABS DSU 038118,000914: 32,2643 31764 EPC6RTE 038119,000915: 32,2644 71240 BMN DLOAD 038120,000916: 32,2645 64736 PREC175 038121,000917: 32,2646 72405 DMP SL1 038122,000918: 32,2647 00031 RPRE 038123,000919: 32,2650 77606 PUSH # RF = NEW RADIUS 038124,000920: 32,2651 43345 PREC170 DLOAD DAD 038125,000921: 32,2652 03732 NN2 038126,000922: 32,2653 31675 1RTEB28 038127,000923: 32,2654 03732 STORE NN2 038128,000924: 32,2655 43175 VLOAD SET 038129,000925: 32,2656 03656 R(T2)/ 038130,000926: 32,2657 03466 RVSW 038131,000927: 32,2660 26657 STOVL RVEC 038132,000928: 32,2661 03710 V(T2)/ 038133,000929: 32,2662 77765 SIGN 038134,000930: 32,2663 03765 BETA12 038135,000931: 32,2664 16746 STODL VVEC 038136,000932: 32,2665 31653 1RTEB1 038137,000933: 32,2666 57565 SIGN DCOMP 038138,000934: 32,2667 03765 BETA12 038139,000935: 32,2670 71354 LXA,2 DLOAD 038140,000936: 32,2671 00154 MPAC 038141,000937: 32,2672 67140 LXC,1 SXA,2 038142,000938: 32,2673 03734 CONICX1 038143,000939: 32,2674 02756 SGNRDOT 038144,000940: 32,2675 36760 STCALL RDESIRED # COMPUTED DT12 (CORRECTION TO TIME OF 038145,000941: 32,2676 25552 TIMERAD # NEW RADIUS) 038146,000942: 32,2677 75345 DLOAD SIGN 038147,000943: 32,2700 00037 T 038148,000944: 32,2701 03765 BETA12 038149,000945: 32,2702 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D 038150,000946: 32,2703 03650 DT21PR 038151,000947: 32,2704 00047 X1 038152,000948: 32,2705 53665 BDDV SL* 038153,000949: 32,2706 00001 00D 038154,000950: 32,2707 20176 0 -3,1 038155,000951: 32,2710 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D 038156,000952: 32,2711 64716 PREC172 038157,000953: 32,2712 65345 DLOAD PDDL # BETA14=1 B0 PL04D 038158,000954: 32,2713 31715 2RTEB1 038159,000955: 32,2714 77650 GOTO 038160,000956: 32,2715 64720 PREC173 038161,000957: # Page 868 038162,000958: 32,2716 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D 038163,000959: 32,2717 31707 M.6RTE 038164,000960: 32,2720 45271 PREC173 DDV DSU 038165,000961: 32,2721 00003 02D 038166,000962: 32,2722 31657 1RTEB3 038167,000963: 32,2723 71240 BMN DLOAD 038168,000964: 32,2724 64730 PREC174 038169,000965: 32,2725 77605 DMP 038170,000966: 32,2726 03650 DT21PR 038171,000967: 32,2727 00001 STORE 00D # DT21=(BETA14)DT21PR B28 038172,000968: 32,2730 41545 PREC174 DLOAD PUSH 038173,000969: 32,2731 00001 00D 038174,000970: 32,2732 37650 STCALL DT21PR 038175,000971: 32,2733 65065 RTENCK2 038176,000972: 32,2734 77650 GOTO 038177,000973: 32,2735 64531 PREC125 038178,000974: 32,2736 45345 PREC175 DLOAD DSU 038179,000975: 32,2737 00031 RPRE 038180,000976: 32,2740 03664 RD 038181,000977: 32,2741 51406 PUSH ABS # RPRE-RD = RERR 038182,000978: 32,2742 50025 DSU BMN 038183,000979: 32,2743 31766 EPC7RTE 038184,000980: 32,2744 65037 PREC220 038185,000981: 038186,000982: # DESIRED RADIUS HAS NOT BEEN ACHIEVED 038187,000983: 038188,000984: 32,2745 53145 DLOAD BZE 038189,000985: 32,2746 03730 NN1A 038190,000986: 32,2747 64560 PREC132 # TOO MANY ITERATIONS 038191,000987: 32,2750 53025 DSU BZE 038192,000988: 32,2751 31705 10RTE 038193,000989: 32,2752 65005 PREC207 038194,000990: 32,2753 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION 038195,000991: 32,2754 03670 RPRE' 038196,000992: 32,2755 00031 RPRE # RPRE'-RPRE B29/B27 038197,000993: 32,2756 55301 NORM BDDV 038198,000994: 32,2757 00050 X2 038199,000995: 32,2760 03666 DRCON 038200,000996: 32,2761 41457 SL* PUSH # DRCON/(RPRE'-RPRE)=S B2 038201,000997: 32,2762 57600 0 -2,2 038202,000998: 32,2763 40015 DAD BOV # S GR +4 OR LS -4 038203,000999: 32,2764 31653 1RTEB1 038204,001000: 32,2765 64772 PREC205M 038205,001001: 32,2766 45246 ABS DSU 038206,001002: 32,2767 31653 1RTEB1 038207,001003: 32,2770 77640 BMN 038208,001004: 32,2771 64775 PREC206 038209,001005: 32,2772 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4 038210,001006: 32,2773 31715 2RTEB1 038211,001007: 32,2774 77725 PDDL # S=-4 B2 038212,001008: # Page 869 038213,001009: 32,2775 41345 PREC206 DLOAD DMP 038214,001010: 32,2776 77712 SL2 038215,001011: 32,2777 03666 STORE DRCON # DRCON=S(RERR) B29 038216,001012: 32,3000 77615 DAD 038217,001013: 32,3001 03636 RCON 038218,001014: 32,3002 03636 STORE RCON # RCON+DRCON=RCON 038219,001015: 32,3003 77650 GOTO 038220,001016: 32,3004 65024 PREC210 038221,001017: 32,3005 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION 038222,001018: 32,3006 03664 RD 038223,001019: 32,3007 70501 NORM SR1 038224,001020: 32,3010 00047 X1 038225,001021: 32,3011 60325 PDDL NORM 038226,001022: 32,3012 00031 RPRE 038227,001023: 32,3013 00050 X2 038228,001024: 32,3014 55260 XSU,1 BDDV 038229,001025: 32,3015 00047 X2 038230,001026: 32,3016 77657 SR* 038231,001027: 32,3017 20600 0 -1,1 038232,001028: 32,3020 03636 STORE RCON # RD**2/RPRE=RCON 038233,001029: 32,3021 77625 DSU 038234,001030: 32,3022 03664 RD 038235,001031: 32,3023 03666 STORE DRCON # RCON-RD=DRCON 038236,001032: 32,3024 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION 038237,001033: 32,3025 00031 RPRE 038238,001034: 32,3026 17670 STODL RPRE' 038239,001035: 32,3027 03730 NN1A 038240,001036: 32,3030 77625 DSU 038241,001037: 32,3031 31675 1RTEB28 038242,001038: 32,3032 37730 STCALL NN1A 038243,001039: 32,3033 65136 V2T100 038244,001040: 32,3034 52030 BHIZ GOTO 038245,001041: 32,3035 64523 PREC120 038246,001042: 32,3036 65053 PRECX 038247,001043: 038248,001044: # DESIRED RADIUS ACHIEVED 038249,001045: 038250,001046: 32,3037 45345 PREC220 DLOAD DSU 038251,001047: 32,3040 03726 X(T2) 038252,001048: 32,3041 03724 X(T2)PRE 038253,001049: 32,3042 45246 ABS DSU 038254,001050: 32,3043 31770 EPC8RTE 038255,001051: 32,3044 67240 BMN SLOAD 038256,001052: 32,3045 65051 PREC225 038257,001053: 32,3046 31737 OCT613 038258,001054: 32,3047 77650 GOTO 038259,001055: 32,3050 65053 PRECX # IF REENTRY ANGLE OUT OF LIMITS 038260,001056: 038261,001057: # DESIRED FINAL ANGLE HAS BEEN REACHED. 038262,001058: # Page 870 038263,001059: 038264,001060: 32,3051 77745 PREC225 DLOAD 038265,001061: 32,3052 31677 ZERORTE 038266,001062: 32,3053 77650 PRECX GOTO 038267,001063: 32,3054 03762 SPRTEX 038268,001064: 038269,001065: # Page 871 038270,001066: # INTEGRATION CALLING SUBROUTINE 038271,001067: 038272,001068: # DESCRIPTION 038273,001069: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1, 038274,001070: # RTENCK2, AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT 038275,001071: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE. 038276,001072: 038277,001073: # RTENCK1 (CONIC INTEGRATION) 038278,001074: 038279,001075: # CALLING SEQUENCE 038280,001076: # L CALL 038281,001077: # L+1 RTENCK1 038282,001078: 038283,001079: # ERASABLE INITIALIZATION REQUIRED 038284,001080: # SAME AS FOR THE RTENCK3 ENTRANCE 038285,001081: 038286,001082: # RTENCK2 (PRECISION INTEGRATION) 038287,001083: 038288,001084: # CALLING SEQUENCE 038289,001085: # L CALL 038290,001086: # L+1 RTENCK2 038291,001087: 038292,001088: # ERASABLE INITIALIZATION REQUIRED 038293,001089: # PUSHLIST 038294,001090: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS 038295,001091: # OTHER 038296,001092: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS 038297,001093: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS 038298,001094: # T2 FINAL TIME DP B28 CS 038299,001095: 038300,001096: # RTENCK3 (PRECISION INTEGRATION) 038301,001097: 038302,001098: # CALLING SEQUENCE 038303,001099: # L CALL 038304,001100: # L+1 RTENCK3 038305,001101: 038306,001102: # ERASABLE INITIALIZATION REQUIRED 038307,001103: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS 038308,001104: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS 038309,001105: # T1 INITIAL VECTOR TIME DP B28 CS 038310,001106: # T2 FINAL TIME DP B28 CS 038311,001107: 038312,001108: # EXIT MODE 038313,001109: # AT L+2 OF CALLING SEQUENCE 038314,001110: 038315,001111: # SUBROUTINES CALLED 038316,001112: # INTSTALL 038317,001113: # INTEGRVS 038318,001114: 038319,001115: # OUTPUT 038320,001116: # PUSHLIST 038321,001117: # Page 872 038322,001118: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS 038323,001119: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14 038324,001120: # MPAC 038325,001121: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS 038326,001122: # OTHER 038327,001123: # R(T2)/ AS IN PUSHLIST 038328,001124: # V(T2)/ AS IN MPAC 038329,001125: # T2 FINAL TIME DP B28 CS 038330,001126: 038331,001127: 32,3055 45020 RTENCK1 STQ CALL 038332,001128: 32,3056 03733 RTENCKEX 038333,001129: 32,3057 27371 INTSTALL 038334,001130: 32,3060 43175 VLOAD SET 038335,001131: 32,3061 03640 R(T1)/ 038336,001132: 32,3062 01473 INTYPFLG 038337,001133: 32,3063 77650 GOTO 038338,001134: 32,3064 65111 RTENCK3B 038339,001135: 038340,001136: 32,3065 45020 RTENCK2 STQ CALL 038341,001137: 32,3066 03733 RTENCKEX 038342,001138: 32,3067 27371 INTSTALL 038343,001139: 32,3070 77214 CLEAR VLOAD 038344,001140: 32,3071 01673 INTYPFLG 038345,001141: 32,3072 03656 R(T2)/ 038346,001142: 32,3073 25535 STOVL RCV 038347,001143: 32,3074 03710 V(T2)/ 038348,001144: 32,3075 15543 STODL VCV 038349,001145: 32,3076 03736 T2 038350,001146: 32,3077 01517 STORE TET 038351,001147: 32,3100 77615 DAD 038352,001148: 32,3101 77650 GOTO 038353,001149: 32,3102 65117 RTENCK3D 038354,001150: 038355,001151: 32,3103 45020 RTENCK3 STQ CALL 038356,001152: 32,3104 03733 RTENCKEX 038357,001153: 32,3105 27371 INTSTALL 038358,001154: 32,3106 43175 RTENCK3A VLOAD CLEAR 038359,001155: 32,3107 03640 R(T1)/ 038360,001156: 32,3110 01673 INTYPFLG 038361,001157: 32,3111 25535 RTENCK3B STOVL RCV 038362,001158: 32,3112 03700 V2(T1)/ 038363,001159: 32,3113 15543 STODL VCV 038364,001160: 32,3114 03716 T1 038365,001161: 32,3115 15517 STODL TET 038366,001162: 32,3116 03736 T2 038367,001163: 32,3117 00041 RTENCK3D STORE TDEC1 038368,001164: 32,3120 45014 CLEAR CALL 038369,001165: # Page 873 038370,001166: 32,3121 00263 MOONFLAG 038371,001167: 32,3122 27066 INTEGRVS 038372,001168: 32,3123 77775 VLOAD 038373,001169: 32,3124 00001 RATT 038374,001170: 32,3125 03656 STORE R(T2)/ 038375,001171: 32,3126 70125 PDDL LXC,1 038376,001172: 32,3127 00015 TAT 038377,001173: 32,3130 03734 CONICX1 038378,001174: 32,3131 27736 STOVL T2 038379,001175: 32,3132 00007 VATT 038380,001176: 32,3133 03710 STORE V(T2)/ 038381,001177: 32,3134 77650 GOTO 038382,001178: 32,3135 03733 RTENCKEX 038383,001179: 038384,001180: # Page 874 038385,001181: # V2(T1) COMPUTATION SUBROUTINE 038386,001182: 038387,001183: # DESCRIPTION 038388,001184: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER 038389,001185: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR 038390,001186: # (2) IF A VELOCITY CHANGE ISN'T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV) 038391,001187: # AND CONSEQUENTLY FUEL. 038392,001188: 038393,001189: # CALLING SEQUENCE 038394,001190: # L CALL 038395,001191: # L+1 V2T100 038396,001192: 038397,001193: # NORMAL EXIT MODE 038398,001194: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0 038399,001195: 038400,001196: # ALARM EXIT MODE 038401,001197: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS. 038402,001198: 038403,001199: # SUBROUTINES CALLED 038404,001200: # GAMDV10 038405,001201: # XT1LIM 038406,001202: # DVCALC 038407,001203: 038408,001204: # ERASABLE INITIALIZATION REQUIRED 038409,001205: # PUSHLIST 038410,001206: # NONE 038411,001207: # MPAC 038412,001208: # NONE 038413,001209: # OTHER 038414,001210: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS 038415,001211: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS 038416,001212: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 038417,001213: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS 038418,001214: # UR1/ UNIT INITIAL VECTOR VECTOR B1 038419,001215: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 038420,001216: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0 038421,001217: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5 038422,001218: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1 038423,001219: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS 038424,001220: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS 038425,001221: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE 038426,001222: # N1 CONIC OR PRECISION ITERATION OPERATOR DP B28 NEGATIVE CONIC, PLUS PREC 038427,001223: 038428,001224: # OUTPUT 038429,001225: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 038430,001226: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS 038431,001227: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5 038432,001228: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS 038433,001229: # BETA1 1+X(T2)**2 DP B1 038434,001230: # Page 875 038435,001231: 038436,001232: # DEBRIS 038437,001233: # PUSHLIST 038438,001234: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5 038439,001235: # 02D THETA1=BETA5*LAMBDA-1 TP B17 038440,001236: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36 038441,001237: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5 038442,001238: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5 038443,001239: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5 038444,001240: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5 038445,001241: # 16D DX(T1=ITERATOR INCREMENT DP B5 038446,001242: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS 038447,001243: # 32D DVCALC SUBROUTINE RETURN ADDRESS 038448,001244: # 33D V2T100 SUBROUTINE RETURN ADDRESS 038449,001245: 038450,001246: 32,3136 77620 V2T100 STQ 038451,001247: 32,3137 00041 33D 038452,001248: 32,3140 43001 SETPD CLEAR 038453,001249: 32,3141 00001 0 038454,001250: 32,3142 00272 F2RTE 038455,001251: 32,3143 60345 DLOAD NORM 038456,001252: 32,3144 03636 RCON 038457,001253: 32,3145 00047 X1 038458,001254: 32,3146 60325 PDDL NORM 038459,001255: 32,3147 03646 R(T1) 038460,001256: 32,3150 00051 S1 038461,001257: 32,3151 00013 STORE 10D 038462,001258: 32,3152 56342 SR1 DDV # R1/RCON = LAMBDA B1 038463,001259: 32,3153 65260 XSU,1 PDDL 038464,001260: 32,3154 00050 S1 038465,001261: 32,3155 03726 X(T2) 038466,001262: 32,3156 77716 DSQ 038467,001263: 32,3157 43342 SR1 DAD 038468,001264: 32,3160 31653 1RTEB1 038469,001265: 32,3161 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1 038470,001266: 32,3162 77605 DMP 038471,001267: 32,3163 00001 00D 038472,001268: 32,3164 00035 STORE 28D # BETAI*LAMBDA = BETA5 038473,001269: 32,3165 53605 DMP SL* 038474,001270: 32,3166 00001 00D 038475,001271: 32,3167 20172 0 -7,1 038476,001272: 32,3170 45257 SL* DSU 038477,001273: 32,3171 20172 0 -7,1 038478,001274: 32,3172 31671 1RTEB17 038479,001275: 32,3173 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 038480,001276: 32,3174 45562 TPMODE 038481,001277: 32,3175 31653 1RTEB1 038482,001278: 32,3176 57457 SR* DCOMP 038483,001279: 32,3177 20601 0,1 038484,001280: 32,3200 41215 DAD DMP 038485,001281: 32,3201 00001 00D 038486,001282: # Page 876 038487,001283: 32,3202 03646 R(T1) 038488,001284: 32,3203 47057 SL* RTB 038489,001285: 32,3204 20172 0 -7D,1 038490,001286: 32,3205 45562 TPMODE 038491,001287: 32,3206 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D 038492,001288: 32,3207 33770 RTMURTE 038493,001289: 32,3210 70501 NORM SR1 038494,001290: 32,3211 00050 X2 038495,001291: 32,3212 56264 XSU,2 DDV 038496,001292: 32,3213 00050 S1 038497,001293: 32,3214 00013 10D 038498,001294: 32,3215 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D 038499,001295: 32,3216 57170 6,2 038500,001296: 32,3217 03652 MAMAX1 038501,001297: 32,3220 41406 PUSH PUSH # MAMAX1=MA 038502,001298: 32,3221 77624 CALL 038503,001299: 32,3222 56633 XT1LIM 038504,001300: 32,3223 41476 DCOMP PUSH # X(T1)MIN B5 PL12D 038505,001301: 32,3224 40476 DCOMP SR4 038506,001302: 32,3225 41525 PDDL PUSH # DX(T1)MAX B5 PL14D 038507,001303: 32,3226 03654 MAMAX2 038508,001304: 32,3227 45006 PUSH CALL 038509,001305: 32,3230 56633 XT1LIM 038510,001306: 32,3231 50125 PDDL BMN # X(T1)MAX B5 PL16D 038511,001307: 32,3232 03730 NN1A 038512,001308: 32,3233 65236 V2T102 038513,001309: 32,3234 77650 GOTO 038514,001310: 32,3235 65250 V2T110 038515,001311: 038516,001312: # PROCEED HERE IF NOT PRECISION COMPUTATION 038517,001313: 038518,001314: 32,3236 77745 V2T102 DLOAD 038519,001315: 32,3237 03632 RTEDVD 038520,001316: 32,3240 52054 BZE GOTO 038521,001317: 32,3241 65243 V2T105 038522,001318: 32,3242 65344 V2T140 038523,001319: 32,3243 50145 V2T105 DLOAD BMN 038524,001320: 32,3244 03757 CFPA 038525,001321: 32,3245 65344 V2T140 038526,001322: 32,3246 77650 GOTO 038527,001323: 32,3247 65352 V2T145 038528,001324: 038529,001325: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT 038530,001326: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS 038531,001327: # THROUGH X(T2) 038532,001328: 038533,001329: 32,3250 47145 V2T110 DLOAD RTB 038534,001330: 32,3251 31671 1RTEB17 038535,001331: 32,3252 45562 TPMODE 038536,001332: 32,3253 65276 DCOMP PDDL # -1 B17 PL19D 038537,001333: # Page 877 038538,001334: 32,3254 31715 2RTEB1 038539,001335: 32,3255 45257 SR* DSU 038540,001336: 32,3256 20601 0,1 038541,001337: 32,3257 00001 00D 038542,001338: 32,3260 53605 DMP SL* 038543,001339: 32,3261 00035 28D 038544,001340: 32,3262 20172 0 -7,1 038545,001341: 32,3263 76257 SL* TAD 038546,001342: 32,3264 20172 0 -7,1 038547,001343: 32,3265 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D 038548,001344: 32,3266 45562 TPMODE 038549,001345: 32,3267 03722 X(T1) 038550,001346: 32,3270 00001 STORE 00D # X(T1),, B5 038551,001347: 32,3271 77751 TLOAD # PL16D 038552,001348: 32,3272 53040 BMN BZE 038553,001349: 32,3273 65300 V2T115 038554,001350: 32,3274 65300 V2T115 038555,001351: 32,3275 52061 SL GOTO 038556,001352: 32,3276 20210 7 038557,001353: 32,3277 65311 V2T120 038558,001354: 32,3300 50145 V2T115 DLOAD BMN 038559,001355: 32,3301 03761 PHI2 038560,001356: 32,3302 65322 V2T125 038561,001357: 32,3303 77676 DCOMP 038562,001358: 32,3304 17761 STODL PHI2 038563,001359: 32,3305 31705 10RTE 038564,001360: 32,3306 03730 STORE NN1A 038565,001361: 32,3307 77650 GOTO 038566,001362: 32,3310 65322 V2T125 038567,001363: 32,3311 47166 V2T120 SQRT RTB 038568,001364: 32,3312 45713 DPMODE 038569,001365: 32,3313 50125 PDDL BMN # BETA8**.5=X(T1)LIM B5 PL18D 038570,001366: 32,3314 03761 PHI2 038571,001367: 32,3315 65330 V2T130 038572,001368: 32,3316 45545 DLOAD STADR 038573,001369: 32,3317 77760 STORE 14D # X(T1)LIM = X(T1)MAX 038574,001370: 32,3320 77676 DCOMP 038575,001371: 32,3321 00013 STORE 10D # -X(T1)LIM = X(T1)MIN 038576,001372: 32,3322 53145 V2T125 DLOAD BZE 038577,001373: 32,3323 03722 X(T1) 038578,001374: 32,3324 65344 V2T140 038579,001375: 32,3325 52040 BMN GOTO 038580,001376: 32,3326 65344 V2T140 038581,001377: 32,3327 65352 V2T145 038582,001378: 32,3330 53145 V2T130 DLOAD BZE 038583,001379: 32,3331 03722 X(T1) 038584,001380: 32,3332 65341 V2T135 038585,001381: 32,3333 71240 BMN DLOAD # PL16D 038586,001382: 32,3334 65341 V2T135 038587,001383: 32,3335 77626 STADR 038588,001384: # Page 878 038589,001385: 32,3336 77764 STORE 10D # X(T1)LIM = X(T1)MIN 038590,001386: 32,3337 77650 GOTO 038591,001387: 32,3340 65352 V2T145 038592,001388: 32,3341 57545 V2T135 DLOAD DCOMP # PL16D 038593,001389: 32,3342 77626 STADR 038594,001390: 32,3343 77760 STORE 14D # -X(T1)LIM = X(T1)MAX 038595,001391: 32,3344 77745 V2T140 DLOAD 038596,001392: 32,3345 00013 10D 038597,001393: 32,3346 17722 STODL X(T1) # X(T1)MIN = X(T1) 038598,001394: 32,3347 00015 12D 038599,001395: 32,3350 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D 038600,001396: 32,3351 65357 V2T150 038601,001397: 32,3352 77745 V2T145 DLOAD 038602,001398: 32,3353 00017 14D 038603,001399: 32,3354 17722 STODL X(T1) # X(T1)MAX = X(T1) 038604,001400: 32,3355 00015 12D 038605,001401: 32,3356 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D 038606,001402: 32,3357 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR 038607,001403: 32,3360 65500 GAMDV10 038608,001404: 32,3361 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE 038609,001405: 32,3362 03632 RTEDVD 038610,001406: 32,3363 65476 V2T1X 038611,001407: 038612,001408: # CONTINUE IF TIME CRITICAL MODE 038613,001409: 038614,001410: 32,3364 50025 DSU BMN 038615,001411: 32,3365 03706 DV 038616,001412: 32,3366 65371 V2T155 038617,001413: 32,3367 77650 GOTO 038618,001414: 32,3370 65424 V2T175 038619,001415: 32,3371 50145 V2T155 DLOAD BMN 038620,001416: 32,3372 03730 NN1A 038621,001417: 32,3373 65376 V2T160 038622,001418: 32,3374 77650 GOTO 038623,001419: 32,3375 65437 V2T185 038624,001420: 038625,001421: # CONIC TRAJECTORY COMPUTATION 038626,001422: 038627,001423: 32,3376 53145 V2T160 DLOAD BZE 038628,001424: 32,3377 03722 X(T1) 038629,001425: 32,3400 65404 V2T165 038630,001426: 32,3401 52040 BMN GOTO 038631,001427: 32,3402 65404 V2T165 038632,001428: 32,3403 65474 V2T300 038633,001429: 32,3404 53145 V2T165 DLOAD BZE 038634,001430: 32,3405 03757 CFPA 038635,001431: 32,3406 65474 V2T300 038636,001432: 32,3407 71240 BMN DLOAD 038637,001433: 32,3410 65474 V2T300 038638,001434: 32,3411 00017 14D 038639,001435: # Page 879 038640,001436: 32,3412 17722 STODL X(T1) # X(T1)MAX=X(T1) 038641,001437: 32,3413 00015 12D 038642,001438: 32,3414 77676 DCOMP 038643,001439: 32,3415 34021 STCALL 16D # -DX(T1)MAX=DX(T1) 038644,001440: 32,3416 65500 GAMDV10 038645,001441: 32,3417 45345 DLOAD DSU 038646,001442: 32,3420 03632 RTEDVD 038647,001443: 32,3421 03706 DV 038648,001444: 32,3422 77640 BMN 038649,001445: 32,3423 65474 V2T300 038650,001446: 32,3424 71214 V2T175 SET DLOAD 038651,001447: 32,3425 00072 F2RTE 038652,001448: 32,3426 03722 X(T1) 038653,001449: 32,3427 14017 STODL 14D # X(T1)=X(T1)MAX 038654,001450: 32,3430 00015 12D 038655,001451: 32,3431 77676 DCOMP 038656,001452: 32,3432 34021 STCALL 16D # -DX(T1)MAX=DX(T1) 038657,001453: 32,3433 65500 GAMDV10 038658,001454: 32,3434 50145 DLOAD BMN 038659,001455: 32,3435 03730 NN1A 038660,001456: 32,3436 65474 V2T300 038661,001457: 038662,001458: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A 038663,001459: # PRECISION TRAJECTORY 038664,001460: 038665,001461: 32,3437 45345 V2T185 DLOAD DSU 038666,001462: 32,3440 03722 X(T1) 038667,001463: 32,3441 00001 00D 038668,001464: 32,3442 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7 038669,001465: 32,3443 00015 12D 038670,001466: 32,3444 44352 SL1 BDSU 038671,001467: 32,3445 71240 BMN DLOAD 038672,001468: 32,3446 65474 V2T300 038673,001469: 32,3447 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX 038674,001470: 32,3450 03722 STORE X(T1) # X(T1),, = X(T1) 038675,001471: 32,3451 50025 DSU BMN 038676,001472: 32,3452 00017 14D 038677,001473: 32,3453 65461 V2T195 038678,001474: 32,3454 77745 DLOAD 038679,001475: 32,3455 00017 14D 038680,001476: 32,3456 03722 STORE X(T1) # X(T1)MAX = X(T1) 038681,001477: 32,3457 77650 GOTO 038682,001478: 32,3460 65472 V2T205 038683,001479: 32,3461 45345 V2T195 DLOAD DSU 038684,001480: 32,3462 03722 X(T1) 038685,001481: 32,3463 00013 10D 038686,001482: 32,3464 52040 BMN GOTO 038687,001483: 32,3465 65467 V2T200 038688,001484: 32,3466 65472 V2T205 038689,001485: 32,3467 77745 V2T200 DLOAD 038690,001486: # Page 880 038691,001487: 32,3470 00013 10D 038692,001488: 32,3471 03722 STORE X(T1) # X(T1)MIN = X(T1) 038693,001489: 32,3472 77624 V2T205 CALL 038694,001490: 32,3473 65701 DVCALC 038695,001491: 32,3474 77745 V2T300 DLOAD 038696,001492: 32,3475 31677 ZERORTE 038697,001493: 32,3476 77650 V2T1X GOTO 038698,001494: 32,3477 00041 33D 038699,001495: 038700,001496: # Page 881 038701,001497: # X(T1)-DV ITERATOR SUBROUTINE 038702,001498: 038703,001499: # DESCRIPTION 038704,001500: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV. 038705,001501: 038706,001502: # CALLING SEQUENCE 038707,001503: # L CALL 038708,001504: # L+1 GAMDV10 038709,001505: 038710,001506: # NORMAL EXIT MODE 038711,001507: # AT L+2 OF CALLING SEQUENCE 038712,001508: 038713,001509: # ALARM EXIT MODE 038714,001510: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS 038715,001511: 038716,001512: # SUBROUTINES CALLED 038717,001513: # DVCALC 038718,001514: 038719,001515: # ERASABLE INITIALIZATION REQUIRED 038720,001516: # PUSHLIST 038721,001517: # 02D THETA1=BETA5*LAMBDA-1 TP B17 038722,001518: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36 038723,001519: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5 038724,001520: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5 038725,001521: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5 038726,001522: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5 038727,001523: # 16D DX(T1)=ITERATOR INCREMENT DP B5 038728,001524: # MPAC 038729,001525: # NONE 038730,001526: # OTHER 038731,001527: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 038732,001528: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS 038733,001529: # UR1/ UNIT INITIAL VECTOR VECTOR B1 038734,001530: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 038735,001531: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5 038736,001532: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME 038737,001533: 038738,001534: # OUTPUT 038739,001535: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 038740,001536: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS 038741,001537: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5 038742,001538: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS 038743,001539: 038744,001540: # DEBRIS 038745,001541: # PUSHLIST 038746,001542: # 00D X(T1),, 038747,001543: # 02D THETA1 038748,001544: # 05D THETA2 038749,001545: # 08D THETA3 038750,001546: # 10D X(T1)MIN 038751,001547: # 12D DX(T1)MAX 038752,001548: # Page 882 038753,001549: # 14D X(T1)MAX 038754,001550: # 16D DX(T1) 038755,001551: # 22D DV,=PREVIOUS DV DP B7/B5 038756,001552: # 24D BETA9=X(T1)+1.1DX(T1) DP B5 038757,001553: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS 038758,001554: # 32D DVCALC SUBROUTINE RETURN ADDRESS 038759,001555: # 33D V2T100 SUBROUTINE RETURN ADDRESS 038760,001556: 038761,001557: 32,3500 77620 GAMDV10 STQ 038762,001558: 32,3501 00037 31D 038763,001559: 32,3502 45001 SETPD CALL 038764,001560: 32,3503 00023 18D # PL18D 038765,001561: 32,3504 65701 DVCALC 038766,001562: 32,3505 45345 DLOAD DSU 038767,001563: 32,3506 00017 14D 038768,001564: 32,3507 00013 10D 038769,001565: 32,3510 77600 BOV 038770,001566: 32,3511 65531 GAMDV20 038771,001567: 32,3512 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D 038772,001568: 32,3513 31772 EPC9RTE 038773,001569: 32,3514 71240 BMN DLOAD 038774,001570: 32,3515 65677 GAMDVX # BOUNDS CLOSE TOGETHER 038775,001571: 32,3516 00023 18D 038776,001572: 32,3517 50025 DSU BMN # BETA8-DX(T1)MAX 038777,001573: 32,3520 00015 12D 038778,001574: 32,3521 65525 GAMDV15 038779,001575: 32,3522 52001 SETPD GOTO # PL18D 038780,001576: 32,3523 00023 18D 038781,001577: 32,3524 65531 GAMDV20 038782,001578: 32,3525 77745 GAMDV15 DLOAD # PL18D 038783,001579: 32,3526 70565 SIGN SR1 038784,001580: 32,3527 00021 16D 038785,001581: 32,3530 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1) 038786,001582: 32,3531 77745 GAMDV20 DLOAD 038787,001583: 32,3532 31701 M144RTE 038788,001584: 32,3533 03732 STORE NN2 038789,001585: 32,3534 43345 GAMDV25 DLOAD DAD 038790,001586: 32,3535 03732 NN2 038791,001587: 32,3536 31675 1RTEB28 038792,001588: 32,3537 67240 BMN SLOAD 038793,001589: 32,3540 65544 GAMDV30 038794,001590: 32,3541 31735 OCT605 038795,001591: 32,3542 77650 GOTO 038796,001592: 32,3543 65476 V2T1X 038797,001593: 32,3544 03732 GAMDV30 STORE NN2 # NN2=NN2+1 038798,001594: 32,3545 65345 DLOAD PDDL # X(T1)=X(T1), R5 PL20D 038799,001595: 32,3546 03722 X(T1) 038800,001596: 32,3547 03706 DV 038801,001597: 32,3550 43325 PDDL DAD # DV=DV, B7/B5 PL22D 038802,001598: 32,3551 03722 X(T1) 038803,001599: 32,3552 00021 16D 038804,001600: # Page 883 038805,001601: 32,3553 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5 038806,001602: 32,3554 65701 DVCALC 038807,001603: 32,3555 71214 BON DLOAD 038808,001604: 32,3556 00312 F2RTE 038809,001605: 32,3557 65573 GAMDV35 038810,001606: 32,3560 03706 DV 038811,001607: 32,3561 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE 038812,001608: 32,3562 00025 20D 038813,001609: 32,3563 65570 GAMDV33 038814,001610: 32,3564 57545 GAMDV32 DLOAD DCOMP 038815,001611: 32,3565 00021 16D 038816,001612: 32,3566 77742 SR1 038817,001613: 32,3567 00021 STORE 16D 038818,001614: 32,3570 52001 GAMDV33 SETPD GOTO 038819,001615: 32,3571 00023 18D # PL18D 038820,001616: 32,3572 65636 GAMDV50 038821,001617: 038822,001618: # TIME CRITICAL MODE 038823,001619: 038824,001620: 32,3573 45345 GAMDV35 DLOAD DSU 038825,001621: 32,3574 03632 RTEDVD 038826,001622: 32,3575 03706 DV 038827,001623: 32,3576 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D 038828,001624: 32,3577 51545 GAMDV40 DLOAD ABS # DV, PL24D 038829,001625: 32,3600 00025 20D 038830,001626: 32,3601 50025 DSU BMN 038831,001627: 32,3602 31774 EPC10RTE 038832,001628: 32,3603 65677 GAMDVX 038833,001629: 32,3604 71204 GAMDV45 BOVB DLOAD 038834,001630: 32,3605 57343 TCDANZIG # ASSURE OVFIND IS 0 038835,001631: 32,3606 60221 BDSU NORM 038836,001632: 32,3607 03706 DV 038837,001633: 32,3610 00050 X2 038838,001634: 32,3611 77725 PDDL # DV-DV, B7/B5-N2 PL22D 038839,001635: 32,3612 70501 NORM SR1 # DVERR B8/B6-N1 038840,001636: 32,3613 00047 X1 038841,001637: 32,3614 65271 DDV PDDL # DVERR/ DV - DV 038842,001638: 32,3615 41221 BDSU DMP # PL18D 038843,001639: 32,3616 03722 X(T1) 038844,001640: 32,3617 77660 XSU,1 038845,001641: 32,3620 00047 X2 038846,001642: 32,3621 00021 STORE 16D # PRESERV SIGN IF OVERFLOW 038847,001643: 32,3622 40057 SR* BOV 038848,001644: 32,3623 20600 0 -1,1 038849,001645: 32,3624 65632 GAMDV47 038850,001646: 32,3625 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1) 038851,001647: 32,3626 45246 ABS DSU 038852,001648: 32,3627 00015 12D 038853,001649: 32,3630 77640 BMN 038854,001650: 32,3631 65636 GAMDV50 038855,001651: # Page 884 038856,001652: 32,3632 75345 GAMDV47 DLOAD SIGN 038857,001653: 32,3633 00015 12D 038858,001654: 32,3634 00021 16D 038859,001655: 32,3635 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1) 038860,001656: 038861,001657: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS 038862,001658: 038863,001659: 32,3636 41345 GAMDV50 DLOAD DMP 038864,001660: 32,3637 00021 16D 038865,001661: 32,3640 31711 1.1RTEB1 038866,001662: 32,3641 43352 SL1 DAD 038867,001663: 32,3642 03722 X(T1) 038868,001664: 32,3643 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5 038869,001665: 32,3644 50025 DSU BMN 038870,001666: 32,3645 00017 14D 038871,001667: 32,3646 65655 GAMDV55 038872,001668: 32,3647 45345 DLOAD DSU 038873,001669: 32,3650 00017 14D 038874,001670: 32,3651 03722 X(T1) 038875,001671: 32,3652 77742 SR1 038876,001672: 32,3653 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5 038877,001673: 32,3654 65670 GAMDV65 038878,001674: 32,3655 45345 GAMDV55 DLOAD DSU 038879,001675: 32,3656 00031 24D 038880,001676: 32,3657 00013 10D 038881,001677: 32,3660 52040 BMN GOTO 038882,001678: 32,3661 65663 GAMDV60 038883,001679: 32,3662 65670 GAMDV65 038884,001680: 32,3663 45345 GAMDV60 DLOAD DSU 038885,001681: 32,3664 00013 10D 038886,001682: 32,3665 03722 X(T1) 038887,001683: 32,3666 77742 SR1 038888,001684: 32,3667 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5 038889,001685: 32,3670 51545 GAMDV65 DLOAD ABS 038890,001686: 32,3671 00021 16D 038891,001687: 32,3672 50025 DSU BMN 038892,001688: 32,3673 31772 EPC9RTE 038893,001689: 32,3674 65677 GAMDVX 038894,001690: 32,3675 77650 GOTO 038895,001691: 32,3676 65534 GAMDV25 038896,001692: 32,3677 77650 GAMDVX GOTO 038897,001693: 32,3700 00037 31D 038898,001694: 038899,001695: # Page 885 038900,001696: # DV CALCULATION SUBROUTINE 038901,001697: 038902,001698: # INPUT 038903,001699: # PUSHLIST 038904,001700: # 02D THETA1=BETA5*LAMBDA-1 TP B17 038905,001701: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36 038906,001702: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5 038907,001703: # OTHER 038908,001704: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5 038909,001705: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS 038910,001706: # UR1/ UNIT INITIAL VECTOR VECTOR B1 038911,001707: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1 038912,001708: 038913,001709: # OUTPUT 038914,001710: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS 038915,001711: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS 038916,001712: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS 038917,001713: 038918,001714: # DEBRIS 038919,001715: # 28D THETA3*PCON**.5 DP B10/B8-N1 038920,001716: # C(PUSHLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5 038921,001717: # 32D DVCALC SUBROUTINE RETURN ADDRESS 038922,001718: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D 038923,001719: 038924,001720: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC 038925,001721: 038926,001722: 32,3701 71220 DVCALC STQ DLOAD 038927,001723: 32,3702 00040 32D 038928,001724: 32,3703 03722 X(T1) 038929,001725: 32,3704 54316 DSQ SR 038930,001726: 32,3705 20610 7 038931,001727: 32,3706 76276 DCOMP TAD 038932,001728: 32,3707 00003 02D 038933,001729: 32,3710 41501 NORM PUSH 038934,001730: 32,3711 00047 X1 038935,001731: 32,3712 60351 TLOAD NORM 038936,001732: 32,3713 00006 05D 038937,001733: 32,3714 00050 X2 038938,001734: 32,3715 70434 RTB SR1 038939,001735: 32,3716 45713 DPMODE 038940,001736: 32,3717 56264 XSU,2 DDV 038941,001737: 32,3720 00046 X1 038942,001738: 32,3721 77657 SR* 038943,001739: 32,3722 57170 6,2 038944,001740: 32,3723 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26 038945,001741: 32,3724 41366 SQRT DMP 038946,001742: 32,3725 00011 08D 038947,001743: 32,3726 77701 NORM 038948,001744: 32,3727 00047 X1 038949,001745: 32,3730 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1 038950,001746: # Page 886 038951,001747: 32,3731 03722 X(T1) 038952,001748: 32,3732 74301 NORM VXSC 038953,001749: 32,3733 00050 X2 038954,001750: 32,3734 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2 038955,001751: 32,3735 74274 XAD,2 VXSC 038956,001752: 32,3736 00046 X1 038957,001753: 32,3737 00035 28D 038958,001754: 32,3740 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5 038959,001755: 32,3741 57207 0 -9D,2 # + 038960,001756: 32,3742 03746 UH/ 038961,001757: 32,3743 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5 038962,001758: 32,3744 00035 28D 038963,001759: 32,3745 20575 0 -4,1 # = 038964,001760: 32,3746 45455 VAD STADR 038965,001761: 32,3747 74077 STORE V2(T1)/ # V2(T1)/ B7/B5 038966,001762: 32,3750 51451 VSU ABVAL 038967,001763: 32,3751 03672 V(T1)/ 038968,001764: 32,3752 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5 038969,001765: 32,3753 77650 GOTO 038970,001766: 32,3754 00040 32D 038971,001767: 038972,001768: # Page 887 038973,001769: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1) 038974,001770: 038975,001771: # INPUT 038976,001772: # PUSHLIST 038977,001773: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28 038978,001774: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28 038979,001775: # 28D BETA5=LAMBDA*BETA1 DP B9 038980,001776: # OTHER 038981,001777: # RCON DP B29/B27 038982,001778: # R(T1) DP B29/B27 038983,001779: 038984,001780: # OUTPUT 038985,001781: # MPAC 038986,001782: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5 038987,001783: 038988,001784: # DEBRIS 038989,001785: # PUSHLIST 038990,001786: # C(PUSHLOC) MA-RCON DP (B30/28)-N1 038991,001787: # C(PUSHLOC) +2 MA DP B30/B28 038992,001788: # X1 NORMALIZATION FACTOR FOR MA-RCON 038993,001789: # 20D XT1LIM SUBROUTINE RETURN ADDRESS 038994,001790: 038995,001791: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM 038996,001792: 038997,001793: 27,2000 SETLOC RTE2 038998,001794: 27,2000 BANK 038999,001795: 27,2633 71220 XT1LIM STQ DLOAD 039000,001796: 27,2634 00024 20D 039001,001797: 27,2635 03636 RCON 039002,001798: 27,2636 44342 SR1 BDSU 039003,001799: 27,2637 65301 NORM PDDL # MA-RCON B30-N1 039004,001800: 27,2640 00050 X2 039005,001801: 27,2641 70525 PDDL SR1 039006,001802: 27,2642 03646 R(T1) 039007,001803: 27,2643 56221 BDSU DDV 039008,001804: 27,2644 41257 SL* DMP 039009,001805: 27,2645 57577 0 -1,2 039010,001806: 27,2646 00035 28D 039011,001807: 27,2647 77657 SL* 039012,001808: 27,2650 20172 0 -7,1 039013,001809: 27,2651 50025 DSU BMN # (BETA5(MA-R(T1))/(MA-RCON))-1 B10 039014,001810: 27,2652 31663 1RTEB10 039015,001811: 27,2653 56656 XT1LIM5 039016,001812: 27,2654 52166 SQRT GOTO 039017,001813: 27,2655 56660 XT1LIMX 039018,001814: 27,2656 77745 XT1LIM5 DLOAD 039019,001815: 27,2657 31677 ZERORTE 039020,001816: 27,2660 77650 XT1LIMX GOTO 039021,001817: 27,2661 00024 20D 039022,001818: 039023,001819: # Page 888 039024,001820: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES 039025,001821: 039026,001822: 36,3250 BANK 36 039027,001823: 34,2000 SETLOC RTECON 039028,001824: 34,2000 BANK 039029,001825: 039030,001826: 34,3652 20000 00000 1RTEB1 2DEC 1 B-1 039031,001827: 34,3654 10000 00000 1RTEB2 2DEC 1 B-2 039032,001828: 34,3656 04000 00000 1RTEB3 2DEC 1 B-3 039033,001829: 34,3660 02000 00000 1RTEB4 2DEC 1 B-4 039034,001830: 34,3662 00020 00000 1RTEB10 2DEC 1 B-10 039035,001831: 34,3664 00004 00000 1RTEB12 2DEC 1 B-12 039036,001832: 34,3666 00002 00000 1RTEB13 2DEC 1 B-13 039037,001833: 34,3670 00000 04000 1RTEB17 2DEC 1 B-17 039038,001834: 34,3672 00000 00010 1RTEB25 2DEC 1 B-25 039039,001835: 34,3674 00000 00001 1RTEB28 2DEC 1 B-28 039040,001836: 34,3676 00000 00000 ZERORTE 2DEC 0 B-28 039041,001837: 34,3700 77777 77557 M144RTE 2DEC -144 B-28 039042,001838: 34,3702 77777 77760 M15RTE 2DEC -15 B-28 039043,001839: 34,3704 00000 00012 10RTE 2DEC 10 B-28 039044,001840: 34,3706 54631 63145 M.6RTE 2DEC -.6 039045,001841: 34,3710 21463 06315 1.1RTEB1 2DEC 1.1 B-1 039046,001842: 34,3712 77777 77771 M6RTEB28 2DEC -6 B-28 039047,001843: 34,3714 37777 37777 2RTEB1 2OCT 3777737777 039048,001844: 34,3716 77777 77766 M9RTEB28 2DEC -9 B-28 039049,001845: 34,3720 77777 77767 M8RTEB28 2DEC -8 B-28 039050,001846: 34,3722 00000 35610 30480RTE 2DEC 30480 B-29 039051,001847: 34,3724 36703 03743 VCSPS 2DEC 30.8811 B-5 039052,001848: # Page 889 039053,001849: 34,3726 33041 37714 VCRCS 2DEC 27.0664 B-5 039054,001850: 34,3730 00003 13241 MDOTRCS 2DEC .0016375 B-3 039055,001851: 34,3732 20000 00000 CSUBT 2DEC .5 039056,001852: 34,3734 00605 OCT605 OCT 00605 039057,001853: 34,3735 00612 OCT612 OCT 00612 039058,001854: 34,3736 00613 OCT613 OCT 00613 039059,001855: 34,3737 40214 45266 MCOS7.5 2DEC -.99144486 039060,001856: 34,3741 73645 56536 MSIN7.5 2DEC -.13052619 039061,001857: 34,3743 70467 71205 MCOS22.5 2DEC -.92387953 B-2 039062,001858: 34,3745 16525 12525 THETA165 2DEC .4583333333 039063,001859: 34,3747 22525 12525 THETA210 2DEC .5833333333 039064,001860: 34,3751 17775 06676 EPC1RTE 2DEC .99966 B-1 039065,001861: 34,3753 00000 00062 EPC2RTE 2DEC 100 B-29 039066,001862: 34,3755 00020 14223 EPC3RTE 2DEC .001 039067,001863: 34,3757 00000 05174 EPC4RTE 2DEC .00001 039068,001864: 34,3761 00002 21727 EPC5RTE 2DEC .01 B-6 039069,001865: 34,3763 00000 01654 EPC6RTE 2DEC .000007 B-1 039070,001866: 34,3765 00000 00764 EPC7RTE 2DEC 1000 B-29 039071,001867: 34,3767 00040 30447 EPC8RTE 2DEC .002 039072,001868: 34,3771 00000 00010 EPC9RTE 2DEC 1 B-25 039073,001869: 34,3773 00000 00322 EPC10RTE 2DEC .0001 B-7 039074,001870: 039075,001871: 35,3755 BANK 35 039076,001872: 35,2000 SETLOC RTECON1 039077,001873: 35,2000 BANK 039078,001874: 039079,001875: 35,3755 27657 01000 C4RTE 2DEC 8 E8 B-30 039080,001876: 35,3757 00325 23740 K1RTE 2DEC 7 E6 B-29 039081,001877: 35,3761 00306 06614 K2RTE 2DEC 6495000 B-29 039082,001878: 35,3763 76027 70156 K3RTE 2DEC -.06105 039083,001879: # Page 890 039084,001880: 35,3765 74517 54131 K4RTE 2DEC -.10453 039085,001881: 35,3767 30276 05001 RTMURTE 2DEC 199650.501 B-18 039086,001882: 35,3771 00003 27040 E3RTE 2DEC 121920 B-29 039087,001883: End of include-file P37_P70.agc. Parent file is MAIN.agc