Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

037132,000002:                                                                                                 #  Copyright:     Public domain.
037133,000003:                                                                                                 #  Filename:      ENTRY_LEXICON.agc
037134,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
037135,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
037136,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
037137,000007:                                                                                                 #                 Apollo 15-17.
037138,000008:                                                                                                 #  Assembler:     yaYUL
037139,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
037140,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
037141,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
037142,000012:                                                                                                 #  Mod history:   2009-08-11 JL   Adapted from corresponding Comanche 055 file.
037143,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
037144,000014: 

Page 842

037146,000016: 
037147,000017:                                                                                                 #  VARIABLE       DESCRIPTION                             MAXIMUM VALUE *         COMPUTER NAME
037148,000018:                                                                                                 #  --------       -----------                             ------- -----           -------- ----
037149,000019:                                                                                                 #  _
037150,000020:                                                                                                 #  URT0           INITIAL TARGET VECTOR                   2 (UNIT VECTOR)         = RTINIT
037151,000021:                                                                                                 #  _
037152,000022:                                                                                                 #  UZ             UNIT VECTOR NORTH                       1                       = UNITW
037153,000023:                                                                                                 #  _
037154,000024:                                                                                                 #  V              VELOCITY VECTOR                         2 VSAT                  = VEL
037155,000025:                                                                                                 #  _
037156,000026:                                                                                                 #  R              POSITION VECTOR                         2 EXP 29 METERS         = RN
037157,000027:                                                                                                 #  _
037158,000028:                                                                                                 #  VI             INERTIAL VELOCITY                       128 M/CENTISEC          = VN
037159,000029:                                                                                                 #  _
037160,000030:                                                                                                 #  RTE            VECTOR EAST AT INITIAL TARGET           2                       = RTEAST
037161,000031:                                                                                                 #  _
037162,000032:                                                                                                 #  UTR            NORMAL TO RTE AND UZ                    2                       = RTNORM
037163,000033:                                                                                                 #  _
037164,000034:                                                                                                 #  URT            TARGET VECTOR                           2                       = RT
037165,000035:                                                                                                 #  _
037166,000036:                                                                                                 #  UNI            UNIT NORMAL TO TRAJECTORY PLANE         2       
037167,000037:                                                                                                 #  _
037168,000038:                                                                                                 #  DELV           INTEGRATED ACCEL. FROM PIPAS            5.85 16384 CM/S
037169,000039:                                                                                                 #  _
037170,000040:                                                                                                 #  G              GRAVITY VECTOR                          128 M/CENTISEC          = GDT/2
037171,000041: 
037172,000042:                                                                                                 #  A0             INITIAL DRAG FOR UPCONTRL               805 FPSS                FPSS=FT/SEC/SEC
037173,000043:                                                                                                 #  AHOOKDV        TERM IN GAMMAL CALC. = AHOOK DVL        8
037174,000044:                                                                                                 #  A1             DRAG VALUE IN FACTOR CALCULATION        805 FPSS
037175,000045:                                                                                                 #  ALP            CONST FOR UPCONTRL                      1
037176,000046:                                                                                                 #  ASKEP          KEPLER RANGE                            21600 NM                NM = NAUTICAL MILE
037177,000047:                                                                                                 #  ASP1           FINAL PHASE RANGE                       21600 NM
037178,000048:                                                                                                 #  ASPUP          UP-RANGE                                21600 NM
037179,000049:                                                                                                 #  ASP3           GAMMA CORRECTION                        21600 NM
037180,000050:                                                                                                 #  ASPDWN RANGE DOWN TO PULL-UP                   21600 NM
037181,000051:                                                                                                 #  ASP            PREDICTED RANGE                         21600 NM                  NOT STORED
037182,000052:                                                                                                 #  COSG           COSINE(GAMMAL)                          2                       = COSG/2
037183,000053:                                                                                                 #  C/D0           RECIPROCAL DRAG, -4/D0 B-8              64/FPSS                 AGC ONLY
037184,000054:                                                                                                 #  D              TOTAL ACCELERATION                      805 FPSS
037185,000055:                                                                                                 #  D0             CONTROLLED CONSTANT D                   805 FPSS
037186,000056:                                                                                                 #  DHOOK          TERM IN GAMMAL COMPUTATION              805 FPSS
037187,000057:                                                                                                 #  DIFF           THETNM-ASP (RANGE DIFFERENCE)           21600 NM
037188,000058:                                                                                                 #  DIFFOLD        PREVIOUS VALUE OF DIFF                  21600 NM
037189,000059:                                                                                                 #  DLEWD          CHANGE IN LEWD                          1
037190,000060:                                                                                                 #  DR             REFERENCE DRAG FOR DOWNCONTROL          805 FPSS                  NOT STORED
037191,000061:                                                                                                 #  DREFR( )       REFERENCE DRAG (FINAL PHASE TABLE)      805 FPSS                  NOT SAVED
037192,000062:                                                                                                 #  DVL            VS1-VL                                  2 VSAT
037193,000063:                                                                                                 #  E              ECCENTRICITY                            4                         NOT STORED
037194,000064:                                                                                                 #  F1( )          DRANGE/D DRAG (FINAL PHASE TABLE)       2700/805                = FX +5
037195,000065:                                                                                                 #  F2( )          DRANGE/D RDOT (FINAL PHASE TABLE)       2700/2VS NM/FPS         = FX +4 /8

