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, 1971
Note that the date is the date of the printout, not the date of the program revision.

037266,000002:                                                                                                  ## Copyright:   Public domain.
037267,000003:                                                                                                  ## Filename:    ENTRY_LEXICON.agc
037268,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
037269,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
037270,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
037271,000007:                                                                                                  ##              Apollo 15-17.
037272,000008:                                                                                                  ## Assembler:   yaYUL
037273,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
037274,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037275,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
037276,000012:                                                                                                  ## Mod history: 2009-08-11 JL   Adapted from corresponding Comanche 055 file.
037277,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
037278,000014:                                                                                                  ##              2017-01-22 RSB  Proofed comment text by diff'ing vs Comanche 55
037279,000015:                                                                                                  ##                              and corrected errors found.
037280,000016: 

Page 842

037282,000018: 
037283,000019:                                                                                                  #  VARIABLE      DESCRIPTION                             MAXIMUM VALUE *         COMPUTER NAME
037284,000020:                                                                                                  #  --------      -----------                             ------- -----           -------- ----
037285,000021:                                                                                                  #  -
037286,000022:                                                                                                  #  URT0          INITIAL TARGET VECTOR                   2 (UNIT VECTOR)         = RTINIT
037287,000023:                                                                                                  #  -
037288,000024:                                                                                                  #  UZ            UNIT VECTOR NORTH                       1                       = UNITW
037289,000025:                                                                                                  #  -
037290,000026:                                                                                                  #  V             VELOCITY VECTOR                         2 VSAT                  = VEL
037291,000027:                                                                                                  #  -
037292,000028:                                                                                                  #  R             POSITION VECTOR                         2 EXP 29 METERS         = RN
037293,000029:                                                                                                  #  -
037294,000030:                                                                                                  #  VI            INERTIAL VELOCITY                       128 M/CENTISEC          = VN
037295,000031:                                                                                                  #  -
037296,000032:                                                                                                  #  RTE           VECTOR EAST AT INITIAL TARGET           2                       = RTEAST
037297,000033:                                                                                                  #  -
037298,000034:                                                                                                  #  UTR           NORMAL TO RTE AND UZ                    2                       = RTNORM
037299,000035:                                                                                                  #  -
037300,000036:                                                                                                  #  URT           TARGET VECTOR                           2                       = RT
037301,000037:                                                                                                  #  -
037302,000038:                                                                                                  #  UNI           UNIT NORMAL TO TRAJECTORY PLANE         2       
037303,000039:                                                                                                  #  -
037304,000040:                                                                                                  #  DELV          INTEGRATED ACCEL. FROM PIPAS            5.85 16384 CM/S
037305,000041:                                                                                                  #  -
037306,000042:                                                                                                  #  G             GRAVITY VECTOR                          128 M/CENTISEC          = GDT/2
037307,000043: 
037308,000044:                                                                                                  #  A0            INITIAL DRAG FOR UPCONTRL               805 FPSS                FPSS=FT/SEC/SEC
037309,000045:                                                                                                  #  AHOOKDV       TERM IN GAMMAL CALC. = AHOOK DVL        8
037310,000046:                                                                                                  #  A1            DRAG VALUE IN FACTOR CALCULATION        805 FPSS
037311,000047:                                                                                                  #  ALP           CONST FOR UPCONTRL                      1
037312,000048:                                                                                                  #  ASKEP         KEPLER RANGE                            21600 NM                NM = NAUTICAL MILE
037313,000049:                                                                                                  #  ASP1          FINAL PHASE RANGE                       21600 NM
037314,000050:                                                                                                  #  ASPUP         UP-RANGE                                21600 NM
037315,000051:                                                                                                  #  ASP3          GAMMA CORRECTION                        21600 NM
037316,000052:                                                                                                  #  ASPDWN        RANGE DOWN TO PULL-UP                   21600 NM
037317,000053:                                                                                                  #  ASP           PREDICTED RANGE                         21600 NM                  NOT STORED
037318,000054:                                                                                                  #  COSG          COSINE(GAMMAL)                          2                       = COSG/2
037319,000055:                                                                                                  #  C/D0          RECIPROCAL DRAG, -4/D0 B-8              64/FPSS                 AGC ONLY
037320,000056:                                                                                                  #  D             TOTAL ACCELERATION                      805 FPSS
037321,000057:                                                                                                  #  D0            CONTROLLED CONSTANT D                   805 FPSS
037322,000058:                                                                                                  #  DHOOK         TERM IN GAMMAL COMPUTATION              805 FPSS
037323,000059:                                                                                                  #  DIFF          THETNM-ASP (RANGE DIFFERENCE)           21600 NM
037324,000060:                                                                                                  #  DIFFOLD       PREVIOUS VALUE OF DIFF                  21600 NM
037325,000061:                                                                                                  #  DLEWD         CHANGE IN LEWD                          1
037326,000062:                                                                                                  #  DR            REFERENCE DRAG FOR DOWNCONTROL          805 FPSS                  NOT STORED
037327,000063:                                                                                                  #  DREFR( )      REFERENCE DRAG (FINAL PHASE TABLE)      805 FPSS                  NOT SAVED
037328,000064:                                                                                                  #  DVL           VS1-VL                                  2 VSAT
037329,000065:                                                                                                  #  E             ECCENTRICITY                            4                         NOT STORED
037330,000066:                                                                                                  #  F1( )         DRANGE/D DRAG (FINAL PHASE TABLE)       2700/805                = FX +5
037331,000067:                                                                                                  #  F2( )         DRANGE/D RDOT (FINAL PHASE TABLE)       2700/2VS NM/FPS         = FX +4 /8

