https://github.com/virtualagc/virtualagc
Tip revision: 4e5d304eb7cd5589b924ffb8b423b6f15511b35d authored by Ron Burkey on 20 October 2018, 17:47:00 UTC
The sample Block I AGC program TRIVIUM, found at the very end of one of
The sample Block I AGC program TRIVIUM, found at the very end of one of
Tip revision: 4e5d304
DOWN-TELEMETRY_PROGRAM.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: DOWN-TELEMETRY_PROGRAM.agc
## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
## It is part of an early development version of the software
## for Apollo Guidance Computer (AGC) on the unmanned Lunar
## Module (LM) flight Apollo 5. Sunburst 37 was the program
## upon which Don Eyles's offline development program Shepatin
## was based; the listing herein transcribed was actually for
## the equivalent revision 0 of Shepatin.
## This file is intended to be a faithful transcription, except
## that the code format has been changed to conform to the
## requirements of the yaYUL assembler rather than the
## original YUL assembler.
## Reference: pp. 311-321
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2017-05-24 MAS Created from Sunburst 120.
## 2017-06-04 HG Transcribed
## 2017-06-22 RSB Proofed comment text with
## octopus/ProoferComments.
## Page 311
# PROGRAM NAME- DOWN TELEMETRY PROGRAM
# MOD NO.- 2
# MOD BY- KILROY
# DATE- 21NOV66
# LOG SECTION- DOWN TELEMETRY PROGRAM
# ASSEMBLY- REV 12 OF SUNBURST
# FUNCTIONAL DESCRIPTION- THIS ROUTINE IS INITIATED BY TELEMETRY END
# PULSE FROM THE DOWNLINK TELEMETRY CONVERTER. THIS PULSE OCCURS
# AT 50 TIMES PER SEC(EVERY 20 MS) THEREFORE DODOWNTM IS
# EXECUTED AT THESE RATES. THIS ROUTINE SELECTS THE APPROPRIATE
# LGC DATA TO BE TRANSMITTED DOWNLINK AND LOADS IT INTO OUTPUT
# CHANNELS 34 AND 35. THE INFORMATION IS THEN GATED OUT FROM THE
# LGC IN SERIAL FASHION.
# THIS PROGRAM IS CODED FOR A 2 SECOND DOWNLIST. SINCE DOWNRUPTS
# OCCUR EVERY 20 MS AND 2 LGC COMPUTER WORDS CAN BE PLACED IN
# CHANNELS 34 AND 35 DURING EACH DOWNRUPT THE PROGRAM IS CAPABLE
# OF SENDING 200 LGC WORDS EVERY 2 SECONDS.
# CALLING SEQUENCE- NONE
# PROGRAM IS ENTERED VIA TCF DODOWNTM WHICH IS EXECUTED AS A
# RESULT OF A DOWNRUPT. CONTROL IS RETURNED VIA TCF NOQRSM WHICH
# IN EFFECT IS A RESUME.
# SUBROUTINES CALLED- NONE
# NORMAL EXIT MODE- TCF NOQRSM
# ALARM OR ABORT EXIT MODE- NONE
# RESTART PROTECTION- NONE.
# EXCEPT THAT WHEN A RESTART DOES OCCUR :STARTSUB: WILL
# INITIALIZE THE DOWNLIST POINTER TO THE BEGINNING OF THE NOMINAL
# DOWNLIST. THIS HAS THE EFFECT OF IGNORING THE REMAINDER OF THE
# DOWNLIST WHICH THE DOWN-TELEMETRY PROGRAM WAS WORKING ON WHEN
# THE RESTART OCCURRED.
# OUTPUT- EVERY 2 SECONDS 100 DOUBLE PRECISION WORDS(I.E. 200 LGC
# COMPUTER WORDS) ARE TRANSMITTED VIA DOWNLINK.
# ERASABLE INITIALIZATION REQUIRED- NONE
# DNTMGOTO,DNLSTADR AND EBANK ARE INITIALIZED IN STARTSUB(FRESH
# START AND RESTART)
# DEBRIS (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)-
# LDATALST,ITEMP1,ITEMP2,DNTMBUFF TO DNTMBUFF + 21D,TMINDEX,DNQ
BANK 15
EBANK= DNTMBUFF
ERASZERO EQUALS 7
DMYECADR EQUALS ERASZERO # USE DMYECADR TO GENERATE A DUMMY ECADR
DMYADRES EQUALS ERASZERO # USE DMYADRES TO GENERATE A DUMMY ADRES
UNKNOWN EQUALS ERASZERO # USE UNKNOWN WHEN THE MNEMONIC IS UNKNOWN
SPARE EQUALS ERASZERO # USE SPARE TO INDICATE AVAILABLE SPACE
LOWIDCOD OCT 00437
## Page 312
# SPECIAL DOWNLIST FOR AGS INITIALIZATION. AGSLIST MUST RESIDE IN
# LOCATION 2001 OF DOWNLINK EBANK.
# AGSLIST IS NOT REQUIRED FOR AS206 BUT IS INSERTED IN SUNBURST TO
# RESERVE SPACE FOR IT IN 207/8 AND FUTURE MISSIONS.
AGSLIST EQUALS
# -------------DOUBLE PRECISION - ANY EBANK (GROUP 2)---------------------
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
# ----SNAPSHOT DP WORDS FROM EBANK E7 OR UNSWITCHABLE ERASABLE(GROUP 2)---
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
# -------------DOUBLE PRECISION - ANY EBANK (GROUP 1)--------------------
ECADR DMYECADR
ECADR DMYECADR
## Page 313
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
ECADR DMYECADR
# ----SNAPSHOT DP WORDS FROM EBANK E7 OR UNSWITCHABLE ERASABLE(GROUP 1)---
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
ADRES DMYADRES
# SPECIAL DATA LIST FOR HIGH SPEED RADAR SAMPLING.
UPDNLIST EQUALS AGSLIST
## Page 314
# DODOWNTM IS ENTERED EVERY 20 MS BY AN INTERRUPT TRIGGERED BY THE
# RECEIPT OF AN ENDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER.
# THE ORGANIZATION OF THE PROGRAM IS AS FOLLOWS......
# 1. A MAIN PROGRAM(DODOWNTM) WHICH CONTROLS A SERIES OF SUBROUTINES.
# 2. SUBROUTINES(SENDID,SENDSNAP ETC.) WHICH ARE DESIGNED TO HANDLE
# SPECIFIC PORTIONS OF THE DOWNLIST.
# 3. :EQUALS: CARDS(NDP1, NDP2, LINCR) WHICH DEFINE NO. OF ITEMS IN THE
# PORTIONS OF THE DOWNLISTS.
# 4. DOWNLISTS. - DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE
# DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER
# EXECUTION AND TO INSURE THAT THE DOWNLIST ID:S(FIRST WORD OF EACH
# 2 SEC DOWNLIST.) ARE UNIQUE. THE LOCATION OF THE AGS DOWNLIST MUST BE
# 2001 OF THE FBANK IN WHICH THE DOWN-TELEMETRY PROGRAM RESIDES.
# (I.E. AGSLIST = XX,2001). THIS WILL MAKE THE ID WORD FOR THE AGS
# DOWNLINK DATA = 00001.
DODOWNTM TS BANKRUPT
EXTEND
QXCH QRUPT
INDEX DNTMGOTO # GO TO APPROPRIATE
TCF 0 # TELEMETRY PHASE
DNPHASE1 TC SENDID # SEND ID WORD(S)
CAF BIT7 # SET WORD ORDER
EXTEND # BACK TO 1 FOR
WOR 13 # REMAINDER OF CYCLE
CA DNLINCR # CALCULATE ADDRESS OF
ADS LDATALST # SNAPSHOT WORDS TO BE SENT (GROUP 1)
TC SNAPSHOT # SAVE AND SEND SNAPSHOT WORDS (GROUP 1)
CA DNDP1-1 # PLACE NO. OF DP WORDS IN GROUP 1 INTO A
TC SENDDP # SEND DOUBLE PRECISION WORDS (GROUP 1)
TC SENDCH # SEND CHANNELS 11-14 AND 31-33
TC SENDDSTB # SEND DISPLAY TABLES
TC SENDTIME # SEND TIME1 AND TIME2
CS DNSNAP # CALCULATE ADDRESS OF
ADS LDATALST # SNAPSHOT WORDS TO BE SENT(GROUP 2)
TC SNAPSHOT # SAVE AND SEND SNAPSHOT WORDS (GROUP 2)
CA DNDP2-1 # PLACE NO. OF DP WORDS IN GROUP 2
TC SENDDP # SEND DOUBLE PRECISION WORDS(GROUP 2)
TC SENDCH # SEND CHANNELS 11-14 AND 31-33
TC SENDDSTB # SEND DISPLAY TABLE
TCF DNPHASE1 # GO BACK AND START OVER
# ........................................................................
SENDID CA DNLSTADR # INITIALIZE DOWNLIST ADDRESS AS SELECTED
TS LDATALST # BY A MISSION OR TEST PROGRAM
MASK LOW10 # ISOLATE RELATIVE LOC OF DOWNLIST IN THIS
EXTEND # FIXED BANK. RESULT = 0000 - 1777. NO
## Page 315
# CONFLICT OF DUPLICATE ID WORDS CAN OCCUR
WRITE DNTM1 # SEND FIRST ID WORD.
CS BIT7 # SET WORD
EXTEND # ORDER BIT 7 IN
WAND 13 # CHANNEL 13 TO 0.
EXTEND # SET UP DNTMGOTO SO NEXT ENTRY TO
QXCH DNTMGOTO # DODOWNTM WILL TRANSFER CONTROL TO
# THE INSTRUCTION AFTER TC SENDID.
CAF LOWIDCOD # PLACE SPECIAL ID CODE IN A.
TCF TMEXITL # GO SEND SPECIAL ID CODE.
# ........................................................................
SNAPSHOT EXTEND
QXCH DNQ # SAVE RETURN ADDRESS
CAF ZERO # INITIALIZE THE
TS ITEMP1 # DNTMBUFF INCREMENTER(ITEMP1) TO ZERO.
CAF DNSNAP-2 # INITIALIZE LOOP COUNTER(ITEMP2) TO
SNAPLOOP TS ITEMP2 # TOTAL NO. OF SNAPSHOT DP WORDS LESS 2.
AD LDATALST # CALCULATE ADDRESS OF NEXT
EXTEND # ENTRY IN DOWNLIST.
INDEX A # PICK UP THE DOUBLE PRECISION WORD FROM
INDEX 0 # THE NEXT ENTRY
DCA 0 # IN THE DOWNLIST.
INDEX ITEMP1 # AND SAVE IT IN THE NEXT AVAILABLE LOC
DXCH DNTMBUFF # IN DNTMBUFF SNAPSHOT BUFFER.
CAF TWO # INCREMENT DNTMBUFF INCREMENTER(ITEMP1)
ADS ITEMP1 # BY 2.
CCS ITEMP2 # HAVE ALL SNAPSHOT DP WORDS BEEN SAVED...
TCF SNAPLOOP # NO--GO BACK AND CONTINUE SAVING THEM
CAF DNSNAP-1 # YES--PLACE NO. OF DP WORDS REMAINING
TS TMINDEX # TO BE SENT INTO TMINDEX.
CAF LSENDSNP # SET UP DNTMGOTO SO PROGRAM CONTROL WILL
TS DNTMGOTO # BE TRANSFERRED TO SENDSNAP ON NEXT
# ENTRY TO DODOWNTM.
EXTEND # PICK UP FIRST DP SNAPSHOT WORD
INDEX LDATALST # AND PLACE IT IN A + L.
INDEX NSNAP -1 # (((THIS ADDITIONAL CODING ALTHOUGH A BIT
DCA 0 # SUPERFLUOUS IS JUSTIFIED BECAUSE IT
# SAVES 2 WORDS OF ERASABLE STORAGE)))
TCF DNTMEXIT # GO SEND FIRST SNAPSHOT DP ENTRY.
SENDSNAP CCS TMINDEX # ANY SNAPSHOT WORDS LEFT IN BUFFER
TCF +2 # YES--GO PROCESS THEM
TC DNQ # NO--RETURN TO INSTRUCTION AFTER
# TC SNAPSHOT.
TS TMINDEX # SAVE COUNT OF SNAPSHOT WORDS REMAINING
DOUBLE # CALCULATE DECREMENTER
COM # FOR NEXT DP WORD IN
EXTEND # BUFFER.
INDEX A
## Page 316
DCA DNTMBUFF +20D # TAKE NEXT DP WORD OUT OF BUFFER, PLACE
TCF DNTMEXIT # IT INTO A + L AND GO SEND IT.
NSNAP EQUALS 12D # NUMBER OF DP SNAPSHOT WORDS.
DNSNAP ADRES NSNAP # NO. OF DP SNAPSHOT WORDS CONSTANT
DNSNAP-1 ADRES NSNAP -1 # NO. OF DP SNAPSHOT WORDS -1 CONSTANT
DNSNAP-2 ADRES NSNAP -2 # NO. OF DP SNAPSHOT WORDS -2 CONSTANT
LSENDSNP ADRES SENDSNAP # LOC OF ROUTINE WHICH SENDS SNAPSHOT BUFF
# ........................................................................
SENDDP EXTEND # ENTER WITH NO. DP WORDS REMAINING TO
QXCH DNQ # BE SENT IN A. SAVE RETURN ADDRESS.
TS TMINDEX # PLACE NO. OF DP WORDS TO BE SENT AFTER
AD ONE # THIS ONE INTO TMINDEX. CALCULATE NEXT
COM # LOCATION IN DOWNLIST AND SAVE
ADS LDATALST # IT IN LDATALST.
CAF LSENDDPA # SET UP DNTMGOTO SO PROGRAM CONTROL WILL
TS DNTMGOTO # GO TO SENDDPA ON NEXT ENTRY TO DODOWNTM.
CAE TMINDEX # PLACE NO. OF WORDS REMAINING TO BE SENT
SENDDPB TS TMINDEX # INTO A. SAVE NO. DP WORDS TO BE SENT.
AD LDATALST # CALCULATE NEXT DOWNLIST ENTRY.
INDEX A
CA 0 # PICK UP ECADR OF NEXT DOWNLIST ENTRY.
TS EBANK # SET EBANK.
MASK LOW8 # ISOLATE RELATIVE ADDRESS.
EXTEND
INDEX A # PICK UP DOUBLE PRECISION
DCA 3400 # WORD INTO A + L. (DCA 3400 = DCA 1400)
DNTMEXIT EXTEND # GENERAL DOWN-TELEMETRY EXIT
WRITE DNTM1 # TO SEND A + L TO CHANNELS 34 + 35
CA L # RESPECTIVELY.
TMEXITL EXTEND # ALTERNATE DOWN TELEMETRY EXIT
WRITE DNTM2 # TO SEND A TO CHANNEL 35.
TCF RESUME # EXIT DOWN TELEMETRY PROG VIA RESUME.
SENDDPA CCS TMINDEX # ANY DP WORDS REMAINING TO BE SENT.
TCF SENDDPB # YES--GO SEND THEM.
TC DNQ # RETURN TO INSTR AFTER TC SENDDP.
LSENDDPA ADRES SENDDPA # LOC OF ROUTINE WHICH SENDS DP WORDS.
# ........................................................................
SENDCH EXTEND
QXCH DNQ # SAVE RETURN ADDRESS
CAF LSENDCHA # SET UP DNTMGOTO SO PROG CONTROL WILL GO
TS DNTMGOTO # TO SENDCHA ON NEXT ENTRY TO DODOWNTM.
CAF THREE # PLACE NO. OF PAIRS OF CHANNELS TO BE
# SENT AFTER THIS PAIR INTO A.
## Page 317
SENDCHB TS TMINDEX # SAVE NO. OF PAIRS OF CHANNELS REMAINING
EXTEND # TO BE SENT INTO A. PICK UP CHANNEL
INDEX A # ADDRESS FROM
INDEX FIXLSTCL # NEXT ENTRY IN FIXLSTCL.
READ 0 # PLACE CONTENTS OF THE
TS L # CHANNEL INTO L.
EXTEND # PICK UP NEXT CHANNEL
INDEX TMINDEX # ADDRESS FROM NEXT ENTRY
INDEX FIXLSTCA # IN FIXLSTCA.
READ 0 # PLACE CONTENTS OF CHANNEL INTO A.
TCF DNTMEXIT # NOW GO SEND A + L.
SENDCHA CCS TMINDEX # ANY MORE CHANNEL PAIRS TO BE SENT......
TCF SENDCHB # YES--GO SEND THEM.
TC DNQ # NO--RETURN TO INSTR AFTER TC SENDCH.
LSENDCHA ADRES SENDCHA # LOCATION OF ROUTINE WHICH SENDS CHANNELS
FIXLSTCA OCT 32 # CHANNEL 32
OCT 30 # CHANNEL 30
OCT 13 # CHANNEL 13
OCT 11 # CHANNEL 11
FIXLSTCL OCT 33 # CHANNEL 33
OCT 31 # CHANNEL 31
OCT 14 # CHANNEL 14
OCT 12 # CHANNEL 12
# ........................................................................
SENDDSTB EXTEND
QXCH DNQ # SAVE RETURN ADDRESS
CAF LSENDDSA # SET UP DNTMGOTO SO PROGRAM CONTROL WILL
TS DNTMGOTO # GO TO SENDDSA ON NEXT ENTRY TO DODOWNTM.
CAF FIVE # PLACE NO. OF PAIRS OF DSPTAB WORDS REM
SENDDSB TS TMINDEX # AFTER THIS PAIR INTO A. SAVE NO. REMAIN-
DOUBLE # ING INTO TMINDEX. CALCULATE DECREMENTER
COM # FOR NEXT PAIR OF WORDS(SP)
EXTEND # IN DSPTAB.
INDEX A # PICK UP PAIR OF DSPTAB WORDS(SP) AND
DCA DSPTAB +10D # LEAVE THEM IN A + L.
TCF DNTMEXIT # NOW GO SEND A + L.
SENDDSA CCS TMINDEX # ANY WORDS LEFT IN DSPTAB TO BE SENT.....
TCF SENDDSB # YES--GO SEND THEM
TC DNQ # NO--RETURN TO INSTR AFTER TC SENDDSTB.
LSENDDSA ADRES SENDDSA # LOC OF ROUTINE WHICH SENDS DISPLAY TABLE
# ........................................................................
SENDTIME EXTEND # SET DP DNTMGOTO SO PROGRAM CONTROL WILL
QXCH DNTMGOTO # GO TO INSTRUCTION AFTER TC SENDTIME.
EXTEND
DCA TIME2 # PLACE TIME2 AND TIME1 INTO A AND L.
TCF DNTMEXIT # NOW GO SEND A AND L.
## Page 318
# ........................................................................
DNDP1-1 ADRES NDP1 -1 # NO. OF DP WORDS IN GROUP 1 LESS 1
DNDP2-1 ADRES NDP2 -1 # NO. OF DP WORDS IN GROUP 2 LESS 1
DNLINCR ADRES LINCR # RELATIVE LOC OF FIRST GROUP IN DOWNLIST.
# ........................................................................
# ************************************************************************
# CHANGE THE FOLLOWING 3 EQUALS CARDS WHEN MODIFYING THE STRUCTURE OF THE
# DOWNLISTS.
NDP1 EQUALS 27D # NUMBER OF DP WORDS (GROUP 1)
NDP2 EQUALS 27D # NUMBER OF DP WORDS (GROUP 2)
LINCR EQUALS 66D # LINCR = NDP1 + NDP2 + 12D
# ************************************************************************
## Page 319
# NOMINAL SUNBURST (AS206) 2 SECOND DOWNLIST
# AS OF DATE = 29NOV66
# # IN COLUMN 80 INDICATES THE REQUIRED DATA IS NOT AVAILABLE THROUGHOUT
# THE ENTIRE MISSION IN THE SANE REGISTERS WITH THE SAME SCALING FACTORS
# THESE CONFLICTS MUST BE RESOLVED.
# LAST ENTRY IN DOWNLIST WILL BE SENT FIRST, THEN LAST ENTRY - 1 ETC.----
NOMDNLST EQUALS
# ----------------------DISPLAY TABLES------------------------------------
# DSPTAB +10D AND DSPTAB +11D
# DSPTAB +8D AND DSPTAB +9D
# DSPTAB +6 AND DSPTAB +7
# DSPTAB +4 AND DSPTAB +5
# DSPTAB +2 AND DSPTAB +3
# DSPTAB AND DSPTAB +1
# -----------------------CHANNELS----------------------------------------
# CHANNELS 32 AND 33
# CHANNELS 30 AND 31
# CHANNELS 13 AND 14
# CHANNELS 11 AND 12
# -------------DOUBLE PRECISION - ANY EBANK (GROUP 2)-------------------
ECADR STATE +2 # (FLAGWRD2,DAPBOOLS) FLAGWORDS
ECADR STATE # (STATE,FLAGWRD1) FLAGWORDS
ECADR OMEGAR -1 # (GARBAGE,OMEGAR) ANGULAR RATES ABOUT THE
ECADR OMEGAP # (OMEGAP,OMEGAQ) P,Q,R BODY AXES (DAP)
ECADR CDUY # (CDUY,CDUZ) ACTUAL CDU:S
ECADR CDUX -1 # (GARBAGE,CDUX) ACTUAL CDU:S
ECADR RD +4 # APS2 DESIRED RADIUS VECTOR IN STABLE
ECADR RD +2 # MEMBER CO-ORDINATES.
ECADR RD # SCALED METERS X 2(-7).
ECADR VDVECT +4 # APS2,DPS1 DESIRED VELOCITY VECTOR IN
ECADR VDVECT +2 # STABLE MEMBER CO-ORDINATES.
ECADR VDVECT # SCALED M/CS X 2(-7).
ECADR VGVECT +4 # APS2,DPS1 VELOCITY TO BE GAINED SCALED
ECADR VGVECT +2 # M/CS X 2(-7). IN LOCAL VERTICAL (APS2)
ECADR VGVECT # OR STABLE MEMBER (DPS1).
ECADR TTGO # ESTIMATED TIME TO GO IN CS(APS2,DPS1,2).
ECADR PHASENUM # (PHASENUM,GARBAGE)PRESENT MISSION PHASE
ECADR MTIMER2 # (MTIMER2,MTIMER1) REGISTERS CONTAINING
ECADR MTIMER4 # (MTIMER4,MTIMER3) DELTA T:S OF MP:S.
ECADR MPHASE2 # (MPHASE2,MPHASE1) REGISTERS CONTAINING
ECADR MPHASE4 # (MPHASE4,MPHASE3) MP:S TO BE CALLED.
ECADR SPARE # SPARE
ECADR LMPIN # (LMPIN,LMPOUT)
ECADR LMPCMD +6 # OUTPUT TO LMP = REGISTERS
ECADR LMPCMD +4 # CONTAINING THE
ECADR LMPCMD +2 # LAST EIGHT LMP COMMANDS
ECADR LMPCMD # TO BE SENT BY THE LGC.
# ----SNAPSHOT DP WORDS FROM EBANK E7 OR UNSWITCHABLE ERASABLE(GROUP 2)---
## Page 320
ADRES SPARE # SPARE
ADRES SPARE # SPARE
ADRES SPARE # SPARE
ADRES SPARE # SPARE
ADRES PIPAZ # (PIPAZ,GARBAGE) ACTUAL Z PIP COUNTS.
ADRES PIPAX # (PIPAX,PIPAY) ACTUAL X,Y PIP COUNTS.
ADRES STATE +4 # (STATE +4,GARBAGE) LAMBERT FLAGS.
ADRES FAILREG +1 # (FAILREG +1,+2) MULTIFAIL ALARM CODES.
ADRES ERCOUNT # (ERCOUNT,FAILREG)SLFCK FAIL CTR,ALM CODE
ADRES COMPTORK +4 # E)GYROCOMPASS GYRO TORQUES IN VERTICAL,
ADRES COMPTORK +2 # S)SOUTH, EAST SYSTEM,ERATE NOT INCLUDED.
ADRES COMPTORK # V) 37777,37777 = (1 - 2(-28))REVS.
# ---------------------------LGC CLOCK------------------------------------
# TIME2 AND TIME1
# ----------------------DISPLAY TABLES------------------------------------
# DSPTAB +10D AND DSPTAB +11D
# DSPTAB +8D AND DSPTAB +9D
# DSPTAB +6 AND DSPTAB +7
# DSPTAB +4 AND DSPTAB +5
# DSPTAB +2 AND DSPTAB +3
# DSPTAB AND DSPTAB +1
# -----------------------CHANNELS-----------------------------------------
# CHANNELS 32 AND 33
# CHANNELS 30 AND 31
# CHANNELS 13 AND 14
# CHANNELS 11 AND 12
# -------------DOUBLE PRECISION - ANY EBANK (GROUP 1)--------------------
ECADR STATE +2 # (FLAGWRD2,DAPBOOLS) FLAGWORDS
ECADR STATE # (STATE,FLAGWRD1) FLAGWORDS
ECADR OMEGAR -1 # (GARBAGE,OMEGAR) ANGULAR RATES ABOUT THE
ECADR OMEGAP # (OMEGAP,OMEGAQ) P,Q,R BODY AXES (DAP)
ECADR CDUY # (CDUY,CDUZ) ACTUAL CDU:S
ECADR CDUX -1 # (GARBAGE,CDUX) ACTUAL CDU:S
ECADR REDOCTR # (REDOCTR,SFAIL)RESTART CTR,SLFCK FAIL Q.
ECADR TINT # PREDICTED ENGINE ON TIME(MP9,MP11,MP13)#
ECADR AOSQ # (AOSQ,AOSR) MOMENT OFFSET(Q,R)
ECADR FC # DPS2 FORCE COMMAND SCALE 3 LBS X 2(-14).
ECADR TEVENT # TIME OF GRR / ENGINE ON / ENGINE OFF
ECADR IMODES30 # (IMODES30,IMODES33) PGNCS FLAGWORDS
ECADR STBUFF +12D # STBUFF = 14 REGISTERS
ECADR STBUFF +10D # IN WHICH THE UPLINKED DATA
ECADR STBUFF +8D # IS PLACED FOR GROUND
ECADR STBUFF +6 # DISPLAY AND VERIFICATION
ECADR STBUFF +4 # BEFORE PLACEMENT
ECADR STBUFF +2 # IN THE APPROPRIATE
ECADR STBUFF # ERASABLE LOCATIONS.
ECADR STCOUNT # (STCOUNT,UPOLDMD)
ECADR UPVERB # (UPVERB,COMPNUMB)
ECADR SPARE # SPARE
ECADR LMPIN # (LMPIN,LMPOUT)
## Page 321
ECADR LMPCMD +6 # OUTPUT TO LMP = REGISTERS
ECADR LMPCMD +4 # CONTAINING THE
ECADR LMPCMD +2 # LAST EIGHT LMP COMMANDS
ECADR LMPCMD # TO BE SENT BY THE LGC.
# ----SNAPSHOT DP WORDS FROM EBANK E7 OR UNSWITCHABLE ERASABLE(GROUP 1)---
ADRES DELVZ # THE CHANGE IN VELOCITY ALONG
ADRES DELVY # EACH OF THE STABLE MEMBER AXES IN THE
ADRES DELVX # 2 SEC INTERVAL PRECEEDING PIPTIME.
ADRES CDUYD # (CDUYD,CDUZD) DESIRED CDU:S
ADRES CDUXD -1 # (GARBAGE,CDUXD) DESIRED CDU:S
ADRES STATIME # TIME FOR RN AND VN.
ADRES VN +4 # AVE.G/ORBIT.INT. STATE VECTOR Z VEL
ADRES VN +2 # AVE.G/ORBIT.INT. STATE VECTOR Y VEL
ADRES VN # AVE.G/ORBIT.INT. STATE VECTOR X VEL
ADRES RN +4 # AVE.G/ORBIT.INT. STATE VECTOR Z POS
ADRES RN +2 # AVE.G/ORBIT.INT. STATE VECTOR Y POS
ADRES RN # AVE.G/ORBIT.INT. STATE VECTOR X POS
# --------------------------ID WORDS--------------------------------------
# I.D., SYNCH BITS
# --------START HERE AND READ BACK FOR CONTENTS OF DOWNLIST---------------
