Source Code

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