2636 lines
76 KiB
Plaintext
2636 lines
76 KiB
Plaintext
# Copyright: Public domain.
|
|
# Filename: ERASABLE ASSIGNMENTS.agc
|
|
# Purpose: Part of the source code for Luminary 1A build 099.
|
|
# It is part of the source code for the Lunar Module's (LM)
|
|
# Apollo Guidance Computer (AGC), for Apollo 11.
|
|
# Assembler: yaYUL
|
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
|
# Website: www.ibiblio.org/apollo.
|
|
# Pages: 0090-0152
|
|
# Mod history: 2009-05-16 OH Transcribed from page images.
|
|
# 2009-06-05 RSB Eliminated a variable that shouldn't have
|
|
# survived from Luminary 131.
|
|
# 2010-12-31 JL Fixed page number comment.
|
|
#
|
|
# This source code has been transcribed or otherwise adapted from
|
|
# digitized images of a hardcopy from the MIT Museum. The digitization
|
|
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
|
|
# the Museum. Many thanks to both. The images (with suitable reduction
|
|
# in storage size and consequent reduction in image quality as well) are
|
|
# available online at www.ibiblio.org/apollo. If for some reason you
|
|
# find that the images are illegible, contact me at info@sandroid.org
|
|
# about getting access to the (much) higher-quality images which Paul
|
|
# actually created.
|
|
#
|
|
# Notations on the hardcopy document read, in part:
|
|
#
|
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
|
|
# 16:27 JULY 14, 1969
|
|
|
|
# Page 90
|
|
# CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
|
|
|
|
# EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
|
|
# OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
|
|
# CHANGING OF ONLY ONE CARD. EXAMPLE:
|
|
#
|
|
# X EQUALS START
|
|
# Y EQUALS X +SIZE.X
|
|
# Z EQUALS Y +SIZE.Y
|
|
#
|
|
# (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.
|
|
# SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y.
|
|
# USUALLY NUMERIC, IE. 1, 2, 6, 18D, ETC.)
|
|
|
|
# EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
|
|
# AND DIFFERENT DATA). EXAMPLE:
|
|
#
|
|
# X EQUALS Y
|
|
|
|
# = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
|
|
# (THIS IS LOGICAL EQUIVALENCE, NOT SHARING.) EXAMPLE:
|
|
#
|
|
# X = Y
|
|
|
|
# THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
|
|
# THE COMMENTS IN THE FOLLOWING FORM: M(SIZE)N.
|
|
#
|
|
# M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
|
|
# B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
|
|
# INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
|
|
# I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
|
|
# INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
|
|
# INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
|
|
#
|
|
# SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
|
|
#
|
|
# N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS.
|
|
# PL MEANS THAT THE CONTENTS ARE PAD LOADED.
|
|
# DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
|
|
# PRM MEANS THAT THE REGISTER IS PERMANENT. IE., IT
|
|
# IS USED DURING THE ENTIRE MISSION FOR ONE
|
|
# PURPOSE AND CANNOT BE SHARED.
|
|
# TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
|
|
# IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
|
|
# IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
|
|
# PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
|
|
# CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
|
|
# Page 91
|
|
# IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
|
|
# IS NOT ACTIVE IN PARALLEL
|
|
# IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
|
|
# TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
|
|
# OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
|
|
# TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
|
|
|
|
# Page 92
|
|
# SPECIAL REGISTERS.
|
|
|
|
A EQUALS 0
|
|
L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS
|
|
Q EQUALS 2
|
|
EBANK EQUALS 3
|
|
FBANK EQUALS 4
|
|
Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
|
|
BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
|
|
# REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
|
|
|
|
ARUPT EQUALS 10 # INTERRUPT STORAGE
|
|
LRUPT EQUALS 11
|
|
QRUPT EQUALS 12
|
|
SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
|
|
ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
|
|
BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
|
|
BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
|
|
|
|
CYR EQUALS 20
|
|
SR EQUALS 21
|
|
CYL EQUALS 22
|
|
EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
|
|
|
|
TIME2 EQUALS 24
|
|
TIME1 EQUALS 25
|
|
TIME3 EQUALS 26
|
|
TIME4 EQUALS 27
|
|
TIME5 EQUALS 30
|
|
TIME6 EQUALS 31
|
|
CDUX EQUALS 32
|
|
CDUY EQUALS 33
|
|
CDUZ EQUALS 34
|
|
CDUT EQUALS 35 # REND RADAR TRUNNION CDU
|
|
CDUS EQUALS 36 # REND RADAR SHAFT CDU
|
|
PIPAX EQUALS 37
|
|
PIPAY EQUALS 40
|
|
PIPAZ EQUALS 41
|
|
Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS
|
|
P-RHCCTR EQUALS 43
|
|
R-RHCCTR EQUALS 44
|
|
INLINK EQUALS 45
|
|
RNRAD EQUALS 46
|
|
GYROCMD EQUALS 47
|
|
CDUXCMD EQUALS 50
|
|
CDUYCMD EQUALS 51
|
|
CDUZCMD EQUALS 52
|
|
CDUTCMD EQUALS 53
|
|
CDUSCMD EQUALS 54
|
|
# Page 93
|
|
THRUST EQUALS 55
|
|
LEMONM EQUALS 56
|
|
OUTLINK EQUALS 57
|
|
ALTM EQUALS 60
|
|
|
|
# INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
|
|
|
|
LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
|
|
LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
|
|
X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTER RELATIVE
|
|
X2 EQUALS 39D # TO THE WORK AREA.
|
|
S1 EQUALS 40D
|
|
S2 EQUALS 41D
|
|
QPRET EQUALS 42D
|
|
|
|
# INPUT/OUTPUT CHANNELS
|
|
|
|
# *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
|
|
LCHAN EQUALS L
|
|
QCHAN EQUALS Q
|
|
HISCALAR EQUALS 3
|
|
LOSCALAR EQUALS 4
|
|
CHAN5 EQUALS 5
|
|
CHAN6 EQUALS 6
|
|
SUPERBNK EQUALS 7 # SUPER-BANK.
|
|
OUT0 EQUALS 10
|
|
DSALMOUT EQUALS 11
|
|
CHAN12 EQUALS 12
|
|
CHAN13 EQUALS 13
|
|
CHAN14 EQUALS 14
|
|
MNKEYIN EQUALS 15
|
|
NAVKEYIN EQUALS 16
|
|
CHAN30 EQUALS 30
|
|
CHAN31 EQUALS 31
|
|
CHAN32 EQUALS 32
|
|
CHAN33 EQUALS 33
|
|
DNTM1 EQUALS 34
|
|
DNTM2 EQUALS 35
|
|
|
|
# END OF CHANNEL ASSIGNMENTS
|
|
|
|
# Page 94
|
|
# INTERPRETIVE SWITCH BIT ASSIGNMENTS
|
|
|
|
# ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. **
|
|
|
|
# Page 95
|
|
# GENERAL ERASABLE ASSIGNMENTS
|
|
|
|
SETLOC 61
|
|
# INTERRUPT TEMPORARY STORAGE POOL. (11D)
|
|
|
|
# (ITEMP1 THROUGH RUPTREG4)
|
|
|
|
# ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
|
|
# IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT.
|
|
|
|
ITEMP1 ERASE
|
|
WAITEXIT EQUALS ITEMP1
|
|
EXECTEM1 EQUALS ITEMP1
|
|
|
|
ITEMP2 ERASE
|
|
WAITBANK EQUALS ITEMP2
|
|
EXECTEM2 EQUALS ITEMP2
|
|
|
|
ITEMP3 ERASE
|
|
RUPTSTOR EQUALS ITEMP3
|
|
WAITADR EQUALS ITEMP3
|
|
NEWPRIO EQUALS ITEMP3
|
|
|
|
ITEMP4 ERASE
|
|
LOCCTR EQUALS ITEMP4
|
|
WAITTEMP EQUALS ITEMP4
|
|
|
|
ITEMP5 ERASE
|
|
NEWLOC EQUALS ITEMP5
|
|
|
|
ITEMP6 ERASE
|
|
NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS.
|
|
|
|
SETLOC 67
|
|
NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING.
|
|
|
|
RUPTREG1 ERASE
|
|
RUPTREG2 ERASE
|
|
RUPTREG3 ERASE
|
|
RUPTREG4 ERASE
|
|
KEYTEMP1 EQUALS RUPTREG4
|
|
DSRUPTEM EQUALS RUPTREG4
|
|
|
|
# FLAGWORD RESERVATIONS. (16D)
|
|
|
|
STATE ERASE +15D # +15D FLAGWORD REGISTERS
|
|
|
|
# P25 RADAR STORAGE. (MAY BE UNSHARED IN E7) (TEMP OVERLAY) (2D) OVERLAYS FLGWRD 14 & 15
|
|
# Page 96
|
|
LASTYCMD EQUALS STATE +14D # B(1)PRM THESE ARE CALLED BY T4RUPT
|
|
LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS, Y FIRST
|
|
|
|
# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS (32D) (INTB15+ THROUGH RUPTMXTM)
|
|
INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
|
|
DSEXIT = INTB15+ # RETURN FOR DSPIN
|
|
EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
|
|
BLANKRET = INTB15+ # RETURN FOR 2BLANK
|
|
|
|
INTBIT15 ERASE # SIMILAR TO ABOVE.
|
|
WRDRET = INTBIT15 # RETURN FOR 5BLANK
|
|
WDRET = INTBIT15 # RETURN FOR DSPWD
|
|
DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
|
|
21/22REG = INTBIT15 # TEMP FOR CHARIN
|
|
|
|
# THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
|
|
|
|
ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
|
|
POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
|
|
UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
|
|
CHAR = POLISH # TEMP FOR CHARIN
|
|
ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
|
|
DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
|
|
|
|
FIXLOC ERASE # WORK AREA ADDRESS.
|
|
OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
|
|
|
|
VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
|
|
SGNON = VBUF # TEMP FOR +,- ON
|
|
NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
|
|
DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERB
|
|
DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
|
|
|
|
SGNOFF = VBUF +1 # TEMP FOR +,- ON
|
|
NVTEMP = VBUF +1 # TEMP FOR NVSUB
|
|
SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
|
|
HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS,MIN,SEC
|
|
# MUST = LOTEMIN-1.
|
|
|
|
CODE = VBUF +2 # FOR DSPIN
|
|
SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
|
|
LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS,MIN,SEC
|
|
# MUST = HITEMIN+1
|
|
|
|
MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
|
|
SIGNRET = VBUF +3 # RETURN FOR +,- ON
|
|
|
|
# ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5
|
|
|
|
BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
|
|
# Page 97
|
|
BUF2 ERASE +1
|
|
INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
|
|
SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
|
|
SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN THE SWITCH WORD
|
|
MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT
|
|
DMPNTEMP = MPTEMP # DMPSUB TEMPORARY
|
|
DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE
|
|
DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT
|
|
ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
|
|
ENTRET = DOTINC # EXIT FROM ENTER
|
|
|
|
DOTRET ERASE # RETURN FROM DOT SUBROUTINE
|
|
DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV.
|
|
ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH
|
|
WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
|
|
INREL = DOTRET # INPUT BUFFER SELECTION ( X,Y,Z, REG)
|
|
|
|
MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM
|
|
MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1.
|
|
POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
|
|
DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
|
|
MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
|
|
|
|
TEM1 ERASE # EXEC TEMP
|
|
POLYRET = TEM1
|
|
DSREL = TEM1 # REL ADDRESS FOR DSPIN
|
|
|
|
TEM2 ERASE # EXEC TEMP
|
|
DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
|
|
IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS (garbled)
|
|
|
|
TEM3 ERASE # EXEC TEMP
|
|
COUNT = TEM3 # FOR DSPIN
|
|
|
|
TEM4 ERASE # EXEC TEMP
|
|
LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
|
|
RELRET = TEM4 # RETURN FOR RELDSP
|
|
FREERET = TEM4 # RETURN FOR FREEDSP
|
|
DSPWDRET = TEM4 # RETURN FOR DSPSIGN
|
|
SEPSCRET = TEM4 # RETURN FOR SEPSEC
|
|
SEPMNRET = TEM4 # RETURN FOR SEPMIN
|
|
|
|
TEM5 ERASE # EXEC TEMP
|
|
NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
|
|
|
|
NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
|
|
NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
|
|
IDAD1TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
|
|
# MUST = IDAD2TEM-1, = IDAD3TEM-2
|
|
IDAD2TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
|
|
# Page 98
|
|
# MUST = IDAD1TEM+1, = IDAD3TEM-1.
|
|
IDAD3TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
|
|
# MUST = IDAD1TEM+2, = IDAD2TEM+1.
|
|
RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
|
|
|
|
# AX*SR*T STORAGE. (6D)
|
|
DEXDEX EQUALS TEM2 # B(1)TMP
|
|
DEX1 EQUALS TEM3 # B(1)TMP
|
|
DEX2 EQUALS TEM4 # B(1)TMP
|
|
RTNSAVER EQUALS TEM5 # B(1)TMP
|
|
TERM1TMP EQUALS MPAC +3 # B(2)TMP
|
|
|
|
DEXI = DEX1
|
|
|
|
# THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
|
|
# SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY).
|
|
# DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
|
|
|
|
DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER
|
|
DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER
|
|
DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER
|
|
DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER
|
|
DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER
|
|
DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER
|
|
DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER
|
|
DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER
|
|
DERCOFN = MPAC -2 # ROOTPSRS DER COF N, HI ORDER
|
|
DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N, LO ORDER
|
|
|
|
PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER
|
|
DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI
|
|
DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LOW
|
|
ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER
|
|
ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER
|
|
RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER
|
|
PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER
|
|
DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER
|
|
|
|
# Page 99
|
|
# DYNAMICALLY ALLOCATED CORE SETS FOR JOBS (84D)
|
|
|
|
MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
|
|
MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
|
|
LOC ERASE # LOCATION ASSOCIATED WITH JOB.
|
|
BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
|
|
PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
|
|
PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
|
|
|
|
ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
|
|
|
|
# INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
|
|
|
|
R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V
|
|
|
|
# STANDBY VERB ERASABLES. REDOCTR BEFORE THETADS. (14D)
|
|
|
|
TIME2SAV ERASE +1
|
|
SCALSAVE ERASE +1
|
|
REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS
|
|
THETAD ERASE +2
|
|
CPHI = THETAD # O DESIRED GIMBAL ANGLES
|
|
CTHETA = THETAD +1 # I FOR
|
|
CPSI = THETAD +2 # M MANEUVER
|
|
DELV ERASE +5
|
|
DELVX = DELV
|
|
DELVY = DELV +2
|
|
DELVZ = DELV +4
|
|
|
|
|
|
# DOWNLINK STORAGE. (28D)
|
|
|
|
DNLSTADR EQUALS DNLSTCOD
|
|
|
|
DNLSTCOD ERASE # B(1)PRM DOWNLINK LIST CODE
|
|
DUMPCNT ERASE # B(1)
|
|
LDATALST ERASE +25D # (26D)
|
|
DNTMGOTO EQUALS LDATALST +1 # B(1)
|
|
TMINDEX EQUALS DNTMGOTO +1 # B(1)
|
|
DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMPED
|
|
# AND COUNT OF COMPLETE DUMPS ALREADY
|
|
# SENT.
|
|
DNQ EQUALS TMINDEX +1 # B(1)
|
|
DNTMBUFF EQUALS DNQ +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER
|
|
|
|
# UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) FIVE MORE IN EBANK 2.
|
|
|
|
# Page 100
|
|
RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS
|
|
NVWORD ERASE
|
|
MARKNV ERASE
|
|
NVSAVE ERASE
|
|
# (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
|
|
CADRFLSH ERASE
|
|
CADRMARK ERASE
|
|
TEMPFLSH ERASE
|
|
FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS
|
|
|
|
# VAC AREAS. -- BE CAREFUL OF PLACEMENT -- (220D)
|
|
|
|
VAC1USE ERASE
|
|
VAC1 ERASE +42D
|
|
VAC2USE ERASE
|
|
VAC2 ERASE +42D
|
|
VAC3USE ERASE
|
|
VAC3 ERASE +42D
|
|
VAC4USE ERASE
|
|
VAC4 ERASE +42D
|
|
VAC5USE ERASE
|
|
VAC5 ERASE +42D
|
|
|
|
# WAITLIST REPEAT FLAG. (1D)
|
|
RUPTAGN ERASE
|
|
KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
|
|
|
|
# STARALIGN ERASABLES. (13D)
|
|
|
|
STARCODE ERASE # (1)
|
|
AOTCODE = STARCODE
|
|
STARALGN ERASE +11D
|
|
SINCDU = STARALGN
|
|
COSCDU = STARALGN +6
|
|
|
|
SINCDUX = SINCDU +4
|
|
SINCDUY = SINCDU
|
|
SINCDUZ = SINCDU +2
|
|
COSCDUX = COSCDU +4
|
|
COSCDUY = COSCDU
|
|
COSCDUZ = COSCDU +2
|
|
|
|
# PHASE TABLE AND RESTART COUNTERS (12D)
|
|
|
|
-PHASE1 ERASE
|
|
|
|
# Page 101
|
|
PHASE1 ERASE
|
|
-PHASE2 ERASE
|
|
PHASE2 ERASE
|
|
-PHASE3 ERASE
|
|
PHASE3 ERASE
|
|
-PHASE4 ERASE
|
|
PHASE4 ERASE
|
|
-PHASE5 ERASE
|
|
PHASE5 ERASE
|
|
-PHASE6 ERASE
|
|
PHASE6 ERASE
|
|
|
|
# A**SR*T STORAGE. (6D)
|
|
|
|
CDUSPOT ERASE +5 # B(6)
|
|
|
|
CDUSPOTY = CDUSPOT
|
|
CDUSPOTZ = CDUSPOT +2
|
|
CDUSPOTX = CDUSPOT +4
|
|
|
|
# VERB 37 STORAGE (2D)
|
|
|
|
MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE
|
|
MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37
|
|
|
|
# PINBALL INTERRUPT ACTION (1D)
|
|
|
|
DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT
|
|
|
|
# PINBALL EXECUTIVE ACTION (44D)
|
|
|
|
DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
|
|
DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR
|
|
VERBREG ERASE # VERB CODE
|
|
NOUNREG ERASE # NOUN CODE
|
|
XREG ERASE # R1 INPUT BUFFER
|
|
YREG ERASE # R2 INPUT BUFFER
|
|
ZREG ERASE # R3 INPUT BUFFER
|
|
XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
|
|
YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
|
|
HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC
|
|
# MUST = LOTEMOUT-1.
|
|
ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
|
|
LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC
|
|
# MUST = HITEMOUT+1
|
|
MODREG ERASE # MODE CODE
|
|
|
|
# Page 102
|
|
DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
|
|
REQRET ERASE # RETURN REGISTER FOR LOAD
|
|
LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
|
|
CLPASS ERASE # PASS INDICATOR CLEAR
|
|
NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
|
|
NOUNCADR ERASE # MACHINE CADR FOR NOUN
|
|
MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
|
|
MONSAVE1 ERASE # NOUNCADR FOR MONITOR (MATBS1) = MONSAVE+1
|
|
MONSAVE2 ERASE # NVMONOPT OPTIONS
|
|
DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
|
|
NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
|
|
# MUST = NVBNKTEM-1.
|
|
NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
|
|
# MUST = NVQTEM+1
|
|
VERBSAVE ERASE # NEEDED FOR RECYCLE
|
|
CADRSTOR ERASE # ENDIDLE STORAGE
|
|
DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE
|
|
EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
|
|
DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
|
|
DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
|
|
|
|
DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
|
|
NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS.
|
|
|
|
# DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) ) (2D)
|
|
|
|
OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE
|
|
|
|
# TBASES AND PHSPRDT S. (12D)
|
|
|
|
TBASE1 ERASE
|
|
PHSPRDT1 ERASE
|
|
TBASE2 ERASE
|
|
PHSPRDT2 ERASE
|
|
TBASE3 ERASE
|
|
PHSPRDT3 ERASE
|
|
TBASE4 ERASE
|
|
PHSPRDT4 ERASE
|
|
TBASE5 ERASE
|
|
PHSPRDT5 ERASE
|
|
TBASE6 ERASE
|
|
PHSPRDT6 ERASE
|
|
|
|
# UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D)
|
|
|
|
# Page 103
|
|
NVWORD1 ERASE # B(1) PROBABLY FOR DISPLAY DURING SERVICER
|
|
EBANKSAV ERASE
|
|
MARKEBAN ERASE
|
|
EBANKTEM ERASE
|
|
MARK2PAC ERASE
|
|
R1SAVE ERASE
|
|
|
|
# IMU COMPENSATION UNSWITCHED ERASABLE. (1D)
|
|
|
|
1/PIPADT ERASE
|
|
|
|
# SINGLE PRECISION SUBROUTINE TEMPORARIES (2D)
|
|
|
|
TEMK ERASE # (1)
|
|
SQ ERASE # (1)
|
|
|
|
# UNSWITCHED RADAR ERASABLE
|
|
|
|
SAMPLIM ERASE
|
|
SAMPLSUM ERASE +3
|
|
TIMEHOLD ERASE +1
|
|
RRTARGET EQUALS SAMPLSUM # HALF U IT VECTOR IN SM OR NB AXES.
|
|
TANG ERASE +1 # DESIRE TRUNNION AND SHAFT ANGLES.
|
|
MODEA EQUALS TANG
|
|
MODEB ERASE +1 # DODES LOBBERS TANG +2.
|
|
NSAMP EQUALS MODEB
|
|
DESRET ERASE
|
|
OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES.
|
|
DESCOUNT ERASE
|
|
|
|
# ****** P22 ****** (6D)
|
|
|
|
RSUBC EQUALS RRTARGET # I(6) S-S CSM POSITION VECTOR.
|
|
|
|
# Page 104
|
|
# UNSWITCHED FOR ORBIT INTEGRATION (21D)
|
|
|
|
TDEC ERASE +20D # I(2)
|
|
COLREG EQUALS TDEC +2 # I(1)
|
|
LAT EQUALS COLREG +1 # I(2)
|
|
LONG EQUALS LAT +2 # I(2)
|
|
ALT EQUALS LONG +2 # I(2)
|
|
YV EQUALS ALT +2 # I(6)
|
|
ZV EQUALS YV +6 # I(6)
|
|
|
|
# MISCELLANEOUS UNSWITCHED. (20D)
|
|
|
|
P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM)
|
|
GENRET ERASE # B(1) R61 RETURN CADR.
|
|
OPTION1 ERASE # B(1) NOUN 06 USES THIS
|
|
OPTION2 ERASE # B(1) NOUN 06 USES THIS
|
|
OPTION3 ERASE # B(1) NOUN 06 USES THIS
|
|
LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
|
|
LONGBASE ERASE +1
|
|
LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
|
|
CDUTEMPX ERASE # B(1)TMP
|
|
CDUTEMPY ERASE # B(1)TMP
|
|
CDUTEMPZ ERASE # B(1)TMP
|
|
PIPATMPX ERASE # B(1)TMP
|
|
PIPATMPY ERASE # B(1)TMP
|
|
PIPATMPZ ERASE # B(1)TMP
|
|
|
|
DISPDEX ERASE # B(1)
|
|
TEMPR60 ERASE # B(1)
|
|
PRIOTIME ERASE # B(1)
|
|
|
|
# P27 (UPDATE PROGRAM) STORAGE (26D)
|
|
|
|
UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED.
|
|
UPTEMP ERASE +24D # B(1)TMP SCRATCH
|
|
INTWAK1Q EQUALS UPTEMP # (BORROWS UPTEMP REGISTERS)
|
|
# RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
|
|
COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
|
|
UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTD PROGRAM MM
|
|
UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER
|
|
UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX
|
|
UPBUFF EQUALS UPCOUNT +1 # B(20D)
|
|
|
|
# SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D)
|
|
|
|
EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST.
|
|
|
|
# Page 105
|
|
# PERM STATE VECTORS FOR BOOST AND DOWNLINK -- WHOLE MISSION -- (14D)
|
|
|
|
RN ERASE +5 # B(6)PRM
|
|
VN ERASE +5 # B(6)PRM
|
|
PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2)
|
|
|
|
# SERVICER -- MUST FOLLOW PIPTIME -- (19D)
|
|
|
|
GDT/2 ERASE +19D # B(6)TMP ** MUST FOLLOW PIPTIME **
|
|
MASS EQUALS GDT/2 +6 # B(2)
|
|
WEIGHT/G = MASS
|
|
ABDELV EQUALS MASS +2 # (KALCMANU STORAGE)
|
|
PGUIDE EQUALS ABDELV +1 # (2)
|
|
DVTHRUSH EQUALS PGUIDE +2 # (1)
|
|
AVEGEXIT EQUALS DVTHRUSH +1 # (2)
|
|
AVGEXIT = AVEGEXIT
|
|
TEMX EQUALS AVEGEXIT +2 # (1)
|
|
TEMY EQUALS TEMX +1 # (1)
|
|
TEMZ EQUALS TEMY +1 # (1)
|
|
PIPAGE EQUALS TEMZ +1 # B(1)
|
|
OUTROUTE EQUALS PIPAGE +1 # B(1)
|
|
|
|
# PERMANENT LEM DAP STORAGE (12D)
|
|
|
|
CH5MASK ERASE # B(1)PRM
|
|
CH6MASK ERASE # B(1)PRM JET FAILURE MASK.
|
|
DTHETASM ERASE +5 # (6)
|
|
SPNDX ERASE # B(1)
|
|
RCSFLAGS ERASE # AUTOPILOT FLAG WORD
|
|
# BIT ASSIGNMENTS:
|
|
# 1) ALTERYZ SWITCH (ZEROOR1)
|
|
# 2) NEEDLER SWITCH
|
|
# 3) NEEDLER SWITCH
|
|
# 4) NEEDLER SWITCH
|
|
# 5) NEEDLER SWITCH
|
|
# 9) JUST-IN-DETENT SWITCH
|
|
# 10) PBIT -- MANUAL CONTROL SWITCH
|
|
# 11) QRBIT -- MANUAL CONTROL SWITCH
|
|
# 12) PSKIP CONTROL (PJUMPADR)
|
|
# 13) 1/ACCJOB CONTROL (ACCSET)
|
|
T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
|
|
# BBCON OF NEXT LM DAP T5RUPT. 2CADR
|
|
|
|
# ERASABLES FOR P64: OVERLAY OF DTHETASM, WHICH IS UNUSED (4D)
|
|
ZERLINA EQUALS DTHETASM # B(1) P64
|
|
|
|
# Page 106
|
|
ELVIRA EQUALS ZERLINA +1 # B(1) P64
|
|
AZINCR1 EQUALS ELVIRA +1 # B(1) P64
|
|
ELINCR1 EQUALS AZINCR1 +1 # B(1) P64
|
|
|
|
# RCS FAILURE MONITOR STORAGE (1)
|
|
|
|
PVALVEST ERASE # B(1)PRM
|
|
|
|
# KALCMANU/DAP INTERFACE (3D)
|
|
|
|
DELPEROR ERASE # B(1)PRM COMMAND LAGS.
|
|
DELQEROR ERASE # B(1)PRM
|
|
DELREROR ERASE # B(1)PRM
|
|
|
|
# MODE SWITCHING ERASABLE. (9D)
|
|
|
|
# RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES
|
|
IMODES30 ERASE # B(1)
|
|
IMODES33 ERASE
|
|
MODECADR ERASE +2 # B(3)PRM
|
|
IMUCADR EQUALS MODECADR
|
|
OPTCADR EQUALS MODECADR +1
|
|
RADCADR EQUALS MODECADR +2
|
|
ATTCADR ERASE +2 # B(3)PRM
|
|
ATTPRIO = ATTCADR +2
|
|
MARKSTAT ERASE
|
|
|
|
# T4RUPT ERASABLE (2D)
|
|
|
|
DSRUPTSW ERASE
|
|
LGYRO ERASE # (1)
|
|
|
|
# RENDEZVOUS RADAR TASK STORAGE (3D)
|
|
|
|
RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12
|
|
RDES EQUALS RRRET +1 # B(1)TMP
|
|
RRINDEX EQUALS RDES +1 # B(1)TMP
|
|
|
|
# MEASINC (4D)
|
|
|
|
WIXA ERASE # B(1)
|
|
WIXB ERASE # B(1)
|
|
ZIXA ERASE # B(1)
|
|
ZIXB ERASE # B(1)
|
|
|
|
# Page 107
|
|
|
|
# AGS DUMMY ID WORD. (1D)
|
|
|
|
AGSWORD ERASE
|
|
|
|
# SOME MISCELLANEOUS UNSWITCHED. (6D)
|
|
|
|
RATEINDX ERASE # (1) USED BY KALCMANU
|
|
DELAYLOC ERASE +2
|
|
LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS. (1) EACH
|
|
CSMMASS ERASE
|
|
|
|
# LESS IS MORE.
|
|
|
|
# RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D)
|
|
#
|
|
# (NORMALLY USED DURING P20, BUT MAY ALSO)
|
|
# (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
|
|
#
|
|
# (PLEASE KEEP IN THIS ORDER)
|
|
|
|
DNRRANGE ERASE +6 # B(1)TMP
|
|
DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP
|
|
DNINDEX EQUALS DNRRDOT +1 # B(1)TMP
|
|
DNLRVELX EQUALS DNINDEX +1 # B(1)TMP
|
|
DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP
|
|
DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP
|
|
DNLRALT EQUALS DNLRVELZ +1 # B(1)TMP
|
|
|
|
# INCORPORATION UNSWITCHED (2D)
|
|
|
|
W.IND EQUALS PIPAGE # B(1)
|
|
W.INDI EQUALS W.IND +1 # I(1)
|
|
|
|
# SUBROUTINE BALLANGS OF R60.
|
|
|
|
BALLEXIT ERASE # B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT
|
|
|
|
# SOME LEM DAP STORAGE. (4D)
|
|
|
|
DAPDATR1 ERASE # B(1)DSP DAP CONFIG.
|
|
TEVENT ERASE +1 # B(2)DSP
|
|
DB ERASE # B(1)TMP DEAD BAND.
|
|
|
|
# NOUN 87 (2D)
|
|
AZ ERASE +1D # B(1) AZ AND EL MUST BE CONTIGUOUS
|
|
|
|
# Page 108
|
|
EL EQUALS AZ +1D # B(1)
|
|
|
|
# P63, P64, P65, P66, AND P67. (1D)
|
|
|
|
WCHPHASE ERASE # B(1)
|
|
|
|
# ERASABLES FOR THE R2 LUNAR POTENTIAL MODEL (2D)
|
|
|
|
E3J22R2M ERASE # I(1)
|
|
E32C31RM ERASE # I(1)
|
|
|
|
|
|
RADSKAL ERASE +1 # LR ALT DOPPLER BIAS: 2T/LAMBDA SCALED
|
|
# AT 1/(2(7) M/CS)
|
|
SKALSKAL ERASE # LR ALT SCALE FACTOR RATIO: .2 NOM
|
|
|
|
END-UE EQUALS # NEXT UNUSED UE ADDRESS
|
|
|
|
# SELF-CHECK ASSIGNMENTS (17D)
|
|
|
|
SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED ***
|
|
SFAIL EQUALS SELFERAS # B(1)
|
|
ERESTORE EQUALS SFAIL +1 # B(1)
|
|
SELFRET EQUALS ERESTORE +1 # B(1) RETURN
|
|
SMODE EQUALS SELFRET +1 # B(1)
|
|
ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
|
|
ERCOUNT EQUALS ALMCADR +2 # B(1)
|
|
SCOUNT EQUALS ERCOUNT +1 # B(3)
|
|
SKEEP1 EQUALS SCOUNT +3 # B(1)
|
|
SKEEP2 EQUALS SKEEP1 +1 # B(1)
|
|
SKEEP3 EQUALS SKEEP2 +1 # B(1)
|
|
SKEEP4 EQUALS SKEEP3 +1 # B(1)
|
|
SKEEP5 EQUALS SKEEP4 +1 # B(1)
|
|
SKEEP6 EQUALS SKEEP5 +1 # B(1)
|
|
SKEEP7 EQUALS SKEEP6 +1 # B(1)
|
|
# Page 109
|
|
# EBANK-3 ASSIGNMENTS
|
|
|
|
SETLOC 1400
|
|
|
|
# WAITLIST TASK LISTS. (26D)
|
|
|
|
LST1 ERASE +7 # B(8D)PRM DELTA T'S.
|
|
LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES.
|
|
|
|
# RESTART STORAGE. (2D)
|
|
|
|
RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS
|
|
|
|
# MORE LONGCALL STORAGE. (MUST BE IN LST1'S BANK. (2D)
|
|
|
|
LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED.
|
|
|
|
# PHASE-CHANGE LISTS PART II. (12D)
|
|
|
|
|
|
PHSNAME1 ERASE # B(1)PRM
|
|
PHSBB1 ERASE # B(1)PRM
|
|
PHSNAME2 ERASE # B(1)PRM
|
|
PHSBB2 ERASE # B(1)PRM
|
|
PHSNAME3 ERASE # B(1)PRM
|
|
PHSBB3 ERASE # B(1)PRM
|
|
PHSNAME4 ERASE # B(1)PRM
|
|
PHSBB4 ERASE # B(1)PRM
|
|
PHSNAME5 ERASE # B(1)PRM
|
|
PHSBB5 ERASE # B(1)PRM
|
|
PHSNAME6 ERASE # B(1)PRM
|
|
PHSBB6 ERASE # B(1)PRM
|
|
|
|
# IMU COMPENSATION PARAMETERS (22D)
|
|
|
|
PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTOR TERMS
|
|
PIPABIAS = PBIASX # INTERMIXED.
|
|
PIPASCFX ERASE
|
|
PIPASCF = PIPASCFX
|
|
PBIASY ERASE
|
|
PIPASCFY ERASE
|
|
PBIASZ ERASE
|
|
PIPASCFZ ERASE
|
|
|
|
NBDX ERASE # GYRO BIAS DRIFT
|
|
NBDY ERASE
|
|
NBDZ ERASE
|
|
# Page 110
|
|
ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
|
|
ADIAY ERASE # INPUT AXIS
|
|
ADIAZ ERASE
|
|
|
|
ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
|
|
ADSRAY ERASE # SPIN REFERENCE AXIS
|
|
ADSRAZ ERASE
|
|
|
|
GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
|
|
|
|
COMMAND EQUALS GCOMP
|
|
CDUIND EQUALS GCOMP +3
|
|
|
|
GCOMPSW ERASE
|
|
|
|
# STATE VECTORS FOR ORBIT INTEGRATION. (44D)
|
|
|
|
# (DIFEQCNT THUR XKEP MUST BE IN THE SAME
|
|
# EBANK AS RRECTCSM, RRECTLEM ETC
|
|
# BECAUSE THE COPY-CYCLES (ATOPCSM,
|
|
# PTOACSM ETC) ARE EXECUTED IN BASIC.
|
|
# ALL OTHER REFERENCES TO THIS GROUP
|
|
# ARE BY INTERPRETIVE INSTRUCTIONS.)
|
|
#
|
|
|
|
DIFEQCNT ERASE +43D # B(1)
|
|
# (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
|
|
|
|
UPSVFLAG EQUALS DIFEQCNT +1 # B(1)
|
|
RRECT EQUALS UPSVFLAG +1 # B(6)
|
|
VRECT EQUALS RRECT +6 # B(6)
|
|
TET EQUALS VRECT +6 # B(2)
|
|
TDELTAV EQUALS TET +2 # B(6)
|
|
TNUV EQUALS TDELTAV +6 # B(6)
|
|
RCV EQUALS TNUV +6 # B(6)
|
|
VCV EQUALS RCV +6 # B(6)
|
|
TC EQUALS VCV +6 # B(2)
|
|
XKEP EQUALS TC +2 # B(2)
|
|
|
|
# PERMANENT STATE VECTORS AND TIMES.
|
|
|
|
# (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
|
|
|
|
# (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER)
|
|
|
|
RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES.
|
|
RRECTOTH = RRECTCSM
|
|
VRECTCSM ERASE +5 # B(6)PRM
|
|
# Page 111
|
|
TETCSM ERASE +1 # B(2)PRM
|
|
TETOTHER = TETCSM
|
|
DELTACSM ERASE +5 # B(6)PRM
|
|
NUVCSM ERASE +5 # B(6)PRM
|
|
RCVCSM ERASE +5 # B(6)PRM
|
|
VCVCSM ERASE +5 # B(6)PRM
|
|
TCCSM ERASE +1 # B(2)PRM
|
|
XKEPCSM ERASE +1 # B(2)PRM
|
|
|
|
# (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER)
|
|
|
|
RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES
|
|
RRECTHIS = RRECTLEM
|
|
VRECTLEM ERASE +5 # B(6)PRM
|
|
TETLEM ERASE +1 # B(2)PRM
|
|
TETTHIS = TETLEM
|
|
DELTALEM ERASE +5 # B(6)PRM
|
|
NUVLEM ERASE +5 # B(6)PRM
|
|
RCVLEM ERASE +5 # B(6)PRM
|
|
VCVLEM ERASE +5 # B(6)PRM
|
|
TCLEM ERASE +1 # B(2)PRM
|
|
XKEPLEM ERASE +1 # B(2)PRM
|
|
|
|
X789 ERASE +5
|
|
TEPHEM ERASE +2
|
|
AZO ERASE +1
|
|
-AYO ERASE +1
|
|
AXO ERASE +1
|
|
|
|
# STATE VECTORS FOR DOWNLINK (12D)
|
|
|
|
R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
|
|
V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
|
|
|
|
T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK
|
|
|
|
# REFSMMAT. (18D)
|
|
|
|
REFSMMAT ERASE +17D # I(18D)PRM
|
|
|
|
# ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D)
|
|
|
|
ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
|
|
# VEHICLE AT TPI TIG AND TARGET VECTOR.
|
|
|
|
# **** USED IN CONICSEX (PLAN INERT ORIENT) ****
|
|
# Page 112
|
|
TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION)
|
|
|
|
# LPS20.1 STORAGE -- ALL ARE PRM -- (9D)
|
|
|
|
LS21X ERASE # I(1)
|
|
LOSVEL ERASE +5 # I(6)
|
|
MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS. METERS B-29
|
|
|
|
# ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D)
|
|
VSUBC EQUALS LOSVEL # I(6) S-S CSM VELOCITY VECTOR
|
|
|
|
# PADLOADED ERASABLES FOR P20/P22 (6D)
|
|
|
|
RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE
|
|
RATEVAR ERASE +1 # I(2) RR RANGE RATE ERROR VARIANCE
|
|
RVARMIN ERASE # I(1) MINIMUM RANGE ERROR VARIANCE
|
|
VVARMIN ERASE # I(1) MINIMUM RANGE-RATE ERROR VARIANCE
|
|
|
|
# P32-P33 STORAGE (2D)
|
|
|
|
TCDH ERASE +1 # I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED)
|
|
|
|
END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 **
|
|
|
|
# Page 113
|
|
# EBANK-4 ASSIGNMENTS
|
|
|
|
SETLOC 2000
|
|
|
|
# E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
|
|
|
|
AMEMORY EQUALS
|
|
|
|
# P20 STORAGE. -- PAD LOADED -- (6D)
|
|
|
|
WRENDPOS ERASE # B(1)PL KM*2(-7)
|
|
WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11)
|
|
WSHAFT ERASE # B(1)PL KM*2(-7)
|
|
WTRUN ERASE # B(1)PL KM*2(-7)
|
|
RMAX ERASE # B(1)PL METERS*2(-19)
|
|
VMAX ERASE # B(1)PL M/CSEC*2(-7)
|
|
|
|
# LUNAR SURFACE NAVIGATION (2D)
|
|
|
|
WSURFPOS ERASE # B(1)PL
|
|
WSURFVEL ERASE # B(1)PL
|
|
|
|
# P22 STORAGE. -- PAD LOADED -- (2D)
|
|
|
|
SHAFTVAR ERASE # B(1)PL RAD SQ*2(12)
|
|
TRUNVAR ERASE # B(1)PL RAD SQ*2(10)
|
|
|
|
# CONISEX STORAGE. -- PAD LOADED --
|
|
|
|
504LM ERASE +5 # I(6) MOON LIBRATION VECTOR
|
|
|
|
# V47 (R47) AGS INITIALIZATION STORAGE. -- PAD LOADED -- (2D)
|
|
|
|
AGSK ERASE +1
|
|
|
|
# LUNAR LANDING STORAGE. -- PAD LOADED -- (6D)
|
|
|
|
RLS ERASE +5 # I(6) LANDING SITE VECTOR -- MOON REF
|
|
|
|
# INTEGRATION STORAGE. (102D)
|
|
|
|
PBODY ERASE +101D # I(1)
|
|
# Page 114
|
|
ALPHAV EQUALS PBODY +1 # I(6)
|
|
BETAV EQUALS ALPHAV +6 # I(6)
|
|
PHIV EQUALS BETAV +6 # I(6)
|
|
PSIV EQUALS PHIV +6 # I(6)
|
|
FV EQUALS PSIV +6 # I(6) PERTURBING ACCELERATIONS
|
|
ALPHAM EQUALS FV +6 # I(2)
|
|
BETAM EQUALS ALPHAM +2 # I(2)
|
|
TAU. EQUALS BETAM +2 # I(2)
|
|
DT/2 EQUALS TAU. +2 # I(2)
|
|
H EQUALS DT/2 +2 # I(2)
|
|
GMODE EQUALS H +2 # I(1)
|
|
IRETURN EQUALS GMODE +1 # I(1)
|
|
NORMGAM EQUALS IRETURN +1 # I(1)
|
|
RPQV EQUALS NORMGAM +1
|
|
ORIGEX EQUALS RPQV +6 # I(1)
|
|
KEPRTN EQUALS ORIGEX # I(1)
|
|
RQVV EQUALS ORIGEX +1 # I(6)
|
|
RPSV EQUALS RQVV +6 # I(6)
|
|
XKEPNEW EQUALS RPSV +6 # I(2)
|
|
VECTAB EQUALS XKEPNEW +2 # I(36D)
|
|
VECTABND EQUALS VECTAB +35D # END MARK
|
|
|
|
# THESE PROBABLY CAN SHARE MID-COURSE VARIABLES. (6D)
|
|
|
|
VACX EQUALS VECTAB +6 # I(2)
|
|
VACY EQUALS VACX +2 # I(2)
|
|
VACZ EQUALS VACY +2 # I(2)
|
|
|
|
# SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D)
|
|
|
|
XNBPIP EQUALS VECTAB +12D # I(6)
|
|
YNBPIP EQUALS XNBPIP +6 # I(6)
|
|
ZNBPIP EQUALS YNBPIP +6 # I(6)
|
|
|
|
# SOME VERB 82 STORAGE (4D)
|
|
|
|
HAPOX EQUALS RQVV +4 # I(2)
|
|
HPERX EQUALS HAPOX +2 # I(2)
|
|
|
|
# V82 STORAGE (6D)
|
|
|
|
VONE' EQUALS VECTAB +30D # I(T)TMP NORMAL VELOCITY VONE / SQRT. MU
|
|
|
|
# R32(V83) STORAGE. -- SHARES WITH INTEGRATION STORAGE -- (28D)
|
|
|
|
# Page 115
|
|
BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH
|
|
|
|
BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS
|
|
ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =2 FOR MOON
|
|
STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP
|
|
BASEOTV EQUALS RQVV +4 # I(6) BASE VEL VECTOR OTHER VEH
|
|
|
|
BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH
|
|
|
|
BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH
|
|
|
|
# KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D)
|
|
# CONICS)
|
|
|
|
EPSILONT ERASE +1 # I(2)
|
|
|
|
# VERB 83 STORAGE (18D)
|
|
|
|
RANGE ERASE +17D # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
|
|
RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH
|
|
RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54.
|
|
RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH)
|
|
VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH)
|
|
|
|
# VERB 67 STORAGE
|
|
|
|
WWPOS = RANGE # NOUN 99 (V67)
|
|
WWVEL = RRATE # NOUN 99 (V67)
|
|
WWBIAS = RTHETA # NOUN 99 (V67)
|
|
|
|
# V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (11D) TWO SEPARAT LOCATIONS
|
|
|
|
V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS.
|
|
TFF EQUALS V82FLAGS +1 # I(2)
|
|
-TPER EQUALS TFF +2 # I(2)
|
|
|
|
HPERMIN EQUALS RANGE # I(2) SET TO 300KFT FOR SR30.1
|
|
RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1
|
|
TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE VOR V82.
|
|
|
|
# VARIOUS DISPLAY REGISTERS (6D) NOUN 84; P76
|
|
# Page 116
|
|
DELVOV ERASE +5D # (6)
|
|
|
|
# ALIGNMENT PLANETARY -- INERTIAL TRANSFORMATION STORAGE. (18D)
|
|
|
|
# UNSHARED WHILE LM ON LUNAR SURFACE.
|
|
|
|
GSAV ERASE +17D # I(6)
|
|
YNBSAV EQUALS GSAV +6 # I(6)
|
|
ZNBSAV EQUALS YNBSAV +6 # I(6)
|
|
|
|
# KALCMANU STORAGE, CAN OVERLAY GSAV. (18D)
|
|
|
|
MFS EQUALS GSAV # I(18)
|
|
MFI EQUALS MFS # I
|
|
KEL EQUALS MFS # I(18)
|
|
E01 EQUALS MFS # I(6)
|
|
E02 EQUALS E01 +6 # I(6)
|
|
|
|
# LR VEL BEAM VECTORS. (26D)
|
|
|
|
# CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
|
|
|
|
VZBEAMNB EQUALS GSAV # I(6) LR VELOCITY BEAMS IN NB COORDS.
|
|
VYBEAMNB EQUALS VZBEAMNB +6 # I(6)
|
|
VXBEAMNB EQUALS VYBEAMNB +6 # I(6) PRESERVE Z,Y,X ORDER
|
|
|
|
LRVTIME = VXBEAMNB +6 # B(2) LR
|
|
LRXCDU = LRVTIME +2 # B(1) LR
|
|
LRYCDU = LRXCDU +1 # B(1) LR
|
|
LRZCDU = LRYCDU +1 # B(1) LR
|
|
PIPTEM = LRZCDU +1 # B(3) LR
|
|
|
|
# P32-P35, P72-P75 STORAGE. (40D)
|
|
|
|
T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH
|
|
T2TOT3 ERASE +1 # (2)
|
|
ELEV ERASE +1 # (2)
|
|
UP1 ERASE +5 # (6)
|
|
DELVEET1 ERASE +5 # I(6) DV CSI IN REF
|
|
DELVEET2 ERASE +5 # I(6) DV CSH IN REF
|
|
RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME
|
|
RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME
|
|
# Page 117
|
|
RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE
|
|
RTMU ERASE +1 # (2) MU STORAGE
|
|
|
|
# (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
|
|
|
|
+MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3
|
|
|
|
UNRM EQUALS UP1 # I(6) S-S
|
|
|
|
DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY, LOS COORD-DISPLAY
|
|
ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR
|
|
|
|
NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI-TIME FOR RECYCLE
|
|
|
|
# SOME P30 STORAGE. (4D)
|
|
|
|
HAPO EQUALS RTSR1/MU # I(2)
|
|
HPER EQUALS HAPO +2 # I(2)
|
|
|
|
|
|
# SOME P38-P39,P78-79 STORAGE # (6D)
|
|
|
|
DELTAR EQUALS DVLOS # I(2)
|
|
DELTTIME EQUALS DELTAR +2 # I(2) TIME REPRESENTATION OF DELTAR
|
|
TARGTIME EQUALS DELTTIME +2 # I(2) TINT MINUS DELTTIME
|
|
|
|
TINTSOI EQUALS DELTAR # I(2) TIME OF INTERCEPT FOR SOI PHASE
|
|
|
|
# THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
|
|
|
|
TRANSM1 = WRENDPOS # E4,1400
|
|
ALFDK = TRANSM1 +18D
|
|
|
|
# ****** THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE ******
|
|
|
|
# V47 (R47) AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D)
|
|
|
|
AGSBUFF EQUALS RANGE # B(14D)
|
|
AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK
|
|
# Page 118
|
|
|
|
# R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D)
|
|
|
|
RPASS36 EQUALS RONE # I(6) S-S
|
|
UNP36 EQUALS RPASS36 +6 # I(6) S-S
|
|
|
|
# S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (V64). (OVERLAYS V83) (10D)
|
|
# (OPERATES DURING P00 ONLY)
|
|
ALPHASB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE.
|
|
BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE.
|
|
RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR.
|
|
|
|
# **** USED IN S-BAND ANTENNA FOR LM ****
|
|
|
|
YAWANG EQUALS BETASB
|
|
PITCHANG EQUALS ALPHASB
|
|
|
|
# NOUN 56 DATA -- COMPUTED AND DISPLAYED BY VERB 85.
|
|
|
|
RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE
|
|
RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE
|
|
|
|
# R04 (V62) RADAR TEST STORAGE.
|
|
# R04 IS RESTRICTED TO P00.
|
|
|
|
RSTACK EQUALS RANGE # B(8) BUFFER FOR R04 NOUNS.
|
|
|
|
# INITVEL STORAGE. ALSO USED BY P31, P34, P35, P74, P75, P10, P11, MIDGIM, S40.1 AND S40.9. (18D)
|
|
|
|
# (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
|
|
|
|
RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION
|
|
VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY
|
|
VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
|
|
|
|
# VARIOUS DISPLAY REGISTERS. BALLANGS (3D)
|
|
|
|
FDAIX ERASE # I(1)
|
|
FDAIY ERASE # I(1)
|
|
FDAIZ ERASE # I(1)
|
|
|
|
# P34-P35 STORAGE. DOWNLINKED. (2D)
|
|
|
|
DELVTPF ERASE +1 # I(2) DELTA V FOR TPF
|
|
|
|
# SOME R04(V63)-R77 RADAR TEST STORAGE. (6D)
|
|
# Page 119
|
|
RTSTDEX ERASE # (1)
|
|
RTSTMAX ERASE # (1)
|
|
RTSTBASE ERASE # (1)
|
|
RTSTLOC ERASE # (1)
|
|
RSTKLOC = RTSTLOC
|
|
RSAMPDT ERASE # (1)
|
|
RFAILCNT ERASE # (1)
|
|
|
|
# LPS20.1 STORAGE. (12D)
|
|
|
|
LMPOS EQUALS RTSTDEX # I(6)TMP STORAGE FOR LM POS. VECTOR.
|
|
LMVEL EQUALS LMPOS +6 # I(6)TMP STORAGE FOR LM VEL. VECTOR.
|
|
|
|
# INITVEL STORAGE. ALSU USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED. (6D)
|
|
|
|
DELVEET3 EQUALS LMVEL +6 # I(6) DELTA V IN INERTIAL COORDINATES
|
|
|
|
|
|
END-E4 EQUALS # FIRST UNUSED LOCATION IN E4
|
|
|
|
# SECOND DPS GUIDANCE (LUNAR LANDING) (OVERLAY P32-35, INITVEL) (14D)
|
|
|
|
VHORIZ EQUALS PIPTEM +3 # I(2) DISPLAY
|
|
ANGTERM EQUALS VHORIZ +2 # I(6) GUIDANCE
|
|
HBEAMNB EQUALS ANGTERM +6 # I(6) LANDING RADAR
|
|
|
|
# R12 DOWNLINK QUANTITIES (5D)
|
|
|
|
LRXCDUDL EQUALS /LAND/ +2 # B(1) LANDING RADAR DOWNLINK
|
|
LRYCDUDL EQUALS LRXCDUDL +1 # B(1) LANDING RADAR DOWNLINK
|
|
LRZCDUDL EQUALS LRYCDUDL +1 # B(1) LANDING RADAR DOWNLINK
|
|
LRVTIMDL EQUALS LRZCDUDL +1 # B(2) LANDING RADAR DOWNLINK
|
|
|
|
# ASCENT GUIDANCE FOR LUNAR LANDING (54D)
|
|
|
|
AT EQUALS PIPTEM +3 # I(2)TMP ENGINE DATA -- THRUST ACC*2(9)
|
|
VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS.
|
|
TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS.
|
|
TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS.
|
|
RDOTD EQUALS TBUP +2 # I(2)TMP TARGET VELOCITY COMPONENTS
|
|
YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS.
|
|
ZDOTD EQUALS YDOTD +2 # I(2)TMP
|
|
|
|
/R/MAG EQUALS ZDOTD +2 # I(2)TMP
|
|
LAXIS EQUALS /R/MAG +2 # I(6)TMP
|
|
# Page 120
|
|
ZAXIS1 = UHZP
|
|
RDOT = HDOTDISP
|
|
YDOT = LAXIS +6 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
|
|
ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL * 2(-7)
|
|
GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY
|
|
|
|
# THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
|
|
|
|
Y EQUALS /LAND/ +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M
|
|
DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT
|
|
DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT
|
|
DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT
|
|
PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION
|
|
YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION
|
|
PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION
|
|
YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION
|
|
ATY EQUALS YRATE +2 # I(2)TMP OUT-OF-PLANE THRUST COMP. *2(9)
|
|
ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP. * 2(9)
|
|
ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP
|
|
YAW EQUALS ATP +2 # I(2)TMP
|
|
PITCH EQUALS YAW +2 # I(2)TMP
|
|
|
|
# SERVICER FOR LUNAR ASCENT AND DESCENT (14D)
|
|
|
|
G(CSM) EQUALS GEFF +2 # I(6) FOR UPDATE OF COMMAND MODULE STATE
|
|
R(CSM) EQUALS R-OTHER # VECTORS BY LEM: ANALOGS OF GDT/2,
|
|
V(CSM) EQUALS V-OTHER # R, AND V, RESPECTIVELY OF THE CSM
|
|
WM EQUALS G(CSM) +6 # I(6)TMP -- LUNAR ROTATION VECTOR (SM)
|
|
/LAND/ EQUALS WM +6 # B(2) LUNAR RADIUS AT LANDING SITE
|
|
|
|
# Page 121
|
|
# EBANK-5 ASSIGNMENTS
|
|
|
|
SETLOC 2400
|
|
|
|
# W-MATRIX. ESSENTIALLY UNSHARABLE. (162D)
|
|
|
|
W ERASE +161D
|
|
ENDW EQUALS W +162D
|
|
|
|
# ******* OVERLAY NUMBER 1 IN EBANK 5 *******
|
|
|
|
# W-MATRIX PADLOADS (124D)
|
|
|
|
TLAND EQUALS W # I(2) NOMINAL TIME OF LANDING
|
|
RBRFG EQUALS TLAND +2 # I(6) BRAKING
|
|
VBRFG EQUALS RBRFG +6 # I(6) PHASE
|
|
ABRFG EQUALS VBRFG +6 # I(6) TARGET
|
|
VBRFG* EQUALS ABRFG +6 # I(2) PARAMETERS:
|
|
ABRFG* EQUALS VBRFG* +2 # I(2) HIGH
|
|
JBRFG* EQUALS ABRFG* +2 # I(2) GATE
|
|
GAINBRAK EQUALS JBRFG* +2 # B(2)
|
|
TCGFBRAK EQUALS GAINBRAK +2 # B(1)
|
|
TCGIBRAK EQUALS TCGFBRAK +1 # B(1)
|
|
RAPFG EQUALS TCGIBRAK +1 # I(6) APPROACH
|
|
VAPFG EQUALS RAPFG +6 # I(6) PHASE
|
|
AAPFG EQUALS VAPFG +6 # I(6) TARGET
|
|
VAPFG* EQUALS AAPFG +6 # I(2) PARAMETERS:
|
|
AAPFG* EQUALS VAPFG* +2 # I(2) LOW
|
|
JAPFG* EQUALS AAPFG* +2 # I(2) GATE
|
|
GAINAPPR EQUALS JAPFG* +2 # B(2)
|
|
TCGFAPPR EQUALS GAINAPPR +2 # B(1)
|
|
TCGIAPPR EQUALS TCGFAPPR +1 # B(1)
|
|
VIGN EQUALS TCGIAPPR +1 # I(2) DESIRED SPEED FOR IGNITION
|
|
RIGNX EQUALS VIGN +2 # I(2) DESIRED `ALTITUDE' FOR IGNITION
|
|
RIGNZ EQUALS RIGNX +2 # I(2) DESIRED GROUND RANGE FOR IGNITION
|
|
KIGNX/B4 EQUALS RIGNZ +2 # I(2)
|
|
KIGNY/B8 EQUALS KIGNX/B4 +2 # I(2)
|
|
KIGNV/B4 EQUALS KIGNY/B8 +2 # I(2)
|
|
LOWCRIT EQUALS KIGNV/B4 +2 # B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
|
|
HIGHCRIT EQUALS LOWCRIT +1 # B(1)
|
|
V2FG EQUALS HIGHCRIT +1 # I(6) DESIRED VELOCITY FOR P65.
|
|
TAUVERT EQUALS V2FG +6 # I(2) TIME CONSTANT FOR P65 VEL. NULLING.
|
|
DELQFIX EQUALS TAUVERT +2 # I(2) LR ALTITUDE DATA REASONABLE PARM.
|
|
LRALPHA EQUALS DELQFIX +2 # B(1) POS1 X ROTATION * MUST *
|
|
# Page 122
|
|
LRBETA1 EQUALS LRALPHA +1 # B(1) POS1 Y ROTATION * BE *
|
|
LRALPHA2 EQUALS LRBETA1 +1 # B(1) POS2 X ROTATION * IN *
|
|
LRBETA2 EQUALS LRALPHA2 +1 # B(1) POS2 Y ROTATION * ORDER*
|
|
LRVMAX EQUALS LRBETA2 +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRVF EQUALS LRVMAX +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVZ EQUALS LRVF +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVY EQUALS LRWVZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVX EQUALS LRWVY +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVFZ EQUALS LRWVX +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVFY EQUALS LRWVFZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVFX EQUALS LRWVFY +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
LRWVFF EQUALS LRWVFX +1 # B(1) LR VEL WEIGHTING FUNCTIONS
|
|
|
|
ABVEL* EQUALS BUF # B(1) LR TEMP
|
|
VSELECT* EQUALS BUF +1 # B(1) LR TEMP
|
|
|
|
RODSCALE EQUALS LRWVFF +1 # I(1) CLICK SCALE FACTOR FOR ROD
|
|
TAUROD EQUALS RODSCALE +1 # I(2) TIME CONSTANT FOR R.O.D.
|
|
LAG/TAU EQUALS TAUROD +2 # I(2) LAG TIME DIVIDED BY TAUROD (P66)
|
|
MINFORCE EQUALS LAG/TAU +2 # I(2) MINIMUM FORCE P66 WILL COMMAND
|
|
MAXFORCE EQUALS MINFORCE +2 # I(2) MAXIMUM FORCE P66 WILL COMMAND.
|
|
ABTCOF EQUALS MAXFORCE +2 # I(16) COEFFICIENTS FOR ABORT TFI POLYS.
|
|
VMIN EQUALS ABTCOF +16D # I(2) MINIMUM VELOCITY FOR ABORT INJ.
|
|
YLIM EQUALS VMIN +2 # I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS
|
|
ABTRDOT EQUALS YLIM +2 # I(2) DESIRED RADIAL VEL. FOR ABORTS.
|
|
COSTHET1 EQUALS ABTRDOT +2 # I(2) COS CONE 1 ANGLE FOR ABORTS.
|
|
COSTHET2 EQUALS COSTHET1 +2 # I(2) COS OF CONE 2 ANGLE FOR ABORTS.
|
|
|
|
# SOME VARIABLES FOR SECOND DPS GUIDANCE. (34D)
|
|
|
|
CG EQUALS COSTHET2 +2 # I(18D) GUIDANCE
|
|
RANGEDSP EQUALS CG +18D # B(2) DISPLAY
|
|
OUTOFPLN EQUALS RANGEDSP +2 # B(2) DISPLAY
|
|
R60VSAVE EQUALS OUTOFPLN +2 # I(6)TMP SAVES VALUE OF POINTVSM THRU R51
|
|
RGU EQUALS R60VSAVE +6 # I(6) UNSHARED FOR DOWNLINK
|
|
VBIAS EQUALS R60VSAVE # I(6) PIPA BIAS EQUIV. VELOCITY VECTOR.
|
|
L*WCR*T = BUF
|
|
H*GHCR*T = BUF +1
|
|
|
|
# ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (36D)
|
|
|
|
XSM EQUALS ENDW # B(6)
|
|
YSM EQUALS XSM +6 # B(6)
|
|
ZSM EQUALS YSM +6 # B(6)
|
|
|
|
XDC EQUALS ZSM +6 # B(6)
|
|
YDC EQUALS XDC +6 # B(6)
|
|
ZDC EQUALS YDC +6 # B(6)
|
|
# Page 123
|
|
XNB = XDC
|
|
YNB = YDC
|
|
ZNB = ZDC
|
|
|
|
# OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (4D)
|
|
|
|
-COSB EQUALS XSM +2 # (2)TMP
|
|
SINB EQUALS -COSB +2 # (2)TMP
|
|
|
|
# MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52) (6D)
|
|
|
|
LANDLAT EQUALS STARAD # (2) LATTITUDE, LONGITUDE
|
|
LANDLONG EQUALS LANDLAT +2 # (2) AND ALTITUDE
|
|
LANDALT EQUALS LANDLONG +2 # (2) OF LANDING SITE
|
|
|
|
# ALIGNMENT/SYSTEST COMMON STORAGE. (31D)
|
|
|
|
STARAD EQUALS ZDC +6 # I(18D)TMP
|
|
STAR EQUALS STARAD +18D # I(6)
|
|
GCTR EQUALS STAR +6 # B(1)
|
|
OGC EQUALS GCTR +1 # I(2)
|
|
IGC EQUALS OGC +2 # I(2)
|
|
MGC EQUALS IGC +2 # I(2)
|
|
|
|
# P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D)
|
|
|
|
GACC = STARAD # (6) SS
|
|
GOUT = STARAD +6 # (6) SS
|
|
|
|
# OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D)
|
|
|
|
VEARTH EQUALS STARAD # (6)TMP
|
|
VSUN EQUALS VEARTH +6 # (6)TMP
|
|
VMOON EQUALS VSUN +6 # (6)TMP
|
|
SAX EQUALS VMOON +6 # (6)TMP
|
|
|
|
# P50'S, R50'S Q STORES (2D)
|
|
|
|
QMIN EQUALS MGC +2 # B(1)TMP
|
|
QMAJ EQUALS QMIN +1 # B(1)TMP
|
|
|
|
# **** USED IN P50S **** (SCATTERED OVERLAYS)
|
|
|
|
XSCI EQUALS STARAD
|
|
YSCI EQUALS XSCI +6
|
|
# Page 124
|
|
ZSCI EQUALS YSCI
|
|
CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON
|
|
VEC1 EQUALS STARAD +12D
|
|
VEC2 EQUALS STAR
|
|
|
|
# ALIGNMENT STORAGE. (23D)
|
|
|
|
OGCT EQUALS QMAJ +1 # I(6)
|
|
BESTI EQUALS OGCT +6 # I(1)
|
|
BESTJ EQUALS BESTI +1
|
|
STARIND EQUALS BESTJ +1
|
|
# RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES
|
|
STARSAV1 EQUALS STARIND +1 # I(6)
|
|
STARSAV2 EQUALS STARSAV1 +6 # I(6)
|
|
TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED)
|
|
|
|
# P32-35 + SERVICER
|
|
|
|
RTX1 EQUALS TALIGN +2 # I(1) X1 -2 EARTH, -10 MOON
|
|
RTX2 EQUALS RTX1 +1 # I(1) X2 0 EARTH, 2 MOON
|
|
|
|
ZPRIME = 22D
|
|
PDA = 22D
|
|
COSTH = 16D
|
|
SINTH = 18D
|
|
THETA = 20D
|
|
STARM = 32D
|
|
|
|
# Page 125
|
|
# ******* OVERLAY NUMBER 2 IN EBANK 5 *******
|
|
|
|
# CONICS ROUTINE STORAGE. (85D)
|
|
|
|
DELX EQUALS ENDW # I(2)TMP
|
|
DELT EQUALS DELX +2 # I(2)TMP
|
|
URRECT EQUALS DELT +2 # I(6)TMP
|
|
RCNORM EQUALS 34D # I(2)TMP
|
|
XPREV EQUALS XKEP # I(2)TMP
|
|
R1VEC EQUALS URRECT +6 # I(6)TMP
|
|
R2VEC EQUALS R1VEC +6 # I(6)TMP
|
|
TDESIRED EQUALS R2VEC +6 # I(2)TMP
|
|
GEOMSGN EQUALS TDESIRED +2 # I(1)TMP
|
|
UN EQUALS GEOMSGN +1 # I(6)TMP
|
|
VTARGTAG EQUALS UN +6 # I(1)TMP
|
|
VTARGET EQUALS VTARGTAG +1 # I(6)TMP
|
|
RTNLAMB EQUALS VTARGET +6 # I(1)TMP
|
|
U2 EQUALS RTNLAMB +1 # I(6)TMP
|
|
MAGVEC2 EQUALS U2 +6 # I(2)TMP
|
|
UR1 EQUALS MAGVEC2 +2 # I(6)TMP
|
|
SNTH EQUALS UR1 +6 # I(2)TMP
|
|
CSTH EQUALS SNTH +2 # I(2)TMP
|
|
1-CSTH EQUALS CSTH +2 # I(2)TMP
|
|
CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP
|
|
P EQUALS CSTH-RHO +2 # I(2)TMP
|
|
R1A EQUALS P +2 # I(2)TMP
|
|
RVEC EQUALS R1VEC # I(6)TMP
|
|
VVEC EQUALS R1A +2 # I(6)TMP
|
|
RTNTT EQUALS RTNLAMB # I(1)TMP
|
|
ECC EQUALS VVEC +6 # I(2)TMP
|
|
RTNTR EQUALS RTNLAMB # I(1)TMP
|
|
RTNAPSE EQUALS RTNLAMB # I(1)TMP
|
|
R2 EQUALS MAGVEC2 # I(2)TMP
|
|
RTNPRM EQUALS ECC +2 # I(1)TMP
|
|
SGNRDOT EQUALS RTNPRM +1 # I(1)TMP
|
|
RDESIRED EQUALS SGNRDOT +1 # I(2)TMP
|
|
DELDEP EQUALS RDESIRED +2 # I(2)TMP
|
|
DEPREV EQUALS DELDEP +2 # I(2)TMP
|
|
TERRLAMB EQUALS DELDEP # I(2)TMP
|
|
TPREV EQUALS DEPREV # I(2)TMP
|
|
EPSILONL EQUALS DEPREV +2 # I(2)TMP
|
|
COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
|
|
INDEP EQUALS COGA # USED BY SUBROUTINE `ITERATOR'.
|
|
|
|
# Page 126
|
|
# ******* OVERLAY NUMBER 3 IN EBANK 5 *******
|
|
|
|
# INCORP STORAGE. (18D)
|
|
|
|
ZI EQUALS ENDW # I(18D)TMP
|
|
|
|
# INCORP/L SR22.3 STORAGE. (21D)
|
|
|
|
DELTAX EQUALS ZI +18D # I(18)
|
|
VARIANCE EQUALS DELTAX +18D # I(3)
|
|
|
|
# MEASUREMENT INCORPORATION -R22- STORAGE. (49D)
|
|
|
|
GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS
|
|
OMEGAM1 EQUALS GRP2SVQ +1 # I(6)
|
|
OMEGAM2 EQUALS OMEGAM1 +6 # I(6)
|
|
OMEGAM3 EQUALS OMEGAM2 +6 # I(6)
|
|
HOLDW EQUALS OMEGAM3 +6 # I(18)
|
|
TDPOS EQUALS HOLDW +18D # I(6)
|
|
TDVEL EQUALS TDPOS +6 # I(6)
|
|
|
|
TRIPA EQUALS DELTAX # I(3)TMP
|
|
TEMPVAR EQUALS TRIPA +3 # I(3)TMP
|
|
|
|
# INCORPORATION/INTEGRATION Q STORAGE. (1D)
|
|
|
|
EGRESS EQUALS TDVEL +6 # I(1)
|
|
|
|
# P30/P31 STORAGE. (1D) AND ONE OVERLAY
|
|
|
|
P30EXIT EQUALS EGRESS +1 # B(1)TMP
|
|
|
|
ORIGIN EQUALS P30EXIT # I(1)TMP INTEX DURING INITVEL.
|
|
|
|
# Page 127
|
|
# SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D)
|
|
|
|
# ******* OVERLAY NUMBER 0 IN EBANK 5 *******
|
|
|
|
AZIMUTH EQUALS W # 2
|
|
LATITUDE EQUALS AZIMUTH +2 # 2
|
|
ERVECTOR EQUALS LATITUDE +2 # 6
|
|
LENGTHOT EQUALS ERVECTOR +6 # 1
|
|
LOSVEC EQUALS LENGTHOT +1 # 6
|
|
NDXCTR EQUALS LOSVEC +1 # 1
|
|
PIPINDEX EQUALS NDXCTR +1 # 1
|
|
POSITON EQUALS PIPINDEX +1 # 1
|
|
QPLACE EQUALS POSITON +1 # 1
|
|
QPLACES EQUALS QPLACE +1 # 1
|
|
SOUTHDR EQUALS QPLACES +1 # 7
|
|
TEMPTIME EQUALS SOUTHDR +7 # 2
|
|
TMARK EQUALS TEMPTIME +2 # 2
|
|
GENPL EQUALS TMARK +2
|
|
CDUTIMEI = GENPL
|
|
CDUTIMEF = GENPL +2
|
|
CDUDANG = GENPL +4
|
|
CDUREADF = GENPL +5
|
|
CDUREADI = GENPL +6
|
|
CDULIMIT = GENPL +7
|
|
|
|
TEMPADD = GENPL +4
|
|
TEMP = GENPL +5
|
|
NOBITS = GENPL +6
|
|
CHAN = GENPL +7
|
|
|
|
LOS1 = GENPL +8D
|
|
LOS2 = GENPL +14D
|
|
|
|
CALCDIR EQUALS GENPL +20D
|
|
CDUFLAG EQUALS GENPL +21D
|
|
GYTOBETQ EQUALS GENPL +22D
|
|
OPTNREG EQUALS GENPL +23D
|
|
SAVE EQUALS GENPL +24D # THREE ONSEC LOC
|
|
SFCONST1 EQUALS GENPL +27D
|
|
TIMER EQUALS GENPL +28D
|
|
|
|
DATAPL EQUALS GENPL +30D
|
|
RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1
|
|
MASKREG EQUALS GENPL +64D
|
|
CDUNDX EQUALS GENPL +66D
|
|
RESULTCT EQUALS GENPL +67D
|
|
COUNTPL EQUALS GENPL +70D
|
|
|
|
CDUANG EQUALS GENPL +71D
|
|
# Page 128
|
|
AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS
|
|
|
|
WANGO EQUALS AINLA # VERT ERATE
|
|
WANGI EQUALS AINLA +2D # HORIZONTAL ERATE
|
|
WANGT EQUALS AINLA +4D # T
|
|
TORQNDX = WANGT
|
|
DRIFTT EQUALS AINLA +6D
|
|
ALX1S EQUALS AINLA +8D
|
|
CMPX1 EQUALS AINLA +9D # IND
|
|
ALK EQUALS AINLA +10D # GAINS
|
|
VLAUNS EQUALS AINLA +22D
|
|
WPLATO EQUALS AINLA +24D
|
|
INTY EQUALS AINLA +28D # SOUTH IP INTE
|
|
ANGZ EQUALS AINLA +30D # EAST A IS
|
|
INTZ EQUALS AINLA +32D # EAST P P I
|
|
ANGY EQUALS AINLA +34D # SOUTH
|
|
ANGX EQUALS AINLA +36D # VE
|
|
DRIFTO EQUALS AINLA +38D # VERT
|
|
DRIFTI EQUALS AINLA +40D # SOU
|
|
VLAUN EQUALS AINLA +44D
|
|
ACCWD EQUALS AINLA +46D
|
|
POSNV EQUALS AINLA +52D
|
|
DPIPAY EQUALS AINLA +54D # SOUTH
|
|
DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT
|
|
ALTIM EQUALS AINLA +60D
|
|
ALTIMS EQUALS AINLA +61D # INDEX
|
|
ALDK EQUALS AINLA +62D # TIME ONSTAN
|
|
DELM EQUALS AINLA +76D
|
|
WPLATI EQUALS AINLA +84D
|
|
GEOCOMPS EQUALS AINLA +86D
|
|
ERCOMP EQUALS AINLA +87D
|
|
ZERONDX EQUALS AINLA +93D
|
|
|
|
THETAN = ALK +4
|
|
FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE
|
|
INTVEC EQUALS FILDELV +2
|
|
1SECXT = AINLA +94D
|
|
ASECXT = AINLA +95D
|
|
PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE
|
|
OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST
|
|
|
|
END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 ***
|
|
|
|
# Page 129
|
|
# EBANK-6 ASSIGNMENTS.
|
|
|
|
SETLOC 3000
|
|
|
|
# DAP PAD-LOADED DATA. (10D)
|
|
|
|
# ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP.
|
|
|
|
HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG.
|
|
ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
|
|
PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
|
|
DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001
|
|
DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012
|
|
DKKAOSN ERASE # (1) METERS FOR THE 00074
|
|
LMTRAP ERASE # (1) DOCKED AND 77001
|
|
LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000
|
|
LMKAOSN ERASE # (1) RESPECTIVELY 00074
|
|
DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS
|
|
# AUTOPILOT (DB=1.4DEG IN FRESH START
|
|
# DEADBAND = PI/DKDB RAD.
|
|
|
|
# PADLOADS FOR INTITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION) (2D)
|
|
|
|
IGNAOSQ ERASE # B(1)PL
|
|
IGNAOSR ERASE # B(1)PL
|
|
|
|
# AXIS TRANSFORMATION MATRIX -- GIMBAL TO PILOT AXES: (5D)
|
|
|
|
M11 ERASE # SCALED AT 1
|
|
M21 ERASE # SCALED AT 1
|
|
M31 ERASE
|
|
M22 ERASE # SCALED AT 1.
|
|
M32 ERASE # SCALED AT 1.
|
|
|
|
# ANGLE MEASUREMENTS
|
|
|
|
OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND
|
|
OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8.
|
|
OMEGAR EQUALS OMEGAP +2
|
|
# RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
|
|
ALPHAQ EQUALS OMEGAP +3
|
|
ALPHAR EQUALS OMEGAP +4
|
|
OMEGAU ERASE +1
|
|
OMEGAV = OMEGAU +1
|
|
|
|
TRAPEDP ERASE +5
|
|
TRAPEDQ = TRAPEDP +1
|
|
TRAPEDR = TRAPEDP +2
|
|
NPTRAPS = TRAPEDP +3
|
|
# Page 130
|
|
NQTRAPS = TRAPEDP +4
|
|
NRTRAPS = TRAPEDP +5
|
|
EDOTP = EDOT
|
|
EDOTQ ERASE +1
|
|
EDOTR = EDOTQ +1 # MANY SHAREING NAMES
|
|
QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES:
|
|
RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0
|
|
|
|
URATEDIF EQUALS OMEGAU
|
|
VRATEDIF EQUALS OMEGAV
|
|
OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE
|
|
OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S)
|
|
OLDZFORQ EQUALS OLDXFORP +2
|
|
|
|
# RATE-COMMAND AND MINIMUM IMPULSE MODES
|
|
|
|
CH31TEMP ERASE
|
|
STIKSENS ERASE
|
|
TCP ERASE
|
|
DXERROR ERASE +5
|
|
DYERROR EQUALS DXERROR +2
|
|
DZERROR EQUALS DXERROR +4
|
|
PLAST ERASE
|
|
QLAST ERASE
|
|
RLAST ERASE
|
|
TCQR ERASE
|
|
|
|
# OTHER VARIABLES (5D)
|
|
|
|
OLDPMIN ERASE # THESE THREE USED IN MIN IMPUSE MODE
|
|
OLDQRMIN ERASE
|
|
TEMP31 EQUALS DAPTEMP1
|
|
|
|
SAVEHAND ERASE +1
|
|
PERROR ERASE
|
|
QERROR EQUALS DYERROR
|
|
RERROR EQUALS DZERROR
|
|
|
|
# JET STATE CHANGE VARIABLES -- TIME (TOFJTCHG), JET BITS WRITTEN NOW (10D)
|
|
# (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
|
|
|
|
NXT6ADR ERASE
|
|
T6NEXT ERASE +1
|
|
T6FURTHA ERASE +1
|
|
NEXTP ERASE +2
|
|
NEXTU = NEXTP +1
|
|
NEXTV = NEXTP +2
|
|
-2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
|
|
-RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT
|
|
|
|
TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT.
|
|
|
|
# ***Q,R AXIS ERASABLES *** (3)
|
|
# Page 131
|
|
PBIT EQUALS BIT10
|
|
QRBIT EQUALS BIT11
|
|
UERROR EQUALS DAPTREG5 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS.
|
|
VERROR = UERROR +1
|
|
RETJADR ERASE
|
|
TEMPNUM EQUALS DAPTEMP4
|
|
NUMBERT EQUALS DAPTEMP5
|
|
ROTINDEX EQUALS DAPTEMP6
|
|
ROTEMP1 EQUALS DAPTEMP1
|
|
ROTEMP2 EQUALS DAPTEMP2
|
|
POLYTEMP EQUALS DAPTEMP3
|
|
SENSETYP ERASE
|
|
ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME
|
|
ABSEDOTP EQUALS DAPTEMP1
|
|
|
|
DPSBURN EQUALS DAPTREG4 # USED WITH SNUFFBIT. VERY TEMPORARY.
|
|
|
|
# Page 132
|
|
# TRIM GIMBAL CONTROL LAW ERASABLES: (11D)
|
|
|
|
GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK.
|
|
SHFTFLAG EQUALS GTSTEMPS +2 # COUNT BITS FOR GTSQRT SHIFTING.
|
|
ININDEX EQUALS GTSTEMPS +5 # INDEX FOR SHIFT LOOP IN GTSQRT.
|
|
|
|
SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP -- GTS USES THEM ALL.
|
|
|
|
SCRATCH EQUALS GTSTEMPS +7 # ROOTCYCL ERASABLE.
|
|
HALFARG EQUALS GTSTEMPS +8D # ROOTCYCL ERASABLE.
|
|
|
|
K2THETA EQUALS GTSTEMPS # D,P., K*ERROR, NEGUSUM
|
|
KCENTRAL EQUALS GTSTEMPS +2 # S.P., K FROM KQ OR KRDAP, AT PI/2(8)
|
|
K2CNTRAL EQUALS GTSTEMPS +3 # D.P., GTS SCRATCH CELLS.
|
|
WCENTRAL EQUALS GTSTEMPS +4 # S.P., OMEGA, AT PI/4 RAD/SEC
|
|
ACENTRAL EQUALS GTSTEMPS +5 # S.P., ALPHA, AT PI/4 RAD/SEC(2)
|
|
DEL EQUALS GTSTEMPS +6 # S.P., SGN FUNCTION VALUE.
|
|
A2CNTRAL EQUALS GTSTEMPS +7 # D.P., GTS SCRATCH CELLS.
|
|
QRCNTR EQUALS GTSTEMPS +9D # S.P., INDEX FOR GTS LOOP THROUGH Q,R AXES
|
|
FUNCTION EQUALS GTSTEMPS +10D # D.P., ARGUMENT FOR GRSQRT, SCRATCH FOR GTS.
|
|
|
|
NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE.
|
|
EQUALS NEGUQ +1 # DEFINED AND USED ELSEWHERE.
|
|
NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE.
|
|
|
|
KQ ERASE +2 # S.P., JERK TERM FOR GTS, AT PI/2(8)
|
|
AXISCTR EQUALS KQ +1
|
|
KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8)
|
|
|
|
ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED
|
|
QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED
|
|
ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED
|
|
RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED
|
|
|
|
QDIFF EQUALS QERROR # ATTITUDE ERRORS:
|
|
RDIFF EQUALS RERROR # SCALED AT PI RADIANS.
|
|
|
|
# TORQUE VECTOR RECONSTRUCTION VARIABLES: (18D)
|
|
|
|
JETRATE EQUALS DAPTREG1
|
|
JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS.
|
|
JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND
|
|
|
|
DOWNTORK ERASE +5 # ACCUMULATED JET TORQUE COMMANDED ABOUT
|
|
POSTORKP EQUALS DOWNTORK # +,-p, +,-u, +,-v RESPECTIVELY.
|
|
NETTOTKP EQUALS DOWNTORK +1 # EMPLOYED EXCLUSIVELY FOR DOWNLIST.
|
|
POSTORKU EQUALS DOWNTORK +2 # NOT INITIALIZED: PERMITTED TO OVERFLOW.
|
|
# Page 133
|
|
NEGTORKU EQUALS DOWNTORK +3 # SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
|
|
POSTORKV EQUALS DOWNTORK +4 # MSEC. PER BIT.
|
|
NEGTORKV EQUALS DOWNTORK +5
|
|
|
|
NO.PJETS ERASE +2
|
|
NO.UJETS = NO.PJETS +1
|
|
NO.VJETS = NO.UJETS +1
|
|
TJP ERASE +2
|
|
TJU = TJP +1
|
|
TJV = TJP +2
|
|
|
|
L,PVT-CG ERASE
|
|
1JACC ERASE +4 # ACCELERATIONS DUE TO 1 JET TORQUING
|
|
1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND
|
|
1JACCR EQUALS 1JACC +2
|
|
1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DOFF:
|
|
1JACCV EQUALS 1JACC +4 # SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
|
|
|
|
# ASCENT VARIABLES (10D)
|
|
|
|
SKIPU ERASE +1
|
|
SKIPV = SKIPU +1
|
|
|
|
# THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
|
|
# SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
|
|
# SECTIONS AND ELSEWHERE.
|
|
|
|
AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
|
|
AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2.
|
|
AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR
|
|
AOSV EQUALS AOSQ +5 # ADDITION OF Q,R. AT PI/2 RAD/SEC(2).
|
|
|
|
AOSQTERM ERASE +1 # (.1-.05K)AOS
|
|
AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND.
|
|
|
|
# FOR TJET LAW SUBROUTINES: (TEMPS ONLY)
|
|
|
|
#NUMBERT EQUALS DAPTEMP5 # DEFINED IN QRAXIS.
|
|
EDOTSQ EQUALS DAPTEMP1
|
|
ROTSENSE EQUALS DAPTEMP2
|
|
FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS.
|
|
TTOAXIS EQUALS DAPTEMP4
|
|
ADRSDIF2 EQUALS DAPTEMP6
|
|
HOLDQ EQUALS DAPTREG1
|
|
ADRSDIF1 EQUALS DAPTREG2
|
|
HH EQUALS DAPTREG3 # DOUBLE PRECISION.
|
|
# HH +1 EQUALS DAPTREG4
|
|
E EQUALS DAPTREG6 # TIME SHARE WITH VERROR
|
|
EDOT EQUALS OMEGAV
|
|
|
|
# Page 134
|
|
# INPUT TO TJET LAW (PERMANENT ERASABLES). (48D)
|
|
|
|
TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1.
|
|
BLOCKTOP ERASE +47D
|
|
1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
|
|
1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
|
|
1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY
|
|
ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP
|
|
ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
|
|
FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
|
|
COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
|
|
AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
|
|
# IN BY THE FOLLOWING:
|
|
ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
|
|
ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
|
|
FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE.
|
|
ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC.)
|
|
|
|
COEFFQ ERASE +1 # COEFFQ AND COEFFR ARE USED IN ROT-TOUV
|
|
COEFFR EQUALS COEFFQ +1 # TO REXOLVE Q,R COMPONENTS INTO U,V COMP.
|
|
|
|
# VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4)
|
|
|
|
ALLOWGTS EQUALS NEGUQ +1 # INSERT INTO UNUSED LOCATION
|
|
COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE.
|
|
QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS.
|
|
INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL.
|
|
RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS.
|
|
|
|
# PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
|
|
|
|
# KALCMANU:DAP INTERFACE (9D)
|
|
|
|
CDUXD ERASE +2 # CDU DESIRED REGISTERS:
|
|
CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES)
|
|
CDUZD EQUALS CDUXD +2 # (STORE IN 2'S COMPLEMENT)
|
|
|
|
DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT:
|
|
DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES)
|
|
DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2'S COMPLEMENT)
|
|
|
|
# RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
|
|
|
|
OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES:
|
|
OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
|
|
OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND
|
|
|
|
# KALCMANU STORAGE. (24D)
|
|
|
|
MIS ERASE +23D # I(18D)
|
|
# Page 135
|
|
COF EQUALS MIS +18D # I(6)
|
|
|
|
# KALCMANU STORAGE. (33D)
|
|
BCDU ERASE +30D # B(3)
|
|
KSPNDX EQUALS BCDU +3 # B(1)
|
|
KDPNDX EQUALS KSPNDX +1 # B(1)
|
|
|
|
TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP
|
|
COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN THE SAME BANK AS RCS DAP
|
|
CAM EQUALS COFSKEW +6 # I(2) MUST BE IN THE SAME BANK AS RCS DAP
|
|
|
|
AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
|
|
|
|
# FIRST-ODER OVERLAYS IN KALCMANU (25D)
|
|
KV1 EQUALS TMIS # I(6)
|
|
MFISYM EQUALS TMIS # I
|
|
TMFI EQUALS TMIS # I
|
|
NCDU EQUALS TMIS # B
|
|
NEXTIME EQUALS TMIS +3 # B
|
|
TTEMP EQUALS TMIS +4 # B
|
|
KV2 EQUALS TMIS +6 # I(6)
|
|
BIASTEMP EQUALS TMIS +6 # B
|
|
KV3 EQUALS TMIS +12D # I(6)
|
|
OGF EQUALS TMIS +12D # I
|
|
|
|
BRATE EQUALS COFSKEW # B
|
|
IG EQUALS COFSKEW # I
|
|
|
|
TM EQUALS CAM # B
|
|
|
|
# SECOND-ORDER OVERLAYS IN KALCMANU (24D)
|
|
|
|
K1 = KV1
|
|
K2 = KV2
|
|
K3 = KV3
|
|
P21 EQUALS KV1 # I(2)
|
|
D21 EQUALS KV1 +2 # I(2)
|
|
G21 EQUALS KV1 +4 # I(2)
|
|
C2SQP EQUALS KV2 # I(2)
|
|
C2SQM EQUALS KV2 +2 # I(2)
|
|
C2PP EQUALS KV2 +4 # I(2)
|
|
C2MP EQUALS KV3 # I(2)
|
|
C1PP EQUALS KV3 +2 # I(2)
|
|
C1MP EQUALS KV3 +4 # I(2)
|
|
# Page 136
|
|
VECQTEMP = COFSKEW
|
|
|
|
DCDU = CDUXD
|
|
DELDCDU = DELCDUX
|
|
DELDCDU1 = DELCDUY
|
|
DELDCDU2 = DELCDUZ
|
|
|
|
# * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
# STORAGE FOR FINDCDUW
|
|
|
|
# OVERLAYING KALCMANU STORAGE: (26D)
|
|
|
|
ECDUW EQUALS MIS
|
|
ECDUWUSR EQUALS ECDUW # B(1)TMP
|
|
QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP
|
|
NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP
|
|
FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP
|
|
FLPAUTNO EQUALS FLAGOODW +1 # B(1)TMP
|
|
UNFC/2 EQUALS FLPAUTNO +1 # I(6)IN
|
|
UNWC/2 EQUALS UNFC/2 +6 # I(6)IN
|
|
UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S
|
|
UNFVX/2 = UNFV/2
|
|
UNFVY/2 = UNFV/2 +2
|
|
UNFVZ/2 = UNFV/2 +4
|
|
-DELGMB EQUALS UNFV/2 +6 # B(3)TMP
|
|
|
|
# DEFINED IN THE WORK AREA: (18D)
|
|
|
|
UNX/2 = 0
|
|
UNY/2 = 6
|
|
UNZ/2 = 14
|
|
|
|
# END OF FINDCDUW ERASABLES
|
|
|
|
# * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
# THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS, NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
|
|
# ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (18D)
|
|
|
|
DAPTEMP1 ERASE +17D
|
|
DAPTEMP2 EQUALS DAPTEMP1 +1
|
|
DAPTEMP3 EQUALS DAPTEMP1 +2
|
|
DAPTEMP4 EQUALS DAPTEMP1 +3
|
|
DAPTEMP5 EQUALS DAPTEMP1 +4
|
|
DAPTEMP6 EQUALS DAPTEMP1 +5
|
|
DAPTREG1 EQUALS DAPTEMP1 +6
|
|
DAPTREG2 EQUALS DAPTEMP1 +7
|
|
DAPTREG3 EQUALS DAPTEMP1 +8D
|
|
# Page 137
|
|
DAPTREG4 EQUALS DAPTEMP1 +9D
|
|
DAPTREG5 EQUALS DAPTEMP1 +10D
|
|
DAPTREG6 EQUALS DAPTEMP1 +11D
|
|
|
|
DAPARUPT EQUALS DAPTEMP1 +12D
|
|
DAPLRUPT EQUALS DAPARUPT +1
|
|
DAPBQRPT EQUALS DAPARUPT +2
|
|
DAPZRUPT EQUALS DAPARUPT +4
|
|
# (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG)
|
|
|
|
# NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
|
|
|
|
T5TEMP EQUALS ITEMP1
|
|
DINDX EQUALS ITEMP3
|
|
AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180
|
|
AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2.
|
|
AK2 EQUALS AK +2
|
|
|
|
EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES.
|
|
EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEGREES.
|
|
EDRIVEZ EQUALS EDRIVEX +2
|
|
|
|
# DOCKED JET INHIBITION COUNTERS (3D)
|
|
|
|
PJETCTR ERASE +2
|
|
UJETCTR EQUALS PJETCTR +1
|
|
VJETCTR EQUALS PJETCTR +2
|
|
|
|
END-E6 EQUALS VJETCTR
|
|
|
|
# Page 138
|
|
# EBANK-7 ASSIGNMENTS
|
|
|
|
SETLOC 3400
|
|
|
|
# P35 CONSTANTS. -- PAD LOADED -- (4D)
|
|
|
|
ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
|
|
PTIGINC ERASE +1 # B(2)PL
|
|
|
|
# AOTMARK STORAGE. -- PAD LOADED -- (12D)
|
|
|
|
AOTAZ ERASE +5 # B(6)PL
|
|
AOTEL ERASE +5 # B(6)PL
|
|
|
|
# LANDING RADAR -- PAD LOADED -- (2D)
|
|
|
|
LRHMAX ERASE # B(1)
|
|
LRWH ERASE # B(1)
|
|
|
|
# THROTTLE STORAGE. -- PAD LOADED -- (1D)
|
|
|
|
ZOOMTIME ERASE # B(1)PL TIME OF DPS THROTTLE-UP COMMAND
|
|
|
|
# P63 AND P64 CONSTANTS. -- PAD LOADED -- (4D)
|
|
|
|
TENDBRAK ERASE # B(1) LANDING PHASE SWITCHING CRITERION.
|
|
TENDAPPR ERASE # B(1) LANDING PHASE SWITCHING CRITERION.
|
|
DELTTFAP ERASE # B(1) INCREMENT ADDED TO TTF/8 WHEN
|
|
# SWITCHING FROM P63 TO P64.
|
|
LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH
|
|
# GUIDANCE IS PROJECTED FORWARD
|
|
|
|
# LANDING RADAR. -- PAD LOADED -- (2D)
|
|
|
|
RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME)
|
|
RPCRTQSW ERASE # B(1) REPOSITIONING CRITERION (ANGLE)
|
|
|
|
# ASTEER. -- PAD LOADED -- (2D)
|
|
|
|
TNEWA ERASE +1 # I(2)PL LAMBERT CYCLE PERIOD.
|
|
|
|
# P22 STORAGE -- OVERLAYS LANDING PADLOADS -- (5D)
|
|
# Page 139
|
|
REPOSCNT EQUALS TENDBRAK # B(1)TMP COUNTS NUMBER OF PASSES THROUGH
|
|
# REPOSITION ROUTINE.
|
|
REPOSTM EQUALS REPOSCNT +1 # I(2)TMP PRESENT TIME PLUS INCREMENTS OF
|
|
# TEN SECONDS.
|
|
DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING
|
|
# DESIGNATE TASK.
|
|
|
|
# *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
|
|
|
|
# P32-35 P72-75 STORAGE. (6D)
|
|
|
|
DELVLVC ERASE +5 # I(6) DELTA VELOCITY -- LOCAL VERTICAL COO
|
|
DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE
|
|
|
|
# P30-P40 INTERFACE UNSHARED. (2D)
|
|
|
|
TIG ERASE +1 # B(2)
|
|
|
|
# INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS (8D)
|
|
|
|
RTARG ERASE +5 # I(6) TARGET VECTOR
|
|
DELLT4 ERASE +1 # I(2) TIME DIFFERENCE
|
|
|
|
# P30-P40 INTERFACE UNSHARED. (3D)
|
|
|
|
TTOGO ERASE +1 # B(2)
|
|
TFI EQUALS TTOGO
|
|
WHICH ERASE # B(1)
|
|
|
|
# *** R21 *** (1D)
|
|
|
|
LOSCOUNT ERASE # B(1)
|
|
|
|
# L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE. (4D)
|
|
|
|
# RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
|
|
|
|
AIG ERASE # B(1)OUT GIMBAL ANGLES
|
|
AMG ERASE # B(1)OUT (MUST BE
|
|
AOG ERASE # B(1)OUT CONSECUTIVE)
|
|
|
|
TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE.
|
|
MARKCTR = TRKMKCNT
|
|
|
|
# Page 140
|
|
# P32-P35, P72-P75 STORAGE. -- PERMANENT -- (6)
|
|
|
|
NORMEX ERASE # B(1)PRM SAVE FOR Q
|
|
QSAVED ERASE # B(1)PRM SAVE FOR Q
|
|
RTRN ERASE # B(1)PRM SAVE FOR Q
|
|
NN ERASE +1 # B(2)
|
|
SUBEXIT ERASE # B(1)PRM SAVE Q
|
|
|
|
E7OVERLA EQUALS # START OF E7 OVERLAYS
|
|
WHOCARES EQUALS E7OVERLA # DUMMY FOR EBANK INSENSITIVE 2CADRS.
|
|
|
|
# LUNAR LANDING OVERLAYS (6D)
|
|
|
|
/AFC/ EQUALS NORMEX # B(2)TMP THROTTLE
|
|
FCODD EQUALS /AFC/ +2 # B(2)TMP THROTTLE
|
|
FP EQUALS FCODD +2 # B(2)TMP THROTTLE
|
|
# Page 141
|
|
# ******* OVERLAY NUMBER 0 IN EBANK 7 *******
|
|
|
|
# RENDEZVOUS GUIDANCE STORAGE --P32.....P35-- (89D)
|
|
|
|
TSTRT EQUALS DELDV # MIDCOURSE START TIME
|
|
TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT
|
|
KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME
|
|
VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME
|
|
RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME
|
|
VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME
|
|
VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME
|
|
RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME
|
|
VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME
|
|
RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME
|
|
VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME
|
|
RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME
|
|
VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME
|
|
VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT
|
|
UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE.
|
|
DELVCSI ERASE +1D # THRUST VALUE AT CSI
|
|
DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID
|
|
DELVMID EQUALS DELVTPI
|
|
DIFFALT ERASE +1D # ALT DIFFERENT AT CDH
|
|
POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER
|
|
POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER
|
|
POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER
|
|
LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER
|
|
HAFPA1 EQUALS POSTCDH # HALF PERIOD
|
|
GAMPREV ERASE +1 # PREVIOUS GAMMA
|
|
DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI
|
|
DELDV ERASE +1D
|
|
CSIALRM ERASE +1 # FIRST SOLUTION ALARM
|
|
VERBNOUN ERASE
|
|
TITER EQUALS CSIALRM # ITERATION COUNTER
|
|
RDOTV ERASE +1
|
|
VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE)
|
|
RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE)
|
|
VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE)
|
|
RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE)
|
|
DELEL EQUALS DELVTPI # I(2) S-S
|
|
DELTEE EQUALS DELDV # I(2) S-S
|
|
SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE
|
|
DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME
|
|
CENTANG ERASE +1 # I(2) CENTRAL ANGLE COVERED (TPI-TPF)
|
|
|
|
# Page 142
|
|
# SOME P47 STORAGE (6D)
|
|
|
|
DELVIMU ERASE +5 # I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
|
|
|
|
# P30-P40 COMMON STORAGE. (3D)
|
|
|
|
TPASS4 ERASE +1 # INTERCEPT TIME
|
|
QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER.
|
|
|
|
# P32,33,34 STORAGE. (6D)
|
|
|
|
TCSI ERASE +1 # B(2)TMP CSI TIME IN CENTISECONDS
|
|
TTPI ERASE +1 # B(2)TMP TPI TIME IN CENTISECONDS
|
|
TTPIO ERASE +1 # B(2)TMP TTPI STORAGE FOR RECYCLE
|
|
|
|
# P30,P40 INTERFACE. (21D)
|
|
|
|
RTIG ERASE +19D # I(6)TMP
|
|
VTIG EQUALS RTIG +6 # I(6)TMP
|
|
DELVSIN EQUALS VTIG +6 # I(6)TMP
|
|
DELVSAB EQUALS DELVSIN +6 # I(2)TMP
|
|
VGDISP = DELVSAB
|
|
|
|
QTEMP1 ERASE # I(1)TMP HOLDS RETURN.
|
|
RGEXIT EQUALS QTEMP1 # SAVE Q
|
|
SAVQR52 EQUALS QTEMP1
|
|
|
|
# INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D)
|
|
# (CALLS LAMBERT, CONIC SUBROUTINES)
|
|
|
|
VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS
|
|
ITCTR EQUALS RDOTV # ITERATION COUNTER
|
|
COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS
|
|
X1INPUT EQUALS DELDV # X1 TEMP STORAGE
|
|
INTIME EQUALS GAMPREV # TIME OF RINIT
|
|
|
|
# PERIAPO STORAGE. (2D)
|
|
|
|
XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SITE
|
|
|
|
END-IN/M EQUALS XXXALT +2 # NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
|
|
|
|
# Page 143
|
|
# S40.1 STORAGE. (12D)
|
|
|
|
UT ERASE +11D # I(6) THRUST DIRECTION
|
|
VGTIG EQUALS UT +6 # I(6)OUT
|
|
VGPREV = VGTIG
|
|
|
|
# ASTEER STORAGE. (22D)
|
|
|
|
VG ERASE +21D # I(6)
|
|
RMAG EQUALS VG +6 # I(2)
|
|
MUASTEER EQUALS RMAG +2 # I(2)
|
|
MU/A EQUALS MUASTEER +2 # I(2)
|
|
RTMAG EQUALS MU/A +2 # I(2)
|
|
R1C EQUALS RTMAG +2 # I(6)
|
|
SS EQUALS R1C +6 # I(2)
|
|
|
|
IC = DELVSIN
|
|
TIGSAVE = P21TIME
|
|
TIGSAVEP = SCAXIS
|
|
MUSCALE = SCAXIS +2
|
|
|
|
# P40 STORAGE. (6D)
|
|
|
|
# F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR WLOAD
|
|
|
|
F ERASE +5 # I(2)TMP S40.1 GENERATES THIS FOR S40.3
|
|
MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
|
|
TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS.
|
|
VEX ERASE +1 # I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
|
|
|
|
# MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D)
|
|
|
|
IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2.
|
|
|
|
# Page 144
|
|
# ******* OVERLAY NUMBER 1 IN EBANK 7 *******
|
|
|
|
# INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1) (6D)
|
|
|
|
RTARG1 EQUALS VACT1 # I(6)S TEMP STORAGE OF RTARG
|
|
|
|
# P35-P40 INTERFACE. (6D)
|
|
|
|
VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
|
|
|
|
# INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
|
|
|
|
# SOME P38-30,P78-79 STORAGE (2D)
|
|
TINT EQUALS TPASS4 # I(2) TIME OF INTERCEPT
|
|
|
|
|
|
# LAT-LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D)
|
|
|
|
ERADM EQUALS UT # I(2)
|
|
INCORPEX EQUALS ERADM +2 # I(1)
|
|
|
|
# LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D)
|
|
|
|
RLMSRCH EQUALS INCORPEX +1 # I(6)TMP LM POSITION VECTOR
|
|
VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR
|
|
LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR
|
|
UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS
|
|
UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS
|
|
DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 -- ALL 1-S WHEN LOCKON
|
|
OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2
|
|
OMEGAD = OMEGDISP # PINBALL DEFINITION
|
|
NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER.
|
|
SAVLEMV EQUALS NSRCHPNT +1 # I(6)S-S SAVES LOSVEL
|
|
|
|
# Page 145
|
|
# ******* OVERLAY NUMBER 2 IN EBANK 7 *******
|
|
|
|
# INCORP STORAGE IN E7. (47D)
|
|
|
|
TX789 EQUALS E7OVERLA # I(6)
|
|
GAMMA EQUALS TX789 +6 # I(3)
|
|
OMEGA EQUALS GAMMA +3 # I(18)
|
|
BVECTOR EQUALS OMEGA +18D # I(18)
|
|
DELTAQ EQUALS BVECTOR +18D # I(2)
|
|
|
|
# AOTMARK STORAGE (3D)
|
|
|
|
MARKCNTR EQUALS DELTAQ +2 # I(1)
|
|
XYMARK EQUALS MARKCNTR +1 # B(1)
|
|
MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK
|
|
|
|
# PLANET STORAGE (8D)
|
|
|
|
PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET
|
|
TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK
|
|
|
|
# LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1) (30D)
|
|
|
|
LGRET EQUALS RLMSRCH # I(1)TMP
|
|
RDRET EQUALS LGRET # B(1) TEMP RETURN.
|
|
IGRET EQUALS LGRET # B(1) TEMP RETURN.
|
|
MX EQUALS RDRET +1 # I(6)
|
|
MY EQUALS MX +6 # I(6)
|
|
MZ EQUALS MY +6 # I(6)
|
|
E0 EQUALS MX # I(2)
|
|
E1 EQUALS MX +2 # I(2)
|
|
E2 EQUALS MX +4 # I(2)
|
|
E3 EQUALS E2 +2 # I(2)
|
|
SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON
|
|
RXZ EQUALS SCALSHFT +1 # I(2)
|
|
ULC EQUALS RXZ +2 # I(6)
|
|
SINTHETA EQUALS ULC +6 # I(2)
|
|
|
|
# ***** IN OVERLAY ONE *****
|
|
|
|
N49FLAG EQUALS RDOTMSAV # B(1)S FLAG INDICATING V0649 RESPONSE
|
|
|
|
# LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D)
|
|
|
|
# (OUTPUTS ARE TO LRS22.3)
|
|
|
|
# Page 146
|
|
RRTRUN EQUALS SINTHETA +2 # B(2)OUT RR TRUNNION ANGLE
|
|
RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RR SHAFT ANGLE
|
|
LRS22.1X EQUALS RRSHAFT +2 # B(1)TMP
|
|
RRBORSIT EQUALS LRS22.1X +1 # I(6)TMP RADAR BORESIGHT VECTOR.
|
|
RDOTMSAV EQUALS RRBORSIT +6 # B(2)S RR RANGE-RATE (FPS)
|
|
|
|
# LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29) (10D) CANNOT SHARE WITH L.A.D.
|
|
|
|
RDOTM EQUALS RDOTMSAV +2 # B(2)OUT RANGE-RATE READING
|
|
TANGNB EQUALS RDOTM +2 # B(2)TMP RR GIMBAL ANGLES
|
|
# RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
|
|
MKTIME EQUALS TANGNB +2 # B(2)OUT TIME OF RR READING
|
|
RM EQUALS MKTIME +2 # I(2)OUT RANGE READING
|
|
RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE
|
|
|
|
# R61LEM -- PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE**
|
|
# (CALLED BY P20, R22LEM, LSR22.3) (1D)
|
|
|
|
R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED
|
|
# TRACKING ROUTINE IS TO CYCLE
|
|
WHCHREAD EQUALS R65CNTR # TELLS WHICH RR DATA TRIGGERED N49 DISPLAY
|
|
|
|
# P21 STORAGE (2D)
|
|
|
|
P21TIME EQUALS RANGRDOT +2 # I(2)TMP
|
|
|
|
# KALCMANU, VECPOINT STORAGE. CALLED BY R63, R61, R65. (12D)
|
|
|
|
SCAXIS EQUALS P21TIME +2 # I(6)
|
|
POINTVSM EQUALS SCAXIS +6 # I(6)
|
|
# Page 147
|
|
# ******* OVERLAY NUMBER 3 IN EBANK 7 *******
|
|
|
|
|
|
# SERVICER STORAGE (6D)
|
|
|
|
ABVEL EQUALS E7OVERLA # B(2) DISPLAY
|
|
HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY
|
|
TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY
|
|
|
|
# BURN PROG STORAGE. (2D)
|
|
|
|
SAVET-30 EQUALS TTFDISP +2 # B(2)TMP TIG-30 RESTART
|
|
|
|
# SERVICER STORAGE. (69D)
|
|
|
|
VGBODY EQUALS SAVET-30 +2 # B(6)OUT SET BY S41.1 VG LEM, SC.COORDS
|
|
DELVCTL = VGBODY
|
|
DVTOTAL EQUALS VGBODY +6 # B(2) DISPLAY NOUN
|
|
GOBLTIME EQUALS DVTOTAL +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
|
|
ABDVCONV EQUALS GOBLTIME +2 # I(2)
|
|
DVCNTR EQUALS ABDVCONV +2 # B(1)
|
|
TGO EQUALS DVCNTR +1 # B(2)
|
|
R EQUALS TGO +2 # I(6)
|
|
UNITGOBL EQUALS R # I(6)
|
|
V EQUALS R +6
|
|
DELVREF EQUALS V # I(6)
|
|
HCALC EQUALS DELVREF +6 # B(2) LR
|
|
UNIT/R/ EQUALS HCALC +2 # I(6)
|
|
|
|
# (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
|
|
|
|
RN1 EQUALS UNIT/R/ +6 # B(6)
|
|
VN1 EQUALS RN1 +6 # I(6) ( IN ORDER )
|
|
PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR )
|
|
GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY )
|
|
MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE )
|
|
R1S EQUALS MASS1 +2 # I(6)
|
|
V1S EQUALS R1S +6 # I(6)
|
|
|
|
# ALIGNMENT/S40.2,3 COMMON STORAGE. (18D)
|
|
|
|
XSMD EQUALS V1S +6 # I(6)
|
|
YSMD EQUALS XSMD +6 # I(6)
|
|
ZSMD EQUALS YSMD +6 # I(6)
|
|
|
|
XSCREF = XSMD
|
|
YSCREF = YSMD
|
|
# Page 148
|
|
ZSCREF = ZSMD
|
|
|
|
END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
|
|
|
|
# ****** P22 ****** (24D)
|
|
|
|
RSUBL EQUALS END-ALIG # I(6)S-S LM POSITION VECTOR
|
|
UCSM EQUALS RSUBL +6 # I(6)S-S VECTOR U
|
|
NEWVEL EQUALS UCSM +6 # I(6)S-S TERMINAL VELOCITY VECTOR
|
|
NEWPOS EQUALS NEWVEL +6 # I(6)S-S TERMINAL POSITION VECTOR
|
|
LNCHTM EQUALS NEWPOS +6 # I(2)S-S EST. LAUNCH TIME FOR LEM
|
|
TRANSTM EQUALS LNCHTM +2 # I(2)S-S TRANSFER TIME
|
|
NCSMVEL EQUALS TRANSTM +2 # I(6)S-S NEW CSM VELOCITY
|
|
|
|
# ****** P21 ****** (18D)
|
|
|
|
P21ORIG = DISPDEX
|
|
P21BASER EQUALS RLMSRCH # I(6)TMP
|
|
P21BASEV EQUALS P21BASER +6 # I(6)TMP
|
|
P21VEL EQUALS P21BASEV +6 # I(2)TMP *** NOUN 91 ***
|
|
P21GAM EQUALS P21VEL +2 # I(2)TMP *** NOUN 91 ***
|
|
P21ALT EQUALS P21GAM +2 # I(2)TMP *** NOUN 91 ***
|
|
|
|
# Page 149
|
|
# ******* OVERLAY NUMBER 4 IN EBANK 7 *******
|
|
|
|
# VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (18D)
|
|
|
|
# THESE ERASABLES MAY BE SHARED WITH CARE
|
|
|
|
OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER
|
|
LANDTEMP = OURTEMPS # B(6) GUIDANCE
|
|
TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE
|
|
ELINCR = TTF/8TMP +2 # B(2) GUIDANCE
|
|
AZINCR = ELINCR +2 # B(2) GUIDANCE
|
|
KEEP-2 = AZINCR +2 # B(2) TP PREVENT PIPTIME1 OVERLAY
|
|
TABLTTF = KEEP-2 +2 # B(2) GUIDANCE
|
|
TPIPOLD = TABLTTF +9D # B(2) GUIDANCE
|
|
E2DPS EQUALS OURPERMS
|
|
|
|
# THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
|
|
|
|
PIFPSET = XSMD # B(1) THROTTLE
|
|
RTNHOLD = PIFPSET +1 # B(1) THROTTLE
|
|
FWEIGHT = RTNHOLD +1 # B(2) THROTTLE
|
|
PIF = FWEIGHT +2 # B(2) THROTTLE
|
|
PSEUDO55 = PIF +2 # B(1) THROTTLE DOWNLINK
|
|
FC = PSEUDO55 +1 # B(2) THROTTLE
|
|
TTHROT = FC +2 # B(1) THROTTLE
|
|
FCOLD = TTHROT +1 # B(1) THROTTLE
|
|
|
|
# THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
|
|
|
|
OURPERMS = FCOLD +1 # MUSTN'T OVERLAY OURTEMPS OR SERVICER
|
|
WCHPHOLD = OURPERMS # B(1) GUIDANCE
|
|
FILLER = WCHPHOLD +1
|
|
FLPASS0 = FILLER +1 # B(1) GUIDANCE
|
|
TPIP = FLPASS0 +1 # B(2)
|
|
VGU = TPIP +2 # B(6) GUIDANCE
|
|
LAND = VGU +6 # B(6) GUIDANCE CONTIGUOUS
|
|
TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS
|
|
ELIDUMMY = TTF/8 +2 # (1) DUMMY FOR ELINCR1
|
|
AZIDUMMY = ELIDUMMY +1 # (1) DUMMY FOR AZINCR1
|
|
ZERDUMMY = AZIDUMMY +1 # (1) DUMMY FOR ZERLINA
|
|
ELVDUMMY = ZERDUMMY +1 # (1) DUMMY FOR ELVIRA
|
|
LRADRET = ELVDUMMY +1 # B(1) LR
|
|
VSELECT = LRADRET +1 # B(1) LR
|
|
VMEAS = VSELECT +1 # B(2) LR
|
|
HMEAS = VMEAS +2 # B(2) LR
|
|
VN2 = HMEAS +2 # B(6) LR
|
|
# Page 150
|
|
GNUR = VN2 # B(6) LR
|
|
GNUV = VN2 # B(6) LR
|
|
LRADRET1 = VN2 # B(1) LR
|
|
DELTAH = VN2 +6 # B(2) DISPLAY
|
|
FUNNYDSP = DELTAH +2 # B(2) DISPLAY
|
|
EOURPERM EQUALS FUNNYDSP +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS
|
|
|
|
# (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
|
|
|
|
VDGVERT = ELIDUMMY # B(2) P65,P66
|
|
NIGNLOOP = ZERDUMMY # B(1) IGNALG
|
|
NGUIDSUB = ELVDUMMY # B(1) IGNALG
|
|
WCHVERT = ELVDUMMY # B(1) P65,P66,P67
|
|
FUELNEED = FUNNYDSP # B(1) DISPLAY
|
|
TREDES = FUNNYDSP # B(1) DISPLAY
|
|
LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY
|
|
|
|
# ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
|
|
|
|
PROJ = 18D # I(2) GUIDANCE
|
|
UNLRB/2 = 20D # I(6) GUIDANCE (DURING P64 ONLY)
|
|
UNLR/2 = 20D # I(6) GUIDANCE
|
|
|
|
# THE END OF THE LUNAR LANDING ERASABLES
|
|
|
|
# R12 (FOR LUNAR LANDING) (6D)
|
|
|
|
LRLCTR EQUALS EOURPERM # B(1) LR DATA TEST
|
|
LRRCTR EQUALS LRLCTR +1 # B(1)
|
|
LRMCTR EQUALS LRRCTR +1 # B(1)
|
|
LRSCTR EQUALS LRMCTR +1 # B(1)
|
|
STILBADH EQUALS LRSCTR +1 # B(1)
|
|
STILBADV EQUALS STILBADH +1 # B(1)
|
|
|
|
# LANDING ANALOGS DISPLAY STORAGE. (40D)
|
|
|
|
LATVMETR EQUALS STILBADV +1 # B(1)PRM LATVEL MONITOR METER (AN ORDER)
|
|
FORVMETR EQUALS LATVMETR +1 # B(1)PRM FORVEL MONITOR METER (-ED PAIR)
|
|
LATVEL EQUALS FORVMETR +1 # B(1)PRM LATERAL VELOCITY (AN ORDER)
|
|
FORVEL EQUALS LATVEL +1 # B(1)PRM FORWARD VELOCITY (-ED PAIR)
|
|
TRAKLATV EQUALS FORVEL +1 # B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER)
|
|
TRAKFWDV EQUALS TRAKLATV +1 # B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
|
|
VHY EQUALS TRAKFWDV +1 # B(1)PRM VHY=VMP.UHYP (AN ORDER)
|
|
# Page 151
|
|
VHZ EQUALS VHY +1 # B(1)PRM VHZ=VMP.UHZP (-ED PAIR)
|
|
VVECT EQUALS VHZ +1 # B(3)PRM UPDATED S.P. VELOCITY VECTOR
|
|
ALTRATE EQUALS VVECT +3 # B(1)PRM ALTITUDE RATE IN BIT UNITS
|
|
ALTSAVE EQUALS ALTRATE +1 # B(2)PRM ALTITUDE IN BIT UNITS
|
|
LADQSAVE EQUALS ALTSAVE +2 # B(1)PARM SAVE Q IN LAND1SP
|
|
DT EQUALS LADQSAVE +1 # B(1)PRM TIME 1 MINUS (PIPTIME +1)
|
|
DALTRATE EQUALS DT +1 # B(1)PRM ALTITUDE RATE ERROR CORRECTION
|
|
UHYP EQUALS DALTRATE +1 # B(6)PRM SM UNIT VECTOR
|
|
QAXIS = UHYP
|
|
UHZP EQUALS UHYP +6 # B(6)PRM SM UNIT VECTOR
|
|
DELVS EQUALS UHZP +6 # B(6)PRM DELVS = WMXR
|
|
ALTBITS EQUALS DELVS +6 # B(2)PRM ALTITUDE IN BIT UNITS. 2.34 FT/BIT
|
|
RUNIT EQUALS ALTBITS +2 # B(3)PRM SM HALF-UNIT R VECTOR
|
|
LASTLADW EQUALS RUNIT +2 # ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
|
|
|
|
# P66 ERASABLES (R.O.D.) (1D)
|
|
|
|
RODCOUNT EQUALS RUNIT +3
|
|
|
|
# P66 ERASABLES (R.O.D.) (14D)
|
|
|
|
RODSCAL1 EQUALS RM # B(1)
|
|
LASTTPIP EQUALS RODSCAL1 +1 # I(2)
|
|
THISTPIP EQUALS LASTTPIP +2 # B(2)
|
|
OLDPIPAX EQUALS THISTPIP +2 # B(1)
|
|
OLDPIPAY EQUALS OLDPIPAX +1 # B(1)
|
|
OLDPIPAZ EQUALS OLDPIPAY +1 # B(1)
|
|
DELVROD EQUALS OLDPIPAZ +1 # B(6)
|
|
|
|
# NOUN 63 COMPONENT (2D)
|
|
|
|
HCALC1 EQUALS DELVROD +6 # I(2)
|
|
|
|
# Page 152
|
|
# ******* OVERLAY NUMBER 5 IN EBANK 7 *******
|
|
|
|
# ASCENT GUIDANCE ERASABLES. (21D)
|
|
|
|
RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
|
|
YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24).
|
|
1/DV1 EQUALS YCO +2 # B(2)TMP ATMAG
|
|
1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG
|
|
1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG
|
|
XRANGE EQUALS 1/DV3 +2 # B(2)TMP
|
|
ENGOFFDT EQUALS XRANGE +2 # B(1)TMP
|
|
VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED.
|
|
TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
|
|
# IS ALLOWED.
|
|
|
|
# END OF THE ASCENT GUIDANCE ERASABLES
|
|
|
|
# THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
|
|
|
|
END-E7.0 EQUALS IRETURN1 +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 0
|
|
END-E7.1 EQUALS N49FLAG +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 1
|
|
END-E7.2 EQUALS POINTVSM +6 # FIRST UNUSED LOCATION IN E7 OVERLAY 2
|
|
END-E7.3 EQUALS END-ALIG # FIRST UNUSED LOCATION IN E7 OVERLAY 3
|
|
END-E7.4 EQUALS 3777 # ** LAST LOCATION USED IN E7 OVERLAY 4 **
|
|
END-E7.5 EQUALS TXO +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 5
|
|
END-E7 EQUALS 3777 # ** LAST LOCATION USED IN E7 **
|