Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

001515,000002:                                                                                                  ## Copyright:   Public domain.
001516,000003:                                                                                                  ## Filename:    CONTROLLED_CONSTANTS.agc
001517,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
001518,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
001519,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
001520,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
001521,000008:                                                                                                  ##              that the code format has been changed to conform to the
001522,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
001523,000010:                                                                                                  ##              original YUL assembler.
001524,000011:                                                                                                  ## Reference:   pp. 39-55
001525,000012:                                                                                                  ## Assembler:   yaYUL
001526,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
001527,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001528,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
001529,000016:                                                                                                  ##              2016-11-17 HG   Transcribed
001530,000017:                                                                                                  ##              2016-12-08 HG   Fix label  HBEAMANB  -> HBEAMNB
001531,000018:                                                                                                  ##              2016-12-11 HG   fix value for STAR 22 Z
001532,000019:                                                                                                  ##                                            BSUBO
001533,000020:                                                                                                  ##              2016-12-12 HG   fix value for HBEAMNB
001534,000021:                                                                                                  ##              2016-12-12 MAS  Split up some Exx Bxx scalers.
001535,000022:                                                                                                  ##              2016-12-15 RSB  Proofed comment text with octopus/ProoferComments,
001536,000023:                                                                                                  ##                              and corrected the errors found.
001537,000024:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
001538,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
001539,000026:                                                                                                  ##              2017-08-12 MAS  Fixed a comment text error found while transcribing
001540,000027:                                                                                                  ##                              Zerlina 56.
001541,000028: 

Page 39

001543,000030:                                                                                                  #  DPS AND APS ENGINE PARAMETERS
001544,000031: 
001545,000032: 36,2000                                           SETLOC   P40S                                  
001546,000033: 36,2000                                           BANK                                           
001547,000034: 36,2000                                           COUNT*   $$/P40                                
001548,000035: 
001549,000036:                                                                                                  #  *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
001550,000037: 
001551,000038: 36,2000           01056 37167  FDPS               2DEC     4.3670     B-7                        #  9817.5 LBS FORCE IN NEWTONS
001552,000039: 36,2002           00457 03250  MDOTDPS            2DEC     0.1480     B-3                        #  32.62 LBS/SEC IN KGS/CS.
001553,000040: 36,2004           77777 77731  DTDECAY            2DEC     -38        B-28                       #  40 PERCENT FTP-DPS TAILOFF FOR P40
001554,000041: 36,2006           00307 11040  FAPS               2DEC     1.5569     B-7                        #  3500 LBS FORCE IN NEWTONS
001555,000042: 36,2010           00151 05214  MDOTAPS            2DEC     0.05135    B-3                        #  11.32 LBS/SEC IN KGS/CS
001556,000043: 36,2012           77777 77755  ATDECAY            2DEC     -18        B-28                       #  618 LB-SEC TAILOFF FOR APS
001557,000044: 
001558,000045:                                                                                                  #  ************************************************************************
001559,000046: 
001560,000047: 36,2014           00003 00000  100PCTTO           2DEC     24         B-17                       #  100 PERCENT FTP-DPS TAILOFF FOR P70
001561,000048: 
001562,000049:                                                                                                  #  ************************************************************************
001563,000050: 
001564,000051: 36,2016           00026 30605  FRCS4              2DEC     0.17792    B-7                        #  400 LBS FORCE IN NEWTONS
001565,000052: 36,2020           00013 14303  FRCS2              2DEC     0.08896    B-7                        #  200 LBS FORCE IN NEWTONS
001566,000053: 27,2000                                           SETLOC   P40S1                                 
001567,000054: 27,2000                                           BANK                                           
001568,000055: 27,2000                                           COUNT*   $$/P40                                
001569,000056: 
001570,000057:                                                                                                  #  *** APS IMPULSE DATA FOR P42 *******************************************
001571,000058: 
001572,000059: 27,2000           00000 10604  K1VAL              2DEC     140.12     B-23                       #  3150 LB.SEC APS IMPULSE (WET)
001573,000060: 27,2002           00000 00762  K2VAL              2DEC     31.138     B-24                       #  700  LB-SEC
001574,000061: 27,2004           00030 35104  K3VAL              2DEC     1.5569     B-10                       #  FAPS ( 3500 LBS THRUST)
001575,000062:                                                                                                  #  ************************************************************************
001576,000063: 
001577,000064: 27,2006           00016 36237  S40.136            2DEC     .4671      B-9                        #  .4671 M NEWTONS (DPS)
001578,000065: 27,2010           35711 35663  S40.136_           2DEC     .4671      B+1                        #  S40.136 SHIFTED LEFT 10.
001579,000066: 
001580,000067: 27,2000                                           SETLOC   ASENT1                                

Page 40

