Skip to content
Hamilton Archive
0 / 17
Pre-launch Review

ERASABLE ASSIGNMENTS

ERASABLE_ASSIGNMENTS.agc
# Copyright:  Public domain.
# Filename:  ERASABLE_ASSIGNMENTS.agc
# Purpose:  Part of the source code for Colossus 2A, AKA Comanche 055.
#    It is part of the source code for the Command Module's (CM)
#    Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler:  yaYUL
# Contact:  Ron Burkey <info@sandroid.org>.
# Website:  www.ibiblio.org/apollo.
# Mod history:  2009-05-06 RSB  Started adapting from the Colossus249/ file
#        of the same name, using Comanche055 page
#        images. Only through page 51 so far.
#    2009-05-07 RSB  Through page 92 so far.
#    2009-05-07 RSB  (Again!) First draft completed.
#    2009-05-20 RSB  Fixed some bugs uncovered in trial assemblies:
#        EMDOT, STATEXIT, VGDISP, DVPREV, POSTCDH,
#        RETROFLG not defined correctly, changed the
#        typing of labels 9X9LOC1 and 9X9LOC2,
#        R32FLBIT -> R31FLBIT.
#    2009-05-21 RSB  Corrected definition of DELBRTMP, which
#        chained to quite a lot of off-by-one errors.
#        Changed a +8 to a +8D.
#
# 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 055 of AGC program Comanche by NASA
#  2021113-051.  10:28 APR. 1, 1969
#
#  This AGC program shall also be referred to as
#      Colossus 2A




# Page 37
# 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 SIE 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 38
#        IT MAY BE SHARED WITH ANY 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 39


# 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    # OPTICS TRUNNION CDU (WAS OPTY).
OPTY    =  CDUT
CDUS    EQUALS  36    # OPTICS SHAFT CDU (WAS OPTX).
OPTX    =  CDUS
PIPAX    EQUALS  37
PIPAY    EQUALS  40
PIPAZ    EQUALS  41
BMAGX    EQUALS  42
BMAGY    EQUALS  43
BMAGZ    EQUALS  44
INLINK    EQUALS  45
RNRAD    EQUALS  46
GYROCTR    EQUALS  47
GYROCMD    EQUALS  47
CDUXCMD    EQUALS  50
CDUYCMD    EQUALS  51


# Page 40


CDUZCMD    EQUALS  52
CDUTCMD    EQUALS  53    # OPTICS TRUNNION COMMAND (WAS OPTYCMD)
OPTYCMD    =  CDUTCMD
TVCYAW    EQUALS  CDUTCMD    # SPS YAW COMMAND IN TVC MODE
CDUSCMD    EQUALS  54    # OPTICS SHAFT COMMAND (WAS OPTXCMD).
TVCPITCH  EQUALS  CDUSCMD    # SPS PITCH COMMAND IN TVC MODE
OPTXCMD    =  CDUSCMD
EMSD    EQUALS  55
THRUST    EQUALS  55
LEMONM    EQUALS  56
LOCALARM  EQUALS  57
BANKALRM  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


# Page 41


# 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
PYJETS    EQUALS  5
ROLLJETS  EQUALS  6
SUPERBNK  EQUALS  7
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 42


# FLAGWORDS
#
# FLAGWRD0  STATE +0  (000-014)
# FLAGWRD1  STATE +1  (015-029)
# FLAGWRD2  STATE +2  (030-044)
# FLAGWRD3  STATE +3  (045-059)
# FLAGWRD4  STATE +4  (060-074)
# FLAGWRD5  STATE +5  (075-089)
# FLAGWRD6  STATE +6  (090-104)
# FLAGWRD7  STATE +7  (105-119)
# FLAGWRD8  STATE +8D  (120-134)
# FLAGWRD9  STATE +9D  (135-149)


#  SORTED LIST OF
#  INTERPRETIVE SWITCH BIT ASSIGNMENTS


# INTERPRETIVE SWITCH BIT ASSIGNMENTS
#
# FLAGWORD  DEC NUM    BIT & FLAG  EQUIVALENT FLAGWORDS
#
# 22DSPFLG  032D    BIT 13 FLAG 2
# 360SW    134D    BIT 1 FLAG 8
# 3AXISFLG  084D    BIT 6 FLAG 5
# ADVTRK  125D    BIT 10 FLAG 8
# AMOONFLG  13D    BIT 2 FLAG 0
# APSESW  130D    BIT 5 FLAG 8
# ASTNFLAG  108D    BIT 12 FLAG 7
# ATTCHFLG  118D    BIT 2 FLAG 7
# AVEGFLAG  029D    BIT 1 FLAG 1
# AVEMIDSW  149D    BIT 1 FLAG 9
# AVFLAG  040D    BIT 5 FLAG 2
# CALCMAN2  043D    BIT 2 FLAG 2
# CMDAPARM  093D    BIT 12 FLAG 6
# CMOONFLG  123D    BIT 12 FLAG 8
# CM/DSTBY  103D    BIT 2 FLAG 6
# COGAFLAG  131D    BIT 4 FLAG 8
# COMPUTER  082D    BIT 8 FLAG 5
# CPHIFLAG  000D    BIT 15 FLAG 0
# CULTFLAG  053D    BIT 7 FLAG 3
# D6OR9FLG  058D    BIT 2 FLAG 3
# DAPBIT1  090D    BIT 15 FLAG 6
# DAPBIT2  091D    BIT 14 FLAG 6
# DIM0FLAG  059D    BIT 1 FLAG 3
# DMENFLAG  081D    BIT 9 FLAG 5
# DRIFTFLG  030D    BIT 15 FLAG 2
# DSKYFLAG  075D    BIT 15 FLAG 5
# EGSW    097D    BIT 8 FLAG 6  KNOTNFLG R57FLAG


# Page 43


# ENG1FLAG  018D    BIT 12 FLAG 1
# ENG2FLAG  019D    BIT 11 FLAG 1
# ENGONFLG  083D    BIT 7 FLAG 5
# ERADFLAG  017D    BIT 13 FLAG 1
# ETPIFLAG  038D    BIT 7 FLAG 2  FIRSTFLG OPTNSW
# F2RTE    010D    BIT 5 FLAG 0
# FINALFLG  039D    BIT 6 FLAG 2
# FIRSTFLG  038D    BIT 7 FLAG 2  ETPIFLAG OPTNSW
# FREEFLAG  012D    BIT 3 FLAG 0
# GAMDIFSW  094D    BIT 11 FLAG 6
# GLOKFAIL  046D    BIT 14 FLAG 3
# GONEBY  112D    BIT 8 FLAG 7
# GONEPAST  095D    BIT 10 FLAG 6
# GRRBKFLG  085D    BIT 5 FLAG 5
# GUESSW  028D    BIT 2 FLAG 1
# GYMDIFSW  104D    BIT 1 FLAG 6
# .05GSW  102D    BIT 3 FLAG 6
# HIND    099D    BIT 6 FLAG 6
# IDLEFAIL  024D    BIT 6 FLAG 1
# IDLEFLAG  113D    BIT 7 FLAG 7
# IGNFLAG  107D    BIT 13 FLAG 7
# IMPULSW  036D    BIT 9 FLAG 2
# IMUSE    007D    BIT 8 FLAG 0
# INCORFLG  079D    BIT 11 FLAG 5
# INFINFLG  128D    BIT 7 FLAG 8
# INRLSW  100D    BIT 5 FLAG 6
# INTFLAG  151D    BIT 14 FLAG 10
# INTYPFLG  056D    BIT 4 FLAG 3
# ITSWICH  106D    BIT 14 FLAG 7
# KFLAG    014D    BIT 1 FLAG 0
# KNOWNFLG  097D    BIT 8 FLAG 6  EGSW R57FLAG
# LATSW    101D    BIT 4 FLAG 6
# LMOONFLG  124D    BIT 11 FLAG 8
# LUNAFLAG  048D    BIT 12 FLAG 3
# MAXDBFLG  138D    BIT 12 FLAG 9
# MGLVFLAG  088D    BIT 2 FLAG 5
# MID1FLAG  147D    BIT 3 FLAG 9
# MIDAVFLG  148D    BIT 2 FLAG 9
# MIDFLAG  002D    BIT 13 FLAG 0
# MKOVFLAG  072D    BIT 3 FLAG 4
# MOONFLAG  003D    BIT 12 FLAG 0
# MRKIDFLG  060D    BIT 15 FLAG 4
# MRKNVFLG  066D    BIT 9 FLAG 4
# MRUPTFLG  070D    BIT 5 FLAG 4
# MWAITFLG  064D    BIT 11 FLAG 4
# N22ORN17  144D    BIT 6 FLAG 9
# NEEDLFLG  006D    BIT 9 FLAG 0
# NEWIFLG  122D    BIT 13 FLAG 8
# NJETSFLG  015D    BIT 15 FLAG 1
# NODOFLAG  044D    BIT 1 FLAG 2


# Page 44


# NODOP01  018D    BIT 12 FLAG 1
# NORFHOR  004D    BIT 11 FLAG 0
# NORMSW  110D    BIT 10 FLAG 7
# NOSWITCH  098D    BIT 7 FLAG 6
# NRMIDFLG  062D    BIT 13 FLAG 4
# NRMNVFLG  067D    BIT 8 FLAG 4
# NRUPTFLG  071D    BIT 4 FLAG 4
# NWAITFLG  065D    BIT 10 FLAG 4
# OPTNSW  038D    BIT 7 FLAG 2  ETPIFLAG FIRSTFLG
# ORBWFLAG  054D    BIT 6 FLAG 3
# ORDERSW  129D    BIT 6 FLAG 8
# P21FLAG  033D    BIT 12 FLAG 2
# P22MKFLG  049D    BIT 11 FLAG 3
# P39/79SW  126D    BIT 9 FLAG 8
# PDSPFLAG  063D    BIT 12 FLAG 4
# PFRATFLG  041D    BIT 4 FLAG 2
# PINBRFLG  069D    BIT 6 FLAG 4
# PRECIFLG  052D    BIT 8 FLAG 3
# PRFTRKAT  060D    BIT 10 FLAG 5
# PRIODFLG  061D    BIT 14 FLAG 4
# PRONVFLG  068D    BIT 7 FLAG 4
# QUITFLAG  145D    BIT 5 FLAG 9
# R21MARK  031D    BIT 14 FLAG 2
# R22CAFLG  143D    BIT 7 FLAG 9
# R23FLG  021D    BIT 9 FLAG 1
# R31FLAG  146D    BIT 4 FLAG 9
# R53FLAG  009D    BIT 6 FLAG 0
# R57FLAG  097D    BIT 8 FLAG 6  KNOWNFLG EGSW
# R60FLAG  086D    BIT 4 FLAG 5
# REFSMFLG  047D    BIT 13 FLAG 3
# REINTFLG  158D    BIT 7 FLAG 10
# RELVELSW  096D    BIT 9 FLAG 6
# RENDWFLG  089D    BIT 1 FLAG 5
# RNDVZFLG  008D    BIT 7 FLAG 0
# RPQFLAG  120D    BIT 15 FLAG 6
# RVSW    111D    BIT 9 FLAG 7
# SAVECFLG  140D    BIT 10 FLAG 9
# SKIPVHF  035D    BIT 10 FLAG 2
# SLOPESW  027D    BIT 3 FLAG 1
# SOLNSW  087D    BIT 3 FLAG 5
# SOURCFLG  142D    BIT 8 FLAG 9
# STATEFLG  055D    BIT 5 FLAG 3
# STEERSW  034D    BIT 11 FLAG 2
# STIKFLAG  016D    BIT 14 FLAG 1
# STRULLSW  092D    BIT 13 FLAG 6
# SURFFLAG  127D    BIT 8 FLAG 8
# SWTOVER  135D    BIT 15 FLAG 9
# TARG1FLG  020D    BIT 10 FLAG 1


# Page 45


# TARG2FLG  021D    BIT 9 FLAG 1
# TERMIFLG  105D    BIT 15 FLAG 7
# TFFSW    119D    BIT 1 FLAG 7
# TIMRFLAG  109D    BIT 11 FLAG 7
# TRACKFLG  025D    BIT 5 FLAG 1
# TRM03FLG  026D    BIT 4 FLAG 1
# TRUNFLAG  011D    BIT 4 FLAG 0
# UPDATFLG  023D    BIT 7 FLAG 1
# UPLOCKFL  116D    BIT 4 FLAG 7
# V37FLAG  114D    BIT 6 FLAG 7
# V59FLAG  078D    BIT 12 FLAG 5
# V67FLAG  136D    BIT 14 FLAG 9
# V82EMFLG  137D    BIT 13 FLAG 9
# V94FLAG  139D    BIT 11 FLAG 9
# V96ONFLG  132D    BIT 3 FLAG 8
# VEHUPFLG  022D    BIT 8 FLAG 1
# VERIFLAG  117D    BIT 3 FLAG 7
# VFLAG    050D    BIT 10 FLAG 3
# VHFRFLAG  141D    BIT 9 FLAG 9
# VINTFLAG  057D    BIT 3 FLAG 3
# XDELVFLG  037D    BIT 8 FLAG 2
# XDSPFLAG  074D    BIT 1 FLAG 4


# Page 46


# INTERPRETIVE SWITCH BIT ASSIGNMENTS
FLAGWRD0  =  STATE +0  # (000-014)
          # (SET)      (RESET)
# BIT 15 FLAG 0
CPHIFLAG  =  000D    # OUTPUT OF CALCGA IS  OUTPUT OF CALCGA IS
          # CPHIX      THETAD
CPHIBIT    =  BIT15


# BIT 14 FLAG 0
JSWITCH    =  001D    # INTEGRATION OF W  INTEGRATION OF STATE
          # MATRIX    VECTOR
JSWCHBIT  =  BIT14


# BIT 13 FLAG 0
MIDFLAG    =  002D    # INTEGRATION WITH  INTEGRATION WITHOUT
          # SOLAR PERTURBATIONS  SOLAR PERTURBATIONS


MIDFLBIT  =  BIT13


# BIT 12 FLAG 0
MOONFLAG  =  003D    # MOON IS SPHERE OF   EARTH IS SPHERE OF
          # INFLUENCE    INFLUENCE


MOONBIT    =  BIT12


# BIT 11 FLAG 0
NORFHOR    =  004D    # FAR HORIZON    NEAR HORIZON


NORFBIT    =  BIT11


# BIT 10 FLAG 0
ZMEASURE  =  005D    # MEASUREMENT PLANET  MEASUREMENT PLANET
          # AND PRIMARY PLANET  AND PRIMARY PLANET
          # DIFFERENT    SAME


ZMEASBIT  =  BIT10


# BIT 9 FLAG 0
NEEDLFLG  =  006D    # TOTAL ATTITUDE  A/P FOLLOWING ERROR
          # ERROR DISPLAYED  DISPLAYED


NEEDLBIT  =  BIT9


# BIT 8 FLAG 0
IMUSE    =  007D    # IMU IN USE    IMU NOT IN USE


# Page 47


IMUSEBIT  =  BIT8


# BIT 7 FLAG 0
RNDVZFLG  =  008D    # P20 RUNNING    P20 NOT RUNNING


RNDVZBIT  =  BIT7


# BIT 6 FLAG 0
R53FLAG    =  009D    # V51 INITIATED    V51 NOT INITIATED


R53FLBIT  =   BIT8


# BIT 5 FLAG 0
F2RTE    =  010D    # IN TIME CRITICAL  NOT IN TIME CRITICAL
          # MODE      MODE


F2RTEBIT  =  BIT5


# BIT 4 FLAG 0
TRUNFLAG  =  011D    # DRIVING OF TRUNNION  DRIVING OF TRUNNION
          # ALLOWED    NOT ALLOWED


TRUNBIT    =  BIT4


# BIT 3 FLAG 0
FREEFLAG  =  012D    # (TEMPORARY FLAG USED IN MANY ROUTINES)


FREEFBIT  =  BIT3


# BIT 2 FLAG 0
AMOONFLG  =  13D    # STATE VECTOR IN  STATE VECTOR IN
AMOONBIT  =  BIT2    # LUNAR SPHERE AT  EARTH SPHERE AT
          # MIDTOAVE    MIDTOAVE


# BIT 1 FLAG 0
KFLAG    =  014D    # SEARCH SECTOR MORE  SEARCH SECTOR LESS
          # THAN 180 DEGREES  THAN 180 DEGREES


KBIT    =  BIT1


FLAGWRD1  =  STATE +1  # (015-029)
          # (SET)      (RESET)


# BIT 15 FLAG 1
NJETSFLG  =  015D    # TWO JET RCS BURN  FOUR JET RCS BURN


NJETSBIT  =  BIT15


# Page 48


# BIT 14 FLAG 1
STIKFLAG  =  016D    # RHC CONTROL    CMC CONTROL
STIKBIT    =  BIT14


# BIT 13 FLAG 1
ERADFLAG  =  017D    # EARTH, COMPUTE  EARTH, USED FIXED
          #   FISCHER ELLIPSOID    RADIUS
          #   RADIUS
          # MOON, USE FIXED  MOON, USE RLS FOR
          #   RADIUS      LUNAR RADIUS


ERADFBIT  =  BIT13


# BIT 12 FLAG 1
NODOP01    =  018D    # P01 NOT ALLOWED  P01 ALLOWED
NOP01BIT  =  BIT12


# BIT 11 FLAG 1
ENG2FLAG  =  019D    # RCS BURN    SPS BURN


ENG2BIT    =  BIT11


# BIT 10 FLAG 1
TARG1FLG  =  020D    # SIGHTING LEM    NOT SIGHTING LEM


TARG1BIT  =  BIT10


# BIT 9 FLAG 1
TARG2FLG  =   021D    # SIGHTING LANDMARK  SIGHTING STAR


TARG2BIT  =   BIT9


# BIT 9 FLAG 1
R23FLG    =  021D    # R23 MARKING


R23BIT    =  BIT9


# BIT 8 FLAG 1
VEHUPFLG  =  022D    # CSM STATE VECTOR  LEM STATE VECTOR
          # BEING UPDATED    BEING UPDATED


VEHUPBIT  =  BIT8


# BIT 7 FLAG 1
UPDATFLG  =  023D    # UPDATING BY MARKS  UPDATING BY MARKS
          # ALLOWED    NOT ALLOWED
# Page 49


UPDATBIT  =  BIT7


# BIT 6 FLAG 1
IDLEFAIL  =  024D    # INHIBIT R41    ENABLE R41 (ENGFAIL)


IDLEBIT    =  BIT6


# BIT 5 FLAG 1
TRACKFLG  =  025D    # TRACKING ALLOWED  TRACKING NOT ALLOWED


TRACKBIT  =  BIT5


# BIT 4 FLAG 1
TRM03FLG  =  026D    # REQUEST TO    NO REQUEST TO
          # TERMINATE P03 HAS  TERMINATE P03 HAS
          # BEEN ENTERED    BEEN ENTERED


TRM03BIT  =  BIT4


# BIT 3 FLAG 1
SLOPESW    =   027D    # ITERATE WITH BIAS  ITERATE WITH REGULA
          # METHOD IN ITERATOR  FALSI METHOD IN
          #      ITERATOR


SLOPEBIT  =  BIT3


# BIT 2 FLAG 1
GUESSW    =  028D    # NO STARTING VALUE  STARTING VALUE FOR
          # FOR ITERATION    ITERATION EXISTS


GUESSBIT  =  BIT2


# BIT 1 FLAG 1
AVEGFLAG  =  029D    # AVERAGEG (SERVICER)  AVERAGEG (SERVICER)
          # TO CONTINUE    TO CEASE


AVEGBIT    =  BIT1


FLAGWRD2  =  STATE +2  # (030-044)


          # (SET)      (RESET)


# BIT 15 FLAG 2
DRIFTFLG  =  030D    # T3RUPT CALLS GYRO  T3RUPT DOES NO GYRO
          # COMPENSATION    COMPENSATION


DRFTBIT    =  BIT15


# Page 50


# BIT 14 FLAG 2
R21MARK    =  031D    # OPTION ONE FOR  OPTION TWO FOR
          # MARKRUPT    MARKRUPT


R21BIT    =  BIT14