Page 843

037197,000067:                                                                                                 #  F3( )          DRANGE/D (L/D) (FINAL PHASE TABLE)      2700 NM                 = FX
037198,000068: 
037199,000069:                                                                                                 #                                                                         * MAXIMUM VALUE DENOTES UNSCALED
037200,000070:                                                                                                 #                                                                           VARIABLE VALUE WHEN SCALED
037201,000071:                                                                                                 #  FIGURE 7.0-2           COMPUTER VARIABLES                                VARIABLE HAS MAXIMUM VALUE OF ONE.
037202,000072: 

Page 844

037204,000074: 
037205,000075:                                                                                                 #  VARIABLE       DESCRIPTION                             MAXIMUM VALUE           COMPUTER NAME
037206,000076:                                                                                                 #  --------       -----------                             ------- -----           -------- ----
037207,000077: 
037208,000078:                                                                                                 #  FACT1          CONST FOR UPCONTRL                      2 VSAT
037209,000079:                                                                                                 #  FACT2          CONST FOR UPCONTRL                      1/805 FPSS
037210,000080:                                                                                                 #  FACTOR USED IN UPCONTRL                        1
037211,000081:                                                                                                 #  GAMMAL FLIGHT PATH ANGLE AT VL                 1 RADIAN
037212,000082:                                                                                                 #  GAMMAL1        SIMPLE FORM OF GAMMAL                   1 RADIAN
037213,000083:                                                                                                 #  HEADSUP        INDICATOR FOR INITIAL ROLL              1
037214,000084:                                                                                                 #  KA             DRAG TO LIFT UP IF DOWN                 805 FPSS                = KAT
037215,000085:                                                                                                 #  KLAT           LATERAL SWITCH GAIN                     1               (NOM = .0125)
037216,000086:                                                                                                 #  K2ROLL INDICATOR FOR ROLL SWITCH               
037217,000087:                                                                                                 #  LAD            MAX L/D (MIN ACTUAL VEHICLE L/D)        1
037218,000088:                                                                                                 #  LADPAD NOMINAL VEHICLE L/D, SP PAD LOAD        1               (NOM = 0.3)
037219,000089:                                                                                                 #  LATANG LATERAL RANGE                           4 RADIANS
037220,000090:                                                                                                 #  LAT(SPL)       GEODETIC LATITUDE OF TARGET             1 REVOLUTION
037221,000091:                                                                                                 #  LNG(SPL)       LONGITUDE OF TARGET                     1 REVOLUTION
037222,000092:                                                                                                 #  LEQ            EXCESS C.F. OVER GRAV=(VSQ-1)GS         128.8 FPSS
037223,000093:                                                                                                 #  LEWD           UPCONTROL REFERENCE L/D                 1
037224,000094:                                                                                                 #  LOD            FINAL PHASE L/D                         1               (NOM = 0.18)
037225,000095:                                                                                                 #  LODPAD FINAL PHASE L/D, SP PAD LOAD            1
037226,000096:                                                                                                 #  L/D            DESIRED LIFT TO DRAG RATIO              1
037227,000097:                                                                                                 #                 (VERTICAL PLANE)
037228,000098:                                                                                                 #  L/D1           TEMP STORAGE FOR L/D IN LATERAL         1
037229,000099:                                                                                                 #  L/DCMINR       LAD COS(15DEG)                          1               (NOM = 0.2895)
037230,000100:                                                                                                 #  PREDANGL       PREDICTED RANGE  (FINAL PHASE)          2700 NM                 = PREDANG
037231,000101:                                                                                                 #  Q2             FINAL PHASE RANGE                       21600 NM
037232,000102:                                                                                                 #  Q7             MINIMUM DRAG FOR UPCONTROL              805FPSS
037233,000103:                                                                                                 #  RDOT           ALTITUDE RATE                           2 VSAT
037234,000104:                                                                                                 #  RDOTREF        REFERENCE RDOT FOR UPCONTROL            2 VSAT
037235,000105:                                                                                                 #  RDOTREF( )     REFERENCE RDOT (FINAL PHASE TABLE)      2 VSAT                  = FX +3 /8
037236,000106:                                                                                                 #  RDTR           REFERENCE RDOT FOR DOWNCONT             2 VSAT                    NOT SAVED
037237,000107:                                                                                                 #  ROLLC          ROLL COMMAND                            1 REVOLUTION
037238,000108:                                                                                                 #  RTOGO( )       RANGE TO GO (FINAL PHASE TABLE)         2700 NM                 = FX +2
037239,000109:                                                                                                 #  SL             SINE OF LATITUDE                        1                         NOT SAVED
037240,000110:                                                                                                 #  T              TIME                                    B 28 CENTISEC           = PIPTIME-TIME/RTO
037241,000111:                                                                                                 #  THETA          DESIRED RANGE (RADIANS)                 2 PI RADIANS            = THETAH
037242,000112:                                                                                                 #  THETNM DESIRED RANGE (NM)                      21600 NM                  NON EXISTENT
037243,000113:                                                                                                 #  V              VELOCITY MAGNITUDE                      2 VSAT
037244,000114:                                                                                                 #  V1             INITIAL VELOCITY FOR UPCONTROL          2 VSAT
037245,000115:                                                                                                 #  VL             EXIT VELOCITY FOR UPCONTROL             2 VSAT
037246,000116:                                                                                                 #  VMAGI          INERTIAL VELOCITY MAGNITUDE,|VI|        128 M/CENTISEC
037247,000117:                                                                                                 #  VREF           REFERENCE VELOCITY FOR UPCONTROL        2 VSAT
037248,000118:                                                                                                 #  VREF( )        REFERENCE V     (FINAL PHASE TABLE)     2 VSAT                    NOT STORED
037249,000119:                                                                                                 #  VS1            VSAT OR V1, WHICHEVER IS SMALLER        2 VSAT
037250,000120:                                                                                                 #                   2     2
037251,000121:                                                                                                 #  VBARS          VL /VSAT                                4
037252,000122:                                                                                                 #                                            2     2
037253,000123:                                                                                                 #  VSQ            NORMALIZED VEL. SQUARED = V /VSAT       4                       = VSQUARE
037254,000124: 
037255,000125:                                                                                                 #  WT             EARTH RATE TIMES TIME                   1 REVOLUTION              NOT SAVED