001582,000069: 27,2000                                           BANK                                           
001583,000070: 27,2012                                           COUNT*   $$/P70                                
001584,000071: 
001585,000072: 27,2012           03631 23146  (1/DV)A            2DEC     15.20      B-7                        #  2 SECONDS WORTH OF INITIAL ASCENT
001586,000073: 
001587,000074:                                                                                                  #  STAGE ACCELERATION -- INVERTED (M/CS)
001588,000075:                                                                                                  #  1) PREDICATED ON A LIFTOFF MASS OF
001589,000076:                                                                                                  #     4869.9 KG (SNA-8-D-027 7/11/68)
001590,000077:                                                                                                  #  2) PREDICATED ON A CONTRIBUTION TO VEH-
001591,000078:                                                                                                  #     ICLE ACCELERATION FROM RCS THRUSTERS
001592,000079:                                                                                                  #     EQUIV. TO 1 JET ON CONTINUOUSLY.
001593,000080: 27,2014           33226 14632  K(1/DV)            2DEC     436.70     B-9                        #  DPS ENGINE THRUST IN NEWTONS / 100 CS.
001594,000081: 27,2016           05306 15503  (AT)A              2DEC     3.2883     E-4        B9              #  INITIAL ASC. STG. ACCELERATION ** M/CS.
001595,000082:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A.
001596,000083: 27,2020           26337 30000  (TBUP)A            2DEC     91902      B-17                       #  ESTIMATED BURN-UP TIME OF THE ASCENT STG
001597,000084:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
001598,000085:                                                                                                  #  ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
001599,000086:                                                                                                  #  RATE = 5.299 KG/SEC = 5.135 (APS) +
001600,000087:                                                                                                  #  .164 (1 RCS JET).
001601,000088: 30,2000                                           SETLOC   ASENT                                 
001602,000089: 30,2000                                           BANK                                           
001603,000090: 30,2000                                           COUNT*   $$/ASENT                              
001604,000091: 30,2000           02445 00274  AT/RCS             2DEC     .0000785   B+10                       #  4 JETS IN A DRY LEM
001605,000092: 
001606,000093: 33,2000                                           SETLOC   SERVICES                              
001607,000094: 33,2000                                           BANK                                           
001608,000095: 33,2000                                           COUNT*   $$/SERV                               
001609,000096: 
001610,000097:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
001611,000098: 
001612,000099: 33,2000           41545        APSVEX             DEC      -3030      E-2        B-5             #  9942 FT/SEC IN M/CS.
001613,000100: 33,2001           42341        DPSVEX             DEC*     -2.95588868 E+1        B-05*           #          VE (DPS) +2.95588868E+ 3
001614,000101:                                                                                                  #  ************************************************************************
001615,000102: 
001616,000103: 31,2000                                           SETLOC   F2DPS*31                              
001617,000104: 31,2000                                           BANK                                           
001618,000105: 31,2000                                           COUNT*   $$/F2DPS                              
001619,000106: 
001620,000107: 31,2000           00222 33316  TRIMACCL           2DEC*    +3.50132708 E-5        B+08*           #          A (T)    +3.50132708E- 1
001621,000108: 

Page 41

001623,000110:                                                                                                  #  THROTTLING AND THRUST DETECTION PARAMETERS
001624,000111: 
001625,000112: 36,2000                                           SETLOC   P40S                                  
001626,000113: 36,2000                                           BANK                                           
001627,000114: 36,2022                                           COUNT*   $$/P40                                
001628,000115: 
001629,000116: 36,2022           00030        THRESH1            DEC      24         B-14                       
001630,000117: 
001631,000118: 36,2023           00014        THRESH3            DEC      12         B-14                       
001632,000119: 
001633,000120: 36,2024     4730               HIRTHROT           =        BIT13                                 
001634,000121: 
001635,000122:    6000                                           SETLOC   FFTAG5                                
001636,000123:    6000                                           BANK                                           
001637,000124:    6000                                           COUNT*   $$/P40                                
001638,000125: 
001639,000126:    6000           00464        THRESH2            DEC      308        B-14                       
001640,000127: 
001641,000128: 31,2000                                           SETLOC   FTHROT                                
001642,000129: 31,2000                                           BANK                                           
001643,000130: 31,2002                                           COUNT*   $$/THROT                              
001644,000131: 
001645,000132: 31,2002           07401        FMAXODD            DEC      +3841      B-14                       #  FSAT          +4.81454413 E+ 4
001646,000133: 31,2003           06613        FMAXPOS            DEC      +3467      B-14                       #  FMAX          +4.34546769 E+ 4
001647,000134: 31,2004           00010        THROTLAG           DEC      +8         B-14                       #  TAU (TH)       +0.08 SECONDS
001648,000135: 31,2005           00307 17534  SCALEFAC           2DEC*    +7.97959872 E+2        B-16*           #  BITPERF       +7.97959872 E- 2
001649,000136: 
001650,000137: 32,2000                                           SETLOC   F2DPS*32                              
001651,000138: 32,2000                                           BANK                                           
001652,000139: 32,2000                                           COUNT*   $$/F2DPS                              
001653,000140: 
001654,000141: 32,2000           00044        DPSTHRSH           DEC      36         B-14                       #  (THRESH1 + THRESH3 FOR P63)
001655,000142: 

Page 42

