Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

001539,000002:                                                                                                  ## Copyright:   Public domain.
001540,000003:                                                                                                  ## Filename:    CONTROLLED_CONSTANTS.agc
001541,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
001542,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
001543,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
001544,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
001545,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
001546,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
001547,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
001548,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
001549,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
001550,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
001551,000014:                                                                                                  ##              the original YUL assembler.
001552,000015:                                                                                                  ##
001553,000016:                                                                                                  ## Assembler:   yaYUL
001554,000017:                                                                                                  ## Contact:     Jim Lawton <jim.lawton@gmail.com>
001555,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
001556,000019:                                                                                                  ## Pages:       038-053
001557,000020:                                                                                                  ## Mod history: 2009-05-16 JVL  Transcribed from page images.
001558,000021:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
001559,000022:                                                                                                  ##                              and corrected the errors found.
001560,000023:                                                                                                  ##              2017-03-02 RSB  $$/DAPAD --> $$/DAPAO.
001561,000024:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
001562,000025: 
001563,000026:                                                                                                  ## This source code has been transcribed or otherwise adapted from
001564,000027:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
001565,000028:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
001566,000029:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
001567,000030:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
001568,000031:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
001569,000032:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
001570,000033:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
001571,000034:                                                                                                  ## actually created.
001572,000035:                                                                                                  ##
001573,000036:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
001574,000037:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
001575,000038:                                                                                                  ## the listing from which it was transcribed. It has been verified to
001576,000039:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
001577,000040:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
001578,000041:                                                                                                  ##
001579,000042:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
001580,000043:                                                                                                  ##
001581,000044:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
001582,000045: 

Page 38

001584,000047:                                                                                                  #  DPS AND APS ENGINE PARAMETERS
001585,000048: 
001586,000049: 36,2000                                           SETLOC   P40S                                  
001587,000050: 36,2000                                           BANK                                           
001588,000051: 36,2000                                           COUNT*   $$/P40                                
001589,000052: 
001590,000053:                                                                                                  #  *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
001591,000054: 
001592,000055: 36,2000           01056 37167  FDPS               2DEC     4.3670     B-7                        #  9817.5 LBS FORCE IN NEWTONS
001593,000056: 36,2002           00457 03250  MDOTDPS            2DEC     0.1480     B-3                        #  32.62 LBS/SEC IN KGS/CS.
001594,000057: 36,2004           77777 77731  DTDECAY            2DEC     -38        B-28                       
001595,000058: 36,2006           00307 11040  FAPS               2DEC     1.5569     B-7                        #  3500 LBS FORCE IN NEWTONS
001596,000059: 36,2010           00151 05214  MDOTAPS            2DEC     0.05135    B-3                        #  11.32 LBS/SEC IN KGS/CS
001597,000060: 36,2012           77777 77765  ATDECAY            2DEC     -10        B-28                       
001598,000061: 
001599,000062:                                                                                                  #  ************************************************************************
001600,000063: 
001601,000064: 36,2014           00026 30605  FRCS4              2DEC     0.17792    B-7                        #  400 LBS FORCE IN NEWTONS
001602,000065: 36,2016           00013 14303  FRCS2              2DEC     0.08896    B-7                        #  200 LBS FORCE IN NEWTONS
001603,000066: 
001604,000067: 27,2000                                           SETLOC   P40S1                                 
001605,000068: 27,2000                                           BANK                                           
001606,000069: 27,2000                                           COUNT*   $$/P40                                
001607,000070: 
001608,000071:                                                                                                  #  *** APS IMPULSE DATA FOR P42 *******************************************
001609,000072: 
001610,000073: 27,2000           00000 07622  K1VAL              2DEC     124.55     B-23                       #  2800 LB-SEC
001611,000074: 27,2002           00000 00762  K2VAL              2DEC     31.138     B-24                       #  700 LB-SEC
001612,000075: 27,2004           00030 35104  K3VAL              2DEC     1.5569     B-10                       #  FAPS (3500 LBS THRUST)
001613,000076: 
001614,000077:                                                                                                  #  ************************************************************************
001615,000078: 
001616,000079: 27,2006           00016 36237  S40.136            2DEC     .4671      B-9                        #  .4671 M NEWTONS (DPS)
001617,000080: 27,2010           35711 35663  S40.136_           2DEC     .4671      B+1                        #  S40.136 SHIFTED LEFT 10.
001618,000081: 
001619,000082: 27,2000                                           SETLOC   ASENT1                                
001620,000083: 27,2000                                           BANK                                           
001621,000084: 27,2012                                           COUNT*   $$/P70                                
001622,000085: 
001623,000086: 27,2012           03631 23146  (1/DV)A            2DEC     15.20      B-7                        #  2 SECONDS WORTH OF INITIAL ASCENT

Page 39

