Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

003915,000002:                                                                                                  ## Copyright:   Public domain.
003916,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
003917,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
003918,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
003919,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
003920,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
003921,000008:                                                                                                  ##              that the code format has been changed to conform to the
003922,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
003923,000010:                                                                                                  ##              original YUL assembler.
003924,000011:                                                                                                  ## Reference:   pp. 92-160
003925,000012:                                                                                                  ## Assembler:   yaYUL
003926,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
003927,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
003928,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
003929,000016:                                                                                                  ##              2016-11-19 HG   Transcribed
003930,000017:                                                                                                  ##              2016-11-25 HG   Fix operand MARKCNTR -> WHATMARK
003931,000018:                                                                                                  ##                                          ASBC0    -> ABSC0 
003932,000019:                                                                                                  ##                                          ARPFGZ   -> ABRFGZ    
003933,000020:                                                                                                  ##                                  label   HCASCLAD -> HCALCLAD   
003934,000021:                                                                                                  ##                                          NETTOTKP -> NEGTORKP 
003935,000022:                                                                                                  ##                                          RBRRGZ   -> RBRFGZ 
003936,000023:                                                                                                  ##              2016-11-26 HG   Fix label   REULTCT  -> RESULTCT  
003937,000024:                                                                                                  ##              2016-11-28 HG   Fix operand SAMPLIN  -> SAMPLIM
003938,000025:                                                                                                  ##              2016-11-29 HG   fix label   DVCNTRL  -> DVCNTR1
003939,000026:                                                                                                  ##              2016-12-02 HG   fix operand FLPASSO  -> FLPASS0
003940,000027:                                                                                                  ##              2016-12-07 HG   fix operand QAXIZ    -> QAXIS  adn mofidier +2 -> +6, fixes ZAXIS1
003941,000028:                                                                                                  ##                                  label   1/DVO    -> 1/DV0
003942,000029:                                                                                                  ##                                          ACSAVE   -> ASCSAVE
003943,000030:                                                                                                  ##                                          DSPFLAG  -> DSPLG
003944,000031:                                                                                                  ##                              add missing definition for label ZV
003945,000032:                                                                                                  ##              2016-12-11 HG   Fix operand modification VVECT(X,Y,Z) + 1 -> VVECT(X,Y,Z)+ 2
003946,000033:                                                                                                  ##              2016-12-22 RSB  Proofed comment text with octopus/ProoferComments
003947,000034:                                                                                                  ##                              and fixed all errors found.
003948,000035:                                                                                                  ##              2017-03-11 MAS  Corrected errors found during transcription of Luminary 116.
003949,000036:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
003950,000037:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
003951,000038:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
003952,000039: 

Page 92

003954,000041:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
003955,000042: 
003956,000043:                                                                                                  #           EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
003957,000044:                                                                                                  #                  OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
003958,000045:                                                                                                  #                  CHANGING OF ONLY ONE CARD.  EXAMPLE.
003959,000046: 
003960,000047:                                                                                                  #                                          X        EQUALS  START
003961,000048:                                                                                                  #                                          Y        EQUALS  X       +SIZE.X
003962,000049:                                                                                                  #                                          Z        EQUALS  Y       +SIZE.Y
003963,000050: 
003964,000051:                                                                                                  #                  (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.        )
003965,000052:                                                                                                  #                  (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
003966,000053:                                                                                                  #                   USUALLY NUMERIC,  IE. 1, 2, 6, 18D ETC.               )
003967,000054: 
003968,000055:                                                                                                  #           EQUALS  OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
003969,000056:                                                                                                  #                   AND DIFFERENT DATA).  EXAMPLE.
003970,000057: 
003971,000058:                                                                                                  #                                           X       EQUALS  Y
003972,000059: 
003973,000060: 
003974,000061:                                                                                                  #           = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
003975,000062:                                                                                                  #                  (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
003976,000063: 
003977,000064:                                                                                                  #                                           X       =       Y
003978,000065: 
003979,000066:                                                                                                  #           THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
003980,000067:                                                                                                  #           THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
003981,000068: 
003982,000069:                                                                                                  #                  M  REFERS TO THE MOBILITY OF THE ASSIGNMENT.
003983,000070:                                                                                                  #                        B       MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
003984,000071:                                                                                                  #                                INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
003985,000072:                                                                                                  #                        I       MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
003986,000073:                                                                                                  #                                INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
003987,000074:                                                                                                  #                                INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
003988,000075: 
003989,000076:                                                                                                  #                  SIZE    IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
003990,000077: 
003991,000078:                                                                                                  #                  N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS.
003992,000079:                                                                                                  #                       PL  MEANS THAT THE CONTENTS ARE PAD LOADED.
003993,000080:                                                                                                  #                       DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
003994,000081:                                                                                                  #                       PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
003995,000082:                                                                                                  #                           IS USED DURING THE ENTIRE MISSION FOR ONE
003996,000083:                                                                                                  #                           PURPOSE AND CANNOT BE SHARED.
003997,000084:                                                                                                  #                       TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
003998,000085:                                                                                                  #                           IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
003999,000086:                                                                                                  #                           IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
004000,000087:                                                                                                  #                           PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
004001,000088:                                                                                                  #                           CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS
004002,000089: 

Page 93

004004,000091:                                                                                                  #                           IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
004005,000092:                                                                                                  #                           IS NOT ACTIVE IN PARALLEL.
004006,000093:                                                                                                  #                       IN  MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
004007,000094:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004008,000095:                                                                                                  #                       OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
004009,000096:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004010,000097: 

Page 94

004012,000099:                                                                                                  #           SPECIAL REGISTERS.
004013,000100: 
004014,000101: 26,2024                        A                  EQUALS   0                                     
004015,000102: 26,2024                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
004016,000103: 26,2024                        Q                  EQUALS   2                                     
004017,000104: 26,2024                        EBANK              EQUALS   3                                     
004018,000105: 26,2024                        FBANK              EQUALS   4                                     
004019,000106: 26,2024                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
004020,000107: 26,2024                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
004021,000108:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
004022,000109: 
004023,000110: 26,2024                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
004024,000111: 26,2024                        LRUPT              EQUALS   11                                    
004025,000112: 26,2024                        QRUPT              EQUALS   12                                    
004026,000113: 26,2024                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
004027,000114: 26,2024                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
004028,000115: 26,2024                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
004029,000116: 26,2024                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
004030,000117: 
004031,000118: 26,2024                        CYR                EQUALS   20                                    
004032,000119: 26,2024                        SR                 EQUALS   21                                    
004033,000120: 26,2024                        CYL                EQUALS   22                                    
004034,000121: 26,2024                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
004035,000122: 
004036,000123: 26,2024                        TIME2              EQUALS   24                                    
004037,000124: 26,2024                        TIME1              EQUALS   25                                    
004038,000125: 26,2024                        TIME3              EQUALS   26                                    
004039,000126: 26,2024                        TIME4              EQUALS   27                                    
004040,000127: 26,2024                        TIME5              EQUALS   30                                    
004041,000128: 26,2024                        TIME6              EQUALS   31                                    
004042,000129: 26,2024                        CDUX               EQUALS   32                                    
004043,000130: 26,2024                        CDUY               EQUALS   33                                    
004044,000131: 26,2024                        CDUZ               EQUALS   34                                    
004045,000132: 26,2024                        CDUT               EQUALS   35                                    #  REND RADAR TRUNNION CDU
004046,000133: 26,2024                        CDUS               EQUALS   36                                    #  REND RADAR SHAFT CDU
004047,000134: 26,2024                        PIPAX              EQUALS   37                                    
004048,000135: 26,2024                        PIPAY              EQUALS   40                                    
004049,000136: 26,2024                        PIPAZ              EQUALS   41                                    
004050,000137: 26,2024                        Q-RHCCTR           EQUALS   42                                    #  RHC COUNTER REGISTERS
004051,000138: 26,2024                        P-RHCCTR           EQUALS   43                                    
004052,000139: 26,2024                        R-RHCCTR           EQUALS   44                                    
004053,000140: 26,2024                        INLINK             EQUALS   45                                    
004054,000141: 26,2024                        RNRAD              EQUALS   46                                    
004055,000142: 26,2024                        GYROCMD            EQUALS   47                                    
004056,000143: 26,2024                        CDUXCMD            EQUALS   50                                    
004057,000144: 26,2024                        CDUYCMD            EQUALS   51                                    
004058,000145: 26,2024                        CDUZCMD            EQUALS   52                                    
004059,000146: 26,2024                        CDUTCMD            EQUALS   53                                    #  RADAR TRUNNION COMMAND
004060,000147: 26,2024                        CDUSCMD            EQUALS   54                                    #  RADAR SHAFT COMMAND
004061,000148: 

Page 95

004063,000150: 26,2024                        THRUST             EQUALS   55                                    
004064,000151: 26,2024                        LEMONM             EQUALS   56                                    
004065,000152: 26,2024                        OUTLINK            EQUALS   57                                    
004066,000153: 26,2024                        ALTM               EQUALS   60                                    
004067,000154: 
004068,000155:                                                                                                  #           INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
004069,000156: 
004070,000157: 26,2024                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
004071,000158: 26,2024                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
004072,000159: 26,2024                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
004073,000160: 26,2024                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
004074,000161: 26,2024                        S1                 EQUALS   40D                                   
004075,000162: 26,2024                        S2                 EQUALS   41D                                   
004076,000163: 26,2024                        QPRET              EQUALS   42D                                   
004077,000164: 
004078,000165:                                                                                                  #  INPUT/OUTPUT CHANNELS
004079,000166: 
004080,000167:                                                                                                  #                                *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
004081,000168: 26,2024  0000001               LCHAN              EQUALS   L                                     
004082,000169: 26,2024  0000002               QCHAN              EQUALS   Q                                     
004083,000170: 26,2024                        HISCALAR           EQUALS   3                                     
004084,000171: 26,2024                        LOSCALAR           EQUALS   4                                     
004085,000172: 26,2024                        CHAN5              EQUALS   5                                     
004086,000173: 26,2024                        CHAN6              EQUALS   6                                     
004087,000174: 26,2024                        SUPERBNK           EQUALS   7                                     #  SUPER-BANK.
004088,000175: 26,2024                        OUT0               EQUALS   10                                    
004089,000176: 26,2024                        DSALMOUT           EQUALS   11                                    
004090,000177: 26,2024                        CHAN12             EQUALS   12                                    
004091,000178: 26,2024                        CHAN13             EQUALS   13                                    
004092,000179: 26,2024                        CHAN14             EQUALS   14                                    
004093,000180: 26,2024                        MNKEYIN            EQUALS   15                                    
004094,000181: 26,2024                        NAVKEYIN           EQUALS   16                                    
004095,000182: 26,2024                        CHAN30             EQUALS   30                                    
004096,000183: 26,2024                        CHAN31             EQUALS   31                                    
004097,000184: 26,2024                        CHAN32             EQUALS   32                                    
004098,000185: 26,2024                        CHAN33             EQUALS   33                                    
004099,000186: 26,2024                        DNTM1              EQUALS   34                                    
004100,000187: 26,2024                        DNTM2              EQUALS   35                                    
004101,000188: 26,2024                        CHAN76             EQUALS   76                                    
004102,000189: 26,2024                        CHAN77             EQUALS   77                                    
004103,000190:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
004104,000191: 

Page 96

004106,000193:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
004107,000194: 
004108,000195:                                                                                                  #              **  FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION.  **
004109,000196: 

Page 97

004111,000198:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
004112,000199: 
004113,000200:    0061                                           SETLOC   61                                    
004114,000201:                                                                                                  #           INTERRUPT TEMPORARY STORAGE POOL.                         (11D)
004115,000202: 
004116,000203:                                                                                                  #             (ITEMP1 THROUGH RUPTREG4)
004117,000204: 
004118,000205:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
004119,000206:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
004120,000207: 
004121,000208:    0061                        ITEMP1             ERASE                                          
004122,000209:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
004123,000210:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
004124,000211: 
004125,000212:    0062                        ITEMP2             ERASE                                          
004126,000213:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
004127,000214:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
004128,000215: 
004129,000216:    0063                        ITEMP3             ERASE                                          
004130,000217:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
004131,000218:    0064     0063               WAITADR            EQUALS   ITEMP3                                
004132,000219:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
004133,000220: 
004134,000221:    0064                        ITEMP4             ERASE                                          
004135,000222:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
004136,000223:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
004137,000224: 
004138,000225:    0065                        ITEMP5             ERASE                                          
004139,000226:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
004140,000227: 
004141,000228:    0066                        ITEMP6             ERASE                                          
004142,000229:                                                                                                  # NEWLOC+1        EQUALS          ITEMP6                  DP ADDRESS.
004143,000230: 
004144,000231:    0067                                           SETLOC   67                                    
004145,000232:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
004146,000233: 
004147,000234: 
004148,000235:    0070                        RUPTREG1           ERASE                                          
004149,000236:    0071                        RUPTREG2           ERASE                                          
004150,000237:    0072                        RUPTREG3           ERASE                                          
004151,000238:    0073                        RUPTREG4           ERASE                                          
004152,000239:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
004153,000240:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
004154,000241: 
004155,000242:                                                                                                  #  FLAGWORD RESERVATIONS.                                           (16D)
004156,000243: 
004157,000244:    0074                        STATE              ERASE    +15D                                  #  FLAGWORD REGISTERS.
004158,000245: 
004159,000246:                                                                                                  #  P25 RADAR STORAGE.  (MAY BE UNSHARED IN E7)  (TEMP OVERLAY)  (2D)  OVERLAYS FLGWRD 14 & 15
004160,000247: 

Page 98

004162,000249:    0114     0112               LASTYCMD           EQUALS   STATE      +14D                       #  B(1)PRM       THESE ARE CALLED BY T4RUPT
004163,000250:    0114     0113               LASTXCMD           EQUALS   LASTYCMD   +1                         #  B(1)PRM       THEY MUST BE CONTIGUOUS, Y FIRST
004164,000251: 
004165,000252: 
004166,000253: 
004167,000254:                                                                                                  #  EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS.  (32D) (INTB15+ THROUGH RUPTMXTM)
004168,000255:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
004169,000256:    0115     0114               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
004170,000257:    0115     0114               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
004171,000258:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
004172,000259:    0116     0115               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
004173,000260:    0116     0115               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
004174,000261:    0116     0115               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
004175,000262: 
004176,000263:                                                                                                  #  THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
004177,000264: 
004178,000265:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
004179,000266:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
004180,000267:    0120     0117               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
004181,000268:    0120     0117               CHAR               =        POLISH                                #  TEMP FOR CHARIN
004182,000269:    0120     0117               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
004183,000270:    0120     0117               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
004184,000271: 
004185,000272:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
004186,000273:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
004187,000274: 
004188,000275:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
004189,000276:    0130     0122               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
004190,000277:    0130     0122               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
004191,000278:    0130     0122               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
004192,000279:    0130     0122               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
004193,000280: 
004194,000281:    0130     0123               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
004195,000282:    0130     0123               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
004196,000283:    0130     0123               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
004197,000284:    0130     0123               HITEMIN            =        VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004198,000285:                                                                                                  #           MUST = LOTEMIN-1.
004199,000286:    0130     0124               CODE               =        VBUF       +2                         #  FOR DSPIN
004200,000287:    0130     0124               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
004201,000288:    0130     0124               LOTEMIN            =        VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004202,000289:                                                                                                  #           MUST = HITEMIN+1.
004203,000290:    0130     0125               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
004204,000291:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004205,000292: 
004206,000293:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
004207,000294:    0133                        BUF2               ERASE    +1                                    
004208,000295:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
004209,000296:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
004210,000297:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
004211,000298:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
004212,000299: 

Page 99

004214,000301:    0136     0135               DMPNTEMP           =        MPTEMP                                #  DMPSUB TEMPORARY
004215,000302:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
004216,000303:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
004217,000304:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
004218,000305:    0137     0136               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
004219,000306: 
004220,000307:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
004221,000308:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
004222,000309:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
004223,000310:    0140     0137               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
004224,000311:    0140     0137               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004225,000312: 
004226,000313:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
004227,000314:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
004228,000315:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
004229,000316:    0141     0140               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
004230,000317:    0141     0140               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
004231,000318: 
004232,000319:    0141                        TEM1               ERASE                                          #  EXEC TEMP
004233,000320:    0142     0141               POLYRET            =        TEM1                                  
004234,000321:    0142     0141               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
004235,000322: 
004236,000323:    0142                        TEM2               ERASE                                          #  EXEC TEMP
004237,000324:    0143     0142               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
004238,000325:    0143                        TEM3               ERASE                                          #  EXEC TEMP
004239,000326:    0144     0143               COUNT              =        TEM3                                  #  FOR DSPIN
004240,000327: 
004241,000328:    0144                        TEM4               ERASE                                          #  EXEC TEMP
004242,000329:    0145     0144               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
004243,000330:    0145     0144               DSPWDRET           =        TEM4                                  #  RETURN FOR DSPSIGN
004244,000331:    0145     0144               SEPSCRET           =        TEM4                                  #  RETURN FOR SEPSEC
004245,000332:    0145     0144               SEPMNRET           =        TEM4                                  #  RETURN FOR SEPMIN
004246,000333: 
004247,000334:    0145                        TEM5               ERASE                                          #  EXEC TEMP
004248,000335:    0146     0145               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
004249,000336: 
004250,000337:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
004251,000338:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
004252,000339:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004253,000340:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
004254,000341:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004255,000342:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
004256,000343:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004257,000344:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
004258,000345:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
004259,000346: 
004260,000347:                                                                                                  #  AX*SR*T STORAGE.                                      (6D)
004261,000348: 
004262,000349:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
004263,000350:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
004264,000351: 

Page 100

004266,000353:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
004267,000354:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
004268,000355:    0154     0157               TERM1TMP           EQUALS   MPAC       +3                         #  B(2)TMP
004269,000356: 
004270,000357:    0154     0143               DEXI               =        DEX1                                  
004271,000358: 
004272,000359:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
004273,000360:                                                                                                  #  SUBROUTINE ROOTPSRS.   THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
004274,000361:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
004275,000362: 
004276,000363:    0154     0142               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
004277,000364:    0154     0143               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
004278,000365:    0154     0144               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
004279,000366:    0154     0145               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
004280,000367:    0154     0146               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
004281,000368:    0154     0147               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
004282,000369:    0154     0150               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
004283,000370:    0154     0151               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
004284,000371:    0154     0152               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N HI ORDER
004285,000372:    0154     0153               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N LO ORDER
004286,000373: 
004287,000374:    0154     0117               PWRPTR             =        POLISH                                #  ROOTPSRS POWER TABLE POINTER
004288,000375:    0154     0124               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
004289,000376:    0154     0125               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
004290,000377:    0154     0126               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
004291,000378:    0154     0127               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
004292,000379:    0154     0132               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
004293,000380:    0154     0140               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABLE LOOP COUNTER
004294,000381:    0154     0141               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABLE POINTER
004295,000382: 

Page 101

004297,000384:                                                                                                  #  DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.             (84D)
004298,000385: 
004299,000386:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
004300,000387:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
004301,000388:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
004302,000389:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
004303,000390:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
004304,000391:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
004305,000392: 
004306,000393:    0170                                           ERASE    +83D                                  #  EIGHT SETS OF 12 REGISTERS EACH
004307,000394: 
004308,000395:                                                                                                  #  INCORP STORAGE:  R22 (N29)    (SHARES WITH FOLLOWING SECTION)         (4D)
004309,000396: 
004310,000397:    0314     0314               R22DISP            EQUALS   TIME2SAV                              #  I(4) N49 DISPLAY OF DELTA R AND DELTA V
004311,000398: 
004312,000399:                                                                                                  #  STANDBY VERB ERASABLES                                                (4D)
004313,000400: 
004314,000401:    0314                        TIME2SAV           ERASE    +1                                    
004315,000402:    0316                        SCALSAVE           ERASE    +1                                    
004316,000403: 
004317,000404:                                                                                                  #           HARDWARE RESTART COUNTER                                 (1D)
004318,000405: 
004319,000406:    0320                        REDOCTR            ERASE                                          #  CONTAINS NUMBER OF RESTARTS
004320,000407: 
004321,000408:                                                                                                  #   UNSHARED STORAGE FOR DESIRED GIMBAL ANGLES                       (3D)
004322,000409: 
004323,000410:    0321                        THETAD             ERASE    +2                                    
004324,000411:    0324     0321               CPHI               =        THETAD                                #  O     DESIRED GIMBAL ANGLES
004325,000412:    0324     0322               CTHETA             =        THETAD     +1                         #  I     FOR
004326,000413:    0324     0323               CPSI               =        THETAD     +2                         #  M     MANEUVER.
004327,000414: 
004328,000415:                                                                                                  #   STORAGE FOR DELTAV/S                                              (6D)
004329,000416: 
004330,000417:    0324                        DELV               ERASE    +5                                    
004331,000418:    0332     0324               DELVX              =        DELV                                  
004332,000419:    0332     0326               DELVY              =        DELV       +2                         
004333,000420:    0332     0330               DELVZ              =        DELV       +4                         
004334,000421: 
004335,000422:                                                                                                  #  WAITLIST REPEAT FLAG                          (1D)
004336,000423: 
004337,000424:    0332                        RUPTAGN            ERASE                                          
004338,000425:    0333     0332               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
004339,000426: 
004340,000427:                                                                                                  #  DOWNLINK STORAGE.                             (27D)
004341,000428: 

Page 102

004343,000430:    0333                        DNTMERAS           ERASE    +26D                                  #  B(27D)PRM ERASABLES USED BY DOWN-
004344,000431:                                                                                                  #   TELEMETRY PROGRAM -- CANNOT BE SHARED.
004345,000432: 
004346,000433:    0366     0333               DNLSTCOD           EQUALS   DNTMERAS                              #  B(1)PRM  CODE SPECIFYING WHICH DOWNLIST
004347,000434:                                                                                                  #         WILL BE SELECTED FOR TRANSMISSION
004348,000435:    0366     0334               CTLIST             EQUALS   DNLSTCOD   +1                         #  B(1)PRM  POINTER TO CURRENT LOCATION OF
004349,000436:                                                                                                  #           THE CONTROL LIST.
004350,000437:    0366     0335               DNTMGOTO           EQUALS   CTLIST     +1                         #  B(1)PRM  POINTER TO LOCATION WHERE DNTM
004351,000438:                                                                                                  #   PROCESSING WILL RESUME NEXT DOWNRUPT.
004352,000439:    0366     0336               DNECADR            EQUALS   DNTMGOTO   +1                         #  B(1)PRM  HOLDS CONTENTS OF CURRENT
004353,000440:                                                                                                  #        CONTROL LIST LOCATION.
004354,000441:    0366     0336               TMINDEX            EQUALS   DNECADR                               #  B(1)  INDEX FOR LOADING SNAPSHOT BUFFER.
004355,000442:    0366     0336               DUMPLOC            EQUALS   DNECADR                               #  B(1)  BITS 1-11 CONTAIN ECADR OF AGC DP
004356,000443:                                                                                                  #   WORD BEING DUMPED BY V74 ERASABLE DUMP.
004357,000444:                                                                                                  #        BITS 12-15 CONTAIN COUNT OF
004358,000445:                                                                                                  #   COMPLETE DUMPS ALREADY SENT.
004359,000446:    0366     0337               SUBLIST            EQUALS   DNECADR    +1                         #  B(1)PRM  POINTER TO CURRENT SUBLIST LOC.
004360,000447:    0366     0340               DNTMBUFF           EQUALS   SUBLIST    +1                         #  B(22)PRM DOWNLINK SNAPSHOT BUFFER
004361,000448: 
004362,000449: 
004363,000450:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.    (6D)
004364,000451: 
004365,000452:    0366                        NVWORD             ERASE                                          
004366,000453:    0367                        MARKNV             ERASE                                          
004367,000454:    0370                        NVSAVE             ERASE                                          #  PURPOSES)
004368,000455:    0371                        CADRFLSH           ERASE                                          
004369,000456:    0372                        CADRMARK           ERASE                                          
004370,000457:    0373                        TEMPFLSH           ERASE                                          
004371,000458: 
004372,000459: 
004373,000460:                                                                                                  #           CHANNEL BIT FAILURE PROTECTION WORD - PAD LOADED AS ZERO    (1D)
004374,000461: 
004375,000462:    0374                        CHANBKUP           ERASE                                          #  B(1)PRM
004376,000463: 
004377,000464: 
004378,000465:                                                                                                  #           ALARM CODE REGISTERS                                        (3D)
004379,000466: 
004380,000467:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM  3  ALARM CODE REGISTERS
004381,000468: 
004382,000469:                                                                                                  #           VAC AREAS. -BE CAREFUL OF PLACEMENT-          (220D)
004383,000470: 
004384,000471:    0400                        VAC1USE            ERASE                                          
004385,000472:    0401                        VAC1               ERASE    +42D                                  
004386,000473:    0454                        VAC2USE            ERASE                                          
004387,000474:    0455                        VAC2               ERASE    +42D                                  
004388,000475:    0530                        VAC3USE            ERASE                                          
004389,000476:    0531                        VAC3               ERASE    +42D                                  
004390,000477:    0604                        VAC4USE            ERASE                                          
004391,000478:    0605                        VAC4               ERASE    +42D                                  
004392,000479: 

Page 103