001657,000144:                                                                                                  #  LM HARDWARE-RELATED PARAMETERS
001658,000145: 
001659,000146: 25,2000                                           SETLOC   RADARUPT                              
001660,000147: 25,2000                                           BANK                                           
001661,000148: 25,2000                                           COUNT*   $$/RRUPT                              
001662,000149: 
001663,000150: 25,2000           47777        LVELBIAS           DEC      -12288     B-14                       #  LANDING RADAR BIAS FOR 153.6 KC.
001664,000151: 25,2001           00001 01150  RDOTBIAS           2DEC     17000      B-28                       #  BIAS COUNT FOR RR RANGE RATE.
001665,000152: 32,2000                                           SETLOC   LRS22                                 
001666,000153: 32,2000                                           BANK                                           
001667,000154: 32,2001                                           COUNT*   $$/LRS22                              
001668,000155: 
001669,000156: 32,2001           70123 40702  RDOTCONV           2DEC     -.0019135344 B7                         #  CONVERTS RR RDOT READING TO M/CS AT 2(7)
001670,000157: 32,2003           13337 10776  RANGCONV           2DEC     2.859024   B-3                        #  CONVERTS RR RANGE READING TO M. AT 2(-29
001671,000158: 33,2000                                           SETLOC   SERVICES                              
001672,000159: 33,2000                                           BANK                                           
001673,000160: 33,2002                                           COUNT*   $$/SERV                               
001674,000161: 
001675,000162: 33,2002           51102 42414  HBEAMNB            2DEC     -0.7147168647                            #  POS 1 ALT BEAM IN NAV BASE COORDINATES
001676,000163: 33,2004           75522 46002                     2DEC     -0.0731086602                            
001677,000164: 33,2006           51573 62362                     2DEC     -0.6955824372                            
001678,000165: 
001679,000166: 33,2010           62770 40667  VZBEAMNB           2DEC     -0.4067366430                            #  POS 1 VZ  BEAM
001680,000167: 33,2012           03034 21031                     2DEC     +0.0954915028                            
001681,000168: 33,2014           35045 21077                     2DEC     +0.9085409600                            
001682,000169: 
001683,000170: 33,2016           00000 00000  VYBEAMNB           2DEC     +0.0                                  #  POS 1 VY  BEAM
001684,000171: 33,2020           37646 07712                     2DEC     +0.9945218954                            
001685,000172: 33,2022           74517 54765                     2DEC     -0.1045284632                            
001686,000173: 
001687,000174: 33,2024           35167 20727  VXBEAMNB           2DEC     +0.9135454576                            #  POS 1 VX  BEAM
001688,000175: 33,2026           01270 22313                     2DEC     +0.0425155563                            
001689,000176: 33,2030           14743 16747                     2DEC     +0.4045084971                            
001690,000177: 

Page 43

001692,000179: 33,2032           42001 62422                     2DEC     -0.9374036070                            #  POS 2 ALT BEAM
001693,000180: 33,2034           76653 63102                     2DEC     -0.0364014993                            
001694,000181: 33,2036           64725 63461                     2DEC     -0.3463371311                            
001695,000182: 
001696,000183: 33,2040           00000 00000                     2DEC     +0.0                                  #  POS 2 VZ  BEAM
001697,000184: 33,2042           03260 23012                     2DEC     +0.1045284632                            
001698,000185: 33,2044           37646 07712                     2DEC     +0.9945218954                            
001699,000186: 
001700,000187: 33,2046           00000 00000                     2DEC     +0.0                                  #  POS 2 VY  BEAM
001701,000188: 33,2050           37646 07712                     2DEC     +0.9945218954                            
001702,000189: 33,2052           74517 54765                     2DEC     -0.1045284632                            
001703,000190: 
001704,000191: 33,2054           37777 37777                     2DEC     +0.9999999999                            #  POS 2 VX  BEAM
001705,000192: 33,2056           00000 00000                     2DEC     +0.0                                  
001706,000193: 33,2060           00000 00000                     2DEC     +0.0                                  
001707,000194: 
001708,000195: 
001709,000196: 33,2062           65363 64451  HSCAL              2DEC     -.3288792                             #  SCALES 1.079 FT/BIT TO 2(22)M.
001710,000197: 
001711,000198:                                                                                                  #  ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
001712,000199: 
001713,000200: 33,2064           21241 03216  VZSCAL             2DEC     +.5410829105                            #  SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
001714,000201: 33,2066           30153 23101  VYSCAL             2DEC     +.7565672446                            #  SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
001715,000202: 33,2070           63105 61733  VXSCAL             2DEC     -.4020043770                            #  SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
001716,000203:                                                                                                  #  ************************************************************************
001717,000204: 
001718,000205: 33,2072           01507        KPIP               DEC      .0512                                 #  SCALES DELV TO UNITS OF 2(5) M/CS.
001719,000206: 33,2073           00321 26706  KPIP1              2DEC     .0128                                 #  SCALES DELV TO UNITS OF 2(7) M/CS.
001720,000207: 33,2075           00150 33343  KPIP2              2DEC     .0064                                 #  SCALES DELV TO UNITS OF 2(8) M/CS.
001721,000208: 21,2000                                           SETLOC   R10                                   
001722,000209: 

Page 44

001724,000211: 21,2000                                           BANK                                           
001725,000212: 21,2000                                           COUNT*   $$/R10                                
001726,000213: 
001727,000214: 21,2000           01507        LANAKPIP           DEC      .0512                                 #  SCALES PIPAS TO UNITS OF 2(5) M/CS
001728,000215: 21,2001           00466        MAXVEL             OCT      00466                                 #  198.645 F/S IN UNITS OF 2(5) M/CS
001729,000216: 21,2002           01034        MAXDBITS           OCT      01034                                 #  ABOUT 300 F/S
001730,000217: 21,2003           01115        VELCONV            DEC      .03594                                #  SCALES VFL AT ONE M/CS TO .5571 F/S/BIT
001731,000218: 21,2004           05101        ALTRCONV           DEC      .16020                                #  SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
001732,000219: 21,2005           26305        ALTCONV            DEC      .69954                                #  SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
001733,000220: 
001734,000221: 20,2000                                           SETLOC   DAPS3                                 
001735,000222: 20,2000                                           BANK                                           
001736,000223: 20,2000                                           COUNT*   $$/DAPAO                              
001737,000224: 
001738,000225: 20,2000           01150        TORKJET1           DEC      .03757                                #  550 / .2 SCALED AT (+16) 64 / 180
001739,000226: 

Page 45

