GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
037275,000002: ## Copyright: Public domain.
037276,000003: ## Filename: ENTRY_LEXICON.agc
037277,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
037278,000005: ## build 072. This is for the Command Module's (CM)
037279,000006: ## Apollo Guidance Computer (AGC), for
037280,000007: ## Apollo 15-17.
037281,000008: ## Assembler: yaYUL
037282,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
037283,000010: ## Website: www.ibiblio.org/apollo/index.html
037284,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
037285,000012: ## Mod history: 2009-08-11 JL Adapted from corresponding Comanche 055 file.
037286,000013: ## 2010-02-20 RSB Un-##'d this header.
037287,000014: ## 2017-01-22 RSB Proofed comment text by diff'ing vs Comanche 55
037288,000015: ## and corrected errors found.
037289,000016:
|
|
Page 842 |
037291,000018:
037292,000019: # VARIABLE DESCRIPTION MAXIMUM VALUE * COMPUTER NAME
037293,000020: # -------- ----------- ------- ----- -------- ----
037294,000021: # -
037295,000022: # URT0 INITIAL TARGET VECTOR 2 (UNIT VECTOR) = RTINIT
037296,000023: # -
037297,000024: # UZ UNIT VECTOR NORTH 1 = UNITW
037298,000025: # -
037299,000026: # V VELOCITY VECTOR 2 VSAT = VEL
037300,000027: # -
037301,000028: # R POSITION VECTOR 2 EXP 29 METERS = RN
037302,000029: # -
037303,000030: # VI INERTIAL VELOCITY 128 M/CENTISEC = VN
037304,000031: # -
037305,000032: # RTE VECTOR EAST AT INITIAL TARGET 2 = RTEAST
037306,000033: # -
037307,000034: # UTR NORMAL TO RTE AND UZ 2 = RTNORM
037308,000035: # -
037309,000036: # URT TARGET VECTOR 2 = RT
037310,000037: # -
037311,000038: # UNI UNIT NORMAL TO TRAJECTORY PLANE 2
037312,000039: # -
037313,000040: # DELV INTEGRATED ACCEL. FROM PIPAS 5.85 16384 CM/S
037314,000041: # -
037315,000042: # G GRAVITY VECTOR 128 M/CENTISEC = GDT/2
037316,000043:
037317,000044: # A0 INITIAL DRAG FOR UPCONTRL 805 FPSS FPSS=FT/SEC/SEC
037318,000045: # AHOOKDV TERM IN GAMMAL CALC. = AHOOK DVL 8
037319,000046: # A1 DRAG VALUE IN FACTOR CALCULATION 805 FPSS
037320,000047: # ALP CONST FOR UPCONTRL 1
037321,000048: # ASKEP KEPLER RANGE 21600 NM NM = NAUTICAL MILE
037322,000049: # ASP1 FINAL PHASE RANGE 21600 NM
037323,000050: # ASPUP UP-RANGE 21600 NM
037324,000051: # ASP3 GAMMA CORRECTION 21600 NM
037325,000052: # ASPDWN RANGE DOWN TO PULL-UP 21600 NM
037326,000053: # ASP PREDICTED RANGE 21600 NM NOT STORED
037327,000054: # COSG COSINE(GAMMAL) 2 = COSG/2
037328,000055: # C/D0 RECIPROCAL DRAG, -4/D0 B-8 64/FPSS AGC ONLY
037329,000056: # D TOTAL ACCELERATION 805 FPSS
037330,000057: # D0 CONTROLLED CONSTANT D 805 FPSS
037331,000058: # DHOOK TERM IN GAMMAL COMPUTATION 805 FPSS
037332,000059: # DIFF THETNM-ASP (RANGE DIFFERENCE) 21600 NM
037333,000060: # DIFFOLD PREVIOUS VALUE OF DIFF 21600 NM
037334,000061: # DLEWD CHANGE IN LEWD 1
037335,000062: # DR REFERENCE DRAG FOR DOWNCONTROL 805 FPSS NOT STORED
037336,000063: # DREFR( ) REFERENCE DRAG (FINAL PHASE TABLE) 805 FPSS NOT SAVED
037337,000064: # DVL VS1-VL 2 VSAT
037338,000065: # E ECCENTRICITY 4 NOT STORED
037339,000066: # F1( ) DRANGE/D DRAG (FINAL PHASE TABLE) 2700/805 = FX +5
037340,000067: # F2( ) DRANGE/D RDOT (FINAL PHASE TABLE) 2700/2VS NM/FPS = FX +4 /8
|
|
Page 843 |
037342,000069: # F3( ) DRANGE/D (L/D) (FINAL PHASE TABLE) 2700 NM = FX
037343,000070: # * MAXIMUM VALUE DENOTES UNSCALED
037344,000071: # VARIABLE VALUE WHEN SCALED
037345,000072: # FIGURE 7.0-2 COMPUTER VARIABLES VARIABLE HAS MAXIMUM VALUE OF ONE.
037346,000073:
|
|
Page 844 |
037348,000075:
037349,000076: # VARIABLE DESCRIPTION MAXIMUM VALUE COMPUTER NAME
037350,000077: # -------- ----------- ------- ----- -------- ----
037351,000078:
037352,000079: # FACT1 CONST FOR UPCONTRL 2 VSAT
037353,000080: # FACT2 CONST FOR UPCONTRL 1/805 FPSS
037354,000081: # FACTOR USED IN UPCONTRL 1
037355,000082: # GAMMAL FLIGHT PATH ANGLE AT VL 1 RADIAN
037356,000083: # GAMMAL1 SIMPLE FORM OF GAMMAL 1 RADIAN
037357,000084: # HEADSUP INDICATOR FOR INITIAL ROLL 1
037358,000085: # KA DRAG TO LIFT UP IF DOWN 805 FPSS = KAT
037359,000086: # KLAT LATERAL SWITCH GAIN 1 (NOM = .0125)
037360,000087: # K2ROLL INDICATOR FOR ROLL SWITCH
037361,000088: # LAD MAX L/D (MIN ACTUAL VEHICLE L/D) 1
037362,000089: # LADPAD NOMINAL VEHICLE L/D, SP PAD LOAD 1 (NOM = 0.3)
037363,000090: # LATANG LATERAL RANGE 4 RADIANS
037364,000091: # LAT(SPL) GEODETIC LATITUDE OF TARGET 1 REVOLUTION
037365,000092: # LNG(SPL) LONGITUDE OF TARGET 1 REVOLUTION
037366,000093: # LEQ EXCESS C.F. OVER GRAV=(VSQ-1)GS 128.8 FPSS
037367,000094: # LEWD UPCONTROL REFERENCE L/D 1
037368,000095: # LOD FINAL PHASE L/D 1 (NOM = 0.18)
037369,000096: # LODPAD FINAL PHASE L/D, SP PAD LOAD 1
037370,000097: # L/D DESIRED LIFT TO DRAG RATIO 1
037371,000098: # (VERTICAL PLANE)
037372,000099: # L/D1 TEMP STORAGE FOR L/D IN LATERAL 1
037373,000100: # L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895)
037374,000101: # PREDANGL PREDICTED RANGE (FINAL PHASE) 2700 NM = PREDANG
037375,000102: # Q2 FINAL PHASE RANGE 21600 NM
037376,000103: # Q7 MINIMUM DRAG FOR UPCONTROL 805FPSS
037377,000104: # RDOT ALTITUDE RATE 2 VSAT
037378,000105: # RDOTREF REFERENCE RDOT FOR UPCONTROL 2 VSAT
037379,000106: # RDOTREF( ) REFERENCE RDOT (FINAL PHASE TABLE) 2 VSAT = FX +3 /8
037380,000107: # RDTR REFERENCE RDOT FOR DOWNCONT 2 VSAT NOT SAVED
037381,000108: # ROLLC ROLL COMMAND 1 REVOLUTION
037382,000109: # RTOGO( ) RANGE TO GO (FINAL PHASE TABLE) 2700 NM = FX +2
037383,000110: # SL SINE OF LATITUDE 1 NOT SAVED
037384,000111: # T TIME B 28 CENTISEC = PIPTIME-TIME/RTO
037385,000112: # THETA DESIRED RANGE (RADIANS) 2 PI RADIANS = THETAH
037386,000113: # THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT
037387,000114: # V VELOCITY MAGNITUDE 2 VSAT
037388,000115: # V1 INITIAL VELOCITY FOR UPCONTROL 2 VSAT
037389,000116: # VL EXIT VELOCITY FOR UPCONTROL 2 VSAT
037390,000117: # VMAGI INERTIAL VELOCITY MAGNITUDE,|VI| 128 M/CENTISEC
037391,000118: # VREF REFERENCE VELOCITY FOR UPCONTROL 2 VSAT
037392,000119: # VREF( ) REFERENCE V (FINAL PHASE TABLE) 2 VSAT NOT STORED
037393,000120: # VS1 VSAT OR V1, WHICHEVER IS SMALLER 2 VSAT
037394,000121: # 2 2
037395,000122: # VBARS VL /VSAT 4
037396,000123: # 2 2
037397,000124: # VSQ NORMALISED VEL. SQUARED = V /VSAT 4 = VSQUARE
037398,000125:
037399,000126: # WT EARTH RATE TIMES TIME 1 REVOLUTION NOT SAVED
|
|
Page 845 |
037401,000128: # = WIE (DTEAROT)
037402,000129: # X INTERMEDIATE VARIABLE IN G-LIMITER 2 VSAT NOT SAVED
037403,000130: # Y LATERAL MISS LIMIT 4 RADIANS NOT SAVED
037404,000131:
037405,000132: # FIGURE 7.0-2A COMPUTER VARIABLES (CONTINUED)
037406,000133:
|
|
Page 846 |
037408,000135: # EXTRA COMPUTER ERASABLE LOCATIONS NOT SHOWN ON FLOW CHARTS
037409,000136: # -----------------------------------------------------------
037410,000137:
037411,000138: # VARIABLE DESCRIPTION MAXIMUM VALUE
037412,000139: # -------- ----------- ------- -----
037413,000140:
037414,000141: # GOTOADDR ADDRESS SELECTED BY SEQUENCER
037415,000142: # XPIPBUF BUFFER TO STORE X PIPA COUNTS
037416,000143: # YPIPBUF BUFFER TO STORE Y PIPA COUNTS
037417,000144: # ZPIPBUF BUFFER TO STORE Z PIPA COUNTS
037418,000145: # PIPCTR COUNTS PASSES THRU PIPA READ ROUTINE
037419,000146: # JJ INDEX IN FINAL PHASE TABLE LOOK-UP
037420,000147: # MM INDEX IN FINAL PHASE TABLE LOOK-UP
037421,000148: # GRAD INTERPOLATION FACTOR IN FINAL PHASE
037422,000149: # FX DRANGE/D L/D = F3 2700 NM
037423,000150: # FX + 1 AREF 805 FPSS
037424,000151: # FX + 2 RTOGO 2700 NM
037425,000152: # FX + 3 RDOTREF VSAT/4
037426,000153: # FX + 4 DRANGE/D RDOT = F2 21600/2VS NM/FPS
037427,000154: # FX + 5 DRANGE/D DRAG = F1 2700/805 NM/FPSS
037428,000155: # TEM1B TEMPORARY LOCATION
037429,000156: # TIME/RTO TIME OF INITIAL TARGET RTINIT B 28 CENTISEC
037430,000157: # DTEAROT EST TIME BETWEEN RTINIT AND RT B 28 CENTISEC
037431,000158: # -
037432,000159: # UNITV UNIT V VECTOR 2
037433,000160: # -
037434,000161: # UNITR UNIT R VECTOR 2
037435,000162: # -
037436,000163: # -VREL NEGATIVE VELOCITY REL TO ATMOSP 2 VSAT
037437,000164:
037438,000165: # COMPUTER SWITCHES INITIAL STATE CM/FLAGS = STATE +6
037439,000166: # -------- -------- ------------- -------------------
037440,000167:
037441,000168: # ENTRYDSP DO ENTRY DISPLAY, IF SET NON-BRANCH (1) 92D, BIT13
037442,000169: # GONEPAST INDICATES OVERSHOOT OF TARGET BRANCH (1) 95D, BIT10
037443,000170: # RELVELSW RELATIVE VELOCITY SWITCH NON-BRANCH (0) 96D, BIT 9
037444,000171: # EGSW FINAL PHASE SWITCH NON-BRANCH (0) 97D, BIT 8
037445,000172: # NOSWITCH INHIBIT LATERAL SWITCH NON-BRANCH (0) 98D, BIT 7
037446,000173: # HIND INDICATES ITERATION IN HUNTEST NON-BRANCH (0) 99D, BIT 6
037447,000174: # INRLSW INDICATES INIT ROLL ATTITUDE SET NON-BRANCH (0) 100D, BIT 5
037448,000175: # LATSW INHIBIT DOWNLIFT SWITCH IF NOT SET BRANCH (1) 101D, BIT 4
037449,000176: # .05GSW INDICATES DRAG EXCEEDS .05 GS NON-BRANCH (0) 102D, BIT 3
037450,000177:
037451,000178: # GONEBY INDICATES GONE PAST TARGET (SET) SELF-INITIALIZING 112D, BIT 8 IN STATE +7
037452,000179:
037453,000180: # FIGURE 7.0-2B COMPUTER VARIABLES (CONTINUED)
037454,000181:
|
|
Page 847 |
037456,000183: # BODY ATTITUDE QUANTITIES (CM/POSE)
037457,000184: # -----------------------------------
037458,000185:
037459,000186: # VARIABLE DECRIPTION MAXIMUM VALUE
037460,000187: # -------- ---------- ------- -----
037461,000188: # -
037462,000189: # -VREL NEGATIVE VELOCITY REL TO ATMOS. 2 VSAT
037463,000190: # - -
037464,000191: # OLDUYA USED FOR UYA BELOW 1000 FPS 2
037465,000192:
037466,000193: # -
037467,000194: # UXA/2 UNIT VECTOR TRIAD 2
037468,000195: # -
037469,000196: # UYA/2 BASED ON 2
037470,000197: # -
037471,000198: # UZA/2 THE TRAJECTORY. 2
037472,000199:
037473,000200: # -
037474,000201: # UBX/2 UNIT VECTOR 2
037475,000202: # -
037476,000203: # UBY/2 BODY TRIAD 2
037477,000204: # -
037478,000205: # UBZ/2 FOR CM. 2
037479,000206:
037480,000207: # FIGURE 7.0-2C COMPUTER VARIABLES (CONTINUED)
037481,000208:
|
|
Page 848 |
037483,000210: # DISPLAY QUANTITIES (FOR USAGE,SEE SECTION 4: P 61 THROUGH P 67)
037484,000211: # ------------------
037485,000212:
037486,000213: # THIS TABLE PROVIDES THE READER WITH DISPLAY QUANTITY INFORMATION. THE VARIABLE NAMES REFLECT
037487,000214: # SECTION 5 USAGE. EXCEPTING IMBEDDED BLANKS, THE SECTION 4 NAMES ARE PARENTHESIZED,IF DIFFERENT.
037488,000215: # SIGN CONVENTIONS ARE FOUND IN SECTION 4. IF THE DISPLAY VARIABLE NAME DIFFERS FROM SECTION 5 USAGE,
037489,000216: # SAY BECAUSE OF SCALE FACTOR, THE ALTERNATE SECTION 5 NAME IS ENCLOSED IN ANGULAR BRACKETS: < >.
037490,000217: # DISPLAY QUANTITY INFORMATION APPEARING ELSEWHERE IN SECTION 5 OTHER THAN IN 5 7 MAY BE FOUND THUS:
037491,000218: # N 60 & N 63 (ALL) FIGURE 6.10-4 IN 5.6.10.3
037492,000219: # N 22 (ALL) FIGURE 6.10-11 IN 5.6.10.6
037493,000220: # N67 (LAT, LONG) FIGURE 5.3-1 IN 5.5.3
037494,000221:
037495,000222: # VARIABLE DESCRIPTION MAXIMUM VALUE DISPLAY NOUNS
037496,000223: # -------- ----------- ------- ----- ------- -----
037497,000224:
037498,000225: # GMAX PREDICTED MAXIMUM ENTRY ACCEL 163.84 GS N 60
037499,000226: # VPRED PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 60
037500,000227: # 400K FT ABOVE FISCHER RADIUS.
037501,000228: # GAMMAEI PREDICTED GAMMA AT ALTITUDE 1 REVOLUTION N 60
037502,000229: # 400K FT ABOVE FISCHER RADIUS.
037503,000230: # RTGO RANGE ANGLE TO SPLASH (RTOGO) 1 REVOLUTION N 63
037504,000231: # FROM EMSALT FT ABOVE FISCHER
037505,000232: # RADIUS. (IN NM)
037506,000233: # VIO PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 63
037507,000234: # EMSALT FT ABOVE FISCHER RADIUS.
037508,000235: # TTE TIME OF FREE FALL (TFE) TO B 28 CENTISEC N 63
037509,000236: # ALTITUDE EMSALT FT ABOVE FISCHER
037510,000237: # RADIUS.
037511,000238: # OGA OUTER GIMBAL ANGLE (OG ROLL) 1 REVOLUTION N 22
037512,000239: # IGA INNER GIMBAL ANGLE (IG PITCH) 1 REVOLUTION N 22
037513,000240: # MGA MIDDLE GIMBAL ANGLE (MG YAW) 1 REVOLUTION N 22
037514,000241: # ALL ABOVE ANGLES FOR HYPERSONIC TRIM
037515,000242: # D DRAG ACCELERATION (G) 805 FPSS N 64, N 74
037516,000243: # VMAGI INERTIAL VELOCITY MAGNITUDE (VI) 128 M/CENTISEC N 64, N 68, N 74
037517,000244: # ROLLC ROLL COMMAND (BETA) 1 REVOLUTION N 66, N 68, N 69, N 74
037518,000245: # XRNGERR CROSS-RANGE ERROR <LATANG IN NM> 1 REVOLUTION N 66
037519,000246: # DNRNGERR DOWN RANGE ERROR ** 1 REVOLUTION N 66
037520,000247: # <PREDANG - THETAH IN NM>
037521,000248: # ** <DNRNGERR DISPLAYS 9999.9 IF GONEPAST =1 IN P 67>
037522,000249: # HDOT ALTITUDE RATE <RDOT> 128 M/CENTISEC N 68
037523,000250: # Q7 EXIT DRAG LEVEL (DL) 805 FPSS N 69
037524,000251: # VL EXIT VELOCITY FOR UP-CONTROL 2 VSAT N 69
037525,000252: # RTOGO DESIRED RANGE ANGLE <THETAH> 1 REVOLUTION N 67, N 64
037526,000253: # <-THETAH IF GONEBY =0, THETAH IF GONEBY =1>
037527,000254: # LAT GEODETIC LATITUDE OF VEHICLE 1 REVOLUTION N 67
037528,000255: # LONG LONGITUDE OF VEHICLE 1 REVOLUTION N 67
037529,000256:
037530,000257: # THE FOLLOWING IS A DATA INPUT NOUN (REFER TO SECTION 4,P 61 & P 62)
037531,000258: # HEADSUP INDICATOR FOR INITIAL ROLL 1 REVOLUTION N 61
037532,000259: # LAT(SPL) GEODETIC LATITUDE OF TARGET 1 REVOLUTION N 61
|
|
Page 849 |
037534,000261: # (IMPACT LAT)
037535,000262: # LNG(SPL) LONGITUDE OF TARGET (IMPACT LONG) 1 REVOLUTION N 61
037536,000263:
037537,000264: # FIGURE 7.0-2D COMPUTER VARIABLES (CONTINUED)
037538,000265:
037539,000266:
|
|
Page 850 |
037541,000268: # CONSTANTS AND GAINS VALUE
037542,000269: # ------------------- -----
037543,000270:
037544,000271: # C1 FACTOR IN ALP COMPUTATION 1.25
037545,000272: # C16 CONSTD GAIN ON DRAG 0.01
037546,000273: # C17 CONSTD GAIN ON RDOT 0.002
037547,000274: # C18 BIAS VEL. FOR FINAL PHASE START 500 FPS
037548,000275: # C20 MAX DRAG FOR DOWN-LIFT 210 FPSS
037549,000276: # C21 DRAG FOR NO LATERAL SWITCH 140 FPSS
037550,000277: # CHOOK FACTOR IN AHOOK COMPUTATION 0.25
037551,000278: # CH1 FACTOR IN GAMMAL COMPUTATION 1.0
037552,000279: # COS15 COS( 15 DEG) 0.965
037553,000280: # DLEWD0 INITIAL VARIATION IN LEWD -0.05
037554,000281: # DT COMPUTATION CYCLE TIME INTERVAL 2 SEC.
037555,000282: # GMAX MAXIMUM ACCELERATION 257.6 FPSS (8 G-S)
037556,000283: # KA1 FACTOR IN KA CALC 1.3 GS
037557,000284: # KA2 FACTOR IN KA CALC 0.2 GS
037558,000285: # KA3 FACTOR IN D0 CALC 90 FPSS
037559,000286: # KA4 FACTOR IN D0 CALC 40 FPSS
037560,000287: # KB1 OPTIMIZED UPCONTROL GAIN 2.5
037561,000288: # KB2 OPTIMIZED UPCONTROL GAIN 0.0025
037562,000289: # KDMIN INCREMENT ON Q7F TO DETECT END OF KEPLER PHASE 0.5 FPSS
037563,000290: # KTETA TIME OF FLIGHT CONSTANT 1000
037564,000291: # KLAT1 FACTOR IN KLAT CALC 1/24
037565,000292: # K44 GAIN USED IN INITIAL ROLL SECTION 19749550 FPS
037566,000293: # LATBIAS LATERAL SWITCH BIAS TERM 0.41252961 NM
037567,000294: # LEWD1 NOMINAL UPCONTROL L/D 0.15
037568,000295: # POINT1 FACTOR TO REDUCE UPCONTROL GAIN 0.1
037569,000296: # Q3 FINAL PHASE DRANGE/D V 0.07 NM/FPS
037570,000297: # Q5 FINAL PHASE DRANGE/ D GAMMA 7050 NM/RAD
037571,000298: # Q6 FINAL PHASE INITIAL FLIGHT PATH ANGLE 0.0349 RAD
037572,000299: # Q7F MIN DRAG FOR UPCONTROL 6 FPSS
037573,000300: # Q7MIN MIN VALUE FOR Q7 IN FACTOR CALCULATION 805 FPSS (DISABLE FACTOR)
037574,000301: # Q19 FACTOR IN GAMMAL1 CALCULATION 0.5
037575,000302: # Q21 FACTOR IN Q2 CALCULATION. 3500 NM
037576,000303: # Q22 FACTOR IN Q2 CALCULATION. -1992 NM
037577,000304: # VFINAL1 VELOCITY TO START FINAL PHASE ON INITIAL ENTRY 27000 FPS
037578,000305: # VFINAL FACTOR IN INITIAL UP-DOWN CALC 26600 FPS
037579,000306: # VLMIN MINIMUM VL 18000 FPS
037580,000307: # VMIN VELOCITY TO SWITCH TO RELATIVE VEL VSAT/2
037581,000308: # VRCONTRL RDOT TO START INTO HUNTEST 700 FPS
037582,000309: # VRCONT = COMPUTER NAME
037583,000310: # 25NM TOLERANCE TO STOP RANGE ITERATION 25 NM
037584,000311: # VQUIT VELOCITY TO STOP STEERING 1000 FPS
037585,000312:
|
|
Page 851 |
037587,000314: # CONVERSION FACTORS AND SCALING CONSTANTS
037588,000315: # ---------- ------- --- ------- ---------
037589,000316:
037590,000317: # ATK ANGLE IN RAD TO NM 3437.7468 NM/RAD
037591,000318: # GS NOMINAL G VALUE FOR SCALING 32.2 FPSS
037592,000319: # HS ATMOSPHERE SCALE HEIGHT 28500 FT
037593,000320: # J GRAVITY HARMONIC COEFFICIENT 0.00162346
037594,000321: # KWE EQUATORIAL EARTH RATE 1546.70168 FPS
037595,000322: # MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E 14 CUBIC M/ SEC SEC
037596,000323: # RE EARTH RADIUS 21202900 FT
037597,000324: # REQ EARTH EQUATORIAL RADIUS 20925738.2 FT
037598,000325: # VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS
037599,000326: # WIE EARTH RATE 0.0000729211505 RAD/SEC
037600,000327:
037601,000328: # FIGURE 7.0-3 CONSTANTS, GAINS AND CONVERSION FACTORS
End of include-file ENTRY_LEXICON.agc. Parent file is MAIN.agc