Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

002232,000002:                                                                                                  ## Copyright:   Public domain.
002233,000003:                                                                                                  ## Filename:    CONTROLLED_CONSTANTS.agc
002234,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
002235,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
002236,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
002237,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
002238,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
002239,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
002240,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
002241,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
002242,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
002243,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
002244,000014:                                                                                                  ## Reference:   pp. 53-69
002245,000015:                                                                                                  ## Assembler:   yaYUL
002246,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
002247,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
002248,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
002249,000019:                                                                                                  ##              2019-07-27 MAS  Updated J4REQ/J3 to match LUM69 rev 2.
002250,000020:                                                                                                  ##              2020-12-14 RSB  Tweaked the annotation relevant to the
002251,000021:                                                                                                  ##                              change mentioned above to conform to the
002252,000022:                                                                                                  ##                              style and extent of similar justifying
002253,000023:                                                                                                  ##                              annotations previously added to 
002254,000024:                                                                                                  ##                              Comanche 44 and 51.
002255,000025:                                                                                                  ##              2021-05-30 ABS  2DEC* -> DEC for non extended address fields.
002256,000026: 

Page 53

002258,000028:                                                                                                  #  DPS AND APS ENGINE PARAMETERS
002259,000029: 
002260,000030: 36,2000                                           SETLOC   P40S                                  
002261,000031: 36,2000                                           BANK                                           
002262,000032: 36,2000                                           COUNT*   $$/P40                                
002263,000033: 
002264,000034:                                                                                                  #  *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
002265,000035: 
002266,000036: 36,2000           01056 37167  FDPS               2DEC     4.3670     B-7                        #  9817.5 LBS FORCE IN NEWTONS
002267,000037: 36,2002           00457 03250  MDOTDPS            2DEC     0.1480     B-3                        #  32.62 LBS/SEC IN KGS/CS.
002268,000038: 36,2004           77777 77731  DTDECAY            2DEC     -38        B-28                       
002269,000039: 36,2006           00307 11040  FAPS               2DEC     1.5569     B-7                        #  3500 LBS FORCE IN NEWTONS
002270,000040: 36,2010           00151 05214  MDOTAPS            2DEC     0.05135    B-3                        #  11.32 LBS/SEC IN KGS/CS
002271,000041: 36,2012           77777 77765  ATDECAY            2DEC     -10        B-28                       
002272,000042: 
002273,000043:                                                                                                  #  ************************************************************************
002274,000044: 
002275,000045: 36,2014           00026 30605  FRCS4              2DEC     0.17792    B-7                        #  400 LBS FORCE IN NEWTONS
002276,000046: 36,2016           00013 14303  FRCS2              2DEC     0.08896    B-7                        #  200 LBS FORCE IN NEWTONS
002277,000047: 
002278,000048: 27,2000                                           SETLOC   P40S1                                 
002279,000049: 27,2000                                           BANK                                           
002280,000050: 27,2000                                           COUNT*   $$/P40                                
002281,000051: 
002282,000052:                                                                                                  #  *** APS IMPULSE DATA FOR P42 *******************************************
002283,000053: 
002284,000054: 27,2000           00000 07622  K1VAL              2DEC     124.55     B-23                       #  2800 LB-SEC
002285,000055: 27,2002           00000 00762  K2VAL              2DEC     31.138     B-24                       #  700  LB-SEC
002286,000056: 27,2004           00030 35104  K3VAL              2DEC     1.5569     B-10                       #  FAPS ( 3500 LBS THRUST)
002287,000057: 
002288,000058:                                                                                                  #  ************************************************************************
002289,000059: 
002290,000060: 27,2006           00016 36237  S40.136            2DEC     .4671      B-9                        #  .4671 M NEWTONS (DPS)
002291,000061: 27,2010           35711 35663  S40.136_           2DEC     .4671      B+1                        #  S40.136 SHIFTED LEFT 10.
002292,000062: 32,2000                                           SETLOC   ABORTS                                
002293,000063: 32,2000                                           BANK                                           
002294,000064: 32,2000                                           COUNT*   $$/P70                                
002295,000065: 
002296,000066: 32,2000           03631 23146  (1/DV)A            2DEC     15.20      B-7                        #  2 SECONDS WORTH OF INITIAL ASCENT
002297,000067: 

Page 54