001741,000228:                                                                                                  #  PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
001742,000229: 
001743,000230: 05,2000                                           SETLOC   FRANDRES                              
001744,000231: 05,2000                                           BANK                                           
001745,000232: 05,2000                                           COUNT*   $$/START                              
001746,000233: 
001747,000234: 05,2000           02357        FULLAPS            DEC      5050       B-16                       #  NOMINAL FULL ASCENT MASS -- 2(16) KG.
001748,000235: 
001749,000236: 01,2000                                           SETLOC   LOADDAP1                              
001750,000237: 01,2000                                           BANK                                           
001751,000238: 01,2000                                           COUNT*   $$/R03                                
001752,000239: 
001753,000240: 01,2000           75675        MINLMD             DEC      -4360      B-16                       #  MIN. UNSTAGED MASS (6560 KG) - MINMINLM
001754,000241:                                                                                                  #    2(16) KG.
001755,000242: 01,2001           76731        MINMINLM           DEC      -2200      B-16                       #  MIN ASCENT STAGE MASS -- 2(16) KG.
001756,000243: 01,2002     4732               MINCSM             =        BIT11                                 #  MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
001757,000244: 
001758,000245: 20,2000                                           SETLOC   DAPS3                                 
001759,000246: 20,2000                                           BANK                                           
001760,000247: 20,2001                                           COUNT*   $$/DAPAO                              
001761,000248: 
001762,000249: 20,2001           01046        LOASCENT           DEC      2200       B-16                       #  MIN ASCENT LEM MASS -- 2(16) KG.
001763,000250: 20,2002           10117        HIDESCNT           DEC      16700      B-16                       #  MAX DESCENT LEM MASS -- 2(16) KG.
001764,000251: 20,2003           01174        LODESCNT           DEC      2542       B-16                       #  MIN DESCENT STAGE (ALONE) -- 2(16) KG
001765,000252: 

Page 46

001767,000254:                                                                                                  #  PHYSICAL CONSTANTS ( TIME - INVARIANT )
001768,000255: 
001769,000256: 37,2000                                           SETLOC   IMU2                                  
001770,000257: 37,2000                                           BANK                                           
001771,000258: 37,2000                                           COUNT*   $$/P07                                
001772,000259: 
001773,000260: 37,2000           07623 26552  OMEG/MS            2DEC     .24339048                             
001774,000261: 
001775,000262: 22,2000                                           SETLOC   R30LOC                                
001776,000263: 22,2000                                           BANK                                           
001777,000264: 22,2000                                           COUNT*   $$/R30                                
001778,000265: 
001779,000266:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001780,000267: 
001781,000268: 22,2000           27533 07571  1/RTMUM            2DEC*    .45162595  E-4        B14*            
001782,000269: 22,2002           25004 06702  1/RTMUE            2DEC*    .50087529  E-5        B17*            
001783,000270:                                                                                                  #  ************************************************************************
001784,000271: 
001785,000272: 27,2000                                           SETLOC   P40S1                                 
001786,000273: 27,2000                                           BANK                                           
001787,000274: 27,2022                                           COUNT*   $$/S40.9                              
001788,000275: 
001789,000276: 27,2022           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           #  M(3)/CS(2)
001790,000277: 
001791,000278: 27,2000                                           SETLOC   ASENT1                                
001792,000279: 27,2000                                           BANK                                           
001793,000280: 27,2024                                           COUNT*   $$/P12                                
001794,000281: 
001795,000282: 27,2024           00072 16206  MUM(-37)           2DEC*    4.9027780  E8         B-37*           
001796,000283: 27,2026           00344 24331  MOONRATE           2DEC*    .26616994890062991 E-7        B+19*           #  RAD/CS.
001797,000284: 
001798,000285: 33,2000                                           SETLOC   SERVICES                              
001799,000286: 33,2000                                           BANK                                           
001800,000287: 33,2077                                           COUNT*   $$/SERV                               
001801,000288: 
001802,000289:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001803,000290: 
001804,000291: 33,2077           61377 55754  -MUDT              2DEC*    -7.9720645 E+12       B-44*           
001805,000292: 33,2101           77644 65556  -MUDT1             2DEC*    -9.8055560 E+10       B-44*           
001806,000293:                                                                                                  #  ************************************************************************
001807,000294: 
001808,000295: 33,2103           64453 55670  -MUDTMUN           2DEC*    -9.8055560 E+10       B-38*           
001809,000296: 33,2105           00002 11777  RESQ               2DEC*    40.6809913 E12        B-58*           
001810,000297: 

Page 47

001812,000299: 33,2107           01023 37155  20J                2DEC     3.24692010 E-2                        
001813,000300: 33,2111           00065 06244  2J                 2DEC     3.24692010 E-3                        
001814,000301: 
001815,000302: 14,2000                                           SETLOC   P50S1                                 
001816,000303: 14,2000                                           BANK                                           
001817,000304: 14,2000                                           COUNT*   $$/LOSAM                              
001818,000305: 
001819,000306: 14,2000           26723 00450  RSUBEM             2DEC     384402000  B-29                       
001820,000307: 14,2002           00065 01265  RSUBM              2DEC     1738090    B-29                       
001821,000308: 14,2004           00302 24533  RSUBE              2DEC     6378166    B-29                       
001822,000309: 14,2006           00052 04047  ROE                2DEC     .00257125                             
001823,000310: 
001824,000311: 04,2000                                           SETLOC   CONICS1                               
001825,000312: 04,2000                                           BANK                                           
001826,000313: 04,2000                                           COUNT*   $$/LT-LG                              
001827,000314: 
001828,000315: 04,2000           00302 17755  ERAD               2DEC     6373338    B-29                       #  PAD RADIUS
001829,000316: 04,2002           00065 01265  504RM              2DEC     1738090    B-29                       #  METERS B-29 (EQUATORIAL MOON RADIUS)
001830,000317: 
001831,000318: 04,2000                                           SETLOC   CONICS1                               
001832,000319: 04,2000                                           BANK                                           
001833,000320: 04,2004                                           COUNT*   $$/CONIC                              
001834,000321: 
001835,000322:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
001836,000323: 
001837,000324: 04,2004           22437 16067  MUTABLE            2DEC*    3.986032   E10        B-36*           #  MUE
001838,000325: 04,2006           15625 21042                     2DEC*    .25087606  E-10       B+34*           #  1/MUE
001839,000326: 04,2010           30276 04773                     2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
001840,000327: 04,2012           25004 06702                     2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
001841,000328: 
001842,000329: 
001843,000330: 04,2014           16471 01352                     2DEC*    4.902778   E8         B-30*           #  MUM
001844,000331: 04,2016           21412 20500                     2DEC*    .203966    E-8        B+28*           #  1/MUM
001845,000332: 04,2020           25477 03367                     2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
001846,000333: 04,2022           27533 07571                     2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
001847,000334: 
001848,000335:                                                                                                  #  ************************************************************************