001625,000088:                                                                                                  #  STAGE ACCELERATION -- INVERTED (M/CS)
001626,000089:                                                                                                  #  1) PREDICATED ON A LIFTOFF MASS OF
001627,000090:                                                                                                  #     4869.9 KG (SNA-8-D-027 7/11/68)
001628,000091:                                                                                                  #  2) PREDICATED ON A CONTRIBUTION TO VEH-
001629,000092:                                                                                                  #     ICLE ACCELERATION FROM RCS THRUSTERS
001630,000093:                                                                                                  #     EQUIV. TO 1 JET ON CONTINUOUSLY.
001631,000094: 
001632,000095: 27,2014           33226 14632  K(1/DV)            2DEC     436.70     B-9                        #  DPS ENGINE THRUST IN NEWTONS / 100 CS.
001633,000096: 
001634,000097: 27,2016           05306 15503  (AT)A              2DEC     3.2883     E-4        B9              #  INITIAL ASC. STG. ACCELERATION ** M/CS.                                       
001635,000098:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A.
001636,000099: 27,2020           26337 30000  (TBUP)A            2DEC     91902      B-17                       #  ESTIMATED BURN-UP TIME OF THE ASCENT STG
001637,000100:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
001638,000101:                                                                                                  #  ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
001639,000102:                                                                                                  #  RATE = 5.299 KG/SEC = 5.135 (APS) +
001640,000103:                                                                                                  #  .164 (1 RCS JET).
001641,000104: 30,2000                                           SETLOC   ASENT                                 
001642,000105: 30,2000                                           BANK                                           
001643,000106: 30,2000                                           COUNT*   $$/ASENT                              
001644,000107: 30,2000           02445 00274  AT/RCS             2DEC     .0000785   B+10                       #  4 JETS IN A DRY LEM
001645,000108: 
001646,000109: 33,2000                                           SETLOC   SERVICES                              
001647,000110: 33,2000                                           BANK                                           
001648,000111: 33,2000                                           COUNT*   $$/SERV                               
001649,000112: 
001650,000113:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
001651,000114: 
001652,000115: 33,2000           41545        APSVEX             DEC      -3030      E-2        B-5             #  9942 FT/SEC IN M/CS.
001653,000116: 33,2001           42341        DPSVEX             DEC*     -2.95588868 E+1        B-05*           #  VE (DPS) +2.95588868E+ 3
001654,000117: 
001655,000118:                                                                                                  #  ************************************************************************
001656,000119: 
001657,000120: 31,2000                                           SETLOC   F2DPS*31                              
001658,000121: 31,2000                                           BANK                                           
001659,000122: 31,2000                                           COUNT*   $$/F2DPS                              
001660,000123: 
001661,000124: 31,2000           00222 33316  TRIMACCL           2DEC*    +3.50132708 E-5        B+08*           #  A (T) +3.50132708E- 1
001662,000125: 

Page 40

001664,000127:                                                                                                  #  THROTTLING AND THRUST DETECTION PARAMETERS
001665,000128: 
001666,000129: 36,2000                                           SETLOC   P40S                                  
001667,000130: 36,2000                                           BANK                                           
001668,000131: 36,2020                                           COUNT*   $$/P40                                
001669,000132: 
001670,000133: 36,2020           00030        THRESH1            DEC      24         B-14                       
001671,000134: 36,2021           00014        THRESH3            DEC      12         B-14                       
001672,000135: 36,2022     4737               HIRTHROT           =        BIT13                                 
001673,000136: 
001674,000137:    6000                                           SETLOC   FFTAG5                                
001675,000138:    6000                                           BANK                                           
001676,000139:    6000                                           COUNT*   $$/P40                                
001677,000140: 
001678,000141:    6000           00464        THRESH2            DEC      308        B-14                       
001679,000142: 
001680,000143: 31,2000                                           SETLOC   FTHROT                                
001681,000144: 31,2000                                           BANK                                           
001682,000145: 31,2002                                           COUNT*   $$/THROT                              
001683,000146: 
001684,000147: 31,2002           07401        FMAXODD            DEC      +3841      B-14                       #  FSAT          +4.81454413 E+4
001685,000148: 31,2003           06613        FMAXPOS            DEC      +3467      B-14                       #  FMAX          +4.34546769 E+4
001686,000149: 31,2004           00024        THROTLAG           DEC      +20        B-14                       #  TAU (TH)      +1.99999999 E-1
001687,000150: 31,2005           00307 17534  SCALEFAC           2DEC*    +7.97959872 E+2        B-16*           #  BITPERF       +7.97959872 E-2
001688,000151: 
001689,000152: 32,2000                                           SETLOC   F2DPS*32                              
001690,000153: 32,2000                                           BANK                                           
001691,000154: 32,2000                                           COUNT*   $$/F2DPS                              
001692,000155: 
001693,000156: 32,2000           00044        DPSTHRSH           DEC      36         B-14                       #  (THRESH1 + THRESH3 FOR P63)
001694,000157: 

Page 41

