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