Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

008010,000002:                                                                                                  ## Copyright:   Public domain.
008011,000003:                                                                                                  ## Filename:    DOWNLINK_LISTS.agc
008012,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
008013,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
008014,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
008015,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
008016,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
008017,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
008018,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
008019,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
008020,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
008021,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
008022,000014:                                                                                                  ##              the original YUL assembler.
008023,000015:                                                                                                  ##
008024,000016:                                                                                                  ## Assembler:   yaYUL
008025,000017:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
008026,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
008027,000019:                                                                                                  ## Pages:       193-205
008028,000020:                                                                                                  ## Mod history: 2009-05-19 HG   Transcribed from page images.
008029,000021:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
008030,000022:                                                                                                  ##                              and corrected the errors found.
008031,000023:                                                                                                  ##              2017-01-26 RSB  Back-ported comment-text fixes found while
008032,000024:                                                                                                  ##                              proofing corresponding Luminary 69 file.
008033,000025:                                                                                                  ##              2017-03-05 RSB  A few comment-text fixes found while proofing
008034,000026:                                                                                                  ##                              Luminary 116.   
008035,000027:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
008036,000028:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
008037,000029:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
008038,000030: 
008039,000031:                                                                                                  ## This source code has been transcribed or otherwise adapted from
008040,000032:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
008041,000033:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
008042,000034:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
008043,000035:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
008044,000036:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
008045,000037:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
008046,000038:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
008047,000039:                                                                                                  ## actually created.
008048,000040:                                                                                                  ##
008049,000041:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
008050,000042:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
008051,000043:                                                                                                  ## the listing from which it was transcribed. It has been verified to
008052,000044:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
008053,000045:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
008054,000046:                                                                                                  ##
008055,000047:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
008056,000048:                                                                                                  ##
008057,000049:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
008058,000050: 

Page 193

008060,000052: 22,2004                                           BANK     22                                    
008061,000053: 05,2000                                           SETLOC   DOWNTELM                              
008062,000054: 05,2000                                           BANK                                           
008063,000055: 
008064,000056: 05,2065     0340                                  EBANK=   DNTMBUFF                              
008065,000057: 
008066,000058:                                                                                                  #  SPECIAL DOWNLINK OP CODES
008067,000059:                                                                                                  #        OP CODE         ADDRESS(EXAMPLE)        SENDS..                 BIT 15          BITS 14-12      BITS 11
008068,000060:                                                                                                  #                                                                                                             -0
008069,000061:                                                                                                  #        ------          ----------              ----------              ------          ----------      -------
008070,000062:                                                                                                  #                                                                                                             --
008071,000063:                                                                                                  #        1DNADR          TIME2                   (2 AGC WDS)             0               0               ECADR
008072,000064:                                                                                                  #        2DNADR          TEPHEM                  (4 AGC WDS)             0               1               ECADR
008073,000065:                                                                                                  #        3DNADR          VGBODY                  (6 AGC WDS)             0               2               ECADR
008074,000066:                                                                                                  #        4DNADR          STATE                   (8 AGC WDS)             0               3               ECADR
008075,000067:                                                                                                  #        5DNADR          UPBUFF                  (10 AGC WDS)            0               4               ECADR
008076,000068:                                                                                                  #        6DNADR          DSPTAB                  (12 AGC WDS)            0               5               ECADR
008077,000069:                                                                                                  #        DNCHAN          30                      CHANNELS                0               7               CHANNEL
008078,000070:                                                                                                  #                                                                                                        ADDRESS
008079,000071:                                                                                                  #        DNPTR           NEXTLIST                POINTS TO NEXT          0               6               ADRES
008080,000072:                                                                                                  #                                                LIST.
008081,000073: 
008082,000074:                                                                                                  #  DOWNLIST FORMAT DEFINITIONS AND RULES-
008083,000075:                                                                                                  #  1. END OF A LIST = -XDNADR (X = 1 TO 6), -DNPTR, OR -DNCHAN.
008084,000076:                                                                                                  #  2. SNAPSHOT SUBLIST = LIST WHICH STARTS WITH A -1DNADR.
008085,000077:                                                                                                  #  3. SNAPSHOT SUBLIST CAN ONLY CONTAIN 1DNADRS.
008086,000078:                                                                                                  #  4. TIME2 1DNADR MUST BE LOCATED IN THE CONTROL LIST OF A DOWNLIST.
008087,000079:                                                                                                  #  5. ERASABLE DOWN TELEMETRY WORDS SHOULD BE GROUPED IN SEQUENTIAL
008088,000080:                                                                                                  #     LOCATIONS AS MUCH AS POSSIBLE TO SAVE STORAGE USED BY DOWNLINK LISTS.
008089,000081: 
008090,000082: 05,2065                                           COUNT*   $$/DLIST                              
008091,000083: 05,2065                        ERASZERO           EQUALS   7                                     
008092,000084: 05,2065  0000007               UNKNOWN            EQUALS   ERASZERO                              
008093,000085: 05,2065  0000007               SPARE              EQUALS   ERASZERO                              #  USE SPARE TO INDICATE AVAILABLE SPACE
008094,000086: 05,2065           77340        LOWIDCOD           OCT      77340                                 #  LOW ID CODE
008095,000087: 
008096,000088: 05,2066  05,2172               NOMDNLST           EQUALS   LMCSTADL                              #  FRESH START AND POST P27 DOWNLIST
008097,000089: 
008098,000090: 05,2066  05,2407               AGSLIST            EQUALS   LMAGSIDL                              
008099,000091: 
008100,000092: 05,2066  05,2407               UPDNLIST           EQUALS   LMAGSIDL                              #  UPDATE PROGRAM (P27) DOWNLIST
008101,000093: 

