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