Page 48

001850,000337: 13,2000                                           SETLOC   INTINIT                               
001851,000338: 13,2000                                           BANK                                           
001852,000339: 13,2000                                           COUNT*   $$/INTIN                              
001853,000340: 
001854,000341: 13,2000           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
001855,000342: 
001856,000343: 13,2000                                           SETLOC   ORBITAL2                              
001857,000344: 13,2000                                           BANK                                           
001858,000345: 13,2002                                           COUNT*   $$/ORBIT                              
001859,000346: 
001860,000347:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
001861,000348: 
001862,000349: 13,2002           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
001863,000350: 13,2004           16471 01352  MUM                2DEC*    4.9027780  E8         B-30*           #  M
001864,000351: 13,2006           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
001865,000352: 13,2010           00000 00000                     2DEC     0          B-28                       
001866,000353: 13,2012           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
001867,000354: 13,2014           77651 76237                     2DEC     -176236.02 B-25                       
001868,000355: 13,2016           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
001869,000356: 13,2020           10407 05344                     2DEC*    .3067493316 E18        B-60*           
001870,000357: 13,2022           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
001871,000358: 13,2024           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
001872,000359:                                                                                                  #  ************************************************************************
001873,000360: 
001874,000361: 27,2000                                           SETLOC   TOF-FF1                               
001875,000362: 27,2000                                           BANK                                           
001876,000363: 27,2030                                           COUNT*   $$/TFF                                
001877,000364: 
001878,000365: 27,2030           24775 30424  1/RTMU             2DEC*    .5005750271 E-5        B17*            #  MODIFIED EARTH MU
001879,000366: 
001880,000367: 42,2000                                           SETLOC   SBAND                                 
001881,000368: 42,2000                                           BANK                                           
001882,000369: 42,2000                                           COUNT*   $$/R05                                
001883,000370: 
001884,000371: 42,2000           26723 00450  REMDIST            2DEC     384402000  B-29                       #  MEAN DISTANCE BETWEEN EARTH AND MOON.
001885,000372: 

Page 49

001887,000374:                                                                                                  #  PHYSICAL CONSTANTS (TIME - VARIANT)
001888,000375: 
001889,000376: 14,2000                                           SETLOC   STARTAB                               
001890,000377: 14,2000                                           BANK                                           
001891,000378: 14,2010                                           COUNT*   $$/STARS                              
001892,000379: 
001893,000380: 14,2010           15264 07253                     2DEC     +.8345006310 B-1                        #  STAR 37       X
001894,000381: 14,2012           74133 45130                     2DEC     -.2388718657 B-1                        #  STAR 37       Y
001895,000382: 14,2014           70034 53644                     2DEC     -.4965369357 B-1                        #  STAR 37       Z
001896,000383: 
001897,000384: 14,2016           15015 35262                     2DEC     +.8141988673 B-1                        #  STAR 36       X
001898,000385: 14,2020           67072 57521                     2DEC     -.5553601830 B-1                        #  STAR 36       Y
001899,000386: 14,2022           02552 27310                     2DEC     +.1692786800 B-1                        #  STAR 36       Z
001900,000387: 
001901,000388: 14,2024           07210 34714                     2DEC     +.4542117996 B-1                        #  STAR 35       X
001902,000389: 14,2026           67300 47414                     2DEC     -.5390337930 B-1                        #  STAR 35       Y
001903,000390: 14,2030           13262 27671                     2DEC     +.7093195408 B-1                        #  STAR 35       Z
001904,000391: 
001905,000392: 14,2032           05101 34175                     2DEC     +.3205423120 B-1                        #  STAR 34       X
001906,000393: 14,2034           70717 46031                     2DEC     -.4434583652 B-1                        #  STAR 34       Y
001907,000394: 14,2036           62467 45023                     2DEC     -.8370169081 B-1                        #  STAR 34       Z
001908,000395: 
001909,000396: 14,2040           10655 16340                     2DEC     +.5524232365 B-1                        #  STAR 33       X
001910,000397: 14,2042           63237 45012                     2DEC     -.7930716636 B-1                        #  STAR 33       Y
001911,000398: 14,2044           73711 62337                     2DEC     -.2566435348 B-1                        #  STAR 33       Z
001912,000399: 
001913,000400: 14,2046           07207 34100                     2DEC     +.4540867784 B-1                        #  STAR 32       X
001914,000401: 14,2050           61751 60311                     2DEC     -.8777450759 B-1                        #  STAR 32       Y
001915,000402: 14,2052           02344 11437                     2DEC     +.1528685033 B-1                        #  STAR 32       Z
001916,000403: 
001917,000404: 14,2054           03243 10132                     2DEC     +.2074286490 B-1                        #  STAR 31       X
001918,000405: 14,2056           62031 55616                     2DEC     -.8718956797 B-1                        #  STAR 31       Y
001919,000406: 14,2060           70716 43617                     2DEC     -.4435890882 B-1                        #  STAR 31       Z
001920,000407: 
001921,000408: 14,2062           01747 01335                     2DEC     +.1219537054 B-1                        #  STAR 30       X
001922,000409: 14,2064           63532 54217                     2DEC     -.7702168243 B-1                        #  STAR 30       Y
001923,000410: 