Page 843

037333,000069:                                                                                                  #  F3( )         DRANGE/D (L/D) (FINAL PHASE TABLE)      2700 NM                 = FX
037334,000070:                                                                                                  #                                                                        * MAXIMUM VALUE DENOTES UNSCALED
037335,000071:                                                                                                  #                                                                          VARIABLE VALUE WHEN SCALED
037336,000072:                                                                                                  #  FIGURE 7.0-2          COMPUTER VARIABLES                                VARIABLE HAS MAXIMUM VALUE OF ONE.
037337,000073: 

Page 844

037339,000075: 
037340,000076:                                                                                                  #  VARIABLE      DESCRIPTION                             MAXIMUM VALUE           COMPUTER NAME
037341,000077:                                                                                                  #  --------      -----------                             ------- -----           -------- ----
037342,000078: 
037343,000079:                                                                                                  #  FACT1         CONST FOR UPCONTRL                      2 VSAT
037344,000080:                                                                                                  #  FACT2         CONST FOR UPCONTRL                      1/805 FPSS
037345,000081:                                                                                                  #  FACTOR        USED IN UPCONTRL                        1
037346,000082:                                                                                                  #  GAMMAL        FLIGHT PATH ANGLE AT VL                 1 RADIAN
037347,000083:                                                                                                  #  GAMMAL1       SIMPLE FORM OF GAMMAL                   1 RADIAN
037348,000084:                                                                                                  #  HEADSUP       INDICATOR FOR INITIAL ROLL              1
037349,000085:                                                                                                  #  KA            DRAG TO LIFT UP IF DOWN                 805 FPSS                = KAT
037350,000086:                                                                                                  #  KLAT          LATERAL SWITCH GAIN                     1               (NOM = .0125)
037351,000087:                                                                                                  #  K2ROLL        INDICATOR FOR ROLL SWITCH               
037352,000088:                                                                                                  #  LAD           MAX L/D (MIN ACTUAL VEHICLE L/D)        1
037353,000089:                                                                                                  #  LADPAD        NOMINAL VEHICLE L/D, SP PAD LOAD        1               (NOM = 0.3)
037354,000090:                                                                                                  #  LATANG        LATERAL RANGE                           4 RADIANS
037355,000091:                                                                                                  #  LAT(SPL)      GEODETIC LATITUDE OF TARGET             1 REVOLUTION
037356,000092:                                                                                                  #  LNG(SPL)      LONGITUDE OF TARGET                     1 REVOLUTION
037357,000093:                                                                                                  #  LEQ           EXCESS C.F. OVER GRAV=(VSQ-1)GS         128.8 FPSS
037358,000094:                                                                                                  #  LEWD          UPCONTROL REFERENCE L/D                 1
037359,000095:                                                                                                  #  LOD           FINAL PHASE L/D                         1               (NOM = 0.18)
037360,000096:                                                                                                  #  LODPAD        FINAL PHASE L/D, SP PAD LOAD            1
037361,000097:                                                                                                  #  L/D           DESIRED LIFT TO DRAG RATIO              1
037362,000098:                                                                                                  #                (VERTICAL PLANE)
037363,000099:                                                                                                  #  L/D1          TEMP STORAGE FOR L/D IN LATERAL         1
037364,000100:                                                                                                  #  L/DCMINR      LAD COS(15DEG)                          1               (NOM = 0.2895)
037365,000101:                                                                                                  #  PREDANGL      PREDICTED RANGE  (FINAL PHASE)          2700 NM                 = PREDANG
037366,000102:                                                                                                  #  Q2            FINAL PHASE RANGE                       21600  NM
037367,000103:                                                                                                  #  Q7            MINIMUM DRAG FOR UPCONTROL              805FPSS
037368,000104:                                                                                                  #  RDOT          ALTITUDE RATE                           2 VSAT
037369,000105:                                                                                                  #  RDOTREF       REFERENCE RDOT FOR UPCONTROL            2 VSAT
037370,000106:                                                                                                  #  RDOTREF( )    REFERENCE RDOT (FINAL PHASE TABLE)      2 VSAT                  = FX +3 /8
037371,000107:                                                                                                  #  RDTR          REFERENCE RDOT FOR DOWNCONT             2 VSAT                    NOT SAVED
037372,000108:                                                                                                  #  ROLLC         ROLL COMMAND                            1 REVOLUTION
037373,000109:                                                                                                  #  RTOGO( )      RANGE TO GO (FINAL PHASE TABLE)         2700 NM                 = FX +2
037374,000110:                                                                                                  #  SL            SINE OF LATITUDE                        1                         NOT SAVED
037375,000111:                                                                                                  #  T             TIME                                    B 28 CENTISEC           = PIPTIME-TIME/RTO
037376,000112:                                                                                                  #  THETA         DESIRED RANGE (RADIANS)                 2 PI RADIANS            = THETAH
037377,000113:                                                                                                  #  THETNM        DESIRED RANGE (NM)                      21600 NM                  NON EXISTENT
037378,000114:                                                                                                  #  V             VELOCITY MAGNITUDE                      2 VSAT
037379,000115:                                                                                                  #  V1            INITIAL VELOCITY FOR UPCONTROL          2 VSAT
037380,000116:                                                                                                  #  VL            EXIT VELOCITY FOR UPCONTROL             2 VSAT
037381,000117:                                                                                                  #  VMAGI         INERTIAL VELOCITY MAGNITUDE,|VI|        128 M/CENTISEC
037382,000118:                                                                                                  #  VREF          REFERENCE VELOCITY FOR UPCONTROL        2 VSAT
037383,000119:                                                                                                  #  VREF( )       REFERENCE V     (FINAL PHASE TABLE)     2 VSAT                    NOT STORED
037384,000120:                                                                                                  #  VS1           VSAT OR V1, WHICHEVER IS SMALLER        2 VSAT
037385,000121:                                                                                                  #                  2     2
037386,000122:                                                                                                  #  VBARS         VL /VSAT                                4
037387,000123:                                                                                                  #                                           2     2
037388,000124:                                                                                                  #  VSQ           NORMALISED VEL. SQUARED = V /VSAT       4                       = VSQUARE
037389,000125: 
037390,000126:                                                                                                  #  WT            EARTH RATE TIMES TIME                   1 REVOLUTION              NOT SAVED

