Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

034512,000002:                                                                                                  ## Copyright:   Public domain.
034513,000003:                                                                                                  ## Filename:    ENTRY_LEXICON.agc
034514,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
034515,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
034516,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
034517,000007:                                                                                                  ## Assembler:   yaYUL
034518,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
034519,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
034520,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
034521,000011:                                                                                                  ## Mod history: 2011-03-02 JL   Adapted from corresponding Colossus 249 file.
034522,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
034523,000013:                                                                                                  ##                              and fixed errors found.
034524,000014:                                                                                                  ##              2017-01-08 RSB  Fixed comment errors detected in cross-diff vs
034525,000015:                                                                                                  ##                              Colossus 249.
034526,000016:                                                                                                  ##              2017-01-22 RSB  Back-ported comment error fixes detected in diff'ing
034527,000017:                                                                                                  ##                              Artemis 72 vs Comanche 55.
034528,000018: 

Page 788

034530,000020:                                                                                                  #           VARIABLE    DESCRIPTION                        MAXIMUM VALUE *          COMPUTER NAME
034531,000021:                                                                                                  #           --------    -----------                        ------- -----            -------- ----
034532,000022: 
034533,000023:                                                                                                  #           -
034534,000024:                                                                                                  #           URT0        INITIAL TARGET VECTOR              2 (UNIT VECTOR)          = RTINIT
034535,000025:                                                                                                  #           -
034536,000026:                                                                                                  #           UZ          UNIT VECTOR NORTH                  1                        = UNITW
034537,000027:                                                                                                  #           -
034538,000028:                                                                                                  #           V           VELOCITY VECTOR                    2 VSAT                   = VEL
034539,000029:                                                                                                  #           -
034540,000030:                                                                                                  #           R           POSITION VECTOR                    2 EXP 29 METERS          = RN
034541,000031:                                                                                                  #           -
034542,000032:                                                                                                  #           VI          INERTIAL VELOCITY                  128 M/CENTISEC           = VN
034543,000033:                                                                                                  #           -
034544,000034:                                                                                                  #           RTE         VECTOR EAST AT INITIAL TARGET      2                        = RTEAST
034545,000035:                                                                                                  #           -
034546,000036:                                                                                                  #           UTR         NORMAL TO RTE AND UZ               2                        = RTNORM
034547,000037:                                                                                                  #           -
034548,000038:                                                                                                  #           URT         TARGET VECTOR                      2                        = RT
034549,000039:                                                                                                  #           -
034550,000040:                                                                                                  #           UNI         UNIT NORMAL TO TRAJECTORY PLANE    2
034551,000041:                                                                                                  #           -
034552,000042:                                                                                                  #           DELV        INTEGRATED ACCEL. FROM PIPAS       5.85 16384 CM/S
034553,000043:                                                                                                  #           -
034554,000044:                                                                                                  #           G           GRAVITY VECTOR                     128 M/CENTISEC           = GDT/2
034555,000045: 
034556,000046:                                                                                                  #           A0          INITIAL DRAG FOR UPCONTRL          805 FPSS                 FPSS=FT/SEC/SEC
034557,000047:                                                                                                  #           AHOOKDV     TERM IN GAMMAL CALC. = AHOOK DVL   8
034558,000048:                                                                                                  #           A1          DRAG VALUE IN FACTOR CALCULATION   805 FPSS
034559,000049:                                                                                                  #           ALP         CONST FOR UPCONTRL                 1
034560,000050:                                                                                                  #           ASKEP       KEPLER RANGE                       21600 NM                 NM = NAUTICAL MILE
034561,000051:                                                                                                  #           ASP1        FINAL PHASE RANGE                  21600 NM
034562,000052:                                                                                                  #           ASPUP       UP-RANGE                           21600 NM
034563,000053:                                                                                                  #           ASP3        GAMMA CORRECTION                   21600 NM
034564,000054:                                                                                                  #           ASPDWN      RANGE DOWN TO PULL-UP              21600 NM
034565,000055:                                                                                                  #           ASP         PREDICTED RANGE                    21600 NM                   NOT STORED
034566,000056:                                                                                                  #           COSG        COSINE(GAMMAL)                     2                        = COSG/2
034567,000057:                                                                                                  #           C/D0        RECIPROCAL DRAG, -4/D0 B-8         64/FPSS
034568,000058:                                                                                                  #           D           TOTAL ACCELERATION                 805 FPSS
034569,000059:                                                                                                  #           D0          CONTROLLED CONSTANT D              805 FPSS
034570,000060:                                                                                                  #           DHOOK       TERM IN GAMMAL COMPUTATION         805 FPSS
034571,000061:                                                                                                  #           DIFF        THETNM-ASP  (RANGE DIFFERENCE)     21600    NM
034572,000062:                                                                                                  #           DIFFOLD     PREVIOUS VALUE OF DIFF             21600    NM
034573,000063:                                                                                                  #           DLEWD       CHANGE IN LEWD                     1
034574,000064:                                                                                                  #           DR          REFERENCE DRAG FOR DOWNCONTROL     805 FPSS                   NOT STORED
034575,000065:                                                                                                  #           DREFR       REFERENCE DRAG                     805 FPSS                   NOT STORED
034576,000066:                                                                                                  #           DVL         VS1-VL                             2 VSAT
034577,000067:                                                                                                  #           E           ECCENTRICITY                       4                          NOT STORED
034578,000068:                                                                                                  #           F1          DRANGE/D DRAG   (FINAL PHASE)      2700/805                 = FX +5
034579,000069:                                                                                                  #           F2          DRANGE/D RDOT   (FINAL PHASE)      2700/2VS NM/FPS          = FX +4