Page 194

008103,000095:                                                                                                  #  LM ORBITAL MANEUVERS LIST
008104,000096: 
008105,000097:                                                                                                  #  ----------------- CONTROL LIST --------------------------
008106,000098: 
008107,000099: 05,2066                        LMORBMDL           EQUALS                                         #  SEND ID BY SPECIAL CODING
008108,000100: 05,2066           32127                           DNPTR    LMORBM01                              #  COLLECT SNAPSHOT
008109,000101: 05,2067           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008110,000102: 05,2070           03451                           1DNADR   DELLT4                                #  DELLT4,+1
008111,000103: 05,2071           13443                           3DNADR   RTARG                                 #  RTARG,+1...+5
008112,000104: 05,2072           02256                           1DNADR   ELEV                                  #  ELEV,+1
008113,000105: 05,2073           01344                           1DNADR   TEVENT                                #  TEVENT,+1
008114,000106: 05,2074           25733                           6DNADR   REFSMMAT                              #  REFSMMAT +0...+11D
008115,000107: 05,2075           03633                           1DNADR   TCSI                                  #  TCSI,+1
008116,000108: 05,2076           12266                           3DNADR   DELVEET1                              #  DELVEET1 +0...+5
008117,000109: 05,2077           13700                           3DNADR   VGTIG                                 #  VGTIG +0...+5
008118,000110: 05,2100           01340                           1DNADR   DNLRVELZ                              #  DNLRVELZ,DNLRALT
008119,000111: 05,2101           03630                           1DNADR   TPASS4                                #  TPASS4,+1
008120,000112: 05,2102           32136                           DNPTR    LMORBM02                              #  COMMON DATA
008121,000113: 05,2103           00024                           1DNADR   TIME2                                 #  TIME2/1
008122,000114: 05,2104           32145                           DNPTR    LMORBM03                              #  COLLECT SNAPSHOT
008123,000115: 05,2105           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008124,000116: 05,2106           32154                           DNPTR    LMORBM04                              #  COMMON DATA
008125,000117: 05,2107           07115                           2DNADR   POSTORKU                              #  POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008126,000118: 05,2110           00007                           1DNADR   SPARE                                 
008127,000119: 05,2111           01776                           1DNADR   TCDH                                  #  TCDH,+1
008128,000120: 05,2112           12274                           3DNADR   DELVEET2                              #  DELVEET2 +0...+5
008129,000121: 05,2113           03635                           1DNADR   TTPI                                  #  TTPI,+1
008130,000122: 05,2114           12365                           3DNADR   DELVEET3                              #  DELVEET3 +0...+5
008131,000123: 05,2115           01333                           1DNADR   DNRRANGE                              #  DNRRANGE,DNRRDOT
008132,000124: 05,2116           05336                           2DNADR   DNLRVELX                              #  DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
008133,000125: 05,2117           03577                           1DNADR   DIFFALT                               #  DIFFALT,+1
008134,000126: 05,2120           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008135,000127: 05,2121           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008136,000128: 05,2122           03441                           1DNADR   TIG                                   #  TIG,+1
008137,000129: 05,2123           32157                           DNPTR    LMORBM05                              #  COMMON DATA
008138,000130: 05,2124           32170                           DNPTR    LMORBM06                              #  COMMON DATA
008139,000131: 05,2125           00007                           1DNADR   SPARE                                 #  FORMERLY PIF
008140,000132: 05,2126           74261                           -1DNADR  TGO                                   #  TGO,+1
008141,000133: 
008142,000134:                                                                                                  #  -----------------  SUB-LISTS  ----------------------------
008143,000135: 
008144,000136: 05,2127           76056        LMORBM01           -1DNADR  R-OTHER    +2                         #  R-OTHER +2,+3         SNAPSHOT
008145,000137: 05,2130           01723                           1DNADR   R-OTHER    +4                         #  R-OTHER +4,+5
008146,000138: 05,2131           01725                           1DNADR   V-OTHER                               #  V-OTHER,+1
008147,000139: 05,2132           01727                           1DNADR   V-OTHER    +2                         #  V-OTHER +2,+3
008148,000140: 05,2133           01731                           1DNADR   V-OTHER    +4                         #  V-OTHER +4,+5
008149,000141: 05,2134           01570                           1DNADR   T-OTHER                               #  T-OTHER,+1
008150,000142: 05,2135           76060                           -1DNADR  R-OTHER                               #  R-OTHER +0,+1
008151,000143: 
008152,000144: 05,2136           04320        LMORBM02           2DNADR   REDOCTR                               #  REDOCTR,THETAD,+1,+2  COMMON DATA