# BIT 13 FLAG 2
22DSPFLG  =  032D    # DISPLAY DR,DV    DO NOT DISPLAY DR,DV


22DSPBIT  =  BIT13


# BIT 12 FLAG 2
P21FLAG    =  033D    # SUCCEEDING PASS  1ST PASS THRU P21,
          # THRU P21, USE BASE  CALCULATE BASE
P21BIT    =  BIT12    # VECTOR FOR CALC.  VECTOR


STEERSW    =  034D    # STEERING TO BE DONE  STEERING OMITTED


STEERBIT  =  BIT11


# BIT 10 FLAG 2
SKIPVHF    =  035D    # DISREGARD RADAR  RADAR READ TO
          # READ BECAUSE OF  PROCEED NORMALLY
SKIPVBIT  =  BIT10    # SFTWRE OR HDWRE
          # RESTART


# BIT 9 FLAG 2
IMPULSW    =  036D    # MINIMUM IMPULSE  STEERING BURN (NO
          # BURN (CUTOFF TIME  CUTOFF TIME YET
          # SPECIFIED)    AVAILABLE)


IMPULBIT  =  BIT9


# BIT 8 FLAG 2
XDELVFLG  =  037D    # EXTERNAL DELTAV VG  LAMBERT (AIMPOINT)
          # COMPUTATION    VG COMPUTATION


XDELVBIT  =  BIT8


# BIT 7 FLAG 2
ETPIFLAG  =  038D    # ELEVATION ANGLE  TPI TIME SUPPLIED
          # SUPPLIED FOR P34,74  FOR P34,74


# BIT 7 FLAG 2
FIRSTFLG  =  ETPIFLAG  # FIRST PASS    SUCCEEDING PASS THRU
          # THRU S40.9    S40.9


FIRSTBIT  =  BIT7


# BIT 7 FLAG 2
# Page 51
OPTNSW    =  ETPIFLAG  # SOI PHASE P38/P78  SOR PHASE OF P38/P78


FINALBIT  =  BIT6


# BIT 6 FLAG 2
FINALFLG  =  039D    # LAST PASS THROUGH  INTERIM PASS THROUGH
          # RENDEZVOUS PROGRAM  RENDEZVOUS PROGRAM
          # COMPUTATIONS    COMPUTATIONS


AVFLBIT    =  BIT5


# BIT 5 FLAG 2
AVFLAG    =  040D    # LEM IS ACTIVE    CSM IS ACTIVE
          # VEHICLE    VEHICLE


# BIT 4 FLAG 2
PFRATFLG  =  041D    # PREFERRED ATTITUDE  PREFERRED ATTITUDE
          # COMPUTED    NOT COMPUTED


PFRATBIT  =  BIT4


# BIT 3 FLAG 2
    =  042D


# BIT 2 FLAG 2
CALCMAN2  =  043D    # PERFORM MANEUVER  BYPASS STARTING
          # STARTING PROCEDURE  PROCEDURE


CALC2BIT  =  BIT2


# BIT 1 FLAG 2
NODOFLAG  =  044D    # V37 NOT PERMITTED   V37 PERMITTED


NODOBIT    =  BIT1


FLAGWRD3  =  STATE +3  # (045-059)
          # (SET)      (RESET)


# BIT 15 FLAG 3
    =  045D


# BIT 14 FLAG 3
GLOKFAIL  =  046D    # GIMBAL LOCK HAS  NOT IN GIMBAL LOCK
          # OCCURRED


GLOKFBIT  =  BIT14


# Page 52


# BIT 13 FLAG 3
REFSMFLG  =  047D    # REFSMMAT GOOD    REFSMMAT NO GOOD


REFSMBIT  =  BIT13


# BIT 12 FLAG 3
LUNAFLAG  =  048D    # LUNAR LAT-LONG  EARTH LAT-LONG


LUNABIT    =  BIT12


# BIT 11 FLAG 3
P22MKFLG  =  049D    # P22 DOWNLINKED MARK  P22 DOWNLINK MARK
          # DATA WAS JUST TAKEN  DATA NOT JUST TAKEN


P22MKBIT  =  BIT11


# BIT 10 FLAG 3
VFLAG    =  050D    # LESS THAN TWO STARS  TWO STARS IN FIELD
          # IN FIELD OF VIEW  OF VIEW


VFLAGBIT  =  BIT10


# BIT 9 FLAG 3
    =  051D


# BIT 8 FLAG 3
PRECIFLG  =  052D    # CSMPREC OR LEMPREC  INTEGRV
          # OR INTEGRVS CALLED  CALLED


PRECIBIT  =  BIT8


# BIT 7 FLAG 3
CULTFLAG  =  053D    # STAR OCCULTED    STAR NOT OCCULTED


CULTBIT    =  BIT7


# BIT 6 FLAG 3
ORBWFLAG  =  054D    # W MATRIX VALID FOR  W MATRIX INVALID FOR
          # ORBITAL NAVIGATION  ORBITAL NAVIGATION


ORBWFBIT  =  BIT6


# BIT 5 FLAG 3
STATEFLG  =  055D    # PERMANENT STATE  PERMANENT STATE
          # VECTOR UPDATED  VECTOR NOT UPDATED


STATEBIT  =  BIT5


# BIT 4 FLAG 3
INTYPFLG  =  056D    # CONIC INTEGRATION  ENCKE INTEGRATION
# Page 53
INTYBIT    =  BIT4


# BIT 3 FLAG 3
VINTFLAG  =  057D    # CSM STATE VECTOR  LEM STATE VECTOR
          # BEING INTEGRATED  BEING INTEGRATED


VINTFBIT  =  BIT3


# BIT 2 FLAG 3
D6OR9FLG  =  058D    # DIMENSION OF W IS 9  DIMENSION OF W IS 6
          # FOR INTEGRATION  FOR INTEGRATION


D6OR9BIT  =  BIT2


# BIT 1 FLAG 3
DIM0FLAG  =  059D    # W MATRIX IS TO BE  W MATRIX IS NOT TO
          # USED      BE USED


FLAGWRD4  =  STATE +4  # (060-074)
          # (SET)      (RESET)


DIM0BIT    =  BIT1


# BIT 15 FLAG 4
MRKIDFLG  =  060D    # MARK DISPLAY IN   NO MARK DISPLAY IN
          # ENDIDLE    ENDIDLE


MRKIDBIT  =  BIT15


# BIT 14 FLAG 4
PRIODFLG  =  061D    # PRIORITY DISPLAY IN  NO PRIORITY DISPLAY
          # ENDIDLE    IN ENDIDLE


PRIODBIT  =  BIT14


# BIT 13 FLAG 4
NRMIDFLG  =  062D    # NORMAL DISPLAY IN  NO NORMAL DISPLAY
          # ENDIDLE    IN ENDIDLE


NRMIDBIT  =  BIT13


# BIT 12 FLAG 4
PDSPFLAG  =  063D    # CAN'T INTERRUPT  SEE M. HAMILTON
          # PRIORITY DISPLAY


PDSPFBIT  =  BIT12


# BIT 11 FLAG 4
MWAITFLG  =  064D    # HIGHER PRIORITY  NO HIGHER PRIORITY
# Page 54
          # DISPLAY OPERATING  DISPLAY OPERATING
          # WHEN MARK DISPLAY  WHEN MARK DISPLAY
          # INITIATED    INITIATED
MWAITBIT  =  BIT11


# BIT 10 FLAG 4
NWAITFLG  =  065D    # HIGHER PRIORITY  NO HIGHER PRIORITY
          # DISPLAY OPERATING  DISPLAY OPERATING
          # WHEN NORMAL    WHEN NORMAL DISPLAY
          # DISPLAY INITIATED  INITIATED


NWAITBIT  =  BIT10


# BIT 9 FLAG 4
MRKNVFLG  =  066D    # ASTRONAUT USING  ASTRONAUT NOT USING
          # KEYBOARD WHEN MARK  KEYBOARD WHEN MARK
          # DISPLAY INITIATED  DISPLAY INITIATED


MRKNVBIT  =  BIT9


# BIT 8 FLAG 4
NRMNVFLG  =  067D    # ASTRONAUT USING  ASTRONAUT NOT USING
          # KEYBOARD WHEN    KEYBOARD WHEN
          # NORMAL DISPLAY  NORMAL DISPLAY
          # INITIATED    INITIATED


NRMNVBIT  =  BIT8


# BIT 7 FLAG 4
PRONVFLG  =  068D    # ASTRONAUT USING  ASTRONAUT NOT USING
          # KEYBOARD WHEN    KEYBOARD WHEN
          # PRIORITY DISPLAY  PRIORITY DISPLAY
          # INITIATED    INITIATED


PRONVBIT  =  BIT7


# BIT 6 FLAG 4
PINBRFLG  =  069D    # ASTRONAUT HAS    ASTRONAUT HAS NOT
          # INTERFERED WITH  INTERFERED WITH
          # EXISTING DISPLAY  EXISTING DISPLAY


PINBRBIT  =  BIT6


# BIT 5 FLAG 4
MRUPTFLG  =  070D    # MARK DISPLAY    MARK DISPLAY NOT
          # INTERRUPTED BY  INTERRUPTED BY
          # PRIORITY DISPLAY  PRIORITY DISPLAY


MRUPTBIT  =  BIT5
# Page 55


# BIT 4 FLAG 4
NRUPTFLG  =  071D    # NORMAL DISPLAY  NORMAL DISPLAY NOT
          # INTERRUPTED BY  INTERRUPTED BY
          # PRIORITY OR MARK  PRIORITY OR MARK
          # DISPLAY    DISPLAY


NRUPTBIT  =  BIT4


# BIT 3 FLAG 4
MKOVFLAG  =  072D    # MARK DISPLAY OVER  NO MARK DISPLAY OVER
          # NORMAL    NORMAL


MKOVBIT    =  BIT3


# BIT 2 FLAG 4        # DISPLAY BIT
    =  073D    # CLEARED AT INTERVALS


# BIT 1 FLAG 4
XDSPFLAG  =  074D    # MARK DISPLAY NOT TO  NO SPECIAL MARK
          # BE INTERRUPTED  INFORMATION


XDSPBIT    =  BIT1


FLAGWRD5  =  STATE +5  # (075-099)
          # (SET)      (RESET)


# BIT 15 FLAG 5
DSKYFLAG  =  075D    # DISPLAYS SENT TO  NO DISPLAYS TO DSKY
          # DSKY
DSKYBIT    =  BIT15


# BIT 14 FLAG 5
RETROFLG  =  076D    # P37 PREMANEUVER  ORBIT NOT RETROGRADE
RETROBIT  =  BIT14    # ORBIT IS RETROGRADE


# BIT 13 FLAG 5
SLOWFLG    =  077D    # P37 TRANSEARTH  SLOW DOWN IS NOT
SLOWBIT    =  BIT13    # COAST SLOW DOWN  DESIRED
          # IS DESIRED


# BIT 12 FLAG 5
V59FLAG    =  078D    # CALIBRATING FOR  NORMAL MARKING FOR
          # P23      P23


V59FLBIT  =  BIT12


# BIT 11 FLAG 5
# Page 56
INCORFLG  =  079D    # FIRST INCORPORATION  SECOND INCORPORATION


INCORBIT  =  BIT11


# BIT 10 FLAG 5
RNGSCFLG  =  080D    # ANOTHER TAG FOR PRFTRKAT


# BIT 10 FLAG 5
PRFTRKAT  =  RNGSCFLG  # PREF TRACK ATT  +K AXIS TRACK ATT


PRFTRBIT  =  BIT10


# BIT 9 FLAG 5
DMENFLG    =  081D    # DIMENSION OF W IS 9  DIMENSION OF W IS 6
          # FOR INCORPORATION  FOR INCORPORATION


DMENFBIT  =  BIT9


# BIT 8 FLAG 5
COMPUTER  =  082D    # COMPUTER IS CMC  COMPUTER IS LGC


COMPTBIT  =  BIT8


# BIT 7 FLAG 5
ENGONFLG  =  083D    # ENGINE TURNED ON  ENGINE TURNED OFF


ENGONBIT  =  BIT7


# BIT 6 FLAG 5
3AXISFLG  =  084D    # MANEUVER SPECIFIED  MANEUVER SPECIFIED
          # BY THREE AXES    BY ONE AXIS


3AXISBIT  =  BIT6


# BIT 5 FLAG 5
GRRBKFLG  =  085D    # BACKUP GRR RECEIVED  BACKUP GRR NOT
          #      RECEIVED


GRRBKBIT  =  BIT5


# BIT 4 FLAG 5
R60FLAG    =  086D    # R61 MUST USE R60  NORMAL R61


R60FLBIT  =  BIT4


# BIT 3 FLAG 5
SOLNSW    =  087D    # LAMBERT DOES NOT  LAMBERT CONVERGES OR
# Page 57
          # CONVERGE, OR TIME-  TIME-RADIUS NON
          # RADIUS NEARLY CIRC.  CIRCULAR.
SOLNSBIT  =  BIT3


# BIT 2 FLAG 5
MGLVFLAG  =  088D    # LOCAL VERTICAL  MIDDLE GIMBAL ANGLE
          # COORDINATES     COMPUTED
          # COMPUTED


MGLVFBIT  =  BIT2


# BIT 1 FLAG 5
RENDWFLG  =  089D    # W MATRIX VALID  W MATRIX INVALID
          # FOR RENDEZVOUS  FOR RENDEZVOUS
          # NAVIGATION    NAVIGATION


RENDWBIT  =  BIT1


FLAGWRD6  =  STATE +6  # (090-104)
          # (SET)      (RESET)


# BIT 15 FLAG 6
DAPBIT1    =  090D    # 1 SATURN 1 TVC  0 RCS  0 NO


DAP1BIT    =  BIT15


# BIT 14 FLAG 6
DAPBIT2    =  091D    # 1 A/P    0 A/P  1 A/P  0 A/P


DAP2BIT    =  BIT14


# BIT 13 FLAG 6
STRULLSW  =  092D    # DO STEERULL    DO ULAGEOFF ONLY


STRULBIT  =  BIT13


# BIT 13 FLAG 6
ENTRYDSP  =  STRULLSW  # DO ENTRY DISPLAY  OMIT ENTRY DISPLAY
          # VIA ENTRYVN.


ENDSPBIT  =  BIT13


# BIT 12 FLAG 6
CMDAPARM  =  093D    # ALLOW ENTRY FIRINGS  INHIBIT ENTRY FIRING
          # AND CALCULATIONS  AND CONTROL FUNCTION
# Page 58
CMDARMBIT  =  BIT12


# BIT 11 FLAG 6
GAMDIFSW  =  094D    # CALCULATE GAMDOT  GAMDOT NOT TO BE
          #      CALCULATED


GMDIFBIT  =  BIT11


# BIT 10 FLAG 6
GONEPAST  =  095D    # LATERAL CONTROL  LATERAL CONTROL
          # CALCULATIONS TO BE  CALCULATIONS TO BE
          # OMITTED    DONE


GONEBIT    =  BIT10


# BIT 9 FLAG 6
RELVELSW  =  096D    # TARGETING USES  TARGETING USES
          # EARTH-RELATIVE  INERTIAL VELOCITY
          # VELOCITY.


RELVBIT    =  BIT9


# BIT 8 FLAG 6
EGSW    =  097D    # IN FINAL PHASE  NOT IN FINAL PHASE


EGFLGBIT  =  BIT8


# BIT 8 FLAG 6
KNOWNFLG  =  EGSW    # LANDMARK KNOWN  LANDMARK UNKNOWN


KNOWNBIT  =  BIT8


# BIT 8 FLAG 6
R57FLAG    =  KNOWNFLG  # DO NOT DO R57    DO R57, TRUNION
          # TRUNION BIAS HAS  BIAS NEEDED
          # BEEN OBTAINED.


R57BIT    =  BIT8


# BIT 7 FLAG 6
NOSWITCH  =  098D    # LATERAL ROLL    LATERAL ROLL MANEUVER
          # MANEUVER INHIBITED  PERMITTED IN ENTRY
          # IN ENTRY


NOSWBIT    =  BIT7


# BIT 6 FLAG 6
HIND    =  099D    # ITERATING HUNTEST  ITERATING OF HUNTEST
          # CALCULATIONS TO BE  CALCULATIONS TO BE
          # DONE AFTER RANGE  OMITTED AFTER RANGE
          # PREDICTION    PREDICTION
# Page 59


HINDBIT    =   BIT6


# BIT 5 FLAG 6
INRLSW    =  100D    # INITIAL ROLL    INITIAL ROLL
          # V(LV)      V(LV)


INRLBIT    =  BIT5


          # ATTITUDE NOT HELD  ATTITUDE HELD


# BIT 4 FLAG 6
LATSW    =  101D    # DOWNLIFT NOT    DOWNLIFT INHIBITED
          # INHIBITED


LATSWBIT  =  BIT4


# BIT 3 FLAG 6
.05GSW    =  102D    # DRAG OVER .05G  DRAG LESS THAN .05G


.05GBIT    =  BIT3


# BIT 3 FLAG 6
    =  102D


# BIT 2 FLAG 6
CM/DSTBY  =  103D    # ENTRY DAP ACTIVATED  ENTRY DAP NOT
          #      ACTIVATED


CM/DSBIT  =  BIT2


# BIT 1 FLAG 6
GYMDIFSW  =  104D    # CDU DIFFERENCES AND   CDU DIFFERENCES AND
          # BODY RATES COMPUTED  BODY RATES NOT
          #      COMPUTED


GYMDIBIT  =  BIT1


FLAGWRD7  =  STATE +7  # (105-119)
          # (SET)      (RESET)


# BIT 15 FLAG 7
TERMIFLG  =  105D    # TERMINATE R52    DO NOT TERMINATE R52


TERMIBIT  =  BIT15


# BIT 14 FLAG 7
ITSWICH    =  106D    # ACCEPT NEXT LAMBERT  TEST LAMBERT ANSWER
          # TPI SEARCH SOLUTION  AGAINST LIMITS
# Page 60


ITSWBIT    =  BIT14


# BIT 13 FLAG 7
IGNFLAG    =  107D    # TIG HAS ARRIVED  TIG HAS NOT ARRIVED


IGNFLBIT  =  BIT13


# BIT 12 FLAG 7
ASTNFLAG  =  108D    # ASTRONAUT HAS    ASTRONAUT HAS NOT
          # OKAYED IGNITION  OKAYED IGNITION


ASTNBIT    =  BIT12


# BIT 11 FLAG 7
TIMRFLAG  =  109D    # CLOKTASK OPERATING  CLOKTASK INOPERATIVE


TIMRBIT    =  BIT11


# BIT 10 FLAG 7
NORMSW    =  110D    # UNIT NORMAL INPUT  LAMBERT COMPUTE ITS
          # TO LAMBERT.    OWN UNIT NORMAL.


NORMSBIT  =  BIT10


# BIT 9 FLAG 7
RVSW    =  111D    # DO NOT COMPUTE FINAL  COMPUTE FINAL STATE
          # STATE VECTOR IN  VECTOR IN TIME-THETA
          # TIME-THETA


RVSWBIT    =  BIT9


# BIT 8 FLAG 7
GONEBY    =  112D    # PASSED TARGET    APPROACHING TARGET


GONBYBIT  =  BIT8


# BIT 7 FLAG 7
    =  113D


# BIT 6 FLAG 7
V37FLAG    =  114D    # AVERAGEG (SERVICER)  AVERAGEG (SERVICER)
          # RUNNING    OFF


V37FLBIT  =  BIT6


# BIT 5 FLAG 7
    =  115D
# Page 61
    =  BIT5


# BIT 4 FLAG 7
UPLOCKFL  =  116D    # K-KBAR-K FAIL    NO K-KBAR-K FAIL


UPLOCBIT  =  BIT4


# BIT 3 FLAG 7
VERIFLAG  =  117D    # CHANGED WHEN V33E OCCURS AT END OF P27


VERIFBIT  =  BIT3


# BIT 2 FLAG 7
ATTCHFLG  =  118D    # LM,CM ATTACHED  LM,CM NOT ATTACHED


ATTCHBIT  =  BIT2