001696,000159:                                                                                                  #  LM HARDWARE-RELATED PARAMETERS
001697,000160: 
001698,000161: 25,2000                                           SETLOC   RADARUPT                              
001699,000162: 25,2000                                           BANK                                           
001700,000163: 25,2000                                           COUNT*   $$/RRUPT                              
001701,000164: 
001702,000165: 25,2000           47777        LVELBIAS           DEC      -12288     B-14                       #  LANDING RADAR BIAS FOR 153.6 KC.
001703,000166: 25,2001           00001 01150  RDOTBIAS           2DEC     17000      B-28                       #  BIAS COUNT FOR RR RANGE RATE.
001704,000167: 
001705,000168: 32,2000                                           SETLOC   LRS22                                 
001706,000169: 32,2000                                           BANK                                           
001707,000170: 32,2001                                           COUNT*   $$/LRS22                              
001708,000171: 
001709,000172: 32,2001           70123 40702  RDOTCONV           2DEC     -.0019135344 B7                         #  CONVERTS RR RDOT READING TO M/CS AT 2(7)
001710,000173: 32,2003           13337 10776  RANGCONV           2DEC     2.859024   B-3                        #  CONVERTS RR RANGE READING TO M. AT 2(-29
001711,000174: 
001712,000175: 33,2000                                           SETLOC   SERVICES                              
001713,000176: 33,2000                                           BANK                                           
001714,000177: 33,2002                                           COUNT*   $$/SERV                               
001715,000178: 
001716,000179: 33,2002           61000 71210  HBEAMANT           2DEC     -.4687018041                            #  RANGE BEAM IN LR ANTENNA COORDINATES.
001717,000180: 33,2004           00000 00000                     2DEC     0          B-28                       
001718,000181: 33,2006           72333 45546                     2DEC     -.1741224271                            
001719,000182: 
001720,000183: 33,2010           65363 64451  HSCAL              2DEC     -.3288792                             #  SCALES 1.079 FT/BIT TO 2(22)M.
001721,000184: 
001722,000185:                                                                                                  #  ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
001723,000186: 
001724,000187: 33,2012           21241 03216  VZSCAL             2DEC     +.5410829105                            #  SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
001725,000188: 33,2014           30153 23101  VYSCAL             2DEC     +.7565672446                            #  SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
001726,000189: 33,2016           63105 61733  VXSCAL             2DEC     -.4020043770                            #  SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
001727,000190: 
001728,000191:                                                                                                  #  ************************************************************************
001729,000192: 
001730,000193: 33,2020           01507        KPIP               DEC      .0512                                 #  SCALES DELV TO UNITS OF 2(5) M/CS.
001731,000194: 33,2021           00321 26706  KPIP1              2DEC     .0128                                 #  SCALES DELV TO UNITS OF 2(7) M/CS.
001732,000195: 33,2023           00150 33343  KPIP2              2DEC     .0064                                 #  SCALES DELV TO UNITS OF 2(8) M/CS.
001733,000196: 

Page 42

001735,000198: 33,2025           02630 25010  ALTCONV            2DEC     1.399078846 B-4                        #  CONVERTS M*2(-24) TO BIT UNITS *2(-28).
001736,000199: 33,2027           24402 26003  ARCONV1            2DEC     656.167979 B-10                       #  CONV. ALTRATE COMP. TO BIT UNITS<
001737,000200: 
001738,000201: 21,2000                                           SETLOC   R10                                   
001739,000202: 21,2000                                           BANK                                           
001740,000203: 21,2000                                           COUNT*   $$/R10                                
001741,000204: 
001742,000205: 21,2000           24402        ARCONV             OCT      24402                                 #  656.1679798B-10 CONV ALTRATE TO BIT UNIT
001743,000206: 21,2001           01551        ARTOA              DEC      .1066098   B-1                        #  .25/2.345 B-1 4X/SEC CYCLE RATE.
001744,000207: 21,2002           21357        ARTOA2             DEC      .0021322   B8                         #  (.5)/(2.345)(100)
001745,000208: 21,2003           22316        VELCONV            OCT      22316                                 #  588.914 B-10 CONV VEL. TO BIT UNITS.
001746,000209: 21,2004           01507        KPIP1(5)           DEC      .0512                                 #  SCALES DELV TO M/CS*2(-5).
001747,000210: 21,2005           00547        MAXVBITS           OCT      00547                                 #  MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
001748,000211: 
001749,000212: 20,2000                                           SETLOC   DAPS3                                 
001750,000213: 20,2000                                           BANK                                           
001751,000214: 20,2000                                           COUNT*   $$/DAPAO                              
001752,000215: 
001753,000216: 20,2000           01150        TORKJET1           DEC      .03757                                #  550 / .2 SCALED AT (+16) 64 / 180
001754,000217: 

Page 43

001756,000219:                                                                                                  #  PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
001757,000220: 
001758,000221: 05,2000                                           SETLOC   FRANDRES                              
001759,000222: 05,2000                                           BANK                                           
001760,000223: 05,2000                                           COUNT*   $$/START                              
001761,000224: 
001762,000225: 05,2000           02357        FULLAPS            DEC      5050       B-16                       #  NOMINAL FULL ASCENT MASS -- 2(16) KG.
001763,000226: 
001764,000227: 01,2000                                           SETLOC   LOADDAP1                              
001765,000228: 01,2000                                           BANK                                           
001766,000229: 01,2000                                           COUNT*   $$/R03                                
001767,000230: 
001768,000231: 01,2000           76466        MINLMD             DEC      -2850      B-16                       #  MIN. DESCENT STAGE MASS -- 2(16) KG.
001769,000232: 01,2001           76731        MINMINLM           DEC      -2200      B-16                       #  MIN ASCENT STAGE MASS -- 2(16) KG.
001770,000233: 01,2002     4741               MINCSM             =        BIT11                                 #  MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
001771,000234: 
001772,000235: 20,2000                                           SETLOC   DAPS3                                 
001773,000236: 20,2000                                           BANK                                           
001774,000237: 20,2001                                           COUNT*   $$/DAPAO                              
001775,000238: 
001776,000239: 20,2001           01046        LOASCENT           DEC      2200       B-16                       #  MIN ASCENT LEM MASS -- 2(16) KG.
001777,000240: 20,2002           07361        HIDESCNT           DEC      15300      B-16                       #  MAX DESCENT LEM MASS -- 2(16) KG.
001778,000241: 20,2003           00666        LODESCNT           DEC      1750       B-16                       #  MIN DESCENT STAGE (ALONE) -- 2(16) KG.
001779,000242: 