Page 789

034581,000071:                                                                                                  #           F3          DRANGE/D (L/D)                     2700 NM                  = FX
034582,000072:                                                                                                  #           FACT1       CONST FOR UPCONTRL                 805 FPSS
034583,000073:                                                                                                  #           FACT2       CONST FOR UPCONTRL                 1/805 FPSS
034584,000074:                                                                                                  #           FACTOR      USED IN UPCONTRL                   1                  * MAXIMUM VALUE DENOTES UNSCALED
034585,000075:                                                                                                  #           GAMMAL      FLIGHT PATH ANGLE AT VL            1 RADIAN             VARIABLE VALUE WHEN SCALED
034586,000076:                                                                                                  #           GAMMAL1     SIMPLE FORM OF GAMMAL              1 RADIAN             VARIABLE HAS MAXIMUM VALUE OF ONE.
034587,000077: 

Page 790

034589,000079:                                                                                                  #           VARIABLE    DESCRIPTION                        MAXIMUM VALUE            COMPUTER NAME
034590,000080:                                                                                                  #           --------    -----------                        ------- -----            -------- ----
034591,000081: 
034592,000082:                                                                                                  #           HEADSUP     INDICATOR FOR INITIAL ROLL         1
034593,000083:                                                                                                  #           KA          DRAG TO LIFT UP IF DOWN            805 FPSS                 = KAT
034594,000084:                                                                                                  #           KLAT        LATERAL SWITCH GAIN                1               (NOM = .0125)
034595,000085:                                                                                                  #           K2ROLL      INDICATOR FOR ROLL SWITCH
034596,000086:                                                                                                  #           LAD         MAX L/D (MIN ACTUAL VEHICLE L/D)   1
034597,000087:                                                                                                  #           LADPAD      NOMINAL VEHICLE L/D, SP PAD LOAD   1               (NOM = 0.3)
034598,000088:                                                                                                  #           LATANG      LATERAL RANGE                      4 RADIANS
034599,000089:                                                                                                  #           LEQ         EXCESS C.F. OVER GRAV=(VSQ-1)GS    128.8 FPSS
034600,000090:                                                                                                  #           LEWD        UPCONTROL REFERENCE L/D            1
034601,000091:                                                                                                  #           LOD         FINAL PHASE L/D                    1               (NOM = 0.18)
034602,000092:                                                                                                  #           LODPAD      FINAL PHASE L/D, SP PAD LOAD       1
034603,000093:                                                                                                  #           L/D         DESIRED LIFT TO DRAG RATIO         1
034604,000094:                                                                                                  #                       (VERTICAL PLANE)
034605,000095:                                                                                                  #           L/D1        TEMP STORAGE FOR L/D IN LATERAL    1
034606,000096:                                                                                                  #           L/DCMINR    LAD COS(15DEG)                     1               (NOM = 0.2895)
034607,000097:                                                                                                  #           PREDANGL    PREDICTED RANGE  (FINAL PHASE)     2700 NM                  = PREDANG
034608,000098:                                                                                                  #           Q2          FINAL PHASE RANGE -23500 Q3        21600  NM
034609,000099:                                                                                                  #                       Q2 = FCN(LAD)
034610,000100:                                                                                                  #           Q7          MINIMUM DRAG FOR UPCONTROL         805 FPSS
034611,000101:                                                                                                  #           RDOT        ALTITUDE RATE                      2 VSAT
034612,000102:                                                                                                  #           RDOTREF     REFERENCE RDOT FOR UPCONTROL       2 VSAT
034613,000103:                                                                                                  #           RDTR        REFERENCE RDOT FOR DOWNCONT        2 VSAT                     NOT SAVED
034614,000104:                                                                                                  #           ROLLC       ROLL COMMAND                       1 REVOLUTION
034615,000105:                                                                                                  #           RTOGO       RANGE TO GO (FINAL PHASE)          2700 NM                  = FX +2
034616,000106:                                                                                                  #           SL          SINE OF LATITUDE                   1                          NOT SAVED
034617,000107:                                                                                                  #           T           TIME                               B 28 CENTISEC            = TIME2,TIME1
034618,000108:                                                                                                  #           THETA       DESIRED RANGE (RADIANS)            2 PI RADIANS             = THETAH
034619,000109:                                                                                                  #           THETNM      DESIRED RANGE (NM)                 21600 NM                   NON EXISTENT
034620,000110:                                                                                                  #           V           VELOCITY MAGNITUDE                 2 VSAT
034621,000111:                                                                                                  #           V1          INITIAL VELOCITY FOR UPCONTROL     2 VSAT
034622,000112:                                                                                                  #           VL          EXIT VELOCITY FOR UPCONTROL        2 VSAT
034623,000113:                                                                                                  #           VREF        REFERENCE VELOCITY FOR UPCONTROL   2 VSAT
034624,000114:                                                                                                  #           VS1         VSAT OR V1, WHICHEVER IS SMALLER   2 VSAT
034625,000115:                                                                                                  #                         2     2
034626,000116:                                                                                                  #           VBARS       VL /VSAT                           4
034627,000117:                                                                                                  #                                                  2     2
034628,000118:                                                                                                  #           VSQ         NORMALISED VEL. SQUARED = V /VSAT  4                        = VSQUARE
034629,000119:                                                                                                  #           WT          EARTH RATE TIMES TIME              1 REVOLUTION               NOT SAVED
034630,000120:                                                                                                  #                                                                                   = WIE (DTEAROT)
034631,000121:                                                                                                  #           X           INTERMEDIATE VARIABLE IN G-LIMITER 2 VSAT                     NOT SAVED
034632,000122:                                                                                                  #           Y           LATERAL MISS LIMIT                 4 RADIANS                  NOT SAVED
034633,000123: 