Page 845

037257,000127:                                                                                                 #                                                                                 = WIE (DTEAROT)
037258,000128:                                                                                                 #  X              INTERMEDIATE VARIABLE IN G-LIMITER      2 VSAT                    NOT SAVED
037259,000129:                                                                                                 #  Y              LATERAL MISS LIMIT                      4 RADIANS                 NOT SAVED
037260,000130: 
037261,000131:                                                                                                 #  FIGURE 7.0-2A          COMPUTER VARIABLES (CONTINUED)
037262,000132: 

Page 846

037264,000134:                                                                                                 #  EXTRA COMPUTER ERASABLE LOCATIONS NOT SHOWN ON FLOW CHARTS
037265,000135:                                                                                                 #  -----------------------------------------------------------
037266,000136: 
037267,000137:                                                                                                 #  VARIABLE       DESCRIPTION                             MAXIMUM VALUE
037268,000138:                                                                                                 #  --------       -----------                             ------- -----
037269,000139: 
037270,000140:                                                                                                 #  GOTOADDR       ADDRESS SELECTED BY SEQUENCER
037271,000141:                                                                                                 #  XPIPBUF        BUFFER TO STORE X PIPA COUNTS
037272,000142:                                                                                                 #  YPIPBUF        BUFFER TO STORE Y PIPA COUNTS
037273,000143:                                                                                                 #  ZPIPBUF        BUFFER TO STORE Z PIPA COUNTS
037274,000144:                                                                                                 #  PIPCTR COUNTS PASSES THRU PIPA READ ROUTINE
037275,000145:                                                                                                 #  JJ             INDEX IN FINAL PHASE TABLE LOOK-UP
037276,000146:                                                                                                 #  MM             INDEX IN FINAL PHASE TABLE LOOK-UP
037277,000147:                                                                                                 #  GRAD           INTERPOLATION FACTOR IN FINAL PHASE
037278,000148:                                                                                                 #  FX             DRANGE/D L/D = F3                       2700 NM
037279,000149:                                                                                                 #  FX + 1 AREF                                    805 FPSS
037280,000150:                                                                                                 #  FX + 2 RTOGO                                   2700 NM
037281,000151:                                                                                                 #  FX + 3 RDOTREF                                 VSAT/4
037282,000152:                                                                                                 #  FX + 4 DRANGE/D RDOT = F2                      21600/2VS NM/FPS
037283,000153:                                                                                                 #  FX + 5 DRANGE/D DRAG = F1                      2700/805 NM/FPSS
037284,000154:                                                                                                 #  TEM1B          TEMPORARY LOCATION
037285,000155:                                                                                                 #  TIME/RTO       TIME OF INITIAL TARGET RTINIT           B 28 CENTISEC
037286,000156:                                                                                                 #  DTEAROT        EST TIME BETWEEN RTINIT AND RT          B 28 CENTISEC
037287,000157:                                                                                                 #  _
037288,000158:                                                                                                 #  UNITV          UNIT V VECTOR                           2
037289,000159:                                                                                                 #  _
037290,000160:                                                                                                 #  UNITR          UNIT R VECTOR                           2
037291,000161:                                                                                                 #   _
037292,000162:                                                                                                 #  -VREL          NEGATIVE VELOCITY REL TO ATMOSP         2 VSAT
037293,000163: 
037294,000164:                                                                                                 #  COMPUTER SWITCHES                                      INITIAL STATE           CM/FLAGS = STATE +6
037295,000165:                                                                                                 #  -----------------                                      -------------           -------------------
037296,000166: 
037297,000167:                                                                                                 #  ENTRYDSP       DO ENTRY DISPLAY, IF SET                NON-BRANCH (1)          92D, BIT 13
037298,000168:                                                                                                 #  GONEPAST       INDICATES OVERSHOOT OF TARGET               BRANCH (1)          95D, BIT 10
037299,000169:                                                                                                 #  RELVELSW       RELATIVE VELOCITY SWITCH                NON-BRANCH (0)          96D, BIT 9
037300,000170:                                                                                                 #  EGSW           FINAL PHASE SWITCH                      NON-BRANCH (0)          97D, BIT 8
037301,000171:                                                                                                 #  NOSWITCH       INHIBIT LATERAL SWITCH                  NON-BRANCH (0)          98D, BIT 7
037302,000172:                                                                                                 #  HIND           INDICATES ITERATION IN HUNTEST          NON-BRANCH (0)          99D, BIT 6
037303,000173:                                                                                                 #  INRLSW INDICATES INIT ROLL ATTITUDE SET        NON-BRANCH (0)          100D, BIT 5
037304,000174:                                                                                                 #  LATSW          INHIBIT DOWNLIFT SWITCH IF NOT SET          BRANCH (1)          101D, BIT 4
037305,000175:                                                                                                 #  .05GSW INDICATES DRAG EXCEEDS .05 GS           NON-BRANCH (0)          102D, BIT 3
037306,000176: 
037307,000177:                                                                                                 #  GONEBY INDICATES GONE PAST TARGET (SET)        SELF-INITIALIZING       112D, BIT 8 IN STATE +7
037308,000178: 
037309,000179:                                                                                                 #  FIGURE 7.0-2B          COMPUTER VARIABLES (CONTINUED)
037310,000180: 

