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