Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
038206,000002: ## Copyright: Public domain.
038207,000003: ## Filename: P37,P70.agc
038208,000004: ## Purpose: A section of Comanche revision 072.
038209,000005: ## It is part of the reconstructed source code for the first
038210,000006: ## release of the software for the Command Module's (CM) Apollo
038211,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
038212,000008: ## of this program are available; instead, this file was recreated
038213,000009: ## from a printout of Comanche 055, binary dumps of a set of
038214,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
038215,000011: ## and 072. It has been adapted such that the resulting bugger words
038216,000012: ## exactly match those specified for Comanche 072 in NASA drawing
038217,000013: ## 2021153G, which gives relatively high confidence that the
038218,000014: ## reconstruction is correct.
038219,000015: ## Assembler: yaYUL
038220,000016: ## Contact: Ron Burkey <info@sandroid.org>.
038221,000017: ## Website: www.ibiblio.org/apollo/index.html
038222,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
038223,000019: ## 2024-05-14 MAS Implemented fix for anomaly COM-27, "V32E
038224,000020: ## response to FLV16N45 in P37 results in
038225,000021: ## indeterminate program transfer".
038226,000022:
038227,000023: 31,3704 BANK 31
038228,000024: 36,2000 SETLOC RTE1
038229,000025: 36,2000 BANK
038230,000026:
038231,000027: 36,2466 E7,1631 EBANK= RTEDVD
038232,000028: 36,2466 COUNT 31/P37
038233,000029:
038234,000030: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
038235,000031:
038236,000032: # DESCRIPTION
038237,000033: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
038238,000034: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
038239,000035: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
038240,000036: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
038241,000037: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
038242,000038:
038243,000039: # CALLING SEQUENCE
038244,000040: # L TC P37
038245,000041:
038246,000042: # SUBROUTINES CALLED
038247,000043: # PREC100
038248,000044: # V2T100
038249,000045: # RTENCK2
038250,000046: # RTENCK3
038251,000047: # TIMERAD
038252,000048: # PARAM
038253,000049: # V2T100
038254,000050: # GAMDV10
038255,000051: # XT1LIM
038256,000052: # DVCALC
038257,000053: # RTENCK1
038258,000054: # INTSTALL
038259,000055: # INTEGRVS
038260,000056: # RTEVN
038261,000057: # RTEDISP
038262,000058: # TMRAD100
038263,000059: # AUGEKUGL
038264,000060: # LAT-LONG
038265,000061: # TMRAD100
038266,000062: # TIMERAD
038267,000063: # INVC100
038268,000064: # CSMPREC
038269,000065: # GETERAD
038270,000066: # TIMETHET
038271,000067: # P370ALRM
038272,000068: # VN1645
038273,000069: # POLY
038274,000070:
038275,000071: # ERASABLE INITIALIZATION REQUIRED
038276,000072: # CSM STATE VECTOR
038277,000073: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
038278,000074:
038279,000075: # ASTRONAUT INPUT
038280,000076: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
038281,000077: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
038282,000078: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
038283,000079: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
038284,000080:
038285,000081: # OUTPUT
038286,000082: # CONIC OR PRECISION TRAJECTORY DISPLAY
038287,000083: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
038288,000084: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
038289,000085: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
038290,000086: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
038291,000087: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
038292,000088: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
038293,000089: # TARGETING COMPUTATION DISPLAY
038294,000090: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
038295,000091: # TTOGO TIME FROM TIG DP B28 CS
038296,000092: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
038297,000093: # THRUST PROGRAM COMMUNICATION
038298,000094: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
038299,000095: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
038300,000096: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
038301,000097: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
038302,000098: # TPASS4 REENTRY TIME DP B28 CS
038303,000099:
038304,000100: 36,2466 05426 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
038305,000101: 36,2467 00004 OCT 4
038306,000102:
038307,000103: 36,2470 06006 TC INTPRET
038308,000104: 36,2471 66170 AXT,1 SXA,1
038309,000105: 36,2472 04000 OCT 04000
038310,000106: 36,2473 03424 ECSTEER
038311,000107: 36,2474 77745 DLOAD
038312,000108: 36,2475 15334 ZEROVECS
038313,000109: 36,2476 03767 STORE VPRED
038314,000110: 36,2477 03771 STORE GAMMAEI
038315,000111: 36,2500 77776 EXIT
038316,000112: 36,2501 33252 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
038317,000113: 36,2502 03241 TCR P370GOF # OVERLAYED WITH TIG
038318,000114: 36,2503 12501 TCF -2 # DESPLAY NEW DATA
038319,000115: 36,2504 33256 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
038320,000116: 36,2505 03215 TCR P37GFRB1 # AND DESIRED DELTA V IN RTEDVD
038321,000117: 36,2506 12504 TCF -2 # DISPLAY NEW DATA
038322,000118: 36,2507 06006 RTE299 TC INTPRET
038323,000119: 36,2510 71331 SSP DLOAD
038324,000120: 36,2511 00122 OVFIND
038325,000121: 36,2512 00000 0
038326,000122: 36,2513 03767 VPRED
038327,000123: 36,2514 17632 STODL RTEDVD
038328,000124: 36,2515 03771 GAMMAEI
038329,000125: 36,2516 17634 STODL RTEGAM2D
038330,000126: 36,2517 33514 1RTEB13
038331,000127: 36,2520 17735 STODL CONICX1
038332,000128: 36,2521 33620 C4RTE
038333,000129: 36,2522 37652 STCALL MAMAX1
038334,000130: 36,2523 64450 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
038335,000131: 36,2524 71214 CLEAR DLOAD
038336,000132: 36,2525 02662 SLOWFLG
038337,000133: 36,2526 03632 RTEDVD
038338,000134: 36,2527 51444 BPL ABS
038339,000135: 36,2530 74540 RTE317
038340,000136: 36,2531 03632 STORE RTEDVD
038341,000137: 36,2532 45345 DLOAD DSU
038342,000138: 36,2533 03646 R(T1)
038343,000139: 36,2534 33622 K1RTE
038344,000140: 36,2535 43040 BMN SET
038345,000141: 36,2536 74540 RTE317
038346,000142: 36,2537 02462 SLOWFLG
038347,000143: 36,2540 77545 RTE317 DLOAD EXIT
038348,000144: 36,2541 03646 R(T1)
038349,000145: 36,2542 07171 TC POLY
038350,000146: 36,2543 00002 DEC 2 B-14
038351,000147: 36,2544 02544 35436 2DEC 181000434. B-31
038352,000148: 36,2546 14040 05066 2DEC 1.50785145 B-2
038353,000149: 36,2550 44052 60030 2DEC* -6.49993057 E-9 B27*
038354,000150: 36,2552 26415 25057 2DEC* 9.76938926 E-18 B56*
038355,000151: 36,2554 06006 TC INTPRET
038356,000152: 36,2555 77752 SL1
038357,000153: 36,2556 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
038358,000154: 36,2557 33544 M9RTEB28
038359,000155: 36,2560 17730 STODL NN1A
038360,000156: 36,2561 33624 K2RTE
038361,000157: 36,2562 17636 RTE320 STODL RCON # RCON=K2
038362,000158: 36,2563 03634 RTEGAM2D
038363,000159: 36,2564 44254 BZE BDSU
038364,000160: 36,2565 74574 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
038365,000161: 36,2566 33502 1RTEB2
038366,000162: 36,2567 71406 PUSH COS # PL02D
038367,000163: 36,2570 73525 PDDL SIN
038368,000164: 36,2571 45465 BDDV STADR # PL00D
038369,000165: 36,2572 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
038370,000166: 36,2573 74607 RTE360
038371,000167: 36,2574 45345 RTE340 DLOAD DSU
038372,000168: 36,2575 03646 R(T1)
038373,000169: 36,2576 33622 K1RTE
038374,000170: 36,2577 71240 BMN DLOAD
038375,000171: 36,2600 74604 RTE350
038376,000172: 36,2601 33630 K4RTE
038377,000173: 36,2602 37726 STCALL X(T2) # X(T2)=K4
038378,000174: 36,2603 74607 RTE360
038379,000175: 36,2604 77745 RTE350 DLOAD
038380,000176: 36,2605 33626 K3RTE
038381,000177: 36,2606 03726 STORE X(T2) # X(T2)=K3
038382,000178: 36,2607 77624 RTE360 CALL
038383,000179: 36,2610 65075 V2T100
038384,000180: 36,2611 52054 BZE GOTO
038385,000181: 36,2612 74614 RTE367
038386,000182: 36,2613 74776 RTEALRM
038387,000183: 36,2614 77775 RTE367 VLOAD
038388,000184: 36,2615 03640 R(T1)/
038389,000185: 36,2616 16657 STODL RVEC
038390,000186: 36,2617 03636 RCON
038391,000187: 36,2620 26760 STOVL RDESIRED
038392,000188: 36,2621 03700 V2(T1)/
038393,000189: 36,2622 36746 STCALL VVEC
038394,000190: 36,2623 64277 TMRAD100
038395,000191: 36,2624 77615 DAD
038396,000192: 36,2625 03716 T1
038397,000193: 36,2626 17736 STODL T2
038398,000194: 36,2627 03634 RTEGAM2D
038399,000195: 36,2630 52054 BZE GOTO
038400,000196: 36,2631 74633 RTE369
038401,000197: 36,2632 74655 RTE372
038402,000198: 36,2633 51575 RTE369 VLOAD ABVAL
038403,000199: 36,2634 03710 V(T2)/
038404,000200: 36,2635 77776 EXIT
038405,000201: 36,2636 07171 TC POLY
038406,000202: 36,2637 00002 DEC 2 B-14
038407,000203: 36,2640 00000 00000 2DEC 0 B-28
038408,000204: 36,2642 47021 65002 2DEC -4.8760771 E-2 B4
038409,000205: 36,2644 35610 07722 2DEC 4.5419476 E-4 B11
038410,000206: 36,2646 63772 63276 2DEC -1.4317675 E-6 B18
038411,000207:
038412,000208: 36,2650 06006 TC INTPRET
038413,000209: 36,2651 77615 DAD
038414,000210: 36,2652 01346 RTED1
038415,000211: 36,2653 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
038416,000212: 36,2654 74657 RTE373
038417,000213: 36,2655 77745 RTE372 DLOAD # X(T2),=X(T2)
038418,000214: 36,2656 03726 X(T2)
038419,000215: 36,2657 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
038420,000216: 36,2660 03726 X(T2)
038421,000217: 36,2661 53575 VLOAD UNIT
038422,000218: 36,2662 03656 R(T2)/ # B58
038423,000219: 36,2663 36152 STCALL ALPHAV
038424,000220: 36,2664 26513 GETERAD
038425,000221: 36,2665 77615 DAD
038426,000222: 36,2666 33634 E3RTE
038427,000223: 36,2667 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
038428,000224: 36,2670 03636 RCON
038429,000225: 36,2671 45246 ABS DSU
038430,000226: 36,2672 33600 EPC2RTE
038431,000227: 36,2673 52040 BMN GOTO
038432,000228: 36,2674 74676 RTE374
038433,000229: 36,2675 74703 RTE375
038434,000230: 36,2676 51545 RTE374 DLOAD ABS
038435,000231: 36,2677 00001 00D
038436,000232: 36,2700 50025 DSU BMN
038437,000233: 36,2701 33602 EPC3RTE
038438,000234: 36,2702 74753 P37E
038439,000235: 36,2703 43345 RTE375 DLOAD DAD
038440,000236: 36,2704 03730 NN1A
038441,000237: 36,2705 33522 1RTEB28
038442,000238: 36,2706 67240 BMN SLOAD
038443,000239: 36,2707 74713 RTE380
038444,000240: 36,2710 33562 OCT605
038445,000241: 36,2711 77650 GOTO
038446,000242: 36,2712 74776 RTEALRM # TOO MANY ITERATIONS
038447,000243: 36,2713 03730 RTE380 STORE NN1A
038448,000244: 36,2714 53025 DSU BZE
038449,000245: 36,2715 33546 M8RTEB28
038450,000246: 36,2716 74734 RTE385
038451,000247: 36,2717 45345 DLOAD DSU
038452,000248: 36,2720 00001 00D
038453,000249: 36,2721 03666 DRCON
038454,000250: 36,2722 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
038455,000251: 36,2723 00047 X1
038456,000252: 36,2724 03670 RPRE'
038457,000253: 36,2725 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
038458,000254: 36,2726 03726 X(T2)
038459,000255: 36,2727 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
038460,000256: 36,2730 00001 00D
038461,000257: 36,2731 20201 0,1
038462,000258: 36,2732 77650 GOTO
038463,000259: 36,2733 74736 RTE390
038464,000260: 36,2734 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
038465,000261: 36,2735 00001 00D
038466,000262: 36,2736 14021 RTE390 STODL 16D # DX(T2) PL02D
038467,000263: 36,2737 77626 STADR
038468,000264: 36,2740 60141 STODL RCON # RCON=RCON,
038469,000265: 36,2741 77600 BOV
038470,000266: 36,2742 74607 RTE360
038471,000267: 36,2743 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
038472,000268: 36,2744 03726 X(T2)
038473,000269: 36,2745 17670 STODL RPRE' # X(T2)PRI=X(T2)
038474,000270: 36,2746 00021 16D
038475,000271: 36,2747 77615 DAD
038476,000272: 36,2750 03726 X(T2)
038477,000273: 36,2751 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
038478,000274: 36,2752 74607 RTE360 # REITERATE
038479,000275: 36,2753 77624 P37E CALL # DISPLAY CONIC SOLUTION
038480,000276: 36,2754 75002 RTEVN
038481,000277: 36,2755 41345 RTE505 DLOAD DMP
038482,000278: 36,2756 03720 PCON
038483,000279: 36,2757 03754 BETA1
038484,000280: 36,2760 53021 BDSU BZE
038485,000281: 36,2761 03636 RCON
038486,000282: 36,2762 74770 RTE510
038487,000283: 36,2763 71240 BMN DLOAD
038488,000284: 36,2764 74770 RTE510
038489,000285: 36,2765 33502 1RTEB2
038490,000286: 36,2766 77650 GOTO # ENTRY NEAR APOGEE
038491,000287: 36,2767 74772 RTE515
038492,000288: 36,2770 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
038493,000289: 36,2771 33502 1RTEB2
038494,000290: 36,2772 37761 RTE515 STCALL PHI2
038495,000291: 36,2773 64541 PREC100 # PRECISION TRAJECTORY COMPUTATION
038496,000292: 36,2774 77654 RTE625 BZE
038497,000293: 36,2775 75030 P37G
038498,000294: 36,2776 77624 RTEALRM CALL
038499,000295: 36,2777 64262 P370ALRM
038500,000296: 36,3000 77776 EXIT
038501,000297: 36,3001 12466 TCF P37 # RECYCLE AFTER ALARM DISPLAY
038502,000298:
038503,000299: # RETURN TO EARTH DISPLAY SUBROUTINE
038504,000300:
038505,000301: 36,3002 45020 RTEVN STQ CALL
038506,000302: 36,3003 03763 VNSTORE
038507,000303: 36,3004 64316 RTEDISP # DISPLAY PREPARATION
038508,000304: 36,3005 77776 EXIT
038509,000305: 36,3006 33254 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
038510,000306: 36,3007 03225 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
038511,000307: 36,3010 35031 CAF FOUR
038512,000308: 36,3011 03221 TCR 37BLANK +1
038513,000309: 36,3012 13017 TCF +5
038514,000310: 36,3013 12466 TCF P37 # RECYCLE
038515,000311: 36,3014 33255 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
038516,000312: 36,3015 03241 TCR P370GOF
038517,000313: 36,3016 12466 TCF P37 # RECYCLE
038518,000314: 36,3017 33256 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
038519,000315: 36,3020 03215 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
038520,000316: 36,3021 12466 TCF P37 # RECYCLE
038521,000317: 36,3022 33257 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
038522,000318: 36,3023 03241 TCR P370GOF
038523,000319: 36,3024 12466 TCF P37 # RECYCLE
038524,000320: 36,3025 06006 TCR INTPRET
038525,000321: 36,3026 77650 GOTO
038526,000322: 36,3027 03763 VNSTORE
038527,000323:
038528,000324: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
038529,000325:
038530,000326: 36,3030 77624 P37G CALL
038531,000327: 36,3031 75002 RTEVN
038532,000328: 36,3032 77776 EXIT
038533,000329: 36,3033 35037 P37N CAF SEVEN
038534,000330: 36,3034 55131 TS OPTION1
038535,000331: 36,3035 35033 CAF ONE
038536,000332: 36,3036 55132 TS OPTION2
038537,000333: 36,3037 33253 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
038538,000334: 36,3040 03241 TCR P370GOF
038539,000335: 36,3041 13037 TCF -2 # RECYCLE
038540,000336: 36,3042 06006 TC INTPRET # PROCEED
038541,000337: 36,3043 67201 SETPD SLOAD
038542,000338: 36,3044 00001 00D
038543,000339: 36,3045 01133 OPTION2
038544,000340: 36,3046 53025 DSU BZE
038545,000341: 36,3047 33514 1RTEB13
038546,000342: 36,3050 75057 P37Q
038547,000343: 36,3051 60335 SLOAD NORM # SPS
038548,000344: 36,3052 00111 EMDOT
038549,000345: 36,3053 00047 X1
038550,000346: 36,3054 52125 PDDL GOTO
038551,000347: 36,3055 33552 VCSPS
038552,000348: 36,3056 75070 P37T
038553,000349: 36,3057 43145 P37Q DLOAD BON # RCS
038554,000350: 36,3060 33556 MDOTRCS
038555,000351: 36,3061 00700 NJETSFLG
038556,000352: 36,3062 75064 P37R
038557,000353: 36,3063 77752 SL1
038558,000354: 36,3064 77752 P37R SL1
038559,000355: 36,3065 65301 NORM PDDL
038560,000356: 36,3066 00047 X1
038561,000357: 36,3067 33554 VCRCS
038562,000358: 36,3070 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
038563,000359: 36,3071 03706 DV
038564,000360: 36,3072 77776 EXIT
038565,000361: 36,3073 07171 TC POLY
038566,000362: 36,3074 00001 DEC 1 B-14
038567,000363: 36,3075 00001 05070 2DEC 5.66240507 E-4 B-3
038568,000364: 36,3077 17527 36700 2DEC 9.79487897 E-1 B-1
038569,000365: 36,3101 47114 70670 2DEC -.388281955 B1
038570,000366: 36,3103 06006 TC INTPRET
038571,000367: 36,3104 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
038572,000368: 36,3105 03076 WEIGHT/G
038573,000369: 36,3106 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
038574,000370: 36,3107 41257 SL* DMP
038575,000371: 36,3110 20165 0 -12D,1
038576,000372: 36,3111 33560 CSUBT
038577,000373: 36,3112 77621 BDSU
038578,000374: 36,3113 03716 T1
038579,000375: 36,3114 03413 STORE TIG # TIG=T1-CT*DTB B28
038580,000376: 36,3115 77776 EXIT
038581,000377: 36,3116 33252 CAF V6N33RTE # DISPLAY BIASED TIG
038582,000378: 36,3117 03241 TCR P370GOF
038583,000379: 36,3120 13116 TCF -2
038584,000380: 36,3121 35035 CAF ZERO
038585,000381: 36,3122 55125 TS VHFCNT
038586,000382: 36,3123 55126 TS TRKMKCNT
038587,000383: 36,3124 06006 TC INTPRET
038588,000384: 36,3125 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
038589,000385: 36,3126 63704 RTENCK1
038590,000386: 36,3127 53575 VLOAD UNIT # PL00D
038591,000387: 36,3130 03656 R(T2)/
038592,000388: 36,3131 74315 PDVL VXSC # UR2 B1 PL06D
038593,000389: 36,3132 03740 UR1/
038594,000390: 36,3133 33564 MCOS7.5
038595,000391: 36,3134 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
038596,000392: 36,3135 03746 UH/
038597,000393: 36,3136 33566 MSIN7.5
038598,000394: 36,3137 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
038599,000395: 36,3140 50015 DAD BMN
038600,000396: 36,3141 33570 MCOS22.5
038601,000397: 36,3142 75167 P37W
038602,000398: 36,3143 50375 VLOAD DOT # K/ . UR2 GR COS22.5
038603,000399: 36,3144 03746 UH/
038604,000400: 36,3145 03656 R(T2)/
038605,000401: 36,3146 71240 BMN DLOAD
038606,000402: 36,3147 75153 P37U
038607,000403: 36,3150 33572 THETA165
038608,000404: 36,3151 52006 PUSH GOTO
038609,000405: 36,3152 75155 P37V
038610,000406: 36,3153 41545 P37U DLOAD PUSH
038611,000407: 36,3154 33574 THETA210
038612,000408: 36,3155 77756 P37V SIN
038613,000409: 36,3156 16732 STODL SNTH
038614,000410: 36,3157 43146 COS CLEAR
038615,000411: 36,3160 03666 RVSW
038616,000412: 36,3161 26734 STOVL CSTH
038617,000413: 36,3162 03640 R(T1)/
038618,000414: 36,3163 26657 STOVL RVEC
038619,000415: 36,3164 03700 V2(T1)/
038620,000416: 36,3165 36746 STCALL VVEC
038621,000417: 36,3166 24744 TIMETHET
038622,000418: 36,3167 43014 P37W CLEAR CLEAR
038623,000419: 36,3170 01267 XDELVFLG
038624,000420: 36,3171 03665 NORMSW
038625,000421: 36,3172 77214 SET VLOAD
038626,000422: 36,3173 01071 FINALFLG
038627,000423: 36,3174 77626 STADR
038628,000424: 36,3175 60362 STODL RTARG
038629,000425: 36,3176 00037 T
038630,000426: 36,3177 77615 DAD
038631,000427: 36,3200 03716 T1
038632,000428: 36,3201 27656 STOVL TPASS4
038633,000429: 36,3202 03700 V2(T1)/
|
|
Reconstruction: Comanche 72 has been changed to exit out of
interpretive code here and switch the erasable bank to 4, in order
to fix anomaly COM-27, "V32E response to FLV16N45 in P37 results in
indeterminate program transfer". Furthermore, the STORE DELVSIN
and CALL VN1645 were split up into two different instructions (from
their former STCALL) so that the CALL instruction could be given
the new label P37WW. The following GOTO was changed to jump to
this new label instead of P37W.
|
038642,000438: 36,3203 77451 VSU EXIT
038643,000439: 36,3204 03672 V(T1)/
038644,000440: 36,3205 35021 CAF EBANK4
038645,000441: 36,3206 54003 TS EBANK
038646,000442: 36,3207 06006 TC INTPRET
038647,000443: 36,3210 03646 STORE DELVSIN
038648,000444: 36,3211 77624 P37WW CALL
038649,000445: 36,3212 73002 VN1645
038650,000446: 36,3213 77650 GOTO
038651,000447: 36,3214 75211 P37WW
038652,000448:
038653,000449: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
038654,000450:
038655,000451: 36,3215 00006 P37GFRB1 EXTEND
038656,000452: 36,3216 23762 QXCH SPRTEX
038657,000453: 36,3217 03225 TCR P370GOFR
038658,000454: 36,3220 35033 37BLANK CAF ONE
038659,000455: 36,3221 05542 TCR BLANKET
038660,000456: 36,3222 15233 TCF ENDOFJOB
038661,000457: 36,3223 01762 TC SPRTEX # RECYCLE
038662,000458: 36,3224 13250 TCF P37PROC # PROCEED
038663,000459:
038664,000460: # SUBROUTINE TO GO TO GOFLASHR
038665,000461:
038666,000462: 36,3225 00006 P370GOFR EXTEND
038667,000463: 36,3226 23733 QXCH RTENCKEX
038668,000464: 36,3227 04676 TCR BANKCALL
038669,000465: 36,3230 21057 CADR GOFLASHR
038670,000466: 36,3231 14106 TCF GOTOPOOH # TERMINATE
038671,000467: 36,3232 13235 TCF +3
038672,000468: 36,3233 13237 TCF +4
038673,000469: 36,3234 01733 TC RTENCKEX # IMMEDIATE RETURN
038674,000470: 36,3235 51733 INDEX RTENCKEX # PROCEED
038675,000471: 36,3236 10004 TCF 0 +4
038676,000472: 36,3237 51733 INDEX RTENCKEX # RECYCLE
038677,000473: 36,3240 10003 TCF 0 +3
038678,000474:
038679,000475: # SUBROUTINE TO GO TO GOFLASH
038680,000476:
038681,000477: 36,3241 00006 P370GOF EXTEND
038682,000478: 36,3242 23762 QXCH SPRTEX
038683,000479: 36,3243 04676 TCR BANKCALL
038684,000480: 36,3244 20720 CADR GOFLASH
038685,000481: 36,3245 14106 TCF GOTOPOOH
038686,000482: 36,3246 13250 TCF +2
038687,000483: 36,3247 01762 TC SPRTEX
038688,000484: 36,3250 51762 P37PROC INDEX SPRTEX
038689,000485: 36,3251 10001 TCF 0 +1
038690,000486: 36,3252 01441 V6N33RTE VN 0633
038691,000487: 36,3253 01006 V4N06RTE VN 0406
038692,000488: 36,3254 01475 V6N61RTE VN 0661
038693,000489: 36,3255 01447 V6N39RTE VN 0639
038694,000490: 36,3256 01474 V6N60RTE VN 0660
038695,000491: 36,3257 01521 V6N81RTE VN 0681
038696,000492: 32,2262 BANK 32
038697,000493: 32,2000 SETLOC RTE
038698,000494: 32,2000 BANK
038699,000495: 32,2262 COUNT 32/RTE
038700,000496:
038701,000497: # ALARM DISPLAY SUBROUTINE
038702,000498:
038703,000499: 32,2262 77420 P370ALRM STQ EXIT
038704,000500: 32,2263 03762 SPRTEX
038705,000501: 32,2264 30154 CA MPAC
038706,000502: 32,2265 05770 TC VARALARM
038707,000503: 32,2266 32276 CAF V5N09RTE
038708,000504: 32,2267 04676 TC BANKCALL
038709,000505: 32,2270 20720 CADR GOFLASH
038710,000506: 32,2271 14106 TCF GOTOPOOH
038711,000507: 32,2272 12266 TCF -4
038712,000508: 32,2273 06006 TC INTPRET
038713,000509: 32,2274 77650 GOTO
038714,000510: 32,2275 03762 SPRTEX
038715,000511: 32,2276 01211 V5N09RTE VN 0509
038716,000512:
038717,000513: # TIME RADIUS CALLING SUBROUTINE
038718,000514:
038719,000515: # INPUT
038720,000516: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
038721,000517: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038722,000518: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
038723,000519: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14
038724,000520:
038725,000521: # OUTPUT
038726,000522: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038727,000523: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038728,000524: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
038729,000525:
038730,000526: 32,2277 43020 TMRAD100 STQ CLEAR
038731,000527: 32,2300 03733 RTENCKEX
038732,000528: 32,2301 03666 RVSW
038733,000529: 32,2302 67164 AXC,2 SXA,2
038734,000530: 32,2303 20000 OCT 20000
038735,000531: 32,2304 02756 SGNRDOT
038736,000532: 32,2305 45140 LXC,1 CALL
038737,000533: 32,2306 03734 CONICX1
038738,000534: 32,2307 25566 TIMERAD
038739,000535: 32,2310 27710 STOVL V(T2)/ # PL00D
038740,000536: 32,2311 77626 STADR
038741,000537: 32,2312 60121 STODL R(T2)/
038742,000538: 32,2313 00037 T
038743,000539: 32,2314 37724 STCALL T12
038744,000540: 32,2315 03733 RTENCKEX
038745,000541:
038746,000542: # DISPLAY CALCULATION SUBROUTINE
038747,000543:
038748,000544: # DESCRIPTION
038749,000545: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
038750,000546: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
038751,000547:
038752,000548: # CALLING SEQUENCE
038753,000549: # L CALL
038754,000550: # L+1 RTEDISP
038755,000551:
038756,000552: # SUBROUTINES CALLED
038757,000553: # TMRAD100
038758,000554: # AUGEKUGL
038759,000555: # LAT-LONG
038760,000556:
038761,000557: # ERASABLE INITIALIZATION REQUIRED
038762,000558: # PUSHLIST
038763,000559: # NONE
038764,000560: # MPAC
038765,000561: # NONE
038766,000562: # OTHER
038767,000563: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038768,000564: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038769,000565: # T2 FINAL TIME DP B28 CS
038770,000566: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038771,000567: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038772,000568: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038773,000569: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038774,000570:
038775,000571: # OUTPUT
038776,000572: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
038777,000573: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
038778,000574: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
038779,000575: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
038780,000576: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
038781,000577: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
038782,000578:
038783,000579: 32,2316 77220 RTEDISP STQ VLOAD # DISPLAY
038784,000580: 32,2317 03762 SPRTEX
038785,000581: 32,2320 03710 V(T2)/
038786,000582: 32,2321 65256 UNIT PDDL
038787,000583: 32,2322 00045 36D
038788,000584: 32,2323 17767 STODL VPRED # V(T2)
038789,000585: 32,2324 03736 T2
038790,000586: 32,2325 77625 DSU
038791,000587: 32,2326 03413 SPRTETIG
038792,000588: 32,2327 26641 STOVL T3TOT4 # T21
038793,000589: 32,2330 03656 R(T2)/
038794,000590: 32,2331 50256 UNIT DOT
038795,000591: 32,2332 77752 SL1
038796,000592:
038797,000593: 32,2333 44326 ARCCOS BDSU
038798,000594: 32,2334 33502 1RTEB2
038799,000595: 32,2335 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
038800,000596: 32,2336 03700 V2(T1)/
038801,000597: 32,2337 41451 VSU PUSH
038802,000598: 32,2340 03672 V(T1)/
038803,000599: 32,2341 57441 DOT DCOMP
038804,000600: 32,2342 03740 UR1/
038805,000601: 32,2343 41515 PDVL PUSH
038806,000602: 32,2344 63345 DLOAD PDVL
038807,000603: 32,2345 33524 ZERORTE
038808,000604: 32,2346 55441 DOT VDEF
038809,000605: 32,2347 03746 UH/
038810,000606: 32,2350 77772 VSL1
038811,000607: 32,2351 17405 STODL DELVLVC
038812,000608: 32,2352 03405 DELVLVC
038813,000609: 32,2353 57414 BOFF DCOMP
038814,000610: 32,2354 02741 RETROFLG
038815,000611: 32,2355 64357 RTD18
038816,000612: 32,2356 03405 STORE DELVLVC # NEGATE X COMPONENT, RETROGRADE
038817,000613: 32,2357 51575 RTD18 VLOAD ABVAL
038818,000614: 32,2360 03405 DELVLVC
038819,000615: 32,2361 27773 STOVL VGDISP
038820,000616: 32,2362 03656 R(T2)/
038821,000617: 32,2363 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
038822,000618: 32,2364 45246 ABVAL DSU
038823,000619: 32,2365 33550 30480RTE
038824,000620: 32,2366 26760 STOVL RDESIRED
038825,000621: 32,2367 03710 V(T2)/
038826,000622: 32,2370 36746 STCALL VVEC
038827,000623: 32,2371 64277 TMRAD100 # R3,V3,T23 FROM TIMERAD
038828,000624: 32,2372 53575 VLOAD UNIT
038829,000625: 32,2373 03656 R(T2)/
038830,000626: 32,2374 53515 PDVL UNIT # UR3 PL06D
038831,000627: 32,2375 03710 V(T2)/
038832,000628: 32,2376 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
038833,000629: 32,2377 65336 ARCSIN PDDL # V(T3) PL02D
038834,000630: 32,2400 00045 36D
038835,000631: 32,2401 51525 PDDL ABS
038836,000632: 32,2402 45006 PUSH CALL # /GAMMAE/ PL04D
038837,000633: 32,2403 64075 AUGEKUGL # PHIE PL06D
038838,000634: 32,2404 43215 DAD DAD
038839,000635: 32,2405 03724 T12 # T23
038840,000636: 32,2406 03736 T2
038841,000637: 32,2407 00003 STORE 02D # T(LS)=T2&T23&TE
038842,000638: 32,2410 53135 SLOAD BZE
038843,000639: 32,2411 03377 P37RANGE
038844,000640: 32,2412 64414 RTD22
038845,000641: 32,2413 00005 STORE 04D # OVERRIDE RANGE (PCR 261)
038846,000642: 32,2414 73545 RTD22 DLOAD SIN
038847,000643:
038848,000644: 32,2415 00005 04D
038849,000645: 32,2416 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
038850,000646: 32,2417 77746 COS
038851,000647: 32,2420 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
038852,000648: 32,2421 53575 VLOAD UNIT
038853,000649: 32,2422 03656 R(T2)/
038854,000650: 32,2423 41406 PUSH PUSH
038855,000651: 32,2424 53515 PDVL UNIT # PL22D
038856,000652: 32,2425 03710 V(T2)/
038857,000653: 32,2426 47315 PDVL VXV
038858,000654: 32,2427 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
038859,000655: 32,2430 63361 VXSC PDVL
038860,000656: 32,2431 03403 LNG(SPL)
038861,000657: 32,2432 53361 VXSC VAD # PL04D
038862,000658: 32,2433 03401 LAT(SPL)
038863,000659: 32,2434 43014 CLEAR CLEAR # T(LS) IN MPAC
038864,000660: 32,2435 00662 ERADFLAG
038865,000661: 32,2436 01663 LUNAFLAG
038866,000662: 32,2437 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
038867,000663: 32,2440 77624 CALL
038868,000664: 32,2441 26376 LAT-LONG
038869,000665: 32,2442 77745 DLOAD
038870,000666: 32,2443 01104 LAT
038871,000667: 32,2444 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
038872,000668: 32,2445 01106 LONG
038873,000669: 32,2446 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
038874,000670: 32,2447 03762 SPRTEX
038875,000671: 32,2450 COUNT* $$/RTE
038876,000672:
038877,000673: # INITIAL VECTOR SUBROUTINE
038878,000674:
038879,000675: # DESCRIPTION
038880,000676: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
038881,000677:
038882,000678: # CALLING SEQUENCE
038883,000679: # L CALL
038884,000680: # L+1 INVC100
038885,000681:
038886,000682: # NORMAL EXIT MODE
038887,000683: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038888,000684:
038889,000685: # ALARM EXIT MODE
038890,000686: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
038891,000687:
038892,000688: # SUBROUTINES CALLED
038893,000689: # CSMPREC
038894,000690:
038895,000691: # ERASABLE INITIALIZATION REQUIRED
038896,000692: # PUSHLIST
038897,000693: # NONE
038898,000694: # MPAC
038899,000695: # NONE
038900,000696: # OTHER
038901,000697: # SPRTETIG TIME OF IGNITION DP B28 CS
038902,000698: # CSM STATE VECTOR
038903,000699:
038904,000700: # OUTPUT
038905,000701: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
038906,000702: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
038907,000703: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
038908,000704: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038909,000705: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038910,000706: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
038911,000707:
038912,000708: 32,2450 71220 INVC100 STQ DLOAD
038913,000709: 32,2451 03762 SPRTEX
038914,000710: 32,2452 03413 SPRTETIG
038915,000711: 32,2453 34041 STCALL TDEC1
038916,000712: 32,2454 27100 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
038917,000713: 32,2455 67175 VLOAD SXA,2
038918,000714: 32,2456 00001 RATT
038919,000715: 32,2457 03755 P(T1)
038920,000716: 32,2460 27640 STOVL R(T1)/
038921,000717: 32,2461 00007 VATT
038922,000718: 32,2462 17672 STODL V(T1)/
038923,000719: 32,2463 00015 TAT
038924,000720: 32,2464 03716 STORE T1
038925,000721: 32,2465 53135 SLOAD BZE
038926,000722: 32,2466 03756 P(T1)
038927,000723: 32,2467 64473 INVC109
038928,000724: 32,2470 52135 INVC107 SLOAD GOTO
038929,000725: 32,2471 33563 OCT612
038930,000726: 32,2472 74776 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
038931,000727: 32,2473 53575 INVC109 VLOAD UNIT
038932,000728: 32,2474 03640 R(T1)/
038933,000729: 32,2475 17740 STODL UR1/ # UR1/ B1
038934,000730: 32,2476 00045 36D
038935,000731: 32,2477 27646 STOVL R(T1) # R(T1) B29
038936,000732: 32,2500 03672 V(T1)/
038937,000733: 32,2501 77656 UNIT
038938,000734: 32,2502 03746 STORE UV1/
038939,000735: 32,2503 72441 DOT SL1
038940,000736: 32,2504 03740 UR1/
038941,000737: 32,2505 03757 STORE CFPA # CFPA B1
038942,000738: 32,2506 45246 ABS DSU
038943,000739: 32,2507 33576 EPC1RTE
038944,000740: 32,2510 71240 BMN DLOAD
038945,000741: 32,2511 64520 INVC115 # NOT NEAR RECTILINEAR
038946,000742: 32,2512 33502 1RTEB2
038947,000743: 32,2513 41525 PDDL PUSH
038948,000744: 32,2514 33524 ZERORTE
038949,000745: 32,2515 41466 VDEF PUSH # N/ = (0,0,1)
038950,000746: 32,2516 77650 GOTO
038951,000747: 32,2517 64524 INVC120
038952,000748: 32,2520 47375 INVC115 VLOAD VXV
038953,000749: 32,2521 03740 UR1/
038954,000750: 32,2522 03746 UV1/
038955,000751: 32,2523 77606 PUSH # N/ = UR X UV B2
038956,000752: 32,2524 71214 INVC120 CLEAR DLOAD
038957,000753: 32,2525 02661 RETROFLG
038958,000754: 32,2526 51006 PUSH BPL
038959,000755: 32,2527 64533 INVC125
038960,000756: 32,2530 57575 VLOAD VCOMP # RETROGRADE ORBIT
038961,000757: 32,2531 43006 PUSH SET
038962,000758: 32,2532 02461 RETROFLG
038963,000759: 32,2533 77775 INVC125 VLOAD
038964,000760: 32,2534 53435 VXV UNIT
038965,000761: 32,2535 03740 UR1/
038966,000762: 32,2536 03746 STORE UH/ # UH/ B1
038967,000763: 32,2537 77650 GOTO
038968,000764: 32,2540 03762 SPRTEX
038969,000765:
038970,000766: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038971,000767:
038972,000768: # DESCRIPTION
038973,000769: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038974,000770: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038975,000771: # AS POSSIBLE.
038976,000772:
038977,000773: # CALLING SEQUENCE
038978,000774: # L CALL
038979,000775: # L+1 PREC100
038980,000776:
038981,000777: # NORMAL EXIT MODE
038982,000778: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038983,000779:
038984,000780: # ALARM EXIT MODE
038985,000781: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
038986,000782: # OCTAL 605 FOR EXCESS ITERATIONS
038987,000783: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
038988,000784:
038989,000785: # SUBROUTINES CALLED
038990,000786: # INTSTALL
038991,000787: # RTENCK2
038992,000788: # RTENCK3
038993,000789: # TIMERAD
038994,000790: # PARAM
038995,000791: # V2T100
038996,000792:
038997,000793: # ERASABLE INITIALIZATION REQUIRED
038998,000794: # PUSHLIST
038999,000795: # NONE
039000,000796: # MPAC
039001,000797: # NONE
039002,000798: # OTHER
039003,000799: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29/B27 METERS
039004,000800: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039005,000801: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039006,000802: # T1 INITIAL VECTOR TIME DP B28 CS
039007,000803: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
039008,000804: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
039009,000805: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
039010,000806: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
039011,000807: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
039012,000808: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
039013,000809: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039014,000810: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039015,000811: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039016,000812: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039017,000813: # BETA1 1+X(T2)**2 DP B1
039018,000814: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE
039019,000815:
039020,000816:
039021,000817: # OUTPUT
039022,000818: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
039023,000819: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
039024,000820: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039025,000821: # T2 FINAL TIME DP B28 CENTISECONDS
039026,000822:
039027,000823: # DEBRIS
039028,000824: # RD FINAL R DESIRED DP B29/B27 METERS
039029,000825: # R/APRE R/A DP B6
039030,000826: # P/RPRE P/R DP B4
039031,000827: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
039032,000828: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
039033,000829: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
039034,000830: # RCON FINAL RADIUS DP B29/B27 METERS
039035,000831: # DRCON DELTA RCON DP B29/B27 METERS
039036,000832:
039037,000833: 32,2541 71220 PREC100 STQ DLOAD
039038,000834: 32,2542 03762 SPRTEX
039039,000835: 32,2543 33532 10RTE
039040,000836: 32,2544 17730 STODL NN1A
039041,000837: 32,2545 03636 RCON
039042,000838: 32,2546 03664 STORE RD
039043,000839: 32,2547 77745 PREC120 DLOAD
039044,000840: 32,2550 33542 2RTEB1
039045,000841: 32,2551 17650 STODL DT21PR # DT21PR = POSMAX
039046,000842: 32,2552 33530 M15RTE
039047,000843: 32,2553 37732 STCALL NN2
039048,000844: 32,2554 63732 RTENCK3
039049,000845: 32,2555 77624 PREC125 CALL
039050,000846: 32,2556 11637 PARAM
039051,000847: 32,2557 77745 DLOAD
039052,000848: 32,2560 02742 P
039053,000849: 32,2561 14033 STODL P/RPRE
039054,000850: 32,2562 02744 R1A
039055,000851: 32,2563 14035 STODL R/APRE
039056,000852: 32,2564 00041 R1
039057,000853: 32,2565 14031 STODL RPRE
039058,000854: 32,2566 03775 COGA
039059,000855: 32,2567 77661 SL
039060,000856: 32,2570 20206 5
039061,000857: 32,2571 03724 STORE X(T2)PRE
039062,000858: 32,2572 43276 DCOMP DAD
039063,000859: 32,2573 03726 X(T2)
039064,000860: 32,2574 45246 ABS DSU
039065,000861: 32,2575 33604 EPC4RTE
039066,000862: 32,2576 50000 BOV BMN
039067,000863: 32,2577 64601 PREC130
039068,000864: 32,2600 64770 PREC175
039069,000865:
039070,000866: # DESIRED REENTRY ANGLE NOT ACHIEVED
039071,000867:
039072,000868: 32,2601 50145 PREC130 DLOAD BMN
039073,000869: 32,2602 03732 NN2
039074,000870: 32,2603 64607 PREC140
039075,000871: 32,2604 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
039076,000872: 32,2605 33562 OCT605 # EXIT WITH ALARM
039077,000873: 32,2606 65073 PRECX
039078,000874:
039079,000875: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
039080,000876:
039081,000877: 32,2607 53145 PREC140 DLOAD BZE
039082,000878: 32,2610 03730 NN1A
039083,000879: 32,2611 64647 PREC162
039084,000880: 32,2612 62545 PREC150 DLOAD SL2 # B2
039085,000881: 32,2613 00033 P/RPRE
039086,000882: 32,2614 72405 DMP SL1 # BETA2=BETA1*P/R B2 PL02
039087,000883: 32,2615 03754 BETA1
039088,000884: 32,2616 71206 PUSH DLOAD
039089,000885: 32,2617 00035 R/APRE
039090,000886: 32,2620 41212 SL4 DMP
039091,000887: 32,2621 00001 00D
039092,000888: 32,2622 50021 BDSU BMN # BETA3=1-BETA2*R/A
039093,000889: 32,2623 33506 1RTEB4
039094,000890: 32,2624 64637 PREC160
039095,000891: 32,2625 75512 PREC155 SL2 SQRT
039096,000892: 32,2626 44205 DMP BDSU
039097,000893: 32,2627 03761 PHI2
039098,000894: 32,2630 33504 1RTEB3
039099,000895: 32,2631 65301 NORM PDDL
039100,000896: 32,2632 00047 X1
039101,000897: 32,2633 56342 SR1 DDV # BETA4=BETA2/(1-PHI2*SQRT(BETA3))
039102,000898: 32,2634 52057 SL* GOTO # B1
039103,000899: 32,2635 20200 0 -1,1
039104,000900: 32,2636 64655 PREC165
039105,000901: 32,2637 60345 PREC160 DLOAD NORM
039106,000902: 32,2640 00035 R/APRE
039107,000903: 32,2641 00047 X1
039108,000904: 32,2642 53665 BDDV SL* # B1
039109,000905: 32,2643 33500 1RTEB1
039110,000906: 32,2644 20173 0 -6,1
039111,000907: 32,2645 77650 GOTO
039112,000908: 32,2646 64655 PREC165
039113,000909: 32,2647 60345 PREC162 DLOAD NORM
039114,000910: 32,2650 00031 RPRE
039115,000911: 32,2651 00047 X1
039116,000912: 32,2652 53665 BDDV SL* # BETA4=RD/RPRE B1
039117,000913: 32,2653 03664 RD
039118,000914: 32,2654 20200 0 -1,1
039119,000915: 32,2655 41401 PREC165 SETPD PUSH
039120,000916: 32,2656 00001 0
039121,000917: 32,2657 57425 DSU DCOMP
039122,000918: 32,2660 33500 1RTEB1
039123,000919: 32,2661 03765 STORE BETA12
039124,000920: 32,2662 71240 BMN DLOAD
039125,000921: 32,2663 64674 PREC168
039126,000922: 32,2664 03724 X(T2)PRE
039127,000923: 32,2665 71240 BMN DLOAD
039128,000924: 32,2666 64672 PREC167
039129,000925: 32,2667 03765 BETA12
039130,000926: 32,2670 77676 DCOMP
039131,000927: 32,2671 03765 STORE BETA12
039132,000928: 32,2672 77745 PREC167 DLOAD
039133,000929: 32,2673 03765 BETA12
039134,000930: 32,2674 45246 PREC168 ABS DSU
039135,000931: 32,2675 33610 EPC6RTE
039136,000932: 32,2676 71240 BMN DLOAD
039137,000933: 32,2677 64770 PREC175
039138,000934: 32,2700 72405 DMP SL1
039139,000935: 32,2701 00031 RPRE
039140,000936: 32,2702 77606 PUSH # RF = NEW RADIUS
039141,000937: 32,2703 43345 PREC170 DLOAD DAD
039142,000938: 32,2704 03732 NN2
039143,000939: 32,2705 33522 1RTEB28
039144,000940: 32,2706 03732 STORE NN2
039145,000941: 32,2707 43175 VLOAD SET
039146,000942: 32,2710 03656 R(T2)/
039147,000943: 32,2711 03466 RVSW
039148,000944: 32,2712 26657 STOVL RVEC
039149,000945: 32,2713 03710 V(T2)/
039150,000946: 32,2714 77765 SIGN
039151,000947: 32,2715 03765 BETA12
039152,000948: 32,2716 16746 STODL VVEC
039153,000949: 32,2717 33500 1RTEB1
039154,000950: 32,2720 57565 SIGN DCOMP
039155,000951: 32,2721 03765 BETA12
039156,000952: 32,2722 71354 LXA,2 DLOAD
039157,000953: 32,2723 00154 MPAC
039158,000954: 32,2724 67140 LXC,1 SXA,2
039159,000955: 32,2725 03734 CONICX1
039160,000956: 32,2726 02756 SGNRDOT
039161,000957: 32,2727 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
039162,000958: 32,2730 25566 TIMERAD # NEW RADIUS)
039163,000959: 32,2731 75345 DLOAD SIGN
039164,000960: 32,2732 00037 T
039165,000961: 32,2733 03765 BETA12
039166,000962: 32,2734 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
039167,000963: 32,2735 03650 DT21PR
039168,000964: 32,2736 00047 X1
039169,000965: 32,2737 53665 BDDV SL*
039170,000966: 32,2740 00001 00D
039171,000967: 32,2741 20176 0 -3,1
039172,000968: 32,2742 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
039173,000969: 32,2743 64750 PREC172
039174,000970: 32,2744 65345 DLOAD PDDL # BETA14=1 B0 PL04D
039175,000971: 32,2745 33542 2RTEB1
039176,000972: 32,2746 77650 GOTO
039177,000973: 32,2747 64752 PREC173
039178,000974: 32,2750 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
039179,000975: 32,2751 33534 M.6RTE
039180,000976: 32,2752 45271 PREC173 DDV DSU
039181,000977: 32,2753 00003 02D
039182,000978: 32,2754 33504 1RTEB3
039183,000979: 32,2755 71240 BMN DLOAD
039184,000980: 32,2756 64762 PREC174
039185,000981: 32,2757 77605 DMP
039186,000982: 32,2760 03650 DT21PR
039187,000983: 32,2761 00001 STORE 00D # DT21=(BETA14)DT21PR B28
039188,000984: 32,2762 41545 PREC174 DLOAD PUSH
039189,000985: 32,2763 00001 00D
039190,000986: 32,2764 37650 STCALL DT21PR
039191,000987: 32,2765 63714 RTENCK2
039192,000988: 32,2766 77650 GOTO
039193,000989: 32,2767 64555 PREC125
039194,000990: 32,2770 45345 PREC175 DLOAD DSU
039195,000991: 32,2771 00031 RPRE
039196,000992: 32,2772 03664 RD
039197,000993: 32,2773 51406 PUSH ABS # RPRE-RD = RERR
039198,000994: 32,2774 50025 DSU BMN
039199,000995: 32,2775 33612 EPC7RTE
039200,000996: 32,2776 34755 PREC220
039201,000997:
039202,000998: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
039203,000999:
039204,001000: 32,2777 53145 DLOAD BZE
039205,001001: 32,3000 03730 NN1A
039206,001002: 32,3001 64604 PREC132 # TOO MANY ITERATIONS
039207,001003: 32,3002 53025 DSU BZE
039208,001004: 32,3003 33532 10RTE
039209,001005: 32,3004 65037 PREC207
039210,001006: 32,3005 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
039211,001007: 32,3006 03670 RPRE'
039212,001008: 32,3007 00031 RPRE # RPRE,-RPRE B29/B27
039213,001009: 32,3010 55301 NORM BDDV
039214,001010: 32,3011 00050 X2
039215,001011: 32,3012 03666 DRCON
039216,001012: 32,3013 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
039217,001013: 32,3014 57600 0 -2,2
039218,001014: 32,3015 40015 DAD BOV # S GR +4 OR LS -4
039219,001015: 32,3016 33500 1RTEB1
039220,001016: 32,3017 65024 PREC205M
039221,001017: 32,3020 45246 ABS DSU
039222,001018: 32,3021 33500 1RTEB1
039223,001019: 32,3022 77640 BMN
039224,001020: 32,3023 65027 PREC206
039225,001021: 32,3024 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
039226,001022: 32,3025 33542 2RTEB1
039227,001023: 32,3026 77725 PDDL # S=-4 B2
039228,001024: 32,3027 41345 PREC206 DLOAD DMP
039229,001025: 32,3030 77712 SL2
039230,001026: 32,3031 03666 STORE DRCON # DRCON=S(RERR) B29
039231,001027: 32,3032 77615 DAD
039232,001028: 32,3033 03636 RCON
039233,001029: 32,3034 03636 STORE RCON # RCON+DRCON=RCON
039234,001030: 32,3035 77650 GOTO
039235,001031: 32,3036 65056 PREC210
039236,001032: 32,3037 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
039237,001033: 32,3040 03664 RD
039238,001034: 32,3041 70501 NORM SR1
039239,001035: 32,3042 00047 X1
039240,001036: 32,3043 60325 PDDL NORM
039241,001037: 32,3044 00031 RPRE
039242,001038: 32,3045 00050 X2
039243,001039: 32,3046 55260 XSU,1 BDDV
039244,001040: 32,3047 00047 X2
039245,001041: 32,3050 77657 SR*
039246,001042: 32,3051 20600 0 -1,1
039247,001043: 32,3052 03636 STORE RCON # RD**2/RPRE=RCON
039248,001044: 32,3053 77625 DSU
039249,001045: 32,3054 03664 RD
039250,001046: 32,3055 03666 STORE DRCON # RCON-RD=DRCON
039251,001047: 32,3056 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
039252,001048: 32,3057 00031 RPRE
039253,001049: 32,3060 17670 STODL RPRE'
039254,001050: 32,3061 03730 NN1A
039255,001051: 32,3062 77625 DSU
039256,001052: 32,3063 33522 1RTEB28
039257,001053: 32,3064 37730 STCALL NN1A
039258,001054: 32,3065 65075 V2T100
039259,001055: 32,3066 52030 BHIZ GOTO
039260,001056: 32,3067 64547 PREC120
039261,001057: 32,3070 65073 PRECX
039262,001058:
039263,001059: # DESIRED RADIUS ACHIEVED
039264,001060:
039265,001061: 16,2000 SETLOC RTE2
039266,001062: 16,2000 BANK
039267,001063: 16,2755 45345 PREC220 DLOAD DSU
039268,001064: 16,2756 03726 X(T2)
039269,001065: 16,2757 03724 X(T2)PRE
039270,001066: 16,2760 45246 ABS DSU
039271,001067: 16,2761 34770 EPC8RTE
039272,001068: 16,2762 67240 BMN SLOAD
039273,001069: 16,2763 65071 PREC225
039274,001070: 16,2764 34772 OCT613
039275,001071: 16,2765 77650 GOTO
039276,001072: 16,2766 65073 PRECX # IF REENTRY ANGLE OUT OF LIMITS
039277,001073:
039278,001074: 16,2767 00040 30447 EPC8RTE 2DEC .002
039279,001075:
039280,001076: 16,2771 00613 OCT613 OCT 613
039281,001077:
039282,001078: # DESIRED FINAL ANGLE HAS BEEN REACHED
039283,001079:
039284,001080: 32,2000 SETLOC RTE
039285,001081: 32,2000 BANK
039286,001082: 32,3071 77745 PREC225 DLOAD
039287,001083: 32,3072 33524 ZERORTE
039288,001084: 32,3073 77650 PRECX GOTO
039289,001085: 32,3074 03762 SPRTEX
039290,001086:
039291,001087: # INTEGRATION CALLING SUBROUTINE
039292,001088:
039293,001089: # DESCRIPTION
039294,001090: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
039295,001091: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
039296,001092: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
039297,001093:
039298,001094: # RTENCK1 (CONIC INTEGRATION)
039299,001095:
039300,001096: # CALLING SEQUENCE
039301,001097: # L CALL
039302,001098: # L+1 RTENCK1
039303,001099:
039304,001100: # ERASABLE INITIALIZATION REQUIRED
039305,001101: # SAME AS FOR THE RTENCK3 ENTRANCE
039306,001102:
039307,001103: # RTENCK2 (PRECISION INTEGRATION)
039308,001104:
039309,001105: # CALLING SEQUENCE
039310,001106: # L CALL
039311,001107: # L+1 RTENCK2
039312,001108:
039313,001109: # ERASABLE INITIALIZATION REQUIRED
039314,001110: # PUSHLIST
039315,001111: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
039316,001112: # OTHER
039317,001113: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
039318,001114: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039319,001115: # T2 FINAL TIME DP B28 CS
039320,001116:
039321,001117: # RTENCK3 (PRECISION INTEGRATION)
039322,001118:
039323,001119: # CALLING SEQUENCE
039324,001120: # L CALL
039325,001121: # L+1 RTENCK3
039326,001122:
039327,001123: # ERASABLE INITIALIZATION REQUIRED
039328,001124: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
039329,001125: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
039330,001126: # T1 INITIAL VECTOR TIME DP B28 CS
039331,001127: # T2 FINAL TIME DP B28 CS
039332,001128:
039333,001129: # EXIT MODE
039334,001130: # AT L+2 OF CALLING SEQUENCE
039335,001131:
039336,001132: # SUBROUTINES CALLED
039337,001133: # INTSTALL
039338,001134: # INTEGRVS
039339,001135:
039340,001136: # OUTPUT
039341,001137: # PUSHLIST
039342,001138: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
039343,001139: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
039344,001140: # MPAC
039345,001141: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
039346,001142: # OTHER
039347,001143: # R(T2)/ AS IN PUSHLIST
039348,001144: # V(T2)/ AS IN MPAC
039349,001145: # T2 FINAL TIME DP B28 CS
039350,001146:
039351,001147: 31,2000 SETLOC RTE3
039352,001148: 31,2000 BANK
039353,001149: 31,3704 45020 RTENCK1 STQ CALL
039354,001150: 31,3705 03733 RTENCKEX
039355,001151: 31,3706 27446 INTSTALL
039356,001152: 31,3707 43175 VLOAD SET
039357,001153: 31,3710 03640 R(T1)/
039358,001154: 31,3711 01473 INTYPFLG
039359,001155: 31,3712 77650 GOTO
039360,001156: 31,3713 63740 RTENCK3B
039361,001157:
039362,001158: 31,3714 45020 RTENCK2 STQ CALL
039363,001159: 31,3715 03733 RTENCKEX
039364,001160: 31,3716 27446 INTSTALL
039365,001161: 31,3717 77214 CLEAR VLOAD
039366,001162: 31,3720 01673 INTYPFLG
039367,001163: 31,3721 03656 R(T2)/
039368,001164: 31,3722 25535 STOVL RCV
039369,001165: 31,3723 03710 V(T2)/
039370,001166: 31,3724 15543 STODL VCV
039371,001167: 31,3725 03736 T2
039372,001168: 31,3726 01517 STORE TET
039373,001169: 31,3727 77615 DAD
039374,001170: 31,3730 77650 GOTO
039375,001171: 31,3731 63746 RTENCK3D
039376,001172:
039377,001173: 31,3732 45020 RTENCK3 STQ CALL
039378,001174: 31,3733 03733 RTENCKEX
039379,001175: 31,3734 27446 INTSTALL
039380,001176: 31,3735 43175 RTENCK3A VLOAD CLEAR
039381,001177: 31,3736 03640 R(T1)/
039382,001178: 31,3737 01673 INTYPFLG
039383,001179: 31,3740 25535 RTENCK3B STOVL RCV
039384,001180: 31,3741 03700 V2(T1)/
039385,001181: 31,3742 15543 STODL VCV
039386,001182: 31,3743 03716 T1
039387,001183: 31,3744 15517 STODL TET
039388,001184: 31,3745 03736 T2
039389,001185: 31,3746 00041 RTENCK3D STORE TDEC1
039390,001186: 31,3747 45014 CLEAR CALL
039391,001187: 31,3750 00263 MOONFLAG
039392,001188: 31,3751 27144 INTEGRVS
039393,001189: 31,3752 77775 VLOAD
039394,001190: 31,3753 00001 RATT
039395,001191: 31,3754 03656 STORE R(T2)/
039396,001192: 31,3755 70125 PDDL LXC,1
039397,001193: 31,3756 00015 TAT
039398,001194: 31,3757 03734 CONICX1
039399,001195: 31,3760 27736 STOVL T2
039400,001196: 31,3761 00007 VATT
039401,001197: 31,3762 03710 STORE V(T2)/
039402,001198: 31,3763 77650 GOTO
039403,001199: 31,3764 03733 RTENCKEX
039404,001200: 32,2000 SETLOC RTE
039405,001201: 32,2000 BANK
039406,001202:
039407,001203: # V2(T1) COMPUTATION SUBROUTINE
039408,001204:
039409,001205: # DESCRIPTION
039410,001206: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
039411,001207: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
039412,001208: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
039413,001209: # AND CONSEQUENTLY FUEL.
039414,001210:
039415,001211: # CALLING SEQUENCE
039416,001212: # L CALL
039417,001213: # L+1 V2T100
039418,001214:
039419,001215: # NORMAL EXIT MODE
039420,001216: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
039421,001217:
039422,001218: # ALARM EXIT MODE
039423,001219: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039424,001220:
039425,001221: # SUBROUTINES CALLED
039426,001222: # GAMDV10
039427,001223: # XT1LIM
039428,001224: # DVCALC
039429,001225:
039430,001226: # ERASABLE INITIALIZATION REQUIRED
039431,001227: # PUSHLIST
039432,001228: # NONE
039433,001229: # MPAC
039434,001230: # NONE
039435,001231: # OTHER
039436,001232: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
039437,001233: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
039438,001234: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039439,001235: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
039440,001236: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039441,001237: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039442,001238: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
039443,001239: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
039444,001240: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
039445,001241: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039446,001242: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039447,001243: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE
039448,001244: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC,PLUS PREC
039449,001245:
039450,001246: # OUTPUT
039451,001247: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039452,001248: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
039453,001249: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
039454,001250: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
039455,001251: # BETA1 1+X(T2)**2 DP B1
039456,001252:
039457,001253:
039458,001254: # DEBRIS
039459,001255: # PUSHLIST
039460,001256: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
039461,001257: # 02D THETA1=BETA5*LAMBDA-1 TP B17
039462,001258: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
039463,001259: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
039464,001260: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
039465,001261: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
039466,001262: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
039467,001263: # 16D DX(T1)=ITERATOR INCREMENT DP B5
039468,001264: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
039469,001265: # 32D DVCALC SUBROUTINE RETURN ADDRESS
039470,001266: # 33D V2T100 SUBROUTINE RETURN ADDRESS
039471,001267:
039472,001268: 32,3075 71220 V2T100 STQ DLOAD
039473,001269: 32,3076 00041 33D
039474,001270: 32,3077 03636 RCON
039475,001271: 32,3100 45240 BMN DSU # ABORT IF RCON NEGATIVE
039476,001272: 32,3101 65105 V2TERROR
039477,001273: 32,3102 03646 R(T1)
039478,001274: 32,3103 77640 BMN
039479,001275: 32,3104 65110 V2T101
039480,001276: 32,3105 77776 V2TERROR EXIT # OR IF LAMBDA LESS THAN ONE
039481,001277: 32,3106 05725 TC POODOO # NO SOLUTION IF LAMBDA LESS THAN 1
039482,001278: 32,3107 20610 OCT 20610
039483,001279: 32,3110 43001 V2T101 SETPD CLEAR
039484,001280: 32,3111 00001 0 # PL00D
039485,001281: 32,3112 00272 F2RTE
039486,001282: 32,3113 60345 DLOAD NORM
039487,001283: 32,3114 03636 RCON
039488,001284: 32,3115 00047 X1
039489,001285: 32,3116 60325 PDDL NORM
039490,001286: 32,3117 03646 R(T1)
039491,001287: 32,3120 00051 S1
039492,001288: 32,3121 00013 STORE 10D
039493,001289: 32,3122 56342 SR1 DDV # R1/RCON = LAMBDA B1
039494,001290: 32,3123 65260 XSU,1 PDDL # PL02D
039495,001291: 32,3124 00050 S1
039496,001292: 32,3125 03726 X(T2)
039497,001293: 32,3126 77716 DSQ
039498,001294: 32,3127 43342 SR1 DAD
039499,001295: 32,3130 33500 1RTEB1
039500,001296: 32,3131 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
039501,001297: 32,3132 77605 DMP
039502,001298: 32,3133 00001 00D
039503,001299: 32,3134 00035 STORE 28D # BETAI*LAMBDA = BETA5
039504,001300: 32,3135 53605 DMP SL*
039505,001301: 32,3136 00001 00D
039506,001302: 32,3137 20172 0 -7,1
039507,001303: 32,3140 45257 SL* DSU
039508,001304: 32,3141 20172 0 -7,1
039509,001305: 32,3142 33516 1RTEB17
039510,001306: 32,3143 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
039511,001307: 32,3144 45565 TPMODE
039512,001308: 32,3145 33500 1RTEB1
039513,001309: 32,3146 57457 SR* DCOMP
039514,001310: 32,3147 20601 0,1
039515,001311: 32,3150 41215 DAD DMP
039516,001312: 32,3151 00001 00D
039517,001313: 32,3152 03646 R(T1)
039518,001314: 32,3153 47057 SL* RTB
039519,001315: 32,3154 20172 0 -7D,1
039520,001316: 32,3155 45565 TPMODE
039521,001317: 32,3156 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
039522,001318: 32,3157 33632 RTMURTE
039523,001319: 32,3160 70501 NORM SR1
039524,001320: 32,3161 00050 X2
039525,001321: 32,3162 56264 XSU,2 DDV
039526,001322: 32,3163 00050 S1
039527,001323: 32,3164 00013 10D
039528,001324: 32,3165 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
039529,001325: 32,3166 57170 6,2
039530,001326: 32,3167 03652 MAMAX1
039531,001327: 32,3170 41406 PUSH PUSH # MAMAX1=MA
039532,001328: 32,3171 77624 CALL
039533,001329: 32,3172 65734 XT1LIM
039534,001330: 32,3173 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
039535,001331: 32,3174 40476 DCOMP SR4
039536,001332: 32,3175 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
039537,001333: 32,3176 03654 MAMAX2
039538,001334: 32,3177 45006 PUSH CALL
039539,001335: 32,3200 65734 XT1LIM
039540,001336: 32,3201 50125 PDDL BMN # X(T1)MAX B5 PL16D
039541,001337: 32,3202 03730 NN1A
039542,001338: 32,3203 65206 V2T102
039543,001339: 32,3204 77650 GOTO
039544,001340: 32,3205 65220 V2T110
039545,001341:
039546,001342: # PROCEED HERE IF NOT PRECISION COMPUTATION
039547,001343:
039548,001344: 32,3206 77745 V2T102 DLOAD
039549,001345: 32,3207 03632 RTEDVD
039550,001346: 32,3210 52054 BZE GOTO
039551,001347: 32,3211 65213 V2T105
039552,001348: 32,3212 65314 V2T140
039553,001349: 32,3213 50145 V2T105 DLOAD BMN
039554,001350: 32,3214 03757 CFPA
039555,001351: 32,3215 65314 V2T140
039556,001352: 32,3216 77650 GOTO
039557,001353: 32,3217 65322 V2T145
039558,001354: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
039559,001355: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
039560,001356: # THROUGH X(T2)
039561,001357:
039562,001358: 32,3220 47145 V2T110 DLOAD RTB
039563,001359: 32,3221 33516 1RTEB17
039564,001360: 32,3222 45565 TPMODE
039565,001361: 32,3223 65276 DCOMP PDDL # -1 B17 PL19D
039566,001362: 32,3224 33542 2RTEB1
039567,001363: 32,3225 45257 SR* DSU
039568,001364: 32,3226 20601 0,1
039569,001365: 32,3227 00001 00D
039570,001366: 32,3230 53605 DMP SL*
039571,001367: 32,3231 00035 28D
039572,001368: 32,3232 20172 0 -7,1
039573,001369: 32,3233 76257 SL* TAD
039574,001370: 32,3234 20172 0 -7,1
039575,001371: 32,3235 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
039576,001372: 32,3236 45565 TPMODE
039577,001373: 32,3237 03722 X(T1)
039578,001374: 32,3240 00001 STORE 00D # X(T1),, B5
039579,001375: 32,3241 77751 TLOAD # PL16D
039580,001376: 32,3242 53040 BMN BZE
039581,001377: 32,3243 65250 V2T115
039582,001378: 32,3244 65250 V2T115
039583,001379: 32,3245 52061 SL GOTO
039584,001380: 32,3246 20210 7
039585,001381: 32,3247 65261 V2T120
039586,001382: 32,3250 50145 V2T115 DLOAD BMN
039587,001383: 32,3251 03761 PHI2
039588,001384: 32,3252 65272 V2T125
039589,001385: 32,3253 77676 DCOMP
039590,001386: 32,3254 17761 STODL PHI2
039591,001387: 32,3255 33532 10RTE
039592,001388: 32,3256 03730 STORE NN1A
039593,001389: 32,3257 77650 GOTO
039594,001390: 32,3260 65272 V2T125
039595,001391: 32,3261 47166 V2T120 SQRT RTB
039596,001392: 32,3262 45716 DPMODE
039597,001393: 32,3263 50125 PDDL BMN # BETA6**.5=X(T1)LIM B5 PL18D
039598,001394: 32,3264 03761 PHI2
039599,001395: 32,3265 65300 V2T130
039600,001396: 32,3266 45545 DLOAD STADR # PL16D
039601,001397: 32,3267 77760 STORE 14D # X(T1)LIM = X(T1)MAX
039602,001398: 32,3270 77676 DCOMP
039603,001399: 32,3271 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
039604,001400: 32,3272 53145 V2T125 DLOAD BZE
039605,001401: 32,3273 03722 X(T1)
039606,001402: 32,3274 65314 V2T140
039607,001403: 32,3275 52040 BMN GOTO
039608,001404: 32,3276 65314 V2T140
039609,001405: 32,3277 65322 V2T145
039610,001406: 32,3300 53145 V2T130 DLOAD BZE
039611,001407: 32,3301 03722 X(T1)
039612,001408: 32,3302 65311 V2T135
039613,001409: 32,3303 71240 BMN DLOAD # PL16D
039614,001410: 32,3304 65311 V2T135
039615,001411: 32,3305 77626 STADR
039616,001412: 32,3306 77764 STORE 10D # X(T1)LIM = X(T1)MIN
039617,001413: 32,3307 77650 GOTO
039618,001414: 32,3310 65322 V2T145
039619,001415: 32,3311 57545 V2T135 DLOAD DCOMP # PL16D
039620,001416: 32,3312 77626 STADR
039621,001417: 32,3313 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
039622,001418: 32,3314 77745 V2T140 DLOAD
039623,001419: 32,3315 00013 10D
039624,001420: 32,3316 17722 STODL X(T1) # X(T1)MIN = X(T1)
039625,001421: 32,3317 00015 12D
039626,001422: 32,3320 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
039627,001423: 32,3321 65327 V2T150
039628,001424: 32,3322 77745 V2T145 DLOAD
039629,001425: 32,3323 00017 14D
039630,001426: 32,3324 17722 STODL X(T1) # X(T1)MAX = X(T1)
039631,001427: 32,3325 00015 12D
039632,001428: 32,3326 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
039633,001429: 32,3327 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
039634,001430: 32,3330 65457 GAMDV10
039635,001431: 32,3331 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
039636,001432: 32,3332 03632 RTEDVD
039637,001433: 32,3333 65455 V2T1X
039638,001434:
039639,001435: # CONTINUE IF TIME CRITICAL MODE
039640,001436:
039641,001437: 32,3334 50025 DSU BMN
039642,001438: 32,3335 03706 DV
039643,001439: 32,3336 65341 V2T155
039644,001440: 32,3337 77650 GOTO
039645,001441: 32,3340 65374 V2T175
039646,001442: 32,3341 50145 V2T155 DLOAD BMN
039647,001443: 32,3342 03730 NN1A
039648,001444: 32,3343 65346 V2T160
039649,001445: 32,3344 77650 GOTO
039650,001446: 32,3345 65416 V2T185
039651,001447:
039652,001448: # CONIC TRAJECTORY COMPUTATION
039653,001449:
039654,001450: 32,3346 53145 V2T160 DLOAD BZE
039655,001451: 32,3347 03722 X(T1)
039656,001452: 32,3350 65354 V2T165
039657,001453: 32,3351 52040 BMN GOTO
039658,001454: 32,3352 65354 V2T165
039659,001455: 32,3353 65453 V2T300
039660,001456: 32,3354 53145 V2T165 DLOAD BZE
039661,001457: 32,3355 03757 CFPA
039662,001458: 32,3356 65453 V2T300
039663,001459: 32,3357 71240 BMN DLOAD
039664,001460: 32,3360 65453 V2T300
039665,001461: 32,3361 00017 14D
039666,001462: 32,3362 17722 STODL X(T1) # X(T1)MAX=X(T1)
039667,001463: 32,3363 00015 12D
039668,001464: 32,3364 77676 DCOMP
039669,001465: 32,3365 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
039670,001466: 32,3366 65457 GAMDV10
039671,001467: 32,3367 45345 DLOAD DSU
039672,001468: 32,3370 03632 RTEDVD
039673,001469: 32,3371 03706 DV
039674,001470: 32,3372 77640 BMN
039675,001471: 32,3373 65453 V2T300
039676,001472: 32,3374 71214 V2T175 SET DLOAD
039677,001473: 32,3375 00072 F2RTE
039678,001474: 32,3376 03722 X(T1)
039679,001475: 32,3377 77614 BOFF
039680,001476: 32,3400 02742 SLOWFLG
039681,001477: 32,3401 65406 V2T177
039682,001478: 32,3402 14013 STODL 10D # X(T1)MIN
039683,001479: 32,3403 00015 12D # DX(T1)MAX
039684,001480: 32,3404 77650 GOTO
039685,001481: 32,3405 65411 V2T179
039686,001482: 32,3406 14017 V2T177 STODL 14D
039687,001483: 32,3407 00015 12D
039688,001484: 32,3410 77676 DCOMP
039689,001485: 32,3411 34021 V2T179 STCALL 16D # DX(T1)
039690,001486: 32,3412 65457 GAMDV10
039691,001487: 32,3413 50145 DLOAD BMN
039692,001488: 32,3414 03730 NN1A
039693,001489: 32,3415 65453 V2T300
039694,001490:
039695,001491: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
039696,001492: # PRECISION TRAJECTORY
039697,001493:
039698,001494: 32,3416 45345 V2T185 DLOAD DSU
039699,001495: 32,3417 03722 X(T1)
039700,001496: 32,3420 00001 00D
039701,001497: 32,3421 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
039702,001498: 32,3422 00015 12D
039703,001499: 32,3423 44352 SL1 BDSU
039704,001500: 32,3424 71240 BMN DLOAD
039705,001501: 32,3425 65453 V2T300
039706,001502: 32,3426 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
039707,001503: 32,3427 03722 STORE X(T1) # X(T1),, = X(T1)
039708,001504: 32,3430 50025 DSU BMN
039709,001505: 32,3431 00017 14D
039710,001506: 32,3432 65440 V2T195
039711,001507: 32,3433 77745 DLOAD
039712,001508: 32,3434 00017 14D
039713,001509: 32,3435 03722 STORE X(T1) # X(T1)MAX = X(T1)
039714,001510: 32,3436 77650 GOTO
039715,001511: 32,3437 65451 V2T205
039716,001512: 32,3440 45345 V2T195 DLOAD DSU
039717,001513: 32,3441 03722 X(T1)
039718,001514: 32,3442 00013 10D
039719,001515: 32,3443 52040 BMN GOTO
039720,001516: 32,3444 65446 V2T200
039721,001517: 32,3445 65451 V2T205
039722,001518: 32,3446 77745 V2T200 DLOAD
039723,001519: 32,3447 00013 10D
039724,001520: 32,3450 03722 STORE X(T1) # X(T1)MIN = X(T1)
039725,001521: 32,3451 77624 V2T205 CALL
039726,001522: 32,3452 65660 DVCALC
039727,001523: 32,3453 77745 V2T300 DLOAD
039728,001524: 32,3454 33524 ZERORTE
039729,001525: 32,3455 77650 V2T1X GOTO
039730,001526: 32,3456 00041 33D
039731,001527:
039732,001528: # X(T1)-DV ITERATOR SUBROUTINE
039733,001529:
039734,001530: # DESCRIPTION
039735,001531: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
039736,001532:
039737,001533: # CALLING SEQUENCE
039738,001534: # L CALL
039739,001535: # L+1 GAMDV10
039740,001536:
039741,001537: # NORMAL EXIT MODE
039742,001538: # AT L+2 OF CALLING SEQUENCE
039743,001539:
039744,001540: # ALARM EXIT MODE
039745,001541: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039746,001542:
039747,001543: # SUBROUTINES CALLED
039748,001544: # DVCALC
039749,001545:
039750,001546: # ERASABLE INITIALIZATION REQUIRED
039751,001547: # PUSHLIST
039752,001548: # 02D THETA1=BETA5*LAMBDA-1 TP B17
039753,001549: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
039754,001550: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
039755,001551: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
039756,001552: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
039757,001553: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
039758,001554: # 16D DX(T1)=ITERATOR INCREMENT DP B5
039759,001555: # MPAC
039760,001556: # NONE
039761,001557: # OTHER
039762,001558: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039763,001559: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
039764,001560: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039765,001561: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039766,001562: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
039767,001563: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
039768,001564:
039769,001565: # OUTPUT
039770,001566: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039771,001567: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
039772,001568: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
039773,001569: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
039774,001570:
039775,001571: # DEBRIS
039776,001572: # PUSHLIST
039777,001573: # 00D X(T1),,
039778,001574: # 02D THETA1
039779,001575: # 05D THETA2
039780,001576: # 08D THETA3
039781,001577: # 10D X(T1)MIN
039782,001578: # 12D DX(T1)MAX
039783,001579: # 14D X(T1)MAX
039784,001580: # 16D DX(T1)
039785,001581: # 22D DV,=PREVIOUS DV DP B7/B5
039786,001582: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
039787,001583: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
039788,001584: # 32D DVCALC SUBROUTINE RETURN ADDRESS
039789,001585: # 33D V2T100 SUBROUTINE RETURN ADDRESS
039790,001586:
039791,001587: 32,3457 77620 GAMDV10 STQ
039792,001588: 32,3460 00037 31D
039793,001589: 32,3461 45001 SETPD CALL
039794,001590: 32,3462 00023 18D # PL18D
039795,001591: 32,3463 65660 DVCALC
039796,001592: 32,3464 45345 DLOAD DSU
039797,001593: 32,3465 00017 14D
039798,001594: 32,3466 00013 10D
039799,001595: 32,3467 77600 BOV
039800,001596: 32,3470 65510 GAMDV20
039801,001597: 32,3471 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
039802,001598: 32,3472 33614 EPC9RTE
039803,001599: 32,3473 71240 BMN DLOAD
039804,001600: 32,3474 65656 GAMDVX # BOUNDS CLOSE TOGETHER
039805,001601: 32,3475 00023 18D
039806,001602: 32,3476 50025 DSU BMN # BETA8-DX(T1)MAX
039807,001603: 32,3477 00015 12D
039808,001604: 32,3500 65504 GAMDV15
039809,001605: 32,3501 52001 SETPD GOTO # PL18D
039810,001606: 32,3502 00023 18D
039811,001607: 32,3503 65510 GAMDV20
039812,001608: 32,3504 77745 GAMDV15 DLOAD # PL18D
039813,001609: 32,3505 70565 SIGN SR1
039814,001610: 32,3506 00021 16D
039815,001611: 32,3507 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
039816,001612: 32,3510 77745 GAMDV20 DLOAD
039817,001613: 32,3511 33526 M144RTE
039818,001614: 32,3512 03732 STORE NN2
039819,001615: 32,3513 43345 GAMDV25 DLOAD DAD
039820,001616: 32,3514 03732 NN2
039821,001617: 32,3515 33522 1RTEB28
039822,001618: 32,3516 67240 BMN SLOAD
039823,001619: 32,3517 65523 GAMDV30
039824,001620: 32,3520 33562 OCT605
039825,001621: 32,3521 77650 GOTO
039826,001622: 32,3522 65455 V2T1X
039827,001623: 32,3523 03732 GAMDV30 STORE NN2 # NN2=NN2+1
039828,001624: 32,3524 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
039829,001625: 32,3525 03722 X(T1)
039830,001626: 32,3526 03706 DV
039831,001627: 32,3527 43325 PDDL DAD # DV=DV, B7/B5 PL22D
039832,001628: 32,3530 03722 X(T1)
039833,001629: 32,3531 00021 16D
039834,001630: 32,3532 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
039835,001631: 32,3533 65660 DVCALC
039836,001632: 32,3534 71214 BON DLOAD
039837,001633: 32,3535 00312 F2RTE
039838,001634: 32,3536 65552 GAMDV35
039839,001635: 32,3537 03706 DV
039840,001636: 32,3540 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
039841,001637: 32,3541 00025 20D
039842,001638: 32,3542 65547 GAMDV33
039843,001639: 32,3543 57545 GAMDV32 DLOAD DCOMP
039844,001640: 32,3544 00021 16D
039845,001641: 32,3545 77742 SR1
039846,001642: 32,3546 00021 STORE 16D
039847,001643: 32,3547 52001 GAMDV33 SETPD GOTO
039848,001644: 32,3550 00023 18D # PL18D
039849,001645: 32,3551 65615 GAMDV50
039850,001646:
039851,001647: # TIME CRITICAL MODE
039852,001648:
039853,001649: 32,3552 45345 GAMDV35 DLOAD DSU
039854,001650: 32,3553 03632 RTEDVD
039855,001651: 32,3554 03706 DV
039856,001652: 32,3555 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
039857,001653: 32,3556 51545 GAMDV40 DLOAD ABS # DV, PL24D
039858,001654: 32,3557 00025 20D
039859,001655: 32,3560 50025 DSU BMN
039860,001656: 32,3561 33616 EPC10RTE
039861,001657: 32,3562 65656 GAMDVX
039862,001658: 32,3563 71204 GAMDV45 BOVB DLOAD
039863,001659: 32,3564 57353 TCDANZIG # ASSURE OVFIND IS 0
039864,001660: 32,3565 60221 BDSU NORM
039865,001661: 32,3566 03706 DV
039866,001662: 32,3567 00050 X2
039867,001663: 32,3570 77725 PDDL # DV-DV, B7/B5-N2 PL22D
039868,001664: 32,3571 70501 NORM SR1 # DVERR B8/B6-N1
039869,001665: 32,3572 00047 X1
039870,001666: 32,3573 65271 DDV PDDL # DVERR/ DV - DV
039871,001667: 32,3574 41221 BDSU DMP # PL18D
039872,001668: 32,3575 03722 X(T1)
039873,001669: 32,3576 77660 XSU,1
039874,001670: 32,3577 00047 X2
039875,001671: 32,3600 00021 STORE 16D # PRESERVE SIGN IF OVERFLOW
039876,001672: 32,3601 40057 SR* BOV
039877,001673: 32,3602 20600 0 -1,1
039878,001674: 32,3603 65611 GAMDV47
039879,001675: 32,3604 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
039880,001676: 32,3605 45246 ABS DSU
039881,001677: 32,3606 00015 12D
039882,001678: 32,3607 77640 BMN
039883,001679: 32,3610 65615 GAMDV50
039884,001680: 32,3611 75345 GAMDV47 DLOAD SIGN
039885,001681: 32,3612 00015 12D
039886,001682: 32,3613 00021 16D
039887,001683: 32,3614 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
039888,001684:
039889,001685: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
039890,001686:
039891,001687: 32,3615 41345 GAMDV50 DLOAD DMP
039892,001688: 32,3616 00021 16D
039893,001689: 32,3617 33536 1.1RTEB1
039894,001690: 32,3620 43352 SL1 DAD
039895,001691: 32,3621 03722 X(T1)
039896,001692: 32,3622 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
039897,001693: 32,3623 50025 DSU BMN
039898,001694: 32,3624 00017 14D
039899,001695: 32,3625 65634 GAMDV55
039900,001696: 32,3626 45345 DLOAD DSU
039901,001697: 32,3627 00017 14D
039902,001698: 32,3630 03722 X(T1)
039903,001699: 32,3631 77742 SR1
039904,001700: 32,3632 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
039905,001701: 32,3633 65647 GAMDV65
039906,001702: 32,3634 45345 GAMDV55 DLOAD DSU
039907,001703: 32,3635 00031 24D
039908,001704: 32,3636 00013 10D
039909,001705: 32,3637 52040 BMN GOTO
039910,001706: 32,3640 65642 GAMDV60
039911,001707: 32,3641 65647 GAMDV65
039912,001708: 32,3642 45345 GAMDV60 DLOAD DSU
039913,001709: 32,3643 00013 10D
039914,001710: 32,3644 03722 X(T1)
039915,001711: 32,3645 77742 SR1
039916,001712: 32,3646 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
039917,001713: 32,3647 51545 GAMDV65 DLOAD ABS
039918,001714: 32,3650 00021 16D
039919,001715: 32,3651 50025 DSU BMN
039920,001716: 32,3652 33614 EPC9RTE
039921,001717: 32,3653 65656 GAMDVX
039922,001718: 32,3654 77650 GOTO
039923,001719: 32,3655 65513 GAMDV25
039924,001720: 32,3656 77650 GAMDVX GOTO
039925,001721: 32,3657 00037 31D
039926,001722:
039927,001723: # DV CALCULATION SUBROUTINE
039928,001724:
039929,001725: # INPUT
039930,001726: # PUSHLIST
039931,001727: # 02D THETA1=BETA5*LAMBDA-1 TP B17
039932,001728: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
039933,001729: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
039934,001730: # OTHER
039935,001731: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
039936,001732: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
039937,001733: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039938,001734: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039939,001735:
039940,001736: # OUTPUT
039941,001737: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039942,001738: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
039943,001739: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
039944,001740:
039945,001741: # DEBRIS
039946,001742: # 28D THETA3*PCON**.5 DP B10/B8-N1
039947,001743: # C(PUSLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
039948,001744: # 32D DVCALC SUBROUTINE RETURN ADDRESS
039949,001745: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
039950,001746:
039951,001747: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
039952,001748:
039953,001749: 32,3660 71220 DVCALC STQ DLOAD
039954,001750: 32,3661 00040 32D
039955,001751: 32,3662 03722 X(T1)
039956,001752: 32,3663 54316 DSQ SR
039957,001753: 32,3664 20610 7
039958,001754: 32,3665 76276 DCOMP TAD
039959,001755: 32,3666 00003 02D
039960,001756: 32,3667 41501 NORM PUSH
039961,001757: 32,3670 00047 X1
039962,001758: 32,3671 60351 TLOAD NORM
039963,001759: 32,3672 00006 05D
039964,001760: 32,3673 00050 X2
039965,001761: 32,3674 70434 RTB SR1
039966,001762: 32,3675 45716 DPMODE
039967,001763: 32,3676 56264 XSU,2 DDV
039968,001764: 32,3677 00046 X1
039969,001765: 32,3700 77657 SR*
039970,001766: 32,3701 57170 6,2
039971,001767: 32,3702 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
039972,001768: 32,3703 41366 SQRT DMP
039973,001769: 32,3704 00011 08D
039974,001770: 32,3705 77701 NORM
039975,001771: 32,3706 00047 X1
039976,001772: 32,3707 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
039977,001773: 32,3710 03722 X(T1)
039978,001774: 32,3711 74301 NORM VXSC
039979,001775: 32,3712 00050 X2
039980,001776: 32,3713 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
039981,001777: 32,3714 74274 XAD,2 VXSC
039982,001778: 32,3715 00046 X1
039983,001779: 32,3716 00035 28D
039984,001780: 32,3717 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
039985,001781: 32,3720 57207 0 -9D,2 # +
039986,001782: 32,3721 03746 UH/
039987,001783: 32,3722 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
039988,001784: 32,3723 00035 28D
039989,001785: 32,3724 20575 0 -4,1 # =
039990,001786: 32,3725 45455 VAD STADR
039991,001787: 32,3726 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
039992,001788: 32,3727 51451 VSU ABVAL
039993,001789: 32,3730 03672 V(T1)/
039994,001790: 32,3731 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
039995,001791: 32,3732 77650 GOTO
039996,001792: 32,3733 00040 32D
039997,001793:
039998,001794: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039999,001795:
040000,001796: # INPUT
040001,001797: # PUSHLIST
040002,001798: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
040003,001799: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
040004,001800: # 28D BETA5=LAMBDA*BETA1 DP B9
040005,001801: # OTHER
040006,001802: # RCON DP B29/B27
040007,001803: # R(T1) DP B29/B27
040008,001804:
040009,001805: # OUTPUT
040010,001806: # MPAC
040011,001807: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
040012,001808:
040013,001809: # DEBRIS
040014,001810: # PUSHLIST
040015,001811: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
040016,001812: # C(PSHLOC)+2 MA DP B30/B28
040017,001813: # X1 NORMALIZATION FACTOR FOR MA-RCON
040018,001814: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
040019,001815:
040020,001816: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
040021,001817:
040022,001818: 32,3734 71220 XT1LIM STQ DLOAD
040023,001819: 32,3735 00024 20D
040024,001820: 32,3736 03636 RCON
040025,001821: 32,3737 44342 SR1 BDSU
040026,001822: 32,3740 65301 NORM PDDL # MA-RCON B30-N1
040027,001823: 32,3741 00050 X2
040028,001824: 32,3742 70525 PDDL SR1
040029,001825: 32,3743 03646 R(T1)
040030,001826: 32,3744 56221 BDSU DDV
040031,001827: 32,3745 41257 SL* DMP
040032,001828: 32,3746 57601 0 -3,2 # B3
040033,001829: 32,3747 00035 28D
040034,001830: 32,3750 45257 SL* DSU # BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
040035,001831: 32,3751 20173 0 -6,1
040036,001832: 32,3752 33521 1RTEB25 +1 # 1.0 B-11
040037,001833: 32,3753 40152 SL1 BOV
040038,001834: 32,3754 65760 XT1LIM2 # B10
040039,001835: 32,3755 52040 BMN GOTO
040040,001836: 32,3756 65764 XT1LIM5
040041,001837: 32,3757 65762 XT1LIM3
040042,001838: 32,3760 77745 XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
040043,001839: 32,3761 33542 2RTEB1
040044,001840: 32,3762 52166 XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10) B5
040045,001841: 32,3763 65766 XT1LIMX
040046,001842: 32,3764 77745 XT1LIM5 DLOAD
040047,001843: 32,3765 33524 ZERORTE
040048,001844: 32,3766 77650 XT1LIMX GOTO
040049,001845: 32,3767 00024 20D
040050,001846:
040051,001847: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
040052,001848:
040053,001849: 36,3260 BANK 36
040054,001850: 35,2000 SETLOC RTECON1
040055,001851: 35,2000 BANK
040056,001852:
040057,001853: 35,3477 20000 00000 1RTEB1 2DEC 1. B-1
040058,001854: 35,3501 10000 00000 1RTEB2 2DEC 1. B-2
040059,001855: 35,3503 04000 00000 1RTEB3 2DEC 1. B-3
040060,001856: 35,3505 02000 00000 1RTEB4 2DEC 1. B-4
040061,001857: 35,3507 00020 00000 1RTEB10 2DEC 1. B-10
040062,001858: 35,3511 00004 00000 1RTEB12 2DEC 1. B-12
040063,001859: 35,3513 00002 00000 1RTEB13 2DEC 1. B-13
040064,001860: 35,3515 00000 04000 1RTEB17 2DEC 1. B-17
040065,001861: 35,3517 00000 00010 1RTEB25 2DEC 1. B-25
040066,001862: # * * B25 AND B28 MUST BE CONSECUTIVE * *
040067,001863: 35,3521 00000 00001 1RTEB28 2DEC 1. B-28
040068,001864: 35,3523 00000 00000 ZERORTE 2DEC 0 B-28
040069,001865: 35,3525 77777 77557 M144RTE 2DEC -144. B-28
040070,001866: 35,3527 77777 77760 M15RTE 2DEC -15 B-28
040071,001867: 35,3531 00000 00012 10RTE 2DEC 10 B-28
040072,001868: 35,3533 54631 63145 M.6RTE 2DEC -.6
040073,001869: 35,3535 21463 06315 1.1RTEB1 2DEC 1.1 B-1
040074,001870: 35,3537 77777 77771 M6RTEB28 2DEC -6 B-28
040075,001871: 35,3541 37777 37777 2RTEB1 2OCT 3777737777
040076,001872: 35,3543 77777 77766 M9RTEB28 2DEC -9 B-28
040077,001873: 35,3545 77777 77767 M8RTEB28 2DEC -8 B-28
040078,001874: 35,3547 00000 35610 30480RTE 2DEC 30480. B-29
040079,001875: 35,3551 37405 12250 VCSPS 2DEC 31.510396 B-5 # (SEE 2VEXHUST)
040080,001876: 35,3553 33041 37714 VCRCS 2DEC 27.0664 B-5
040081,001877: 35,3555 00003 13241 MDOTRCS 2DEC .0016375 B-3
040082,001878: 35,3557 20000 00000 CSUBT 2DEC .5
040083,001879: 35,3561 00605 OCT605 OCT 00605
040084,001880: 35,3562 00612 OCT612 OCT 00612
040085,001881: 35,3563 40214 45266 MCOS7.5 2DEC -.99144486
040086,001882: 35,3565 73645 56536 MSIN7.5 2DEC -.13052619
040087,001883: 35,3567 70467 71205 MCOS22.5 2DEC -.92387953 B-2
040088,001884: 35,3571 16525 12525 THETA165 2DEC .4583333333
040089,001885: 35,3573 22525 12525 THETA210 2DEC .5833333333
040090,001886: 35,3575 17775 06676 EPC1RTE 2DEC .99966 B-1
040091,001887: 35,3577 00000 00062 EPC2RTE 2DEC 100. B-29
040092,001888: 35,3601 00020 14223 EPC3RTE 2DEC .001
040093,001889: 35,3603 00000 05174 EPC4RTE 2DEC .00001
040094,001890: 35,3605 00002 21727 EPC5RTE 2DEC .01 B-6
040095,001891: 35,3607 00000 01654 EPC6RTE 2DEC .000007 B-1
040096,001892: 35,3611 00000 00764 EPC7RTE 2DEC 1000. B-29
040097,001893: 35,3613 00000 00010 EPC9RTE 2DEC 1. B-25
040098,001894: 35,3615 00000 00322 EPC10RTE 2DEC .0001 B-7
040099,001895:
040100,001896: 35,3617 BANK 35
040101,001897: 35,2000 SETLOC RTECON1
040102,001898: 35,2000 BANK
040103,001899:
040104,001900: 35,3617 75725 75417 C4RTE 2DEC -6.986643 E7 B-30
040105,001901: 35,3621 00325 23740 K1RTE 2DEC 7. E6 B-29
040106,001902: 35,3623 00306 06614 K2RTE 2DEC 6495000. B-29
040107,001903: 35,3625 76027 70156 K3RTE 2DEC -.06105
040108,001904: 35,3627 74517 54131 K4RTE 2DEC -.10453
040109,001905: 35,3631 30276 05001 RTMURTE 2DEC 199650.501 B-18
040110,001906: 35,3633 00003 27040 E3RTE 2DEC 121920. B-29
040111,001907:
End of include-file P37,P70.agc. Parent file is MAIN.agc