004394,000481:    0660                        VAC5USE            ERASE                                          
004395,000482:    0661                        VAC5               ERASE    +42D                                  
004396,000483: 
004397,000484: 
004398,000485:                                                                                                  #           TEMPORARIES USED BY RESTARTS ROUTINE
004399,000486: 
004400,000487:    0734     0705               GOLOC              EQUALS   VAC5       +20D                       #  B(4)
004401,000488: 
004402,000489: 
004403,000490:                                                                                                  #           R59 - STAR ACQUISITION ROUTINE                (1D)
004404,000491: 
004405,000492:    0734                        POSCODE            ERASE                                          #  B(1)TMP DETENT POSITION CNTR IN R59
004406,000493: 
004407,000494:                                                                                                  #           CALCSMSC                                     (12D)
004408,000495: 
004409,000496:    0735                        STARALGN           ERASE    +11D                                  
004410,000497:    0751     0735               SINCDU             =        STARALGN                              
004411,000498:    0751     0743               COSCDU             =        STARALGN   +6                         
004412,000499: 
004413,000500:    0751     0741               SINCDUX            =        SINCDU     +4                         
004414,000501:    0751     0735               SINCDUY            =        SINCDU                                
004415,000502:    0751     0737               SINCDUZ            =        SINCDU     +2                         
004416,000503:    0751     0747               COSCDUX            =        COSCDU     +4                         
004417,000504:    0751     0743               COSCDUY            =        COSCDU                                
004418,000505:    0751     0745               COSCDUZ            =        COSCDU     +2                         
004419,000506: 
004420,000507: 
004421,000508:                                                                                                  #           PHASE TABLE AND RESTART COUNTERS.              (12D)
004422,000509: 
004423,000510:    0751                        -PHASE1            ERASE                                          
004424,000511:    0752                        PHASE1             ERASE                                          
004425,000512:    0753                        -PHASE2            ERASE                                          
004426,000513:    0754                        PHASE2             ERASE                                          
004427,000514:    0755                        -PHASE3            ERASE                                          
004428,000515:    0756                        PHASE3             ERASE                                          
004429,000516:    0757                        -PHASE4            ERASE                                          
004430,000517:    0760                        PHASE4             ERASE                                          
004431,000518:    0761                        -PHASE5            ERASE                                          
004432,000519:    0762                        PHASE5             ERASE                                          
004433,000520:    0763                        -PHASE6            ERASE                                          
004434,000521:    0764                        PHASE6             ERASE                                          
004435,000522: 
004436,000523:                                                                                                  #           A**SR*T STORAGE.                              (6D)
004437,000524: 
004438,000525:    0765                        CDUSPOT            ERASE    +5                                    #  B(6)
004439,000526: 
004440,000527:    0773     0765               CDUSPOTY           =        CDUSPOT                               
004441,000528:    0773     0767               CDUSPOTZ           =        CDUSPOT    +2                         
004442,000529: 

Page 104

004444,000531:    0773     0771               CDUSPOTX           =        CDUSPOT    +4                         
004445,000532: 
004446,000533: 
004447,000534:                                                                                                  #           VERB 37 STORAGE.                              (2D)
004448,000535: 
004449,000536:    0773                        MINDEX             ERASE                                          #  B(1)TMP INDEX FOR MAJOR MODE
004450,000537:    0774                        MMNUMBER           ERASE                                          #  B(1)TMP MAJOR MODE REQUESTED BY V37
004451,000538: 
004452,000539: 
004453,000540:                                                                                                  #           PINBALL INTERRUPT ACTION.                     (1D)
004454,000541: 
004455,000542:    0775                        DSPCNT             ERASE                                          #  B(1)PRM COUNTER FOR DSPOUT.
004456,000543: 
004457,000544: 
004458,000545:                                                                                                  #           PINBALL EXECUTIVE ACTION                      (44D)
004459,000546: 
004460,000547:    0776                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR.
004461,000548:    0777                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
004462,000549:    1000                        VERBREG            ERASE                                          #  VERB CODE
004463,000550:    1001                        NOUNREG            ERASE                                          #  NOUN CODE
004464,000551:    1002                        XREG               ERASE                                          #  R1 INPUT BUFFER
004465,000552:    1003                        YREG               ERASE                                          #  R2 INPUT BUFFER
004466,000553:    1004                        ZREG               ERASE                                          #  R3 INPUT BUFFER
004467,000554:    1005                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
004468,000555:    1006                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
004469,000556:    1007     1006               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
004470,000557:                                                                                                  #           MUST = LOTEMOUT-1.
004471,000558:    1007                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
004472,000559:    1010     1007               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
004473,000560:                                                                                                  #           MUST = HITEMOUT+1.
004474,000561:    1010                        MODREG             ERASE                                          #  MODE CODE
004475,000562:    1011                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
004476,000563:    1012                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
004477,000564:    1013                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
004478,000565:    1014                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
004479,000566:    1015                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
004480,000567:    1016                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
004481,000568:    1017                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
004482,000569:    1020                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
004483,000570:    1021                        MONSAVE2           ERASE                                          #  NVMONOPT OPTIONS
004484,000571:    1022                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
004485,000572:    1036                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
004486,000573:                                                                                                  #  MUST = NVBNKTEM-1
004487,000574:    1037                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
004488,000575:                                                                                                  #  MUST = NVQTEM+1
004489,000576:    1040                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
004490,000577:    1041                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
004491,000578:    1042                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
004492,000579:    1043                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
004493,000580:    1044                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004494,000581: 

Page 105

004496,000583:    1047                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004497,000584: 
004498,000585:    1052     1050               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
004499,000586:    1052     1044               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
004500,000587: 
004501,000588: 
004502,000589: 
004503,000590:                                                                                                  #           DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) )       (2D)
004504,000591: 
004505,000592:    1052     1050               OPTIONX            EQUALS   DSPTEMX                               #  (2) EXTENDED VERB OPTION CODE
004506,000593: 
004507,000594:                                                                                                  #           TBASES AND PHSPRDT S.                         (12D)
004508,000595: 
004509,000596:    1052                        TBASE1             ERASE                                          
004510,000597:    1053                        PHSPRDT1           ERASE                                          
004511,000598:    1054                        TBASE2             ERASE                                          
004512,000599:    1055                        PHSPRDT2           ERASE                                          
004513,000600:    1056                        TBASE3             ERASE                                          
004514,000601:    1057                        PHSPRDT3           ERASE                                          
004515,000602:    1060                        TBASE4             ERASE                                          
004516,000603:    1061                        PHSPRDT4           ERASE                                          
004517,000604:    1062                        TBASE5             ERASE                                          
004518,000605:    1063                        PHSPRDT5           ERASE                                          
004519,000606:    1064                        TBASE6             ERASE                                          
004520,000607:    1065                        PHSPRDT6           ERASE                                          
004521,000608: 
004522,000609: 
004523,000610:    1066     1055               PIPCTR             =        PHSPRDT2                              #  USED TO COUNT DOWN R10 CYLCES.  USED IN
004524,000611:                                                                                                  #  CONJUNCTION WITH TBASE2, SO THIS
004525,000612:                                                                                                  #  LOCATION IS FUNCTIONALLY =.  SEE R10,R11
004526,000613: 
004527,000614: 
004528,000615:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.    (5D)
004529,000616: 
004530,000617:    1066                        NVWORD1            ERASE                                          #  B(1) * USED DURING POWERED FLIGHT ONLY *
004531,000618: 
004532,000619:    1067                        EBANKSAV           ERASE                                          
004533,000620:    1070     1067               DSPFLG             =        EBANKSAV                              
004534,000621:    1070                        MARKFLAG           ERASE                                          
004535,000622:    1071                        EBANKTEM           ERASE                                          
004536,000623:    1072                        MARK2PAC           ERASE                                          
004537,000624: 
004538,000625: 
004539,000626: 
004540,000627:                                                                                                  #           CODE WORD FOR AGS RENDEZVOUS DOWNLIST XFER OF RADAR DATA      (1D)
004541,000628: 
004542,000629:    1073                        AGSCODE            ERASE                                          #  B(1) DO NOT SHARE.
004543,000630: 

Page 106

004545,000632:                                                                                                  #           IMU COMPENSATION UNSWITCHED ERASABLE.         (1D)
004546,000633: 
004547,000634:    1074                        1/PIPADT           ERASE                                          
004548,000635: 
004549,000636:                                                                                                  #           TEMPORARIES FOR SPCOS AND SPSIN               (2D)
004550,000637: 
004551,000638:    1075                        TEMK               ERASE                                          #  (1)
004552,000639:    1076                        SQ                 ERASE                                          #  (1)
004553,000640: 
004554,000641: 
004555,000642:                                                                                                  #      **** RADAR ****                                   (13D)
004556,000643: 
004557,000644:    1077                        SAMPLIM            ERASE                                          #  B(1)      LR    R12,P60S,R04,R77
004558,000645:    1100     1077               RADUSE             EQUALS   SAMPLIM                               #  B(1)PRM   BOTH  P20,P22,R12,R04
004559,000646:    1100                        SAMPLSUM           ERASE    +3                                    #  B(2),I(2) BOTH
004560,000647:    1104     1100               RRTARGET           EQUALS   SAMPLSUM                              #  I(6)      RR  P20,P22,R04,V41
004561,000648: 
004562,000649:    1104                        TIMEHOLD           ERASE    +1                                    #  B(2)      BOTH
004563,000650:    1106                        TANG               ERASE    +1                                    #  B(2),I    RR
004564,000651:    1110     1106               MODEA              EQUALS   TANG                                  #  B(2),I    RR
004565,000652: 
004566,000653:    1110                        MODEB              ERASE    +1                                    #  B(2),I    RR
004567,000654:    1112     1110               NSAMP              EQUALS   MODEB                                 #  B(1)      BOTH
004568,000655: 
004569,000656:    1112                        DESRET             ERASE                                          #  B(1),I    RR
004570,000657:    1113     1112               OLDATAGD           EQUALS   DESRET                                #  B(1)      BOTH
004571,000658: 
004572,000659:    1113                        DESCOUNT           ERASE                                          #  B(1)      RR
004573,000660: 
004574,000661: 
004575,000662: 
004576,000663:                                                                                                  #           ******   P22  ******                         (6D)
004577,000664: 
004578,000665:    1114     1100               RSUBC              EQUALS   RRTARGET                              #  I(6)S-S  CSM POSITION VECTOR
004579,000666: 

Page 107

004581,000668:                                                                                                  #           UNSWITCHED FOR ORBIT INTEGRATION.             (21D)
004582,000669: 
004583,000670:    1114                        TDEC               ERASE    +20D                                  #  I(2)
004584,000671:    1141     1116               COLREG             EQUALS   TDEC       +2                         #  I(1)
004585,000672:    1141     1117               LAT                EQUALS   COLREG     +1                         #  I(2)
004586,000673:    1141     1121               LONG               EQUALS   LAT        +2                         #  I(2)
004587,000674:    1141     1123               ALT                EQUALS   LONG       +2                         #  I(2)
004588,000675:    1141     1125               YV                 EQUALS   ALT        +2                         #  I(6)
004589,000676:    1141     1133               ZV                 EQUALS   YV         +6                         #  I(6) 
004590,000677: 
004591,000678: 
004592,000679:                                                                                                  #           MISCELLANEOUS UNSWITCHED.                     (20D)
004593,000680: 
004594,000681:    1141                        P40/RET            ERASE                                          #  (WILL BE PUT IN E6 WHEN THERE IS ROOM)
004595,000682:    1142                        GENRET             ERASE                                          #  B(1)  R61 RETURN CADR.
004596,000683:    1143                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
004597,000684:    1144                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
004598,000685:    1145                        OPTION3            ERASE                                          #  B(1)  NOUN 06 USES THIS
004599,000686:    1146                        LONGCADR           ERASE    +1                                    #  B(2)  LONGCALL REGISTER
004600,000687:    1150                        LONGBASE           ERASE    +1                                    
004601,000688:    1152                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
004602,000689:    1154                        CDUTEMPX           ERASE                                          #  B(1)TMP
004603,000690:    1155                        CDUTEMPY           ERASE                                          #  B(1)TMP
004604,000691:    1156                        CDUTEMPZ           ERASE                                          #  B(1)TMP
004605,000692:    1157                        PIPATMPX           ERASE                                          #  B(1)TMP
004606,000693:    1160                        PIPATMPY           ERASE                                          #  B(1)TMP
004607,000694:    1161                        PIPATMPZ           ERASE                                          #  B(1)TMP
004608,000695: 
004609,000696:    1162                        DISPDEX            ERASE                                          #  B(1)
004610,000697:    1163                        TEMPR60            ERASE                                          #  B(1)
004611,000698:    1164                        PRIOTIME           ERASE                                          #  B(1)
004612,000699: 
004613,000700:                                                                                                  #           P27 (UPDATE PROGRAM ) STORAGE.                (26D)
004614,000701: 
004615,000702:    1165                        UPVERBSV           ERASE                                          #  B(1) UPDATE VERB ATTEMPTED.
004616,000703:    1166                        UPTEMP             ERASE    +24D                                  #  B(1)TMP SCRATCH
004617,000704:                                                                                                  #  RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
004618,000705:    1217     1167               COMPNUMB           EQUALS   UPTEMP     +1                         #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
004619,000706:    1217     1170               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP INTERRUPTED PROGRAM MM
004620,000707:    1217     1171               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
004621,000708:    1217     1172               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
004622,000709:    1217     1173               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
004623,000710: 
004624,000711: 
004625,000712: 
004626,000713:                                                                                                  #           TEMPORARY FOR RESTART PROTECTION IN SERVICER  (2D)
004627,000714: 
004628,000715:    1217     1173               DVTEMP             EQUALS   UPBUFF                                #  B(2) TEMP. SAVE DVTOTAL FOR RESTARTS.
004629,000716: 

Page 108

004631,000718:                                                                                                  #  SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS.     (2D)
004632,000719: 
004633,000720:    1217     1166               EBUF2              EQUALS   UPTEMP                                #  B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
004634,000721: 
004635,000722: 
004636,000723:                                                                                                  #           PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION- (14D)
004637,000724: 
004638,000725:    1217                        RN                 ERASE    +5                                    #  B(6)PRM
004639,000726:    1225                        VN                 ERASE    +5                                    #  B(6)PRM
004640,000727:    1233                        PIPTIME            ERASE    +1                                    #  B(2)PRM  (MUST BE FOLLOWED BY GDT/2)
004641,000728: 
004642,000729: 
004643,000730:                                                                                                  #           SERVICER   -MUST FOLLOW PIPTIME-             (18D)
004644,000731: 
004645,000732:    1235                        GDT/2              ERASE    +17D                                  #  B(6)TMP  ** MUST FOLLOW PIPTIME **
004646,000733:    1257     1243               MASS               EQUALS   GDT/2      +6                         #  B(2)
004647,000734:    1257     1243               WEIGHT/G           =        MASS                                  
004648,000735:    1257     1245               ABDELV             EQUALS   MASS       +2                         #  (1)
004649,000736:    1257     1246               PGUIDE             EQUALS   ABDELV     +1                         #  (2)
004650,000737:    1257     1250               DVTHRUSH           EQUALS   PGUIDE     +2                         #  (1)
004651,000738:    1257     1251               AVEGEXIT           EQUALS   DVTHRUSH   +1                         #   (2)
004652,000739:    1257     1251               AVGEXIT            =        AVEGEXIT                              
004653,000740:    1257     1253               TEMX               EQUALS   AVEGEXIT   +2                         #   (1)
004654,000741:    1257     1254               TEMY               EQUALS   TEMX       +1                         #   (1)
004655,000742:    1257     1255               TEMZ               EQUALS   TEMY       +1                         #   (1)
004656,000743:    1257     1256               PIPAGE             EQUALS   TEMZ       +1                         #  B(1)
004657,000744: 
004658,000745: 
004659,000746: 
004660,000747: 
004661,000748:                                                                                                  #           ALIGNMENT                                    (7D)
004662,000749: 
004663,000750:    1257     1235               AOTCODE            EQUALS   GDT/2                                 #  B(1)TMP DOWNLINKED -- STAR CODE
004664,000751:    1257     1235               STARCODE           =        AOTCODE                               #  B(1)TMP DSP N70,N71
004665,000752:    1257     1236               XCOUNT             =        AOTCODE    +1                         #  B(1)TMP DSP N70,N71   X MARK COUNTER
004666,000753:    1257     1237               YCOUNT             =        AOTCODE    +2                         #  B(1)TMP DSP N70,N71   Y MARK COUNTER
004667,000754: 
004668,000755:    1257     1240               CURSOR             EQUALS   AOTCODE    +3                         #  B(1)TMP DOWNLNK -- STAR MEASUREMENT QTY
004669,000756:    1257     1241               SPIRAL             EQUALS   CURSOR     +1                         #  B(1)TMP DOWNLNK -- STAR MEASUREMENT QTY
004670,000757:    1257     1241               SITIME             EQUALS   SPIRAL                                #  B(2)TMP TIME USED IN LANDING SITE COMP
004671,000758: 
004672,000759: 
004673,000760:                                                                                                  #           S34/35.5  TEMPORARY     (2)
004674,000761: 
004675,000762:    1257     1235               TMPDV              EQUALS   GDT/2                                 #  B(2) TMP SAVE FOR DVLVC
004676,000763: 
004677,000764: 
004678,000765:                                                                                                  #           USED FOR SUMMATION OF UPRUPT DURING PRELAUNCH & SYS TEST LEADIN(3D)
004679,000766: 
004680,000767:    1257     1245               UPSUM              EQUALS   ABDELV                                #  (3)
004681,000768: 

Page 109

004683,000770:                                                                                                  #            P 76  DISPLAY     N84                        (6D)
004684,000771:    1257     1250               DELVOV             EQUALS   UPSUM      +3                         #  I(6)
004685,000772: 
004686,000773: 
004687,000774:                                                                                                  #           P76 - P77 STORAGE                              (1D)
004688,000775: 
004689,000776:    1257     1235               OPTFLAG            EQUALS   GDT/2                                 #  B(1)TMP  FLAG FOR P76 OR P77
004690,000777: 
004691,000778: 
004692,000779:                                                                                                  #           PERMANENT LEM DAP STORAGE.                     (5D)
004693,000780: 
004694,000781:    1257                        CH5MASK            ERASE                                          #  B(1)PRM
004695,000782:    1260                        CH6MASK            ERASE                                          #  B(1)PRM JET FAILURE MASK.
004696,000783:    1261                        SPNDX              ERASE                                          #  B(1)
004697,000784:    1262                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
004698,000785:                                                                                                  #  BBCON  OF NEXT LM DAP T5RUPT.   2CADR
004699,000786: 
004700,000787:                                                                                                  #           DISPLAY INTERFACE RESTART PROTECTION STORAGE   (1D)
004701,000788: 
004702,000789:    1264                        RESTREG            ERASE                                          #  B(1)PRM
004703,000790: 
004704,000791: 
004705,000792:                                                                                                  #           ERASABLES FOR RADAR READ PROTECTION (C13STALL)        (4D)
004706,000793: 
004707,000794:    1265                        C13QSAV            ERASE                                          #  B(1) QSAVE FOR C13STALL USERS.
004708,000795:    1266                        C13FSAV            ERASE                                          #  B(1) FBANK SAVE FOR C13STALL.
004709,000796:    1267                        RADTIME            ERASE                                          #  B(1) NEG. TIME OF SCALAR READ.
004710,000797:    1270                        RADDEL             ERASE                                          #  B(1) DELTA TIME FROM SCALAR READ TO T5.
004711,000798: 
004712,000799: 
004713,000800:                                                                                                  #           RADAREAD STORAGE                             (2D)
004714,000801: 
004715,000802:    1271                        TTOTIG             ERASE    +1                                    #  B(2) LATEST ESTIMATE OF TIME TO IGNITION
004716,000803: 
004717,000804:                                                                                                  #           RCS FAILURE MONITOR STORAGE                   (1)
004718,000805:    1273                        PVALVEST           ERASE                                          #  B(1)PRM
004719,000806: 
004720,000807: 
004721,000808:                                                                                                  #           KALCMANU/DAP INTERFACE.                       (3D)
004722,000809: 
004723,000810:    1274                        DELPEROR           ERASE                                          #  B(1)PRM COMMAND LAGS.
004724,000811:    1275                        DELQEROR           ERASE                                          #  B(1)PRM
004725,000812:    1276                        DELREROR           ERASE                                          #  B(1)PRM
004726,000813: 
004727,000814:                                                                                                  #           MODE SWITCHING ERASABLE.                      (9D)
004728,000815: 

Page 110

004730,000817:                                                                                                  #     RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
004731,000818:    1277                        IMODES30           ERASE                                          #  B(1)
004732,000819:    1300                        IMODES33           ERASE                                          
004733,000820:    1301                        MODECADR           ERASE    +2                                    #  B(3)PRM
004734,000821:    1304     1301               IMUCADR            EQUALS   MODECADR                              
004735,000822:    1304     1302               OPTCADR            EQUALS   MODECADR   +1                         
004736,000823:    1304     1303               RADCADR            EQUALS   MODECADR   +2                         
004737,000824:    1304                        ATTCADR            ERASE    +2                                    #  B(3)PRM
004738,000825:    1307     1306               ATTPRIO            =        ATTCADR    +2                         
004739,000826:    1307                        MARKSTAT           ERASE                                          
004740,000827: 
004741,000828:                                                                                                  #           T4RUPT ERASABLE.                              (2D)
004742,000829: 
004743,000830:    1310                        DSRUPTSW           ERASE                                          
004744,000831:    1311                        LGYRO              ERASE                                          #  (1)
004745,000832: 
004746,000833:                                                                                                  #           RENDEZVOUS RADAR TASK STORAGE                  (3D)
004747,000834: 
004748,000835:    1312                        RRRET              ERASE    +2D                                   #  B(1)TMP       P20'S, PERHAPS R29 & R12
004749,000836:    1315     1313               RDES               EQUALS   RRRET      +1                         #  B(1)TMP
004750,000837:    1315     1314               RRINDEX            EQUALS   RDES       +1                         #  B(1)TMP
004751,000838: 
004752,000839: 
004753,000840: 
004754,000841: 
004755,000842:                                                                                                  #           MEASUREMENT INCORPORATION                     (4D)
004756,000843: 
004757,000844:    1315                        WIXA               ERASE                                          #  B(1)
004758,000845:    1316                        WIXB               ERASE                                          #  B(1)
004759,000846:    1317                        ZIXA               ERASE                                          #  B(1)
004760,000847:    1320                        ZIXB               ERASE                                          #  B(1)
004761,000848: 
004762,000849:                                                                                                  #           LANDING RADAR PADLOAD                          (1D)
004763,000850: 
004764,000851:    1321     1315               LRWH1              EQUALS   WIXA                                  #  B(1) P.L.  P64 LR WEIGHTING FUNCTION
004765,000852: 
004766,000853: 
004767,000854: 
004768,000855: 
004769,000856:                                                                                                  #           AGS DOWNLINK ID CODE FOR RESTART PURPOSES      (1D)
004770,000857: 
004771,000858:    1321                        AGSWORD            ERASE                                          
004772,000859: 
004773,000860:                                                                                                  #           SOME MISCELLANEOUS UNSWITCHED.                 (6D)
004774,000861: 
004775,000862:    1322                        RATEINDX           ERASE                                          #  (1) USED BY KALCMANU
004776,000863:    1323                        DELAYLOC           ERASE    +2                                    
004777,000864:    1326                        LEMMASS            ERASE                                          #  KEEP CONTIGUOUS W. CSMMASS  (1) EACH
004778,000865:    1327                        CSMMASS            ERASE                                          
004779,000866: 
004780,000867:                                                                                                  #           LESS IS MORE.
004781,000868: 

Page 111

004783,000870: 
004784,000871:                                                                                                  #           RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE.     (7D)
004785,000872: 
004786,000873:                                                                                                  #                  (NORMALLY USED DURING P20, BUT MAY ALSO)
004787,000874:                                                                                                  #                  (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
004788,000875: 
004789,000876:                                                                                                  #                     (PLEASE KEEP IN THIS ORDER)
004790,000877: 
004791,000878:    1330                        DNRRANGE           ERASE    +6                                    #  B(1) TMP
004792,000879:    1337     1331               DNRRDOT            EQUALS   DNRRANGE   +1                         #  B(1)TMP
004793,000880:    1337     1332               DNINDEX            EQUALS   DNRRDOT    +1                         #  B(1)TMP
004794,000881:    1337     1333               DNLRVELX           EQUALS   DNINDEX    +1                         #  B(1)TMP
004795,000882:    1337     1334               DNLRVELY           EQUALS   DNLRVELX   +1                         #  B(1)TMP
004796,000883:    1337     1335               DNLRVELZ           EQUALS   DNLRVELY   +1                         #  B(1)TMP
004797,000884:    1337     1336               DNLRALT            EQUALS   DNLRVELZ   +1                         #  B(1) TMP
004798,000885: 
004799,000886:                                                                                                  #           RADAR -- RR AND LR                             (1D)
004800,000887: 
004801,000888:    1337     1332               RADBITS            EQUALS   DNINDEX                               #  B(1)PRM   SHOWS TYPE OF RADAR READ
004802,000889: 
004803,000890: 
004804,000891:                                                                                                  #           INCORPORATION UNSWITCHED.                      (2D)
004805,000892: 
004806,000893:    1337     1256               W.IND              EQUALS   PIPAGE                                #  B(1) TMP -- INDEX IN CLOSED LOOP
004807,000894: 
004808,000895: 
004809,000896:                                                                                                  #           SUBROUTINE BALLANGS OF R60.                    (1D)
004810,000897: 
004811,000898:    1337                        BALLEXIT           ERASE                                          #  B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT
004812,000899: 
004813,000900: 
004814,000901:                                                                                                  #           SOME LEM DAP STORAGE.                         (4D)
004815,000902: 
004816,000903:    1340                        DAPDATR1           ERASE                                          #  B(1)DSP DAP CONFIG.
004817,000904:    1341                        TEVENT             ERASE    +1                                    #  B(2)DSP
004818,000905:    1343                        DB                 ERASE                                          #  B(1) PRM DEAD BAND
004819,000906:    1344     1343               DBVAL1             =        DB                                    #  B(1) PRM
004820,000907: 
004821,000908: 
004822,000909: 
004823,000910:                                                                                                  #       NOUN 87 USED IN R52 AUTO OPTICS                    (2D)
004824,000911: 
004825,000912:    1344                        AZ                 ERASE    +1D                                   #  B(1) AZ AND EL MUST BE CONTIGUOUS
004826,000913:    1346     1345               EL                 EQUALS   AZ         +1D                        #  B(1)
004827,000914: 
004828,000915: 
004829,000916:                                                                                                  #           P63, P64, P65, P66, AND P67.                  (1D)
004830,000917: 
004831,000918:    1346                        WCHPHASE           ERASE                                          #  B(1)
004832,000919: 

Page 112

