ERASABLE ASSIGNMENTS

Scanned pages: 0090-0152

ERASABLE_ASSIGNMENTS.agc

# 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 **