# BIT 1 FLAG 7
TFFSW    =  119D    # CALCULATE TPERIGEE  CALCULATE TFF


TFFSWBIT  =  BIT1


FLAGWRD8  =  STATE +8D  # (120-134)
          # (SET)      (RESET)


# BIT 15 FLAG 8
RPQFLAG    =  120D    # RPQ NOT COMPUTED  RPQ COMPUTED


RPQFLBIT  =  BIT15


# BIT 14 FLAG 8
    =  121D


# BIT 13 FLAG 8
NEWIFLG    =  122D    # FIRST PASS THROUGH  SUCCEEDING ITERATION
          # INTEGRATION    OF INTEGRATION


NEWIBIT    =  BIT13


# BIT 12 FLAG 8
CMOONFLG  =  123D    # PERMANENT CSM STATE  PERMANENT CSM STATE
          # IN LUNAR SPHERE  IN EARTH SPHERE


CMOONBIT  =  BIT12


# BIT 11 FLAG 8
LMOONFLG  =  124D    # PERMANENT LM STATE  PERMANENT LM STATE
          # IN LUNAR SPHERE  IN EARTH SPHERE


LMOONBIT  =  BIT11


# Page 62


# BIT 10 FLAG 8
ADVTRK    =  125D    # ADVANCE GROUND TRACK  NOT ADVANCED
          # SIGHTING WANTED  GROUND TRACK


ADVTKBIT  =  BIT10


# BIT 9 FLAG 8
P39/79SW  =  126D    # P39/79 OPERATING  P38/78 OPERATING


P39SWBIT  =  BIT9


# BIT 8 FLAG 8
SURFFLAG  =  127D    # LM ON LUNAR SURFACE  LM NOT ON LUNAR
          #      SURFACE


SURFFBIT  =  BIT8


# BIT 7 FLAG 8
INFINFLG  =  128D    # NO CONIC SOLUTION  CONIC SOLUTION
          # (CLOSURE THROUGH  EXISTS.
          # INFINITY REQUIRED).


INFINBIT  =  BIT7


# BIT 6 FLAG 8
ORDERSW    =  129D    # ITERATOR USES 2ND  ITERATOR USES 1ST
          # ORDER MINIMUM MODE  ORDER STANDARD MODE


ORDERBIT  =  BIT6


# BIT 5 FLAG 8
APSESW    =  130D    # RDESIRED OUTSIDE  RDESIRED INSIDE
          # PERICENTER-APOCENTER  PERICENTER-APOCENTER
          # RANGE IN TIME-RAD  RANGE IN TIME-RADIUS


APSESBIT  =  BIT5


# BIT 4 FLAG 8
COGAFLAG  =  131D    # NO CONIC SOLUTION   CONIC SOLUTION
          # TOO CLOSE TO    EXISTS (COGA DOES
          # RECTILINEAR (COGA  NOT OVERFLOW).
          # OVERFLOWS).
COGAFBIT  =  BIT4


# Page 63


# BIT 3 FLAG 8
V96ONFLG  =  132D    # P00 INTEGRATION HAS  P00 INTEGRATION IS
          # BEEN INHIBITED BY  PROCEEDING REGULARLY
          # V96


# BIT 2 FLAG 8
    =  133D


# BIT 1 FLAG 8
360SW    =  134D    # TRANSFER ANGLE NEAR  TRANSFER ANGLE NOT
          # 360 DEGREES    NEAR 360 DEGREES


360SWBIT  =  BIT1


FLAGWRD9  =  STATE +9D  # (135-149)
          # (SET)      (RESET)


# BIT 15 FLAG 9
SWTOVER    =  135D    # SWITCHOVER HAS  NO SWITCHOVER YET
          # OCCURRED.


SWTOVBIT  =  BIT15


# BIT 14 FLAG 9
    =  136D


V67FLBIT  =  BIT14


# BIT 13 FLAG 9
V82EMFLG  =  137D    # MOON VICINITY    EARTH VICINITY


V82EMBIT  =  BIT13


# BIT 12 FLAG 9
MAXDBFLG  =  138D    # MAX DB SELECTED  MIN DB SELECTED


MAXDBBIT  =  BIT12


# BIT 11 FLAG 9
V94FLAG    =  139D    # V94 ALLOWED DURING  V94 NOT ALLOWED
          # P23


V94FLBIT  =  BIT11


# BIT 10 FLAG 9
SAVECFLG  =  140D    # P23 DISPLAY AND  P23 DISPLAY AND
          # DATA STORAGE AFTER  DATA STORAGE BEFORE
# Page 64
          # MARK IS DONE    MARK IS DONE


SAVECBIT  =  BIT10


# BIT 9 FLAG 9
VHFRFLAG  =  141D    # ALLOW R22 TO     STOP ACCEPTANCE
          # ACCEPT RANGE    OF RANGE DATA
          # DATA


VHFRBIT    =  BIT9


# BIT 8 FLAG 9
SOURCFLG  =  142D    # SOURCE OF INPUT  SOURCE OF INPUT
          # DATA IS FROM    DATA IS FROM
          # VHF RADAR    OPTICS MARK


SOURCBIT  =  BIT8


# BIT 7 FLAG 9
R22CAFLG  =  143D    # R-22 CALCULATIONS  R-22 CALCULATIONS
          # ARE GOING ON    ARE NOT GOING ON


R22CABIT  =  BIT7


# BIT 6 FLAG 9
N22ORN17  =  144D    # COMPUTE TOTAL    COMPUTE TOTAL
          # ATTITUDE ERRORS  ATTITUDE ERRORS
          # W.R.T. N22 (V62)  W.R.T. N17 (V63)


N2217BIT  =  BIT6


# BIT 5 FLAG 9
QUITFLAG  =  145D    # TERMINATE AND EXIT  CONTINUE INTEGRATION
QUITBIT    =  BIT5    # FROM INTEGRATION


# BIT 4 FLAG 9
R31FLAG    =  146D    # R31 SELECTED (V63)  R34 SELECTED (V65)


R31FLBIT  =  BIT4


# BIT 3 FLAG 9
MID1FLAG  =  147D    # INTEGRATE TO TDEC  INTEGRATE TO THE
          #      THEN-PRESENT TIME


MID1FBIT  =  BIT3


# BIT 2 FLAG 9
MIDAVFLG  =  148D    # INTEGRATION ENTERED  INTEGRATION WAS
          # FROM ONE OF MIDTOAV  NOT ENTERED VIA
          # PORTALS    MIDTOAV
# Page 65


MIDAVBIT  =  BIT2


# BIT 1 FLAG 9
AVEMIDSW  =  149D    # AVETOMID CALLING  NO AVETOMID W INTEGER
          # FOR W MATRIX INTEGR  ALLOW SET UP RN,VN,
          # DON'T WRITE OVER RN,  PIPTIME
          # VN,PIPTIME


AVEMDBIT  =  BIT1


FLGWRD10  =  STATE  +10D  # (150-164)
          # (SET)      (RESET)


RASFLAG    =  STATE  +10D


# BIT 15 FLAG 10
    =  150D


# BIT 14 FLAG 10
INTFLAG    =  151D    # INTEGRATION IN  INTEGRATION NOT IN
          # PROGRESS    PROGRESS


INTFLBIT  =  BIT14


# BIT 13 FLAG 10
    =  152D


# BIT 12 FLAG 10
    =  153D


# BIT 11 FLAG 10
    =  154D


# BIT 10 FLAG 10
    =  155D


# BIT 9 FLAG 10
    =  156D


# BIT 8 FLAG 10
    =  157D
# Page 66


# BIT 7 FLAG 10
REINTFLG  =  158D    # INTEGRATION ROUTINE  INTEGRATION ROUTINE
          # TO BE RESTARTED  NOT TO BE RESTARTED
REINTBIT  =  BIT7


# BIT 6 FLAG 10
    =  159D


# BIT 5 FLAG 10
    =  160D


# BIT 4 FLAG 10
    =  161D


# BIT 3 FLAG 10
    =  162D


# BIT 2 FLAG 10
    =  163D


# BIT 1 FLAG 10
    =  164D


FLGWRD11  =  STATE  +11D  # (165-179)
          # (SET)      (RESET)


# BIT 15 FLAG 11
S32.1F1    =  165D    # DELTAN AT CSI TIME  DVT1 LESS THAN MAX
S32BIT1    =  BIT15    # ONE EXCEEDS MAX


# BIT 14 FLAG 11
S32.1F2    =  166D    # FIRST PASS OF   REITERATION OF
S32BIT2    =  BIT14    # NEWTON INTEGRATION  NEWTON


# BIT 13 FLAG 11
S32.1F3A  =  167D    # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
S32BIT3A  =  BIT13    # PAIR (13,12) INDICATING THE POSSIBLE OC-
          # CURRENCE OF 2NEWTON ITERATIONS FOR S32.1
# BIT 12 FLAG 11      # IN THE PROGRAM IN THE FOLLOWING ORDER:
S32.1F3B  =  168D    # (0,1) (I.E. BIT 13 RESET, BIT 12 SET)
# Page 67
S3229T3B  =  BIT12    #      = FIRST NEWTON ITERATION BEING DONE
          # (0,0)= FIRST PASS OF 2ND NEWTON ITER.
          # (1,1)= 50 FPS STAGE OF 2ND NEWT ITER.
          # (1,0)= REMAINDER OF 2ND NEWT ITER.


# BIT 11 FLAG 11
    =  169D


# BIT 10 FLAG 11
    =  170D


# BIT 9 FLAG 11
    =  171D


# BIT 8 FLAG 11
    =  172D


# BIT 7 FLAG 11
    =  173D


# BIT 6 FLAG 11
    =  174D


# BIT 5 FLAG 11
    =  175D


# BIT 4 FLAG 11
    =  176D


# BIT 3 FLAG 11
    =  177D


# BIT 2 FLAG 11
    =  178D


# BIT 1 FLAG 11
    =  179D


# Page 68
# 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.    (12D)


STATE    ERASE  +11D


# PAD LOAD FOR DAPS
EMDOT    ERASE      # I(1)PL (SPS FLOW RATE, SC AT B+3 KG/CS)


# Page 69


# EXIT FOR V83
STATEXIT  ERASE      # I(1) STQ ADDRESS FOR STATEXIT


# UNUSED ERASABLES ********(2)
ERASFILL  ERASE  +1


# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS
# (INTB15+ THROUGH RUPTMXTM)    (32D)
INTB15+    ERASE      # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
DSEXIT    EQUALS  INTB15+    # RETURN FOR DSPIN
EXITEM    EQUALS  INTB15+    # RETURN FOR SCALE FACTOR ROUTINE SELECT
BLANKRET  EQUALS  INTB15+    # RETURN FOR 2BLANK


INTBIT15  ERASE      # SIMILAR TO ABOVE.
WRDRET    EQUALS  INTBIT15  # RETURN FOR 5BLANK.
WDRET    EQUALS  INTBIT15  # RETURN FOR DSPWD
DECRET    EQUALS  INTBIT15  # RETURN FOR PUTCOM(DEC LOAD)
21/22REG  EQUALS  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 ADDRESSE.
UPDATRET  EQUALS  POLISH    # RETURN FOR UPDATNN, UPDATVB
CHAR    EQUALS  POLISH    # TEMP FOR CHARIN
ERCNT    EQUALS  POLISH    # COUNTER FOR ERROR LIGHT RESET
DECOUNT    EQUALS  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    EQUALS  VBUF    # TEMP FOR +,- ON
NOUNTEM    EQUALS  VBUF    # COUNTER FOR MIXNOUN FETCH
DISTEM    EQUALS  VBUF    # COUNTER FOR OCTAL DISPLAY VERB
DECTEM    EQUALS  VBUF    # COUNTER FOR FETCH (DEC DISPLAY VERBS)


SGNOFF    EQUALS  VBUF +1    # TEMP FOR +,- ON
NVTEMP    EQUALS  VBUF +1    # TEMP FOR NVSUB
SFTEMP1    EQUALS  VBUF +1    # STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
HITEMIN    EQUALS  VBUF +1    # TEMP FOR LOAD OF HRS,MIN,SEC
          # MUST = LOTEMIN-1.


CODE    EQUALS  VBUF +2    # FOR DSPIN
SFTEMP2    EQUALS  VBUF +2    # STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
LOTEMIN    EQUALS  VBUF +2    # TEMP FOR LOAD OF HRS,MIN,SEC
# Page 70
          #   MUST = HITEMIN+1
MIXTEMP    EQUALS  VBUF +3    # FOR MIXNOUN DATA
SIGNRET    EQUALS  VBUF +3    # RETURN FOR +,- ON


# ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5


BUF    ERASE  +2    # TEMPORARY SCALAR STORAGE
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  EQUALS  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    EQUALS  DOTINC    # EXIT FROM ENTER


DOTRET    ERASE      # RETURN FROM DOT SUBROUTINE
DVNORMCT  EQUALS  DOTRET    # DIVIDEND NORMALIZATION COUNT IN DDV.
ESCAPE2    EQUALS  DOTRET    # ALTERNATE ARCSIN/ARCCOS SWITCH
WDCNT    EQUALS  DOTRET    # CHAR COUNTER FOR DSPWD
INREL    EQUALS  DOTRET    # INPUT BUFFER SELECTOR ( 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  EQUALS  MATINC    # DSPCOUNT SAVE FOR DSPMM
MIXBR    EQUALS  MATINC    # INDICATOR FOR MIXED OR NORMAL NOUN


TEM1    ERASE      # EXEC TEMP
POLYRET    EQUALS  TEM1
DSREL    EQUALS  TEM1    # REL ADDRESS FOR DSPIN


TEM2    ERASE      # EXEC TEMP
DSMAG    EQUALS  TEM2    # MAGNITUDE STORE FOR DSPIN
IDADDTEM  EQUALS  TEM2    # MIXNOUN INDIRECT ADDRESS STORAGE


TEM3    ERASE      # EXEC TEMP
COUNT    EQUALS  TEM3    # FOR DSPIN


TEM4    ERASE      # EXEC TEMP
LSTPTR    EQUALS  TEM4    # LIST POINTER FOR GRABUSY
RELRET    EQUALS  TEM4    # RETURN FOR RELDSP
FREERET    EQUALS  TEM4    # RETURN FOR FREEDSP
DSPWDRET  EQUALS  TEM4    # RETURN FOR DSPSIGN
SEPSCRET  EQUALS  TEM4    # RETURN FOR SEPSEC
SEPMNRET  EQUALS  TEM4    # RETURN FOR SEPMIN


TEM5    ERASE      # EXEC TEMP
# Page 71
NOUNADD    EQUALS  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)
          # 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  BUF2    # B(2)TMP


DEXI    =  DEX1


# Page 72
# 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  +71D    # SEVEN SETS OF 12 REGISTERS EACH


# SPECIAL DOWNLINK BUFFER. -- OVERLAYED BY P27 STORAGE --


# P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D)


COMPNUMB  ERASE  +23D    # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
UPOLDMOD  EQUALS  COMPNUMB +1  # B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
UPVERB    EQUALS  UPOLDMOD +1  # B(1)TMP VERB NUMBER
UPCOUNT    EQUALS  UPVERB +1  # B(1)TMP UPBUFF INDEX
UPBUFF    EQUALS  UPCOUNT +1  # B(20D)


# MORE P27 STORAGE.      (2D)


UPTEMP    ERASE      # B(1)TMP SCRATCH
UPVERBSV  ERASE      # B(1)TMP
INTWAK1Q  EQUALS  UPTEMP    # (06D)
# (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.)


# THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP.


CMTMTIME  =  UPBUFF    # B(1) (VEHICLE BODY RATE INFO IS
SW/NDX    =  CMTMTIME +1  # B(1)  TELEMETERED EACH 0.2 SEC. DURING
ENDBUF    =  CMTMTIME +16D  # B(1)  ENTRY.)


V1    =  ENDBUF +1  # I(2) REENTRY, P64-P65
A0    =  V1 +2    # I(2) REENTRY, P64-P65
          # HI-ORDER WORD ONLY ON DNLNK.


# ALIGNMENT STORAGE.      (5D)
# (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)


QMAJ    EQUALS  COMPNUMB  # B(1)TMP
MARKINDX  EQUALS  QMAJ  +1  # B(1)TMP
BESTI    EQUALS  MARKINDX +1  # I(1)TMP
BESTJ    EQUALS  BESTI  +1  # I(1)TMP
STARIND    EQUALS  BESTJ  +1  # I(1)TMP


# Page 73
# ALIGNMENT/S40.2,3 COMMON STORAGE.  (18D)


XSMD    EQUALS  UPBUFF  +2  # I(6)TMP
YSMD    EQUALS  XSMD  +6  # I(6)TMP
ZSMD    EQUALS  YSMD  +6  # I(6)TMP


XSCREF    =  XSMD    # SPACE CRAFT AXES IN REF COORDS.
YSCREF    =  YSMD
ZSCREF    =  ZSMD
ZPRIME    =  22D
PDA    =  22D
COSTH    =  16D
SINTH    =  18D
THETA    =  20D
STARM    =  32D


# DOWNLINK STORAGE      (18D)


DNLSTADR  EQUALS  DNLSTCOD  # CONTENTS NO LONGER AN ADDR BUT A CODE


DNLSTCOD  ERASE      # B(1)PRM ID CODE OF DOWNLIST
DUMPCNT    ERASE      # B(1)PRM
LDATALST  ERASE      # B(1)
DNTMGOTO  ERASE      # B(1)
TMINDEX    ERASE      # B(1)
DUMPLOC    EQUALS  TMINDEX    # CONTAINS ECADR OF AGC DP WORD BEING DUMPED
          # AND COUNT OF COMPLETE DUMPS ALREADY
          # SENT.
DNQ    ERASE      # B(1)
DNTMBUFF  ERASE  +11D    # B(12)PRM DOWNLINK SNAPSHOT BUFFER


# OPTICS MARKING, UNSHARED.    (8D)


MKNDX    ERASE
MKT2T1    ERASE  +1
MKCDUY    ERASE
MKCDUS    ERASE
MKCDUZ    ERASE
MKCDUT    ERASE
MKCDUX    ERASE


# FOR EXCLUSIVE USE OF SYS TEST STANDARD LEAD INS  (2)
EBUF2    ERASE  +1    # B(2) UNSHARED


# Page 74
# UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.  (10D)


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      # B(1)TMP
CADRMARK  ERASE      # B(1)TMP
TEMPFLSH  ERASE      # B(1)TMP
FAILREG    ERASE  +2    # B(3)PRM 3 ALARM CODE REGISTERS


    SETLOC  400


# VAC AREAS. -- BE CAREFUL OF PLACEMENT --  (220D)


VAC1USE    ERASE      # B(1)PRM
VAC1    ERASE  +42D    # B(43)PRM
VAC2USE    ERASE      # B(1)PRM
VAC2    ERASE  +42D    # B(43)PRM
VAC3USE    ERASE      # B(1)PRM
VAC3    ERASE  +42D    # B(43)PRM
VAC4USE    ERASE      # B(1)PRM
VAC4    ERASE  +42D    # B(43)PRM
VAC5USE    ERASE      # B(1)PRM
VAC5    ERASE  +42D    # B(43)PRM


# WAITLIST REPEAT FLAG.      (1D)
RUPTAGN    ERASE      # B(1)PRM
KEYTEMP2  =  RUPTAGN


# STARALIGN ERASABLES.        (13D)


STARCODE  ERASE      # B(1)DSP NOUN 70 FOR P22,51 AND R52,53
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)
# Page 75


-PHASE1    ERASE      # B(1)PRM
PHASE1    ERASE      # B(1)PRM
-PHASE2    ERASE      # B(1)PRM
PHASE2    ERASE      # B(1)PRM
-PHASE3    ERASE      # B(1)PRM
PHASE3    ERASE      # B(1)PRM
-PHASE4    ERASE      # B(1)PRM
PHASE4    ERASE      # B(1)PRM
-PHASE5    ERASE      # B(1)PRM
PHASE5    ERASE      # B(1)PRM
-PHASE6    ERASE      # B(1)PRM
PHASE6    ERASE      # B(1)PRM