Page 50

001925,000412: 14,2066           12010 11614                     2DEC     +.6260138474 B-1                        #  STAR 30       Z
001926,000413: 
001927,000414: 14,2070           76152 45651                     2DEC     -.1120382967 B-1                        #  STAR 29       X
001928,000415: 14,2072           60371 57632                     2DEC     -.9695442116 B-1                        #  STAR 29       Y
001929,000416: 14,2074           03370 03556                     2DEC     +.2177876068 B-1                        #  STAR 29       Z
001930,000417: 
001931,000418: 14,2076           76127 67425                     2DEC     -.1142900725 B-1                        #  STAR 28       X
001932,000419: 14,2100           72436 61577                     2DEC     -.3400201762 B-1                        #  STAR 28       Y
001933,000420: 14,2102           61041 46271                     2DEC     -.9334474056 B-1                        #  STAR 28       Z
001934,000421: 
001935,000422: 14,2104           72303 40213                     2DEC     -.3511952476 B-1                        #  STAR 27       X
001936,000423: 14,2106           62637 74356                     2DEC     -.8242322268 B-1                        #  STAR 27       Y
001937,000424: 14,2110           70711 46567                     2DEC     -.4441881743 B-1                        #  STAR 27       Z
001938,000425: 
001939,000426: 14,2112           67366 44175                     2DEC     -.5324545035 B-1                        #  STAR 26       X
001940,000427: 14,2114           64424 41241                     2DEC     -.7163035719 B-1                        #  STAR 26       Y
001941,000428: 14,2116           07156 23036                     2DEC     +.4510004372 B-1                        #  STAR 26       Z
001942,000429: 
001943,000430: 14,2120           63330 75735                     2DEC     -.7860186221 B-1                        #  STAR 25       X
001944,000431: 14,2122           67512 62476                     2DEC     -.5221457573 B-1                        #  STAR 25       Y
001945,000432: 14,2124           05227 10611                     2DEC     +.3309660611 B-1                        #  STAR 25       Z
001946,000433: 
001947,000434: 14,2126           64757 51701                     2DEC     -.6895375091 B-1                        #  STAR 24       X
001948,000435: 14,2130           71233 53334                     2DEC     -.4185354938 B-1                        #  STAR 24       Y
001949,000436: 14,2132           66425 76017                     2DEC     -.5910719617 B-1                        #  STAR 24       Z
001950,000437: 
001951,000438: 14,2134           66546 64151                     2DEC     -.5812217481 B-1                        #  STAR 23       X
001952,000439: 14,2136           73256 65757                     2DEC     -.2911759648 B-1                        #  STAR 23       Y
001953,000440: 14,2140           14120 32444                     2DEC     +.7598669864 B-1                        #  STAR 23       Z
001954,000441: 
001955,000442: 14,2142           61251 56124                     2DEC     -.9168160791 B-1                        #  STAR 22       X
001956,000443: 14,2144           72307 65764                     2DEC     -.3506241694 B-1                        #  STAR 22       Y
001957,000444: 14,2146           74742 65735                     2DEC     -.1910784362 B-1                        #  STAR 22       Z
001958,000445: 

Page 51

001960,000447: 14,2150           70607 77742                     2DEC     -.4521486548 B-1                        #  STAR 21       X
001961,000448: 14,2152           77151 74615                     2DEC     -.0495728431 B-1                        #  STAR 21       Y
001962,000449: 14,2154           61600 60003                     2DEC     -.8905639377 B-1                        #  STAR 21       Z
001963,000450: 
001964,000451: 14,2156           60605 64345                     2DEC     -.9524366380 B-1                        #  STAR 20       X
001965,000452: 14,2160           77026 54200                     2DEC     -.0597677121 B-1                        #  STAR 20       Y
001966,000453: 14,2162           73160 42475                     2DEC     -.2988181236 B-1                        #  STAR 20       Z
001967,000454: 
001968,000455: 14,2164           60430 66614                     2DEC     -.9657334280 B-1                        #  STAR 19       X
001969,000456: 14,2166           00653 13072                     2DEC     +.0521664164 B-1                        #  STAR 19       Y
001970,000457: 14,2170           04042 27232                     2DEC     +.2542392790 B-1                        #  STAR 19       Z
001971,000458: 
001972,000459: 14,2172           62162 44274                     2DEC     -.8610673209 B-1                        #  STAR 18       X
001973,000460: 14,2174           07322 33165                     2DEC     +.4632386329 B-1                        #  STAR 18       Y
001974,000461: 14,2176           03265 32741                     2DEC     +.2096974909 B-1                        #  STAR 18       Z
001975,000462: 
001976,000463: 14,2200           63467 50064                     2DEC     -.7745052221 B-1                        #  STAR 17       X
001977,000464: 14,2202           11655 11373                     2DEC     +.6149043688 B-1                        #  STAR 17       Y
001978,000465: 14,2204           75477 77366                     2DEC     -.1484394758 B-1                        #  STAR 17       Z
001979,000466: 
001980,000467: 14,2206           70425 51217                     2DEC     -.4661511162 B-1                        #  STAR 16       X
001981,000468: 14,2210           07505 32504                     2DEC     +.4772744503 B-1                        #  STAR 16       Y
001982,000469: 14,2212           13726 15341                     2DEC     +.7449243154 B-1                        #  STAR 16       Z
001983,000470: 
001984,000471: 14,2214           72157 66255                     2DEC     -.3613649782 B-1                        #  STAR 15       X
001985,000472: 14,2216           11142 32737                     2DEC     +.5745656444 B-1                        #  STAR 15       Y
001986,000473: 14,2220           64200 43016                     2DEC     -.7343634472 B-1                        #  STAR 15       Z
001987,000474: 
001988,000475: 14,2222           71316 64201                     2DEC     -.4122762536 B-1                        #  STAR 14       X
001989,000476: 14,2224           16400 36737                     2DEC     +.9063680102 B-1                        #  STAR 14       Y
001990,000477: 14,2226           01364 14350                     2DEC     +.0923326629 B-1                        #  STAR 14       Z
001991,000478: 
001992,000479: 14,2230           75051 60001                     2DEC     -.1824340636 B-1                        #  STAR 13       X
001993,000480: 

