Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
002232,000002: ## Copyright: Public domain.
002233,000003: ## Filename: CONTROLLED_CONSTANTS.agc
002234,000004: ## Purpose: A section of LUM69 revision 2.
002235,000005: ## It is part of the reconstructed source code for the flown
002236,000006: ## version of the flight software for the Lunar Module's (LM)
002237,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
002238,000008: ## been recreated from a copy of Luminary revsion 069, using
002239,000009: ## changes present in Luminary 099 which were described in
002240,000010: ## Luminary memos 75 and 78. The code has been adapted such
002241,000011: ## that the resulting bugger words exactly match those specified
002242,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
002243,000013: ## relatively high confidence that the reconstruction is correct.
002244,000014: ## Reference: pp. 53-69
002245,000015: ## Assembler: yaYUL
002246,000016: ## Contact: Ron Burkey <info@sandroid.org>.
002247,000017: ## Website: www.ibiblio.org/apollo/index.html
002248,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
002249,000019: ## 2019-07-27 MAS Updated J4REQ/J3 to match LUM69 rev 2.
002250,000020: ## 2020-12-14 RSB Tweaked the annotation relevant to the
002251,000021: ## change mentioned above to conform to the
002252,000022: ## style and extent of similar justifying
002253,000023: ## annotations previously added to
002254,000024: ## Comanche 44 and 51.
002255,000025: ## 2021-05-30 ABS 2DEC* -> DEC for non extended address fields.
002256,000026:
|
|
Page 53
|
002258,000028: # DPS AND APS ENGINE PARAMETERS
002259,000029:
002260,000030: 36,2000 SETLOC P40S
002261,000031: 36,2000 BANK
002262,000032: 36,2000 COUNT* $$/P40
002263,000033:
002264,000034: # *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
002265,000035:
002266,000036: 36,2000 01056 37167 FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
002267,000037: 36,2002 00457 03250 MDOTDPS 2DEC 0.1480 B-3 # 32.62 LBS/SEC IN KGS/CS.
002268,000038: 36,2004 77777 77731 DTDECAY 2DEC -38 B-28
002269,000039: 36,2006 00307 11040 FAPS 2DEC 1.5569 B-7 # 3500 LBS FORCE IN NEWTONS
002270,000040: 36,2010 00151 05214 MDOTAPS 2DEC 0.05135 B-3 # 11.32 LBS/SEC IN KGS/CS
002271,000041: 36,2012 77777 77765 ATDECAY 2DEC -10 B-28
002272,000042:
002273,000043: # ************************************************************************
002274,000044:
002275,000045: 36,2014 00026 30605 FRCS4 2DEC 0.17792 B-7 # 400 LBS FORCE IN NEWTONS
002276,000046: 36,2016 00013 14303 FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
002277,000047:
002278,000048: 27,2000 SETLOC P40S1
002279,000049: 27,2000 BANK
002280,000050: 27,2000 COUNT* $$/P40
002281,000051:
002282,000052: # *** APS IMPULSE DATA FOR P42 *******************************************
002283,000053:
002284,000054: 27,2000 00000 07622 K1VAL 2DEC 124.55 B-23 # 2800 LB-SEC
002285,000055: 27,2002 00000 00762 K2VAL 2DEC 31.138 B-24 # 700 LB-SEC
002286,000056: 27,2004 00030 35104 K3VAL 2DEC 1.5569 B-10 # FAPS ( 3500 LBS THRUST)
002287,000057:
002288,000058: # ************************************************************************
002289,000059:
002290,000060: 27,2006 00016 36237 S40.136 2DEC .4671 B-9 # .4671 M NEWTONS (DPS)
002291,000061: 27,2010 35711 35663 S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
002292,000062: 32,2000 SETLOC ABORTS
002293,000063: 32,2000 BANK
002294,000064: 32,2000 COUNT* $$/P70
002295,000065:
002296,000066: 32,2000 03631 23146 (1/DV)A 2DEC 15.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT
002297,000067:
|
|
Page 54
|
002299,000069: # STAGE ACCELERATION -- INVERTED (M/CS)
002300,000070: # 1) PREDICATED ON A LIFTOFF MASS OF
002301,000071: # 4869.9 KG (SNA-8-D-027 7/11/68)
002302,000072: # 2) PREDICATED ON A CONTRIBUTION TO VEH-
002303,000073: # ICLE ACCELERATION FROM RCS THRUSTERS
002304,000074: # EQUIV. TO 1 JET ON CONTINUOUSLY.
002305,000075: 32,2002 33226 14632 K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
002306,000076:
002307,000077: 32,2004 05306 15503 (AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
002308,000078: # ASSUMPTIONS SAME AS FOR (1/DV)A.
002309,000079: 32,2006 26337 30000 (TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG
002310,000080: # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
002311,000081: # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW
002312,000082: # RATE = 5.299 KG/SEC = 5.135 (APS) +
002313,000083: # .164 (1 RCS JET).
002314,000084: 30,2000 SETLOC ASENT
002315,000085: 30,2000 BANK
002316,000086: 30,2000 COUNT* $$/ASENT
002317,000087: 30,2000 02445 00274 AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
002318,000088: 33,2000 SETLOC SERVICES
002319,000089: 33,2000 BANK
002320,000090: 33,2000 COUNT* $$/SERV
002321,000091:
002322,000092: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
002323,000093:
002324,000094: 33,2000 41545 APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
002325,000095:
002326,000096: 33,2001 42365 DPSVEX DEC -2952 E-2 B-5 # 9684 FT/SEC IN M/CS.
002327,000097:
002328,000098: # ************************************************************************
002329,000099:
002330,000100: 31,2000 SETLOC F2DPS*31
002331,000101: 31,2000 BANK
002332,000102: 31,2000 COUNT* $$/F2DPS
002333,000103:
002334,000104: 31,2000 00233 15340 TRIMACCL 2DEC* +3.7055 E-5 B+8* # ACCELERATION DURING TRIM PHASE.
002335,000105:
|
|
Page 55
|
002337,000107: # THROTTLING AND THRUST DETECTION PARAMETERS
002338,000108:
002339,000109: 36,2000 SETLOC P40S
002340,000110: 36,2000 BANK
002341,000111: 36,2020 COUNT* $$/P40
002342,000112:
002343,000113: 36,2020 00030 THRESH1 DEC 24 B-14
002344,000114:
002345,000115: 36,2021 00014 THRESH3 DEC 12 B-14
002346,000116:
002347,000117: 36,2022 4737 HIRTHROT = BIT13
002348,000118:
002349,000119: 6000 SETLOC FFTAG5
002350,000120: 6000 BANK
002351,000121: 6000 COUNT* $$/P40
002352,000122:
002353,000123: 6000 00464 THRESH2 DEC 308 B-14
002354,000124:
002355,000125: 31,2000 SETLOC FTHROT
002356,000126: 31,2000 BANK
002357,000127: 31,2002 COUNT* $$/THROT
002358,000128:
002359,000129: 31,2002 07432 FMAXODD DEC +3866 B-14 # THROTTLE SATURATION THRESHOLD
002360,000130:
002361,000131: 31,2003 07012 FMAXPOS DEC +3594 B-14 # FMAX 43245 NEWTONS
002362,000132: 31,2004 00024 THROTLAG DEC 20 B-14 # EMPIRICALLY DETERMINED THROTTLE LAG TIME
002363,000133:
002364,000134: 32,2000 SETLOC F2DPS*32
002365,000135: 32,2000 BANK
002366,000136: 32,2010 COUNT* $$/F2DPS
002367,000137:
002368,000138: 32,2010 00044 DPSTHRSH DEC 36 B-14 # (THRESH1 + THRESH3 FOR P63)
002369,000139:
|
|
Page 56
|
002371,000141: # LM HARDWARE-RELATED PARAMETERS
002372,000142:
002373,000143:
002374,000144: 25,2000 SETLOC RADARUPT
002375,000145: 25,2000 BANK
002376,000146: 25,2000 COUNT* $$/RRUPT
002377,000147:
002378,000148: 25,2000 47777 LVELBIAS DEC -12288 B-14 # LANDING RADAR BIAS FOR 153.6 KC.
002379,000149: 25,2001 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE.
002380,000150:
002381,000151: 32,2000 SETLOC LRS22
002382,000152: 32,2000 BANK
002383,000153: 32,2011 COUNT* $$/LRS22
002384,000154:
002385,000155: 32,2011 70123 40702 RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
002386,000156: 32,2013 13337 10776 RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
002387,000157: 31,2000 SETLOC FTHROT
002388,000158: 31,2000 BANK
002389,000159: 31,2005 COUNT* $$/THROT
002390,000160:
002391,000161: 31,2005 00317 31157 SCALEFAC 2DEC 51.947 B-12 # SCALES A (AT 2(-4) M/CS/CS) TIMES MASS
002392,000162: # (AT 2(16) KGS. ) TO PULSE UNITS.
002393,000163:
002394,000164: 33,2000 SETLOC SERVICES
002395,000165: 33,2000 BANK
002396,000166: 33,2002 COUNT* $$/SERV
002397,000167:
002398,000168: 33,2002 61000 71210 HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
002399,000169: 33,2004 00000 00000 2DEC 0 B-28
002400,000170: 33,2006 72333 45546 2DEC -.1741224271
002401,000171:
002402,000172: 33,2010 65363 64451 HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
002403,000173: # ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
002404,000174:
002405,000175: 33,2012 21241 03216 VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
002406,000176: 33,2014 30153 23101 VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
002407,000177: 33,2016 63105 61733 VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
002408,000178:
|
|
Page 57
|
002410,000180: # ************************************************************************
002411,000181:
002412,000182: 33,2020 01507 KPIP DEC .0512 # SCALES DELV TO UNITS OF 2(5) M/CS.
002413,000183: 33,2021 00321 26706 KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.
002414,000184: 33,2023 00150 33343 KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
002415,000185:
002416,000186: 33,2025 02630 25010 ALTCONV 2DEC 1.399078846 B-4 # CONVERTS M*2(-24) TO BIT UNITS *2(-28).
002417,000187: 33,2027 24402 26003 ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
002418,000188: 21,2000 SETLOC R10
002419,000189: 21,2000 BANK
002420,000190: 21,2000 COUNT* $$/R10
002421,000191:
002422,000192: 21,2000 24402 ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
002423,000193:
002424,000194: 21,2001 01551 ARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.
002425,000195:
002426,000196: 21,2002 21357 ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
002427,000197:
002428,000198: 21,2003 22316 VELCONV OCT 22316 # 588.914 B-10 CONV VEL. TO BIT UNITS.
002429,000199:
002430,000200: 21,2004 01507 KPIP1(5) DEC .0512 # SCALES DELV TO M/CS*2(-5).
002431,000201:
002432,000202: 21,2005 00547 MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
002433,000203:
002434,000204: 20,2000 SETLOC DAPS3
002435,000205: 20,2000 BANK
002436,000206: 20,2000 COUNT* $$/DAPAO
002437,000207:
002438,000208: 20,2000 01150 TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
002439,000209:
|
|
Page 58
|
002441,000211: # PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSTIONS
002442,000212:
002443,000213:
002444,000214: 05,2000 SETLOC FRANDRES
002445,000215: 05,2000 BANK
002446,000216: 05,2000 COUNT* $$/START
002447,000217:
002448,000218: 05,2000 02357 FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
002449,000219:
002450,000220: 01,2000 SETLOC LOADDAP1
002451,000221: 01,2000 BANK
002452,000222: 01,2000 COUNT* $$/R03
002453,000223:
002454,000224: 01,2000 76466 MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
002455,000225:
002456,000226: 01,2001 76731 MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
002457,000227:
002458,000228: 01,2002 4741 MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
002459,000229:
002460,000230: 20,2000 SETLOC DAPS3
002461,000231: 20,2000 BANK
002462,000232: 20,2001 COUNT* $$/DAPAO
002463,000233:
002464,000234: 20,2001 01046 LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
002465,000235:
002466,000236: 20,2002 07361 HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
002467,000237:
002468,000238: 20,2003 00666 LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
002469,000239:
|
|
Page 59
|
002471,000241: # PHYSICAL CONSTANTS ( TIME - INVARIANT )
002472,000242:
002473,000243:
002474,000244: 37,2000 SETLOC IMU2
002475,000245: 37,2000 BANK
002476,000246: 37,2000 COUNT* $$/P07
002477,000247:
002478,000248: 37,2000 07623 26552 OMEG/MS 2DEC .24339048
002479,000249: 22,2000 SETLOC R30LOC
002480,000250: 22,2000 BANK
002481,000251: 22,2000 COUNT* $$/R30
002482,000252:
002483,000253: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
002484,000254:
002485,000255: 22,2000 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
002486,000256: 22,2002 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
002487,000257: # ************************************************************************
002488,000258:
002489,000259: 27,2000 SETLOC P40S1
002490,000260: 27,2000 BANK
002491,000261: 27,2012 COUNT* $$/S40.9
002492,000262:
002493,000263: 27,2012 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
002494,000264: 31,2000 SETLOC F2DPS*31
002495,000265: 31,2000 BANK
002496,000266: 31,2007 COUNT* $$/F2DPS
002497,000267:
002498,000268: 31,2007 77765 53556 MOONG 2DEC -1.6226 E-4 B2
002499,000269: 30,2000 SETLOC P12
002500,000270: 30,2000 BANK
002501,000271: 30,2002 COUNT* $$/P12
002502,000272:
002503,000273: 30,2002 00072 16206 MUM(-37) 2DEC* 4.9027780 E8 B-37*
002504,000274: 30,2004 00344 24331 MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
002505,000275: 33,2000 SETLOC SERVICES
002506,000276: 33,2000 BANK
002507,000277: 33,2031 COUNT* $$/SERV
002508,000278:
002509,000279: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
002510,000280:
002511,000281: 33,2031 61377 55754 -MUDT 2DEC* -7.9720645 E+12 B-44*
002512,000282: 33,2033 77644 65556 -MUDT1 2DEC* -9.8055560 E+10 B-44*
002513,000283:
|
|
Page 60
|
002515,000285: # ************************************************************************
002516,000286:
002517,000287: 33,2035 64453 55670 -MUDTMUN 2DEC* -9.8055560 E+10 B-38*
002518,000288: 33,2037 00002 11777 RESQ 2DEC* 40.6809913 E12 B-58*
002519,000289: 33,2041 01023 37155 20J 2DEC 3.24692010 E-2
002520,000290: 33,2043 00065 06244 2J 2DEC 3.24692010 E-3
002521,000291: 14,2000 SETLOC P50S1
002522,000292: 14,2000 BANK
002523,000293: 14,2000 COUNT* $$/LOSAM
002524,000294:
002525,000295: 14,2000 26723 00450 RSUBEM 2DEC 384402000 B-29
002526,000296: 14,2002 00065 01265 RSUBM 2DEC 1738090 B-29
002527,000297: 14,2004 00302 24533 RSUBE 2DEC 6378166 B-29
002528,000298: 14,2006 00052 04047 ROE 2DEC .00257125
002529,000299: 04,2000 SETLOC CONICS1
002530,000300: 04,2000 BANK
002531,000301: 04,2000 COUNT* $$/LT-LG
002532,000302:
002533,000303: 04,2000 00302 17755 ERAD 2DEC 6373338 B-29 # PAD RADIUS
002534,000304: 04,2002 00065 01265 504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
002535,000305: 04,2000 SETLOC CONICS1
002536,000306: 04,2000 BANK
002537,000307: 04,2004 COUNT* $$/CONIC
002538,000308:
002539,000309: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
002540,000310:
002541,000311: 04,2004 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
002542,000312: 04,2006 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
002543,000313: 04,2010 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
002544,000314: 04,2012 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
002545,000315:
002546,000316:
002547,000317: 04,2014 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
002548,000318: 04,2016 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
002549,000319:
|
|
Page 61
|
002551,000321: 04,2020 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
002552,000322: 04,2022 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
002553,000323: # ************************************************************************
002554,000324:
002555,000325: 13,2000 SETLOC INTINIT
002556,000326: 13,2000 BANK
002557,000327: 13,2000 COUNT* $$/INTIN
002558,000328:
002559,000329: 13,2000 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
002560,000330:
002561,000331: 13,2000 SETLOC ORBITAL2
002562,000332: 13,2000 BANK
002563,000333: 13,2002 COUNT* $$/ORBIT
002564,000334:
002565,000335: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
002566,000336:
002567,000337: 13,2002 27446 14620 2DEC* 1.32715445 E16 B-54* # S
002568,000338: 13,2004 16471 01352 MUM 2DEC* 4.9027780 E8 B-30* # M
002569,000339: 13,2006 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
002570,000340: 13,2010 00000 00000 2DEC 0 B-28
002571,000341: 13,2012 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
|
|
Reconstruction: In Luminary 69, the following line reads "2DEC 0".
It has been changed in Luminary 69/2 due to incorporation of the R-2
Lunar Potential Model — see
LUMINARY Memo #75.
The Luminary 69/2 version of the line has been taken from Luminary 99/1, which
also incorporates the R-2 model. As for the question of how it was known
during the reconstruction process to target this specific value, the bulk of R-2
model code changes are confined to the ORBITAL
INTEGRATION log section, and indeed J4REQ/J3 is used only there. Thus,
after ORBITAL INTEGRATION modifications were made, it would only be natural to check
that the constants which the ORBITAL INTEGRATION code referenced had the expected
values relative to Luminary 99/1.
|
002584,000354: 13,2014 77651 76237 2DEC -176236.02 B-25
002585,000355: 13,2016 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
002586,000356: 13,2020 10407 05344 2DEC* .3067493316 E18 B-60*
002587,000357: 13,2022 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
002588,000358: 13,2024 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
002589,000359: # ************************************************************************
002590,000360:
002591,000361: 27,2000 SETLOC TOF-FF1
002592,000362: 27,2000 BANK
002593,000363: 27,2014 COUNT* $$/TFF
002594,000364:
002595,000365: 27,2014 24775 30424 1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
002596,000366:
002597,000367: 42,2000 SETLOC SBAND
002598,000368: 42,2000 BANK
002599,000369: 42,2000 COUNT* $$/R05
002600,000370:
|
|
Page 62
|
002602,000372: 42,2000 26723 00450 REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
002603,000373:
|
|
Page 63
|
002605,000375: # PHYSICAL CONSTANTS (TIME - VARIANT)
002606,000376: 14,2000 SETLOC STARTAB
002607,000377: 14,2000 BANK
002608,000378: 14,2010 COUNT* $$/STARS
002609,000379:
002610,000380: 14,2010 15261 27231 2DEC +.8341953207 B-1 # STAR 37 X
002611,000381: 14,2012 74126 61161 2DEC -.2394362567 B-1 # STAR 37 Y
002612,000382: 14,2014 70032 54470 2DEC -.4967780649 B-1 # STAR 37 Z
002613,000383:
002614,000384: 14,2016 15013 10432 2DEC +.8138753897 B-1 # STAR 36 X
002615,000385: 14,2020 67066 40370 2DEC -.5559063490 B-1 # STAR 36 Y
002616,000386: 14,2022 02550 31133 2DEC +.1690413589 B-1 # STAR 36 Z
002617,000387:
002618,000388: 14,2024 07207 24243 2DEC +.4540570017 B-1 # STAR 35 X
002619,000389: 14,2026 67275 67544 2DEC -.5393383149 B-1 # STAR 35 Y
002620,000390: 14,2030 13261 25121 2DEC +.7091871552 B-1 # STAR 35 Z
002621,000391:
002622,000392: 14,2032 05075 16350 2DEC +.3200014224 B-1 # STAR 34 X
002623,000393: 14,2034 70715 55404 2DEC -.4436740480 B-1 # STAR 34 Y
002624,000394: 14,2036 62466 54577 2DEC -.8371095679 B-1 # STAR 34 Z
002625,000395:
002626,000396: 14,2040 10650 17202 2DEC +.5518160037 B-1 # STAR 33 X
002627,000397: 14,2042 63234 43704 2DEC -.7934422090 B-1 # STAR 33 Y
002628,000398: 14,2044 73710 50170 2DEC -.2568045150 B-1 # STAR 33 Z
002629,000399:
002630,000400: 14,2046 07203 13612 2DEC +.4535361097 B-1 # STAR 32 X
002631,000401: 14,2050 61746 77370 2DEC -.8780537171 B-1 # STAR 32 Y
002632,000402: 14,2052 02343 05340 2DEC +.1527307006 B-1 # STAR 32 Z
002633,000403:
002634,000404: 14,2054 03235 14762 2DEC +.2067145272 B-1 # STAR 31 X
002635,000405: 14,2056 62030 51212 2DEC -.8720349419 B-1 # STAR 31 Y
002636,000406: 14,2060 70715 64117 2DEC -.4436486945 B-1 # STAR 31 Z
002637,000407:
002638,000408: 14,2062 01744 11157 2DEC +.1216171923 B-1 # STAR 30 X
002639,000409: 14,2064 63531 66055 2DEC -.7703014754 B-1 # STAR 30 Y
002640,000410:
|
|
Page 64
|
002642,000412: 14,2066 12007 37503 2DEC +.6259751556 B-1 # STAR 30 Z
002643,000413:
002644,000414: 14,2070 76145 53477 2DEC -.1126265542 B-1 # STAR 29 X
002645,000415: 14,2072 60372 43624 2DEC -.9694679589 B-1 # STAR 29 Y
002646,000416: 14,2074 03370 15121 2DEC +.2178236347 B-1 # STAR 29 Z
002647,000417:
002648,000418: 14,2076 76123 64245 2DEC -.1147906312 B-1 # STAR 28 X
002649,000419: 14,2100 72437 45623 2DEC -.3399437395 B-1 # STAR 28 Y
002650,000420: 14,2102 61041 57124 2DEC -.9334138229 B-1 # STAR 28 Z
002651,000421:
002652,000422: 14,2104 72275 55365 2DEC -.3518772846 B-1 # STAR 27 X
002653,000423: 14,2106 62641 72150 2DEC -.8239967165 B-1 # STAR 27 Y
002654,000424: 14,2110 70712 41542 2DEC -.4440853383 B-1 # STAR 27 Z
002655,000425:
002656,000426: 14,2112 67363 50441 2DEC -.5328042377 B-1 # STAR 26 X
002657,000427: 14,2114 64426 77263 2DEC -.7159448596 B-1 # STAR 26 Y
002658,000428: 14,2116 07157 34056 2DEC +.4511569595 B-1 # STAR 26 Z
002659,000429:
002660,000430: 14,2120 63326 77723 2DEC -.7862552143 B-1 # STAR 25 X
002661,000431: 14,2122 67516 72566 2DEC -.5216265404 B-1 # STAR 25 Y
002662,000432: 14,2124 05231 14031 2DEC +.3312227199 B-1 # STAR 25 Z
002663,000433:
002664,000434: 14,2126 64753 63156 2DEC -.6899901699 B-1 # STAR 24 X
002665,000435: 14,2130 71237 42272 2DEC -.4180817959 B-1 # STAR 24 Y
002666,000436: 14,2132 66427 64260 2DEC -.5908647707 B-1 # STAR 24 Z
002667,000437:
002668,000438: 14,2134 66546 73302 2DEC -.5811943804 B-1 # STAR 23 X
002669,000439: 14,2136 73261 73575 2DEC -.2907877154 B-1 # STAR 23 Y
002670,000440: 14,2140 14122 07016 2DEC +.7600365758 B-1 # STAR 23 Z
002671,000441:
002672,000442: 14,2142 61247 42015 2DEC -.9171065276 B-1 # STAR 22 X
002673,000443: 14,2144 72314 67004 2DEC -.3500098785 B-1 # STAR 22 Y
002674,000444: 14,2146 74744 74104 2DEC -.1908106439 B-1 # STAR 22 Z
002675,000445:
|
|
Page 65
|
002677,000447: 14,2150 70605 63103 2DEC -.4524416631 B-1 # STAR 21 X
002678,000448: 14,2152 77154 54113 2DEC -.0492700670 B-1 # STAR 21 Y
002679,000449: 14,2154 61601 62472 2DEC -.8904319187 B-1 # STAR 21 Z
002680,000450:
002681,000451: 14,2156 60604 63166 2DEC -.9525633510 B-1 # STAR 20 X
002682,000452: 14,2160 77033 63044 2DEC -.0591313500 B-1 # STAR 20 Y
002683,000453: 14,2162 73162 53261 2DEC -.2985406935 B-1 # STAR 20 Z
002684,000454:
002685,000455: 14,2164 60431 63350 2DEC -.9656240240 B-1 # STAR 19 X
002686,000456: 14,2166 00660 22763 2DEC +.0528067543 B-1 # STAR 19 Y
002687,000457: 14,2170 04045 01424 2DEC +.2545224762 B-1 # STAR 19 Z
002688,000458:
002689,000459: 14,2172 62165 45335 2DEC -.8606970465 B-1 # STAR 18 X
002690,000460: 14,2174 07327 21564 2DEC +.4638127405 B-1 # STAR 18 Y
002691,000461: 14,2176 03267 34557 2DEC +.2099484122 B-1 # STAR 18 Z
002692,000462:
002693,000463: 14,2200 63472 50705 2DEC -.7741360248 B-1 # STAR 17 X
002694,000464: 14,2202 11661 21433 2DEC +.6154234025 B-1 # STAR 17 Y
002695,000465: 14,2204 75501 72421 2DEC -.1482142053 B-1 # STAR 17 Z
002696,000466:
002697,000467: 14,2206 70431 65316 2DEC -.4656165921 B-1 # STAR 16 X
002698,000468: 14,2210 07510 12666 2DEC +.4775804724 B-1 # STAR 16 Y
002699,000469: 14,2212 13727 21520 2DEC +.7450624681 B-1 # STAR 16 Z
002700,000470:
002701,000471: 14,2214 72161 43161 2DEC -.3611937602 B-1 # STAR 15 X
002702,000472: 14,2216 11144 32323 2DEC +.5748077840 B-1 # STAR 15 Y
002703,000473: 14,2220 64200 76476 2DEC -.7342581827 B-1 # STAR 15 Z
002704,000474:
002705,000475: 14,2222 71323 70264 2DEC -.4116502629 B-1 # STAR 14 X
002706,000476: 14,2224 16403 05717 2DEC +.9066387314 B-1 # STAR 14 Y
002707,000477: 14,2226 01365 17662 2DEC +.0924676785 B-1 # STAR 14 Z
002708,000478:
002709,000479: 14,2230 75055 75101 2DEC -.1818957154 B-1 # STAR 13 X
002710,000480:
|
|
Page 66
|
002712,000482: 14,2232 17030 32613 2DEC +.9405318128 B-1 # STAR 13 Y
002713,000483: 14,2234 73321 65667 2DEC -.2869039173 B-1 # STAR 13 Z
002714,000484:
002715,000485: 14,2236 77010 66714 2DEC -.0614360769 B-1 # STAR 12 X
002716,000486: 14,2240 11515 05314 2DEC +.6031700106 B-1 # STAR 12 Y
002717,000487: 14,2242 63215 53630 2DEC -.7952430739 B-1 # STAR 12 Z
002718,000488:
002719,000489: 14,2244 02145 21163 2DEC +.1373948084 B-1 # STAR 11 X
002720,000490: 14,2246 12715 21123 2DEC +.6813398852 B-1 # STAR 11 Y
002721,000491: 14,2250 13401 26125 2DEC +.7189566241 B-1 # STAR 11 Z
002722,000492:
002723,000493: 14,2252 03161 14610 2DEC +.2013426456 B-1 # STAR 10 X
002724,000494: 14,2254 17401 36465 2DEC +.9689888101 B-1 # STAR 10 Y
002725,000495: 14,2256 75552 56556 2DEC -.1432544058 B-1 # STAR 10 Z
002726,000496:
002727,000497: 14,2260 05473 01565 2DEC +.3509587451 B-1 # STAR 9 X
002728,000498: 14,2262 16217 31643 2DEC +.8925545449 B-1 # STAR 9 Y
002729,000499: 14,2264 04417 22211 2DEC +.2831507435 B-1 # STAR 9 Z
002730,000500:
002731,000501: 14,2266 06444 33354 2DEC +.4107492871 B-1 # STAR 8 X
002732,000502: 14,2270 07765 20153 2DEC +.4987190610 B-1 # STAR 8 Y
002733,000503: 14,2272 14154 23613 2DEC +.7632590132 B-1 # STAR 8 Z
002734,000504:
002735,000505: 14,2274 13202 05024 2DEC +.7033883645 B-1 # STAR 7 X
002736,000506: 14,2276 13243 07665 2DEC +.7074274193 B-1 # STAR 7 Y
002737,000507: 14,2300 01067 01242 2DEC +.0692188921 B-1 # STAR 7 Z
002738,000508:
002739,000509: 14,2302 10561 05666 2DEC +.5450662811 B-1 # STAR 6 X
002740,000510: 14,2304 10401 00357 2DEC +.5313738486 B-1 # STAR 6 Y
002741,000511: 14,2306 65477 61124 2DEC -.6484940879 B-1 # STAR 6 Z
002742,000512:
002743,000513: 14,2310 00154 03111 2DEC +.0131955837 B-1 # STAR 5 X
002744,000514: 14,2312 00077 35676 2DEC +.0078043793 B-1 # STAR 5 Y
002745,000515:
|
|
Page 67
|
002747,000517: 14,2314 17777 01142 2DEC +.9998824772 B-1 # STAR 5 Z
002748,000518:
002749,000519: 14,2316 07674 11416 2DEC +.4917355618 B-1 # STAR 4 X
002750,000520: 14,2320 03415 12707 2DEC +.2203784481 B-1 # STAR 4 Y
002751,000521: 14,2322 62413 43135 2DEC -.8423950835 B-1 # STAR 4 Z
002752,000522:
002753,000523: 14,2324 07511 03423 2DEC +.4776746280 B-1 # STAR 3 X
002754,000524: 14,2326 01672 12054 2DEC +.1164935557 B-1 # STAR 3 Y
002755,000525: 14,2330 15735 15405 2DEC +.8707790771 B-1 # STAR 3 Z
002756,000526:
002757,000527: 14,2332 16745 21763 2DEC +.9342726691 B-1 # STAR 2 X
002758,000528: 14,2334 02613 24675 2DEC +.1732973829 B-1 # STAR 2 Y
002759,000529: 14,2336 73007 50430 2DEC -.3116128956 B-1 # STAR 2 Z
002760,000530:
002761,000531: 14,2340 15777 12457 2DEC +.8749183324 B-1 # STAR 1 X
002762,000532: 14,2342 00324 03265 2DEC +.0258916990 B-1 # STAR 1 Y
002763,000533: 14,2344 07571 17020 2DEC +.4835778442 B-1 # STAR 1 Z
002764,000534:
002765,000535: 14,2346 15325 CATLOG DEC 6869 B-14
002766,000536:
002767,000537: # ************************************************************************
002768,000538:
002769,000539:
002770,000540: 05,2000 SETLOC EPHEM1
002771,000541: 05,2000 BANK
002772,000542: 05,2001 COUNT* $$/EPHEM
002773,000543:
002774,000544: 05,2001 20000 00000 KONMAT 2DEC 1.0 B-1 # *************
002775,000545: 05,2003 00000 00000 2DEC 0 B-28 # *
002776,000546: 05,2005 00000 00000 2DEC 0 B-28 # *
002777,000547: 05,2007 00000 00000 2DEC 0 B-28 # *
002778,000548: 05,2011 16533 30007 2DEC .91745 B-1 # K1 COS(OBL) *
002779,000549: 05,2013 77333 56654 2DEC -.03571 B-1 # K2 SIN(OBL)SIN(IM) *
002780,000550: 05,2015 00000 00000 2DEC 0 B-28 # *
002781,000551: 05,2017 06273 03275 2DEC .39784 B-1 # K3 SIN(OBL) *
002782,000552:
|
|
Page 68
|
002784,000554: 05,2021 01242 24467 2DEC .082354 B-1 # K4 COS(OBL)SIN(IM) *
002785,000555: 05,2023 00020 17260 CSTODAY 2DEC 8640000 B-33 # * NOTE *
002786,000556: 05,2025 00002 RCB-13 OCT 00002 # * TABLES CONTAIN *
002787,000557: 05,2026 00000 OCT 00000 # * CONSTANTS FOR *
002788,000558: 05,2027 22572 27214 RATESP 2DEC .03660098 B+4 # * 1968 - 1969 *
002789,000559: 05,2031 01315 26177 2DEC .00273779 B+4 # LOSR *
002790,000560: 05,2033 77731 55217 2DEC -.00014719 B+4 # LONR *
002791,000561: 05,2035 16455 04475 2DEC .455880394 # LOMO *
002792,000562: 05,2037 10637 04312 2DEC .275337971 # LOSO *
002793,000563: 05,2041 01215 26351 2DEC .0398987882 # LONO *
002794,000564: 05,2043 01070 35243 VAL67 2DEC .017361944 B+1 # AMOD *
002795,000565: 05,2045 11126 14467 2DEC .286523072 # AARG *
002796,000566: 05,2047 02245 06475 2DEC .036291712 B+1 # 1/27 *
002797,000567: 05,2051 00163 32331 2DEC .003534722 B+1 # BMOD *
002798,000568: 05,2053 03476 03302 2DEC .113165625 # BARG *
002799,000569: 05,2055 02000 00000 2DEC .03125 B+1 # 1/32 *
002800,000570: 05,2057 00256 25374 2DEC .005330555 B+1 # CMOD *
002801,000571: 05,2061 77525 53143 2DEC -.010415660 # CARG VALUE COMPUTED USING 1/364.24
002802,000572: 05,2063 00131 26730 2DEC .002737925 B+1 # 1/365 *************
002803,000573: # ************************************************************************
002804,000574:
002805,000575: 24,2000 SETLOC PLANTIN
002806,000576: 24,2000 BANK
002807,000577: 24,2000 COUNT* $$/LUROT
002808,000578:
002809,000579: 24,2000 17775 01734 COSI 2DEC .99964115 B-1 # COS(1 DEG 32.1 MIN) B-1
002810,000580: 24,2002 00333 16153 SINI 2DEC .02678760 B-1 # SIN(1 DEG 32.1 MIN) B-1
002811,000581: 24,2004 77665 42175 NODDOT 2DEC -.457335143 E-2 # REVS/CSEC B+28=-1.07047016 E-8 RAD/SEC
002812,000582: 24,2006 22211 00265 FDOT 2DEC .570862491 # REVS/CSEC B+27= 2.67240019 E-6 RAD/SEC
002813,000583:
|
|
Page 69
|
002815,000585: 24,2010 77777 77767 BDOT 2DEC -3.07500412 E-8 # REVS/CSEC B+28=-7.19756666 E-14 RAD/SEC
002816,000586: 24,2012 41215 66331 NODIO 2DEC -.960101269 # REVS B-O = -6.03249419 RAD
002817,000587: 24,2014 15237 26751 FSUBO 2DEC .415998375 # REVS B-O = 2.61379488 RAD
002818,000588: 24,2016 02052 35713 BSUBO 2DEC .0651205006 # REVS B-O = 0.409164173 RAD
002819,000589: 24,2020 37116 32630 WEARTH 2DEC .973561855 # REVS/CSEC B+23=7.29211515 E-5 RAD/SEC
End of include-file CONTROLLED_CONSTANTS.agc. Parent file is MAIN.agc