Page 847

037312,000182:                                                                                                 #  BODY ATTITUDE QUANTITIES (CM/POSE)
037313,000183:                                                                                                 #  ----------------------------------
037314,000184: 
037315,000185:                                                                                                 #  VARIABLE       DECRIPTION                              MAXIMUM VALUE
037316,000186:                                                                                                 #  --------       ----------                              ------- -----
037317,000187:                                                                                                 #   _
037318,000188:                                                                                                 #  -VREL          NEGATIVE VELOCITY REL TO ATMOS.         2 VSAT
037319,000189:                                                                                                 #  _
037320,000190:                                                                                                 #  OLDUYA USED FOR UYA BELOW 1000 FPS             2
037321,000191: 
037322,000192:                                                                                                 #  _
037323,000193:                                                                                                 #  UXA/2          UNIT VECTOR TRIAD                       2
037324,000194:                                                                                                 #  _
037325,000195:                                                                                                 #  UYA/2                  BASED ON                        2
037326,000196:                                                                                                 #  _
037327,000197:                                                                                                 #  UZA/2                          THE TRAJECTORY.         2
037328,000198: 
037329,000199:                                                                                                 #  _
037330,000200:                                                                                                 #  UBX/2          UNIT VECTOR                             2
037331,000201:                                                                                                 #  _
037332,000202:                                                                                                 #  UBY/2                  BODY TRIAD                      2
037333,000203:                                                                                                 #  _
037334,000204:                                                                                                 #  UBZ/2                          FOR CM.                 2
037335,000205: 
037336,000206:                                                                                                 #  FIGURE 7.0-2C          COMPUTER VARIABLES (CONTINUED)
037337,000207: 

