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