Page 52

001995,000482: 14,2232           17027 31661                     2DEC     +.9404062129 B-1                        #  STAR 13       Y
001996,000483: 14,2234           73321 43422                     2DEC     -.2869738089 B-1                        #  STAR 13       Z
001997,000484: 
001998,000485: 14,2236           77007 51442                     2DEC     -.0616090080 B-1                        #  STAR 12       X
001999,000486: 14,2240           11514 32502                     2DEC     +.6031289258 B-1                        #  STAR 12       Y
002000,000487: 14,2242           63215 47106                     2DEC     -.7952608559 B-1                        #  STAR 12       Z
002001,000488: 
002002,000489: 14,2244           02140 02335                     2DEC     +.1367280274 B-1                        #  STAR 11       X
002003,000490: 14,2246           12716 12356                     2DEC     +.6814364033 B-1                        #  STAR 11       Y
002004,000491: 14,2250           13401 37404                     2DEC     +.7189922632 B-1                        #  STAR 11       Z
002005,000492: 
002006,000493: 14,2252           03154 15267                     2DEC     +.2007345455 B-1                        #  STAR 10       X
002007,000494: 14,2254           17403 01743                     2DEC     +.9691236271 B-1                        #  STAR 10       Y
002008,000495: 14,2256           75552 76050                     2DEC     -.1431958012 B-1                        #  STAR 10       Z
002009,000496: 
002010,000497: 14,2260           05465 17001                     2DEC     +.3502769546 B-1                        #  STAR 9        X
002011,000498: 14,2262           16221 27572                     2DEC     +.8927907521 B-1                        #  STAR 9        Y
002012,000499: 14,2264           04420 14273                     2DEC     +.2832502918 B-1                        #  STAR 9        Z
002013,000500: 
002014,000501: 14,2266           06440 11323                     2DEC     +.4101921571 B-1                        #  STAR 8        X
002015,000502: 14,2270           07767 30366                     2DEC     +.4989947555 B-1                        #  STAR 8        Y
002016,000503: 14,2272           14155 23047                     2DEC     +.7633784305 B-1                        #  STAR 8        Z
002017,000504: 
002018,000505: 14,2274           13176 03307                     2DEC     +.7028937840 B-1                        #  STAR 7        X
002019,000506: 14,2276           13247 03342                     2DEC     +.7078988678 B-1                        #  STAR 7        Y
002020,000507: 14,2300           01070 26607                     2DEC     +.0694227718 B-1                        #  STAR 7        Z
002021,000508: 
002022,000509: 14,2302           10557 32115                     2DEC     +.5448995598 B-1                        #  STAR 6        X
002023,000510: 14,2304           10404 00124                     2DEC     +.5317389073 B-1                        #  STAR 6        Y
002024,000511: 14,2306           65500 72703                     2DEC     -.6483349473 B-1                        #  STAR 6        Z
002025,000512: 
002026,000513: 14,2310           00151 25431                     2DEC     +.0128995818 B-1                        #  STAR 5        X
002027,000514: 14,2312           00077 37176                     2DEC     +.0078096205 B-1                        #  STAR 5        Y
002028,000515: 

Page 53

