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.

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

Page 92

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

Page 93

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

Page 94

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

Page 95

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

Page 96

004109,000195:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
004110,000196: 
004111,000197:                                                                                                  #              **  FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION.  **
004112,000198: 

Page 97

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

Page 98

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

Page 99

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

Page 100

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

Page 101

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

Page 102

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

Page 103

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

Page 104

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

Page 105

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

Page 106

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

Page 107

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

Page 108

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

Page 109

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

Page 110

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

Page 111

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

Page 112

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

Page 113

004888,000974:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
004889,000975:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
004890,000976:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
004891,000977: 

Page 114

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

Page 115

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

Page 116

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

Page 117

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

Page 118

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

Page 119

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

Page 120

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

Page 121

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

Page 122

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

Page 123

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

Page 124

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

Page 125

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

Page 126

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

Page 127

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

Page 128

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

Page 129

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

Page 130

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

Page 131

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

Page 132

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

Page 133

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

Page 134

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

Page 135

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

Page 136

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

Page 137

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

Page 138

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

Page 139

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

Page 140

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

Page 141

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

Page 142

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

Page 143

006215,002301: E6,1775  E6,1774               END-E6             EQUALS   AZBIAS     +1                         #  NEXT AVAILABLE LOC IN E6.
006216,002302: 

Page 144

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

Page 145

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

Page 146

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

Page 147

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

Page 148

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

Page 149

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

Page 150

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

Page 151

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

Page 152

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

Page 153

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

Page 154

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

Page 155

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

Page 156

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

Page 157

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

Page 158

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

Page 159

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

Page 160

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

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