Page 44

001781,000244:                                                                                                  #  PHYSICAL CONSTANTS ( TIME - INVARIANT )
001782,000245: 
001783,000246: 37,2000                                           SETLOC   IMU2                                  
001784,000247: 37,2000                                           BANK                                           
001785,000248: 37,2000                                           COUNT*   $$/P07                                
001786,000249: 
001787,000250: 37,2000           07623 26552  OMEG/MS            2DEC     .24339048                             
001788,000251: 
001789,000252: 22,2000                                           SETLOC   R30LOC                                
001790,000253: 22,2000                                           BANK                                           
001791,000254: 22,2000                                           COUNT*   $$/R30                                
001792,000255: 
001793,000256:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001794,000257: 
001795,000258: 22,2000           27533 07571  1/RTMUM            2DEC*    .45162595  E-4        B14*            
001796,000259: 22,2002           25004 06702  1/RTMUE            2DEC*    .50087529  E-5        B17*            
001797,000260: 
001798,000261:                                                                                                  #  ************************************************************************
001799,000262: 
001800,000263: 27,2000                                           SETLOC   P40S1                                 
001801,000264: 27,2000                                           BANK                                           
001802,000265: 27,2022                                           COUNT*   $$/S40.9                              
001803,000266: 
001804,000267: 27,2022           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           #  M(3)/CS(2)
001805,000268: 
001806,000269: 27,2000                                           SETLOC   ASENT1                                
001807,000270: 27,2000                                           BANK                                           
001808,000271: 27,2024                                           COUNT*   $$/P12                                
001809,000272: 
001810,000273: 27,2024           00072 16206  MUM(-37)           2DEC*    4.9027780  E8         B-37*           
001811,000274: 27,2026           00344 24331  MOONRATE           2DEC*    .26616994890062991 E-7        B+19*           #  RAD/CS.
001812,000275: 
001813,000276: 33,2000                                           SETLOC   SERVICES                              
001814,000277: 33,2000                                           BANK                                           
001815,000278: 33,2031                                           COUNT*   $$/SERV                               
001816,000279: 
001817,000280:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001818,000281: 
001819,000282: 33,2031           61377 55754  -MUDT              2DEC*    -7.9720645 E+12       B-44*           
001820,000283: 33,2033           77644 65556  -MUDT1             2DEC*    -9.8055560 E+10       B-44*           
001821,000284: 
001822,000285:                                                                                                  #  ************************************************************************
001823,000286: 
001824,000287: 33,2035           64453 55670  -MUDTMUN           2DEC*    -9.8055560 E+10       B-38*           
001825,000288: 33,2037           00002 11777  RESQ               2DEC*    40.6809913 E12        B-58*           
001826,000289: 

Page 45

001828,000291: 33,2041           01023 37155  20J                2DEC     3.24692010 E-2                        
001829,000292: 33,2043           00065 06244  2J                 2DEC     3.24692010 E-3                        
001830,000293: 
001831,000294: 14,2000                                           SETLOC   P50S1                                 
001832,000295: 14,2000                                           BANK                                           
001833,000296: 14,2000                                           COUNT*   $$/LOSAM                              
001834,000297: 
001835,000298: 14,2000           26723 00450  RSUBEM             2DEC     384402000  B-29                       
001836,000299: 14,2002           00065 01265  RSUBM              2DEC     1738090    B-29                       
001837,000300: 14,2004           00302 24533  RSUBE              2DEC     6378166    B-29                       
001838,000301: 14,2006           00052 04047  ROE                2DEC     .00257125                             
001839,000302: 
001840,000303: 04,2000                                           SETLOC   CONICS1                               
001841,000304: 04,2000                                           BANK                                           
001842,000305: 04,2000                                           COUNT*   $$/LT-LG                              
001843,000306: 
001844,000307: 04,2000           00302 17755  ERAD               2DEC     6373338    B-29                       #  PAD RADIUS
001845,000308: 04,2002           00065 01265  504RM              2DEC     1738090    B-29                       #  METERS B-29 (EQUATORIAL MOON RADIUS)
001846,000309: 
001847,000310: 04,2000                                           SETLOC   CONICS1                               
001848,000311: 04,2000                                           BANK                                           
001849,000312: 04,2004                                           COUNT*   $$/CONIC                              
001850,000313: 
001851,000314:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
001852,000315: 
001853,000316: 04,2004           22437 16067  MUTABLE            2DEC*    3.986032   E10        B-36*           #  MUE
001854,000317: 04,2006           15625 21042                     2DEC*    .25087606  E-10       B+34*           #  1/MUE
001855,000318: 04,2010           30276 04773                     2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
001856,000319: 04,2012           25004 06702                     2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
001857,000320: 04,2014           16471 01352                     2DEC*    4.902778   E8         B-30*           #  MUM
001858,000321: 04,2016           21412 20500                     2DEC*    .203966    E-8        B+28*           #  1/MUM
001859,000322: 04,2020           25477 03367                     2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
001860,000323: 04,2022           27533 07571                     2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
001861,000324: 
001862,000325:                                                                                                  #  ************************************************************************
001863,000326: 