Page 791

034635,000125:                                                                                                  #           EXTRA COMPUTER ERASABLE LOCATIONS NOT SHOWN ON FLOW CHARTS
034636,000126:                                                                                                  #           -----------------------------------------------------------
034637,000127: 
034638,000128:                                                                                                  #           VARIABLE    DESCRIPTION                        MAXIMUM VALUE
034639,000129:                                                                                                  #           --------    -----------                        ------- -----
034640,000130: 
034641,000131:                                                                                                  #           GOTOADDR    ADDRESS SELECTED BY SEQUENCER
034642,000132:                                                                                                  #           XPIPBUF     BUFFER TO STORE X PIPA COUNTS
034643,000133:                                                                                                  #           YPIPBUF     BUFFER TO STORE Y PIPA COUNTS
034644,000134:                                                                                                  #           ZPIPBUF     BUFFER TO STORE Z PIPA COUNTS
034645,000135:                                                                                                  #           PIPCTR      COUNTS PASSES THRU PIPA READ ROUTINE
034646,000136:                                                                                                  #           JJ          INDEX IN FINAL PHASE TABLE LOOK-UP
034647,000137:                                                                                                  #           MM          INDEX IN FINAL PHASE TABLE LOOK-UP
034648,000138:                                                                                                  #           GRAD        INTERPOLATION FACTOR IN FINAL PHASE
034649,000139:                                                                                                  #           FX          DRANGE/D L/D = F3                  2700 NM
034650,000140:                                                                                                  #           FX + 1      AREF                               805 FPSS
034651,000141:                                                                                                  #           FX + 2      RTOGO                              2700 NM
034652,000142:                                                                                                  #           FX + 3      RDOTREF                            VSAT/4
034653,000143:                                                                                                  #           FX + 4      DRANGE/D RDOT = F2                 21600/2VS NM/FPS
034654,000144:                                                                                                  #           FX + 5      DRANGE/D DRAG = F1                 2700/805 NM/FPSS
034655,000145:                                                                                                  #           TEM1B       TEMPORARY LOCATION
034656,000146:                                                                                                  #           TIME/RTO    TIME OF INITIAL TARGET RTINIT      B 28 CENTISEC
034657,000147:                                                                                                  #           DTEAROT     EST TIME BETWEEN RTINIT AND RT     B 28 CENTISEC
034658,000148: 
034659,000149:                                                                                                  #           -
034660,000150:                                                                                                  #           UNITV       UNIT  V VECTOR                     2
034661,000151:                                                                                                  #           -
034662,000152:                                                                                                  #           UNITR       UNIT R VECTOR                      2
034663,000153:                                                                                                  #            -
034664,000154:                                                                                                  #           -VREL       NEGATIVE VELOCITY REL TO ATMOSP    2 VSAT
034665,000155: 
034666,000156:                                                                                                  #           COMPUTER SWITCHES                              INITIAL STATE            CM/FLAGS = STATE +6
034667,000157:                                                                                                  #           -------- --------                              -------------            -------------------
034668,000158: 
034669,000159:                                                                                                  #           ENTRYDSP    DO ENTRY DISPLAY, IF SET           NON-BRANCH (1)           92D, BIT13
034670,000160:                                                                                                  #           GONEPAST    INDICATES OVERSHOOT OF TARGET      NON-BRANCH (0)           95D, BIT10
034671,000161:                                                                                                  #           RELVELSW    RELATIVE VELOCITY SWITCH           NON-BRANCH (0)           96D, BIT 9
034672,000162:                                                                                                  #           EGSW        FINAL PHASE SWITCH                 NON-BRANCH (0)           97D, BIT 8
034673,000163:                                                                                                  #           FIRSTPAS    INITIAL PASS THRU HUNTEST          NON-BRANCH (0)           98D, BIT 7
034674,000164:                                                                                                  #           HIND        INDICATES ITERATION IN HUNTEST     NON-BRANCH (0)           99D, BIT 6
034675,000165:                                                                                                  #           INRLSW      INDICATES INIT ROLL ATTITUDE SET   NON-BRANCH (0)          100D, BIT 5
034676,000166:                                                                                                  #           LATSW       INHIBIT DOWNLIFT SWITCH IF NOT SET     BRANCH (1)          101D, BIT 4
034677,000167:                                                                                                  #           .05GSW      INDICATES DRAG EXCEEDS .05 GS          BRANCH (0)          102D, BIT 3
034678,000168: 
034679,000169:                                                                                                  #           GONEBY      INDICATES GONE PAST TARGET (SET)   SELF-INITIALZNG         112D, BIT 8
034680,000170: 