Page 848

037339,000209:                                                                                                 #  DISPLAY QUANTITIES             (FOR USAGE, SEE SECTION 4: P 61 THROUGH P 67)
037340,000210:                                                                                                 #  ------------------
037341,000211: 
037342,000212:                                                                                                 #  THIS TABLE PROVIDES THE READER WITH DISPLAY QUANTITY INFORMATION. THE VARIABLE NAMES REFLECT
037343,000213:                                                                                                 #  SECTION 5 USAGE.  EXCEPTING IMBEDDED BLANKS, THE SECTION 4 NAMES ARE PARENTHISIZED, IF DIFFERENT.
037344,000214:                                                                                                 #  SIGN CONVENTIONS ARE FOUND IN SECTION 4. IF THE DISPLAY VARIABLE NAME DIFFERS FROM SECTION 5 USAGE,
037345,000215:                                                                                                 #  SAY BECAUSE OF SCALE FACTOR, THE ALTERNATE SECTION 5 NAME IS ENCLOSED IN ANGULAR BRACKETS: < >.
037346,000216:                                                                                                 #  DISPLAY QUANTITY INFORMATION APPEARING ELSEWHERE IN SECTION 5 OTHER THAN IN 5 7 MAY BE FOUND THUS:
037347,000217:                                                                                                 #                         N 60 & N 63  (ALL)      FIGURE 6.10-4   IN 5.6.10.3
037348,000218:                                                                                                 #                         N 22 (ALL)              FIGURE 6.10-11  IN 5.6.10.6
037349,000219:                                                                                                 #                         N67 (LAT, LONG)         FIGURE 5.3-1    IN 5.5.3
037350,000220: 
037351,000221:                                                                                                 #  VARIABLE       DESCRIPTION                             MAXIMUM VALUE   DISPLAY NOUNS
037352,000222:                                                                                                 #  --------       -----------                             ------- -----   ------- -----
037353,000223: 
037354,000224:                                                                                                 #  GMAX           PREDICTED MAXIMUM ENTRY ACCEL           163.84 GS       N 60
037355,000225:                                                                                                 #  VPRED          PREDICTED VELOCITY AT ALTITUDE          128 M/CENTISEC  N 60
037356,000226:                                                                                                 #                 400K FT ABOVE FISCHER RADIUS.
037357,000227:                                                                                                 #  GAMMAEI        PREDICTED GAMMA AT ALTITUDE             1 REVOLUTION    N 60
037358,000228:                                                                                                 #                 400K FT ABOVE FISCHER RADIUS.
037359,000229:                                                                                                 #  RTGO           RANGE ANGLE TO SPLASH (ROTOG)           1 REVOLUTION    N 63
037360,000230:                                                                                                 #                 FROM EMSALT FT ABOVE FISCHER
037361,000231:                                                                                                 #                 RADIUS. (IN NM)
037362,000232:                                                                                                 #  VIO            PREDICTED VELOCITY AT ALTITUDE          128 M/CENTISEC  N 63
037363,000233:                                                                                                 #                 EMSALT FT ABOVE FISCHER RADIUS.
037364,000234:                                                                                                 #  TTE            TIME OF FREE FALL (TFE) TO              B 28 CENTISEC   N 63
037365,000235:                                                                                                 #                 ALTITUDE EMSALT FT ABOVE FISCHER 
037366,000236:                                                                                                 #                 RADIUS.
037367,000237:                                                                                                 #  OGA            OUTER GIMBAL ANGLE  (OG ROLL)           1 REVOLUTION    N 22
037368,000238:                                                                                                 #  IGA            INNER GIMBAL ANGLE  (IG PITCH)          1 REVOLUTION    N 22
037369,000239:                                                                                                 #  MGA            MIDDLE GIMBAL ANGLE (MG YAW)            1 REVOLUTION    N 22
037370,000240:                                                                                                 #                 ALL ABOVE ANGLES FOR HYPERSONIC TRIM
037371,000241:                                                                                                 #  D              DRAG ACCELERATION (G)                   805 FPSS                N 64,                   N 74
037372,000242:                                                                                                 #  VMAGI          INERTIAL VELOCITY MAGNITUDE (VI)        128 M/CENTISEC          N 64,   N 68,           N 74
037373,000243:                                                                                                 #  ROLLC          ROLL COMMAND  (BETA)                    1 REVOLUTION    N 66,           N 68,   N 69,   N 74
037374,000244:                                                                                                 #  XRNGERR        CROSS-RANGE ERROR <LATANG IN NM>        1 REVOLUTION    N 66
037375,000245:                                                                                                 #  DNRNGERR       DOWN RANGE ERROR **                     1 REVOLUTION    N 66
037376,000246:                                                                                                 #                 <PREDANG - THETAH   IN NM>
037377,000247:                                                                                                 #                 ** <DNRANGERR DISPLAYS 9999.9  IF GONEPAST =1 IN P 67>
037378,000248:                                                                                                 #  HDOT           ALTITUDE RATE  <RDOT>                   128 M/CENTISEC                  N 68
037379,000249:                                                                                                 #  Q7             EXIT DRAG LEVEL  (DL)                   805 FPSS                                N 69
037380,000250:                                                                                                 #  VL             EXIT VELOCITY FOR UP-CONTROL            2 VSAT                                  N 69
037381,000251:                                                                                                 #  RTOGO          DESIRED RANGE ANGLE <THETAH>            1 REVOLUTION    N 67,   N 64
037382,000252:                                                                                                 #                 <-THETAH IF GONEBY =0,  THETAH IF GONEBY =1>
037383,000253:                                                                                                 #  LAT            GEODETIC LATITUDE OF VEHICLE            1 REVOLUTION    N 67
037384,000254:                                                                                                 #  LONG           LONGITUDE OF VEHICLE                    1 REVOLUTION    N 67
037385,000255: 
037386,000256:                                                                                                 #  THE FOLLOWING IS A DATA INPUT NOUN (REFER TO SECTION 4, P 61 & P 62)
037387,000257:                                                                                                 #  HEADSUP        INDICATOR FOR INITIAL ROLL              1 REVOLUTION    N 61
037388,000258:                                                                                                 #  LAT(SPL)       GEODETIC LATITUDE OF TARGET             1 REVOLUTION    N 61