Page 195

008154,000146: 05,2137           01432                           1DNADR   RSBBQ                                 #  RSBBQ,+1
008155,000147: 05,2140           07021                           2DNADR   OMEGAP                                #  OMEGAP,OMEGAQ,OMEGAR,GARBAGE
008156,000148: 05,2141           07235                           2DNADR   CDUXD                                 #  CDUXD,CDUYD,CDUZD,GARBAGE
008157,000149: 05,2142           04032                           2DNADR   CDUX                                  #  CDUX,CDUY,CDUZ,CDUT
008158,000150: 05,2143           24074                           6DNADR   STATE                                 #  STATE +0...+11D (FLAGWORDS)
008159,000151: 05,2144           52754                           -6DNADR  DSPTAB                                #  DSPTAB TABLES
008160,000152: 
008161,000153: 05,2145           76555        LMORBM03           -1DNADR  RN         +2                         #  RN +2,+3              SNAPSHOT
008162,000154: 05,2146           01224                           1DNADR   RN         +4                         #  RN +4,+5
008163,000155: 05,2147           01226                           1DNADR   VN                                    #  VN,+1
008164,000156: 05,2150           01230                           1DNADR   VN         +2                         #  VN +2,+3
008165,000157: 05,2151           01232                           1DNADR   VN         +4                         #  VN +4,+5
008166,000158: 05,2152           01234                           1DNADR   PIPTIME                               #  PIPTIME,+1
008167,000159: 05,2153           76557                           -1DNADR  RN                                    #  RN,+1
008168,000160: 
008169,000161: 05,2154           07243        LMORBM04           2DNADR   OMEGAPD                               #  OMEGAPD,OMEGAQD,OMEGARD,GARBAGE
008170,000162: 05,2155           10372                           3DNADR   CADRFLSH                              #  CADRFLSH,+1,+2,FAILREG,+1,+2
008171,000163: 05,2156           77667                           -1DNADR  RADMODES                              #  RADMODES,DAPBOOLS     COMMON DATA
008172,000164: 
008173,000165: 05,2157           07021        LMORBM05           2DNADR   OMEGAP                                #  OMEGAP,OMEGAQ,OMEGAR,GARBAGE
008174,000166: 05,2160           07235                           2DNADR   CDUXD                                 #  CDUXD,CDUXD,CDUZD,GARBAGE
008175,000167: 05,2161           04032                           2DNADR   CDUX                                  #  CDUX,CDUY,CDUZ,CDUT
008176,000168: 05,2162           03024                           1DNADR   ALPHAQ                                #  ALPHAQ,ALPHAR         COMMON DATA
008177,000169: 05,2163           03113                           1DNADR   POSTORKP                              #  POSTORKP,NEGTORKP
008178,000170: 05,2164           34011                           DNCHAN   11                                    #  CHANNELS 11,12
008179,000171: 05,2165           34013                           DNCHAN   13                                    #  CHANNELS 13,14
008180,000172: 05,2166           34030                           DNCHAN   30                                    #  CHANNELS 30,31
008181,000173: 05,2167           43745                           -DNCHAN  32                                    #  CHANNELS 32,33
008182,000174: 
008183,000175: 05,2170           03560        LMORBM06           1DNADR   PIPTIME1                              #  PIPTIME,+1            COMMON DATA
008184,000176: 05,2171           67453                           -3DNADR  DELV                                  #  DELV +0...+5
008185,000177: 
008186,000178:                                                                                                  #  ---------------------------------------------------------
008187,000179: 

Page 196