# 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
# Page 76
MODREG    ERASE      # MODE CODE
DSPLOCK    ERASE      # KEYBOARD/SUBROUTINE CALL INTERLOCK
REQRET    ERASE      # RETURN REGISTER FOR LOAD
LOADSTAT  ERASE      # STATUS INDICATOR FOR LOADTST
CLPASS    ERASE      # PASS INDICATOR FOR 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 (MATBS) = MONSAVE+1
MONSAVE2  ERASE      # B(1)PRM 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    (2D)


OPTIONX    EQUALS  DSPTEMX    # B(2) EXTENDED VERB OPTION CODE  N12(V82)


# TBASE'S AND PHSPRDT'S.    (12D)


TBASE1    ERASE      # B(1)PRM
PHSPRDT1  ERASE      # B(1)PRM
TBASE2    ERASE      # B(1)PRM
PHSPRDT2  ERASE      # B(1)PRM
TBASE3    ERASE      # B(1)PRM
PHSPRDT3  ERASE      # B(1)PRM
TBASE4    ERASE      # B(1)PRM
PHSPRDT4  ERASE      # B(1)PRM
TBASE5    ERASE      # B(1)PRM
PHSPRDT5  ERASE      # B(1)PRM
TBASE6    ERASE      # B(1)PRM
PHSPRDT6  ERASE      # B(1)PRM


# UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.  (5D)
# Page 77
EBANKSAV  ERASE
MARKEBAN  ERASE
EBANKTEM  ERASE
MARK2PAC  ERASE
R1SAVE    ERASE


# IMU COMPENSATION UNSWITCHED ERASABLE.  (1D)


1/PIPADT  ERASE      # B(1)PRM
OLDBT1    =  1/PIPADT


# SINGLE PRECISION SUBROUTINE TEMPORARIES  (3D)
          # SPSIN, SPCOS, SPROOT VARIABLES.
          # DO NOT SHARE.  THESE ARE USED BY DAPS IN INTERRUPT
          # AND CURRENTLY ARE NOT PROTECTED.  IF OTHER USERS
          # MATERIALIZE, THEN THIS CAN BE CHANGED.


HALFY    ERASE
ROOTRET    ERASE
SQRARG    ERASE
TEMK    EQUALS  HALFY
SQ    EQUALS  ROOTRET


# Page 78
# UNSWITCHED FOR ORBIT INTEGRATION  (21D)


TDEC    ERASE  +20D    # I(2)
COLREG    EQUALS  TDEC +2    # I(1)
LAT    EQUALS  COLREG +1  # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
LANDLAT    =  LAT    #    NOUN 89    FOR P22.
LONG    EQUALS  LAT +2    # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53
ALT    EQUALS  LONG +2    # I(2)DSP NOUN 43    FOR P20,22,51 R52,53.
YV    EQUALS  ALT +2    # I(6)
ZV    EQUALS  YV +6    # I(6)


# MARK STORAGE.        (2)


VHFCNT    ERASE      # B(1)PRM NO. OF VHF MARKS (P20 (R22)).
TRKMKCNT  ERASE      # B(1)PRM NO. OF VHF MARKS (P20 (R22)).


MARKCTR    =  TRKMKCNT  # B(1) MARK COUNTER USED BY R32


# MISCELLANEOUS UNSWITCHED.    (16D)


IRETURN1  ERASE      # B(1) RET ADDR USED BY MIDTOAV1 AND 2
          # CALLED BY P40,P41,P42, P61,P62
RATEINDX  ERASE      #  (1) USED BY KALCMANU
OPTION1    ERASE      # B(1) NOUN 06 USES THIS.
OPTION2    ERASE      # B(1) NOUN 06 USES THIS.
LONGCADR  ERASE   +1    # B(2) LONGCALL REGISTER.
LONGBASE  ERASE   +1    # B(2) LONGCALL REGISTER.
LONGTIME  ERASE   +1    # B(2) LONGCALL REGISTER.
DELAYLOC  ERASE   +3
NVWORD1    ERASE      # B(1)
TEMPR60    ERASE      # B(1)
PRIOTIME  ERASE      # B(1)
P30/RET    EQUALS  IRETURN1


# MISC. INCLUDING RESTART COUNTER, GIMBAL ANGLE SAVE AND
# STANDBY VERB ERASABLES.  REDOCTR BEFORE THETAD (DWNLNK)  (16D)


TIME2SAV  ERASE  +1    # B(2)TMP
SCALSAVE  ERASE  +1    # B(2)TMP
REDOCTR    ERASE      # B(1)PRM CONTAINS NUMBER OF RESTARTS
THETAD    ERASE  +2    # B(3)PRM DESIRED GIM ANGLES FOR MANEUVER
CPHI    =  THETAD    #  (OUTER)
CTHETA    =  THETAD +1  #  (INNER)
CPSI    =  THETAD +2  #  (MIDDLE)
# Page 79
# ENTRY VARIABLES SHARED FOR TM.
RDOTREF    =  THETAD    # I(2)  P65
VREF    =  RDOTREF +2  # I(2)  P65  HI-ORDER WORD ONLY DNLNK'D
DESOPTT    ERASE      # B(1)DSP NOUN 92 FOR P20,22,52, R52.
DESOPTS    ERASE      # B(1)DSP NOUN 92 FOR P20,22,52, R52.


DELV    ERASE  +5    # I(6)
DELVX    =  DELV
DELVY    =  DELV  +2
DELVZ    =  DELV  +4


# P20, CONICS  (SHARING WITH TIME 2 SAV AND SCAL SAV ONLY)  (3D)
POINTEX    EQUALS  TIME2SAV  # I(1) POINT AXS EXIT
VHFTIME    EQUALS  POINTEX  +1  # I(2) DOWNLINK OF VHF RANGE TIME +1M


# 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 STORAGE.        (45D)


# (SERVICER STORAGE AND P11 STORAGE IN UNSWITCHED SHOULD NOT
# OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT
# EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE.)


GDT/2    EQUALS  PIPTIME  +2  # B(6)TMP  ** MUST FOLLOW PIPTIME **
GOBL/2    EQUALS  GDT/2  +6  # B(6)TMP
AVEGEXIT  EQUALS  GOBL/2  +6  # B(2)TMP
AVGEXIT    =  AVEGEXIT
TEMX    EQUALS  AVEGEXIT +2  # B(1)TMP
TEMY    EQUALS  TEMX +1    # B(1)TMP
TEMZ    EQUALS  TEMY +1    # B(1)TMP
PIPCTR    EQUALS  TEMZ +1    # B(1)TMP
PIPAGE    EQUALS  PIPCTR +1  # B(1)TMP
RN1    EQUALS  PIPAGE +1  # B(6)TMP
VN1    EQUALS  RN1 +6    # B(6)TMP
PIPTIME1  EQUALS  VN1 +6    # B(2)TMP
GDT1/2    EQUALS  PIPTIME1 +2  # B(6)TMP
GOBL1/2    EQUALS  GDT1/2 +6  # B(6)TMP


# Page 80
# ENTRY STORAGE        (1D)
ENTRYVN    EQUALS  GOBL1/2 +6  # B(1)TMP VN CODE FOR ENTRY DISPLAYS P60'S.


# P11 STORAGE.        (9D)
PADLONG    EQUALS  ENTRYVN    # (2)PL  LONGITUDE OF LAUNCH PAD.
LIFTTEMP  EQUALS  PADLONG +2  # (2)TMP
TEPHEM1    EQUALS  LIFTTEMP +2  # (3)TMP
PGNCSALT  EQUALS  TEPHEM1 +3  # (2)PL  ALTITUDE


# RENDEZVOUS NAVIGATION STORAGE.  (SEE COMMENT IN SERVICER STORAGE)  (58D)
CSMPOS    ERASE  +57D    # I(6)TMP
LEMPOS    EQUALS  CSMPOS  +6  # I(6)TMP
RCL    EQUALS  LEMPOS  +6  # I(2)TMP
MARKTIME  EQUALS  RCL  +2  # B(2)TMP
VTEMP    EQUALS  MARKTIME +2  # B(6)TMP
UM    EQUALS  VTEMP  +6  # I(6)TMP
MARKDATA  EQUALS  UM  +6  # B(2)TMP
USTAR    EQUALS  MARKDATA +2  # I(6)TMP
WIXA    EQUALS  USTAR  +6  # B(1)TMP
WIXB    EQUALS  WIXA  +1  # B(1)TMP
ZIXA    EQUALS  WIXB  +1  # B(1)TMP
ZIXB    EQUALS  ZIXA  +1  # B(1)TMP
DELTAX    EQUALS  ZIXB  +1  # I(18)TMP


VHFRANGE  EQUALS  DELTAX    # (2)
UCL    EQUALS  DELTAX  +12D  # (6)  LM-CSM LINE OF SIGHT 1/2 UNIT V


# **** CONICSEX (MEAS INC) ****
TRIPA    EQUALS  DELTAX
TEMPVAR    EQUALS  DELTAX  +3


TEMPOR1    ERASE  +1    # B(2)TMP


# T4RUPT ERASABLE      (6D)


DSRUPTSW  ERASE
OPTIND    ERASE
LGYRO    ERASE
COMMANDO  ERASE  +1


# Page 81
ZONE    ERASE      # B(1)PRM USED IN SHAFT STOP MONITOR
LASTYCMD  =  OPTY    # DUMMY TO MAKE RR BENCH TEST ASSEMBLE
LASTXCMD  =  OPTY    # DUMMY TO MAKE RR BENCH TEST ASSEMBLE


# UNSWITCHED DAP ERASABLE.    (4D)
T6LOC    ERASE
T6ADR    ERASE
T5LOC    ERASE  +1


# MODE SWITCHING ERASABLE    (14D)
SWSAMPLE  ERASE      # B(1)PRM
DESOPMOD  ERASE      # B(1)PRM
WTOPTION  ERASE      # B(1)PRM
ZOPTCNT    ERASE      # B(1)PRM
IMODES30  ERASE      # B(1)PRM
IMODES33  ERASE      # B(1)PRM
MODECADR  ERASE  +2    # B(3)TMP
IMUCADR    =  MODECADR
OPTCADR    =  MODECADR +1
RADCADR    =  MODECADR +2
ATTCADR    ERASE  +2    # B(3)PRM
ATTPRIO    =  ATTCADR +2
MARKSTAT  ERASE      # B(1)PRM
OPTMODES  ERASE      # B(1)PRM


# RCSDAP ERASABLE      (1D)
HOLDFLAG  ERASE      # B(1)PRM


# CRS61.1 STORAGE.  -- USED IN R63 (VERB 89) --  (5D)
CPHIX    ERASE  +2    # B(3)DSP NOUN 95 CALCULATED BY CRS61.1


TEVENT    ERASE  +1    # B(2) TIME OF EVENT FOR DOWNLIST
TLIFTOFF  =  TEVENT


# Page 82
# P34-P35 STORAGE      (1D)
NORMEX    ERASE


# 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 ABORD 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)


# USED BY P30 ROUTINES TO WRITE ONLY NEVER READ IN COLOSSUS


DISPDEX    EQUALS  A


# ERASABLE FOR SXTMARK CDU CHECK DELAY.  -- PAD LOADED --  (1D)


CDUCHKWD  ERASE      # B(1)PL


# R57 STORAGE. -- MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY --  (1D)


TRUNBIAS  ERASE      # B(1)PRM RESULT OF R57 CALIBR OF TRUNION


# KEPLER STORAGE        (6D)


XMODULO    ERASE  +1    # I(2) GREATER 2PI KEPLER
TMODULO    ERASE  +1    # I(2) GREATER 2 KEPLER
EPSILONT  ERASE  +1    # I(2)TMP


# Page 83
# P37  ** RETURN TO EARTH (PAD LOAD ****  (2D)


RTED1    ERASE  +1    # I(2)PL VGAMMA POLY COEF    B-3


# P40  *** STEERING ROUTINE *** PAD LOAD  (1D)


DVTHRESH  ERASE      # I(1)PL DELTA VTHRESHOLD FOR LOW THRUST
          #        ROUTINE      B-2


# P23  *** PAD LOAD ****    (2D)


HORIZALT  ERASE  +1    # I(2)PL HORIZON ALTITUDE       M B-29


# P20  ALTERNATE LOS VARIANCE  PAD LOAD ****  (1D)
                    -16
ALTVAR    ERASE      # I(2)PL MILLARD, SQUARED SCALED 2
END-UE    EQUALS  SELFERAS +16D  # LAST USED UNSWITCHED ERASABLE


# Page 84
# 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
GBIASX    =  NBDX
NBDY    ERASE
# Page 85
NBDZ    ERASE


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


GCOMPSW    ERASE
COMMAND    EQUALS  GCOMP
CDUIND    EQUALS  GCOMP  +3


# 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)TMP
# (UPSVFLAG...XKEP MUST BE KEPT IN ORDER).


UPSVFLAG  EQUALS  DIFEQCNT +1  # B(1)PRM UPDATE FLAG
RRECT    EQUALS  UPSVFLAG +1  # B(6)TMP POS AT RECT    KM*2(-14)
VRECT    EQUALS  RRECT   +6  # B(6)TMP VEL AT RECT    KM(-1/2)*2(6)
TET    EQUALS  VRECT   +6  # B(2)TMP TIME OF STATE VECT  CSPCS*2(-28)
TDELTAV    EQUALS  TET   +2  # B(6)TMP POSITION DEVIATION  KM*2(14)
TNUV    EQUALS  TDELTAV +6  # B(6)TMP VEL DEVIATION    KM(-1/2)*2(14)
RCV    EQUALS  TNUV   +6  # B(6)TMP CONIC POSITION  KM*2(-14)
VCV    EQUALS  RCV   +6  # B(6)TMP CONIC VELOCITY  KM(-1/2)*2(6)
TC    EQUALS  VCV   +6  # B(2)TMP TIME SINCE RECTIFICATION
XKEP    EQUALS  TC   +2  # B(2)TMP ROOT OF KEPLER EQ  KM(1/2)*2(-10)


# **** TEMP -- IN VAC AREA ****
RRECT1    EQUALS  18D
VRECT1    EQUALS  24D
TET1    EQUALS  30D


# PERMANENT STATE VECTORS AND TIMES.  (101D)


# (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)


# Page 86
# (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER)


RRECTCSM  ERASE  +5    # B(6)PRM CSM VARIABLES
RRECTHIS  =  RRECTCSM
VRECTCSM  ERASE  +5    # B(6)PRM
TETCSM    ERASE  +1    # B(2)PRM
TETTHIS    =  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
RRECTOTH  =  RRECTLEM
VRECTLEM  ERASE  +5    # B(6)PRM
TETLEM    ERASE  +1    # B(2)PRM
TETOTHER  =  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
UNITW    ERASE  +5
-AYO    EQUALS  UNITW    # (2)
AXO    EQUALS  UNITW +2  # (2)


# 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    =  TETLEM    #         TIME (OTHER VECH) FOR DNLINK


# REFSMMAT.        (18D)


REFSMMAT  ERASE  +17D    # I(18D)PRM


# Page 87
# AVERAGEG INTEGRATOR STORAGE.    (8D)
UNITR    ERASE  +5
RMAG    ERASE  +1


# P40 PAD LOADS        (6D)
EK1VAL    ERASE  +1    # I(2)PL 1-SEC SPS IMPULSE NEWTSEC/100/B23
EK2VAL    ERASE  +1    # I(2)PL  B+23 NEWTON-SEC/E+2
EK3VAL    ERASE      # I(1)PL  B+09 NEWTONS/E+4
FANG    ERASE      # I(1)PL SPS THRUST USED BY IMPULSIVE BURN


# **********LUNAR MODULE CHANGE  ***********
E3J22R2M  EQUALS  FANG  +2
E32C31RM  EQUALS  E3J22R2M +1


# **** CONICSEX (PLANETARY INERT. ORIEN.) ****
TIMSUBO    EQUALS  TEPHEM    # CSEC B-14 (TRIPLE PREC)
END-E3    EQUALS  E32C31RM  # NEXT UNUSED E3 ADDRESS


# Page 88
# EBANK-4 ASSIGNMENTS


    SETLOC  2000


# P20 STORAGE.  -- PAD LOADED --  (4D)


WRENDPOS  ERASE      # B(1)PL  M B-14
WRENDVEL  ERASE      # B(1)PL  M/CSECB0
RMAX    ERASE      # B(1)PL  METERS*2(-19)
VMAX    ERASE      # B(1)PL  M/CSEC*2(-7)


# P22 STORAGE.  -- PAD LOADED --  (5D)
WORBPOS    ERASE      # B(1)PL  M B-14
WORBVEL    ERASE      # B(1)PL  M/CSECB0
S22WSUBL  ERASE      # B(1)PL  M B-14
RPVAR    ERASE  +1    # B(2)PL


# CONISEX STORAGE.  -- PAD LOADED --  (6D)


504LM    ERASE  +5    # I(6) MOON LIBRATION VECTOR


# ENTRY STORAGE      -- PAD LOADED --  (2D)
EMSALT    ERASE  +1    # I(2)PL


# P35 CONSTANTS.    -- PAD LOADED --  (4D)
ATIGINC    ERASE  +1    # B(2)PL
PTIGINC    ERASE  +1    # B(2)PL


# LUNAR LANDING SIGHT DATA.  -- PAD LOADED --  (6D)
# (USED BY INTEGRATION INITIALIZATION, LAT-LONG SUBROUTINES, P30'S)


RLS    ERASE  +5    # I(6) LANDING SIGHT VECTOR


# CONISEX (LUNAR AND SOLAR EPHEM) STORAGE.  -- PAD LOADED --  (77D)
TIMEMO    ERASE  +76D
VECOEM    EQUALS  TIMEMO   +3
RESO    EQUALS  VECOEM   +60D
# Page 89
VESO    EQUALS  RESO   +6
OMEGAES    EQUALS  VESO   +6


# INTEGRATION STORAGE.      (95D)


PBODY    ERASE      # I(1)
ALPHAV    EQUALS  PBODY   +1  # I(6)TMP
BETAV    EQUALS  ALPHAV   +6  # I(6)TMP
PHIV    EQUALS  BETAV   +6  # I(6)TMP
PSIV    EQUALS  PHIV   +6  # I(6)TMP
FV    EQUALS  PSIV   +6  # I(6)TMP
BETAM    EQUALS  FV   +6  # I(6)TMP
H    EQUALS  BETAM   +2  # I(2)TMP
GMODE    EQUALS  H   +2    # I(1)TMP
IRETURN    EQUALS  GMODE   +1  # I(1)TMP
NORMGAM    EQUALS  IRETURN +1  # I(1)TMP
VECTAB    EQUALS  NORMGAM +1  # I(36)TMP
RPQV    EQUALS  VECTAB   +36D  #  (6)TMP VECTOR PRIMARY TO SECONDARY BODY
ORIGEX    EQUALS  RPQV  +6  # B(1)TMP QSAVE FOR COORD. SWITCH ROUTINE
KEPRTN    EQUALS  ORIGEX    #     QSAVE FOR KEPLER
RQVV    EQUALS  ORIGEX   +1  #  (6)    SEC. BODY TO VEH.VETOR (USED P23)
RPSV    EQUALS  RQVV   +6    #  (6)TMP SUN TO PRIMARY BODY VECTOR
XKEPNEW    EQUALS  RPSV   +6    #  (2)TMP ROOT OF KEPLER'S EQU FOR TIME TAU


# THESE PROBABLY CAN SHARE INTEGRATION VARIABLES  (9D)


VACX    EQUALS  VECTAB   +6  # I(2)TMP
VACY    EQUALS  VACX   +2  # I(2)TMP
VACZ    EQUALS  VACY   +2  # I(2)TMP


ERADM    EQUALS  VECTAB  +18D  # I(2)TMP
INCORPEX  EQUALS  ERADM  +2  # I(1)TMP


# R31 (V83) STORAGE. -- SHARES WITH INTEGRATION STORAGE --  (24D)


BASEOTP    EQUALS  VECTAB +6  # I(6) BASE POS VECTOR OTHER VEH
BASEOTV    EQUALS  VECTAB +18D  # I(6) BASE VEL VECTOR OTHER VEH
BASETHP    EQUALS  VECTAB +30D  # I(6) BASE POS VECTOR THIS VEH
BASETHV    EQUALS  RPQV    # I(6) BASE VEL VECTOR THIS VEH