002299,000069:                                                                                                  #  STAGE ACCELERATION -- INVERTED (M/CS)
002300,000070:                                                                                                  #  1) PREDICATED ON A LIFTOFF MASS OF
002301,000071:                                                                                                  #     4869.9 KG (SNA-8-D-027  7/11/68)
002302,000072:                                                                                                  #  2) PREDICATED ON A CONTRIBUTION TO VEH-
002303,000073:                                                                                                  #     ICLE ACCELERATION FROM RCS THRUSTERS
002304,000074:                                                                                                  #     EQUIV. TO 1 JET ON CONTINUOUSLY.
002305,000075: 32,2002           33226 14632  K(1/DV)            2DEC     436.70     B-9                        #  DPS ENGINE THRUST IN NEWTONS / 100 CS.
002306,000076: 
002307,000077: 32,2004           05306 15503  (AT)A              2DEC     3.2883     E-4        B9              #  INITIAL ASC. STG. ACCELERATION ** M/CS.
002308,000078:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A.
002309,000079: 32,2006           26337 30000  (TBUP)A            2DEC     91902      B-17                       #  ESTIMATED BURN-UP TIME OF THE ASCENT STG
002310,000080:                                                                                                  #  ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
002311,000081:                                                                                                  #  ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
002312,000082:                                                                                                  #  RATE = 5.299 KG/SEC = 5.135 (APS) +
002313,000083:                                                                                                  #  .164 (1 RCS JET).
002314,000084: 30,2000                                           SETLOC   ASENT                                 
002315,000085: 30,2000                                           BANK                                           
002316,000086: 30,2000                                           COUNT*   $$/ASENT                              
002317,000087: 30,2000           02445 00274  AT/RCS             2DEC     .0000785   B+10                       #  4 JETS IN A DRY LEM
002318,000088: 33,2000                                           SETLOC   SERVICES                              
002319,000089: 33,2000                                           BANK                                           
002320,000090: 33,2000                                           COUNT*   $$/SERV                               
002321,000091: 
002322,000092:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
002323,000093: 
002324,000094: 33,2000           41545        APSVEX             DEC      -3030      E-2        B-5             #  9942 FT/SEC IN M/CS.
002325,000095: 
002326,000096: 33,2001           42365        DPSVEX             DEC      -2952      E-2        B-5             #  9684 FT/SEC IN M/CS.
002327,000097: 
002328,000098:                                                                                                  #  ************************************************************************
002329,000099: 
002330,000100: 31,2000                                           SETLOC   F2DPS*31                              
002331,000101: 31,2000                                           BANK                                           
002332,000102: 31,2000                                           COUNT*   $$/F2DPS                              
002333,000103: 
002334,000104: 31,2000           00233 15340  TRIMACCL           2DEC*    +3.7055    E-5        B+8*            #  ACCELERATION DURING TRIM PHASE.
002335,000105: 

Page 55

002337,000107:                                                                                                  #  THROTTLING AND THRUST DETECTION PARAMETERS
002338,000108: 
002339,000109: 36,2000                                           SETLOC   P40S                                  
002340,000110: 36,2000                                           BANK                                           
002341,000111: 36,2020                                           COUNT*   $$/P40                                
002342,000112: 
002343,000113: 36,2020           00030        THRESH1            DEC      24         B-14                       
002344,000114: 
002345,000115: 36,2021           00014        THRESH3            DEC      12         B-14                       
002346,000116: 
002347,000117: 36,2022     4737               HIRTHROT           =        BIT13                                 
002348,000118: 
002349,000119:    6000                                           SETLOC   FFTAG5                                
002350,000120:    6000                                           BANK                                           
002351,000121:    6000                                           COUNT*   $$/P40                                
002352,000122: 
002353,000123:    6000           00464        THRESH2            DEC      308        B-14                       
002354,000124: 
002355,000125: 31,2000                                           SETLOC   FTHROT                                
002356,000126: 31,2000                                           BANK                                           
002357,000127: 31,2002                                           COUNT*   $$/THROT                              
002358,000128: 
002359,000129: 31,2002           07432        FMAXODD            DEC      +3866      B-14                       #  THROTTLE SATURATION THRESHOLD
002360,000130: 
002361,000131: 31,2003           07012        FMAXPOS            DEC      +3594      B-14                       #  FMAX    43245 NEWTONS
002362,000132: 31,2004           00024        THROTLAG           DEC      20         B-14                       #  EMPIRICALLY DETERMINED THROTTLE LAG TIME
002363,000133: 
002364,000134: 32,2000                                           SETLOC   F2DPS*32                              
002365,000135: 32,2000                                           BANK                                           
002366,000136: 32,2010                                           COUNT*   $$/F2DPS                              
002367,000137: 
002368,000138: 32,2010           00044        DPSTHRSH           DEC      36         B-14                       #  (THRESH1 + THRESH3 FOR P63)
002369,000139: 

Page 56

002371,000141:                                                                                                  #  LM HARDWARE-RELATED PARAMETERS
002372,000142: 
002373,000143: 
002374,000144: 25,2000                                           SETLOC   RADARUPT                              
002375,000145: 25,2000                                           BANK                                           
002376,000146: 25,2000                                           COUNT*   $$/RRUPT                              
002377,000147: 
002378,000148: 25,2000           47777        LVELBIAS           DEC      -12288     B-14                       #  LANDING RADAR BIAS FOR 153.6 KC.
002379,000149: 25,2001           00001 01150  RDOTBIAS           2DEC     17000      B-28                       #  BIAS COUNT FOR RR RANGE RATE.
002380,000150: 
002381,000151: 32,2000                                           SETLOC   LRS22                                 
002382,000152: 32,2000                                           BANK                                           
002383,000153: 32,2011                                           COUNT*   $$/LRS22                              
002384,000154: 
002385,000155: 32,2011           70123 40702  RDOTCONV           2DEC     -.0019135344 B7                         #  CONVERTS RR RDOT READING TO M/CS AT 2(7)
002386,000156: 32,2013           13337 10776  RANGCONV           2DEC     2.859024   B-3                        #  CONVERTS RR RANGE READING TO M. AT 2(-29
002387,000157: 31,2000                                           SETLOC   FTHROT                                
002388,000158: 31,2000                                           BANK                                           
002389,000159: 31,2005                                           COUNT*   $$/THROT                              
002390,000160: 
002391,000161: 31,2005           00317 31157  SCALEFAC           2DEC     51.947     B-12                       #  SCALES A (AT 2(-4) M/CS/CS) TIMES MASS
002392,000162:                                                                                                  #  (AT 2(16) KGS. ) TO PULSE UNITS.
002393,000163: 
002394,000164: 33,2000                                           SETLOC   SERVICES                              
002395,000165: 33,2000                                           BANK                                           
002396,000166: 33,2002                                           COUNT*   $$/SERV                               
002397,000167: 
002398,000168: 33,2002           61000 71210  HBEAMANT           2DEC     -.4687018041                            #  RANGE BEAM IN LR ANTENNA COORDINATES.
002399,000169: 33,2004           00000 00000                     2DEC     0          B-28                       
002400,000170: 33,2006           72333 45546                     2DEC     -.1741224271                            
002401,000171: 
002402,000172: 33,2010           65363 64451  HSCAL              2DEC     -.3288792                             #  SCALES 1.079 FT/BIT TO 2(22)M.
002403,000173:                                                                                                  #  ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
002404,000174: 
002405,000175: 33,2012           21241 03216  VZSCAL             2DEC     +.5410829105                            #  SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
002406,000176: 33,2014           30153 23101  VYSCAL             2DEC     +.7565672446                            #  SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
002407,000177: 33,2016           63105 61733  VXSCAL             2DEC     -.4020043770                            #  SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
002408,000178: 