004834,000921: 
004835,000922:                                                                                                  #           PADLOADS FOR R2 LUNAR POTENTIAL MODEL.        (2D)
004836,000923: 
004837,000924:    1347                        E3J22R2M           ERASE                                          #  I(1)
004838,000925:    1350                        E32C31RM           ERASE                                          #  I(1)
004839,000926: 
004840,000927: 
004841,000928: 
004842,000929: 
004843,000930:                                                                                                  #           ERASABLES FOR TRUNNION AND SHAFT COMMANDS     (2D)
004844,000931: 
004845,000932:    1351                        TRUNNCMD           ERASE                                          #  *** THESE TWO ERASABLES ***
004846,000933:    1352                        SHAFTCMD           ERASE                                          #  *** MUST BE IN ORDER ***
004847,000934: 
004848,000935: 
004849,000936:                                                                                                  #           R22 OF P20                                    (1D)
004850,000937:    1353                        WHCHREAD           ERASE                                          #  B(1)TMP MEASUREMENT BEING PROCESSED.
004851,000938: 
004852,000939:                                                                                                  #           LANDING PADLOAD                               (1D)
004853,000940: 
004854,000941:    1354     1353               ELBIAS             EQUALS   WHCHREAD                              #  B(1) PL LPD ELEVATION BIAS. PI RADIANS.
004855,000942: 
004856,000943:                                                                                                  #           P66 PADLOAD                                    (1D)
004857,000944: 
004858,000945:    1354                        TOOFEW             ERASE                                          #  B(1) TOO FEW THROTTLINGS PER OMISSION:
004859,000946:                                                                                                  #   ONE LESS THAN NO. THROTTLES REQUIRED
004860,000947:                                                                                                  #    BETWEEN SKIPPED THROTTLES
004861,000948:                                                                                                  #      1466 ALARM IF THROTTLINGS <= TOOFEW
004862,000949:                                                                                                  #           TLOSS INDICATORS FOR DOWNLINK                 (2D)
004863,000950: 
004864,000951:    1355                        SERVDURN           ERASE                                          #  B(1)  AT SERVOUT: TIME1 - PIPTIME +1
004865,000952:    1356                        DUMLOOPS           ERASE                                          #  B(1)  LOOP COUNTER IN DUMMYJOB AT ADVAN
004866,000953: 
004867,000954: 
004868,000955:                                                                                                  #          SELF-CHECK ASSIGNMENTS.                       (17D)
004869,000956: 
004870,000957:                                                                                                  #                                  (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
004871,000958: 
004872,000959:    1357                        SELFERAS           ERASE    1357       -          1377            #  *** MUST NOT BE MOVED ***
004873,000960:    1357     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
004874,000961:    1357     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
004875,000962:    1357     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
004876,000963:    1357     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
004877,000964:    1357     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)   ALARM-ABORT USER'S 2CADR
004878,000965:    1357     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
004879,000966:    1357     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
004880,000967:    1357     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
004881,000968:    1357     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
004882,000969:    1357     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
004883,000970:    1357     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
004884,000971: 

Page 113

004886,000973:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
004887,000974:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
004888,000975:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
004889,000976: 

Page 114

004891,000978:                                                                                                  #           EBANK-3 ASSIGNMENTS
004892,000979: 
004893,000980: E3,1400                                           SETLOC   1400                                  
004894,000981: 
004895,000982:                                                                                                  #           WAITLIST TASK LISTS.                          (26D)
004896,000983: 
004897,000984: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM  DELTA T S.
004898,000985: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
004899,000986: 
004900,000987:                                                                                                  #           RESTART STORAGE.                              (2D)
004901,000988: 
004902,000989: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
004903,000990: 
004904,000991: 
004905,000992:                                                                                                  #           MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK.      (2D)
004906,000993: 
004907,000994: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
004908,000995: 
004909,000996: 
004910,000997:                                                                                                  #           PHASE-CHANGE LISTS PART II.                   (12D)
004911,000998: 
004912,000999: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
004913,001000: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
004914,001001: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
004915,001002: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
004916,001003: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
004917,001004: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
004918,001005: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
004919,001006: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
004920,001007: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
004921,001008: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
004922,001009: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
004923,001010: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
004924,001011: 
004925,001012:                                                                                                  #           IMU COMPENSATION PARAMETERS.                  (22D)
004926,001013: 
004927,001014: E3,1452                        PBIASX             ERASE                                          #  B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
004928,001015: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #  INTERMIXED.
004929,001016: E3,1453                        PIPASCFX           ERASE                                          
004930,001017: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
004931,001018: E3,1454                        PBIASY             ERASE                                          
004932,001019: E3,1455                        PIPASCFY           ERASE                                          
004933,001020: E3,1456                        PBIASZ             ERASE                                          
004934,001021: E3,1457                        PIPASCFZ           ERASE                                          
004935,001022: 
004936,001023: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
004937,001024: E3,1461                        NBDY               ERASE                                          
004938,001025: E3,1462                        NBDZ               ERASE                                          
004939,001026: 

Page 115

004941,001028: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
004942,001029: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
004943,001030: E3,1465                        ADIAZ              ERASE                                          
004944,001031: 
004945,001032: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
004946,001033: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
004947,001034: E3,1470                        ADSRAZ             ERASE                                          
004948,001035: 
004949,001036: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
004950,001037: 
004951,001038: E3,1477  E3,1471               COMMAND            EQUALS   GCOMP                                 
004952,001039: E3,1477  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
004953,001040: 
004954,001041: E3,1477                        GCOMPSW            ERASE                                          
004955,001042: 
004956,001043: 
004957,001044: 
004958,001045:                                                                                                  #           STATE VECTORS FOR ORBIT INTEGRATION.          (44D)
004959,001046: 
004960,001047:                                                                                                  #                                  (DIFEQCNT THRU XKEP MUST BE IN SAME
004961,001048:                                                                                                  #                                    EBANK AS RRECTCSM, RRECTLEM ETC
004962,001049:                                                                                                  #                                    BECAUSE THE COPY-CYCLES (ATOPCSM,
004963,001050:                                                                                                  #                                    PTOACSM ETC) ARE EXECUTED IN BASIC.
004964,001051:                                                                                                  #                                      ALL OTHER REFERENCES TO THIS GROUP
004965,001052:                                                                                                  #                                    ARE BY INTERPRETIVE INSTRUCTIONS.)
004966,001053: 
004967,001054: 
004968,001055: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)
004969,001056:                                                                                                  #                (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
004970,001057: 
004971,001058: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)
004972,001059: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)
004973,001060: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)
004974,001061: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)
004975,001062: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)
004976,001063: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)
004977,001064: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)
004978,001065: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)
004979,001066: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)
004980,001067: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)
004981,001068: 
004982,001069:                                                                                                  #           CONIC ROUTINES STORAGE                         (2D)
004983,001070: 
004984,001071: E3,1554  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
004985,001072: 
004986,001073: 
004987,001074:                                                                                                  #           PERMANENT STATE VECTORS AND TIMES.            (97D)
004988,001075: 
004989,001076:                                                                                                  #           (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
004990,001077: 

Page 116

004992,001079:                                                                                                  #           (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
004993,001080: 
004994,001081: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
004995,001082: E3,1562  E3,1554               RRECTOTH           =        RRECTCSM                              
004996,001083: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
004997,001084: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
004998,001085: E3,1572  E3,1570               TETOTHER           =        TETCSM                                
004999,001086: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
005000,001087: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
005001,001088: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
005002,001089: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
005003,001090: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
005004,001091: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
005005,001092: 
005006,001093:                                                                                                  #           (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
005007,001094: 
005008,001095: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
005009,001096: E3,1634  E3,1626               RRECTHIS           =        RRECTLEM                              
005010,001097: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
005011,001098: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
005012,001099: E3,1644  E3,1642               TETTHIS            =        TETLEM                                
005013,001100: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
005014,001101: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
005015,001102: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
005016,001103: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
005017,001104: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
005018,001105: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
005019,001106: 
005020,001107: E3,1700                        X789               ERASE    +5                                    
005021,001108: E3,1706                        TEPHEM             ERASE    +2                                    
005022,001109: E3,1711                        -AYO               ERASE    +1                                    
005023,001110: E3,1713                        AXO                ERASE    +1                                    
005024,001111: 
005025,001112: 
005026,001113:                                                                                                  #           STATE VECTORS FOR DOWNLINK.                   (12D)
005027,001114: 
005028,001115: E3,1715                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
005029,001116: E3,1723                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
005030,001117: 
005031,001118: E3,1731  E3,1570               T-OTHER            =        TETCSM                                #              TIME (OTHER VECH) FOR DNLINK
005032,001119: 
005033,001120: 
005034,001121:                                                                                                  #           SERVICER FOR LUNAR ASCENT AND DESCENT         (12D)
005035,001122: 
005036,001123: E3,1731  E3,1715               R(CSM)             EQUALS   R-OTHER                               #  I(6) FOR UPDATE OF CM STATE VECS BY LM.
005037,001124: E3,1731  E3,1723               V(CSM)             EQUALS   V-OTHER                               #  I(6)
005038,001125: 
005039,001126: 
005040,001127:                                                                                                  #           REFSMMAT.                                     (18D)
005041,001128: 

Page 117

005043,001130: E3,1731                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
005044,001131: 
005045,001132:                                                                                                  #           ACTIVE VEHICLE CENTANG.  MUST BE DISPLAYED ANYTIME (ALMOST.)  (2D)
005046,001133: 
005047,001134: E3,1753                        ACTCENT            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
005048,001135:                                                                                                  #   VEHICLE AT TPI TIG AND TARGET VECTOR.
005049,001136: 
005050,001137:                                                                                                  #        **** USED IN CONICSEX (PLAN INERT ORIENT) ****
005051,001138: 
005052,001139: E3,1755  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PRECISION)
005053,001140: 
005054,001141: 
005055,001142:                                                                                                  #           LPS20.1 STORAGE     -ALL ARE PRM-             (9D)
005056,001143: 
005057,001144: E3,1755                        LS21X              ERASE                                          #  I(1)
005058,001145: E3,1756                        LOSVEL             ERASE    +5                                    #  I(6)
005059,001146: E3,1764                        MLOSV              ERASE    +1                                    #  I(2) MAGNITUDE OF LOS, METERS B-29
005060,001147: 
005061,001148: 
005062,001149:                                                                                                  #       ***** P22  *****  (OVERLAYS LPS 20.1 STORAGE)     (6D)
005063,001150: E3,1766  E3,1756               VSUBC              EQUALS   LOSVEL                                #  I(6)S-S  CSM VELOCITY VECTOR
005064,001151: 
005065,001152:                                                                                                  #           PADLOADED ERASABLES FOR P20/P22               (6D)
005066,001153: 
005067,001154: E3,1766                        RANGEVAR           ERASE    +1                                    #  I(2) RR RANGE ERROR VARIANCE
005068,001155: E3,1770                        RATEVAR            ERASE    +1                                    #  I(2) RR RANGE-RATE ERROR VARIANCE
005069,001156: E3,1772                        RVARMIN            ERASE                                          #  I(1) MINIMUM RANGE ERROR VARIANCE
005070,001157: E3,1773                        VVARMIN            ERASE                                          #  I(1) MINIMUM RANGE-RATE ERROR VARIANCE
005071,001158: 
005072,001159: 
005073,001160:                                                                                                  #           P32-P33 STORAGE                               (2D)
005074,001161: 
005075,001162: E3,1774                        TCDH               ERASE    +1                                    #  I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED
005076,001163: 
005077,001164:                                                                                                  #           TIME SAVE FOR P20 AGS DOWNLIST                (2D)
005078,001165: 
Warning:  May overflow memory bank.
005079,001166: E3,1776                        OLDAGS             ERASE    +1                                    #  I(2)
005080,001167: 

Page 118

005082,001169:                                                                                                  #           EBANK-4 ASSIGNMENTS
005083,001170: 
005084,001171: E4,1400                                           SETLOC   2000                                  
005085,001172: 
005086,001173:                                                                                                  #  E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
005087,001174: 
005088,001175:                                                                                                  #           P20 STORAGE. -PAD LOADED-                     (6D)
005089,001176: 
005090,001177: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                            KM*2(-7)
005091,001178: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                      KM(-1/2)*2(11)
005092,001179: E4,1402                        WSHAFT             ERASE                                          #  B(1)PL                            KM*2(-7)
005093,001180: E4,1403                        WTRUN              ERASE                                          #  B(1)PL                            KM*2(-7)
005094,001181: E4,1404                        RMAX               ERASE                                          #  B(1)PL                       METERS*2(-19)
005095,001182: E4,1405                        VMAX               ERASE                                          #  B(1)PL                        M/CSEC*2(-7)
005096,001183: 
005097,001184:                                                                                                  #           LUNAR SURFACE NAVIGATION -- PAD LOADED --      (2D)
005098,001185: 
005099,001186: E4,1406                        WSURFPOS           ERASE                                          #  B(1)PL
005100,001187: E4,1407                        WSURFVEL           ERASE                                          #  B(1)PL
005101,001188: 
005102,001189: 
005103,001190:                                                                                                  #           P22 STORAGE. -PAD LOADED-                      (2D)
005104,001191: 
005105,001192: E4,1410                        SHAFTVAR           ERASE                                          #  B(1)PL                        RAD SQ*2(12)
005106,001193: E4,1411                        TRUNVAR            ERASE                                          #  B(1)PL                        RAD SQ*2(10)
005107,001194: 
005108,001195:                                                                                                  #           CONISEX STORAGE.-PAD LOADED-                   (6D)
005109,001196: 
005110,001197: E4,1412                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
005111,001198: 
005112,001199: 
005113,001200:                                                                                                  #  STORAGE FOR RLS AND TLAND - PAD LOADS - ORDER IS RETAINED FOR UPLINK. (8D)
005114,001201: 
005115,001202: E4,1420                        RLS                ERASE    +5                                    #  I(6) LANDING SITE VECTOR - MOON REF.
005116,001203: E4,1426                        TLAND              ERASE    +1                                    #  B(2) NOMINAL LANDING TIME.
005117,001204: 
005118,001205:                                                                                                  #           INTEGRATION STORAGE.                          (94D)
005119,001206: 
005120,001207: E4,1430                        PBODY              ERASE    +93D                                  #  I(1)
005121,001208: E4,1566  E4,1431               ALPHAV             EQUALS   PBODY      +1                         #  I(6)
005122,001209: E4,1566  E4,1437               BETAV              EQUALS   ALPHAV     +6                         #  I(6)
005123,001210: E4,1566  E4,1445               PHIV               EQUALS   BETAV      +6                         #  I(6)
005124,001211: E4,1566  E4,1453               PSIV               EQUALS   PHIV       +6                         #  I(6)
005125,001212: E4,1566  E4,1461               FV                 EQUALS   PSIV       +6                         #  I(6)    PERTURBING ACCELERATIONS
005126,001213: E4,1566  E4,1467               ALPHAM             EQUALS   FV         +6                         #  I(2)
005127,001214: E4,1566  E4,1471               BETAM              EQUALS   ALPHAM     +2                         #  I(2)
005128,001215: E4,1566  E4,1473               TAU.               EQUALS   BETAM      +2                         #  I(2)
005129,001216: 

Page 119

005131,001218: E4,1566  E4,1475               DT/2               EQUALS   TAU.       +2                         #  I(2)
005132,001219: E4,1566  E4,1477               H                  EQUALS   DT/2       +2                         #  I(2)
005133,001220: E4,1566  E4,1501               IRETURN            EQUALS   H          +2                         #  I(1)
005134,001221: E4,1566  E4,1502               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)
005135,001222: E4,1566  E4,1503               RPQV               EQUALS   NORMGAM    +1                         
005136,001223: E4,1566  E4,1511               ORIGEX             EQUALS   RPQV       +6                         #  I(1)
005137,001224: E4,1566  E4,1511               KEPRTN             EQUALS   ORIGEX                                #  I(1)
005138,001225: E4,1566  E4,1512               RPSV               EQUALS   ORIGEX     +1                         #  I(6)
005139,001226: E4,1566  E4,1520               XKEPNEW            EQUALS   RPSV       +6                         #  I(2)
005140,001227: E4,1566  E4,1522               VECTAB             EQUALS   XKEPNEW    +2                         #  I(36D)
005141,001228: 
005142,001229: 
005143,001230:                                                                                                  #           R04 - R77 FAIL COUNTER                        (1D)
005144,001231: 
005145,001232: E4,1566                        RFAILCNT           ERASE                                          #  B(1)
005146,001233: 
005147,001234: 
005148,001235:                                                                                                  #           SERVICER STORAGE   (USED BY ALL POWERED FLIGHT PROGS.)  (18D)
005149,001236: 
005150,001237: E4,1567  E4,1536               XNBPIP             EQUALS   VECTAB     +12D                       #  I(6)
005151,001238: E4,1567  E4,1544               YNBPIP             EQUALS   XNBPIP     +6                         #  I(6)
005152,001239: E4,1567  E4,1552               ZNBPIP             EQUALS   YNBPIP     +6                         #  I(6)
005153,001240: 
005154,001241: 
005155,001242:                                                                                                  #           SOME VERB 82 STORAGE                          (4D)
005156,001243: 
005157,001244: E4,1567  E4,1512               HAPOX              EQUALS   RPSV                                  #  I(2)
005158,001245: E4,1567  E4,1514               HPERX              EQUALS   HAPOX      +2                         #  I(2)
005159,001246: 
005160,001247:                                                                                                  #           V82 STORAGE                                   (6D)
005161,001248: 
005162,001249: E4,1567  E4,1560               VONE'              EQUALS   VECTAB     +30D                       #  I(6)TMP  NORMAL VELOCITY VONE /SQRT. MU
005163,001250: 
005164,001251: 
005165,001252:                                                                                                  #          R31 (V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-      (26D)
005166,001253: 
005167,001254: E4,1567  E4,1503               BASETHV            EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
005168,001255: 
005169,001256: 
005170,001257: E4,1567  E4,1512               BASETIME           EQUALS   RPSV                                  #  I(2)   TIME ASSOC WITH BASE VECTORS
005171,001258: E4,1567  E4,1571               BASEOTV            EQUALS   YLEM                                  #  I(6)    BASE VELOC VECTOR OTHER VEH
005172,001259: 
005173,001260: 
005174,001261: E4,1567  E4,1530               BASEOTP            EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
005175,001262: 
005176,001263: E4,1567  E4,1560               BASETHP            EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
005177,001264: 

Page 120

005179,001266:                                                                                                  #           KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D)
005180,001267:                                                                                                  #           CONICS)
005181,001268: 
005182,001269: E4,1567                        EPSILONT           ERASE    +1                                    #  I(2)
005183,001270: 
005184,001271: 
005185,001272:                                                                                                  #           R36 STORAGE  (N90)                             (6D)
005186,001273: E4,1571                        YLEM               ERASE    +5                                    #  I(2)
005187,001274: E4,1577  E4,1573               YDOTLEM            EQUALS   YLEM       +2                         #  I(2)
005188,001275: E4,1577  E4,1575               PHILEM             EQUALS   YDOTLEM    +2                         #  I(2)
005189,001276: 
005190,001277: 
005191,001278:                                                                                                  #           VERB 83 STORAGE.                              (18D)
005192,001279: 
005193,001280: E4,1577                        RONE               ERASE    +17D                                  #  I(6)
005194,001281: E4,1621  E4,1605               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
005195,001282: 
005196,001283: 
005197,001284: E4,1621  E4,1613               RANGE              EQUALS   VONE       +6                         #  I(2)
005198,001285: E4,1621  E4,1615               RRATE              EQUALS   RANGE      +2                         #  I(2)
005199,001286: E4,1621  E4,1617               RTHETA             EQUALS   RRATE      +2                         #  I(2)
005200,001287: 
005201,001288: 
005202,001289:                                                                                                  #           VERB 67 STORAGE                               (6D)
005203,001290: 
005204,001291: E4,1621  E4,1571               WWPOS              EQUALS   YLEM                                  #  B(2)   NOUN 99  (V67)
005205,001292: E4,1621  E4,1573               WWVEL              EQUALS   WWPOS      +2                         #  B(2)   NOUN 99  (V67)
005206,001293: E4,1621  E4,1575               WWBIAS             EQUALS   WWVEL      +2                         #  B(2)   NOUN 99  (V67)
005207,001294: 
005208,001295: 
005209,001296: 
005210,001297: 
005211,001298:                                                                                                  #           V82 STORAGE. (CANNOT OVERLAY RONE OR VONE)    (5D)
005212,001299: 
005213,001300: E4,1621  E4,1530               V82FLAGS           EQUALS   VECTAB     +6                         #   (1) FOR V82 BITS.
005214,001301: E4,1621  E4,1531               TFF                EQUALS   V82FLAGS   +1                         #  I(2)
005215,001302: E4,1621  E4,1533               -TPER              EQUALS   TFF        +2                         #  I(2)
005216,001303: 
005217,001304:                                                                                                  #           MORE V82 STORAGE.  (CANNOT OVERLAY RONE OR VONE) (6D)
005218,001305: 
005219,001306: E4,1621  E4,1571               HPERMIN            EQUALS   YLEM                                  #  I(2)   SET TO 300K FT OR 35K FT SR30.1
005220,001307: E4,1621  E4,1573               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
005221,001308: E4,1621  E4,1575               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
005222,001309: 
005223,001310: 
005224,001311:                                                                                                  #           ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE.       (18D)
005225,001312: 

Page 121

005227,001314:                                                                                                  #                UNSHARED WHILE LM ON LUNAR SURFACE.
005228,001315: 
005229,001316: E4,1621                        GSAV               ERASE    +17D                                  #  I(6)
005230,001317: E4,1643  E4,1627               YNBSAV             EQUALS   GSAV       +6                         #  I(6)
005231,001318: E4,1643  E4,1635               ZNBSAV             EQUALS   YNBSAV     +6                         #  I(6)
005232,001319: 
005233,001320: 
005234,001321:                                                                                                  #           KALCMANU STORAGE. CAN OVERLAY GSAV.           (18D)
005235,001322: 
005236,001323: E4,1643  E4,1621               MFS                EQUALS   GSAV                                  #  I(18)
005237,001324: E4,1643  E4,1621               MFI                EQUALS   MFS                                   #  I
005238,001325: E4,1643  E4,1621               KEL                EQUALS   MFS                                   #  I(18)
005239,001326: 
005240,001327:                                                                                                  #           P32-P35, P72-P75 STORAGE.                     (40D)
005241,001328: 
005242,001329: E4,1643                        T1TOT2             ERASE    +1                                    #   (2)     TIME FROM CSI TO CDH
005243,001330: E4,1645                        T2TOT3             ERASE    +1                                    #   (2)
005244,001331: E4,1647                        ELEV               ERASE    +1                                    #   (2)
005245,001332: E4,1651                        UP1                ERASE    +5                                    #   (6)
005246,001333: E4,1657                        DELVEET1           ERASE    +5                                    #  I(6)     DV CSI IN REF
005247,001334: E4,1665                        DELVEET2           ERASE    +5                                    #  I(6)     DV CSH IN REF
005248,001335: E4,1673                        RACT1              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CSI TIME
005249,001336: E4,1701                        RACT2              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CDH TIME
005250,001337: E4,1707                        RTSR1/MU           ERASE    +1                                    #   (2)     SQ ROOT 1/MU STORAGE
005251,001338: E4,1711                        RTMU               ERASE    +1                                    #   (2)     MU STORAGE
005252,001339: 
005253,001340: 
005254,001341:                                                                                                  #           (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
005255,001342: 
005256,001343: E4,1713  E4,1643               +MGA               EQUALS   T1TOT2                                #   (2) S-S + MID GIM ANGL TO DELVEET3
005257,001344: 
005258,001345: 
005259,001346: E4,1713  E4,1651               UNRM               EQUALS   UP1                                   #  I(6) S-S
005260,001347: 
005261,001348: 
005262,001349: E4,1713  E4,1673               DVLOS              EQUALS   RACT1                                 #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
005263,001350: E4,1713  E4,1701               ULOS               EQUALS   RACT2                                 #  I(6) S-S UNIT LINE OF SIGHT VECTOR
005264,001351: 
005265,001352: 
005266,001353: E4,1713  E4,1707               NOMTPI             EQUALS   RTSR1/MU                              #  (2) S-S NOMINAL TPI TIME FOR RECYCLE
005267,001354: 
005268,001355: 
005269,001356:                                                                                                  #           SOME P30 STORAGE.                             (4D)
005270,001357: 
005271,001358: E4,1713  E4,1707               HAPO               EQUALS   RTSR1/MU                              #  I(2)
005272,001359: E4,1713  E4,1711               HPER               EQUALS   HAPO       +2                         #  I(2)
005273,001360: 

Page 122