Page 845

037392,000128:                                                                                                  #                                                                                = WIE (DTEAROT)
037393,000129:                                                                                                  #  X             INTERMEDIATE VARIABLE IN G-LIMITER      2 VSAT                    NOT SAVED
037394,000130:                                                                                                  #  Y             LATERAL MISS LIMIT                      4 RADIANS                 NOT SAVED
037395,000131: 
037396,000132:                                                                                                  #  FIGURE 7.0-2A         COMPUTER VARIABLES (CONTINUED)
037397,000133: 

Page 846

037399,000135:                                                                                                  #  EXTRA COMPUTER ERASABLE LOCATIONS NOT SHOWN ON FLOW CHARTS
037400,000136:                                                                                                  #  -----------------------------------------------------------
037401,000137: 
037402,000138:                                                                                                  #  VARIABLE      DESCRIPTION                             MAXIMUM VALUE
037403,000139:                                                                                                  #  --------      -----------                             ------- -----
037404,000140: 
037405,000141:                                                                                                  #  GOTOADDR      ADDRESS SELECTED BY SEQUENCER
037406,000142:                                                                                                  #  XPIPBUF       BUFFER TO STORE X PIPA COUNTS
037407,000143:                                                                                                  #  YPIPBUF       BUFFER TO STORE Y PIPA COUNTS
037408,000144:                                                                                                  #  ZPIPBUF       BUFFER TO STORE Z PIPA COUNTS
037409,000145:                                                                                                  #  PIPCTR        COUNTS PASSES THRU PIPA READ ROUTINE
037410,000146:                                                                                                  #  JJ            INDEX IN FINAL PHASE TABLE LOOK-UP
037411,000147:                                                                                                  #  MM            INDEX IN FINAL PHASE TABLE LOOK-UP
037412,000148:                                                                                                  #  GRAD          INTERPOLATION FACTOR IN FINAL PHASE
037413,000149:                                                                                                  #  FX            DRANGE/D L/D = F3                       2700 NM
037414,000150:                                                                                                  #  FX + 1        AREF                                    805 FPSS
037415,000151:                                                                                                  #  FX + 2        RTOGO                                   2700 NM
037416,000152:                                                                                                  #  FX + 3        RDOTREF                                 VSAT/4
037417,000153:                                                                                                  #  FX + 4        DRANGE/D RDOT = F2                      21600/2VS NM/FPS
037418,000154:                                                                                                  #  FX + 5        DRANGE/D DRAG = F1                      2700/805 NM/FPSS
037419,000155:                                                                                                  #  TEM1B         TEMPORARY LOCATION
037420,000156:                                                                                                  #  TIME/RTO      TIME OF INITIAL TARGET RTINIT           B 28 CENTISEC
037421,000157:                                                                                                  #  DTEAROT       EST TIME BETWEEN RTINIT AND RT          B 28 CENTISEC
037422,000158:                                                                                                  #  -
037423,000159:                                                                                                  #  UNITV         UNIT V VECTOR                           2
037424,000160:                                                                                                  #  -
037425,000161:                                                                                                  #  UNITR         UNIT R VECTOR                           2
037426,000162:                                                                                                  #   -
037427,000163:                                                                                                  #  -VREL         NEGATIVE VELOCITY REL TO ATMOSP         2 VSAT
037428,000164: 
037429,000165:                                                                                                  #  COMPUTER SWITCHES                                     INITIAL STATE           CM/FLAGS = STATE +6
037430,000166:                                                                                                  #  -------- --------                                     -------------           -------------------
037431,000167: 
037432,000168:                                                                                                  #  ENTRYDSP      DO ENTRY DISPLAY, IF SET                NON-BRANCH (1)          92D, BIT13
037433,000169:                                                                                                  #  GONEPAST      INDICATES OVERSHOOT OF TARGET               BRANCH (1)          95D, BIT10
037434,000170:                                                                                                  #  RELVELSW      RELATIVE VELOCITY SWITCH                NON-BRANCH (0)          96D, BIT 9
037435,000171:                                                                                                  #  EGSW          FINAL PHASE SWITCH                      NON-BRANCH (0)          97D, BIT 8
037436,000172:                                                                                                  #  NOSWITCH      INHIBIT LATERAL SWITCH                  NON-BRANCH (0)          98D, BIT 7
037437,000173:                                                                                                  #  HIND          INDICATES ITERATION IN HUNTEST          NON-BRANCH (0)          99D, BIT 6
037438,000174:                                                                                                  #  INRLSW        INDICATES INIT ROLL ATTITUDE SET        NON-BRANCH (0)         100D, BIT 5
037439,000175:                                                                                                  #  LATSW         INHIBIT DOWNLIFT SWITCH IF NOT SET          BRANCH (1)         101D, BIT 4
037440,000176:                                                                                                  #  .05GSW        INDICATES DRAG EXCEEDS .05 GS           NON-BRANCH (0)         102D, BIT 3
037441,000177: 
037442,000178:                                                                                                  #  GONEBY        INDICATES GONE PAST TARGET (SET)        SELF-INITIALIZING      112D, BIT 8 IN STATE +7
037443,000179: 
037444,000180:                                                                                                  #  FIGURE 7.0-2B         COMPUTER VARIABLES (CONTINUED)
037445,000181: 

