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