Page 792

034682,000172:                                                                                                  #           CONSTANTS AND GAINS                                            VALUE
034683,000173:                                                                                                  #           -------------------                                            -----
034684,000174: 
034685,000175:                                                                                                  #           C1          FACTOR IN ALP COMPUTATION                           1.25
034686,000176:                                                                                                  #           C16         CONSTD GAIN ON DRAG                                 .01
034687,000177:                                                                                                  #           C17         CONSTD GAIN ON RDOT                                 .001
034688,000178:                                                                                                  #           C18         BIAS VEL. FOR FINAL PHASE START                     500     FPS
034689,000179:                                                                                                  #           C20         MAX DRAG FOR DOWN-LIFT                              175     FPSS
034690,000180:                                                                                                  #           CHOOK       FACTOR IN AHOOK COMPUTATION                         .25
034691,000181:                                                                                                  #           CH1         FACTOR IN GAMMAL COMPUTATION                        1.0
034692,000182:                                                                                                  #           COS15       COS( 15 DEG)                                       .965
034693,000183:                                                                                                  #           DLEWD0      INITIAL VARIATION IN LEWD                           -.05
034694,000184:                                                                                                  #           D2          DRAG TO CHANGE LEWD                                 175     FPSS
034695,000185:                                                                                                  #           DT          COMPUTATION CYCLE TIME INTERVAL                     2       SEC.
034696,000186:                                                                                                  #           GMAX        MAXIMUM ACCELERATION                                257.6   FPSS          (8 G-S)
034697,000187:                                                                                                  #           KA1         FACTOR IN KA CALC                                   1.3 GS
034698,000188:                                                                                                  #           KA2         FACTOR IN KA CALC                                    .2 GS
034699,000189:                                                                                                  #           KA3         FACTOR IN D0 CALC                                   90  FPSS
034700,000190:                                                                                                  #           KA4         FACTOR IN D0 CALC                                   40  FPSS
034701,000191:                                                                                                  #           KB1         OPTIMIZED UPCONTROL GAIN                            3.4
034702,000192:                                                                                                  #           KB2         OPTIMIZED UPCONTROL GAIN                            .0034
034703,000193:                                                                                                  #           KDMIN       INCREMENT  ON Q7 TO DETECT END OF KEPLER PHASE      .5      FPSS
034704,000194:                                                                                                  #           KTETA       TIME OF FLIGHT CONSTANT                             1000
034705,000195:                                                                                                  #           KLAT1       FACTOR IN KLAT CALC                                 1/24
034706,000196:                                                                                                  #           K44         GAIN  USED IN INITIAL ROLL SECTION                  19749550 FPS
034707,000197:                                                                                                  #           LATBIAS     LATERAL SWITCH BIAS TERM                            .41252961  NM
034708,000198:                                                                                                  #           LEWD1       NOMINAL UPCONTROL L/D                               .15
034709,000199:                                                                                                  #           POINT1      FACTOR TO REDUCE UPCONTROL GAIN                     .1
034710,000200:                                                                                                  #           Q2          FINAL PHASE RANGE - 23500 Q3                        -1002   NM
034711,000201:                                                                                                  #           Q3          FINAL PHASE DRANGE/D V                              .07     NM/FPS
034712,000202:                                                                                                  #           Q5          FINAL PHASE DRANGE/ D GAMMA                         7050    NM/RAD
034713,000203:                                                                                                  #           Q6          FINAL PHASE INITIAL FLIGHT PATH ANGLE               .0349   RAD
034714,000204:                                                                                                  #           Q7F         MIN DRAG FOR UPCONTROL                              6       FPSS
034715,000205:                                                                                                  #           Q7MIN       MIN VALUE FOR Q7 IN FACTOR CALCULATION              40      FPSS
034716,000206:                                                                                                  #           Q19         FACTOR IN GAMMAL1 CALCULATION                       .5
034717,000207:                                                                                                  #           Q21         FACTOR IN Q2 CALCULATION.                           1000    NM
034718,000208:                                                                                                  #           Q22         FACTOR IN Q2 CALCULATION.                           -1302   NM
034719,000209:                                                                                                  #           VFINAL1     VELOCITY TO START FINAL PHASE ON INITIAL ENTRY      27000   FPS
034720,000210:                                                                                                  #           VFINAL      FACTOR IN INITIAL UP-DOWN CALC                      26600   FPS
034721,000211:                                                                                                  #           VLMIN       MINIMUM VL                                          18000   FPS
034722,000212:                                                                                                  #           VMIN        VELOCITY TO SWITCH TO RELATIVE VEL                  VSAT/2
034723,000213:                                                                                                  #           VRCONTRL    RDOT TO START INTO HUNTEST                          700     FPS
034724,000214:                                                                                                  #                       VRCONT = COMPUTER NAME
034725,000215:                                                                                                  #           25NM        TOLERANCE TO STOP RANGE ITERATION                   25      NM
034726,000216:                                                                                                  #           VQUIT       VELOCITY TO STOP STEERING                           1000    FPS
034727,000217: 