Page 46

001865,000328: 13,2000                                           SETLOC   INTINIT                               
001866,000329: 13,2000                                           BANK                                           
001867,000330: 13,2000                                           COUNT*   $$/INTIN                              
001868,000331: 
001869,000332: 13,2000           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
001870,000333: 
001871,000334: 13,2000                                           SETLOC   ORBITAL2                              
001872,000335: 13,2000                                           BANK                                           
001873,000336: 13,2002                                           COUNT*   $$/ORBIT                              
001874,000337: 
001875,000338:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
001876,000339: 
001877,000340: 13,2002           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
001878,000341: 13,2004           16471 01352  MUM                2DEC*    4.9027780  E8         B-30*           #  M
001879,000342: 13,2006           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
001880,000343: 13,2010           00000 00000                     2DEC     0          B-28                       
001881,000344: 13,2012           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
001882,000345: 13,2014           77651 76237                     2DEC     -176236.02 B-25                       
001883,000346: 13,2016           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
001884,000347: 13,2020           10407 05344                     2DEC*    .3067493316 E18        B-60*           
001885,000348: 13,2022           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
001886,000349: 13,2024           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
001887,000350: 
001888,000351:                                                                                                  #  ************************************************************************
001889,000352: 
001890,000353: 27,2000                                           SETLOC   TOF-FF1                               
001891,000354: 27,2000                                           BANK                                           
001892,000355: 27,2030                                           COUNT*   $$/TFF                                
001893,000356: 
001894,000357: 27,2030           24775 30424  1/RTMU             2DEC*    .5005750271 E-5        B17*            #  MODIFIED EARTH MU
001895,000358: 
001896,000359: 42,2000                                           SETLOC   SBAND                                 
001897,000360: 42,2000                                           BANK                                           
001898,000361: 42,2000                                           COUNT*   $$/R05                                
001899,000362: 
001900,000363: 42,2000           26723 00450  REMDIST            2DEC     384402000  B-29                       #  MEAN DISTANCE BETWEEN EARTH AND MOON.
001901,000364: 

Page 47

001903,000366:                                                                                                  #  PHYSICAL CONSTANTS (TIME - VARIANT)
001904,000367: 
001905,000368: 14,2000                                           SETLOC   STARTAB                               
001906,000369: 14,2000                                           BANK                                           
001907,000370: 14,2010                                           COUNT*   $$/STARS                              
001908,000371: 
001909,000372: 14,2010           15262 21773                     2DEC     +.8342971408 B-1                        #  STAR 37       X
001910,000373: 14,2012           74130 42420                     2DEC     -.2392481515 B-1                        #  STAR 37       Y
001911,000374: 14,2014           70033 41533                     2DEC     -.4966976975 B-1                        #  STAR 37       Z
001912,000375: 
001913,000376: 14,2016           15014 04650                     2DEC     +.8139832631 B-1                        #  STAR 36       X
001914,000377: 14,2020           67067 60150                     2DEC     -.5557243189 B-1                        #  STAR 36       Y
001915,000378: 14,2022           02551 15723                     2DEC     +.1691204557 B-1                        #  STAR 36       Z
001916,000379: 
001917,000380: 14,2024           07210 01664                     2DEC     +.4541086270 B-1                        #  STAR 35       X
001918,000381: 14,2026           67276 62232                     2DEC     -.5392368197 B-1                        #  STAR 35       Y
001919,000382: 14,2030           13262 00563                     2DEC     +.7092312789 B-1                        #  STAR 35       Z
001920,000383: 
001921,000384: 14,2032           05076 35561                     2DEC     +.3201817378 B-1                        #  STAR 34       X
001922,000385: 14,2034           70716 40260                     2DEC     -.4436021946 B-1                        #  STAR 34       Y
001923,000386: 14,2036           62466 64656                     2DEC     -.8370786986 B-1                        #  STAR 34       Z
001924,000387: 
001925,000388: 14,2040           10652 04246                     2DEC     +.5520184464 B-1                        #  STAR 33       X
001926,000389: 14,2042           63235 44200                     2DEC     -.7933187400 B-1                        #  STAR 33       Y
001927,000390: 14,2044           73710 66230                     2DEC     -.2567508745 B-1                        #  STAR 33       Z
001928,000391: 
001929,000392: 14,2046           07204 33712                     2DEC     +.4537196908 B-1                        #  STAR 32       X
001930,000393: 14,2050           61747 72343                     2DEC     -.8779508801 B-1                        #  STAR 32       Y
001931,000394: 14,2052           02343 21362                     2DEC     +.1527766153 B-1                        #  STAR 32       Z
001932,000395: 
001933,000396: 14,2054           03237 13301                     2DEC     +.2069525789 B-1                        #  STAR 31       X
001934,000397: 14,2056           62030 65332                     2DEC     -.8719885748 B-1                        #  STAR 31       Y
001935,000398: 14,2060           70715 71267                     2DEC     -.4436288486 B-1                        #  STAR 31       Z
001936,000399: 
001937,000400: 14,2062           01745 06477                     2DEC     +.1217293692 B-1                        #  STAR 30       X
001938,000401: 14,2064           63531 75365                     2DEC     -.7702732847 B-1                        #  STAR 30       Y