# CONIC INTEGRATION STORAGE. -- MAY NOT SHARE WITH SERVICER --  (6D)
ALPHAM    EQUALS  XKEPNEW  +2  # I(2)TMP
TAU.    EQUALS  ALPHAM   +2  # I(2)TMP
DT/2    EQUALS  TAU.  +2  # I(2)TMP


# Page 90


# P21, R61 STORAGE.      (2D)
P21TIME    EQUALS  DT/2  +2  # B(2)TMP


# INTEGRATION STORAGE      (1D)
EGRESS    EQUALS  P21TIME  +2  # I(1)TMP SAVES RETURNS.


# VERB 83 STORAGE.      (20D)


RANGE    EQUALS  EGRESS   +1  # 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)
BASETIME  EQUALS  VONE  +6  # I(2)    BASE TIME ASSOC WITH BASE VECS


# S-BAND ANTENNA GIMBAL ANGLES.  DISPLAYED BY R05 (V64).  (4D)
#      (OPERATES DURING P00 ONLY)
RHOSB    EQUALS  RANGE    # B(2)DSP NOUN 51. PITCH ANGLE
GAMMASB    EQUALS  RHOSB  +2  # B(2)DSP NOUN 51. YAWANGLE


# R36 SCRATCHPAD STORAGE    (13D)
RPASS36    EQUALS  RONE    # I(6) S-S
UNP36    EQUALS  RPASS36 +6  # I(6) S-S
OPTIONY    EQUALS  UNP36  +6  # I(1)TMP VEHICLE CODE


# EXTENDED VERB 82 STORAGE.    (6D)


HPERMIN    EQUALS  RANGE    # I(2) SET TO 300KFT OR 35KFT 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.


# MORE VERB 82 NOT SHARING WITH VERB 83  (9D)
V82FLAGS  EQUALS  VONE  +6  #  (1) FOR V 82 BITS
TFF    EQUALS  V82FLAGS +1  # I(2)DSP NOUN 50,44
-TPER    EQUALS  TFF  +2  # I(2)DSP NOUN 32
THETA(1)  EQUALS  -TPER  +2  # I(2)TMP SET AT END OF V82
# Page 91
RSP-RREC  EQUALS  AOPTIME    # DSP NOUN 50 FOR V82 DURING P00 AND P11


# REENTRY CONICS      (6D)
URONE    EQUALS  V82FLAGS  # I(6) SAVE ACTUAL FOR CALCULATIONS


# V82 DISPLAY        (4D)
HAPOX    EQUALS  THETA(1) +2  # I(2)DSP NOUN 44
HPERX    EQUALS  HAPOX  +2  # I(2)DSP NOUN 44


# P22 DISPLAY REGISTERS      (06D)
AOPTIME    EQUALS  HPERX  +2  # I(2)TMP FOR SR52.1.ADVTRACK
LANDLONG  EQUALS  AOPTIME  +2  # I(2)DSP NOUN 89 FOR P22
LANDALT    EQUALS  LANDLONG +2  # I(2)DSP NOUN 89 FOR P22


# S34/35.5,P34-P35 STORAGE.    (6D)
KT    EQUALS  LANDALT  +2  # B(2)
VERBNOUN  EQUALS  KT  +2  # B(1)TMP
QSAVED    EQUALS  VERBNOUN +1  # B(1)TMP HOLDS RETURN
RTRN    EQUALS  QSAVED  +1  # B(1) RETURN
SUBEXIT    EQUALS  RTRN  +1  # B(1)TMP
          # RGEXIT CAN'T SHARE WITH HPER,HAPO
RGEXIT    EQUALS  SUBEXIT    # I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN


# P30 DISPLAY        (4D)
HAPO    EQUALS  KT    # I(2)DSP NOUN 42, FOR P30.
HPER    EQUALS  HAPO  +2  # I(2)DSP NOUN 42, FOR P30.


# SOME P34 STORAGE.  (OVERLAYS P35.1 STORAGE)  (2D)
NOMTPI    EQUALS  KT    # I(2)TMP NOMINAL TPI TIME FOR RECYCLE.


# THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS.  205 USES TRANSM1.  G'S ARE NOT USED IN 205 NOR ARE THEY
# WHILE 504 USES TRANSM1 AND ALFDK.
# Page 92
# RSB 2009.  The definition of TRANSM1 was previously just "TRANSM1 EQUALS 2000",
# this messes up the label typing system in yaYUL.
    SETLOC  2000
TRANSM1    EQUALS      # (18) INITIALIZATION FOR IMU TESTS
ALFDK    =  TRANSM1 +18D  # (144) ERASABLE LOAD IN 504


# END OF PERF. TEST ERASABLE IN BANK 4


# *-*-* V82 *-*-*      (6D)


VONE'    EQUALS  RGEXIT  +1  # I(6)TMP NORMAL VELOCITY VONE/ SQ RT MU


# PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20  (1D)


INTVAR    EQUALS  VONE'  +6  # I(1)PL  SQUARE OF EXPECTED INTEGRATION
          #    POSITION EXTRAPOLATION ERROR.
          #    SCALED METERS(2) 2(15)
END-E4    EQUALS  INTVAR    # LAST USED ERASABLE IN E4.


# Page 93
# EBANK-5 ASSIGNMENTS


    SETLOC  2400


# *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*


# W-MATRIX STORAGE.      (162D)


# RSB 2009.  The following 3 lines have been replaced to be consistent with yaYUL's
# label-typing system.  They *were* "W EQUALS 2400", "9X9LOC1 EQUALS 2444",
# "9X9LOC2 EQUALS 2532".
W    EQUALS      # B(162)
9X9LOC1    EQUALS  W  +44
9X9LOC2    EQUALS  9X9LOC1  +66


EMATRIX    =  W  +120D  # B(42) USED TO CONVERT W TO 6X6
END-W    EQUALS  W   +162D  # **NEXT AVAILABLE LOC AFTER W MATRIX**


# AUTO-OPTICS STORAGE -R52-


# DO NOT MOVE FROM E5,1554.  A DELICATE BALANCE EXISTS BETWEEN THIS AND P03
XNB1    EQUALS  W  +108D  # B(6D)TMP
YNB1    EQUALS  XNB1  +6  # B(6)TMP
ZNB1    EQUALS  YNB1  +6  # B(6)TMP
SAVQR52    EQUALS  ZNB1  +6  # I(2)TMP
PLANVEC    EQUALS  SAVQR52  +2  # B(6) S-S SIGHTING VECTOR IN REF. COOR.
TSIGHT    EQUALS  PLANVEC  +6  # B(2) S-S TIME OF SIGHTING


# RENDEZVOUS -P34-35      (26D)
DVLOS    EQUALS  TSIGHT  +2  # I(6) S-S DELTA VELOCITY, LOS COORD-DISPLAY
DELTAR    EQUALS  DVLOS    # I(2)
TINTSOI    EQUALS  DELTAR    # I(2) INTERCEPT TIME FOR SOI MANEUVER
DELTTIME  EQUALS  DVLOS  +2  # I(2)
TARGTIME  EQUALS  DVLOS  +4  # I(2)
UNRM    EQUALS  DVLOS  +6  # I(6) S-S
ULOS    EQUALS  UNRM  +6  # I(6) S-S UNIT LINE OF SIGHT VECTOR
ACTCENT    EQUALS  ULOS  +6  # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
          #      VEH AT TPI IGNITION TIME AND
          #      TARGET VECTOR.
DELVTPI    EQUALS  ACTCENT  +2  # I(2) NOUN 58 FOR P34
DELVTPF    EQUALS  DELVTPI  +2  # I(2) NOUN 58,59 FOR P34,35
POSTTPI    EQUALS  DELVTPF  +2  # I(2) NOUN 58 FOR P34.
TDEC2    EQUALS  DELVTPI    #  (2)


# ALIGNMENT        (12D)
# Page 94
STARSAV1  EQUALS  DVLOS    # I(6)TMP RESTART STAR SAVE.
STARSAV2  EQUALS  STARSAV1 +6  # I(6)TMP RESTART STAR SAVE.
US    =  STARSAV2  #     (CISLUNAR TAG FOR STARSAV2).


# TPI SEARCH        (26D)
IT    EQUALS  DVLOS    #  (6)
THETZERO  EQUALS  IT  +6  #  (2)
TFI    EQUALS  THETZERO +2  #  (2)
DELVEE    EQUALS  TFI  +2  #  (2)
HP    EQUALS  DELVEE  +2  #  (2)
TFO    EQUALS  HP  +2  #  (2)
HPO    EQUALS  TFO  +2  #  (2)
DELVEO    EQUALS  HPO  +2  #  (2)
MAGVTPI    EQUALS  DELVEO  +2  # I(2)TMP MAG OF DELTAVTPI OR VMID
RELDELV    EQUALS  MAGVTPI  +2  # I(2)TMP MAG OF DELTAVTPF
T3TOT4    EQUALS  RELDELV  +2  # I(2)DSP NOUN 39 FOR P34,35.  TPI TO TINT
          # (CANNOT SHARE WITH RETURN TO EARTH)
# Page 95
# ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE  (36D)
# (CALCSMSC IS A SUBSET OF S41.1 AT LEAST)
# (CRS61.1 IS A SUBSET OF P20)


XSM    EQUALS  END-W  +23D  # B(6)
YSM    EQUALS  XSM  +6  # B(6)TMP
ZSM    EQUALS  YSM  +6  # B(6)TMP


XDC    EQUALS  ZSM  +6  # B(6)TMP
YDC    EQUALS  XDC  +6  # B(6)TMP
ZDC    EQUALS  YDC  +6  # B(6)TMP


XNB    =  XDC
YNB    =  YDC
ZNB    =  ZDC


# OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE


-COSB    EQUALS  XSM   +2  # (2)TMP
SINB    EQUALS  -COSB   +2  # (2)TMP


# ALIGNMENT/SYSTEST COMMON STORAGE  (18D)


STARAD    EQUALS  ZDC   +6  # I(18D)TMP


# ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE.  (17D)


OGC    EQUALS  STARAD   +18D  # I(2)TMP
IGC    EQUALS  OGC  +2  # I(2)TMP
MGC    EQUALS  IGC   +2  # I(2)TMP
STAR    EQUALS  MGC   +2  # I(6)TMP
SAC    EQUALS  STAR   +6  # I(2)TMP
PAC    EQUALS  SAC   +2  # I(2)TMP
QMIN    EQUALS  PAC   +2  # B(1)TMP


# **** COLP50'S ****      (1D)
CULTRIX    EQUALS  VEARTH    # VEARTH, VSUN, VMOON


# 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


# Page 96
# *-*-*-*- OVERLAY NUMBER 2 IN EBANK 5 -*-*-*-*


# CONICS ROUTINE STORAGE.      (87D)


DELX    EQUALS  END-W    # I(2)TMP
DELT    EQUALS  DELX   +2  # I(2)TMP
URRECT    EQUALS  DELT   +2  # I(6)TMP
RCNORM    EQUALS  URRECT   +6  # I(2)TMP
XPREV    EQUALS  XKEP    # I(2)TMP
R1VEC    EQUALS  RCNORM   +2  # 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


# Page 97
# *-*-*-*- OVERLAY NUMBER 3 IN EBANK 5 -*-*-*-*


# MEASUREMENT INCORPORATION STORAGE.  (66D)
# (CALLED BY P20, P22, P23)


OMEGAM1    EQUALS  END-W    # I(6)TMP
OMEGAM2    EQUALS  OMEGAM1  +6  # I(6)TMP
OMEGAM3    EQUALS  OMEGAM2 +6  # I(6)TMP
HOLDW    EQUALS  OMEGAM3 +6  # I(18)TMP
TDPOS    EQUALS  HOLDW   +18D  # I(6)TMP
TDVEL    EQUALS  TDPOS   +6  # I(6)TMP


ZI    EQUALS  TDVEL  +6  # I(18)


# P22-P23 STORAGE.      (8D)


22SUBSCL  EQUALS  ZI   +18D  # DE OF ABCDE LANDMARK ID NO.
CXOFF    EQUALS  22SUBSCL +1  # B OF ABCDE OFFSET INDICATOR
8KK    EQUALS  CXOFF   +1  # B(1)TMP INDEX OF PRESENT MARK
8NN    EQUALS  8KK   +1  # B(1)TMP
S22LOC    EQUALS  8NN   +1  # I(1)TMP MARK DATA LOC
LANDMARK  EQUALS  S22LOC +1  # B(1)DSP NOUN 70 FOR P22,51, R52,53
HORIZON    EQUALS  LANDMARK +1  # B(1)DSP NOUN 70 FOR P22,51, R52,53
IDOFLMK    EQUALS  HORIZON +1  # B(1)


# ******P23***        (1D)
TRUNION    EQUALS  IDOFLMK +1  # B(1)


# Page 98


# *-*-*-*- OVERLAY NUMBER 0 IN EBANK 5 -*-*-*-*


# SYSTEM TEST STORAGE.        (174)


AZIMUTH    ERASE  +1
LATITUDE  ERASE  +1


TRUNA    EQUALS  DESOPTT
SHAFTA    EQUALS  DESOPTS


ERVECTOR  ERASE  +5
LENGTHOT  ERASE
LOSVEC    ERASE  +5


SXTOPTN    =  LOSVEC
NDXCTR    ERASE
PIPINDEX  ERASE
POSITON    ERASE
QPLAC    ERASE
QPLACE    ERASE
QPLACES    ERASE
RUN    ERASE
STOREPL    ERASE
SOUTHDR    ERASE
TARG1/2    =  SOUTHDR
TAZEL1    ERASE  +5
TEMPTIME  ERASE  +1
TMARK    ERASE  +1
GENPL    ERASE  +134D
CDUTIMEI  =  GENPL
CDUTIMEF  =  GENPL +2
IMU/OPT    =  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 CONSEC LOC
SFCONST1  EQUALS  GENPL +27D
# Page 99
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
AINLA    =  GENPL    # OPTIMUM CALIB. AND ALIGNMENT
WANGO    EQUALS  AINLA
WANGI    EQUALS  AINLA   +2D
WANGT    EQUALS  AINLA   +4D
TORQNDX    =  WANGT
DRIFTT    EQUALS  AINLA   +6D
ALX1S    EQUALS  AINLA   +8D
CMPX1    EQUALS  AINLA   +9D
ALK    EQUALS  AINLA   +10D
VLAUNS    EQUALS  AINLA   +22D
THETAX    =  ALK   +2
WPLATO    EQUALS  AINLA   +24D
INTY    EQUALS  AINLA   +28D
THETAN    =  THETAX   +6
ANGZ    EQUALS  AINLA   +30D
INTZ    EQUALS  AINLA   +32D
ANGY    EQUALS  AINLA   +34D
ANGX    EQUALS  AINLA   +36D
DRIFTO    EQUALS  AINLA   +38D
DRIFTI    EQUALS  AINLA   +40D
VLAUN    EQUALS  AINLA   +44D
FILDELV    =  THETAN   +6
ACCWD    EQUALS  AINLA   +46D
INTVEC    =  FILDELV +2
POSNV    EQUALS  AINLA   +52D
DPIPAY    EQUALS  AINLA   +54D
DPIPAZ    EQUALS  AINLA   +58D
ALTIM    EQUALS  AINLA   +60D
ALTIMS    EQUALS  AINLA   +61D
ALDK    EQUALS  AINLA   +62D
DELM    EQUALS  AINLA   +76D
WPLATI    EQUALS  AINLA   +84D
RESTARPT  =  AINLA   +91D
GEOSAVED  =  AINLA   +117D
PREMTRXC  =  AINLA   +118D
LAUNCHAZ  =  AINLA   +119D
NEWAZMTH  =  AINLA   +121D
OLDAZMTH  =  AINLA   +123D
# Page 100
TOLDAZMT  =  AINLA   +125D
GEOCOMPS  =  AINLA   +127D
1SECXT    =  AINLA   +128D
GTSXTLST  =  AINLA   +129D
ERECTIME  =  AINLA   +130D
ERCOMP    =  AINLA   +131D
ZERONDX    =  AINLA   +137D
GTSOPNDZ  =  ZERONDX


# THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY.


THETAX1    EQUALS  ALK  +2
THETAN1    EQUALS  THETAX1  +6
FILDELV1  EQUALS  THETAN1  +6
INTVEC1    EQUALS  FILDELV1 +2
GEOSAVE1  EQUALS  AINLA  +117D
PREMTRX1  EQUALS  AINLA  +118D
LUNCHAZ1  EQUALS  AINLA  +119D
NEWAZ1    EQUALS  LUNCHAZ1 +2
OLDAZ1    EQUALS  LUNCHAZ1 +4
TOLDAZ1    EQUALS  LUNCHAZ1 +6
GEOCOMP1  EQUALS  AINLA  +127D
1SECXT1    EQUALS  AINLA  +128D
GTSWTLT1  EQUALS  AINLA  +129D
ERECTIM1  EQUALS  AINLA  +130D
ERCOMP1    EQUALS  AINLA  +131D  # I(6)
ZERONDX1  EQUALS  AINLA  +137D
PERFDLAY  EQUALS  AINLA  +138D  # B(2)..........


# END OF 504 + ALIGN ERASE.


# Page 101


# *-*-*-*-  OVERLAY 4 IN EBANK 5  -*-*-*-*
#
# P32 --- P33        (26D)
UP1    EQUALS  DVLOS    # I(6)
VPASS2    EQUALS  UP1  +6  # I(6)
RPASS2    EQUALS  VPASS2  +6  # I(6)
DIFFALT    EQUALS  RPASS2  +6  # I(2)
TCDH    EQUALS  DIFFALT  +2  # I(2)
TCSI    EQUALS  TCDH  +2  # I(2)
TTPIO    EQUALS  TCSI  +2  # I(2)


# P32,P33 STORAGE OVERLAYING 9X9 W-MATRIX LOCATIONS  (26D)
DELVEET1  EQUALS  9X9LOC1    # I(6) DELV FOR CSI
RACT2    EQUALS  DELVEET1 +6  # I(6) POS. ACTIVE VEH. AT CDH TIME
VACT2    EQUALS  9X9LOC2    # I(6) VEL. ACTIVE VEH. AT CDH TIME
RACT1    EQUALS  VACT2  +6  # I(6) POS. ACTIVE VEH. AT CSI TIME
T1TOT2    EQUALS  RACT1  +6  # I(2) TCDH - TCSI
END-E5    EQUALS  QMIN    # LAST USED E5 ADDRESS


# Page 102


# EBANK-6 ASSIGNMENTS.


    SETLOC  3000
# P23  PAD LOADS ***      (2D).
WMIDPOS    ERASE      # I(1)PL INITIAL VALUES FOR W-MATRIX IN
WMIDVEL    ERASE      # I(1)PL CISLUNAR (P23) NAVIGATION


# R22  PAD LOADS      (5D).
RVAR    ERASE  +1    # I(2)PL VHF RADAR
RVARMIN    ERASE  +2    # I(3)PL VHF RADAR


# ***** PAD LOADED ENTRY DAP STEERING VARIABLES *****  (3D)
LADPAD    ERASE      # I(1)PL FOR ENTRY. HOLDS CM NOMINAL L/D
LODPAD    ERASE      # I(1)PL FOR ENTRY. HOLDS CM NOMINAL LOD
ALFAPAD    ERASE      # B(1)PL ALFA TRIM / 180


# ***** PAD LOADED TVC DAP VARIABLES ****************  (26D)
ETDECAY    ERASE      # I(1)PL
ESTROKER  ERASE      # B(1)PL
EKPRIME    ERASE  +1    # B(2)PL
EKTLX/I    ERASE  +2    # B(3)PL
EREPFRAC  ERASE  +1    # B(2)PL
PACTOFF    ERASE      # B(1)PL, DSP N48 R01 = PTRIM, R02 = YTRIM
YACTOFF    ERASE      # B(1)PL, CONSECUTIVE WITH PACTOFF
HBN10    ERASE      # B(1)
HBN11/2    ERASE      # B(1)
HBN12    ERASE      # B(1)
HBD11/2    ERASE      # B(1)
HBD12    ERASE      # B(1)
HBN20    ERASE      # B(1)
HBN21/2    ERASE      # B(1)
HBN22    ERASE      # B(1)
HBD21/2    ERASE      # B(1)
HBD22    ERASE      # B(1)
HBN30    ERASE      # B(1)
HBN31/2    ERASE      # B(1)
HBN32    ERASE      # B(1)
# Page 103
HBD31/2    ERASE      # B(1)
HBD32    ERASE      # B(1)


