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