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