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