008189,000181:                                                                                                  #  LM COAST AND ALIGNMENT DOWNLIST
008190,000182: 
008191,000183:                                                                                                  #  -----------------  CONTROL LIST  --------------------------
008192,000184: 
008193,000185: 05,2172                        LMCSTADL           EQUALS                                         #  SEND ID BY SPECIAL CODING
008194,000186: 05,2172           32127                           DNPTR    LMCSTA01                              #  COLLECT SNAPSHOT
008195,000187: 05,2173           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008196,000188: 05,2174           02020                           1DNADR   AGSK                                  #  AGSK,+1
008197,000189: 05,2175           02774                           1DNADR   TALIGN                                #  TALIGN,+1
008198,000190: 05,2176           07115                           2DNADR   POSTORKU                              #  POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008199,000191: 05,2177           01333                           1DNADR   DNRRANGE                              #  DNRRANGE,DNRRDOT
008200,000192: 05,2200           01344                           1DNADR   TEVENT                                #  TEVENT,+1
008201,000193: 05,2201           25733                           6DNADR   REFSMMAT                              #  REFSMMAT +0...+11D
008202,000194: 05,2202           00735                           1DNADR   AOTCODE                               #  AOTCODE,GARBAGE
008203,000195: 05,2203           12022                           3DNADR   RLS                                   #  RLS +0...+5
008204,000196: 05,2204           05336                           2DNADR   DNLRVELX                              #  DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
008205,000197: 05,2205           32224                           DNPTR    LMCSTA06                              #  COMMON DATA
008206,000198: 05,2206           32136                           DNPTR    LMCSTA02                              #  COMMON DATA
008207,000199: 05,2207           00024                           1DNADR   TIME2                                 #  TIME2/1
008208,000200: 05,2210           32145                           DNPTR    LMCSTA03                              #  COLLECT SNAPSHOT
008209,000201: 05,2211           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008210,000202: 05,2212           32154                           DNPTR    LMCSTA04                              #  COMMON DATA
008211,000203: 05,2213           32226                           DNPTR    LMCSTA07                              #  COMMON DATA
008212,000204: 05,2214           05336                           2DNADR   DNLRVELX                              #  DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
008213,000205: 05,2215           04036                           2DNADR   CDUS                                  #  CDUS,PIPAX,PIPAY,PIPAZ
008214,000206: 05,2216           00112                           1DNADR   LASTYCMD                              #  LASTYCMD,LASTXCMD
008215,000207: 05,2217           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008216,000208: 05,2220           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008217,000209: 05,2221           03441                           1DNADR   TIG                                   #  TIG,+1
008218,000210: 05,2222           32157                           DNPTR    LMCSTA05                              #  COMMON DATA
008219,000211: 05,2223           52754                           -6DNADR  DSPTAB                                #  DSPTAB +0...+11D TABLE
008220,000212: 
008221,000213:                                                                                                  #  -----------------  SUB-LISTS   ----------------------------
008222,000214: 
008223,000215: 05,2224  05,2127               LMCSTA01           EQUALS   LMORBM01                              #  COMMON DOWNLIST DATA
008224,000216: 05,2224  05,2136               LMCSTA02           EQUALS   LMORBM02                              #  COMMON DOWNLIST DATA
008225,000217: 05,2224  05,2145               LMCSTA03           EQUALS   LMORBM03                              #  COMMON DOWNLIST DATA
008226,000218: 05,2224  05,2154               LMCSTA04           EQUALS   LMORBM04                              #  COMMON DOWNLIST DATA
008227,000219: 05,2224  05,2157               LMCSTA05           EQUALS   LMORBM05                              #  COMMON DOWNLIST DATA
008228,000220: 
008229,000221: 05,2224           05700        LMCSTA06           2DNADR   X789                                  #  X789 +0...+3          COMMON DATA
008230,000222: 05,2225           77665                           -1DNADR  LASTYCMD                              #  LASTYCMD,LASTXCMD
008231,000223: 05,2226           12737        LMCSTA07           3DNADR   OGC                                   #  OGC,+1,IGC,+1,MGC,+1  COMMON DATA
008232,000224: 05,2227           02755                           1DNADR   BESTI                                 #  BESTI,BESTJ
008233,000225: 05,2230           12760                           3DNADR   STARSAV1                              #  STARSAV1 +0...+5
008234,000226: 05,2231           65011                           -3DNADR  STARSAV2                              #  STARSAV2 +0...+5

Page 197

008236,000228:                                                                                                  #  -----------------------------------------------------------
008237,000229: 

Page 198