Page 847

037447,000183:                                                                                                  #  BODY ATTITUDE QUANTITIES  (CM/POSE)
037448,000184:                                                                                                  #  -----------------------------------
037449,000185: 
037450,000186:                                                                                                  #  VARIABLE      DECRIPTION                              MAXIMUM VALUE
037451,000187:                                                                                                  #  --------      ----------                              ------- -----
037452,000188:                                                                                                  #   -
037453,000189:                                                                                                  #  -VREL         NEGATIVE VELOCITY REL TO ATMOS.         2 VSAT
037454,000190:                                                                                                  #  -                      -
037455,000191:                                                                                                  #  OLDUYA        USED FOR UYA BELOW 1000 FPS             2
037456,000192: 
037457,000193:                                                                                                  #  -
037458,000194:                                                                                                  #  UXA/2         UNIT VECTOR TRIAD                       2
037459,000195:                                                                                                  #  -
037460,000196:                                                                                                  #  UYA/2                 BASED ON                        2
037461,000197:                                                                                                  #  -
037462,000198:                                                                                                  #  UZA/2                         THE TRAJECTORY.         2
037463,000199: 
037464,000200:                                                                                                  #  -
037465,000201:                                                                                                  #  UBX/2         UNIT VECTOR                             2
037466,000202:                                                                                                  #  -
037467,000203:                                                                                                  #  UBY/2                 BODY TRIAD                      2
037468,000204:                                                                                                  #  -
037469,000205:                                                                                                  #  UBZ/2                         FOR CM.                 2
037470,000206: 
037471,000207:                                                                                                  #  FIGURE 7.0-2C         COMPUTER VARIABLES (CONTINUED)
037472,000208: 

