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