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