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