008239,000231:                                                                                                  #  LM RENDEZVOUS AND PRE-THRUST DOWNLIST
008240,000232: 
008241,000233:                                                                                                  #  -----------------  CONTROL LIST   --------------------------
008242,000234: 
008243,000235: 05,2232                        LMRENDDL           EQUALS                                         #  SEND ID BY SPECIAL CODING
008244,000236: 05,2232           32127                           DNPTR    LMREND01                              #  COLLECT SNAPSHOT
008245,000237: 05,2233           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008246,000238: 05,2234           32276                           DNPTR    LMREND07                              #  COLLECT SNAPSHOT
008247,000239: 05,2235           14340                           4DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008248,000240: 05,2236           03451                           1DNADR   DELLT4                                #  DELLT4,+1
008249,000241: 05,2237           13443                           3DNADR   RTARG                                 #  RTARG +0...+5
008250,000242: 05,2240           13433                           3DNADR   DELVSLV                               #  DELVSLV +0...+5
008251,000243: 05,2241           03633                           1DNADR   TCSI                                  #  TCSI,+1
008252,000244: 05,2242           12266                           3DNADR   DELVEET1                              #  DELVEET +0-..+5
008253,000245: 05,2243           00007                           1DNADR   SPARE                                 
008254,000246: 05,2244           03630                           1DNADR   TPASS4                                #  TPASS4,+1
008255,000247: 05,2245           32224                           DNPTR    LMREND06                              #  COMMON DATA
008256,000248: 05,2246           32136                           DNPTR    LMREND02                              #  COMMON DATA
008257,000249: 05,2247           00024                           1DNADR   TIME2                                 #  TIME2/1
008258,000250: 05,2250           32145                           DNPTR    LMREND03                              #  COLLECT SNAPSHOT
008259,000251: 05,2251           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008260,000252: 05,2252           32154                           DNPTR    LMREND04                              #  COMMON DATA
008261,000253: 05,2253           07115                           2DNADR   POSTORKU                              #  POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008262,000254: 05,2254           00007                           1DNADR   SPARE                                 
008263,000255: 05,2255           01776                           1DNADR   TCDH                                  #  TCDH,+1
008264,000256: 05,2256           12274                           3DNADR   DELVEET2                              #  DELVEET2 +0...+5
008265,000257: 05,2257           03635                           1DNADR   TTPI                                  #  TTPI,+1
008266,000258: 05,2260           12365                           3DNADR   DELVEET3                              #  DELVEET3 +0...+5
008267,000259: 05,2261           02256                           1DNADR   ELEV                                  #  ELEV,+1
008268,000260: 05,2262           04036                           2DNADR   CDUS                                  #  CDUS,PIPAX,PIPAY,PIPAZ
008269,000261: 05,2263           00112                           1DNADR   LASTYCMD                              #  LASTYCMD,LASTXCMD
008270,000262: 05,2264           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008271,000263: 05,2265           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008272,000264: 05,2266           03441                           1DNADR   TIG                                   #  TIG,+1
008273,000265: 05,2267           32157                           DNPTR    LMREND05                              #  COMMON DATA
008274,000266: 05,2270           02302                           1DNADR   DELTAR                                #  DELTAR,+1
008275,000267: 05,2271           03620                           1DNADR   CENTANG                               #  CENTANG,+1
008276,000268: 05,2272           03466                           1DNADR   NN                                    #  NN,+1
008277,000269: 05,2273           03577                           1DNADR   DIFFALT                               #  DIFFALT,+1
008278,000270: 05,2274           02347                           1DNADR   DELVTPF                               #  DELVTPF,+1
008279,000271: 05,2275           77770                           -1DNADR  SPARE                                 
008280,000272: 
008281,000273:                                                                                                  #  -----------------  SUB-LISTS   ----------------------------
008282,000274: 
008283,000275: 05,2276  05,2127               LMREND01           EQUALS   LMORBM01                              #  COMMON DOWNLIST DATA
008284,000276: 05,2276  05,2136               LMREND02           EQUALS   LMORBM02                              #  COMMON DOWNLIST DATA
008285,000277: 05,2276  05,2145               LMREND03           EQUALS   LMORBM03                              #  COMMON DOWNLIST DATA

Page 199

008287,000279: 05,2276  05,2154               LMREND04           EQUALS   LMORBM04                              #  COMMON DOWNLIST DATA
008288,000280: 05,2276  05,2157               LMREND05           EQUALS   LMORBM05                              #  COMMON DOWNLIST DATA
008289,000281: 05,2276  05,2224               LMREND06           EQUALS   LMCSTA06                              #  COMMON DOWNLIST DATA
008290,000282: 
008291,000283: 05,2276           74320        LMREND07           -1DNADR  AIG                                   #  AIG,AMG               SNAPSHOT
008292,000284: 05,2277           03461                           1DNADR   AOG                                   #  AOG,TRKMKCNT
008293,000285: 05,2300           03752                           1DNADR   TANGNB                                #  TANGNB,+1
008294,000286: 05,2301           03754                           1DNADR   MKTIME                                #  MKTIME,+1
008295,000287: 05,2302           74017                           -1DNADR  RANGRDOT                              #  DNRRANGE,DNRRDOT
008296,000288: 
008297,000289:                                                                                                  #  ---------------------------------------------------------
008298,000290: 

Page 200