Page 48

001940,000403: 14,2066           12010 03005                     2DEC     +.6259880410 B-1                        #  STAR 30       Z
001941,000404: 
001942,000405: 14,2070           76146 77014                     2DEC     -.1124304773 B-1                        #  STAR 29       X
001943,000406: 14,2072           60371 75073                     2DEC     -.9694934200 B-1                        #  STAR 29       Y
001944,000407: 14,2074           03370 12003                     2DEC     +.2178116072 B-1                        #  STAR 29       Z
001945,000408: 
001946,000409: 14,2076           76125 40037                     2DEC     -.1146237858 B-1                        #  STAR 28       X
001947,000410: 14,2100           72436 77062                     2DEC     -.3399692557 B-1                        #  STAR 28       Y
001948,000411: 14,2102           61041 54164                     2DEC     -.9334250333 B-1                        #  STAR 28       Z
001949,000412: 
001950,000413: 14,2104           72277 51044                     2DEC     -.3516499609 B-1                        #  STAR 27       X
001951,000414: 14,2106           62641 45471                     2DEC     -.8240752703 B-1                        #  STAR 27       Y
001952,000415: 14,2110           70711 70546                     2DEC     -.4441196390 B-1                        #  STAR 27       Z
001953,000416: 
001954,000417: 14,2112           67364 47073                     2DEC     -.5326876930 B-1                        #  STAR 26       X
001955,000418: 14,2114           64425 77777                     2DEC     -.7160644554 B-1                        #  STAR 26       Y
001956,000419: 14,2116           07157 16322                     2DEC     +.4511047742 B-1                        #  STAR 26       Z
001957,000420: 
001958,000421: 14,2120           63327 64446                     2DEC     -.7861763936 B-1                        #  STAR 25       X
001959,000422: 14,2122           67515 55266                     2DEC     -.5217996305 B-1                        #  STAR 25       Y
001960,000423: 14,2124           05230 25476                     2DEC     +.3311371675 B-1                        #  STAR 25       Z
001961,000424: 
001962,000425: 14,2126           64754 72604                     2DEC     -.6898393233 B-1                        #  STAR 24       X
001963,000426: 14,2130           71235 72553                     2DEC     -.4182330640 B-1                        #  STAR 24       Y
001964,000427: 14,2132           66427 42171                     2DEC     -.5909338474 B-1                        #  STAR 24       Z
001965,000428: 
001966,000429: 14,2134           66546 70765                     2DEC     -.5812035376 B-1                        #  STAR 23       X
001967,000430: 14,2136           73260 71643                     2DEC     -.2909171294 B-1                        #  STAR 23       Y
001968,000431: 14,2140           14121 30153                     2DEC     +.7599800468 B-1                        #  STAR 23       Z
001969,000432: 
001970,000433: 14,2142           61247 73310                     2DEC     -.9170097662 B-1                        #  STAR 22       X
001971,000434: 14,2144           72313 41247                     2DEC     -.3502146628 B-1                        #  STAR 22       Y
001972,000435: 14,2146           74744 44566                     2DEC     -.1908999176 B-1                        #  STAR 22       Z
001973,000436: 

Page 49

001975,000438: 14,2150           70606 54564                     2DEC     -.4523440203 B-1                        #  STAR 21       X
001976,000439: 14,2152           77153 61536                     2DEC     -.0493710140 B-1                        #  STAR 21       Y
001977,000440: 14,2154           61601 47046                     2DEC     -.8904759346 B-1                        #  STAR 21       Z
001978,000441: 
001979,000442: 14,2156           60604 76224                     2DEC     -.9525211695 B-1                        #  STAR 20       X
001980,000443: 14,2160           77031 73354                     2DEC     -.0593434796 B-1                        #  STAR 20       Y
001981,000444: 14,2162           73161 63065                     2DEC     -.2986331746 B-1                        #  STAR 20       Z
001982,000445: 
001983,000446: 14,2164           60431 51702                     2DEC     -.9656605484 B-1                        #  STAR 19       X
001984,000447: 14,2166           00656 33013                     2DEC     +.0525933156 B-1                        #  STAR 19       Y
001985,000448: 14,2170           04044 10627                     2DEC     +.2544280809 B-1                        #  STAR 19       Z
001986,000449: 
001987,000450: 14,2172           62164 45040                     2DEC     -.8608205219 B-1                        #  STAR 18       X
001988,000451: 14,2174           07325 37443                     2DEC     +.4636213989 B-1                        #  STAR 18       Y
001989,000452: 14,2176           03267 06626                     2DEC     +.2098647835 B-1                        #  STAR 18       Z
001990,000453: 
001991,000454: 14,2200           63471 50471                     2DEC     -.7742591356 B-1                        #  STAR 17       X
001992,000455: 14,2202           11660 04151                     2DEC     +.6152504197 B-1                        #  STAR 17       Y
001993,000456: 14,2204           75501 46664                     2DEC     -.1482892839 B-1                        #  STAR 17       Z
001994,000457: 
001995,000458: 14,2206           70430 46540                     2DEC     -.4657947941 B-1                        #  STAR 16       X
001996,000459: 14,2210           07507 20100                     2DEC     +.4774785033 B-1                        #  STAR 16       Y
001997,000460: 14,2212           13727 05455                     2DEC     +.7450164351 B-1                        #  STAR 16       Z
001998,000461: 
001999,000462: 14,2214           72160 64202                     2DEC     -.3612508532 B-1                        #  STAR 15       X
002000,000463: 14,2216           11144 05203                     2DEC     +.5747270840 B-1                        #  STAR 15       Y
002001,000464: 14,2220           64200 65331                     2DEC     -.7342932655 B-1                        #  STAR 15       Z
002002,000465: 
002003,000466: 14,2222           71322 41512                     2DEC     -.4118589524 B-1                        #  STAR 14       X
002004,000467: 14,2224           16402 16205                     2DEC     +.9065485360 B-1                        #  STAR 14       Y
002005,000468: 14,2226           01365 04034                     2DEC     +.0924226975 B-1                        #  STAR 14       Z
002006,000469: 
002007,000470: 14,2230           75054 56052                     2DEC     -.1820751783 B-1                        #  STAR 13       X

