Source Code

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