008300,000292:                                                                                                  #  LM DESCENT AND ASCENT DOWNLIST
008301,000293: 
008302,000294:                                                                                                  #  -----------------  CONTROL LIST   --------------------------
008303,000295: 
008304,000296: 05,2303                        LMDSASDL           EQUALS                                         #  SEND ID BY SPECIAL CODING
008305,000297: 05,2303           32341                           DNPTR    LMDSAS07                              #  COLLECT SNAPSHOT
008306,000298: 05,2304           32355                           DNPTR    LMDSAS08                              #  SEND SNAPSHOT
008307,000299: 05,2305           01344                           1DNADR   TEVENT                                #  TEVENT,+1
008308,000300: 05,2306           13253                           3DNADR   UNFC/2                                #  UNFC/2 +0...+5
008309,000301: 05,2307           13645                           3DNADR   VGVECT                                #  VGVECT +0...+5
008310,000302: 05,2310           03642                           1DNADR   TTF/8                                 #  TTF/8,+1
008311,000303: 05,2311           03664                           1DNADR   DELTAH                                #  DELTAH,+1
008312,000304: 05,2312           12022                           3DNADR   RLS                                   #  RLS +0...+5
008313,000305: 05,2313           00007                           1DNADR   SPARE                                 
008314,000306: 05,2314           32224                           DNPTR    LMDSAS09                              #  COMMON DATA
008315,000307: 05,2315           32136                           DNPTR    LMDSAS02                              #  COMMON DATA
008316,000308: 05,2316           00024                           1DNADR   TIME2                                 #  TIME2/1
008317,000309: 05,2317           32145                           DNPTR    LMDSAS03                              #  COLLECT SNAPSHOT
008318,000310: 05,2320           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008319,000311: 05,2321           32154                           DNPTR    LMDSAS04                              #  COMMON DATA
008320,000312: 05,2322           07115                           2DNADR   POSTORKU                              #  POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008321,000313: 05,2323           12636                           3DNADR   RGU                                   #  RGU +0...+5
008322,000314: 05,2324           13626                           3DNADR   VGU                                   #  VGU +0...+5
008323,000315: 05,2325           13634                           3DNADR   LAND                                  #  LAND +0...+5
008324,000316: 05,2326           02262                           1DNADR   AT                                    #  AT,+1
008325,000317: 05,2327           02400                           1DNADR   TLAND                                 #  TLAND,+1
008326,000318: 05,2330           03615                           1DNADR   FC                                    #  FC,GARBAGE
008327,000319: 05,2331           00112                           1DNADR   LASTYCMD                              #  LASTYCMD,LASTXCMD
008328,000320: 05,2332           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008329,000321: 05,2333           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008330,000322: 05,2334           03441                           1DNADR   TIG                                   #  TIG,+1
008331,000323: 05,2335           32157                           DNPTR    LMDSAS05                              #  COMMON DATA
008332,000324: 05,2336           32170                           DNPTR    LMDSAS06                              #  COMMON DATA
008333,000325: 05,2337           03614                           1DNADR   PSEUDO55                              #  PSEUDO55,GARBAGE
008334,000326: 05,2340           74324                           -1DNADR  TTOGO                                 #  TTOGO,+1
008335,000327: 
008336,000328:                                                                                                  #  -----------------  SUB-LISTS   ----------------------------
008337,000329: 
008338,000330: 05,2341  05,2136               LMDSAS02           EQUALS   LMORBM02                              #  COMMON DOWNLIST DATA
008339,000331: 05,2341  05,2145               LMDSAS03           EQUALS   LMORBM03                              #  COMMON DOWNLIST DATA
008340,000332: 05,2341  05,2154               LMDSAS04           EQUALS   LMORBM04                              #  COMMON DOWNLIST DATA
008341,000333: 05,2341  05,2157               LMDSAS05           EQUALS   LMORBM05                              #  COMMON DOWNLIST DATA
008342,000334: 05,2341  05,2170               LMDSAS06           EQUALS   LMORBM06                              #  COMMON DOWNLIST DATA
008343,000335: 
008344,000336: 05,2341           75441        LMDSAS07           -1DNADR  LRZCDUDL                              #  LRZCDUDL,GARBAGE              SNAPSHOT
008345,000337: 05,2342           03651                           1DNADR   VSELECT                               #  VSELECT,GARBAGE
008346,000338: 05,2343           02337                           1DNADR   LRVTIMDL                              #  LRVTIMDL,+1

Page 201

008348,000340: 05,2344           03652                           1DNADR   VMEAS                                 #  VMEAS,+1
008349,000341: 05,2345           03754                           1DNADR   MKTIME                                #  MKTIME,+1
008350,000342: 05,2346           03654                           1DNADR   HMEAS                                 #  HMEAS,+1
008351,000343: 05,2347           03756                           1DNADR   RM                                    #  RM,+1
008352,000344: 05,2350           03457                           1DNADR   AIG                                   #  AIG,AMG
008353,000345: 05,2351           03461                           1DNADR   AOG                                   #  AOG,TRKMKCNT
008354,000346: 05,2352           03752                           1DNADR   TANGNB                                #  TANGNB,+1
008355,000347: 05,2353           03754                           1DNADR   MKTIME                                #  MKTIME,+1
008356,000348: 05,2354           75443                           -1DNADR  LRXCDUDL                              #  LRXCDUDL,LRYCDUDL
008357,000349: 
008358,000350: 05,2355           24340        LMDSAS08           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008359,000351: 05,2356           57423                           -5DNADR  DNTMBUFF   +12D                       
008360,000352: 
008361,000353: 05,2357  05,2224               LMDSAS09           EQUALS   LMCSTA06                              #  COMMON DOWNLIST DATA
008362,000354: 
008363,000355:                                                                                                  #  ---------------------------------------------------------
008364,000356: 

