ERASABLE_ASSIGNMENTS.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: ERASABLE_ASSIGNMENTS.agc
## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
## build 072. This is for the Command Module's (CM)
## Apollo Guidance Computer (AGC), for
## Apollo 15-17.
## Assembler: yaYUL
## Contact: Onno Hommes <ohommes@alumni.cmu.edu>
## Website: www.ibiblio.org/apollo/index.html
## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
## Mod history: 2009-07-30 OH Started from corresponding Comanche 055 file.
## 2009-11-29 JL Carried on from where Onno stopped on page 48.
## 2010-01-25 JL Finished conversion.
## 2010-01-26 JL Updated header comments.
## 2010-01-31 JL Fixed build errors.
## 2010-02-02 JL Fixed page numbers.
## 2010-02-02 JL Fixed ERASE op.
## 2010-02-09 JL Fixed addresses of 9X9LOC1 and 9X9LOC2 on p97.
## Fixed EQUALS on p80.
## 2010-02-20 RSB Un-##'d this header.
## 2010-04-12 JL Fixed tab spacing on a line.
## 2011-05-07 JL Removed workarounds.
## 2017-01-04 RSB Proofed comment text using octopus/ProoferComments
## and fixed errors found.
## 2017-01-22 RSB Proofed comment text by diff'ing vs Comanche 55
## and corrected errors found, though the match between
## these program versions is not stellar (ha!), so
## you shouldn't have too much confidence that all
## comment-text errors were found.
## 2017-03-16 RSB Comment-text fixes identified in 4-way side-by-side
## diff of Colossus237/249/Comanche55/Artemis72.
## Note that there are several instances (marked by
## ##-style comments) in which I've added a trailing
## period not visible in the printout. In these instances
## I believe that the printout is simply too faint, but
## that the periods are really present in the source code.
## Previously, I had intentionally omitted these periods.
## 2021-05-30 ABS NORMSBIT -> NDRMSBIT
## GONBYBIT -> G0NBYBIT
## Removed RUPTSTOR line not present in scans.
## Page 38
# CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
# EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
# OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
# CHANGING OF ONLY ONE CARD. EXAMPLE.
#
# X EQUALS START
# Y EQUALS X +SIZE.X
# Z EQUALS Y +SIZE.Y
#
# (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. )
# (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
# USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC. )
#
#
# EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
# AND DIFFERENT DATA). EXAMPLE.
#
# X EQUALS Y
#
#
# = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
# (THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXAMPLE.
#
# X = Y
#
#
# THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
# THE COMMENTS IN THE FOLLOWING FORM. M(SIZE)N.
#
# M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
# B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
# INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
# I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
# INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
# INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
#
# SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
#
# N INDICATES THE NATURE OR 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 39
# 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 40
# 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.)
## The trailing period in the line below is not visible in the printout,
## but I believe it is simply too faint to see. — RSB 2017.
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
## The trailing period in the lines below is not visible in the printout,
## but I believe it is simply too faint to see. — RSB 2017.
CDUT EQUALS 35 # OPTICS TRUNNION CDU (WAS OPTY).
CDUS EQUALS 36 # OPTICS SHAFT CDU (WAS OPTX).
PIPAX EQUALS 37
PIPAY EQUALS 40
PIPAZ EQUALS 41
BMAGX EQUALS 42
BMAGY EQUALS 43
BMAGZ EQUALS 44
INLINK EQUALS 45
RNRAD EQUALS 46
GYROCMD EQUALS 47
CDUXCMD EQUALS 50
CDUYCMD EQUALS 51
CDUZCMD EQUALS 52
CDUTCMD EQUALS 53 # OPTICS TRUNNION COMMAND (WAS OPTYCMD).
TVCYAW EQUALS CDUTCMD # SPS YAW COMMAND IN TVC MODE.
## Page 41
CDUSCMD EQUALS 54 # OPTICS SHAFT COMMAND (WAS OPTXCMD).
TVCPITCH EQUALS CDUSCMD # SPS PITCH COMMAND IN TVC MODE.
# REGISTERS 55-60 ARE COUNTERS WHICH ARE NOT PRESENTLY WIRED, AND SO MAY BE USED WITH CARE
# 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 REGISTERS RELATIVE
## The trailing period in the line below is not visible in the printout,
## but I believe it is simply too faint to see. — RSB 2017.
X2 EQUALS 39D # TO THE WORK AREA.
S1 EQUALS 40D
S2 EQUALS 41D
QPRET EQUALS 42D
## Page 42
# 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
CHAN5 = PYJETS
ROLLJETS EQUALS 6
CHAN6 = ROLLJETS
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
CHAN76 EQUALS 76
CHAN77 EQUALS 77
# END OF CHANNEL ASSIGNMENTS
## Page 43
# 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
# INTERPITIVE SWITCH BIT ASSIGNMENTS
# INTERPRETIVE SWITCH BIT ASSIGNMENTS
# FLAGWORD DEC NUM BIT + FLAG EQUIVALENT FLAGWORDS
#
# .05GSW 102D BIT 3 FLAG 6
# 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
# AUTOSEQ 158D BIT 7 FLAG 10
# AVEGFLAG 029D BIT 1 FLAG 1
# AVEMIDSW 149D BIT 1 FLAG 9
# AVFLAG 040D BIT 5 FLAG 2
# AZIMFLAG 172D BIT 8 FLAG 11
# BURNFLAG 155D BIT 10 FLAG 10
# 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
# CSISFLAG 174D BIT 6 FLAG 11
# CULTFLAG 053D BIT 7 FLAG 3
# CYC61FLG 11D BIT 4 FLAG 0
# D6OR9FLG 058D BIT 2 FLAG 3
# DAPBIT1 090D BIT 15 FLAG 6
# DAPBIT2 091D BIT 14 FLAG 6
## Page 44
# DIM0FLAG 059D BIT 1 FLAG 3
# DMENFLG 081D BIT 9 FLAG 5
# DRIFTFLG 030D BIT 15 FLAG 2
# DSKYFLAG 075D BIT 15 FLAG 5
# EGSW 97D BIT 8 FLAG 6 KNOWNFLG R57FLAG
# ENG2FLAG 019D BIT 11 FLAG 1
# ENGONFLG 083D BIT 7 FLAG 5
# ENTRYDSP 047D BIT 13 FLAG 6
# ERADFLAG 017D BIT 13 FLAG 1
# ETPIFLAG 038D BIT 7 FLAG 2 FIRSTFLG OPTNSW
# F2RTE 10D BIT 5 FLAG 0
# FINALFLG 039D BIT 6 FLAG 2
# FIRSTFLG 38D BIT 7 FLAG 2 ETPIFLAG OPTNSW
# FREEFLAG 012D BIT 3 FLAG 0
# FULTKFLG 163D BIT 2 FLAG 10
# 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
# HAFLAG 173D BIT 7 FLAG 11
# HDSUPFLG 154D BIT 11 FLAG 10
# HIND 099D BIT 6 FLAG 6
# IDLEFAIL 024D BIT 6 FLAG 1
# 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
# JSWITCH 001D BIT 14 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
# MANEUFLG 160D BIT 5 FLAG 10
# MARKFLG 026D BIT 4 FLAG 1
# 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
## Page 45
# 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
# NEWLMFLG 121D BIT 14 FLAG 8
# NEWTFLAG 80D BIT 10 FLAG 5
# NJETSFLG 015D BIT 15 FLAG 1
# NODOFLAG 044D BIT 1 FLAG 2
# 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
# ORBWFLAG 054D BIT 6 FLAG 3
# ORDERSW 129D BIT 6 FLAG 8
# P21FLAG 033D BIT 12 FLAG 2
# P22MKFLG 49D BIT 11 FLAG 3
# P24FLAG 136D BIT 14 FLAG 9
# P24MKFLG 042D BIT 3 FLAG 2
# P29FLAG 14D BIT 1 FLAG 0
# P35FLAG 157D BIT 8 FLAG 10
# PCFLAG 164D BIT 1 FLAG 10
# PCMANFLG 150D BIT 15 FLAG 10
# PDSPFLAG 063D BIT 12 FLAG 4
# PFRATFLG 041D BIT 4 FLAG 2
# PINBRFLG 069D BIT 6 FLAG 4
# POOFLAG 051D BIT 9 FLAG 3
# PRECIFLG 052D BIT 8 FLAG 3
# PRIODFLG 061D BIT 14 FLAG 4
# PRONVFLG 068D BIT 7 FLAG 4
# PTV93FLG 161D BIT 4 FLAG 10
# QUITFLAG 145D BIT 5 FLAG 9
# R21MARK 031D BIT 14 FLAG 2
# R22CAFLG 143D BIT 7 FLAG 9
# R31FLAG 146D BIT 4 FLAG 9
# R53FLAG 009D BIT 6 FLAG 0
# R67FLAG 133D BIT 2 FLAG 8
# RANGFLAG 156D BIT 9 FLAG 10
# REFSMFLG 047D BIT 13 FLAG 3
# REINTFLG 152D BIT 13 FLAG 10
# REJCTFLG 153D BIT 12 FLAG 10
# RELVELSW 096D BIT 9 FLAG 6
# RENDWFLG 089D BIT 1 FLAG 5
# RETROFLG 76D BIT 14 FLAG 5
# RNDVZFLG 008D BIT 7 FLAG 0
## Page 46
# RPQFLAG 120D BIT 15 FLAG 8
# RVSW 111D BIT 9 FLAG 7
# S32.1F1 165D BIT 15 FLAG 11
# S32.1F2 166D BIT 14 FLAG 11
# S32.1F3A 167D BIT 13 FLAG 11
# S32.1F3B 168D BIT 12 FLAG 11
# SAVECFLG 140D BIT 10 FLAG 9
# SKIPVHF 035D BIT 10 FLAG 2
# SLOPESW 027D BIT 3 FLAG 1
# SLOWFLG 77D BIT 13 FLAG 5
# 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 92D BIT 13 FLAG 6
# SURFFLAG 127D BIT 8 FLAG 8
# SWTOVER 135D BIT 15 FLAG 9
# TARG1FLG 020D BIT 10 FLAG 1
# TARG2FLG 021D BIT 9 FLAG 1
# TERMIFLG 105D BIT 15 FLAG 7
# TFFSW 119D BIT 1 FLAG 7
# TIMRFLAG 109D BIT 11 FLAG 7
# TPIMNFLG 162D BIT 3 FLAG 10
# TRACKFLG 025D BIT 5 FLAG 1
# UPDATFLG 023D BIT 7 FLAG 1
# UPLOCKFL 116D BIT 4 FLAG 7
# UTFLAG 126D BIT 9 FLAG 8
# V37FLAG 114D BIT 6 FLAG 7
# V50N18FL 045D BIT 15 FLAG 3
# V59FLAG 078D BIT 12 FLAG 5
# 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
# VNFLAG 073D BIT 2 FLAG 4
# XDELVFLG 037D BIT 8 FLAG 2
# XDSPFLAG 074D BIT 1 FLAG 4
# ZMEASURE 005D BIT 10 FLAG 0
## Page 47
# INTERPRETIVE SWITCH BIT ASSIGNMENTS
FLAGWRD0 = STATE +0 # (000-014)
# (SET) (RESET)
# BIT 15 FLAG 0
# = 000D
# 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 ATTIDUDE A/P FOLLOWING ERROR
# ERROR DISPLAYED DISPLAYED
NEEDLBIT = BIT9
# BIT 8 FLAG 0
IMUSE = 007D # IMU IN USE IMU NOT IN USE
IMUSEBIT = BIT8
# BIT 7 FLAG 0
## Page 48
RNDVZFLG = 008D # P20 RUNNING P20 NOT RUNNING
RNDVZBIT = BIT7
# BIT 6 FLAG 0
R53FLAG = 009D # V51 INITIATED V51 NOT INITIATED
R53FLBIT = BIT6
# BIT 5 FLAG 0
F2RTE = 010D # IN TIME CRITICAL NOT IN TIME CRITICAL
# MODE MODE
F2RTEBIT = BIT5
# BIT 4 FLAG 0
CYC61FLG = 11D # KALCMAN3 TO RETURN KALCMAN3 TO DO
# TO R61 AFTER MANEUVER
CYC61BIT = BIT4 # COMPUTING TM
# BIT 3 FLAG 0
FREEFLAG = 012D # (TEMPORARY FLAG USED IN MANY ROUTINES)
FREEFBIT = BIT3
# BIT 2 FLAG 0
AMOONFLG = 013D # STATE VECTOR IN STATE VECTOR IN
AMOONBIT = BIT2 # LUNAR SPHERE AT EARTH SPHERE AT
# MIDTOAVE MIDTOAVE
# BIT 1 FLAG 0
P29FLAG = 14D # P29 RUNNING. 1ST P29 FINISHED WITH
P29BIT = BIT1 # PASS IN PROGRESS. 1ST PASS.
FLAGWRD1 = STATE +1 # (015-029)
# (SET) (RESET)
# BIT 15 FLAG 1
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
NJETSBIT = BIT15
# BIT 14 FLAG 1
STIKFLAG = 016D # RHC CONTROL CMC CONTROL
## Page 49
STIKBIT = BIT14
# BIT 13 FLAG 1
ERADFLAG = 017D # EARTH, COMPUTE EARTH, USE 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 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
UPDATBIT = BIT7
# BIT 6 FLAG 1
IDLEFAIL = 024D # INHIBIT R41 ENABLE R41 (ENGFAIL)
IDLEBIT = BIT6
## Page 50
# BIT 5 FLAG 1
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
TRACKBIT = BIT5
# BIT 4 FLAG 1
MARKFLG = 026D # A MARK HAS BEEN NO MARK HAS BEEN
MARKBIT = BIT4 # ACCEPTED. ALLOW ACCEPTED. DO NOT
# MARK REJECT. MARK REJECT.
# BIT 3 FLAG 1
SLOPESW = 27D # 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
# 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
## Page 51
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
ETPIBIT = BIT7
# BIT 7 FLAG 2
FIRSTFLG = ETPIFLAG # FIRST PASS SUCCEEDING PASS THRU
# THRU S40.9 S40.9
FIRSTBIT = BIT7
FINALBIT = BIT6
# BIT 6 FLAG 2
FINALFLG = 039D # LSAT PASS THROUGH INTERIM PASS THROUGH
# RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM
# COMPUTATIONS COMPUTATIONS
AVFLBIT = BIT5
# BIT 5 FLAG 2
## Page 52
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
P24MKFLG = 042D # P24 MARKING P24 NOT MARKING
P24MKBIT = BIT3
# 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
V50N18FL = 045D # ENABLE R60 ATT INHIBIT R60 ATTITUDE
V50N18BT = BIT15 # MANEUVER MANEUVER
# BIT 14 FLAG 3
GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK
# OCCURED
GLOKFBIT = BIT14
# 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
## Page 53
P22MKFLG = 49D # P22 DOWNLINKED MARK P22 DOWLINK 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
POOFLAG = 051D # INHIBIT BACKWARDS ALLOW BACKWARDS
POOBIT = BIT9 # INTEGRATION INTEGRATION
# BIT 8 FLAG 3
PRECIFLG = 052D # CSMPREC, LEMPREC INTGRV CALLED
PRECIBIT = BIT8 # OR INTEGRVS CALLED
# 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 N1VIGATION 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
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
## Page 54
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
# 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
## Page 55
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
# 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
## Page 56
MKOVBIT = BIT3
# BIT 2 FLAG 4 DISPLAY BIT
VNFLAG = 073D # DISPLAY IS A DISPLAY IS NOT A
VNBIT = BIT2 # VNFLASH TYPE VNFLASH TYPE
# BIT 1 FLAG 4 MARK DISPLAY NOT TO NO SPECIAL MARK
XDSPFLAG = 074D # 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 = 76D # P37 PREMANEUVER ORBIT NOT RETROGRADE
RETROBIT = BIT14 # ORBIT IS RETROGRADE
# BIT 13 FLAG 5
SLOWFLG = 77D # 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
# P 23 P 23
V59FLBIT = BIT12
# BIT 11 FLAG 5
INCORFLG = 079D # FIRST INCORPORATION SECOND INCORPORATION
INCORBIT = BIT11
# BIT 10 FLAG 5
NEWTFLAG = 80D # RETURN TO P29 SKIP- NORMAL OPERATION
NEWTBIT = BIT10 # PING LONGITUDE DIS-
# PLAY
# BIT 9 FLAG 5
DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
# FOR INCORPORATION FOR INCORPORATION
## Page 57
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
# = 086D
# BIT 3 FLAG 5
SOLNSW = 87D # LAMBERT DOES NOT LAMBERT CONVERGES OR
# 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
## Page 58
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 = 92D # 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 # ALOW ENTRY FIRINGS INHIBIT ENTRY FIRING
# AND CALCULATIONS AND CONTROL FUNCTION
CMARMBIT = BIT12
# DO NOT SHARE BIT12 WITH PROGRAMS USING SERVICER
# 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
## Page 59
# 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 7 FLAG 6
NOSWITCH = 098D # LATERAL ROLL LATERAL ROLL MANUVER
NOSWBIT = BIT7 # MANUVER INHIBITED PERMITED IN ENTRY
# IN ENTRY
# 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
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
# DO NOT SHARE BIT3 WITH PROGRAMS USING SERVICER
# BIT 2 FLAG 6
## Page 60
CM/DSTBY = 103D # ENTRY DAP ACTIVATED ENTRY DAP NOT
# ACTIVATED
CM/DSBIT = BIT2
# DO NOT SHARE BIT2 WITH PROGRAMS USING SERVICER
# 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
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.
NDRMSBIT = BIT10
## Page 61
# 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
G0NBYBIT = 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
# 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
## Page 62
RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED
RPQFLBIT = BIT15
# BIT 14 FLAG 8
NEWLMFLG = 121D # NEW LANDMARK COORD OLD LANDMARK COORD
NEWLMBIT = BIT14
# 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
CMOONBIT = BIT12 # IN LUNAR SPHERE IN EARTH SPHERE
# BIT 11 FLAG 8
LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE
LMOONBIT = BIT11 # IN LUNAR SPHERE IN EARTH SHPERE
# BIT 10 FLAG 8
ADVTRK = 125D # ADVANCE GROUND TRACK NOT ADVANCED
# SIGHTING WANTED GROUND TRACK
ADVTKBIT = BIT10
# BIT 9 FLAG 8
UTFLAG = 126D # UNIVERSAL TRACKING NO UNIVERSAL TRACKING
UTBIT = 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.
## Page 63
ORDERBIT = BIT6
# BIT 5 FLAG 8
APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE
# PERICENTER-APOCENTER PERICENTER-APOCENTE
# 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
# BIT 3 FLAG 8
V96ONFLG = 132D # P00 INTEGRATION HAS P00 INTEGRATION IS
# BEEN INHIBITED BY PROCEEDING REGULARLY
V96ONBIT = BIT3 # V96
# BIT 2 FLAG 8
R67FLAG = 133D # R67 CALLING R60 NOT R67 CALLING R60
R67BIT = BIT2
# 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
P24FLAG = 136D # P24 RUNNING P24 NOT RUNNING
P24BIT = BIT14
# BIT 13 FLAG 9
V82EMFLG = 137D # MOON VICINITY EARTH VICINITY
## Page 64
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
# 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 # R22 IS PROCESSING R22 IS NOT PROCESSING
# AN OPTICS MARK AN OPTICS MARK
R22CABIT = BIT7
# BIT 6 FLAG 9
N22ORN17 = 144D # COMPUTE TOTAL COMPUTE TOTAL
# ATTITUDE ERRORS ATTITUDE ERRORS
# WRT N22 (V62) WRT N17 (V63)
N2217BIT = BIT6
# BIT 5 FLAG 9
QUITFLAG = 145D # TERMINATE AND EXIT CONTINUE INTEGRATION
## Page 65
QUITBIT = BIT5 # FROM INTEGRATION
# BIT 4 FLAG 9
R31FLAG = 146D # R31 SELECTED (V83) R34 SELECTED (V85)
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
MIDAVBIT = BIT2
# BIT 1 FLAG 9
AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGR
# FOR W.MATRIX INTEGR ALLOW SET UP RN,VN,
# DONT WRITE OVER RN, PIPTIME
# VN,PIPTIME
AVEMDBIT = BIT1
# (SET) (RESET)
FLGWRD10 = STATE +10D # (150-164)
# BIT 15 FLAG 10
PCMANFLG = 150D # P20 MANEUVER NOT P20 PC
# AT PLANE CHANGE MANEUVER
PCMANBIT = BIT15
# BIT 14 FLAG 10
INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
# PROGRESS PROGRESS
INTFLBIT = BIT14
# BIT 13 FLAG 10
REINTFLG = 152D # INTEGRATION ROUTINE INTEGRATION ROUTINE
# TO BE RESTARTED NOT TO BE RESTARTED
REINTBIT = BIT13
## Page 66
# BIT 12 FLAG 10
REJCTFLG = 153D # MARK TO BE REJECTED NO MARK REJECT BY
# IN R22 R22
REJCTBIT = BIT12
# BIT 11 FLAG 10
HDSUPFLG = 154D
HDSUPBIT = BIT11 # HEADS UP ATTITUDE HEADS DOWN ATTITUDE
# BIT 10 FLAG 10
BURNFLAG = 155D # CSM DID BURN LM DID BURN
BURNBIT = BIT10
# BIT 9 FLAG 10
RANGFLAG = 156D # RANGE < 328 N.M RANGE > 328 N.M.
RANGBIT = BIT9
# BIT 8 FLAG 10
P35FLAG = 157D # MCC TARGETING DONE NOT YET MCC
P35BIT = BIT8
# BIT 7 FLAG 10
AUTOSEQ = 158D # AUTOMATIC RENDEZVOUS AUTOMATIC RENDEZ-
# SEQUENCE IS RUNNING VOUS NOT RUNNING
AUTSQBIT = BIT7
# BIT 6 FLAG 10
= 159D
# BIT 5 FLAG 10
MANEUFLG = 160D # MANEUVER,P76, MARK INCORPORATED
# OR PLANNED MANEUVER
MANEUBIT = BIT5
# BIT 4 FLAG 10
PTV93FLG = 161D # V93 TO BE DONE MANEUVER AND
# AFTER MANEUVER V93 DONE
PTV93BIT = BIT4
# BIT 3 FLAG 10
TPIMNFLG = 162D # TPI MANEUVER HAS
# BEEN DONE
TPIMNBIT = BIT3
# BIT 2 FLAG 10
FULTKFLG = 163D # ONLY OPTICS OR VHF OPTICS AND VHF
# MARKS BEING TAKEN MARKS TAKEN
FULTKBIT = BIT2
## Page 67
# BIT 1 FLAG 10
PCFLAG = 164D # PLANE CHANGE NOT PLANE CHANGE
# TARGETTING
PCBIT = BIT1
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 INTERATION 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)
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 NEWTON ITER.
# BIT 11 FLAG 11
# = 169D
# BIT 10 FLAG 11
# = 170D
# BIT 9 FLAG 11
# = 171D
# BIT 8 FLAG 11
AZIMFLAG = 172D # 3-AXIS UT VECPOINT UT
AZIMBIT = BIT8
# BIT 7 FLAG 11
HAFLAG = 173D # HEIGHT ADJUST NOT HEIGHT ADJUST
HABIT = BIT7 # MANEUVER PROG
# BIT 6 FLAG 11
CSISFLAG = 174D # MULTIPLE CSI S NOT MULTIPLE CSI
# REQUESTED
CSISBIT = BIT6
## Page 68
# 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 69
# 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
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
# UNSWITCHED DAP ERASABLE. (4D)
T6LOC ERASE
T6ADR ERASE
## Page 70
T5LOC ERASE +1
# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS.
# (INTB15+ THROUGH RUPTMXM) (32D)
INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
DSEXIT EQUALS INTB15+ # RETURN FOR DSPIN
EXITEM EQUALS INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
INTBIT15 ERASE # SIMILAR TO ABOVE.
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 ADDRESS.
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 VERBS
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
# MUST = HITEMIN+1.
MIXTEMP EQUALS VBUF +3 # FOR MIXNOUN DATA
# 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 SWITCH WORD.
MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
## Page 71
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
ENTEXIT = ENTRET
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
TEM3 ERASE # EXEC TEMP
COUNT EQUALS TEM3 # FOR DSPIN
TEM4 ERASE # EXEC TEMP
RELRET EQUALS TEM4 # RETURN FOR RELDSP
DSPWDRET EQUALS TEM4 # RETURN FOR DSPSIGN
SEPSCRET EQUALS TEM4 # RETURN FOR SEPSEC
SEPMNRET EQUALS TEM4 # RETURN FOR SEPMIN
TEM5 ERASE # EXEC TEMP
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 ADRESS TABLE ENTRY(MIXNN)
# MUST = IDAD2TEM-1, = IDAD3TEM-2.
IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
# MUST = IDAD1TEM+1, = IDAD3TEM-1.
IDAD3TEM ERASE # TEMP FOR INDIR ADRESS 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
## Page 72
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 73
# 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
# ENTRY DOWNLINK STORAGE
# (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 74
# 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
# ALIGNMENT TEMPS IN VAC
ZPRIME = 22D
PDA = 22D
COSTH = 16D
SINTH = 18D
THETA = 20D
STARM = 32D
# R52 AUTO-OPTICS (1)
PACTEMP EQUALS ZSMD +6D # B(1)TMP
# DOWNLINK STORAGE. (17D)
DNLSTADR EQUALS DNLSTCOD # CONTENTS NO LONGER AN ADDR BUT A CODE
DNLSTCOD ERASE # B(1)PRM ID CODE OF DOWNLIST
CTLIST ERASE
DNTMGOTO ERASE # B(1)
TMINDEX ERASE # B(1)
DNECADR EQUALS TMINDEX # B(1) ADDRESS OF CURRENT DNLST WORD
DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMP
# ED AND COUNT OF COMPLETE DUMPS ALREADY S
# ENT.
SUBLIST 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
## Page 75
MKCDUT ERASE
MKCDUX ERASE
# R52 TIME SAVE STORAGE (2)
AOPOLD ERASE +1
# UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (7D)
RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS
NVWORD ERASE
MARKNV ERASE
NVSAVE ERASE # PURPOSES)
CADRFLSH ERASE # B(1)TMP
CADRMARK ERASE # B(1)TMP
TEMPFLSH ERASE # B(1)TMP
# CHANNEL FAIL REGISTER (1D)
C31FLWRD ERASE # B(1)PRM
# C31FLWRD HAS THE FOLLOWING OCTAL FORMAT AXXBX WHERE A + B HAVE THE FOLLOWING INTERPRETATION. IF THE ASTRONAUT
# DESIRES TO BYPASS THE CHANNEL REPRESENTATION, HE SHOULD LOAD C31FLWRD VIA V21 N01 TO THE VALUES SHOWN IN THE
# FOLLOWING TABLES:
#
# A VALUE MEANING FOR CHANNEL 31 B VALUE MEANING FOR CHANNEL 33
#
# 0 OR 4 BITS 15,14, + 13 OF CHANNEL 31 ARE VALID 0 OR 4 BITS 4 + 5 OF CHANNEL 33
# 1 G&N CONTROL FREE 1 OR 5 OPTICS MODE CMC
# 2 G&N CONTROL ATT. HOLD 2 OR 6 OPTICS MODE ZERO
# 3 G&N CONTROL AUTO 3 OR 7 OPTICS MODE MANUAL
# 5 SCS CONTROL FREE
# 6 SCS CONTROL ATT. HOLD
# 7 SCS CONTROL AUTO
# ALARM REGISTERS (3D)
FAILREG ERASE +2 # B(3)PRM ALARM ABORT CODES
SETLOC 400
# VAC AREAS. -BE CAREFUL OF PLACEMENT- (220D)
VAC1USE ERASE # B(1)PRM
VAC1 ERASE +42D # B(43)PRM
## Page 76
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
# TEMP STORAGE FOR RESTARTS ROUTINE -- STARTS AT VAC5 + 19D
GOLOC EQUALS VAC5 +20D # B(4) GOLOC -1 THRU GOLOC +2 USED
# TO SET EXEC AND WTLST CALL
# V82, V90 STORAGE (1D)
VEHRET ERASE
# P24-RATE AIDED OPTICS (PAD LOAD)***** (3D)
TRATE ERASE
SRATE ERASE
NO.PASS ERASE
# P24-RATE AIDED OPTICS UNSHARED ERASABLES (2D)
TOLD ERASE
SOLD ERASE
# SINGLE PRECISION SUBROUTINE TEMPORARIES. (2D)
#
# SPSIN, SPCOS 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.
TEMK ERASE
SQ ERASE
## Page 77
# UNSWITCHED FOR ORBIT INTEGRATION. (21D)
TDEC ERASE +20D # I(2)
LAT EQUALS TDEC +2 # 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)
COLREG EQUALS ZV +6 # I(1)
# 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)).
# P24 STORAGE (1D)
RATETEMP EQUALS VHFCNT # B(1) TMP
# MISCELLANEOUS UNSWITCHED. (15D)
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
NVWORD1 ERASE # B(1)
DELAYLOC ERASE +3
TEMPR60 ERASE # B(1)
PRIOTIME ERASE # B(1)
TIME2SAV ERASE +1 # B(2)TMP
SCALSAVE ERASE +1 # B(2)TMP
# P20, CONICS (SHARING WITH TIME 2 SAVE 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
# MINKEY RENDEZVOUS (1D)
AUTPOINT ERASE # B(1) CONTROLLER RETURN
## Page 78
# CRS61.1 STORAGE. -USED IN R63 (VERB 89)- (3D)
CPHIX ERASE +2 # B(3)DSP NOUN 95 CALCULATED BY CRS61.1
# NOUN 26 ERASABLES (3D)
N26/PRI ERASE # B(1D) PRIO/TIME DELAY
N26/2CAD ERASE +1 # B(2D) 2CADR OF JOB/TASK
# DOWNLINK TIME OF EVENT
TEVENT ERASE +1 # B(2) TIME OF EVENT FOR DOWNLIST
TLIFTOFF = TEVENT
# P34-P35 STORAGE (1D)
NORMEX ERASE
# R57 STORAGE. -MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY- (1D)
TRUNBIAS ERASE # B(1)PRM RESULT OF R57 CALIBR OF TRUNION
# KEPLER STORAGE (2D)
EPSILONT ERASE +1 # I(2) TMP
# 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 UNSWITHCHED 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)
## Page 79
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
# ENTRY STORAGE. (1D)
ENTRYVN EQUALS GOBL1/2 +6 # B(1)TMP VN CODE FOR ENTRY DISPLAYS P60S.
# RENDEZVOUS NAVIGATION STORAGE.(SEE COMMENT IN SERVICER STORAGE) (56D)
CSMPOS ERASE +55D # I(6)TMP
LEMPOS EQUALS CSMPOS +6 # I(6)TMP
MARKTIME EQUALS LEMPOS +6 # B(2) TEMP MUST PRECEDE VTEMP FOR GENTRAN
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
# P22 TEMPORARIES
S22UOFF EQUALS LEMPOS # I(6)TMP UM OFFSET
9DWXX EQUALS LEMPOS # I(1)TMP QSAVE REGISTER
S22UUT EQUALS DELTAX # I(18)
## Page 80
# MINKEY RENDEZVOUS *** (1D)
TEMPMM EQUALS DELTAX # B(1) MAJOR MODE DURING P20 STARTUP
# USED FOR SUMMATION OF UPRUPT DURING PRELAUNCH & SYS TEST LEADIN (3D)
UPSUM EQUALS EBUF2 +2 # (3)
# PRELAUNCH ERASABLE PROGRAM ENTRANCE (2D)
EBUF2 EQUALS GOBL1/2 # (2)
# FOR STALL ROUTINE FOR VHF RADAR
RADTIME EQUALS VTEMP # B(1)
RADDEL EQUALS RADTIME +1 # B(1)
# P11 STORAGE. (9D)
LIFTTEMP EQUALS UCL -1 # (2)TMP
TEPHEM1 EQUALS LIFTTEMP +2 # (3)TMP
PGNCSALT EQUALS TEPHEM1 +3 # (2)PL ALTITUDE
PADLONG EQUALS PGNCSALT +2 # (2)PL LONGITUDE F LAUNCH PAD
# **** CONICSEX (MEAS INC) **** (6D)
TRIPA EQUALS DELTAX
TEMPVAR EQUALS DELTAX +3
# P24 RATE AIDED OPTICS
PASSCNT EQUALS TEPHEM1 +1 # B(1)
# P20-P22 PROCESSING STORAGE (2D)
TEMPOR1 ERASE +1 # B(2)TMP
# WAITLIST REPEAT FLAG. (1D)
RUPTAGN ERASE # B(1)PRM
## Page 81
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)
-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
# AX*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 VIA V37
# PINBALL INTERRUPT STORAGE. (1D)
## Page 82
DSPCNT ERASE # B(1)PRM DSPOUT COUNTER
# PINBALL EXECUTIVE ACTION. (44D)
DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
VERBREG ERASE # VERB CODE
NOUNREG ERASE # NOUN CODE
XREG ERASE # R1 INPUT BUFFER
YREG ERASE # R2 INPUT BUFFER
ZREG ERASE # R3 INPUT BUFFER
XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
# MUST = LOTEMOUT-1.
ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
# MUST = HITEMOUT+1.
MODREG ERASE # MODE CODE
DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
REQRET ERASE # RETURN REGISTER FOR LOAD
LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
CLPASS ERASE # PASS INDICATOR CLEAR
NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
NOUNCADR ERASE # MACHINE CADR FOR NOUN
MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
MONSAVE1 ERASE # NOUNCADR FOR MONITOR(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 +1 # B(2) EXT VB OPTION CODE
## Page 83
OPTIONEV ERASE
# 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
# V37 TEMP STORAGE (2D)
MMTEMP EQUALS PHSPRDT3 # B(1)TMP
BASETEMP EQUALS TBASE4 # B(1)TMP
# MORE UNSWITCHED FOR DISPLAY INF (4D)
EBANKSAV ERASE
DSPFLG = EBANKSAV
MARKFLAG ERASE
EBANKTEM ERASE
MARK2PAC ERASE
# MISCELLANEOUS UNSWITCHED (19D)
1/PIPADT ERASE # B(1)PRM
OLDBT1 = 1/PIPADT
LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
LONGBASE ERASE +1 # B(2) LONGCALL REGISTER
LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
# MISC. INCLUDING RESTART COUNTER, GIMBAL ANGLE SAVE AND
# STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK)
REDOCTR ERASE # B(1)PRM CONTAINS NUMBER OF RESTARTS.
THETAD ERASE +2 # B(3)PRM DESIRED GIM ANGLES FOR MANEUVER.
CPHI = THETAD # (OUTER)
## Page 84
CTHETA = THETAD +1 # (INNER)
CPSI = THETAD +2 # (MIDDLE)
# ENTRY VARIABLES SHARED FOR TM. (4D)
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
# T4RUPT ERASABLE. (6D)
DSRUPTSW ERASE
OPTIND ERASE
LGYRO ERASE
COMMANDO ERASE +1
ZONE ERASE # B(1)PRM USED IN SHAFT STOP MONITOR
# MODE SWITCHING ERASABLE. (09D)
DESOPMOD ERASE # B(1)PRM
WTOPTION ERASE # B(1)PRM
ZOPTCNT ERASE # B(1)PRM
IMODES30 ERASE # B(1)PRM
TLIMBIT = BIT15 # IMU TEMP NOT IMU TEMP WITHIN
# WITHIN LIMITS LIMITS
TONISSBT = BIT14 # ISS OFF ISS ON
IMUFLBIT = BIT13 # IMU OK IMU FAIL IS ON
ICDUFLBT = BIT12 # IMU CDU OK IMU CDU FAIL IS ON
CAGEBIT = BIT11 # IMU CAGE NOT ON IMU CAGE ON
PIPAFLBT = BIT10 # PIPA OK PIPA FAIL IS ON
IMUOPBIT = BIT9 # IMU OFF OR NOT OK IMU ON AND OK
ITNON2BT = BIT8 # IMU TURN ON DELAYED IMU TURN ON ALLOWED
## Page 85
ITNON1BT = BIT7 # IMU TURN ON DELAYED IMU TURN ON ALLOWED
IMUNITBT = BIT6 # IMU INIT IN PROCESS IMU NOT BEING INIT.
NOACCALM = BIT5 # INHIBIT PIPA ALARM ALLOW PIPA ALARM
IMUFINHT = BIT4 # INHIBIT IMU WARNING ALLOW IMU WARNING
ICDUINHT = BIT3 # INHIBIT CDU WARNING ALLOW CDU WARNING
DLAYFAIL = BIT2 # TURNON DELAY FAIL TURN DELAY OK
ACCFINHT = BIT1 # INHIBIT PIPA ALLOW PIPA WARNING
# WARNING
IMODES33 ERASE # B(1)PRM
PROCDBIT = BIT14 # PROCEED OFF PROCEED ON
PIP2FLBT = BIT13 # PIPA OK PIPA FAIL IS ON
DNLKFAIL = BIT12 # DOWNLINK OK DOWNLINK FAIL
UPLKFAIL = BIT11 # UPLINK OK UPLINK TOO FAST
NOIMUDAP = BIT6 # DONT USE IMU FOR OK TO USE IMU FOR
# VEHICLE ATTITUDE VEHICLE ATTITUDE
IMUZROBT = BIT5 # IMU ZEROING IMU NOT ZEROING
LMPTSTBT = BIT1 # LAMP TEST REQUESTED LAMP TEST NOT ON
MODECADR ERASE +1 # B(2)TMP
IMUCADR = MODECADR
OPTCADR = MODECADR +1
OPTMODES ERASE # B(1)PRM *****MUST PRECEDE HOLDFLAG
# FOR DOWNLINK
ZROPTFIN = BIT10 # OPTICS ZERO FINISH OPTICS BEING ZEROED
OCDUFBIT = BIT7 # OPTICS CDU OK OPTICS CDU FAIL
OPMD1BIT = BIT5 # OPTICS MODE NOT SET OPTICS MODE SET TO
# TO COMPUTER CONTROL COMPUTER CONTROL
OPMD2BIT = BIT4 # OPTICS MODE NOT SET OPTICS MODE SET TO
# TO ZERO OPTICS ZERO OPTICS
ZOPTCS = BIT3 # OPTICS MODE OPTICS MODE NOT
## Page 86
# SWITCHED TO ZERO SWITCHED TO ZERO
# OPTICS OPTICS
OCDUINHT = BIT2 # INHIBIT TRACKER ALLOW TRACKER ALARM
# ALARM
HOLDFLAG ERASE # B(1)PRM **** MUST FOLLOW OPTMODES
# FOR DOWNLINK
# ERASABLE FOR SXTMARK CDU CHECK DELAY. -PAD LOADED- (1D)
CDUCHKWD ERASE # B(1) PL
# 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 V THRESHOLD FOR LOW THRUST
# ROUTINE B-2
# P23 ***PAD LOAD**** (2D)
HORIZALT ERASE +1 # I(2)PL HORIZION ALTITUDE M B-29
# P-20 ALTERNATE LOS VARIANCE PAD LOAD***** (1D)
# -16
ALTVAR ERASE # I(2)PL MILLARD. SQUARED SCALED 2
# PAD LOADED FOR DAP (1D)
EMDOT ERASE # I(1)PL SPS FLOW RATE KG/CS B+3
# UNIVERSAL TRACKING STORAGE (3D)
OPTNTYPE ERASE # B(1)
AZIMANGL ERASE +1 # B(2)
## Page 87
# MODE SW. ERASABLE (1D)
SWSAMPLE ERASE # B(1)PRM
# UT PERMANENT STORAGE (2D)
R67TIME ERASE +1 # B(2)
UTSTARNO EQUALS R67TIME # B(1)
# MINKEY CONTROLLER TEMP RESTART STORAGE (1D)
AUTTEMP EQUALS R67TIME +1 # B(1)
# SELF-CHECK ASSIGNMENTS. (17D)
# (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
SELFERAS ERASE 1357 - 1377 # ***MUST NOT BE MOVED***
SFAIL EQUALS SELFERAS # B(1)
ERESTORE EQUALS SFAIL +1 # B(1)
SELFRET EQUALS ERESTORE +1 # B(1) RETURN
SMODE EQUALS SELFRET +1 # B(1)
ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
ERCOUNT EQUALS ALMCADR +2 # B(1)
SCOUNT EQUALS ERCOUNT +1 # B(3)
SKEEP1 EQUALS SCOUNT +3 # B(1)
SKEEP2 EQUALS SKEEP1 +1 # B(1)
SKEEP3 EQUALS SKEEP2 +1 # B(1)
SKEEP4 EQUALS SKEEP3 +1 # B(1)
SKEEP5 EQUALS SKEEP4 +1 # B(1)
SKEEP6 EQUALS SKEEP5 +1 # B(1)
SKEEP7 EQUALS SKEEP6 +1 # B(1)
#
## Page 88
# 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 FACTR TERMS
PIPABIAS = PBIASX # INTERMIXED.
PIPASCFX ERASE
PIPASCF = PIPASCFX
PBIASY ERASE
PIPASCFY ERASE
PBIASZ ERASE
PIPASCFZ ERASE
NBDX ERASE # GYRO BIAS DRIFTS
NBDY ERASE
NBDZ ERASE
## Page 89
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 THRU XKEP MUST BE IN 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 CSECS*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)
XPREV = XKEP # I(2)TMP
# **** TEMP - IN VAC AREA ****
RRECT1 EQUALS 18D
VRECT1 EQUALS 24D
TET1 EQUALS 30D
# PERMANENT STATE VECTORS AND TIMES. (99D)
# (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
## Page 90
# (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
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
# AVERAGEG INTEGRATOR STORAGE. (6D)
## Page 91
UNITR ERASE +5
#
# TEMP STORAGE FOR N90 DISPLAY IN RENDEZVOUS TARGETING PROGRAMS (6D)
YCSM EQUALS UNITR
YDOTC EQUALS YCSM +2
YDOTL EQUALS YDOTC +2
# P40 PAD LOADS (3D)
EIMP1SEC ERASE # I(1)PL E-2 B-14 NEWT-SEC BR-PT AT 1 SEC
EFIMP01 ERASE # I(1)PL E-2 B-14 NEWT SLOPE 0-1 SEC SEG
EFIMP16 ERASE # I(1)PL E-2 B-14 NEWT SLOPE 1-6 SEC SEG
#
# **********LUNAR MODULE CHANGE *********** (2D)
E3J22R2M EQUALS EFIMP16 +1
E32C31RM EQUALS E3J22R2M +1
#
# **** CONICSEX (PLANETARY INERT. ORIEN.) ****
TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PREC)
#
# P23 PAD LOAD (2D)
# ** P24 PAD LOADS ** (2D)
TRUNSF EQUALS E32C31RM +1 # I(1)PL
SHAFTSF EQUALS TRUNSF +1 # I(1)PL
## Page 92
# EBANK-4 ASSIGNMENTS
SETLOC 2000
ERASPIP EQUALS # ENTRANCE TO ERASABLE PIPA TEST PROGRAM
# 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) PL LUNAR LANDING SIGHT VECTOR
#
# CONISEX (LUNAR AND SOLAR EPHEM)STORAGE. -PAD LOADED- (77D)
TIMEMO ERASE +76D
VECOEM EQUALS TIMEMO +3
## Page 93
RESO EQUALS VECOEM +60D
VESO EQUALS RESO +6
OMEGAES EQUALS VESO +6
# FULL INTEGRATION STORAGE. (88D)
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
IRETURN EQUALS H +2 # 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
RPSV EQUALS ORIGEX +1 # I(6) TMP SUN TO PRIMARY BODY VECTOR
XKEPNEW EQUALS RPSV +6 # (2)TMP ROOT OF KEPLERS EQU FOR TIME TAU
# THESE PROBABLY CAN SHARE INTEGRATION VARIABLES. (3D)
# LAT-LONG STORAGE
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
# R61 STORAGE (2D)
## Page 94
R63TIME EQUALS DT/2 +2 # I(2)TMP
#
# INTEGRATION STORAGE (1D)
EGRESS EQUALS R63TIME +2
# VERB 83(N54)AND VERB 90 (N96) DISPLAYS (6D)
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
RRATE2 EQUALS RTHETA # I(2) N96 LM OUT-OF-PLANE RATE
# VERB 83 STORAGE (14D)
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
#
# V 67 STORAGE (6D)
WWPOS EQUALS RANGE # I(2)TMP
WWVEL EQUALS RRATE # I(2)TMP
WWOPT EQUALS RTHETA # I(2)TMP
# S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (EXT.VB.64) (4D)
# OPERATION DURING P00 ONLY.
RHOSB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE
GAMMASB EQUALS RHOSB +2 # B(2)DSP NOUN 51. YAW ANGLE
# R 36 SCRATCHPAD STORAGE (18D)
VPASS36 EQUALS RONE # I (6)S-S
UNP36 EQUALS VPASS36 +6 # I (6)S-S
UNA36 EQUALS UNP36 +6 # I (6)S-S
#
# 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 FOR V82.
## Page 95
#
# MORE VERB 82 NOT SHARING WITH VERB 83 (7D)
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
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
#
# V 82 DISPLAY (4D)
HAPOX EQUALS THETA(1) +2 # I(2) DSP NOUN 44
HPERX EQUALS HAPOX +2 # I(2) DSP NOUN 44
#
# MINKEY RENDEZVOUS STORAGE (2D)
TCSI2 EQUALS RSP-RREC +2 # I(2) TIME OF NEXT CSI
# 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. (5D)
KT EQUALS LANDALT +2 # B(2)
QSAVED EQUALS KT +2 # B(1)TMP HOLDS RETURN
RTRN EQUALS QSAVED +1 # B(1) RETURN
SUBEXIT EQUALS RTRN +1 # B(1) TMP
ANEXIT EQUALS QSAVED # I(1)
# P 30 DISPLAY (4D)
## Page 96
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
# P15 PAD LOADS (3D)
DTF EQUALS KT # I(1)
VC/O EQUALS DTF +1 # I(2)
# THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1 GS ARE NOT USED IN 205 NOR ARE THEY
# WHILE 504 USES TRANSM1 AND ALFDK .
TRANSM1 EQUALS 2000 # (18) INITIALIZATION FOR IMU TESTS
ALFDK = TRANSM1 +18D # (144) ERASABLE LOAD IN 504
ENDSYS-4 EQUALS ALFDK +143D # LAST SYS.TEST STORAGE IN E-4
# END OF PERF. TEST ERASABLE IN BANK 4
# *-*-* V82 *-*-* (6D)
VONE' EQUALS SUBEXIT +1 # I(6)TMP NORMAL VELOCITY VONE/ SQRT MU
#
# MINKEY PAD LOADS (8D)
HAMDELH EQUALS VONE' +6 # I(2)PL
WRDTIME EQUALS HAMDELH +2 # I(1)PL
MINBLKTM EQUALS WRDTIME +1 # I(1)PL
TBEFCOMP EQUALS MINBLKTM +1 # I(1)PL
BRNBLKTM EQUALS TBEFCOMP +1 # I(1)PL
MAXWTIME EQUALS BRNBLKTM +1 # I(1)PL
FINCMPTM EQUALS MAXWTIME +1 # I(1)PL
# PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20 (1D)
INTVAR EQUALS FINCMPTM +1 # I(1)PL SQUARE OF EXPECTED INTEGRATION
# POSITION EXTRAPOLATION ERROR.
# SCALED METERS(2) 2(15)
## Page 97
# EBANK-5 ASSIGNMENTS
SETLOC 2400
# *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*
# W-MATRIX STORAGE. (162D)
W EQUALS 2400 # B(162)
9X9LOC1 EQUALS 2444
9X9LOC2 EQUALS 2532
# P22 TEMP STORAGE (6D)
S22RL EQUALS W +108D # TMP RL IN UNKNOWN LMK W INIT
EMATRIX = W +120D # B(42E 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
R52BNKSV EQUALS SAVQR52 +1 # USED TO SAVE EBANK IN R52
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 TARGETTING STORAGE (6D)
AUTOY EQUALS PLANVEC # I(2)
CMYDOT EQUALS AUTOY +2 # I(2)
LMYDOT EQUALS CMYDOT +2 # I(2)
# RENDEZVOUS -P34-35 (26D)
DVLOS EQUALS TSIGHT +2 # I(6) S-S DELTA VELOCITY,LOS COORD-DISPL1
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
## Page 98
# 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)
T3TOT4 EQUALS POSTTPI # I(2) DSP NOUN 39 FOR P34,P35. TPI TO TIN
# T (CAN NOT SHARE WITH RETURN TO EARTH)
# ALIGNMENT (12D)
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).
#
# P24-RATE AIDED OPTICS (2)
TRTEMP EQUALS R1VEC # B(1)TMP
SRTEMP EQUALS TRTEMP +1 # B(1)TMP ALSO USED AS RETURN SAVE BY R51
# AND P23.
## Page 99
# 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
# 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
#
# **** COLP50S **** (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 100
# *-*-*-*- OVERLAY 2 IN EBANK 5 -*-*-*-*
# CONIC ROUTINES 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
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 101
# *-*-*-*- OVERLAY 3 IN EBANK 5 -*-*-*-*
# MEASUREMENT INCORPORATION STORAGE. (54D)
# (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
ZI EQUALS HOLDW +18D # I(18)
## Page 102
# *-*-*-*- OVERLAY 0 IN EBANK 5 -*-*-*-*
# SYSTEM TEST STORAGE. (174)
AZIMUTH ERASE +1
LATITUDE ERASE +1
ERVECTOR ERASE +5
LENGTHOT ERASE
LOSVEC ERASE +5
SXTOPTN = LOSVEC
NDXCTR ERASE
SYSTSPR1 ERASE # UNUSED
POSITON ERASE
QPLAC ERASE
QPLACE ERASE
QPLACES ERASE
RUN ERASE
SYSTSPR2 ERASE # UNUSED
SOUTHDR ERASE
TARG1/2 = SOUTHDR
TAZEL1 ERASE +5
TEMPTIME ERASE +1
TMARK ERASE +1
AINLA ERASE +139D # OPTIMUM CALIB. AND ALIGNMENT
GENPL = AINLA
CDULIMIT = AINLA +7
COUNTPL = AINLA +70D
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
## Page 103
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
TOLDAZMT = AINLA +125D
GEOCOMPS = AINLA +127D
1SECXT = AINLA +128D
GTSWTLST = 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).........
ENDSYS-5 EQUALS AINLA +139D # LAST SYS.TEST STORAGE IN E-5
## Page 104
# END OF 504 CAL + ALIGN ERASE.
## Page 105
# *-*-*-*- OVERLAY 4 IN EBANK 5 -*-*-*-*
#
# P32 -- P33 (20D)
UP1 EQUALS DVLOS # I(6)
VPASS2 EQUALS UP1 +6 # I(6)
RPASS2 EQUALS VPASS2 +6 # I(6)
DIFFALT EQUALS RPASS2 +6 # I(2)
#
# P32,P33 STORAGE OVERLAYING 9X9 W-MATRIX LOCATIONS (32D)
DELVEET1 EQUALS 9X9LOC1 # I(6) DELV FOR CSI
RACT2 EQUALS DELVEET1 +6 # I(6) POS. ACTIVE VEH. AT CDH TIME
TCDH EQUALS RACT2 +6 # I(2)
TCSI EQUALS TCDH +2 # I(2)
TTPI0 EQUALS TCSI +2 # I(2)
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
#
# MARK COUNT FOR MINKEY R22, Q RETURN FOR N90/N81 DSP P31,P36. (2D)
COUNT3MK EQUALS T1TOT2 +2 # I(1)
N90RET EQUALS COUNT3MK +1 # I(1)
# MINKEY AFTERBURN TEMPORARIES FOR RESTART (24D)
BURNTMP1 EQUALS N90RET +1 # I(6)
BURNTMP2 EQUALS BURNTMP1 +6 # I(6)
BURNTMP3 EQUALS BURNTMP2 +6 # I(6)
BURNTMP4 EQUALS BURNTMP3 +6 # I(6)
## Page 106
# 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
#
# P37 PAD LOAD
P37RANGE ERASE # I(1)PL
# ******** PAD LOADED TVC DAP VARIABLES.********************************(26D)
ETDECAY ERASE # I(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)
## Page 107
HBN30 ERASE # B(1)
HBN31/2 ERASE # B(1)
HBN32 ERASE # B(1)
HBD31/2 ERASE # B(1)
HBD32 ERASE # B(1)
# ******** EXCLUSIVE TVC DAP VARIABLES. **********************************(4D)
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.************************************(17D)
DAPDATR1 ERASE # B(1)DSP NOUN 46(R1)
DAPDATR2 ERASE # B(1)DSP NOUN 46(R2)
DPCONFIG = OCT60000 # DAP CONFIG BITS
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 +1 # B(2)
WEIGHT/G ERASE
AK ERASE
AK1 ERASE
AK2 ERASE
RCSFLAGS ERASE # B(1) CONSECUTIVE WITH AK2 DOWNLINK
T5TEMP ERASE # B(1)
## Page 108
EDRIVEX ERASE
EDRIVEY ERASE
EDRIVEZ ERASE
# INTEMP THRU INTEMP+14D ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORIES
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 INTERUPT TRUE TEMPORARIES******************************
PHI333 EQUALS INTTEMP # B(1) COUNTING REGISTER
PSI333 EQUALS PHI333 +1 # B(1) COUNTING REGISTER
TEMP333 EQUALS PSI333 +1 # B(1) MASS TEMPORARY
VARST0 EQUALS TEMP333 +1 # B(8) BREAKPOINTS AND SLOPES
VARST5 = VARST0 +5
LASTMASP EQUALS VARST0 +9D # LAST VARST0 WORD
#
# *******REGULAR TVC TEMPORARIES*************
# TVC ZEROING LOOP 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)
## Page 109
PTMP5 EQUALS PTMP4 +2 # B(2)
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)
TVCDUMMY EQUALS TEMREG +1 # DUMMY (NEED EVEN NUMBER OF LOCATIONS)
PERRB EQUALS TVCDUMMY +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)
KPRIMEDT EQUALS T5TVCDT +1 # I(2)
KTLX/I EQUALS KPRIMEDT +2 # B(1)
1/CONACC EQUALS KTLX/I +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)
YCDUYPST EQUALS PCDUZPST +1 # B(1)
YCDUZPST EQUALS YCDUYPST +1 # B(1)
MCDUYDOT EQUALS YCDUZPST +1 # B(1)
MCDUZDOT EQUALS MCDUYDOT +1 # B(1)
## Page 110
TVCEXPHS EQUALS MCDUZDOT +1 # B(1)
# TVC ROLL DAP VARIABLES
# (8D)
OGANOW EQUALS TVCEXPHS +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 OGA 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)
DELBRTMP EQUALS CNTRTMP +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)
# 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
#
# S40.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 111
# S40.8 TEMPORARY
MASSTMP EQUALS DELVSUMP # I(2)
## Page 112
# ******** RCS DAP TEMPORARY VARIABLES.**********************************(95D)
# **RCS INTERUPT 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 113
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 114
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 115
# ******** 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 INTERVAL 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 116
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 ERASEABLE.
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 117
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 118
# ******** 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 SAME BANK AS RCS DAP
COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN SAME BANK AS RCS DAP
CAM EQUALS COFSKEW +6 # I(2) MUST BE IN 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 (12D+8D)
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
BIASTEMP EQUALS TMIS +6 # B TMP
BRATE EQUALS COFSKEW # B TMP
TM EQUALS CAM # B TMP
# UT TEMPS
UTX EQUALS SCAXIS # I(6)
UTY EQUALS POINTVSM # I(6)
# 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)
# (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) POLY CUTOFF MINUS RPSTART SEC
#
## Page 119
# P11 STORAGE (4D)
SPOLYARG EQUALS POLYSTOP +1 # B(1)TMP ARG FOR POLY
BOOSTEMP EQUALS SPOLYARG +1 # 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 STORE AK BIAS 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
# R67 STORAGE (1D)
#
RATEPTC EQUALS SAVBNK +1 # B(1)
#
# PERMANENT STORAGE FOR P20 DEADBAND (1D)
DBPTC EQUALS RATEPTC +1 # B(1)
#
# R61,R67 STORAGE. (1D)
R61CNTR EQUALS DBPTC +1 # B(1)
# 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.
## Page 120
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
# P23 PAD LOAD (2D)
HORISLP EQUALS R61CNTR +1 # I(2)PL
## Page 121
# EBANK-7 ASSIGNMENTS
SETLOC 3400
# *-*-*-*- OVERLAY 0 IN EBANK 7 -*-*-*-*
# EXTERNAL DELTA-V UPDATE. (21D)
# (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAMS 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 VEHICHE 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. (12D)
DVTOTAL EQUALS END-DELV # B(2) DSP NOUN 40,99 FOR P30,34,35,40
TGO EQUALS DVTOTAL +2 # B(2)
DELVREF EQUALS TGO +2 # I(6)TMP
NOMTIG EQUALS END-KALC # I(2) (CAN NOT SHARE WITH KALCMANU
# OR DELVREF)
END-SVCR EQUALS NOMTIG +2 # ***NEXT AVAILABLE AFTER SERVICER
#
# ALIGNMENT STORAGE. (7D)
VEL/C EQUALS END-SVCR # I(6)TMP
R53EXIT EQUALS VEL/C +6 # I(1)TMP
# ALIGNMENT MARKDATA (DOWNLNK) ****** (7D)
MARK2DWN EQUALS R53EXIT +1 # (7) USED BY ALLIGNMENT P50S
## Page 122
# *-*-*-*- OVERLAY 1 IN EBANK 7 -*-*-*-*
# REENTRY ERASABLES (181D+4D)
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 # P61 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 = THETADZ 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 # 2 P
GOTOADDR EQUALS K2ROLL +2 # 1P
TEM1B EQUALS GOTOADDR +1 # 2 P
MM EQUALS TEM1B +2 # 2 P
GRAD EQUALS MM +1 # 1P
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 123
DVL EQUALS AHOOKDV +2 # 2P
#A0 = ENDBUF +3 2P SHARED FOR TM.(HI-WD ) P64-P65
A1 EQUALS DVL +2 # 2P
VBARS EQUALS A1 +2 # 2P
COSG/2 EQUALS VBARS +2 # 2P
GAMMAL1 = 22D # 2P
VS1 EQUALS COSG/2 +2 # 2P
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 APPEARS
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.
#
VL = VPRED # 2P SHARED FOR TM P64-P65
GAMMAL = GAMMAEI # 2P SHARED FOR TM P64
PREDANG = GAMMAEI # FOR TM IN P67.
JJ = PREDANG +1 # FOR TM IN P67.
#
# ENTRY P11 P15
VMAGI EQUALS GMAX +1 # 2P DSP NOUN 62,64,68 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
## Page 124
TTE1 EQUALS ASPS +2 # I(2ETMP HOLDS UNDECREMENTED TTE VALUE
TTE2 EQUALS TTE1 +2 # I(2) HOLDS COMPENSATED TTE VALUE DURING
# P61 THRU P63 FOR N63 DISPLAY
# **** P6OS **** (2D)
RTGON64 EQUALS RTGO # RANGE ERRORS NEGATIVE IF FALLS SHORT
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. (4D)
ALTI EQUALS TTE2 +2 # 2P DSP NOUN 62 FOR P11
HDOT EQUALS ALTI +2 # 2P DSP NOUN 62 FOR P11.
#
# P15,S11.1 INTERFACE (4D)
VNOW = VMAGI
VGTLI EQUALS VMAGI +2 # I(2)TMP
## Page 125
# *-*-*-*- OVERLAY 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(2)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
# P22 TEMP
S22UMRL EQUALS BVECTOR # I(18)
# 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. (P20S) **** (42D)
UBAR0 EQUALS SVMRKDAT +36D
UBAR1 EQUALS UBAR0 +6
UBAR2 EQUALS UBAR1 +6
RZC EQUALS UBAR2 +6
VZC EQUALS RZC +6
UCLSTAR EQUALS VZC +6
USSTAR EQUALS UCLSTAR +6
## Page 126
# *-*-*-*- OVERLAY 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)
# P30'S 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 - P32 N82 DISPLAY (6D)
DELVOV EQUALS RACT3 # I(6)DSP NOUN 84 FOR X-V84, P34-35
#
# P76 - P77 STORAGE (1D)
OPTFLAG EQUALS DELVOV +6 # B(1)TMP FLAG FOR P76 OR P77 BRANCHING
# 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
INTIME EQUALS TNITPREV +5
ITCTR EQUALS INTIME +2 # I(1)TMP ITERATION COUNTER
## Page 127
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) (6D)
VPASS4 EQUALS VTIG # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
# P30-P40 COMMON STORAGE. (3D)
TPASS4 EQUALS DELVSAB +2 # I(2)TMP
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.
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.
## Page 128
DV47TEMP EQUALS VG # B(6)TMP
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
# P15 TEMPORARY STORAGE (6D)
AVEGDT EQUALS DV47TEMP # B(2)
VPAST EQUALS AVEGDT +2 # I(2)
TLITMP EQUALS VPAST +2 # B(2)
# R41 (2D)
T-TO-ADD EQUALS DV47TEMP +6 # I(2) FOR MIDTOAVE
#
## Page 129
# *-*-*-*- OVERLAY 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) (1D)
TITER EQUALS TSTRT # I(1)TMP ITERATION COUNTER
# P22 STORAGE. (5D)
S22TOFF EQUALS DELVEET2 +1 # 2 T SUB OFF
# *USED IN SUBROUTINE COMMON TO P22 & P23.
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(7)
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-
SAVEVEL EQUALS SAVEPOS +6 # I(6)TMP LEM VELOCITY VECTOR-
# MARK STORAGE AND W MATRIX INIT STORAGE (UNSHARED) (13D)
MRKBUF1 EQUALS SAVEVEL +6 # B(7)
CNT3TEMP EQUALS MRKBUF1 +7 # I(2)
## Page 130
OLDMKTME EQUALS CNT3TEMP +2 # I(2)
AGEOFW EQUALS OLDMKTME +2 # I(2)
#
# MORE CONICS STORAGE. (4)
COGA EQUALS NN +2 # I(2) COTAN OF INITIAL FLT PATH ANGLE
INDEP EQUALS COGA # I(1) USED BY SUBROUTINE:ITERATOR:
EPSILONL EQUALS COGA +2 # I(2) TMP
#
# UNIVERSAL TRACKING STORAGE (10D)
PLANVCUT EQUALS CNT3TEMP # I(6) PLANET VECTOR UT
UTPIT EQUALS PLANVCUT +6 # I(2) N78 PITCH
UTYAW EQUALS UTPIT +2 # I(2) N78 YAW
#
# RENDEZVOUS GUIDANCE STORAGE. - P32...P35 - (10D)
ELEV EQUALS UTYAW +2 # 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-TPF)
#
## Page 131
# *-*-*-*- OVERLAY 5 IN EBANK 7 -*-*-*-*
# 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 PREVOUS 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 PREVISOUS 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 FINL POSIT TIME CS B28
DELTAT EQUALS T12 +2 # I(2) TMP DELTA T IN SAFE PERILUNE CS B28
NN1A EQUALS DELTAT +2 # I(2) TMP ITERATION COUNTER 1
#
NN2 EQUALS DELVOV +6 # I(2) TMP ITERATION COUNTER
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 UTYAW +2 # I(2) TEMP 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
## Page 132
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.
# TEMPS WITHIN VAC
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 133
# *-*-*-*- OVERLAY 6 IN EBANK 7 -*-*-*-*
# P32,P33
# THE FOLLOWING OVERLAY MEAS. INCORP. AND ARE 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 # I(6)
T2TOT3 EQUALS TPASS4 # I(2) TPI - TCDH
CSIALRM EQUALS TITER # I(2) ALARM INDEX
DELVEET2 EQUALS CSIALRM +2 # I(6) VACT3-VACT2 = DVCDH REF.COORD.
# P21 STORAGE (2D)
P21TIME EQUALS RACT3 # I(2)
# 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 UBAR0 # 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
#
# P29 ERASABLES (32D)
## Page 134
PASSTIME EQUALS P21TIME +2 # B(2)TMP
LONGFOR EQUALS PASSTIME +2 # B(2)TMP
DELTLONG EQUALS LONGFOR +2 # I(2)TMP
FUDGE EQUALS DELTLONG +2 # I(2)TMP
MUSUBE EQUALS FUDGE +2 # I(6)TMP
MUSUBC EQUALS MUSUBE +6 # I(6)TMP
MUSUBS EQUALS MUSUBC +6 # I(6)TMP
MUSUBN EQUALS MUSUBS +6 # I(6)TMP
P29BASET = P21TIME
P29BASER = P21BASER
P29BASEV = P21BASEV
# P22-P23 STORAGE. (9D)
22SUBSCL EQUALS ELEV # B(1) DE OF ABCDE LANDMARK ID NO
CXOFF EQUALS 22SUBSCL +1 # B OF ABCDE OFFSET INDICATOR.
8KK EQUALS CXOFF +1 # B (2) TMP INDEX OF PRESENT MARK.
8NN EQUALS 8KK +2 # B(1) TMP NO OF MARKS TAKEN IN SXTMARK
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.
P22DEX EQUALS HORIZON +1 # B(1) INDEX FOR SXTMARK IN P22
# P23 TRUNION BIAS STORAGE.
# 9(1D)
TRUNION EQUALS P22DEX +1 # B(1)
WHOCARES = 3777 # A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
END-E7 = WHOCARES # TAG NEEDED FOR EDITS