Page 849

037390,000260:                                                                                                 #                 (IMPACT LAT)
037391,000261:                                                                                                 #  LNG(SPL)       LONGITUDE OF TARGET (IMPACT LONG)       1 REVOLUTION    N 61
037392,000262: 
037393,000263:                                                                                                 #  FIGURE 7.0-2D          COMPUTER VARIABLES (CONTINUED)
037394,000264: 
037395,000265: 

Page 850

037397,000267:                                                                                                 #  CONSTANTS AND GAINS                                                    VALUE
037398,000268:                                                                                                 #  -------------------                                                    -----
037399,000269: 
037400,000270:                                                                                                 #  C1             FACTOR IN ALP COMPUTATION                               1.25
037401,000271:                                                                                                 #  C16            CONSTD GAIN ON DRAG                                     0.01
037402,000272:                                                                                                 #  C17            CONSTD GAIN ON RDOT                                     0.002
037403,000273:                                                                                                 #  C18            BIAS VEL. FOR FINAL PHASE START                         500     FPS
037404,000274:                                                                                                 #  C20            MAX DRAG FOR DOWN-LIFT                                  210     FPSS
037405,000275:                                                                                                 #  C21            DRAG FOR NO LATERAL SWITCH                              140     FPSS
037406,000276:                                                                                                 #  CHOOK          FACTOR IN AHOOK COMPUTATION                             0.25
037407,000277:                                                                                                 #  CH1            FACTOR IN GAMMAL COMPUTATION                            1.0
037408,000278:                                                                                                 #  COS15          COS( 15 DEG )                                           0.965
037409,000279:                                                                                                 #  DLEWD0 INITIAL VARIATION IN LEWD                               -0.05
037410,000280:                                                                                                 #  DT             COMPUTATION CYCLE TIME INTERVAL                         2       SEC.
037411,000281:                                                                                                 #  GMAX           MAXIMUM ACCELERATION                                    257.6   FPSS    (8 G'S)
037412,000282:                                                                                                 #  KA1            FACTOR IN KA CALC                                       1.3     GS
037413,000283:                                                                                                 #  KA2            FACTOR IN KA CALC                                       0.2     GS
037414,000284:                                                                                                 #  KA3            FACTOR IN D0 CALC                                       90 FPSS
037415,000285:                                                                                                 #  KA4            FACTOR IN D0 CALC                                       40 FPSS
037416,000286:                                                                                                 #  KB1            OPTIMIZED UPCONTROL GAIN                                2.5
037417,000287:                                                                                                 #  KB2            OPTIMIZED UPCONTROL GAIN                                0.0025
037418,000288:                                                                                                 #  KDMIN          INCREMENT ON Q7F TO DETECT END OF KEPLER PHASE          0.5     FPSS
037419,000289:                                                                                                 #  KTETA          TIME OF FLIGHT CONSTANT                                 1000
037420,000290:                                                                                                 #  KLAT1          FACTOR IN KLAT CALC                                     1/24
037421,000291:                                                                                                 #  K44            GAIN USED IN INITIAL ROLL SECTION                       19749550 FPS
037422,000292:                                                                                                 #  LATBIAS        LATERAL SWITCH BIAS TERM                                0.41252961 NM
037423,000293:                                                                                                 #  LEWD1          NOMINAL UPCONTROL L/D                                   0.15
037424,000294:                                                                                                 #  POINT1 FACTOR TO REDUCE UPCONTROL GAIN                         0.1
037425,000295:                                                                                                 #  Q3             FINAL PHASE DRANGE/D V                                  0.07    NM/FPS
037426,000296:                                                                                                 #  Q5             FINAL PHASE DRANGE/ D GAMMA                             7050    NM/RAD
037427,000297:                                                                                                 #  Q6             FINAL PHASE INITIAL FLIGHT PATH ANGLE                   0.0349  RAD
037428,000298:                                                                                                 #  Q7F            MIN DRAG FOR UPCONTROL                                  6       FPSS
037429,000299:                                                                                                 #  Q7MIN          IN VALUE FOR Q7 IN FACTOR CALCULATION                   805     FPSS    (DISABLE FACTOR)
037430,000300:                                                                                                 #  Q19            FACTOR IN GAMMAL1 CALCULATION                           0.5
037431,000301:                                                                                                 #  Q21            FACTOR IN Q2 CALCULATION.                               3500    NM
037432,000302:                                                                                                 #  Q22            FACTOR IN Q2 CALCULATION.                               -1992   NM
037433,000303:                                                                                                 #  VFINAL1        VELOCITY TO START FINAL PHASE ON INITIAL ENTRY          27000   FPS
037434,000304:                                                                                                 #  VFINAL FACTOR IN INITIAL UP-DOWN CALC                          26600   FPS
037435,000305:                                                                                                 #  VLMIN          MINIMUM VL                                              18000   FPS
037436,000306:                                                                                                 #  VMIN           VELOCITY TO SWITCH TO RELATIVE VEL                      VSAT/2
037437,000307:                                                                                                 #  VRCONTRL       RDOT TO START INTO HUNTEST                              700     FPS
037438,000308:                                                                                                 #                 VRCONT = COMPUTER NAME
037439,000309:                                                                                                 #  25NM           TOLERANCE TO STOP RANGE ITERATION                       25      NM
037440,000310:                                                                                                 #  VQUIT          VELOCITY TO STOP STEERING                               1000    FPS
037441,000311: 