Page 57

002410,000180:                                                                                                  #  ************************************************************************
002411,000181: 
002412,000182: 33,2020           01507        KPIP               DEC      .0512                                 #  SCALES DELV TO UNITS OF 2(5) M/CS.
002413,000183: 33,2021           00321 26706  KPIP1              2DEC     .0128                                 #  SCALES DELV TO UNITS OF 2(7) M/CS.
002414,000184: 33,2023           00150 33343  KPIP2              2DEC     .0064                                 #  SCALES DELV TO UNITS OF 2(8) M/CS.
002415,000185: 
002416,000186: 33,2025           02630 25010  ALTCONV            2DEC     1.399078846 B-4                        #  CONVERTS M*2(-24) TO BIT UNITS *2(-28).
002417,000187: 33,2027           24402 26003  ARCONV1            2DEC     656.167979 B-10                       #  CONV. ALTRATE COMP. TO BIT UNITS<
002418,000188: 21,2000                                           SETLOC   R10                                   
002419,000189: 21,2000                                           BANK                                           
002420,000190: 21,2000                                           COUNT*   $$/R10                                
002421,000191: 
002422,000192: 21,2000           24402        ARCONV             OCT      24402                                 #  656.1679798B-10 CONV ALTRATE TO BIT UNIT
002423,000193: 
002424,000194: 21,2001           01551        ARTOA              DEC      .1066098   B-1                        #  .25/2.345 B-1 4X/SEC CYCLE RATE.
002425,000195: 
002426,000196: 21,2002           21357        ARTOA2             DEC      .0021322   B8                         #  (.5)/(2.345)(100)
002427,000197: 
002428,000198: 21,2003           22316        VELCONV            OCT      22316                                 #  588.914 B-10 CONV VEL. TO BIT UNITS.
002429,000199: 
002430,000200: 21,2004           01507        KPIP1(5)           DEC      .0512                                 #  SCALES DELV TO M/CS*2(-5).
002431,000201: 
002432,000202: 21,2005           00547        MAXVBITS           OCT      00547                                 #  MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
002433,000203: 
002434,000204: 20,2000                                           SETLOC   DAPS3                                 
002435,000205: 20,2000                                           BANK                                           
002436,000206: 20,2000                                           COUNT*   $$/DAPAO                              
002437,000207: 
002438,000208: 20,2000           01150        TORKJET1           DEC      .03757                                #  550 / .2 SCALED AT (+16) 64 / 180
002439,000209: 

Page 58

002441,000211:                                                                                                  #  PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
002442,000212: 
002443,000213: 
002444,000214: 05,2000                                           SETLOC   FRANDRES                              
002445,000215: 05,2000                                           BANK                                           
002446,000216: 05,2000                                           COUNT*   $$/START                              
002447,000217: 
002448,000218: 05,2000           02357        FULLAPS            DEC      5050       B-16                       #  NOMINAL FULL ASCENT MASS -- 2(16) KG.
002449,000219: 
002450,000220: 01,2000                                           SETLOC   LOADDAP1                              
002451,000221: 01,2000                                           BANK                                           
002452,000222: 01,2000                                           COUNT*   $$/R03                                
002453,000223: 
002454,000224: 01,2000           76466        MINLMD             DEC      -2850      B-16                       #  MIN. DESCENT STAGE MASS -- 2(16) KG.
002455,000225: 
002456,000226: 01,2001           76731        MINMINLM           DEC      -2200      B-16                       #  MIN ASCENT STAGE MASS -- 2(16) KG.
002457,000227: 
002458,000228: 01,2002     4741               MINCSM             =        BIT11                                 #  MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
002459,000229: 
002460,000230: 20,2000                                           SETLOC   DAPS3                                 
002461,000231: 20,2000                                           BANK                                           
002462,000232: 20,2001                                           COUNT*   $$/DAPAO                              
002463,000233: 
002464,000234: 20,2001           01046        LOASCENT           DEC      2200       B-16                       #  MIN ASCENT LEM MASS -- 2(16) KG.
002465,000235: 
002466,000236: 20,2002           07361        HIDESCNT           DEC      15300      B-16                       #  MAX DESCENT LEM MASS -- 2(16) KG.
002467,000237: 
002468,000238: 20,2003           00666        LODESCNT           DEC      1750       B-16                       #  MIN DESCENT STAGE (ALONE) -- 2(16) KG.
002469,000239: 

