Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
036480,000002: # Copyright: Public domain.
036481,000003: # Filename: P37,P70.agc
036482,000004: # Purpose: Part of the source code for Colossus build 237.
036483,000005: # This is for the Command Module's (CM) Apollo Guidance
036484,000006: # Computer (AGC), we believe for Apollo 8.
036485,000007: # Assembler: yaYUL
036486,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
036487,000009: # Website: www.ibiblio.org/apollo/index.html
036488,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
036489,000011: # Mod history: 2011-03-05 JL Adapted from corresponding Colossus 249 file.
036490,000012:
036491,000013: # # Page 840
036492,000014: 31,3215 BANK 31
036493,000015: 36,2000 SETLOC RTE1
036494,000016: 36,2000 BANK
036495,000017:
036496,000018: 36,2502 E7,1631 EBANK= RTEDVD
036497,000019: 36,2502 COUNT 31/P37
036498,000020:
036499,000021: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
036500,000022:
036501,000023: # DESCRIPTION
036502,000024: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
036503,000025: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
036504,000026: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
036505,000027: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
036506,000028: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BYSPS PROGRAM (P40) OR RCS PROGRAM (P41).
036507,000029:
036508,000030: # CALLING SEQUENCE
036509,000031: # L TC P37
036510,000032:
036511,000033: # SUBROUTINES CALLED
036512,000034: # PREC100
036513,000035: # V2T100
036514,000036: # RTENCK2
036515,000037: # RTENCK3
036516,000038: # TIMERAD
036517,000039: # PARAM
036518,000040: # V2T100
036519,000041: # GAMDV10
036520,000042: # XT1LIM
036521,000043: # DVCALC
036522,000044: # RTENCK1
036523,000045: # INTSTALL
036524,000046: # INTEGRVS
036525,000047: # RTEVN
036526,000048: # RETDISP
036527,000049: # TMRAD100
036528,000050: # AUGEKUGL
036529,000051: # LAT-LONG
036530,000052: # TMRAD100
036531,000053: # TIMERAD
036532,000054: # INVC100
036533,000055: # CSMPREC
036534,000056: # GETERAD
036535,000057: # TIMETHET
036536,000058: # P370ALRM
036537,000059: # VN1645
036538,000060: # POLY
036539,000061:
036540,000062: # ERASABLE INITIALIZATION REQUIRED
036541,000063: # CSM STATE VECTOR
036542,000064: # # Page 841
036543,000065: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
036544,000066:
036545,000067: # ASTRONAUT INPUT
036546,000068: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
036547,000069: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
036548,000070: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
036549,000071: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
036550,000072:
036551,000073: # OUTPUT
036552,000074: # CONIC OR PRECISION TRAJECTORY DISPLAY
036553,000075: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
036554,000076: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
036555,000077: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
036556,000078: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
036557,000079: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
036558,000080: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
036559,000081: # TARGETING COMPUTATION DISPLAY
036560,000082: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
036561,000083: # TTOGO TIME FROM TIG DP B28 CS
036562,000084: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
036563,000085: # THRUST PROGRAM COMMUNICATION
036564,000086: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
036565,000087: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
036566,000088: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
036567,000089: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
036568,000090: # TPASS4 REENTRY TIME DP B28 CS
036569,000091:
036570,000092: 36,2502 05301 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
036571,000093: 36,2503 00004 OCT 4
036572,000094:
036573,000095: 36,2504 06006 TC INTPRET
036574,000096: 36,2505 66170 AXT,1 SXA,1
036575,000097: 36,2506 04000 OCT 04000
036576,000098: 36,2507 03424 ECSTEER
036577,000099: 36,2510 77776 EXIT
036578,000100: 36,2511 33242 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
036579,000101: 36,2512 03231 TCR P370GOF # OVERLAYED WITH TIG
036580,000102: 36,2513 12511 TCF -2 # DESPLAY NEW DATA
036581,000103: 36,2514 33246 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
036582,000104: 36,2515 03205 TCR P37GFRB1 # AND DESIRED DELTA V IN RETDVD
036583,000105: 36,2516 12514 TCF -2 # DISPLAY NEW DATA
036584,000106: 36,2517 06006 RTE299 TC INTPRET
036585,000107: 36,2520 71331 SSP DLOAD
036586,000108: 36,2521 00122 OVFIND
036587,000109: 36,2522 00000 0
036588,000110: 36,2523 03767 VPRED
036589,000111: 36,2524 17632 STODL RTEDVD
036590,000112: 36,2525 03771 GAMMAEI
036591,000113: 36,2526 17634 STODL RTEGAM2D
036592,000114: 36,2527 31671 1RTEB13
036593,000115: # # Page 842
036594,000116: 36,2530 17735 STODL CONICX1
036595,000117: 36,2531 33756 C4RTE
036596,000118: 36,2532 37652 STCALL MAMAX1
036597,000119: 36,2533 64423 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
036598,000120: 36,2534 77545 DLOAD EXIT
036599,000121: 36,2535 03646 R(T1)
036600,000122: 36,2536 07171 TC POLY
036601,000123: 36,2537 00002 DEC 2 B-14
036602,000124: 36,2540 02544 35436 2DEC 181000434.
036603,000125: 36,2542 14040 05066 2DEC 1.50785145
036604,000126: 36,2544 44052 60030 2DEC* -6.49993057
036605,000127: 36,2546 26415 25057 2DEC* 9.76938926
036606,000128: 36,2550 06006 TC INTPRET
036607,000129: 36,2551 77752 SL1
036608,000130: 36,2552 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
036609,000131: 36,2553 31721 M9RTEB28
036610,000132: 36,2554 17730 STODL NN1A
036611,000133: 36,2555 33762 K2RTE
036612,000134: 36,2556 17636 RTE320 STODL RCON # RCON=K2
036613,000135: 36,2557 03634 RTEGAM2D
036614,000136: 36,2560 44254 BZE BDSU
036615,000137: 36,2561 74570 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
036616,000138: 36,2562 31657 1RTEB2
036617,000139: 36,2563 71406 PUSH COS # PL02D
036618,000140: 36,2564 73525 PDDL SIN
036619,000141: 36,2565 45465 BDDV STADR # PL00D
036620,000142: 36,2566 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
036621,000143: 36,2567 74603 RTE360
036622,000144: 36,2570 45345 RTE340 DLOAD DSU
036623,000145: 36,2571 03646 R(T1)
036624,000146: 36,2572 33760 K1RTE
036625,000147: 36,2573 71240 BMN DLOAD
036626,000148: 36,2574 74600 RTE350
036627,000149: 36,2575 33766 K4RTE
036628,000150: 36,2576 37726 STCALL X(T2) # X(T2)=K4
036629,000151: 36,2577 74603 RTE360
036630,000152: 36,2600 77745 RTE350 DLOAD
036631,000153: 36,2601 33764 K3RTE
036632,000154: 36,2602 03726 STORE X(T2) # X(T2)=K3
036633,000155: 36,2603 77624 RTE360 CALL
036634,000156: 36,2604 65132 V2T100
036635,000157: 36,2605 52054 BZE GOTO
036636,000158: 36,2606 74610 RTE367
036637,000159: 36,2607 74772 RTEALRM
036638,000160: 36,2610 77775 RTE367 VLOAD
036639,000161: 36,2611 03640 R(T1)/
036640,000162: # # Page 843
036641,000163: 36,2612 16657 STODL RVEC
036642,000164: 36,2613 03636 RCON
036643,000165: 36,2614 26760 STOVL RDESIRED
036644,000166: 36,2615 03700 V2(T1)/
036645,000167: 36,2616 36746 STCALL VVEC
036646,000168: 36,2617 64266 TMRAD100
036647,000169: 36,2620 77615 DAD
036648,000170: 36,2621 03716 T1
036649,000171: 36,2622 17736 STODL T2
036650,000172: 36,2623 03634 RTEGAM2D
036651,000173: 36,2624 52054 BZE GOTO
036652,000174: 36,2625 74627 RTE369
036653,000175: 36,2626 74651 RTE372
036654,000176: 36,2627 51575 RTE369 VLOAD ABVAL
036655,000177: 36,2630 03710 V(T2)/
036656,000178: 36,2631 77776 EXIT
036657,000179: 36,2632 07171 TC POLY
036658,000180: 36,2633 00002 DEC 2 B-14
036659,000181: 36,2634 00000 00000 2DEC 0 B-28
036660,000182: 36,2636 47021 65002 2DEC -4.8760771
036661,000183: 36,2640 35610 07722 2DEC 4.5419476
036662,000184: 36,2642 63772 63276 2DEC -1.4317675
036663,000185: 36,2644 06006 TC INTPRET
036664,000186: 36,2645 77615 DAD
036665,000187: 36,2646 01352 RTED1
036666,000188: 36,2647 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
036667,000189: 36,2650 74653 RTE373
036668,000190: 36,2651 77745 RTE372 DLOAD # X(T2),=X(T2)
036669,000191: 36,2652 03726 X(T2)
036670,000192: 36,2653 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
036671,000193: 36,2654 03726 X(T2)
036672,000194: 36,2655 53575 VLOAD UNIT
036673,000195: 36,2656 03656 R(T2)/ # B58
036674,000196: 36,2657 36152 STCALL ALPHAV
036675,000197: 36,2660 26437 GETERAD
036676,000198: 36,2661 77615 DAD
036677,000199: 36,2662 33772 E3RTE
036678,000200: 36,2663 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
036679,000201: 36,2664 03636 RCON
036680,000202: 36,2665 45246 ABS DSU
036681,000203: 36,2666 31756 EPC2RTE
036682,000204: 36,2667 52040 BMN GOTO
036683,000205: 36,2670 74672 RTE374
036684,000206: 36,2671 74677 RTE375
036685,000207: 36,2672 51545 RTE374 DLOAD ABS
036686,000208: 36,2673 00001 00D
036687,000209: # # Page 844
036688,000210: 36,2674 50025 DSU BMN
036689,000211: 36,2675 31760 EPC3RTE
036690,000212: 36,2676 74747 P37E
036691,000213: 36,2677 43345 RTE375 DLOAD DAD
036692,000214: 36,2700 03730 NN1A
036693,000215: 36,2701 31677 1RTEB28
036694,000216: 36,2702 67240 BMN SLOAD
036695,000217: 36,2703 74707 RTE380
036696,000218: 36,2704 31737 OCT605
036697,000219: 36,2705 77650 GOTO
036698,000220: 36,2706 74772 RTEALRM # TOO MANY ITERATIONS
036699,000221: 36,2707 03730 RTE380 STORE NN1A
036700,000222: 36,2710 53025 DSU BZE
036701,000223: 36,2711 31723 M8RTEB28
036702,000224: 36,2712 74730 RTE385
036703,000225: 36,2713 45345 DLOAD DSU
036704,000226: 36,2714 00001 00D
036705,000227: 36,2715 03666 DRCON
036706,000228: 36,2716 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
036707,000229: 36,2717 00047 X1
036708,000230: 36,2720 03670 RPRE,
036709,000231: 36,2721 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
036710,000232: 36,2722 03726 X(T2)
036711,000233: 36,2723 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
036712,000234: 36,2724 00001 00D
036713,000235: 36,2725 20201 0,1
036714,000236: 36,2726 77650 GOTO
036715,000237: 36,2727 74732 RTE390
036716,000238: 36,2730 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
036717,000239: 36,2731 00001 00D
036718,000240: 36,2732 14021 RTE390 STODL 16D # DX(T2) PL02D
036719,000241: 36,2733 77626 STADR
036720,000242: 36,2734 60141 STODL RCON # RCON=RCON,
036721,000243: 36,2735 77600 BOV
036722,000244: 36,2736 74603 RTE360
036723,000245: 36,2737 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
036724,000246: 36,2740 03726 X(T2)
036725,000247: 36,2741 17670 STODL RPRE, # X(T2)PRI=X(T2)
036726,000248: 36,2742 00021 16D
036727,000249: 36,2743 77615 DAD
036728,000250: 36,2744 03726 X(T2)
036729,000251: 36,2745 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
036730,000252: 36,2746 74603 RTE360 # REITERATE
036731,000253: 36,2747 77624 P37E CALL # DISPLAY CONIC SOLUTION
036732,000254: 36,2750 74776 RTEVN
036733,000255: 36,2751 41345 RTE505 DLOAD DMP
036734,000256: 36,2752 03720 PCON
036735,000257: 36,2753 03754 BETA1
036736,000258: 36,2754 53021 BDSU BZE
036737,000259: 36,2755 03636 RCON
036738,000260: # # Page 845
036739,000261: 36,2756 74764 RTE510
036740,000262: 36,2757 71240 BMN DLOAD
036741,000263: 36,2760 74764 RTE510
036742,000264: 36,2761 31657 1RTEB2
036743,000265: 36,2762 77650 GOTO # ENTRY NEAR APOGEE
036744,000266: 36,2763 74766 RTE515
036745,000267: 36,2764 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
036746,000268: 36,2765 31657 1RTEB2
036747,000269: 36,2766 37761 RTE515 STCALL PHI2
036748,000270: 36,2767 64511 PREC100 # PRECISION TRAJECTORY COMPUTATION
036749,000271: 36,2770 77654 RTE625 BZE
036750,000272: 36,2771 75024 P37G
036751,000273: 36,2772 77624 RTEALRM CALL
036752,000274: 36,2773 64251 P370ALRM
036753,000275: 36,2774 77776 EXIT
036754,000276: 36,2775 12502 TCF P37 # RECYCLE AFTER ALARM DISPLAY
036755,000277:
036756,000278: # RETURN TO EARTH DISPLAY SUBROUTINE
036757,000279:
036758,000280: 36,2776 45020 RTEVN STQ CALL
036759,000281: 36,2777 03763 VNSTORE
036760,000282: 36,3000 64305 RTEDISP # DISPLAY PREPARATION
036761,000283: 36,3001 77776 EXIT
036762,000284: 36,3002 33244 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
036763,000285: 36,3003 03215 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
036764,000286: 36,3004 34710 CAF FOUR
036765,000287: 36,3005 03211 TCR 37BLANK +1
036766,000288: 36,3006 13013 TCF +5
036767,000289: 36,3007 12502 TCF P37 # RECYCLE
036768,000290: 36,3010 33245 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
036769,000291: 36,3011 03231 TCR P370GOF
036770,000292: 36,3012 12502 TCF P37 # RECYCLE
036771,000293: 36,3013 33246 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
036772,000294: 36,3014 03205 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
036773,000295: 36,3015 12502 TCF P37 # RECYCLE
036774,000296: 36,3016 33247 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
036775,000297: 36,3017 03231 TCR P370GOF
036776,000298: 36,3020 12502 TCF P37 # RECYCLE
036777,000299: 36,3021 06006 TCR INTPRET
036778,000300: 36,3022 77650 GOTO
036779,000301: 36,3023 03763 VNSTORE
036780,000302:
036781,000303: # PRECISION DISPLAY,TARGETING COMPUTATION AND RTE END PROCESSING
036782,000304:
036783,000305: 36,3024 77624 P37G CALL
036784,000306: 36,3025 74776 RTEVN
036785,000307: 36,3026 77776 EXIT
036786,000308: 36,3027 34716 P37N CAF SEVEN
036787,000309: 36,3030 55131 TS OPTION1
036788,000310: 36,3031 34712 CAF ONE
036789,000311: # # Page 846
036790,000312: 36,3032 55132 TS OPTION2
036791,000313: 36,3033 33243 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
036792,000314: 36,3034 03231 TCR P370GOF
036793,000315: 36,3035 13033 TCF -2 # RECYCLE
036794,000316: 36,3036 06006 TC INTPRET # PROCEED
036795,000317: 36,3037 67201 SETPD SLOAD
036796,000318: 36,3040 00001 00D
036797,000319: 36,3041 01133 OPTION2
036798,000320: 36,3042 53025 DSU BZE
036799,000321: 36,3043 31671 1RTEB13
036800,000322: 36,3044 75053 P37Q
036801,000323: 36,3045 60345 DLOAD NORM # SPS
036802,000324: 36,3046 10362 MDOTHI
036803,000325: 36,3047 00047 X1
036804,000326: 36,3050 52125 PDDL GOTO
036805,000327: 36,3051 31727 VCSPS
036806,000328: 36,3052 75064 P37T
036807,000329: 36,3053 43145 P37Q DLOAD BON # RCS
036808,000330: 36,3054 31733 MDOTRCS
036809,000331: 36,3055 00700 NJETSFLG
036810,000332: 36,3056 75060 P37R
036811,000333: 36,3057 77752 SL1
036812,000334: 36,3060 77752 P37R SL1
036813,000335: 36,3061 65301 NORM PDDL
036814,000336: 36,3062 00047 X1
036815,000337: 36,3063 31731 VCRCS
036816,000338: 36,3064 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
036817,000339: 36,3065 03706 DV
036818,000340: 36,3066 77776 EXIT
036819,000341: 36,3067 07171 TC POLY
036820,000342: 36,3070 00001 DEC 1 B-14
036821,000343: 36,3071 00001 05070 2DEC 5.66240507
036822,000344: 36,3073 17527 36700 2DEC 9.79487897
036823,000345: 36,3075 47114 70670 2DEC -.388281955
036824,000346: 36,3077 06006 TC INTPRET
036825,000347: 36,3100 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
036826,000348: 36,3101 03076 WEIGHT/G
036827,000349: 36,3102 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
036828,000350: 36,3103 41257 SL* DMP
036829,000351: 36,3104 20165 0 -12D,1
036830,000352: 36,3105 31735 CSUBT
036831,000353: 36,3106 77621 BDSU
036832,000354: 36,3107 03716 T1
036833,000355: 36,3110 03413 STORE TIG # TIG=T1-CT*DTB B28
036834,000356: 36,3111 77776 EXIT
036835,000357: 36,3112 33242 CAF V6N33RTE # DISPLAY BIASED TIG
036836,000358: 36,3113 03231 TCR P370GOF
036837,000359: # # Page 847
036838,000360: 36,3114 13112 TCF -2
036839,000361: 36,3115 34714 CAF ZERO
036840,000362: 36,3116 55125 TS VHFCNT
036841,000363: 36,3117 55126 TS TRKMKCNT
036842,000364: 36,3120 06006 TC INTPRET
036843,000365: 36,3121 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
036844,000366: 36,3122 65051 RTENCK1
036845,000367: 36,3123 53575 VLOAD UNIT # PL00D
036846,000368: 36,3124 03656 R(T2)/
036847,000369: 36,3125 74315 PDVL VXSC # UR2 B1 PL06D
036848,000370: 36,3126 03740 UR1/
036849,000371: 36,3127 31742 MCOS7.5
036850,000372: 36,3130 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
036851,000373: 36,3131 03746 UH/
036852,000374: 36,3132 31744 MSIN7.5
036853,000375: 36,3133 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
036854,000376: 36,3134 50015 DAD BMN
036855,000377: 36,3135 31746 MCOS22.5
036856,000378: 36,3136 75163 P37W
036857,000379: 36,3137 50375 VLOAD DOT # K/ . UR2 GR COS22.5
036858,000380: 36,3140 03746 UH/
036859,000381: 36,3141 03656 R(T2)/
036860,000382: 36,3142 71240 BMN DLOAD
036861,000383: 36,3143 75147 P37U
036862,000384: 36,3144 31750 THETA165
036863,000385: 36,3145 52006 PUSH GOTO
036864,000386: 36,3146 75151 P37V
036865,000387: 36,3147 41545 P37U DLOAD PUSH
036866,000388: 36,3150 31752 THETA210
036867,000389: 36,3151 77756 P37V SIN
036868,000390: 36,3152 16732 STODL SNTH
036869,000391: 36,3153 43146 COS CLEAR
036870,000392: 36,3154 03666 RVSW
036871,000393: 36,3155 26734 STOVL CSTH
036872,000394: 36,3156 03640 R(T1)/
036873,000395: 36,3157 26657 STOVL RVEC
036874,000396: 36,3160 03700 V2(T1)/
036875,000397: 36,3161 36746 STCALL VVEC
036876,000398: 36,3162 24737 TIMETHET
036877,000399: 36,3163 43014 P37W CLEAR CLEAR
036878,000400: 36,3164 01267 XDELVFLG
036879,000401: 36,3165 03665 NORMSW
036880,000402: 36,3166 77214 SET VLOAD
036881,000403: 36,3167 01071 FINALFLG
036882,000404: 36,3170 77626 STADR
036883,000405: 36,3171 60362 STODL RTARG
036884,000406: 36,3172 00037 T
036885,000407: 36,3173 77615 DAD
036886,000408: 36,3174 03716 T1
036887,000409: 36,3175 27656 STOVL TPASS4
036888,000410: # # Page 848
036889,000411: 36,3176 03700 V2(T1)/
036890,000412: 36,3177 77651 VSU
036891,000413: 36,3200 03672 V(T1)/
036892,000414: 36,3201 37646 STCALL DELVSIN
036893,000415: 36,3202 73005 VN1645
036894,000416: 36,3203 77650 GOTO
036895,000417: 36,3204 75163 P37W
036896,000418:
036897,000419: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
036898,000420:
036899,000421: 36,3205 00006 P37GFRB1 EXTEND
036900,000422: 36,3206 23762 QXCH SPRTEX
036901,000423: 36,3207 03215 TCR P370GOFR
036902,000424: 36,3210 34712 37BLANK CAF ONE
036903,000425: 36,3211 05415 TCR BLANKET
036904,000426: 36,3212 15112 TCF ENDOFJOB
036905,000427: 36,3213 01762 TC SPRTEX # RECYCLE
036906,000428: 36,3214 13240 TCF P37PROC # PROCEED
036907,000429:
036908,000430: # SUBROUTINE TO GO TO GOFLASHR
036909,000431:
036910,000432: 36,3215 00006 P370GOFR EXTEND
036911,000433: 36,3216 23733 QXCH RTENCKEX
036912,000434: 36,3217 04555 TCR BANKCALL
036913,000435: 36,3220 20763 CADR GOFLASHR
036914,000436: 36,3221 14106 TCF GOTOPOOH # TERMINATE
036915,000437: 36,3222 13225 TCF +3
036916,000438: 36,3223 13227 TCF +4
036917,000439: 36,3224 01733 TC RTENCKEX # IMMEDIATE RETURN
036918,000440: 36,3225 51733 INDEX RTENCKEX # PROCEED
036919,000441: 36,3226 10004 TCF 0 +4
036920,000442: 36,3227 51733 INDEX RTENCKEX # RECYCLE
036921,000443: 36,3230 10003 TCF 0 +3
036922,000444:
036923,000445: # SUBROUTINE TO GO TO GOFLASH
036924,000446:
036925,000447: 36,3231 00006 P370GOF EXTEND
036926,000448: 36,3232 23762 QXCH SPRTEX
036927,000449: 36,3233 04555 TCR BANKCALL
036928,000450: 36,3234 20624 CADR GOFLASH
036929,000451: 36,3235 14106 TCF GOTOPOOH
036930,000452: 36,3236 13240 TCF +2
036931,000453: 36,3237 01762 TC SPRTEX
036932,000454: 36,3240 51762 P37PROC INDEX SPRTEX
036933,000455: 36,3241 10001 TCF 0 +1
036934,000456: 36,3242 01441 V6N33RTE VN 0633
036935,000457: 36,3243 01006 V4N06RTE VN 0406
036936,000458: 36,3244 01475 V6N61RTE VN 0661
036937,000459: 36,3245 01447 V6N39RTE VN 0639
036938,000460: 36,3246 01474 V6N60RTE VN 0660
036939,000461: # # Page 849
036940,000462: 36,3247 01521 V6N81RTE VN 0681
036941,000463: 32,2251 BANK 32
036942,000464: 32,2000 SETLOC RTE
036943,000465: 32,2000 BANK
036944,000466: 32,2251 COUNT 32/RTE
036945,000467:
036946,000468: # # Page 850
036947,000469: # ALARM DISPLAY SUBROUTINE
036948,000470: 32,2251 77420 P370ALRM STQ EXIT
036949,000471: 32,2252 03762 SPRTEX
036950,000472: 32,2253 30154 CA MPAC
036951,000473: 32,2254 05653 TC VARALARM
036952,000474: 32,2255 32265 CAF V5N09RTE
036953,000475: 32,2256 04555 TC BANKCALL
036954,000476: 32,2257 20624 CADR GOFLASH
036955,000477: 32,2260 14106 TCF GOTOPOOH
036956,000478: 32,2261 12255 TCF -4
036957,000479: 32,2262 06006 TC INTPRET
036958,000480: 32,2263 77650 GOTO
036959,000481: 32,2264 03762 SPRTEX
036960,000482: 32,2265 01211 V5N09RTE VN 0509
036961,000483:
036962,000484: # # Page 851
036963,000485: # TIME RADIUS CALLING SUBROUTINE
036964,000486:
036965,000487: # INPUT
036966,000488: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
036967,000489: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
036968,000490: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
036969,000491: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2 = EARTH SP B14
036970,000492: # OUTPUT
036971,000493: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
036972,000494: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
036973,000495: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
036974,000496:
036975,000497: 32,2266 43020 TMRAD100 STQ CLEAR
036976,000498: 32,2267 03733 RTENCKEX
036977,000499: 32,2270 03666 RVSW
036978,000500: 32,2271 67164 AXC,2 SXA,2
036979,000501: 32,2272 20000 OCT 20000
036980,000502: 32,2273 02756 SGNRDOT
036981,000503: 32,2274 45140 LXC,1 CALL
036982,000504: 32,2275 03734 CONICX1
036983,000505: 32,2276 25552 TIMERAD
036984,000506: 32,2277 27710 STOVL V(T2)/ # PL00D
036985,000507: 32,2300 77626 STADR
036986,000508: 32,2301 60121 STODL R(T2)/
036987,000509: 32,2302 00037 T
036988,000510: 32,2303 37724 STCALL T12
036989,000511: 32,2304 03733 RTENCKEX
036990,000512:
036991,000513: # # Page 852
036992,000514: # DISPLAY CALCULATION SUBROUTINE
036993,000515:
036994,000516: # DESCRIPTION
036995,000517: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
036996,000518: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
036997,000519:
036998,000520: # CALLING SEQUENCE
036999,000521: # L CALL
037000,000522: # L+1 RTEDISP
037001,000523:
037002,000524: # SUBROUTINES CALLED
037003,000525: # TMRAD100
037004,000526: # AUGEKUGL
037005,000527: # LAT-LONG
037006,000528:
037007,000529: # ERASABLE INITIALIZATION REQUIRED
037008,000530: # PUSHLIST
037009,000531: # NONE
037010,000532: # MPAC
037011,000533: # NONE
037012,000534: # OTHER
037013,000535: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037014,000536: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037015,000537: # T2 FINAL TIME DP B28 CS
037016,000538: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037017,000539: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037018,000540: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037019,000541: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037020,000542:
037021,000543: # OUTPUT
037022,000544: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
037023,000545: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
037024,000546: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
037025,000547: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
037026,000548: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
037027,000549: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
037028,000550:
037029,000551: 32,2305 77220 RTEDISP STQ VLOAD # DISPLAY
037030,000552: 32,2306 03762 SPRTEX
037031,000553: 32,2307 03710 V(T2)/
037032,000554: 32,2310 65256 UNIT PDDL
037033,000555: 32,2311 00045 36D
037034,000556: 32,2312 17767 STODL VPRED # V(T2)
037035,000557: 32,2313 03736 T2
037036,000558: 32,2314 77625 DSU
037037,000559: 32,2315 03413 SPRTETIG
037038,000560: 32,2316 26641 STOVL T3TOT4 # T21
037039,000561: 32,2317 03656 R(T2)/
037040,000562: 32,2320 50256 UNIT DOT
037041,000563: 32,2321 77752 SL1
037042,000564: # # Page 853
037043,000565: 32,2322 44326 ARCCOS BDSU
037044,000566: 32,2323 31657 1RTEB2
037045,000567: 32,2324 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
037046,000568: 32,2325 03700 V2(T1)/
037047,000569: 32,2326 41451 VSU PUSH
037048,000570: 32,2327 03672 V(T1)/
037049,000571: 32,2330 57441 DOT DCOMP
037050,000572: 32,2331 03740 UR1/
037051,000573: 32,2332 41515 PDVL PUSH
037052,000574: 32,2333 63345 DLOAD PDVL
037053,000575: 32,2334 31701 ZERORTE
037054,000576: 32,2335 55441 DOT VDEF
037055,000577: 32,2336 03746 UH/
037056,000578: 32,2337 77772 VSL1
037057,000579: 32,2340 27405 STOVL DELVLVC # DV/ (LVC)
037058,000580: 32,2341 03656 R(T2)/
037059,000581: 32,2342 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
037060,000582: 32,2343 45246 ABVAL DSU
037061,000583: 32,2344 31725 30480RTE
037062,000584: 32,2345 26760 STOVL RDESIRED
037063,000585: 32,2346 03710 V(T2)/
037064,000586: 32,2347 36746 STCALL VVEC
037065,000587: 32,2350 64266 TMRAD100 # R3,V3,T23 FROM TIMERAD
037066,000588: 32,2351 53575 VLOAD UNIT
037067,000589: 32,2352 03656 R(T2)/
037068,000590: 32,2353 53515 PDVL UNIT # UR3 PL06D
037069,000591: 32,2354 03710 V(T2)/
037070,000592: 32,2355 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
037071,000593: 32,2356 65336 ARCSIN PDDL # V(T3) PL02D
037072,000594: 32,2357 00045 36D
037073,000595: 32,2360 51525 PDDL ABS
037074,000596: 32,2361 45006 PUSH CALL # /GAMMAE/ PL04D
037075,000597: 32,2362 64071 AUGEKUGL # PHIE PL06D
037076,000598: 32,2363 43215 DAD DAD
037077,000599: 32,2364 03724 T12 # T23
037078,000600: 32,2365 03736 T2
037079,000601: 32,2366 14003 STODL 02D # T(LS)=T2+T23+TE
037080,000602: 32,2367 00005 04D
037081,000603: 32,2370 77756 SIN
037082,000604: 32,2371 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
037083,000605: 32,2372 77746 COS
037084,000606: 32,2373 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
037085,000607: 32,2374 53575 VLOAD UNIT
037086,000608: 32,2375 03656 R(T2)/
037087,000609: 32,2376 41406 PUSH PUSH
037088,000610: 32,2377 53515 PDVL UNIT # PL22D
037089,000611: 32,2400 03710 V(T2)/
037090,000612: 32,2401 47315 PDVL VXV
037091,000613: 32,2402 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
037092,000614: 32,2403 63361 VXSC PDVL
037093,000615: # # Page 854
037094,000616: 32,2404 03403 LNG(SPL)
037095,000617: 32,2405 53361 VXSC VAD # PL04D
037096,000618: 32,2406 03401 LAT(SPL)
037097,000619: 32,2407 43014 CLEAR CLEAR # T(LS) IN MPAC
037098,000620: 32,2410 00662 ERADFLAG
037099,000621: 32,2411 01663 LUNAFLAG
037100,000622: 32,2412 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
037101,000623: 32,2413 77624 CALL
037102,000624: 32,2414 26322 LAT-LONG
037103,000625: 32,2415 77745 DLOAD
037104,000626: 32,2416 01104 LAT
037105,000627: 32,2417 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
037106,000628: 32,2420 01106 LONG
037107,000629: 32,2421 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
037108,000630: 32,2422 03762 SPRTEX
037109,000631: 32,2423 COUNT* $$/RTE
037110,000632:
037111,000633: # # Page 855
037112,000634: # INITIAL VECTOR SUBROUTINE
037113,000635:
037114,000636: # DESCRIPTION
037115,000637: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION ISPERFORMED.PRECOMPUTATIONS OCCUR.
037116,000638:
037117,000639: # CALLING SEQUENCE
037118,000640: # L CALL
037119,000641: # L+1 INVC100
037120,000642:
037121,000643: # NORMAL EXIT MODE
037122,000644: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037123,000645:
037124,000646: # ALARM EXIT MODE
037125,000647: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
037126,000648:
037127,000649: # SUBROUTINES CALLED
037128,000650: # CSMPREC
037129,000651:
037130,000652: # ERASABLE INITIALIZATION REQUIRED
037131,000653: # PUSHLIST
037132,000654: # NONE
037133,000655: # MPAC
037134,000656: # NONE
037135,000657: # OTHER
037136,000658: # SPRTETIG TIME OF IGNITION DP B28 CS
037137,000659: # CSM STATE VECTOR
037138,000660:
037139,000661: # OUTPUT
037140,000662: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
037141,000663: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
037142,000664: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
037143,000665: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037144,000666: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037145,000667: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
037146,000668:
037147,000669: 32,2423 71220 INVC100 STQ DLOAD
037148,000670: 32,2424 03762 SPRTEX
037149,000671: 32,2425 03413 SPRTETIG
037150,000672: 32,2426 34041 STCALL TDEC1
037151,000673: 32,2427 27022 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
037152,000674: 32,2430 67175 VLOAD SXA,2
037153,000675: 32,2431 00001 RATT
037154,000676: 32,2432 03755 P(T1)
037155,000677: 32,2433 27640 STOVL R(T1)/
037156,000678: 32,2434 00007 VATT
037157,000679: 32,2435 17672 STODL V(T1)/
037158,000680: 32,2436 00015 TAT
037159,000681: 32,2437 03716 STORE T1
037160,000682: 32,2440 53135 SLOAD BZE
037161,000683: 32,2441 03756 P(T1)
037162,000684: # # Page 856
037163,000685: 32,2442 64446 INVC109
037164,000686: 32,2443 52135 INVC107 SLOAD GOTO
037165,000687: 32,2444 31740 OCT612
037166,000688: 32,2445 74772 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037167,000689: 32,2446 53575 INVC109 VLOAD UNIT
037168,000690: 32,2447 03640 R(T1)/
037169,000691: 32,2450 17740 STODL UR1/ # UR1/ B1
037170,000692: 32,2451 00045 36D
037171,000693: 32,2452 27646 STOVL R(T1) # R(T1) B29
037172,000694: 32,2453 03672 V(T1)/
037173,000695: 32,2454 77656 UNIT
037174,000696: 32,2455 03746 STORE UV1/
037175,000697: 32,2456 72441 DOT SL1
037176,000698: 32,2457 03740 UR1/
037177,000699: 32,2460 03757 STORE CFPA # CFPA B1
037178,000700: 32,2461 45246 ABS DSU
037179,000701: 32,2462 31754 EPC1RTE
037180,000702: 32,2463 71240 BMN DLOAD
037181,000703: 32,2464 64473 INVC115 # NOT NEAR RECTILINEAR
037182,000704: 32,2465 31657 1RTEB2
037183,000705: 32,2466 41525 PDDL PUSH
037184,000706: 32,2467 31701 ZERORTE
037185,000707: 32,2470 41466 VDEF PUSH # N/ = (0,0,1)
037186,000708: 32,2471 77650 GOTO
037187,000709: 32,2472 64477 INVC120
037188,000710: 32,2473 47375 INVC115 VLOAD VXV
037189,000711: 32,2474 03740 UR1/
037190,000712: 32,2475 03746 UV1/
037191,000713: 32,2476 77606 PUSH # N/ = UR X UV B2
037192,000714: 32,2477 41545 INVC120 DLOAD PUSH
037193,000715: 32,2500 77244 BPL VLOAD
037194,000716: 32,2501 64503 INVC125
037195,000717: 32,2502 41476 VCOMP PUSH # CORRECT N/ FOR RETROGRADE TRAJECTORY
037196,000718: 32,2503 77775 INVC125 VLOAD
037197,000719: 32,2504 53435 VXV UNIT
037198,000720: 32,2505 03740 UR1/
037199,000721: 32,2506 03746 STORE UH/ # UH/ B1
037200,000722: 32,2507 77650 GOTO
037201,000723: 32,2510 03762 SPRTEX
037202,000724:
037203,000725: # # Page 857
037204,000726: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
037205,000727:
037206,000728: # DESCRIPTION
037207,000729: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENEATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
037208,000730: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
037209,000731: # AS POSSIBLE.
037210,000732:
037211,000733: # CALLING SEQUENCE
037212,000734: # L CALL
037213,000735: # L+1 PREC100
037214,000736:
037215,000737: # NORMAL EXIT MODE
037216,000738: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037217,000739:
037218,000740: # ALARM EXIT MODE
037219,000741: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
037220,000742: # OCTAL 605 FOR EXCESS ITERATIONS
037221,000743: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
037222,000744:
037223,000745: # SUBROUTINES CALLED
037224,000746: # INTSTALL
037225,000747: # RTENCK2
037226,000748: # RTENCK3
037227,000749: # TIMERAD
037228,000750: # PARAM
037229,000751: # V2T100
037230,000752:
037231,000753: # ERASABLE INITIALIZATION REQUIRED
037232,000754: # PUSHLIST
037233,000755: # NONE
037234,000756: # MPAC
037235,000757: # NONE
037236,000758: # OTHER
037237,000759: # R(T1)/ INITIAL POSITION VECTOR VECTOR B28/B27 METERS
037238,000760: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037239,000761: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037240,000762: # T1 INITIAL VECTOR TIME DP B28 CS
037241,000763: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
037242,000764: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
037243,000765: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
037244,000766: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
037245,000767: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
037246,000768: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
037247,000769: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037248,000770: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037249,000771: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037250,000772: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037251,000773: # BETA1 1+X(T2)**2 DP B1
037252,000774: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE,+1 APOGEE
037253,000775:
037254,000776: # # Page 858
037255,000777: # OUTPUT
037256,000778: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037257,000779: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037258,000780: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037259,000781: # T2 FINAL TIME DP B28 CENTISECONDS
037260,000782:
037261,000783: # DEBRIS
037262,000784: # RD FINAL R DESIRED DP B29/B27 METERS
037263,000785: # R/APRE R/A DP B6
037264,000786: # P/RPRE P/R DP B2
037265,000787: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
037266,000788: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
037267,000789: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
037268,000790: # RCON FINAL RADIUS DP B29/B27 METERS
037269,000791: # DRCON DELTA RCON DP B29/B27 METERS
037270,000792:
037271,000793: 32,2511 71220 PREC100 STQ DLOAD
037272,000794: 32,2512 03762 SPRTEX
037273,000795: 32,2513 31707 10RTE
037274,000796: 32,2514 17730 STODL NN1A
037275,000797: 32,2515 03636 RCON
037276,000798: 32,2516 03664 STORE RD
037277,000799: 32,2517 77745 PREC120 DLOAD
037278,000800: 32,2520 31717 2RTEB1
037279,000801: 32,2521 17650 STODL DT21PR # DT21PR = POSMAX
037280,000802: 32,2522 31705 M15RTE
037281,000803: 32,2523 37732 STCALL NN2
037282,000804: 32,2524 65077 RTENCK3
037283,000805: 32,2525 77624 PREC125 CALL
037284,000806: 32,2526 11524 PARAM
037285,000807: 32,2527 77745 DLOAD
037286,000808: 32,2530 02742 P
037287,000809: 32,2531 14033 STODL P/RPRE
037288,000810: 32,2532 02744 R1A
037289,000811: 32,2533 14035 STODL R/APRE
037290,000812: 32,2534 00041 R1
037291,000813: 32,2535 14031 STODL RPRE
037292,000814: 32,2536 03775 COGA
037293,000815: 32,2537 77661 SL
037294,000816: 32,2540 20206 5
037295,000817: 32,2541 03724 STORE X(T2)PRE
037296,000818: 32,2542 43276 DCOMP DAD
037297,000819: 32,2543 03726 X(T2)
037298,000820: 32,2544 45246 ABS DSU
037299,000821: 32,2545 31762 EPC4RTE
037300,000822: 32,2546 50000 BOV BMN
037301,000823: 32,2547 64551 PREC130
037302,000824: 32,2550 64732 PREC175
037303,000825:
037304,000826: # DESIRED REENTRY ANGLE NOT ACHIEVED
037305,000827: # # Page 859
037306,000828: 32,2551 50145 PREC130 DLOAD BMN
037307,000829: 32,2552 03732 NN2
037308,000830: 32,2553 64557 PREC140
037309,000831: 32,2554 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
037310,000832: 32,2555 31737 OCT605 # EXIT WITH ALARM
037311,000833: 32,2556 65047 PRECX
037312,000834:
037313,000835: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
037314,000836:
037315,000837: 32,2557 53145 PREC140 DLOAD BZE
037316,000838: 32,2560 03730 NN1A
037317,000839: 32,2561 64612 PREC162
037318,000840: 32,2562 42545 PREC150 DLOAD SL4 # ELLIPTIC CASE
037319,000841: 32,2563 00035 R/APRE
037320,000842: 32,2564 52525 PDDL SL3 # PL02D
037321,000843: 32,2565 00033 P/RPRE
037322,000844: 32,2566 41205 DMP DMP # (P/A)BETA1 B4 PL00D
037323,000845: 32,2567 03754 BETA1
037324,000846: 32,2570 57512 SL2 DCOMP
037325,000847: 32,2571 50015 DAD BMN # 1-(P/A)BETA1=BETA2 B2
037326,000848: 32,2572 31657 1RTEB2
037327,000849: 32,2573 64576 PREC155
037328,000850: 32,2574 52166 SQRT GOTO # BETA2**.5=BETA3 B1
037329,000851: 32,2575 64600 PREC160
037330,000852: 32,2576 77745 PREC155 DLOAD
037331,000853: 32,2577 31701 ZERORTE # BETA3=0
037332,000854: 32,2600 43205 PREC160 DMP DAD
037333,000855: 32,2601 03761 PHI2
037334,000856: 32,2602 31661 1RTEB3
037335,000857: 32,2603 60325 PDDL NORM # 1+(PHI2)(BETA3) B3
037336,000858: 32,2604 00035 R/APRE
037337,000859: 32,2605 00047 X1
037338,000860: 32,2606 77665 BDDV # PL00D
037339,000861: 32,2607 52057 SL* GOTO # (1+PHI2*BETA3)/(R/A)=BETA4 B1
037340,000862: 32,2610 20175 0 -4,1
037341,000863: 32,2611 64620 PREC165
037342,000864: 32,2612 60345 PREC162 DLOAD NORM
037343,000865: 32,2613 00031 RPRE
037344,000866: 32,2614 00047 X1
037345,000867: 32,2615 53665 BDDV SL* # BETA4=RD/RPRE B1
037346,000868: 32,2616 03664 RD
037347,000869: 32,2617 20200 0 -1,1
037348,000870: 32,2620 45206 PREC165 PUSH DSU
037349,000871: 32,2621 31655 1RTEB1
037350,000872: 32,2622 77676 DCOMP
037351,000873: 32,2623 03765 STORE BETA12
037352,000874: 32,2624 71240 BMN DLOAD
037353,000875: 32,2625 64636 PREC168
037354,000876: 32,2626 03724 X(T2)PRE
037355,000877: 32,2627 71240 BMN DLOAD
037356,000878: # # Page 860
037357,000879: 32,2630 64634 PREC167
037358,000880: 32,2631 03765 BETA12
037359,000881: 32,2632 77676 DCOMP
037360,000882: 32,2633 03765 STORE BETA12
037361,000883: 32,2634 77745 PREC167 DLOAD
037362,000884: 32,2635 03765 BETA12
037363,000885: 32,2636 45246 PREC168 ABS DSU
037364,000886: 32,2637 31766 EPC6RTE
037365,000887: 32,2640 71240 BMN DLOAD
037366,000888: 32,2641 64732 PREC175
037367,000889: 32,2642 72405 DMP SL1
037368,000890: 32,2643 00031 RPRE
037369,000891: 32,2644 77606 PUSH # RF = NEW RADIUS
037370,000892: 32,2645 43345 PREC170 DLOAD DAD
037371,000893: 32,2646 03732 NN2
037372,000894: 32,2647 31677 1RTEB28
037373,000895: 32,2650 03732 STORE NN2
037374,000896: 32,2651 43175 VLOAD SET
037375,000897: 32,2652 03656 R(T2)/
037376,000898: 32,2653 03466 RVSW
037377,000899: 32,2654 26657 STOVL RVEC
037378,000900: 32,2655 03710 V(T2)/
037379,000901: 32,2656 77765 SIGN
037380,000902: 32,2657 03765 BETA12
037381,000903: 32,2660 16746 STODL VVEC
037382,000904: 32,2661 31655 1RTEB1
037383,000905: 32,2662 57565 SIGN DCOMP
037384,000906: 32,2663 03765 BETA12
037385,000907: 32,2664 71354 LXA,2 DLOAD
037386,000908: 32,2665 00154 MPAC
037387,000909: 32,2666 67140 LXC,1 SXA,2
037388,000910: 32,2667 03734 CONICX1
037389,000911: 32,2670 02756 SGNRDOT
037390,000912: 32,2671 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
037391,000913: 32,2672 25552 TIMERAD # NEW RADIUS)
037392,000914: 32,2673 75345 DLOAD SIGN
037393,000915: 32,2674 00037 T
037394,000916: 32,2675 03765 BETA12
037395,000917: 32,2676 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
037396,000918: 32,2677 03650 DT21PR
037397,000919: 32,2700 00047 X1
037398,000920: 32,2701 53665 BDDV SL*
037399,000921: 32,2702 00001 00D
037400,000922: 32,2703 20176 0 -3,1
037401,000923: 32,2704 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
037402,000924: 32,2705 64712 PREC172
037403,000925: 32,2706 65345 DLOAD PDDL # BETA14=1 B0 PL04D
037404,000926: 32,2707 31717 2RTEB1
037405,000927: 32,2710 77650 GOTO
037406,000928: 32,2711 64714 PREC173
037407,000929: # # Page 861
037408,000930: 32,2712 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
037409,000931: 32,2713 31711 M.6RTE
037410,000932: 32,2714 45271 PREC173 DDV DSU
037411,000933: 32,2715 00003 02D
037412,000934: 32,2716 31661 1RTEB3
037413,000935: 32,2717 71240 BMN DLOAD
037414,000936: 32,2720 64724 PREC174
037415,000937: 32,2721 77605 DMP
037416,000938: 32,2722 03650 DT21PR
037417,000939: 32,2723 00001 STORE 00D # DT21=(BETA14)DT21PR B28
037418,000940: 32,2724 41545 PREC174 DLOAD PUSH
037419,000941: 32,2725 00001 00D
037420,000942: 32,2726 37650 STCALL DT21PR
037421,000943: 32,2727 65061 RTENCK2
037422,000944: 32,2730 77650 GOTO
037423,000945: 32,2731 64525 PREC125
037424,000946: 32,2732 45345 PREC175 DLOAD DSU
037425,000947: 32,2733 00031 RPRE
037426,000948: 32,2734 03664 RD
037427,000949: 32,2735 51406 PUSH ABS # RPRE-RD = RERR
037428,000950: 32,2736 50025 DSU BMN
037429,000951: 32,2737 31770 EPC7RTE
037430,000952: 32,2740 65033 PREC220
037431,000953:
037432,000954: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
037433,000955:
037434,000956: 32,2741 53145 DLOAD BZE
037435,000957: 32,2742 03730 NN1A
037436,000958: 32,2743 64554 PREC132 # TOO MANY ITERATIONS
037437,000959: 32,2744 53025 DSU BZE
037438,000960: 32,2745 31707 10RTE
037439,000961: 32,2746 65001 PREC207
037440,000962: 32,2747 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
037441,000963: 32,2750 03670 RPRE,
037442,000964: 32,2751 00031 RPRE # RPRE,-RPRE B29/B27
037443,000965: 32,2752 55301 NORM BDDV
037444,000966: 32,2753 00050 X2
037445,000967: 32,2754 03666 DRCON
037446,000968: 32,2755 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
037447,000969: 32,2756 57600 0 -2,2
037448,000970: 32,2757 40015 DAD BOV # S GR +4 OR LS -4
037449,000971: 32,2760 31655 1RTEB1
037450,000972: 32,2761 64766 PREC205M
037451,000973: 32,2762 45246 ABS DSU
037452,000974: 32,2763 31655 1RTEB1
037453,000975: 32,2764 77640 BMN
037454,000976: 32,2765 64771 PREC206
037455,000977: 32,2766 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
037456,000978: 32,2767 31717 2RTEB1
037457,000979: 32,2770 77725 PDDL # S=-4 B2
037458,000980: # # Page 862
037459,000981: 32,2771 41345 PREC206 DLOAD DMP
037460,000982: 32,2772 77712 SL2
037461,000983: 32,2773 03666 STORE DRCON # DRCON=S(RERR) B29
037462,000984: 32,2774 77615 DAD
037463,000985: 32,2775 03636 RCON
037464,000986: 32,2776 03636 STORE RCON # RCON+DRCON=RCON
037465,000987: 32,2777 77650 GOTO
037466,000988: 32,3000 65020 PREC210
037467,000989: 32,3001 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
037468,000990: 32,3002 03664 RD
037469,000991: 32,3003 70501 NORM SR1
037470,000992: 32,3004 00047 X1
037471,000993: 32,3005 60325 PDDL NORM
037472,000994: 32,3006 00031 RPRE
037473,000995: 32,3007 00050 X2
037474,000996: 32,3010 55260 XSU,1 BDDV
037475,000997: 32,3011 00047 X2
037476,000998: 32,3012 77657 SR*
037477,000999: 32,3013 20600 0 -1,1
037478,001000: 32,3014 03636 STORE RCON # RD**2/RPRE=RCON
037479,001001: 32,3015 77625 DSU
037480,001002: 32,3016 03664 RD
037481,001003: 32,3017 03666 STORE DRCON # RCON-RD=DRCON
037482,001004: 32,3020 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
037483,001005: 32,3021 00031 RPRE
037484,001006: 32,3022 17670 STODL RPRE,
037485,001007: 32,3023 03730 NN1A
037486,001008: 32,3024 77625 DSU
037487,001009: 32,3025 31677 1RTEB28
037488,001010: 32,3026 37730 STCALL NN1A
037489,001011: 32,3027 65132 V2T100
037490,001012: 32,3030 52030 BHIZ GOTO
037491,001013: 32,3031 64517 PREC120
037492,001014: 32,3032 65047 PRECX
037493,001015:
037494,001016: # DESIRED RADIUS ACHIEVED
037495,001017:
037496,001018: 32,3033 45345 PREC220 DLOAD DSU
037497,001019: 32,3034 03726 X(T2)
037498,001020: 32,3035 03724 X(T2)PRE
037499,001021: 32,3036 45246 ABS DSU
037500,001022: 32,3037 31772 EPC8RTE
037501,001023: 32,3040 67240 BMN SLOAD
037502,001024: 32,3041 65045 PREC225
037503,001025: 32,3042 31741 OCT613
037504,001026: 32,3043 77650 GOTO
037505,001027: 32,3044 65047 PRECX # IF REENTRY ANGLE OUT OF LIMITS
037506,001028:
037507,001029: # DESIRED FINAL ANGLE HAS BEEN REACHED
037508,001030:
037509,001031: # # Page 863
037510,001032: 32,3045 77745 PREC225 DLOAD
037511,001033: 32,3046 31701 ZERORTE
037512,001034: 32,3047 77650 PRECX GOTO
037513,001035: 32,3050 03762 SPRTEX
037514,001036:
037515,001037: # # Page 864
037516,001038: # INTEGRATION CALLING SUBROUTINE
037517,001039:
037518,001040: # DESCRIPTION
037519,001041: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
037520,001042: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
037521,001043: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
037522,001044:
037523,001045: # RTENCK1 (CONIC INTEGRATION)
037524,001046:
037525,001047: # CALLING SEQUENCE
037526,001048: # L CALL
037527,001049: # L+1 RTENCK1
037528,001050:
037529,001051: # ERASABLE INITIALIZATION REQUIRED
037530,001052: # SAME AS FOR THE RTENCK3 ENTRANCE
037531,001053:
037532,001054: # RTENCK2 (PRECISION INTEGRATION)
037533,001055:
037534,001056: # CALLING SEQUENCE
037535,001057: # L CALL
037536,001058: # L+1 RTENCK2
037537,001059:
037538,001060: # ERASABLE INITIALIZATION REQUIRED
037539,001061: # PUSHLIST
037540,001062: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
037541,001063: # OTHER
037542,001064: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
037543,001065: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037544,001066: # T2 FINAL TIME DP B28 CS
037545,001067:
037546,001068: # RTENCK3 (PRECISION INTEGRATION)
037547,001069:
037548,001070: # CALLING SEQUENCE
037549,001071: # L CALL
037550,001072: # L+1 RTENCK3
037551,001073:
037552,001074: # ERASABLE INITIALIZATION REQUIRED
037553,001075: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
037554,001076: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
037555,001077: # T1 INITIAL VECTOR TIME DP B28 CS
037556,001078: # T2 FINAL TIME DP B28 CS
037557,001079:
037558,001080: # EXIT MODE
037559,001081: # AT L+2 OF CALLING SEQUENCE
037560,001082: # SUBROUTINES CALLED
037561,001083: # INTSTALL
037562,001084: # INTEGRVS
037563,001085:
037564,001086: # OUTPUT
037565,001087: # PUSHLIST
037566,001088: # # Page 865
037567,001089: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
037568,001090: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
037569,001091: # MPAC
037570,001092: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
037571,001093: # OTHER
037572,001094: # R(T2)/ AS IN PUSHLIST
037573,001095: # V(T2)/ AS IN MPAC
037574,001096: # T2 FINAL TIME DP B28 CS
037575,001097:
037576,001098:
037577,001099: 32,3051 45020 RTENCK1 STQ CALL
037578,001100: 32,3052 03733 RTENCKEX
037579,001101: 32,3053 27371 INTSTALL
037580,001102: 32,3054 43175 VLOAD SET
037581,001103: 32,3055 03640 R(T1)/
037582,001104: 32,3056 01473 INTYPFLG
037583,001105: 32,3057 77650 GOTO
037584,001106: 32,3060 65105 RTENCK3B
037585,001107:
037586,001108:
037587,001109: 32,3061 45020 RTENCK2 STQ CALL
037588,001110: 32,3062 03733 RTENCKEX
037589,001111: 32,3063 27371 INTSTALL
037590,001112: 32,3064 77214 CLEAR VLOAD
037591,001113: 32,3065 01673 INTYPFLG
037592,001114: 32,3066 03656 R(T2)/
037593,001115: 32,3067 25535 STOVL RCV
037594,001116: 32,3070 03710 V(T2)/
037595,001117: 32,3071 15543 STODL VCV
037596,001118: 32,3072 03736 T2
037597,001119: 32,3073 01517 STORE TET
037598,001120: 32,3074 77615 DAD
037599,001121: 32,3075 77650 GOTO
037600,001122: 32,3076 65113 RTENCK3D
037601,001123:
037602,001124:
037603,001125: 32,3077 45020 RTENCK3 STQ CALL
037604,001126: 32,3100 03733 RTENCKEX
037605,001127: 32,3101 27371 INTSTALL
037606,001128: 32,3102 43175 RTENCK3A VLOAD CLEAR
037607,001129: 32,3103 03640 R(T1)/
037608,001130: 32,3104 01673 INTYPFLG
037609,001131: 32,3105 25535 RTENCK3B STOVL RCV
037610,001132: 32,3106 03700 V2(T1)/
037611,001133: 32,3107 15543 STODL VCV
037612,001134: 32,3110 03716 T1
037613,001135: 32,3111 15517 STODL TET
037614,001136: 32,3112 03736 T2
037615,001137: 32,3113 00041 RTENCK3D STORE TDEC1
037616,001138: 32,3114 45014 CLEAR CALL
037617,001139: # # Page 866
037618,001140: 32,3115 00263 MOONFLAG
037619,001141: 32,3116 27066 INTEGRVS
037620,001142: 32,3117 77775 VLOAD
037621,001143: 32,3120 00001 RATT
037622,001144: 32,3121 03656 STORE R(T2)/
037623,001145: 32,3122 70125 PDDL LXC,1
037624,001146: 32,3123 00015 TAT
037625,001147: 32,3124 03734 CONICX1
037626,001148: 32,3125 27736 STOVL T2
037627,001149: 32,3126 00007 VATT
037628,001150: 32,3127 03710 STORE V(T2)/
037629,001151: 32,3130 77650 GOTO
037630,001152: 32,3131 03733 RTENCKEX
037631,001153:
037632,001154: # # Page 867
037633,001155: # V2(T1) COMPUTATION SUBROUTINE
037634,001156:
037635,001157: # DESCRIPTION
037636,001158: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
037637,001159: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
037638,001160: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
037639,001161: # AND CONSEQUENTLY FUEL.
037640,001162:
037641,001163: # CALLING SEQUENCE
037642,001164: # L CALL
037643,001165: # L+1 V2T100
037644,001166:
037645,001167: # NORMAL EXIT MODE
037646,001168: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037647,001169:
037648,001170: # ALARM EXIT MODE
037649,001171: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037650,001172:
037651,001173: # SUBROUTINES CALLED
037652,001174: # GAMDV10
037653,001175: # XT1LIM
037654,001176: # DVCALC
037655,001177:
037656,001178: # ERASABLE INITIALIZATION REQUIRED
037657,001179: # PUSHLIST
037658,001180: # NONE
037659,001181: # MPAC
037660,001182: # NONE
037661,001183: # OTHER
037662,001184: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
037663,001185: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
037664,001186: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037665,001187: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
037666,001188: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037667,001189: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037668,001190: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
037669,001191: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
037670,001192: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
037671,001193: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037672,001194: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037673,001195: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE,+1 APOGEE
037674,001196: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC,PLUS PREC
037675,001197:
037676,001198: # OUTPUT
037677,001199: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037678,001200: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
037679,001201: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
037680,001202: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
037681,001203: # BETA1 1+X(T2)**2 DP B1
037682,001204:
037683,001205: # # Page 868
037684,001206: # DEBRIS
037685,001207: # PUSHLIST
037686,001208: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
037687,001209: # 02D THETA1=BETA5*LAMBDA-1 TP B17
037688,001210: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
037689,001211: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
037690,001212: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
037691,001213: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
037692,001214: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
037693,001215: # 16D DX(T1)=ITERATOR INCREMENT DP B5
037694,001216: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
037695,001217: # 32D DVCALC SUBROUTINE RETURN ADDRESS
037696,001218: # 33D V2T100 SUBROUTINE RETURN ADDRESS
037697,001219:
037698,001220: 32,3132 77620 V2T100 STQ
037699,001221: 32,3133 00041 33D
037700,001222: 32,3134 43001 SETPD CLEAR
037701,001223: 32,3135 00001 0 # PL00D
037702,001224: 32,3136 00272 F2RTE
037703,001225: 32,3137 60345 DLOAD NORM
037704,001226: 32,3140 03636 RCON
037705,001227: 32,3141 00047 X1
037706,001228: 32,3142 60325 PDDL NORM
037707,001229: 32,3143 03646 R(T1)
037708,001230: 32,3144 00051 S1
037709,001231: 32,3145 00013 STORE 10D
037710,001232: 32,3146 56342 SR1 DDV # R1/RCON = LAMBDA B1
037711,001233: 32,3147 65260 XSU,1 PDDL # PL02D
037712,001234: 32,3150 00050 S1
037713,001235: 32,3151 03726 X(T2)
037714,001236: 32,3152 77716 DSQ
037715,001237: 32,3153 43342 SR1 DAD
037716,001238: 32,3154 31655 1RTEB1
037717,001239: 32,3155 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
037718,001240: 32,3156 77605 DMP
037719,001241: 32,3157 00001 00D
037720,001242: 32,3160 00035 STORE 28D # BETAI*LAMBDA = BETA5
037721,001243: 32,3161 53605 DMP SL*
037722,001244: 32,3162 00001 00D
037723,001245: 32,3163 20172 0 -7,1
037724,001246: 32,3164 45257 SL* DSU
037725,001247: 32,3165 20172 0 -7,1
037726,001248: 32,3166 31673 1RTEB17
037727,001249: 32,3167 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
037728,001250: 32,3170 45562 TPMODE
037729,001251: 32,3171 31655 1RTEB1
037730,001252: 32,3172 57457 SR* DCOMP
037731,001253: 32,3173 20601 0,1
037732,001254: 32,3174 41215 DAD DMP
037733,001255: 32,3175 00001 00D
037734,001256: # # Page 869
037735,001257: 32,3176 03646 R(T1)
037736,001258: 32,3177 47057 SL* RTB
037737,001259: 32,3200 20172 0 -7D,1
037738,001260: 32,3201 45562 TPMODE
037739,001261: 32,3202 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
037740,001262: 32,3203 33770 RTMURTE
037741,001263: 32,3204 70501 NORM SR1
037742,001264: 32,3205 00050 X2
037743,001265: 32,3206 56264 XSU,2 DDV
037744,001266: 32,3207 00050 S1
037745,001267: 32,3210 00013 10D
037746,001268: 32,3211 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
037747,001269: 32,3212 57170 6,2
037748,001270: 32,3213 03652 MAMAX1
037749,001271: 32,3214 41406 PUSH PUSH # MAMAX1=MA
037750,001272: 32,3215 77624 CALL
037751,001273: 32,3216 65747 XT1LIM
037752,001274: 32,3217 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
037753,001275: 32,3220 40476 DCOMP SR4
037754,001276: 32,3221 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
037755,001277: 32,3222 03654 MAMAX2
037756,001278: 32,3223 45006 PUSH CALL
037757,001279: 32,3224 65747 XT1LIM
037758,001280: 32,3225 50125 PDDL BMN # X(T1)MAX B5 PL16D
037759,001281: 32,3226 03730 NN1A
037760,001282: 32,3227 65232 V2T102
037761,001283: 32,3230 77650 GOTO
037762,001284: 32,3231 65244 V2T110
037763,001285:
037764,001286: # PROCEED HERE IF NOT PRECISION COMPUTATION
037765,001287:
037766,001288: 32,3232 77745 V2T102 DLOAD
037767,001289: 32,3233 03632 RTEDVD
037768,001290: 32,3234 52054 BZE GOTO
037769,001291: 32,3235 65237 V2T105
037770,001292: 32,3236 65340 V2T140
037771,001293: 32,3237 50145 V2T105 DLOAD BMN
037772,001294: 32,3240 03757 CFPA
037773,001295: 32,3241 65340 V2T140
037774,001296: 32,3242 77650 GOTO
037775,001297: 32,3243 65346 V2T145
037776,001298:
037777,001299: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
037778,001300: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
037779,001301: # THROUGH X(T2)
037780,001302:
037781,001303: 32,3244 47145 V2T110 DLOAD RTB
037782,001304: 32,3245 31673 1RTEB17
037783,001305: 32,3246 45562 TPMODE
037784,001306: 32,3247 65276 DCOMP PDDL # -1 B17 PL19D
037785,001307: # # Page 870
037786,001308: 32,3250 31717 2RTEB1
037787,001309: 32,3251 45257 SR* DSU
037788,001310: 32,3252 20601 0,1
037789,001311: 32,3253 00001 00D
037790,001312: 32,3254 53605 DMP SL*
037791,001313: 32,3255 00035 28D
037792,001314: 32,3256 20172 0 -7,1
037793,001315: 32,3257 76257 SL* TAD
037794,001316: 32,3260 20172 0 -7,1
037795,001317: 32,3261 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
037796,001318: 32,3262 45562 TPMODE
037797,001319: 32,3263 03722 X(T1)
037798,001320: 32,3264 00001 STORE 00D # X(T1),, B5
037799,001321: 32,3265 77751 TLOAD # PL16D
037800,001322: 32,3266 53040 BMN BZE
037801,001323: 32,3267 65274 V2T115
037802,001324: 32,3270 65274 V2T115
037803,001325: 32,3271 52061 SL GOTO
037804,001326: 32,3272 20210 7
037805,001327: 32,3273 65305 V2T120
037806,001328: 32,3274 50145 V2T115 DLOAD BMN
037807,001329: 32,3275 03761 PHI2
037808,001330: 32,3276 65316 V2T125
037809,001331: 32,3277 77676 DCOMP
037810,001332: 32,3300 17761 STODL PHI2
037811,001333: 32,3301 31721 M9RTEB28
037812,001334: 32,3302 03730 STORE NN1A
037813,001335: 32,3303 77650 GOTO
037814,001336: 32,3304 65316 V2T125
037815,001337: 32,3305 47166 V2T120 SQRT RTB
037816,001338: 32,3306 45713 DPMODE
037817,001339: 32,3307 50125 PDDL BMN # BETA8**.5=X(T1)LIM B5 PL18D
037818,001340: 32,3310 03761 PHI2
037819,001341: 32,3311 65324 V2T130
037820,001342: 32,3312 45545 DLOAD STADR # PL16D
037821,001343: 32,3313 77760 STORE 14D # X(T1)LIM = X(T1)MAX
037822,001344: 32,3314 77676 DCOMP
037823,001345: 32,3315 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
037824,001346: 32,3316 53145 V2T125 DLOAD BZE
037825,001347: 32,3317 03722 X(T1)
037826,001348: 32,3320 65340 V2T140
037827,001349: 32,3321 52040 BMN GOTO
037828,001350: 32,3322 65340 V2T140
037829,001351: 32,3323 65346 V2T145
037830,001352: 32,3324 53145 V2T130 DLOAD BZE
037831,001353: 32,3325 03722 X(T1)
037832,001354: 32,3326 65335 V2T135
037833,001355: 32,3327 71240 BMN DLOAD # PL16D
037834,001356: 32,3330 65335 V2T135
037835,001357: 32,3331 77626 STADR
037836,001358: # # Page 871
037837,001359: 32,3332 77764 STORE 10D # X(T1)LIM = X(T1)MIN
037838,001360: 32,3333 77650 GOTO
037839,001361: 32,3334 65346 V2T145
037840,001362: 32,3335 57545 V2T135 DLOAD DCOMP # PL16D
037841,001363: 32,3336 77626 STADR
037842,001364: 32,3337 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
037843,001365: 32,3340 77745 V2T140 DLOAD
037844,001366: 32,3341 00013 10D
037845,001367: 32,3342 17722 STODL X(T1) # X(T1)MIN = X(T1)
037846,001368: 32,3343 00015 12D
037847,001369: 32,3344 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
037848,001370: 32,3345 65353 V2T150
037849,001371: 32,3346 77745 V2T145 DLOAD
037850,001372: 32,3347 00017 14D
037851,001373: 32,3350 17722 STODL X(T1) # X(T1)MAX = X(T1)
037852,001374: 32,3351 00015 12D
037853,001375: 32,3352 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
037854,001376: 32,3353 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
037855,001377: 32,3354 65474 GAMDV10
037856,001378: 32,3355 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
037857,001379: 32,3356 03632 RTEDVD
037858,001380: 32,3357 65472 V2T1X
037859,001381:
037860,001382: # CONTINUE IF TIME CRITICAL MODE
037861,001383:
037862,001384: 32,3360 50025 DSU BMN
037863,001385: 32,3361 03706 DV
037864,001386: 32,3362 65365 V2T155
037865,001387: 32,3363 77650 GOTO
037866,001388: 32,3364 65420 V2T175
037867,001389: 32,3365 50145 V2T155 DLOAD BMN
037868,001390: 32,3366 03730 NN1A
037869,001391: 32,3367 65372 V2T160
037870,001392: 32,3370 77650 GOTO
037871,001393: 32,3371 65433 V2T185
037872,001394:
037873,001395: # CONIC TRAJECTORY COMPUTATION
037874,001396:
037875,001397: 32,3372 53145 V2T160 DLOAD BZE
037876,001398: 32,3373 03722 X(T1)
037877,001399: 32,3374 65400 V2T165
037878,001400: 32,3375 52040 BMN GOTO
037879,001401: 32,3376 65400 V2T165
037880,001402: 32,3377 65470 V2T300
037881,001403: 32,3400 53145 V2T165 DLOAD BZE
037882,001404: 32,3401 03757 CFPA
037883,001405: 32,3402 65470 V2T300
037884,001406: 32,3403 71240 BMN DLOAD
037885,001407: 32,3404 65470 V2T300
037886,001408: 32,3405 00017 14D
037887,001409: # # Page 872
037888,001410: 32,3406 17722 STODL X(T1) # X(T1)MAX=X(T1)
037889,001411: 32,3407 00015 12D
037890,001412: 32,3410 77676 DCOMP
037891,001413: 32,3411 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
037892,001414: 32,3412 65474 GAMDV10
037893,001415: 32,3413 45345 DLOAD DSU
037894,001416: 32,3414 03632 RTEDVD
037895,001417: 32,3415 03706 DV
037896,001418: 32,3416 77640 BMN
037897,001419: 32,3417 65470 V2T300
037898,001420: 32,3420 71214 V2T175 SET DLOAD
037899,001421: 32,3421 00072 F2RTE
037900,001422: 32,3422 03722 X(T1)
037901,001423: 32,3423 14017 STODL 14D # X(T1)=X(T1)MAX
037902,001424: 32,3424 00015 12D
037903,001425: 32,3425 77676 DCOMP
037904,001426: 32,3426 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
037905,001427: 32,3427 65474 GAMDV10
037906,001428: 32,3430 50145 DLOAD BMN
037907,001429: 32,3431 03730 NN1A
037908,001430: 32,3432 65470 V2T300
037909,001431:
037910,001432: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
037911,001433: # PRECISION TRAJECTORY
037912,001434:
037913,001435: 32,3433 45345 V2T185 DLOAD DSU
037914,001436: 32,3434 03722 X(T1)
037915,001437: 32,3435 00001 00D
037916,001438: 32,3436 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
037917,001439: 32,3437 00015 12D
037918,001440: 32,3440 44352 SL1 BDSU
037919,001441: 32,3441 71240 BMN DLOAD
037920,001442: 32,3442 65470 V2T300
037921,001443: 32,3443 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
037922,001444: 32,3444 03722 STORE X(T1) # X(T1),, = X(T1)
037923,001445: 32,3445 50025 DSU BMN
037924,001446: 32,3446 00017 14D
037925,001447: 32,3447 65455 V2T195
037926,001448: 32,3450 77745 DLOAD
037927,001449: 32,3451 00017 14D
037928,001450: 32,3452 03722 STORE X(T1) # X(T1)MAX = X(T1)
037929,001451: 32,3453 77650 GOTO
037930,001452: 32,3454 65466 V2T205
037931,001453: 32,3455 45345 V2T195 DLOAD DSU
037932,001454: 32,3456 03722 X(T1)
037933,001455: 32,3457 00013 10D
037934,001456: 32,3460 52040 BMN GOTO
037935,001457: 32,3461 65463 V2T200
037936,001458: 32,3462 65466 V2T205
037937,001459: 32,3463 77745 V2T200 DLOAD
037938,001460: # # Page 873
037939,001461: 32,3464 00013 10D
037940,001462: 32,3465 03722 STORE X(T1) # X(T1)MIN = X(T1)
037941,001463: 32,3466 77624 V2T205 CALL
037942,001464: 32,3467 65673 DVCALC
037943,001465: 32,3470 77745 V2T300 DLOAD
037944,001466: 32,3471 31701 ZERORTE
037945,001467: 32,3472 77650 V2T1X GOTO
037946,001468: 32,3473 00041 33D
037947,001469:
037948,001470: # # Page 874
037949,001471: # X(T1)-DV ITERATOR SUBROUTINE
037950,001472:
037951,001473: # DESCRIPTION
037952,001474: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
037953,001475: # CALLING SEQUENCE
037954,001476: # L CALL
037955,001477: # L+1 GAMDV10
037956,001478:
037957,001479: # NORMAL EXIT MODE
037958,001480: # AT L+2 OF CALLING SEQUENCE
037959,001481:
037960,001482: # ALARM EXIT MODE
037961,001483: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037962,001484:
037963,001485: # SUBROUTINES CALLED
037964,001486: # DVCALC
037965,001487:
037966,001488: # ERASABLE INITIALIZATION REQUIRED
037967,001489: # PUSHLIST
037968,001490: # 02D THETA1=BETA5*LAMBDA-1 TP B17
037969,001491: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
037970,001492: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
037971,001493: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
037972,001494: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
037973,001495: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
037974,001496: # 16D DX(T1)=ITERATOR INCREMENT DP B5
037975,001497: # MPAC
037976,001498: # NONE
037977,001499: # OTHER
037978,001500: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037979,001501: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
037980,001502: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037981,001503: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037982,001504: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
037983,001505: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
037984,001506:
037985,001507: # OUTPUT
037986,001508: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037987,001509: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
037988,001510: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
037989,001511: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
037990,001512:
037991,001513: # DEBRIS
037992,001514: # PUSHLIST
037993,001515: # 00D X(T1),,
037994,001516: # 02D THETA1
037995,001517: # 05D THETA2
037996,001518: # 08D THETA3
037997,001519: # 10D X(T1)MIN
037998,001520: # 12D DX(T1)MAX
037999,001521: # # Page 875
038000,001522: # 14D X(T1)MAX
038001,001523: # 16D DX(T1)
038002,001524: # 22D DV,=PREVIOUS DV DP B7/B5
038003,001525: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
038004,001526: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
038005,001527: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038006,001528: # 33D V2T100 SUBROUTINE RETURN ADDRESS
038007,001529: 32,3474 77620 GAMDV10 STQ
038008,001530: 32,3475 00037 31D
038009,001531: 32,3476 45001 SETPD CALL
038010,001532: 32,3477 00023 18D # PL18D
038011,001533: 32,3500 65673 DVCALC
038012,001534: 32,3501 45345 DLOAD DSU
038013,001535: 32,3502 00017 14D
038014,001536: 32,3503 00013 10D
038015,001537: 32,3504 77600 BOV
038016,001538: 32,3505 65525 GAMDV20
038017,001539: 32,3506 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
038018,001540: 32,3507 31774 EPC9RTE
038019,001541: 32,3510 71240 BMN DLOAD
038020,001542: 32,3511 65671 GAMDVX # BOUNDS CLOSE TOGETHER
038021,001543: 32,3512 00023 18D
038022,001544: 32,3513 50025 DSU BMN # BETA8-DX(T1)MAX
038023,001545: 32,3514 00015 12D
038024,001546: 32,3515 65521 GAMDV15
038025,001547: 32,3516 52001 SETPD GOTO # PL18D
038026,001548: 32,3517 00023 18D
038027,001549: 32,3520 65525 GAMDV20
038028,001550: 32,3521 77745 GAMDV15 DLOAD # PL18D
038029,001551: 32,3522 70565 SIGN SR1
038030,001552: 32,3523 00021 16D
038031,001553: 32,3524 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
038032,001554: 32,3525 77745 GAMDV20 DLOAD
038033,001555: 32,3526 31703 M144RTE
038034,001556: 32,3527 03732 STORE NN2
038035,001557: 32,3530 43345 GAMDV25 DLOAD DAD
038036,001558: 32,3531 03732 NN2
038037,001559: 32,3532 31677 1RTEB28
038038,001560: 32,3533 67240 BMN SLOAD
038039,001561: 32,3534 65540 GAMDV30
038040,001562: 32,3535 31737 OCT605
038041,001563: 32,3536 77650 GOTO
038042,001564: 32,3537 65472 V2T1X
038043,001565: 32,3540 03732 GAMDV30 STORE NN2 # NN2=NN2+1
038044,001566: 32,3541 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
038045,001567: 32,3542 03722 X(T1)
038046,001568: 32,3543 03706 DV
038047,001569: 32,3544 43325 PDDL DAD # DV=DV, B7/B5 PL22D
038048,001570: 32,3545 03722 X(T1)
038049,001571: 32,3546 00021 16D
038050,001572: # # Page 876
038051,001573: 32,3547 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
038052,001574: 32,3550 65673 DVCALC
038053,001575: 32,3551 71214 BON DLOAD
038054,001576: 32,3552 00312 F2RTE
038055,001577: 32,3553 65567 GAMDV35
038056,001578: 32,3554 03706 DV
038057,001579: 32,3555 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
038058,001580: 32,3556 00025 20D
038059,001581: 32,3557 65564 GAMDV33
038060,001582: 32,3560 57545 GAMDV32 DLOAD DCOMP
038061,001583: 32,3561 00021 16D
038062,001584: 32,3562 77742 SR1
038063,001585: 32,3563 00021 STORE 16D
038064,001586: 32,3564 52001 GAMDV33 SETPD GOTO
038065,001587: 32,3565 00023 18D # PL18D
038066,001588: 32,3566 65630 GAMDV50
038067,001589:
038068,001590: # TIME CRITICAL MODE
038069,001591:
038070,001592: 32,3567 45345 GAMDV35 DLOAD DSU
038071,001593: 32,3570 03632 RTEDVD
038072,001594: 32,3571 03706 DV
038073,001595: 32,3572 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
038074,001596: 32,3573 51545 GAMDV40 DLOAD ABS # DV, PL24D
038075,001597: 32,3574 00025 20D
038076,001598: 32,3575 50025 DSU BMN
038077,001599: 32,3576 31776 EPC10RTE
038078,001600: 32,3577 65671 GAMDVX
038079,001601: 32,3600 77745 GAMDV45 DLOAD # PL22D
038080,001602: 32,3601 60221 BDSU NORM
038081,001603: 32,3602 03706 DV
038082,001604: 32,3603 00050 X2
038083,001605: 32,3604 77725 PDDL # DV-DV, B7/B5-N2 PL22D
038084,001606: 32,3605 70501 NORM SR1 # DVERR B8/B6-N1
038085,001607: 32,3606 00047 X1
038086,001608: 32,3607 77671 DDV
038087,001609: 32,3610 65200 BOV PDDL # DVERR/(DV-DV,) PL20D
038088,001610: 32,3611 65624 GAMDV47
038089,001611: 32,3612 41221 BDSU DMP # PL18D
038090,001612: 32,3613 03722 X(T1)
038091,001613: 32,3614 53660 XSU,1 SR*
038092,001614: 32,3615 00047 X2
038093,001615: 32,3616 20600 0 -1,1
038094,001616: 32,3617 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038095,001617: 32,3620 45246 ABS DSU
038096,001618: 32,3621 00015 12D
038097,001619: 32,3622 77640 BMN
038098,001620: 32,3623 65630 GAMDV50
038099,001621: 32,3624 75345 GAMDV47 DLOAD SIGN
038100,001622: 32,3625 00015 12D
038101,001623: # # Page 877
038102,001624: 32,3626 00021 16D
038103,001625: 32,3627 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
038104,001626:
038105,001627: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038106,001628:
038107,001629: 32,3630 41345 GAMDV50 DLOAD DMP
038108,001630: 32,3631 00021 16D
038109,001631: 32,3632 31713 1.1RTEB1
038110,001632: 32,3633 43352 SL1 DAD
038111,001633: 32,3634 03722 X(T1)
038112,001634: 32,3635 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
038113,001635: 32,3636 50025 DSU BMN
038114,001636: 32,3637 00017 14D
038115,001637: 32,3640 65647 GAMDV55
038116,001638: 32,3641 45345 DLOAD DSU
038117,001639: 32,3642 00017 14D
038118,001640: 32,3643 03722 X(T1)
038119,001641: 32,3644 77742 SR1
038120,001642: 32,3645 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
038121,001643: 32,3646 65662 GAMDV65
038122,001644: 32,3647 45345 GAMDV55 DLOAD DSU
038123,001645: 32,3650 00031 24D
038124,001646: 32,3651 00013 10D
038125,001647: 32,3652 52040 BMN GOTO
038126,001648: 32,3653 65655 GAMDV60
038127,001649: 32,3654 65662 GAMDV65
038128,001650: 32,3655 45345 GAMDV60 DLOAD DSU
038129,001651: 32,3656 00013 10D
038130,001652: 32,3657 03722 X(T1)
038131,001653: 32,3660 77742 SR1
038132,001654: 32,3661 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
038133,001655: 32,3662 51545 GAMDV65 DLOAD ABS
038134,001656: 32,3663 00021 16D
038135,001657: 32,3664 50025 DSU BMN
038136,001658: 32,3665 31774 EPC9RTE
038137,001659: 32,3666 65671 GAMDVX
038138,001660: 32,3667 77650 GOTO
038139,001661: 32,3670 65530 GAMDV25
038140,001662: 32,3671 77650 GAMDVX GOTO
038141,001663: 32,3672 00037 31D
038142,001664:
038143,001665: # # Page 878
038144,001666: # DV CALCULATION SUBROUTINE
038145,001667:
038146,001668: # INPUT
038147,001669: # PUSHLIST
038148,001670: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038149,001671: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038150,001672: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038151,001673: # OTHER
038152,001674: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
038153,001675: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
038154,001676: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038155,001677: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038156,001678:
038157,001679: # OUTPUT
038158,001680: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038159,001681: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038160,001682: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038161,001683:
038162,001684: # DEBRIS
038163,001685: # 28D THETA3*PCON**.5 DP B10/B8-N1
038164,001686: # C(PUSHLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
038165,001687: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038166,001688: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
038167,001689:
038168,001690: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038169,001691:
038170,001692: 32,3673 71220 DVCALC STQ DLOAD
038171,001693: 32,3674 00040 32D
038172,001694: 32,3675 03722 X(T1)
038173,001695: 32,3676 54316 DSQ SR
038174,001696: 32,3677 20610 7
038175,001697: 32,3700 76276 DCOMP TAD
038176,001698: 32,3701 00003 02D
038177,001699: 32,3702 41501 NORM PUSH
038178,001700: 32,3703 00047 X1
038179,001701: 32,3704 60351 TLOAD NORM
038180,001702: 32,3705 00006 05D
038181,001703: 32,3706 00050 X2
038182,001704: 32,3707 70434 RTB SR1
038183,001705: 32,3710 45713 DPMODE
038184,001706: 32,3711 56264 XSU,2 DDV
038185,001707: 32,3712 00046 X1
038186,001708: 32,3713 77657 SR*
038187,001709: 32,3714 57170 6,2
038188,001710: 32,3715 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
038189,001711: 32,3716 41366 SQRT DMP
038190,001712: 32,3717 00011 08D
038191,001713: 32,3720 77701 NORM
038192,001714: 32,3721 00047 X1
038193,001715: 32,3722 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
038194,001716: # # Page 879
038195,001717: 32,3723 03722 X(T1)
038196,001718: 32,3724 74301 NORM VXSC
038197,001719: 32,3725 00050 X2
038198,001720: 32,3726 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
038199,001721: 32,3727 74274 XAD,2 VXSC
038200,001722: 32,3730 00046 X1
038201,001723: 32,3731 00035 28D
038202,001724: 32,3732 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
038203,001725: 32,3733 57207 0 -9D,2 # +
038204,001726: 32,3734 03746 UH/
038205,001727: 32,3735 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
038206,001728: 32,3736 00035 28D
038207,001729: 32,3737 20575 0 -4,1 # =
038208,001730: 32,3740 45455 VAD STADR
038209,001731: 32,3741 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
038210,001732: 32,3742 51451 VSU ABVAL
038211,001733: 32,3743 03672 V(T1)/
038212,001734: 32,3744 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
038213,001735: 32,3745 77650 GOTO
038214,001736: 32,3746 00040 32D
038215,001737:
038216,001738: # # Page 880
038217,001739: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
038218,001740:
038219,001741: # INPUT
038220,001742: # PUSHLIST
038221,001743: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
038222,001744: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
038223,001745: # 28D BETA5=LAMBDA*BETA1 DP B9
038224,001746: # OTHER
038225,001747: # RCON DP B29/B27
038226,001748: # R(T1) DP B29/B27
038227,001749: # OUTPUT
038228,001750: # MPAC
038229,001751: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
038230,001752: # DEBRIS
038231,001753: # PUSHLIST
038232,001754: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
038233,001755: # C(PSHLOC)+2 MA DP B30/B28
038234,001756: # X1 NORMALIZATION FACTOR FOR MA-RCON
038235,001757: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
038236,001758: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
038237,001759:
038238,001760: 32,3747 71220 XT1LIM STQ DLOAD
038239,001761: 32,3750 00024 20D
038240,001762: 32,3751 03636 RCON
038241,001763: 32,3752 44342 SR1 BDSU
038242,001764: 32,3753 65301 NORM PDDL # MA-RCON B30-N1
038243,001765: 32,3754 00050 X2
038244,001766: 32,3755 70525 PDDL SR1
038245,001767: 32,3756 03646 R(T1)
038246,001768: 32,3757 56221 BDSU DDV
038247,001769: 32,3760 41257 SL* DMP
038248,001770: 32,3761 57577 0 -1,2
038249,001771: 32,3762 00035 28D
038250,001772: 32,3763 77657 SL*
038251,001773: 32,3764 20172 0 -7,1
038252,001774: 32,3765 50025 DSU BMN # (BETA5(MA-R(T1))/(MA-RCON))-1 B10
038253,001775: 32,3766 31665 1RTEB10
038254,001776: 32,3767 65772 XT1LIM5
038255,001777: 32,3770 52166 SQRT GOTO
038256,001778: 32,3771 65774 XT1LIMX
038257,001779: 32,3772 77745 XT1LIM5 DLOAD
038258,001780: 32,3773 31701 ZERORTE
038259,001781: 32,3774 77650 XT1LIMX GOTO
038260,001782: 32,3775 00024 20D
038261,001783:
038262,001784: # # Page 881
038263,001785: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
038264,001786:
038265,001787: 36,3250 BANK 36
038266,001788: 34,2000 SETLOC RTECON
038267,001789: 34,2000 BANK
038268,001790:
038269,001791: 34,3654 20000 00000 1RTEB1 2DEC 1.
038270,001792: 34,3656 10000 00000 1RTEB2 2DEC 1.
038271,001793: 34,3660 04000 00000 1RTEB3 2DEC 1.
038272,001794: 34,3662 02000 00000 1RTEB4 2DEC 1.
038273,001795: 34,3664 00020 00000 1RTEB10 2DEC 1.
038274,001796: 34,3666 00004 00000 1RTEB12 2DEC 1.
038275,001797: 34,3670 00002 00000 1RTEB13 2DEC 1.
038276,001798: 34,3672 00000 04000 1RTEB17 2DEC 1.
038277,001799: 34,3674 00000 00010 1RTEB25 2DEC 1.
038278,001800: 34,3676 00000 00001 1RTEB28 2DEC 1.
038279,001801: 34,3700 00000 00000 ZERORTE 2DEC 0 B-28
038280,001802: 34,3702 77777 77557 M144RTE 2DEC -144.
038281,001803: 34,3704 77777 77760 M15RTE 2DEC -15 B-28
038282,001804: 34,3706 00000 00012 10RTE 2DEC 10 B-28
038283,001805: 34,3710 54631 63145 M.6RTE 2DEC -.6
038284,001806: 34,3712 21463 06315 1.1RTEB1 2DEC 1.1
038285,001807: 34,3714 77777 77771 M6RTEB28 2DEC -6 B-28
038286,001808: 34,3716 37777 37777 2RTEB1 2OCT 3777737777
038287,001809: 34,3720 77777 77766 M9RTEB28 2DEC -9 B-28
038288,001810: 34,3722 77777 77767 M8RTEB28 2DEC -8 B-28
038289,001811: 34,3724 00000 35610 30480RTE 2DEC 30480.
038290,001812: 34,3726 36703 03743 VCSPS 2DEC 30.8811
038291,001813: # # Page 882
038292,001814: 34,3730 33041 37714 VCRCS 2DEC 27.0664
038293,001815: 34,3732 00003 13241 MDOTRCS 2DEC .0016375
038294,001816: 34,3734 20000 00000 CSUBT 2DEC .5
038295,001817: 34,3736 00605 OCT605 OCT 00605
038296,001818: 34,3737 00612 OCT612 OCT 00612
038297,001819: 34,3740 00613 OCT613 OCT 00613
038298,001820: 34,3741 40214 45266 MCOS7.5 2DEC -.99144486
038299,001821: 34,3743 73645 56536 MSIN7.5 2DEC -.13052619
038300,001822: 34,3745 70467 71205 MCOS22.5 2DEC -.92387953
038301,001823: 34,3747 16525 12525 THETA165 2DEC .458333333
038302,001824: 34,3751 22525 12525 THETA210 2DEC .583333333
038303,001825: 34,3753 17775 06676 EPC1RTE 2DEC .99966
038304,001826: 34,3755 00000 00062 EPC2RTE 2DEC 100.
038305,001827: 34,3757 00020 14223 EPC3RTE 2DEC .001
038306,001828: 34,3761 00000 05174 EPC4RTE 2DEC .00001
038307,001829: 34,3763 00002 21727 EPC5RTE 2DEC .01
038308,001830: 34,3765 00000 01654 EPC6RTE 2DEC .000007
038309,001831: 34,3767 00000 00764 EPC7RTE 2DEC 1000.
038310,001832: 34,3771 00040 30447 EPC8RTE 2DEC .002
038311,001833: 34,3773 00000 00010 EPC9RTE 2DEC 1.
038312,001834: 34,3775 00000 00322 EPC10RTE 2DEC .0001
038313,001835: 35,3755 BANK 35
038314,001836: 35,2000 SETLOC RTECON1
038315,001837: 35,2000 BANK
038316,001838: 35,3755 27657 01000 C4RTE 2DEC 8.
038317,001839: 35,3757 00325 23740 K1RTE 2DEC 7.
038318,001840: 35,3761 00306 06614 K2RTE 2DEC 6495000.
038319,001841: 35,3763 76027 70156 K3RTE 2DEC -.06105
038320,001842: # # Page 883
038321,001843: 35,3765 74517 54131 K4RTE 2DEC -.10453
038322,001844: 35,3767 30276 05001 RTMURTE 2DEC 199650.501
038323,001845: 35,3771 00003 27040 E3RTE 2DEC 121920.
End of include-file P37,P70.agc. Parent file is MAIN.agc