Page 851

037443,000313:                                                                                                 #  CONVERSION FACTORS AND SCALING CONSTANTS
037444,000314:                                                                                                 #  ---------- ------- --- ------- ---------
037445,000315: 
037446,000316:                                                                                                 #  ATK    ANGLE IN RAD TO NM                                              3437.7468       NM/RAD
037447,000317:                                                                                                 #  GS     NOMINAL G VALUE FOR SCALING                                     32.2            FPSS
037448,000318:                                                                                                 #  HS     ATMOSPHERE SCALE HEIGHT                                         28500           FT
037449,000319:                                                                                                 #  J      GRAVITY HARMONIC COEFFICIENT                                    0.00162346      
037450,000320:                                                                                                 #  KWE    EQUATORIAL EARTH RATE                                           1546.70168      FPS
037451,000321:                                                                                                 #  MUE    EARTH GRAVITATIONAL CONSTANT                                    3.986032233 E 14 CUBIC M/ SEC SEC
037452,000322:                                                                                                 #  RE     EARTH RADIUS                                                    21202900        FT
037453,000323:                                                                                                 #  REQ    EARTH EQUATORIAL RADIUS                                         20925738.2      FT
037454,000324:                                                                                                 #  VSAT   SATELLITE VELOCITY AT RE                                        25766.1973      FPS
037455,000325:                                                                                                 #  WIE    EARTH RATE                                                      0.0000729211505 RAD/SEC
037456,000326: 
037457,000327:                                                                                                 #  FIGURE 7.0-3           CONSTANTS, GAINS AND CONVERSION FACTORS

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