Page 59

002471,000241:                                                                                                  #  PHYSICAL CONSTANTS ( TIME - INVARIANT )
002472,000242: 
002473,000243: 
002474,000244: 37,2000                                           SETLOC   IMU2                                  
002475,000245: 37,2000                                           BANK                                           
002476,000246: 37,2000                                           COUNT*   $$/P07                                
002477,000247: 
002478,000248: 37,2000           07623 26552  OMEG/MS            2DEC     .24339048                             
002479,000249: 22,2000                                           SETLOC   R30LOC                                
002480,000250: 22,2000                                           BANK                                           
002481,000251: 22,2000                                           COUNT*   $$/R30                                
002482,000252: 
002483,000253:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
002484,000254: 
002485,000255: 22,2000           27533 07571  1/RTMUM            2DEC*    .45162595  E-4        B14*            
002486,000256: 22,2002           25004 06702  1/RTMUE            2DEC*    .50087529  E-5        B17*            
002487,000257:                                                                                                  #  ************************************************************************
002488,000258: 
002489,000259: 27,2000                                           SETLOC   P40S1                                 
002490,000260: 27,2000                                           BANK                                           
002491,000261: 27,2012                                           COUNT*   $$/S40.9                              
002492,000262: 
002493,000263: 27,2012           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           #  M(3)/CS(2)
002494,000264: 31,2000                                           SETLOC   F2DPS*31                              
002495,000265: 31,2000                                           BANK                                           
002496,000266: 31,2007                                           COUNT*   $$/F2DPS                              
002497,000267: 
002498,000268: 31,2007           77765 53556  MOONG              2DEC     -1.6226    E-4        B2              
002499,000269: 30,2000                                           SETLOC   P12                                   
002500,000270: 30,2000                                           BANK                                           
002501,000271: 30,2002                                           COUNT*   $$/P12                                
002502,000272: 
002503,000273: 30,2002           00072 16206  MUM(-37)           2DEC*    4.9027780  E8         B-37*           
002504,000274: 30,2004           00344 24331  MOONRATE           2DEC*    .26616994890062991 E-7        B+19*           #  RAD/CS.
002505,000275: 33,2000                                           SETLOC   SERVICES                              
002506,000276: 33,2000                                           BANK                                           
002507,000277: 33,2031                                           COUNT*   $$/SERV                               
002508,000278: 
002509,000279:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
002510,000280: 
002511,000281: 33,2031           61377 55754  -MUDT              2DEC*    -7.9720645 E+12       B-44*           
002512,000282: 33,2033           77644 65556  -MUDT1             2DEC*    -9.8055560 E+10       B-44*           
002513,000283: 

Page 60

002515,000285:                                                                                                  #  ************************************************************************
002516,000286: 
002517,000287: 33,2035           64453 55670  -MUDTMUN           2DEC*    -9.8055560 E+10       B-38*           
002518,000288: 33,2037           00002 11777  RESQ               2DEC*    40.6809913 E12        B-58*           
002519,000289: 33,2041           01023 37155  20J                2DEC     3.24692010 E-2                        
002520,000290: 33,2043           00065 06244  2J                 2DEC     3.24692010 E-3                        
002521,000291: 14,2000                                           SETLOC   P50S1                                 
002522,000292: 14,2000                                           BANK                                           
002523,000293: 14,2000                                           COUNT*   $$/LOSAM                              
002524,000294: 
002525,000295: 14,2000           26723 00450  RSUBEM             2DEC     384402000  B-29                       
002526,000296: 14,2002           00065 01265  RSUBM              2DEC     1738090    B-29                       
002527,000297: 14,2004           00302 24533  RSUBE              2DEC     6378166    B-29                       
002528,000298: 14,2006           00052 04047  ROE                2DEC     .00257125                             
002529,000299: 04,2000                                           SETLOC   CONICS1                               
002530,000300: 04,2000                                           BANK                                           
002531,000301: 04,2000                                           COUNT*   $$/LT-LG                              
002532,000302: 
002533,000303: 04,2000           00302 17755  ERAD               2DEC     6373338    B-29                       #  PAD RADIUS
002534,000304: 04,2002           00065 01265  504RM              2DEC     1738090    B-29                       #  METERS B-29 (EQUATORIAL MOON RADIUS)
002535,000305: 04,2000                                           SETLOC   CONICS1                               
002536,000306: 04,2000                                           BANK                                           
002537,000307: 04,2004                                           COUNT*   $$/CONIC                              
002538,000308: 
002539,000309:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
002540,000310: 
002541,000311: 04,2004           22437 16067  MUTABLE            2DEC*    3.986032   E10        B-36*           #  MUE
002542,000312: 04,2006           15625 21042                     2DEC*    .25087606  E-10       B+34*           #  1/MUE
002543,000313: 04,2010           30276 04773                     2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
002544,000314: 04,2012           25004 06702                     2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
002545,000315: 
002546,000316: 
002547,000317: 04,2014           16471 01352                     2DEC*    4.902778   E8         B-30*           #  MUM
002548,000318: 04,2016           21412 20500                     2DEC*    .203966    E-8        B+28*           #  1/MUM
002549,000319: 

Page 61