005275,001362:                                                                                                  #           THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
005276,001363: 
005277,001364: E4,1713  E4,1400               TRANSM1            EQUALS   WRENDPOS                              #  E4,1400
005278,001365: E4,1713  E4,1422               ALFDK              EQUALS   TRANSM1    +18D                       
005279,001366: 
005280,001367: 
005281,001368:                                                                                                  #  ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
005282,001369: 
005283,001370: 
005284,001371:                                                                                                  #           V47(R47)AGS INITIALIZATION PROGRAM STORAGE.  (OVERLAYS V83) (14D)
005285,001372: 
005286,001373: E4,1713  E4,1571               AGSBUFF            EQUALS   YLEM                                  #  B(14)
005287,001374: E4,1713  E4,1606               AGSBUFFE           EQUALS   AGSBUFF    +13D                       #  ENDMARK
005288,001375: 
005289,001376: 
005290,001377:                                                                                                  #           R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE.  (OVERLAYS V83)  (12D)
005291,001378: 
005292,001379: E4,1713  E4,1577               RPASS36            EQUALS   RONE                                  #  I(6) S-S
005293,001380: E4,1713  E4,1605               UNP36              EQUALS   RPASS36    +6                         #  I(6) S-S
005294,001381: 
005295,001382: 
005296,001383:                                                                                                  #           S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64). (OVERLAYS V83)        (10D)
005297,001384: 
005298,001385: 
005299,001386: E4,1713  E4,1571               ALPHASB            EQUALS   YLEM                                  #  B(2)  DSP NOUN 51 PITCH ANGLE
005300,001387: E4,1713  E4,1573               BETASB             EQUALS   ALPHASB    +2                         #  B(2)DSP NOUN 51. YAW ANGLE.
005301,001388: E4,1713  E4,1575               RLM                EQUALS   BETASB     +2                         #  I(6)S    S/C POSITION VECTOR.
005302,001389: 
005303,001390:                                                                                                  #           **** USED IN S-BAND ANTENNA FOR LM ****        (4D)
005304,001391: 
005305,001392: E4,1713  E4,1571               PITCHANG           EQUALS   ALPHASB                               #  I(2) PITCH/ANTENNA GIMBAL ANGLE REQUIRED
005306,001393: E4,1713  E4,1573               YAWANG             EQUALS   BETASB                                #  I(2) YAW  /TO POINT LM STEERABLE ANTENNA
005307,001394:                                                                                                  #            /TOWARD CENTER OF EARTH
005308,001395:                                                                                                  #           NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85. (4)
005309,001396: 
005310,001397: E4,1713  E4,1571               RR-AZ              EQUALS   PITCHANG                              #  I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
005311,001398: E4,1713  E4,1573               RR-ELEV            EQUALS   RR-AZ      +2                         #  I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
005312,001399: 
005313,001400:                                                                                                  #           R04(V62) RADAR TEST STORAGE.                  (8D)
005314,001401: 
005315,001402: 
005316,001403: E4,1713  E4,1571               RSTACK             EQUALS   YLEM                                  #  B(8) BUFFER FOR R04 NOUNS
005317,001404: 
005318,001405: 
005319,001406: 
005320,001407:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
005321,001408: 
005322,001409:                                                                                                  #                   (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
005323,001410: E4,1713                        RINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE POSITION
005324,001411: E4,1721                        VINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE VELOCITY
005325,001412: 

Page 123

005327,001414: E4,1727                        VIPRIME            ERASE    +5                                    #  I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
005328,001415: 
005329,001416:                                                                                                  #   BALLANGS-AUTOMATIC MANEUVER -- R60,(N18              (3D)
005330,001417: 
005331,001418: E4,1735                        FDAIX              ERASE                                          #  I(1)
005332,001419: E4,1736                        FDAIY              ERASE                                          #  I(1)
005333,001420: E4,1737                        FDAIZ              ERASE                                          #  I(1)
005334,001421: 
005335,001422: 
005336,001423:                                                                                                  #           P34-P35 STORAGE.  DOWNLINKED.                 (2D)
005337,001424: 
005338,001425: E4,1740                        DELVTPF            ERASE    +1                                    #  I(2) DELTA V FOR TPF
005339,001426: 
005340,001427: 
005341,001428:                                                                                                  #           LPS20.1 STORAGE.  CALLED BY R65.              (12D)
005342,001429: 
005343,001430: E4,1742                        LMPOS              ERASE    +5                                    #  I(6)TEMP. STORAGE FOR LM POS. VECTOR.
005344,001431: E4,1750                        LMVEL              ERASE    +5                                    #  I(6)TEMP. STORAGE FOR LM VEL. VECTOR.
005345,001432: 
005346,001433:                                                                                                  #  INITVEL STORAGE.  ALSO USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED.  (6D)
005347,001434: 
005348,001435: E4,1756                        DELVEET3           ERASE    +5                                    #  I(6) DELTA V IN INERTIAL COORDINATES.
005349,001436: 
005350,001437: 
005351,001438:                                                                                                  #           SOME R04(V63)-R77 STORAGE.                    (5D)
005352,001439: 
005353,001440: E4,1764                        RTSTDEX            ERASE                                          #  B(1)
005354,001441: E4,1765                        RTSTMAX            ERASE                                          #  B(1)
005355,001442: E4,1766                        RTSTBASE           ERASE                                          #  B(1)
005356,001443: E4,1767                        RTSTLOC            ERASE                                          #  B(1)
005357,001444: E4,1770                        RSAMPDT            ERASE                                          #  B(1)
005358,001445: 
005359,001446: 
005360,001447:                                                                                                  #           SECOND DPS GUIDANCE  (LUNAR LANDING) (OVERLAYS KALCMANU & P57) (6D)
005361,001448: 
005362,001449: E4,1771  E4,1621               ANGTERM            =        GSAV                                  #  I(6)     GUIDANCE
005363,001450: 
005364,001451: 
005365,001452: 
005366,001453: 
005367,001454:                                                                                                  #           ASCENT GUIDANCE FOR LUNAR LANDING             (54D)
005368,001455: 
005369,001456: E4,1771  E4,1653               AT                 EQUALS   UP1        +2                         #  I(2)TMP ENGINE DATA -- THRUST ACC*2 (9)
005370,001457: E4,1771  E4,1655               VE                 EQUALS   AT         +2                         #  I(2)TMP  EXHAUST VELOCITY * 2(7)M/CS.
005371,001458: E4,1771  E4,1657               TTO                EQUALS   VE         +2                         #  I(2)TMP  TAILOFF TIME * 2(17)CS.
005372,001459: E4,1771  E4,1661               TBUP               EQUALS   TTO        +2                         #  I(2)TMP  (M/MDOT) * 2(17)CS.
005373,001460: E4,1771  E4,1663               RDOTD              EQUALS   TBUP       +2                         #  I(2)TMP  TARGET VELOCITY COMPONENTS
005374,001461: E4,1771  E4,1665               YDOTD              EQUALS   RDOTD      +2                         #  I(2)TMP SCALING IS 2(7)M/CS.
005375,001462: E4,1771  E4,1667               ZDOTD              EQUALS   YDOTD      +2                         #  I(2)TMP
005376,001463: 

Page 124

005378,001465: E4,1771  E4,1671               /R/MAG             EQUALS   ZDOTD      +2                         #  I(2)TMP
005379,001466: E4,1771  E4,1673               LAXIS              EQUALS   /R/MAG     +2                         #  I(6)TMP
005380,001467: 
005381,001468: 
005382,001469: E4,1771  E4,1701               YDOT               =        LAXIS      +6                         #  I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
005383,001470: E4,1771  E4,1703               ZDOT               EQUALS   YDOT       +2                         #  I(2)TMP  DOWN RANGE VEL *2(-7).
005384,001471: E4,1771  E4,1705               GEFF               EQUALS   ZDOT       +2                         #  I(2)TMP  EFFECTIVE GRAVITY
005385,001472: 
005386,001473:                                                                                                  #     THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
005387,001474: 
005388,001475: E4,1771  E4,1725               Y                  EQUALS   /LAND/     +2                         #  I(2)TMP  OUT-OF-PLANE DIST *2(24)M
005389,001476: E4,1771  E4,1727               DRDOT              EQUALS   Y          +2                         #  I(2)TMP  RDOTD - RDOT
005390,001477: E4,1771  E4,1731               DYDOT              EQUALS   DRDOT      +2                         #  I(2)TMP  YDOTD - YDOT
005391,001478: E4,1771  E4,1733               DZDOT              EQUALS   DYDOT      +2                         #  I(2)TMP  ZDOTD - ZDOT
005392,001479: E4,1771  E4,1735               PCONS              EQUALS   DZDOT      +2                         #  I(2)TMP  CONSTANT IN ATR EQUATION
005393,001480: E4,1771  E4,1737               YCONS              EQUALS   PCONS      +2                         #  I(2)TMP  CONSTANT IN ATY EQUATION
005394,001481: E4,1771  E4,1741               PRATE              EQUALS   YCONS      +2                         #  I(2)TMP  RATE COEFF. IN ATR EQUATION
005395,001482: E4,1771  E4,1743               YRATE              EQUALS   PRATE      +2                         #  I(2)TMP  RATE COEFF. IN ATY EQUATION
005396,001483: E4,1771  E4,1745               ATY                EQUALS   YRATE      +2                         #  I(2)TMP  OUT-OF-PLANE THRUST COMP.*2(9)
005397,001484: E4,1771  E4,1747               ATR                EQUALS   ATY        +2                         #  I(2)TMP  RADIAL THRUST COMP.* 2(9)
005398,001485: E4,1771  E4,1751               ATP                EQUALS   ATR        +2                         #  I(2)TMP  DOWN-RANGE THRUST COMP
005399,001486: E4,1771  E4,1753               YAW                EQUALS   ATP        +2                         #  I(2)TMP
005400,001487: E4,1771  E4,1755               PITCH              EQUALS   YAW        +2                         #  I(2)RMP
005401,001488: 
005402,001489: 
005403,001490:                                                                                                  #           SERVICER FOR LUNAR ASCENT AND DESCENT         (14D)
005404,001491: 
005405,001492: E4,1771  E4,1707               G(CSM)             EQUALS   GEFF       +2                         #  I(6) FOR UPDATE OF COMMAND MODULE STATE
005406,001493:                                                                                                  # R(CSM)          EQUALS          R-OTHER                      VECTORS BY LEM; ANALOGS OF GDT/2,
005407,001494:                                                                                                  # V(CSM)          EQUALS          V-OTHER                      R, AND V, RESPECTIVELY OF THE CSM
005408,001495: E4,1771  E4,1715               WM                 EQUALS   G(CSM)     +6                         #  I(6) TMP - LUNAR ROTATION VECTOR (SM)
005409,001496: E4,1771  E4,1723               /LAND/             EQUALS   WM         +6                         #  B(2) LUNAR RADIUS AT LANDING SITE
005410,001497: 
005411,001498: 
005412,001499:                                                                                                  #           NOTE:  R(CSM) AND V(CSM) DEFINED IN E3.
005413,001500:                                                                                                  #           NOUN 26 ERASABLES      (UNSHARED)             (3D)
005414,001501: 
005415,001502: E4,1771  E4,1771               N26/PRI            EQUALS   RSAMPDT    +1                         #  B(1)  PRIO/DELAY
005416,001503: E4,1771  E4,1772               N26/2CAD           EQUALS   N26/PRI    +1                         #  B(1)  JOB/TASK 2CADR
005417,001504: 

Page 125

005419,001506:                                                                                                  #           EBANK-5 ASSIGNMENTS
005420,001507: 
005421,001508: E5,1400                                           SETLOC   2400                                  
005422,001509: 
005423,001510:                                                                                                  #           W-MATRIX. ESSENTIALLY UNSHARABLE.            (162D)
005424,001511: 
005425,001512: E5,1400                        W                  ERASE    +161D                                 
005426,001513: E5,1642  E5,1642               ENDW               EQUALS   W          +162D                      
005427,001514: 
005428,001515: 
005429,001516: 
005430,001517:                                                                                                  #  ******* OVERLAY NUMBER 1 IN EBANK 5 *******
005431,001518: 
005432,001519: 
005433,001520:                                                                                                  #          W-MATRIX OVERLAY: PADLOADS -- LANDING, ABORTS               (122D)
005434,001521: E5,1642  E5,1400               VELBIAS            EQUALS   W                                     #  I(2) PL BIAS VALUE FOR VELOCITY.
005435,001522:                                                                                                  #  REASONABILITY TEST, 2(6) M/CS
005436,001523:                                                                                                  #  PLEASE PRESERVE THE ORDER OF RBRFGX THROUGH TCGIAPPR.
005437,001524: E5,1642  E5,1402               RBRFGX             EQUALS   VELBIAS    +2                         #  I(2)  POSITION TARGETS
005438,001525: E5,1642  E5,1404               RAPFGX             EQUALS   RBRFGX     +2                         #  I(2)
005439,001526: E5,1642  E5,1406               RBRFGZ             EQUALS   RAPFGX     +2                         #  I(2)
005440,001527: E5,1642  E5,1410               RAPFGZ             EQUALS   RBRFGZ     +2                         #  I(2)
005441,001528: E5,1642  E5,1412               VBRFGX             EQUALS   RAPFGZ     +2                         #  I(2)  VELOCITY TARGETS
005442,001529: E5,1642  E5,1414               VAPFGX             EQUALS   VBRFGX     +2                         #  I(2)
005443,001530: E5,1642  E5,1416               VBRFGZ             EQUALS   VAPFGX     +2                         #  I(2)
005444,001531: E5,1642  E5,1420               VAPFGZ             EQUALS   VBRFGZ     +2                         #  I(2)
005445,001532: E5,1642  E5,1422               ABRFGX             EQUALS   VAPFGZ     +2                         #  I(2)  ACCELERATION TARGETS
005446,001533: E5,1642  E5,1424               AAPFGX             EQUALS   ABRFGX     +2                         #  I(2)
005447,001534: E5,1642  E5,1426               ABRFGZ             EQUALS   AAPFGX     +2                         #  I(2)
005448,001535: E5,1642  E5,1430               AAPFGZ             EQUALS   ABRFGZ     +2                         #  I(2)
005449,001536: E5,1642  E5,1432               VBRFG*             EQUALS   AAPFGZ     +2                         #  I(2)  SCALED TARGETS FOR TTF/8CL
005450,001537: E5,1642  E5,1434               VAPFG*             EQUALS   VBRFG*     +2                         #  I(2)
005451,001538: E5,1642  E5,1436               ABRFG*             EQUALS   VAPFG*     +2                         #  I(2)
005452,001539: E5,1642  E5,1440               AAPFG*             EQUALS   ABRFG*     +2                         #  I(2)
005453,001540: E5,1642  E5,1442               JBRFG*             EQUALS   AAPFG*     +2                         #  I(2)
005454,001541: E5,1642  E5,1444               JAPFG*             EQUALS   JBRFG*     +2                         #  I(2)
005455,001542:                                                                                                  #                      * SEE PARAMETER TABLE IN LUNAR LANDING GUIDANCE EQUATIONS FOR
005456,001543:                                                                                                  #                                    INDIRECT ADDRESSING INTO ABOVE AREA.
005457,001544: 
005458,001545: E5,1642  E5,1446               GAINBRAK           EQUALS   JAPFG*     +2                         #  I(2)  GAINS FOR GUIDANCE FRAME ERECTION
005459,001546: E5,1642  E5,1450               GAINAPPR           EQUALS   GAINBRAK   +2                         #  I(2)
005460,001547: E5,1642  E5,1452               TCGFBRAK           EQUALS   GAINAPPR   +2                         #  I(2)  TIME CRITERIA FOR GUIDANCE FRAME
005461,001548: E5,1642  E5,1453               TCGIBRAK           EQUALS   TCGFBRAK   +1                         #  I(1)
005462,001549: E5,1642  E5,1454               TCGFAPPR           EQUALS   TCGIBRAK   +1                         #  I(1)
005463,001550: E5,1642  E5,1455               TCGIAPPR           EQUALS   TCGFAPPR   +1                         #  I(1)
005464,001551: E5,1642  E5,1456               VIGN               EQUALS   TCGIAPPR   +1                         #  I(2)  DESIRED SPEED FOR PDI
005465,001552: E5,1642  E5,1460               RIGNX              EQUALS   VIGN       +2                         #  I(2)  DESIRED 'ALTITUDE' FOR IGNITION
005466,001553: E5,1642  E5,1462               RIGNZ              EQUALS   RIGNX      +2                         #  I(2)  DESIRED GROUND RANGE FOR IGNITION
005467,001554: E5,1642  E5,1464               KIGNX/B4           EQUALS   RIGNZ      +2                         #  I(2)
005468,001555: 

Page 126

005470,001557: E5,1642  E5,1466               KIGNY/B8           EQUALS   KIGNX/B4   +2                         #  I(2)
005471,001558: E5,1642  E5,1470               KIGNV/B4           EQUALS   KIGNY/B8   +2                         #  I(2)
005472,001559: E5,1642  E5,1472               LOWCRIT            EQUALS   KIGNV/B4   +2                         #  B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
005473,001560: E5,1642  E5,1473               HIGHCRIT           EQUALS   LOWCRIT    +1                         #  B(1)
005474,001561: E5,1642  E5,1474               TAUHZ              EQUALS   HIGHCRIT   +1                         #  P66 HORIZONTAL
005475,001562: E5,1642  E5,1475               QHZ                EQUALS   TAUHZ      +1                         #      VELOCITY NULLING
005476,001563: E5,1642  E5,1476               AHZLIM             EQUALS   QHZ        +1                         #        CONSTANTS
005477,001564: E5,1642  E5,1477               2LATE466           EQUALS   AHZLIM     +1                         #  I(2) MIN ELAPSED TIME SINCE PIPTIME ERE
005478,001565:                                                                                                  #  A P66(2 R/D) WILL BE OMITTED
005479,001566: E5,1642  E5,1503               DELQFIX            EQUALS   2LATE466   +4                         #  I(2)  LR ALT. DATA REASONABILITY PARAM
005480,001567: 
005481,001568:                                                                                                  #                ** NOTE: 6 ERASABLES HERE IN THIS "LANDING/ABORTS" OVERLAY ARE FREE
005482,001569:                                                                                                  #                         THEY SHARE ONLY WITH W-MATRIX AND SYSTEM TEST ERASABLES    **
005483,001570: 
005484,001571: E5,1642  E5,1511               LRVMAX             EQUALS   DELQFIX    +6                         #  B(1)   LR VEL WEIGHTING FUNCTIONS
005485,001572: E5,1642  E5,1512               LRVF               EQUALS   LRVMAX     +1                         #  B(1)   LR VEL WEIGHTING FUNCTIONS
005486,001573: E5,1642  E5,1513               LRWVZ              EQUALS   LRVF       +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005487,001574: E5,1642  E5,1514               LRWVY              EQUALS   LRWVZ      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005488,001575: E5,1642  E5,1515               LRWVX              EQUALS   LRWVY      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005489,001576: E5,1642  E5,1516               LRWVFZ             EQUALS   LRWVX      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005490,001577: E5,1642  E5,1517               LRWVFY             EQUALS   LRWVFZ     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005491,001578: E5,1642  E5,1520               LRWVFX             EQUALS   LRWVFY     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005492,001579: E5,1642  E5,1521               LRWVFF             EQUALS   LRWVFX     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005493,001580: 
005494,001581: E5,1642  E5,1522               ABSC0              EQUALS   LRWVFF     +1                         #  B(1)  ABSCISSAE DEFINING TERRAIN MODEL
005495,001582: E5,1642  E5,1523               ABSC1              EQUALS   ABSC0      +1                         #  B(1)
005496,001583: E5,1642  E5,1524               ABSC2              EQUALS   ABSC1      +1                         #  B(1)
005497,001584: E5,1642  E5,1525               ABSC3              EQUALS   ABSC2      +1                         #  B(1)
005498,001585: E5,1642  E5,1526               ABSC4              EQUALS   ABSC3      +1                         #  B(1)
005499,001586: E5,1642  E5,1527               SLOPE0             EQUALS   ABSC4      +1                         #  B(1)  SLOPES DEFINING TERRAIN MODEL
005500,001587: E5,1642  E5,1530               SLOPE1             EQUALS   SLOPE0     +1                         #  B(1)
005501,001588: E5,1642  E5,1531               SLOPE2             EQUALS   SLOPE1     +1                         #  B(1)
005502,001589: E5,1642  E5,1532               SLOPE3             EQUALS   SLOPE2     +1                         #  B(1)
005503,001590: E5,1642  E5,1533               SLOPE4             EQUALS   SLOPE3     +1                         #  B(1)
005504,001591: 
005505,001592: E5,1642     0130               ABVEL*             EQUALS   BUF                                   #  B(1)   LR TEMP
005506,001593: E5,1642     0131               VSELECT*           EQUALS   BUF        +1                         #  B(1)   LR TEMP
005507,001594: 
005508,001595: E5,1642  E5,1534               RODSCALE           EQUALS   SLOPE4     +1                         #  I(2) CLICK SCALE FACTOR FOR R.O.D.
005509,001596: E5,1642  E5,1535               TAUROD             EQUALS   RODSCALE   +1                         #  I(2) TIME CONSTANT FOR R.O.D.
005510,001597: E5,1642  E5,1537               LAG/TAU            EQUALS   TAUROD     +2                         #  I(2) LAG TIME DIVIDED BY TAUROD (P66)
005511,001598: E5,1642  E5,1541               MINFORCE           EQUALS   LAG/TAU    +2                         #  I(2) MINIMUM FORCE P66 WILL COMMAND.
005512,001599: E5,1642  E5,1543               MAXFORCE           EQUALS   MINFORCE   +2                         #  I(2) MAXIMUM FORCE P66 WILL COMMAND.
005513,001600: E5,1642  E5,1545               J1PARM             EQUALS   MAXFORCE   +2                         #  I(2) PARAMETER SET # 1:
005514,001601: E5,1642  E5,1547               K1PARM             EQUALS   J1PARM     +2                         #  I(2)    ABORT ORBIT SEMI-MAJOR AXIS COMP
005515,001602: E5,1642  E5,1551               J2PARM             EQUALS   K1PARM     +2                         #  I(2) PARAMETER SET # 2:
005516,001603: E5,1642  E5,1553               K2PARM             EQUALS   J2PARM     +2                         #  I(2)    ABORT ORBIT SEMI-MAJOR AXIS COMP
005517,001604: E5,1642  E5,1555               THETCRIT           EQUALS   K2PARM     +2                         #  I(2) CENTRAL ANGLE SWITCHING CRITERION.
005518,001605: E5,1642  E5,1557               RAMIN              EQUALS   THETCRIT   +2                         #  I(2) MINIMUM ALLOWABLE APOLUNE.
005519,001606: E5,1642  E5,1561               YLIM               EQUALS   RAMIN      +2                         #  I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS
005520,001607: 

Page 127

005522,001609: E5,1642  E5,1563               ABTRDOT            EQUALS   YLIM       +2                         #  I(2) DESIRED RADIAL VEL. FOR ABORTS.
005523,001610: E5,1642  E5,1565               COSTHET1           EQUALS   ABTRDOT    +2                         #  I(2) COS OF CONE 1 ANGLE FOR ABORTS
005524,001611: E5,1642  E5,1567               COSTHET2           EQUALS   COSTHET1   +2                         #  I(2) COS OF CONE 2 ANGLE FOR ABORTS.
005525,001612: 
005526,001613: 
005527,001614:                                                                                                  #           SOME VARIABLES FOR SECOND DPS GUIDANCE       (38D)
005528,001615: 
005529,001616: E5,1642  E5,1571               CG                 EQUALS   COSTHET2   +2                         #  I(18D) GUIDANCE
005530,001617: E5,1642  E5,1613               RANGEDSP           EQUALS   CG         +18D                       #  B(2) DISPLAY
005531,001618: E5,1642  E5,1613               OUTOFPLN           EQUALS   RANGEDSP                              #  *** OUTOFPLN CAN OVERLAY RANGEDSP ***
005532,001619: E5,1642  E5,1615               VBIAS              EQUALS   OUTOFPLN   +2                         #  I(6) PIPA BIAS EQUIV VELOCITY VECTOR
005533,001620: E5,1642  E5,1623               RGU                EQUALS   VBIAS      +6                         #  I(6) UNSHARED POSITION, GUIDANCE COORDS
005534,001621: E5,1642  E5,1631               DLAND              EQUALS   RGU        +6                         #  B(6) PL LANDING SITE CORRECTION,SM FRAME
005535,001622: E5,1642  E5,1631               DLANDX             EQUALS   DLAND                                 
005536,001623: E5,1642  E5,1633               DLANDY             EQUALS   DLAND      +2                         
005537,001624: E5,1642  E5,1635               DLANDZ             EQUALS   DLAND      +4                         
005538,001625: 
005539,001626:                                                                                                  #                OVERLAYS OF THE BLOCK ABOVE (ASCENT AND DESCENT)
005540,001627: 
005541,001628: E5,1642  E5,1571               JPARM              EQUALS   CG                                    #  I(2) JPARM WILL EQUAL J1PARM OR J2PARM
005542,001629: E5,1642  E5,1573               KPARM              EQUALS   JPARM      +2                         #  I(2) KPARM WILL EQUAL K1PARM OR K2PARM
005543,001630: E5,1642  E5,1575               RP                 EQUALS   KPARM      +2                         #  I(2) PREDICTED BURNOUT RADIUS-M*2(-24)
005544,001631: E5,1642  E5,1577               QAXIS              EQUALS   RP         +2                         #  I(6) ASCENT CROSSRANGE HALF-UNIT VECTOR
005545,001632: E5,1642  E5,1605               ZAXIS1             EQUALS   QAXIS      +6                         #  I(6) ASCENT DOWNRANGE HALF-UNIT VECTOR
005546,001633: E5,1642     0130               L*WCR*T            =        BUF                                   
005547,001634: E5,1642     0131               H*GHCR*T           =        BUF        +1                         
005548,001635: 
005549,001636: 
005550,001637:                                                                                                  #           Q-SAVE REGISTER FOR ASCENT                    (1D)
005551,001638: 
005552,001639: E5,1642  E5,1637               ASCSAVE            EQUALS   DLAND      +6                         #  I(1)TMP ASCENT Q-SAVE
005553,001640: 
005554,001641: 
005555,001642:                                                                                                  #           ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.    (36D)
005556,001643: 
005557,001644: E5,1642  E5,1642               XSM                EQUALS   ENDW                                  #  B(6)
005558,001645: E5,1642  E5,1650               YSM                EQUALS   XSM        +6                         #  B(6)
005559,001646: E5,1642  E5,1656               ZSM                EQUALS   YSM        +6                         #  B(6)
005560,001647: 
005561,001648: E5,1642  E5,1664               XDC                EQUALS   ZSM        +6                         #  B(6)
005562,001649: E5,1642  E5,1672               YDC                EQUALS   XDC        +6                         #  B(6)
005563,001650: E5,1642  E5,1700               ZDC                EQUALS   YDC        +6                         #  B(6)
005564,001651: 
005565,001652: E5,1642  E5,1664               XNB                =        XDC                                   
005566,001653: E5,1642  E5,1672               YNB                =        YDC                                   
005567,001654: E5,1642  E5,1700               ZNB                =        ZDC                                   
005568,001655: 
005569,001656:                                                                                                  #           MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52)    (6D)
005570,001657: 

Page 128

