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: ## 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