002551,000321: 04,2020           25477 03367                     2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
002552,000322: 04,2022           27533 07571                     2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
002553,000323:                                                                                                  #  ************************************************************************
002554,000324: 
002555,000325: 13,2000                                           SETLOC   INTINIT                               
002556,000326: 13,2000                                           BANK                                           
002557,000327: 13,2000                                           COUNT*   $$/INTIN                              
002558,000328: 
002559,000329: 13,2000           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
002560,000330: 
002561,000331: 13,2000                                           SETLOC   ORBITAL2                              
002562,000332: 13,2000                                           BANK                                           
002563,000333: 13,2002                                           COUNT*   $$/ORBIT                              
002564,000334: 
002565,000335:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
002566,000336: 
002567,000337: 13,2002           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
002568,000338: 13,2004           16471 01352  MUM                2DEC*    4.9027780  E8         B-30*           #  M
002569,000339: 13,2006           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
002570,000340: 13,2010           00000 00000                     2DEC     0          B-28                       
002571,000341: 13,2012           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           

Reconstruction: In Luminary 69, the following line reads "2DEC 0". It has been changed in Luminary 69/2 due to incorporation of the R-2 Lunar Potential Model — see LUMINARY Memo #75. The Luminary 69/2 version of the line has been taken from Luminary 99/1, which also incorporates the R-2 model. As for the question of how it was known during the reconstruction process to target this specific value, the bulk of R-2 model code changes are confined to the ORBITAL INTEGRATION log section, and indeed J4REQ/J3 is used only there. Thus, after ORBITAL INTEGRATION modifications were made, it would only be natural to check that the constants which the ORBITAL INTEGRATION code referenced had the expected values relative to Luminary 99/1.

002584,000354: 13,2014           77651 76237                     2DEC     -176236.02 B-25                       
002585,000355: 13,2016           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
002586,000356: 13,2020           10407 05344                     2DEC*    .3067493316 E18        B-60*           
002587,000357: 13,2022           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
002588,000358: 13,2024           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
002589,000359:                                                                                                  #  ************************************************************************
002590,000360: 
002591,000361: 27,2000                                           SETLOC   TOF-FF1                               
002592,000362: 27,2000                                           BANK                                           
002593,000363: 27,2014                                           COUNT*   $$/TFF                                
002594,000364: 
002595,000365: 27,2014           24775 30424  1/RTMU             2DEC*    .5005750271 E-5        B17*            #  MODIFIED EARTH MU
002596,000366: 
002597,000367: 42,2000                                           SETLOC   SBAND                                 
002598,000368: 42,2000                                           BANK                                           
002599,000369: 42,2000                                           COUNT*   $$/R05                                
002600,000370: 

Page 62

002602,000372: 42,2000           26723 00450  REMDIST            2DEC     384402000  B-29                       #  MEAN DISTANCE BETWEEN EARTH AND MOON.
002603,000373: 

Page 63

002605,000375:                                                                                                  #  PHYSICAL CONSTANTS (TIME - VARIANT)
002606,000376: 14,2000                                           SETLOC   STARTAB                               
002607,000377: 14,2000                                           BANK                                           
002608,000378: 14,2010                                           COUNT*   $$/STARS                              
002609,000379: 
002610,000380: 14,2010           15261 27231                     2DEC     +.8341953207 B-1                        #  STAR 37       X
002611,000381: 14,2012           74126 61161                     2DEC     -.2394362567 B-1                        #  STAR 37       Y
002612,000382: 14,2014           70032 54470                     2DEC     -.4967780649 B-1                        #  STAR 37       Z
002613,000383: 
002614,000384: 14,2016           15013 10432                     2DEC     +.8138753897 B-1                        #  STAR 36       X
002615,000385: 14,2020           67066 40370                     2DEC     -.5559063490 B-1                        #  STAR 36       Y
002616,000386: 14,2022           02550 31133                     2DEC     +.1690413589 B-1                        #  STAR 36       Z
002617,000387: 
002618,000388: 14,2024           07207 24243                     2DEC     +.4540570017 B-1                        #  STAR 35       X
002619,000389: 14,2026           67275 67544                     2DEC     -.5393383149 B-1                        #  STAR 35       Y
002620,000390: 14,2030           13261 25121                     2DEC     +.7091871552 B-1                        #  STAR 35       Z
002621,000391: 
002622,000392: 14,2032           05075 16350                     2DEC     +.3200014224 B-1                        #  STAR 34       X
002623,000393: 14,2034           70715 55404                     2DEC     -.4436740480 B-1                        #  STAR 34       Y
002624,000394: 14,2036           62466 54577                     2DEC     -.8371095679 B-1                        #  STAR 34       Z
002625,000395: 
002626,000396: 14,2040           10650 17202                     2DEC     +.5518160037 B-1                        #  STAR 33       X
002627,000397: 14,2042           63234 43704                     2DEC     -.7934422090 B-1                        #  STAR 33       Y
002628,000398: 14,2044           73710 50170                     2DEC     -.2568045150 B-1                        #  STAR 33       Z
002629,000399: 
002630,000400: 14,2046           07203 13612                     2DEC     +.4535361097 B-1                        #  STAR 32       X
002631,000401: 14,2050           61746 77370                     2DEC     -.8780537171 B-1                        #  STAR 32       Y
002632,000402: 14,2052           02343 05340                     2DEC     +.1527307006 B-1                        #  STAR 32       Z
002633,000403: 
002634,000404: 14,2054           03235 14762                     2DEC     +.2067145272 B-1                        #  STAR 31       X
002635,000405: 14,2056           62030 51212                     2DEC     -.8720349419 B-1                        #  STAR 31       Y
002636,000406: 14,2060           70715 64117                     2DEC     -.4436486945 B-1                        #  STAR 31       Z
002637,000407: 
002638,000408: 14,2062           01744 11157                     2DEC     +.1216171923 B-1                        #  STAR 30       X
002639,000409: 14,2064           63531 66055                     2DEC     -.7703014754 B-1                        #  STAR 30       Y
002640,000410: 

