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