Page 50

002009,000472: 14,2232           17030 17635                     2DEC     +.9404899869 B-1                        #  STAR 13       Y
002010,000473: 14,2234           73321 57603                     2DEC     -.2869271926 B-1                        #  STAR 13       Z
002011,000474: 
002012,000475: 14,2236           77010 47623                     2DEC     -.0614937230 B-1                        #  STAR 12       X
002013,000476: 14,2240           11515 01640                     2DEC     +.6031563286 B-1                        #  STAR 12       Y
002014,000477: 14,2242           63215 52176                     2DEC     -.7952489957 B-1                        #  STAR 12       Z
002015,000478: 
002016,000479: 14,2244           02143 26755                     2DEC     +.1371725575 B-1                        #  STAR 11       X
002017,000480: 14,2246           12715 31470                     2DEC     +.6813721061 B-1                        #  STAR 11       Y
002018,000481: 14,2250           13401 31222                     2DEC     +.7189685267 B-1                        #  STAR 11       Z
002019,000482: 
002020,000483: 14,2252           03157 27504                     2DEC     +.2011399589 B-1                        #  STAR 10       X
002021,000484: 14,2254           17402 12312                     2DEC     +.9690337941 B-1                        #  STAR 10       Y
002022,000485: 14,2256           75552 63657                     2DEC     -.1432348512 B-1                        #  STAR 10       Z
002023,000486: 
002024,000487: 14,2260           05471 06122                     2DEC     +.3507315038 B-1                        #  STAR 9        X
002025,000488: 14,2262           16220 16362                     2DEC     +.8926333307 B-1                        #  STAR 9        Y
002026,000489: 14,2264           04417 32762                     2DEC     +.2831839492 B-1                        #  STAR 9        Z
002027,000490: 
002028,000491: 14,2266           06443 12622                     2DEC     +.4105636020 B-1                        #  STAR 8        X
002029,000492: 14,2270           07766 10237                     2DEC     +.4988110001 B-1                        #  STAR 8        Y
002030,000493: 14,2272           14154 36154                     2DEC     +.7632988371 B-1                        #  STAR 8        Z
002031,000494: 
002032,000495: 14,2274           13200 31653                     2DEC     +.7032235469 B-1                        #  STAR 7        X
002033,000496: 14,2276           13244 21036                     2DEC     +.7075846047 B-1                        #  STAR 7        Y
002034,000497: 14,2300           01067 23106                     2DEC     +.0692868685 B-1                        #  STAR 7        Z
002035,000498: 
002036,000499: 14,2302           10560 27227                     2DEC     +.5450107404 B-1                        #  STAR 6        X
002037,000500: 14,2304           10402 00275                     2DEC     +.5314955466 B-1                        #  STAR 6        Y
002038,000501: 14,2306           65477 77044                     2DEC     -.6484410356 B-1                        #  STAR 6        Z
002039,000502: 
002040,000503: 14,2310           00153 11212                     2DEC     +.0130968840 B-1                        #  STAR 5        X
002041,000504: 14,2312           00077 36275                     2DEC     +.0078062795 B-1                        #  STAR 5        Y

Page 51