Page 64

002642,000412: 14,2066           12007 37503                     2DEC     +.6259751556 B-1                        #  STAR 30       Z
002643,000413: 
002644,000414: 14,2070           76145 53477                     2DEC     -.1126265542 B-1                        #  STAR 29       X
002645,000415: 14,2072           60372 43624                     2DEC     -.9694679589 B-1                        #  STAR 29       Y
002646,000416: 14,2074           03370 15121                     2DEC     +.2178236347 B-1                        #  STAR 29       Z
002647,000417: 
002648,000418: 14,2076           76123 64245                     2DEC     -.1147906312 B-1                        #  STAR 28       X
002649,000419: 14,2100           72437 45623                     2DEC     -.3399437395 B-1                        #  STAR 28       Y
002650,000420: 14,2102           61041 57124                     2DEC     -.9334138229 B-1                        #  STAR 28       Z
002651,000421: 
002652,000422: 14,2104           72275 55365                     2DEC     -.3518772846 B-1                        #  STAR 27       X
002653,000423: 14,2106           62641 72150                     2DEC     -.8239967165 B-1                        #  STAR 27       Y
002654,000424: 14,2110           70712 41542                     2DEC     -.4440853383 B-1                        #  STAR 27       Z
002655,000425: 
002656,000426: 14,2112           67363 50441                     2DEC     -.5328042377 B-1                        #  STAR 26       X
002657,000427: 14,2114           64426 77263                     2DEC     -.7159448596 B-1                        #  STAR 26       Y
002658,000428: 14,2116           07157 34056                     2DEC     +.4511569595 B-1                        #  STAR 26       Z
002659,000429: 
002660,000430: 14,2120           63326 77723                     2DEC     -.7862552143 B-1                        #  STAR 25       X
002661,000431: 14,2122           67516 72566                     2DEC     -.5216265404 B-1                        #  STAR 25       Y
002662,000432: 14,2124           05231 14031                     2DEC     +.3312227199 B-1                        #  STAR 25       Z
002663,000433: 
002664,000434: 14,2126           64753 63156                     2DEC     -.6899901699 B-1                        #  STAR 24       X
002665,000435: 14,2130           71237 42272                     2DEC     -.4180817959 B-1                        #  STAR 24       Y
002666,000436: 14,2132           66427 64260                     2DEC     -.5908647707 B-1                        #  STAR 24       Z
002667,000437: 
002668,000438: 14,2134           66546 73302                     2DEC     -.5811943804 B-1                        #  STAR 23       X
002669,000439: 14,2136           73261 73575                     2DEC     -.2907877154 B-1                        #  STAR 23       Y
002670,000440: 14,2140           14122 07016                     2DEC     +.7600365758 B-1                        #  STAR 23       Z
002671,000441: 
002672,000442: 14,2142           61247 42015                     2DEC     -.9171065276 B-1                        #  STAR 22       X
002673,000443: 14,2144           72314 67004                     2DEC     -.3500098785 B-1                        #  STAR 22       Y
002674,000444: 14,2146           74744 74104                     2DEC     -.1908106439 B-1                        #  STAR 22       Z
002675,000445: 

Page 65

002677,000447: 14,2150           70605 63103                     2DEC     -.4524416631 B-1                        #  STAR 21       X
002678,000448: 14,2152           77154 54113                     2DEC     -.0492700670 B-1                        #  STAR 21       Y
002679,000449: 14,2154           61601 62472                     2DEC     -.8904319187 B-1                        #  STAR 21       Z
002680,000450: 
002681,000451: 14,2156           60604 63166                     2DEC     -.9525633510 B-1                        #  STAR 20       X
002682,000452: 14,2160           77033 63044                     2DEC     -.0591313500 B-1                        #  STAR 20       Y
002683,000453: 14,2162           73162 53261                     2DEC     -.2985406935 B-1                        #  STAR 20       Z
002684,000454: 
002685,000455: 14,2164           60431 63350                     2DEC     -.9656240240 B-1                        #  STAR 19       X
002686,000456: 14,2166           00660 22763                     2DEC     +.0528067543 B-1                        #  STAR 19       Y
002687,000457: 14,2170           04045 01424                     2DEC     +.2545224762 B-1                        #  STAR 19       Z
002688,000458: 
002689,000459: 14,2172           62165 45335                     2DEC     -.8606970465 B-1                        #  STAR 18       X
002690,000460: 14,2174           07327 21564                     2DEC     +.4638127405 B-1                        #  STAR 18       Y
002691,000461: 14,2176           03267 34557                     2DEC     +.2099484122 B-1                        #  STAR 18       Z
002692,000462: 
002693,000463: 14,2200           63472 50705                     2DEC     -.7741360248 B-1                        #  STAR 17       X
002694,000464: 14,2202           11661 21433                     2DEC     +.6154234025 B-1                        #  STAR 17       Y
002695,000465: 14,2204           75501 72421                     2DEC     -.1482142053 B-1                        #  STAR 17       Z
002696,000466: 
002697,000467: 14,2206           70431 65316                     2DEC     -.4656165921 B-1                        #  STAR 16       X
002698,000468: 14,2210           07510 12666                     2DEC     +.4775804724 B-1                        #  STAR 16       Y
002699,000469: 14,2212           13727 21520                     2DEC     +.7450624681 B-1                        #  STAR 16       Z
002700,000470: 
002701,000471: 14,2214           72161 43161                     2DEC     -.3611937602 B-1                        #  STAR 15       X
002702,000472: 14,2216           11144 32323                     2DEC     +.5748077840 B-1                        #  STAR 15       Y
002703,000473: 14,2220           64200 76476                     2DEC     -.7342581827 B-1                        #  STAR 15       Z
002704,000474: 
002705,000475: 14,2222           71323 70264                     2DEC     -.4116502629 B-1                        #  STAR 14       X
002706,000476: 14,2224           16403 05717                     2DEC     +.9066387314 B-1                        #  STAR 14       Y
002707,000477: 14,2226           01365 17662                     2DEC     +.0924676785 B-1                        #  STAR 14       Z
002708,000478: 
002709,000479: 14,2230           75055 75101                     2DEC     -.1818957154 B-1                        #  STAR 13       X
002710,000480: 

