https://github.com/virtualagc/virtualagc
Tip revision: 07d422a97efd13e2c9cc89135ae2b9c9c982136f authored by Mike Stewart on 07 August 2019, 06:38:15 UTC
LUM131R9: Added an implementation of PCR 942 (HLROFF) that gives the correct bugger word for bank 33
LUM131R9: Added an implementation of PCR 942 (HLROFF) that gives the correct bugger word for bank 33
Tip revision: 07d422a
DOWNLINK_LISTS.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: DOWNLINK_LISTS.agc
## Purpose: A log section of Zerlina 56, the final revision of
## Don Eyles's offline development program for the variable
## guidance period servicer. It also includes a new P66 with LPD
## (Landing Point Designator) capability, based on an idea of John
## Young's. Neither of these advanced features were actually flown,
## but Zerlina was also the birthplace of other big improvements to
## Luminary including the terrain model and new (Luminary 1E)
## analog display programs. Zerlina was branched off of Luminary 145,
## and revision 56 includes all changes up to and including Luminary
## 183. It is therefore quite close to the Apollo 14 program,
## Luminary 178, where not modified with new features.
## Reference: pp. 199-212
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2017-07-28 MAS Created from Luminary 210.
## 2017-08-18 RSB Transcribed.
## 2017-08-19 MAS Fixed an incorrect operator.
## Page 199
BANK 22
SETLOC DOWNTELM
BANK
EBANK= DNTMBUFF
# SPECIAL DOWNLINK OP CODES
# OP CODE ADDRESS(EXAMPLE) SENDS.. BIT 15 BITS 14-12 BITS 11
# -0
# ------ ---------- ---------- ------ ---------- -------
# --
# 1DNADR TIME2 (2 AGC WDS) 0 0 ECADR
# 2DNADR TEPHEM (4 AGC WDS) 0 1 ECADR
# 3DNADR VGBODY (6 AGC WDS) 0 2 ECADR
# 4DNADR STATE (8 AGC WDS) 0 3 ECADR
# 5DNADR UPBUFF (10AGC WDS) 0 4 ECADR
# 6DNADR DSPTAB (12AGC WDS) 0 5 ECADR
# DNCHAN 30 CHANNELS 0 7 CHANNEL
# ADDRESS
# DNPTR NEXTLIST POINTS TO NEXT 0 6 ADRES
# LIST.
# DOWNLIST FORMAT DEFINITIONS AND RULES-
# 1. END OF A LIST = -XDNADR (X = 1 TO 6), -DNPTR, OR -DNCHAN.
# 2. SNAPSHOT SUBLIST = LIST WHICH STARTS WITH A -1DNADR.
# 3. SNAPSHOT SUBLIST CAN ONLY CONTAIN 1DNADRS.
# 4. TIME2 1DNADR MUST BE LOCATED IN THE CONTROL LIST OF A DOWNLIST.
# 5. ERASABLE DOWN TELEMETRY WORDS SHOULD BE GROUPED IN SEQUENTIAL
# LOCATIONS AS MUCH AS POSSIBLE TO SAVE STORAGE USED BY DOWNLINK LISTS.
COUNT* $$/DLIST
ERASZERO EQUALS 7
UNKNOWN EQUALS ERASZERO
SPARE EQUALS ERASZERO # USE SPARE TO INDICATE AVAILABLE SPACE
LOWIDCOD OCT 77340 # LOW ID CODE
NOMDNLST EQUALS COSTALIN # FRESH START AND POST P27 DOWNLIST
AGSLIST EQUALS AGSI/UPD
UPDNLIST EQUALS AGSI/UPD # UPDATE PROGRAM (P27) DOWNLIST
## Page 200
# LM ORBITAL MANEUVERS LIST
# ----------------- CONTROL LIST --------------------------
ORBMANUV EQUALS # SEND ID BY SPECIAL CODING
DNPTR LMORBM01 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
1DNADR DELLT4 # DELLT4,+1
3DNADR RTARG # RTARG,+1...+5
1DNADR ELEV # ELEV,+1
1DNADR TEVENT # TEVENT,+1
6DNADR REFSMMAT # REFSMMAT+0...+11D
1DNADR TCSI # TCSI,+1
3DNADR DELVEET1 # DELVEET1+0...+5
3DNADR VGTIG # VGTIG+0...+5
1DNADR DNLRVELZ # DNLRVELZ,DNLRALT
1DNADR TPASS4 # TPASS4,+1
DNPTR LMORBM02 # COMMON DATA
1DNADR TIME2 # TIME2/1
DNPTR LMORBM03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMORBM04 # COMMON DATA
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
1DNADR SERVDURN # SERVDURN,DUMLOOPS
1DNADR TCDH # TCDH,+1
3DNADR DELVEET2 # DELVEET2+0...+5
1DNADR TTPI # TTPI,+1
3DNADR DELVEET3 # DELVEET3+0...+5
1DNADR DNRRANGE # DNRRANGE,DNRRDOT
2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
1DNADR DIFFALT # DIFFALT,+1
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR TIG # TIG,+1
DNPTR LMORBM05 # COMMON DATA
DNPTR LMORBM06 # COMMON DATA
1DNADR SPARE # FORMERLY PIF
-1DNADR TGO # TGO,+1
# ----------------- SUB-LISTS ----------------------------
LMORBM01 -1DNADR R-OTHER +2 # R-OTHER+2,+3 SNAPSHOT
1DNADR R-OTHER +4 # R-OTHER+4,+5
1DNADR V-OTHER # V-OTHER,+1
1DNADR V-OTHER +2 # V-OTHER+2,+3
1DNADR V-OTHER +4 # V-OTHER+4,+5
1DNADR T-OTHER # T-OTHER,+1
-1DNADR R-OTHER # R-OTHER+0,+1
LMORBM02 2DNADR REDOCTR # REDOCTR,THETAD,+1,+2 COMMON DATA
## Page 201
1DNADR RSBBQ # RSBBQ,+1
2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
6DNADR STATE # STATE+0...+11D (FLAGWORDS)
-6DNADR DSPTAB # DSPTAB TABLES
LMORBM03 -1DNADR RN +2 # RN +2,+3 SNAPSHOT
1DNADR RN +4 # RN +4,+5
1DNADR VN # VN,+1
1DNADR VN +2 # VN +2,+3
1DNADR VN +4 # VN +4,+5
1DNADR PIPTIME # PIPTIME,+1
-1DNADR RN # RN,+1
LMORBM04 2DNADR OMEGAPD # OMEGAPD,OMEGAQD,OMEGARD,GARBAGE
DNCHAN 76 # GARBAGE,CHANNEL77
2DNADR CADRFLSH +2 # CADRFLSH +2,FAILREG,+1,+2
-1DNADR RADMODES # RADMODES,DAPBOOLS COMMON DATA
LMORBM05 2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
2DNADR CDUXD # CDUXD,CDUXD,CDUZD,GARBAGE
2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
1DNADR ALPHAQ # ALPHAQ,ALPHAR COMMON DATA
1DNADR POSTORKP # POSTORKP,NEGTORKP
LMORBM09 DNCHAN 11 # CHANNEL11 ,12
DNCHAN 13 # CHANNELS13,14
DNCHAN 30 # CHANNELS30,31
-DNCHAN 32 # CHANNELS32,33
LMORBM06 1DNADR PIPTIME1 # PIPTIME,+1 COMMON DATA
-3DNADR DELV # DELV+0...+5
# ---------------------------------------------------------
# *** THE FOLLOWING IS A LIST OF LOCATIONS IN DOWNLINK LISTS
# *** BUT NOT REFERENCED IN THE DIRECTORY BECAUSE THEY ARE NOT
# *** THE FIRST LOCATION REFERENCED IN AN INSTRUCTION
# *** THIS LIST SHOULD BE UPDATED WHEN ANY CHANGES ARE MADE TO LISTS.
# LOCATION LIST NAME
DL101 = DNLRALT # ORBMANUV
DL102 = TIME1
DL1O3 = NEGTORKU
DL104 = POSTORKV
DL105 = NEGTORKV
DL106 = DUMLOOPS
DL107 = DNRRDOT
DL108 = DNLRVELY
## Page 202
DL109 = DNLRVELZ
DL110 = DNLRALT
DL111 = CSMMASS
DL112 = IMODES33
DL113 = THETAD # LMORBM02
DL114 = OMEGAQ
DL115 = OMEGAR
DL116 = CDUYD
DL117 = CDUZD
DL118 = CDUY
DL119 = CDUZ
DL120 = CDUT
DL121 = OMEGAQD # LMORBM04
DL122 = OMEGARD
DL123 = FAILREG
DL124 = DAPBOOLS
DL125 = OMEGAQ # LMORBM05
DL126 = OMEGAR
DL127 = CDUYD
DL128 = CDUZD
DL129 = CDUY
DL130 = CDUZ
DL131 = CDUT
DL132 = ALPHAR
DL133 = NEGTORKP
## Page 203
# LM COAST AND ALIGNMENT DOWNLIST
# ----------------- CONTROL LIST --------------------------
COSTALIN EQUALS # SEND ID BY SPECIAL CODING
DNPTR LMCSTA01 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
1DNADR AGSK # AGSK,+1
1DNADR TALIGN # TALIGN,+1
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
1DNADR DNRRANGE # DNRRANGE,DNRRDOT
1DNADR TEVENT # TEVENT,+1
6DNADR REFSMMAT # REFSMMAT+0...+11D
1DNADR AOTCODE # AOTCODE,GARBAGE
3DNADR RLS # RLS+0...+5
2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
3DNADR VGTIG # VGTIGX,Y,Z
DNPTR LMCSTA02 # COMMON DATA
1DNADR TIME2 # TIME2/1
DNPTR LMCSTA03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMCSTA04 # COMMON DATA
DNPTR LMCSTA07 # COMMON DATA
1DNADR SERVDURN # SERVDURN,DUMLOOPS
1DNADR TET # TET,+1
2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR TIG # TIG,+1
DNPTR LMCSTA05 # COMMON DATA
-6DNADR DSPTAB # DSPTAB+0...+11D TABLE
# ----------------- SUB-LISTS ----------------------------
LMCSTA01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
LMCSTA02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
LMCSTA03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
LMCSTA04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
LMCSTA05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
LMCSTA06 2DNADR X789 # X789+0...+3 COMMON DATA
-1DNADR LASTYCMD # LASTYCMD,LASTXCMD
LMCSTA07 3DNADR OGC # OGC,+1,IGC,+1,MGC,+1 COMMON DATA
1DNADR BESTI # BESTI,BESTJ
# Page 204
3DNADR STARSAV1 # STARSAV1+0...+5
-3DNADR STARSAV2 # STARSAV2+0...+5
# ---------------------------------------------------------
# *** UNREFERENCED LOCATIONS USED IN LIST 2
# *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
# LOCATION LIST NAME
DL201 = NEGTORKU # COSTALIN
DL202 = POSTORKV
DL203 = NEGTORKV
DL204 = DNRRDOT
DL205 = DNLRVELY
DL206 = DNLRVELZ
DL207 = DNLRALT
DL208 = TIME1
DL209 = DUMLOOPS
DL210 = PIPAX
DL211 = PIPAY
DL212 = PIPAZ
DL213 = LASTXCMD
DL214 = CSMMASS
DL215 = IMODES33
DL216 = LASTXCMD # LMCSTA06
DL217 = IGC # LMCSTA07
DL218 = MGC
DL219 = BESTJ
## Page 205
# LM RENDEZVOUS AND PRE-THRUST DOWNLIST
# ----------------- CONTROL LIST --------------------------
RENDEZVU EQUALS # SEND ID BY SPECIAL CODING
DNPTR LMREND01 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMREND07 # COLLECT SNAPSHOT
DNPTR LMREND08 # SEND SNAPSHOT
1DNADR DELLT4 # DELLT4,+1
3DNADR DELVSLV # DELVSLV+0...+5
1DNADR TCSI # TCSI,+1
3DNADR DELVEET1 # DELVEET+0...+5
1DNADR SERVDURN # SERVDURN,DUMLOOPS
1DNADR TPASS4 # TPASS4,+1
DNPTR LMREND06 # COMMON DATA
DNPTR LMREND02 # COMMON DATA
1DNADR TIME2 # TIME2/1
DNPTR LMREND03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMREND04 # COMMON DATA
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
1DNADR SPARE
1DNADR TCDH # TCDH,+1
3DNADR DELVEET2 # DELVEET2+0...+5
1DNADR TTPI # TTPI,+1
3DNADR DELVEET3 # DELVEET3+0...+5
1DNADR ELEV # ELEV,+1
2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR TIG # TIG,+1
DNPTR LMREND05 # COMMON DATA
1DNADR TET # TET,+1
1DNADR CENTANG # CENTANG,+1
1DNADR NN # NN,+1
1DNADR DIFFALT # DIFFALT,+1
1DNADR DELVTPF # DELVTPF,+1
-1DNADR SPARE
# ----------------- SUB-LISTS ----------------------------
LMREND01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
LMREND02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
LMREND03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
LMREND04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
## Page 206
LMREND05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
LMREND06 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
LMREND07 -1DNADR AIG # AIG,AMG SNAPSHOT
1DNADR AOG # AOG,TRKMKCNT
1DNADR TANGNB # TANGNB,+1
1DNADR TANGNB +1 # TANGNB+1,GARBAGE
1DNADR RANGRDOT # DNRRANGE,DNRRDOT
1DNADR RANGRDOT +1 # DNRRDOT,GARBAGE
1DNADR AGSCODE # AGSCODE,GARBAGE
-1DNADR MKTIME # MKTIME,+1
LMREND08 6DNADR DNTMBUFF # SEND SNAPSHOT
-1DNADR DNTMBUFF +12D # SEND SNAPSHOT
# ---------------------------------------------------------
# *** UNREFERENCED LOCATIONS USED IN LIST 3
# LOCATION LIST NAME
# *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
DL301 = DUMLOOPS # RENDEZVU
DL302 = TIME1
DL303 = NEGTORKU
DL304 = POSTORKV
DL305 = NEGTORKV
DL306 = PIPAX
DL307 = PIPAY
DL308 = PIPAZ
DL309 = LASTXCMD
DL310 = CSMMASS
DL311 = IMODES33
DL312 = AMG # LMREND07
DL313 = TRKMKCNT
DL314 = DNRRDOT
## Page 207
# LM DESCENT AND ASCENT DOWNLIST
# ----------------- CONTROL LIST --------------------------
DESC/ASC EQUALS # SEND ID BY SPECIAL CODING
1DNADR SPARE
1DNADR SPARE
1DNADR SPARE
DNPTR LMDSAS08 # COLLECT SNAPSHOT
1DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMDSAS07 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
1DNADR TEVENT # TEVENT,+1
3DNADR UNFC/2 # UNFC/2+0...+5
3DNADR VGVECT # VGVECT+0...+5
1DNADR TTF/8 # TTF/8,+1
1DNADR DELTAH # DELTAH,+1
3DNADR RLS # RLS+0...+5
1DNADR ZDOTD # ZDOTD,+1
DNPTR LMDSAS09 # COMMON DATA
DNPTR LMDSAS02 # COMMON DATA
1DNADR TIME2 # TIME2/1
DNPTR LMDSAS03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMDSAS04 # COMMON DATA
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
3DNADR RGU # RGU+0...+5
3DNADR VGU # VGU+0...+5
3DNADR LAND # LAND+0...+5
1DNADR AT # AT,+1
1DNADR TLAND # TLAND,+1
1DNADR DVTOTAL # DVTOTAL,+1
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR TIG # TIG,+1
DNPTR LMDSAS05 # COMMON DATA
DNPTR LMDSAS06 # COMMON DATA
1DNADR PSEUDO55 # PSEUDO55,GARBAGE
-1DNADR TTOGO # TTOGO,+1
# ----------------- SUB-LISTS ----------------------------
LMDSAS02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
LMDSAS03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
LMDSAS04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
LMDSAS05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
## Page 208
LMDSAS06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
LMDSAS07 -1DNADR HMEASDL # HMEASDL,+1
1DNADR VMEAS # VMEAS,+1
1DNADR AIG # AIG,AMG
1DNADR AOG # AOG,VSELECT
1DNADR LATVMETR # LATVMETR,FORVMETR
1DNADR SERVDURN # SERVDURN,DUMLOOPS
-1DNADR LRTIMEDL # LRTIMEDL,+1
LMDSAS08 -1DNADR GTCTIME # GTCTIME,+1
-1DNADR FC # FC, GARBAGE
LMDSAS09 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
# ---------------------------------------------------------
# *** UNREFERENCED LOCATIONS USED IN LIST 4
# *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
# LOCATION LIST NAME
DL401 = TIME1 # DESC/ASC
DL402 = NEGTORKU
DL403 = POSTORKV
DL404 = NEGTORKV
DL405 = LASTXCMD
DL406 = CSMMASS
DL407 = IMODES33
DL408 = AMG # LMDSAS07
DL409 = VSELECT
DL410 = FORVMETR
DL411 = DUMLOOPS
## Page 209
# LM LUNAR SURFACE ALIGN DOWNLIST
# ----------------- CONTROL LIST --------------------------
SURFALIN EQUALS # SEND ID BY SPECIAL CODING
DNPTR LMLSAL01 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMLSAL07 # COLLECT SNAPSHOT
4DNADR DNTMBUFF # SEND SHAPSHOT
1DNADR TALIGN # TALIGN,+1
6DNADR REFSMMAT # REFSMMAT+0...+11D
6DNADR YNBSAV # YNBSAV+0...+5,ZNBSAV+0...+5
1DNADR X789 # X789,+1
1DNADR TET # TET,+1
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
DNPTR LMLSAL02 # COMMON DATA
1DNADR TIME2 # TIME/1
DNPTR LMLSAL03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SHAPSHOT
DNPTR LMLSAL04 # COMMON DATA
DNPTR LMLSAL08 # COMMON DATA
3DNADR GSAV # GSAV +0...+5
1DNADR AGSK # AGSK,+1
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR TIG # TIG,+1
2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
1DNADR ALPHAQ # ALPHAQ,ALPHAR COMMON DATA
1DNADR AOTCODE # AOTCODE,GARBAGE
DNPTR LMLSAL09 # COMMON DATA
DNPTR LMLSAL06 # COMMON DATA
1DNADR TSIGHT # TSIGHT,TSIGHT +1
-1DNADR CURSOR # AOT CURSOR,SPIRAL
# ----------------- SUB-LISTS ----------------------------
LMLSAL01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
LMLSAL02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
LMLSAL03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
LMLSAL04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
LMLSAL05 EQUALS LMCSTA05 # COMMON DOWNLIST DATA
LMLSAL06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
## Page 210
LMLSAL07 EQUALS LMREND07 # COMMON DOWNLIST DATA
LMLSAL08 EQUALS LMCSTA07 # COMMON DOWNLIST DATA
LMLSAL09 EQUALS LMORBM09 # COMMON DOWNLIST DATA
# ---------------------------------------------------------
# *** UNREFERENCED LOCATIONS USED IN LIST 5
# *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
# LOCATION LIST NAME
DL501 = ZNBSAV # SURFALIN
DL502 = LASTXCMD
DL503 = TIME1
DL504 = LASTXCMD
DL505 = CSMMASS
DL506 = IMODES33
DL507 = OMEGAQ
DL508 = OMEGAR
DL509 = CDUYD
DL510 = CDUZD
DL511 = CDUY
DL512 = CDUZ
DL513 = CDUT
DL514 = ALPHAR
DL515 = SPIRAL
## Page 211
# LM AGS INITIALIZATION AND UPDATE DOWNLIST
# ----------------- CONTROL LIST --------------------------
AGSI/UPD EQUALS # SEND IO BY SPECIAL CODING
3DNADR AGSBUFF +0 # AGSBUFF+0...+5
1DNADR AGSBUFF +12D # AGSBUFF+12D,GARBAGE
3DNADR AGSBUFF +1 # AGSBUFF+1...+6
1DNADR AGSBUFF +13D # AGSBUFF+13D, GARBAGE
3DNADR AGSBUFF +6 # AGSBUFF+6...+11
1DNADR AGSBUFF +12D # AGSBUFF+12,GARBAGE
3DNADR AGSBUFF +7 # AGSBUFF+7...+12D
1DNADR AGSBUFF +13D # AGSBUFF+13D,GARBAGE
6DNADR COMPNUMB # COMPNUMB,UPOLDMOD,UPVERB,UPCOUNT,
# UPBUFF+0...+7
6DNADR UPBUFF +8D # UPBUFF +8D...+19D
DNPTR LMAGSI02 # COMMON DATA
1DNADR TIME2 # TIME2/1
DNPTR LMAGSI03 # COLLECT SNAPSHOT
6DNADR DNTMBUFF # SEND SNAPSHOT
DNPTR LMAGSI04 # COMMON DATA
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
1DNADR SERVDURN # SERVDURN,DUMLOOPS
1DNADR SPARE
1DNADR AGSK # AGSK,+1
6DNADR UPBUFF # UPBUFF+0...+11D
4DNADR UPBUFF +12D # UPBUFF+12D...+19D
1DNADR LEMMASS # LEMMASS,CSMMASS
1DNADR IMODES30 # IMODES30,IMODES33
1DNADR SPARE
DNPTR LMAGSI05 # COMMON DATA
-6DNADR DSPTAB # DSPTAB+0...+11D
# ----------------- SUB-LISTS ----------------------------
LMAGSI02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
LMAGSI03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
LMAGSI04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
LMAGSI05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
# ---------------------------------------------------------
# *** UNREFERENCED LOCATIONS USED IN LIST 6
# *** UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS.
# LOCATION LIST NAME
## Page 212
DL601 = UPOLDMOD # AGSI/UPD
DL602 = UPVERB
DL603 = UPCOUNT
DL604 = UPBUFF
DL605 = TIME1
DL606 = NEGTORKU
DL607 = POSTORKV
DL608 = NEGTORKV
DL609 = DUMLOOPS
DL610 = CSMMASS
DL611 = IMODES33
# -------------------------------------------------------------------
DNTABLE GENADR COSTALIN # LM COAST AND ALIGN DOWNLIST
GENADR AGSI/UPD # LM AGS INITIALIZATION/UPDATE DOWNLIST
GENADR RENDEZVU # LM RENDEZVOUS AND PRETHRUST DOWNLIST
GENADR ORBMANUV # LM ORBITAL MANEUVERS DOWNLIST
GENADR DESC/ASC # LM DESCENT AND ASCENT DOWNLIST
GENADR SURFALIN # LM LUNAR SURFACE ALIGN DOWNLIST
# ----------------------------------------------------------