Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
008702,000002: ## Copyright: Public domain.
008703,000003: ## Filename: DOWNLINK_LISTS.agc
008704,000004: ## Purpose: A section of Luminary revision 210.
008705,000005: ## It is part of the source code for the Lunar Module's (LM)
008706,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
008707,000007: ## This file is intended to be a faithful transcription, except
008708,000008: ## that the code format has been changed to conform to the
008709,000009: ## requirements of the yaYUL assembler rather than the
008710,000010: ## original YUL assembler.
008711,000011: ## Reference: pp. 204-217
008712,000012: ## Assembler: yaYUL
008713,000013: ## Contact: Ron Burkey <info@sandroid.org>.
008714,000014: ## Website: www.ibiblio.org/apollo/index.html
008715,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
008716,000016: ## 2016-11-22 HG Transcribed
008717,000017: ## 2016-12-11 HG fix operand LMORBM05 -> LMCSTA05
008718,000018: ## LMLSAL09 -> LMLSAL08
008719,000019: ## LMLSAL05 -> LMSAL05
008720,000020: ## 2016-12-12 MAS Fixed a couple more typos.
008721,000021: ## 2016-12-23 RSB Proofed comment text with octopus/ProoferComments
008722,000022: ## and fixed all errors found.
008723,000023: ## 2017-01-26 RSB Back-ported comment-text fixes found while
008724,000024: ## proofing corresponding Luminary 69 file.
008725,000025:
![]() |
Page 204 |
008727,000027: 22,2004 BANK 22
008728,000028: 05,2000 SETLOC DOWNTELM
008729,000029: 05,2000 BANK
008730,000030:
008731,000031: 05,2045 0340 EBANK= DNTMBUFF
008732,000032:
008733,000033: # SPECIAL DOWNLINK OP CODES
008734,000034: # OP CODE ADDRESS(EXAMPLE) SENDS.. BIT 15 BITS 14-12 BITS 11
008735,000035: # -0
008736,000036: # ------ ---------- ---------- ------ ---------- -------
008737,000037: # --
008738,000038: # 1DNADR TIME2 (2 AGC WDS) 0 0 ECADR
008739,000039: # 2DNADR TEPHEM (4 AGC WDS) 0 1 ECADR
008740,000040: # 3DNADR VGBODY (6 AGC WDS) 0 2 ECADR
008741,000041: # 4DNADR STATE (8 AGC WDS) 0 3 ECADR
008742,000042: # 5DNADR UPBUFF (10 AGC WDS) 0 4 ECADR
008743,000043: # 6DNADR DSPTAB (12 AGC WDS) 0 5 ECADR
008744,000044: # DNCHAN 30 CHANNELS 0 7 CHANNEL
008745,000045: # ADDRESS
008746,000046: # DNPTR NEXTLIST POINTS TO NEXT 0 6 ADRES
008747,000047: # LIST.
008748,000048:
008749,000049: # DOWNLIST FORMAT DEFINITIONS AND RULES-
008750,000050: # 1. END OF A LIST = -XDNADR (X = 1 TO 6), -DNPTR, OR -DNCHAN.
008751,000051: # 2. SNAPSHOT SUBLIST = LIST WHICH STARTS WITH A -1DNADR.
008752,000052: # 3. SNAPSHOT SUBLIST CAN ONLY CONTAIN 1DNADRS.
008753,000053: # 4. TIME2 1DNADR MUST BE LOCATED IN THE CONTROL LIST OF A DOWNLIST.
008754,000054: # 5. ERASABLE DOWN TELEMETRY WORDS SHOULD BE GROUPED IN SEQUENTIAL
008755,000055: # LOCATIONS AS MUCH AS POSSIBLE TO SAVE STORAGE USED BY DOWNLINK LISTS.
008756,000056:
008757,000057: 05,2045 COUNT* $$/DLIST
008758,000058: 05,2045 ERASZERO EQUALS 7
008759,000059: 05,2045 0000007 UNKNOWN EQUALS ERASZERO
008760,000060: 05,2045 0000007 SPARE EQUALS ERASZERO # USE SPARE TO INDICATE AVAILABLE SPACE
008761,000061: 05,2045 77340 LOWIDCOD OCT 77340 # LOW ID CODE
008762,000062:
008763,000063:
008764,000064: 05,2046 05,2153 NOMDNLST EQUALS COSTALIN # FRESH START AND POST P27 DOWNLIST
008765,000065: 05,2046 05,2414 AGSLIST EQUALS AGSI/UPD
008766,000066: 05,2046 05,2414 UPDNLIST EQUALS AGSI/UPD # UPDATE PROGRAM (P27) DOWNLIST
008767,000067:
![]() |
Page 205 |
008769,000069: # LM ORBITAL MANEUVERS LIST
008770,000070:
008771,000071: # ----------------- CONTROL LIST --------------------------
008772,000072:
008773,000073: 05,2046 ORBMANUV EQUALS # SEND ID BY SPECIAL CODING
008774,000074: 05,2046 32107 DNPTR LMORBM01 # COLLECT SNAPSHOT
008775,000075: 05,2047 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
008776,000076: 05,2050 03451 1DNADR DELLT4 # DELLT4,+1
008777,000077: 05,2051 13443 3DNADR RTARG # RTARG,+1...+5
008778,000078: 05,2052 02247 1DNADR ELEV # ELEV,+1
008779,000079: 05,2053 01341 1DNADR TEVENT # TEVENT,+1
008780,000080: 05,2054 25731 6DNADR REFSMMAT # REFSMMAT+0...+11D
008781,000081: 05,2055 03633 1DNADR TCSI # TCSI,+1
008782,000082: 05,2056 12257 3DNADR DELVEET1 # DELVEET1+0...+5
008783,000083: 05,2057 13700 3DNADR VGTIG # VGTIG+0...+5
008784,000084: 05,2060 01335 1DNADR DNLRVELZ # DNLRVELZ,DNLRALT
008785,000085: 05,2061 03630 1DNADR TPASS4 # TPASS4,+1
008786,000086: 05,2062 32116 DNPTR LMORBM02 # COMMON DATA
008787,000087: 05,2063 00024 1DNADR TIME2 # TIME2/1
008788,000088: 05,2064 32125 DNPTR LMORBM03 # COLLECT SNAPSHOT
008789,000089: 05,2065 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
008790,000090: 05,2066 32134 DNPTR LMORBM04 # COMMON DATA
008791,000091: 05,2067 07115 2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008792,000092: 05,2070 01355 1DNADR SERVDURN # SERVDURN,DUMLOOPS
008793,000093: 05,2071 01774 1DNADR TCDH # TCDH,+1
008794,000094: 05,2072 12265 3DNADR DELVEET2 # DELVEET2+0...+5
008795,000095: 05,2073 03635 1DNADR TTPI # TTPI,+1
008796,000096: 05,2074 12356 3DNADR DELVEET3 # DELVEET3+0...+5
008797,000097: 05,2075 01330 1DNADR DNRRANGE # DNRRANGE,DNRRDOT
008798,000098: 05,2076 05333 2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
008799,000099: 05,2077 03577 1DNADR DIFFALT # DIFFALT,+1
008800,000100: 05,2100 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
008801,000101: 05,2101 01277 1DNADR IMODES30 # IMODES30,IMODES33
008802,000102: 05,2102 03441 1DNADR TIG # TIG,+1
008803,000103: 05,2103 32140 DNPTR LMORBM05 # COMMON DATA
008804,000104: 05,2104 32151 DNPTR LMORBM06 # COMMON DATA
008805,000105: 05,2105 01363 1DNADR ALMCADR # ALMCADR,+1
008806,000106: 05,2106 74261 -1DNADR TGO # TGO,+1
008807,000107:
008808,000108: # ----------------- SUB-LISTS ----------------------------
008809,000109:
008810,000110: 05,2107 76060 LMORBM01 -1DNADR R-OTHER +2 # R-OTHER+2,+3 SNAPSHOT
008811,000111: 05,2110 01721 1DNADR R-OTHER +4 # R-OTHER+4,+5
008812,000112: 05,2111 01723 1DNADR V-OTHER # V-OTHER,+1
008813,000113: 05,2112 01725 1DNADR V-OTHER +2 # V-OTHER+2,+3
008814,000114: 05,2113 01727 1DNADR V-OTHER +4 # V-OTHER+4,+5
008815,000115: 05,2114 01570 1DNADR T-OTHER # T-OTHER,+1
008816,000116: 05,2115 76062 -1DNADR R-OTHER # R-OTHER+0,+1
008817,000117:
008818,000118: 05,2116 04320 LMORBM02 2DNADR REDOCTR # REDOCTR,THETAD,+1,+2 COMMON DATA
008819,000119:
![]() |
Page 206 |
008821,000121: 05,2117 01432 1DNADR RSBBQ # RSBBQ,+1
008822,000122: 05,2120 07021 2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
008823,000123: 05,2121 07234 2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
008824,000124: 05,2122 04032 2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
008825,000125: 05,2123 24074 6DNADR STATE # STATE+0...+11D (FLAGWORDS)
008826,000126: 05,2124 52755 -6DNADR DSPTAB # DSPTAB TABLES
008827,000127:
008828,000128: 05,2125 76556 LMORBM03 -1DNADR RN +2 # RN +2,+3 SNAPSHOT
008829,000129: 05,2126 01223 1DNADR RN +4 # RN +4,+5
008830,000130: 05,2127 01225 1DNADR VN # VN,+1
008831,000131: 05,2130 01227 1DNADR VN +2 # VN +2,+3
008832,000132: 05,2131 01231 1DNADR VN +4 # VN +4,+5
008833,000133: 05,2132 01233 1DNADR PIPTIME # PIPTIME,+1
008834,000134: 05,2133 76560 -1DNADR RN # RN,+1
008835,000135:
008836,000136: 05,2134 07242 LMORBM04 2DNADR OMEGAPD # OMEGAPD,OMEGAQD,OMEGARD,GARBAGE
008837,000137: 05,2135 34076 DNCHAN 76 # GARBAGE,CHANNEL77
008838,000138: 05,2136 04374 2DNADR CHANBKUP
008839,000139: 05,2137 77667 -1DNADR RADMODES # RADMODES,DAPBOOLS COMMON DATA
008840,000140:
008841,000141: 05,2140 07021 LMORBM05 2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
008842,000142: 05,2141 07234 2DNADR CDUXD # CDUXD,CDUXD,CDUZD,GARBAGE
008843,000143: 05,2142 04032 2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
008844,000144: 05,2143 03024 1DNADR ALPHAQ # ALPHAQ,ALPHAR COMMON DATA
008845,000145: 05,2144 03113 LMORB10 1DNADR POSTORKP # POSTORKP,NEGTORKP
008846,000146: 05,2145 34011 LMORBM09 DNCHAN 11 # CHANNEL11,12
008847,000147: 05,2146 34013 DNCHAN 13 # CHANNELS13,14
008848,000148: 05,2147 34030 DNCHAN 30 # CHANNELS30,31
008849,000149: 05,2150 43745 -DNCHAN 32 # CHANNELS32,33
008850,000150:
008851,000151: 05,2151 03560 LMORBM06 1DNADR PIPTIME1 # PIPTIME,+1 COMMON DATA
008852,000152: 05,2152 67453 -3DNADR DELV # DELV+0...+5
008853,000153:
008854,000154: # ---------------------------------------------------------
008855,000155: # *** THE FOLLOWING IS A LIST OF LOCATIONS IN DOWNLINK LISTS
008856,000156: # *** BUT NOT REFERENCED IN THE DIRECTORY BECAUSE THEY ARE NOT
008857,000157: # *** THE FIRST LOCATION REFERENCED IN AN INSTRUCTION
008858,000158: # *** THIS LIST SHOULD BE UPDATED WHEN ANY CHANGES ARE MADE TO LISTS.
008859,000159:
008860,000160: # LOCATION LIST NAME
008861,000161: 05,2153 1336 DL101 = DNLRALT # ORBMANUV
008862,000162: 05,2153 0000025 DL102 = TIME1
008863,000163: 05,2153 E6,1516 DL1O3 = NEGTORKU
008864,000164: 05,2153 E6,1517 DL104 = POSTORKV
008865,000165: 05,2153 E6,1520 DL105 = NEGTORKV
008866,000166: 05,2153 1356 DL106 = DUMLOOPS
008867,000167: 05,2153 1331 DL107 = DNRRDOT
008868,000168: 05,2153 1334 DL108 = DNLRVELY
008869,000169:
![]() |
Page 207 |
008871,000171: 05,2153 1335 DL109 = DNLRVELZ
008872,000172: 05,2153 1336 DL110 = DNLRALT
008873,000173: 05,2153 1327 DL111 = CSMMASS
008874,000174: 05,2153 1300 DL112 = IMODES33
008875,000175: 05,2153 0321 DL113 = THETAD # LMORBM02
008876,000176: 05,2153 E6,1422 DL114 = OMEGAQ
008877,000177: 05,2153 E6,1423 DL115 = OMEGAR
008878,000178: 05,2153 E6,1635 DL116 = CDUYD
008879,000179: 05,2153 E6,1636 DL117 = CDUZD
008880,000180: 05,2153 0000033 DL118 = CDUY
008881,000181: 05,2153 0000034 DL119 = CDUZ
008882,000182: 05,2153 0000035 DL120 = CDUT
008883,000183: 05,2153 E6,1643 DL121 = OMEGAQD # LMORBM04
008884,000184: 05,2153 E6,1644 DL122 = OMEGARD
008885,000185: 05,2153 0375 DL123 = FAILREG
008886,000186: 05,2153 0111 DL124 = DAPBOOLS
008887,000187: 05,2153 E6,1422 DL125 = OMEGAQ # LMORBM05
008888,000188: 05,2153 E6,1423 DL126 = OMEGAR
008889,000189: 05,2153 E6,1635 DL127 = CDUYD
008890,000190: 05,2153 E6,1636 DL128 = CDUZD
008891,000191: 05,2153 0000033 DL129 = CDUY
008892,000192: 05,2153 0000034 DL130 = CDUZ
008893,000193: 05,2153 0000035 DL131 = CDUT
008894,000194: 05,2153 E6,1425 DL132 = ALPHAR
008895,000195: 05,2153 E6,1514 DL133 = NEGTORKP
008896,000196:
![]() |
Page 208 |
008898,000198: # LM COAST AND ALIGNMENT DOWNLIST
008899,000199:
008900,000200: # ----------------- CONTROL LIST --------------------------
008901,000201:
008902,000202: 05,2153 COSTALIN EQUALS # SEND ID BY SPECIAL CODING
008903,000203: 05,2153 32107 DNPTR LMCSTA01 # COLLECT SNAPSHOT
008904,000204: 05,2154 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
008905,000205: 05,2155 03371 1DNADR AGSK # AGSK,+1
008906,000206: 05,2156 02774 1DNADR TALIGN # TALIGN,+1
008907,000207: 05,2157 07115 2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008908,000208: 05,2160 01330 1DNADR DNRRANGE # DNRRANGE,DNRRDOT
008909,000209: 05,2161 01341 1DNADR TEVENT # TEVENT,+1
008910,000210: 05,2162 25731 6DNADR REFSMMAT # REFSMMAT+0...+11D
008911,000211: 05,2163 01235 1DNADR AOTCODE # AOTCODE,GARBAGE
008912,000212: 05,2164 12020 3DNADR RLS # RLS+0...+5
008913,000213: 05,2165 05333 2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
008914,000214: 05,2166 13700 3DNADR VGTIG # VGTIGX,Y,Z
008915,000215: 05,2167 32116 DNPTR LMCSTA02 # COMMON DATA
008916,000216: 05,2170 00024 1DNADR TIME2 # TIME2/1
008917,000217: 05,2171 32125 DNPTR LMCSTA03 # COLLECT SNAPSHOT
008918,000218: 05,2172 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
008919,000219: 05,2173 32134 DNPTR LMCSTA04 # COMMON DATA
008920,000220: 05,2174 32215 DNPTR LMCSTA07 # COMMON DATA
008921,000221: 05,2175 01355 1DNADR SERVDURN # SERVDURN,DUMLOOPS
008922,000222: 05,2176 01516 1DNADR TET # TET,+1
008923,000223: 05,2177 04036 2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
008924,000224: 05,2200 00112 1DNADR LASTYCMD # LASTYCMD,LASTXCMD
008925,000225: 05,2201 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
008926,000226: 05,2202 01277 1DNADR IMODES30 # IMODES30,IMODES33
008927,000227: 05,2203 03441 1DNADR TIG # TIG,+1
008928,000228: 05,2204 32207 DNPTR LMCSTA05 # COMMON DATA
008929,000229: 05,2205 32144 DNPTR LMCSTA10 # COMMON DATA
008930,000230: 05,2206 52755 -6DNADR DSPTAB # DSPTAB+0...+11D TABLE
008931,000231:
008932,000232: # ----------------- SUB-LISTS ----------------------------
008933,000233:
008934,000234: 05,2207 05,2107 LMCSTA01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
008935,000235:
008936,000236: 05,2207 05,2116 LMCSTA02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
008937,000237:
008938,000238: 05,2207 05,2125 LMCSTA03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
008939,000239:
008940,000240: 05,2207 05,2134 LMCSTA04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
008941,000241:
008942,000242: 05,2207 07021 LMCSTA05 2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
008943,000243: 05,2210 07234 2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
008944,000244: 05,2211 04032 2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
008945,000245: 05,2212 76520 -1DNADR CH5MASK # CH5MASK,CH6MASK COMMON DATA
008946,000246:
008947,000247: 05,2213 05700 LMCSTA06 2DNADR X789 # X789+0...+3 COMMON DATA
008948,000248:
![]() |
Page 209 |
008950,000250: 05,2214 77665 -1DNADR LASTYCMD # LASTYCMD,LASTXCMD
008951,000251:
008952,000252: 05,2215 12737 LMCSTA07 3DNADR OGC # OGC,+1,IGC,+1,MGC,+1 COMMON DATA
008953,000253: 05,2216 02755 1DNADR BESTI # BESTI,BESTJ
008954,000254: 05,2217 12760 3DNADR STARSAV1 # STARSAV1+0...+5
008955,000255: 05,2220 65011 -3DNADR STARSAV2 # STARSAV2+0...+5
008956,000256:
008957,000257: 05,2221 05,2144 LMCSTA10 EQUALS LMORB10 # COMMON DOWNLIST DATA
008958,000258:
008959,000259: # ---------------------------------------------------------
008960,000260: # *** UNREFERENCED LOCATIONS USED IN LIST 2
008961,000261: # *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
008962,000262:
008963,000263: # LOCATION LIST NAME
008964,000264: 05,2221 E6,1516 DL201 = NEGTORKU # COSTALIN
008965,000265: 05,2221 E6,1517 DL202 = POSTORKV
008966,000266: 05,2221 E6,1520 DL203 = NEGTORKV
008967,000267: 05,2221 1331 DL204 = DNRRDOT
008968,000268: 05,2221 1334 DL205 = DNLRVELY
008969,000269: 05,2221 1335 DL206 = DNLRVELZ
008970,000270: 05,2221 1336 DL207 = DNLRALT
008971,000271: 05,2221 0000025 DL208 = TIME1
008972,000272: 05,2221 1356 DL209 = DUMLOOPS
008973,000273: 05,2221 0000037 DL210 = PIPAX
008974,000274: 05,2221 0000040 DL211 = PIPAY
008975,000275: 05,2221 0000041 DL212 = PIPAZ
008976,000276: 05,2221 0113 DL213 = LASTXCMD
008977,000277: 05,2221 1327 DL214 = CSMMASS
008978,000278: 05,2221 1300 DL215 = IMODES33
008979,000279: 05,2221 0113 DL216 = LASTXCMD # LMCSTA06
008980,000280: 05,2221 E5,1741 DL217 = IGC # LMCSTA07
008981,000281: 05,2221 E5,1743 DL218 = MGC
008982,000282: 05,2221 E5,1756 DL219 = BESTJ
008983,000283: 05,2221 1260 DL220 = CH6MASK
008984,000284:
![]() |
Page 210 |
008986,000286: # LM RENDEZVOUS AND PRE-THRUST DOWNLIST
008987,000287:
008988,000288: # ----------------- CONTROL LIST --------------------------
008989,000289:
008990,000290: 05,2221 RENDEZVU EQUALS # SEND ID BY SPECIAL CODING
008991,000291: 05,2221 32107 DNPTR LMREND01 # COLLECT SNAPSHOT
008992,000292: 05,2222 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
008993,000293: 05,2223 32265 DNPTR LMREND07 # COLLECT SNAPSHOT
008994,000294: 05,2224 32275 DNPTR LMREND08 # SEND SNAPSHOT
008995,000295: 05,2225 03451 1DNADR DELLT4 # DELLT4,+1
008996,000296: 05,2226 13433 3DNADR DELVSLV # DELVSLV+0...+5
008997,000297: 05,2227 03633 1DNADR TCSI # TCSI,+1
008998,000298: 05,2230 12257 3DNADR DELVEET1 # DELVEET+0...+5
008999,000299: 05,2231 01355 1DNADR SERVDURN # SERVDURN,DUMLOOPS
009000,000300: 05,2232 03630 1DNADR TPASS4 # TPASS4,+1
009001,000301: 05,2233 32213 DNPTR LMREND06 # COMMON DATA
009002,000302: 05,2234 32116 DNPTR LMREND02 # COMMON DATA
009003,000303: 05,2235 00024 1DNADR TIME2 # TIME2/1
009004,000304: 05,2236 32125 DNPTR LMREND03 # COLLECT SNAPSHOT
009005,000305: 05,2237 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
009006,000306: 05,2240 32134 DNPTR LMREND04 # COMMON DATA
009007,000307: 05,2241 07115 2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
009008,000308: 05,2242 01363 1DNADR ALMCADR # ALMCADR,+1
009009,000309: 05,2243 01774 1DNADR TCDH # TCDH,+1
009010,000310: 05,2244 12265 3DNADR DELVEET2 # DELVEET2+0...+5
009011,000311: 05,2245 03635 1DNADR TTPI # TTPI,+1
009012,000312: 05,2246 12356 3DNADR DELVEET3 # DELVEET3+0...+5
009013,000313: 05,2247 02247 1DNADR ELEV # ELEV,+1
009014,000314: 05,2250 04036 2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
009015,000315: 05,2251 00112 1DNADR LASTYCMD # LASTYCMD,LASTXCMD
009016,000316: 05,2252 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
009017,000317: 05,2253 01277 1DNADR IMODES30 # IMODES30,IMODES33
009018,000318: 05,2254 03441 1DNADR TIG # TIG,+1
009019,000319: 05,2255 32207 DNPTR LMREND05 # COMMON DATA
009020,000320: 05,2256 32144 DNPTR LMREND10 # COMMON DATA
009021,000321: 05,2257 01516 1DNADR TET # TET,+1
009022,000322: 05,2260 03620 1DNADR CENTANG # CENTANG,+1
009023,000323: 05,2261 03466 1DNADR NN # NN,+1
009024,000324: 05,2262 03577 1DNADR DIFFALT # DIFFALT,+1
009025,000325: 05,2263 02340 1DNADR DELVTPF # DELVTPF,+1
009026,000326: 05,2264 77770 -1DNADR SPARE
009027,000327:
009028,000328: # ----------------- SUB-LISTS ----------------------------
009029,000329:
009030,000330: 05,2265 05,2107 LMREND01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
009031,000331:
009032,000332: 05,2265 05,2116 LMREND02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
009033,000333:
009034,000334: 05,2265 05,2125 LMREND03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
009035,000335:
![]() |
Page 211 |
009037,000337: 05,2265 05,2134 LMREND04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
009038,000338:
009039,000339: 05,2265 05,2207 LMREND05 EQUALS LMCSTA05 # COMMON DOWNLIST DATA
009040,000340:
009041,000341: 05,2265 05,2213 LMREND06 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
009042,000342:
009043,000343: 05,2265 74320 LMREND07 -1DNADR AIG # AIG,AMG SNAPSHOT
009044,000344: 05,2266 03461 1DNADR AOG # AOG,TRKMKCNT
009045,000345: 05,2267 03752 1DNADR TANGNB # TANGNB,+1
009046,000346: 05,2270 03753 1DNADR TANGNB +1 # TANGNB+1,GARBAGE
009047,000347: 05,2271 03760 1DNADR RANGRDOT # RANGRDOT, +1
009048,000348: 05,2272 03761 1DNADR RANGRDOT +1 # RANGERDOT +1,GARBAGE
009049,000349: 05,2273 01073 1DNADR AGSCODE # AGSCODE,GARBAGE
009050,000350: 05,2274 74023 -1DNADR MKTIME # MKTIME,+1
009051,000351: 05,2275 24340 LMREND08 6DNADR DNTMBUFF # SEND SNAPSHOT
009052,000352: 05,2276 77423 -1DNADR DNTMBUFF +12D # SEND SNAPSHOT
009053,000353: 05,2277 05,2144 LMREND10 EQUALS LMORB10 # COMMON DATA
009054,000354:
009055,000355: # -----------------------------------------------------------
009056,000356: # *** UNREFERENCED LOCATIONS USED IN LIST 3
009057,000357: # LOCATION LIST NAME
009058,000358:
009059,000359: # *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
009060,000360:
009061,000361:
009062,000362: 05,2277 1356 DL301 = DUMLOOPS # RENDEZVU
009063,000363: 05,2277 0000025 DL302 = TIME1
009064,000364: 05,2277 E6,1516 DL303 = NEGTORKU
009065,000365: 05,2277 E6,1517 DL304 = POSTORKV
009066,000366: 05,2277 E6,1520 DL305 = NEGTORKV
009067,000367: 05,2277 0000037 DL306 = PIPAX
009068,000368: 05,2277 0000040 DL307 = PIPAY
009069,000369: 05,2277 0000041 DL308 = PIPAZ
009070,000370: 05,2277 0113 DL309 = LASTXCMD
009071,000371: 05,2277 1327 DL310 = CSMMASS
009072,000372: 05,2277 1300 DL311 = IMODES33
009073,000373: 05,2277 E7,1460 DL312 = AMG # LMREND07
009074,000374: 05,2277 E7,1462 DL313 = TRKMKCNT
009075,000375: 05,2277 1331 DL314 = DNRRDOT
009076,000376:
![]() |
Page 212 |
009078,000378: # LM DESCENT AND ASCENT DOWNLIST
009079,000379:
009080,000380: # ----------------- CONTROL LIST --------------------------
009081,000381:
009082,000382: 05,2277 DESC/ASC EQUALS # SEND ID BY SPECIAL CODING
009083,000383: 05,2277 01363 1DNADR ALMCADR # ALMCADR,+1
009084,000384: 05,2300 32347 DNPTR LMDSAS08 # COLLECT SNAPSHOT
009085,000385: 05,2301 10340 3DNADR DNTMBUFF # SNED SNAPSHOT
009086,000386: 05,2302 32340 DNPTR LMDSAS07 # COLLECT SNAPSHOT
009087,000387: 05,2303 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
009088,000388: 05,2304 01341 1DNADR TEVENT # TEVENT,+1
009089,000389: 05,2305 13251 3DNADR UNFC/2 # UNFC/2+0...+5
009090,000390: 05,2306 13645 3DNADR VGVECT # VGVECT+0...+5
009091,000391: 05,2307 03642 1DNADR TTF/8 # TTF/8,+1
009092,000392: 05,2310 00007 1DNADR SPARE
009093,000393: 05,2311 12020 3DNADR RLS # RLS+0...+5
009094,000394: 05,2312 02267 1DNADR ZDOTD # ZDOTD,+1
009095,000395: 05,2313 32213 DNPTR LMDSAS09 # COMMON DATA
009096,000396: 05,2314 32116 DNPTR LMDSAS02 # COMMON DATA
009097,000397: 05,2315 00024 1DNADR TIME2 # TIME2/1
009098,000398: 05,2316 32125 DNPTR LMDSAS03 # COLLECT SNAPSHOT
009099,000399: 05,2317 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
009100,000400: 05,2320 32134 DNPTR LMDSAS04 # COMMON DATA
009101,000401: 05,2321 07115 2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
009102,000402: 05,2322 12623 3DNADR RGU # RGU+0...+5
009103,000403: 05,2323 13626 3DNADR VGU # VGU+0...+5
009104,000404: 05,2324 13634 3DNADR LAND # LAND+0...+5
009105,000405: 05,2325 02253 1DNADR AT # AT,+1
009106,000406: 05,2326 02026 1DNADR TLAND # TLAND,+1
009107,000407: 05,2327 03507 1DNADR DVTOTAL # DVTOTAL,+1
009108,000408: 05,2330 00112 1DNADR LASTYCMD # LASTYCMD,LASTXCMD
009109,000409: 05,2331 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
009110,000410: 05,2332 01277 1DNADR IMODES30 # IMODES30,IMODES33
009111,000411: 05,2333 03441 1DNADR TIG # TIG,+1
009112,000412: 05,2334 32140 DNPTR LMDSAS05 # COMMON DATA
009113,000413: 05,2335 32151 DNPTR LMDSAS06 # COMMON DATA
![]() |
Note: the two lines above have vertical black pencil/pen marks having the
pseudo operator and its operand between them .i.e.
|DNPTR LMDSAS05| # COMMON DATA |DNPTR LMDSAS06| # COMMON DATA |
009120,000420: 05,2336 03614 1DNADR PSEUDO55 # PSEUDO55,GARBAGE
009121,000421: 05,2337 74324 -1DNADR TTOGO # TTOGO,+1
009122,000422: # ----------------- SUB-LISTS ----------------------------
009123,000423:
009124,000424: 05,2340 05,2116 LMDSAS02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
009125,000425:
009126,000426: 05,2340 05,2125 LMDSAS03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
009127,000427:
009128,000428: 05,2340 05,2134 LMDSAS04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
009129,000429:
009130,000430: 05,2340 05,2140 LMDSAS05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
009131,000431:
009132,000432: 05,2340 05,2151 LMDSAS06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
![]() |
Note: the two lines statements above have a vertical brace in black pencil/pen betweem operand and comment column opening to the left |
009135,000435:
![]() |
Page 213 |
009137,000437: 05,2340 74001 LMDSAS07 -1DNADR HMEASDL # HMEASDL,+1
009138,000438: 05,2341 03652 1DNADR VMEAS # VMEAS,+1
009139,000439: 05,2342 03457 1DNADR AIG # AIG,AMG
009140,000440: 05,2343 03461 1DNADR AOG # AOG,VSELECT
009141,000441: 05,2344 03732 1DNADR LATVMETR # LATVMETR,FORVMETR
009142,000442: 05,2345 01355 1DNADR SERVDURN # SERVDURN,DUMLOOPS
009143,000443: 05,2346 74023 -1DNADR MKTIME # MKTIME,+1
009144,000444:
009145,000445: 05,2347 74113 LMDSAS08 -1DNADR DELTAH # DELTAH,+1
009146,000446: 05,2350 03615 1DNADR FC # FC,+1
009147,000447: 05,2351 03752 1DNADR GTCTIME # GTCTIME,+1
009148,000448: 05,2352 74041 -1DNADR TRUDELH # TRUDELH,+1
009149,000449:
009150,000450: 05,2353 05,2213 LMDSAS09 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
009151,000451:
009152,000452: # ---------------------------------------------------------
009153,000453:
009154,000454: # *** UNREFERENCED LOCATIONS USED IN LIST 4
009155,000455: # *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
009156,000456:
009157,000457:
009158,000458: # LOCATION LIST NAME
009159,000459:
009160,000460: 05,2353 0000025 DL401 = TIME1 # DESC/ASC
009161,000461: 05,2353 E6,1516 DL402 = NEGTORKU
009162,000462: 05,2353 E6,1517 DL403 = POSTORKV
009163,000463: 05,2353 E6,1520 DL404 = NEGTORKV
009164,000464: 05,2353 0113 DL405 = LASTXCMD
009165,000465: 05,2353 1327 DL406 = CSMMASS
009166,000466: 05,2353 1300 DL407 = IMODES33
009167,000467: 05,2353 E7,1460 DL408 = AMG # LMDSAS07
009168,000468: 05,2353 E7,1462 DL409 = VSELECT
009169,000469: 05,2353 E7,1733 DL410 = FORVMETR
009170,000470: 05,2353 1356 DL411 = DUMLOOPS
009171,000471:
![]() |
Page 214 |
009173,000473: # LM LUNAR SURFACE ALIGN DOWNLIST
009174,000474:
009175,000475: # ----------------- CONTROL LIST --------------------------
009176,000476:
009177,000477: 05,2353 SURFALIN EQUALS # SEND ID BY SPECIAL CODING
009178,000478: 05,2353 32107 DNPTR LMLSAL01 # COLLECT SNAPSHOT
009179,000479: 05,2354 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
009180,000480: 05,2355 32407 DNPTR LMLSAL07 # COLLECT SNAPSHOT
009181,000481: 05,2356 14340 4DNADR DNTMBUFF # SEND SHAPSHOT
009182,000482: 05,2357 02774 1DNADR TALIGN # TALIGN,+1
009183,000483: 05,2360 25731 6DNADR REFSMMAT # REFSMMAT+0...+11D
009184,000484: 05,2361 26227 6DNADR YNBSAV # YNBSAV+0...+5,ZNBSAV+0...+5
009185,000485: 05,2362 01700 1DNADR X789 # X789,+1
009186,000486: 05,2363 01516 1DNADR TET # TET,+1
009187,000487: 05,2364 00112 1DNADR LASTYCMD # LASTYCMD,LASTXCMD
009188,000488: 05,2365 32116 DNPTR LMLSAL02 # COMMON DATA
009189,000489: 05,2366 00024 1DNADR TIME2 # TIME/1
009190,000490: 05,2367 32125 DNPTR LMLSAL03 # COLLECT SNAPSHOT
009191,000491: 05,2370 24340 6DNADR DNTMBUFF # SEND SHAPSHOT
009192,000492: 05,2371 32134 DNPTR LMLSAL04 # COMMON DATA
009193,000493: 05,2372 32215 DNPTR LMLSAL08 # COMMON DATA
009194,000494: 05,2373 12221 3DNADR GSAV # GSAV +0...+5
009195,000495: 05,2374 03371 1DNADR AGSK # AGSK,+1
009196,000496: 05,2375 00112 1DNADR LASTYCMD # LASTYCMD,LASTXCMD
009197,000497: 05,2376 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
009198,000498: 05,2377 01277 1DNADR IMODES30 # IMODES30,IMODES33
009199,000499: 05,2400 03441 1DNADR TIG # TIG,+1
009200,000500: 05,2401 32207 DNPTR LMSAL05 # COMMON DATA
009201,000501: 05,2402 01235 1DNADR AOTCODE # AOTCODE,GARBAGE
009202,000502: 05,2403 32145 DNPTR LMLSAL09 # COMMON DATA
009203,000503: 05,2404 32151 DNPTR LMLSAL06 # COMMON DATA
009204,000504: 05,2405 03561 1DNADR TSIGHT # TSIGHT,TSIGHT +1
009205,000505: 05,2406 76537 -1DNADR CURSOR # AOT CURSOR,SPIRAL
009206,000506: # ----------------- SUB-LISTS ----------------------------
009207,000507:
009208,000508: 05,2407 05,2107 LMLSAL01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
009209,000509:
009210,000510: 05,2407 05,2116 LMLSAL02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
009211,000511:
009212,000512: 05,2407 05,2125 LMLSAL03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
009213,000513:
009214,000514: 05,2407 05,2134 LMLSAL04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
009215,000515:
009216,000516: 05,2407 05,2207 LMSAL05 EQUALS LMCSTA05 # COMMON DOWNLIST DATA
009217,000517:
009218,000518: 05,2407 05,2151 LMLSAL06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
009219,000519:
009220,000520: 05,2407 74320 LMLSAL07 -1DNADR AIG # AIG,AMG SNAPSHOT
009221,000521: 05,2410 03461 1DNADR AOG # AOG,TRKMKCNT
009222,000522: 05,2411 03752 1DNADR TANGNB # TANGNB,+1
009223,000523:
![]() |
Page 215 |
009225,000525: 05,2412 03754 1DNADR MKTIME # MKTIME,+1
009226,000526: 05,2413 74017 -1DNADR RANGRDOT # DNRRANGE,DNRRDOT
009227,000527:
009228,000528: 05,2414 05,2215 LMLSAL08 EQUALS LMCSTA07 # COMMON DOWNLIST DATA
009229,000529: 05,2414 05,2145 LMLSAL09 EQUALS LMORBM09 # COMMON DOWNLIST DATA
009230,000530: # ---------------------------------------------------------
009231,000531: # *** UNREFERENCED LOCATIONS USED IN LIST 5
009232,000532: # *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
009233,000533:
009234,000534:
009235,000535: # LOCATION LIST NAME
009236,000536:
009237,000537: 05,2414 E4,1635 DL501 = ZNBSAV # SURFALIN
009238,000538: 05,2414 0113 DL502 = LASTXCMD
009239,000539: 05,2414 0000025 DL503 = TIME1
009240,000540: 05,2414 0113 DL504 = LASTXCMD
009241,000541: 05,2414 1327 DL505 = CSMMASS
009242,000542: 05,2414 1300 DL506 = IMODES33
009243,000543: 05,2414 E6,1422 DL507 = OMEGAQ
009244,000544: 05,2414 E6,1423 DL508 = OMEGAR
009245,000545: 05,2414 E6,1635 DL509 = CDUYD
009246,000546: 05,2414 E6,1636 DL510 = CDUZD
009247,000547: 05,2414 0000033 DL511 = CDUY
009248,000548: 05,2414 0000034 DL512 = CDUZ
009249,000549: 05,2414 0000035 DL513 = CDUT
![]() |
Note: The line above has a black pen arrow pointing at "CDUT" from the right
CDUT ← |
009254,000554: 05,2414 E6,1425 DL514 = ALPHAR
009255,000555: 05,2414 1241 DL515 = SPIRAL
009256,000556: 05,2414 E7,1460 DL516 = AMG # LMSAL07
009257,000557: 05,2414 E7,1462 DL517 = TRKMKCNT
009258,000558: 05,2414 1331 DL518 = DNRRDOT
009259,000559:
![]() |
Page 216 |
009261,000561: # LM AGS INITIALIZATION AND UPDATE DOWNLIST
009262,000562:
009263,000563: # ----------------- CONTROL LIST --------------------------
009264,000564:
009265,000565: 05,2414 AGSI/UPD EQUALS # SEND IO BY SPECIAL CODING
009266,000566: 05,2414 12171 3DNADR AGSBUFF +0 # AGSBUFF+0...+5
009267,000567: 05,2415 02205 1DNADR AGSBUFF +12D # AGSBUFF+12D,GARBAGE
009268,000568: 05,2416 12172 3DNADR AGSBUFF +1 # AGSBUFF+1...+6
009269,000569: 05,2417 02206 1DNADR AGSBUFF +13D # AGSBUFF+13D, GARBAGE
009270,000570: 05,2420 12177 3DNADR AGSBUFF +6 # AGSBUFF+6...+11
009271,000571: 05,2421 02205 1DNADR AGSBUFF +12D # AGSBUFF+12,GARBAGE
009272,000572: 05,2422 12200 3DNADR AGSBUFF +7 # AGSBUFF+7...+12D
009273,000573: 05,2423 02206 1DNADR AGSBUFF +13D # AGSBUFF+13D,GARBAGE
009274,000574: 05,2424 25167 6DNADR COMPNUMB # COMPNUMB,UPOLDMOD,UPVERB,UPCOUNT,
009275,000575: # UPBUFF+0...+7
009276,000576: 05,2425 25203 6DNADR UPBUFF +8D # UPBUFF +8D...+19D
009277,000577: 05,2426 32116 DNPTR LMAGSI02 # COMMON DATA
009278,000578: 05,2427 00024 1DNADR TIME2 # TIME2/1
009279,000579: 05,2430 32125 DNPTR LMAGSI03 # COLLECT SNAPSHOT
009280,000580: 05,2431 24340 6DNADR DNTMBUFF # SEND SNAPSHOT
009281,000581: 05,2432 32134 DNPTR LMAGSI04 # COMMON DATA
009282,000582: 05,2433 07115 2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
009283,000583: 05,2434 01355 1DNADR SERVDURN # SERVDURN.DUMLOOPS
009284,000584: 05,2435 01363 1DNADR ALMCADR # ALMCADR,+1
009285,000585: 05,2436 03371 1DNADR AGSK # AGSK,+1
009286,000586: 05,2437 25173 6DNADR UPBUFF # UPBUFF+0...+11D
009287,000587: 05,2440 15207 4DNADR UPBUFF +12D # UPBUFF+12D...+19D
009288,000588: 05,2441 01326 1DNADR LEMMASS # LEMMASS,CSMMASS
009289,000589: 05,2442 01277 1DNADR IMODES30 # IMODES30,IMODES33
009290,000590: 05,2443 00007 1DNADR SPARE
009291,000591: 05,2444 32140 DNPTR LMAGSI05 # COMMON DATA
009292,000592: 05,2445 52755 -6DNADR DSPTAB # DSPTAB+0...+11D
009293,000593:
009294,000594: # ----------------- SUB-LISTS ----------------------------
009295,000595:
009296,000596: 05,2446 05,2116 LMAGSI02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
009297,000597:
009298,000598: 05,2446 05,2125 LMAGSI03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
009299,000599:
009300,000600: 05,2446 05,2134 LMAGSI04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
009301,000601:
009302,000602: 05,2446 05,2140 LMAGSI05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
009303,000603:
009304,000604: # ------------------------------------------------------
009305,000605:
009306,000606: # *** UNREFERENCED LOCATIONS USED IN LIST 6
009307,000607: # *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
009308,000608:
009309,000609: # LOCATION LIST NAME
009310,000610:
![]() |
Page 217 |
009312,000612: 05,2446 1170 DL601 = UPOLDMOD # AGSI/UPD
009313,000613: 05,2446 1171 DL602 = UPVERB
009314,000614: 05,2446 1172 DL603 = UPCOUNT
009315,000615: 05,2446 1173 DL604 = UPBUFF
009316,000616: 05,2446 0000025 DL605 = TIME1
009317,000617: 05,2446 E6,1516 DL606 = NEGTORKU
009318,000618: 05,2446 E6,1517 DL607 = POSTORKV
009319,000619: 05,2446 E6,1520 DL608 = NEGTORKV
009320,000620: 05,2446 1356 DL609 = DUMLOOPS
009321,000621: 05,2446 1327 DL610 = CSMMASS
009322,000622: 05,2446 1300 DL611 = IMODES33
009323,000623: # -------------------------------------------------------------------
009324,000624: 05,2446 02153 DNTABLE GENADR COSTALIN # LM COAST AND ALIGN DOWNLIST
009325,000625: 05,2447 02414 GENADR AGSI/UPD # LM AGS INITIALIZATION/UPDATE DOWNLIST
009326,000626: 05,2450 02221 GENADR RENDEZVU # LM RENDEZVOUS AND PRETHRUST DOWNLIST
009327,000627: 05,2451 02046 GENADR ORBMANUV # LM ORBITAL MANEUVERS DOWNLIST
009328,000628: 05,2452 02277 GENADR DESC/ASC # LM DESCENT AND ASCENT DOWNLIST
009329,000629: 05,2453 02353 GENADR SURFALIN # LM LUNAR SURFACE ALIGN DOWNLIST
009330,000630: # ----------------------------------------------------------
009331,000631:
009332,000632:
End of include-file DOWNLINK_LISTS.agc. Parent file is MAIN.agc