Page 66

002712,000482: 14,2232           17030 32613                     2DEC     +.9405318128 B-1                        #  STAR 13       Y
002713,000483: 14,2234           73321 65667                     2DEC     -.2869039173 B-1                        #  STAR 13       Z
002714,000484: 
002715,000485: 14,2236           77010 66714                     2DEC     -.0614360769 B-1                        #  STAR 12       X
002716,000486: 14,2240           11515 05314                     2DEC     +.6031700106 B-1                        #  STAR 12       Y
002717,000487: 14,2242           63215 53630                     2DEC     -.7952430739 B-1                        #  STAR 12       Z
002718,000488: 
002719,000489: 14,2244           02145 21163                     2DEC     +.1373948084 B-1                        #  STAR 11       X
002720,000490: 14,2246           12715 21123                     2DEC     +.6813398852 B-1                        #  STAR 11       Y
002721,000491: 14,2250           13401 26125                     2DEC     +.7189566241 B-1                        #  STAR 11       Z
002722,000492: 
002723,000493: 14,2252           03161 14610                     2DEC     +.2013426456 B-1                        #  STAR 10       X
002724,000494: 14,2254           17401 36465                     2DEC     +.9689888101 B-1                        #  STAR 10       Y
002725,000495: 14,2256           75552 56556                     2DEC     -.1432544058 B-1                        #  STAR 10       Z
002726,000496: 
002727,000497: 14,2260           05473 01565                     2DEC     +.3509587451 B-1                        #  STAR 9        X
002728,000498: 14,2262           16217 31643                     2DEC     +.8925545449 B-1                        #  STAR 9        Y
002729,000499: 14,2264           04417 22211                     2DEC     +.2831507435 B-1                        #  STAR 9        Z
002730,000500: 
002731,000501: 14,2266           06444 33354                     2DEC     +.4107492871 B-1                        #  STAR 8        X
002732,000502: 14,2270           07765 20153                     2DEC     +.4987190610 B-1                        #  STAR 8        Y
002733,000503: 14,2272           14154 23613                     2DEC     +.7632590132 B-1                        #  STAR 8        Z
002734,000504: 
002735,000505: 14,2274           13202 05024                     2DEC     +.7033883645 B-1                        #  STAR 7        X
002736,000506: 14,2276           13243 07665                     2DEC     +.7074274193 B-1                        #  STAR 7        Y
002737,000507: 14,2300           01067 01242                     2DEC     +.0692188921 B-1                        #  STAR 7        Z
002738,000508: 
002739,000509: 14,2302           10561 05666                     2DEC     +.5450662811 B-1                        #  STAR 6        X
002740,000510: 14,2304           10401 00357                     2DEC     +.5313738486 B-1                        #  STAR 6        Y
002741,000511: 14,2306           65477 61124                     2DEC     -.6484940879 B-1                        #  STAR 6        Z
002742,000512: 
002743,000513: 14,2310           00154 03111                     2DEC     +.0131955837 B-1                        #  STAR 5        X
002744,000514: 14,2312           00077 35676                     2DEC     +.0078043793 B-1                        #  STAR 5        Y
002745,000515: 

Page 67