# **** EXCLUSIVE TVC DAP VARIABLES. *****************  (5D)
V97VCNTR  ERASE      # B(1)
TEMPDAP    ERASE  +1    # B(2)
MRKRTMP    =  TEMPDAP    #  ((B(1)))
CNTR    ERASE      # B(1)
OGAD    ERASE      # B(1)


# **** EXCLUSIVE RCS DAP VARIABLES ******************  (13D)
RWORD1    ERASE  +12D    # B(1)
RWORD2    EQUALS  RWORD1  +1  # B(1)
PWORD1    EQUALS  RWORD2  +1  # B(1)
PWORD2    EQUALS  PWORD1  +1  # B(1)
YWORD1    EQUALS  PWORD2  +1  # B(1)
YWORD2    EQUALS  YWORD1  +1  # B(1)
BLAST    EQUALS  YWORD2  +1  # B(2)
BLAST1    EQUALS  BLAST  +2  # B(2)
BLAST2    EQUALS  BLAST1  +2  # B(2)
T5PHASE    EQUALS  BLAST2  +2  # B(1)


# **** RCS/TVC DAP COMMON STORAGE. ******************  (16D)
DAPDATR1  ERASE      # B(1)DSP NOUN 46(R1)
DAPDATR2  ERASE      # B(1)DSP NOUN 46(R2)


IXX    ERASE      # B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR
IAVG    ERASE      # B(1)          MASSPROP
IAVG/TLX  ERASE      # B(1)


LEMMASS    ERASE      # B(1)DSP NOUN 47 (R2)
CSMMASS    ERASE      # B(1)DSP NOUN 47 (R1)
WEIGHT/G  ERASE      # B(1)
MASS    =  WEIGHT/G


AK    ERASE
AK1    ERASE
AK2    ERASE


RCSFLAGS  ERASE      # B(1) CONSECUTIVE WITH AK2 DOWNLINK
T5TEMP    ERASE      # B(1)
EDRIVEX    ERASE
EDRIVEY    ERASE
# Page 104
EDRIVEZ    ERASE


# INTEMP THRU INTEMP+14D ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORARIES
INTTEMP    ERASE  +14D    # (15)


# TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES
TVCRCS    ERASE  +11D    # (12)
          # RCS (WBODYS,ADOTS)
          # TVC(OMEGACS,OMEGABS)


# TVC DAP TEMPORARY VARIABLES*********************************


# TVC DAP INTERRUPT TRUE TEMPORARIES**************************


PHI333    EQUALS  INTTEMP    # B(1) TEMPORARY REGISTER
PSI333    EQUALS  PHI333   +1  # B(1) COUNTING REGISTER
TEMP333    EQUALS  PSI333   +1  # B(1) COUNTING REGISTER
VARST0    EQUALS  TEMP333 +1  # B(8) BREAKPOINTS AND SLOPES
VARST5    =  VARST0   +5
LASTMASP  EQUALS  VARST0   +9D  # LAST VARST0 WORD
TVCTMP1    EQUALS  LASTMASP +1  # B(1)


# *******REGULAR TVC TEMPORARIES*************


# TVC ZEROING STARTS HERE


OMEGAC    EQUALS  TVCRCS    # I(6)
OMEGAXC    =  OMEGAC
OMEGAYC    =   OMEGAC   +2
OMEGAZC    =  OMEGAC   +4


OMEGAB    EQUALS  TVCRCS   +6  # B(6)
OMEGAXB    =  OMEGAB
OMEGAYB    =  OMEGAB   +2
OMEGAZB    =  OMEGAB   +4


PTMP1    EQUALS  OMEGAC  +12D  # B(2)
PTMP2    EQUALS  PTMP1  +2  # B(2)
PTMP3    EQUALS  PTMP2  +2  # B(2)
PTMP4    EQUALS  PTMP3  +2  # B(2)
PTMP5    EQUALS  PTMP4  +2  # B(2)
# Page 105
PTMP6    EQUALS  PTMP5  +2  # B(2)


YTMP1    EQUALS  PTMP6  +2  # B(2)
YTMP2    EQUALS  YTMP1  +2  # B(2)
YTMP3    EQUALS  YTMP2  +2  # B(2)
YTMP4    EQUALS  YTMP3  +2  # B(2)
YTMP5    EQUALS  YTMP4  +2  # B(2)
YTMP6    EQUALS  YTMP5  +2  # B(2)


ROLLFIRE  EQUALS  YTMP6  +2  # B(1)
ROLLWORD  EQUALS  ROLLFIRE +1  # B(1)
TEMREG    EQUALS  ROLLWORD +1  # B(1)


STROKER    EQUALS  TEMREG  +1  # B(1)


PERRB    EQUALS  STROKER +1  # B(2)
YERRB    EQUALS  PERRB  +2  # B(2)


DELPBAR    EQUALS  YERRB  +2  # B(2)
DELYBAR    EQUALS  DELPBAR  +2  # B(2)


PDELOFF    EQUALS  DELYBAR  +2  # B(2)
YDELOFF    EQUALS  PDELOFF  +2  # B(2)


# TVC ZEROING LOOP ENDS HERE
TTMP1    EQUALS  YDELOFF  +2  # B(2)
TTMP2    EQUALS  TTMP1  +2  # B(2)
DAP1    EQUALS  TTMP2  +2  # B(2)
DAP2    EQUALS  DAP1  +2  # B(2)
DAP3    EQUALS  DAP2  +2  # B(2)


PCMD    EQUALS  DAP3  +2  # B(1)
YCMD    EQUALS  PCMD  +1  # B(1), CONSECUTIVE WITH PCMD
T5TVCDT    EQUALS  YCMD  +1  # B(1)
MDT    EQUALS  T5TVCDT  +1  # I(6)
KPRIMEDT  EQUALS  MDT  +6  # I(2)
KTLX/I    EQUALS  KPRIMEDT +2  # B(1)
TENMDOT    EQUALS  KTLX/I  +1  # B(1)
1/CONACC  EQUALS  TENMDOT  +1  # B(1)
VARK    EQUALS  1/CONACC +1  # B(1)
REPFRAC    EQUALS  VARK  +1  # B(1)
VCNTR    EQUALS  REPFRAC  +1  # B(1)
TVCPHASE  EQUALS  VCNTR  +1  # B(1)
PCDUYPST  EQUALS  TVCPHASE +1  # B(1)
PCDUZPST  EQUALS  PCDUYPST +1  # B(1)
MCDUYDOT  EQUALS  PCDUZPST +1  # B(1)
MCDUZDOT  EQUALS  MCDUYDOT +1  # B(1)
# Page 106
TVCEXPHS  EQUALS  MCDUZDOT +1  # B(1)
MASSTMP    EQUALS  TVCEXPHS +1  # B(1)  PROTECT
VCNTRTMP  EQUALS  MASSTMP  +1  # B(1)    *PROTECT***


# STROKE TEST VARIABLES
STRKTIME  EQUALS  VCNTRTMP +1  # B(1)
CADDY    EQUALS  STRKTIME +1  # B(1)
N    EQUALS  CADDY  +1  # B(1)
BUNKER    EQUALS  N  +1  # B(1)
REVS    EQUALS  BUNKER  +1  # B(1)
CARD    EQUALS  REVS  +1  # B(1)


# TVC ROLL DAP VARIABLES
OGANOW    EQUALS  CARD  +1  # B(1)
OGAPAST    EQUALS  OGANOW  +1  # B(1)
OGA    EQUALS  OGAPAST  +1  # B(1)TMP
OGAERR    =  OGA    # (ROLL DAP USES OGA, MEANS OGAERROR)
DELOGART  EQUALS  OGA  +1  # B(1)TMP
SGNRT    EQUALS  DELOGART +1  # SIGN OF CGA RATE
DELOGA    EQUALS  SGNRT  +1  # USED IN ROLL LOGIC
I    EQUALS  DELOGA  +1  # USED IN ROLL LOGIC
IOGARATE  EQUALS  I  +1  # USED IN ROLL LOGIC


# TVC DAP RESTART TEMPORARIES.
PACTTMP    EQUALS  IOGARATE +1  # B(2)
YACTTMP    EQUALS  PACTTMP  +2  # B(2)
CNTRTMP    EQUALS  YACTTMP  +2  # B(1)
STRKTTMP  EQUALS  CNTRTMP  +1  # B(1)
DELBRTMP  EQUALS  STRKTTMP +1  # B(2)
ERRBTMP    EQUALS  DELBRTMP +2  # B(2)
CMDTMP    EQUALS  ERRBTMP  +2  # B(2)


TMP1    EQUALS  CMDTMP  +2  # B(2)
TMP2    EQUALS  TMP1  +2  # B(2)
TMP3    EQUALS  TMP2  +2  # B(2)
TMP4    EQUALS  TMP3  +2  # B(2)
TMP5    EQUALS  TMP4  +2  # B(2)
TMP6    EQUALS  TMP5  +2  # B(2)


# TVC DAP FILTER COEFFICIENTS TEMPORARIES
COEFFADR  EQUALS  TMP6  +2  # B(1)
N10    EQUALS  COEFFADR +1  # I(15)
# Page 107


# OVERLAYS WITHIN TVC DAP


OGARATE    =  OMEGAB    # B(2)


PHASETMP  =  TTMP1    # B(1) RESTART FOR CSM/LM V46 SWITCH-OVER
RTRNLOC    =  TTMP2    # B(1) RESTART FOR CSM/LM V46 SWITCH-OVER
BZERO    =  ERRBTMP
CZERO    =  ERRBTMP
JZERO    =  CMDTMP
YZERO    =  CMDTMP


# 540.9 STORAGE .............


NBRCYCLS  EQUALS  N10  +15D  # B(1) COUNTER FOR P40,41 STEERING
NBRCYCLP  EQUALS  NBRCYCLS +1  # B(1) MAINTAIN ORDER
DELVSUM    EQUALS  NBRCYCLP +1  # I(6) P40,P41
DELVSUMP  EQUALS  DELVSUM  +6  # I(6) P40,P41


# Page 108
# **** RCS DAP TEMPORARY VARIABLES. ********************  (95D)


# ** RCS INTERRUPT TRUE TEMPS ***************  (15D)
SPNDX    EQUALS  INTTEMP    # B(1)
DPNDX    EQUALS  SPNDX  +1  # B(1)TMP
KMPAC    EQUALS  DPNDX  +1  # B(2)TMP
KMPTEMP    EQUALS  KMPAC  +2  # B(1)TMP


XNDX1    EQUALS  KMPTEMP  +1  # B(1)TMP XNDX1 THRU NYJETS ARE OVERLAYED
XNDX2    EQUALS  XNDX1  +1  # B(1)TMP BY OTHER DAP ERASABLES SO
YNDX    EQUALS  XNDX2  +1  # B(1)TMP SHOULD ALWAYS BE DEFINED IN
ZNDX    EQUALS  YNDX  +1  # B(1)TMP A BLOCK
RINDEX    EQUALS  ZNDX  +1  # B(1)TMP
PINDEX    EQUALS  RINDEX  +1  # B(1)TMP
YINDEX    EQUALS  PINDEX  +1  # B(1)TMP
NRJETS    EQUALS  YINDEX  +1  # B(1)TMP
NPJETS    EQUALS  NRJETS  +1  # B(1)TMP
NYJETS    EQUALS  NPJETS  +1  # B(1)TMP


WTEMP    EQUALS  XNDX1    # B(2)TMP WTEMP THRU DELTEMPZ OVERLAY
DELTEMPX  EQUALS  WTEMP  +2  # B(2)TMP XNDX1 THRU NRJETS AND EDOT THRU
DELTEMPY  EQUALS  DELTEMPX +2  # B(2)TMP ADBVEL
DELTEMPZ  EQUALS  DELTEMPY +2  # B(2)TMP


EDOT    EQUALS  YNDX    # B(2)TMP EDOT THRU ADBVEL OVERLAY
AERR    EQUALS  EDOT  +2  # B(1)TMP YNDX THRU NPJETS AND DELTEMPX
EDOTVEL    EQUALS  AERR  +1  # B(2)TMP THRU DELTEMPZ
AERRVEL    EQUALS  EDOTVEL  +2  # B(1)TMP
ADBVEL    EQUALS  AERRVEL  +1  # B(1)TMP


# *** REGULAR RCS TEMPS *********************  (   ).


# *** RCS ZEROING LOOP STARTS HERE **********  (37)
WBODY    EQUALS  TVCRCS    # B(2)TMP
WBODY1    EQUALS  WBODY  +2  # B(2)TMP
WBODY2    EQUALS  WBODY  +4  # B(2)TMP
ADOT    EQUALS  WBODY2  +2  # B(2)TMP
ADOT1    EQUALS  ADOT  +2  # B(2)TMP
ADOT2    EQUALS  ADOT1  +2  # B(2)TMP


MERRORX    EQUALS  ADOT2  +2  #  (2)
MERRORY    EQUALS  MERRORX  +2  #  (2)
MERRORZ    EQUALS  MERRORY  +2  #  (2)
DFT    EQUALS  MERRORZ  +2  # B(1)TMP
DFT1    EQUALS  DFT  +1  # B(1)TMP
DFT2    EQUALS  DFT1  +1  # B(1)TMP
DRHO    EQUALS  DFT2  +1  # B(2)TMP
DRHO1    EQUALS  DRHO  +2  # B(2)TMP
# Page 109
DRHO2    EQUALS  DRHO1  +2  # B(2)TMP
ATTSEC    EQUALS  DRHO2  +2  # B(1)TMP
TAU    EQUALS  ATTSEC  +1  # B(1)TMP
TAU1    EQUALS  TAU  +1  # B(1)TMP
TAU2    EQUALS  TAU1  +1  # B(1)TMP
BIAS    EQUALS  TAU2  +1  # B(1)TMP
BIAS1    EQUALS  BIAS  +1  # B(1)TMP
BIAS2    EQUALS  BIAS1  +1  # B(1)TMP
ERRORX    EQUALS  BIAS2  +1  # B(1)TMP
ERRORY    EQUALS  ERRORX  +1  # B(1)TMP
ERRORZ    EQUALS  ERRORY  +1  # B(1)TMP


# RCS ZERO LOOP ENDS HERE
#  MORE RCS      (69D)
THETADX    EQUALS  ERRORZ  +1  # B(1)TMP MUST BE CONSECUTIVE WITH ERRORZ
THETADY    EQUALS  THETADX  +1  # B(1)TMP
THETADZ    EQUALS  THETADY  +1  # B(1)TMP


DELCDUX    EQUALS  THETADZ  +1  # B(2)TMP
DELCDUY    EQUALS  DELCDUX  +2  # B(2)TMP
DELCDUZ    EQUALS  DELCDUY  +2  # B(2)TMP


DCDU    EQUALS  DELCDUZ  +2  # B(6)TMP USED DURING P20
DTHETASM  EQUALS  DCDU  +6  # B(6)TMP STEER LOW OUTPUT.


ATTKALMN  EQUALS  DTHETASM +6  # B(1)TMP
KMJ    EQUALS  ATTKALMN +1  # B(1)TMP
KMJ1    EQUALS  KMJ  +1  # B(1)TMP
KMJ2    EQUALS  KMJ1  +1  # B(1)TMP
J/M    EQUALS  KMJ2  +1  # B(1)TMP
J/M1    EQUALS  J/M  +1  # B(1)TMP
J/M2    EQUALS  J/M1  +1  # B(1)TMP
RACFAIL    EQUALS  J/M2  +1  # B(1)TMP
RBDFAIL    EQUALS  RACFAIL  +1  # B(1)TMP
ACORBD    EQUALS  RBDFAIL  +1  # B(1)TMP
XTRANS    EQUALS  ACORBD  +1  # B(1)TMP
CH31TEMP  EQUALS  XTRANS  +1  # B(1)TMP
CHANTEMP  EQUALS  CH31TEMP +1  # B(1)TMP
T5TIME    EQUALS  CHANTEMP +1  # B(1)TMP
RHO    EQUALS  T5TIME  +1  # B(1)TMP
RHO1    EQUALS  RHO  +1  # B(1)TMP
RHO2    EQUALS  RHO1  +1  # B(1)TMP
AMGB1    EQUALS  RHO2  +1  # B(1)TMP
AMGB4    EQUALS  AMGB1  +1  # B(1)TMP
# Page 110
AMGB5    EQUALS  AMGB4  +1  # B(1)TMP
AMGB7    EQUALS  AMGB5  +1  # B(1)TMP
AMGB8    EQUALS  AMGB7  +1  # B(1)TMP
CAPSI    EQUALS  AMGB8  +1  # B(1)TMP
CDUXD    EQUALS  CAPSI  +1  # B(2)TMP
CDUYD    EQUALS  CDUXD  +2  # B(2)TMP
CDUZD    EQUALS  CDUYD  +2  # B(2)TMP
SLOPE    EQUALS  CDUZD  +2  # B(1)TMP
ADB    EQUALS  SLOPE  +1  # B(1)TMP
RMANNDX    EQUALS  ADB  +1  # B(1)TMP
PMANNDX    EQUALS  RMANNDX  +1  # B(1)TMP
YMANNDX    EQUALS  PMANNDX  +1  # B(1)TMP MUST BE LAST VARIABLE IN RCS


# Page 111
# ********** ENTRY DAP TEMPORARY VARIABLES. *********************  (69D)


# ANGLE REGISTERS FOR ENTRY DAPS
AOG    EQUALS  BCDU    # 1P
AIG    EQUALS  AOG  +1  # 1P
AMG    EQUALS  AIG  +1  # 1P
ROLL/180  EQUALS  AMG  +1  # 1P
ALFA/180  EQUALS  ROLL/180 +1  # 1P
BETA/180  EQUALS  ALFA/180 +1  # 1P
AOG/PIP    EQUALS  BETA/180 +1  # 1P
AIG/PIP    EQUALS  AOG/PIP  +1  # 1P
AMG/PIP    EQUALS  AIG/PIP  +1  # 1P
ROLL/PIP  EQUALS  AMG/PIP  +1  # 1P
ALFA/PIP  EQUALS  ROLL/PIP +1  # 1P
BETA/PIP  EQUALS  ALFA/PIP +1  # 1P


# GYMBAL DIFFERENCES OVER INTERNAL TCDU = .1 SEC.
-DELAOG    EQUALS  BETA/PIP +1  # 1P
-DELAIG    EQUALS  -DELAOG  +1  # 1P
-DELAMG    EQUALS  -DELAIG  +1  # 1P


# ESTIMATED BODY RATES
CMDAPMOD  EQUALS  -DELAMG  +1  # 1P GOES BEFORE PREL FOR TM.


PREL    EQUALS  CMDAPMOD +1  # 1P P TCDU/180    (ROLLDOT)
QREL    EQUALS  PREL  +1  # 1P Q TCDU/180    (PITCHDOT)
RREL    EQUALS  QREL  +1  # 1P R TCDU/180    (YAWDOT)


BETADOT    EQUALS  RREL  +1  # 1P MUST FOLLOW RREL. BETADOT TCDU/180
PHIDOT    EQUALS  BETADOT  +1  # 1P


# OLD (UNAVERAGED) BODY RATE MEASURE
OLDELP    EQUALS  PHIDOT  +1  # 1P
OLDELQ    EQUALS  OLDELP  +1  # 1P
OLDELR    EQUALS  OLDELQ  +1  # 1P


JETAG    EQUALS  OLDELR  +1  # 1P
TUSED    EQUALS  JETAG  +1  # 1P ELAPSED TIME SINCE NOMINAL UPDATE.


