GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
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, 1968Note 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