Page 793

034729,000219:                                                                                                  #           CONVERSION FACTORS AND SCALING CONSTANTS
034730,000220:                                                                                                  #           ---------- ------- --- ------- ---------
034731,000221: 
034732,000222:                                                                                                  #           ATK         ANGLE IN RAD TO NM                                  3437.7468   NM/RAD
034733,000223:                                                                                                  #           GS          NOMINAL G VALUE FOR SCALING                         32.2        FPSS
034734,000224:                                                                                                  #           HS          ATMOSPHERE SCALE HEIGHT                             28500       FT
034735,000225:                                                                                                  #           J           GRAVITY HARMONIC COEFFICIENT                        .00162346    
034736,000226:                                                                                                  #           KWE         EQUATORIAL EARTH RATE                               1546.70168  FPS
034737,000227:                                                                                                  #           MUE         EARTH GRAVITATIONAL CONSTANT                        3.986032233 E 14 CUBIC M/ SEC SEC
034738,000228:                                                                                                  #           RE          EARTH RADIUS                                        21202900    FT
034739,000229:                                                                                                  #           REQ         EARTH EQUATORIAL RADIUS                             20925738.2  FT
034740,000230:                                                                                                  #           VSAT        SATELLITE VELOCITY AT RE                            25766.1973  FPS
034741,000231:                                                                                                  #           WIE         EARTH RATE                                          .0000729211505 RAD/SEC
034742,000232: 
034743,000233:                                                                                                  #                                                   (END GSOP AS-278, VOL 1, FIG. 5.6-3   CONSTANTS,GAINS, ETC.)
034744,000234: 
034745,000235: 
034746,000236:                                                                                                  #           DISPLAY QUANTITIES
034747,000237:                                                                                                  #           ------------------
034748,000238: 
034749,000239:                                                                                                  #           (SEE SECTION 4 OF THE GSOP FOR SIGN CONVENTIONS. )
034750,000240: 
034751,000241:                                                                                                  #           VARIABLE    DESCRIPTION                        MAXIMUM VALUE
034752,000242:                                                                                                  #           --------    -----------                        ------- -----
034753,000243: 
034754,000244:                                                                                                  #           QMAX        PREDICTED MAXIMUM ENTRY ACCEL      163.84 GS       N 60
034755,000245:                                                                                                  #           VPRED       PREDICTED VELOCITY AT ALTITUDE     128 M/CENTISEC  N 60
034756,000246:                                                                                                  #                       400K FT ABOVE FISCHER RADIUS.
034757,000247:                                                                                                  #           GAMMAEI     PREDICTED GAMMA AT ALTITUDE        1 REVOLUTION    N 60
034758,000248:                                                                                                  #                       400K FT ABOVE FISCHER RADIUS.
034759,000249:                                                                                                  #           D           DRAG ACCELERATION                  805 FPSS        N 64
034760,000250:                                                                                                  #           VMAGI       INERTIAL VELOCITY MAGNITUDE        128 M/CENTISEC  N 64, N 68
034761,000251:                                                                                                  #           THETAH      DESIRED RANGE ANGLE NM             1 REVOLUTION    N 64, N 67
034762,000252:                                                                                                  #           LAT         PRESENT LATITUDE                   1 REVOLUTION    N 67
034763,000253:                                                                                                  #           LONG        PRESENT LONGITUDE                  1 REVOLUTION    N 67
034764,000254:                                                                                                  #           RTOGO       RANGE ANGLE TO SPLASH FROM         1 REVOLUTION    N 63
034765,000255:                                                                                                  #                       EMSALT FT ABOVE FISCHER RADIUS. (IN NM)  
034766,000256:                                                                                                  #           VIO         PREDICTED VELOCITY AT ALTITUDE     128 M/CENTISEC  N 63
034767,000257:                                                                                                  #                       EMSALT FT ABOVE FISCHER RADIUS.
034768,000258:                                                                                                  #           TTE         TIME OF FREE FALL TO ALT           B 28 CENTISEC   N 63
034769,000259:                                                                                                  #                       EMSALT FT ABOVE FISCHER RADIUS.
034770,000260:                                                                                                  #           ROLLC       ROLL COMMAND                       1 REVOLUTION    N 66, N 68, N 69
034771,000261:                                                                                                  #           LATANG      CROSS-RANGE ERROR (XRNGERR)        4 RADIANS       N 66
034772,000262:                                                                                                  #           DNRNGERR    DOWN RANGE ERROR                   1 REVOLUTION    N 66
034773,000263:                                                                                                  #                       (PREDANG - THETAH   IN NM)
034774,000264:                                                                                                  #           HDOT        ALTITUDE RATE                      128 M/CENTISEC       N 68
034775,000265:                                                                                                  #           Q7          MINIMUM DRAG FOR UPCONTROL         805 FPSS        N 69
034776,000266:                                                                                                  #           VL          EXIT VELOCITY FOR UP-CONTROL       2 VSAT          N 69
034777,000267: 