# FOLLOWING 3 SP WORDS IN DOWNLINK.  ROLLTM SENT EACH 1 SEC.
PAXERR1    EQUALS  TUSED  +1  # 1P INTEGRATED ROLL ERROR/360.
ROLLTM    EQUALS  PAXERR1  +1  # 1P ROLL/180 FOR TM.
ROLLC    EQUALS  ROLLTM  +1  # 2P ROLLCOM/360 FROM ENTRY (FOR TM)
          # KEEP ROLLC & ROLLHOLD ADJACENT FOR TP
# Page 112
ROLLHOLD  EQUALS  ROLLC  +2  # 1P FOR ATTITUDE HOLD IN CMDAPMOD = +1


# ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP.
ALFACOM    EQUALS  DCDU    # 1P KEEP ADJACENT TO BETACOM. <<
BETACOM    EQUALS  ALFACOM +1  # 1P


# JET LIST.  DT, JETBITS IN THIS ORDER.
TOFF    EQUALS  BETACOM +1  # 1P DP PAIR
TBITS    EQUALS  TOFF  +1  # 1P
TON2    EQUALS  TBITS  +1  # 1P DP PAIR
T2BITS    EQUALS  TON2  +1  # 1P


# MISCELLANEOUS PERMANENT ERASABLE.
OUTTAG    EQUALS  T2BITS  +1  # 1P
NUJET    EQUALS  OUTTAG  +1  # 1P


# MORE ENTRY DAP QUANTITIES THAT DO NOT SHARE WITH RCS DAP.
JETEM    EQUALS  ROLLHOLD +1  # 2P THIS DP USED IN RATEAVG
GAMA    EQUALS  JETEM  +2  # 1P
GAMDOT    EQUALS  GAMA  +1  # 1P
POSEXIT    EQUALS  GAMDOT  +1  # 1P
CM/GYMDT  EQUALS  POSEXIT  +1  # 1P
HEADSUP    EQUALS  CM/GYMDT +1  # 1P DSP NOUN 61 FOR P62,63,64,67.
P63FLAG    EQUALS  HEADSUP  +1  # 1P INTERLOCK FOR WAKEP62


          #>> SHARE BELOW WITH RCS RUPT TEMPS (< 15D) <<<
CALFA    EQUALS  SPNDX    # 1P
SALFA    EQUALS  CALFA  +1  # 1P


SINM    EQUALS  SALFA  +1  # 1P
COSM    EQUALS  SINM  +1  # 1P
SINO    EQUALS  COSM  +1  # 1P
COSO    EQUALS  SINO  +1  # 1P
SINOCOSM  EQUALS  COSO  +1  # 1P
COSOCOSM  EQUALS  SINOCOSM +1  # 1P
          #>> SHARE ABOVE WITH RCS RUPT TEMPS <<<


# THE FOLLOWING FEW REGISTERS USED ONCE EACH 2 SEC
-VT/180    EQUALS  NUJET  +1  # 1P
LCX/360    EQUALS  -VT/180  +1  # 1P
XD/360    EQUALS  LCX/360  +1  # 1P
VSQ/4API  EQUALS  XD/360  +1  # 1P
JNDX    EQUALS  VSQ/4API +1  # 1P
JNDX1    EQUALS  JNDX  +1  # 1P
# Page 113
TON1    EQUALS  JNDX1  +1  # 1P DP PAIR
T1BITS    EQUALS  TON1  +1  # 1P


# MISCELLANEOUS REGISTERS USED EACH UPDATE.
CM/SAVE    EQUALS  T1BITS  +1  # 1P
JETEM2    EQUALS  CM/SAVE  +1  # 1P TEMPORARY STORAGE


# DAP QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
VDT/180    =  ERRORX    # 1P (EDIT)
-VT/180E  =  ERRORY    # 1P (EDIT)


PAXERR    EQUALS  AK    # 1P ROLL ERROR FOR NEEDLES
QAXERR    =  THETADX    # 1P SINCE AK1 IS ZEROED IN ATM DAP.
RAXERR    =  QAXERR  +1  # 1P SINCE AK2 IS ZEROED IN TM DAP.


# *** COLMANU (R60,R62) ****
VECQTEMP  EQUALS  COFSKEW


# Page 114
# ******** KALCMANU VARIABLES. (71D) *******************************
BCDU    EQUALS  YMANNDX  +1  # B(3)TMP
KSPNDX    EQUALS  BCDU  +3  # B(1)TMP
KDPNDX    EQUALS  KSPNDX  +1  # B(1)TMP


TMIS    EQUALS  KDPNDX  +1  # I(18) MUST BE IN THE 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


MIS    EQUALS  CAM  +2  # I(18)  (THE REST MAY GO ANYWHERE)
COF    EQUALS  MIS  +18D  # I(6)TMP
SCAXIS    EQUALS  COF  +6  # I(6)TMP
POINTVSM  EQUALS  SCAXIS  +6  # I(6)TMP
AM    EQUALS  POINTVSM +6  # I(2)TMP
RAD    EQUALS  AM  +2  # I(2)TMP


# FIRST-ORDER OVERLAYS IN KALCMANU
KV1    EQUALS  TMIS    # I(6)TMP
MFISYM    EQUALS  TMIS    # I   TMP
TMFI    EQUALS  TMIS    # I   TMP
NCDU    EQUALS  TMIS    # B   TMP
NEXTIME    EQUALS  TMIS  +3  # B   TMP
TTEMP    EQUALS  TMIS  +4  # B   TMP
KV2    EQUALS  TMIS  +6  # I(6)TMP
BIASTEMP  EQUALS  TMIS  +6  # B   TMP
KV3    EQUALS  TMIS  +12D  # I(6)TMP
CGF    EQUALS  TMIS  +12D  # I   TMP


BRATE    EQUALS  COFSKEW    # B   TMP
TM    EQUALS  CAM    # B   TMP


# SECOND-ORDER OVERLAYS IN KALCMANU
P21    EQUALS  KV1    # I(2)TMP
D21    EQUALS  KV1  +2  # I(2)TMP
G21    EQUALS  KV1  +4  # I(2)TMP


# SATURN BOOST STORAGE.  SAVE TILL RCS DAP OPERATION.  (17D)
POLYNUM    EQUALS  BCDU    # B(15) PAD LOADED
POLYLOC    =  POLYNUM  +10D
SATRLRT    EQUALS  POLYNUM  +15D  # B(2)  PAD LOADED


# MORE P11 STORAGE --PAD LOADED--  (2D)
# Page 115
# (NOTE:  THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU,
# ENTRY DAP AND TVC DAP)
RPSTART   EQUALS  SATRLRT  +2  # B(1) PITCH ROLL START TIME
POLYSTOP  EQUALS  RPSTART  +1  # B(1) POLYCUT OFF MINUS RPSTART SEC


# STORAGE FOR VHHDOT AND ATTDSP
BODY3    EQUALS  POLYSTOP +1  # B(1)OUT
BODY2    EQUALS  BODY3  +1  # B(1)OUT
BODY1    EQUALS  BODY2  +1  # B(1)OUT
SPOLYARG  EQUALS  BODY1  +1  # B(1)TMP ARGUMENT FOR POLLY


OLDBODY1  =  EDRIVEX    # 1 PULSE = 0.0432 DEGREES
OLDBODY2  =  EDRIVEY
OLDBODY3  =  EDRIVEZ


# STORAGE FOR S11.1
VDISP    EQUALS  SPOLYARG +1  # I(2)OUT  2(7) M/CS
HDISP    EQUALS  VDISP  +2  # I(2)OUT  2(29) M
HDOTDISP  EQUALS  HDISP  +2  # I(2)OUT  2(7) M/CS
BOOSTEMP  EQUALS  HDOTDISP +2  # B(3)TEMP


# P11 SATURN I/F      (9D)
SATRATE    EQUALS  BOOSTEMP +3  # B(4)PL MANEUVER RATES FOR SATURN STICK
SATSW    EQUALS  SATRATE  +4  # B(1)TEM STATUS SW FOR BOOST TAKEOVER
BIASAK    EQUALS  SATSW  +1  # B(3)TEM STOR AKBIAS FOR BOOST TAKEOVER
SATSCALE  EQUALS  BIASAK  +3  # B(1) SCALE FACTOR FOR SATURN STEERING


# P21 STORAGE.        (1D)
GENRET    EQUALS  RAD  +2  # B(1)TMP


# R61CSM STORAGE.      (1D)
SAVBNK    EQUALS  GENRET  +1  # B(1) S-S SAVE EBANK FOR R61 SUBROUTINE


# CRS61.1 STORAGE FOR AUTOPILOT BANK.  (3D)
SAVEDCDU  EQUALS  SAVBNK  +1  # B(3)TMP


# R61 STORAGE.        (1D)
# Page 116
R61CNTR    EQUALS  SAVEDCDU +3  #  (1)TMP


# ENTRY RESTART PROTECTION STORAGE.  --KEEP TEMPS IN ORDER--  (12D)
TEMPROLL  EQUALS  GENRET    # B(1)TMP COPY CYCLE REGISTER
TEMPALFA  EQUALS  TEMPROLL +1  # B(1)TMP COPY CYCLE REGISTER
TEMPBETA  EQUALS  TEMPALFA +1  # B(1)TMP COPY CYCLE REGISTER
60GENRET  EQUALS  TEMPBETA +1  # B(1)TMP QSAVE FOR S61.1 AND ENTRY.
S61DT    EQUALS  60GENRET +1  # B(1)TMP VARIABLE DT FOR S61.1 RESTART.


# ENTRY TM SHARING FOR ACCELERATION PROFILE.
XPIPBUF    EQUALS  ADOT    # B(1) PIPA BUFFER FOR TM DURING ENTRY.
YPIPBUF    EQUALS  XPIPBUF  +1  # B(1) PIPS FILED HERE EACH .5 SEC APPEAR
ZPIPBUF    EQUALS  YPIPBUF  +1  # B(1) ON DOWNLIST ONCE PER SECOND DURING
XOLDBUF    EQUALS  ZPIPBUF +1  # B(1) ENTRY AFTER RCS DAP HAS BEEN DIS-
YOLDBUF    EQUALS  XOLDBUF +1  # B(1) ABLED.  NEWEST PIP VALUE REPLACES
ZOLDBUF    EQUALS  YOLDBUF  +1  # B(1) PIPBUF, WHICH IS MOVED INTO OLDBUF.


# REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
Q7    =  THETADZ    # I(2) HI-WORD ONLY ON DNLIST.
ASPS(TM)  =  WBODY    # I(6)DWN
          #  ASKEP, ASP1, ASPUP, ASPDN, ASP3, ASP3+1


# P37 PAD LOADS        (1)
P37RANGE  EQUALS  R61CNTR  +1  # I(1)PL  *****


END-E6    =  P37RANGE +1  # FIRST UNUSED ERASABLE LOCATION IN E6


# Page 117
# EBANK-7 ASSIGNMENTS


    SETLOC  3400


# *-*-*-*- OVERLAY NUMBER 0 IN EBANK 7 -*-*-*-*


# EXTERNAL DELTA-V UPDATE.    (21D)
# (MUST BE IN ORDER FOR UPDATE PROGRAM.  ALSO ENTRY PROGRAM PICK UP 'LAT(SPL' WITH A VLOAD.)


LAT(SPL)  ERASE  +20D    # I(2)DSP NOUN 61 FOR P62,63,64,67
LNG(SPL)  EQUALS  LAT(SPL) +2  # I(2)DSP NOUN 61 FOR P62,63,64,67


DELVSLV    EQUALS  LNG(SPL) +2  # I(6)TMP DELTA VEL VECT, LOC VER COORDS
TIG    EQUALS  DELVSLV  +6  # B(2)DSP NOUN 33 FOR X-V84(R32),P30,40.
RTARG    EQUALS  TIG  +2  # I(6)IN DESIRED VEHICLE RADIUS VECTOR
DELLT4    EQUALS  RTARG  +6  # I(2)IN TIME DIFFERENCE FOR INITVEL
ECSTEER    EQUALS  DELLT4  +2  # I(1)PL FOR P40'S
DELVLVC    =  DELVSLV
END-DELV  ERASE      # *NEXT AVAIL LOC AFTER UNSHARED E7*


# SERVICER STORAGE.      (13D)
DVTOTAL    EQUALS  END-DELV  # B(2)DSP NOUN 40,99 FOR P30,34,35,40
TGO    EQUALS  DVTOTAL  +2  # B(2)
DVCNTR    EQUALS  TGO  +2  # B(1)TMP
DELVREF    EQUALS  DVCNTR  +1  # I(6)TMP


NOMTIG    EQUALS  END-KALC  # I(2) (CANNOT SHARE WITH KALCMANU
          #       OR DELVREF)
END-SVCR  EQUALS  NOMTIG  +2  # ***NEXT AVAILABLE AFTER SERVICER


# ALIGNMENT STORAGE.      (25D)
XSCD    EQUALS  END-SVCR  # I(6)TMP
YSCD    EQUALS  XSCD  +6  # I(6)TMP
ZSCD    EQUALS  YSCD  +6  # I(6)TMP
VEL/C    EQUALS  ZSCD  +6  # I(6)TMP
R53EXIT    EQUALS  VEL/C  +6  # I(1)TMP


# ALIGNMENT MARKDATA (DOWNLINK) *******  (7D)
MARK2DWN  EQUALS  R53EXIT  +1  #  (7) USED BY ALIGNMENT P50'S


# Page 118
# *-*-*-*- OVERLAY NUMBER 1 IN EBANK 7 -*-*-*-*


# REENTRY ERASABLES.      (206D)
RTINIT    EQUALS  END-SVCR  # 6P
RTEAST    EQUALS  RTINIT  +6  # 6P
RTNORM    EQUALS  RTEAST  +6  # 6P
RT    EQUALS  RTNORM  +6  # 6P
UNI    EQUALS  RT  +6  # 6P
UNITV    EQUALS  UNI  +6  # 6P
VEL    EQUALS  UNITV  +6  # 6P


TIME/RTO  EQUALS  VEL  +6  # 2P TIME OF INITIAL TARGET, RTO.
-VREL    EQUALS  TIME/RTO +2  # 6P
OLDUYA    EQUALS  -VREL   +6  # 6P USED BY CM/POSE  (ENTRY DAP)
UXA/2    EQUALS  OLDUYA  +6  # 6P USED BY CM/POSE  (ENTRY DAP) -UVA
URH    =  UXA/2    #  P67 DISPLAY NOUN
UYA/2    EQUALS  UXA/2  +6  # 6P USED BY CM/POSE  (ENTRY DAP) UYA
UZA/2    EQUALS   UYA/2  +6  # 6P USED BY CM/POSE  (ENTRY DAP) UNA
UBX/2    EQUALS  UZA/2  +6  # 6P USED BY CM/POSE  (ENTRY DAP)
UBY/2    EQUALS  UBX/2  +6  # 6P USED BY CM/POSE  (ENTRY DAP)
UBZ/2    EQUALS  UBY/2  +6  # 6P USED BY CM/POSE  (ENTRY DAP)


DTEAROT    EQUALS  UBZ/2  +6  # 2P
DIFF    EQUALS  DTEAROT  +2  # 2P
DIFFOLD    EQUALS  DIFF  +2  # 2P
FACTOR    EQUALS  DIFFOLD  +2  # 2P
FACT1    EQUALS  FACTOR  +2  # 2P
FACT2    EQUALS  FACT1  +2  # 2P
#Q7    =  THETAD2    # 2P SHARED FOR TM.  P64-P66
VSQUARE    EQUALS  FACT2  +2  # 2P
LAD    EQUALS  VSQUARE  +2  # 2P
LOD    EQUALS  LAD  +2  # 2P
L/DCMINR  EQUALS  LOD  +2  # 2P
KLAT    EQUALS  L/DCMINR +2  # 2P
L/D    EQUALS  KLAT  +2  # 2P
L/D1    EQUALS  L/D  +2  # 2P
LEWD    =  VIO    # 2P SHARED FOR TM.  P64-P65
D    EQUALS  L/D1  +2  # 2P DSP NOUN 64,66,68 FOR P63,64,67
#V1    =  ENDBUF  +1  # 2P SHARED FOR TM. P64-P65
DLEWD    EQUALS  D  +2  # 2P
K2ROLL    EQUALS  DLEWD  +2  # 2P
GOTOADDR  EQUALS  K2ROLL  +2  # 1P
TEM1B    EQUALS  GOTOADDR +1  # 2P
MM    EQUALS  TEM1B  +2  # 2P
GRAD    EQUALS  MM  +1  # 2P
FX    EQUALS  GRAD  +1  # 1P OVERWRITES NEXT 5 LOCS IN P67
LEQ    EQUALS  FX  +1  # 2P
DHOOK    EQUALS  LEQ  +2  # 2P
AHOOKDV    EQUALS  DHOOK  +2  # 2P
# Page 119
DVL    EQUALS  AHOOKDV  +2  # 2P
#A0    =  ENDBUF  +3  # 2P SHARED FOR TM. (HI-WD) P84-P85
A1    EQUALS  DVL  +2  # 2P
VBARS    EQUALS  A1  +2  # 2P
COSG/2    EQUALS  VBARS  +2  # 2P
#GAMMAL    =  GAMMAEI    # 2P SHARED FOR TM.  P64
GAMMAL1    =  22D    # 2P
VS1    EQUALS  COSG/2  +2  # 2P
VL    =  VPRED    # 2P SHARED FOR TM.  P64-P65
V    EQUALS  VS1  +2  # 2P
#VREF    =  THETAD  +2  # 2P SHARED FOR TM.  P65
LATANG    EQUALS  V  +2  # 2P ADJACENT FOR TM.
RDOT    EQUALS  LATANG  +2  # 2P ADJACENT FOR TM.
THETAH    EQUALS  RDOT  +2  # 2P DSP NOUN 64,67 FOR P63,64,67
#RDOTREF  =  THETAD    # 2P SHARED FOR TM.  P65
ALP    EQUALS  THETAH  +2  # 2P


ASKEP    =  ASPS    # 2P)         THESE ARE STORED IN
ASP1    =  ASPS  +1  # 2P)         SEQUENCE, OVERLAPPING
ASPUP    =  ASPS  +2  # 2P)>HI-WD OF EACH< HI-WORD ONLY APPEARING
ASPDWN    =  ASPS  +3  # 2P)         ON DOWNLIST, EXCEPT
ASP3    =  ASPS  +4  # 2P)         ASP3 IS COMPLETE.


C/D0    EQUALS  ALP  +2  # 2P  -1/D0
D0    EQUALS  C/D0  +2  # I(2)  CONSTANT DRAG
Q2    EQUALS  D0  +2  # 2P


# ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP.
RTGO    EQUALS  Q2  +2  # 2P DSP NOUN 66 FOR P64,P67
DNRNGERR  EQUALS  RTGO  +2  # 2P DSP NOUN 66 FOR P64,67
XRNGERR    =  LATANG    #  FOR DISKY DISPLAY
KAT    EQUALS  DNRNGERR +2  # 2P
GMAX    EQUALS  KAT  +2  # 1P DSP NOUN 60 FOR P61,62,63
          # GMAX IS LOADED IN DOUBLE PRECISION.
L/DCALC    =  TTE    # 2P CALCULATED L/D FOR TM: P64-P67.
GAMMAL    =  GAMMAEI    # 2P SHARED FOR TM.  P64.
PREDANG    =  GAMMAEI    #  FOR TM IN P67.
JJ    =  PREDANG  +1  #  FOR TM IN P67.
VMAGI    EQUALS  GMAX  +1  # 2P DSP NOUN 62,64,66 FOR P11,63,64.
VIO    EQUALS  VMAGI  +2  # 2P DSP NOUN 63 FOR P61.
TTE    EQUALS  VIO  +2  # 2P DSP NOUN 63 FOR P61.
ASPS    EQUALS  TTE  +2  # I(2) HI-WORD ONLY ON DNLIST FOR TEMP
TTE1    EQUALS  ASPS  +2  # I(2)TMP HOLDS UNDECREMENTED TTE VALUE


# **** P6O'S ****
RTGON64    EQUALS  RTGO    # RANGE ERRORS NEGATIVE IF FALLS SHORT
# Page 120
RTGON67    EQUALS  RTGO    # DSP NOUN 67