002043,000506: 14,2314           17777 01417                     2DEC     +.9998837600 B-1                        #  STAR 5        Z
002044,000507: 
002045,000508: 14,2316           07674 21771                     2DEC     +.4917678276 B-1                        #  STAR 4        X
002046,000509: 14,2320           03416 07626                     2DEC     +.2204887125 B-1                        #  STAR 4        Y
002047,000510: 14,2322           62413 57536                     2DEC     -.8423473935 B-1                        #  STAR 4        Z
002048,000511: 
002049,000512: 14,2324           07510 06414                     2DEC     +.4775639450 B-1                        #  STAR 3        X
002050,000513: 14,2326           01673 06065                     2DEC     +.1166004340 B-1                        #  STAR 3        Y
002051,000514: 14,2330           15735 31531                     2DEC     +.8708254803 B-1                        #  STAR 3        Z
002052,000515: 
002053,000516: 14,2332           16745 17555                     2DEC     +.9342640400 B-1                        #  STAR 2        X
002054,000517: 14,2334           02615 13716                     2DEC     +.1735073142 B-1                        #  STAR 2        Y
002055,000518: 14,2336           73010 40311                     2DEC     -.3115219339 B-1                        #  STAR 2        Z
002056,000519: 
002057,000520: 14,2340           15776 34660                     2DEC     +.8748658918 B-1                        #  STAR 1        X
002058,000521: 14,2342           00325 26625                     2DEC     +.0260879174 B-1                        #  STAR 1        Y
002059,000522: 14,2344           07572 05105                     2DEC     +.4836621670 B-1                        #  STAR 1        Z
002060,000523: 
002061,000524: 14,2346           15472        CATLOG             DEC      6970       B-14                       
002062,000525: 
002063,000526:                                                                                                  #  ************************************************************************
002064,000527: 
002065,000528: 05,2000                                           SETLOC   EPHEM1                                
002066,000529: 05,2000                                           BANK                                           
002067,000530: 05,2001                                           COUNT*   $$/EPHEM                              
002068,000531: 
002069,000532: 05,2001           20000 00000  KONMAT             2DEC     1.0        B-1                        #          *************
002070,000533: 05,2003           00000 00000                     2DEC     0          B-28                       #                      *
002071,000534: 05,2005           00000 00000                     2DEC     0          B-28                       #                      *
002072,000535: 05,2007           00000 00000                     2DEC     0          B-28                       #                      *
002073,000536: 05,2011           16533 30007                     2DEC     .91745     B-1                        #  K1 COS(OBL)         *
002074,000537: 05,2013           77333 56654                     2DEC     -.03571    B-1                        #  K2 SIN(OBL)SIN(IM)  *
002075,000538: 05,2015           00000 00000                     2DEC     0          B-28                       #                      *
002076,000539: 05,2017           06273 03275                     2DEC     .39784     B-1                        #  K3 SIN(OBL)         *

Page 52

002078,000541: 05,2021           01242 24467                     2DEC     .082354    B-1                        #  K4 COS(OBL)SIN(IM)  *
002079,000542: 05,2023           00020 17260  CSTODAY            2DEC     8640000    B-33                       #                      * NOTE           *
002080,000543: 05,2025           00002        RCB-13             OCT      00002                                 #                      * TABLES CONTAIN *
002081,000544: 05,2026           00000                           OCT      00000                                 #                      * CONSTANTS FOR  *
002082,000545: 05,2027           22572 27214  RATESP             2DEC     .03660098  B+4                        #  LOMR                * 1969 - 1970    *
002083,000546: 05,2031           01315 26177                     2DEC     .00273779  B+4                        #  LOSR
002084,000547: 05,2033           77731 55217                     2DEC     -.00014719 B+4                        #  LONR
002085,000548: 05,2035           32055 22576                     2DEC     .815282336                            #  LOMO
002086,000549: 05,2037           10624 10605                     2DEC     .274674910                            #  LOSO
002087,000550: 05,2041           37436 01635                     2DEC     .986209499                            #  LONO
002088,000551: 05,2043           01065 31323  VAL67              2DEC*    .01726666666 B+1*                       #  AMOD
002089,000552: 05,2045           20770 13725                     2DEC     .530784445                            #  AARG
002090,000553: 05,2047           02245 06475                     2DEC     .036291712 B+1                        #  1/27
002091,000554: 05,2051           00162 33431                     2DEC     .003505277 B+1                        #  BMOD
002092,000555: 05,2053           22566 24130                     2DEC     .585365625                            #  BARG
002093,000556: 05,2055           02000 00000                     2DEC     .03125     B+1                        #  1/32
002094,000557: 05,2057           00256 17752                     2DEC     .005325277 B+1                        #  CMOD
002095,000558: 05,2061           77512 67453                     2DEC     -.01106341036                            #  CARG
002096,000559: 05,2063           00131 26730                     2DEC     .002737925 B+1                        #  1/365
002097,000560: 
002098,000561:                                                                                                  #  ************************************************************************
002099,000562: 
002100,000563: 26,2000                                           SETLOC   PLANTIN2                              
002101,000564: 26,2000                                           BANK                                           
002102,000565: 26,2000                                           COUNT*   $$/LUROT                              
002103,000566: 
002104,000567: 26,2000           17775 02052  COSI               2DEC     .99964173  B-1                        #  COS (5521.5 SEC) B-1
002105,000568: 26,2002           00333 10374  SINI               2DEC     .02676579  B-1                        #  SIN (5521.5 SEC) B-1
002106,000569: 26,2004           77665 42175  NODDOT             2DEC     -.457335121 E-2                        #  REVS/CSEC B+28 = -1.07047011 E-8 RAD/SEC
002107,000570: 26,2006           22211 00625  FDOT               2DEC     .570863327                            #  REVS/CSEC B+27 =  2.67240410 E-6 RAD/SEC

Page 53

002109,000572: 26,2010           77777 77767  BDOT               2DEC     -3.07500686 E-8                        #  REVS/CSEC B+28=-7.19757301 E-14 RAD/SEC
002110,000573: 26,2012           37436 01613  NODIO              2DEC     .986209434                            #  REVS B-D    = 6.19653663041 RAD
002111,000574: 26,2014           32417 32160  FSUBO              2DEC     .829090536                            #  REVS B-D    = 5.20932947829 RAD
002112,000575: 26,2016           02052 35552  BSUBO              2DEC     .0651201393                            #  REVS B-D    = 0.40916190299 RAD
002113,000576: 26,2020           37116 32523  WEARTH             2DEC     .973561595                            #  REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
002114,000577: 

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