Page 202

008366,000358:                                                                                                  #  LM LUNAR SURFACE ALIGN DOWNLIST
008367,000359: 
008368,000360:                                                                                                  #  -----------------  CONTROL LIST  --------------------------
008369,000361: 
008370,000362: 05,2357                        LMLSALDL           EQUALS                                         #  SEND ID BY SPECIAL CODING
008371,000363: 05,2357           32127                           DNPTR    LMLSAL01                              #  COLLECT SNAPSHOT
008372,000364: 05,2360           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008373,000365: 05,2361           32276                           DNPTR    LMLSAL07                              #  COLLECT SNAPSHOT
008374,000366: 05,2362           14340                           4DNADR   DNTMBUFF                              #  SEND SHAPSHOT
008375,000367: 05,2363           02774                           1DNADR   TALIGN                                #  TALIGN,+1
008376,000368: 05,2364           25733                           6DNADR   REFSMMAT                              #  REFSMMAT +0...+11D
008377,000369: 05,2365           26236                           6DNADR   YNBSAV                                #  YNBSAV +0...+5,ZNBSAV +0...+5
008378,000370: 05,2366           32224                           DNPTR    LMLSAL08                              #  COMMON DATA
008379,000371: 05,2367           32136                           DNPTR    LMLSAL02                              #  COMMON DATA
008380,000372: 05,2370           00024                           1DNADR   TIME2                                 #  TIME/1
008381,000373: 05,2371           32145                           DNPTR    LMLSAL03                              #  COLLECT SNAPSHOT
008382,000374: 05,2372           24340                           6DNADR   DNTMBUFF                              #  SEND SHAPSHOT
008383,000375: 05,2373           32154                           DNPTR    LMLSAL04                              #  COMMON DATA
008384,000376: 05,2374           32226                           DNPTR    LMLSAL09                              #  COMMON DATA
008385,000377: 05,2375           12230                           3DNADR   GSAV                                  #  GSAV +0...+5
008386,000378: 05,2376           02020                           1DNADR   AGSK                                  #  AGSK,+1
008387,000379: 05,2377           00112                           1DNADR   LASTYCMD                              #  LASTYCMD,LASTXCMD
008388,000380: 05,2400           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008389,000381: 05,2401           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008390,000382: 05,2402           03441                           1DNADR   TIG                                   #  TIG,+1
008391,000383: 05,2403           32157                           DNPTR    LMLSAL05                              #  COMMON DATA
008392,000384: 05,2404           32170                           DNPTR    LMLSAL06                              #  COMMON DATA
008393,000385: 05,2405           00007                           1DNADR   SPARE                                 
008394,000386: 05,2406           77770                           -1DNADR  SPARE                                 
008395,000387: 
008396,000388:                                                                                                  #  -----------------  SUB-LISTS   ----------------------------
008397,000389: 
008398,000390: 05,2407  05,2127               LMLSAL01           EQUALS   LMORBM01                              #  COMMON DOWNLIST DATA
008399,000391: 05,2407  05,2136               LMLSAL02           EQUALS   LMORBM02                              #  COMMON DOWNLIST DATA
008400,000392: 05,2407  05,2145               LMLSAL03           EQUALS   LMORBM03                              #  COMMON DOWNLIST DATA
008401,000393: 05,2407  05,2154               LMLSAL04           EQUALS   LMORBM04                              #  COMMON DOWNLIST DATA
008402,000394: 05,2407  05,2157               LMLSAL05           EQUALS   LMORBM05                              #  COMMON DOWNLIST DATA
008403,000395: 05,2407  05,2170               LMLSAL06           EQUALS   LMORBM06                              #  COMMON DOWNLIST DATA
008404,000396: 05,2407  05,2276               LMLSAL07           EQUALS   LMREND07                              #  COMMON DOWNLIST DATA
008405,000397: 05,2407  05,2224               LMLSAL08           EQUALS   LMCSTA06                              #  COMMON DOWNLIST DATA
008406,000398: 05,2407  05,2226               LMLSAL09           EQUALS   LMCSTA07                              #  COMMON DOWNLIST DATA
008407,000399: 

Page 203

008409,000401:                                                                                                  #  ---------------------------------------------------------
008410,000402: 

Page 204