002747,000517: 14,2314           17777 01142                     2DEC     +.9998824772 B-1                        #  STAR 5        Z
002748,000518: 
002749,000519: 14,2316           07674 11416                     2DEC     +.4917355618 B-1                        #  STAR 4        X
002750,000520: 14,2320           03415 12707                     2DEC     +.2203784481 B-1                        #  STAR 4        Y
002751,000521: 14,2322           62413 43135                     2DEC     -.8423950835 B-1                        #  STAR 4        Z
002752,000522: 
002753,000523: 14,2324           07511 03423                     2DEC     +.4776746280 B-1                        #  STAR 3        X
002754,000524: 14,2326           01672 12054                     2DEC     +.1164935557 B-1                        #  STAR 3        Y
002755,000525: 14,2330           15735 15405                     2DEC     +.8707790771 B-1                        #  STAR 3        Z
002756,000526: 
002757,000527: 14,2332           16745 21763                     2DEC     +.9342726691 B-1                        #  STAR 2        X
002758,000528: 14,2334           02613 24675                     2DEC     +.1732973829 B-1                        #  STAR 2        Y
002759,000529: 14,2336           73007 50430                     2DEC     -.3116128956 B-1                        #  STAR 2        Z
002760,000530: 
002761,000531: 14,2340           15777 12457                     2DEC     +.8749183324 B-1                        #  STAR 1        X
002762,000532: 14,2342           00324 03265                     2DEC     +.0258916990 B-1                        #  STAR 1        Y
002763,000533: 14,2344           07571 17020                     2DEC     +.4835778442 B-1                        #  STAR 1        Z
002764,000534: 
002765,000535: 14,2346           15325        CATLOG             DEC      6869       B-14                       
002766,000536: 
002767,000537:                                                                                                  #  ************************************************************************
002768,000538: 
002769,000539: 
002770,000540: 05,2000                                           SETLOC   EPHEM1                                
002771,000541: 05,2000                                           BANK                                           
002772,000542: 05,2001                                           COUNT*   $$/EPHEM                              
002773,000543: 
002774,000544: 05,2001           20000 00000  KONMAT             2DEC     1.0        B-1                        #          *************
002775,000545: 05,2003           00000 00000                     2DEC     0          B-28                       #                      *
002776,000546: 05,2005           00000 00000                     2DEC     0          B-28                       #                      *
002777,000547: 05,2007           00000 00000                     2DEC     0          B-28                       #                      *
002778,000548: 05,2011           16533 30007                     2DEC     .91745     B-1                        #  K1 COS(OBL)         *
002779,000549: 05,2013           77333 56654                     2DEC     -.03571    B-1                        #  K2 SIN(OBL)SIN(IM)  *
002780,000550: 05,2015           00000 00000                     2DEC     0          B-28                       #                      *
002781,000551: 05,2017           06273 03275                     2DEC     .39784     B-1                        #  K3 SIN(OBL)         *
002782,000552: 

Page 68

002784,000554: 05,2021           01242 24467                     2DEC     .082354    B-1                        #  K4 COS(OBL)SIN(IM)  *
002785,000555: 05,2023           00020 17260  CSTODAY            2DEC     8640000    B-33                       #                      * NOTE           *
002786,000556: 05,2025           00002        RCB-13             OCT      00002                                 #                      * TABLES CONTAIN *
002787,000557: 05,2026           00000                           OCT      00000                                 #                      * CONSTANTS FOR  *
002788,000558: 05,2027           22572 27214  RATESP             2DEC     .03660098  B+4                        #                      * 1968 - 1969    *
002789,000559: 05,2031           01315 26177                     2DEC     .00273779  B+4                        #  LOSR                *
002790,000560: 05,2033           77731 55217                     2DEC     -.00014719 B+4                        #  LONR                *
002791,000561: 05,2035           16455 04475                     2DEC     .455880394                            #  LOMO                *
002792,000562: 05,2037           10637 04312                     2DEC     .275337971                            #  LOSO                *
002793,000563: 05,2041           01215 26351                     2DEC     .0398987882                            #  LONO                *
002794,000564: 05,2043           01070 35243  VAL67              2DEC     .017361944 B+1                        #  AMOD                *
002795,000565: 05,2045           11126 14467                     2DEC     .286523072                            #  AARG                *
002796,000566: 05,2047           02245 06475                     2DEC     .036291712 B+1                        #  1/27                *
002797,000567: 05,2051           00163 32331                     2DEC     .003534722 B+1                        #  BMOD                *
002798,000568: 05,2053           03476 03302                     2DEC     .113165625                            #  BARG                *
002799,000569: 05,2055           02000 00000                     2DEC     .03125     B+1                        #  1/32                *
002800,000570: 05,2057           00256 25374                     2DEC     .005330555 B+1                        #  CMOD                *
002801,000571: 05,2061           77525 53143                     2DEC     -.010415660                            #  CARG       VALUE COMPUTED USING 1/364.24
002802,000572: 05,2063           00131 26730                     2DEC     .002737925 B+1                        #  1/365   *************
002803,000573:                                                                                                  #  ************************************************************************
002804,000574: 
002805,000575: 24,2000                                           SETLOC   PLANTIN                               
002806,000576: 24,2000                                           BANK                                           
002807,000577: 24,2000                                           COUNT*   $$/LUROT                              
002808,000578: 
002809,000579: 24,2000           17775 01734  COSI               2DEC     .99964115  B-1                        #  COS(1 DEG 32.1 MIN) B-1
002810,000580: 24,2002           00333 16153  SINI               2DEC     .02678760  B-1                        #  SIN(1 DEG 32.1 MIN) B-1
002811,000581: 24,2004           77665 42175  NODDOT             2DEC     -.457335143 E-2                        #  REVS/CSEC B+28=-1.07047016 E-8  RAD/SEC
002812,000582: 24,2006           22211 00265  FDOT               2DEC     .570862491                            #  REVS/CSEC B+27= 2.67240019 E-6  RAD/SEC
002813,000583: 

Page 69

002815,000585: 24,2010           77777 77767  BDOT               2DEC     -3.07500412 E-8                        #  REVS/CSEC B+28=-7.19756666 E-14 RAD/SEC
002816,000586: 24,2012           41215 66331  NODIO              2DEC     -.960101269                            #  REVS B-O    = -6.03249419  RAD
002817,000587: 24,2014           15237 26751  FSUBO              2DEC     .415998375                            #  REVS B-O    =  2.61379488  RAD
002818,000588: 24,2016           02052 35713  BSUBO              2DEC     .0651205006                            #  REVS B-O    =  0.409164173 RAD
002819,000589: 24,2020           37116 32630  WEARTH             2DEC     .973561855                            #  REVS/CSEC B+23=7.29211515 E-5 RAD/SEC

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