002030,000517: 14,2314           17777 02143                     2DEC     +.9998862988 B-1                        #  STAR 5        Z
002031,000518: 
002032,000519: 14,2316           07675 02702                     2DEC     +.4918322686 B-1                        #  STAR 4        X
002033,000520: 14,2320           03420 01470                     2DEC     +.2207092653 B-1                        #  STAR 4        Y
002034,000521: 14,2322           62414 50541                     2DEC     -.8422520048 B-1                        #  STAR 4        Z
002035,000522: 
002036,000523: 14,2324           07506 14361                     2DEC     +.4773424940 B-1                        #  STAR 3        X
002037,000524: 14,2326           01674 36075                     2DEC     +.1168141178 B-1                        #  STAR 3        Y
002038,000525: 14,2330           15736 21775                     2DEC     +.8709182540 B-1                        #  STAR 3        Z
002039,000526: 
002040,000527: 14,2332           16745 13112                     2DEC     +.9342466124 B-1                        #  STAR 2        X
002041,000528: 14,2334           02620 31757                     2DEC     +.1739271769 B-1                        #  STAR 2        Y
002042,000529: 14,2336           73011 60052                     2DEC     -.3113400137 B-1                        #  STAR 2        Z
002043,000530: 
002044,000531: 14,2340           15776 01237                     2DEC     +.8747608555 B-1                        #  STAR 1        X
002045,000532: 14,2342           00330 35521                     2DEC     +.0264803244 B-1                        #  STAR 1        Y
002046,000533: 14,2344           07573 21256                     2DEC     +.4838307948 B-1                        #  STAR 1        Z
002047,000534: 
002048,000535: 14,2346           16004        CATLOG             DEC      7172       B-14                       
002049,000536:                                                                                                  #  ************************************************************************
002050,000537: 
002051,000538: 05,2000                                           SETLOC   EPHEM1                                
002052,000539: 05,2000                                           BANK                                           
002053,000540: 05,2001                                           COUNT*   $$/EPHEM                              
002054,000541: 
002055,000542: 05,2001           20000 00000  KONMAT             2DEC     1.0        B-1                        #        *************
002056,000543: 05,2003           00000 00000                     2DEC     0          B-28                       #                    *
002057,000544: 05,2005           00000 00000                     2DEC     0          B-28                       #                    *
002058,000545: 05,2007           00000 00000                     2DEC     0          B-28                       #                    *
002059,000546: 05,2011           16533 31537                     2DEC     .917456380 B-1*                       #  K1 = COS(OBL)
002060,000547: 05,2013           77333 66677                     2DEC     -.035679339 B-1*                       #  K2 = SIN (OBL) SIN (IM) (-1)
002061,000548: 05,2015           00000 00000                     2DEC     0          B-28                       #                    *
002062,000549: 05,2017           06273 02330                     2DEC     .397836387 B-1*                       #  K3 = SIN (OBL)
002063,000550: 

Page 54

002065,000552: 05,2021           01242 01302                     2DEC*    .082280652 B-1*                       #  K4 = COS (OBL) SIN (IM)
002066,000553: 15,2000                                           SETLOC   EPHEM                                 
002067,000554: 15,2000                                           BANK                                           
002068,000555: 15,2000           00040 36540  CSTODAY            2DEC     8640000    B-32                       #                * NOTE           *
002069,000556: 15,2002           00002        RCB-13             OCT      00002                                 #                * TABLES CONTAIN *
002070,000557: 15,2003           00000                           OCT      00000                                 #                * CONSTANTS FOR  *
002071,000558: 04,2000                                           SETLOC   EPHEM2                                
002072,000559: 04,2000                                           BANK                                           
002073,000560: 04,2024           22572 27325  RATESP             2DEC*    .036600997 B+4*                       #  LOMR
002074,000561: 04,2026           01315 26266                     2DEC*    .002737803 B+4*                       #  LOSR
002075,000562: 04,2030           77731 55144                     2DEC*    -.00014720 B+4*                       #  LONR
002076,000563: 04,2032           21056 30515                     2DEC     .534104635                            #  LOMO
002077,000564: 04,2034           10576 10326                     2DEC     .273331484                            #  LOSO
002078,000565: 04,2036           34076 30363                     2DEC     .878830860                            #  LONO
002079,000566: 05,2000                                           SETLOC   EPHEM1                                
002080,000567: 05,2000                                           BANK                                           
002081,000568: 05,2023           01076 02200  VAL67              2DEC*    .017519236 B+1*                       #  AMOD
002082,000569: 05,2025           00621 31256                     2DEC     .024523430                            #  AARG
002083,000570: 05,2027           02245 06475                     2DEC*    .036291713 B+1*                       #  1/27
002084,000571: 05,2031           00161 32301                     2DEC*    .003473642 B+1*                       #  BMOD
002085,000572: 05,2033           21230 23473                     2DEC     .540564756                            #  BARG
002086,000573: 05,2035           02000 00000                     2DEC*    .031250000 B+1*                       #  1/32
002087,000574: 05,2037           00256 13014                     2DEC*    .005320572 B+1*                       #  CMOD
002088,000575: 05,2041           77500 46146                     2DEC     -.011706923                            #  CARG
002089,000576: 05,2043           00131 26730                     2DEC*    .002737925 B+1*                       #  1/365
002090,000577:                                                                                                  #  ************************************************************************
002091,000578: 
002092,000579: 
002093,000580: 26,2000                                           SETLOC   PLANTIN2                              
002094,000581: 26,2000                                           BANK                                           
002095,000582: 26,2000                                           COUNT*   $$/LUROT                              
002096,000583: 
002097,000584: 26,2000           17775 02052  COSI               2DEC*    9.996417320 E-1        B-1*            #  COS (5521.5 SEC.)
002098,000585: 

Page 55

002100,000587: 26,2002           00333 10374  SINI               2DEC*    2.676579050 E-2        B-1*            #  SIN (5521.5 SEC.)
002101,000588: 26,2004           77665 42175  NODDOT             2DEC*    -1.703706128 E-11       B28*            #  REV/CSEC
002102,000589: 26,2006           22211 00636  FDOT               2DEC*    4.253263471 E-9        B27*            #     REV/CSEC
002103,000590: 26,2010           77777 77767  BDOT               2DEC*    -1.145529390 E-16       B28*            #  REV/CSEC
002104,000591: 26,2012           34076 30363  NODIO              2DEC*    8.788308600 E-1        B               #   REV
002105,000592: 26,2014           24760 00133  FSUBO              2DEC*    6.552737750 E-1        B               #   REV
002106,000593: 26,2016           02052 35250  BSUBO              2DEC*    6.511941688 E-2        B               #   REV
002107,000594: 26,2020           37116 32631  WEARTH             2DEC*    1.160576171 E-7        B23*            #     REV/CSEC
002108,000595: 26,2022           30576 10326  AZO                2DEC*    7.733314844 E-1        B               #  REVS
002109,000596: 

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