Page 794

034779,000269:                                                                                                  #           BODY ATTITUDE QUANTITIES  (CM/POSE)
034780,000270:                                                                                                  #           -----------------------------------
034781,000271: 
034782,000272:                                                                                                  #           VARIABLE     DESCRIPTION                       MAXIMUM VALUE
034783,000273:                                                                                                  #           --------     -----------                       ------- -----
034784,000274: 
034785,000275:                                                                                                  #            -
034786,000276:                                                                                                  #           -VREL        NEGATIVE VELOCITY REL TO ATMOS.   2 VSAT
034787,000277:                                                                                                  #           -
034788,000278:                                                                                                  #           OLDUYA       USED FOR UYA BELOW 1000 FPS       2
034789,000279:                                                                                                  #           -
034790,000280:                                                                                                  #           UXA/2        UNIT VECTOR TRIAD                 2
034791,000281:                                                                                                  #           -
034792,000282:                                                                                                  #           UYA/2             BASED ON                     2
034793,000283:                                                                                                  #           -
034794,000284:                                                                                                  #           UZA/2                  THE TRAJECTORY.         2
034795,000285:                                                                                                  #           -
034796,000286:                                                                                                  #           UBX/2        UNIT VECTOR                       2
034797,000287:                                                                                                  #           -
034798,000288:                                                                                                  #           UBY/2             BODY TRIAD                   2
034799,000289:                                                                                                  #           -
034800,000290:                                                                                                  #           UBZ/2                  FOR CM.                 2

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