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.

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

Page 92

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

Page 93

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

Page 94

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

Page 95

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

Page 96

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

Page 97

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

Page 98

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

Page 99

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

Page 100

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

Page 101

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

Page 102

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

Page 103

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

Page 104

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

Page 105

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

Page 106

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

Page 107

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

Page 108

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

Page 109

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

Page 110

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

Page 111

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

Page 112

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

Page 113

004883,000973:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
004884,000974:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
004885,000975:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
004886,000976: 

Page 114

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

Page 115

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

Page 116

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

Page 117

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

Page 118

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

Page 119

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

Page 120

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

Page 121

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

Page 122

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

Page 123

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

Page 124

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

Page 125

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

Page 126

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

Page 127

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

Page 128

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

Page 129

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

Page 130

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

Page 131

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

Page 132

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

Page 133

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

Page 134

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

Page 135

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

Page 136

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

Page 137

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

Page 138

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

Page 139

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

Page 140

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

Page 141

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

Page 142

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

Page 143

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

Page 144

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

Page 145

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

Page 146

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

Page 147

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

Page 148

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

Page 149

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

Page 150

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

Page 151

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

Page 152

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

Page 153

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

Page 154

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

Page 155

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

Page 156

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

Page 157

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

Page 158

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

Page 159

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

Page 160

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

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