008412,000404:                                                                                                  #  LM AGS INITIALIZATION AND UPDATE DOWNLIST
008413,000405: 
008414,000406:                                                                                                  #  -----------------  CONTROL LIST  --------------------------
008415,000407: 
008416,000408: 05,2407                        LMAGSIDL           EQUALS                                         #  SEND IO BY SPECIAL CODING
008417,000409: 05,2407           12200                           3DNADR   AGSBUFF    +0                         #  AGSBUFF +0...+5
008418,000410: 05,2410           02214                           1DNADR   AGSBUFF    +12D                       #  AGSBUFF +12D,GARBAGE
008419,000411: 05,2411           12201                           3DNADR   AGSBUFF    +1                         #  AGSBUFF +1...+6
008420,000412: 05,2412           02215                           1DNADR   AGSBUFF    +13D                       #  AGSBUFF +13D, GARBAGE
008421,000413: 05,2413           12206                           3DNADR   AGSBUFF    +6                         #  AGSBUFF +6...+11
008422,000414: 05,2414           02214                           1DNADR   AGSBUFF    +12D                       #  AGSBUFF +12,GARBAGE
008423,000415: 05,2415           12207                           3DNADR   AGSBUFF    +7                         #  AGSBUFF +7...+12D
008424,000416: 05,2416           02215                           1DNADR   AGSBUFF    +13D                       #  AGSBUFF +13D,GARBAGE
008425,000417: 05,2417           25170                           6DNADR   COMPNUMB                              #  COMPNUMB,UPOLDMOD,UPVERB,UPCOUNT,
008426,000418:                                                                                                  #  UPBUFF +0...+7
008427,000419: 05,2420           25204                           6DNADR   UPBUFF     +8D                        #  UPBUFF +8D...+19D
008428,000420: 05,2421           32136                           DNPTR    LMAGSI02                              #  COMMON DATA
008429,000421: 05,2422           00024                           1DNADR   TIME2                                 #  TIME2/1
008430,000422: 05,2423           32145                           DNPTR    LMAGSI03                              #  COLLECT SNAPSHOT
008431,000423: 05,2424           24340                           6DNADR   DNTMBUFF                              #  SEND SNAPSHOT
008432,000424: 05,2425           32154                           DNPTR    LMAGSI04                              #  COMMON DATA
008433,000425: 05,2426           07115                           2DNADR   POSTORKU                              #  POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
008434,000426: 05,2427           00007                           1DNADR   SPARE                                 
008435,000427: 05,2430           00007                           1DNADR   SPARE                                 
008436,000428: 05,2431           02020                           1DNADR   AGSK                                  #  AGSK,+1
008437,000429: 05,2432           25174                           6DNADR   UPBUFF                                #  UPBUFF +0...+11D
008438,000430: 05,2433           15210                           4DNADR   UPBUFF     +12D                       #  UPBUFF +12D...+19D
008439,000431: 05,2434           01331                           1DNADR   LEMMASS                               #  LEMMASS,CSMMASS
008440,000432: 05,2435           01302                           1DNADR   IMODES30                              #  IMODES30,IMODES33
008441,000433: 05,2436           00007                           1DNADR   SPARE                                 
008442,000434: 05,2437           32157                           DNPTR    LMAGSI05                              #  COMMON DATA
008443,000435: 05,2440           52754                           -6DNADR  DSPTAB                                #  DSPTAB +0...+11D
008444,000436: 
008445,000437:                                                                                                  #  -----------------  SUB-LISTS   ----------------------------
008446,000438: 
008447,000439: 05,2441  05,2136               LMAGSI02           EQUALS   LMORBM02                              #  COMMON DOWNLIST DATA
008448,000440: 05,2441  05,2145               LMAGSI03           EQUALS   LMORBM03                              #  COMMON DOWNLIST DATA
008449,000441: 05,2441  05,2154               LMAGSI04           EQUALS   LMORBM04                              #  COMMON DOWNLIST DATA
008450,000442: 05,2441  05,2157               LMAGSI05           EQUALS   LMORBM05                              #  COMMON DOWNLIST DATA
008451,000443: 
008452,000444:                                                                                                  #  ---------------------------------------------------------
008453,000445: 
008454,000446: 05,2441           02172        DNTABLE            GENADR   LMCSTADL                              #  LM COAST AND ALIGN DOWNLIST
008455,000447: 05,2442           02407                           GENADR   LMAGSIDL                              #  LM AGS INITIALIZATION/UPDATE DOWNLIST
008456,000448: 05,2443           02232                           GENADR   LMRENDDL                              #  LM RENDEZVOUS AND PRE-THRUST DOWNLIST
008457,000449: 05,2444           02066                           GENADR   LMORBMDL                              #  LM ORBITAL MANEUVERS DOWNLIST
008458,000450: 05,2445           02303                           GENADR   LMDSASDL                              #  LM DESCENT AND ASCENT DOWNLIST

Page 205

008460,000452: 05,2446           02357                           GENADR   LMLSALDL                              #  LM LUNAR SURFACE ALIGN DOWNLIST
008461,000453: 
008462,000454:                                                                                                  #  ---------------------------------------------------------------
008463,000455: 
008464,000456: 

End of include-file DOWNLINK_LISTS.agc.  Parent file is MAIN.agc