# REENTRY, RETURN TO EARTH COMMON DISPLAY  (4D)
VPRED    EQUALS  BETA12  +2  # DSP NOUN 60 FOR P61,62,63
GAMMAEI    EQUALS  VPRED  +2  # DSP NOUN 60 FOR P61,62,63


# DISPLAY REGISTER FOR VG    (2D)
VGDISP    EQUALS  GAMMAEI  +2  # B(2)DSP N.40,42,99 FOR P30,34,35,37,40,
          #      41 VG DISPLAY


# SOME P11 DISPLAY REGISTERS    (6D)
ALTI    EQUALS  TTE1  +2  # 2P DSP NOUN 62 FOR P11.
HDOT    EQUALS  ALTI  +2  # 2P DSP NOUN 62 FOR P11.


# Page 121
# *-*-*-*- OVERLAY NUMBER 2 IN EBANK 7 -*-*-*-*


# KALCMANU STORAGE.        (18D)
MFS    EQUALS  END-DELV  # I(18)
MFI    EQUALS  MFS    # I    TMP
DEL    EQUALS  MFS    # I    TMP
END-KALC  EQUALS  MFS  +18D  # **NEXT AVAIL LOC AFTER KALCMANU**


# MEASUREMENT INCORPORATION STORAGE (R22) STORAGE.  (56D)


TX789    EQUALS  END-KALC  # I(6)TMP
GAMMA    EQUALS  TX789   +6  # I(3)TMP
OMEGA    EQUALS  GAMMA   +2  # I(18)TMP
BVECTOR    EQUALS  OMEGA   +18D  # I(18)TMP
DELTAQ    EQUALS  BVECTOR +18D  # I(2)TMP
VARIANCE  EQUALS  DELTAQ   +2  # I(3)TMP
RCLP    EQUALS  VARIANCE +3  # I(6)TMP
GRP2SVQ    EQUALS  RCLP   +6  # I(1)TMP QSAVE FOR RESTARTS


# P20, P22, P23 DSP NOUN    (5D)
N49DISP    EQUALS  BVECTOR    # B(5)TMP


# S22.1 STORAGE.      (36D)
SVMRKDAT  EQUALS  GRP2SVQ  +1  # I(36)TMP 5 SETS OF MARK DATA +PAD OF ONE


# **** CISLUNAR NAV.  ERAS.  (P20'S) ****  (45D)
TRUNX    EQUALS  SVMRKDAT +36D
DATATEST  EQUALS  TRUNX    #  (1)
UBAR0    EQUALS  TRUNX  +1
UBAR1    EQUALS  UBAR0  +6
UBAR2    EQUALS  UBAR1  +6
RZC    EQUALS  UBAR2  +6
VZC    EQUALS  RZC  +6
UCLSTAR    EQUALS  VZC  +6
USSTAR    EQUALS  UCLSTAR  +6
SRRETURN  EQUALS  USSTAR  +6


# Page 122
# *-*-*-*- OVERLAY NUMBER 3 IN EBANK 7 -*-*-*-*


# RENDEZVOUS GUIDANCE STORAGE. -- P32 ... P35 --  (8D)
DELTEEO    EQUALS  END-KALC  # I(2) S-S BACK VALUES OF DELTA TIME
DELEL    EQUALS  DELTEEO  +2  # I(2) S-S
SECMAX    EQUALS  DELEL  +2  # I(2) S-S MAX STOP SIZE FOR ROUTINE
XXXALT    EQUALS  SECMAX  +2  # I(2)


# S40.9 STORAGE        (16D)
VG    EQUALS  XXXALT  +2  # I(6)TMP
VRPREV    EQUALS  VG  +6  # I(6)
TNIT    EQUALS  VRPREV  +6  # I(2)
TNITPREV  EQUALS  TNIT  +2  # I(2)


# S40.2,3 STORAGE.      (1D)
AXISCODE  EQUALS  TNITPREV +2  # I(1)IN


# P30'S-P17 COMMON STORAGE.    (24D)
RACT3    EQUALS  GRP2SVQ  +1  # I(6)TMP POSITION OF ACTIVE AT TPI TIME.
VACT3    EQUALS  RACT3  +6  # I(6)TMP VELOCITY OF ACTIVE AT TPI TIME.
RPASS3    EQUALS  VACT3  +6  # I(6)TMP POSITION OF PASSIVE AT TPI TIME.
VPASS3    EQUALS  RPASS3  +6  # I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.


# P76, N84 DISPLAY      (6D)
DELVOV    EQUALS  RACT3    # I(6)DSP NOUN 84 FOR X-V84, P34-35


# INITVEL/MIDGIM STORAGE.    (34D)
#  (CALLED BY S34.1,2, S35.1,2, AND S40.9)
#  (CALLS LAMBERT, CONIC SUBROUTINES)
RINIT    EQUALS  VPASS3  +6  # I(6)IN ACTIVE VEHICLE RADIUS VECTOR
VINIT    EQUALS  RINIT  +6  # I(6)IN ACTIVE VEHICLE VELOCITY VECTOR
RTARG1    EQUALS  VINIT  +6  # I(6)TMP SHIFTED RTARG
VIPRIME    EQUALS  RTARG1  +6  # I(6)OUT NEW VEL REQ AT INITIAL RADIUS
VTPRIME    EQUALS  VIPRIME  +6  # I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS
+MGA    EQUALS  VTPRIME  +6  # I(2)DSP NOUN 45 FOR P30,34,35.  +MID GIM.
COZY4    EQUALS  +MGA  +2  # I(2)TMP COSINE OF ANGLE WHEN ROT STARTS


# THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CANNOT SHARE WITH TPI
# Page 123
INTIME    EQUALS  AXISCODE +3
ITCTR    EQUALS  INTIME  +2  # I(1)TMP ITERATION COUNTER
END-IN/M  EQUALS  COZY4  +2  # ** NEXT AVAIL LOC AFTER INITVEL/MIDGIM **


# P34 AND P33 STORAGE.  (OVERLAYS INITVEL/MIDGIM)  (24D)
VAPREC    EQUALS  RINIT    # I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V)
RAPREC    EQUALS  VINIT    # I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V)
VPPREC    EQUALS  VIPRIME    # I(6) S-S PREC VEC FOR NOM TPI TIME (PASS)
RPPREC    EQUALS  VTPRIME    # I(6) S-S PREC VEC FOR NOM TPI TIME (PASS)


# P30, P40 INTERFACE.      (20D)
RTIG    EQUALS  END-IN/M  # I(6)TMP
VTIG    EQUALS  RTIG  +6  # I(6)TMP
DELVSIN    EQUALS  VTIG  +6  # I(6)TMP
DELVEET3  EQUALS  DELVSIN    #     TMP DELTA VEL VECT INERTIAL COORDS.
VGTEMP    EQUALS  DELVEET3
DELVSAB    EQUALS  DELVSIN  +6  # I(2)TMP


# P35-P40 INTERFACE STORAGE.  (OVERLAYS P30-P40 I/F STORAGE)  (12D)
RPASS4    EQUALS  RTIG    # I(6)TMP POSITION OF PASSIVE AT INTERCEPT
VPASS4    EQUALS  RPASS4  +6  # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT


# TPI SEARCH (P17)      (6D)
E2    EQUALS  VPASS4  +6  # I(6)TMP


# P30-P40 COMMON STORAGE.    (3D)
TPASS4    EQUALS  DELVSAB  +2  # I(2)TMP
TINT    =  TPASS4    # I(2)
QTEMP    EQUALS  TPASS4  +2  # I(1)TMP


# P30-P40 STORAGE.      (4D)
TTOGO    EQUALS  QTEMP  +1  # B(2)DSP NOUN 35,40,45,59,99
          #    FOR P30,34,35,40,41,47, R30.
TTPI    EQUALS  TTOGO  +2  # B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS.
# Page 124
END-P30S  EQUALS  TTPI  +2  # ** NEXT AVAIL LOC AFTER P30-40 STORAGE. **


# P40 STORAGE.        (8D)
VGBODY    EQUALS  END-P30S  # B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR
DELVCTL    =  VGBODY
P40TMP    EQUALS  VGBODY  +6  # B(2)TMP


# P47 STORAGE.
DV47TEMP  EQUALS  VG
DELVIMU    EQUALS  P40TMP  +2  # I(6)DSP NOUN 83 FOR P47 DELTAV(IMU).


# S40.1 STORAGE.      (23D)
CSTEER    EQUALS  DELVIMU  +6  # I(2)IN
BDT    EQUALS  CSTEER  +2  # I(6)IN
UT    EQUALS  BDT  +6  # I(6)OUT THRUST DIRECTION
VGTIG    EQUALS  UT  +6  # I(6)OUT
VGPREV    =  VGTIG
F    EQUALS  VGTIG  +6  # I(2)OUT S40.3 NEEDS THIS


QTEMP1    EQUALS  F  +2  # I(1)TMP HOLDS RETURN


# R41          (2D)
T-TO-ADD  EQUALS  QTEMP1  +1  # I(1D) FOR MIDTOAVE


# Page 125
# *-*-*-*- OVERLAY NUMBER 4 IN EBANK 7 -*-*-*-*


# S35.1 STORAGE.      (2D)
TSTRT    EQUALS  END-P30S  # I(2)IN MIDCOURSE START TIME


# S34.1 STORAGE.  (OVERLAYS S35.1 STORAGE)  (1)
TITER    EQUALS  TSTRT    # I(1)TMP ITERATION COUNTER


# (P30-31 Q-SAVES)      (1)
P30/31RT  EQUALS  TITER    # B(1) RETURN POINT


# P22 STORAGE.        (6D)
S22WUNL    EQUALS  TSTRT  +2  # 1  WUNL W8 UNKNOWN INIT VALUE.
S22TOFF    EQUALS  S22WUNL  +1  # 2  T SUB OFF
S22TPRIM  EQUALS  S22TOFF  +2  # 2  SAVE TF
S22EORM    EQUALS  S22TPRIM +2  # 0 = EARTH -- NON-ZERO = MOON


# DOWNLINK ERASABLES FOR P22, P20 MARK DATA.  (8D)
MARKDOWN  EQUALS  S22EORM  +1  # B(1)
RM    EQUALS  S22RTNEX  # DOWNLINK OF VHF RANGE


# S22.1          (1D)
S22RTNEX  EQUALS  MARKDOWN +7  # B(1)


# P22 STORAGE        (6D)
STARSAV3  EQUALS  S22RTNEX +1  # I(6)TMP


# CRS61.1 STORAGE.  --A SUBSET OF P20--  (14D)
Q611    EQUALS  RM  +1  # I(1)TMP QSAVE
Q6111    EQUALS  Q611  +1  # I(1)TMP QSAVE
SAVEPOS    EQUALS  Q6111  +1  # I(6)TMP LEM POSITION VECTOR
# Page 126
SAVEVEL    EQUALS  SAVEPOS  +6  # I(6)TMP LEM VELOCITY VECTOR


# ATTITUDE MANEUVER -- CALLED BY P20,R61,R63,CRS61.1  (3D)
PRAXIS    EQUALS  SAVEVEL  +6  # B(3) S-S DISP RES FOR PREF AXIS N95.


# MARK ROUTINE (R21) STORAGE.  -- IS SUBSET OF R22 --  (14D)
MRKBUF1    EQUALS  PRAXIS  +3  # B(7)TMP R21 MARK BUFFER.
MRKBUF2    EQUALS  MRKBUF1  +7  # B(7)TMP R21 MARK BUFFER.


# MORE CONICS STORAGE.      (4)
COGA    EQUALS  3774    # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE
INDEP    EQUALS  COGA    # I(1) USED BY SUBROUTINE 'ITERATOR'
EPSILONL  EQUALS  COGA  +2  # I(2)TMP


# RENDEZVOUS GUIDANCE STORAGE.  -- P32...P35 --  (10D)
ELEV    EQUALS  MRKBUF2  +7  # I(2)TMP
RTX1    EQUALS  ELEV  +2  #  (1)
RTX2    EQUALS  RTX1  +1  #  (1)
RTMU    EQUALS  RTX2  +1  #  (2)
RTSR1/MU  EQUALS  RTMU  +2  #  (2)
CENTANG    EQUALS  RTSR1/MU +2  # I(2) S-S CENTRAL ANGLE COVERED (TPI-TFF)


# TPI SEARCH (S17.1, S17.2) P17 STORAGE.(10D)
DELTEE    EQUALS  MRKBUF2  +7  # I(2)
XRS    EQUALS  DELTEE  +2  # I(2)
THETL    EQUALS  XRS  +2  # I(2)
TF    EQUALS  THETL  +2  # I(2)
DELHITE    EQUALS  TF  +2  #  (2)


# Page 127
# *-*-*-*- OVERLAY NUMBER 5 IN EBANK 7 -*-*-*-*


# P17,P34        (2D)
NN1    =  NN    # I(2)DSP NOUN 55,R1


# ********* THE FOLLOWING ARE FOR FLIGHT 504 ONLY *************


# RETURN-TO-EARTH STORAGE.    (93D)
RTEDVD    EQUALS  END-IN/M  # I(2)IN DELTA VELOCITY DESIRED    M/CS B7
RTEGAM2D  EQUALS  RTEDVD  +2  # I(2)IN REENTRY ANGLE DESIRED    REVS B0
RCON    EQUALS  RTEGAM2D +2  # I(2)TMP CONIC R2 RADIUS    M B29
R(T1)/    EQUALS  RCON  +2  # I(6)TMP POSITION VECTOR AT TIG  M B29/B27
R(T1)    EQUALS  R(T1)/  +6  # I(2)TMP MAGNITUDE OF R(T1)/    M B29/B27
DT21PR    EQUALS  R(T1)  +2  # I(2)TMP PREVIOUS DT21      CS B30
MAMAX1    EQUALS  DT21PR  +2  # I(2)TMP MAJ AXIS LOW BOUND LMT  M B30
MAMAX2    EQUALS  MAMAX1  +2  # I(2)TMP MAJ AXIS UP BOUND LMT    M B30
R(T2)/    EQUALS  MAMAX2  +2  # I(6)TMP FINAL POSITION VECTOR    M B29/B27
RD    EQUALS  R(T2)/  +6  # I(2)TMP FINAL R DESIRED    M B29/B27
DRCON    EQUALS  RD  +2  # I(2)TMP RCON SLOPE ITERATOR    M B29/B27
RPRE'    EQUALS  DRCON  +2  # I(2)TMP PREVIOUS RPRE      M B29/B27
V(T1)/    EQUALS  RPRE'  +2  # I(6)TMP VEL VECTOR AT TIG    M/CS B7/B5
V2(T1)/    EQUALS  V(T1)/  +6  # I(6)TMP POST IMP VEL AT TIG    M/CS B7/B5
DV    EQUALS  V2(T1)/  +6  # I(2)TMP DELTA VELOCITY AT TIG    M/CS B7/B5
V(T2)/    EQUALS  DV  +2  # I(6)TMP FINAL VELOCITY VECTOR    M/CS B7/B5
T1    EQUALS  V(T2)/  +6  # I(2)TMP INITIAL VECTOR TIME    CS B28
PCON    EQUALS  T1  +2  # I(2)TMP SEMI-LATUS RECTUM    M B29
X(T1)    EQUALS  PCON  +2  # I(2)TMP COTANGENT GAMMA1    B5
T12    EQUALS  X(T1)  +2  # I(2)TMP INIT TO FINAL POSIT TIME  CS B28
DELTAT    EQUALS  T12  +2  # I(2)TMP DELTA T IN SAVE PERILUNE  CS B28
NN1A    EQUALS  DELTAT  +2  # I(2)TMP ITERATION COUNTER 1
NN2    EQUALS  NN1A  +2  # I(2)TMP ITERATION COUNTER 2
RTENCKEX  EQUALS  NN2  +2  # I(1)TMP RTENCK RETURN ADDRESS
CONICX1    EQUALS  RTENCKEX +1  # I(1)TMP CONICS MU TABLE INDEX
T2    EQUALS  CONICX1  +1  # I(2)TMP FINAL TIME      CS B28
UR1/    EQUALS  T2  +2  # I(6)TMP UNIT R(T1)/      B1
UV1/    EQUALS  UR1/  +6  # I(6)TMP UNIT V(T1)/      B1
BETA1    EQUALS  UV1/  +6  # I(2)TMP 1+X(T2)**2      B1
P(T1)    EQUALS  BETA1  +2  # I(1)TMP PRIMARY BODY STATE TIME 1  B14
CFPA    EQUALS  P(T1)  +1  # I(2)TMP COSINE FLIGHT PATH ANGLE  B1
PHI2    EQUALS  CFPA  +2  # I(2)TMP PERI OR APO INDICATOR    B2
SPRTEX    EQUALS  PHI2  +2  # I(1)TMP ROUTINE RETURN ADDRESS
VNSTORE    EQUALS  SPRTEX  +1  # I(1)TMP VERBNOUN STORAGE
BETA12    EQUALS  VNSTORE  +1  # I(2)TMP SIGN FOR TIMERAD


# OVERLAYS WITHIN RETURN-TO-EARTH STORAGE.
# Page 128
RPRE    EQUALS  24D    # I(2)TMP COMPUTED PREC RADIUS    M B29/B27
P/RPRE    EQUALS  26D    # I(2)TMP P/R        B4
R/APRE    EQUALS  28D    # I(2)TMP R/A        B6
X(T2)PRE  EQUALS  T12    # I(2)TMP PREC COTAN GAMMA2    B0
X(T2)    EQUALS  DELTAT    # I(2)TMP COTAN GAMMA2      B0
UH/    EQUALS  UV1/    # I(2)TMP UNIT HORIZONTAL VECTOR.  B1
SPRTETIG  EQUALS  TIG    # I(2)IN TIME OF IGNITION    CS B28


# Page 129
# *-*-*-*- OVERLAY 6 IN EBANK 7 -*-*-*-*
# P32,P33


# THE FOLLOWING OVERLAY MEAS. INCORP. ARE AND IN USE ONLY WHEN (32D)
POSTCSI    EQUALS  VG    # I(2)
DELVCSI    EQUALS  POSTCSI  +2  # I(2)
DELDV    EQUALS  DELVCSI  +2  # I(2)
GAMPREV    EQUALS  DELDV  +2  # I(2)
DVPREV    EQUALS  GAMPREV +2  # I(2)
POSTCDH    EQUALS  DVPREV  +2  # I(2)
HAFPA1    EQUALS  POSTCDH
VACT4    EQUALS  POSTCDH  +2  # I(6)
RDOTV    EQUALS  VACT4  +6  # I(2)
VACT1    EQUALS  RDOTV  +2  # I(6)
VPASS1    EQUALS  VACT1  +6  # I(6) VEL. PASSIVE VEH. AT CSI TIME


UNVEC    EQUALS  VACT3


T2TOT3    EQUALS  TPASS4    # I(2) TPI - TCDH


CSIALRM    EQUALS  TITER    # I(2) ALARM INDEX


DELVEET2  EQUALS  S22WUNL    # I(6) VACT3 - VACT2 = DVCDH REF. COORD.


# ADDITIONAL CSI - CDH STORAGE.    (10D)
RPASS1    EQUALS  CENTANG  +2  # I(6) POS. PASSIVE VEH. AT CSI TIME.
LOOPCT    EQUALS  RPASS1  +6  # I(2) ITERATION COUNTER
NN    EQUALS  LOOPCT  +2  # I(2)


# P21 STORAGE        (19D)
P21ORIG    EQUALS  TRUNX    # I(1)
P21BASER  EQUALS  P21ORIG  +1  # I(6)
P21BASEV  EQUALS  P21BASER +6  # I(6)
P21ALT    EQUALS  P21BASEV +6  # I(2) NOUN 73 R1 ALTITUDE
P21VEL    EQUALS  P21ALT  +2  # I(2) NOUN 73 R2 VELOCITY
P21GAM    EQUALS  P21VEL  +2  # I(2) NOUN 73 R3 FLIGHT PATH ANGLE


# The following two statements had been just "WHOCARES = 3777".---RSB 2009
    SETLOC  3777
WHOCARES  EQUALS      # A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
END-E7    EQUALS  WHOCARES  # ***** LAST LOCATION IN E7


# Page 130 ... is empty.