Page 848

037474,000210:                                                                                                  #  DISPLAY QUANTITIES            (FOR USAGE,SEE SECTION 4: P 61 THROUGH P 67)
037475,000211:                                                                                                  #  ------------------
037476,000212: 
037477,000213:                                                                                                  #   THIS TABLE PROVIDES THE READER WITH DISPLAY QUANTITY INFORMATION. THE VARIABLE NAMES REFLECT
037478,000214:                                                                                                  #  SECTION 5 USAGE.  EXCEPTING IMBEDDED BLANKS, THE SECTION 4 NAMES ARE PARENTHESIZED,IF DIFFERENT.
037479,000215:                                                                                                  #  SIGN CONVENTIONS ARE FOUND IN SECTION 4. IF THE DISPLAY VARIABLE NAME DIFFERS FROM SECTION 5 USAGE,
037480,000216:                                                                                                  #  SAY BECAUSE OF SCALE FACTOR, THE ALTERNATE SECTION 5 NAME IS ENCLOSED IN ANGULAR BRACKETS: < >.
037481,000217:                                                                                                  #  DISPLAY QUANTITY INFORMATION APPEARING ELSEWHERE IN SECTION 5 OTHER THAN IN 5 7 MAY BE FOUND THUS:
037482,000218:                                                                                                  #                   N 60 & N 63  (ALL)       FIGURE 6.10-4  IN 5.6.10.3
037483,000219:                                                                                                  #                   N 22 (ALL)               FIGURE 6.10-11 IN 5.6.10.6
037484,000220:                                                                                                  #                   N67 (LAT, LONG)          FIGURE 5.3-1   IN 5.5.3
037485,000221: 
037486,000222:                                                                                                  #  VARIABLE      DESCRIPTION                             MAXIMUM VALUE   DISPLAY NOUNS
037487,000223:                                                                                                  #  --------      -----------                             ------- -----   ------- -----
037488,000224: 
037489,000225:                                                                                                  #  GMAX          PREDICTED MAXIMUM ENTRY ACCEL           163.84 GS       N 60
037490,000226:                                                                                                  #  VPRED         PREDICTED VELOCITY AT ALTITUDE          128 M/CENTISEC  N 60
037491,000227:                                                                                                  #                400K FT ABOVE FISCHER RADIUS.
037492,000228:                                                                                                  #  GAMMAEI       PREDICTED GAMMA AT ALTITUDE             1 REVOLUTION    N 60
037493,000229:                                                                                                  #                400K FT ABOVE FISCHER RADIUS.
037494,000230:                                                                                                  #  RTGO          RANGE ANGLE TO SPLASH (RTOGO)           1 REVOLUTION    N 63
037495,000231:                                                                                                  #                FROM EMSALT FT ABOVE FISCHER
037496,000232:                                                                                                  #                RADIUS. (IN NM)
037497,000233:                                                                                                  #  VIO           PREDICTED VELOCITY AT ALTITUDE          128 M/CENTISEC  N 63
037498,000234:                                                                                                  #                EMSALT FT ABOVE FISCHER RADIUS.
037499,000235:                                                                                                  #  TTE           TIME OF FREE FALL (TFE)  TO             B 28 CENTISEC   N 63
037500,000236:                                                                                                  #                ALTITUDE EMSALT FT ABOVE FISCHER 
037501,000237:                                                                                                  #                RADIUS.
037502,000238:                                                                                                  #  OGA           OUTER GIMBAL ANGLE  (OG ROLL)           1 REVOLUTION    N 22
037503,000239:                                                                                                  #  IGA           INNER GIMBAL ANGLE  (IG PITCH)          1 REVOLUTION    N 22
037504,000240:                                                                                                  #  MGA           MIDDLE GIMBAL ANGLE (MG YAW)            1 REVOLUTION    N 22
037505,000241:                                                                                                  #                ALL ABOVE ANGLES FOR HYPERSONIC TRIM
037506,000242:                                                                                                  #  D             DRAG ACCELERATION  (G)                  805 FPSS                N 64,                   N 74
037507,000243:                                                                                                  #  VMAGI         INERTIAL VELOCITY MAGNITUDE (VI)        128 M/CENTISEC          N 64,   N 68,           N 74
037508,000244:                                                                                                  #  ROLLC         ROLL COMMAND  (BETA)                    1 REVOLUTION    N 66,           N 68,   N 69,   N 74
037509,000245:                                                                                                  #  XRNGERR       CROSS-RANGE ERROR <LATANG IN NM>        1 REVOLUTION    N 66
037510,000246:                                                                                                  #  DNRNGERR      DOWN RANGE ERROR **                     1 REVOLUTION    N 66
037511,000247:                                                                                                  #                <PREDANG - THETAH   IN NM>
037512,000248:                                                                                                  #                ** <DNRNGERR DISPLAYS 9999.9  IF GONEPAST =1  IN P 67>
037513,000249:                                                                                                  #  HDOT          ALTITUDE RATE  <RDOT>                   128 M/CENTISEC                  N 68
037514,000250:                                                                                                  #  Q7            EXIT DRAG LEVEL  (DL)                   805 FPSS                                N 69
037515,000251:                                                                                                  #  VL            EXIT VELOCITY FOR UP-CONTROL            2 VSAT                                  N 69
037516,000252:                                                                                                  #  RTOGO         DESIRED RANGE ANGLE <THETAH>            1 REVOLUTION    N 67,   N 64
037517,000253:                                                                                                  #                <-THETAH IF GONEBY =0,  THETAH IF GONEBY =1>
037518,000254:                                                                                                  #  LAT           GEODETIC LATITUDE OF VEHICLE            1 REVOLUTION    N 67
037519,000255:                                                                                                  #  LONG          LONGITUDE OF VEHICLE                    1 REVOLUTION    N 67
037520,000256: 
037521,000257:                                                                                                  #  THE FOLLOWING IS A DATA INPUT NOUN (REFER TO SECTION 4,P 61 & P 62)
037522,000258:                                                                                                  #  HEADSUP       INDICATOR FOR INITIAL ROLL              1 REVOLUTION    N 61
037523,000259:                                                                                                  #  LAT(SPL)      GEODETIC LATITUDE OF TARGET             1 REVOLUTION    N 61

