Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
001528,000002: ## Copyright: Public domain.
001529,000003: ## Filename: CONTROLLED_CONSTANTS.agc
001530,000004: ## Purpose: A log section of Zerlina 56, the final revision of
001531,000005: ## Don Eyles's offline development program for the variable
001532,000006: ## guidance period servicer. It also includes a new P66 with LPD
001533,000007: ## (Landing Point Designator) capability, based on an idea of John
001534,000008: ## Young's. Neither of these advanced features were actually flown,
001535,000009: ## but Zerlina was also the birthplace of other big improvements to
001536,000010: ## Luminary including the terrain model and new (Luminary 1E)
001537,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
001538,000012: ## and revision 56 includes all changes up to and including Luminary
001539,000013: ## 183. It is therefore quite close to the Apollo 14 program,
001540,000014: ## Luminary 178, where not modified with new features.
001541,000015: ## Reference: pp. 38-54
001542,000016: ## Assembler: yaYUL
001543,000017: ## Contact: Ron Burkey <info@sandroid.org>.
001544,000018: ## Website: www.ibiblio.org/apollo/index.html
001545,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
001546,000020: ## 2017-08-12 MAS Updated for Zerlina 56.
001547,000021: ## 2017-08-12 MAS Corrected LODESCNT value and removed a stray B+1.
001548,000022: ## 2021-05-30 ABS DEC -> DEC* for extended address fields.
001549,000023:
|
|
Page 38 |
001551,000025: # DPS AND APS ENGINE PARAMETERS
001552,000026:
001553,000027: 36,2000 SETLOC P40S
001554,000028: 36,2000 BANK
001555,000029: 36,2000 COUNT* $$/P40
001556,000030:
001557,000031: # *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
001558,000032:
001559,000033: 36,2000 01056 37167 FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
001560,000034:
001561,000035: 36,2002 00457 03250 MDOTDPS 2DEC 0.1480 B-3 # 32.62 LBS/SEC IN KGS/CS.
001562,000036:
001563,000037: 36,2004 77777 77731 DTDECAY 2DEC -38 B-28 # 40 PERCENT FTP-DPS TAILOFF FOR P40
001564,000038:
001565,000039: 36,2006 00307 11040 FAPS 2DEC 1.5569 B-7 # 3500 LBS FORCE IN NEWTONS
001566,000040:
001567,000041: 36,2010 00151 05214 MDOTAPS 2DEC 0.05135 B-3 # 11.32 LBS/SEC IN KGS/CS
001568,000042:
001569,000043: 36,2012 77777 77755 ATDECAY 2DEC -18 B-28 # 618 LB-SEC TAILOFF FOR APS
001570,000044:
001571,000045: # ************************************************************************
001572,000046:
001573,000047: 36,2014 00003 00000 100PCTTO 2DEC 24 B-17 # 100 PERCENT FTP-DPS TAILOFF FOR P70
001574,000048:
001575,000049: # ************************************************************************
001576,000050:
001577,000051: 36,2016 00026 30605 FRCS4 2DEC 0.17792 B-7 # 400 LBS FORCE IN NEWTONS
001578,000052:
001579,000053: 36,2020 00013 14303 FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
001580,000054:
001581,000055: 27,2000 SETLOC P40S1
001582,000056: 27,2000 BANK
001583,000057: 27,2000 COUNT* $$/P40
001584,000058:
001585,000059: # *** APS IMPULSE DATA FOR P42 *******************************************
001586,000060:
001587,000061: 27,2000 00000 10644 K1VAL 2DEC 141.12 B-23 # 3150 LB.SEC APS IMPULSE (WET)
001588,000062:
001589,000063: 27,2002 00000 00762 K2VAL 2DEC 31.138 B-24 # 700 LB-SEC
001590,000064:
001591,000065: 27,2004 00030 35104 K3VAL 2DEC 1.5569 B-10 # FAPS ( 3500 LBS THRUST)
001592,000066:
001593,000067: # ************************************************************************
001594,000068:
001595,000069: 27,2006 00016 36237 S40.136 2DEC .4671 B-9 # .4671 M NEWTONS (DPS)
001596,000070:
001597,000071: 27,2010 35711 35663 S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
001598,000072:
001599,000073: 27,2000 SETLOC ASENT1
|
|
Page 39 |
001601,000075: 27,2000 BANK
001602,000076: 27,2012 COUNT* $$/P70
001603,000077:
001604,000078: 27,2012 03631 23146 (1/DV)A 2DEC 15.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT
001605,000079:
001606,000080: # STAGE ACCELERATION -- INVERTED (M/CS)
001607,000081: # 1) PREDICATED ON A LIFTOFF MASS OF
001608,000082: # 4869.9 KG (SNA-8-D-027 7/11/68)
001609,000083: # 2) PREDICATED ON A CONTRIBUTION TO VEH-
001610,000084: # ICLE ACCELERATION FROM RCS THRUSTERS
001611,000085: # EQUIV. TO 1 JET ON CONTINUOUSLY.
001612,000086: 27,2014 33226 14632 K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
001613,000087:
001614,000088: 27,2016 05306 15503 (AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
001615,000089:
001616,000090: # ASSUMPTIONS SAME AS FOR (1/DV)A.
001617,000091: 27,2020 26337 30000 (TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG
001618,000092:
001619,000093: # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
001620,000094: # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
001621,000095: # RATE = 5.299 KG/SEC = 5.135 (APS) +
001622,000096: # .164 (1 RCS JET).
001623,000097: 30,2000 SETLOC ASENT
001624,000098: 30,2000 BANK
001625,000099: 30,2000 COUNT* $$/ASENT
001626,000100: 30,2000 02445 00274 AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
001627,000101:
001628,000102: 33,2000 SETLOC SERVICES
001629,000103: 33,2000 BANK
001630,000104: 33,2000 COUNT* $$/SERV
001631,000105:
001632,000106: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
001633,000107:
001634,000108: 33,2000 41545 APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
001635,000109: 33,2001 42341 DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
001636,000110: # ************************************************************************
001637,000111:
001638,000112: 31,2000 SETLOC F2DPS*31
001639,000113: 31,2000 BANK
001640,000114: 31,2000 COUNT* $$/F2DPS
001641,000115:
001642,000116: 31,2000 00222 33316 TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
001643,000117:
|
|
Page 40 |
001645,000119: # THROTTLING AND THRUST DETECTION PARAMETERS
001646,000120:
001647,000121: 36,2000 SETLOC P40S
001648,000122: 36,2000 BANK
001649,000123: 36,2022 COUNT* $$/P40
001650,000124:
001651,000125: 36,2022 00030 THRESH1 DEC 24 B-14
001652,000126:
001653,000127: 36,2023 00014 THRESH3 DEC 12 B-14
001654,000128:
001655,000129: 36,2024 4737 HIRTHROT = BIT13
001656,000130:
001657,000131: 6000 SETLOC FFTAG5
001658,000132: 6000 BANK
001659,000133: 6000 COUNT* $$/P40
001660,000134:
001661,000135: 6000 00464 THRESH2 DEC 308 B-14
001662,000136:
001663,000137: 31,2000 SETLOC FTHROT
001664,000138: 31,2000 BANK
001665,000139: 31,2002 COUNT* $$/THROT
001666,000140:
001667,000141: 31,2002 07401 FMAXODD DEC +3841 B-14 # FSAT +4.81454413 E+ 4
001668,000142:
001669,000143: 31,2003 06613 FMAXPOS DEC +3467 B-14 # FMAX +4.34546769 E+ 4
001670,000144:
001671,000145: 31,2004 00010 THROTLAG DEC +8 B-14 # TAU (TH) +0.08 SECONDS
001672,000146: 31,2005 00307 17534 SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872E- 2
001673,000147:
001674,000148: 32,2000 SETLOC F2DPS*32
001675,000149: 32,2000 BANK
001676,000150: 32,2000 COUNT* $$/F2DPS
001677,000151:
001678,000152: 32,2000 00044 DPSTHRSH DEC 36 B-14 # (THRESH1 + THRESH3 FOR P63)
001679,000153:
|
|
Page 41 |
001681,000155: # LM HARDWARE-RELATED PARAMETERS
001682,000156:
001683,000157: 25,2000 SETLOC RADARUPT
001684,000158: 25,2000 BANK
001685,000159: 25,2000 COUNT* $$/RRUPT
001686,000160:
001687,000161: 25,2000 47777 LVELBIAS DEC -12288 B-14 # LANDING RADAR BIAS FOR 153.6 KC.
001688,000162:
001689,000163: 25,2001 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE.
001690,000164:
001691,000165: 32,2000 SETLOC LRS22
001692,000166: 32,2000 BANK
001693,000167: 32,2001 COUNT* $$/LRS22
001694,000168:
001695,000169: 32,2001 70123 40702 RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
001696,000170:
001697,000171: 32,2003 13337 10776 RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
001698,000172:
001699,000173: 34,2000 SETLOC SERV1
001700,000174: 34,2000 BANK
001701,000175: 34,2000 COUNT* $$/SERV
001702,000176:
001703,000177: 34,2000 51102 42414 HBEAMNB 2DEC -0.7147168647 # POS 1 ALT BEAM IN NAV BASE COORDINATES
001704,000178:
001705,000179: 34,2002 75522 46002 2DEC -0.0731086602
001706,000180:
001707,000181: 34,2004 51573 62362 2DEC -0.6955824372
001708,000182:
001709,000183:
001710,000184: 34,2006 62770 40667 VZBEAMNB 2DEC -0.4067366430 # POS 1 VZ BEAM
001711,000185:
001712,000186: 34,2010 03034 21031 2DEC +0.0954915028
001713,000187:
001714,000188: 34,2012 35045 21077 2DEC +0.9085409600
001715,000189:
001716,000190:
001717,000191: 34,2014 00000 00000 VYBEAMNB 2DEC +0.0 # POS 1 VY BEAM
001718,000192:
001719,000193: 34,2016 37646 07712 2DEC +0.9945218954
001720,000194:
001721,000195: 34,2020 74517 54765 2DEC -0.1045284632
001722,000196:
001723,000197:
001724,000198: 34,2022 35167 20727 VXBEAMNB 2DEC +0.9135454576 # POS 1 VX BEAM
001725,000199:
001726,000200: 34,2024 01270 22313 2DEC +0.0425155563
001727,000201:
001728,000202: 34,2026 14743 16747 2DEC +0.4045084971
001729,000203:
001730,000204:
|
|
Page 42 |
001732,000206: 34,2030 42001 62422 2DEC -0.9374036070 # POS 2 ALT BEAM
001733,000207:
001734,000208: 34,2032 76653 63102 2DEC -0.0364014993
001735,000209:
001736,000210: 34,2034 64725 63461 2DEC -0.3463371311
001737,000211:
001738,000212:
001739,000213: 34,2036 00000 00000 2DEC +0.0 # POS 2 VZ BEAM
001740,000214:
001741,000215: 34,2040 03260 23012 2DEC +0.1045284632
001742,000216:
001743,000217: 34,2042 37646 07712 2DEC +0.9945218954
001744,000218:
001745,000219:
001746,000220: 34,2044 00000 00000 2DEC +0.0 # POS 2 VY BEAM
001747,000221:
001748,000222: 34,2046 37646 07712 2DEC +0.9945218954
001749,000223:
001750,000224: 34,2050 74517 54765 2DEC -0.1045284632
001751,000225:
001752,000226:
001753,000227: 34,2052 37777 37777 2DEC +0.9999999999 # POS 2 VX BEAM
001754,000228:
001755,000229: 34,2054 00000 00000 2DEC +0.0
001756,000230:
001757,000231: 34,2056 00000 00000 2DEC +0.0
001758,000232:
001759,000233:
001760,000234:
001761,000235: 33,2000 SETLOC SERVICES
001762,000236: 33,2000 BANK
001763,000237: 33,2002 COUNT* $$/SERV
001764,000238:
001765,000239: 33,2002 65363 64451 HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
001766,000240:
001767,000241: # ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
001768,000242:
001769,000243: 33,2004 21241 03216 VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
001770,000244:
001771,000245: 33,2006 30153 23101 VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
001772,000246:
001773,000247: 33,2010 63105 61733 VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
001774,000248:
001775,000249:
001776,000250: # ************************************************************************
001777,000251:
001778,000252: 33,2012 01507 KPIP DEC .0512 # SCALES DELV TO UNITS OF 2(5) M/CS.
001779,000253: 33,2013 00321 26706 KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.
001780,000254:
|
|
Page 43 |
001782,000256: 33,2015 00150 33343 KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
001783,000257:
001784,000258: 21,2000 SETLOC R10
001785,000259: 21,2000 BANK
001786,000260: 21,2000 COUNT* $$/R10
001787,000261:
001788,000262: 21,2000 01507 LANAKPIP DEC .0512 # SCALES PIPAS TO UNITS OF 2(5) M/CS
001789,000263:
001790,000264:
001791,000265: 21,2001 00466 MAXVEL OCT 00466 # 198.645 F/S IN UNITS OF 2(5) M/CS
001792,000266:
001793,000267:
001794,000268: 21,2002 01034 MAXDBITS OCT 01034 # ABOUT 300 F/S
001795,000269:
001796,000270:
001797,000271: 21,2003 01115 VELCONV DEC .03594 # SCALES VFL AT ONE M/CS TO .5571 F/S/BIT
001798,000272:
001799,000273:
001800,000274: 21,2004 05101 ALTRCONV DEC .16020 # SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
001801,000275:
001802,000276:
001803,000277: 21,2005 26305 ALTCONV DEC .69954 # SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
001804,000278:
001805,000279:
001806,000280: 20,2000 SETLOC DAPS3
001807,000281: 20,2000 BANK
001808,000282: 20,2000 COUNT* $$/DAPAO
001809,000283:
001810,000284: 20,2000 01150 TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
001811,000285:
|
|
Page 44 |
001813,000287: # PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
001814,000288:
001815,000289:
001816,000290: 05,2000 SETLOC FRANDRES
001817,000291: 05,2000 BANK
001818,000292: 05,2000 COUNT* $$/START
001819,000293:
001820,000294: 05,2000 02357 FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
001821,000295:
001822,000296: 01,2000 SETLOC LOADDAP1
001823,000297: 01,2000 BANK
001824,000298: 01,2000 COUNT* $$/R03
001825,000299:
001826,000300: 01,2000 76466 MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
001827,000301:
001828,000302: 01,2001 76731 MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
001829,000303:
001830,000304: 01,2002 4741 MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
001831,000305:
001832,000306: 20,2000 SETLOC DAPS3
001833,000307: 20,2000 BANK
001834,000308: 20,2001 COUNT* $$/DAPAO
001835,000309:
001836,000310: 20,2001 01046 LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
001837,000311:
001838,000312: 20,2002 10117 HIDESCNT DEC 16700 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
001839,000313: 20,2003 00666 LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG
001840,000314:
|
|
Page 45 |
001842,000316: # PHYSICAL CONSTANTS ( TIME - INVARIANT )
001843,000317:
001844,000318: 37,2000 SETLOC IMU2
001845,000319: 37,2000 BANK
001846,000320: 37,2000 COUNT* $$/P07
001847,000321:
001848,000322: 37,2000 07623 26552 OMEG/MS 2DEC .24339048
001849,000323:
001850,000324: 22,2000 SETLOC R30LOC
001851,000325: 22,2000 BANK
001852,000326: 22,2000 COUNT* $$/R30
001853,000327:
001854,000328: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001855,000329:
001856,000330: 22,2000 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
001857,000331:
001858,000332: 22,2002 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
001859,000333:
001860,000334: # ************************************************************************
001861,000335:
001862,000336: 27,2000 SETLOC P40S1
001863,000337: 27,2000 BANK
001864,000338: 27,2022 COUNT* $$/S40.9
001865,000339:
001866,000340: 27,2022 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
001867,000341:
001868,000342: 27,2000 SETLOC ASENT1
001869,000343: 27,2000 BANK
001870,000344: 27,2024 COUNT* $$/P12
001871,000345:
001872,000346: 27,2024 00072 16206 MUM(-37) 2DEC* 4.9027780 E8 B-37*
001873,000347:
001874,000348: 27,2026 00344 24331 MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
001875,000349:
001876,000350: 33,2000 SETLOC SERVICES
001877,000351: 33,2000 BANK
001878,000352: 33,2017 COUNT* $$/SERV
001879,000353:
001880,000354: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
001881,000355:
001882,000356: 33,2017 55340 61710 -MUEARTH 2DEC* -.3986032 E+11 B-36*
001883,000357:
001884,000358:
001885,000359: 33,2021 77613 43363 -MUMOON 2DEC* -.4902778 E+09 B-36*
001886,000360:
001887,000361:
001888,000362: # ************************************************************************
001889,000363:
|
|
Page 46 |
001891,000365: 33,2023 00002 11777 RESQ 2DEC* 40.6809913 E12 B-58*
001892,000366:
001893,000367: 33,2025 01023 37155 20J 2DEC 3.24692010 E-2
001894,000368:
001895,000369: 33,2027 00065 06244 2J 2DEC 3.24692010 E-3
001896,000370:
001897,000371: 14,2000 SETLOC P50S1
001898,000372: 14,2000 BANK
001899,000373: 14,2000 COUNT* $$/LOSAM
001900,000374:
001901,000375: 14,2000 26723 00450 RSUBEM 2DEC 384402000 B-29
001902,000376:
001903,000377: 14,2002 00065 01265 RSUBM 2DEC 1738090 B-29
001904,000378:
001905,000379: 14,2004 00302 24533 RSUBE 2DEC 6378166 B-29
001906,000380:
001907,000381: 14,2006 00052 04047 ROE 2DEC .00257125
001908,000382:
001909,000383: 04,2000 SETLOC CONICS1
001910,000384: 04,2000 BANK
001911,000385: 04,2000 COUNT* $$/LT-LG
001912,000386:
001913,000387: 04,2000 00302 17755 ERAD 2DEC 6373338 B-29 # PAD RADIUS
001914,000388:
001915,000389: 04,2002 00065 01265 504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
001916,000390:
001917,000391: 04,2000 SETLOC CONICS1
001918,000392: 04,2000 BANK
001919,000393: 04,2004 COUNT* $$/CONIC
001920,000394:
001921,000395: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
001922,000396:
001923,000397: 04,2004 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
001924,000398:
001925,000399: 04,2006 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
001926,000400:
001927,000401: 04,2010 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
001928,000402:
001929,000403: 04,2012 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
001930,000404:
001931,000405:
001932,000406:
001933,000407: 04,2014 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
001934,000408:
001935,000409: 04,2016 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
001936,000410:
001937,000411: 04,2020 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
001938,000412:
001939,000413: 04,2022 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
001940,000414:
001941,000415: # ************************************************************************
|
|
Page 47 |
001943,000417: 13,2000 SETLOC INTINIT
001944,000418: 13,2000 BANK
001945,000419: 13,2000 COUNT* $$/INTIN
001946,000420:
001947,000421: 13,2000 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
001948,000422:
001949,000423: 13,2000 SETLOC ORBITAL2
001950,000424: 13,2000 BANK
001951,000425: 13,2002 COUNT* $$/ORBIT
001952,000426:
001953,000427: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
001954,000428:
001955,000429: 13,2002 27446 14620 2DEC* 1.32715445 E16 B-54* # S
001956,000430:
001957,000431: 13,2004 16471 01352 MUM 2DEC* 4.9027780 E8 B-30* # M
001958,000432:
001959,000433: 13,2006 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
001960,000434:
001961,000435: 13,2010 00000 00000 2DEC 0 B-28
001962,000436:
001963,000437: 13,2012 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
001964,000438:
001965,000439: 13,2014 77651 76237 2DEC -176236.02 B-25
001966,000440:
001967,000441: 13,2016 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
001968,000442:
001969,000443: 13,2020 10407 05344 2DEC* .3067493316 E18 B-60*
001970,000444:
001971,000445: 13,2022 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
001972,000446:
001973,000447: 13,2024 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
001974,000448:
001975,000449: # ************************************************************************
001976,000450:
001977,000451: 27,2000 SETLOC TOF-FF1
001978,000452: 27,2000 BANK
001979,000453: 27,2030 COUNT* $$/TFF
001980,000454:
001981,000455: 27,2030 24775 30424 1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
001982,000456:
001983,000457: 42,2000 SETLOC SBAND
001984,000458: 42,2000 BANK
001985,000459: 42,2000 COUNT* $$/R05
001986,000460:
001987,000461: 42,2000 26723 00450 REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
001988,000462:
|
|
Page 48 |
001990,000464: # PHYSICAL CONSTANTS (TIME - VARIANT)
001991,000465:
001992,000466: 14,2000 SETLOC STARTAB
001993,000467: 14,2000 BANK
001994,000468: 14,2010 COUNT* $$/STARS
001995,000469:
001996,000470: 14,2010 15263 14526 2DEC +.8343989109 B-1 # STAR 37 X
001997,000471:
001998,000472: 14,2012 74131 63662 2DEC -.2390600205 B-1 # STAR 37 Y
001999,000473:
002000,000474: 14,2014 70033 66576 2DEC -.4966173214 B-1 # STAR 37 Z
002001,000475:
002002,000476: 14,2016 15015 01060 2DEC +.8140910890 B-1 # STAR 36 X
002003,000477:
002004,000478: 14,2020 67070 77733 2DEC -.5555422636 B-1 # STAR 36 Y
002005,000479:
002006,000480: 14,2022 02552 02515 2DEC +.1691995627 B-1 # STAR 36 Z
002007,000481:
002008,000482: 14,2024 07210 17302 2DEC +.4541602263 B-1 # STAR 35 X
002009,000483:
002010,000484: 14,2026 67277 54722 2DEC -.5391353124 B-1 # STAR 35 Y
002011,000485:
002012,000486: 14,2030 13262 14226 2DEC +.7092754074 B-1 # STAR 35 Z
002013,000487:
002014,000488: 14,2032 05100 14770 2DEC +.3203620343 B-1 # STAR 34 X
002015,000489:
002016,000490: 14,2034 70716 63142 2DEC -.4435303001 B-1 # STAR 34 Y
002017,000491:
002018,000492: 14,2036 62466 74737 2DEC -.8370478121 B-1 # STAR 34 Z
002019,000493:
002020,000494: 14,2040 10653 31305 2DEC +.5522208574 B-1 # STAR 33 X
002021,000495:
002022,000496: 14,2042 63236 44502 2DEC -.7931952248 B-1 # STAR 33 Y
002023,000497:
002024,000498: 14,2044 73711 44272 2DEC -.2566972144 B-1 # STAR 33 Z
002025,000499:
002026,000500: 14,2046 07206 14007 2DEC +.4539032479 B-1 # STAR 32 X
002027,000501:
002028,000502: 14,2050 61750 65323 2DEC -.8778479991 B-1 # STAR 32 Y
002029,000503:
002030,000504: 14,2052 02343 35410 2DEC +.1528225504 B-1 # STAR 32 Z
002031,000505:
002032,000506: 14,2054 03241 11616 2DEC +.2071906196 B-1 # STAR 31 X
002033,000507:
002034,000508: 14,2056 62031 41460 2DEC -.8719421540 B-1 # STAR 31 Y
002035,000509:
002036,000510: 14,2060 70715 76442 2DEC -.4436089799 B-1 # STAR 31 Z
002037,000511:
002038,000512: 14,2062 01746 04017 2DEC +.1218415406 B-1 # STAR 30 X
002039,000513:
002040,000514: 14,2064 63532 44700 2DEC -.7702450672 B-1 # STAR 30 Y
002041,000515:
|
|
Page 49 |
002043,000517: 14,2066 12010 06310 2DEC +.6260009387 B-1 # STAR 30 Z
002044,000518:
002045,000519: 14,2070 76150 62332 2DEC -.1122343912 B-1 # STAR 29 X
002046,000520:
002047,000521: 14,2072 60371 66347 2DEC -.9695188377 B-1 # STAR 29 Y
002048,000522:
002049,000523: 14,2074 03370 06667 2DEC +.2177995974 B-1 # STAR 29 Z
002050,000524:
002051,000525: 14,2076 76126 53632 2DEC -.1144569328 B-1 # STAR 28 X
002052,000526:
002053,000527: 14,2100 72436 70326 2DEC -.3399947346 B-1 # STAR 28 Y
002054,000528:
002055,000529: 14,2102 61041 51225 2DEC -.9334362275 B-1 # STAR 28 Z
002056,000530:
002057,000531: 14,2104 72301 44526 2DEC -.3514226152 B-1 # STAR 27 X
002058,000532:
002059,000533: 14,2106 62640 61020 2DEC -.8241537737 B-1 # STAR 27 Y
002060,000534:
002061,000535: 14,2110 70711 57555 2DEC -.4441539178 B-1 # STAR 27 Z
002062,000536:
002063,000537: 14,2112 67365 45532 2DEC -.5325711148 B-1 # STAR 26 X
002064,000538:
002065,000539: 14,2114 64425 40516 2DEC -.7161840263 B-1 # STAR 26 Y
002066,000540:
002067,000541: 14,2116 07157 00567 2DEC +.4510526000 B-1 # STAR 26 Z
002068,000542:
002069,000543: 14,2120 63330 51176 2DEC -.7860975319 B-1 # STAR 25 X
002070,000544:
002071,000545: 14,2122 67513 77771 2DEC -.5219727016 B-1 # STAR 25 Y
002072,000546:
002073,000547: 14,2124 05227 37143 2DEC +.3310516106 B-1 # STAR 25 Z
002074,000548:
002075,000549: 14,2126 64756 42240 2DEC -.6896884364 B-1 # STAR 24 X
002076,000550:
002077,000551: 14,2130 71234 63041 2DEC -.4183842954 B-1 # STAR 24 Y
002078,000552:
002079,000553: 14,2132 66426 60103 2DEC -.5910029120 B-1 # STAR 24 Z
002080,000554:
002081,000555: 14,2134 66546 66454 2DEC -.5812126603 B-1 # STAR 23 X
002082,000556:
002083,000557: 14,2136 73257 67711 2DEC -.2910465457 B-1 # STAR 23 Y
002084,000558:
002085,000559: 14,2140 14121 11310 2DEC +.7599235169 B-1 # STAR 23 Z
002086,000560:
002087,000561: 14,2142 61250 64612 2DEC -.9169129501 B-1 # STAR 22 X
002088,000562:
002089,000563: 14,2144 72311 53514 2DEC -.3504194263 B-1 # STAR 22 Y
002090,000564:
002091,000565: 14,2146 74743 55251 2DEC -.1909891817 B-1 # STAR 22 Z
002092,000566:
|
|
Page 50 |
002094,000568: 14,2150 70607 46251 2DEC -.4522463508 B-1 # STAR 21 X
002095,000569:
002096,000570: 14,2152 77152 67164 2DEC -.0494719393 B-1 # STAR 21 Y
002097,000571:
002098,000572: 14,2154 61600 73424 2DEC -.8905199410 B-1 # STAR 21 Z
002099,000573:
002100,000574: 14,2156 60605 51271 2DEC -.9524789319 B-1 # STAR 20 X
002101,000575:
002102,000576: 14,2160 77030 43666 2DEC -.0595555999 B-1 # STAR 20 Y
002103,000577:
002104,000578: 14,2162 73160 72671 2DEC -.2987256513 B-1 # STAR 20 Z
002105,000579:
002106,000580: 14,2164 60431 40244 2DEC -.9656970164 B-1 # STAR 19 X
002107,000581:
002108,000582: 14,2166 00655 03043 2DEC +.0523798707 B-1 # STAR 19 Y
002109,000583:
002110,000584: 14,2170 04043 20031 2DEC +.2543336816 B-1 # STAR 19 Z
002111,000585:
002112,000586: 14,2172 62163 44553 2DEC -.8609439465 B-1 # STAR 18 X
002113,000587:
002114,000588: 14,2174 07324 15316 2DEC +.4634300302 B-1 # STAR 18 Y
002115,000589:
002116,000590: 14,2176 03266 20674 2DEC +.2097811430 B-1 # STAR 18 Z
002117,000591:
002118,000592: 14,2200 63470 50263 2DEC -.7743822014 B-1 # STAR 17 X
002119,000593:
002120,000594: 14,2202 11656 26664 2DEC +.6150774086 B-1 # STAR 17 Y
002121,000595:
002122,000596: 14,2204 75500 63126 2DEC -.1483643740 B-1 # STAR 17 Z
002123,000597:
002124,000598: 14,2206 70426 67766 2DEC -.4659729684 B-1 # STAR 16 X
002125,000599:
002126,000600: 14,2210 07506 25305 2DEC +.4773764969 B-1 # STAR 16 Y
002127,000601:
002128,000602: 14,2212 13726 31410 2DEC +.7449703838 B-1 # STAR 16 Z
002129,000603:
002130,000604: 14,2214 72160 45226 2DEC -.3613079259 B-1 # STAR 15 X
002131,000605:
002132,000606: 14,2216 11143 20062 2DEC +.5746463708 B-1 # STAR 15 Y
002133,000607:
002134,000608: 14,2220 64200 54164 2DEC -.7343283537 B-1 # STAR 15 Z
002135,000609:
002136,000610: 14,2222 71320 52744 2DEC -.4120676148 B-1 # STAR 14 X
002137,000611:
002138,000612: 14,2224 16401 26465 2DEC +.9064582964 B-1 # STAR 14 Y
002139,000613:
002140,000614: 14,2226 01364 30204 2DEC +.0923776901 B-1 # STAR 14 Z
002141,000615:
002142,000616: 14,2230 75052 77025 2DEC -.1822546265 B-1 # STAR 13 X
002143,000617:
|
|
Page 51 |
002145,000619: 14,2232 17030 04652 2DEC +.9404481198 B-1 # STAR 13 Y
002146,000620:
002147,000621: 14,2234 73321 51514 2DEC -.2869504922 B-1 # STAR 13 Z
002148,000622:
002149,000623: 14,2236 77007 70532 2DEC -.0615513667 B-1 # STAR 12 X
002150,000624:
002151,000625: 14,2240 11514 36162 2DEC +.6031426337 B-1 # STAR 12 Y
002152,000626:
002153,000627: 14,2242 63215 50542 2DEC -.7952549230 B-1 # STAR 12 Z
002154,000628:
002155,000629: 14,2244 02141 34546 2DEC +.1369502971 B-1 # STAR 11 X
002156,000630:
002157,000631: 14,2246 12716 02026 2DEC +.6814042795 B-1 # STAR 11 Y
002158,000632:
002159,000633: 14,2250 13401 34315 2DEC +.7189804058 B-1 # STAR 11 Z
002160,000634:
002161,000635: 14,2252 03156 02376 2DEC +.2009372589 B-1 # STAR 10 X
002162,000636:
002163,000637: 14,2254 17402 26132 2DEC +.9690787331 B-1 # STAR 10 Y
002164,000638:
002165,000639: 14,2256 75552 70755 2DEC -.1432153163 B-1 # STAR 10 Z
002166,000640:
002167,000641: 14,2260 05467 12453 2DEC +.3505042402 B-1 # STAR 9 X
002168,000642:
002169,000643: 14,2262 16221 03071 2DEC +.8927120666 B-1 # STAR 9 Y
002170,000644:
002171,000645: 14,2264 04420 03530 2DEC +.2832171316 B-1 # STAR 9 Z
002172,000646:
002173,000647: 14,2266 06441 32064 2DEC +.4103778920 B-1 # STAR 8 X
002174,000648:
002175,000649: 14,2270 07767 00316 2DEC +.4989028983 B-1 # STAR 8 Y
002176,000650:
002177,000651: 14,2272 14155 10512 2DEC +.7633386428 B-1 # STAR 8 Z
002178,000652:
002179,000653: 14,2274 13177 16474 2DEC +.7030586868 B-1 # STAR 7 X
002180,000654:
002181,000655: 14,2276 13245 32202 2DEC +.7077417542 B-1 # STAR 7 Y
002182,000656:
002183,000657: 14,2300 01070 04747 2DEC +.0693548283 B-1 # STAR 7 Z
002184,000658:
002185,000659: 14,2302 10560 10564 2DEC +.5449551668 B-1 # STAR 6 X
002186,000660:
002187,000661: 14,2304 10403 00211 2DEC +.5316172328 B-1 # STAR 6 Y
002188,000662:
002189,000663: 14,2306 65500 54764 2DEC -.6483879887 B-1 # STAR 6 Z
002190,000664:
002191,000665: 14,2310 00152 17317 2DEC +.0129982160 B-1 # STAR 5 X
002192,000666:
002193,000667: 14,2312 00077 36650 2DEC +.0078080287 B-1 # STAR 5 Y
002194,000668:
|
|
Page 52 |
002196,000670: 14,2314 17777 01672 2DEC +.9998850339 B-1 # STAR 5 Z
002197,000671:
002198,000672: 14,2316 07674 32337 2DEC +.4918000631 B-1 # STAR 4 X
002199,000673:
002200,000674: 14,2320 03417 04547 2DEC +.2205989850 B-1 # STAR 4 Y
002201,000675:
002202,000676: 14,2322 62413 74137 2DEC -.8422997006 B-1 # STAR 4 Z
002203,000677:
002204,000678: 14,2324 07507 11400 2DEC +.4774532337 B-1 # STAR 3 X
002205,000679:
002206,000680: 14,2326 01674 02073 2DEC +.1167072881 B-1 # STAR 3 Y
002207,000681:
002208,000682: 14,2330 15736 05654 2DEC +.8708718726 B-1 # STAR 3 Z
002209,000683:
002210,000684: 14,2332 16745 15337 2DEC +.9342553544 B-1 # STAR 2 X
002211,000685:
002212,000686: 14,2334 02617 02736 2DEC +.1737172460 B-1 # STAR 2 Y
002213,000687:
002214,000688: 14,2336 73010 70171 2DEC -.3114309732 B-1 # STAR 2 Z
002215,000689:
002216,000690: 14,2340 15776 17053 2DEC +.8748133997 B-1 # STAR 1 X
002217,000691:
002218,000692: 14,2342 00327 12164 2DEC +.0262841262 B-1 # STAR 1 Y
002219,000693:
002220,000694: 14,2344 07572 33172 2DEC +.4837464836 B-1 # STAR 1 Z
002221,000695:
002222,000696: 14,2346 15637 CATLOG DEC 7071 B-14
002223,000697: # ************************************************************************
002224,000698:
002225,000699:
002226,000700: 05,2000 SETLOC EPHEM1
002227,000701: 05,2000 BANK
002228,000702: 05,2001 COUNT* $$/EPHEM
002229,000703:
002230,000704: 05,2001 20000 00000 KONMAT 2DEC 1.0 B-1 # *************
002231,000705:
002232,000706: 05,2003 00000 00000 2DEC 0 B-28 # *
002233,000707:
002234,000708: 05,2005 00000 00000 2DEC 0 B-28 # *
002235,000709:
002236,000710: 05,2007 00000 00000 2DEC 0 B-28 # *
002237,000711:
002238,000712: 05,2011 16533 32505 2DEC* .91746 B-1* # K1 COS (OBL)
002239,000713:
002240,000714: 05,2013 77333 56446 2DEC* -.035711 B-1* # K2 SIN (OBL) SIN (IM)
002241,000715:
002242,000716: 05,2015 00000 00000 2DEC 0 B-28 # *
002243,000717:
002244,000718: 05,2017 06273 03275 2DEC* .39784 B-1* # K3 SIN (OBL)
002245,000719:
|
|
Page 53 |
002247,000721: 05,2021 01242 24467 2DEC* .082354 B-1* # K4 COS (OBL) SIN (IM)
002248,000722:
002249,000723: 05,2023 00020 17260 CSTODAY 2DEC 8640000 B-33 # * NOTE *
002250,000724:
002251,000725: 05,2025 00002 RCB-13 OCT 00002 # * TABLES CONTAIN *
002252,000726: 05,2026 00000 OCT 00000 # * CONSTANTS FOR *
002253,000727: 05,2027 22572 27267 RATESP 2DEC* .03660099 B+4* # LOMR
002254,000728:
002255,000729: 05,2031 01315 26251 2DEC* .00273780 B+4* # LOSR
002256,000730:
002257,000731: 05,2033 77731 55144 2DEC* -.00014720 B+4* # LONR
002258,000732:
002259,000733: 05,2035 05456 01204 2DEC .174685017 # LOMO
002260,000734:
002261,000735: 05,2037 10611 15113 2DEC .274011893 # LOSO
002262,000736:
002263,000737: 05,2041 35656 15121 2DEC .932520213 # LONO
002264,000738:
002265,000739: 05,2043 01076 16550 VAL67 2DEC* .017531111 B+1* # AMOD
002266,000740:
002267,000741: 05,2045 70645 74553 2DEC -.224249436 # AARG
002268,000742:
002269,000743: 05,2047 02245 06475 2DEC* .036291713 B+1* # 1/27
002270,000744:
002271,000745: 05,2051 00162 05550 2DEC* .003484442 B+1* # BMOD
002272,000746:
002273,000747: 05,2053 01671 37406 2DEC .058226609 # BARG
002274,000748:
002275,000749: 05,2055 01000 00000 2DEC .031250000 # 1/32
002276,000750:
002277,000751: 05,2057 00256 24654 2DEC* .005329930 B+1* # CMOD
002278,000752:
002279,000753: 05,2061 77523 76354 2DEC -.010500980 # CARG
002280,000754:
002281,000755: 05,2063 00131 26730 2DEC* .002737925 B+1* # 1/365
002282,000756:
002283,000757: # ************************************************************************
002284,000758:
002285,000759:
002286,000760: 26,2000 SETLOC PLANTIN2
002287,000761: 26,2000 BANK
002288,000762: 26,2000 COUNT* $$/LUROT
002289,000763:
002290,000764: 26,2000 17775 02052 COSI 2DEC* 9.996417320 E-1 B-1* # COS (5521.5 SEC.)
002291,000765:
002292,000766: 26,2002 00333 10374 SINI 2DEC* 2.676579050 E-2 B-1* # SIN (5521.5 SEC.)
002293,000767:
002294,000768: 26,2004 77665 42175 NODDOT 2DEC* -1.703706159 E-11 B28* # REV/CSEC
002295,000769:
002296,000770: 26,2006 22211 00636 FDOT 2DEC* 4.253263471 E-9 B27* # REV/CSEC
002297,000771:
|
|
Page 54 |
002299,000773: 26,2010 77777 77767 BDOT 2DEC* -1.145530402 E-16 B28* # REV/CSEC
002300,000774:
002301,000775: 26,2012 35656 15077 NODIO 2DEC* 9.325201471 E-1 B # REV
002302,000776:
002303,000777: 26,2014 07577 35124 FSUBO 2DEC* 2.421820916 E-1 B # REV
002304,000778:
002305,000779: 26,2016 02052 35411 BSUBO 2DEC* 6.511977813 E-2 B # REV
002306,000780:
002307,000781: 26,2020 37116 32631 WEARTH 2DEC* 1.160576171 E-7 B23* # REV/CSEC
002308,000782:
002309,000783: 26,2022 30611 04040 AZO 2DEC* 7.739945637 E-1 B # REVS
002310,000784:
End of include-file CONTROLLED_CONSTANTS.agc. Parent file is MAIN.agc