005572,001659: 
005573,001660: E5,1642  E5,1706               LANDLAT            EQUALS   STARAD                                #  (2) LATITUDE, LONGITUDE
005574,001661: E5,1642  E5,1710               LANDLONG           EQUALS   LANDLAT    +2                         #  (2)     AND ALTITUDE
005575,001662: E5,1642  E5,1712               LANDALT            EQUALS   LANDLONG   +2                         #  (2)     OF LANDING SITE
005576,001663: 
005577,001664: 
005578,001665:                                                                                                  #           ALIGNMENT/SYSTEST COMMON STORAGE.             (31D)
005579,001666: 
005580,001667: E5,1642  E5,1706               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
005581,001668: E5,1642  E5,1730               STAR               EQUALS   STARAD     +18D                       #  I(6)
005582,001669: E5,1642  E5,1736               GCTR               EQUALS   STAR       +6                         #  B(1)
005583,001670: E5,1642  E5,1737               OGC                EQUALS   GCTR       +1                         #  I(2)
005584,001671: E5,1642  E5,1741               IGC                EQUALS   OGC        +2                         #  I(2)
005585,001672: E5,1642  E5,1743               MGC                EQUALS   IGC        +2                         #  I(2)
005586,001673: 
005587,001674:                                                                                                  #           P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE)   (12D)
005588,001675: 
005589,001676: E5,1642  E5,1706               GACC               =        STARAD                                #  (6) SS
005590,001677: E5,1642  E5,1714               GOUT               =        STARAD     +6                         #  (6) SS
005591,001678: 
005592,001679: 
005593,001680:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE      (24D)
005594,001681: 
005595,001682: E5,1642  E5,1706               VEARTH             EQUALS   STARAD                                #  (6)TMP
005596,001683: E5,1642  E5,1714               VSUN               EQUALS   VEARTH     +6                         #  (6)TMP
005597,001684: E5,1642  E5,1722               VMOON              EQUALS   VSUN       +6                         #  (6)TMP
005598,001685: E5,1642  E5,1730               SAX                EQUALS   VMOON      +6                         #  (6)TMP
005599,001686: 
005600,001687: 
005601,001688:                                                                                                  #           P50'S,R50'S Q STORES.                         (2D)
005602,001689: 
005603,001690: E5,1642  E5,1745               QMIN               EQUALS   MGC        +2                         #  B(1)TMP
005604,001691: E5,1642  E5,1746               QMAJ               EQUALS   QMIN       +1                         #  B(1)TMP
005605,001692: 
005606,001693: 
005607,001694:                                                                                                  #        **** USED IN P50S **** (SCATTERED OVERLAYS)      (18D)
005608,001695: E5,1642  E5,1706               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
005609,001696: 
005610,001697: 
005611,001698:                                                                                                  #           ALIGNMENT STORAGE.                            (23D)
005612,001699: 
005613,001700: E5,1642  E5,1747               OGCT               EQUALS   QMAJ       +1                         #  I(6)
005614,001701: E5,1642  E5,1755               BESTI              EQUALS   OGCT       +6                         #  I(1)
005615,001702: E5,1642  E5,1756               BESTJ              EQUALS   BESTI      +1                         
005616,001703: E5,1642  E5,1757               STARIND            EQUALS   BESTJ      +1                         
005617,001704:                                                                                                  #  RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
005618,001705: E5,1642  E5,1760               STARSAV1           EQUALS   STARIND    +1                         #  I(6)
005619,001706: E5,1642  E5,1766               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)
005620,001707: E5,1642  E5,1774               TALIGN             EQUALS   STARSAV2   +6                         #  B(2) TIME OF IMU ALIGNMENT  (DOWNLINKED)
005621,001708: 

Page 129

005623,001710:                                                                                                  #           P32-35 + SERVICER                             (2D)
005624,001711: 
005625,001712: E5,1642  E5,1776               RTX1               EQUALS   TALIGN     +2                         #  I(1) X1  -2 EARTH, -10 MOON
005626,001713: E5,1642  E5,1777               RTX2               EQUALS   RTX1       +1                         #  I(1) X2  0 EARTH, 2 MOON
005627,001714: 
005628,001715: E5,1642                        ZPRIME             =        22D                                   
005629,001716: E5,1642                        COSTH              =        16D                                   
005630,001717: E5,1642                        SINTH              =        18D                                   
005631,001718: E5,1642                        THETA              =        20D                                   
005632,001719: 

Page 130

005634,001721:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 5 *******
005635,001722: 
005636,001723:                                                                                                  #          CONICS ROUTINE STORAGE.                       (85D)
005637,001724: 
005638,001725: E5,1642  E5,1642               DELX               EQUALS   ENDW                                  #  I(2)TMP
005639,001726: E5,1642  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
005640,001727: E5,1642  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
005641,001728: E5,1642                        RCNORM             EQUALS   34D                                   #  I(2) TMP
005642,001729:                                                                                                  #          NOTE: RCNORM (ABOVE) IS DEFINED IN VAC AREA
005643,001730: 
005644,001731: E5,1642  E5,1654               R1VEC              EQUALS   URRECT     +6                         #  I(6) TMP
005645,001732: E5,1642  E5,1662               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
005646,001733: E5,1642  E5,1670               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
005647,001734: E5,1642  E5,1672               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
005648,001735: E5,1642  E5,1673               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
005649,001736: E5,1642  E5,1701               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
005650,001737: E5,1642  E5,1702               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
005651,001738: E5,1642  E5,1710               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
005652,001739: E5,1642  E5,1711               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
005653,001740: E5,1642  E5,1717               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
005654,001741: E5,1642  E5,1721               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
005655,001742: E5,1642  E5,1727               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
005656,001743: E5,1642  E5,1731               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
005657,001744: E5,1642  E5,1733               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
005658,001745: E5,1642  E5,1735               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
005659,001746: E5,1642  E5,1737               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
005660,001747: E5,1642  E5,1741               R1A                EQUALS   P          +2                         #  I(2)TMP
005661,001748: E5,1642  E5,1654               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
005662,001749: E5,1642  E5,1743               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
005663,001750: E5,1642  E5,1710               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
005664,001751: E5,1642  E5,1751               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
005665,001752: E5,1642  E5,1710               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
005666,001753: E5,1642  E5,1710               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
005667,001754: E5,1642  E5,1717               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
005668,001755: E5,1642  E5,1753               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
005669,001756: E5,1642  E5,1754               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
005670,001757: E5,1642  E5,1755               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
005671,001758: E5,1642  E5,1757               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
005672,001759: E5,1642  E5,1761               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
005673,001760: E5,1642  E5,1757               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
005674,001761: E5,1642  E5,1761               TPREV              EQUALS   DEPREV                                #  I(2)TMP
005675,001762: E5,1642  E5,1763               EPSILONL           EQUALS   DEPREV     +2                         #  I(2)TMP
005676,001763: E5,1642  E5,1765               COGA               EQUALS   EPSILONL   +2                         #  I(2)  COTAN OF INITIAL FLIGHT PATH ANGLE.
005677,001764: E5,1642  E5,1765               INDEP              EQUALS   COGA                                  #        USED BY SUBROUTINE'ITERATOR'.
005678,001765: 

Page 131

005680,001767:                                                                                                  #  ******* OVERLAY NUMBER 3 IN EBANK 5 *******
005681,001768: 
005682,001769: 
005683,001770:                                                                                                  #          INCORP STORAGE.                               (18D)
005684,001771: 
005685,001772: E5,1642  E5,1642               ZI                 EQUALS   ENDW                                  #  I(18)TMP
005686,001773: 
005687,001774:                                                                                                  #          INCORP/L SR22.3 STORAGE.                      (21D)
005688,001775: 
005689,001776: E5,1642  E5,1664               DELTAX             EQUALS   ZI         +18D                       #  I(18)
005690,001777: E5,1642  E5,1706               VARIANCE           EQUALS   DELTAX     +18D                       #  I(3)
005691,001778: 
005692,001779:                                                                                                  #          MEASUREMENT INCORPORATION -R22- STORAGE.      (49D)
005693,001780: 
005694,001781: E5,1642  E5,1711               GRP2SVQ            EQUALS   VARIANCE   +3                         #  I(1)TMP QSAVE FOR RESTARTS
005695,001782: E5,1642  E5,1712               OMEGAM1            EQUALS   GRP2SVQ    +1                         #  I(6)
005696,001783: E5,1642  E5,1720               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)
005697,001784: E5,1642  E5,1726               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)
005698,001785: E5,1642  E5,1734               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)
005699,001786: 
005700,001787: E5,1642  E5,1664               TRIPA              EQUALS   DELTAX                                #  I(3)TMP
005701,001788: E5,1642  E5,1667               TEMPVAR            EQUALS   TRIPA      +3                         #  I(3)TMP
005702,001789: 
005703,001790: 
005704,001791: 
005705,001792:                                                                                                  #  INCORPORATION/INTEGRATION Q STORAGE.          (1D)
005706,001793: 
005707,001794: E5,1642  E5,1767               EGRESS             EQUALS   COGA       +2                         #  I(1)
005708,001795: 

Page 132

005710,001797:                                                                                                  #          SYSTEM TEST ERASABLES.  CAN OVERLAY W MATRIX. (127D)
005711,001798: 
005712,001799:                                                                                                  #  ******* OVERLAY NUMBER 0 IN EBANK 5 *******
005713,001800: 
005714,001801: E5,1642  E5,1400               AZIMUTH            EQUALS   W                                     #  2
005715,001802: E5,1642  E5,1402               LATITUDE           EQUALS   AZIMUTH    +2                         #  2
005716,001803: E5,1642  E5,1404               ERVECTOR           EQUALS   LATITUDE   +2                         #  6
005717,001804: E5,1642  E5,1412               LENGTHOT           EQUALS   ERVECTOR   +6                         #  1
005718,001805: E5,1642  E5,1413               LOSVEC             EQUALS   LENGTHOT   +1                         #  6
005719,001806: E5,1642  E5,1414               NDXCTR             EQUALS   LOSVEC     +1                         #  1
005720,001807: E5,1642  E5,1415               PIPINDEX           EQUALS   NDXCTR     +1                         #  1
005721,001808: E5,1642  E5,1416               POSITON            EQUALS   PIPINDEX   +1                         #  1
005722,001809: E5,1642  E5,1417               QPLACE             EQUALS   POSITON    +1                         #  1
005723,001810: E5,1642  E5,1420               QPLACES            EQUALS   QPLACE     +1                         #  1
005724,001811: E5,1642  E5,1421               SOUTHDR            EQUALS   QPLACES    +1                         #  7
005725,001812: E5,1642  E5,1430               TEMPTIME           EQUALS   SOUTHDR    +7                         #  2
005726,001813: E5,1642  E5,1432               TMARK              EQUALS   TEMPTIME   +2                         #  2
005727,001814: E5,1642  E5,1434               GENPL              EQUALS   TMARK      +2                         
005728,001815: E5,1642  E5,1440               TEMPADD            =        GENPL      +4                         
005729,001816: E5,1642  E5,1441               TEMP               =        GENPL      +5                         
005730,001817: E5,1642  E5,1442               NOBITS             =        GENPL      +6                         
005731,001818: E5,1642  E5,1443               CHAN               =        GENPL      +7                         
005732,001819: 
005733,001820: E5,1642  E5,1444               LOS1               =        GENPL      +8D                        
005734,001821: E5,1642  E5,1452               LOS2               =        GENPL      +14D                       
005735,001822: 
005736,001823: E5,1642  E5,1472               DATAPL             EQUALS   GENPL      +30D                       
005737,001824: E5,1642  E5,1537               RESULTCT           EQUALS   GENPL      +67D                       
005738,001825: E5,1642  E5,1434               AINLA              =        GENPL                                 #  110 DE  OR 156 OCT LOCATIONS
005739,001826: 
005740,001827: E5,1642  E5,1434               WANGO              EQUALS   AINLA                                 #  VERT E ATE
005741,001828: E5,1642  E5,1436               WANGI              EQUALS   AINLA      +2D                        #  HORIZO TAL ERATE
005742,001829: E5,1642  E5,1440               WANGT              EQUALS   AINLA      +4D                        #  T
005743,001830: E5,1642  E5,1440               TORQNDX            =        WANGT                                 
005744,001831: E5,1642  E5,1442               DRIFTT             EQUALS   AINLA      +6D                        
005745,001832: E5,1642  E5,1444               ALX1S              EQUALS   AINLA      +8D                        
005746,001833: E5,1642  E5,1445               CMPX1              EQUALS   AINLA      +9D                        #  IND
005747,001834: E5,1642  E5,1446               ALK                EQUALS   AINLA      +10D                       #  GAINS
005748,001835: E5,1642  E5,1462               VLAUNS             EQUALS   AINLA      +22D                       
005749,001836: E5,1642  E5,1464               WPLATO             EQUALS   AINLA      +24D                       
005750,001837: E5,1642  E5,1470               INTY               EQUALS   AINLA      +28D                       #  SOUTH  IP INTE
005751,001838: E5,1642  E5,1472               ANGZ               EQUALS   AINLA      +30D                       #  EAST A IS
005752,001839: E5,1642  E5,1474               INTZ               EQUALS   AINLA      +32D                       #  EAST P P I
005753,001840: E5,1642  E5,1476               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
005754,001841: E5,1642  E5,1500               ANGX               EQUALS   AINLA      +36D                       #  VE
005755,001842: E5,1642  E5,1502               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
005756,001843: E5,1642  E5,1504               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
005757,001844: E5,1642  E5,1510               VLAUN              EQUALS   AINLA      +44D                       
005758,001845: E5,1642  E5,1512               ACCWD              EQUALS   AINLA      +46D                       
005759,001846: 

Page 133

005761,001848: E5,1642  E5,1520               POSNV              EQUALS   AINLA      +52D                       
005762,001849: E5,1642  E5,1522               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
005763,001850: E5,1642  E5,1526               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH  IP INCREMENT
005764,001851: E5,1642  E5,1530               ALTIM              EQUALS   AINLA      +60D                       
005765,001852: E5,1642  E5,1531               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
005766,001853: E5,1642  E5,1532               ALDK               EQUALS   AINLA      +62D                       #   TIME  ONSTAN
005767,001854: E5,1642  E5,1550               DELM               EQUALS   AINLA      +76D                       
005768,001855: E5,1642  E5,1560               WPLATI             EQUALS   AINLA      +84D                       
005769,001856: E5,1642  E5,1562               GEOCOMPS           EQUALS   AINLA      +86D                       
005770,001857: E5,1642  E5,1563               ERCOMP             EQUALS   AINLA      +87D                       
005771,001858: E5,1642  E5,1571               ZERONDX            EQUALS   AINLA      +93D                       
005772,001859: 
005773,001860: E5,1642  E5,1452               THETAN             =        ALK        +4                         
005774,001861: E5,1642  E5,1460               FILDELV            EQUALS   THETAN     +6                         #   AGS ALIGNMENT STORAGE
005775,001862: E5,1642  E5,1462               INTVEC             EQUALS   FILDELV    +2                         
005776,001863: E5,1642  E5,1572               1SECXT             =        AINLA      +94D                       
005777,001864: E5,1642  E5,1573               ASECXT             =        AINLA      +95D                       
005778,001865: E5,1642  E5,1574               PERFDLAY           EQUALS   AINLA      +96D                       #  B(2) DELAY TIME BEF. START DRIFT MEASURE
005779,001866: E5,1642  E5,1576               OVFLOWCK           EQUALS   AINLA      +98D                       #  (1) SET MEANS OVERFLOW IN IMU PERF TEST
005780,001867:                                                                                                  #      AND CAUSES TERMINATION
005781,001868: 
005782,001869: 
005783,001870: E5,1642                        END-E5             EQUALS   2777                                  #  END OF EBANK 5
005784,001871: 

Page 134

005786,001873:                                                                                                  #           EBANK-6 ASSIGNMENTS.
005787,001874: 
005788,001875: E6,1400                                           SETLOC   3000                                  
005789,001876: 
005790,001877:                                                                                                  #           DAP PAD-LOADED DATA.                          (10D)
005791,001878: 
005792,001879:                                                                                                  #    ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
005793,001880: 
005794,001881: E6,1400                        HIASCENT           ERASE                                          #  (1) MASS AFTER STAGING, SCALE AT B16 KG.
005795,001882: E6,1401                        ROLLTIME           ERASE                                          #  (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
005796,001883: E6,1402                        PITTIME            ERASE                                          #  (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
005797,001884: E6,1403                        DKTRAP             ERASE                                          #  (1) DAP STATE            (POSSIBLE 77001
005798,001885: E6,1404                        DKOMEGAN           ERASE                                          #  (1)   ESTIMATOR PARA-      (VALUES 00012
005799,001886: E6,1405                        DKKAOSN            ERASE                                          #  (1)      METERS FOR THE           00074
005800,001887: E6,1406                        LMTRAP             ERASE                                          #  (1)         DOCKED AND            77001
005801,001888: E6,1407                        LMOMEGAN           ERASE                                          #  (1)            LEM-ALONE CASES    00000
005802,001889: E6,1410                        LMKAOSN            ERASE                                          #  (1)               RESPECTIVELY    00074
005803,001890: E6,1411                        DKDB               ERASE                                          #  (1) WIDTH OF DEADBAND FOR DOCKED RCS
005804,001891:                                                                                                  #      AUTOPILOT (DB=1.4DEG IN FRESH START)
005805,001892:                                                                                                  #      DEADBAND = PI/DKDB RAD.
005806,001893: 
005807,001894:                                                                                                  #   PADLOADS FOR INITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION)   (2D)
005808,001895: 
005809,001896: E6,1412                        IGNAOSQ            ERASE                                          #  B(1)PL
005810,001897: E6,1413                        IGNAOSR            ERASE                                          #  B(1)PL
005811,001898: 
005812,001899: 
005813,001900:                                                                                                  #   AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:    (5D)
005814,001901: 
005815,001902: E6,1414                        M11                ERASE                                          #  SCALED AT 1
005816,001903: E6,1415                        M21                ERASE                                          #  SCALED AT 1
005817,001904: E6,1416                        M31                ERASE                                          
005818,001905: E6,1417                        M22                ERASE                                          #  SCALED AT 1.
005819,001906: E6,1420                        M32                ERASE                                          #  SCALED AT 1.
005820,001907: 
005821,001908:                                                                                                  #   ANGLE MEASUREMENTS.                                    (31D)
005822,001909: 
005823,001910: E6,1421                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
005824,001911: E6,1426  E6,1422               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
005825,001912: E6,1426  E6,1423               OMEGAR             EQUALS   OMEGAP     +2                         
005826,001913:                                                                                                  #      RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
005827,001914: E6,1426  E6,1424               ALPHAQ             EQUALS   OMEGAP     +3                         
005828,001915: E6,1426  E6,1425               ALPHAR             EQUALS   OMEGAP     +4                         
005829,001916: E6,1426                        OMEGAU             ERASE    +1                                    
005830,001917: E6,1430  E6,1427               OMEGAV             =        OMEGAU     +1                         
005831,001918: 
005832,001919: E6,1430                        TRAPEDP            ERASE    +5                                    
005833,001920: E6,1436  E6,1431               TRAPEDQ            =        TRAPEDP    +1                         
005834,001921: E6,1436  E6,1432               TRAPEDR            =        TRAPEDP    +2                         
005835,001922: E6,1436  E6,1433               NPTRAPS            =        TRAPEDP    +3                         
005836,001923: 

Page 135

005838,001925: E6,1436  E6,1434               NQTRAPS            =        TRAPEDP    +4                         
005839,001926: E6,1436  E6,1435               NRTRAPS            =        TRAPEDP    +5                         
005840,001927: E6,1436  E6,1427               EDOTP              =        EDOT                                  
005841,001928: E6,1436                        EDOTQ              ERASE    +1                                    
005842,001929: E6,1440  E6,1437               EDOTR              =        EDOTQ      +1                         #   MANY SHARING NAMES
005843,001930: E6,1440  E6,1436               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
005844,001931: E6,1440  E6,1437               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
005845,001932: 
005846,001933: E6,1440  E6,1426               URATEDIF           EQUALS   OMEGAU                                
005847,001934: E6,1440  E6,1427               VRATEDIF           EQUALS   OMEGAV                                
005848,001935: E6,1440                        OLDXFORP           ERASE    +2                                    #  STORED CDU READINGS FOR STATE
005849,001936: E6,1443  E6,1441               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
005850,001937: E6,1443  E6,1442               OLDZFORQ           EQUALS   OLDXFORP   +2                         
005851,001938:                                                                                                  #  RATE-COMMAND AND MINIMUM IMPULSE MODES
005852,001939: 
005853,001940: E6,1443                        CH31TEMP           ERASE                                          
005854,001941: E6,1444                        STIKSENS           ERASE                                          
005855,001942: E6,1445                        TCP                ERASE                                          
005856,001943: E6,1446                        DXERROR            ERASE    +5                                    
005857,001944: E6,1454  E6,1450               DYERROR            EQUALS   DXERROR    +2                         
005858,001945: E6,1454  E6,1452               DZERROR            EQUALS   DXERROR    +4                         
005859,001946: E6,1454                        PLAST              ERASE                                          
005860,001947: E6,1455                        QLAST              ERASE                                          
005861,001948: E6,1456                        RLAST              ERASE                                          
005862,001949: E6,1457                        TCQR               ERASE                                          
005863,001950: 
005864,001951:                                                                                                  #  OTHER VARIABLES.                              (5D)
005865,001952: 
005866,001953: E6,1460                        OLDPMIN            ERASE                                          #  THESE THREE USED IN MIN IMPULSE MODE.
005867,001954: E6,1461                        OLDQRMIN           ERASE                                          
005868,001955: E6,1462  E6,1736               TEMP31             EQUALS   DAPTEMP1                              
005869,001956: 
005870,001957: E6,1462                        SAVEHAND           ERASE    +1                                    
005871,001958: E6,1464                        PERROR             ERASE                                          
005872,001959: E6,1465  E6,1450               QERROR             EQUALS   DYERROR                               
005873,001960: E6,1465  E6,1452               RERROR             EQUALS   DZERROR                               
005874,001961: 
005875,001962:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW   (10D)
005876,001963:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
005877,001964: 
005878,001965: E6,1465                        NXT6ADR            ERASE                                          
005879,001966: E6,1466                        T6NEXT             ERASE    +1                                    
005880,001967: E6,1470                        T6FURTHA           ERASE    +1                                    
005881,001968: E6,1472                        NEXTP              ERASE    +2                                    
005882,001969: E6,1475  E6,1473               NEXTU              =        NEXTP      +1                         
005883,001970: E6,1475  E6,1474               NEXTV              =        NEXTP      +2                         
005884,001971: E6,1475                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
005885,001972: E6,1477  E6,1476               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
005886,001973: 
005887,001974: E6,1477  E6,1476               TARGETDB           EQUALS   -RATEDB                               #  MAN. CONTROL TARGET DB COMPLEMENT.
005888,001975: 
005889,001976:                                                                                                  #        *** Q,R AXIS ERASABLES ***                        (3)
005890,001977: 

Page 136

005892,001979: E6,1477     4733               PBIT               EQUALS   BIT10                                 
005893,001980: E6,1477     4732               QRBIT              EQUALS   BIT11                                 
005894,001981: E6,1477  E6,1750               UERROR             EQUALS   DAPTREG5                              #  U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
005895,001982: E6,1477  E6,1751               VERROR             =        UERROR     +1                         
005896,001983: E6,1477                        RETJADR            ERASE                                          
005897,001984: E6,1500  E6,1741               TEMPNUM            EQUALS   DAPTEMP4                              
005898,001985: E6,1500  E6,1742               NUMBERT            EQUALS   DAPTEMP5                              
005899,001986: E6,1500  E6,1743               ROTINDEX           EQUALS   DAPTEMP6                              
005900,001987: E6,1500  E6,1736               ROTEMP1            EQUALS   DAPTEMP1                              
005901,001988: E6,1500  E6,1737               ROTEMP2            EQUALS   DAPTEMP2                              
005902,001989: E6,1500  E6,1740               POLYTEMP           EQUALS   DAPTEMP3                              
005903,001990: E6,1500                        SENSETYP           ERASE                                          
005904,001991: E6,1501  E6,1736               ABSTJ              EQUALS   DAPTEMP1                              #  ABS VALUE OF JET-FIRING TIME
005905,001992: E6,1501  E6,1736               ABSEDOTP           EQUALS   DAPTEMP1                              
005906,001993: 

Page 137

