Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
001539,000002: ## Copyright: Public domain.
001540,000003: ## Filename: CONTROLLED_CONSTANTS.agc
001541,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
001542,000005: ## otherwise known as Luminary Rev 99, the third release
001543,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
001544,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
001545,000008: ## placement of a single label. The corrections shown here have
001546,000009: ## been verified to have the same bank checksums as AGC developer
001547,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
001548,000011: ## to be accurate. This file is intended to be a faithful
001549,000012: ## recreation, except that the code format has been changed to
001550,000013: ## conform to the requirements of the yaYUL assembler rather than
001551,000014: ## the original YUL assembler.
001552,000015: ##
001553,000016: ## Assembler: yaYUL
001554,000017: ## Contact: Jim Lawton <jim.lawton@gmail.com>
001555,000018: ## Website: www.ibiblio.org/apollo.
001556,000019: ## Pages: 038-053
001557,000020: ## Mod history: 2009-05-16 JVL Transcribed from page images.
001558,000021: ## 2016-12-13 RSB Proofed text comments with octopus/ProoferComments
001559,000022: ## and corrected the errors found.
001560,000023: ## 2017-03-02 RSB $$/DAPAD --> $$/DAPAO.
001561,000024: ## 2017-08-01 MAS Created from LMY99 Rev 1.
001562,000025:
001563,000026: ## This source code has been transcribed or otherwise adapted from
001564,000027: ## digitized images of a hardcopy from the MIT Museum. The digitization
001565,000028: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
001566,000029: ## the Museum. Many thanks to both. The images (with suitable reduction
001567,000030: ## in storage size and consequent reduction in image quality as well) are
001568,000031: ## available online at www.ibiblio.org/apollo. If for some reason you
001569,000032: ## find that the images are illegible, contact me at info@sandroid.org
001570,000033: ## about getting access to the (much) higher-quality images which Paul
001571,000034: ## actually created.
001572,000035: ##
001573,000036: ## The code has been modified to match LMY99 Revision 0, otherwise
001574,000037: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
001575,000038: ## the listing from which it was transcribed. It has been verified to
001576,000039: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
001577,000040: ## of Luminary Revision 99 (for which we do not have scans).
001578,000041: ##
001579,000042: ## Notations on Allan Klumpp's listing read, in part:
001580,000043: ##
001581,000044: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
001582,000045:
|
|
Page 38 |
001584,000047: # DPS AND APS ENGINE PARAMETERS
001585,000048:
001586,000049: 36,2000 SETLOC P40S
001587,000050: 36,2000 BANK
001588,000051: 36,2000 COUNT* $$/P40
001589,000052:
001590,000053: # *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
001591,000054:
001592,000055: 36,2000 01056 37167 FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
001593,000056: 36,2002 00457 03250 MDOTDPS 2DEC 0.1480 B-3 # 32.62 LBS/SEC IN KGS/CS.
001594,000057: 36,2004 77777 77731 DTDECAY 2DEC -38 B-28
001595,000058: 36,2006 00307 11040 FAPS 2DEC 1.5569 B-7 # 3500 LBS FORCE IN NEWTONS
001596,000059: 36,2010 00151 05214 MDOTAPS 2DEC 0.05135 B-3 # 11.32 LBS/SEC IN KGS/CS
001597,000060: 36,2012 77777 77765 ATDECAY 2DEC -10 B-28
001598,000061:
001599,000062: # ************************************************************************
001600,000063:
001601,000064: 36,2014 00026 30605 FRCS4 2DEC 0.17792 B-7 # 400 LBS FORCE IN NEWTONS
001602,000065: 36,2016 00013 14303 FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
001603,000066:
001604,000067: 27,2000 SETLOC P40S1
001605,000068: 27,2000 BANK
001606,000069: 27,2000 COUNT* $$/P40
001607,000070:
001608,000071: # *** APS IMPULSE DATA FOR P42 *******************************************
001609,000072:
001610,000073: 27,2000 00000 07622 K1VAL 2DEC 124.55 B-23 # 2800 LB-SEC
001611,000074: 27,2002 00000 00762 K2VAL 2DEC 31.138 B-24 # 700 LB-SEC
001612,000075: 27,2004 00030 35104 K3VAL 2DEC 1.5569 B-10 # FAPS (3500 LBS THRUST)
001613,000076:
001614,000077: # ************************************************************************
001615,000078:
001616,000079: 27,2006 00016 36237 S40.136 2DEC .4671 B-9 # .4671 M NEWTONS (DPS)
001617,000080: 27,2010 35711 35663 S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
001618,000081:
001619,000082: 27,2000 SETLOC ASENT1
001620,000083: 27,2000 BANK
001621,000084: 27,2012 COUNT* $$/P70
001622,000085:
001623,000086: 27,2012 03631 23146 (1/DV)A 2DEC 15.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT
|
|
Page 39 |
001625,000088: # STAGE ACCELERATION -- INVERTED (M/CS)
001626,000089: # 1) PREDICATED ON A LIFTOFF MASS OF
001627,000090: # 4869.9 KG (SNA-8-D-027 7/11/68)
001628,000091: # 2) PREDICATED ON A CONTRIBUTION TO VEH-
001629,000092: # ICLE ACCELERATION FROM RCS THRUSTERS
001630,000093: # EQUIV. TO 1 JET ON CONTINUOUSLY.
001631,000094:
001632,000095: 27,2014 33226 14632 K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
001633,000096:
001634,000097: 27,2016 05306 15503 (AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
001635,000098: # ASSUMPTIONS SAME AS FOR (1/DV)A.
001636,000099: 27,2020 26337 30000 (TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG
001637,000100: # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
001638,000101: # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
001639,000102: # RATE = 5.299 KG/SEC = 5.135 (APS) +
001640,000103: # .164 (1 RCS JET).
001641,000104: 30,2000 SETLOC ASENT
001642,000105: 30,2000 BANK
001643,000106: 30,2000 COUNT* $$/ASENT
001644,000107: 30,2000 02445 00274 AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
001645,000108:
001646,000109: 33,2000 SETLOC SERVICES
001647,000110: 33,2000 BANK
001648,000111: 33,2000 COUNT* $$/SERV
001649,000112:
001650,000113: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
001651,000114:
001652,000115: 33,2000 41545 APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
001653,000116: 33,2001 42341 DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
001654,000117:
001655,000118: # ************************************************************************
001656,000119:
001657,000120: 31,2000 SETLOC F2DPS*31
001658,000121: 31,2000 BANK
001659,000122: 31,2000 COUNT* $$/F2DPS
001660,000123:
001661,000124: 31,2000 00222 33316 TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
001662,000125:
|
|
Page 40 |
001664,000127: # THROTTLING AND THRUST DETECTION PARAMETERS
001665,000128:
001666,000129: 36,2000 SETLOC P40S
001667,000130: 36,2000 BANK
001668,000131: 36,2020 COUNT* $$/P40
001669,000132:
001670,000133: 36,2020 00030 THRESH1 DEC 24 B-14
001671,000134: 36,2021 00014 THRESH3 DEC 12 B-14
001672,000135: 36,2022 4737 HIRTHROT = BIT13
001673,000136:
001674,000137: 6000 SETLOC FFTAG5
001675,000138: 6000 BANK
001676,000139: 6000 COUNT* $$/P40
001677,000140:
001678,000141: 6000 00464 THRESH2 DEC 308 B-14
001679,000142:
001680,000143: 31,2000 SETLOC FTHROT
001681,000144: 31,2000 BANK
001682,000145: 31,2002 COUNT* $$/THROT
001683,000146:
001684,000147: 31,2002 07401 FMAXODD DEC +3841 B-14 # FSAT +4.81454413 E+4
001685,000148: 31,2003 06613 FMAXPOS DEC +3467 B-14 # FMAX +4.34546769 E+4
001686,000149: 31,2004 00024 THROTLAG DEC +20 B-14 # TAU (TH) +1.99999999 E-1
001687,000150: 31,2005 00307 17534 SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872 E-2
001688,000151:
001689,000152: 32,2000 SETLOC F2DPS*32
001690,000153: 32,2000 BANK
001691,000154: 32,2000 COUNT* $$/F2DPS
001692,000155:
001693,000156: 32,2000 00044 DPSTHRSH DEC 36 B-14 # (THRESH1 + THRESH3 FOR P63)
001694,000157:
|
|
Page 41 |
001696,000159: # LM HARDWARE-RELATED PARAMETERS
001697,000160:
001698,000161: 25,2000 SETLOC RADARUPT
001699,000162: 25,2000 BANK
001700,000163: 25,2000 COUNT* $$/RRUPT
001701,000164:
001702,000165: 25,2000 47777 LVELBIAS DEC -12288 B-14 # LANDING RADAR BIAS FOR 153.6 KC.
001703,000166: 25,2001 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE.
001704,000167:
001705,000168: 32,2000 SETLOC LRS22
001706,000169: 32,2000 BANK
001707,000170: 32,2001 COUNT* $$/LRS22
001708,000171:
001709,000172: 32,2001 70123 40702 RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
001710,000173: 32,2003 13337 10776 RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
001711,000174:
001712,000175: 33,2000 SETLOC SERVICES
001713,000176: 33,2000 BANK
001714,000177: 33,2002 COUNT* $$/SERV
001715,000178:
001716,000179: 33,2002 61000 71210 HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
001717,000180: 33,2004 00000 00000 2DEC 0 B-28
001718,000181: 33,2006 72333 45546 2DEC -.1741224271
001719,000182:
001720,000183: 33,2010 65363 64451 HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
001721,000184:
001722,000185: # ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
001723,000186:
001724,000187: 33,2012 21241 03216 VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
001725,000188: 33,2014 30153 23101 VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
001726,000189: 33,2016 63105 61733 VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
001727,000190:
001728,000191: # ************************************************************************
001729,000192:
001730,000193: 33,2020 01507 KPIP DEC .0512 # SCALES DELV TO UNITS OF 2(5) M/CS.
001731,000194: 33,2021 00321 26706 KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.
001732,000195: 33,2023 00150 33343 KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
001733,000196:
|
|
Page 42 |
001735,000198: 33,2025 02630 25010 ALTCONV 2DEC 1.399078846 B-4 # CONVERTS M*2(-24) TO BIT UNITS *2(-28).
001736,000199: 33,2027 24402 26003 ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
001737,000200:
001738,000201: 21,2000 SETLOC R10
001739,000202: 21,2000 BANK
001740,000203: 21,2000 COUNT* $$/R10
001741,000204:
001742,000205: 21,2000 24402 ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
001743,000206: 21,2001 01551 ARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.
001744,000207: 21,2002 21357 ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
001745,000208: 21,2003 22316 VELCONV OCT 22316 # 588.914 B-10 CONV VEL. TO BIT UNITS.
001746,000209: 21,2004 01507 KPIP1(5) DEC .0512 # SCALES DELV TO M/CS*2(-5).
001747,000210: 21,2005 00547 MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
001748,000211:
001749,000212: 20,2000 SETLOC DAPS3
001750,000213: 20,2000 BANK
001751,000214: 20,2000 COUNT* $$/DAPAO
001752,000215:
001753,000216: 20,2000 01150 TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
001754,000217:
|
|
Page 43 |
001756,000219: # PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
001757,000220:
001758,000221: 05,2000 SETLOC FRANDRES
001759,000222: 05,2000 BANK
001760,000223: 05,2000 COUNT* $$/START
001761,000224:
001762,000225: 05,2000 02357 FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
001763,000226:
001764,000227: 01,2000 SETLOC LOADDAP1
001765,000228: 01,2000 BANK
001766,000229: 01,2000 COUNT* $$/R03
001767,000230:
001768,000231: 01,2000 76466 MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
001769,000232: 01,2001 76731 MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
001770,000233: 01,2002 4741 MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
001771,000234:
001772,000235: 20,2000 SETLOC DAPS3
001773,000236: 20,2000 BANK
001774,000237: 20,2001 COUNT* $$/DAPAO
001775,000238:
001776,000239: 20,2001 01046 LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
001777,000240: 20,2002 07361 HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
001778,000241: 20,2003 00666 LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
001779,000242:
|
|
Page 44 |
001781,000244: # PHYSICAL CONSTANTS ( TIME - INVARIANT )
001782,000245:
001783,000246: 37,2000 SETLOC IMU2
001784,000247: 37,2000 BANK
001785,000248: 37,2000 COUNT* $$/P07
001786,000249:
001787,000250: 37,2000 07623 26552 OMEG/MS 2DEC .24339048
001788,000251:
001789,000252: 22,2000 SETLOC R30LOC
001790,000253: 22,2000 BANK
001791,000254: 22,2000 COUNT* $$/R30
001792,000255:
001793,000256: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001794,000257:
001795,000258: 22,2000 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
001796,000259: 22,2002 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
001797,000260:
001798,000261: # ************************************************************************
001799,000262:
001800,000263: 27,2000 SETLOC P40S1
001801,000264: 27,2000 BANK
001802,000265: 27,2022 COUNT* $$/S40.9
001803,000266:
001804,000267: 27,2022 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
001805,000268:
001806,000269: 27,2000 SETLOC ASENT1
001807,000270: 27,2000 BANK
001808,000271: 27,2024 COUNT* $$/P12
001809,000272:
001810,000273: 27,2024 00072 16206 MUM(-37) 2DEC* 4.9027780 E8 B-37*
001811,000274: 27,2026 00344 24331 MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
001812,000275:
001813,000276: 33,2000 SETLOC SERVICES
001814,000277: 33,2000 BANK
001815,000278: 33,2031 COUNT* $$/SERV
001816,000279:
001817,000280: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001818,000281:
001819,000282: 33,2031 61377 55754 -MUDT 2DEC* -7.9720645 E+12 B-44*
001820,000283: 33,2033 77644 65556 -MUDT1 2DEC* -9.8055560 E+10 B-44*
001821,000284:
001822,000285: # ************************************************************************
001823,000286:
001824,000287: 33,2035 64453 55670 -MUDTMUN 2DEC* -9.8055560 E+10 B-38*
001825,000288: 33,2037 00002 11777 RESQ 2DEC* 40.6809913 E12 B-58*
001826,000289:
|
|
Page 45 |
001828,000291: 33,2041 01023 37155 20J 2DEC 3.24692010 E-2
001829,000292: 33,2043 00065 06244 2J 2DEC 3.24692010 E-3
001830,000293:
001831,000294: 14,2000 SETLOC P50S1
001832,000295: 14,2000 BANK
001833,000296: 14,2000 COUNT* $$/LOSAM
001834,000297:
001835,000298: 14,2000 26723 00450 RSUBEM 2DEC 384402000 B-29
001836,000299: 14,2002 00065 01265 RSUBM 2DEC 1738090 B-29
001837,000300: 14,2004 00302 24533 RSUBE 2DEC 6378166 B-29
001838,000301: 14,2006 00052 04047 ROE 2DEC .00257125
001839,000302:
001840,000303: 04,2000 SETLOC CONICS1
001841,000304: 04,2000 BANK
001842,000305: 04,2000 COUNT* $$/LT-LG
001843,000306:
001844,000307: 04,2000 00302 17755 ERAD 2DEC 6373338 B-29 # PAD RADIUS
001845,000308: 04,2002 00065 01265 504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
001846,000309:
001847,000310: 04,2000 SETLOC CONICS1
001848,000311: 04,2000 BANK
001849,000312: 04,2004 COUNT* $$/CONIC
001850,000313:
001851,000314: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
001852,000315:
001853,000316: 04,2004 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
001854,000317: 04,2006 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
001855,000318: 04,2010 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
001856,000319: 04,2012 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
001857,000320: 04,2014 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
001858,000321: 04,2016 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
001859,000322: 04,2020 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
001860,000323: 04,2022 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
001861,000324:
001862,000325: # ************************************************************************
001863,000326:
|
|
Page 46 |
001865,000328: 13,2000 SETLOC INTINIT
001866,000329: 13,2000 BANK
001867,000330: 13,2000 COUNT* $$/INTIN
001868,000331:
001869,000332: 13,2000 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
001870,000333:
001871,000334: 13,2000 SETLOC ORBITAL2
001872,000335: 13,2000 BANK
001873,000336: 13,2002 COUNT* $$/ORBIT
001874,000337:
001875,000338: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
001876,000339:
001877,000340: 13,2002 27446 14620 2DEC* 1.32715445 E16 B-54* # S
001878,000341: 13,2004 16471 01352 MUM 2DEC* 4.9027780 E8 B-30* # M
001879,000342: 13,2006 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
001880,000343: 13,2010 00000 00000 2DEC 0 B-28
001881,000344: 13,2012 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
001882,000345: 13,2014 77651 76237 2DEC -176236.02 B-25
001883,000346: 13,2016 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
001884,000347: 13,2020 10407 05344 2DEC* .3067493316 E18 B-60*
001885,000348: 13,2022 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
001886,000349: 13,2024 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
001887,000350:
001888,000351: # ************************************************************************
001889,000352:
001890,000353: 27,2000 SETLOC TOF-FF1
001891,000354: 27,2000 BANK
001892,000355: 27,2030 COUNT* $$/TFF
001893,000356:
001894,000357: 27,2030 24775 30424 1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
001895,000358:
001896,000359: 42,2000 SETLOC SBAND
001897,000360: 42,2000 BANK
001898,000361: 42,2000 COUNT* $$/R05
001899,000362:
001900,000363: 42,2000 26723 00450 REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
001901,000364:
|
|
Page 47 |
001903,000366: # PHYSICAL CONSTANTS (TIME - VARIANT)
001904,000367:
001905,000368: 14,2000 SETLOC STARTAB
001906,000369: 14,2000 BANK
001907,000370: 14,2010 COUNT* $$/STARS
001908,000371:
001909,000372: 14,2010 15262 21773 2DEC +.8342971408 B-1 # STAR 37 X
001910,000373: 14,2012 74130 42420 2DEC -.2392481515 B-1 # STAR 37 Y
001911,000374: 14,2014 70033 41533 2DEC -.4966976975 B-1 # STAR 37 Z
001912,000375:
001913,000376: 14,2016 15014 04650 2DEC +.8139832631 B-1 # STAR 36 X
001914,000377: 14,2020 67067 60150 2DEC -.5557243189 B-1 # STAR 36 Y
001915,000378: 14,2022 02551 15723 2DEC +.1691204557 B-1 # STAR 36 Z
001916,000379:
001917,000380: 14,2024 07210 01664 2DEC +.4541086270 B-1 # STAR 35 X
001918,000381: 14,2026 67276 62232 2DEC -.5392368197 B-1 # STAR 35 Y
001919,000382: 14,2030 13262 00563 2DEC +.7092312789 B-1 # STAR 35 Z
001920,000383:
001921,000384: 14,2032 05076 35561 2DEC +.3201817378 B-1 # STAR 34 X
001922,000385: 14,2034 70716 40260 2DEC -.4436021946 B-1 # STAR 34 Y
001923,000386: 14,2036 62466 64656 2DEC -.8370786986 B-1 # STAR 34 Z
001924,000387:
001925,000388: 14,2040 10652 04246 2DEC +.5520184464 B-1 # STAR 33 X
001926,000389: 14,2042 63235 44200 2DEC -.7933187400 B-1 # STAR 33 Y
001927,000390: 14,2044 73710 66230 2DEC -.2567508745 B-1 # STAR 33 Z
001928,000391:
001929,000392: 14,2046 07204 33712 2DEC +.4537196908 B-1 # STAR 32 X
001930,000393: 14,2050 61747 72343 2DEC -.8779508801 B-1 # STAR 32 Y
001931,000394: 14,2052 02343 21362 2DEC +.1527766153 B-1 # STAR 32 Z
001932,000395:
001933,000396: 14,2054 03237 13301 2DEC +.2069525789 B-1 # STAR 31 X
001934,000397: 14,2056 62030 65332 2DEC -.8719885748 B-1 # STAR 31 Y
001935,000398: 14,2060 70715 71267 2DEC -.4436288486 B-1 # STAR 31 Z
001936,000399:
001937,000400: 14,2062 01745 06477 2DEC +.1217293692 B-1 # STAR 30 X
001938,000401: 14,2064 63531 75365 2DEC -.7702732847 B-1 # STAR 30 Y
|
|
Page 48 |
001940,000403: 14,2066 12010 03005 2DEC +.6259880410 B-1 # STAR 30 Z
001941,000404:
001942,000405: 14,2070 76146 77014 2DEC -.1124304773 B-1 # STAR 29 X
001943,000406: 14,2072 60371 75073 2DEC -.9694934200 B-1 # STAR 29 Y
001944,000407: 14,2074 03370 12003 2DEC +.2178116072 B-1 # STAR 29 Z
001945,000408:
001946,000409: 14,2076 76125 40037 2DEC -.1146237858 B-1 # STAR 28 X
001947,000410: 14,2100 72436 77062 2DEC -.3399692557 B-1 # STAR 28 Y
001948,000411: 14,2102 61041 54164 2DEC -.9334250333 B-1 # STAR 28 Z
001949,000412:
001950,000413: 14,2104 72277 51044 2DEC -.3516499609 B-1 # STAR 27 X
001951,000414: 14,2106 62641 45471 2DEC -.8240752703 B-1 # STAR 27 Y
001952,000415: 14,2110 70711 70546 2DEC -.4441196390 B-1 # STAR 27 Z
001953,000416:
001954,000417: 14,2112 67364 47073 2DEC -.5326876930 B-1 # STAR 26 X
001955,000418: 14,2114 64425 77777 2DEC -.7160644554 B-1 # STAR 26 Y
001956,000419: 14,2116 07157 16322 2DEC +.4511047742 B-1 # STAR 26 Z
001957,000420:
001958,000421: 14,2120 63327 64446 2DEC -.7861763936 B-1 # STAR 25 X
001959,000422: 14,2122 67515 55266 2DEC -.5217996305 B-1 # STAR 25 Y
001960,000423: 14,2124 05230 25476 2DEC +.3311371675 B-1 # STAR 25 Z
001961,000424:
001962,000425: 14,2126 64754 72604 2DEC -.6898393233 B-1 # STAR 24 X
001963,000426: 14,2130 71235 72553 2DEC -.4182330640 B-1 # STAR 24 Y
001964,000427: 14,2132 66427 42171 2DEC -.5909338474 B-1 # STAR 24 Z
001965,000428:
001966,000429: 14,2134 66546 70765 2DEC -.5812035376 B-1 # STAR 23 X
001967,000430: 14,2136 73260 71643 2DEC -.2909171294 B-1 # STAR 23 Y
001968,000431: 14,2140 14121 30153 2DEC +.7599800468 B-1 # STAR 23 Z
001969,000432:
001970,000433: 14,2142 61247 73310 2DEC -.9170097662 B-1 # STAR 22 X
001971,000434: 14,2144 72313 41247 2DEC -.3502146628 B-1 # STAR 22 Y
001972,000435: 14,2146 74744 44566 2DEC -.1908999176 B-1 # STAR 22 Z
001973,000436:
|
|
Page 49 |
001975,000438: 14,2150 70606 54564 2DEC -.4523440203 B-1 # STAR 21 X
001976,000439: 14,2152 77153 61536 2DEC -.0493710140 B-1 # STAR 21 Y
001977,000440: 14,2154 61601 47046 2DEC -.8904759346 B-1 # STAR 21 Z
001978,000441:
001979,000442: 14,2156 60604 76224 2DEC -.9525211695 B-1 # STAR 20 X
001980,000443: 14,2160 77031 73354 2DEC -.0593434796 B-1 # STAR 20 Y
001981,000444: 14,2162 73161 63065 2DEC -.2986331746 B-1 # STAR 20 Z
001982,000445:
001983,000446: 14,2164 60431 51702 2DEC -.9656605484 B-1 # STAR 19 X
001984,000447: 14,2166 00656 33013 2DEC +.0525933156 B-1 # STAR 19 Y
001985,000448: 14,2170 04044 10627 2DEC +.2544280809 B-1 # STAR 19 Z
001986,000449:
001987,000450: 14,2172 62164 45040 2DEC -.8608205219 B-1 # STAR 18 X
001988,000451: 14,2174 07325 37443 2DEC +.4636213989 B-1 # STAR 18 Y
001989,000452: 14,2176 03267 06626 2DEC +.2098647835 B-1 # STAR 18 Z
001990,000453:
001991,000454: 14,2200 63471 50471 2DEC -.7742591356 B-1 # STAR 17 X
001992,000455: 14,2202 11660 04151 2DEC +.6152504197 B-1 # STAR 17 Y
001993,000456: 14,2204 75501 46664 2DEC -.1482892839 B-1 # STAR 17 Z
001994,000457:
001995,000458: 14,2206 70430 46540 2DEC -.4657947941 B-1 # STAR 16 X
001996,000459: 14,2210 07507 20100 2DEC +.4774785033 B-1 # STAR 16 Y
001997,000460: 14,2212 13727 05455 2DEC +.7450164351 B-1 # STAR 16 Z
001998,000461:
001999,000462: 14,2214 72160 64202 2DEC -.3612508532 B-1 # STAR 15 X
002000,000463: 14,2216 11144 05203 2DEC +.5747270840 B-1 # STAR 15 Y
002001,000464: 14,2220 64200 65331 2DEC -.7342932655 B-1 # STAR 15 Z
002002,000465:
002003,000466: 14,2222 71322 41512 2DEC -.4118589524 B-1 # STAR 14 X
002004,000467: 14,2224 16402 16205 2DEC +.9065485360 B-1 # STAR 14 Y
002005,000468: 14,2226 01365 04034 2DEC +.0924226975 B-1 # STAR 14 Z
002006,000469:
002007,000470: 14,2230 75054 56052 2DEC -.1820751783 B-1 # STAR 13 X
|
|
Page 50 |
002009,000472: 14,2232 17030 17635 2DEC +.9404899869 B-1 # STAR 13 Y
002010,000473: 14,2234 73321 57603 2DEC -.2869271926 B-1 # STAR 13 Z
002011,000474:
002012,000475: 14,2236 77010 47623 2DEC -.0614937230 B-1 # STAR 12 X
002013,000476: 14,2240 11515 01640 2DEC +.6031563286 B-1 # STAR 12 Y
002014,000477: 14,2242 63215 52176 2DEC -.7952489957 B-1 # STAR 12 Z
002015,000478:
002016,000479: 14,2244 02143 26755 2DEC +.1371725575 B-1 # STAR 11 X
002017,000480: 14,2246 12715 31470 2DEC +.6813721061 B-1 # STAR 11 Y
002018,000481: 14,2250 13401 31222 2DEC +.7189685267 B-1 # STAR 11 Z
002019,000482:
002020,000483: 14,2252 03157 27504 2DEC +.2011399589 B-1 # STAR 10 X
002021,000484: 14,2254 17402 12312 2DEC +.9690337941 B-1 # STAR 10 Y
002022,000485: 14,2256 75552 63657 2DEC -.1432348512 B-1 # STAR 10 Z
002023,000486:
002024,000487: 14,2260 05471 06122 2DEC +.3507315038 B-1 # STAR 9 X
002025,000488: 14,2262 16220 16362 2DEC +.8926333307 B-1 # STAR 9 Y
002026,000489: 14,2264 04417 32762 2DEC +.2831839492 B-1 # STAR 9 Z
002027,000490:
002028,000491: 14,2266 06443 12622 2DEC +.4105636020 B-1 # STAR 8 X
002029,000492: 14,2270 07766 10237 2DEC +.4988110001 B-1 # STAR 8 Y
002030,000493: 14,2272 14154 36154 2DEC +.7632988371 B-1 # STAR 8 Z
002031,000494:
002032,000495: 14,2274 13200 31653 2DEC +.7032235469 B-1 # STAR 7 X
002033,000496: 14,2276 13244 21036 2DEC +.7075846047 B-1 # STAR 7 Y
002034,000497: 14,2300 01067 23106 2DEC +.0692868685 B-1 # STAR 7 Z
002035,000498:
002036,000499: 14,2302 10560 27227 2DEC +.5450107404 B-1 # STAR 6 X
002037,000500: 14,2304 10402 00275 2DEC +.5314955466 B-1 # STAR 6 Y
002038,000501: 14,2306 65477 77044 2DEC -.6484410356 B-1 # STAR 6 Z
002039,000502:
002040,000503: 14,2310 00153 11212 2DEC +.0130968840 B-1 # STAR 5 X
002041,000504: 14,2312 00077 36275 2DEC +.0078062795 B-1 # STAR 5 Y
|
|
Page 51 |
002043,000506: 14,2314 17777 01417 2DEC +.9998837600 B-1 # STAR 5 Z
002044,000507:
002045,000508: 14,2316 07674 21771 2DEC +.4917678276 B-1 # STAR 4 X
002046,000509: 14,2320 03416 07626 2DEC +.2204887125 B-1 # STAR 4 Y
002047,000510: 14,2322 62413 57536 2DEC -.8423473935 B-1 # STAR 4 Z
002048,000511:
002049,000512: 14,2324 07510 06414 2DEC +.4775639450 B-1 # STAR 3 X
002050,000513: 14,2326 01673 06065 2DEC +.1166004340 B-1 # STAR 3 Y
002051,000514: 14,2330 15735 31531 2DEC +.8708254803 B-1 # STAR 3 Z
002052,000515:
002053,000516: 14,2332 16745 17555 2DEC +.9342640400 B-1 # STAR 2 X
002054,000517: 14,2334 02615 13716 2DEC +.1735073142 B-1 # STAR 2 Y
002055,000518: 14,2336 73010 40311 2DEC -.3115219339 B-1 # STAR 2 Z
002056,000519:
002057,000520: 14,2340 15776 34660 2DEC +.8748658918 B-1 # STAR 1 X
002058,000521: 14,2342 00325 26625 2DEC +.0260879174 B-1 # STAR 1 Y
002059,000522: 14,2344 07572 05105 2DEC +.4836621670 B-1 # STAR 1 Z
002060,000523:
002061,000524: 14,2346 15472 CATLOG DEC 6970 B-14
002062,000525:
002063,000526: # ************************************************************************
002064,000527:
002065,000528: 05,2000 SETLOC EPHEM1
002066,000529: 05,2000 BANK
002067,000530: 05,2001 COUNT* $$/EPHEM
002068,000531:
002069,000532: 05,2001 20000 00000 KONMAT 2DEC 1.0 B-1 # *************
002070,000533: 05,2003 00000 00000 2DEC 0 B-28 # *
002071,000534: 05,2005 00000 00000 2DEC 0 B-28 # *
002072,000535: 05,2007 00000 00000 2DEC 0 B-28 # *
002073,000536: 05,2011 16533 30007 2DEC .91745 B-1 # K1 COS(OBL) *
002074,000537: 05,2013 77333 56654 2DEC -.03571 B-1 # K2 SIN(OBL)SIN(IM) *
002075,000538: 05,2015 00000 00000 2DEC 0 B-28 # *
002076,000539: 05,2017 06273 03275 2DEC .39784 B-1 # K3 SIN(OBL) *
|
|
Page 52 |
002078,000541: 05,2021 01242 24467 2DEC .082354 B-1 # K4 COS(OBL)SIN(IM) *
002079,000542: 05,2023 00020 17260 CSTODAY 2DEC 8640000 B-33 # * NOTE *
002080,000543: 05,2025 00002 RCB-13 OCT 00002 # * TABLES CONTAIN *
002081,000544: 05,2026 00000 OCT 00000 # * CONSTANTS FOR *
002082,000545: 05,2027 22572 27214 RATESP 2DEC .03660098 B+4 # LOMR * 1969 - 1970 *
002083,000546: 05,2031 01315 26177 2DEC .00273779 B+4 # LOSR
002084,000547: 05,2033 77731 55217 2DEC -.00014719 B+4 # LONR
002085,000548: 05,2035 32055 22576 2DEC .815282336 # LOMO
002086,000549: 05,2037 10624 10605 2DEC .274674910 # LOSO
002087,000550: 05,2041 37436 01635 2DEC .986209499 # LONO
002088,000551: 05,2043 01065 31323 VAL67 2DEC* .01726666666 B+1* # AMOD
002089,000552: 05,2045 20770 13725 2DEC .530784445 # AARG
002090,000553: 05,2047 02245 06475 2DEC .036291712 B+1 # 1/27
002091,000554: 05,2051 00162 33431 2DEC .003505277 B+1 # BMOD
002092,000555: 05,2053 22566 24130 2DEC .585365625 # BARG
002093,000556: 05,2055 02000 00000 2DEC .03125 B+1 # 1/32
002094,000557: 05,2057 00256 17752 2DEC .005325277 B+1 # CMOD
002095,000558: 05,2061 77512 67453 2DEC -.01106341036 # CARG
002096,000559: 05,2063 00131 26730 2DEC .002737925 B+1 # 1/365
002097,000560:
002098,000561: # ************************************************************************
002099,000562:
002100,000563: 26,2000 SETLOC PLANTIN2
002101,000564: 26,2000 BANK
002102,000565: 26,2000 COUNT* $$/LUROT
002103,000566:
002104,000567: 26,2000 17775 02052 COSI 2DEC .99964173 B-1 # COS (5521.5 SEC) B-1
002105,000568: 26,2002 00333 10374 SINI 2DEC .02676579 B-1 # SIN (5521.5 SEC) B-1
002106,000569: 26,2004 77665 42175 NODDOT 2DEC -.457335121 E-2 # REVS/CSEC B+28 = -1.07047011 E-8 RAD/SEC
002107,000570: 26,2006 22211 00625 FDOT 2DEC .570863327 # REVS/CSEC B+27 = 2.67240410 E-6 RAD/SEC
|
|
Page 53 |
002109,000572: 26,2010 77777 77767 BDOT 2DEC -3.07500686 E-8 # REVS/CSEC B+28=-7.19757301 E-14 RAD/SEC
002110,000573: 26,2012 37436 01613 NODIO 2DEC .986209434 # REVS B-D = 6.19653663041 RAD
002111,000574: 26,2014 32417 32160 FSUBO 2DEC .829090536 # REVS B-D = 5.20932947829 RAD
002112,000575: 26,2016 02052 35552 BSUBO 2DEC .0651201393 # REVS B-D = 0.40916190299 RAD
002113,000576: 26,2020 37116 32523 WEARTH 2DEC .973561595 # REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
002114,000577:
End of include-file CONTROLLED_CONSTANTS.agc. Parent file is MAIN.agc