Source Code
037205,000001: # Copyright: Public domain.
037206,000002: # Filename: Template.agc
037207,000003: # Purpose: Part of the source code for Colossus, build 249.
037208,000004: # It is part of the source code for the Command Module's (CM)
037209,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
037210,000006: # Assembler: yaYUL
037211,000007: # Reference: pp. 847-890 of 1701.pdf.
037212,000008: # Contact: Ron Burkey <info@sandroid.org>.
037213,000009: # Website: www.ibiblio.org/apollo.
037214,000010: # Mod history: 08/21/04 RSB. Began transcribing.
037215,000011: # 2010-10-24 JL Indentation fixes. Added missing # in comment.
037216,000012:
037217,000013: # The contents of the "Colossus249" files, in general, are transcribed
037218,000014: # from a scanned document obtained from MIT's website,
037219,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
037220,000016: # document read, in part:
037221,000017:
037222,000018: # Assemble revision 249 of AGC program Colossus by NASA
037223,000019: # 2021111-041. October 28, 1968.
037224,000020:
037225,000021: # This AGC program shall also be referred to as
037226,000022: # Colossus 1A
037227,000023:
037228,000024: # Prepared by
037229,000025: # Massachusetts Institute of Technology
037230,000026: # 75 Cambridge Parkway
037231,000027: # Cambridge, Massachusetts
037232,000028: # under NASA contract NAS 9-4065.
037233,000029:
037234,000030: # Refer directly to the online document mentioned above for further information.
037235,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
037236,000032:
037237,000033: # In some cases, where the source code for Luminary 131 overlaps that of
037238,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131
037239,000035: # source file, and then is proofed to incorporate any changes.
037240,000036:
037241,000037: # Page 847
037242,000038: 31,3215 BANK 31
037243,000039: 36,2000 SETLOC RTE1
037244,000040: 36,2000 BANK
037245,000041:
037246,000042: 36,2502 E7,1631 EBANK= RTEDVD
037247,000043: 36,2502 COUNT 31/P37
037248,000044:
037249,000045: # PROGRAM DESCRIPTION: P37, RETURN TO EARTH
037250,000046:
037251,000047: # DESCRIPTION
037252,000048: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
037253,000049: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
037254,000050: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE
037255,000051: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
037256,000052: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
037257,000053:
037258,000054: # CALLING SEQUENCE
037259,000055: # L TC P37
037260,000056:
037261,000057: # SUBROUTINES CALLED
037262,000058: # PREC100
037263,000059: # V2T100
037264,000060: # RTENCK2
037265,000061: # RTENCK3
037266,000062: # TIMERAD
037267,000063: # PARAM
037268,000064: # V2T100
037269,000065: # GAMDV10
037270,000066: # XT1LIM
037271,000067: # DVCALC
037272,000068: # RTENCK1
037273,000069: # INTSTALL
037274,000070: # INTEGRVS
037275,000071: # RTEVN
037276,000072: # RETDISP
037277,000073: # TMRAD100
037278,000074: # AUGEKUGL
037279,000075: # LAT-LONG
037280,000076: # TMRAD100
037281,000077: # TIMERAD
037282,000078: # INVC100
037283,000079: # CSMPREC
037284,000080: # GETERAD
037285,000081: # TIMETHET
037286,000082: # P370ALRM
037287,000083: # VN1645
037288,000084: # POLY
037289,000085:
037290,000086: # ERASABLE INITIALIZATION REQUIRED
037291,000087: # CSM STATE VECTOR
037292,000088: # Page 848
037293,000089: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
037294,000090:
037295,000091: # ASTRONAUT INPUT
037296,000092: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
037297,000093: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
037298,000094: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
037299,000095: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
037300,000096:
037301,000097: # OUTPUT
037302,000098: # CONIC OR PRECISION TRAJECTORY DISPLAY
037303,000099: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
037304,000100: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
037305,000101: # GAMMAEI FLIGHT PATH ANGLE AT 400,00 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
037306,000102: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
037307,000103: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
037308,000104: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
037309,000105: # TARGETING COMPUTATION DISPLAY
037310,000106: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
037311,000107: # TTOGO TIME FROM TIG DP B28 CS
037312,000108: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
037313,000109: # THRUST PROGRAM COMMUNICATION
037314,000110: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
037315,000111: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
037316,000112: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
037317,000113: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
037318,000114: # TPASS4 REENTRY TIME DP B28 CS
037319,000115:
037320,000116: 36,2502 05301 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE
037321,000117: 36,2503 00004 OCT 4
037322,000118:
037323,000119: 36,2504 06006 TC INTPRET
037324,000120: 36,2505 66170 AXT,1 SXA,1
037325,000121: 36,2506 04000 OCT 04000
037326,000122: 36,2507 03424 ECSTEER
037327,000123: 36,2510 77776 EXIT
037328,000124: 36,2511 33242 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
037329,000125: 36,2512 03231 TCR P370GOF # OVERLAYED WITH TIG
037330,000126: 36,2513 12511 TCF -2 # DISPLAY NEW DATA
037331,000127: 36,2514 33246 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
037332,000128: 36,2515 03205 TCR P37GFRB1 # AND DESIRED DELTA V IN RETDVD
037333,000129: 36,2516 12514 TCF -2 # DISPLAY NEW DATA
037334,000130: 36,2517 06006 RTE299 TC INTPRET
037335,000131: 36,2520 71331 SSP DLOAD
037336,000132: 36,2521 00122 OVFIND
037337,000133: 36,2522 00000 0
037338,000134: 36,2523 03767 VPRED
037339,000135: 36,2524 17632 STODL RTEDVD
037340,000136: 36,2525 03771 GAMMAEI
037341,000137: 36,2526 17634 STODL RTEGAM2D
037342,000138: 36,2527 31667 1RTEB13
037343,000139: # Page 849
037344,000140: 36,2530 17735 STODL CONICX1
037345,000141: 36,2531 33756 C4RTE
037346,000142: 36,2532 37652 STCALL MAMAX1
037347,000143: 36,2533 64427 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
037348,000144: 36,2534 77545 DLOAD EXIT
037349,000145: 36,2535 03646 R(T1)
037350,000146: 36,2536 07171 TC POLY
037351,000147: 36,2537 00002 DEC 2 B-14
037352,000148: 36,2540 02544 35436 2DEC 181000434 B-31
037353,000149: 36,2542 14040 05066 2DEC 1.50785145 B-2
037354,000150: 36,2544 44052 60030 2DEC* -6.49993057 E-9 B27*
037355,000151: 36,2546 26415 25057 2DEC* 9.76938926 E-18 B56*
037356,000152:
037357,000153: 36,2550 06006 TC INTPRET
037358,000154: 36,2551 77752 SL1
037359,000155: 36,2552 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
037360,000156: 36,2553 31717 M9RTEB28
037361,000157: 36,2554 17730 STODL NN1A
037362,000158: 36,2555 33762 K2RTE
037363,000159: 36,2556 17636 RTE320 STODL RCON # RCON=K2
037364,000160: 36,2557 03634 RTEGAM2D
037365,000161: 36,2560 44254 BZE BDSU
037366,000162: 36,2561 74570 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
037367,000163: 36,2562 31655 1RTEB2
037368,000164: 36,2563 71406 PUSH COS # PL02D
037369,000165: 36,2564 73525 PDDL SIN
037370,000166: 36,2565 45465 BDDV STADR # PL00D
037371,000167: 36,2566 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
037372,000168: 36,2567 74603 RTE360
037373,000169: 36,2570 45345 RTE340 DLOAD DSU
037374,000170: 36,2571 03646 R(T1)
037375,000171: 36,2572 33760 K1RTE
037376,000172: 36,2573 71240 BMN DLOAD
037377,000173: 36,2574 74600 RTE350
037378,000174: 36,2575 33766 K4RTE
037379,000175: 36,2576 37726 STCALL X(T2) # X(T2)=K4
037380,000176: 36,2577 74603 RTE360
037381,000177: 36,2600 77745 RTE350 DLOAD
037382,000178: 36,2601 33764 K3RTE
037383,000179: 36,2602 03726 STORE X(T2) # X(T2)=K3
037384,000180: 36,2603 77624 RTE360 CALL
037385,000181: 36,2604 65136 V2T100
037386,000182: 36,2605 52054 BZE GOTO
037387,000183: 36,2606 74610 RTE367
037388,000184: 36,2607 74772 RTEALRM
037389,000185: 36,2610 77775 RTE367 VLOAD
037390,000186: 36,2611 03640 R(T1)/
037391,000187: # Page 850
037392,000188: 36,2612 16657 STODL RVEC
037393,000189: 36,2613 03636 RCON
037394,000190: 36,2614 26760 STOVL RDESIRED
037395,000191: 36,2615 03700 V2(T1)/
037396,000192: 36,2616 36746 STCALL VVEC
037397,000193: 36,2617 64272 TMRAD100
037398,000194: 36,2620 77615 DAD
037399,000195: 36,2621 03716 T1
037400,000196: 36,2622 17736 STODL T2
037401,000197: 36,2623 03634 RTEGAM2D
037402,000198: 36,2624 52054 BZE GOTO
037403,000199: 36,2625 74627 RTE369
037404,000200: 36,2626 74651 RTE372
037405,000201: 36,2627 51575 RTE369 VLOAD ABVAL
037406,000202: 36,2630 03710 V(T2)/
037407,000203: 36,2631 77776 EXIT
037408,000204: 36,2632 07171 TC POLY
037409,000205: 36,2633 00002 DEC 2 B-14
037410,000206: 36,2634 00000 00000 2DEC 0 B-28
037411,000207: 36,2636 47021 65002 2DEC -4.8760771 E-2 B4
037412,000208: 36,2640 35610 07722 2DEC 4.5419476 E-4 B11
037413,000209: 36,2642 63772 63276 2DEC -1.4317675 E-6 B18
037414,000210:
037415,000211: 36,2644 06006 TC INTPRET
037416,000212: 36,2645 77615 DAD
037417,000213: 36,2646 01352 RTED1
037418,000214: 36,2647 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
037419,000215: 36,2650 74653 RTE373
037420,000216: 36,2651 77745 RTE372 DLOAD # X(T2),=X(T2)
037421,000217: 36,2652 03726 X(T2)
037422,000218: 36,2653 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
037423,000219: 36,2654 03726 X(T2)
037424,000220: 36,2655 53575 VLOAD UNIT
037425,000221: 36,2656 03656 R(T2)/ # B58
037426,000222: 36,2657 36152 STCALL ALPHAV
037427,000223: 36,2660 26437 GETERAD
037428,000224: 36,2661 77615 DAD
037429,000225: 36,2662 33772 E3RTE
037430,000226: 36,2663 45206 PUSH DSU # RCON,=(E1/1+E2BETA11)**.5)+E3 B29 PL04D
037431,000227: 36,2664 03636 RCON
037432,000228: 36,2665 45246 ABS DSU
037433,000229: 36,2666 31754 EPC2RTE
037434,000230: 36,2667 52040 BMN GOTO
037435,000231: 36,2670 74672 RTE374
037436,000232: 36,2671 74677 RTE375
037437,000233: 36,2672 51545 RTE374 DLOAD ABS
037438,000234: 36,2673 00001 00D
037439,000235: # Page 851
037440,000236: 36,2674 50025 DSU BMN
037441,000237: 36,2675 31756 EPC3RTE
037442,000238: 36,2676 74747 P37E
037443,000239: 36,2677 43345 RTE375 DLOAD DAD
037444,000240: 36,2700 03730 NN1A
037445,000241: 36,2701 31675 1RTEB28
037446,000242: 36,2702 67240 BMN SLOAD
037447,000243: 36,2703 74707 RTE380
037448,000244: 36,2704 31735 OCT605
037449,000245: 36,2705 77650 GOTO
037450,000246: 36,2706 74772 RTEALRM # TOO MANY ITERATIONS
037451,000247: 36,2707 03730 RTE380 STORE NN1A
037452,000248: 36,2710 53025 DSU BZE
037453,000249: 36,2711 31721 M8RTEB28
037454,000250: 36,2712 74730 RTE385
037455,000251: 36,2713 45345 DLOAD DSU
037456,000252: 36,2714 00001 00D
037457,000253: 36,2715 03666 DRCON
037458,000254: 36,2716 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=21 PL06D
037459,000255: 36,2717 00047 X1
037460,000256: 36,2720 03670 RPRE'
037461,000257: 36,2721 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
037462,000258: 36,2722 03726 X(T2)
037463,000259: 36,2723 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
037464,000260: 36,2724 00001 00D
037465,000261: 36,2725 20201 0,1
037466,000262: 36,2726 77650 GOTO
037467,000263: 36,2727 74732 RTE390
037468,000264: 36,2730 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
037469,000265: 36,2731 00001 00D
037470,000266: 36,2732 14021 RTE390 STODL 16D # DX(T2) PL02D
037471,000267: 36,2733 77626 STADR
037472,000268: 36,2734 60141 STODL RCON # RCON=RCON,
037473,000269: 36,2735 77600 BOV
037474,000270: 36,2736 74603 RTE360
037475,000271: 36,2737 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
037476,000272: 36,2740 03726 X(T2)
037477,000273: 36,2741 17670 STODL RPRE' # X(T2)PRI=X(T2)
037478,000274: 36,2742 00021 16D
037479,000275: 36,2743 77615 DAD
037480,000276: 36,2744 03726 X(T2)
037481,000277: 36,2745 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
037482,000278: 36,2746 74603 RTE360 # REITERATE
037483,000279: 36,2747 77624 P37E CALL # DISPLAY CONIC SOLUTION
037484,000280: 36,2750 74776 RTEVN
037485,000281: 36,2751 41345 RTE505 DLOAD DMP
037486,000282: 36,2752 03720 PCON
037487,000283: 36,2753 03754 BETA1
037488,000284: 36,2754 53021 BDSU BZE
037489,000285: 36,2755 03636 RCON
037490,000286: # Page 852
037491,000287: 36,2756 74764 RTE510
037492,000288: 36,2757 71240 BMN DLOAD
037493,000289: 36,2760 74764 RTE510
037494,000290: 36,2761 31655 1RTEB2
037495,000291: 36,2762 77650 GOTO # ENTRY NEAR APOGEE
037496,000292: 36,2763 74766 RTE515
037497,000293: 36,2764 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
037498,000294: 36,2765 31655 1RTEB2
037499,000295: 36,2766 37761 RTE515 STCALL PHI2
037500,000296: 36,2767 64515 PREC100 # PRECISION TRAJECTORY COMPUTATION
037501,000297: 36,2770 77654 RTE625 BZE
037502,000298: 36,2771 75024 P37G
037503,000299: 36,2772 77624 RTEALRM CALL
037504,000300: 36,2773 64255 P370ALRM
037505,000301: 36,2774 77776 EXIT
037506,000302: 36,2775 12502 TCF P37 # RECYCLE AFTER ALARM DISPLAY
037507,000303:
037508,000304: # RETURN TO EARTH DISPLAY SUBROUTINE
037509,000305:
037510,000306: 36,2776 45020 RTEVN STQ CALL
037511,000307: 36,2777 03763 VNSTORE
037512,000308: 36,3000 64311 RTEDISP # DISPLAY PREPARATION
037513,000309: 36,3001 77776 EXIT
037514,000310: 36,3002 33244 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
037515,000311: 36,3003 03215 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
037516,000312: 36,3004 34710 CAF FOUR
037517,000313: 36,3005 03211 TCR 37BLANK +1
037518,000314: 36,3006 13013 TCF +5
037519,000315: 36,3007 12502 TCF P37 # RECYCLE
037520,000316: 36,3010 33245 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
037521,000317: 36,3011 03231 TCR P370GOF
037522,000318: 36,3012 12502 TCF P37 # RECYCLE
037523,000319: 36,3013 33246 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
037524,000320: 36,3014 03205 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
037525,000321: 36,3015 12502 TCF P37 # RECYCLE
037526,000322: 36,3016 33247 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
037527,000323: 36,3017 03231 TCR P370GOF
037528,000324: 36,3020 12502 TCF P37 # RECYCLE
037529,000325: 36,3021 06006 TCR INTPRET
037530,000326: 36,3022 77650 GOTO
037531,000327: 36,3023 03763 VNSTORE
037532,000328:
037533,000329: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
037534,000330:
037535,000331: 36,3024 77624 P37G CALL
037536,000332: 36,3025 74776 RTEVN
037537,000333: 36,3026 77776 EXIT
037538,000334: 36,3027 34716 P37N CAF SEVEN
037539,000335: 36,3030 55131 TS OPTION1
037540,000336: 36,3031 34712 CAF ONE
037541,000337: # Page 853
037542,000338: 36,3032 55132 TS OPTION2
037543,000339: 36,3033 33243 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
037544,000340: 36,3034 03231 TCR P370GOF
037545,000341: 36,3035 13033 TCF -2 # RECYCLE
037546,000342: 36,3036 06006 TC INTPRET # PROCEED
037547,000343: 36,3037 67201 SETPD SLOAD
037548,000344: 36,3040 00001 00D
037549,000345: 36,3041 01133 OPTION2
037550,000346: 36,3042 53025 DSU BZE
037551,000347: 36,3043 31667 1RTEB13
037552,000348: 36,3044 75053 P37Q
037553,000349: 36,3045 60335 SLOAD NORM # SPS
037554,000350: 36,3046 00111 EMDOT
037555,000351: 36,3047 00047 X1
037556,000352: 36,3050 52125 PDDL GOTO
037557,000353: 36,3051 31725 VCSPS
037558,000354: 36,3052 75064 P37T
037559,000355: 36,3053 43145 P37Q DLOAD BON # RCS
037560,000356: 36,3054 31731 MDOTRCS
037561,000357: 36,3055 00700 NJETSFLG
037562,000358: 36,3056 75060 P37R
037563,000359: 36,3057 77752 SL1
037564,000360: 36,3060 77752 P37R SL1
037565,000361: 36,3061 65301 NORM PDDL
037566,000362: 36,3062 00047 X1
037567,000363: 36,3063 31727 VCRCS
037568,000364: 36,3064 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
037569,000365: 36,3065 03706 DV
037570,000366: 36,3066 77776 EXIT
037571,000367: 36,3067 07171 TC POLY
037572,000368: 36,3070 00001 DEC 1 B-14
037573,000369: 36,3071 00001 05070 2DEC 5.66240507 E-4 B-3
037574,000370: 36,3073 17527 36700 2DEC 9.79487897 E-1 B-1
037575,000371: 36,3075 47114 70670 2DEC -.388281955 B1
037576,000372: 36,3077 06006 TC INTPRET
037577,000373: 36,3100 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
037578,000374: 36,3101 03076 WEIGHT/G
037579,000375: 36,3102 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
037580,000376: 36,3103 41257 SL* DMP
037581,000377: 36,3104 20165 0 -12D,1
037582,000378: 36,3105 31733 CSUBT
037583,000379: 36,3106 77621 BDSU
037584,000380: 36,3107 03716 T1
037585,000381: 36,3110 03413 STORE TIG # TIG=T1-CT*DTB B28
037586,000382: 36,3111 77776 EXIT
037587,000383: 36,3112 33242 CAF V6N33RTE # DISPLAY BIASED TIG
037588,000384: 36,3113 03231 TCR P370GOF
037589,000385: # Page 854
037590,000386: 36,3114 13112 TCF -2
037591,000387: 36,3115 34714 CAF ZERO
037592,000388: 36,3116 55125 TS VHFCNT
037593,000389: 36,3117 55126 TS TRKMKCNT
037594,000390: 36,3120 06006 TC INTPRET
037595,000391: 36,3121 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
037596,000392: 36,3122 65055 RTENCK1
037597,000393: 36,3123 53575 VLOAD UNIT # PL00D
037598,000394: 36,3124 03656 R(T2)/
037599,000395: 36,3125 74315 PDVL VXSC # UR2 B1 PL08D
037600,000396: 36,3126 03740 UR1/
037601,000397: 36,3127 31740 MCOS7.5
037602,000398: 36,3130 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
037603,000399: 36,3131 03746 UH/
037604,000400: 36,3132 31742 MSIN7.5
037605,000401: 36,3133 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
037606,000402: 36,3134 50015 DAD BMN
037607,000403: 36,3135 31744 MCOS22.5
037608,000404: 36,3136 75163 P37W
037609,000405: 36,3137 50375 VLOAD DOT # K/ . UR2 GR COS22.5
037610,000406: 36,3140 03746 UH/
037611,000407: 36,3141 03656 R(T2)/
037612,000408: 36,3142 71240 BMN DLOAD
037613,000409: 36,3143 75147 P37U
037614,000410: 36,3144 31746 THETA165
037615,000411: 36,3145 52006 PUSH GOTO
037616,000412: 36,3146 75151 P37V
037617,000413: 36,3147 41545 P37U DLOAD PUSH
037618,000414: 36,3150 31750 THETA210
037619,000415: 36,3151 77756 P37V SIN
037620,000416: 36,3152 16732 STODL SNTH
037621,000417: 36,3153 43146 COS CLEAR
037622,000418: 36,3154 03666 RVSW
037623,000419: 36,3155 26734 STOVL CSTH
037624,000420: 36,3156 03640 R(T1)/
037625,000421: 36,3157 26657 STOVL RVEC
037626,000422: 36,3160 03700 V2(T1)/
037627,000423: 36,3161 36746 STCALL VVEC
037628,000424: 36,3162 24737 TIMETHET
037629,000425: 36,3163 43014 P37W CLEAR CLEAR
037630,000426: 36,3164 01267 XDELVFLG
037631,000427: 36,3165 03665 NORMSW
037632,000428: 36,3166 77214 SET VLOAD
037633,000429: 36,3167 01071 FINALFLG
037634,000430: 36,3170 77626 STADR
037635,000431: 36,3171 60362 STODL RTARG
037636,000432: 36,3172 00037 T
037637,000433: 36,3173 77615 DAD
037638,000434: 36,3174 03716 T1
037639,000435: 36,3175 27656 STOVL TPASS4
037640,000436: # Page 855
037641,000437: 36,3176 03700 V2(T1)/
037642,000438: 36,3177 77651 VSU
037643,000439: 36,3200 03672 V(T1)/
037644,000440: 36,3201 37646 STCALL DELVSIN
037645,000441: 36,3202 73005 VN1645
037646,000442: 36,3203 77650 GOTO
037647,000443: 36,3204 75163 P37W
037648,000444:
037649,000445: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
037650,000446:
037651,000447: 36,3205 00006 P37GFRB1 EXTEND
037652,000448: 36,3206 23762 QXCH SPRTEX
037653,000449: 36,3207 03215 TCR P370GOFR
037654,000450: 36,3210 34712 37BLANK CAF ONE
037655,000451: 36,3211 05415 TCR BLANKET
037656,000452: 36,3212 15112 TCF ENDOFJOB
037657,000453: 36,3213 01762 TC SPRTEX # RECYCLE
037658,000454: 36,3214 13240 TCF P37PROC # PROCEED
037659,000455:
037660,000456: # SUBROUTINE TO GO TO GOFLASHR
037661,000457:
037662,000458: 36,3215 00006 P370GOFR EXTEND
037663,000459: 36,3216 23733 QXCH RTENCKEX
037664,000460: 36,3217 04555 TCR BANKCALL
037665,000461: 36,3220 20763 CADR GOFLASHR
037666,000462: 36,3221 14106 TCF GOTOP00H # TERMINATE
037667,000463: 36,3222 13225 TCF +3
037668,000464: 36,3223 13227 TCF +4
037669,000465: 36,3224 01733 TC RTENCKEX # IMMEDIATE RETURN
037670,000466: 36,3225 51733 INDEX RTENCKEX # PROCEED
037671,000467: 36,3226 10004 TCF 0 +4
037672,000468: 36,3227 51733 INDEX RTENCKEX # RECYCLE
037673,000469: 36,3230 10003 TCF 0 +3
037674,000470:
037675,000471: # SUBROUTINE TO GO TO GOFLASH
037676,000472:
037677,000473: 36,3231 00006 P370GOF EXTEND
037678,000474: 36,3232 23762 QXCH SPRTEX
037679,000475: 36,3233 04555 TCR BANKCALL
037680,000476: 36,3234 20624 CADR GOFLASH
037681,000477: 36,3235 14106 TCF GOTOP00H
037682,000478: 36,3236 13240 TCF +2
037683,000479: 36,3237 01762 TC SPRTEX
037684,000480: 36,3240 51762 P37PROC INDEX SPRTEX
037685,000481: 36,3241 10001 TCF 0 +1
037686,000482: 36,3242 01441 V6N33RTE VN 0633
037687,000483: 36,3243 01006 V4N06RTE VN 0406
037688,000484: 36,3244 01475 V6N61RTE VN 0661
037689,000485: 36,3245 01447 V6N39RTE VN 0639
037690,000486: 36,3246 01474 V6N60RTE VN 0660
037691,000487: # Page 856
037692,000488: 36,3247 01521 V6N81RTE VN 0681
037693,000489: 32,2255 BANK 32
037694,000490: 32,2000 SETLOC RTE
037695,000491: 32,2000 BANK
037696,000492: 32,2255 COUNT 32/RTE
037697,000493:
037698,000494: # Page 857
037699,000495: # ALARM DISPLAY SUBROUTINE
037700,000496:
037701,000497: 32,2255 77420 P370ALRM STQ EXIT
037702,000498: 32,2256 03762 SPRTEX
037703,000499: 32,2257 30154 CA MPAC
037704,000500: 32,2260 05651 TC VARALARM
037705,000501: 32,2261 32271 CAF V5N09RTE
037706,000502: 32,2262 04555 TC BANKCALL
037707,000503: 32,2263 20624 CADR GOFLASH
037708,000504: 32,2264 14106 TCF GOTOP00H
037709,000505: 32,2265 12261 TCF -4
037710,000506: 32,2266 06006 TC INTPRET
037711,000507: 32,2267 77650 GOTO
037712,000508: 32,2270 03762 SPRTEX
037713,000509: 32,2271 01211 V5N09RTE VN 0509
037714,000510:
037715,000511: # Page 858
037716,000512: # TIME RADIUS CALLING SUBROUTINE
037717,000513:
037718,000514: # INPUT
037719,000515: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
037720,000516: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037721,000517: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
037722,000518: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14
037723,000519:
037724,000520: # OUTPUT
037725,000521: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037726,000522: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037727,000523: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
037728,000524:
037729,000525: 32,2272 43020 TMRAD100 STQ CLEAR
037730,000526: 32,2273 03733 RTENCKEX
037731,000527: 32,2274 03666 RVSW
037732,000528: 32,2275 67164 AXC,2 SXA,2
037733,000529: 32,2276 20000 OCT 20000
037734,000530: 32,2277 02756 SGNRDOT
037735,000531: 32,2300 45140 LXC,1 CALL
037736,000532: 32,2301 03734 CONICX1
037737,000533: 32,2302 25552 TIMERAD
037738,000534: 32,2303 27710 STOVL V(T2)/ # PL00D
037739,000535: 32,2304 77626 STADR
037740,000536: 32,2305 60121 STODL R(T2)/
037741,000537: 32,2306 00037 T
037742,000538: 32,2307 37724 STCALL T12
037743,000539: 32,2310 03733 RTENCKEX
037744,000540:
037745,000541: # Page 859
037746,000542: # DISPLAY CALCULATION SUBROUTINE
037747,000543:
037748,000544: # DESCRIPTION
037749,000545: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
037750,000546: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
037751,000547:
037752,000548: # CALLING SEQUENCE
037753,000549: # L CALL
037754,000550: # L+1 RTEDISP
037755,000551:
037756,000552: # SUBROUTINES CALLED
037757,000553: # TMRAD100
037758,000554: # AUGEKUGL
037759,000555: # LAT-LONG
037760,000556:
037761,000557: # ERASABLE INITIALIZATION REQUIRED
037762,000558: # PUSHLIST
037763,000559: # NONE
037764,000560: # MPAC
037765,000561: # NONE
037766,000562: # OTHER
037767,000563: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037768,000564: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037769,000565: # T2 FINAL TIME DP B28 CS
037770,000566: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037771,000567: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7
037772,000568: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037773,000569: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037774,000570:
037775,000571: # OUTPUT
037776,000572: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
037777,000573: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
037778,000574: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
037779,000575: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
037780,000576: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
037781,000577: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
037782,000578:
037783,000579: 32,2311 77220 RTEDISP STQ VLOAD # DISPLAY
037784,000580: 32,2312 03762 SPRTEX
037785,000581: 32,2313 03710 V(T2)/
037786,000582: 32,2314 65256 UNIT PDDL
037787,000583: 32,2315 00045 36D
037788,000584: 32,2316 17767 STODL VPRED # V(T2)
037789,000585: 32,2317 03736 T2
037790,000586: 32,2320 77625 DSU
037791,000587: 32,2321 03413 SPRTETIG
037792,000588: 32,2322 26641 STOVL T3TOT4 # T21
037793,000589: 32,2323 03656 R(T2)/
037794,000590: 32,2324 50256 UNIT DOT
037795,000591: 32,2325 77752 SL1
037796,000592: # Page 860
037797,000593: 32,2326 44326 ARCCOS BDSU
037798,000594: 32,2327 31655 1RTEB2
037799,000595: 32,2330 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
037800,000596: 32,2331 03700 V2(T1)/
037801,000597: 32,2332 41451 VSU PUSH
037802,000598: 32,2333 03672 V(T1)/
037803,000599: 32,2334 57441 DOT DCOMP
037804,000600: 32,2335 03740 UR1/
037805,000601: 32,2336 41515 PDVL PUSH
037806,000602: 32,2337 63345 DLOAD PDVL
037807,000603: 32,2340 31677 ZERORTE
037808,000604: 32,2341 55441 DOT VDEF
037809,000605: 32,2342 03746 UH/
037810,000606: 32,2343 77772 VSL1
037811,000607: 32,2344 27405 STOVL DELVLVC # DV/ (LVC)
037812,000608: 32,2345 03656 R(T2)/
037813,000609: 32,2346 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
037814,000610: 32,2347 45246 ABVAL DSU
037815,000611: 32,2350 31723 30480RTE
037816,000612: 32,2351 26760 STOVL RDESIRED
037817,000613: 32,2352 03710 V(T2)/
037818,000614: 32,2353 36746 STCALL VVEC
037819,000615: 32,2354 64272 TMRAD100 # R3,V3,T23 FROM TIMERAD
037820,000616: 32,2355 53575 VLOAD UNIT
037821,000617: 32,2356 03656 R(T2)/
037822,000618: 32,2357 53515 PDVL UNIT # UR3 PL06D
037823,000619: 32,2360 03710 V(T2)/
037824,000620: 32,2361 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
037825,000621: 32,2362 65336 ARCSIN PDDL # V(T3) PL02D
037826,000622: 32,2363 00045 36D
037827,000623: 32,2364 51525 PDDL ABS
037828,000624: 32,2365 45006 PUSH CALL # /GAMMAE/ PL04D
037829,000625: 32,2366 64075 AUGEKUGL # PHIE PL06D
037830,000626: 32,2367 43215 DAD DAD
037831,000627: 32,2370 03724 T12 # T23
037832,000628: 32,2371 03736 T2
037833,000629: 32,2372 14003 STODL 02D # T(LS)=T2+T23+TE
037834,000630: 32,2373 00005 04D
037835,000631: 32,2374 77756 SIN
037836,000632: 32,2375 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
037837,000633: 32,2376 77746 COS
037838,000634: 32,2377 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
037839,000635: 32,2400 53575 VLOAD UNIT
037840,000636: 32,2401 03656 R(T2)/
037841,000637: 32,2402 41406 PUSH PUSH
037842,000638: 32,2403 53515 PDVL UNIT # PL22D
037843,000639: 32,2404 03710 V(T2)/
037844,000640: 32,2405 47315 PDVL VXV
037845,000641: 32,2406 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
037846,000642: 32,2407 63361 VXSC PDVL
037847,000643: # Page 861
037848,000644: 32,2410 03403 LNG(SPL)
037849,000645: 32,2411 53361 VXSC VAD # PL04D
037850,000646: 32,2412 03401 LAT(SPL)
037851,000647: 32,2413 43014 CLEAR CLEAR # T(LS) IN MPAC
037852,000648: 32,2414 00662 ERADFLAG
037853,000649: 32,2415 01663 LUNAFLAG
037854,000650: 32,2416 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
037855,000651: 32,2417 77624 CALL
037856,000652: 32,2420 26322 LAT-LONG
037857,000653: 32,2421 77745 DLOAD
037858,000654: 32,2422 01104 LAT
037859,000655: 32,2423 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
037860,000656: 32,2424 01106 LONG
037861,000657: 32,2425 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
037862,000658: 32,2426 03762 SPRTEX
037863,000659: 32,2427 COUNT* $$/RTE
037864,000660:
037865,000661: # Page 862
037866,000662: # INITIAL VECTOR SUBROUTINE
037867,000663:
037868,000664: # DESCRIPTION
037869,000665: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
037870,000666:
037871,000667: # CALLING SEQUENCE
037872,000668: # L CALL
037873,000669: # L+1 INVC100
037874,000670:
037875,000671: # NORMAL EXIT MODE
037876,000672: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037877,000673:
037878,000674: # ALARM EXIT MODE
037879,000675: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOON'S SPHERE OF INFLUENCE
037880,000676:
037881,000677: # SUBROUTINES CALLED
037882,000678: # CSMPREC
037883,000679:
037884,000680: # ERASABLE INITIALIZATION REQUIRED
037885,000681: # PUSHLIST
037886,000682: # NONE
037887,000683: # MPAC
037888,000684: # NONE
037889,000685: # OTHER
037890,000686: # SPRTETIG TIME OF IGNITION DP B28 CS
037891,000687: # CSM STATE VECTOR
037892,000688:
037893,000689: # OUTPUT
037894,000690: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
037895,000691: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
037896,000692: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
037897,000693: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037898,000694: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037899,000695: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
037900,000696:
037901,000697: 32,2427 71220 INVC100 STQ DLOAD
037902,000698: 32,2430 03762 SPRTEX
037903,000699: 32,2431 03413 SPRTETIG
037904,000700: 32,2432 34041 STCALL TDEC1
037905,000701: 32,2433 27022 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
037906,000702: 32,2434 67175 VLOAD SXA,2
037907,000703: 32,2435 00001 RATT
037908,000704: 32,2436 03755 P(T1)
037909,000705: 32,2437 27640 STOVL R(T1)/
037910,000706: 32,2440 00007 VATT
037911,000707: 32,2441 17672 STODL V(T1)/
037912,000708: 32,2442 00015 TAT
037913,000709: 32,2443 03716 STORE T1
037914,000710: 32,2444 53135 SLOAD BZE
037915,000711: 32,2445 03756 P(T1)
037916,000712: # Page 863
037917,000713: 32,2446 64452 INVC109
037918,000714: 32,2447 52135 INVC107 SLOAD GOTO
037919,000715: 32,2450 31736 OCT612
037920,000716: 32,2451 74772 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037921,000717: 32,2452 53575 INVC109 VLOAD UNIT
037922,000718: 32,2453 03640 R(T1)/
037923,000719: 32,2454 17740 STODL UR1/ # UR1/ B1
037924,000720: 32,2455 00045 36D
037925,000721: 32,2456 27646 STOVL R(T1) # R(T1) B29
037926,000722: 32,2457 03672 V(T1)/
037927,000723: 32,2460 77656 UNIT
037928,000724: 32,2461 03746 STORE UV1/
037929,000725: 32,2462 72441 DOT SL1
037930,000726: 32,2463 03740 UR1/
037931,000727: 32,2464 03757 STORE CFPA # CFPA B1
037932,000728: 32,2465 45246 ABS DSU
037933,000729: 32,2466 31752 EPC1RTE
037934,000730: 32,2467 71240 BMN DLOAD
037935,000731: 32,2470 64477 INVC115 # NOT NEAR RECTILINEAR
037936,000732: 32,2471 31655 1RTEB2
037937,000733: 32,2472 41525 PDDL PUSH
037938,000734: 32,2473 31677 ZERORTE
037939,000735: 32,2474 41466 VDEF PUSH # N/ = (0,0,1)
037940,000736: 32,2475 77650 GOTO
037941,000737: 32,2476 64503 INVC120
037942,000738: 32,2477 47375 INVC115 VLOAD VXV
037943,000739: 32,2500 03740 UR1/
037944,000740: 32,2501 03746 UV1/
037945,000741: 32,2502 77606 PUSH # N/ = UR X UV B2
037946,000742: 32,2503 41545 INVC120 DLOAD PUSH
037947,000743: 32,2504 77244 BPL VLOAD
037948,000744: 32,2505 64507 INVC125
037949,000745: 32,2506 41476 VCOMP PUSH # CORRECT N/ FOR RETROGRADE TRAJECTORY
037950,000746: 32,2507 77775 INVC125 VLOAD
037951,000747: 32,2510 53435 VXV UNIT
037952,000748: 32,2511 03740 UR1/
037953,000749: 32,2512 03746 STORE UH/ # UH/ B1
037954,000750: 32,2513 77650 GOTO
037955,000751: 32,2514 03762 SPRTEX
037956,000752:
037957,000753: # Page 864
037958,000754: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
037959,000755:
037960,000756: # DESCRIPTION
037961,000757: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENEATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
037962,000758: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
037963,000759: # AS POSSIBLE.
037964,000760:
037965,000761: # CALLING SEQUENCE
037966,000762: # L CALL
037967,000763: # L+1 PREC100
037968,000764:
037969,000765: # NORMAL EXIT MODE
037970,000766: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037971,000767:
037972,000768: # ALARM EXIT MODE
037973,000769: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
037974,000770: # OCTAL 605 FOR EXCESS ITERATIONS
037975,000771: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
037976,000772:
037977,000773: # SUBROUTINES CALLED
037978,000774: # INTSTALL
037979,000775: # RTENCK2
037980,000776: # RTENCK3
037981,000777: # TIMERAD
037982,000778: # PARAM
037983,000779: # V2T100
037984,000780:
037985,000781: # ERASABLE INITIALIZATION REQUIRED
037986,000782: # PUSHLIST
037987,000783: # NONE
037988,000784: # MPAC
037989,000785: # NONE
037990,000786: # OTHER
037991,000787: # R(T1)/ INITIAL POSITION VECTOR VECTOR B28/B27 METERS
037992,000788: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037993,000789: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037994,000790: # T1 INITIAL VECTOR TIME DP B28 CS
037995,000791: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
037996,000792: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
037997,000793: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
037998,000794: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
037999,000795: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
038000,000796: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038001,000797: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038002,000798: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038003,000799: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038004,000800: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038005,000801: # BETA1 1+X(T2)**2 DP B1
038006,000802: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE
038007,000803: # Page 865
038008,000804:
038009,000805: # OUTPUT
038010,000806: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038011,000807: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038012,000808: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038013,000809: # T2 FINAL TIME DP B28 CENTISECONDS
038014,000810:
038015,000811: # DEBRIS
038016,000812: # RD FINAL R DESIRED DP B29/B27 METERS
038017,000813: # R/APRE R/A DP B6
038018,000814: # P/RPRE P/R DP B2
038019,000815: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
038020,000816: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
038021,000817: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
038022,000818: # RCON FONAL RADIUS DP B29/B27 METERS
038023,000819: # DRCON DELTA RCON DP B29/B27 METERS
038024,000820:
038025,000821: 32,2515 71220 PREC100 STQ DLOAD
038026,000822: 32,2516 03762 SPRTEX
038027,000823: 32,2517 31705 10RTE
038028,000824: 32,2520 17730 STODL NN1A
038029,000825: 32,2521 03636 RCON
038030,000826: 32,2522 03664 STORE RD
038031,000827: 32,2523 77745 PREC120 DLOAD
038032,000828: 32,2524 31715 2RTEB1
038033,000829: 32,2525 17650 STODL DT21PR # DT21PR = POSMAX
038034,000830: 32,2526 31703 M15RTE
038035,000831: 32,2527 37732 STCALL NN2
038036,000832: 32,2530 65103 RTENCK3
038037,000833: 32,2531 77624 PREC125 CALL
038038,000834: 32,2532 11527 PARAM
038039,000835: 32,2533 77745 DLOAD
038040,000836: 32,2534 02742 P
038041,000837: 32,2535 14033 STODL P/RPRE
038042,000838: 32,2536 02744 R1A
038043,000839: 32,2537 14035 STODL R/APRE
038044,000840: 32,2540 00041 R1
038045,000841: 32,2541 14031 STODL RPRE
038046,000842: 32,2542 03775 COGA
038047,000843: 32,2543 77661 SL
038048,000844: 32,2544 20206 5
038049,000845: 32,2545 03724 STORE X(T2)PRE
038050,000846: 32,2546 43276 DCOMP DAD
038051,000847: 32,2547 03726 X(T2)
038052,000848: 32,2550 45246 ABS DSU
038053,000849: 32,2551 31760 EPC4RTE
038054,000850: 32,2552 50000 BOV BMN
038055,000851: 32,2553 64555 PREC130
038056,000852: 32,2554 64736 PREC175
038057,000853:
038058,000854: # DESIRED REENTRY ANGLE NOT ACHIEVED
038059,000855: # Page 866
038060,000856: 32,2555 50145 PREC130 DLOAD BMN
038061,000857: 32,2556 03732 NN2
038062,000858: 32,2557 64563 PREC140
038063,000859: 32,2560 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
038064,000860: 32,2561 31735 OCT605 # EXIT WITH ALARM
038065,000861: 32,2562 65053 PRECX
038066,000862:
038067,000863: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
038068,000864:
038069,000865: 32,2563 53145 PREC140 DLOAD BZE
038070,000866: 32,2564 03730 NN1A
038071,000867: 32,2565 64616 PREC162
038072,000868: 32,2566 42545 PREC150 DLOAD SL4 # ELLIPTIC CASE
038073,000869: 32,2567 00035 R/APRE
038074,000870: 32,2570 52525 PDDL SL3 # PL02D
038075,000871: 32,2571 00033 P/RPRE
038076,000872: 32,2572 41205 DMP DMP # (P/A)BETA1 B4 PL00D
038077,000873: 32,2573 03754 BETA1
038078,000874: 32,2574 57512 SL2 DCOMP
038079,000875: 32,2575 50015 DAD BMN # 1-(P/A)BETA1=BETA2 B2
038080,000876: 32,2576 31655 1RTEB2
038081,000877: 32,2577 64602 PREC155
038082,000878: 32,2600 52166 SQRT GOTO # BETA2**.5=BETA3 B1
038083,000879: 32,2601 64604 PREC160
038084,000880: 32,2602 77745 PREC155 DLOAD
038085,000881: 32,2603 31677 ZERORTE # BETA3=0
038086,000882: 32,2604 43205 PREC160 DMP DAD
038087,000883: 32,2605 03761 PHI2
038088,000884: 32,2606 31657 1RTEB3
038089,000885: 32,2607 60325 PDDL NORM # 1+(PHI2)(beta3) B3
038090,000886: 32,2610 00035 R/APRE
038091,000887: 32,2611 00047 X1
038092,000888: 32,2612 77665 BDDV # PL00D
038093,000889: 32,2613 52057 SL* GOTO # (1+PHI2*BETA3)/(R/A)=BETA4 B1
038094,000890: 32,2614 20175 0 -4,1
038095,000891: 32,2615 64624 PREC165
038096,000892: 32,2616 60345 PREC162 DLOAD NORM
038097,000893: 32,2617 00031 RPRE
038098,000894: 32,2620 00047 X1
038099,000895: 32,2621 53665 BDDV SL* # BETA4=RD/RPRE B1
038100,000896: 32,2622 03664 RD
038101,000897: 32,2623 20200 0 -1,1
038102,000898: 32,2624 45206 PREC165 PUSH DSU
038103,000899: 32,2625 31653 1RTEB1
038104,000900: 32,2626 77676 DCOMP
038105,000901: 32,2627 03765 STORE BETA12
038106,000902: 32,2630 71240 BMN DLOAD
038107,000903: 32,2631 64642 PREC168
038108,000904: 32,2632 03724 X(T2)PRE
038109,000905: 32,2633 71240 BMN DLOAD
038110,000906: # Page 867
038111,000907: 32,2634 64640 PREC167
038112,000908: 32,2635 03765 BETA12
038113,000909: 32,2636 77676 DCOMP
038114,000910: 32,2637 03765 STORE BETA12
038115,000911: 32,2640 77745 PREC167 DLOAD
038116,000912: 32,2641 03765 BETA12
038117,000913: 32,2642 45246 PREC168 ABS DSU
038118,000914: 32,2643 31764 EPC6RTE
038119,000915: 32,2644 71240 BMN DLOAD
038120,000916: 32,2645 64736 PREC175
038121,000917: 32,2646 72405 DMP SL1
038122,000918: 32,2647 00031 RPRE
038123,000919: 32,2650 77606 PUSH # RF = NEW RADIUS
038124,000920: 32,2651 43345 PREC170 DLOAD DAD
038125,000921: 32,2652 03732 NN2
038126,000922: 32,2653 31675 1RTEB28
038127,000923: 32,2654 03732 STORE NN2
038128,000924: 32,2655 43175 VLOAD SET
038129,000925: 32,2656 03656 R(T2)/
038130,000926: 32,2657 03466 RVSW
038131,000927: 32,2660 26657 STOVL RVEC
038132,000928: 32,2661 03710 V(T2)/
038133,000929: 32,2662 77765 SIGN
038134,000930: 32,2663 03765 BETA12
038135,000931: 32,2664 16746 STODL VVEC
038136,000932: 32,2665 31653 1RTEB1
038137,000933: 32,2666 57565 SIGN DCOMP
038138,000934: 32,2667 03765 BETA12
038139,000935: 32,2670 71354 LXA,2 DLOAD
038140,000936: 32,2671 00154 MPAC
038141,000937: 32,2672 67140 LXC,1 SXA,2
038142,000938: 32,2673 03734 CONICX1
038143,000939: 32,2674 02756 SGNRDOT
038144,000940: 32,2675 36760 STCALL RDESIRED # COMPUTED DT12 (CORRECTION TO TIME OF
038145,000941: 32,2676 25552 TIMERAD # NEW RADIUS)
038146,000942: 32,2677 75345 DLOAD SIGN
038147,000943: 32,2700 00037 T
038148,000944: 32,2701 03765 BETA12
038149,000945: 32,2702 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
038150,000946: 32,2703 03650 DT21PR
038151,000947: 32,2704 00047 X1
038152,000948: 32,2705 53665 BDDV SL*
038153,000949: 32,2706 00001 00D
038154,000950: 32,2707 20176 0 -3,1
038155,000951: 32,2710 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D
038156,000952: 32,2711 64716 PREC172
038157,000953: 32,2712 65345 DLOAD PDDL # BETA14=1 B0 PL04D
038158,000954: 32,2713 31715 2RTEB1
038159,000955: 32,2714 77650 GOTO
038160,000956: 32,2715 64720 PREC173
038161,000957: # Page 868
038162,000958: 32,2716 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
038163,000959: 32,2717 31707 M.6RTE
038164,000960: 32,2720 45271 PREC173 DDV DSU
038165,000961: 32,2721 00003 02D
038166,000962: 32,2722 31657 1RTEB3
038167,000963: 32,2723 71240 BMN DLOAD
038168,000964: 32,2724 64730 PREC174
038169,000965: 32,2725 77605 DMP
038170,000966: 32,2726 03650 DT21PR
038171,000967: 32,2727 00001 STORE 00D # DT21=(BETA14)DT21PR B28
038172,000968: 32,2730 41545 PREC174 DLOAD PUSH
038173,000969: 32,2731 00001 00D
038174,000970: 32,2732 37650 STCALL DT21PR
038175,000971: 32,2733 65065 RTENCK2
038176,000972: 32,2734 77650 GOTO
038177,000973: 32,2735 64531 PREC125
038178,000974: 32,2736 45345 PREC175 DLOAD DSU
038179,000975: 32,2737 00031 RPRE
038180,000976: 32,2740 03664 RD
038181,000977: 32,2741 51406 PUSH ABS # RPRE-RD = RERR
038182,000978: 32,2742 50025 DSU BMN
038183,000979: 32,2743 31766 EPC7RTE
038184,000980: 32,2744 65037 PREC220
038185,000981:
038186,000982: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
038187,000983:
038188,000984: 32,2745 53145 DLOAD BZE
038189,000985: 32,2746 03730 NN1A
038190,000986: 32,2747 64560 PREC132 # TOO MANY ITERATIONS
038191,000987: 32,2750 53025 DSU BZE
038192,000988: 32,2751 31705 10RTE
038193,000989: 32,2752 65005 PREC207
038194,000990: 32,2753 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
038195,000991: 32,2754 03670 RPRE'
038196,000992: 32,2755 00031 RPRE # RPRE'-RPRE B29/B27
038197,000993: 32,2756 55301 NORM BDDV
038198,000994: 32,2757 00050 X2
038199,000995: 32,2760 03666 DRCON
038200,000996: 32,2761 41457 SL* PUSH # DRCON/(RPRE'-RPRE)=S B2
038201,000997: 32,2762 57600 0 -2,2
038202,000998: 32,2763 40015 DAD BOV # S GR +4 OR LS -4
038203,000999: 32,2764 31653 1RTEB1
038204,001000: 32,2765 64772 PREC205M
038205,001001: 32,2766 45246 ABS DSU
038206,001002: 32,2767 31653 1RTEB1
038207,001003: 32,2770 77640 BMN
038208,001004: 32,2771 64775 PREC206
038209,001005: 32,2772 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
038210,001006: 32,2773 31715 2RTEB1
038211,001007: 32,2774 77725 PDDL # S=-4 B2
038212,001008: # Page 869
038213,001009: 32,2775 41345 PREC206 DLOAD DMP
038214,001010: 32,2776 77712 SL2
038215,001011: 32,2777 03666 STORE DRCON # DRCON=S(RERR) B29
038216,001012: 32,3000 77615 DAD
038217,001013: 32,3001 03636 RCON
038218,001014: 32,3002 03636 STORE RCON # RCON+DRCON=RCON
038219,001015: 32,3003 77650 GOTO
038220,001016: 32,3004 65024 PREC210
038221,001017: 32,3005 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
038222,001018: 32,3006 03664 RD
038223,001019: 32,3007 70501 NORM SR1
038224,001020: 32,3010 00047 X1
038225,001021: 32,3011 60325 PDDL NORM
038226,001022: 32,3012 00031 RPRE
038227,001023: 32,3013 00050 X2
038228,001024: 32,3014 55260 XSU,1 BDDV
038229,001025: 32,3015 00047 X2
038230,001026: 32,3016 77657 SR*
038231,001027: 32,3017 20600 0 -1,1
038232,001028: 32,3020 03636 STORE RCON # RD**2/RPRE=RCON
038233,001029: 32,3021 77625 DSU
038234,001030: 32,3022 03664 RD
038235,001031: 32,3023 03666 STORE DRCON # RCON-RD=DRCON
038236,001032: 32,3024 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
038237,001033: 32,3025 00031 RPRE
038238,001034: 32,3026 17670 STODL RPRE'
038239,001035: 32,3027 03730 NN1A
038240,001036: 32,3030 77625 DSU
038241,001037: 32,3031 31675 1RTEB28
038242,001038: 32,3032 37730 STCALL NN1A
038243,001039: 32,3033 65136 V2T100
038244,001040: 32,3034 52030 BHIZ GOTO
038245,001041: 32,3035 64523 PREC120
038246,001042: 32,3036 65053 PRECX
038247,001043:
038248,001044: # DESIRED RADIUS ACHIEVED
038249,001045:
038250,001046: 32,3037 45345 PREC220 DLOAD DSU
038251,001047: 32,3040 03726 X(T2)
038252,001048: 32,3041 03724 X(T2)PRE
038253,001049: 32,3042 45246 ABS DSU
038254,001050: 32,3043 31770 EPC8RTE
038255,001051: 32,3044 67240 BMN SLOAD
038256,001052: 32,3045 65051 PREC225
038257,001053: 32,3046 31737 OCT613
038258,001054: 32,3047 77650 GOTO
038259,001055: 32,3050 65053 PRECX # IF REENTRY ANGLE OUT OF LIMITS
038260,001056:
038261,001057: # DESIRED FINAL ANGLE HAS BEEN REACHED.
038262,001058: # Page 870
038263,001059:
038264,001060: 32,3051 77745 PREC225 DLOAD
038265,001061: 32,3052 31677 ZERORTE
038266,001062: 32,3053 77650 PRECX GOTO
038267,001063: 32,3054 03762 SPRTEX
038268,001064:
038269,001065: # Page 871
038270,001066: # INTEGRATION CALLING SUBROUTINE
038271,001067:
038272,001068: # DESCRIPTION
038273,001069: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
038274,001070: # RTENCK2, AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
038275,001071: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE.
038276,001072:
038277,001073: # RTENCK1 (CONIC INTEGRATION)
038278,001074:
038279,001075: # CALLING SEQUENCE
038280,001076: # L CALL
038281,001077: # L+1 RTENCK1
038282,001078:
038283,001079: # ERASABLE INITIALIZATION REQUIRED
038284,001080: # SAME AS FOR THE RTENCK3 ENTRANCE
038285,001081:
038286,001082: # RTENCK2 (PRECISION INTEGRATION)
038287,001083:
038288,001084: # CALLING SEQUENCE
038289,001085: # L CALL
038290,001086: # L+1 RTENCK2
038291,001087:
038292,001088: # ERASABLE INITIALIZATION REQUIRED
038293,001089: # PUSHLIST
038294,001090: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
038295,001091: # OTHER
038296,001092: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038297,001093: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038298,001094: # T2 FINAL TIME DP B28 CS
038299,001095:
038300,001096: # RTENCK3 (PRECISION INTEGRATION)
038301,001097:
038302,001098: # CALLING SEQUENCE
038303,001099: # L CALL
038304,001100: # L+1 RTENCK3
038305,001101:
038306,001102: # ERASABLE INITIALIZATION REQUIRED
038307,001103: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
038308,001104: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
038309,001105: # T1 INITIAL VECTOR TIME DP B28 CS
038310,001106: # T2 FINAL TIME DP B28 CS
038311,001107:
038312,001108: # EXIT MODE
038313,001109: # AT L+2 OF CALLING SEQUENCE
038314,001110:
038315,001111: # SUBROUTINES CALLED
038316,001112: # INTSTALL
038317,001113: # INTEGRVS
038318,001114:
038319,001115: # OUTPUT
038320,001116: # PUSHLIST
038321,001117: # Page 872
038322,001118: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
038323,001119: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
038324,001120: # MPAC
038325,001121: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
038326,001122: # OTHER
038327,001123: # R(T2)/ AS IN PUSHLIST
038328,001124: # V(T2)/ AS IN MPAC
038329,001125: # T2 FINAL TIME DP B28 CS
038330,001126:
038331,001127: 32,3055 45020 RTENCK1 STQ CALL
038332,001128: 32,3056 03733 RTENCKEX
038333,001129: 32,3057 27371 INTSTALL
038334,001130: 32,3060 43175 VLOAD SET
038335,001131: 32,3061 03640 R(T1)/
038336,001132: 32,3062 01473 INTYPFLG
038337,001133: 32,3063 77650 GOTO
038338,001134: 32,3064 65111 RTENCK3B
038339,001135:
038340,001136: 32,3065 45020 RTENCK2 STQ CALL
038341,001137: 32,3066 03733 RTENCKEX
038342,001138: 32,3067 27371 INTSTALL
038343,001139: 32,3070 77214 CLEAR VLOAD
038344,001140: 32,3071 01673 INTYPFLG
038345,001141: 32,3072 03656 R(T2)/
038346,001142: 32,3073 25535 STOVL RCV
038347,001143: 32,3074 03710 V(T2)/
038348,001144: 32,3075 15543 STODL VCV
038349,001145: 32,3076 03736 T2
038350,001146: 32,3077 01517 STORE TET
038351,001147: 32,3100 77615 DAD
038352,001148: 32,3101 77650 GOTO
038353,001149: 32,3102 65117 RTENCK3D
038354,001150:
038355,001151: 32,3103 45020 RTENCK3 STQ CALL
038356,001152: 32,3104 03733 RTENCKEX
038357,001153: 32,3105 27371 INTSTALL
038358,001154: 32,3106 43175 RTENCK3A VLOAD CLEAR
038359,001155: 32,3107 03640 R(T1)/
038360,001156: 32,3110 01673 INTYPFLG
038361,001157: 32,3111 25535 RTENCK3B STOVL RCV
038362,001158: 32,3112 03700 V2(T1)/
038363,001159: 32,3113 15543 STODL VCV
038364,001160: 32,3114 03716 T1
038365,001161: 32,3115 15517 STODL TET
038366,001162: 32,3116 03736 T2
038367,001163: 32,3117 00041 RTENCK3D STORE TDEC1
038368,001164: 32,3120 45014 CLEAR CALL
038369,001165: # Page 873
038370,001166: 32,3121 00263 MOONFLAG
038371,001167: 32,3122 27066 INTEGRVS
038372,001168: 32,3123 77775 VLOAD
038373,001169: 32,3124 00001 RATT
038374,001170: 32,3125 03656 STORE R(T2)/
038375,001171: 32,3126 70125 PDDL LXC,1
038376,001172: 32,3127 00015 TAT
038377,001173: 32,3130 03734 CONICX1
038378,001174: 32,3131 27736 STOVL T2
038379,001175: 32,3132 00007 VATT
038380,001176: 32,3133 03710 STORE V(T2)/
038381,001177: 32,3134 77650 GOTO
038382,001178: 32,3135 03733 RTENCKEX
038383,001179:
038384,001180: # Page 874
038385,001181: # V2(T1) COMPUTATION SUBROUTINE
038386,001182:
038387,001183: # DESCRIPTION
038388,001184: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
038389,001185: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
038390,001186: # (2) IF A VELOCITY CHANGE ISN'T SPECIFIED (RTEDVD = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
038391,001187: # AND CONSEQUENTLY FUEL.
038392,001188:
038393,001189: # CALLING SEQUENCE
038394,001190: # L CALL
038395,001191: # L+1 V2T100
038396,001192:
038397,001193: # NORMAL EXIT MODE
038398,001194: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038399,001195:
038400,001196: # ALARM EXIT MODE
038401,001197: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS.
038402,001198:
038403,001199: # SUBROUTINES CALLED
038404,001200: # GAMDV10
038405,001201: # XT1LIM
038406,001202: # DVCALC
038407,001203:
038408,001204: # ERASABLE INITIALIZATION REQUIRED
038409,001205: # PUSHLIST
038410,001206: # NONE
038411,001207: # MPAC
038412,001208: # NONE
038413,001209: # OTHER
038414,001210: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
038415,001211: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
038416,001212: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038417,001213: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038418,001214: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038419,001215: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038420,001216: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
038421,001217: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
038422,001218: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
038423,001219: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038424,001220: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038425,001221: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE
038426,001222: # N1 CONIC OR PRECISION ITERATION OPERATOR DP B28 NEGATIVE CONIC, PLUS PREC
038427,001223:
038428,001224: # OUTPUT
038429,001225: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038430,001226: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038431,001227: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
038432,001228: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038433,001229: # BETA1 1+X(T2)**2 DP B1
038434,001230: # Page 875
038435,001231:
038436,001232: # DEBRIS
038437,001233: # PUSHLIST
038438,001234: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
038439,001235: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038440,001236: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038441,001237: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038442,001238: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
038443,001239: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
038444,001240: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
038445,001241: # 16D DX(T1=ITERATOR INCREMENT DP B5
038446,001242: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
038447,001243: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038448,001244: # 33D V2T100 SUBROUTINE RETURN ADDRESS
038449,001245:
038450,001246: 32,3136 77620 V2T100 STQ
038451,001247: 32,3137 00041 33D
038452,001248: 32,3140 43001 SETPD CLEAR
038453,001249: 32,3141 00001 0
038454,001250: 32,3142 00272 F2RTE
038455,001251: 32,3143 60345 DLOAD NORM
038456,001252: 32,3144 03636 RCON
038457,001253: 32,3145 00047 X1
038458,001254: 32,3146 60325 PDDL NORM
038459,001255: 32,3147 03646 R(T1)
038460,001256: 32,3150 00051 S1
038461,001257: 32,3151 00013 STORE 10D
038462,001258: 32,3152 56342 SR1 DDV # R1/RCON = LAMBDA B1
038463,001259: 32,3153 65260 XSU,1 PDDL
038464,001260: 32,3154 00050 S1
038465,001261: 32,3155 03726 X(T2)
038466,001262: 32,3156 77716 DSQ
038467,001263: 32,3157 43342 SR1 DAD
038468,001264: 32,3160 31653 1RTEB1
038469,001265: 32,3161 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
038470,001266: 32,3162 77605 DMP
038471,001267: 32,3163 00001 00D
038472,001268: 32,3164 00035 STORE 28D # BETAI*LAMBDA = BETA5
038473,001269: 32,3165 53605 DMP SL*
038474,001270: 32,3166 00001 00D
038475,001271: 32,3167 20172 0 -7,1
038476,001272: 32,3170 45257 SL* DSU
038477,001273: 32,3171 20172 0 -7,1
038478,001274: 32,3172 31671 1RTEB17
038479,001275: 32,3173 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17
038480,001276: 32,3174 45562 TPMODE
038481,001277: 32,3175 31653 1RTEB1
038482,001278: 32,3176 57457 SR* DCOMP
038483,001279: 32,3177 20601 0,1
038484,001280: 32,3200 41215 DAD DMP
038485,001281: 32,3201 00001 00D
038486,001282: # Page 876
038487,001283: 32,3202 03646 R(T1)
038488,001284: 32,3203 47057 SL* RTB
038489,001285: 32,3204 20172 0 -7D,1
038490,001286: 32,3205 45562 TPMODE
038491,001287: 32,3206 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
038492,001288: 32,3207 33770 RTMURTE
038493,001289: 32,3210 70501 NORM SR1
038494,001290: 32,3211 00050 X2
038495,001291: 32,3212 56264 XSU,2 DDV
038496,001292: 32,3213 00050 S1
038497,001293: 32,3214 00013 10D
038498,001294: 32,3215 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
038499,001295: 32,3216 57170 6,2
038500,001296: 32,3217 03652 MAMAX1
038501,001297: 32,3220 41406 PUSH PUSH # MAMAX1=MA
038502,001298: 32,3221 77624 CALL
038503,001299: 32,3222 56633 XT1LIM
038504,001300: 32,3223 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
038505,001301: 32,3224 40476 DCOMP SR4
038506,001302: 32,3225 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
038507,001303: 32,3226 03654 MAMAX2
038508,001304: 32,3227 45006 PUSH CALL
038509,001305: 32,3230 56633 XT1LIM
038510,001306: 32,3231 50125 PDDL BMN # X(T1)MAX B5 PL16D
038511,001307: 32,3232 03730 NN1A
038512,001308: 32,3233 65236 V2T102
038513,001309: 32,3234 77650 GOTO
038514,001310: 32,3235 65250 V2T110
038515,001311:
038516,001312: # PROCEED HERE IF NOT PRECISION COMPUTATION
038517,001313:
038518,001314: 32,3236 77745 V2T102 DLOAD
038519,001315: 32,3237 03632 RTEDVD
038520,001316: 32,3240 52054 BZE GOTO
038521,001317: 32,3241 65243 V2T105
038522,001318: 32,3242 65344 V2T140
038523,001319: 32,3243 50145 V2T105 DLOAD BMN
038524,001320: 32,3244 03757 CFPA
038525,001321: 32,3245 65344 V2T140
038526,001322: 32,3246 77650 GOTO
038527,001323: 32,3247 65352 V2T145
038528,001324:
038529,001325: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
038530,001326: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
038531,001327: # THROUGH X(T2)
038532,001328:
038533,001329: 32,3250 47145 V2T110 DLOAD RTB
038534,001330: 32,3251 31671 1RTEB17
038535,001331: 32,3252 45562 TPMODE
038536,001332: 32,3253 65276 DCOMP PDDL # -1 B17 PL19D
038537,001333: # Page 877
038538,001334: 32,3254 31715 2RTEB1
038539,001335: 32,3255 45257 SR* DSU
038540,001336: 32,3256 20601 0,1
038541,001337: 32,3257 00001 00D
038542,001338: 32,3260 53605 DMP SL*
038543,001339: 32,3261 00035 28D
038544,001340: 32,3262 20172 0 -7,1
038545,001341: 32,3263 76257 SL* TAD
038546,001342: 32,3264 20172 0 -7,1
038547,001343: 32,3265 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
038548,001344: 32,3266 45562 TPMODE
038549,001345: 32,3267 03722 X(T1)
038550,001346: 32,3270 00001 STORE 00D # X(T1),, B5
038551,001347: 32,3271 77751 TLOAD # PL16D
038552,001348: 32,3272 53040 BMN BZE
038553,001349: 32,3273 65300 V2T115
038554,001350: 32,3274 65300 V2T115
038555,001351: 32,3275 52061 SL GOTO
038556,001352: 32,3276 20210 7
038557,001353: 32,3277 65311 V2T120
038558,001354: 32,3300 50145 V2T115 DLOAD BMN
038559,001355: 32,3301 03761 PHI2
038560,001356: 32,3302 65322 V2T125
038561,001357: 32,3303 77676 DCOMP
038562,001358: 32,3304 17761 STODL PHI2
038563,001359: 32,3305 31705 10RTE
038564,001360: 32,3306 03730 STORE NN1A
038565,001361: 32,3307 77650 GOTO
038566,001362: 32,3310 65322 V2T125
038567,001363: 32,3311 47166 V2T120 SQRT RTB
038568,001364: 32,3312 45713 DPMODE
038569,001365: 32,3313 50125 PDDL BMN # BETA8**.5=X(T1)LIM B5 PL18D
038570,001366: 32,3314 03761 PHI2
038571,001367: 32,3315 65330 V2T130
038572,001368: 32,3316 45545 DLOAD STADR
038573,001369: 32,3317 77760 STORE 14D # X(T1)LIM = X(T1)MAX
038574,001370: 32,3320 77676 DCOMP
038575,001371: 32,3321 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
038576,001372: 32,3322 53145 V2T125 DLOAD BZE
038577,001373: 32,3323 03722 X(T1)
038578,001374: 32,3324 65344 V2T140
038579,001375: 32,3325 52040 BMN GOTO
038580,001376: 32,3326 65344 V2T140
038581,001377: 32,3327 65352 V2T145
038582,001378: 32,3330 53145 V2T130 DLOAD BZE
038583,001379: 32,3331 03722 X(T1)
038584,001380: 32,3332 65341 V2T135
038585,001381: 32,3333 71240 BMN DLOAD # PL16D
038586,001382: 32,3334 65341 V2T135
038587,001383: 32,3335 77626 STADR
038588,001384: # Page 878
038589,001385: 32,3336 77764 STORE 10D # X(T1)LIM = X(T1)MIN
038590,001386: 32,3337 77650 GOTO
038591,001387: 32,3340 65352 V2T145
038592,001388: 32,3341 57545 V2T135 DLOAD DCOMP # PL16D
038593,001389: 32,3342 77626 STADR
038594,001390: 32,3343 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
038595,001391: 32,3344 77745 V2T140 DLOAD
038596,001392: 32,3345 00013 10D
038597,001393: 32,3346 17722 STODL X(T1) # X(T1)MIN = X(T1)
038598,001394: 32,3347 00015 12D
038599,001395: 32,3350 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
038600,001396: 32,3351 65357 V2T150
038601,001397: 32,3352 77745 V2T145 DLOAD
038602,001398: 32,3353 00017 14D
038603,001399: 32,3354 17722 STODL X(T1) # X(T1)MAX = X(T1)
038604,001400: 32,3355 00015 12D
038605,001401: 32,3356 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
038606,001402: 32,3357 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
038607,001403: 32,3360 65500 GAMDV10
038608,001404: 32,3361 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
038609,001405: 32,3362 03632 RTEDVD
038610,001406: 32,3363 65476 V2T1X
038611,001407:
038612,001408: # CONTINUE IF TIME CRITICAL MODE
038613,001409:
038614,001410: 32,3364 50025 DSU BMN
038615,001411: 32,3365 03706 DV
038616,001412: 32,3366 65371 V2T155
038617,001413: 32,3367 77650 GOTO
038618,001414: 32,3370 65424 V2T175
038619,001415: 32,3371 50145 V2T155 DLOAD BMN
038620,001416: 32,3372 03730 NN1A
038621,001417: 32,3373 65376 V2T160
038622,001418: 32,3374 77650 GOTO
038623,001419: 32,3375 65437 V2T185
038624,001420:
038625,001421: # CONIC TRAJECTORY COMPUTATION
038626,001422:
038627,001423: 32,3376 53145 V2T160 DLOAD BZE
038628,001424: 32,3377 03722 X(T1)
038629,001425: 32,3400 65404 V2T165
038630,001426: 32,3401 52040 BMN GOTO
038631,001427: 32,3402 65404 V2T165
038632,001428: 32,3403 65474 V2T300
038633,001429: 32,3404 53145 V2T165 DLOAD BZE
038634,001430: 32,3405 03757 CFPA
038635,001431: 32,3406 65474 V2T300
038636,001432: 32,3407 71240 BMN DLOAD
038637,001433: 32,3410 65474 V2T300
038638,001434: 32,3411 00017 14D
038639,001435: # Page 879
038640,001436: 32,3412 17722 STODL X(T1) # X(T1)MAX=X(T1)
038641,001437: 32,3413 00015 12D
038642,001438: 32,3414 77676 DCOMP
038643,001439: 32,3415 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
038644,001440: 32,3416 65500 GAMDV10
038645,001441: 32,3417 45345 DLOAD DSU
038646,001442: 32,3420 03632 RTEDVD
038647,001443: 32,3421 03706 DV
038648,001444: 32,3422 77640 BMN
038649,001445: 32,3423 65474 V2T300
038650,001446: 32,3424 71214 V2T175 SET DLOAD
038651,001447: 32,3425 00072 F2RTE
038652,001448: 32,3426 03722 X(T1)
038653,001449: 32,3427 14017 STODL 14D # X(T1)=X(T1)MAX
038654,001450: 32,3430 00015 12D
038655,001451: 32,3431 77676 DCOMP
038656,001452: 32,3432 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
038657,001453: 32,3433 65500 GAMDV10
038658,001454: 32,3434 50145 DLOAD BMN
038659,001455: 32,3435 03730 NN1A
038660,001456: 32,3436 65474 V2T300
038661,001457:
038662,001458: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
038663,001459: # PRECISION TRAJECTORY
038664,001460:
038665,001461: 32,3437 45345 V2T185 DLOAD DSU
038666,001462: 32,3440 03722 X(T1)
038667,001463: 32,3441 00001 00D
038668,001464: 32,3442 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
038669,001465: 32,3443 00015 12D
038670,001466: 32,3444 44352 SL1 BDSU
038671,001467: 32,3445 71240 BMN DLOAD
038672,001468: 32,3446 65474 V2T300
038673,001469: 32,3447 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
038674,001470: 32,3450 03722 STORE X(T1) # X(T1),, = X(T1)
038675,001471: 32,3451 50025 DSU BMN
038676,001472: 32,3452 00017 14D
038677,001473: 32,3453 65461 V2T195
038678,001474: 32,3454 77745 DLOAD
038679,001475: 32,3455 00017 14D
038680,001476: 32,3456 03722 STORE X(T1) # X(T1)MAX = X(T1)
038681,001477: 32,3457 77650 GOTO
038682,001478: 32,3460 65472 V2T205
038683,001479: 32,3461 45345 V2T195 DLOAD DSU
038684,001480: 32,3462 03722 X(T1)
038685,001481: 32,3463 00013 10D
038686,001482: 32,3464 52040 BMN GOTO
038687,001483: 32,3465 65467 V2T200
038688,001484: 32,3466 65472 V2T205
038689,001485: 32,3467 77745 V2T200 DLOAD
038690,001486: # Page 880
038691,001487: 32,3470 00013 10D
038692,001488: 32,3471 03722 STORE X(T1) # X(T1)MIN = X(T1)
038693,001489: 32,3472 77624 V2T205 CALL
038694,001490: 32,3473 65701 DVCALC
038695,001491: 32,3474 77745 V2T300 DLOAD
038696,001492: 32,3475 31677 ZERORTE
038697,001493: 32,3476 77650 V2T1X GOTO
038698,001494: 32,3477 00041 33D
038699,001495:
038700,001496: # Page 881
038701,001497: # X(T1)-DV ITERATOR SUBROUTINE
038702,001498:
038703,001499: # DESCRIPTION
038704,001500: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
038705,001501:
038706,001502: # CALLING SEQUENCE
038707,001503: # L CALL
038708,001504: # L+1 GAMDV10
038709,001505:
038710,001506: # NORMAL EXIT MODE
038711,001507: # AT L+2 OF CALLING SEQUENCE
038712,001508:
038713,001509: # ALARM EXIT MODE
038714,001510: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038715,001511:
038716,001512: # SUBROUTINES CALLED
038717,001513: # DVCALC
038718,001514:
038719,001515: # ERASABLE INITIALIZATION REQUIRED
038720,001516: # PUSHLIST
038721,001517: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038722,001518: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038723,001519: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038724,001520: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
038725,001521: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
038726,001522: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
038727,001523: # 16D DX(T1)=ITERATOR INCREMENT DP B5
038728,001524: # MPAC
038729,001525: # NONE
038730,001526: # OTHER
038731,001527: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038732,001528: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038733,001529: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038734,001530: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038735,001531: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
038736,001532: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
038737,001533:
038738,001534: # OUTPUT
038739,001535: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038740,001536: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038741,001537: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
038742,001538: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038743,001539:
038744,001540: # DEBRIS
038745,001541: # PUSHLIST
038746,001542: # 00D X(T1),,
038747,001543: # 02D THETA1
038748,001544: # 05D THETA2
038749,001545: # 08D THETA3
038750,001546: # 10D X(T1)MIN
038751,001547: # 12D DX(T1)MAX
038752,001548: # Page 882
038753,001549: # 14D X(T1)MAX
038754,001550: # 16D DX(T1)
038755,001551: # 22D DV,=PREVIOUS DV DP B7/B5
038756,001552: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
038757,001553: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
038758,001554: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038759,001555: # 33D V2T100 SUBROUTINE RETURN ADDRESS
038760,001556:
038761,001557: 32,3500 77620 GAMDV10 STQ
038762,001558: 32,3501 00037 31D
038763,001559: 32,3502 45001 SETPD CALL
038764,001560: 32,3503 00023 18D # PL18D
038765,001561: 32,3504 65701 DVCALC
038766,001562: 32,3505 45345 DLOAD DSU
038767,001563: 32,3506 00017 14D
038768,001564: 32,3507 00013 10D
038769,001565: 32,3510 77600 BOV
038770,001566: 32,3511 65531 GAMDV20
038771,001567: 32,3512 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
038772,001568: 32,3513 31772 EPC9RTE
038773,001569: 32,3514 71240 BMN DLOAD
038774,001570: 32,3515 65677 GAMDVX # BOUNDS CLOSE TOGETHER
038775,001571: 32,3516 00023 18D
038776,001572: 32,3517 50025 DSU BMN # BETA8-DX(T1)MAX
038777,001573: 32,3520 00015 12D
038778,001574: 32,3521 65525 GAMDV15
038779,001575: 32,3522 52001 SETPD GOTO # PL18D
038780,001576: 32,3523 00023 18D
038781,001577: 32,3524 65531 GAMDV20
038782,001578: 32,3525 77745 GAMDV15 DLOAD # PL18D
038783,001579: 32,3526 70565 SIGN SR1
038784,001580: 32,3527 00021 16D
038785,001581: 32,3530 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
038786,001582: 32,3531 77745 GAMDV20 DLOAD
038787,001583: 32,3532 31701 M144RTE
038788,001584: 32,3533 03732 STORE NN2
038789,001585: 32,3534 43345 GAMDV25 DLOAD DAD
038790,001586: 32,3535 03732 NN2
038791,001587: 32,3536 31675 1RTEB28
038792,001588: 32,3537 67240 BMN SLOAD
038793,001589: 32,3540 65544 GAMDV30
038794,001590: 32,3541 31735 OCT605
038795,001591: 32,3542 77650 GOTO
038796,001592: 32,3543 65476 V2T1X
038797,001593: 32,3544 03732 GAMDV30 STORE NN2 # NN2=NN2+1
038798,001594: 32,3545 65345 DLOAD PDDL # X(T1)=X(T1), R5 PL20D
038799,001595: 32,3546 03722 X(T1)
038800,001596: 32,3547 03706 DV
038801,001597: 32,3550 43325 PDDL DAD # DV=DV, B7/B5 PL22D
038802,001598: 32,3551 03722 X(T1)
038803,001599: 32,3552 00021 16D
038804,001600: # Page 883
038805,001601: 32,3553 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
038806,001602: 32,3554 65701 DVCALC
038807,001603: 32,3555 71214 BON DLOAD
038808,001604: 32,3556 00312 F2RTE
038809,001605: 32,3557 65573 GAMDV35
038810,001606: 32,3560 03706 DV
038811,001607: 32,3561 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
038812,001608: 32,3562 00025 20D
038813,001609: 32,3563 65570 GAMDV33
038814,001610: 32,3564 57545 GAMDV32 DLOAD DCOMP
038815,001611: 32,3565 00021 16D
038816,001612: 32,3566 77742 SR1
038817,001613: 32,3567 00021 STORE 16D
038818,001614: 32,3570 52001 GAMDV33 SETPD GOTO
038819,001615: 32,3571 00023 18D # PL18D
038820,001616: 32,3572 65636 GAMDV50
038821,001617:
038822,001618: # TIME CRITICAL MODE
038823,001619:
038824,001620: 32,3573 45345 GAMDV35 DLOAD DSU
038825,001621: 32,3574 03632 RTEDVD
038826,001622: 32,3575 03706 DV
038827,001623: 32,3576 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
038828,001624: 32,3577 51545 GAMDV40 DLOAD ABS # DV, PL24D
038829,001625: 32,3600 00025 20D
038830,001626: 32,3601 50025 DSU BMN
038831,001627: 32,3602 31774 EPC10RTE
038832,001628: 32,3603 65677 GAMDVX
038833,001629: 32,3604 71204 GAMDV45 BOVB DLOAD
038834,001630: 32,3605 57343 TCDANZIG # ASSURE OVFIND IS 0
038835,001631: 32,3606 60221 BDSU NORM
038836,001632: 32,3607 03706 DV
038837,001633: 32,3610 00050 X2
038838,001634: 32,3611 77725 PDDL # DV-DV, B7/B5-N2 PL22D
038839,001635: 32,3612 70501 NORM SR1 # DVERR B8/B6-N1
038840,001636: 32,3613 00047 X1
038841,001637: 32,3614 65271 DDV PDDL # DVERR/ DV - DV
038842,001638: 32,3615 41221 BDSU DMP # PL18D
038843,001639: 32,3616 03722 X(T1)
038844,001640: 32,3617 77660 XSU,1
038845,001641: 32,3620 00047 X2
038846,001642: 32,3621 00021 STORE 16D # PRESERV SIGN IF OVERFLOW
038847,001643: 32,3622 40057 SR* BOV
038848,001644: 32,3623 20600 0 -1,1
038849,001645: 32,3624 65632 GAMDV47
038850,001646: 32,3625 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038851,001647: 32,3626 45246 ABS DSU
038852,001648: 32,3627 00015 12D
038853,001649: 32,3630 77640 BMN
038854,001650: 32,3631 65636 GAMDV50
038855,001651: # Page 884
038856,001652: 32,3632 75345 GAMDV47 DLOAD SIGN
038857,001653: 32,3633 00015 12D
038858,001654: 32,3634 00021 16D
038859,001655: 32,3635 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
038860,001656:
038861,001657: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038862,001658:
038863,001659: 32,3636 41345 GAMDV50 DLOAD DMP
038864,001660: 32,3637 00021 16D
038865,001661: 32,3640 31711 1.1RTEB1
038866,001662: 32,3641 43352 SL1 DAD
038867,001663: 32,3642 03722 X(T1)
038868,001664: 32,3643 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
038869,001665: 32,3644 50025 DSU BMN
038870,001666: 32,3645 00017 14D
038871,001667: 32,3646 65655 GAMDV55
038872,001668: 32,3647 45345 DLOAD DSU
038873,001669: 32,3650 00017 14D
038874,001670: 32,3651 03722 X(T1)
038875,001671: 32,3652 77742 SR1
038876,001672: 32,3653 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
038877,001673: 32,3654 65670 GAMDV65
038878,001674: 32,3655 45345 GAMDV55 DLOAD DSU
038879,001675: 32,3656 00031 24D
038880,001676: 32,3657 00013 10D
038881,001677: 32,3660 52040 BMN GOTO
038882,001678: 32,3661 65663 GAMDV60
038883,001679: 32,3662 65670 GAMDV65
038884,001680: 32,3663 45345 GAMDV60 DLOAD DSU
038885,001681: 32,3664 00013 10D
038886,001682: 32,3665 03722 X(T1)
038887,001683: 32,3666 77742 SR1
038888,001684: 32,3667 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
038889,001685: 32,3670 51545 GAMDV65 DLOAD ABS
038890,001686: 32,3671 00021 16D
038891,001687: 32,3672 50025 DSU BMN
038892,001688: 32,3673 31772 EPC9RTE
038893,001689: 32,3674 65677 GAMDVX
038894,001690: 32,3675 77650 GOTO
038895,001691: 32,3676 65534 GAMDV25
038896,001692: 32,3677 77650 GAMDVX GOTO
038897,001693: 32,3700 00037 31D
038898,001694:
038899,001695: # Page 885
038900,001696: # DV CALCULATION SUBROUTINE
038901,001697:
038902,001698: # INPUT
038903,001699: # PUSHLIST
038904,001700: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038905,001701: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038906,001702: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038907,001703: # OTHER
038908,001704: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
038909,001705: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
038910,001706: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038911,001707: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038912,001708:
038913,001709: # OUTPUT
038914,001710: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038915,001711: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038916,001712: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038917,001713:
038918,001714: # DEBRIS
038919,001715: # 28D THETA3*PCON**.5 DP B10/B8-N1
038920,001716: # C(PUSHLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
038921,001717: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038922,001718: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
038923,001719:
038924,001720: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038925,001721:
038926,001722: 32,3701 71220 DVCALC STQ DLOAD
038927,001723: 32,3702 00040 32D
038928,001724: 32,3703 03722 X(T1)
038929,001725: 32,3704 54316 DSQ SR
038930,001726: 32,3705 20610 7
038931,001727: 32,3706 76276 DCOMP TAD
038932,001728: 32,3707 00003 02D
038933,001729: 32,3710 41501 NORM PUSH
038934,001730: 32,3711 00047 X1
038935,001731: 32,3712 60351 TLOAD NORM
038936,001732: 32,3713 00006 05D
038937,001733: 32,3714 00050 X2
038938,001734: 32,3715 70434 RTB SR1
038939,001735: 32,3716 45713 DPMODE
038940,001736: 32,3717 56264 XSU,2 DDV
038941,001737: 32,3720 00046 X1
038942,001738: 32,3721 77657 SR*
038943,001739: 32,3722 57170 6,2
038944,001740: 32,3723 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
038945,001741: 32,3724 41366 SQRT DMP
038946,001742: 32,3725 00011 08D
038947,001743: 32,3726 77701 NORM
038948,001744: 32,3727 00047 X1
038949,001745: 32,3730 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
038950,001746: # Page 886
038951,001747: 32,3731 03722 X(T1)
038952,001748: 32,3732 74301 NORM VXSC
038953,001749: 32,3733 00050 X2
038954,001750: 32,3734 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
038955,001751: 32,3735 74274 XAD,2 VXSC
038956,001752: 32,3736 00046 X1
038957,001753: 32,3737 00035 28D
038958,001754: 32,3740 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
038959,001755: 32,3741 57207 0 -9D,2 # +
038960,001756: 32,3742 03746 UH/
038961,001757: 32,3743 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
038962,001758: 32,3744 00035 28D
038963,001759: 32,3745 20575 0 -4,1 # =
038964,001760: 32,3746 45455 VAD STADR
038965,001761: 32,3747 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
038966,001762: 32,3750 51451 VSU ABVAL
038967,001763: 32,3751 03672 V(T1)/
038968,001764: 32,3752 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
038969,001765: 32,3753 77650 GOTO
038970,001766: 32,3754 00040 32D
038971,001767:
038972,001768: # Page 887
038973,001769: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
038974,001770:
038975,001771: # INPUT
038976,001772: # PUSHLIST
038977,001773: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
038978,001774: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
038979,001775: # 28D BETA5=LAMBDA*BETA1 DP B9
038980,001776: # OTHER
038981,001777: # RCON DP B29/B27
038982,001778: # R(T1) DP B29/B27
038983,001779:
038984,001780: # OUTPUT
038985,001781: # MPAC
038986,001782: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
038987,001783:
038988,001784: # DEBRIS
038989,001785: # PUSHLIST
038990,001786: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
038991,001787: # C(PUSHLOC) +2 MA DP B30/B28
038992,001788: # X1 NORMALIZATION FACTOR FOR MA-RCON
038993,001789: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
038994,001790:
038995,001791: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
038996,001792:
038997,001793: 27,2000 SETLOC RTE2
038998,001794: 27,2000 BANK
038999,001795: 27,2633 71220 XT1LIM STQ DLOAD
039000,001796: 27,2634 00024 20D
039001,001797: 27,2635 03636 RCON
039002,001798: 27,2636 44342 SR1 BDSU
039003,001799: 27,2637 65301 NORM PDDL # MA-RCON B30-N1
039004,001800: 27,2640 00050 X2
039005,001801: 27,2641 70525 PDDL SR1
039006,001802: 27,2642 03646 R(T1)
039007,001803: 27,2643 56221 BDSU DDV
039008,001804: 27,2644 41257 SL* DMP
039009,001805: 27,2645 57577 0 -1,2
039010,001806: 27,2646 00035 28D
039011,001807: 27,2647 77657 SL*
039012,001808: 27,2650 20172 0 -7,1
039013,001809: 27,2651 50025 DSU BMN # (BETA5(MA-R(T1))/(MA-RCON))-1 B10
039014,001810: 27,2652 31663 1RTEB10
039015,001811: 27,2653 56656 XT1LIM5
039016,001812: 27,2654 52166 SQRT GOTO
039017,001813: 27,2655 56660 XT1LIMX
039018,001814: 27,2656 77745 XT1LIM5 DLOAD
039019,001815: 27,2657 31677 ZERORTE
039020,001816: 27,2660 77650 XT1LIMX GOTO
039021,001817: 27,2661 00024 20D
039022,001818:
039023,001819: # Page 888
039024,001820: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
039025,001821:
039026,001822: 36,3250 BANK 36
039027,001823: 34,2000 SETLOC RTECON
039028,001824: 34,2000 BANK
039029,001825:
039030,001826: 34,3652 20000 00000 1RTEB1 2DEC 1 B-1
039031,001827: 34,3654 10000 00000 1RTEB2 2DEC 1 B-2
039032,001828: 34,3656 04000 00000 1RTEB3 2DEC 1 B-3
039033,001829: 34,3660 02000 00000 1RTEB4 2DEC 1 B-4
039034,001830: 34,3662 00020 00000 1RTEB10 2DEC 1 B-10
039035,001831: 34,3664 00004 00000 1RTEB12 2DEC 1 B-12
039036,001832: 34,3666 00002 00000 1RTEB13 2DEC 1 B-13
039037,001833: 34,3670 00000 04000 1RTEB17 2DEC 1 B-17
039038,001834: 34,3672 00000 00010 1RTEB25 2DEC 1 B-25
039039,001835: 34,3674 00000 00001 1RTEB28 2DEC 1 B-28
039040,001836: 34,3676 00000 00000 ZERORTE 2DEC 0 B-28
039041,001837: 34,3700 77777 77557 M144RTE 2DEC -144 B-28
039042,001838: 34,3702 77777 77760 M15RTE 2DEC -15 B-28
039043,001839: 34,3704 00000 00012 10RTE 2DEC 10 B-28
039044,001840: 34,3706 54631 63145 M.6RTE 2DEC -.6
039045,001841: 34,3710 21463 06315 1.1RTEB1 2DEC 1.1 B-1
039046,001842: 34,3712 77777 77771 M6RTEB28 2DEC -6 B-28
039047,001843: 34,3714 37777 37777 2RTEB1 2OCT 3777737777
039048,001844: 34,3716 77777 77766 M9RTEB28 2DEC -9 B-28
039049,001845: 34,3720 77777 77767 M8RTEB28 2DEC -8 B-28
039050,001846: 34,3722 00000 35610 30480RTE 2DEC 30480 B-29
039051,001847: 34,3724 36703 03743 VCSPS 2DEC 30.8811 B-5
039052,001848: # Page 889
039053,001849: 34,3726 33041 37714 VCRCS 2DEC 27.0664 B-5
039054,001850: 34,3730 00003 13241 MDOTRCS 2DEC .0016375 B-3
039055,001851: 34,3732 20000 00000 CSUBT 2DEC .5
039056,001852: 34,3734 00605 OCT605 OCT 00605
039057,001853: 34,3735 00612 OCT612 OCT 00612
039058,001854: 34,3736 00613 OCT613 OCT 00613
039059,001855: 34,3737 40214 45266 MCOS7.5 2DEC -.99144486
039060,001856: 34,3741 73645 56536 MSIN7.5 2DEC -.13052619
039061,001857: 34,3743 70467 71205 MCOS22.5 2DEC -.92387953 B-2
039062,001858: 34,3745 16525 12525 THETA165 2DEC .4583333333
039063,001859: 34,3747 22525 12525 THETA210 2DEC .5833333333
039064,001860: 34,3751 17775 06676 EPC1RTE 2DEC .99966 B-1
039065,001861: 34,3753 00000 00062 EPC2RTE 2DEC 100 B-29
039066,001862: 34,3755 00020 14223 EPC3RTE 2DEC .001
039067,001863: 34,3757 00000 05174 EPC4RTE 2DEC .00001
039068,001864: 34,3761 00002 21727 EPC5RTE 2DEC .01 B-6
039069,001865: 34,3763 00000 01654 EPC6RTE 2DEC .000007 B-1
039070,001866: 34,3765 00000 00764 EPC7RTE 2DEC 1000 B-29
039071,001867: 34,3767 00040 30447 EPC8RTE 2DEC .002
039072,001868: 34,3771 00000 00010 EPC9RTE 2DEC 1 B-25
039073,001869: 34,3773 00000 00322 EPC10RTE 2DEC .0001 B-7
039074,001870:
039075,001871: 35,3755 BANK 35
039076,001872: 35,2000 SETLOC RTECON1
039077,001873: 35,2000 BANK
039078,001874:
039079,001875: 35,3755 27657 01000 C4RTE 2DEC 8 E8 B-30
039080,001876: 35,3757 00325 23740 K1RTE 2DEC 7 E6 B-29
039081,001877: 35,3761 00306 06614 K2RTE 2DEC 6495000 B-29
039082,001878: 35,3763 76027 70156 K3RTE 2DEC -.06105
039083,001879: # Page 890
039084,001880: 35,3765 74517 54131 K4RTE 2DEC -.10453
039085,001881: 35,3767 30276 05001 RTMURTE 2DEC 199650.501 B-18
039086,001882: 35,3771 00003 27040 E3RTE 2DEC 121920 B-29
039087,001883:
End of include-file P37_P70.agc. Parent file is MAIN.agc