005908,001995:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:                     (11D)
005909,001996: 
005910,001997: E6,1501  E6,1736               GTSTEMPS           EQUALS   DAPTEMP1                              #  GTS IS PART OF THE JASK.
005911,001998: E6,1501  E6,1740               SHFTFLAG           EQUALS   GTSTEMPS   +2                         #  COUNT BITS FOR GTSQRT SHIFTING.
005912,001999: E6,1501  E6,1743               ININDEX            EQUALS   GTSTEMPS   +5                         #  INDEX FOR SHIFT LOOP IN GTSQRT.
005913,002000: 
005914,002001: E6,1501  E6,1505               SAVESR             EQUALS   AXISCTR                               #  CANNOT BE A DAPTEMP - GTS USES THEM ALL.
005915,002002: 
005916,002003: E6,1501  E6,1745               SCRATCH            EQUALS   GTSTEMPS   +7                         #  ROOTCYCL ERASABLE
005917,002004: E6,1501  E6,1746               HALFARG            EQUALS   GTSTEMPS   +8D                        #  ROOTCYCL ERASABLE.
005918,002005: 
005919,002006: E6,1501  E6,1736               K2THETA            EQUALS   GTSTEMPS                              #  D.P., K*ERROR,  NEGUSUM
005920,002007: E6,1501  E6,1740               KCENTRAL           EQUALS   GTSTEMPS   +2                         #  S.P., K FROM KQ OR KRDAP, AT PI/2(8)
005921,002008: E6,1501  E6,1741               K2CNTRAL           EQUALS   GTSTEMPS   +3                         #  D.P., GTS SCRATCH CELLS.
005922,002009: E6,1501  E6,1742               WCENTRAL           EQUALS   GTSTEMPS   +4                         #  S.P., OMEGA, AT PI/4 RAD/SEC
005923,002010: E6,1501  E6,1743               ACENTRAL           EQUALS   GTSTEMPS   +5                         #  S.P., ALPHA, AT PI/4 RAD/SEC(2)
005924,002011: E6,1501  E6,1744               DEL                EQUALS   GTSTEMPS   +6                         #  S.P., SGN FUNCTION VALUE.
005925,002012: E6,1501  E6,1745               A2CNTRAL           EQUALS   GTSTEMPS   +7                         #  D.P., GTS SCRATCH CELLS.
005926,002013: E6,1501  E6,1747               QRCNTR             EQUALS   GTSTEMPS   +9D                        #  S.P.,INDEX FOR GTS LOOP THROUGH Q,R AXES
005927,002014: E6,1501  E6,1750               FUNCTION           EQUALS   GTSTEMPS   +10D                       #  D.P.,ARGUMENT FOR GRSQRT,SCRATCH FOR GTS
005928,002015: 
005929,002016: E6,1501                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
005930,002017:                                                                                                  #                                NEGUQ           +1          DEFINED AND USED ELSEWHERE
005931,002018: E6,1504  E6,1503               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
005932,002019: 
005933,002020: E6,1504                        KQ                 ERASE    +2                                    #  S.P.,JERK TERM FOR GTS, AT PI/2(8)
005934,002021: E6,1507  E6,1505               AXISCTR            EQUALS   KQ         +1                         
005935,002022: E6,1507  E6,1506               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
005936,002023: 
005937,002024: E6,1507                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
005938,002025: E6,1513  E6,1510               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
005939,002026: E6,1513  E6,1511               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
005940,002027: E6,1513  E6,1512               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
005941,002028: 
005942,002029: E6,1513  E6,1450               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
005943,002030: E6,1513  E6,1452               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
005944,002031: 
005945,002032: 
005946,002033: 
005947,002034: 
005948,002035:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:       (17D)
005949,002036: 
005950,002037: E6,1513  E6,1744               JETRATE            EQUALS   DAPTREG1                              
005951,002038: E6,1513  E6,1745               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
005952,002039: E6,1513  E6,1746               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
005953,002040: 
005954,002041: E6,1513                        DOWNTORK           ERASE    +5                                    #  ACCUMULATED JET TORQUE COMMANDED ABOUT
005955,002042: E6,1521  E6,1513               POSTORKP           EQUALS   DOWNTORK                              #    +,-P, +,-U, +,-V RESPECTIVELY.
005956,002043: E6,1521  E6,1514               NEGTORKP           EQUALS   DOWNTORK   +1                         
005957,002044: E6,1521  E6,1515               POSTORKU           EQUALS   DOWNTORK   +2                         #    NOT INITIALIZED; PERMITTED TO OVERFLOW
005958,002045: 

Page 138

005960,002047: E6,1521  E6,1516               NEGTORKU           EQUALS   DOWNTORK   +3                         #  SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
005961,002048: E6,1521  E6,1517               POSTORKV           EQUALS   DOWNTORK   +4                         #      MSEC PER BIT.
005962,002049: E6,1521  E6,1520               NEGTORKV           EQUALS   DOWNTORK   +5                         
005963,002050: 
005964,002051: E6,1521                        NO.PJETS           ERASE    +2                                    
005965,002052: E6,1524  E6,1522               NO.UJETS           =        NO.PJETS   +1                         
005966,002053: E6,1524  E6,1523               NO.VJETS           =        NO.UJETS   +1                         
005967,002054: E6,1524                        TJP                ERASE    +2                                    
005968,002055: E6,1527  E6,1525               TJU                =        TJP        +1                         
005969,002056: E6,1527  E6,1526               TJV                =        TJP        +2                         
005970,002057: 
005971,002058: E6,1527                        L,PVT-CG           ERASE                                          
005972,002059: E6,1530                        1JACC              ERASE    +3                                    
005973,002060: E6,1534  E6,1531               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
005974,002061: E6,1534  E6,1532               1JACCR             EQUALS   1JACC      +2                         
005975,002062: E6,1534  E6,1533               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
005976,002063:                                                                                                  #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
005977,002064:                                                                                                  #  ASCENT VARIABLES:                                       (10D)
005978,002065: 
005979,002066: 
005980,002067: E6,1534                        SKIPU              ERASE    +1                                    
005981,002068: E6,1536  E6,1535               SKIPV              =        SKIPU      +1                         
005982,002069:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
005983,002070:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
005984,002071:                                                                                                  #  SECTIONS AND ELSEWHERE.
005985,002072: 
005986,002073: E6,1536                        AOSQ               ERASE    +5                                    #  OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
005987,002074: E6,1544  E6,1540               AOSR               EQUALS   AOSQ       +2                         #  AND SCALED AT PI/2.
005988,002075: E6,1544  E6,1542               AOSU               EQUALS   AOSQ       +4                         #  UV-AXES OFFSET ACC. FROMED BY VECTOR
005989,002076: E6,1544  E6,1543               AOSV               EQUALS   AOSQ       +5                         #  ADDITION OF Q,R.  AT PI/2 RAD/SEC(2).
005990,002077: 
005991,002078: E6,1544                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
005992,002079: E6,1546  E6,1545               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
005993,002080: 
005994,002081:                                                                                                  #  FOR TJET LAW SUBROUTINE:                              (TEMPS ONLY)
005995,002082: 
005996,002083:                                                                                                  # NUMBERT        EQUALS          DAPTEMP5                DEFINED IN QRAXIS.
005997,002084: E6,1546  E6,1736               EDOTSQ             EQUALS   DAPTEMP1                              
005998,002085: E6,1546  E6,1737               ROTSENSE           EQUALS   DAPTEMP2                              
005999,002086: E6,1546  E6,1740               FIREFCT            EQUALS   DAPTEMP3                              #  LOOKED AT BY PAXIS.
006000,002087: E6,1546  E6,1741               TTOAXIS            EQUALS   DAPTEMP4                              
006001,002088: E6,1546  E6,1743               ADRSDIF2           EQUALS   DAPTEMP6                              
006002,002089: E6,1546  E6,1744               HOLDQ              EQUALS   DAPTREG1                              
006003,002090: E6,1546  E6,1745               ADRSDIF1           EQUALS   DAPTREG2                              
006004,002091: E6,1546  E6,1746               HH                 EQUALS   DAPTREG3                              #  DOUBLE PRECISION
006005,002092:                                                                                                  #  HH +1         EQUALS          DAPTREG4
006006,002093: E6,1546  E6,1751               E                  EQUALS   DAPTREG6                              #  TIME SHARE WITH VERROR
006007,002094: E6,1546  E6,1427               EDOT               EQUALS   OMEGAV                                
006008,002095: 
006009,002096:                                                                                                  #  INPUT TO TJET LAW (PERMANENT ERASABLES).              (48D)
006010,002097: 

Page 139

006012,002099: E6,1546  E6,1525               TJETU              =        TJU                                   #  EQUATE NAMES.  INDEXED BY -1, 0, +1.
006013,002100: E6,1546                        BLOCKTOP           ERASE    +47D                                  
006014,002101:                                                                                                  #                * SEE AOSTASK AND AOSJOB LOG SECTION FOR ERASABLE DEFINITIONS
006015,002102:                                                                                                  #                                         IN THIS AREA.
006016,002103: 
006017,002104: E6,1626  E6,1566               1/ANET1            =        BLOCKTOP   +16D                       #  THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
006018,002105: E6,1626  E6,1567               1/ANET2            =        1/ANET1    +1                         #  FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
006019,002106: E6,1626  E6,1572               1/ACOAST           =        1/ANET1    +4                         #  EDOT IS POSITIVE.  TJETLAW INDEXES BY
006020,002107: E6,1626  E6,1574               ACCFCTZ1           =        1/ANET1    +6                         #  ADRSDIFF FROM THESE REGISTERS TO PICK UP
006021,002108: E6,1626  E6,1575               ACCFCTZ5           =        1/ANET1    +7                         #  PARAMETERS FOR THE PROPER AXIS, NUMBER
006022,002109: E6,1626  E6,1600               FIREDB             =        1/ANET1    +10D                       #  OF JETS AND SIGN OF EDOT.  THERE ARE 48
006023,002110: E6,1626  E6,1602               COASTDB            =        1/ANET1    +12D                       #  REGISTERS IN ALL IN THIS BLOCK.
006024,002111: E6,1626  E6,1604               AXISDIST           =        1/ANET1    +14D                       #  FOUR NOT REFERENCED (P-AXIS) ARE FILLED
006025,002112:                                                                                                  #    IN BY THE FOLLOWING:
006026,002113: E6,1626  E6,1546               ACCSWU             =        BLOCKTOP                              #  SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
006027,002114: E6,1626  E6,1547               ACCSWV             =        ACCSWU     +1                         #  JETS ARE REQUIRED BECAUSE OF AOS.
006028,002115: E6,1626  E6,1554               FLAT               =        BLOCKTOP   +6                         #  WIDTH OF MINIMUM IMPULSE ZONE.
006029,002116: E6,1626  E6,1555               ZONE3LIM           =        BLOCKTOP   +7                         #  HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC)
006030,002117: 
006031,002118: E6,1626                        COEFFQ             ERASE    +1                                    #  COEFFQ AND COEFFR ARE USED IN ROT-TOUV
006032,002119: E6,1630  E6,1627               COEFFR             EQUALS   COEFFQ     +1                         #  TO RESOLVE Q,R COMPONENTS INTO U,V COMP.
006033,002120: 
006034,002121:                                                                                                  #  VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE.              (4)
006035,002122: 
006036,002123: E6,1630  E6,1502               ALLOWGTS           EQUALS   NEGUQ      +1                         #  INSERT INTO UNUSED LOCATION
006037,002124: E6,1630                        COTROLER           ERASE                                          #  INDICATES WHICH CONTROL SYSTEM TO USE.
006038,002125: E6,1631                        QGIMTIMR           ERASE    +2                                    #  Q-GIMBAL DRIVE ITMER, DECISECONDS.
006039,002126: E6,1634  E6,1632               INGTS              EQUALS   QGIMTIMR   +1                         #  INDICATOR OF CURRENT GTS CONTROL.
006040,002127: E6,1634  E6,1633               RGIMTIMR           EQUALS   QGIMTIMR   +2                         #  R-GIMBAL DRIVE TIMER, DECISECONDS.
006041,002128: 
006042,002129:                                                                                                  #  PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
006043,002130: 
006044,002131:                                                                                                  #           KALCMANU:DAP INTERFACE.                        (9D)
006045,002132: 
006046,002133: E6,1634                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
006047,002134: E6,1637  E6,1635               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006048,002135: E6,1637  E6,1636               CDUZD              EQUALS   CDUXD      +2                         #  (STORE IN 2S COMPLEMENT)
006049,002136: 
006050,002137: E6,1637                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
006051,002138: E6,1642  E6,1640               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006052,002139: E6,1642  E6,1641               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORE IN 2S COMPLEMENT)
006053,002140: 
006054,002141:                                                                                                  #     RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
006055,002142: 
006056,002143: E6,1642                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES:
006057,002144: E6,1645  E6,1643               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
006058,002145: E6,1645  E6,1644               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
006059,002146: 
006060,002147:                                                                                                  #  KALCMANU STORAGE.                             (24D)
006061,002148: 

Page 140

006063,002150: E6,1645                        MIS                ERASE    +23D                                  #  I(18D)
006064,002151: E6,1675  E6,1667               COF                EQUALS   MIS        +18D                       #  I(6)
006065,002152: 
006066,002153: 
006067,002154:                                                                                                  #  KALCMANU STORAGE.                                     (33D)
006068,002155: 
006069,002156: E6,1675                        BCDU               ERASE    +30D                                  #  B(3)
006070,002157: E6,1734  E6,1700               KSPNDX             EQUALS   BCDU       +3                         #  B(1)
006071,002158: E6,1734  E6,1701               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)
006072,002159: 
006073,002160: E6,1734  E6,1702               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
006074,002161: E6,1734  E6,1724               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
006075,002162: E6,1734  E6,1732               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
006076,002163: 
006077,002164: E6,1734                        AM                 ERASE    +1                                    #  I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
006078,002165: 
006079,002166:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU                      (25D)
006080,002167: 
006081,002168: E6,1736  E6,1702               MFISYM             EQUALS   TMIS                                  #  I
006082,002169: E6,1736  E6,1702               TMFI               EQUALS   TMIS                                  #  I
006083,002170: E6,1736  E6,1702               NCDU               EQUALS   TMIS                                  #  B
006084,002171: E6,1736  E6,1705               NEXTIME            EQUALS   TMIS       +3                         #  B
006085,002172: E6,1736  E6,1706               TTEMP              EQUALS   TMIS       +4                         #  B
006086,002173: E6,1736  E6,1724               BRATE              EQUALS   COFSKEW                               #  B
006087,002174: E6,1736  E6,1732               TM                 EQUALS   CAM                                   #  B
006088,002175: 
006089,002176:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU             (?)
006090,002177: 
006091,002178: E6,1736  E6,1724               VECQTEMP           =        COFSKEW                               
006092,002179: 
006093,002180: E6,1736  E6,1634               DCDU               =        CDUXD                                 
006094,002181: E6,1736  E6,1637               DELDCDU            =        DELCDUX                               
006095,002182: E6,1736  E6,1640               DELDCDU1           =        DELCDUY                               
006096,002183: E6,1736  E6,1641               DELDCDU2           =        DELCDUZ                               
006097,002184: 
006098,002185: 
006099,002186:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
006100,002187: 
006101,002188:                                                                                                  #  STORAGE FOR FINDCDUW
006102,002189: 
006103,002190:                                                                                                  #           OVERLAYING KALCMANU STORAGE:                  (26D)
006104,002191: 
006105,002192: E6,1736  E6,1645               ECDUW              EQUALS   MIS                                   
006106,002193: E6,1736  E6,1645               ECDUWUSR           EQUALS   ECDUW                                 #  B(1)TMP
006107,002194: E6,1736  E6,1646               QCDUWUSR           EQUALS   ECDUWUSR   +1                         #  I(1)TMP
006108,002195: E6,1736  E6,1647               NDXCDUW            EQUALS   QCDUWUSR   +1                         #  B(1)TMP
006109,002196: E6,1736  E6,1650               FLAGOODW           EQUALS   NDXCDUW    +1                         #  B(1)TMP
006110,002197: E6,1736  E6,1651               UNFC/2             EQUALS   FLAGOODW   +1                         #  I(6)IN
006111,002198: 

Page 141

006113,002200: E6,1736  E6,1657               UNWC/2             EQUALS   UNFC/2     +6                         #  I(6)IN
006114,002201: E6,1736  E6,1665               UNFV/2             EQUALS   UNWC/2     +6                         #  I(6) S-S
006115,002202: E6,1736  E6,1665               UNFVX/2            =        UNFV/2                                
006116,002203: E6,1736  E6,1667               UNFVY/2            =        UNFV/2     +2                         
006117,002204: E6,1736  E6,1671               UNFVZ/2            =        UNFV/2     +4                         
006118,002205: E6,1736  E6,1673               -DELGMB            EQUALS   UNFV/2     +6                         #  B(3)TMP
006119,002206: E6,1736  E6,1676               OGABIAS            EQUALS   -DELGMB    +3                         #  B(1)IN
006120,002207: 
006121,002208:                                                                                                  #           DEFINED IN THE WORK AREA:                     (18D)
006122,002209: 
006123,002210: E6,1736                        UNX/2              =        0                                     
006124,002211: E6,1736                        UNY/2              =        6                                     
006125,002212: E6,1736                        UNZ/2              =        14                                    
006126,002213: 
006127,002214:                                                                                                  #  END OF FINDCDUW ERASABLES
006128,002215: 
006129,002216:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
006130,002217: 
006131,002218:                                                                                                  #  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006132,002219: 
006133,002220:                                                                                                  #  STORAGE FOR P57
006134,002221: 
006135,002222:                                                                                                  #           OVERLAYING KALCMANU AND FINDCDUW STORAGE:     (12D)
006136,002223: 
006137,002224: E6,1736  E6,1645               VEC1               EQUALS   MIS                                   #  I(6)TMP
006138,002225: E6,1736  E6,1653               VEC2               EQUALS   VEC1       +6                         #  I(6)TMP
006139,002226: 
006140,002227:                                                                                                  #  END OF P57 ERASABLES
006141,002228: 
006142,002229:                                                                                                  #  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006143,002230: 
006144,002231:                                                                                                  #  THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
006145,002232:                                                                                                  #  ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED.                              (18D)
006146,002233: 
006147,002234: E6,1736                        DAPTEMP1           ERASE    +17D                                  
006148,002235: E6,1760  E6,1737               DAPTEMP2           EQUALS   DAPTEMP1   +1                         
006149,002236: E6,1760  E6,1740               DAPTEMP3           EQUALS   DAPTEMP1   +2                         
006150,002237: E6,1760  E6,1741               DAPTEMP4           EQUALS   DAPTEMP1   +3                         
006151,002238: E6,1760  E6,1742               DAPTEMP5           EQUALS   DAPTEMP1   +4                         
006152,002239: E6,1760  E6,1743               DAPTEMP6           EQUALS   DAPTEMP1   +5                         
006153,002240: E6,1760  E6,1744               DAPTREG1           EQUALS   DAPTEMP1   +6                         
006154,002241: E6,1760  E6,1744               OLDSENSE           EQUALS   DAPTREG1                              #  B(1)TMP RCS JET CONTROL
006155,002242: E6,1760  E6,1745               DAPTREG2           EQUALS   DAPTEMP1   +7                         
006156,002243: E6,1760  E6,1746               DAPTREG3           EQUALS   DAPTEMP1   +8D                        
006157,002244: E6,1760  E6,1747               DAPTREG4           EQUALS   DAPTEMP1   +9D                        
006158,002245: E6,1760  E6,1750               DAPTREG5           EQUALS   DAPTEMP1   +10D                       
006159,002246: E6,1760  E6,1751               DAPTREG6           EQUALS   DAPTEMP1   +11D                       
006160,002247: 
006161,002248: E6,1760  E6,1752               DAPARUPT           EQUALS   DAPTEMP1   +12D                       
006162,002249: E6,1760  E6,1753               DAPLRUPT           EQUALS   DAPARUPT   +1                         
006163,002250: 

Page 142

006165,002252: E6,1760  E6,1754               DAPBQRPT           EQUALS   DAPARUPT   +2                         
006166,002253: E6,1760  E6,1756               DAPZRUPT           EQUALS   DAPARUPT   +4                         
006167,002254: 
006168,002255:                                                                                                  #  (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
006169,002256: 
006170,002257: 
006171,002258:                                                                                                  #           NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE.   (6D)
006172,002259: 
006173,002260: E6,1760     0061               T5TEMP             EQUALS   ITEMP1                                
006174,002261: E6,1760     0063               DINDX              EQUALS   ITEMP3                                
006175,002262: E6,1760                        AK                 ERASE    +2                                    #  NEEDLER ATTITUDE INPUTS, SCALED AT 180
006176,002263: E6,1763  E6,1761               AK1                EQUALS   AK         +1                         #  DEGREES.  P,Q,R AXES IN AK,AK1,AK2.
006177,002264: E6,1763  E6,1762               AK2                EQUALS   AK         +2                         
006178,002265: 
006179,002266: E6,1763                        EDRIVEX            ERASE    +2                                    #  NEEDLER DISPLAY REGS AT 1800 DEGREES.
006180,002267: E6,1766  E6,1764               EDRIVEY            EQUALS   EDRIVEX    +1                         #  SO THAT 384 BITS REPRESENT 42 3/16 DEG.
006181,002268: E6,1766  E6,1765               EDRIVEZ            EQUALS   EDRIVEX    +2                         
006182,002269: 
006183,002270:                                                                                                  #           DOCKED JET INHIBITION COUNTERS                (3D)
006184,002271: 
006185,002272: E6,1766                        PJETCTR            ERASE    +2                                    
006186,002273: E6,1771  E6,1767               UJETCTR            EQUALS   PJETCTR    +1                         
006187,002274: E6,1771  E6,1770               VJETCTR            EQUALS   PJETCTR    +2                         
006188,002275: 
006189,002276:                                                                                                  #  V47 (R47) AGS INITIALIZATION STORAGE -PAD LOADED.      (2D)
006190,002277: 
006191,002278: E6,1771                        AGSK               ERASE    +1                                    #  I(2) PL
006192,002279: 
006193,002280:                                                                                                  #  WINDOW BIAS PADLOAD                                    (1D)
006194,002281: 
006195,002282: E6,1773                        AZBIAS             ERASE                                          #  B(1) PL LPD AZIMUTH BIAS, UNITS - PI RAD
006196,002283: 
006197,002284:                                                                                                  #           DAP PERMANENT STORAGE                         (1D)
006198,002285: 
006199,002286: E6,1774                        RCSFLAGS           ERASE                                          #  AUTOPILOT FLAG WORD
006200,002287:                                                                                                  #  BIT ASSIGNMENTS:
006201,002288:                                                                                                  #   1) ALTERYZ SWITCH (ZEROOR1)
006202,002289:                                                                                                  #   2) NEEDLER SWITCH
006203,002290:                                                                                                  #   3) NEEDLER SWITCH
006204,002291:                                                                                                  #   4) NEEDLER SWITCH
006205,002292:                                                                                                  #   5) NEEDLER SWITCH
006206,002293:                                                                                                  #   9) JUST-IN-DETENT SWITCH
006207,002294:                                                                                                  #  10) PBIT - MANUAL CONTROL SWITCH
006208,002295:                                                                                                  #  11) QRBIT- MANUAL CONTROL SWITCH
006209,002296:                                                                                                  #  12) PSKIP CONTROL (PJUMPADR)
006210,002297:                                                                                                  #  13) 1/ACCJOB CONTROL (ACCSET)
006211,002298: 

Page 143

006213,002300: E6,1775  E6,1774               END-E6             EQUALS   AZBIAS     +1                         #  NEXT AVAILABLE LOC IN E6.
006214,002301: 

Page 144

006216,002303:                                                                                                  #                  EBANK-7 ASSIGNMENTS
006217,002304: 
006218,002305: E7,1400                                           SETLOC   3400                                  
006219,002306: 
006220,002307:                                                                                                  #           P35 CONSTANTS.        - PAD LOADED -        (4D)
006221,002308: 
006222,002309: E7,1400                        ATIGINC            ERASE    +1                                    #  B(2)PL        *MUST BE AT 1400 FOR SYSTEMSTEST
006223,002310: E7,1402                        PTIGINC            ERASE    +1                                    #  B(2)PL
006224,002311: 
006225,002312: 
006226,002313:                                                                                                  #           AOTMARK STORAGE.      - PAD LOADED -        (12D)
006227,002314: 
006228,002315: E7,1404                        AOTAZ              ERASE    +5                                    #  B(6)PL
006229,002316: E7,1412                        AOTEL              ERASE    +5                                    #  B(6)PL
006230,002317: 
006231,002318:                                                                                                  #           LANDING RADAR.        - PAD LOADED -        (3D)
006232,002319: 
006233,002320: E7,1420                        LRHMAX             ERASE                                          #  B(1)
006234,002321: E7,1421                        LRWH               ERASE                                          #  B(1)
006235,002322: 
006236,002323: 
006237,002324:                                                                                                  #           THROTTLE STORAGE.     - PAD LOADED -        (1D)
006238,002325: 
006239,002326: E7,1422                        ZOOMTIME           ERASE                                          #  B(1)PL TIME OF DPS THROTTLE-UP COMMAND
006240,002327: 
006241,002328:                                                                                                  #           P63 AND P64 CONSTANTS. - PAD LOADED -       (4D)
006242,002329: 
006243,002330: E7,1423                        TENDBRAK           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006244,002331: E7,1424                        TENDAPPR           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006245,002332: E7,1425                        DELTTFAP           ERASE                                          #  B(1) INCREMENT ADDED TO TTF/8 WHEN
006246,002333:                                                                                                  #        SWITCHING FROM P63 TO P64
006247,002334: E7,1426                        LEADTIME           ERASE                                          #  B(1) TIME INCREMENT SPECIFYING HOW MUCH
006248,002335:                                                                                                  #        GUIDANCE IS PROJECTED FORWARD.
006249,002336: 
006250,002337:                                                                                                  #           LANDING RADAR         - PAD LOADED -        (2D)
006251,002338: 
006252,002339: E7,1427                        RPCRTIME           ERASE                                          #  B(1) REPOSITIONING CRITERION  (TIME)
006253,002340: E7,1430                        RPCRTQSW           ERASE                                          #  B(1) REPOSITIONING CRITERION (ANGLE)
006254,002341: 
006255,002342:                                                                                                  #           ASTEER                - PAD LOADED -        (2D)
006256,002343: 
006257,002344: E7,1431                        TNEWA              ERASE    +1                                    #  I(2)PL LAMBERT CYCLE PERIOD
006258,002345: 
006259,002346:                                                                                                  #           P22 STORAGE - OVERLAYS LANDING PADLOADS -   (5D)
006260,002347: 

Page 145