Page 849

037525,000261:                                                                                                  #                (IMPACT LAT)
037526,000262:                                                                                                  #  LNG(SPL)      LONGITUDE OF TARGET (IMPACT LONG)       1 REVOLUTION    N 61
037527,000263: 
037528,000264:                                                                                                  #  FIGURE 7.0-2D         COMPUTER VARIABLES  (CONTINUED)
037529,000265: 
037530,000266: 

Page 850

037532,000268:                                                                                                  #  CONSTANTS AND GAINS                                                   VALUE
037533,000269:                                                                                                  #  -------------------                                                   -----
037534,000270: 
037535,000271:                                                                                                  #  C1            FACTOR IN ALP COMPUTATION                               1.25
037536,000272:                                                                                                  #  C16           CONSTD GAIN ON DRAG                                     0.01
037537,000273:                                                                                                  #  C17           CONSTD GAIN ON RDOT                                     0.002
037538,000274:                                                                                                  #  C18           BIAS VEL. FOR FINAL PHASE START                         500     FPS
037539,000275:                                                                                                  #  C20           MAX DRAG FOR DOWN-LIFT                                  210     FPSS
037540,000276:                                                                                                  #  C21           DRAG FOR NO LATERAL SWITCH                              140     FPSS
037541,000277:                                                                                                  #  CHOOK         FACTOR IN AHOOK COMPUTATION                             0.25
037542,000278:                                                                                                  #  CH1           FACTOR IN GAMMAL COMPUTATION                            1.0
037543,000279:                                                                                                  #  COS15         COS( 15 DEG)                                            0.965
037544,000280:                                                                                                  #  DLEWD0        INITIAL VARIATION IN LEWD                              -0.05
037545,000281:                                                                                                  #  DT            COMPUTATION CYCLE TIME INTERVAL                         2       SEC.
037546,000282:                                                                                                  #  GMAX          MAXIMUM ACCELERATION                                    257.6   FPSS    (8 G-S)
037547,000283:                                                                                                  #  KA1           FACTOR IN KA CALC                                       1.3 GS
037548,000284:                                                                                                  #  KA2           FACTOR IN KA CALC                                       0.2 GS
037549,000285:                                                                                                  #  KA3           FACTOR IN D0 CALC                                       90  FPSS
037550,000286:                                                                                                  #  KA4           FACTOR IN D0 CALC                                       40  FPSS
037551,000287:                                                                                                  #  KB1           OPTIMIZED UPCONTROL GAIN                                2.5
037552,000288:                                                                                                  #  KB2           OPTIMIZED UPCONTROL GAIN                                0.0025
037553,000289:                                                                                                  #  KDMIN         INCREMENT ON Q7F TO DETECT END OF KEPLER PHASE          0.5     FPSS
037554,000290:                                                                                                  #  KTETA         TIME OF FLIGHT CONSTANT                                 1000
037555,000291:                                                                                                  #  KLAT1         FACTOR IN KLAT CALC                                     1/24
037556,000292:                                                                                                  #  K44           GAIN USED IN INITIAL ROLL SECTION                       19749550 FPS
037557,000293:                                                                                                  #  LATBIAS       LATERAL SWITCH BIAS TERM                                0.41252961 NM
037558,000294:                                                                                                  #  LEWD1         NOMINAL UPCONTROL L/D                                   0.15
037559,000295:                                                                                                  #  POINT1        FACTOR TO REDUCE UPCONTROL GAIN                         0.1
037560,000296:                                                                                                  #  Q3            FINAL PHASE DRANGE/D V                                  0.07    NM/FPS
037561,000297:                                                                                                  #  Q5            FINAL PHASE DRANGE/ D GAMMA                             7050    NM/RAD
037562,000298:                                                                                                  #  Q6            FINAL PHASE INITIAL FLIGHT PATH ANGLE                   0.0349  RAD
037563,000299:                                                                                                  #  Q7F           MIN DRAG FOR UPCONTROL                                  6       FPSS
037564,000300:                                                                                                  #  Q7MIN         MIN VALUE FOR Q7 IN FACTOR CALCULATION                  805     FPSS    (DISABLE FACTOR)
037565,000301:                                                                                                  #  Q19           FACTOR IN GAMMAL1 CALCULATION                           0.5
037566,000302:                                                                                                  #  Q21           FACTOR IN Q2 CALCULATION.                               3500    NM
037567,000303:                                                                                                  #  Q22           FACTOR IN Q2 CALCULATION.                               -1992   NM
037568,000304:                                                                                                  #  VFINAL1       VELOCITY TO START FINAL PHASE ON INITIAL ENTRY          27000   FPS
037569,000305:                                                                                                  #  VFINAL        FACTOR IN INITIAL UP-DOWN CALC                          26600   FPS
037570,000306:                                                                                                  #  VLMIN         MINIMUM VL                                              18000   FPS
037571,000307:                                                                                                  #  VMIN          VELOCITY TO SWITCH TO RELATIVE VEL                      VSAT/2
037572,000308:                                                                                                  #  VRCONTRL      RDOT TO START INTO HUNTEST                              700     FPS
037573,000309:                                                                                                  #                VRCONT = COMPUTER NAME
037574,000310:                                                                                                  #  25NM          TOLERANCE TO STOP RANGE ITERATION                       25      NM
037575,000311:                                                                                                  #  VQUIT         VELOCITY TO STOP STEERING                               1000    FPS
037576,000312: 

