Source Code

037131,000001: # Copyright: Public domain. 037132,000002: # Filename: ENTRY_LEXICON.agc 037133,000003: # Purpose: Part of the source code for Comanche, build 055. It 037134,000004: # is part of the source code for the Command Module's 037135,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 037136,000006: # Assembler: yaYUL 037137,000007: # Reference: pp. 837-843 037138,000008: # Contact: Ron Burkey <info@sandroid.org> 037139,000009: # Website: http://www.ibiblio.org/apollo. 037140,000010: # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same 037141,000011: # name and Comanche 055 page images. 037142,000012: 037143,000013: # The contents of the "Comanche055" files, in general, are transcribed 037144,000014: # from scanned documents. 037145,000015: 037146,000016: # Assemble revision 055 of AGC program Comanche by NASA 037147,000017: # 2021113-051. April 1, 1969. 037148,000018: 037149,000019: # This AGC program shall also be referred to as Colossus 2A 037150,000020: 037151,000021: # Prepared by 037152,000022: # Massachussets Institute of Technology 037153,000023: # 75 Cambridge Parkway 037154,000024: # Cambridge, Massachusetts 037155,000025: 037156,000026: # under NASA contract NAS 9-4065. 037157,000027: 037158,000028: # Refer directly to the online document mentioned above for further 037159,000029: # information. Please report any errors to info@sandroid.org. 037160,000030: 037161,000031: # Page 837 037162,000032: # VARIABLE DESCRIPTION MAXIMUM VALUE * COMPUTER NAME 037163,000033: # -------- ----------- --------------- ------------- 037164,000034: # _ 037165,000035: # URT0 INITIAL TARGET VECTOR 2 (UNIT VECTOR) = RTINIT 037166,000036: # _ 037167,000037: # UZ UNIT VECTOR NORTH 1 = UNITW 037168,000038: # _ 037169,000039: # V VELOCITY VECTOR 2 VSAT = VEL 037170,000040: # _ 037171,000041: # R POSITION VECTOR 2 EXP 29 METERS = RN 037172,000042: # _ 037173,000043: # VI INERTIAL VELOCITY 128 M/CENTISEC = VN 037174,000044: # _ 037175,000045: # RTE VECTOR EAST AT INITIAL TARGET 2 = RTEAST 037176,000046: # _ 037177,000047: # UTR NORMAL TO RTE AND UZ 2 = RTNORM 037178,000048: # _ 037179,000049: # URT TARGET VECTOR 2 = RT 037180,000050: # _ 037181,000051: # UNI UNIT NORMAL TO TRAJECTORY PLANE 2 037182,000052: # _ 037183,000053: # DELV INTEGRATED ACCEL. FROM PIPAS 5.85 16384 CM/S 037184,000054: # _ 037185,000055: # G GRAVITY VECTOR 128 M/CENTISEC = GDT/2 037186,000056: 037187,000057: # A0 INITIAL DRAG FOR UPCONTRL 805 FPSS FPSS=FT/SEC/SEC 037188,000058: 037189,000059: # AHOOKDV TERM IN GAMMAL CALC. = AHOOK DVL 16 037190,000060: 037191,000061: # A1 DRAG VALUE IN FACTOR CALCULATION 805 FPSS 037192,000062: 037193,000063: # ALP CONST FOR UPCONTRL 1 037194,000064: 037195,000065: # ASKEP KEPLER RANGE 21600 NM NM = NAUTICAL MILE 037196,000066: 037197,000067: # ASP1 FINAL PHASE RANGE 21600 NM 037198,000068: 037199,000069: # ASPUP UP-RANGE 21600 NM 037200,000070: 037201,000071: # ASP3 GAMMA CORRECTION 21600 NM 037202,000072: 037203,000073: # ASPDWN RANGE DOWN TO PULL-UP 21600 NM 037204,000074: 037205,000075: # ASP PREDICTED RANGE 21600 NM NOT STORED 037206,000076: 037207,000077: # COSG COSINE(GAMMAL) 2 = COSG/2 037208,000078: 037209,000079: # C/D0 RECIPROCAL DRAG, -4/D0 B-8 64/FPSS 037210,000080: 037211,000081: # D TOTAL ACCELERATION 805 FPSS 037212,000082: 037213,000083: # D0 CONTROLLED CONSTANT D 805 FPSS 037214,000084: 037215,000085: # DHOOK TERM IN GAMMAL COMPUTATION 805 FPSS 037216,000086: 037217,000087: # DIFF THETNM-ASP (RANGE DIFFERENCE) 21600 NM 037218,000088: 037219,000089: # DIFFOLD PREVIOUS VALUE OF DIFF 21600 NM 037220,000090: 037221,000091: # DLEWD CHANGE IN LEWD 1 037222,000092: 037223,000093: # DR REFERENCE DRAG FOR DOWNCONTROL 805 FPSS NOT STORED 037224,000094: 037225,000095: # DREFR REFERENCE DRAG 805 FPSS NOT STORED 037226,000096: 037227,000097: # DVL VS1-VL 2 VSAT 037228,000098: 037229,000099: # E ECCENTRICITY 4 NOT STORED 037230,000100: 037231,000101: # F1 DRANGE/D DRAG (FINAL PHASE) 2700/805 = FX +5 037232,000102: 037233,000103: # F2 DRANGE/D RDOT (FINAL PHASE) 2700/2VS NM/FPS = FX +4 037234,000104: # Page 838 037235,000105: 037236,000106: # F3 DRANGE/D (L/D) 2700 NM = FX 037237,000107: 037238,000108: # FACT1 CONST FOR UPCONTRL 805 FPSS 037239,000109: 037240,000110: # FACT2 CONST FOR UPCONTRL 1/805 FPSS 037241,000111: 037242,000112: # FACTOR USED IN UPCONTRL 1 * MAXIMUM VALUE DENOTES UNSCALED 037243,000113: # VARIABLE VALUE WHEN SCALED 037244,000114: # GAMMAL FLIGHT PATH ANGLE AT VL 1 RADIAN VARIABLE HAS MAXIMUM VALUE OF ONE. 037245,000115: 037246,000116: # GAMMAL1 SIMPLE FORM OF GAMMAL 1 RADIAN 037247,000117: # Page 839 037248,000118: 037249,000119: # HEADSUP INDICATOR FOR INITIAL ROLL 1 037250,000120: 037251,000121: # KA DRAG TO LIFT UP IF DOWN 805 FPSS = KAT 037252,000122: 037253,000123: # KLAT LATERAL SWITCH GAIN 1 (NOM = .0125) 037254,000124: 037255,000125: # K2ROLL INDICATOR FOR ROLL SWITCH 037256,000126: 037257,000127: # LAD MAX L/D (MIN ACTUAL VEHICLE L/D) 1 037258,000128: 037259,000129: # LADPAD NOMINAL VEHICLE L/D, SP PAD LOAD 1 (NOM = 0.3) 037260,000130: 037261,000131: # LATANG LATERAL RANGE 4 RADIANS 037262,000132: 037263,000133: # LEQ EXCESS C.F. OVER GRAV=(VSQ-1)GS 128.8 FPSS 037264,000134: 037265,000135: # LEWD UPCONTROL REFERENCE L/D 1 037266,000136: 037267,000137: # LOD FINAL PHASE L/D 1 (NOM = 0.18) 037268,000138: 037269,000139: # LODPAD FINAL PHASE L/D, SP PAD LOAD 1 037270,000140: 037271,000141: # L/D DESIRED LIFT TO DRAG RATIO 1 037272,000142: # (VERTICAL PLANE) 037273,000143: # 037274,000144: # L/D1 TEMP STORAGE FOR L/D IN LATERAL 1 037275,000145: 037276,000146: # L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895) 037277,000147: 037278,000148: # PREDANGLE PREDICTED RANGE (FINAL PHASE) 2700 NM = PREDANG 037279,000149: 037280,000150: # Q2 FINAL PHASE RANGE -23500 Q3 21600 NM 037281,000151: # Q2 = FCN(LAD) 037282,000152: 037283,000153: # Q7 MINIMUM DRAG FOR UPCONTROL 805FPSS 037284,000154: 037285,000155: # RDOT ALTITUDE RATE 2 VSAT 037286,000156: 037287,000157: # RDOTREF REFERENCE RDOT FOR UPCONTROL 2 VSAT 037288,000158: 037289,000159: # RDTR REFERENCE RDOT FOR DOWNCONT 2 VSAT NOT SAVED 037290,000160: 037291,000161: # ROLLC ROLL COMMAND 1 REVOLUTION 037292,000162: 037293,000163: # RTOGO RANGE TO GO (FINAL PHASE) 2700 NM = FX +2 037294,000164: 037295,000165: # SL SINE OF LATITUDE 1 NOT SAVED 037296,000166: 037297,000167: # T TIME B 28 CENTISEC = TIME2,TIME1 037298,000168: 037299,000169: # THETA DESIRED RANGE (RADIANS) 2 PI RADIANS = THETAH 037300,000170: 037301,000171: # THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT 037302,000172: 037303,000173: # V VELOCITY MAGNITUDE 2 VSAT 037304,000174: # 037305,000175: # V1 INITIAL VELOCITY FOR UPCONTROL 2 VSAT 037306,000176: 037307,000177: # VL EXIT VELOCITY FOR UPCONTROL 2 VSAT 037308,000178: 037309,000179: # VREF REFERENCE VELOCITY FOR UPCONTROL 2 VSAT 037310,000180: 037311,000181: # VS1 VSAT OR V1, WHICHEVER IS SMALLER 2 VSAT 037312,000182: # 2 2 037313,000183: # VBARS VL /VSAT 4 037314,000184: # 2 2 037315,000185: # VSQ NORMALIZED VEL. SQUARED = V /VSAT 4 = VSQUARE 037316,000186: 037317,000187: # WT EARTH RATE TIMES TIME 1 REVOLUTION NOT SAVED 037318,000188: 037319,000189: # X INTERMEDIATE VARIABLE IN G-LIMITER 2 VSAT NOT SAVED 037320,000190: 037321,000191: # Y LATERAL MISS LIMIT 4 RADIANS NOT SAVED 037322,000192: 037323,000193: # Page 840 037324,000194: # EXTRA COMPUTER ERASABLE LOCATIONS NOT SHOWN ON FLOW CHARTS 037325,000195: # ---------------------------------------------------------- 037326,000196: 037327,000197: # VARIABLE DESCRIPTION MAXIMUM VALUE 037328,000198: # -------- ----------- ------------- 037329,000199: 037330,000200: # GOTOADDR ADDRESS SELECTED BY SEQUENCER 037331,000201: 037332,000202: # XPIPBUF BUFFER TO STORE X PIPA COUNTS 037333,000203: 037334,000204: # YPIPBUF BUFFER TO STORE Y PIPA COUNTS 037335,000205: 037336,000206: # ZPIPBUF BUFFER TO STORE Z PIPA COUNTS 037337,000207: 037338,000208: # PIPCTR COUNTS PASSES THRU PIPA READ ROUTINE 037339,000209: 037340,000210: # JJ INDEX IN FINAL PHASE TABLE LOOK-UP 037341,000211: 037342,000212: # MM INDEX IN FINAL PHASE TABLE LOOK-U 037343,000213: 037344,000214: # GRAD INTERPOLATION FACTOR IN FINAL PHASE 037345,000215: 037346,000216: # FX DRANGE/D L/D = F3 2700 NM 037347,000217: 037348,000218: # FX +1 AREF 805 FPSS 037349,000219: 037350,000220: # FX +2 RTOGO 2700 NM 037351,000221: 037352,000222: # FX +3 RDOTREF VSAT/4 037353,000223: 037354,000224: # FX +4 DRANGE/D RDOT = F2 21600/2VS NM/FPS 037355,000225: 037356,000226: # FX +5 DRANGE/D DRAG = F1 2700/805 NM/FPSS 037357,000227: 037358,000228: # TEM1B TEMPORARY LOCATION 037359,000229: 037360,000230: # TIME/RTO TIME OF INITIAL TARGET RTINIT B 28 CENTISEC 037361,000231: 037362,000232: # DTEAROT EST TIME BETWEEN RTINIT AND RT B 28 CENTISEC 037363,000233: # _ 037364,000234: # UNITV UNIT V VECTOR 2 037365,000235: # _ 037366,000236: # UNITR UNIT R VECTOR 2 037367,000237: # _ 037368,000238: # -VREL NEGATIVE VELOCITY REL TO ATMOSP 2 VSAT 037369,000239: 037370,000240: # COMPUTER SWITCHES INITIAL STATE CM/FLAGS = STATE +6 037371,000241: # ----------------- ------------- ------------------- 037372,000242: 037373,000243: # ENTRYDSP DO ENTRY DISPLAY, IF SET NON-BRANCH (1) 92D, BIT 13 037374,000244: # GONEPAST INDICATES OVERSHOOT OF TARGET NON-BRANCH (0) 95D, BIT 10 037375,000245: # RELVELSW RELATIVE VELOCITY SWITCH NON-BRANCH (0) 96D, BIT 9 037376,000246: # EGSW FINAL PHASE SWITCH NON-BRANCH (0) 97D, BIT 8 037377,000247: # FIRSTPAS INITIAL PASS THRU HUNTEST NON-BRANCH (0) 98D, BIT 7 037378,000248: # HIND INDICATES ITERATION IN HUNTEST NON-BRANCH (0) 99D, BIT 6 037379,000249: # INRLSW INDICATES INIT ROLL ATTITUDE SET NON-BRANCH (0) 100D, BIT 5 037380,000250: # LATSW INHIBIT DOWNLIFT SWITCH IF NOT SET BRANCH (1) 101D, BIT 4 037381,000251: # .05GSW INDICATES DRAG EXCEEDS .05 GS BRANCH (0) 102D, BIT 3 037382,000252: 037383,000253: # GONEBY INDICATES GONE PAST TARGET (SET) SELF-INITIALIZING 112D, BIT 8 037384,000254: 037385,000255: # Page 841 037386,000256: # CONSTANTS AND GAINS VALUE 037387,000257: # ------------------- ----- 037388,000258: 037389,000259: # C1 FACTOR IN ALP COMPUTATION 1.25 037390,000260: # C16 CONSTD GAIN ON DRAG .01 037391,000261: # C17 CONSTD GAIN ON RDOT .001 037392,000262: # C18 BIAS VEL. FOR FINAL PHASE START 500 FPS 037393,000263: # C20 MAX DRAG FOR DOWN-LIFT 175 FPSS 037394,000264: # CHOOK FACTOR IN AHOOK COMPUTATION .25 037395,000265: # CH1 FACTOR IN GAMMAL COMPUTATION 1.0 037396,000266: # COS15 COS( 15 DEG ) .965 037397,000267: # DLEWD0 INITIAL VARIATION IN LEWD -.05 037398,000268: # D2 DRAG TO CHANGE LEWD 175 FPSS 037399,000269: # DT COMPUTATION CYCLE TIME INTERVAL 2 SEC. 037400,000270: # GMAX MAXIMUM ACCELERATION 257.6 FPSS (8 G'S) 037401,000271: # KA1 FACTOR IN KA CALC 1.3 GS 037402,000272: # KA2 FACTOR IN KA CALC .2 GS 037403,000273: # KA3 FACTOR IN D0 CALC 90 FPSS 037404,000274: # KA4 FACTOR IN D0 CALC 40 FPSS 037405,000275: # KB1 OPTIMIZED UPCONTROL GAIN 3.4 037406,000276: # KB2 OPTIMIZED UPCONTROL GAIN .0034 037407,000277: # KDMIN INCREMENT ON Q7 TO DETECT END OF KEPLER PHASE .5 FPSS 037408,000278: # KTETA TIME OF FLIGHT CONSTANT 1000 037409,000279: # KLAT1 FACTOR IN KLAT CALC 1/24 037410,000280: # K44 GAIN USED IN INITIAL ROLL SECTION 19749550 FPS 037411,000281: # LATBIAS LATERAL SWITCH BIAS TERM .41252961 NM 037412,000282: # LEWD1 NOMINAL UPCONTROL L/D .15 037413,000283: # POINT1 FACTOR TO REDUCE UPCONTROL GAIN .1 037414,000284: # Q2 FINAL PHASE RANGE - 23500 Q3 -1002 NM 037415,000285: # Q3 FINAL PHASE DRANGE/D V .07 NM/FPS 037416,000286: # Q5 FINAL PHASE DRANGE/D GAMMA 7050 NM/RAD 037417,000287: # Q6 FINAL PHASE INITIAL FLIGHT PATH ANGLE .0349 RAD 037418,000288: # Q7F MIN DRAG FOR UPCONTROL 6 FPSS 037419,000289: # Q7MIN IN VALUE FOR Q7 IN FACTOR CALCULATION 40 FPSS 037420,000290: # Q19 FACTOR IN GAMMAL1 CALCULATION .5 037421,000291: # Q21 FACTOR IN Q2 CALCULATION 1000 NM 037422,000292: # Q22 FACTOR IN Q2 CALCULATION -1302 NM 037423,000293: # VFINAL1 VELOCITY TO START FINAL PHASE ON INITIAL ENTRY 27000 FPS 037424,000294: # VFINAL FACTOR IN INITIAL UP-DOWN CALC 26600 FPS 037425,000295: # VLMIN MINIMUM VL 18000 FPS 037426,000296: # VMIN VELOCITY TO SWITCH TO RELATIVE VEL VSAT/2 037427,000297: # VRCONTRL RDOT TO START INTO HUNTEST 700 FPS 037428,000298: # VRCONT=COMPUTER NAME 037429,000299: # 25NM TOLERANCE TO STOP RANGE ITERATION 25 NM 037430,000300: # VQUIT VELOCITY TO STOP STEERING 1000 FPS 037431,000301: 037432,000302: # Page 842 037433,000303: # CONVERSION FACTORS AND SCALING CONSTANTS 037434,000304: # ---------------------------------------- 037435,000305: 037436,000306: # ATK ANGLE IN RAD TO NM 3437.7468 NM/RAD 037437,000307: # G5 NOMINAL G VALUE FOR SCALING 32.2 FPSS 037438,000308: # H5 ATMOSPHERE SCALE HEIGHT 28500 FT 037439,000309: # J GRAVITY HARMONIC COEFFICIENT .00162346 037440,000310: # KWE EQUATORIAL EARTH RATE 1546.10168 FPS 037441,000311: # MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E14 CUBIC M/ SEC SEC 037442,000312: # RE EARTH RADIUS 21202900 FT 037443,000313: # REQ EARTH EQUATORIAL RADIUS 20925738.2 FT 037444,000314: # VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS 037445,000315: # WIE EARTH RATE .0000729211505 RAD/SEC 037446,000316: 037447,000317: # (END GSOP AS-278, VOL 1, FIG. 5.6-3 CONSTANTS, GAINS, ETC.) 037448,000318: 037449,000319: # DISPLAY QUANTITIES 037450,000320: # ------------------ 037451,000321: 037452,000322: # (SEE SECTION 4 OF THE GSOP FOR SIGN CONVENTIONS.) 037453,000323: 037454,000324: # VARIABLE DESCRIPTION MAXIMUM VALUE 037455,000325: # -------- ----------- ------------- 037456,000326: 037457,000327: # QMAX PREDICTED MAXIMUM ENTRY ACCEL 163.84 GS N 60 037458,000328: # VPRED PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 60 037459,000329: # 400K FT ABOVE FISCHER RADIUS. 037460,000330: # GAMMAEI PREDICTED GAMMA AT ALTITUDE 1 REVOLUTION N 60 037461,000331: # 400K FT ABOVE FISCHER RADIUS 037462,000332: # D DRAG ACCELERATION 805 FPSS N 64 037463,000333: # VMAGI INERTIAL VELOCITY MAGNITUDE 128 M/CENTISEC N 64, N 68 037464,000334: # THETAH DESIRED RANGE ANGLE NM 1 REVOLUTION N 64, N 67 037465,000335: # LAT PRESENT LATITUDE 1 REVOLUTION N 67 037466,000336: # LONG PRESENT LONGITUDE 1 REVOLUTION N 67 037467,000337: # RTOGO RANGE ANGLE TO SPLASH FROM 1 REVOLUTION N 67 037468,000338: # EMSALT FT ABOVE FISCHER RADIUS (IN NM) 037469,000339: # VIO PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 63 037470,000340: # EMSALT FT ABOVE FISCHER RADIUS. 037471,000341: # TTE TIME OF FREE FALL TO ALT B 28 CENTISEC N 63 037472,000342: # EMSALT FT ABOVE FISCHER RADIUS 037473,000343: # ROLLC ROLL COMMAND 1 REVOLUTION N 68, N 68, N 69 037474,000344: # LATANG CROSS-RANGE ERROR (XRNGERR) 4 RADIANS N 66 037475,000345: # DNRNGERR DOWN RANGE ERROR 1 REVOLUTION N 66 037476,000346: # (PREDANG - THETAH IN NM) 037477,000347: # HDOT ALTITUDE RATE 128 M/CENTISEC N 68 037478,000348: # QT MINIMUM DRAG FOR UPCONTROL 805 FPSS N 69 037479,000349: # VL EXIT VELOCITY FOR UP-CONTROL 2 VSAT N 69 037480,000350: 037481,000351: # Page 843 037482,000352: # BODY ATTITUDE QUANTITIES (CM/POSE) 037483,000353: # ---------------------------------- 037484,000354: 037485,000355: # VARIABLE DECRIPTION MAXIMUM VALUE 037486,000356: # -------- ---------- ------------- 037487,000357: # _ 037488,000358: # -VREL NEGATIVE VELOCITY REL TO ATMOS. 2 VSAT 037489,000359: # _ 037490,000360: # OLDUYA USED FOR UYA BELOW 1000 FPS 2 037491,000361: # _ 037492,000362: # UXA/2 UNIT VECTOR TRIAD 2 037493,000363: # _ 037494,000364: # UYA/2 BASED ON 2 037495,000365: # _ 037496,000366: # UZA/2 THE TRAJECTORY 2 037497,000367: # _ 037498,000368: # UBX/2 UNIT VECTOR 2 037499,000369: # _ 037500,000370: # UBY/2 BODY TRIAD 2 037501,000371: # _ 037502,000372: # UBZ/2 FOR CM. 2 037503,000373: End of include-file ENTRY_LEXICON.agc. Parent file is MAIN.agc