006262,002349: E7,1433  E7,1423               REPOSCNT           EQUALS   TENDBRAK                              #  B(1)TMP  COUNTS NUMBER OF PASSES THROUGH
006263,002350:                                                                                                  #           REPOSITION ROUTINE.
006264,002351: E7,1433  E7,1424               REPOSTM            EQUALS   REPOSCNT   +1                         #  I(2)TMP  PRESENT TIME PLUS INCREMENTS OF
006265,002352:                                                                                                  #           TEN SECONDS.
006266,002353: E7,1433  E7,1426               DELTATM            EQUALS   REPOSTM    +2                         #  I(2)TMP  TIME INTERVAL FOR RUNNING
006267,002354:                                                                                                  #           DESIGNATE TASK.
006268,002355: 
006269,002356:                                                                                                  #  *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
006270,002357: 
006271,002358: 
006272,002359:                                                                                                  #           P40S, P32-P35 P72-P75 STORAGE                 (6D)
006273,002360: 
006274,002361: E7,1433                        DELVLVC            ERASE    +5                                    #  I(6) DELTA VELOCITY - LOCAL VERTICAL COO
006275,002362: E7,1441  E7,1433               DELVSLV            =        DELVLVC                               #  (TEMP STORAGE OF SAME VECTOR)   -RDINATE
006276,002363: 
006277,002364: 
006278,002365: 
006279,002366:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                   (2D)
006280,002367: 
006281,002368:                                                                                                  #  ******* NOTE:  TIG IS USED BY ALL POWERED FLIGHT PROGRAMS        *******
006282,002369:                                                                                                  #  *******              INCLUDING P12, ABORTS, AND LUNAR LANDING.  ********
006283,002370: 
006284,002371: E7,1441                        TIG                ERASE    +1                                    #  B(2)
006285,002372: 
006286,002373: 
006287,002374:                                                                                                  #           INITVEL STORAGE:  USED BY P34,35,74,75, P40-42  (8D)
006288,002375: 
006289,002376: E7,1443                        RTARG              ERASE    +5                                    #  I(6) TARGET VECTOR
006290,002377: E7,1451                        DELLT4             ERASE    +1                                    #  I(2) TIME DIFFERENCE
006291,002378: 
006292,002379: 
006293,002380:                                                                                                  #           LANDING RADAR - R12   (OVERLAY)               (2D)
006294,002381: 
006295,002382: E7,1453  E7,1451               HLROFF             EQUALS   DELLT4                                #  B(1),I(2) TMP  NO LANDING RADAR UPDATES
006296,002383:                                                                                                  #                  BELOW THIS ALTITUDE.
006297,002384: 
006298,002385: 
006299,002386:                                                                                                  #           CLOKTASK, BURNBABY                            (3D)
006300,002387: 
006301,002388: E7,1453                        TTOGO              ERASE    +1                                    #  B(2)
006302,002389: E7,1455                        WHICH              ERASE                                          #  B(1)
006303,002390: 
006304,002391: 
006305,002392:                                                                                                  #           *** R21 ***                                   (1D)
006306,002393: 
006307,002394: E7,1456                        LOSCOUNT           ERASE                                          #  B(1)
006308,002395: 
006309,002396:                                                                                                  #           L SR22.3 (RNDEZVOUS NAVIGATION) AND
006310,002397: 

Page 146

006312,002399:                                                                                                  #           LANDING RADAR -- VELUPDAT (SERVICER), P63, AND R12.   (4D)
006313,002400: 
006314,002401:                                                                                                  #  ***** NOTE: AOG, AMG, AND AIG ARE USED BY LANDING RADAR AS WELL AS RR.
006315,002402:                                                                                                  #  *****       R12DL STORES CDUS THERE FOR DOWNLINKING ON DESCENT/ASCENT DL
006316,002403:                                                                                                  #  *****       MOREOVER, TRKMKCNT SHARES WITH VSELECT, ALSO SET UP BY R12DL
006317,002404:                                                                                                  #  *****           (DOWNLINKED ON THE DESCENT/ASCENT LIST AS THE
006318,002405:                                                                                                  #  *****             LOW ORDER PART OF AOG TELEMETRY WORD)
006319,002406:                                                                                                  #  *****                AND USED IN SERVICER, P63 RESTART, AND R12READ.
006320,002407: 
006321,002408:                                                                                                  #     RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
006322,002409: 
006323,002410: E7,1457                        AIG                ERASE                                          #  B(1)OUT  GIMGAL ANGLES
006324,002411: E7,1460                        AMG                ERASE                                          #  B(1)OUT  (MUST BE
006325,002412: E7,1461                        AOG                ERASE                                          #  B(1)OUT   CONSECUTIVE)
006326,002413: 
006327,002414: E7,1462                        TRKMKCNT           ERASE                                          #  B(1)TMP  TEMPORARY MARK STORAGE.
006328,002415: E7,1463  E7,1462               MARKCTR            =        TRKMKCNT                              
006329,002416: 
006330,002417: 
006331,002418: E7,1463  E7,1462               VSELECT            EQUALS   TRKMKCNT                              #  B(1)  X,Y OR Z LR BEAM ASSOC WITH VMEAS.
006332,002419: 
006333,002420: 
006334,002421:                                                                                                  #           P32-P35, P72-P75 STORAGE.  -PERMANENT-         (6)
006335,002422: 
006336,002423: E7,1463                        NORMEX             ERASE                                          #  B(1) PRM SAVE FOR Q
006337,002424: E7,1464                        QSAVED             ERASE                                          #  B(1) PRM SAVE FOR Q
006338,002425: E7,1465                        RTRN               ERASE                                          #  B(1) PRM SAVE FOR Q
006339,002426: E7,1466                        NN                 ERASE    +1                                    #  B(2)
006340,002427: E7,1470                        SUBEXIT            ERASE                                          #  B(1) PRM SAVE Q
006341,002428: 
006342,002429: 
006343,002430: E7,1471                        E7OVERLA           EQUALS                                         #  START OF E7 OVERLAYS.
006344,002431: E7,1471  E7,1471               WHOCARES           EQUALS   E7OVERLA                              #  DUMMY FOR EBANK INSENSITIVE 2CADRS
006345,002432: 
006346,002433:                                                                                                  #           LUNAR LANDING OVERLAYS                        (6D)
006347,002434: 
006348,002435: E7,1471  E7,1463               /AFC/              EQUALS   NORMEX                                #  B(2)TMP    THROTTLE
006349,002436: E7,1471  E7,1465               FCODD              EQUALS   /AFC/      +2                         #  B(2)TMP    THROTTLE
006350,002437: E7,1471  E7,1467               FP                 EQUALS   FCODD      +2                         #  B(2)TMP    THROTTLE
006351,002438: 

Page 147

006353,002440:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 7  *******
006354,002441: 
006355,002442: 
006356,002443:                                                                                                  #  RENDEZVOUS GUIDANCE STORAGE -P32....P35-             (89D)
006357,002444: 
006358,002445: E7,1471  E7,1611               TSTRT              EQUALS   DELDV                                 #  MIDCOURSE START TIME
006359,002446: E7,1471  E7,1573               TDEC2              EQUALS   DELVCSI                               #  TEMP STORAGE FOR INTEGRATION TIME INPUT
006360,002447: E7,1471  E7,1575               KT                 EQUALS   DELVTPI                               #  TEMP STORAGE FOR MIDCOURSE DELTA TIME
006361,002448: E7,1471                        VACT1              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CSI TIME
006362,002449: E7,1477                        RPASS1             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CSI TIME
006363,002450: E7,1505                        VPASS1             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CSI TIME
006364,002451: E7,1513                        VACT2              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CDH TIME
006365,002452: E7,1521                        RPASS2             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CDH TIME
006366,002453: E7,1527                        VPASS2             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CDH TIME
006367,002454: E7,1535                        RACT3              ERASE    +5D                                   #  POSITION VECTOR OF ACTIVE  AT TPI TIME
006368,002455: E7,1543                        VACT3              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT TPI TIME
006369,002456: E7,1551                        RPASS3             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT TPI TIME
006370,002457: E7,1557                        VPASS3             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT TPI TIME
006371,002458: E7,1565                        VACT4              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT INTERCEPT
006372,002459: E7,1573  E7,1543               UNVEC              EQUALS   VACT3                                 #  CDHMVR UNIT VECTOR TEMP STORAGE.
006373,002460: E7,1573                        DELVCSI            ERASE    +1D                                   #  THRUST VALUE AT CSI
006374,002461: E7,1575                        DELVTPI            ERASE    +1D                                   #  THRUST VALUE AT TPI OR MID
006375,002462: E7,1577                        DIFFALT            ERASE    +1D                                   #  ALT DIFFERENCE AT CDH
006376,002463: E7,1601                        POSTCSI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CSI MANEUVER
006377,002464: E7,1603                        POSTCDH            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CDH MANEUVER
006378,002465: E7,1605                        POSTTPI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER TPI MANEUVER
006379,002466: E7,1607  E7,1605               LOOPCT             EQUALS   POSTTPI                               #  CSI NEWTON ITERATION COUNTER
006380,002467: E7,1607  E7,1603               HAFPA1             EQUALS   POSTCDH                               #  HALF PERIOD
006381,002468: E7,1607                        GAMPREV            ERASE    +1                                    #  PREVIOUS GAMMA
006382,002469: E7,1611  E7,1575               DVPREV             EQUALS   DELVTPI                               #  PREVIOUS DELVCSI
006383,002470: E7,1611                        DELDV              ERASE    +1D                                   
006384,002471: E7,1613                        CSIALRM            ERASE    +1                                    #  FIRST SOLUTION ALARM
006385,002472: E7,1615                        VERBNOUN           ERASE                                          
006386,002473: E7,1616  E7,1613               TITER              EQUALS   CSIALRM                               #  ITERATION COUNTER
006387,002474: E7,1616                        RDOTV              ERASE    +1                                    
006388,002475: E7,1620  E7,1505               VAPREC             EQUALS   VPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006389,002476: E7,1620  E7,1477               RAPREC             EQUALS   RPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006390,002477: E7,1620  E7,1527               VPPREC             EQUALS   VPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006391,002478: E7,1620  E7,1521               RPPREC             EQUALS   RPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006392,002479: E7,1620  E7,1575               DELEL              EQUALS   DELVTPI                               #  I(2) S-S
006393,002480: E7,1620  E7,1573               SECMAX             EQUALS   DELVCSI                               #  I(2) S-S MAX STOP SIZE FOR ROUTINE
006394,002481: E7,1620  E7,1605               DELTEEO            EQUALS   POSTTPI                               #  I(2) S-S BACK VALUES OF DELTA TIME
006395,002482: E7,1620                        CENTANG            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE COVERED (TPI-TPF)
006396,002483: 
006397,002484: 
006398,002485: 
006399,002486:                                                                                                  #           SOME P47 STORAGE                              (6D)
006400,002487: 

Page 148

006402,002489: E7,1622                        DELVIMU            ERASE    +5                                    #  I(6)DSP N83 FOR P47 DELTA V IN BODY COOR
006403,002490: 
006404,002491: 
006405,002492:                                                                                                  #           P34-35-40-41-42 INTERFACE                     (2D)
006406,002493: 
006407,002494: E7,1630                        TPASS4             ERASE    +1                                    #  INTERCEPT TIME
006408,002495: 
006409,002496: 
006410,002497:                                                                                                  #           P30-P40-41-42 COMMON STORAGE                  (1D)
006411,002498: 
006412,002499: E7,1632                        QTEMP              ERASE                                          #  I(1)TMP COMMON RETURN SAVE REGISTER.
006413,002500: 
006414,002501: 
006415,002502: 
006416,002503:                                                                                                  #           P32,33,34 STORAGE.                            (6D)
006417,002504: 
006418,002505: E7,1633                        TCSI               ERASE    +1                                    #  B(2)TMP CSI TIME IN CENTISECONDS
006419,002506: E7,1635                        TTPI               ERASE    +1                                    #  B(2)TMP TPI TIME IN CENTISECONDS
006420,002507: E7,1637                        TTPIO              ERASE    +1                                    #  B(2)TMP TTPI STORAGE FOR RECYCLE
006421,002508: 
006422,002509: 
006423,002510:                                                                                                  #           P30,P40 INTERFACE.                            (20D)
006424,002511: 
006425,002512: E7,1641                        RTIG               ERASE    +19D                                  #  I(6)TMP
006426,002513: E7,1665  E7,1647               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
006427,002514: E7,1665  E7,1655               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
006428,002515: E7,1665  E7,1663               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
006429,002516: E7,1665  E7,1663               VGDISP             =        DELVSAB                               
006430,002517: 
006431,002518: 
006432,002519:                                                                                                  #           P40-P42 TEMPORARY                              (1D)
006433,002520: 
006434,002521: E7,1665                        QTEMP1             ERASE                                          #  I(1)TMP HOLDS RETURN.
006435,002522: 
006436,002523: 
006437,002524: 
006438,002525:                                                                                                  #           R52 TEMPORARY                                  (1D)
006439,002526: 
006440,002527: E7,1666  E7,1665               SAVQR52            EQUALS   QTEMP1                                
006441,002528: 
006442,002529: 
006443,002530:                                                                                                  #           INITVEL STORAGE.  (IN OVERLAY 0 AND OVERLAY 1.        (2D)
006444,002531:                                                                                                  #                  (CALLS LAMBERT, CONIC SUBROUTINES)
006445,002532: 
006446,002533: E7,1666  E7,1565               VTPRIME            EQUALS   VACT4                                 #  TOTAL VELOCITY AT DESIRED RADIUS
006447,002534: E7,1666  E7,1616               ITCTR              EQUALS   RDOTV                                 #  ITERATION COUNTER
006448,002535: E7,1666                        COZY4              ERASE    +1                                    #  COS OF ANGLE WHEN ROTATION STARTS
006449,002536: E7,1670  E7,1607               INTIME             EQUALS   GAMPREV                               #  TIME OF RINIT
006450,002537: 

Page 149

006452,002539:                                                                                                  #           PERIAPO STORAGE. (2D)                        (2D)
006453,002540: 
006454,002541: E7,1670                        XXXALT             ERASE    +1                                    #  RADIUS TO LAUNCH PAD OR LANDING SIGHT
006455,002542: 
006456,002543:                                                                                                  #           S40.1 STORAGE.                                (12D)
006457,002544: 
006458,002545: E7,1672                        UT                 ERASE    +11D                                  #  I(6) THRUST DIRECTION
006459,002546: E7,1706  E7,1700               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
006460,002547: E7,1706  E7,1700               VGPREV             =        VGTIG                                 
006461,002548:                                                                                                  #  ASTEER STORAGE.                               (22D)
006462,002549: 
006463,002550: E7,1706                        VG                 ERASE    +21D                                  #  I(6)
006464,002551: E7,1734  E7,1714               RMAG               EQUALS   VG         +6                         #  I(2)
006465,002552: E7,1734  E7,1716               MUASTEER           EQUALS   RMAG       +2                         #  I(2)
006466,002553: E7,1734  E7,1720               MU/A               EQUALS   MUASTEER   +2                         #  I(2)
006467,002554: E7,1734  E7,1722               RTMAG              EQUALS   MU/A       +2                         #  I(2)
006468,002555: E7,1734  E7,1724               R1C                EQUALS   RTMAG      +2                         #  I(6)
006469,002556: E7,1734  E7,1732               SS                 EQUALS   R1C        +6                         #  I(2)
006470,002557: 
006471,002558:                                                                                                  #           ASTEER                                         (11D)
006472,002559: 
006473,002560: E7,1734  E7,1655               IC                 =        DELVSIN                               #  I(6) CHORD VECTOR:  RTARG VEC - POS VEC
006474,002561: E7,1734  E7,1762               TIGSAVE            =        P21TIME                               #  I(2) USED TO DETERMINE WHEN YOU
006475,002562: E7,1734  E7,1764               TIGSAVEP           =        SCAXIS                                #  I(2)  WANT TO DO ASTEER NEXT
006476,002563: E7,1734  E7,1766               MUSCALE            =        SCAXIS     +2                         #  I(1) HOLDS INDEX VALUE
006477,002564: 
006478,002565: 
006479,002566:                                                                                                  #           P40 STORAGE.                                  (8D)
006480,002567: 
006481,002568:                                                                                                  #                F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
006482,002569: E7,1734                        F                  ERASE    +5                                    #  I(2)TMP THRUST MAG 10**4 NEWTONS (B-7)
006483,002570: E7,1742  E7,1736               MDOT               EQUALS   F          +2                         #  I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
006484,002571: E7,1742  E7,1740               TDECAY             EQUALS   MDOT       +2                         #  I(2)IN  DELTA-T TAILOFF, (2**28)CS.
006485,002572: E7,1742                        VEX                ERASE    +1                                    #  I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
006486,002573: 
006487,002574: 
006488,002575:                                                                                                  #          MIDTOAV1(2) STORAGE.  (CALLED BY P40,P41,P42)         (1D)
006489,002576: 
006490,002577: E7,1744                        IRETURN1           ERASE                                          #  B(1)     RETURN FROM MIDTOAV1 AND 2
006491,002578: 

Page 150

006493,002580:                                                                                                  #  ******* OVERLAY NUMBER 1 IN EBANK 7  *******
006494,002581: 
006495,002582: 
006496,002583:                                                                                                  #          INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1)    (6D)
006497,002584: 
006498,002585: E7,1745  E7,1471               RTARG1             EQUALS   VACT1                                 #  I(6)S TEMP STORAGE OF RTARG
006499,002586: 
006500,002587: 
006501,002588:                                                                                                  #          P35-P40 INTERFACE.                              (6D)
006502,002589: 
006503,002590: E7,1745  E7,1505               VPASS4             EQUALS   VPASS1                                #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
006504,002591: 
006505,002592: 
006506,002593:                                                                                                  #           LAT-LONG TEMPORARIES.  CAN OVERLAY WITH S40.1         (3D)
006507,002594: 
006508,002595: E7,1745  E7,1672               ERADM              EQUALS   UT                                    #  I(2)
006509,002596: E7,1745  E7,1674               INCORPEX           EQUALS   ERADM      +2                         #  I(1)
006510,002597: 
006511,002598:                                                                                                  #           LRS24.1 STORAGE.  (CAN SHARE WITH P30'S)      (40D)
006512,002599: 
006513,002600: E7,1745  E7,1675               RLMSRCH            EQUALS   INCORPEX   +1                         #  I(6) TMP LM POSITION VECTOR
006514,002601: E7,1745  E7,1703               VXRCM              EQUALS   RLMSRCH    +6                         #  I(6)    CM V X R VECTOR
006515,002602: E7,1745  E7,1711               LOSDESRD           EQUALS   VXRCM      +6                         #  I(6)    DESIRED LOS VECTOR
006516,002603: E7,1745  E7,1717               UXVECT             EQUALS   LOSDESRD   +6                         #  I(6)    X-AXIS SRCH PATTERN COORDS
006517,002604: E7,1745  E7,1725               UYVECT             EQUALS   UXVECT     +6                         #  I(6)    Y-AXIS SRCH PATTERN COORDS
006518,002605: E7,1745  E7,1733               DATAGOOD           EQUALS   UYVECT     +6                         #  B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
006519,002606: E7,1745  E7,1734               OMEGDISP           EQUALS   DATAGOOD   +1                         #  B(2)    ANGLE OMEGA DISPLAYED IN R2
006520,002607: E7,1745  E7,1734               OMEGAD             =        OMEGDISP                              #          PINBALL DEFINITION.
006521,002608: E7,1745  E7,1736               NSRCHPNT           EQUALS   OMEGDISP   +2                         #  B(1)TMP SEARCH PATTERN POINT COUNTER.
006522,002609: E7,1745  E7,1737               SAVLEMV            EQUALS   NSRCHPNT   +1                         #  I(6) S-S SAVES LOSVEL
006523,002610: 

Page 151

006525,002612:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 7 *******
006526,002613: 
006527,002614: 
006528,002615: 
006529,002616:                                                                                                  #           INCORP STORAGE IN E7.                         (47D)
006530,002617: 
006531,002618: E7,1745  E7,1471               TX789              EQUALS   E7OVERLA                              #  I(6)
006532,002619: E7,1745  E7,1477               GAMMA              EQUALS   TX789      +6                         #  I(3)
006533,002620: E7,1745  E7,1502               OMEGA              EQUALS   GAMMA      +3                         #  I(18)
006534,002621: E7,1745  E7,1524               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)
006535,002622: E7,1745  E7,1546               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)
006536,002623:                                                                                                  #           AOTMARK STORAGE                               (3D)
006537,002624: 
006538,002625: E7,1745  E7,1550               WHATMARK           EQUALS   DELTAQ     +2                         #  B(1)TMP  SIGHTING TECHNIQUE DETERMINATOR
006539,002626: E7,1745  E7,1551               XYMARK             EQUALS   WHATMARK   +1                         #  B(1)TMP  MARK IDENTIFICATION REGISTER
006540,002627: E7,1745  E7,1552               MKDEX              EQUALS   XYMARK     +1                         #  B(1)TMP INDEX FOR AOTMARK
006541,002628: 
006542,002629: 
006543,002630:                                                                                                  #           P50S. AOTMARK                                  (14D)
006544,002631: 
006545,002632: E7,1745  E7,1524               XPLANE             EQUALS   BVECTOR                               #  I(6)TMP MARK PLANE
006546,002633: E7,1745  E7,1532               YPLANE             EQUALS   XPLANE     +6                         #  I(6)TMP MARK PLANE
006547,002634: E7,1745  E7,1762               XMKCNTR            EQUALS   P21TIME                               #  B(1)  X SIGHTING MK CNTR
006548,002635: E7,1745  E7,1763               YMKCNTR            EQUALS   P21TIME    +1                         #  B(1)  Y SIGHTING MK CNTR
006549,002636: 
006550,002637: 
006551,002638:                                                                                                  #          PLANET STORAGE.                               (8D)
006552,002639: 
006553,002640: E7,1745  E7,1553               PLANVEC            EQUALS   MKDEX      +1                         #  (6) REFER VECTOR OF PLANET
006554,002641: E7,1745  E7,1561               TSIGHT             EQUALS   PLANVEC    +6                         #  (2) TIME OF MARK OR EST TIME OF MARK
006555,002642: 
006556,002643: 
006557,002644: 
006558,002645:                                                                                                  #           AOTMARK STORAGE                               (15D)
006559,002646: 
006560,002647: E7,1745  E7,1563               THETEST            EQUALS   TSIGHT     +2                         #  I(2)TMP  STAR VECTOR COMPUTATION TMP
006561,002648: E7,1745  E7,1565               ESTER1             EQUALS   THETEST    +2                         #  I(2)TMP  STAR VECTOR COMPUTATION TMP
006562,002649: E7,1745  E7,1567               ESTER2             EQUALS   ESTER1     +2                         #  I(2)TMP  STAR VECTOR COMPUTATION TMP
006563,002650: E7,1745  E7,1571               DELTHET            EQUALS   ESTER2     +2                         #  I(2)TMP  STAR VECTOR COMPUTATION TMP
006564,002651: E7,1745  E7,1573               NOMKCNT            EQUALS   DELTHET    +2                         #  B(1)TMP  MARK SET REJECT CTR
006565,002652: E7,1745  E7,1574               BODY               EQUALS   NOMKCNT    +1                         #  I(6)TMP STAR VEC IN NAV BASE COOR
006566,002653:                                                                                                  #           LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1  (30D).
006567,002654: 
006568,002655: E7,1745  E7,1675               LGRET              EQUALS   RLMSRCH                               #  I(1)TMP
006569,002656: E7,1745  E7,1675               RDRET              EQUALS   LGRET                                 #  B(1) TEMP RETURN.
006570,002657: E7,1745  E7,1675               IGRET              EQUALS   LGRET                                 #  B(1) TEMP RETURN.
006571,002658: E7,1745  E7,1676               MX                 EQUALS   RDRET      +1                         #  I(6)
006572,002659: E7,1745  E7,1704               MY                 EQUALS   MX         +6                         #  I(6)
006573,002660: E7,1745  E7,1712               MZ                 EQUALS   MY         +6                         #  I(6)
006574,002661: E7,1745  E7,1720               SCALSHFT           EQUALS   MZ         +6                         #  B(1) SCALE SHIFT FOR EARTH/MOON
006575,002662: 

Page 152

006577,002664: E7,1745  E7,1721               RXZ                EQUALS   SCALSHFT   +1                         #  I(2)
006578,002665: E7,1745  E7,1723               ULC                EQUALS   RXZ        +2                         #  I(6)
006579,002666: E7,1745  E7,1731               SINTHETA           EQUALS   ULC        +6                         #  I(2)
006580,002667: 
006581,002668:                                                                                                  #  ***** IN OVERLAY ONE *****
006582,002669: 
006583,002670:                                                                                                  #      R22 / NOUN 49 DISPLAY
006584,002671: 
006585,002672: E7,1745  E7,1746               N49FLAG            EQUALS   RDOTMSAV                              #  B(1)S    FLAG INDICATING V0649 RESPONSE
006586,002673: 
006587,002674: 
006588,002675:                                                                                                  #      LRS22.1 STORAGE.  (MUST NOT SHARE WITH P30'S)         (13D)
006589,002676: 
006590,002677:                                                                                                  #      (OUTPUTS ARE TO LRS22.3)
006591,002678: 
006592,002679: E7,1745  E7,1733               RRTRUN             EQUALS   SINTHETA   +2                         #  B(2)OUT  RR TRUNION ANGLE
006593,002680: E7,1745  E7,1735               RRSHAFT            EQUALS   RRTRUN     +2                         #  B(2)OUT RR SHAFT ANGLE
006594,002681: E7,1745  E7,1737               LRS22.1X           EQUALS   RRSHAFT    +2                         #  B(1)TMP
006595,002682: E7,1745  E7,1740               RRBORSIT           EQUALS   LRS22.1X   +1                         #  I(6) TMP RADAR BORESIGHT VECTOR.
006596,002683: E7,1745  E7,1746               RDOTMSAV           EQUALS   RRBORSIT   +6                         #  B(2) S    RR RANGE-RATE(FPS)
006597,002684: 
006598,002685: 
006599,002686:                                                                                                  #      LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29)(10D) CANNOT SHARE WITH L.A.D.
006600,002687: 
006601,002688:                                                                                                  #      NOTE: MKTIME IS USED BY LANDING AS WELL AS REND RADAR.
006602,002689: 
006603,002690: E7,1745  E7,1750               RDOTM              EQUALS   RDOTMSAV   +2                         #  B(2)OUT  RANGE-RATE READING
006604,002691: E7,1745  E7,1752               TANGNB             EQUALS   RDOTM      +2                         #  B(2)TMP  RR GIMBAL ANGLES
006605,002692:                                                                                                  #      RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
006606,002693: E7,1745  E7,1754               MKTIME             EQUALS   TANGNB     +2                         #  B(2) TIME OF RADAR READING (RR AND LR)
006607,002694: E7,1745  E7,1756               RM                 EQUALS   MKTIME     +2                         #  I(2)OUT RANGE READING
006608,002695: E7,1745  E7,1760               RANGRDOT           EQUALS   RM         +2                         #  B(2) DOWNLINKED RAW RANGE AND RRATE
006609,002696: 
006610,002697:                                                                                                  #      LANDING OVERLAY                               (1D)
006611,002698: 
006612,002699: E7,1745  E7,1750               THRDISP            EQUALS   RDOTM                                 #  B(1) PERCENT OF FTP I 10,500 LBS.
006613,002700: 
006614,002701: 
006615,002702: E7,1745  E7,1752               GTCTIME            EQUALS   TANGNB                                #  B(2)  STATE VECTOR TIME CORRESPONDING
006616,002703:                                                                                                  #    TO FP -- GUIDANCE THRUST COMMAND
006617,002704: 
006618,002705:                                                                                                  #      R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE  **IN OVERLAY ONE*
006619,002706:                                                                                                  #               (CALLED BY P20,R22LEM,LSR22.3)            (1D)
006620,002707: 
006621,002708: E7,1745  E7,1745               R65CNTR            EQUALS   RRBORSIT   +5                         #  B(1)SS  COUNT NUMBER OF TIMES PREFERRED
006622,002709:                                                                                                  #          TRACKING ROUTINE IS TO CYCLE
006623,002710: 
006624,002711:                                                                                                  #      P21 STORAGE                                   (2D)
006625,002712: 