Page 851

037578,000314:                                                                                                  #  CONVERSION FACTORS AND SCALING CONSTANTS
037579,000315:                                                                                                  #  ---------- ------- --- ------- ---------
037580,000316: 
037581,000317:                                                                                                  #  ATK   ANGLE IN RAD TO NM                                              3437.7468       NM/RAD
037582,000318:                                                                                                  #  GS    NOMINAL G VALUE FOR SCALING                                     32.2            FPSS
037583,000319:                                                                                                  #  HS    ATMOSPHERE SCALE HEIGHT                                         28500           FT
037584,000320:                                                                                                  #  J     GRAVITY HARMONIC COEFFICIENT                                    0.00162346      
037585,000321:                                                                                                  #  KWE   EQUATORIAL EARTH RATE                                           1546.70168      FPS
037586,000322:                                                                                                  #  MUE   EARTH GRAVITATIONAL CONSTANT                                    3.986032233 E 14 CUBIC M/ SEC SEC
037587,000323:                                                                                                  #  RE    EARTH RADIUS                                                    21202900        FT
037588,000324:                                                                                                  #  REQ   EARTH EQUATORIAL RADIUS                                         20925738.2      FT
037589,000325:                                                                                                  #  VSAT  SATELLITE VELOCITY AT RE                                        25766.1973      FPS
037590,000326:                                                                                                  #  WIE   EARTH RATE                                                      0.0000729211505 RAD/SEC
037591,000327: 
037592,000328:                                                                                                  #  FIGURE 7.0-3          CONSTANTS, GAINS AND CONVERSION FACTORS

End of include-file ENTRY_LEXICON.agc.  Parent file is MAIN.agc