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,1971Note 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:
![]() |
Page 39 |
001541,000028: # DPS AND APS ENGINE PARAMETERS
001542,000029:
001543,000030: 36,2000 SETLOC P40S
001544,000031: 36,2000 BANK
001545,000032: 36,2000 COUNT* $$/P40
001546,000033:
001547,000034: # *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
001548,000035:
001549,000036: 36,2000 01056 37167 FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
001550,000037: 36,2002 00457 03250 MDOTDPS 2DEC 0.1480 B-3 # 32.62 LBS/SEC IN KGS/CS.
001551,000038: 36,2004 77777 77731 DTDECAY 2DEC -38 B-28 # 40 PERCENT FTP-DPS TAILOFF FOR P40
001552,000039: 36,2006 00307 11040 FAPS 2DEC 1.5569 B-7 # 3500 LBS FORCE IN NEWTONS
001553,000040: 36,2010 00151 05214 MDOTAPS 2DEC 0.05135 B-3 # 11.32 LBS/SEC IN KGS/CS
001554,000041: 36,2012 77777 77755 ATDECAY 2DEC -18 B-28 # 618 LB-SEC TAILOFF FOR APS
001555,000042:
001556,000043: # ************************************************************************
001557,000044:
001558,000045: 36,2014 00003 00000 100PCTTO 2DEC 24 B-17 # 100 PERCENT FTP-OPS TAILOFF FOR P70
001559,000046:
001560,000047: # ************************************************************************
001561,000048:
001562,000049: 36,2016 00026 30605 FRCS4 2DEC 0.17792 B-7 # 400 LBS FORCE IN NEWTONS
001563,000050: 36,2020 00013 14303 FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
001564,000051: 27,2000 SETLOC P40S1
001565,000052: 27,2000 BANK
001566,000053: 27,2000 COUNT* $$/P40
001567,000054:
001568,000055: # *** APS IMPULSE DATA FOR P42 *******************************************
001569,000056:
001570,000057: 27,2000 00000 10604 K1VAL 2DEC 140.12 B-23 # 3150 LB.SEC APS IMPULSE (WET)
001571,000058: 27,2002 00000 00762 K2VAL 2DEC 31.138 B-24 # 700 LB-SEC
001572,000059: 27,2004 00030 35104 K3VAL 2DEC 1.5569 B-10 # FAPS ( 3500 LBS THRUST)
001573,000060: # ************************************************************************
001574,000061:
001575,000062: 27,2006 00016 36237 S40.136 2DEC .4671 B-9 # .4671 M NEWTONS (DPS)
001576,000063: 27,2010 35711 35663 S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
001577,000064:
001578,000065: 27,2000 SETLOC ASENT1
![]() |
Page 40 |
001580,000067: 27,2000 BANK
001581,000068: 27,2012 COUNT* $$/P70
001582,000069:
001583,000070: 27,2012 03631 23146 (1/DV)A 2DEC 15.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT
001584,000071:
001585,000072: # STAGE ACCELERATION -- INVERTED (M/CS)
001586,000073: # 1) PREDICATED ON A LIFTOFF MASS OF
001587,000074: # 4869.9 KG (SNA-8-D-027 7/11/68)
001588,000075: # 2) PREDICATED ON A CONTRIBUTION TO VEH-
001589,000076: # ICLE ACCELERATION FROM RCS THRUSTERS
001590,000077: # EQUIV. TO 1 JET ON CONTINUOUSLY.
001591,000078: 27,2014 33226 14632 K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
001592,000079: 27,2016 05306 15503 (AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
001593,000080: # ASSUMPTIONS SAME AS FOR (1/DV)A.
001594,000081: 27,2020 26337 30000 (TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG
001595,000082: # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
001596,000083: # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
001597,000084: # RATE = 5.299 KG/SEC = 5.135 (APS) +
001598,000085: # .164 (1 RCS JET).
001599,000086: 30,2000 SETLOC ASENT
001600,000087: 30,2000 BANK
001601,000088: 30,2000 COUNT* $$/ASENT
001602,000089: 30,2000 02445 00274 AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
001603,000090:
001604,000091: 33,2000 SETLOC SERVICES
001605,000092: 33,2000 BANK
001606,000093: 33,2000 COUNT* $$/SERV
001607,000094:
001608,000095: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
001609,000096:
001610,000097: 33,2000 41545 APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
001611,000098: 33,2001 42341 DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
001612,000099: # ************************************************************************
001613,000100:
001614,000101: 31,2000 SETLOC F2DPS*31
001615,000102: 31,2000 BANK
001616,000103: 31,2000 COUNT* $$/F2DPS
001617,000104:
001618,000105: 31,2000 00222 33316 TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
001619,000106:
![]() |
Page 41 |
001621,000108: # THROTTLING AND THRUST DETECTION PARAMETERS
001622,000109:
001623,000110: 36,2000 SETLOC P40S
001624,000111: 36,2000 BANK
001625,000112: 36,2022 COUNT* $$/P40
001626,000113:
001627,000114: 36,2022 00030 THRESH1 DEC 24 B-14
001628,000115:
001629,000116: 36,2023 00014 THRESH3 DEC 12 B-14
001630,000117:
001631,000118: 36,2024 4730 HIRTHROT = BIT13
001632,000119:
001633,000120: 6000 SETLOC FFTAG5
001634,000121: 6000 BANK
001635,000122: 6000 COUNT* $$/P40
001636,000123:
001637,000124: 6000 00464 THRESH2 DEC 308 B-14
001638,000125:
001639,000126: 31,2000 SETLOC FTHROT
001640,000127: 31,2000 BANK
001641,000128: 31,2002 COUNT* $$/THROT
001642,000129:
001643,000130: 31,2002 07401 FMAXODD DEC +3841 B-14 # FSAT +4.81454413 E+ 4
001644,000131: 31,2003 06613 FMAXPOS DEC +3467 B-14 # FMAX +4.34546769 E+ 4
001645,000132: 31,2004 00010 THROTLAG DEC +8 B-14 # TAU (TH) +0.08 SECONDS
001646,000133: 31,2005 00307 17534 SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872 E- 2
001647,000134:
001648,000135: 32,2000 SETLOC F2DPS*32
001649,000136: 32,2000 BANK
001650,000137: 32,2000 COUNT* $$/F2DPS
001651,000138:
001652,000139: 32,2000 00044 DPSTHRSH DEC 36 B-14 # (THRESH1 + THRESH3 FOR P63)
001653,000140:
![]() |
Page 42 |
001655,000142: # LM HARDWARE-RELATED PARAMETERS
001656,000143:
001657,000144: 25,2000 SETLOC RADARUPT
001658,000145: 25,2000 BANK
001659,000146: 25,2000 COUNT* $$/RRUPT
001660,000147:
001661,000148: 25,2000 47777 LVELBIAS DEC -12288 B-14 # LANDING RADAR BIAS FOR 153.6 KC.
001662,000149: 25,2001 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE.
001663,000150: 32,2000 SETLOC LRS22
001664,000151: 32,2000 BANK
001665,000152: 32,2001 COUNT* $$/LRS22
001666,000153:
001667,000154: 32,2001 70123 40702 RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
001668,000155: 32,2003 13337 10776 RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
001669,000156: 33,2000 SETLOC SERVICES
001670,000157: 33,2000 BANK
001671,000158: 33,2002 COUNT* $$/SERV
001672,000159:
001673,000160: 33,2002 51102 42414 HBEAMNB 2DEC -0.7147168647 # POS 1 ALT BEAM IN NAV BASE COORDINATES
001674,000161: 33,2004 75522 46002 2DEC -0.0731086602
001675,000162: 33,2006 51573 62362 2DEC -0.6955824372
001676,000163:
001677,000164: 33,2010 62770 40667 VZBEAMNB 2DEC -0.4067366430 # POS 1 VZ BEAM
001678,000165: 33,2012 03034 21031 2DEC +0.0954915028
001679,000166: 33,2014 35045 21077 2DEC +0.9085409600
001680,000167:
001681,000168: 33,2016 00000 00000 VYBEAMNB 2DEC +0.0 # POS 1 VY BEAM
001682,000169: 33,2020 37646 07712 2DEC +0.9945218954
001683,000170: 33,2022 74517 54765 2DEC -0.1045284632
001684,000171:
001685,000172: 33,2024 35167 20727 VXBEAMNB 2DEC +0.9135454576 # POS 1 VX BEAM
001686,000173: 33,2026 01270 22313 2DEC +0.0425155563
001687,000174: 33,2030 14743 16747 2DEC +0.4045084971
001688,000175:
![]() |
Page 43 |
001690,000177: 33,2032 42001 62422 2DEC -0.9374036070 # POS 2 ALT BEAM
001691,000178: 33,2034 76653 63102 2DEC -0.0364014993
001692,000179: 33,2036 64725 63461 2DEC -0.3463371311
001693,000180:
001694,000181: 33,2040 00000 00000 2DEC +0.0 # POS 2 VZ BEAM
001695,000182: 33,2042 03260 23012 2DEC +0.1045284632
001696,000183: 33,2044 37646 07712 2DEC +0.9945218954
001697,000184:
001698,000185: 33,2046 00000 00000 2DEC +0.0 # POS 2 VY BEAM
001699,000186: 33,2050 37646 07712 2DEC +0.9945218954
001700,000187: 33,2052 74517 54765 2DEC -0.1045284632
001701,000188:
001702,000189: 33,2054 37777 37777 2DEC +0.9999999999 # POS 2 VX BEAM
001703,000190: 33,2056 00000 00000 2DEC +0.0
001704,000191: 33,2060 00000 00000 2DEC +0.0
001705,000192:
001706,000193:
001707,000194: 33,2062 65363 64451 HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
001708,000195:
001709,000196: # ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
001710,000197:
001711,000198: 33,2064 21241 03216 VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
001712,000199: 33,2066 30153 23101 VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
001713,000200: 33,2070 63105 61733 VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
001714,000201: # ************************************************************************
001715,000202:
001716,000203: 33,2072 01507 KPIP DEC .0512 # SCALES DELV TO UNITS OF 2(5) M/CS.
001717,000204: 33,2073 00321 26706 KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.
001718,000205: 33,2075 00150 33343 KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
001719,000206: 21,2000 SETLOC R10
001720,000207:
![]() |
Page 44 |
001722,000209: 21,2000 BANK
001723,000210: 21,2000 COUNT* $$/R10
001724,000211:
001725,000212: 21,2000 01507 LANAKPIP DEC .0512 # SCALES PIPAS TO UNITS OF 2(5) M/CS
001726,000213: 21,2001 00466 MAXVEL OCT 00466 # 198.645 F/S IN UNITS OF 2(5) M/CS
001727,000214: 21,2002 01034 MAXDBITS OCT 01034 # ABOUT 300 F/S
001728,000215: 21,2003 01115 VELCONV DEC .03594 # SCALES VFL AT ONE M/CS TO .5571 F/S/BIT
001729,000216: 21,2004 05101 ALTRCONV DEC .16020 # SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
001730,000217: 21,2005 26305 ALTCONV DEC .69954 # SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
001731,000218:
001732,000219: 20,2000 SETLOC DAPS3
001733,000220: 20,2000 BANK
001734,000221: 20,2000 COUNT* $$/DAPAO
001735,000222:
001736,000223: 20,2000 01150 TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
001737,000224:
![]() |
Page 45 |
001739,000226: # PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
001740,000227:
001741,000228: 05,2000 SETLOC FRANDRES
001742,000229: 05,2000 BANK
001743,000230: 05,2000 COUNT* $$/START
001744,000231:
001745,000232: 05,2000 02357 FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
001746,000233:
001747,000234: 01,2000 SETLOC LOADDAP1
001748,000235: 01,2000 BANK
001749,000236: 01,2000 COUNT* $$/R03
001750,000237:
001751,000238: 01,2000 75675 MINLMD DEC -4360 B-16 # MIN. UNSTAGED MASS (6560 KG) - MINMINLM
001752,000239: # 2(16) KG.
001753,000240: 01,2001 76731 MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
001754,000241: 01,2002 4732 MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
001755,000242:
001756,000243: 20,2000 SETLOC DAPS3
001757,000244: 20,2000 BANK
001758,000245: 20,2001 COUNT* $$/DAPAO
001759,000246:
001760,000247: 20,2001 01046 LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
001761,000248: 20,2002 10117 HIDESCNT DEC 16700 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
001762,000249: 20,2003 01174 LODESCNT DEC 2542 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG
001763,000250:
![]() |
Page 46 |
001765,000252: # PHYSICAL CONSTANTS ( TIME - INVARIANT )
001766,000253:
001767,000254: 37,2000 SETLOC IMU2
001768,000255: 37,2000 BANK
001769,000256: 37,2000 COUNT* $$/P07
001770,000257:
001771,000258: 37,2000 07623 26552 OMEG/MS 2DEC .24339048
001772,000259:
001773,000260: 22,2000 SETLOC R30LOC
001774,000261: 22,2000 BANK
001775,000262: 22,2000 COUNT* $$/R30
001776,000263:
001777,000264: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001778,000265:
001779,000266: 22,2000 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
001780,000267: 22,2002 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
001781,000268: # ************************************************************************
001782,000269:
001783,000270: 27,2000 SETLOC P40S1
001784,000271: 27,2000 BANK
001785,000272: 27,2022 COUNT* $$/S40.9
001786,000273:
001787,000274: 27,2022 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
001788,000275:
001789,000276: 27,2000 SETLOC ASENT1
001790,000277: 27,2000 BANK
001791,000278: 27,2024 COUNT* $$/P12
001792,000279:
001793,000280: 27,2024 00072 16206 MUM(-37) 2DEC* 4.9027780 E8 B-37*
001794,000281: 27,2026 00344 24331 MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
001795,000282:
001796,000283: 33,2000 SETLOC SERVICES
001797,000284: 33,2000 BANK
001798,000285: 33,2077 COUNT* $$/SERV
001799,000286:
001800,000287: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001801,000288:
001802,000289: 33,2077 61377 55754 -MUDT 2DEC* -7.9720645 E+12 B-44*
001803,000290: 33,2101 77644 65556 -MUDT1 2DEC* -9.8055560 E+10 B-44*
001804,000291: # ************************************************************************
001805,000292:
001806,000293: 33,2103 64453 55670 -MUDTMUN 2DEC* -9.8055560 E+10 B-38*
001807,000294: 33,2105 00002 11777 RESQ 2DEC* 40.6809913 E12 B-58*
001808,000295:
![]() |
Page 47 |
001810,000297: 33,2107 01023 37155 20J 2DEC 3.24692010 E-2
001811,000298: 33,2111 00065 06244 2J 2DEC 3.24692010 E-3
001812,000299:
001813,000300: 14,2000 SETLOC P50S1
001814,000301: 14,2000 BANK
001815,000302: 14,2000 COUNT* $$/LOSAM
001816,000303:
001817,000304: 14,2000 26723 00450 RSUBEM 2DEC 384402000 B-29
001818,000305: 14,2002 00065 01265 RSUBM 2DEC 1738090 B-29
001819,000306: 14,2004 00302 24533 RSUBE 2DEC 6378166 B-29
001820,000307: 14,2006 00052 04047 ROE 2DEC .00257125
001821,000308:
001822,000309: 04,2000 SETLOC CONICS1
001823,000310: 04,2000 BANK
001824,000311: 04,2000 COUNT* $$/LT-LG
001825,000312:
001826,000313: 04,2000 00302 17755 ERAD 2DEC 6373338 B-29 # PAD RADIUS
001827,000314: 04,2002 00065 01265 504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
001828,000315:
001829,000316: 04,2000 SETLOC CONICS1
001830,000317: 04,2000 BANK
001831,000318: 04,2004 COUNT* $$/CONIC
001832,000319:
001833,000320: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
001834,000321:
001835,000322: 04,2004 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
001836,000323: 04,2006 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
001837,000324: 04,2010 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
001838,000325: 04,2012 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
001839,000326:
001840,000327:
001841,000328: 04,2014 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
001842,000329: 04,2016 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
001843,000330: 04,2020 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
001844,000331: 04,2022 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
001845,000332:
001846,000333: # ************************************************************************
![]() |
Page 48 |
001848,000335: 13,2000 SETLOC INTINIT
001849,000336: 13,2000 BANK
001850,000337: 13,2000 COUNT* $$/INTIN
001851,000338:
001852,000339: 13,2000 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
001853,000340:
001854,000341: 13,2000 SETLOC ORBITAL2
001855,000342: 13,2000 BANK
001856,000343: 13,2002 COUNT* $$/ORBIT
001857,000344:
001858,000345: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
001859,000346:
001860,000347: 13,2002 27446 14620 2DEC* 1.32715445 E16 B-54* # S
001861,000348: 13,2004 16471 01352 MUM 2DEC* 4.9027780 E8 B-30* # M
001862,000349: 13,2006 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
001863,000350: 13,2010 00000 00000 2DEC 0 B-28
001864,000351: 13,2012 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
001865,000352: 13,2014 77651 76237 2DEC -176236.02 B-25
001866,000353: 13,2016 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
001867,000354: 13,2020 10407 05344 2DEC* .3067493316 E18 B-60*
001868,000355: 13,2022 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
001869,000356: 13,2024 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
001870,000357: # ************************************************************************
001871,000358:
001872,000359: 27,2000 SETLOC TOF-FF1
001873,000360: 27,2000 BANK
001874,000361: 27,2030 COUNT* $$/TFF
001875,000362:
001876,000363: 27,2030 24775 30424 1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
001877,000364:
001878,000365: 42,2000 SETLOC SBAND
001879,000366: 42,2000 BANK
001880,000367: 42,2000 COUNT* $$/R05
001881,000368:
001882,000369: 42,2000 26723 00450 REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
001883,000370:
![]() |
Page 49 |
001885,000372: # PHYSICAL CONSTANTS (TIME - VARIANT)
001886,000373:
001887,000374: 14,2000 SETLOC STARTAB
001888,000375: 14,2000 BANK
001889,000376: 14,2010 COUNT* $$/STARS
001890,000377:
001891,000378: 14,2010 15264 07253 2DEC +.8345006310 B-1 # STAR 37 X
001892,000379: 14,2012 74133 45130 2DEC -.2388718657 B-1 # STAR 37 Y
001893,000380: 14,2014 70034 53644 2DEC -.4965369357 B-1 # STAR 37 Z
001894,000381:
001895,000382: 14,2016 15015 35262 2DEC +.8141988673 B-1 # STAR 36 X
001896,000383: 14,2020 67072 57521 2DEC -.5553601830 B-1 # STAR 36 Y
001897,000384: 14,2022 02552 27310 2DEC +.1692786800 B-1 # STAR 36 Z
001898,000385:
001899,000386: 14,2024 07210 34714 2DEC +.4542117996 B-1 # STAR 35 X
001900,000387: 14,2026 67300 47414 2DEC -.5390337930 B-1 # STAR 35 Y
001901,000388: 14,2030 13262 27671 2DEC +.7093195408 B-1 # STAR 35 Z
001902,000389:
001903,000390: 14,2032 05101 34175 2DEC +.3205423120 B-1 # STAR 34 X
001904,000391: 14,2034 70717 46031 2DEC -.4434583652 B-1 # STAR 34 Y
001905,000392: 14,2036 62467 45023 2DEC -.8370169081 B-1 # STAR 34 Z
001906,000393:
001907,000394: 14,2040 10655 16340 2DEC +.5524232365 B-1 # STAR 33 X
001908,000395: 14,2042 63237 45012 2DEC -.7930716636 B-1 # STAR 33 Y
001909,000396: 14,2044 73711 62337 2DEC -.2566435348 B-1 # STAR 33 Z
001910,000397:
001911,000398: 14,2046 07207 34100 2DEC +.4540867784 B-1 # STAR 32 X
001912,000399: 14,2050 61751 60311 2DEC -.8777450759 B-1 # STAR 32 Y
001913,000400: 14,2052 02344 11437 2DEC +.1528685033 B-1 # STAR 32 Z
001914,000401:
001915,000402: 14,2054 03243 10132 2DEC +.2074286490 B-1 # STAR 31 X
001916,000403: 14,2056 62031 55616 2DEC -.8718956797 B-1 # STAR 31 Y
001917,000404: 14,2060 70716 43617 2DEC -.4435890882 B-1 # STAR 31 Z
001918,000405:
001919,000406: 14,2062 01747 01335 2DEC +.1219537054 B-1 # STAR 30 X
001920,000407: 14,2064 63532 54217 2DEC -.7702168243 B-1 # STAR 30 Y
001921,000408:
![]() |
Page 50 |
001923,000410: 14,2066 12010 11614 2DEC +.6260138474 B-1 # STAR 30 Z
001924,000411:
001925,000412: 14,2070 76152 45651 2DEC -.1120382967 B-1 # STAR 29 X
001926,000413: 14,2072 60371 57632 2DEC -.9695442116 B-1 # STAR 29 Y
001927,000414: 14,2074 03370 03556 2DEC +.2177876068 B-1 # STAR 29 Z
001928,000415:
001929,000416: 14,2076 76127 67425 2DEC -.1142900725 B-1 # STAR 28 X
001930,000417: 14,2100 72436 61577 2DEC -.3400201762 B-1 # STAR 28 Y
001931,000418: 14,2102 61041 46271 2DEC -.9334474056 B-1 # STAR 28 Z
001932,000419:
001933,000420: 14,2104 72303 40213 2DEC -.3511952476 B-1 # STAR 27 X
001934,000421: 14,2106 62637 74356 2DEC -.8242322268 B-1 # STAR 27 Y
001935,000422: 14,2110 70711 46567 2DEC -.4441881743 B-1 # STAR 27 Z
001936,000423:
001937,000424: 14,2112 67366 44175 2DEC -.5324545035 B-1 # STAR 26 X
001938,000425: 14,2114 64424 41241 2DEC -.7163035719 B-1 # STAR 26 Y
001939,000426: 14,2116 07156 23036 2DEC +.4510004372 B-1 # STAR 26 Z
001940,000427:
001941,000428: 14,2120 63330 75735 2DEC -.7860186221 B-1 # STAR 25 X
001942,000429: 14,2122 67512 62476 2DEC -.5221457573 B-1 # STAR 25 Y
001943,000430: 14,2124 05227 10611 2DEC +.3309660611 B-1 # STAR 25 Z
001944,000431:
001945,000432: 14,2126 64757 51701 2DEC -.6895375091 B-1 # STAR 24 X
001946,000433: 14,2130 71233 53334 2DEC -.4185354938 B-1 # STAR 24 Y
001947,000434: 14,2132 66425 76017 2DEC -.5910719617 B-1 # STAR 24 Z
001948,000435:
001949,000436: 14,2134 66546 64151 2DEC -.5812217481 B-1 # STAR 23 X
001950,000437: 14,2136 73256 65757 2DEC -.2911759648 B-1 # STAR 23 Y
001951,000438: 14,2140 14120 32444 2DEC +.7598669864 B-1 # STAR 23 Z
001952,000439:
001953,000440: 14,2142 61251 56124 2DEC -.9168160791 B-1 # STAR 22 X
001954,000441: 14,2144 72307 65764 2DEC -.3506241694 B-1 # STAR 22 Y
001955,000442: 14,2146 74742 65735 2DEC -.1910784362 B-1 # STAR 22 Z
001956,000443:
![]() |
Page 51 |
001958,000445: 14,2150 70607 77742 2DEC -.4521486548 B-1 # STAR 21 X
001959,000446: 14,2152 77151 74615 2DEC -.0495728431 B-1 # STAR 21 Y
001960,000447: 14,2154 61600 60003 2DEC -.8905639377 B-1 # STAR 21 Z
001961,000448:
001962,000449: 14,2156 60605 64345 2DEC -.9524366380 B-1 # STAR 20 X
001963,000450: 14,2160 77026 54200 2DEC -.0597677121 B-1 # STAR 20 Y
001964,000451: 14,2162 73160 42475 2DEC -.2988181236 B-1 # STAR 20 Z
001965,000452:
001966,000453: 14,2164 60430 66614 2DEC -.9657334280 B-1 # STAR 19 X
001967,000454: 14,2166 00653 13072 2DEC +.0521664164 B-1 # STAR 19 Y
001968,000455: 14,2170 04042 27232 2DEC +.2542392790 B-1 # STAR 19 Z
001969,000456:
001970,000457: 14,2172 62162 44274 2DEC -.8610673209 B-1 # STAR 18 X
001971,000458: 14,2174 07322 33165 2DEC +.4632386329 B-1 # STAR 18 Y
001972,000459: 14,2176 03265 32741 2DEC +.2096974909 B-1 # STAR 18 Z
001973,000460:
001974,000461: 14,2200 63467 50064 2DEC -.7745052221 B-1 # STAR 17 X
001975,000462: 14,2202 11655 11373 2DEC +.6149043688 B-1 # STAR 17 Y
001976,000463: 14,2204 75477 77366 2DEC -.1484394758 B-1 # STAR 17 Z
001977,000464:
001978,000465: 14,2206 70425 51217 2DEC -.4661511162 B-1 # STAR 16 X
001979,000466: 14,2210 07505 32504 2DEC +.4772744503 B-1 # STAR 16 Y
001980,000467: 14,2212 13726 15341 2DEC +.7449243154 B-1 # STAR 16 Z
001981,000468:
001982,000469: 14,2214 72157 66255 2DEC -.3613649782 B-1 # STAR 15 X
001983,000470: 14,2216 11142 32737 2DEC +.5745656444 B-1 # STAR 15 Y
001984,000471: 14,2220 64200 43016 2DEC -.7343634472 B-1 # STAR 15 Z
001985,000472:
001986,000473: 14,2222 71316 64201 2DEC -.4122762536 B-1 # STAR 14 X
001987,000474: 14,2224 16400 36737 2DEC +.9063680102 B-1 # STAR 14 Y
001988,000475: 14,2226 01364 14350 2DEC +.0923326629 B-1 # STAR 14 Z
001989,000476:
001990,000477: 14,2230 75051 60001 2DEC -.1824340636 B-1 # STAR 13 X
001991,000478:
![]() |
Page 52 |
001993,000480: 14,2232 17027 31661 2DEC +.9404062129 B-1 # STAR 13 Y
001994,000481: 14,2234 73321 43422 2DEC -.2869738089 B-1 # STAR 13 Z
001995,000482:
001996,000483: 14,2236 77007 51442 2DEC -.0616090080 B-1 # STAR 12 X
001997,000484: 14,2240 11514 32502 2DEC +.6031289258 B-1 # STAR 12 Y
001998,000485: 14,2242 63215 47106 2DEC -.7952608559 B-1 # STAR 12 Z
001999,000486:
002000,000487: 14,2244 02140 02335 2DEC +.1367280274 B-1 # STAR 11 X
002001,000488: 14,2246 12716 12356 2DEC +.6814364033 B-1 # STAR 11 Y
002002,000489: 14,2250 13401 37404 2DEC +.7189922632 B-1 # STAR 11 Z
002003,000490:
002004,000491: 14,2252 03154 15267 2DEC +.2007345455 B-1 # STAR 10 X
002005,000492: 14,2254 17403 01743 2DEC +.9691236271 B-1 # STAR 10 Y
002006,000493: 14,2256 75552 76050 2DEC -.1431958012 B-1 # STAR 10 Z
002007,000494:
002008,000495: 14,2260 05465 17001 2DEC +.3502769546 B-1 # STAR 9 X
002009,000496: 14,2262 16221 27572 2DEC +.8927907521 B-1 # STAR 9 Y
002010,000497: 14,2264 04420 14273 2DEC +.2832502918 B-1 # STAR 9 Z
002011,000498:
002012,000499: 14,2266 06440 11323 2DEC +.4101921571 B-1 # STAR 8 X
002013,000500: 14,2270 07767 30366 2DEC +.4989947555 B-1 # STAR 8 Y
002014,000501: 14,2272 14155 23047 2DEC +.7633784305 B-1 # STAR 8 Z
002015,000502:
002016,000503: 14,2274 13176 03307 2DEC +.7028937840 B-1 # STAR 7 X
002017,000504: 14,2276 13247 03342 2DEC +.7078988678 B-1 # STAR 7 Y
002018,000505: 14,2300 01070 26607 2DEC +.0694227718 B-1 # STAR 7 Z
002019,000506:
002020,000507: 14,2302 10557 32115 2DEC +.5448995598 B-1 # STAR 6 X
002021,000508: 14,2304 10404 00124 2DEC +.5317389073 B-1 # STAR 6 Y
002022,000509: 14,2306 65500 72703 2DEC -.6483349473 B-1 # STAR 6 Z
002023,000510:
002024,000511: 14,2310 00151 25431 2DEC +.0128995818 B-1 # STAR 5 X
002025,000512: 14,2312 00077 37176 2DEC +.0078096205 B-1 # STAR 5 Y
002026,000513:
![]() |
Page 53 |
002028,000515: 14,2314 17777 02143 2DEC +.9998862988 B-1 # STAR 5 Z
002029,000516:
002030,000517: 14,2316 07675 02702 2DEC +.4918322686 B-1 # STAR 4 X
002031,000518: 14,2320 03420 01470 2DEC +.2207092653 B-1 # STAR 4 Y
002032,000519: 14,2322 62414 50541 2DEC -.8422520048 B-1 # STAR 4 Z
002033,000520:
002034,000521: 14,2324 07506 14361 2DEC +.4773424940 B-1 # STAR 3 X
002035,000522: 14,2326 01674 36075 2DEC +.1168141178 B-1 # STAR 3 Y
002036,000523: 14,2330 15736 21775 2DEC +.8709182540 B-1 # STAR 3 Z
002037,000524:
002038,000525: 14,2332 16745 13112 2DEC +.9342466124 B-1 # STAR 2 X
002039,000526: 14,2334 02620 31757 2DEC +.1739271769 B-1 # STAR 2 Y
002040,000527: 14,2336 73011 60052 2DEC -.3113400137 B-1 # STAR 2 Z
002041,000528:
002042,000529: 14,2340 15776 01237 2DEC +.8747608555 B-1 # STAR 1 X
002043,000530: 14,2342 00330 35521 2DEC +.0264803244 B-1 # STAR 1 Y
002044,000531: 14,2344 07573 21256 2DEC +.4838307948 B-1 # STAR 1 Z
002045,000532:
002046,000533: 14,2346 16004 CATLOG DEC 7172 B-14
002047,000534: # ************************************************************************
002048,000535:
002049,000536: 05,2000 SETLOC EPHEM1
002050,000537: 05,2000 BANK
002051,000538: 05,2001 COUNT* $$/EPHEM
002052,000539:
002053,000540: 05,2001 20000 00000 KONMAT 2DEC 1.0 B-1 # *************
002054,000541: 05,2003 00000 00000 2DEC 0 B-28 # *
002055,000542: 05,2005 00000 00000 2DEC 0 B-28 # *
002056,000543: 05,2007 00000 00000 2DEC 0 B-28 # *
002057,000544: 05,2011 16533 31537 2DEC .917456380 B-1* # K1 = COS(OBL)
002058,000545: 05,2013 77333 66677 2DEC -.035679339 B-1* # K2 = SIN (OBL) SIN (IM) (-1)
002059,000546: 05,2015 00000 00000 2DEC 0 B-28 # *
002060,000547: 05,2017 06273 02330 2DEC .397836387 B-1* # K3 = SIN (OBL)
002061,000548:
![]() |
Page 54 |
002063,000550: 05,2021 01242 01302 2DEC* .082280652 B-1* # K4 = COS (OBL) SIN (IM)
002064,000551: 15,2000 SETLOC EPHEM
002065,000552: 15,2000 BANK
002066,000553: 15,2000 00040 36540 CSTODAY 2DEC 8640000 B-32 # * NOTE *
002067,000554: 15,2002 00002 RCB-13 OCT 00002 # * TABLES CONTAIN *
002068,000555: 15,2003 00000 OCT 00000 # * CONSTANTS FOR *
002069,000556: 04,2000 SETLOC EPHEM2
002070,000557: 04,2000 BANK
002071,000558: 04,2024 22572 27325 RATESP 2DEC* .036600997 B+4* # LOMR
002072,000559: 04,2026 01315 26266 2DEC* .002737803 B+4* # LOSR
002073,000560: 04,2030 77731 55144 2DEC* -.00014720 B+4* # LONR
002074,000561: 04,2032 21056 30515 2DEC .534104635 # LOMO
002075,000562: 04,2034 10576 10326 2DEC .273331484 # LOSO
002076,000563: 04,2036 34076 30363 2DEC .878830860 # LONO
002077,000564: 05,2000 SETLOC EPHEM1
002078,000565: 05,2000 BANK
002079,000566: 05,2023 01076 02200 VAL67 2DEC* .017519236 B+1* # AMOD
002080,000567: 05,2025 00621 31256 2DEC .024523430 # AARG
002081,000568: 05,2027 02245 06475 2DEC* .036291713 B+1* # 1/27
002082,000569: 05,2031 00161 32301 2DEC* .003473642 B+1* # BMOD
002083,000570: 05,2033 21230 23473 2DEC .540564756 # BARG
002084,000571: 05,2035 02000 00000 2DEC* .031250000 B+1* # 1/32
002085,000572: 05,2037 00256 13014 2DEC* .005320572 B+1* # CMOD
002086,000573: 05,2041 77500 46146 2DEC -.011706923 # CARG
002087,000574: 05,2043 00131 26730 2DEC* .002737925 B+1* # 1/365
002088,000575: # ************************************************************************
002089,000576:
002090,000577:
002091,000578: 26,2000 SETLOC PLANTIN2
002092,000579: 26,2000 BANK
002093,000580: 26,2000 COUNT* $$/LUROT
002094,000581:
002095,000582: 26,2000 17775 02052 COSI 2DEC* 9.996417320 E-1 B-1* # COS (5521.5 SEC.)
002096,000583:
![]() |
Page 55 |
002098,000585: 26,2002 00333 10374 SINI 2DEC* 2.676579050 E-2 B-1* # SIN (5521.5 SEC.)
002099,000586: 26,2004 77665 42175 NODDOT 2DEC* -1.703706128 E-11 B28* # REV/CSEC
002100,000587: 26,2006 22211 00636 FDOT 2DEC* 4.253263471 E-9 B27* # REV/CSEC
002101,000588: 26,2010 77777 77767 BDOT 2DEC* -1.145529390 E-16 B28* # REV/CSEC
002102,000589: 26,2012 34076 30363 NODIO 2DEC* 8.788308600 E-1 B # REV
002103,000590: 26,2014 24760 00133 FSUBO 2DEC* 6.552737750 E-1 B # REV
002104,000591: 26,2016 02052 35250 BSUBO 2DEC* 6.511941688 E-2 B # REV
002105,000592: 26,2020 37116 32631 WEARTH 2DEC* 1.160576171 E-7 B23* # REV/CSEC
002106,000593: 26,2022 30576 10326 AZO 2DEC* 7.733314844 E-1 B # REVS
002107,000594:
End of include-file CONTROLLED_CONSTANTS.agc. Parent file is MAIN.agc