Page 153

006627,002714: E7,1745  E7,1762               P21TIME            EQUALS   RANGRDOT   +2                         #  I(2)TMP
006628,002715: 
006629,002716: 
006630,002717:                                                                                                  #      INPUTS TO VECPOINT. CALLED BY R60-65 (ATTITUDE MANEUVERS)         (12D)
006631,002718: E7,1745  E7,1764               SCAXIS             EQUALS   P21TIME    +2                         #  I(6)
006632,002719: E7,1745  E7,1772               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)
006633,002720: 

Page 154

006635,002722: 
006636,002723:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 7  *******
006637,002724: 
006638,002725: 
006639,002726: 
006640,002727:                                                                                                  #           SERVICER STORAGE                              (6D)
006641,002728: 
006642,002729: E7,1745  E7,1471               ABVEL              EQUALS   E7OVERLA                              #  B(2) DISPLAY
006643,002730: E7,1745  E7,1473               HDOTDISP           EQUALS   ABVEL      +2                         #  B(2) DISPLAY
006644,002731: E7,1745  E7,1475               TTFDISP            EQUALS   HDOTDISP   +2                         #  B(2) DISPLAY
006645,002732: 
006646,002733: 
006647,002734:                                                                                                  #           ASCENT GUIDANCE FOR LUNAR LANDING             (2D)
006648,002735: 
006649,002736: E7,1745  E7,1473               RDOT               EQUALS   HDOTDISP                              #  I(2)
006650,002737: 
006651,002738: 
006652,002739:                                                                                                  #           BURN PROG STORAGE.                            (2D)
006653,002740: 
006654,002741: E7,1745  E7,1477               SAVET-30           EQUALS   TTFDISP    +2                         #  B(2)TMP TIG-30 RESTART
006655,002742: 
006656,002743: 
006657,002744:                                                                                                  #           SERVICER STORAGE.                             (69D)
006658,002745: 
006659,002746: E7,1745  E7,1501               VGBODY             EQUALS   SAVET-30   +2                         #  B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
006660,002747: E7,1745  E7,1501               DELVCTL            =        VGBODY                                
006661,002748: E7,1745  E7,1507               DVTOTAL            EQUALS   VGBODY     +6                         #  B(2) DISPLAY NOUN
006662,002749: E7,1745  E7,1511               GOBLTIME           EQUALS   DVTOTAL    +2                         #  B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
006663,002750: E7,1745  E7,1513               ABDVCONV           EQUALS   GOBLTIME   +2                         #  I(2)
006664,002751: E7,1745  E7,1515               DVCNTR             EQUALS   ABDVCONV   +2                         #  B(1)
006665,002752: E7,1745  E7,1516               TGO                EQUALS   DVCNTR     +1                         #  B(2)
006666,002753: E7,1745  E7,1520               R                  EQUALS   TGO        +2                         #  I(6)
006667,002754: E7,1745  E7,1520               UNITGOBL           EQUALS   R                                     #  I(6)
006668,002755: E7,1745  E7,1526               V                  EQUALS   R          +6                         
006669,002756: E7,1745  E7,1526               DELVREF            EQUALS   V                                     #  I(6)
006670,002757: E7,1745  E7,1534               HCALC              EQUALS   DELVREF    +6                         #  B(2)    LR
006671,002758: E7,1745  E7,1536               UNIT/R/            EQUALS   HCALC      +2                         #  I(6)
006672,002759:                                                                                                  #           (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
006673,002760: 
006674,002761: E7,1745  E7,1544               RN1                EQUALS   UNIT/R/    +6                         #  B(6)
006675,002762: E7,1745  E7,1552               VN1                EQUALS   RN1        +6                         #  I(6)                      ( IN ORDER )
006676,002763: E7,1745  E7,1560               PIPTIME1           EQUALS   VN1        +6                         #  B(2)                      (    FOR   )
006677,002764: E7,1745  E7,1562               GDT1/2             EQUALS   PIPTIME1   +2                         #  I(6)                      (   COPY   )
006678,002765: E7,1745  E7,1570               MASS1              EQUALS   GDT1/2     +6                         #  I(2)                      (   CYCLE  )
006679,002766: E7,1745  E7,1570               DVCNTR1            EQUALS   MASS1                                 #  B(1)TMP  RESTART REG FOR DVCNTR
006680,002767: E7,1745  E7,1572               R1S                EQUALS   MASS1      +2                         #  I(6)
006681,002768: E7,1745  E7,1600               V1S                EQUALS   R1S        +6                         #  I(6)
006682,002769: 
006683,002770: 
006684,002771:                                                                                                  #           P71 RESTART PROTECTION                        (2D)
006685,002772: 

Page 155

006687,002774: E7,1745  E7,1501               TGO1               EQUALS   VGBODY                                #  B(2)TMP
006688,002775: 
006689,002776: 
006690,002777:                                                                                                  #           ALIGNMENT/S40.2.3 COMMON STORAGE.             (18D)
006691,002778: 
006692,002779: E7,1745  E7,1606               XSMD               EQUALS   V1S        +6                         #  I(6)
006693,002780: E7,1745  E7,1614               YSMD               EQUALS   XSMD       +6                         #  I(6)
006694,002781: E7,1745  E7,1622               ZSMD               EQUALS   YSMD       +6                         #  I(6)
006695,002782: 
006696,002783: E7,1745  E7,1606               XSCREF             =        XSMD                                  
006697,002784: E7,1745  E7,1614               YSCREF             =        YSMD                                  
006698,002785: E7,1745  E7,1622               ZSCREF             =        ZSMD                                  
006699,002786: 
006700,002787: E7,1745  E7,1630               END-ALIG           EQUALS   ZSMD       +6                         #  NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
006701,002788: 
006702,002789: 
006703,002790:                                                                                                  #           **** P22 ****                                (34D)
006704,002791: 
006705,002792: E7,1745  E7,1630               RSUBL              EQUALS   END-ALIG                              #  I(6)S-S  LM POSITION VECTOR
006706,002793: E7,1745  E7,1636               UCSM               EQUALS   RSUBL      +6                         #  I(6)S-S  VECTOR U
006707,002794: E7,1745  E7,1644               NEWVEL             EQUALS   UCSM       +6                         #  I(6)S-S  TERMINAL VELOCITY VECTOR
006708,002795: E7,1745  E7,1652               NEWPOS             EQUALS   NEWVEL     +6                         #  I(6)S-S  TERMINAL POSITION VECTOR
006709,002796: E7,1745  E7,1660               LNCHTM             EQUALS   NEWPOS     +6                         #  I(2)S-S  EST. LAUNCH TIME FOR LEM
006710,002797: E7,1745  E7,1662               TRANSTM            EQUALS   LNCHTM     +2                         #  I(2)S-S TRANSFER TIME
006711,002798: E7,1745  E7,1664               NCSMVEL            EQUALS   TRANSTM    +2                         #  I(6)S-S NEW CSM VELOCITY
006712,002799: 
006713,002800: 
006714,002801:                                                                                                  #           ***** P21 *****                              (18D)
006715,002802: 
006716,002803: E7,1745     1162               P21ORIG            =        DISPDEX                               
006717,002804: E7,1745  E7,1675               P21BASER           EQUALS   RLMSRCH                               #  I(6)TMP
006718,002805: E7,1745  E7,1703               P21BASEV           EQUALS   P21BASER   +6                         #  I(6)TMP
006719,002806: E7,1745  E7,1711               P21VEL             EQUALS   P21BASEV   +6                         #  I(2)TMP  *** NOUN 91 ***
006720,002807: E7,1745  E7,1713               P21GAM             EQUALS   P21VEL     +2                         #  I(2)TMP  *** NOUN 91 ***
006721,002808: E7,1745  E7,1715               P21ALT             EQUALS   P21GAM     +2                         #  I(2)TMP  *** NOUN 91 ***
006722,002809: 

Page 156

006724,002811:                                                                                                  #  *******  OVERLAY NUMBER 4 IN EBANK 7  *******
006725,002812: 
006726,002813: 
006727,002814:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING)         (80D)
006728,002815: 
006729,002816:                                                                                                  #  THESE ERASABLES MAY BE SHARED WITH CARE
006730,002817: 
006731,002818: E7,1745  E7,1544               OURTEMPS           =        RN1                                   #  OVERLAY LAST PART OF SERVICER
006732,002819: E7,1745  E7,1544               LANDTEMP           =        OURTEMPS                              #  B(6)     GUIDANCE
006733,002820: E7,1745  E7,1552               TTF/8TMP           =        LANDTEMP   +6                         #  B(2)    GUIDANCE
006734,002821: E7,1745  E7,1554               ELINCR             =        TTF/8TMP   +2                         #  B(2)    GUIDANCE
006735,002822: E7,1745  E7,1556               AZINCR             =        ELINCR     +2                         #  B(2)    GUIDANCE
006736,002823: E7,1745  E7,1560               KEEP-2             =        AZINCR     +2                         #  B(2)    TO PREVENT PIPTIME1 OVERLAY
006737,002824: E7,1745  E7,1562               TABLTTF            =        KEEP-2     +2                         #  B(2)    GUIDANCE
006738,002825: E7,1745  E7,1573               TPIPOLD            =        TABLTTF    +9D                        #  B(2)    GUIDANCE
006739,002826: E7,1745  E7,1621               E2DPS              EQUALS   OURPERMS                              
006740,002827: 
006741,002828: 
006742,002829: 
006743,002830:                                                                                                  #  THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
006744,002831: 
006745,002832: E7,1745  E7,1606               PIFPSET            =        XSMD                                  #  B(1)    THROTTLE
006746,002833: E7,1745  E7,1607               RTNHOLD            =        PIFPSET    +1                         #  B(1)    THROTTLE
006747,002834: E7,1745  E7,1610               FWEIGHT            =        RTNHOLD    +1                         #  B(2)    THROTTLE
006748,002835: E7,1745  E7,1612               PIF                =        FWEIGHT    +2                         #  B(2)   THROTTLE
006749,002836: E7,1745  E7,1614               PSEUDO55           =        PIF        +2                         #  B(1)   THROTTLE DOWNLINK
006750,002837: E7,1745  E7,1615               FC                 =        PSEUDO55   +1                         #  B(2)    THROTTLE
006751,002838: E7,1745  E7,1617               TTHROT             =        FC         +2                         #  B(1)    THROTTLE
006752,002839: E7,1745  E7,1620               FCOLD              =        TTHROT     +1                         #  B(1)    THROTTLE
006753,002840: 
006754,002841: 
006755,002842: 
006756,002843:                                                                                                  #  THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
006757,002844: 
006758,002845: E7,1745  E7,1621               OURPERMS           =        FCOLD      +1                         #  MUSTN'T OVERLAY OURTEMPS OR SERVICER
006759,002846: E7,1745  E7,1621               WCHPHOLD           =        OURPERMS                              #  B(1)    GUIDANCE
006760,002847: E7,1745  E7,1622               511CTR             =        WCHPHOLD   +1                         #  B(1) R12 - CONTROLS 511 ALARM
006761,002848: E7,1745  E7,1623               FLPASS0            =        511CTR     +1                         #  B(1) GUIDANCE
006762,002849: E7,1745  E7,1623               CNTTHROT           EQUALS   FLPASS0                               #  B(1) CNT THROTS BETWEEN OMISSIONS OF P66
006763,002850: E7,1745  E7,1624               TPIP               =        FLPASS0    +1                         #  B(2)
006764,002851: E7,1745  E7,1626               VGU                =        TPIP       +2                         #  B(6)    GUIDANCE
006765,002852: E7,1745  E7,1634               LAND               =        VGU        +6                         #  B(6)    GUIDANCE    CONTIGUOUS
006766,002853: E7,1745  E7,1642               TTF/8              =        LAND       +6                         #  B(2)    GUIDANCE    CONTIGUOUS
006767,002854: E7,1745  E7,1644               AZINCR1            =        TTF/8      +2                         #  B(1)    REDESIGNATOR
006768,002855: E7,1745  E7,1645               ELINCR1            =        AZINCR1    +1                         #  B(1)    REDESIGNATOR
006769,002856: E7,1745  E7,1646               ZERLINA            =        ELINCR1    +1                         #  B(1)    REDESIGNATOR
006770,002857: E7,1745  E7,1647               ELVIRA             =        ZERLINA    +1                         #  B(1)    REDESIGNATOR
006771,002858: E7,1745  E7,1650               LRPOS              =        ELVIRA     +1                         #  B(1)    LAST LR ANTENNA POSITION
006772,002859: 
006773,002860:                                                                                                  #                                ** NOTE: GAP OF 1 SP LOCATION HERE IN THIS P63 THRU P66 OVERLAY **
006774,002861: 

Page 157

006776,002863: E7,1745  E7,1652               VMEAS              =        LRPOS      +2                         #  B(2) LR VELOCITY READ BY BEAM X, Y OR Z.
006777,002864: E7,1745  E7,1654               HMEAS              =        VMEAS      +2                         #  B(2)    LR
006778,002865: E7,1745  E7,1656               VN2                =        HMEAS      +2                         #  B(6)    LR
006779,002866: E7,1745  E7,1656               GNUR               =        VN2                                   #  B(6)     LR
006780,002867: E7,1745  E7,1656               GNUV               =        VN2                                   #  B(6)     LR
006781,002868: E7,1745  E7,1664               DELTAH             =        VN2        +6                         #  B(2)    DISPLAY
006782,002869: E7,1745  E7,1666               FUNNYDSP           =        DELTAH     +2                         #  B(2)    DISPLAY
006783,002870: E7,1745  E7,1670               EOURPERM           EQUALS   FUNNYDSP   +2                         #  NEXT AVAILABLE ERASABLE AFTER OURPERMS
006784,002871: E7,1745  E7,1456               OVFRET             EQUALS   LOSCOUNT                              #  B(1) RETURN FROM DESCENT OVERFLOW SUBRO
006785,002872: 
006786,002873: 
006787,002874: 
006788,002875:                                                                                                  #  (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
006789,002876: 
006790,002877: E7,1745  E7,1644               VDGVERT            =        AZINCR1                               #  B(2)  DESIRED VERTICAL VELOCITY - P66
006791,002878: E7,1745  E7,1646               NIGNLOOP           =        ZERLINA                               #  B(1)   IGNALG
006792,002879: E7,1745  E7,1647               NGUIDSUB           =        ELVIRA                                #  B(1)   IGNALG
006793,002880: E7,1745  E7,1666               TREDES             =        FUNNYDSP                              #  B(1)    DISPLAY
006794,002881: E7,1745  E7,1667               LOOKANGL           =        FUNNYDSP   +1                         #  B(1)    DISPLAY
006795,002882: 
006796,002883: 
006797,002884:                                                                                                  #  THE END OF THE LUNAR LANDING ERASABLES
006798,002885: 
006799,002886: 
006800,002887: 
006801,002888:                                                                                                  #           R12 (FOR LUNAR LANDING)                       (6D)
006802,002889: 
006803,002890: E7,1745  E7,1670               LRLCTR             EQUALS   EOURPERM                              #  B(1) LR DATA TEST
006804,002891: E7,1745  E7,1671               LRRCTR             EQUALS   LRLCTR     +1                         #  B(1)
006805,002892: E7,1745  E7,1672               LRMCTR             EQUALS   LRRCTR     +1                         #  B(1)
006806,002893: E7,1745  E7,1673               LRSCTR             EQUALS   LRMCTR     +1                         #  B(1)
006807,002894: E7,1745  E7,1674               STILBADH           EQUALS   LRSCTR     +1                         #  B(1)
006808,002895: E7,1745  E7,1675               STILBADV           EQUALS   STILBADH   +1                         #  B(1)
006809,002896: 
006810,002897: 
006811,002898: 
006812,002899:                                                                                                  #           LANDING ANALOGS DISPLAY STORAGE.              (32D)
006813,002900: 
006814,002901: E7,1745  E7,1676               G-VBIASX           =        STILBADV   +1                         #  B(1)    ACC DUE TO GRAVITY AND PIPA BIAS
006815,002902: E7,1745  E7,1677               G-VBIASY           =        G-VBIASX   +1                         #  B(1)    ACC DUE TO GRAVITY AND PIPA BIAS
006816,002903: E7,1745  E7,1700               G-VBIASZ           =        G-VBIASY   +1                         #  B(1)    ACC DUE TO GRAVITY AND PIPA BIAS
006817,002904: E7,1745  E7,1701               VSURFACE           =        G-VBIASZ   +1                         #  B(6)    LUNAR SURFACE VELOCITY
006818,002905: E7,1745  E7,1707               HCALCLAD           =        VSURFACE   +6                         #  B(2)    ALTITUDE IN UNITS OF 2(15) M
006819,002906: E7,1745  E7,1711               HDOTLAD            =        HCALCLAD   +2                         #  B(2)    ALTRATE IN UNITS OF 2(5) M/CS
006820,002907: E7,1745  E7,1713               DALTRATE           =        HDOTLAD    +2                         #  B(1)    DALTRATE UNITS OF 2(-9) M/CS/CS
006821,002908: E7,1745  E7,1714               RUNITX             =        DALTRATE   +1                         #  B(1)    X-COMPONENT OF UNIT/R/ FULL-SIZE
006822,002909: E7,1745  E7,1715               RUNITY             =        RUNITX     +1                         #  B(1)    Y-COMPONENT OF UNIT/R/ FULL-SIZE
006823,002910: E7,1745  E7,1716               RUNITZ             =        RUNITY     +1                         #  B(1)    Z-COMPONENT OF UNIT/R/ FULL-SIZE
006824,002911: E7,1745  E7,1717               DT                 =        RUNITZ     +1                         #  B(1)    TIME SINCE LAST PIPTIME
006825,002912: E7,1745  E7,1720               VVECTX             =        DT         +1                         #  B(2)    X-COMPONENT OF SM REL. VELOCITY
006826,002913: 

Page 158

006828,002915: E7,1745  E7,1722               VVECTY             =        VVECTX     +2                         #  B(2)    Y-COMPONENT OF SM REL. VELOCITY
006829,002916: E7,1745  E7,1724               VVECTZ             =        VVECTY     +2                         #  B(2)    Z-COMPONENT OF SM REL. VELOCITY
006830,002917: E7,1745  E7,1726               ALTRATE            =        VVECTZ     +2                         #  B(2)    ALTRATE IN UNITS OF 2(5) M/CS
006831,002918: E7,1745  E7,1730               ALTITUDE           =        ALTRATE    +2                         #  B(2)    ALTITUDE IN UNITS OF 2(15) M
006832,002919: E7,1745  E7,1732               LATVMETR           =        ALTITUDE   +2                         #  B(1)    LATERAL VELOCITY METER INDICATOR
006833,002920: E7,1745  E7,1733               FORVMETR           =        LATVMETR   +1                         #  B(1)    FORWARD VELOCITY METER INDICATOR
006834,002921: E7,1745  E7,1734               FORVEL             =        FORVMETR   +1                         #  B(2)    FORWARD VELOCITY FOR DSKY (N60)
006835,002922: E7,1745  E7,1722               PIPCTR1            =        VVECTY                                #  B(1)    TEMPORARY FOR PIPCTR
006836,002923: 
006837,002924: 
006838,002925: E7,1745     0063               ALTRTEMP           =        ITEMP3                                #  B(2)    ALTITUDE-RATE TEMPORARY
006839,002926: E7,1745     0063               ALTTEMP            =        ITEMP3                                #  B(2)    ALTITUDE TEMPORARY
006840,002927: E7,1745     0063               VHY                =        ITEMP3                                #  B(2)    VELOCITY ALONG UHYP (I.E. SM-Y)
006841,002928: E7,1745     0065               VHZ                =        ITEMP5                                #  B(2)    VELOCITY ALONG UHZP
006842,002929: E7,1745     0070               FORVTEMP           =        RUPTREG1                              #  B(2)    FORWARD VELOCITY TEMPORARY
006843,002930: E7,1745     0072               LATVEL             =        RUPTREG3                              #  B(2)    LATERAL VELOCITY TEMPORARY
006844,002931: 
006845,002932: 
006846,002933: 
006847,002934:                                                                                                  #           DOWNLINK QTY -- GOOD THROUGHOUT LANDING -- LOADED IN SERVICER (2D)
006848,002935: 
006849,002936: E7,1745  E7,1736               TRUDELH            EQUALS   FORVEL     +2                         #  I(2)DNLK  TRUE DELTA H FOR DOWNLINK,
006850,002937:                                                                                                  #      LOADED BEFORE ENTERING TERRAIN MODEL
006851,002938: 
006852,002939: 
006853,002940:                                                                                                  #  P66 ERASABLES (HORIZONTAL VELOCITY NULLING GUIDANCE)
006854,002941: E7,1745  E7,1433               VHZC               EQUALS   DELVLVC                               #  B(6) VELOCITY HORIZONTAL COMMAND
006855,002942: 
006856,002943: 
006857,002944: 
006858,002945:                                                                                                  #           P66 ERASABLES (R.O.D.)                         (1D)
006859,002946: 
006860,002947: E7,1745  E7,1746               RODCOUNT           EQUALS   R65CNTR    +1                         #  B(1)    ROD CLICK COUNTER
006861,002948: 
006862,002949: 
006863,002950:                                                                                                  #           P66 ERASABLES (R.O.D.)                        (14D)
006864,002951: 
006865,002952:                                                                                                  #  **** NOTE: OLDPIPAX,Y,Z AND DELVROD MUST BE KEPT ADJACENT AND IN THAT ORDER FOR P66 INITIALIZATIONS ****
006866,002953: 
006867,002954: E7,1745  E7,1756               RODSCAL1           EQUALS   RM                                    #  B(1)
006868,002955: E7,1745  E7,1757               LASTTPIP           EQUALS   RODSCAL1   +1                         #  I(2)
006869,002956: E7,1745  E7,1761               THISTPIP           EQUALS   LASTTPIP   +2                         #  B(2)
006870,002957: E7,1745  E7,1763               OLDPIPAX           EQUALS   THISTPIP   +2                         #  B(1)
006871,002958: E7,1745  E7,1764               OLDPIPAY           EQUALS   OLDPIPAX   +1                         #  B(1)
006872,002959: E7,1745  E7,1765               OLDPIPAZ           EQUALS   OLDPIPAY   +1                         #  B(1)
006873,002960: E7,1745  E7,1766               DELVROD            EQUALS   OLDPIPAZ   +1                         #  B(6)
006874,002961: 
006875,002962: 
006876,002963: 
006877,002964:                                                                                                  #           TERRAIN MODEL TEMPORARY -- LOADED IN SERVICER        (2D)
006878,002965: 

Page 159

006880,002967: E7,1745  E7,1766               TEMDELH            EQUALS   DELVROD                               #  I(2)TMP  STORES TRUE DELTAH IN TER. MOD.
006881,002968: 
006882,002969: 
006883,002970:                                                                                                  #  NOUN 63 COMPONENT                             (2D)
006884,002971: E7,1745  E7,1774               HCALC1             EQUALS   DELVROD    +6                         #  I(2)
006885,002972: 
006886,002973: 
006887,002974:                                                                                                  #  LANDING RADAR DOWNLINK                                (2D)
006888,002975: E7,1745  E7,1776               HMEASDL            EQUALS   HCALC1     +2                         #  B(2)
006889,002976: 
006890,002977: 

Page 160

006892,002979:                                                                                                  #  *******  OVERLAY NUMBER 5 IN EBANK 7  *******
006893,002980: 
006894,002981: 
006895,002982: 
006896,002983: 
006897,002984:                                                                                                  #           ASCENT GUIDANCE ERASABLES.                    (21D)
006898,002985: 
006899,002986: E7,1745  E7,1630               RCO                EQUALS   END-ALIG                              #  I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
006900,002987: E7,1745  E7,1632               YCO                EQUALS   RCO        +2                         #  I(2)TMP DISTANCE, SCALED AT 2(24).
006901,002988: E7,1745  E7,1634               1/DV1              EQUALS   YCO        +2                         #  B(2)TMP ATMAG
006902,002989: E7,1745  E7,1636               1/DV2              EQUALS   1/DV1      +2                         #  B(2)TMP ATMAG
006903,002990: E7,1745  E7,1640               1/DV3              EQUALS   1/DV2      +2                         #  B(2)TMP ATMAG
006904,002991: E7,1745  E7,1642               XRANGE             EQUALS   1/DV3      +2                         #  B(2)TMP
006905,002992: E7,1745  E7,1644               ENGOFFDT           EQUALS   XRANGE     +2                         #  B(1)TMP
006906,002993: E7,1745  E7,1645               VGVECT             EQUALS   ENGOFFDT   +1                         #  I(6)OUT VELOCITY-TO-BE-GAINED
006907,002994: E7,1745  E7,1653               TXO                EQUALS   VGVECT     +6                         #  I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
006908,002995:                                                                                                  #  IS ALLOWED.
006909,002996: 
006910,002997: E7,1745  E7,1570               1/DV0              EQUALS   MASS1                                 #  B(2)TMP  ATMAG TEMPORARY
006911,002998: 
006912,002999: 
006913,003000:                                                                                                  #  END OF THE ASCENT GUIDANCE ERASABLES.
006914,003001: 
006915,003002: E7,1745                        END-E7             EQUALS   3777                                  #  ** LAST LOCATION USED IN E7 **

End of include-file ERASABLE_ASSIGNMENTS.agc.  Parent file is MAIN.agc