Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

004137,000002:                                                                                                  ## Copyright:   Public domain.
004138,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
004139,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
004140,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
004141,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
004142,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
004143,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
004144,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
004145,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
004146,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
004147,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
004148,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
004149,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
004150,000015:                                                                                                  ## Reference:   pp. 91-156
004151,000016:                                                                                                  ## Assembler:   yaYUL
004152,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
004153,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
004154,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
004155,000020:                                                                                                  ##              2017-08-14 MAS  Began updates for Zerlina 56.
004156,000021:                                                                                                  ##              2017-08-16 MAS  Complated updating for Zerlia 56.
004157,000022:                                                                                                  ##              2017-08-24 MAS  Fixed an incorrect offset in lunar landing erasables.
004158,000023: 

Page 91

004160,000025:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
004161,000026: 
004162,000027:                                                                                                  #           EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
004163,000028:                                                                                                  #                  OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
004164,000029:                                                                                                  #                  CHANGING OF ONLY ONE CARD.  EXAMPLE.
004165,000030: 
004166,000031:                                                                                                  #                                          X        EQUALS START
004167,000032:                                                                                                  #                                          Y        EQUALS X        +SIZE.X
004168,000033:                                                                                                  #                                          Z        EQUALS Y        +SIZE.Y
004169,000034: 
004170,000035:                                                                                                  #                  (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
004171,000036:                                                                                                  #                  (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
004172,000037:                                                                                                  #                   USUALLY NUMERIC,  IE. 1, 2, 6, 18D ETC.               )
004173,000038: 
004174,000039: 
004175,000040:                                                                                                  #           EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
004176,000041:                                                                                                  #                  AND DIFFERENT DATA).  EXAMPLE.
004177,000042: 
004178,000043:                                                                                                  #                                          X        EQUALS Y
004179,000044: 
004180,000045: 
004181,000046:                                                                                                  #           = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
004182,000047:                                                                                                  #                  (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
004183,000048: 
004184,000049:                                                                                                  #                                          X        =      Y
004185,000050: 
004186,000051: 
004187,000052:                                                                                                  #           THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
004188,000053:                                                                                                  #           THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
004189,000054: 
004190,000055:                                                                                                  #                  M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
004191,000056:                                                                                                  #                       B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
004192,000057:                                                                                                  #                           INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
004193,000058:                                                                                                  #                       I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
004194,000059:                                                                                                  #                           INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
004195,000060:                                                                                                  #                           INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
004196,000061: 
004197,000062:                                                                                                  #                  SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
004198,000063: 
004199,000064:                                                                                                  #                  N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS.
004200,000065:                                                                                                  #                       PL  MEANS THAT THE CONTENTS ARE PAD LOADED.
004201,000066:                                                                                                  #                       DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
004202,000067:                                                                                                  #                       PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
004203,000068:                                                                                                  #                           IS USED DURING THE ENTIRE MISSION FOR ONE
004204,000069:                                                                                                  #                           PURPOSE AND CANNOT BE SHARED.
004205,000070:                                                                                                  #                       TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
004206,000071:                                                                                                  #                           IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
004207,000072:                                                                                                  #                           IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
004208,000073:                                                                                                  #                           PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
004209,000074:                                                                                                  #                           CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS

Page 92

004211,000076:                                                                                                  #                           IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
004212,000077:                                                                                                  #                           IS NOT ACTIVE IN PARALLEL.
004213,000078:                                                                                                  #                       IN  MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
004214,000079:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004215,000080:                                                                                                  #                       OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
004216,000081:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004217,000082: 

Page 93

004219,000084:                                                                                                  #           SPECIAL REGISTERS.
004220,000085: 
004221,000086: 26,2024                        A                  EQUALS   0                                     
004222,000087: 26,2024                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
004223,000088: 26,2024                        Q                  EQUALS   2                                     
004224,000089: 26,2024                        EBANK              EQUALS   3                                     
004225,000090: 26,2024                        FBANK              EQUALS   4                                     
004226,000091: 26,2024                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
004227,000092: 26,2024                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
004228,000093:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
004229,000094: 
004230,000095: 26,2024                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
004231,000096: 26,2024                        LRUPT              EQUALS   11                                    
004232,000097: 26,2024                        QRUPT              EQUALS   12                                    
004233,000098: 26,2024                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
004234,000099: 26,2024                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
004235,000100: 26,2024                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
004236,000101: 26,2024                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
004237,000102: 
004238,000103: 26,2024                        CYR                EQUALS   20                                    
004239,000104: 26,2024                        SR                 EQUALS   21                                    
004240,000105: 26,2024                        CYL                EQUALS   22                                    
004241,000106: 26,2024                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
004242,000107: 
004243,000108: 
004244,000109: 26,2024                        TIME2              EQUALS   24                                    
004245,000110: 26,2024                        TIME1              EQUALS   25                                    
004246,000111: 26,2024                        TIME3              EQUALS   26                                    
004247,000112: 26,2024                        TIME4              EQUALS   27                                    
004248,000113: 26,2024                        TIME5              EQUALS   30                                    
004249,000114: 26,2024                        TIME6              EQUALS   31                                    
004250,000115: 26,2024                        CDUX               EQUALS   32                                    
004251,000116: 26,2024                        CDUY               EQUALS   33                                    
004252,000117: 26,2024                        CDUZ               EQUALS   34                                    
004253,000118: 26,2024                        CDUT               EQUALS   35                                    #  REND RADAR TRUNNION CDU
004254,000119: 26,2024                        CDUS               EQUALS   36                                    #  REND RADAR SHAFT CDU
004255,000120: 26,2024                        PIPAX              EQUALS   37                                    
004256,000121: 26,2024                        PIPAY              EQUALS   40                                    
004257,000122: 26,2024                        PIPAZ              EQUALS   41                                    
004258,000123: 26,2024                        Q-RHCCTR           EQUALS   42                                    #  RHC COUNTER REGISTERS
004259,000124: 26,2024                        P-RHCCTR           EQUALS   43                                    
004260,000125: 26,2024                        R-RHCCTR           EQUALS   44                                    
004261,000126: 26,2024                        INLINK             EQUALS   45                                    
004262,000127: 26,2024                        RNRAD              EQUALS   46                                    
004263,000128: 26,2024                        GYROCMD            EQUALS   47                                    
004264,000129: 26,2024                        CDUXCMD            EQUALS   50                                    
004265,000130: 26,2024                        CDUYCMD            EQUALS   51                                    
004266,000131: 26,2024                        CDUZCMD            EQUALS   52                                    
004267,000132: 26,2024                        CDUTCMD            EQUALS   53                                    #  RADAR TRUNNION COMMAND
004268,000133: 26,2024                        CDUSCMD            EQUALS   54                                    #  RADAR SHAFT COMMAND

Page 94

004270,000135: 26,2024                        THRUST             EQUALS   55                                    
004271,000136: 26,2024                        LEMONM             EQUALS   56                                    
004272,000137: 26,2024                        OUTLINK            EQUALS   57                                    
004273,000138: 26,2024                        ALTM               EQUALS   60                                    
004274,000139: 
004275,000140: 
004276,000141:                                                                                                  #           INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
004277,000142: 
004278,000143: 26,2024                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
004279,000144: 26,2024                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
004280,000145: 26,2024                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
004281,000146: 26,2024                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
004282,000147: 26,2024                        S1                 EQUALS   40D                                   
004283,000148: 26,2024                        S2                 EQUALS   41D                                   
004284,000149: 26,2024                        QPRET              EQUALS   42D                                   
004285,000150: 
004286,000151: 
004287,000152:                                                                                                  #  INPUT/OUTPUT CHANNELS
004288,000153: 
004289,000154:                                                                                                  #                                            *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
004290,000155: 26,2024  0000001               LCHAN              EQUALS   L                                     
004291,000156: 26,2024  0000002               QCHAN              EQUALS   Q                                     
004292,000157: 26,2024                        HISCALAR           EQUALS   3                                     
004293,000158: 26,2024                        LOSCALAR           EQUALS   4                                     
004294,000159: 26,2024                        CHAN5              EQUALS   5                                     
004295,000160: 26,2024                        CHAN6              EQUALS   6                                     
004296,000161: 26,2024                        SUPERBNK           EQUALS   7                                     #  SUPER-BANK.
004297,000162: 26,2024                        OUT0               EQUALS   10                                    
004298,000163: 26,2024                        DSALMOUT           EQUALS   11                                    
004299,000164: 26,2024                        CHAN12             EQUALS   12                                    
004300,000165: 26,2024                        CHAN13             EQUALS   13                                    
004301,000166: 26,2024                        CHAN14             EQUALS   14                                    
004302,000167: 26,2024                        MNKEYIN            EQUALS   15                                    
004303,000168: 26,2024                        NAVKEYIN           EQUALS   16                                    
004304,000169: 26,2024                        CHAN30             EQUALS   30                                    
004305,000170: 26,2024                        CHAN31             EQUALS   31                                    
004306,000171: 26,2024                        CHAN32             EQUALS   32                                    
004307,000172: 26,2024                        CHAN33             EQUALS   33                                    
004308,000173: 26,2024                        DNTM1              EQUALS   34                                    
004309,000174: 26,2024                        DNTM2              EQUALS   35                                    
004310,000175: 26,2024                        CHAN76             EQUALS   76                                    
004311,000176: 26,2024                        CHAN77             EQUALS   77                                    
004312,000177:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
004313,000178: 

Page 95

004315,000180:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
004316,000181: 
004317,000182: 
004318,000183:                                                                                                  #              **  FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION.  **
004319,000184: 

Page 96

004321,000186:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
004322,000187: 
004323,000188:    0061                                           SETLOC   61                                    
004324,000189:                                                                                                  #           INTERRUPT TEMPORARY STORAGE POOL.                              (11D)
004325,000190: 
004326,000191:                                                                                                  #             (ITEMP1 THROUGH RUPTREG4)
004327,000192: 
004328,000193:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
004329,000194:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
004330,000195: 
004331,000196:    0061                        ITEMP1             ERASE                                          
004332,000197:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
004333,000198:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
004334,000199: 
004335,000200:    0062                        ITEMP2             ERASE                                          
004336,000201:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
004337,000202:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
004338,000203: 
004339,000204:    0063                        ITEMP3             ERASE                                          
004340,000205:    0064     0063               WAITADR            EQUALS   ITEMP3                                
004341,000206:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
004342,000207: 
004343,000208:    0064                        ITEMP4             ERASE                                          
004344,000209:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
004345,000210:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
004346,000211: 
004347,000212:    0065                        ITEMP5             ERASE                                          
004348,000213:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
004349,000214: 
004350,000215:    0066                        ITEMP6             ERASE                                          
004351,000216:                                                                                                  # NEWLOC+1       EQUALS          ITEMP6                    DP ADDRESS.
004352,000217: 
004353,000218:    0067                                           SETLOC   67                                    
004354,000219:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
004355,000220: 
004356,000221: 
004357,000222:    0070                        RUPTREG1           ERASE                                          
004358,000223:    0071                        RUPTREG2           ERASE                                          
004359,000224:    0072                        RUPTREG3           ERASE                                          
004360,000225:    0073                        RUPTREG4           ERASE                                          
004361,000226:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
004362,000227:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
004363,000228: 
004364,000229:                                                                                                  #           FLAGWORD RESERVATIONS.                                         (16D)
004365,000230: 
004366,000231:    0074                        STATE              ERASE    +15D                                  #  FLAGWORD REGISTERS.
004367,000232: 
004368,000233: 
004369,000234:                                                                                                  #           P25 RADAR STORAGE.  (MAY BE UNSHARED IN E7)  (TEMP OVERLAY)    (2D)    OVERLAYS FLGWRD 14 & 15
004370,000235: 

Page 97

004372,000237:    0114     0112               LASTYCMD           EQUALS   STATE      +14D                       #  B(1)PRM  THESE ARE CALLED BY T4RUPT
004373,000238:    0114     0113               LASTXCMD           EQUALS   LASTYCMD   +1                         #  B(1)PRM  THEY MUST BE CONTIGUOUS,Y FIRST
004374,000239: 
004375,000240: 
004376,000241: 
004377,000242:                                                                                                  #           EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS.  (32D) (INTB15+ THROUGH RUPTMXTM)
004378,000243:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
004379,000244:    0115     0114               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
004380,000245:    0115     0114               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
004381,000246:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
004382,000247:    0116     0115               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
004383,000248:    0116     0115               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
004384,000249:    0116     0115               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
004385,000250: 
004386,000251:                                                                                                  #           THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
004387,000252: 
004388,000253:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
004389,000254:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
004390,000255:    0120     0117               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
004391,000256:    0120     0117               CHAR               =        POLISH                                #  TEMP FOR CHARIN
004392,000257:    0120     0117               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
004393,000258:    0120     0117               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
004394,000259: 
004395,000260:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
004396,000261:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
004397,000262: 
004398,000263:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
004399,000264:    0130     0122               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
004400,000265:    0130     0122               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
004401,000266:    0130     0122               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
004402,000267:    0130     0122               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
004403,000268: 
004404,000269:    0130     0123               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
004405,000270:    0130     0123               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
004406,000271:    0130     0123               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
004407,000272:    0130     0123               HITEMIN            =        VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004408,000273:                                                                                                  #           MUST = LOTEMIN-1.
004409,000274:    0130     0124               CODE               =        VBUF       +2                         #  FOR DSPIN
004410,000275:    0130     0124               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
004411,000276:    0130     0124               LOTEMIN            =        VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004412,000277:                                                                                                  #           MUST = HITEMIN+1.
004413,000278:    0130     0125               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
004414,000279:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004415,000280: 
004416,000281:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
004417,000282:    0133                        BUF2               ERASE    +1                                    
004418,000283:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
004419,000284:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
004420,000285:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
004421,000286:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
004422,000287: 

Page 98

004424,000289:    0136     0135               DMPNTEMP           =        MPTEMP                                #  DMPSUB TEMPORARY
004425,000290:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
004426,000291:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
004427,000292:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
004428,000293:    0137     0136               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
004429,000294: 
004430,000295:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
004431,000296:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
004432,000297:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
004433,000298:    0140     0137               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
004434,000299:    0140     0137               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004435,000300: 
004436,000301:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
004437,000302:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
004438,000303:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
004439,000304:    0141     0140               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
004440,000305:    0141     0140               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
004441,000306: 
004442,000307:    0141                        TEM1               ERASE                                          #  EXEC TEMP
004443,000308:    0142     0141               POLYRET            =        TEM1                                  
004444,000309:    0142     0141               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
004445,000310: 
004446,000311:    0142                        TEM2               ERASE                                          #  EXEC TEMP
004447,000312:    0143     0142               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
004448,000313:    0143                        TEM3               ERASE                                          #  EXEC TEMP
004449,000314:    0144     0143               COUNT              =        TEM3                                  #  FOR DSPIN
004450,000315: 
004451,000316:    0144                        TEM4               ERASE                                          #  EXEC TEMP
004452,000317:    0145     0144               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
004453,000318:    0145     0144               DSPWDRET           =        TEM4                                  #  RETURN FOR DSPSIGN
004454,000319:    0145     0144               SEPSCRET           =        TEM4                                  #  RETURN FOR SEPSEC
004455,000320:    0145     0144               SEPMNRET           =        TEM4                                  #  RETURN FOR SEPMIN
004456,000321: 
004457,000322:    0145                        TEM5               ERASE                                          #  EXEC TEMP
004458,000323:    0146     0145               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
004459,000324: 
004460,000325:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
004461,000326:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
004462,000327:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004463,000328:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
004464,000329:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004465,000330:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
004466,000331:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004467,000332:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
004468,000333:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
004469,000334: 
004470,000335:                                                                                                  #           AX*SR*T STORAGE.                                               (6D)
004471,000336: 
004472,000337:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
004473,000338:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP

Page 99

004475,000340:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
004476,000341:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
004477,000342:    0154     0157               TERM1TMP           EQUALS   MPAC       +3                         #  B(2)TMP
004478,000343: 
004479,000344:    0154     0143               DEXI               =        DEX1                                  
004480,000345: 
004481,000346: 
004482,000347:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
004483,000348:                                                                                                  #  SUBROUTINE ROOTPSRS.   THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
004484,000349:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
004485,000350: 
004486,000351:    0154     0142               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
004487,000352:    0154     0143               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
004488,000353:    0154     0144               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
004489,000354:    0154     0145               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
004490,000355:    0154     0146               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
004491,000356:    0154     0147               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
004492,000357:    0154     0150               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
004493,000358:    0154     0151               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
004494,000359:    0154     0152               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N HI ORDER
004495,000360:    0154     0153               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N LO ORDER
004496,000361: 
004497,000362:    0154     0117               PWRPTR             =        POLISH                                #  ROOTPSRS POWER TABLE POINTER
004498,000363:    0154     0124               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
004499,000364:    0154     0125               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
004500,000365:    0154     0126               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
004501,000366:    0154     0127               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
004502,000367:    0154     0132               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
004503,000368:    0154     0140               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABLE LOOP COUNTER
004504,000369:    0154     0141               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABLE POINTER
004505,000370: 
004506,000371: 

Page 100

004508,000373:                                                                                                  #           DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                      (84D)
004509,000374: 
004510,000375:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
004511,000376:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
004512,000377:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
004513,000378:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
004514,000379:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
004515,000380:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
004516,000381: 
004517,000382:    0170                                           ERASE    +83D                                  #  EIGHT SETS OF  12 REGISTERS EACH
004518,000383: 
004519,000384: 
004520,000385:                                                                                                  #  INCORP STORAGE: R22 (N29)    (SHARES WITH FOLLOWING SECTION)            (4D)
004521,000386: 
004522,000387:    0314     0314               R22DISP            EQUALS   TIME2SAV                              #  I(4) N49 DISPLAY OF DELTA R AND DELTA V
004523,000388: 
004524,000389: 
004525,000390:                                                                                                  #  STANDBY VERB ERASABLES                                                  (4D)
004526,000391: 
004527,000392:    0314                        TIME2SAV           ERASE    +1                                    
004528,000393:    0316                        SCALSAVE           ERASE    +1                                    
004529,000394: 
004530,000395: 
004531,000396:                                                                                                  #          HARDWARE RESTART COUNTER                                    (1D)
004532,000397: 
004533,000398:    0320                        REDOCTR            ERASE                                          #  CONTAINS NUMBER OF RESTARTS
004534,000399: 
004535,000400: 
004536,000401:                                                                                                  #   UNSHARED STORAGE FOR DESIRED GIMBAL ANGLES                         (3D)
004537,000402: 
004538,000403:    0321                        THETAD             ERASE    +2                                    
004539,000404:    0324     0321               CPHI               =        THETAD                                #  O   DESIRED GIMBAL ANGLES
004540,000405:    0324     0322               CTHETA             =        THETAD     +1                         #  I   FOR
004541,000406:    0324     0323               CPSI               =        THETAD     +2                         #  M   MANEUVER.
004542,000407: 
004543,000408: 
004544,000409:                                                                                                  #   STORAGE FOR DELTAV/S                                               (6D)
004545,000410: 
004546,000411:    0324                        DELV               ERASE    +5                                    
004547,000412:    0332     0324               DELVX              =        DELV                                  
004548,000413:    0332     0326               DELVY              =        DELV       +2                         
004549,000414:    0332     0330               DELVZ              =        DELV       +4                         
004550,000415: 
004551,000416: 
004552,000417:                                                                                                  #           WAITLIST REPEAT FLAG                                           (1D)
004553,000418: 
004554,000419:    0332                        RUPTAGN            ERASE                                          
004555,000420:    0333     0332               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
004556,000421: 
004557,000422: 
004558,000423:                                                                                                  #           DOWNLINK STORAGE.                                              (27D)
004559,000424: 

Page 101

004561,000426:    0333                        DNTMERAS           ERASE    +26D                                  #  B(27D)PRM  ERASABLES USED BY DOWN-
004562,000427:                                                                                                  #   TELEMETRY PROGRAM -- CANNOT BE SHARED.
004563,000428: 
004564,000429:    0366     0333               DNLSTCOD           EQUALS   DNTMERAS                              #  B(1)PRM  CODE SPECIFYING WHICH DOWNLIST
004565,000430:                                                                                                  #         WILL BE SELECTED FOR TRANSMISSION
004566,000431:    0366     0334               CTLIST             EQUALS   DNLSTCOD   +1                         #  B(1)PRM  POINTER TO CURRENT LOCATION OF
004567,000432:                                                                                                  #           THE CONTROL LIST.
004568,000433:    0366     0335               DNTMGOTO           EQUALS   CTLIST     +1                         #  B(1)PRM  POINTER TO LOCATION WHERE DNTM
004569,000434:                                                                                                  #   PROCESSING WILL RESUME NEXT DOWNRUPT.
004570,000435:    0366     0336               DNECADR            EQUALS   DNTMGOTO   +1                         #  B(1)PRM  HOLDS CONTENTS OF CURRENT
004571,000436:                                                                                                  #        CONTROL LIST LOCATION.
004572,000437:    0366     0336               TMINDEX            EQUALS   DNECADR                               #  B(1)  INDEX FOR LOADING SNAPSHOT BUFFER.
004573,000438:    0366     0336               DUMPLOC            EQUALS   DNECADR                               #  B(1)  BITS 1-11 CONTAIN ECADR OF AGC DP
004574,000439:                                                                                                  #   WORD BEING DUMPED BY V74 ERASABLE DUMP.
004575,000440:                                                                                                  #        BITS 12-15 CONTAIN COUNT OF
004576,000441:                                                                                                  #   COMPLETE DUMPS ALREADY SENT.
004577,000442:    0366     0337               SUBLIST            EQUALS   DNECADR    +1                         #  B(1)PRM  POINTER TO CURRENT SUBLIST LOC.
004578,000443:    0366     0340               DNTMBUFF           EQUALS   SUBLIST    +1                         #  B(22)PRM DOWNLINK SNAPSHOT BUFFER
004579,000444: 
004580,000445: 
004581,000446:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                     (10D) FIVE MORE IN EBANK 2
004582,000447: 
004583,000448:    0366                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
004584,000449:    0367                        NVWORD             ERASE                                          
004585,000450:    0370                        MARKNV             ERASE                                          
004586,000451:    0371                        NVSAVE             ERASE                                          #  PURPOSES)
004587,000452:                                                                                                  #                  (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
004588,000453:    0372                        CADRFLSH           ERASE                                          
004589,000454:    0373                        CADRMARK           ERASE                                          
004590,000455:    0374                        TEMPFLSH           ERASE                                          
004591,000456:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM  3 ALARM CODE REGISTERS 
004592,000457: 
004593,000458: 
004594,000459:                                                                                                  #           VAC AREAS. -BE CAREFUL OF PLACEMENT-                           (220D)
004595,000460: 
004596,000461:    0400                        VAC1USE            ERASE                                          
004597,000462:    0401                        VAC1               ERASE    +42D                                  
004598,000463:    0454                        VAC2USE            ERASE                                          
004599,000464:    0455                        VAC2               ERASE    +42D                                  
004600,000465:    0530                        VAC3USE            ERASE                                          
004601,000466:    0531                        VAC3               ERASE    +42D                                  
004602,000467:    0604                        VAC4USE            ERASE                                          
004603,000468:    0605                        VAC4               ERASE    +42D                                  
004604,000469:    0660                        VAC5USE            ERASE                                          
004605,000470:    0661                        VAC5               ERASE    +42D                                  
004606,000471: 
004607,000472: 
004608,000473:                                                                                                  #           TEMPORARIES USED BY RESTARTS ROUTINE
004609,000474: 
004610,000475:    0734     0705               GOLOC              EQUALS   VAC5       +20D                       #  B(4)
004611,000476: 

Page 102

004613,000478:                                                                                                  #           STARALIGN ERASABLES.                                           (13D)
004614,000479: 
004615,000480:    0734                        STARCODE           ERASE                                          #  (1)
004616,000481:    0735     0734               AOTCODE            =        STARCODE                              
004617,000482:    0735                        STARALGN           ERASE    +11D                                  
004618,000483:    0751     0735               SINCDU             =        STARALGN                              
004619,000484:    0751     0743               COSCDU             =        STARALGN   +6                         
004620,000485: 
004621,000486:    0751     0741               SINCDUX            =        SINCDU     +4                         
004622,000487:    0751     0735               SINCDUY            =        SINCDU                                
004623,000488:    0751     0737               SINCDUZ            =        SINCDU     +2                         
004624,000489:    0751     0747               COSCDUX            =        COSCDU     +4                         
004625,000490:    0751     0743               COSCDUY            =        COSCDU                                
004626,000491:    0751     0745               COSCDUZ            =        COSCDU     +2                         
004627,000492: 
004628,000493: 
004629,000494:                                                                                                  #           PHASE TABLE AND RESTART COUNTERS.                              (12D)
004630,000495: 
004631,000496:    0751                        -PHASE1            ERASE                                          
004632,000497:    0752                        PHASE1             ERASE                                          
004633,000498:    0753                        -PHASE2            ERASE                                          
004634,000499:    0754                        PHASE2             ERASE                                          
004635,000500:    0755                        -PHASE3            ERASE                                          
004636,000501:    0756                        PHASE3             ERASE                                          
004637,000502:    0757                        -PHASE4            ERASE                                          
004638,000503:    0760                        PHASE4             ERASE                                          
004639,000504:    0761                        -PHASE5            ERASE                                          
004640,000505:    0762                        PHASE5             ERASE                                          
004641,000506:    0763                        -PHASE6            ERASE                                          
004642,000507:    0764                        PHASE6             ERASE                                          
004643,000508: 
004644,000509: 
004645,000510:                                                                                                  #           A**SR*T STORAGE.                                               (6D)
004646,000511: 
004647,000512:    0765                        CDUSPOT            ERASE    +5                                    #  B(6)
004648,000513: 
004649,000514:    0773     0765               CDUSPOTY           =        CDUSPOT                               
004650,000515:    0773     0767               CDUSPOTZ           =        CDUSPOT    +2                         
004651,000516:    0773     0771               CDUSPOTX           =        CDUSPOT    +4                         
004652,000517: 
004653,000518: 
004654,000519:                                                                                                  #           VERB 37 STORAGE.                                               (2D)
004655,000520: 
004656,000521:    0773                        MINDEX             ERASE                                          #  B(1) TMP INDEX FOR MAJOR MODE
004657,000522:    0774                        MMNUMBER           ERASE                                          #  B(1) TMP MAJOR MODE REQUESTED BY V37
004658,000523: 
004659,000524: 
004660,000525:                                                                                                  #           PINBALL INTERRUPT ACTION.                                      (1D)
004661,000526: 
004662,000527:    0775                        DSPCNT             ERASE                                          #  B(1)PRM COUNTER FOR DSPOUT.
004663,000528: 

Page 103

004665,000530:                                                                                                  #           PINBALL EXECUTIVE ACTION                                       (44D)
004666,000531: 
004667,000532:    0776                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR.
004668,000533:    0777                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
004669,000534:    1000                        VERBREG            ERASE                                          #  VERB CODE
004670,000535:    1001                        NOUNREG            ERASE                                          #  NOUN CODE
004671,000536:    1002                        XREG               ERASE                                          #  R1 INPUT BUFFER
004672,000537:    1003                        YREG               ERASE                                          #  R2 INPUT BUFFER
004673,000538:    1004                        ZREG               ERASE                                          #  R3 INPUT BUFFER
004674,000539:    1005                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
004675,000540:    1006                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
004676,000541:    1007     1006               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
004677,000542:                                                                                                  #           MUST = LOTEMOUT-1.
004678,000543:    1007                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
004679,000544:    1010     1007               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
004680,000545:                                                                                                  #           MUST = HITEMOUT+1.
004681,000546:    1010                        MODREG             ERASE                                          #  MODE CODE
004682,000547:    1011                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
004683,000548:    1012                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
004684,000549:    1013                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
004685,000550:    1014                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
004686,000551:    1015                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
004687,000552:    1016                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
004688,000553:    1017                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
004689,000554:    1020                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
004690,000555:    1021                        MONSAVE2           ERASE                                          #  NVMONOPT OPTIONS
004691,000556:    1022                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
004692,000557:    1036                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
004693,000558:                                                                                                  #  MUST = NVBNKTEM-1
004694,000559:    1037                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
004695,000560:                                                                                                  #  MUST = NVQTEM+1
004696,000561:    1040                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
004697,000562:    1041                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
004698,000563:    1042                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
004699,000564:    1043                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
004700,000565:    1044                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004701,000566:    1047                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004702,000567: 
004703,000568: 
004704,000569:    1052     1050               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
004705,000570:    1052     1044               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
004706,000571: 
004707,000572: 
004708,000573: 
004709,000574:                                                                                                  #           DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) )          (2D)
004710,000575: 
004711,000576:    1052     1050               OPTIONX            EQUALS   DSPTEMX                               #  (2) EXTENDED VERB OPTION CODE
004712,000577: 
004713,000578: 
004714,000579:                                                                                                  #           TBASES AND PHSPRDT S.                                          (12D)

Page 104

004716,000581:    1052                        TBASE1             ERASE                                          
004717,000582:    1053                        PHSPRDT1           ERASE                                          
004718,000583:    1054                        TBASE2             ERASE                                          
004719,000584:    1055                        PHSPRDT2           ERASE                                          
004720,000585:    1056                        TBASE3             ERASE                                          
004721,000586:    1057                        PHSPRDT3           ERASE                                          
004722,000587:    1060                        TBASE4             ERASE                                          
004723,000588:    1061                        PHSPRDT4           ERASE                                          
004724,000589:    1062                        TBASE5             ERASE                                          
004725,000590:    1063                        PHSPRDT5           ERASE                                          
004726,000591:    1064                        TBASE6             ERASE                                          
004727,000592:    1065                        PHSPRDT6           ERASE                                          
004728,000593: 
004729,000594: 
004730,000595:    1066     1055               PIPCTR             =        PHSPRDT2                              #  USED TO COUNT DOWN R10 CYLCES.  USED IN
004731,000596:                                                                                                  #  CONJUNCTION WITH TBASE2, SO THIS
004732,000597:                                                                                                  #  LOCATION IS FUNCTIONALLY =.  SEE R10,R11
004733,000598: 
004734,000599: 
004735,000600:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                     (5D)
004736,000601: 
004737,000602:    1066                        NVWORD1            ERASE                                          #  B(1) * USED DURING POWERED FLIGHT ONLY *
004738,000603: 
004739,000604:    1067                        EBANKSAV           ERASE                                          
004740,000605:    1070     1067               DSPFLG             =        EBANKSAV                              
004741,000606:    1070                        MARKFLAG           ERASE                                          
004742,000607:    1071                        EBANKTEM           ERASE                                          
004743,000608:    1072                        MARK2PAC           ERASE                                          
004744,000609: 
004745,000610: 
004746,000611: 
004747,000612:                                                                                                  #           CODE WORD FOR AGS RENDEZVOUS DOWNLIST XFER OF RADAR DATA       (1D)
004748,000613: 
004749,000614:    1073                        AGSCODE            ERASE                                          #  B(1) DO NOT SHARE.
004750,000615: 
004751,000616: 
004752,000617:                                                                                                  #           IMU COMPENSATION UNSWITCHED ERASABLE.                          (1D)
004753,000618: 
004754,000619:    1074                        1/PIPADT           ERASE                                          
004755,000620: 
004756,000621: 
004757,000622:                                                                                                  #           TEMPORARIES FOR SPCOS AND SPSIN                                (2D)
004758,000623: 
004759,000624:    1075                        TEMK               ERASE                                          #  (1)
004760,000625:    1076                        SQ                 ERASE                                          #  (1)
004761,000626: 
004762,000627: 
004763,000628:                                                                                                  #      **** RADAR ****                                                     (13D)
004764,000629: 
004765,000630:    1077                        SAMPLIM            ERASE                                          #  B(1)      LR    R12,P60S,R04,R77

Page 105

004767,000632:    1100     1077               RADUSE             EQUALS   SAMPLIM                               #  B(1)PRM   BOTH  P20,P22,R12,R04
004768,000633:    1100                        SAMPLSUM           ERASE    +3                                    #  B(2),I(2) BOTH
004769,000634:    1104     1100               RRTARGET           EQUALS   SAMPLSUM                              #  I(6)      RR  P20,P22,R04,V41
004770,000635: 
004771,000636:    1104                        TIMEHOLD           ERASE    +1                                    #  B(2)      BOTH
004772,000637:    1106                        TANG               ERASE    +1                                    #  B(2),I    RR
004773,000638:    1110     1106               MODEA              EQUALS   TANG                                  #  B(2),I    RR
004774,000639: 
004775,000640:    1110                        MODEB              ERASE    +1                                    #  B(2),I    RR
004776,000641:    1112     1110               NSAMP              EQUALS   MODEB                                 #  B(1)      BOTH
004777,000642: 
004778,000643:    1112                        DESRET             ERASE                                          #  B(1),I    RR
004779,000644:    1113     1112               OLDATAGD           EQUALS   DESRET                                #  B(1)      BOTH
004780,000645: 
004781,000646:    1113                        DESCOUNT           ERASE                                          #  B(1)      RR
004782,000647: 
004783,000648: 
004784,000649: 
004785,000650:                                                                                                  #           ******   P22  ******                                           (6D)
004786,000651: 
004787,000652:    1114     1100               RSUBC              EQUALS   RRTARGET                              #  I(6)S-S  CSM POSITION VECTOR
004788,000653: 
004789,000654: 

Page 106

004791,000656:                                                                                                  #           UNSWITCHED FOR ORBIT INTEGRATION.                              (21D)
004792,000657: 
004793,000658:    1114                        TDEC               ERASE    +20D                                  #  I(2)
004794,000659:    1141     1116               COLREG             EQUALS   TDEC       +2                         #  I(1)
004795,000660:    1141     1117               LAT                EQUALS   COLREG     +1                         #  I(2)
004796,000661:    1141     1121               LONG               EQUALS   LAT        +2                         #  I(2)
004797,000662:    1141     1123               ALT                EQUALS   LONG       +2                         #  I(2)
004798,000663:    1141     1125               YV                 EQUALS   ALT        +2                         #  I(6)
004799,000664:    1141     1133               ZV                 EQUALS   YV         +6                         #  I(6) 
004800,000665: 
004801,000666: 
004802,000667:                                                                                                  #           MISCELLANEOUS UNSWITCHED.                                      (20D)
004803,000668: 
004804,000669:    1141                        P40/RET            ERASE                                          #  (WILL BE PUT IN E6 WHEN THERE IS ROOM)
004805,000670:    1142                        GENRET             ERASE                                          #  B(1)  R61 RETURN CADR.
004806,000671:    1143                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
004807,000672:    1144                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
004808,000673:    1145                        OPTION3            ERASE                                          #  B(1)  NOUN 06 USES THIS
004809,000674:    1146                        LONGCADR           ERASE    +1                                    #  B(2)  LONGCALL REGISTER
004810,000675:    1150                        LONGBASE           ERASE    +1                                    
004811,000676:    1152                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
004812,000677:    1154                        CDUTEMPX           ERASE                                          #  B(1)TMP
004813,000678:    1155                        CDUTEMPY           ERASE                                          #  B(1)TMP
004814,000679:    1156                        CDUTEMPZ           ERASE                                          #  B(1)TMP
004815,000680:    1157                        PIPATMPX           ERASE                                          #  B(1)TMP
004816,000681:    1160                        PIPATMPY           ERASE                                          #  B(1)TMP
004817,000682:    1161                        PIPATMPZ           ERASE                                          #  B(1)TMP
004818,000683: 
004819,000684:    1162                        DISPDEX            ERASE                                          #  B(1)
004820,000685:    1163                        TEMPR60            ERASE                                          #  B(1)
004821,000686:    1164                        PRIOTIME           ERASE                                          #  B(1)
004822,000687: 
004823,000688:                                                                                                  #           P27 (UPDATE PROGRAM ) STORAGE.                                 (26D)
004824,000689: 
004825,000690:    1165                        UPVERBSV           ERASE                                          #  B(1) UPDATE VERB ATTEMPTED.
004826,000691:    1166                        UPTEMP             ERASE    +24D                                  #  B(1)TMP SCRATCH
004827,000692:                                                                                                  #  RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
004828,000693:    1217     1167               COMPNUMB           EQUALS   UPTEMP     +1                         #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
004829,000694:    1217     1170               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP INTERRUPTED PROGRAM MM
004830,000695:    1217     1171               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
004831,000696:    1217     1172               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
004832,000697:    1217     1173               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
004833,000698: 
004834,000699: 
004835,000700:                                                                                                  #           TEMPORARY FOR RESTART PROTECTION IN SERVICER                   (2D)
004836,000701: 

The following line is marked as having changed in ZERASE.038

004838,000703:    1217     1173               DVTEMP             EQUALS   UPBUFF                                #  B(2) TEMP. SAVE DVTOTAL FOR RESTARTS.
004839,000704: 

Page 107

004841,000706:                                                                                                  #           SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS.              (2D)
004842,000707: 
004843,000708:    1217     1166               EBUF2              EQUALS   UPTEMP                                #  B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
004844,000709: 
004845,000710: 
004846,000711:                                                                                                  #           PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION-       (14D)
004847,000712: 
004848,000713:    1217                        RN                 ERASE    +5                                    #  B(6)PRM
004849,000714:    1225                        VN                 ERASE    +5                                    #  B(6)PRM
004850,000715:    1233                        PIPTIME            ERASE    +1                                    #  B(2)PRM  (MUST BE FOLLOWED BY GDT/2)
004851,000716: 
004852,000717: 
004853,000718:                                                                                                  #           SERVICER   -MUST FOLLOW PIPTIME-                               (18D)
004854,000719: 
004855,000720:    1235                        G                  ERASE    +17D                                  #  B(6)PRM    MUST FOLLOW PIPTIME
004856,000721:    1257     1243               PGUIDE             EQUALS   G          +6                         #  B(2)PRM    MUST FOLLOW G
004857,000722:    1257     1245               MASS               EQUALS   PGUIDE     +2                         #  B(2)PRM    MUST FOLLOW PGUIDE
004858,000723:    1257     1245               WEIGHT/G           =        MASS                                  
004859,000724:    1257     1247               ABDELV             EQUALS   MASS       +2                         #  (1)
004860,000725:    1257     1250               ABDVACC            EQUALS   ABDELV     +1                         #  B(1)
004861,000726:    1257     1251               DVTHRUSH           EQUALS   ABDVACC    +1                         #  B(1)
004862,000727:    1257     1252               AVEGEXIT           EQUALS   DVTHRUSH   +1                         #   (2)
004863,000728:    1257     1252               AVGEXIT            =        AVEGEXIT                              
004864,000729:    1257     1254               PIPAXOLD           EQUALS   AVEGEXIT   +2                         #  B(1)
004865,000730:    1257     1255               PIPAYOLD           EQUALS   PIPAXOLD   +1                         #  B(1)
004866,000731:    1257     1256               PIPAZOLD           EQUALS   PIPAYOLD   +1                         #  B(1)
004867,000732: 
004868,000733: 
004869,000734: 
004870,000735:                                                                                                  #           LUNAR SURFACE ALIGNMENT  R59                                   (5D)
004871,000736: 
004872,000737:    1257     1235               CURSOR             EQUALS   GDT/2                                 #  B(1)TMP
004873,000738:    1257     1236               SPIRAL             EQUALS   GDT/2      +1                         #  B(2)TMP
004874,000739:    1257     1241               POSCODE            EQUALS   GDT/2      +4                         #  B(1)TMP
004875,000740: 
004876,000741: 
004877,000742:                                                                                                  #           S34/35.5  TEMPORARY                                            (2D)
004878,000743: 
004879,000744:    1257     1235               TMPDV              EQUALS   GDT/2                                 #  B(2) TEMP. SAVE FOR DVLVC.
004880,000745: 
004881,000746:                                                                                                  #           USED FOR SUMMATION OF UPRUPT DURING PRELAUNCH & SYS TEST LEADIN(3D)
004882,000747: 
004883,000748:    1257     1247               UPSUM              EQUALS   ABDELV                                #  (3)
004884,000749: 
004885,000750: 
004886,000751:                                                                                                  #            P 76  DISPLAY     N84                                         (6D)
004887,000752: 
004888,000753:    1257     1252               DELVOV             EQUALS   UPSUM      +3                         #  I(6)
004889,000754: 

Page 108

004891,000756:                                                                                                  #           PERMANENT LEM DAP STORAGE.                                     (6D)
004892,000757: 
004893,000758:    1257                        CH5MASK            ERASE                                          #  B(1)PRM
004894,000759:    1260                        CH6MASK            ERASE                                          #  B(1)PRM JET FAILURE MASK.
004895,000760:    1261                        SPNDX              ERASE                                          #  B(1)
004896,000761:    1262                        RCSFLAGS           ERASE                                          #  AUTOPILOT FLAG WORD
004897,000762:                                                                                                  #  BIT ASSIGNMENTS:
004898,000763:                                                                                                  #   1) ALTERYZ SWITCH (ZEROOR1)
004899,000764:                                                                                                  #   2) NEEDLER SWITCH
004900,000765:                                                                                                  #   3) NEEDLER SWITCH
004901,000766:                                                                                                  #   4) NEEDLER SWITCH
004902,000767:                                                                                                  #   5) NEEDLER SWITCH
004903,000768:                                                                                                  #   9) JUST-IN-DETENT SWITCH
004904,000769:                                                                                                  #  10) PBIT - MANUAL CONTROL SWITCH
004905,000770:                                                                                                  #  11) QRBIT - MANUAL CONTROL SWITCH
004906,000771:                                                                                                  #  12) PSKIP CONTROL (PJUMPADR)
004907,000772:                                                                                                  #  13) 1/ACCJOB CONTROL (ACCSET)
004908,000773:    1263                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
004909,000774:                                                                                                  #  BBCON  OF NEXT LM DAP T5RUPT.   2CADR
004910,000775: 
004911,000776: 
004912,000777:                                                                                                  #           ERASABLES FOR RADAR READ PROTECTION (C13STALL)                 (4D)
004913,000778: 
004914,000779:    1265                        C13QSAV            ERASE                                          #  B(1) QSAVE FOR C13STALL USERS.
004915,000780:    1266                        C13FSAV            ERASE                                          #  B(1) FBANK SAVE FOR C13STALL.
004916,000781:    1267                        RADTIME            ERASE                                          #  B(1) NEG. TIME OF SCALAR READ.
004917,000782:    1270                        RADDEL             ERASE                                          #  B(1) DELTA TIME FROM SCALAR READ TO T5.
004918,000783: 
004919,000784: 
004920,000785:                                                                                                  #           RADAREAD STORAGE                                               (2D)
004921,000786: 
004922,000787:    1271                        TTOTIG             ERASE    +1                                    #  B(2) LATEST ESTIMATE OF TIME TO IGNITION
004923,000788: 
004924,000789: 
004925,000790:                                                                                                  #           RCS FAILURE MONITOR STORAGE                                    (1)
004926,000791:    1273                        PVALVEST           ERASE                                          #  B(1) PRM
004927,000792: 
004928,000793: 
004929,000794:                                                                                                  #           KALCMANU/DAP INTERFACE.                                        (3D)
004930,000795: 
004931,000796:    1274                        DELPEROR           ERASE                                          #  B(1)PRM COMMAND LAGS.
004932,000797:    1275                        DELQEROR           ERASE                                          #  B(1)PRM
004933,000798:    1276                        DELREROR           ERASE                                          #  B(1)PRM
004934,000799: 
004935,000800: 
004936,000801:                                                                                                  #           MODE SWITCHING ERASABLE.                                       (9D)
004937,000802: 
004938,000803:                                                                                                  #     RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
004939,000804:    1277                        IMODES30           ERASE                                          #  B(1)
004940,000805:    1300                        IMODES33           ERASE                                          

Page 109

004942,000807:    1301                        MODECADR           ERASE    +2                                    #  B(3)PRM
004943,000808:    1304     1301               IMUCADR            EQUALS   MODECADR                              
004944,000809:    1304     1302               OPTCADR            EQUALS   MODECADR   +1                         
004945,000810:    1304     1303               RADCADR            EQUALS   MODECADR   +2                         
004946,000811:    1304                        ATTCADR            ERASE    +2                                    #  B(3)PRM
004947,000812:    1307     1306               ATTPRIO            =        ATTCADR    +2                         
004948,000813:    1307                        MARKSTAT           ERASE                                          
004949,000814: 
004950,000815:                                                                                                  #           T4RUPT ERASABLE.                                               (2D)
004951,000816: 
004952,000817:    1310                        DSRUPTSW           ERASE                                          
004953,000818:    1311                        LGYRO              ERASE                                          #  (1)
004954,000819: 
004955,000820:                                                                                                  #           RENDEZVOUS RADAR TASK STORAGE                                  (3D)
004956,000821: 
004957,000822:    1312                        RRRET              ERASE    +2D                                   #  B(1)TMP  P20'S, PERHAPS R29 & R12
004958,000823:    1315     1313               RDES               EQUALS   RRRET      +1                         #  B(1)TMP
004959,000824:    1315     1314               RRINDEX            EQUALS   RDES       +1                         #  B(1)TMP
004960,000825: 
004961,000826: 
004962,000827: 
004963,000828:                                                                                                  #  MEASUREMENT INCORPORATION                                               (4D)
004964,000829: 
004965,000830:    1315                        WIXA               ERASE                                          #  B(1)
004966,000831:    1316                        WIXB               ERASE                                          #  B(1)
004967,000832:    1317                        ZIXA               ERASE                                          #  B(1)
004968,000833:    1320                        ZIXB               ERASE                                          #  B(1)
004969,000834: 
004970,000835:                                                                                                  #           LANDING RADAR PADLOAD                                          (1D)
004971,000836: 

The following line is marked as having changed in ZERASE.038

004973,000838:    1321     1315               LRWH1              EQUALS   WIXA                                  #  B(1) P.L. P64 LR WEIGHTING FUNCTION
004974,000839: 
004975,000840: 
004976,000841:                                                                                                  #           AGS DOWNLINK ID CODE FOR RESTART PURPOSES                      (1D)
004977,000842: 
004978,000843:    1321                        AGSWORD            ERASE                                          
004979,000844: 
004980,000845: 
004981,000846:                                                                                                  #           SOME MISCELLANEOUS UNSWITCHED.                                 (6D)
004982,000847: 
004983,000848:    1322                        RATEINDX           ERASE                                          #   (1)    USED BY KALCMANU
004984,000849:    1323                        DELAYLOC           ERASE    +2                                    
004985,000850:    1326                        LEMMASS            ERASE                                          #  KEEP CONTIGUOUS W.  CSMMASS  (1) EACH
004986,000851:    1327                        CSMMASS            ERASE                                          
004987,000852:                                                                                                  #  LESS IS MORE.
004988,000853: 
004989,000854:                                                                                                  #           RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE.                 (7D)
004990,000855: 
004991,000856:                                                                                                  #                  (NORMALLY USED DURING P20, BUT MAY ALSO)
004992,000857:                                                                                                  #                  (BE REQUIRED FOR THE V62 SPURIOUS TEST.)

Page 110

004994,000859:                                                                                                  #                     (PLEASE KEEP IN THIS ORDER)
004995,000860: 
004996,000861:    1330                        DNRRANGE           ERASE    +6                                    #  B(1) TMP
004997,000862:    1337     1331               DNRRDOT            EQUALS   DNRRANGE   +1                         #  B(1)TMP
004998,000863:    1337     1332               DNINDEX            EQUALS   DNRRDOT    +1                         #  B(1)TMP
004999,000864:    1337     1333               DNLRVELX           EQUALS   DNINDEX    +1                         #  B(1)TMP
005000,000865:    1337     1334               DNLRVELY           EQUALS   DNLRVELX   +1                         #  B(1)TMP
005001,000866:    1337     1335               DNLRVELZ           EQUALS   DNLRVELY   +1                         #  B(1)TMP
005002,000867:    1337     1336               DNLRALT            EQUALS   DNLRVELZ   +1                         #  B(1) TMP
005003,000868: 
005004,000869:                                                                                                  #           RADAR -- RR AND LR                                             (1D)
005005,000870: 
005006,000871:    1337     1332               RADBITS            EQUALS   DNINDEX                               #  B(1)PRM   SHOWS TYPE OF RADAR READ
005007,000872: 
005008,000873: 
005009,000874:                                                                                                  #           INCORPORATION UNSWITCHED.                                      (1D)
005010,000875: 
005011,000876:    1337     0130               W.IND              EQUALS   BUF                                   
005012,000877: 
005013,000878: 
005014,000879: 
005015,000880:                                                                                                  #           SUBROUTINE BALLANGS OF R60.                                    (1D)
005016,000881: 
005017,000882:    1337                        BALLEXIT           ERASE                                          #  B(1)SAVE LOCATION FOR BALLINGS SUBR EXIT
005018,000883: 
005019,000884: 
005020,000885:                                                                                                  #           SOME LEM DAP STORAGE.                                          (4D)
005021,000886: 
005022,000887:    1340                        DAPDATR1           ERASE                                          #  B(1)DSP  DAP CONFIG.
005023,000888:    1341                        TEVENT             ERASE    +1                                    #  B(2)DSP
005024,000889:    1343                        DB                 ERASE                                          #  B(1)TMP  DEAD BAND.
005025,000890:    1344     1343               DBVAL1             =        DB                                    #  B(1)TMP
005026,000891: 
005027,000892: 
005028,000893: 
005029,000894:                                                                                                  #      NOUN 87 USED IN R52 AUTO OPTICS                                     (2D)
005030,000895: 
005031,000896:    1344                        AZ                 ERASE    +1D                                   #  B(1)  AZ AND EL MUST BE CONTIGUOUS
005032,000897:    1346     1345               EL                 EQUALS   AZ         +1D                        #  B(1)
005033,000898: 
005034,000899: 
005035,000900:                                                                                                  #           P63, P64, P65, P66, AND P67.                                   (1D)
005036,000901:    1346                        WCHPHASE           ERASE                                          #  B(1)
005037,000902: 
005038,000903: 
005039,000904:                                                                                                  #           PADLOADS FOR R2 LUNAR POTENTIAL MODEL.                         (2D)
005040,000905: 
005041,000906:    1347                        E3J22R2M           ERASE                                          #  I(1)
005042,000907:    1350                        E32C31RM           ERASE                                          #  I(1)
005043,000908: 
005044,000909: 

Page 111

005046,000911: 
005047,000912: 
005048,000913:                                                                                                  #           ERASABLES FOR TRUNNION AND SHAFT COMMANDS                      (2D)
005049,000914: 
005050,000915:    1351                        TRUNNCMD           ERASE                                          #  *** THESE TWO ERASABLES ***
005051,000916:    1352                        SHAFTCMD           ERASE                                          #  *** MUST BE IN ORDER ***
005052,000917: 
005053,000918: 
005054,000919:                                                                                                  #           R22 OF P20                                                     (1D)
005055,000920:    1353                        WHCHREAD           ERASE                                          #  B(1)TMP MEASUREMENT BEING PROCESSED.
005056,000921: 
005057,000922: 
005058,000923:                                                                                                  #           LANDING PADLOAD                                                (1D)
005059,000924: 
005060,000925:    1354     1353               ELBIAS             EQUALS   WHCHREAD                              #  B(1) PL LPD ELEVATION BIAS,  PI RADIANS.
005061,000926: 
005062,000927:    1354                        TOOFEW             ERASE                                          #  B(1) TOO FEW THROTTLINGS PER OMISSION:
005063,000928:                                                                                                  #   ONE LESS THAN NO. THROTTLES REQUIRED
005064,000929:                                                                                                  #    BETWEEN SKIPPED THROTTLES
005065,000930:                                                                                                  #     1466 ALARM IF THROTTLINGS <= TOOFEW
005066,000931:                                                                                                  #           TLOSS INDICATORS FOR DOWNLINK                                  (2D)
005067,000932: 
005068,000933:    1355                        SERVDURN           ERASE                                          #  B(1)  AT SERVOUT: TIME1 - PIPTIME +1
005069,000934:    1356                        DUMLOOPS           ERASE                                          #  B(1)  LOOP COUNTER IN DUMMYJOB AT ADVAN
005070,000935: 
005071,000936: 
005072,000937:                                                                                                  #          SELF-CHECK ASSIGNMENTS.                                         (17D)
005073,000938: 
005074,000939:                                                                                                  #                                 (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
005075,000940: 
005076,000941:    1357                        SELFERAS           ERASE    1357       -          1377            #  *** MUST NOT BE MOVED ***
005077,000942:    1357     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
005078,000943:    1357     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
005079,000944:    1357     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
005080,000945:    1357     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
005081,000946:    1357     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)   ALARM-ABORT USER'S 2CADR
005082,000947:    1357     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
005083,000948:    1357     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
005084,000949:    1357     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
005085,000950:    1357     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
005086,000951:    1357     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
005087,000952:    1357     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
005088,000953:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
005089,000954:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
005090,000955:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
005091,000956: 

Page 112

005093,000958:                                                                                                  #                  EBANK-3 ASSIGNMENTS
005094,000959: 
005095,000960: E3,1400                                           SETLOC   1400                                  
005096,000961: 
005097,000962:                                                                                                  #           WAITLIST TASK LISTS.                                           (26D)
005098,000963: 
005099,000964: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM  DELTA T S.
005100,000965: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
005101,000966: 
005102,000967: 
005103,000968:                                                                                                  #           RESTART STORAGE.                                               (2D)
005104,000969: 
005105,000970: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
005106,000971: 
005107,000972: 
005108,000973:                                                                                                  #           MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK.                 (2D)
005109,000974: 
005110,000975: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
005111,000976: 
005112,000977: 
005113,000978:                                                                                                  #           PHASE-CHANGE LISTS PART II.                                    (12D)
005114,000979: 
005115,000980: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
005116,000981: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
005117,000982: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
005118,000983: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
005119,000984: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
005120,000985: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
005121,000986: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
005122,000987: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
005123,000988: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
005124,000989: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
005125,000990: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
005126,000991: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
005127,000992: 
005128,000993: 
005129,000994:                                                                                                  #           IMU COMPENSATION PARAMETERS.                                   (22D)
005130,000995: 
005131,000996: E3,1452                        PBIASX             ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTR TERMS
005132,000997: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #      INTERMIXED.
005133,000998: E3,1453                        PIPASCFX           ERASE                                          
005134,000999: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
005135,001000: E3,1454                        PBIASY             ERASE                                          
005136,001001: E3,1455                        PIPASCFY           ERASE                                          
005137,001002: E3,1456                        PBIASZ             ERASE                                          
005138,001003: E3,1457                        PIPASCFZ           ERASE                                          
005139,001004: 
005140,001005: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
005141,001006: E3,1461                        NBDY               ERASE                                          
005142,001007: E3,1462                        NBDZ               ERASE                                          
005143,001008: 

Page 113

005145,001010: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
005146,001011: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
005147,001012: E3,1465                        ADIAZ              ERASE                                          
005148,001013: 
005149,001014: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
005150,001015: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
005151,001016: E3,1470                        ADSRAZ             ERASE                                          
005152,001017: 
005153,001018: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
005154,001019: 
005155,001020: E3,1477  E3,1471               COMMAND            EQUALS   GCOMP                                 
005156,001021: E3,1477  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
005157,001022: 
005158,001023: 
005159,001024: E3,1477                        GCOMPSW            ERASE                                          
005160,001025: 
005161,001026: 
005162,001027: 
005163,001028:                                                                                                  #           STATE VECTORS FOR ORBIT INTEGRATION.                           (44D)
005164,001029: 
005165,001030:                                                                                                  #                                  (DIFEQCNT THRU XKEP MUST BE IN SAME
005166,001031:                                                                                                  #                                    EBANK AS RRECTCSM, RRECTLEM ETC
005167,001032:                                                                                                  #                                    BECAUSE THE COPY-CYCLES (ATOPCSM,
005168,001033:                                                                                                  #                                    PTOACSM ETC) ARE EXECUTED IN BASIC.
005169,001034:                                                                                                  #                                      ALL OTHER REFERENCES TO THIS GROUP
005170,001035:                                                                                                  #                                    ARE BY INTERPRETIVE INSTRUCTIONS.)
005171,001036: 
005172,001037: 
005173,001038: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)
005174,001039:                                                                                                  #                                  (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
005175,001040: 
005176,001041: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)
005177,001042: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)
005178,001043: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)
005179,001044: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)
005180,001045: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)
005181,001046: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)
005182,001047: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)
005183,001048: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)
005184,001049: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)
005185,001050: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)
005186,001051: 
005187,001052:                                                                                                  #           CONIC ROUTINES STORAGE                                         (2D)
005188,001053: 
005189,001054: E3,1554  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
005190,001055: 
005191,001056: 
005192,001057:                                                                                                  #           PERMANENT STATE VECTORS AND TIMES.                             (97D)
005193,001058: 
005194,001059:                                                                                                  #           (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
005195,001060: 

Page 114

005197,001062:                                                                                                  #           (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
005198,001063: 
005199,001064: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
005200,001065: E3,1562  E3,1554               RRECTOTH           =        RRECTCSM                              
005201,001066: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
005202,001067: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
005203,001068: E3,1572  E3,1570               TETOTHER           =        TETCSM                                
005204,001069: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
005205,001070: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
005206,001071: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
005207,001072: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
005208,001073: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
005209,001074: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
005210,001075: 
005211,001076:                                                                                                  #           (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
005212,001077: 
005213,001078: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
005214,001079: E3,1634  E3,1626               RRECTHIS           =        RRECTLEM                              
005215,001080: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
005216,001081: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
005217,001082: E3,1644  E3,1642               TETTHIS            =        TETLEM                                
005218,001083: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
005219,001084: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
005220,001085: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
005221,001086: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
005222,001087: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
005223,001088: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
005224,001089: 
005225,001090: E3,1700                        X789               ERASE    +5                                    
005226,001091: E3,1706                        TEPHEM             ERASE    +2                                    
005227,001092: E3,1711                        -AYO               ERASE    +1                                    
005228,001093: E3,1713                        AXO                ERASE    +1                                    
005229,001094: 
005230,001095: 
005231,001096: 
005232,001097:                                                                                                  #           STATE VECTORS FOR DOWNLINK.                                    (12D)
005233,001098: 
005234,001099: E3,1715                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
005235,001100: E3,1723                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
005236,001101: 
005237,001102: E3,1731  E3,1570               T-OTHER            =        TETCSM                                #              TIME (OTHER VECH) FOR DNLINK
005238,001103: 
005239,001104: 
005240,001105:                                                                                                  #           SERVICER FOR LUNAR ASCENT AND DESCENT                          (12D)
005241,001106: 
005242,001107: E3,1731  E3,1715               R(CSM)             EQUALS   R-OTHER                               #  I(6)  FOR UPDATE OF CM STATE VECS BY LM.
005243,001108: E3,1731  E3,1723               V(CSM)             EQUALS   V-OTHER                               #  I(6)
005244,001109: 
005245,001110: 
005246,001111:                                                                                                  #           REFSMMAT.                                                      (18D)
005247,001112: 

Page 115

005249,001114: E3,1731                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
005250,001115: 
005251,001116: 
005252,001117:                                                                                                  #           ACTIVE VEHICLE CENTANG.  MUST BE DISPLAYED ANYTIME (ALMOST.)   (2D)
005253,001118: 
005254,001119: E3,1753                        ACTCENT            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
005255,001120:                                                                                                  #   VEHICLE AT TPI TIG AND TARGET VECTOR.
005256,001121: 
005257,001122:                                                                                                  #        **** USED IN CONICSEX (PLAN INERT ORIENT) ****
005258,001123: 
005259,001124: E3,1755  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PRECISION)
005260,001125: 
005261,001126: 
005262,001127:                                                                                                  #           LPS20.1 STORAGE    -ALL ARE PRM-                               (9D)
005263,001128: 
005264,001129: E3,1755                        LS21X              ERASE                                          #  I(1)
005265,001130: E3,1756                        LOSVEL             ERASE    +5                                    #  I(6)
005266,001131: E3,1764                        MLOSV              ERASE    +1                                    #  I(2) MAGNITUDE OF LOS, METERS B-29
005267,001132: 
005268,001133: 
005269,001134:                                                                                                  #       ***** P22  *****  (OVERLAYS LPS 20.1 STORAGE)                      (6D)
005270,001135: E3,1766  E3,1756               VSUBC              EQUALS   LOSVEL                                #  I(6)S-S  CSM VELOCITY VECTOR
005271,001136: 
005272,001137: 
005273,001138:                                                                                                  #           PADLOADED ERASABLES FOR P20/P22                                (6D)
005274,001139: 
005275,001140: E3,1766                        RANGEVAR           ERASE    +1                                    #  I(2) RR RANGE ERROR VARIANCE
005276,001141: E3,1770                        RATEVAR            ERASE    +1                                    #  I(2) RR RANGE-RATE ERROR VARIANCE
005277,001142: E3,1772                        RVARMIN            ERASE                                          #  I(1) MINIMUM RANGE ERROR VARIANCE
005278,001143: E3,1773                        VVARMIN            ERASE                                          #  I(1) MINIMUM RANGE-RATE ERROR VARIANCE
005279,001144: 
005280,001145: 
005281,001146:                                                                                                  #           P32-P33 STORAGE                                                (2D)
005282,001147: 
005283,001148: E3,1774                        TCDH               ERASE    +1                                    #  I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED
005284,001149:                                                                                                  #                                                                          (2D)
005285,001150: 
005286,001151: 
005287,001152: 
Warning:  May overflow memory bank.
005288,001153: E3,1776                        ERASFIL1           ERASE    +1                                    #  2 SPARES
005289,001154: 

Page 116

005291,001156:                                                                                                  #                  EBANK-4 ASSIGNMENTS
005292,001157: 
005293,001158: E4,1400                                           SETLOC   2000                                  
005294,001159: 
005295,001160: 
005296,001161:                                                                                                  #  E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
005297,001162: 
005298,001163:                                                                                                  #           P20 STORAGE. -PAD LOADED-                                      (6D)
005299,001164: 
005300,001165: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                            KM*2(-7)
005301,001166: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                      KM(-1/2)*2(11)
005302,001167: E4,1402                        WSHAFT             ERASE                                          #  B(1)PL                            KM*2(-7)
005303,001168: E4,1403                        WTRUN              ERASE                                          #  B(1)PL                            KM*2(-7)
005304,001169: E4,1404                        RMAX               ERASE                                          #  B(1)PL                       METERS*2(-19)
005305,001170: E4,1405                        VMAX               ERASE                                          #  B(1)PL                        M/CSEC*2(-7)
005306,001171: 
005307,001172: 
005308,001173:                                                                                                  #           LUNAR SURFACE NAVIGATION -- PAD LOADED --                      (2D)
005309,001174: 
005310,001175: E4,1406                        WSURFPOS           ERASE                                          #  B(1)PL
005311,001176: E4,1407                        WSURFVEL           ERASE                                          #  B(1)PL
005312,001177: 
005313,001178: 
005314,001179:                                                                                                  #           P22 STORAGE. -PAD LOADED-                                      (2D)
005315,001180: 
005316,001181: E4,1410                        SHAFTVAR           ERASE                                          #  B(1)PL                        RAD SQ*2(12)
005317,001182: E4,1411                        TRUNVAR            ERASE                                          #  B(1)PL                        RAD SQ*2(10)
005318,001183: 
005319,001184: 
005320,001185:                                                                                                  #           CONISEX STORAGE.-PAD LOADED-                                   (6D)
005321,001186: 
005322,001187: E4,1412                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
005323,001188: 
005324,001189: 
005325,001190:                                                                                                  #  STORAGE FOR RLS AND TLAND - PAD LOADS - ORDER IS RETAINED FOR UPLINK.   (8D)
005326,001191: 
005327,001192: E4,1420                        RLS                ERASE    +5                                    #  I(6) LANDING SITE VECTOR - MOON REF.
005328,001193: E4,1426                        TLAND              ERASE    +1                                    #  B(2) NOMINAL LANDING TIME.
005329,001194: 
005330,001195:                                                                                                  #           INTEGRATION STORAGE.                                           (94D)
005331,001196: 
005332,001197: E4,1430                        PBODY              ERASE    +93D                                  #  I(1)
005333,001198: E4,1566  E4,1431               ALPHAV             EQUALS   PBODY      +1                         #  I(6)
005334,001199: E4,1566  E4,1437               BETAV              EQUALS   ALPHAV     +6                         #  I(6)
005335,001200: E4,1566  E4,1445               PHIV               EQUALS   BETAV      +6                         #  I(6)
005336,001201: E4,1566  E4,1453               PSIV               EQUALS   PHIV       +6                         #  I(6)
005337,001202: E4,1566  E4,1461               FV                 EQUALS   PSIV       +6                         #  I(6)    PERTURBING ACCELERATIONS
005338,001203: E4,1566  E4,1467               ALPHAM             EQUALS   FV         +6                         #  I(2)
005339,001204: E4,1566  E4,1471               BETAM              EQUALS   ALPHAM     +2                         #  I(2)
005340,001205: E4,1566  E4,1473               TAU.               EQUALS   BETAM      +2                         #  I(2)
005341,001206: 

Page 117

005343,001208: E4,1566  E4,1475               DT/2               EQUALS   TAU.       +2                         #  I(2)
005344,001209: E4,1566  E4,1477               H                  EQUALS   DT/2       +2                         #  I(2)
005345,001210: E4,1566  E4,1501               IRETURN            EQUALS   H          +2                         #  I(1)
005346,001211: E4,1566  E4,1502               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)
005347,001212: E4,1566  E4,1503               RPQV               EQUALS   NORMGAM    +1                         
005348,001213: E4,1566  E4,1511               ORIGEX             EQUALS   RPQV       +6                         #  I(1)
005349,001214: E4,1566  E4,1511               KEPRTN             EQUALS   ORIGEX                                #  I(1)
005350,001215: E4,1566  E4,1512               RPSV               EQUALS   ORIGEX     +1                         #  I(6)
005351,001216: E4,1566  E4,1520               XKEPNEW            EQUALS   RPSV       +6                         #  I(2)
005352,001217: E4,1566  E4,1522               VECTAB             EQUALS   XKEPNEW    +2                         #  I(36D)
005353,001218: 
005354,001219: 
005355,001220: 
005356,001221:                                                                                                  #           R04 - R77 FAIL COUNTER                                         (1D)
005357,001222: 
005358,001223: E4,1566                        RFAILCNT           ERASE                                          #  B(1)
005359,001224: 
005360,001225: 
005361,001226:                                                                                                  #           SERVICER STORAGE  (USED BY ALL POWERED FLIGHT PROGS.)          (18D)
005362,001227: 
005363,001228: E4,1567  E4,1536               XNBPIP             EQUALS   VECTAB     +12D                       #  I(6)
005364,001229: E4,1567  E4,1544               YNBPIP             EQUALS   XNBPIP     +6                         #  I(6)
005365,001230: E4,1567  E4,1552               ZNBPIP             EQUALS   YNBPIP     +6                         #  I(6)
005366,001231: 
005367,001232: 
005368,001233:                                                                                                  #           SOME VERB 82 STORAGE                                           (4D)
005369,001234: 
005370,001235: E4,1567  E4,1512               HAPOX              EQUALS   RPSV                                  #  I(2)
005371,001236: E4,1567  E4,1514               HPERX              EQUALS   HAPOX      +2                         #  I(2)
005372,001237: 
005373,001238: 
005374,001239:                                                                                                  #           V82 STORAGE                                                    (6D)
005375,001240: 
005376,001241: E4,1567  E4,1560               VONE'              EQUALS   VECTAB     +30D                       #  I(6)TMP  NORMAL VELOCITY VONE /SQRT. MU
005377,001242: 
005378,001243: 
005379,001244:                                                                                                  #          R31 (V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-            (26D)
005380,001245: 
005381,001246: E4,1567  E4,1503               BASETHV            EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
005382,001247: 
005383,001248: 
005384,001249: E4,1567  E4,1512               BASETIME           EQUALS   RPSV                                  #  I(2)   TIME ASSOC WITH BASE VECTORS
005385,001250: E4,1567  E4,1571               BASEOTV            EQUALS   YLEM                                  #  I(6)    BASE VELOC VECTOR OTHER VEH
005386,001251: 
005387,001252: 
005388,001253: E4,1567  E4,1530               BASEOTP            EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
005389,001254: 
005390,001255: 
005391,001256: E4,1567  E4,1560               BASETHP            EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
005392,001257: 
005393,001258: 

Page 118

005395,001260:                                                                                                  #           KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D)
005396,001261:                                                                                                  #           CONICS)
005397,001262: 
005398,001263: E4,1567                        EPSILONT           ERASE    +1                                    #  I(2)
005399,001264: 
005400,001265: 
005401,001266:                                                                                                  #           R36 STORAGE  (N90)                                             (6D)
005402,001267: 
005403,001268: E4,1571                        YLEM               ERASE    +5                                    #  I(2)
005404,001269: E4,1577  E4,1573               YDOTLEM            EQUALS   YLEM       +2                         #  I(2)
005405,001270: E4,1577  E4,1575               PHILEM             EQUALS   YDOTLEM    +2                         #  I(2)
005406,001271: 
005407,001272: 
005408,001273:                                                                                                  #           VERB 83 STORAGE.                                               (18D)
005409,001274: 
005410,001275: E4,1577                        RONE               ERASE    +17D                                  #  I(6)
005411,001276: E4,1621  E4,1605               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
005412,001277: 
005413,001278: 
005414,001279: E4,1621  E4,1613               RANGE              EQUALS   VONE       +6                         #  I(2)
005415,001280: E4,1621  E4,1615               RRATE              EQUALS   RANGE      +2                         #  I(2)
005416,001281: E4,1621  E4,1617               RTHETA             EQUALS   RRATE      +2                         #  I(2)
005417,001282: 
005418,001283: 
005419,001284:                                                                                                  #           VERB 67 STORAGE                                                (6D)
005420,001285: 
005421,001286: E4,1621  E4,1571               WWPOS              EQUALS   YLEM                                  #  B(2)   NOUN 99  (V67)
005422,001287: E4,1621  E4,1573               WWVEL              EQUALS   WWPOS      +2                         #  B(2)   NOUN 99  (V67)
005423,001288: E4,1621  E4,1575               WWBIAS             EQUALS   WWVEL      +2                         #  B(2)   NOUN 99  (V67)
005424,001289: 
005425,001290: 
005426,001291: 
005427,001292: 
005428,001293:                                                                                                  #           V82 STORAGE. (CANNOT OVERLAY RONE OR VONE)                     (5D)
005429,001294: 
005430,001295: E4,1621  E4,1530               V82FLAGS           EQUALS   VECTAB     +6                         #   (1) FOR V82 BITS.
005431,001296: E4,1621  E4,1531               TFF                EQUALS   V82FLAGS   +1                         #  I(2)
005432,001297: E4,1621  E4,1533               -TPER              EQUALS   TFF        +2                         #  I(2)
005433,001298: 
005434,001299: 
005435,001300:                                                                                                  #           MORE V82 STORAGE.  (CANNOT OVERLAY RONE OR VONE)               (6D)
005436,001301: 
005437,001302: E4,1621  E4,1571               HPERMIN            EQUALS   YLEM                                  #  I(2)   SET TO 300K FT OR 35K FT SR30.1
005438,001303: E4,1621  E4,1573               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
005439,001304: E4,1621  E4,1575               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
005440,001305: 
005441,001306: 
005442,001307: 
005443,001308:                                                                                                  #           ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE.           (18D)
005444,001309: 

Page 119

005446,001311:                                                                                                  #                  UNSHARED WHILE LM ON LUNAR SURFACE.
005447,001312: 
005448,001313: E4,1621                        GSAV               ERASE    +17D                                  #  I(6)
005449,001314: E4,1643  E4,1627               YNBSAV             EQUALS   GSAV       +6                         #  I(6)
005450,001315: E4,1643  E4,1635               ZNBSAV             EQUALS   YNBSAV     +6                         #  I(6)
005451,001316: 
005452,001317: 
005453,001318: 
005454,001319:                                                                                                  #           KALCMANU STORAGE. CAN OVERLAY GSAV.                            (18D)
005455,001320: 
005456,001321: E4,1643  E4,1621               MFS                EQUALS   GSAV                                  #  I(18)
005457,001322: E4,1643  E4,1621               MFI                EQUALS   MFS                                   #  I
005458,001323: E4,1643  E4,1621               KEL                EQUALS   MFS                                   #  I(18)
005459,001324: 
005460,001325:                                                                                                  #           CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
005461,001326: 
005462,001327: E4,1643  E4,1621               XNBRAD             =        GSAV                                  #  B(18D)   BODY-PLATFORM MATRIX AT LRTIME
005463,001328: E4,1643  E4,1643               LRTIME             =        XNBRAD     +22                        #  B(2)     LR    CENTER-POINT OF LR READ
005464,001329: E4,1643  E4,1645               LRXCDU             =        LRTIME     +2                         #  B(1)     LR
005465,001330: E4,1643  E4,1646               LRYCDU             =        LRXCDU     +1                         #  B(1)     LR
005466,001331: E4,1643  E4,1647               LRZCDU             =        LRYCDU     +1                         #  B(1)     LR
005467,001332: E4,1643  E4,1650               PIPTEM             =        LRZCDU     +1                         #  B(3)    LR
005468,001333: 
005469,001334: 
005470,001335: 
005471,001336:                                                                                                  #           P32-P35, P72-P75 STORAGE.                                      (40D)
005472,001337: 
005473,001338: E4,1643                        T1TOT2             ERASE    +1                                    #   (2)     TIME FROM CSI TO CDH
005474,001339: E4,1645                        T2TOT3             ERASE    +1                                    #   (2)
005475,001340: E4,1647                        ELEV               ERASE    +1                                    #   (2)
005476,001341: E4,1651                        UP1                ERASE    +5                                    #   (6)
005477,001342: E4,1657                        DELVEET1           ERASE    +5                                    #  I(6)     DV CSI IN REF
005478,001343: E4,1665                        DELVEET2           ERASE    +5                                    #  I(6)     DV CSH IN REF
005479,001344: E4,1673                        RACT1              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CSI TIME
005480,001345: E4,1701                        RACT2              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CDH TIME
005481,001346: E4,1707                        RTSR1/MU           ERASE    +1                                    #   (2)     SQ ROOT 1/MU STORAGE
005482,001347: E4,1711                        RTMU               ERASE    +1                                    #   (2)     MU STORAGE
005483,001348: 
005484,001349: 
005485,001350: 
005486,001351:                                                                                                  #          (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
005487,001352: 
005488,001353: E4,1713  E4,1643               +MGA               EQUALS   T1TOT2                                #   (2) S-S + MID GIM ANGL TO DELVEET3
005489,001354: 
005490,001355: 
005491,001356: E4,1713  E4,1651               UNRM               EQUALS   UP1                                   #  I(6) S-S
005492,001357: 
005493,001358: 
005494,001359: E4,1713  E4,1673               DVLOS              EQUALS   RACT1                                 #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
005495,001360: E4,1713  E4,1701               ULOS               EQUALS   RACT2                                 #  I(6) S-S UNIT LINE OF SIGHT VECTOR

Page 120

005497,001362: 
005498,001363: 
005499,001364: E4,1713  E4,1707               NOMTPI             EQUALS   RTSR1/MU                              #   (2) S-S NOMINAL TPI TIME FOR RECYCLE
005500,001365: 
005501,001366: 
005502,001367:                                                                                                  #           SOME P30 STORAGE.                                              (4D)
005503,001368: 
005504,001369: E4,1713  E4,1707               HAPO               EQUALS   RTSR1/MU                              #  I(2)
005505,001370: E4,1713  E4,1711               HPER               EQUALS   HAPO       +2                         #  I(2)
005506,001371: 
005507,001372: 
005508,001373: 
005509,001374:                                                                                                  #           THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
005510,001375: 
005511,001376: E4,1713  E4,1400               TRANSM1            EQUALS   WRENDPOS                              #  E4, 1400
005512,001377: E4,1713  E4,1422               ALFDK              EQUALS   TRANSM1    +18D                       
005513,001378: 
005514,001379: 
005515,001380:                                                                                                  #  ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
005516,001381: 
005517,001382: 
005518,001383:                                                                                                  #           V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83)     (14D)
005519,001384: 
005520,001385: E4,1713  E4,1571               AGSBUFF            EQUALS   YLEM                                  #  B(14)
005521,001386: E4,1713  E4,1606               AGSBUFFE           EQUALS   AGSBUFF    +13D                       #  ENDMARK
005522,001387: 
005523,001388: 
005524,001389:                                                                                                  #           R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83)    (12D)
005525,001390: 
005526,001391: E4,1713  E4,1577               RPASS36            EQUALS   RONE                                  #  I(6) S-S
005527,001392: E4,1713  E4,1605               UNP36              EQUALS   RPASS36    +6                         #  I(6) S-S
005528,001393: 
005529,001394: 
005530,001395:                                                                                                  #           S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64).(OVERLAYS V83)  (10D)
005531,001396: 
005532,001397: 
005533,001398: E4,1713  E4,1571               ALPHASB            EQUALS   YLEM                                  #  B(2)   DSP NOUN 51 PITCH ANGLE
005534,001399: E4,1713  E4,1573               BETASB             EQUALS   ALPHASB    +2                         #  B(2) DSP NOUN 51. YAW ANGLE.
005535,001400: E4,1713  E4,1575               RLM                EQUALS   BETASB     +2                         #  I(6) S    S/C POSITION VECTOR.
005536,001401: 
005537,001402:                                                                                                  #           **** USED IN S-BAND ANTENNA FOR LM ****                        (4D)
005538,001403: 
005539,001404: E4,1713  E4,1571               PITCHANG           EQUALS   ALPHASB                               #  I(2) PITCH/ANTENNA GIMBAL ANGLE REQUIRED
005540,001405: E4,1713  E4,1573               YAWANG             EQUALS   BETASB                                #  I(2) YAW  /TO POINT LM STEERABLE ANTENNA
005541,001406:                                                                                                  #            /TOWARD CENTER OF EARTH
005542,001407:                                                                                                  #  NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85.                       (4)
005543,001408: 
005544,001409: E4,1713  E4,1571               RR-AZ              EQUALS   PITCHANG                              #  I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
005545,001410: E4,1713  E4,1573               RR-ELEV            EQUALS   RR-AZ      +2                         #  I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
005546,001411: 

Page 121

005548,001413:                                                                                                  #           R04(V62) RADAR TEST STORAGE.                                   (8D)
005549,001414: 
005550,001415: 
005551,001416: E4,1713  E4,1571               RSTACK             EQUALS   YLEM                                  #  B(8)   BUFFER FOR R04 NOUNS
005552,001417: 
005553,001418: 
005554,001419: 
005555,001420:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
005556,001421: 
005557,001422:                                                                                                  #                   (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
005558,001423: E4,1713                        RINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE POSITION
005559,001424: E4,1721                        VINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE VELOCITY
005560,001425: E4,1727                        VIPRIME            ERASE    +5                                    #  I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
005561,001426: 
005562,001427:                                                                                                  #   BALLANGS-AUTOMATIC MANEUVER -- R60,(N18)                               (3D)
005563,001428: 
005564,001429: 
005565,001430: E4,1735                        FDAIX              ERASE                                          #  I(1)
005566,001431: E4,1736                        FDAIY              ERASE                                          #  I(1)
005567,001432: E4,1737                        FDAIZ              ERASE                                          #  I(1)
005568,001433: 
005569,001434: 
005570,001435:                                                                                                  #           P34-P35 STORAGE.  DOWNLINKED.                                  (2D)
005571,001436: 
005572,001437: E4,1740                        DELVTPF            ERASE    +1                                    #  I(2) DELTA V FOR TPF
005573,001438: 
005574,001439: 
005575,001440:                                                                                                  #           LPS20.1 STORAGE.  CALLED BY R65.                               (12D)
005576,001441: 
005577,001442: E4,1742                        LMPOS              ERASE    +5                                    #  I(6) TEMP. STORAGE FOR LM POS. VECTOR.
005578,001443: E4,1750                        LMVEL              ERASE    +5                                    #  I(6) TEMP. STORAGE FOR LM VEL. VECTOR.
005579,001444: 
005580,001445:                                                                                                  #  INITVEL STORAGE.  ALSO USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED.    (6D)
005581,001446: 
005582,001447: E4,1756                        DELVEET3           ERASE    +5                                    #  I(6) DELTA V IN INERTIAL COORDINATES.
005583,001448: 
005584,001449: 
005585,001450:                                                                                                  #           SOME R04(V63)-R77 STORAGE.                                     (5D)
005586,001451: 
005587,001452: E4,1764                        RTSTDEX            ERASE                                          #  B(1)
005588,001453: E4,1765                        RTSTMAX            ERASE                                          #  B(1)
005589,001454: E4,1766                        RTSTBASE           ERASE                                          #  B(1)
005590,001455: E4,1767                        RTSTLOC            ERASE                                          #  B(1)
005591,001456: E4,1770                        RSAMPDT            ERASE                                          #  B(1)
005592,001457: 
005593,001458: 
005594,001459:                                                                                                  #           SECOND DPS GUIDANCE  (LUNAR LANDING) (OVERLAYS KALCMANU & P57) (6D)
005595,001460: 
005596,001461: E4,1771  E4,1653               ANGTERM            =        PIPTEM     +3                         #  I(6) LANDING GUIDANCE
005597,001462: 
005598,001463: 

Page 122

005600,001465:                                                                                                  #           R12 DOWNLINK QUANTITIES                                        (5D)
005601,001466: E4,1771  E4,1725               LRXCDUDL           EQUALS   /LAND/     +2                         #  B(1) LANDING RADAR DOWNLINK
005602,001467: E4,1771  E4,1726               LRYCDUDL           EQUALS   LRXCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
005603,001468: E4,1771  E4,1727               LRZCDUDL           EQUALS   LRYCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
005604,001469: E4,1771  E4,1730               LRVTIMDL           EQUALS   LRZCDUDL   +1                         #  B(2) LANDING RADAR DOWNLINK
005605,001470: 
005606,001471: 
005607,001472: 
005608,001473: 
005609,001474:                                                                                                  #           ASCENT GUIDANCE FOR LUNAR LANDING                              (54D)
005610,001475: 
005611,001476: E4,1771  E4,1653               AT                 EQUALS   UP1        +2                         #  I(2)TMP ENGINE DATA -- THRUST ACC*2 (9)
005612,001477: E4,1771  E4,1655               VE                 EQUALS   AT         +2                         #  I(2)TMP  EXHAUST VELOCITY * 2(7)M/CS.
005613,001478: E4,1771  E4,1657               TTO                EQUALS   VE         +2                         #  I(2)TMP  TAILOFF TIME * 2(17)CS.
005614,001479: E4,1771  E4,1661               TBUP               EQUALS   TTO        +2                         #  I(2)TMP  (M/MDOT) * 2(17)CS.
005615,001480: E4,1771  E4,1663               RDOTD              EQUALS   TBUP       +2                         #  I(2)TMP  TARGET VELOCITY COMPONENTS
005616,001481: E4,1771  E4,1665               YDOTD              EQUALS   RDOTD      +2                         #  I(2)TMP SCALING IS 2(7)M/CS.
005617,001482: E4,1771  E4,1667               ZDOTD              EQUALS   YDOTD      +2                         #  I(2)TMP
005618,001483: 
005619,001484: E4,1771  E4,1671               /R/MAG             EQUALS   ZDOTD      +2                         #  I(2)TMP
005620,001485: E4,1771  E4,1673               LAXIS              EQUALS   /R/MAG     +2                         #  I(6)TMP
005621,001486: 
005622,001487: 
005623,001488: E4,1771  E4,1701               YDOT               =        LAXIS      +6                         #  I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
005624,001489: E4,1771  E4,1703               ZDOT               EQUALS   YDOT       +2                         #  I(2)TMP  DOWN RANGE VEL *2(-7).
005625,001490: E4,1771  E4,1705               GEFF               EQUALS   ZDOT       +2                         #  I(2)TMP  EFFECTIVE GRAVITY
005626,001491: 
005627,001492:                                                                                                  #     THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT  SERVICER SECTION FOLLOWING THIS SECTION
005628,001493: 
005629,001494: E4,1771  E4,1725               Y                  EQUALS   /LAND/     +2                         #  I(2)TMP  OUT-OF-PLANE DIST *2(24)M
005630,001495: E4,1771  E4,1727               DRDOT              EQUALS   Y          +2                         #  I(2)TMP  RDOTD - RDOT
005631,001496: E4,1771  E4,1731               DYDOT              EQUALS   DRDOT      +2                         #  I(2)TMP  YDOTD - YDOT
005632,001497: E4,1771  E4,1733               DZDOT              EQUALS   DYDOT      +2                         #  I(2)TMP  ZDOTD - ZDOT
005633,001498: E4,1771  E4,1735               PCONS              EQUALS   DZDOT      +2                         #  I(2)TMP  CONSTANT IN ATR EQUATION
005634,001499: E4,1771  E4,1737               YCONS              EQUALS   PCONS      +2                         #  I(2)TMP  CONSTANT IN ATY EQUATION
005635,001500: E4,1771  E4,1741               PRATE              EQUALS   YCONS      +2                         #  I(2)TMP  RATE COEFF. IN ATR EQUATION
005636,001501: E4,1771  E4,1743               YRATE              EQUALS   PRATE      +2                         #  I(2)TMP  RATE COEFF. IN ATY EQUATION
005637,001502: E4,1771  E4,1745               ATY                EQUALS   YRATE      +2                         #  I(2)TMP  OUT-OF-PLANE THRUST COMP.*2(9)
005638,001503: E4,1771  E4,1747               ATR                EQUALS   ATY        +2                         #  I(2)TMP  RADIAL THRUST COMP.*2(9)
005639,001504: E4,1771  E4,1751               ATP                EQUALS   ATR        +2                         #  I(2)TMP  DOWN-RANGE THRUST COMP
005640,001505: E4,1771  E4,1753               YAW                EQUALS   ATP        +2                         #  I(2)TMP
005641,001506: E4,1771  E4,1755               PITCH              EQUALS   YAW        +2                         #  I(2)RMP
005642,001507: 
005643,001508: 
005644,001509:                                                                                                  #           SERVICER FOR LUNAR ASCENT AND DESCENT                          (14D)
005645,001510: 
005646,001511: E4,1771  E4,1707               G(CSM)             EQUALS   GEFF       +2                         #  I(6) FOR UPDATE OF COMMAND MODULE STATE
005647,001512:                                                                                                  # R(CSM)         EQUALS          R-OTHER                        VECTORS BY LEM; ANALOGS OF GDT/2,
005648,001513:                                                                                                  # V(CSM)         EQUALS          V-OTHER                        R, AND V, RESPECTIVELY OF THE CSM

Page 123

005650,001515: E4,1771  E4,1715               WM                 EQUALS   G(CSM)     +6                         #  I(6) TMP - LUNAR ROTATION VECTOR (SM)
005651,001516: E4,1771  E4,1723               /LAND/             EQUALS   WM         +6                         #  B(2) LUNAR RADIUS AT LANDING SITE
005652,001517: 
005653,001518: 
005654,001519:                                                                                                  #           NOTE:  R(CSM) AND V(CSM) DEFINED IN E3.
005655,001520: 

Page 124

005657,001522:                                                                                                  #           EBANK-5 ASSIGNMENTS
005658,001523: 
005659,001524: E5,1400                                           SETLOC   2400                                  
005660,001525: 
005661,001526:                                                                                                  #           W-MATRIX. ESSENTIALLY UNSHARABLE.                              (162D)
005662,001527: 
005663,001528: E5,1400                        W                  ERASE    +161D                                 
005664,001529: E5,1642  E5,1642               ENDW               EQUALS   W          +162D                      
005665,001530: 
005666,001531: 
005667,001532: 
005668,001533: 
005669,001534:                                                                                                  #  *******  OVERLAY NUMBER 1 IN EBANK 5  *******
005670,001535: 
005671,001536: 
005672,001537:                                                                                                  #           W-MATRIX OVERLAY: PADLOADS -- LANDING, ABORTS                  (?)
005673,001538: E5,1642  E5,1400               VELBIAS            EQUALS   W                                     #  I(2) PL BIAS VALUE FOR VELOCITY.
005674,001539:                                                                                                  #  REASONABILITY TEST, 2(6) M/CS
005675,001540:                                                                                                  #  PLEASE PRESERVE THE ORDER OF RBRFGX THROUGH TCGIAPPR.
005676,001541: E5,1642  E5,1402               RBRFGX             EQUALS   VELBIAS    +2                         #  I(2)  POSITION TARGETS
005677,001542: E5,1642  E5,1404               RAPFGX             EQUALS   RBRFGX     +2                         #  I(2)
005678,001543: E5,1642  E5,1406               RBRFGZ             EQUALS   RAPFGX     +2                         #  I(2)
005679,001544: E5,1642  E5,1410               RAPFGZ             EQUALS   RBRFGZ     +2                         #  I(2)
005680,001545: E5,1642  E5,1412               VBRFGX             EQUALS   RAPFGZ     +2                         #  I(2)  VELOCITY TARGETS
005681,001546: E5,1642  E5,1414               VAPFGX             EQUALS   VBRFGX     +2                         #  I(2)
005682,001547: E5,1642  E5,1416               VBRFGZ             EQUALS   VAPFGX     +2                         #  I(2)
005683,001548: E5,1642  E5,1420               VAPFGZ             EQUALS   VBRFGZ     +2                         #  I(2)
005684,001549: E5,1642  E5,1422               ABRFGX             EQUALS   VAPFGZ     +2                         #  I(2)  ACCELERATION TARGETS
005685,001550: E5,1642  E5,1424               AAPFGX             EQUALS   ABRFGX     +2                         #  I(2)
005686,001551: E5,1642  E5,1426               ABRFGZ             EQUALS   AAPFGX     +2                         #  I(2)
005687,001552: E5,1642  E5,1430               AAPFGZ             EQUALS   ABRFGZ     +2                         #  I(2)
005688,001553: E5,1642  E5,1432               VBRFG*             EQUALS   AAPFGZ     +2                         #  I(2)  SCALED TARGETS FOR TTF/8CL
005689,001554: E5,1642  E5,1434               VAPFG*             EQUALS   VBRFG*     +2                         #  I(2)
005690,001555: E5,1642  E5,1436               ABRFG*             EQUALS   VAPFG*     +2                         #  I(2)
005691,001556: E5,1642  E5,1440               AAPFG*             EQUALS   ABRFG*     +2                         #  I(2)
005692,001557: E5,1642  E5,1442               JBRFG*             EQUALS   AAPFG*     +2                         #  I(2)
005693,001558: E5,1642  E5,1444               JAPFG*             EQUALS   JBRFG*     +2                         #  I(2)
005694,001559:                                                                                                  #                                                 * SEE PARAMETER TABLE IN LUNAR LANDING GUIDANCE EQUATIONS FOR
005695,001560:                                                                                                  #                                                               INDIRECT ADDRESSING INTO ABOVE AREA.
005696,001561: 
005697,001562: E5,1642  E5,1446               GAINBRAK           EQUALS   JAPFG*     +2                         #  I(2)  GAINS FOR GUIDANCE FRAME ERECTION
005698,001563: E5,1642  E5,1450               GAINAPPR           EQUALS   GAINBRAK   +2                         #  I(2)
005699,001564: E5,1642  E5,1452               TCGFBRAK           EQUALS   GAINAPPR   +2                         #  I(2)  TIME CRITERIA FOR GUIDANCE FRAME
005700,001565: E5,1642  E5,1453               TCGIBRAK           EQUALS   TCGFBRAK   +1                         #  I(1)
005701,001566: E5,1642  E5,1454               TCGFAPPR           EQUALS   TCGIBRAK   +1                         #  I(1)
005702,001567: E5,1642  E5,1455               TCGIAPPR           EQUALS   TCGFAPPR   +1                         #  I(1)
005703,001568: E5,1642  E5,1456               VIGN               EQUALS   TCGIAPPR   +1                         #  I(2)  DESIRED SPEED FOR PDI
005704,001569: E5,1642  E5,1460               RIGNX              EQUALS   VIGN       +2                         #  I(2)  DESIRED 'ALTITUDE' FOR IGNITION
005705,001570: E5,1642  E5,1462               RIGNZ              EQUALS   RIGNX      +2                         #  I(2)  DESIRED GROUND RANGE FOR IGNITION
005706,001571: E5,1642  E5,1464               KIGNX/B4           EQUALS   RIGNZ      +2                         #  I(2)

Page 125

005708,001573: E5,1642  E5,1466               KIGNY/B8           EQUALS   KIGNX/B4   +2                         #  I(2)
005709,001574: E5,1642  E5,1470               KIGNV/B4           EQUALS   KIGNY/B8   +2                         #  I(2)
005710,001575: E5,1642  E5,1472               LOWCRIT            EQUALS   KIGNV/B4   +2                         #  B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
005711,001576: E5,1642  E5,1473               HIGHCRIT           EQUALS   LOWCRIT    +1                         #  B(1)
005712,001577: E5,1642  E5,1474               TAUHZ              EQUALS   HIGHCRIT   +1                         #  I(1) TAU FOR P66HZ
005713,001578: E5,1642  E5,1475               QHZ                EQUALS   TAUHZ      +1                         #  I(1) FRACTION OF LAST P66HZ COMMAND
005714,001579: E5,1642  E5,1476               AHZLIM             EQUALS   QHZ        +1                         #  I(1) LIMIT FOR P66HZ COMMAND
005715,001580: E5,1642  E5,1477               TEXTRA             EQUALS   AHZLIM     +1                         #  I(1) TIME TO ACHIEVE P66HZ COMMAND
005716,001581: E5,1642  E5,1500               DELQFIX            EQUALS   TEXTRA     +1                         #  I(2)   LR ALT REASONABILITY PARAMETER
005717,001582: E5,1642  E5,1502               LRVMAX             EQUALS   DELQFIX    +2                         #  B(1)   LR VEL WEIGHTING FUNCTIONS
005718,001583: E5,1642  E5,1503               LRVF               EQUALS   LRVMAX     +1                         #  B(1)   LR VEL WEIGHTING FUNCTIONS
005719,001584: E5,1642  E5,1504               LRWVZ              EQUALS   LRVF       +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005720,001585: E5,1642  E5,1505               LRWVY              EQUALS   LRWVZ      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005721,001586: E5,1642  E5,1506               LRWVX              EQUALS   LRWVY      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005722,001587: E5,1642  E5,1507               LRWVFZ             EQUALS   LRWVX      +1                         #  B(1)   LR VEL WEIGH ING FUNCTIONS
005723,001588: E5,1642  E5,1510               LRWVFY             EQUALS   LRWVFZ     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005724,001589: E5,1642  E5,1511               LRWVFX             EQUALS   LRWVFY     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005725,001590: E5,1642  E5,1512               LRWVFF             EQUALS   LRWVFX     +1                         #  B(1)   LR VEL WEIG  ING FUNC IONS
005726,001591: 
005727,001592: E5,1642  E5,1513               ABSC0              EQUALS   LRWVFF     +1                         #  B(1)  ABSCISSAE DEFINING TERRAIN MODEL
005728,001593: E5,1642  E5,1514               ABSC1              EQUALS   ABSC0      +1                         #  B(1)
005729,001594: E5,1642  E5,1515               ABSC2              EQUALS   ABSC1      +1                         #  B(1)
005730,001595: E5,1642  E5,1516               ABSC3              EQUALS   ABSC2      +1                         #  B(1)
005731,001596: E5,1642  E5,1517               ABSC4              EQUALS   ABSC3      +1                         #  B(1)
005732,001597: E5,1642  E5,1520               SLOPE0             EQUALS   ABSC4      +1                         #  B(1)  SLOPES DEFINING TERRAIN MODEL
005733,001598: E5,1642  E5,1521               SLOPE1             EQUALS   SLOPE0     +1                         #  B(1)
005734,001599: E5,1642  E5,1522               SLOPE2             EQUALS   SLOPE1     +1                         #  B(1)
005735,001600: E5,1642  E5,1523               SLOPE3             EQUALS   SLOPE2     +1                         #  B(1)
005736,001601: E5,1642  E5,1524               SLOPE4             EQUALS   SLOPE3     +1                         #  B(1)
005737,001602: 
005738,001603: E5,1642     0130               ABVEL*             EQUALS   BUF                                   #  B(1)   LR TEMP
005739,001604: E5,1642     0131               VSELECT*           EQUALS   BUF        +1                         #  B(1)   LR TEMP
005740,001605: 
005741,001606: E5,1642  E5,1525               RODSCALE           EQUALS   SLOPE4     +1                         #  B(1) VELOCITY CHANGE PER ROD CLICK
005742,001607: E5,1642  E5,1526               ROHZSCAL           EQUALS   RODSCALE   +1                         #  B(1) VELOCITY CHANGE PER RHC DEFLECTION
005743,001608: E5,1642  E5,1527               TAURODL            EQUALS   ROHZSCAL   +1                         #  B(1) LITTLE TAU FOR P66ROD OUTSIDE DBAND
005744,001609: E5,1642  E5,1530               TAURODB            EQUALS   TAURODL    +1                         #  B(1) BIGGER TAU FOR P66ROD INSIDE DBAND
005745,001610: E5,1642  E5,1531               VERCRIT            EQUALS   TAURODB    +1                         #  B(1) VELOCITY ERROR CRITERION FOR P66ROD
005746,001611: E5,1642  E5,1532               MINFORCE           EQUALS   VERCRIT    +1                         #  B(1) MIN SM X-AXIS THRUST FROM P66ROD
005747,001612: E5,1642  E5,1533               MAXFORCE           EQUALS   MINFORCE   +1                         #  B(1) MAX SM X-AXIS THRUST FROM P66ROD
005748,001613: E5,1642  E5,1534               J1PARM             EQUALS   MAXFORCE   +1                         #  I(2) PARAMETER SET # 1:
005749,001614: E5,1642  E5,1536               K1PARM             EQUALS   J1PARM     +2                         #  I(2)    ABORT ORBIT SEMI-MAJOR AXIS COMP
005750,001615: E5,1642  E5,1540               J2PARM             EQUALS   K1PARM     +2                         #  I(2) PARAMETER SET # 2:
005751,001616: E5,1642  E5,1542               K2PARM             EQUALS   J2PARM     +2                         #  I(2)    ABORT ORBIT SEMI-MAJOR AXIS COMP
005752,001617: E5,1642  E5,1544               THETCRIT           EQUALS   K2PARM     +2                         #  I(2) CENTRAL ANGLE SWITCHING CRITERION.
005753,001618: E5,1642  E5,1546               RAMIN              EQUALS   THETCRIT   +2                         #  I(2) MINIMUM ALLOWABLE APOLUNE.
005754,001619: E5,1642  E5,1550               YLIM               EQUALS   RAMIN      +2                         #  I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS
005755,001620: E5,1642  E5,1552               ABTRDOT            EQUALS   YLIM       +2                         #  I(2) DESIRED RADIAL VEL. FOR ABORTS.
005756,001621: E5,1642  E5,1554               COSTHET1           EQUALS   ABTRDOT    +2                         #  I(2) COS OF CONE 1 ANGLE FOR ABORTS
005757,001622: E5,1642  E5,1556               COSTHET2           EQUALS   COSTHET1   +2                         #  I(2) COS OF CONE 2 ANGLE FOR ABORTS.

Page 126

005759,001624: 
005760,001625: 
005761,001626:                                                                                                  #           SOME VARIABLES FOR SECOND DPS GUIDANCE                         (38D)
005762,001627: 
005763,001628: E5,1642  E5,1560               CG                 EQUALS   COSTHET2   +2                         #  I(18D) GUIDANCE
005764,001629: E5,1642  E5,1602               RANGEDSP           EQUALS   CG         +18D                       #  B(2) DISPLAY
005765,001630: E5,1642  E5,1602               OUTOFPLN           EQUALS   RANGEDSP                              #  *** OUTOFPLN CAN OVERLAY RANGEDSP ***
005766,001631: E5,1642  E5,1604               RGU                EQUALS   OUTOFPLN   +2                         #  I(6) UNSHARED FOR DOWNLINK
005767,001632: E5,1642  E5,1612               DLAND              EQUALS   RGU        +6                         #  B(6) PL LANDING SITE CORRECTION,SM FRAME
005768,001633: E5,1642  E5,1612               DLANDX             EQUALS   DLAND                                 
005769,001634: E5,1642  E5,1614               DLANDY             EQUALS   DLAND      +2                         
005770,001635: E5,1642  E5,1616               DLANDZ             EQUALS   DLAND      +4                         
005771,001636: 
005772,001637: 
005773,001638:                                                                                                  #           OVERLAYS OF THE BLOCK ABOVE (ASCENT AND DESCENT)
005774,001639: 
005775,001640: E5,1642  E5,1560               JPARM              EQUALS   CG                                    #  I(2) JPARM WILL EQUAL J1PARM OR J2PARM
005776,001641: E5,1642  E5,1562               KPARM              EQUALS   JPARM      +2                         #  I(2) KPARM WILL EQUAL K1PARM OR K2PARM
005777,001642: E5,1642  E5,1564               RP                 EQUALS   KPARM      +2                         #  I(2) PREDICTED BURNOUT RADIUS-M*2(-24)
005778,001643: E5,1642  E5,1566               QAXIS              EQUALS   RP         +2                         #  I(6) ASCENT CROSSRANGE HALF-UNIT VECTOR
005779,001644: E5,1642  E5,1574               ZAXIS1             EQUALS   QAXIS      +6                         #  I(6) ASCENT DOWNRANGE HALF-UNIT VECTOR
005780,001645: E5,1642     0130               L*WCR*T            =        BUF                                   
005781,001646: E5,1642     0131               H*GHCR*T           =        BUF        +1                         
005782,001647: 
005783,001648: 
005784,001649:                                                                                                  #           Q-SAVE REGISTER FOR ASCENT                                     (1D)
005785,001650: 
005786,001651: E5,1642  E5,1620               ASCSAVE            EQUALS   DLAND      +6                         #  I(1)TMP ASCENT Q-SAVE
005787,001652: 
005788,001653: 
005789,001654:                                                                                                  #           ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.                     (36D)
005790,001655: 
005791,001656: E5,1642  E5,1642               XSM                EQUALS   ENDW                                  #  B(6)
005792,001657: E5,1642  E5,1650               YSM                EQUALS   XSM        +6                         #  B(6)
005793,001658: E5,1642  E5,1656               ZSM                EQUALS   YSM        +6                         #  B(6)
005794,001659: 
005795,001660: E5,1642  E5,1664               XDC                EQUALS   ZSM        +6                         #  B(6)
005796,001661: E5,1642  E5,1672               YDC                EQUALS   XDC        +6                         #  B(6)
005797,001662: E5,1642  E5,1700               ZDC                EQUALS   YDC        +6                         #  B(6)
005798,001663: 
005799,001664: E5,1642  E5,1664               XNB                =        XDC                                   
005800,001665: E5,1642  E5,1672               YNB                =        YDC                                   
005801,001666: E5,1642  E5,1700               ZNB                =        ZDC                                   
005802,001667: 
005803,001668: 
005804,001669:                                                                                                  #           MORE OVERLAYS TO ALIGNMENT/SYSTEST  (THESE ARE P52)            (6D)
005805,001670: 
005806,001671: E5,1642  E5,1706               LANDLAT            EQUALS   STARAD                                #  (2) LATITUDE, LONGITUDE
005807,001672: E5,1642  E5,1710               LANDLONG           EQUALS   LANDLAT    +2                         #  (2)     AND ALTITUDE
005808,001673: E5,1642  E5,1712               LANDALT            EQUALS   LANDLONG   +2                         #  (2)     OF LANDING SITE

Page 127

005810,001675: 
005811,001676: 
005812,001677:                                                                                                  #           ALIGNMENT/SYSTEST COMMON STORAGE.                              (31D)
005813,001678: 
005814,001679: E5,1642  E5,1706               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
005815,001680: E5,1642  E5,1730               STAR               EQUALS   STARAD     +18D                       #  I(6)
005816,001681: E5,1642  E5,1736               GCTR               EQUALS   STAR       +6                         #  B(1)
005817,001682: E5,1642  E5,1737               OGC                EQUALS   GCTR       +1                         #  I(2)
005818,001683: E5,1642  E5,1741               IGC                EQUALS   OGC        +2                         #  I(2)
005819,001684: E5,1642  E5,1743               MGC                EQUALS   IGC        +2                         #  I(2)
005820,001685: 
005821,001686:                                                                                                  #           P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE)    (12D)
005822,001687: 
005823,001688: E5,1642  E5,1706               GACC               =        STARAD                                #  (6) SS
005824,001689: E5,1642  E5,1714               GOUT               =        STARAD     +6                         #  (6) SS
005825,001690: 
005826,001691: 
005827,001692:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE               (24D)
005828,001693: 
005829,001694: E5,1642  E5,1706               VEARTH             EQUALS   STARAD                                #  (6)TMP
005830,001695: E5,1642  E5,1714               VSUN               EQUALS   VEARTH     +6                         #  (6)TMP
005831,001696: E5,1642  E5,1722               VMOON              EQUALS   VSUN       +6                         #  (6)TMP
005832,001697: E5,1642  E5,1730               SAX                EQUALS   VMOON      +6                         #  (6)TMP
005833,001698: 
005834,001699: 
005835,001700:                                                                                                  #           P50'S,R50'S Q STORES.                                          (2D)
005836,001701: 
005837,001702: E5,1642  E5,1745               QMIN               EQUALS   MGC        +2                         #  B(1)TMP
005838,001703: E5,1642  E5,1746               QMAJ               EQUALS   QMIN       +1                         #  B(1)TMP
005839,001704: 
005840,001705: 
005841,001706:                                                                                                  #         **** USED IN P50S ****   (SCATTERED OVERLAYS)                    (18D)
005842,001707: E5,1642  E5,1706               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
005843,001708: 
005844,001709: 
005845,001710: 
005846,001711:                                                                                                  #           ALIGNMENT STORAGE.                                             (23D)
005847,001712: 
005848,001713: E5,1642  E5,1747               OGCT               EQUALS   QMAJ       +1                         #  I(6)
005849,001714: E5,1642  E5,1755               BESTI              EQUALS   OGCT       +6                         #  I(1)
005850,001715: E5,1642  E5,1756               BESTJ              EQUALS   BESTI      +1                         
005851,001716: E5,1642  E5,1757               STARIND            EQUALS   BESTJ      +1                         
005852,001717:                                                                                                  #     RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
005853,001718: E5,1642  E5,1760               STARSAV1           EQUALS   STARIND    +1                         #  I(6)
005854,001719: E5,1642  E5,1766               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)
005855,001720: E5,1642  E5,1774               TALIGN             EQUALS   STARSAV2   +6                         #  B(2) TIME OF IMU ALIGNMENT  (DOWNLINKED)
005856,001721: 
005857,001722: 
005858,001723:                                                                                                  #           P32-35 + SERVICER                                              (2D)
005859,001724: 

Page 128

005861,001726: E5,1642  E5,1776               RTX1               EQUALS   TALIGN     +2                         #  I(1) X1  -2 EARTH, -10 MOON
005862,001727: E5,1642  E5,1777               RTX2               EQUALS   RTX1       +1                         #  I(1) X2  0 EARTH, 2 MOON
005863,001728: 
005864,001729: 
005865,001730: E5,1642                        ZPRIME             =        22D                                   
005866,001731: E5,1642                        COSTH              =        16D                                   
005867,001732: E5,1642                        SINTH              =        18D                                   
005868,001733: E5,1642                        THETA              =        20D                                   
005869,001734: 

Page 129

005871,001736:                                                                                                  #  *******  OVERLAY NUMBER 2 IN EBANK 5  *******
005872,001737: 
005873,001738: 
005874,001739:                                                                                                  #          CONICS ROUTINE STORAGE.                                         (85D)
005875,001740: 
005876,001741: E5,1642  E5,1642               DELX               EQUALS   ENDW                                  #  I(2)TMP
005877,001742: E5,1642  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
005878,001743: E5,1642  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
005879,001744: E5,1642                        RCNORM             EQUALS   34D                                   #  I(2) TMP
005880,001745:                                                                                                  #          NOTE: RCNORM (ABOVE) IS DEFINED IN VAC AREA
005881,001746: 
005882,001747: E5,1642  E5,1654               R1VEC              EQUALS   URRECT     +6                         #  I(6) TMP
005883,001748: E5,1642  E5,1662               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
005884,001749: E5,1642  E5,1670               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
005885,001750: E5,1642  E5,1672               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
005886,001751: E5,1642  E5,1673               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
005887,001752: E5,1642  E5,1701               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
005888,001753: E5,1642  E5,1702               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
005889,001754: E5,1642  E5,1710               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
005890,001755: E5,1642  E5,1711               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
005891,001756: E5,1642  E5,1717               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
005892,001757: E5,1642  E5,1721               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
005893,001758: E5,1642  E5,1727               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
005894,001759: E5,1642  E5,1731               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
005895,001760: E5,1642  E5,1733               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
005896,001761: E5,1642  E5,1735               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
005897,001762: E5,1642  E5,1737               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
005898,001763: E5,1642  E5,1741               R1A                EQUALS   P          +2                         #  I(2)TMP
005899,001764: E5,1642  E5,1654               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
005900,001765: E5,1642  E5,1743               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
005901,001766: E5,1642  E5,1710               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
005902,001767: E5,1642  E5,1751               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
005903,001768: E5,1642  E5,1710               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
005904,001769: E5,1642  E5,1710               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
005905,001770: E5,1642  E5,1717               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
005906,001771: E5,1642  E5,1753               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
005907,001772: E5,1642  E5,1754               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
005908,001773: E5,1642  E5,1755               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
005909,001774: E5,1642  E5,1757               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
005910,001775: E5,1642  E5,1761               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
005911,001776: E5,1642  E5,1757               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
005912,001777: E5,1642  E5,1761               TPREV              EQUALS   DEPREV                                #  I(2)TMP
005913,001778: E5,1642  E5,1763               EPSILONL           EQUALS   DEPREV     +2                         #  I(2)TMP
005914,001779: E5,1642  E5,1765               COGA               EQUALS   EPSILONL   +2                         #  I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
005915,001780: E5,1642  E5,1765               INDEP              EQUALS   COGA                                  #       USED BY SUBROUTINE'ITERATOR'.
005916,001781: 

Page 130

005918,001783:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 5  *******
005919,001784: 
005920,001785: 
005921,001786:                                                                                                  #          INCORP STORAGE.                                                 (18D)
005922,001787: 
005923,001788: E5,1642  E5,1642               ZI                 EQUALS   ENDW                                  #  I(18)TMP
005924,001789: 
005925,001790:                                                                                                  #          INCORP/LSR22.3 STORAGE.                                         (21D)
005926,001791: 
005927,001792: E5,1642  E5,1664               DELTAX             EQUALS   ZI         +18D                       #  I(18)
005928,001793: E5,1642  E5,1706               VARIANCE           EQUALS   DELTAX     +18D                       #  I(3)
005929,001794: 
005930,001795:                                                                                                  #          MEASUREMENT INCORPORATION -R22- STORAGE.                        (49D)
005931,001796: 
005932,001797: E5,1642  E5,1711               GRP2SVQ            EQUALS   VARIANCE   +3                         #  I(1)TMP QSAVE FOR RESTARTS
005933,001798: E5,1642  E5,1712               OMEGAM1            EQUALS   GRP2SVQ    +1                         #  I(6)
005934,001799: E5,1642  E5,1720               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)
005935,001800: E5,1642  E5,1726               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)
005936,001801: E5,1642  E5,1734               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)
005937,001802: 
005938,001803: 
005939,001804: E5,1642  E5,1664               TRIPA              EQUALS   DELTAX                                #  I(3)TMP
005940,001805: E5,1642  E5,1667               TEMPVAR            EQUALS   TRIPA      +3                         #  I(3)TMP
005941,001806: 
005942,001807: 
005943,001808: 
005944,001809: 
005945,001810:                                                                                                  #           INCORPORATION/INTEGRATION Q STORAGE.                           (1D)
005946,001811: 
005947,001812: E5,1642  E5,1767               EGRESS             EQUALS   COGA       +2                         #  I(1)
005948,001813: 
005949,001814: 
005950,001815: 
005951,001816: 
005952,001817: 

Page 131

005954,001819:                                                                                                  #           SYSTEM TEST ERASABLES.  CAN OVERLAY W MATRIX.                  (127D)
005955,001820: 
005956,001821:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 5  *******
005957,001822: 
005958,001823: E5,1642  E5,1400               AZIMUTH            EQUALS   W                                     #  2
005959,001824: E5,1642  E5,1402               LATITUDE           EQUALS   AZIMUTH    +2                         #  2
005960,001825: E5,1642  E5,1404               ERVECTOR           EQUALS   LATITUDE   +2                         #  6
005961,001826: E5,1642  E5,1412               LENGTHOT           EQUALS   ERVECTOR   +6                         #  1
005962,001827: E5,1642  E5,1413               LOSVEC             EQUALS   LENGTHOT   +1                         #  6
005963,001828: E5,1642  E5,1414               NDXCTR             EQUALS   LOSVEC     +1                         #  1
005964,001829: E5,1642  E5,1415               PIPINDEX           EQUALS   NDXCTR     +1                         #  1
005965,001830: E5,1642  E5,1416               POSITON            EQUALS   PIPINDEX   +1                         #  1
005966,001831: E5,1642  E5,1417               QPLACE             EQUALS   POSITON    +1                         #  1
005967,001832: E5,1642  E5,1420               QPLACES            EQUALS   QPLACE     +1                         #  1
005968,001833: E5,1642  E5,1421               SOUTHDR            EQUALS   QPLACES    +1                         #  7
005969,001834: E5,1642  E5,1430               TEMPTIME           EQUALS   SOUTHDR    +7                         #  2
005970,001835: E5,1642  E5,1432               TMARK              EQUALS   TEMPTIME   +2                         #  2
005971,001836: E5,1642  E5,1434               GENPL              EQUALS   TMARK      +2                         
005972,001837: E5,1642  E5,1434               CDUTIMEI           =        GENPL                                 
005973,001838: E5,1642  E5,1436               CDUTIMEF           =        GENPL      +2                         
005974,001839: E5,1642  E5,1440               CDUDANG            =        GENPL      +4                         
005975,001840: E5,1642  E5,1441               CDUREADF           =        GENPL      +5                         
005976,001841: E5,1642  E5,1442               CDUREADI           =        GENPL      +6                         
005977,001842: E5,1642  E5,1443               CDULIMIT           =        GENPL      +7                         
005978,001843: 
005979,001844: E5,1642  E5,1440               TEMPADD            =        GENPL      +4                         
005980,001845: E5,1642  E5,1441               TEMP               =        GENPL      +5                         
005981,001846: E5,1642  E5,1442               NOBITS             =        GENPL      +6                         
005982,001847: E5,1642  E5,1443               CHAN               =        GENPL      +7                         
005983,001848: 
005984,001849: E5,1642  E5,1444               LOS1               =        GENPL      +8D                        
005985,001850: E5,1642  E5,1452               LOS2               =        GENPL      +14D                       
005986,001851: 
005987,001852: E5,1642  E5,1460               CALCDIR            EQUALS   GENPL      +20D                       
005988,001853: E5,1642  E5,1461               CDUFLAG            EQUALS   GENPL      +21D                       
005989,001854: E5,1642  E5,1462               GYTOBETQ           EQUALS   GENPL      +22D                       
005990,001855: E5,1642  E5,1463               OPTNREG            EQUALS   GENPL      +23D                       
005991,001856: E5,1642  E5,1464               SAVE               EQUALS   GENPL      +24D                       #  THREE  ONSEC LOC
005992,001857: E5,1642  E5,1467               SFCONST1           EQUALS   GENPL      +27D                       
005993,001858: E5,1642  E5,1470               TIMER              EQUALS   GENPL      +28D                       
005994,001859: 
005995,001860: E5,1642  E5,1472               DATAPL             EQUALS   GENPL      +30D                       
005996,001861: E5,1642  E5,1434               RDSP               EQUALS   GENPL                                 #  FIX LA ER   POSSIBLY KEEP1
005997,001862: E5,1642  E5,1534               MASKREG            EQUALS   GENPL      +64D                       
005998,001863: E5,1642  E5,1536               CDUNDX             EQUALS   GENPL      +66D                       
005999,001864: E5,1642  E5,1537               RESULTCT           EQUALS   GENPL      +67D                       
006000,001865: E5,1642  E5,1542               COUNTPL            EQUALS   GENPL      +70D                       
006001,001866: 
006002,001867: E5,1642  E5,1543               CDUANG             EQUALS   GENPL      +71D                       

Page 132

006004,001869: E5,1642  E5,1434               AINLA              =        GENPL                                 #  110 DE  OR 156 OCT LOCATIONS
006005,001870: 
006006,001871: E5,1642  E5,1434               WANGO              EQUALS   AINLA                                 #  VERT E ATE
006007,001872: E5,1642  E5,1436               WANGI              EQUALS   AINLA      +2D                        #  HORIZO TAL ERATE
006008,001873: E5,1642  E5,1440               WANGT              EQUALS   AINLA      +4D                        #  T
006009,001874: E5,1642  E5,1440               TORQNDX            =        WANGT                                 
006010,001875: E5,1642  E5,1442               DRIFTT             EQUALS   AINLA      +6D                        
006011,001876: E5,1642  E5,1444               ALX1S              EQUALS   AINLA      +8D                        
006012,001877: E5,1642  E5,1445               CMPX1              EQUALS   AINLA      +9D                        #  IND
006013,001878: E5,1642  E5,1446               ALK                EQUALS   AINLA      +10D                       #  GAINS
006014,001879: E5,1642  E5,1462               VLAUNS             EQUALS   AINLA      +22D                       
006015,001880: E5,1642  E5,1464               WPLATO             EQUALS   AINLA      +24D                       
006016,001881: E5,1642  E5,1470               INTY               EQUALS   AINLA      +28D                       #  SOUTH  IP INTE
006017,001882: E5,1642  E5,1472               ANGZ               EQUALS   AINLA      +30D                       #  EAST A IS
006018,001883: E5,1642  E5,1474               INTZ               EQUALS   AINLA      +32D                       #  EAST P P I
006019,001884: E5,1642  E5,1476               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
006020,001885: E5,1642  E5,1500               ANGX               EQUALS   AINLA      +36D                       #  VE
006021,001886: E5,1642  E5,1502               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
006022,001887: E5,1642  E5,1504               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
006023,001888: E5,1642  E5,1510               VLAUN              EQUALS   AINLA      +44D                       
006024,001889: E5,1642  E5,1512               ACCWD              EQUALS   AINLA      +46D                       
006025,001890: E5,1642  E5,1520               POSNV              EQUALS   AINLA      +52D                       
006026,001891: E5,1642  E5,1522               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
006027,001892: E5,1642  E5,1526               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH  IP INCREMENT
006028,001893: E5,1642  E5,1530               ALTIM              EQUALS   AINLA      +60D                       
006029,001894: E5,1642  E5,1531               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
006030,001895: E5,1642  E5,1532               ALDK               EQUALS   AINLA      +62D                       #   TIME  ONSTAN
006031,001896: E5,1642  E5,1550               DELM               EQUALS   AINLA      +76D                       
006032,001897: E5,1642  E5,1560               WPLATI             EQUALS   AINLA      +84D                       
006033,001898: E5,1642  E5,1562               GEOCOMPS           EQUALS   AINLA      +86D                       
006034,001899: E5,1642  E5,1563               ERCOMP             EQUALS   AINLA      +87D                       
006035,001900: E5,1642  E5,1571               ZERONDX            EQUALS   AINLA      +93D                       
006036,001901: 
006037,001902: E5,1642  E5,1452               THETAN             =        ALK        +4                         
006038,001903: E5,1642  E5,1460               FILDELV            EQUALS   THETAN     +6                         #   AGS ALIGNMENT STORAGE
006039,001904: E5,1642  E5,1462               INTVEC             EQUALS   FILDELV    +2                         
006040,001905: E5,1642  E5,1572               1SECXT             =        AINLA      +94D                       
006041,001906: E5,1642  E5,1573               ASECXT             =        AINLA      +95D                       
006042,001907: E5,1642  E5,1574               PERFDLAY           EQUALS   AINLA      +96D                       #  B(2) DELAY TIME BEF. START DRIFT MEASURE
006043,001908: E5,1642  E5,1576               OVFLOWCK           EQUALS   AINLA      +98D                       #  (1) SET MEANS OVERFLOW IN IMU PERF TEST
006044,001909:                                                                                                  #      AND CAUSES TERMINATION
006045,001910: 
006046,001911: 
006047,001912: E5,1642                        END-E5             EQUALS   2777                                  #  END OF EBANK 5
006048,001913: 

Page 133

006050,001915:                                                                                                  #           EBANK-6 ASSIGNMENTS.
006051,001916: 
006052,001917: E6,1400                                           SETLOC   3000                                  
006053,001918: 
006054,001919:                                                                                                  #           DAP   PAD-LOADED   DATA.                                       (10D)
006055,001920: 
006056,001921:                                                                                                  #    ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
006057,001922: 
006058,001923: E6,1400                        HIASCENT           ERASE                                          #  (1) MASS AFTER STAGING, SCALE AT B16 KG.
006059,001924: E6,1401                        ROLLTIME           ERASE                                          #  (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
006060,001925: E6,1402                        PITTIME            ERASE                                          #  (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
006061,001926: E6,1403                        DKTRAP             ERASE                                          #  (1) DAP STATE            (POSSIBLE 77001
006062,001927: E6,1404                        DKOMEGAN           ERASE                                          #  (1)   ESTIMATOR PARA-      (VALUES 00012
006063,001928: E6,1405                        DKKAOSN            ERASE                                          #  (1)      METERS FOR THE           00074
006064,001929: E6,1406                        LMTRAP             ERASE                                          #  (1)         DOCKED AND            77001
006065,001930: E6,1407                        LMOMEGAN           ERASE                                          #  (1)            LEM-ALONE CASES    00000
006066,001931: E6,1410                        LMKAOSN            ERASE                                          #  (1)               RESPECTIVELY    00074
006067,001932: E6,1411                        DKDB               ERASE                                          #  (1) WIDTH OF DEADBAND FOR DOCKED RCS
006068,001933:                                                                                                  #      AUTOPILOT (DB=1.4DEG IN FRESH START)
006069,001934:                                                                                                  #      DEADBAND = PI/DKDB RAD.
006070,001935: 
006071,001936:                                                                                                  #  PADLOADS FOR INITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION)  (2D)
006072,001937: 
006073,001938: E6,1412                        IGNAOSQ            ERASE                                          #  B(1)PL
006074,001939: E6,1413                        IGNAOSR            ERASE                                          #  B(1)PL
006075,001940: 
006076,001941: 
006077,001942:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:                      (5D)
006078,001943: 
006079,001944: E6,1414                        M11                ERASE                                          #  SCALED AT 1
006080,001945: E6,1415                        M21                ERASE                                          #  SCALED AT 1
006081,001946: E6,1416                        M31                ERASE                                          
006082,001947: E6,1417                        M22                ERASE                                          #  SCALED AT 1.
006083,001948: E6,1420                        M32                ERASE                                          #  SCALED AT 1.
006084,001949: 
006085,001950:                                                                                                  #  ANGLE MEASUREMENTS.                                                     (31D)
006086,001951: 
006087,001952: E6,1421                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
006088,001953: E6,1426  E6,1422               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
006089,001954: E6,1426  E6,1423               OMEGAR             EQUALS   OMEGAP     +2                         
006090,001955:                                                                                                  #     RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
006091,001956: E6,1426  E6,1424               ALPHAQ             EQUALS   OMEGAP     +3                         
006092,001957: E6,1426  E6,1425               ALPHAR             EQUALS   OMEGAP     +4                         
006093,001958: E6,1426                        OMEGAU             ERASE    +1                                    
006094,001959: E6,1430  E6,1427               OMEGAV             =        OMEGAU     +1                         
006095,001960: 
006096,001961: E6,1430                        TRAPEDP            ERASE    +5                                    
006097,001962: E6,1436  E6,1431               TRAPEDQ            =        TRAPEDP    +1                         
006098,001963: E6,1436  E6,1432               TRAPEDR            =        TRAPEDP    +2                         
006099,001964: E6,1436  E6,1433               NPTRAPS            =        TRAPEDP    +3                         
006100,001965: 

Page 134

006102,001967: E6,1436  E6,1434               NQTRAPS            =        TRAPEDP    +4                         
006103,001968: E6,1436  E6,1435               NRTRAPS            =        TRAPEDP    +5                         
006104,001969: E6,1436  E6,1427               EDOTP              =        EDOT                                  
006105,001970: E6,1436                        EDOTQ              ERASE    +1                                    
006106,001971: E6,1440  E6,1437               EDOTR              =        EDOTQ      +1                         #   MANY SHARING NAMES
006107,001972: E6,1440  E6,1436               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
006108,001973: E6,1440  E6,1437               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
006109,001974: 
006110,001975: E6,1440  E6,1426               URATEDIF           EQUALS   OMEGAU                                
006111,001976: E6,1440  E6,1427               VRATEDIF           EQUALS   OMEGAV                                
006112,001977: E6,1440                        OLDXFORP           ERASE    +2                                    #  STORED CDU READINGS FOR STATE
006113,001978: E6,1443  E6,1441               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
006114,001979: E6,1443  E6,1442               OLDZFORQ           EQUALS   OLDXFORP   +2                         
006115,001980:                                                                                                  #  RATE-COMMAND AND MINIMUM IMPULSE MODES
006116,001981: 
006117,001982: E6,1443                        CH31TEMP           ERASE                                          
006118,001983: E6,1444                        STIKSENS           ERASE                                          
006119,001984: E6,1445                        TCP                ERASE                                          
006120,001985: E6,1446                        DXERROR            ERASE    +5                                    
006121,001986: E6,1454  E6,1450               DYERROR            EQUALS   DXERROR    +2                         
006122,001987: E6,1454  E6,1452               DZERROR            EQUALS   DXERROR    +4                         
006123,001988: E6,1454                        PLAST              ERASE                                          
006124,001989: E6,1455                        QLAST              ERASE                                          
006125,001990: E6,1456                        RLAST              ERASE                                          
006126,001991: E6,1457                        TCQR               ERASE                                          
006127,001992:                                                                                                  #  OTHER VARIABLES.                                                        (5D)
006128,001993: 
006129,001994: E6,1460                        OLDPMIN            ERASE                                          #  THESE THREE USED IN MIN IMPULSE MODE.
006130,001995: E6,1461                        OLDQRMIN           ERASE                                          
006131,001996: E6,1462  E6,1736               TEMP31             EQUALS   DAPTEMP1                              
006132,001997: 
006133,001998: E6,1462                        SAVEHAND           ERASE    +1                                    
006134,001999: E6,1464                        PERROR             ERASE                                          
006135,002000: E6,1465  E6,1450               QERROR             EQUALS   DYERROR                               
006136,002001: E6,1465  E6,1452               RERROR             EQUALS   DZERROR                               
006137,002002:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW        (10D)
006138,002003:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
006139,002004: 
006140,002005: E6,1465                        NXT6ADR            ERASE                                          
006141,002006: E6,1466                        T6NEXT             ERASE    +1                                    
006142,002007: E6,1470                        T6FURTHA           ERASE    +1                                    
006143,002008: E6,1472                        NEXTP              ERASE    +2                                    
006144,002009: E6,1475  E6,1473               NEXTU              =        NEXTP      +1                         
006145,002010: E6,1475  E6,1474               NEXTV              =        NEXTP      +2                         
006146,002011: E6,1475                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
006147,002012: E6,1477  E6,1476               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
006148,002013: 
006149,002014: E6,1477  E6,1476               TARGETDB           EQUALS   -RATEDB                               #  MAN. CONTROL TARGET DB COMPLEMENT.
006150,002015: 
006151,002016:                                                                                                  #       *** Q,R AXIS ERASABLES ***                                         (3)
006152,002017: 

Page 135

006154,002019: E6,1477     4742               PBIT               EQUALS   BIT10                                 
006155,002020: E6,1477     4741               QRBIT              EQUALS   BIT11                                 
006156,002021: E6,1477  E6,1750               UERROR             EQUALS   DAPTREG5                              #  U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
006157,002022: E6,1477  E6,1751               VERROR             =        UERROR     +1                         
006158,002023: E6,1477                        RETJADR            ERASE                                          
006159,002024: E6,1500  E6,1741               TEMPNUM            EQUALS   DAPTEMP4                              
006160,002025: E6,1500  E6,1742               NUMBERT            EQUALS   DAPTEMP5                              
006161,002026: E6,1500  E6,1743               ROTINDEX           EQUALS   DAPTEMP6                              
006162,002027: E6,1500  E6,1736               ROTEMP1            EQUALS   DAPTEMP1                              
006163,002028: E6,1500  E6,1737               ROTEMP2            EQUALS   DAPTEMP2                              
006164,002029: E6,1500  E6,1740               POLYTEMP           EQUALS   DAPTEMP3                              
006165,002030: E6,1500                        SENSETYP           ERASE                                          
006166,002031: E6,1501  E6,1736               ABSTJ              EQUALS   DAPTEMP1                              #  ABS VALUE OF JET-FIRING TIME
006167,002032: E6,1501  E6,1736               ABSEDOTP           EQUALS   DAPTEMP1                              
006168,002033: 

Page 136

006170,002035:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:                                      (11D)
006171,002036: 
006172,002037: E6,1501  E6,1736               GTSTEMPS           EQUALS   DAPTEMP1                              #  GTS IS PART OF THE JASK.
006173,002038: E6,1501  E6,1740               SHFTFLAG           EQUALS   GTSTEMPS   +2                         #  COUNT BITS FOR GTSQRT SHIFTING.
006174,002039: E6,1501  E6,1743               ININDEX            EQUALS   GTSTEMPS   +5                         #  INDEX FOR SHIFT LOOP IN GTSQRT.
006175,002040: 
006176,002041: E6,1501  E6,1505               SAVESR             EQUALS   AXISCTR                               #  CANNOT BE A DAPTEMP - GTS USES THEM ALL.
006177,002042: 
006178,002043: E6,1501  E6,1745               SCRATCH            EQUALS   GTSTEMPS   +7                         #  ROOTCYCL ERASABLE
006179,002044: E6,1501  E6,1746               HALFARG            EQUALS   GTSTEMPS   +8D                        #  ROOTCYCL ERASABLE.
006180,002045: 
006181,002046: E6,1501  E6,1736               K2THETA            EQUALS   GTSTEMPS                              #  D.P., K*ERROR,  NEGUSUM
006182,002047: E6,1501  E6,1740               KCENTRAL           EQUALS   GTSTEMPS   +2                         #  S.P., K FROM KQ OR KRDAP, AT PI/2(8)
006183,002048: E6,1501  E6,1741               K2CNTRAL           EQUALS   GTSTEMPS   +3                         #  D.P., GTS SCRATCH CELLS.
006184,002049: E6,1501  E6,1742               WCENTRAL           EQUALS   GTSTEMPS   +4                         #  S.P., OMEGA, AT PI/4 RAD/SEC
006185,002050: E6,1501  E6,1743               ACENTRAL           EQUALS   GTSTEMPS   +5                         #  S.P., ALPHA, AT PI/4 RAD/SEC(2)
006186,002051: E6,1501  E6,1744               DEL                EQUALS   GTSTEMPS   +6                         #  S.P., SGN FUNCTION VALUE.
006187,002052: E6,1501  E6,1745               A2CNTRAL           EQUALS   GTSTEMPS   +7                         #  D.P., GTS SCRATCH CELLS.
006188,002053: E6,1501  E6,1747               QRCNTR             EQUALS   GTSTEMPS   +9D                        #  S.P.,INDEX FOR GTS LOOP THROUGH Q,R AXES
006189,002054: E6,1501  E6,1750               FUNCTION           EQUALS   GTSTEMPS   +10D                       #  D.P.,ARGUMENT FOR GRSQRT,SCRATCH FOR GTS
006190,002055: 
006191,002056: E6,1501                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
006192,002057:                                                                                                  #                                NEGUQ           +1          DEFINED AND USED ELSEWHERE
006193,002058: E6,1504  E6,1503               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
006194,002059: 
006195,002060: E6,1504                        KQ                 ERASE    +2                                    #  S.P.,JERK TERM FOR GTS, AT PI/2(8)
006196,002061: E6,1507  E6,1505               AXISCTR            EQUALS   KQ         +1                         
006197,002062: E6,1507  E6,1506               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
006198,002063: 
006199,002064: E6,1507                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
006200,002065: E6,1513  E6,1510               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
006201,002066: E6,1513  E6,1511               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
006202,002067: E6,1513  E6,1512               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
006203,002068: 
006204,002069: E6,1513  E6,1450               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
006205,002070: E6,1513  E6,1452               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
006206,002071: 
006207,002072: 
006208,002073: 
006209,002074: 
006210,002075:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:                                 (17D)
006211,002076: 
006212,002077: E6,1513  E6,1744               JETRATE            EQUALS   DAPTREG1                              
006213,002078: E6,1513  E6,1745               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
006214,002079: E6,1513  E6,1746               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
006215,002080: 
006216,002081: E6,1513                        DOWNTORK           ERASE    +5                                    #  ACCUMULATED JET TORQUE COMMANDED ABOUT
006217,002082: E6,1521  E6,1513               POSTORKP           EQUALS   DOWNTORK                              #    +,-P, +,-U, +,-V RESPECTIVELY.
006218,002083: E6,1521  E6,1514               NEGTORKP           EQUALS   DOWNTORK   +1                         
006219,002084: E6,1521  E6,1515               POSTORKU           EQUALS   DOWNTORK   +2                         #    NOT INITIALIZED; PERMITTED TO OVERFLOW

Page 137

006221,002086: E6,1521  E6,1516               NEGTORKU           EQUALS   DOWNTORK   +3                         #  SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
006222,002087: E6,1521  E6,1517               POSTORKV           EQUALS   DOWNTORK   +4                         #      MSEC PER BIT.
006223,002088: E6,1521  E6,1520               NEGTORKV           EQUALS   DOWNTORK   +5                         
006224,002089: 
006225,002090: E6,1521                        NO.PJETS           ERASE    +2                                    
006226,002091: E6,1524  E6,1522               NO.UJETS           =        NO.PJETS   +1                         
006227,002092: E6,1524  E6,1523               NO.VJETS           =        NO.UJETS   +1                         
006228,002093: E6,1524                        TJP                ERASE    +2                                    
006229,002094: E6,1527  E6,1525               TJU                =        TJP        +1                         
006230,002095: E6,1527  E6,1526               TJV                =        TJP        +2                         
006231,002096: 
006232,002097: E6,1527                        L,PVT-CG           ERASE                                          
006233,002098: E6,1530                        1JACC              ERASE    +3                                    
006234,002099: E6,1534  E6,1531               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
006235,002100: E6,1534  E6,1532               1JACCR             EQUALS   1JACC      +2                         
006236,002101: E6,1534  E6,1533               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
006237,002102:                                                                                                  #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
006238,002103:                                                                                                  #  ASCENT VARIABLES:                                                       (10D)
006239,002104: 
006240,002105: 
006241,002106: E6,1534                        SKIPU              ERASE    +1                                    
006242,002107: E6,1536  E6,1535               SKIPV              =        SKIPU      +1                         
006243,002108:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
006244,002109:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
006245,002110:                                                                                                  #  SECTIONS AND ELSEWHERE.
006246,002111: 
006247,002112: E6,1536                        AOSQ               ERASE    +5                                    #  OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
006248,002113: E6,1544  E6,1540               AOSR               EQUALS   AOSQ       +2                         #  AND SCALED AT PI/2.
006249,002114: E6,1544  E6,1542               AOSU               EQUALS   AOSQ       +4                         #  UV-AXES OFFSET ACC. FROMED BY VECTOR
006250,002115: E6,1544  E6,1543               AOSV               EQUALS   AOSQ       +5                         #  ADDITION OF Q,R.  AT PI/2 RAD/SEC(2).
006251,002116: 
006252,002117: E6,1544                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
006253,002118: E6,1546  E6,1545               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
006254,002119: 
006255,002120:                                                                                                  #  FOR TJET LAW SUBROUTINE:                                                (TEMPS ONLY)
006256,002121: 
006257,002122:                                                                                                  # NUMBERT        EQUALS          DAPTEMP5                  DEFINED IN QRAXIS.
006258,002123: E6,1546  E6,1736               EDOTSQ             EQUALS   DAPTEMP1                              
006259,002124: E6,1546  E6,1737               ROTSENSE           EQUALS   DAPTEMP2                              
006260,002125: E6,1546  E6,1740               FIREFCT            EQUALS   DAPTEMP3                              #  LOOKED AT BY PAXIS.
006261,002126: E6,1546  E6,1741               TTOAXIS            EQUALS   DAPTEMP4                              
006262,002127: E6,1546  E6,1743               ADRSDIF2           EQUALS   DAPTEMP6                              
006263,002128: E6,1546  E6,1744               HOLDQ              EQUALS   DAPTREG1                              
006264,002129: E6,1546  E6,1745               ADRSDIF1           EQUALS   DAPTREG2                              
006265,002130: E6,1546  E6,1746               HH                 EQUALS   DAPTREG3                              #  DOUBLE PRECISION
006266,002131:                                                                                                  # HH  +1         EQUALS          DAPTREG4
006267,002132: E6,1546  E6,1751               E                  EQUALS   DAPTREG6                              #  TIME SHARE WITH VERROR
006268,002133: E6,1546  E6,1427               EDOT               EQUALS   OMEGAV                                
006269,002134: 
006270,002135:                                                                                                  #  INPUT TO TJET LAW (PERMANENT ERASABLES).                                (48D)
006271,002136: 

Page 138

006273,002138: E6,1546  E6,1525               TJETU              =        TJU                                   #  EQUATE NAMES.  INDEXED BY -1, 0, +1.
006274,002139: E6,1546                        BLOCKTOP           ERASE    +47D                                  
006275,002140:                                                                                                  #                                                 * SEE AOSTASK AND AOSJOB LOG SECTION FOR ERASABLE DEFINITIONS
006276,002141:                                                                                                  #                                                                          IN THIS AREA.
006277,002142: 
006278,002143: E6,1626  E6,1566               1/ANET1            =        BLOCKTOP   +16D                       #  THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
006279,002144: E6,1626  E6,1567               1/ANET2            =        1/ANET1    +1                         #  FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
006280,002145: E6,1626  E6,1572               1/ACOAST           =        1/ANET1    +4                         #  EDOT IS POSITIVE.  TJETLAW INDEXES BY
006281,002146: E6,1626  E6,1574               ACCFCTZ1           =        1/ANET1    +6                         #  ADRSDIFF FROM THESE REGISTERS TO PICK UP
006282,002147: E6,1626  E6,1575               ACCFCTZ5           =        1/ANET1    +7                         #  PARAMETERS FOR THE PROPER AXIS, NUMBER
006283,002148: E6,1626  E6,1600               FIREDB             =        1/ANET1    +10D                       #  OF JETS AND SIGN OF EDOT.  THERE ARE 48
006284,002149: E6,1626  E6,1602               COASTDB            =        1/ANET1    +12D                       #  REGISTERS IN ALL IN THIS BLOCK.
006285,002150: E6,1626  E6,1604               AXISDIST           =        1/ANET1    +14D                       #  FOUR NOT REFERENCED (P-AXIS) ARE FILLED
006286,002151:                                                                                                  #    IN BY THE FOLLOWING:
006287,002152: E6,1626  E6,1546               ACCSWU             =        BLOCKTOP                              #  SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
006288,002153: E6,1626  E6,1547               ACCSWV             =        ACCSWU     +1                         #  JETS ARE REQUIRED BECAUSE OF AOS.
006289,002154: E6,1626  E6,1554               FLAT               =        BLOCKTOP   +6                         #  WIDTH OF MINIMUM IMPULSE ZONE.
006290,002155: E6,1626  E6,1555               ZONE3LIM           =        BLOCKTOP   +7                         #  HEIGHT OF MINIMUM IMPULSE ZONE(AT 4 SEC)
006291,002156: 
006292,002157: E6,1626                        COEFFQ             ERASE    +1                                    #  COEFFQ AND COEFFR ARE USED IN ROT-TOUV
006293,002158: E6,1630  E6,1627               COEFFR             EQUALS   COEFFQ     +1                         #  TO RESOLVE Q,R COMPONENTS INTO U,V COMP.
006294,002159: 
006295,002160: 
006296,002161:                                                                                                  #  VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE.                              (4)
006297,002162: 
006298,002163: E6,1630  E6,1502               ALLOWGTS           EQUALS   NEGUQ      +1                         #  INSERT INTO UNUSED LOCATION
006299,002164: E6,1630                        COTROLER           ERASE                                          #  INDICATES WHICH CONTROL SYSTEM TO USE.
006300,002165: E6,1631                        QGIMTIMR           ERASE    +2                                    #  Q-GIMBAL DRIVE ITMER, DECISECONDS.
006301,002166: E6,1634  E6,1632               INGTS              EQUALS   QGIMTIMR   +1                         #  INDICATOR OF CURRENT GTS CONTROL.
006302,002167: E6,1634  E6,1633               RGIMTIMR           EQUALS   QGIMTIMR   +2                         #  R-GIMBAL DRIVE TIMER, DECISECONDS.
006303,002168: 
006304,002169:                                                                                                  #  PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
006305,002170: 
006306,002171:                                                                                                  #           KALCMANU:DAP INTERFACE.                                        (9D)
006307,002172: 
006308,002173: E6,1634                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
006309,002174: E6,1637  E6,1635               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006310,002175: E6,1637  E6,1636               CDUZD              EQUALS   CDUXD      +2                         #  (STORE IN 2S COMPLEMENT)
006311,002176: 
006312,002177: E6,1637                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
006313,002178: E6,1642  E6,1640               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006314,002179: E6,1642  E6,1641               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORE IN 2S COMPLEMENT)
006315,002180: 
006316,002181:                                                                                                  #     RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
006317,002182: E6,1642                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES:
006318,002183: E6,1645  E6,1643               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
006319,002184: E6,1645  E6,1644               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
006320,002185: 
006321,002186:                                                                                                  #           KALCMANU STORAGE.                                              (24D)
006322,002187: 

Page 139

006324,002189: E6,1645                        MIS                ERASE    +23D                                  #  I(18D)
006325,002190: E6,1675  E6,1667               COF                EQUALS   MIS        +18D                       #  I(6)
006326,002191: 
006327,002192: 
006328,002193:                                                                                                  #           KALCMANU STORAGE.                                              (33D)
006329,002194: 
006330,002195: E6,1675                        BCDU               ERASE    +30D                                  #  B(3)
006331,002196: E6,1734  E6,1700               KSPNDX             EQUALS   BCDU       +3                         #  B(1)
006332,002197: E6,1734  E6,1701               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)
006333,002198: 
006334,002199: E6,1734  E6,1702               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
006335,002200: E6,1734  E6,1724               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
006336,002201: E6,1734  E6,1732               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
006337,002202: 
006338,002203: 
006339,002204: E6,1734                        AM                 ERASE    +1                                    #  I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
006340,002205: 
006341,002206: 
006342,002207:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU                                        (25D)
006343,002208: 
006344,002209: E6,1736  E6,1702               MFISYM             EQUALS   TMIS                                  #  I
006345,002210: E6,1736  E6,1702               TMFI               EQUALS   TMIS                                  #  I
006346,002211: E6,1736  E6,1702               NCDU               EQUALS   TMIS                                  #  B
006347,002212: E6,1736  E6,1705               NEXTIME            EQUALS   TMIS       +3                         #  B
006348,002213: E6,1736  E6,1706               TTEMP              EQUALS   TMIS       +4                         #  B
006349,002214: E6,1736  E6,1724               BRATE              EQUALS   COFSKEW                               #  B
006350,002215: E6,1736  E6,1732               TM                 EQUALS   CAM                                   #  B
006351,002216: 
006352,002217:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU                                       (?)
006353,002218: 
006354,002219: E6,1736  E6,1724               VECQTEMP           =        COFSKEW                               
006355,002220: 
006356,002221: E6,1736  E6,1634               DCDU               =        CDUXD                                 
006357,002222: E6,1736  E6,1637               DELDCDU            =        DELCDUX                               
006358,002223: E6,1736  E6,1640               DELDCDU1           =        DELCDUY                               
006359,002224: E6,1736  E6,1641               DELDCDU2           =        DELCDUZ                               
006360,002225: 
006361,002226: 
006362,002227:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
006363,002228: 
006364,002229:                                                                                                  #  STORAGE FOR FINDCDUW
006365,002230: 
006366,002231:                                                                                                  #           OVERLAYING KALCMANU STORAGE:                                   (27D)
006367,002232: 
006368,002233: E6,1736  E6,1645               ECDUW              EQUALS   MIS                                   
006369,002234: E6,1736  E6,1645               ECDUWUSR           EQUALS   ECDUW                                 #  B(1)TMP
006370,002235: E6,1736  E6,1646               QCDUWUSR           EQUALS   ECDUWUSR   +1                         #  I(1)TMP
006371,002236: E6,1736  E6,1647               NDXCDUW            EQUALS   QCDUWUSR   +1                         #  B(1)TMP
006372,002237: E6,1736  E6,1650               FLAGOODW           EQUALS   NDXCDUW    +1                         #  B(1)TMP
006373,002238: E6,1736  E6,1651               FLPAUTNO           EQUALS   FLAGOODW   +1                         #  B(1)TMP

Page 140

006375,002240: E6,1736  E6,1652               UNFC/2             EQUALS   FLPAUTNO   +1                         #  I(6)IN
006376,002241: E6,1736  E6,1660               UNWC/2             EQUALS   UNFC/2     +6                         #  I(6)IN
006377,002242: E6,1736  E6,1666               UNFV/2             EQUALS   UNWC/2     +6                         #  I(6)S-S
006378,002243: E6,1736  E6,1666               UNFVX/2            =        UNFV/2                                
006379,002244: E6,1736  E6,1670               UNFVY/2            =        UNFV/2     +2                         
006380,002245: E6,1736  E6,1672               UNFVZ/2            =        UNFV/2     +4                         
006381,002246: E6,1736  E6,1674               -DELGMB            EQUALS   UNFV/2     +6                         #  B(3)TMP
006382,002247: E6,1736  E6,1677               OGABIAS            EQUALS   -DELGMB    +3                         #  B(1)IN
006383,002248: 
006384,002249:                                                                                                  #           DEFINED IN THE WORK AREA:                                      (20D)
006385,002250: 
006386,002251: E6,1736                        UNX/2              =        0                                     
006387,002252: E6,1736                        UNY/2              =        6                                     
006388,002253: E6,1736                        UNZ/2              =        14                                    
006389,002254: E6,1736                        2/PGCDUW           =        22                                    
006390,002255: 
006391,002256:                                                                                                  #  END OF FINDCDUW ERASABLES
006392,002257: 
006393,002258:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
006394,002259: 
006395,002260:                                                                                                  #  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006396,002261: 
006397,002262:                                                                                                  #  STORAGE FOR P57
006398,002263: 
006399,002264:                                                                                                  #           OVERLAYING KALCMANU AND FINDCDUW STORAGE:                      (12D)
006400,002265: 
006401,002266: E6,1736  E6,1645               VEC1               EQUALS   MIS                                   #  I(6)TMP
006402,002267: E6,1736  E6,1653               VEC2               EQUALS   VEC1       +6                         #  I(6)TMP
006403,002268: 
006404,002269:                                                                                                  #  END OF P57 ERASABLES
006405,002270: 
006406,002271:                                                                                                  #  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006407,002272: 
006408,002273:                                                                                                  #  THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
006409,002274:                                                                                                  #  ...ANYWAY, THE DAP CAN NOW BE INTERRUPTED.                              (18D)
006410,002275: 
006411,002276: E6,1736                        DAPTEMP1           ERASE    +17D                                  
006412,002277: E6,1760  E6,1737               DAPTEMP2           EQUALS   DAPTEMP1   +1                         
006413,002278: E6,1760  E6,1740               DAPTEMP3           EQUALS   DAPTEMP1   +2                         
006414,002279: E6,1760  E6,1741               DAPTEMP4           EQUALS   DAPTEMP1   +3                         
006415,002280: E6,1760  E6,1742               DAPTEMP5           EQUALS   DAPTEMP1   +4                         
006416,002281: E6,1760  E6,1743               DAPTEMP6           EQUALS   DAPTEMP1   +5                         
006417,002282: E6,1760  E6,1744               DAPTREG1           EQUALS   DAPTEMP1   +6                         
006418,002283: E6,1760  E6,1744               OLDSENSE           EQUALS   DAPTREG1                              #  B(1)TMP RCS JET CONTROL
006419,002284: E6,1760  E6,1745               DAPTREG2           EQUALS   DAPTEMP1   +7                         
006420,002285: E6,1760  E6,1746               DAPTREG3           EQUALS   DAPTEMP1   +8D                        
006421,002286: E6,1760  E6,1747               DAPTREG4           EQUALS   DAPTEMP1   +9D                        
006422,002287: E6,1760  E6,1750               DAPTREG5           EQUALS   DAPTEMP1   +10D                       
006423,002288: E6,1760  E6,1751               DAPTREG6           EQUALS   DAPTEMP1   +11D                       
006424,002289: 

Page 141

006426,002291: E6,1760  E6,1752               DAPARUPT           EQUALS   DAPTEMP1   +12D                       
006427,002292: E6,1760  E6,1753               DAPLRUPT           EQUALS   DAPARUPT   +1                         
006428,002293: E6,1760  E6,1754               DAPBQRPT           EQUALS   DAPARUPT   +2                         
006429,002294: E6,1760  E6,1756               DAPZRUPT           EQUALS   DAPARUPT   +4                         
006430,002295: 
006431,002296:                                                                                                  #  (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
006432,002297: 
006433,002298: 
006434,002299: 
006435,002300:                                                                                                  #           NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE.            (6D)
006436,002301: 
006437,002302: E6,1760     0061               T5TEMP             EQUALS   ITEMP1                                
006438,002303: E6,1760     0063               DINDX              EQUALS   ITEMP3                                
006439,002304: E6,1760                        AK                 ERASE    +2                                    #  NEEDLER ATTITUDE INPUTS, SCALED AT 180
006440,002305: E6,1763  E6,1761               AK1                EQUALS   AK         +1                         #  DEGREES.  P,Q,R AXES IN AK,AK1,AK2.
006441,002306: E6,1763  E6,1762               AK2                EQUALS   AK         +2                         
006442,002307: 
006443,002308: E6,1763                        EDRIVEX            ERASE    +2                                    #  NEEDLER DISPLAY REGS AT 1800 DEGREES.
006444,002309: E6,1766  E6,1764               EDRIVEY            EQUALS   EDRIVEX    +1                         #  SO THAT 384 BITS REPRESENT 42 3/16 DEG.
006445,002310: E6,1766  E6,1765               EDRIVEZ            EQUALS   EDRIVEX    +2                         
006446,002311: 
006447,002312: 
006448,002313:                                                                                                  #           DOCKED JET INHIBITION COUNTERS                                 (3D)
006449,002314: 
006450,002315: E6,1766                        PJETCTR            ERASE    +2                                    
006451,002316: E6,1771  E6,1767               UJETCTR            EQUALS   PJETCTR    +1                         
006452,002317: E6,1771  E6,1770               VJETCTR            EQUALS   PJETCTR    +2                         
006453,002318: 
006454,002319:                                                                                                  #  V47 (R47) AGS INITIALIZATION STORAGE -PAD LOADED.                       (2D)
006455,002320: 
006456,002321: E6,1771                        AGSK               ERASE    +1                                    #  I(2) PL
006457,002322: 
006458,002323:                                                                                                  #  WINDOW BIAS PADLOAD                                                     (1D)
006459,002324: 
006460,002325: E6,1773                        AZBIAS             ERASE                                          #  B(1) PL LPD AZIMUTH BIAS, UNITS - PI RAD
006461,002326: 
006462,002327: E6,1774  E6,1774               END-E6             EQUALS   AZBIAS     +1                         #  NEXT AVAILABLE E6 LOCATION
006463,002328: 

Page 142

006465,002330:                                                                                                  #                  EBANK-7 ASSIGNMENTS
006466,002331: 
006467,002332: E7,1400                                           SETLOC   3400                                  
006468,002333: 
006469,002334:                                                                                                  #           P35 CONSTANTS.         -PAD LOADED-                            (4D)
006470,002335: 
006471,002336: E7,1400                        ATIGINC            ERASE    +1                                    #  B(2)PL  *MUST BE AT 1400 FOR SYSTEMSTEST
006472,002337: E7,1402                        PTIGINC            ERASE    +1                                    #  B(2)PL
006473,002338: 
006474,002339: 
006475,002340:                                                                                                  #           AOTMARK STORAGE.       -PAD LOADED-                            (12D)
006476,002341: 
006477,002342: E7,1404                        AOTAZ              ERASE    +5                                    #  B(6)PL
006478,002343: E7,1412                        AOTEL              ERASE    +5                                    #  B(6)PL
006479,002344: 
006480,002345:                                                                                                  #           LANDING RADAR.         -PAD LOADED-                            (3D)
006481,002346: 
006482,002347: E7,1420                        LRHMAX             ERASE                                          #  B(1)
006483,002348: E7,1421                        LRWH               ERASE                                          #  B(1)
006484,002349: 
006485,002350: 
006486,002351: 
006487,002352:                                                                                                  #           THROTTLE STORAGE.      -PAD LOADED-                            (1D)
006488,002353: 
006489,002354: E7,1422                        ZOOMTIME           ERASE                                          #  B(1)PL TIME OF DPS THROTTLE-UP COMMAND
006490,002355: 
006491,002356:                                                                                                  #           P63 AND P64 CONSTANTS.    -PAD LOADED-                         (4D)
006492,002357: 
006493,002358: E7,1423                        TENDBRAK           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006494,002359: E7,1424                        TENDAPPR           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006495,002360: E7,1425                        DELTTFAP           ERASE                                          #  B(1) INCREMENT ADDED TO TTF/8 WHEN
006496,002361:                                                                                                  #        SWITCHING FROM P63 TO P64
006497,002362: E7,1426                        LEADTIME           ERASE                                          #  B(1)  TIME INCREMENT SPECIFYING HOW MUCH
006498,002363:                                                                                                  #        GUIDANCE IS PROJECTED FORWARD.
006499,002364: 
006500,002365: 
006501,002366:                                                                                                  #           LANDING RADAR      -PAD LOADED-                                (2D)
006502,002367: 
006503,002368: E7,1427                        RPCRTIME           ERASE                                          #  B(1) REPOSITIONING CRITERION  (TIME)
006504,002369: E7,1430                        RPCRTQSW           ERASE                                          #  B(1) REPOSITIONING CRITERION (ANGLE)
006505,002370: 
006506,002371:                                                                                                  #           ASTEER    -PAD LOADED-                                         (2D)
006507,002372: 
006508,002373: E7,1431                        TNEWA              ERASE    +1                                    #  I(2)PL  LAMBERT CYCLE PERIOD
006509,002374: 
006510,002375: 
006511,002376:                                                                                                  #           P22 STORAGE  - OVERLAYS LANDING PADLOADS -                     (5D)
006512,002377: 

Page 143

006514,002379: E7,1433  E7,1423               REPOSCNT           EQUALS   TENDBRAK                              #  B(1)TMP  COUNTS NUMBER OF PASSES THROUGH
006515,002380:                                                                                                  #           REPOSITION ROUTINE.
006516,002381: E7,1433  E7,1424               REPOSTM            EQUALS   REPOSCNT   +1                         #  I(2)TMP  PRESENT TIME PLUS INCREMENTS OF
006517,002382:                                                                                                  #           TEN SECONDS.
006518,002383: E7,1433  E7,1426               DELTATM            EQUALS   REPOSTM    +2                         #  I(2)TMP  TIME INTERVAL FOR RUNNING
006519,002384:                                                                                                  #           DESIGNATE TASK.
006520,002385: 
006521,002386: 
006522,002387:                                                                                                  #  *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
006523,002388: 
006524,002389: 
006525,002390:                                                                                                  #           P40S, P32-P35  P72-P75 STORAGE                                 (6D)
006526,002391: 
006527,002392: E7,1433                        DELVLVC            ERASE    +5                                    #  I(6) DELTA VELOCITY - LOCAL VERTICAL COO
006528,002393: E7,1441  E7,1433               DELVSLV            =        DELVLVC                               #  (TEMP STORAGE OF SAME VECTOR)   -RDINATE
006529,002394: 
006530,002395: 
006531,002396: 
006532,002397:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                                    (2D)
006533,002398: 
006534,002399:                                                                                                  #  ******* NOTE:  TIG IS USED BY ALL POWERED FLIGHT PROGRAMS        *******
006535,002400:                                                                                                  #  *******              INCLUDING P12, ABORTS, AND LUNAR LANDING.  ********
006536,002401: 
006537,002402: E7,1441                        TIG                ERASE    +1                                    #  B(2)
006538,002403: 
006539,002404: 
006540,002405:                                                                                                  #           INITVEL STORAGE:  USED BY P34,35,74,75, P40-42                 (8D)
006541,002406: 
006542,002407: E7,1443                        RTARG              ERASE    +5                                    #  I(6) TARGET VECTOR
006543,002408: E7,1451                        DELLT4             ERASE    +1                                    #  I(2) TIME DIFFERENCE
006544,002409: 
006545,002410: 
006546,002411:                                                                                                  #           LANDING RADAR - R12   (OVERLAY)                                (2D)
006547,002412: 
006548,002413: E7,1453  E7,1451               HLROFF             EQUALS   DELLT4                                #  B(1),I(2) TMP   NO LANDING RADAR UPDATES
006549,002414: 
006550,002415: 
006551,002416:                                                                                                  #           CLOKTASK, BURNBABY                                             (3D)
006552,002417: 
006553,002418: E7,1453                        TTOGO              ERASE    +1                                    #  B(2)
006554,002419: E7,1455                        WHICH              ERASE                                          #  B(1)
006555,002420: 
006556,002421: 
006557,002422:                                                                                                  #           *** R21 ***                                                    (1D)
006558,002423: 
006559,002424: E7,1456                        LOSCOUNT           ERASE                                          #  B(1)
006560,002425: 
006561,002426: 
006562,002427:                                                                                                  #           LSR22.3 (RNDEZVOUS NAVIGATION) AND
006563,002428:                                                                                                  #           LANDING  RADAR -- VELUPDAT (SERVICER), P63, AND R12.           (4D)
006564,002429: 

Page 144

006566,002431:                                                                                                  #  ***** NOTE: AOG, AMG, AND AIG ARE USED BY LANDING RADAR AS WELL AS RR.
006567,002432:                                                                                                  #  *****       R12DL STORES CDUS THERE FOR DOWNLINKING ON DESCENT/ASCENT DL
006568,002433:                                                                                                  #  *****       MOREOVER, TRKMKCNT SHARES WITH VSELECT, ALSO SET UP BY R12DL
006569,002434:                                                                                                  #  *****           (DOWNLINKED ON THE DESCENT/ASCENT LIST AS THE
006570,002435:                                                                                                  #  *****             LOW ORDER PART OF AOG TELEMETRY WORD)
006571,002436:                                                                                                  #  *****                AND USED IN SERVICER, P63 RESTART, AND R12READ.
006572,002437: 
006573,002438:                                                                                                  #     RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
006574,002439: E7,1457                        AIG                ERASE                                          #  B(1)OUT  GIMGAL ANGLES
006575,002440: E7,1460                        AMG                ERASE                                          #  B(1)OUT  (MUST BE
006576,002441: E7,1461                        AOG                ERASE                                          #  B(1)OUT   CONSECUTIVE)
006577,002442: 
006578,002443: E7,1462                        TRKMKCNT           ERASE                                          #  B(1)TMP  TEMPORARY MARK STORAGE.
006579,002444: E7,1463  E7,1462               MARKCTR            =        TRKMKCNT                              
006580,002445: 
006581,002446: 
006582,002447: E7,1463  E7,1462               VSELECT            EQUALS   TRKMKCNT                              #  B(1) X,Y OR Z LR BEAM ASSOC WITH VMEAS.
006583,002448: 
006584,002449: 
006585,002450:                                                                                                  #           P32-P35, P72-P75 STORAGE.  -PERMANENT-                         (6)
006586,002451: 
006587,002452: E7,1463                        NORMEX             ERASE                                          #  B(1) PRM SAVE FOR Q
006588,002453: E7,1464                        QSAVED             ERASE                                          #  B(1) PRM SAVE FOR Q
006589,002454: E7,1465                        RTRN               ERASE                                          #  B(1) PRM SAVE FOR Q
006590,002455: E7,1466                        NN                 ERASE    +1                                    #  B(2)
006591,002456: E7,1470                        SUBEXIT            ERASE                                          #  B(1) PRM SAVE Q
006592,002457: 
006593,002458: 
006594,002459: E7,1471                        E7OVERLA           EQUALS                                         #  START OF E7 OVERLAYS.
006595,002460: E7,1471  E7,1471               WHOCARES           EQUALS   E7OVERLA                              #  DUMMY FOR EBANK INSENSITIVE 2CADRS
006596,002461: 
006597,002462:                                                                                                  #           LUNAR LANDING OVERLAYS                                         (6D)
006598,002463: 
006599,002464: E7,1471  E7,1463               /AFC/              EQUALS   NORMEX                                #  B(2)TMP    THROTTLE
006600,002465: E7,1471  E7,1465               FCODD              EQUALS   /AFC/      +2                         #  B(2)TMP    THROTTLE
006601,002466: E7,1471  E7,1467               FP                 EQUALS   FCODD      +2                         #  B(2)TMP    THROTTLE
006602,002467: 
006603,002468: 

Page 145

006605,002470:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 7  *******
006606,002471: 
006607,002472: 
006608,002473: 
006609,002474:                                                                                                  #  RENDEZVOUS GUIDANCE STORAGE -P32....P35-                                (89D)
006610,002475: 
006611,002476: E7,1471  E7,1611               TSTRT              EQUALS   DELDV                                 #  MIDCOURSE START TIME
006612,002477: E7,1471  E7,1573               TDEC2              EQUALS   DELVCSI                               #  TEMP STORAGE FOR INTEGRATION TIME INPUT
006613,002478: E7,1471  E7,1575               KT                 EQUALS   DELVTPI                               #  TEMP STORAGE FOR MIDCOURSE DELTA TIME
006614,002479: E7,1471                        VACT1              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CSI TIME
006615,002480: E7,1477                        RPASS1             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CSI TIME
006616,002481: E7,1505                        VPASS1             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CSI TIME
006617,002482: E7,1513                        VACT2              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CDH TIME
006618,002483: E7,1521                        RPASS2             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CDH TIME
006619,002484: E7,1527                        VPASS2             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CDH TIME
006620,002485: E7,1535                        RACT3              ERASE    +5D                                   #  POSITION VECTOR OF ACTIVE  AT TPI TIME
006621,002486: E7,1543                        VACT3              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT TPI TIME
006622,002487: E7,1551                        RPASS3             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT TPI TIME
006623,002488: E7,1557                        VPASS3             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT TPI TIME
006624,002489: E7,1565                        VACT4              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT INTERCEPT
006625,002490: E7,1573  E7,1543               UNVEC              EQUALS   VACT3                                 #  CDHMVR UNIT VECTOR TEMP STORAGE.
006626,002491: E7,1573                        DELVCSI            ERASE    +1D                                   #  THRUST VALUE AT CSI
006627,002492: E7,1575                        DELVTPI            ERASE    +1D                                   #  THRUST VALUE AT TPI OR MID
006628,002493: E7,1577                        DIFFALT            ERASE    +1D                                   #  ALT DIFFERENCE AT CDH
006629,002494: E7,1601                        POSTCSI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CSI MANEUVER
006630,002495: E7,1603                        POSTCDH            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CDH MANEUVER
006631,002496: E7,1605                        POSTTPI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER TPI MANEUVER
006632,002497: E7,1607  E7,1605               LOOPCT             EQUALS   POSTTPI                               #  CSI NEWTON ITERATION COUNTER
006633,002498: E7,1607  E7,1603               HAFPA1             EQUALS   POSTCDH                               #  HALF PERIOD
006634,002499: E7,1607                        GAMPREV            ERASE    +1                                    #  PREVIOUS GAMMA
006635,002500: E7,1611  E7,1575               DVPREV             EQUALS   DELVTPI                               #  PREVIOUS DELVCSI
006636,002501: E7,1611                        DELDV              ERASE    +1D                                   
006637,002502: E7,1613                        CSIALRM            ERASE    +1                                    #  FIRST SOLUTION ALARM
006638,002503: E7,1615                        VERBNOUN           ERASE                                          
006639,002504: E7,1616  E7,1613               TITER              EQUALS   CSIALRM                               #  ITERATION COUNTER
006640,002505: E7,1616                        RDOTV              ERASE    +1                                    
006641,002506: E7,1620  E7,1505               VAPREC             EQUALS   VPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006642,002507: E7,1620  E7,1477               RAPREC             EQUALS   RPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006643,002508: E7,1620  E7,1527               VPPREC             EQUALS   VPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006644,002509: E7,1620  E7,1521               RPPREC             EQUALS   RPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006645,002510: E7,1620  E7,1575               DELEL              EQUALS   DELVTPI                               #  I(2) S-S
006646,002511: E7,1620  E7,1573               SECMAX             EQUALS   DELVCSI                               #  I(2) S-S MAX STOP SIZE FOR ROUTINE
006647,002512: E7,1620  E7,1605               DELTEEO            EQUALS   POSTTPI                               #  I(2) S-S BACK VALUES OF DELTA TIME
006648,002513: E7,1620                        CENTANG            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
006649,002514: 
006650,002515: 
006651,002516: 
006652,002517: 
006653,002518:                                                                                                  #           SOME P47 STORAGE                                               (6D)
006654,002519: 

Page 146

006656,002521: E7,1622                        DELVIMU            ERASE    +5                                    #  I(6)DSP N83 FOR P47 DELTA V IN BODY COOR
006657,002522: 
006658,002523: 
006659,002524:                                                                                                  #           P34-35-40-41-42 INTERFACE                                      (2D)
006660,002525: 
006661,002526: E7,1630                        TPASS4             ERASE    +1                                    #  INTERCEPT TIME
006662,002527: 
006663,002528: 
006664,002529: 
006665,002530:                                                                                                  #           P30-P40-41-42 COMMON STORAGE                                   (1D)
006666,002531: 
006667,002532: E7,1632                        QTEMP              ERASE                                          #  I(1)TMP COMMON RETURN SAVE REGISTER.
006668,002533: 
006669,002534: 
006670,002535: 
006671,002536:                                                                                                  #           P32,33,34 STORAGE.                                             (6D)
006672,002537: 
006673,002538: E7,1633                        TCSI               ERASE    +1                                    #  B(2) TMP CSI TIME IN CENTISECONDS
006674,002539: E7,1635                        TTPI               ERASE    +1                                    #  B(2) TMP TPI TIME IN CENTISECONDS
006675,002540: E7,1637                        TTPIO              ERASE    +1                                    #  B(2) TMP TTPI STORAGE FOR RECYCLE
006676,002541: 
006677,002542: 
006678,002543:                                                                                                  #           P30,P40 INTERFACE.                                             (20D)
006679,002544: 
006680,002545: E7,1641                        RTIG               ERASE    +19D                                  #  I(6)TMP
006681,002546: E7,1665  E7,1647               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
006682,002547: E7,1665  E7,1655               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
006683,002548: E7,1665  E7,1663               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
006684,002549: E7,1665  E7,1663               VGDISP             =        DELVSAB                               
006685,002550: 
006686,002551: 
006687,002552:                                                                                                  #           P40-P42 TEMPORARY                                              (1D)
006688,002553: 
006689,002554: E7,1665                        QTEMP1             ERASE                                          #  I(1)TMP HOLDS RETURN.
006690,002555: 
006691,002556: 
006692,002557: 
006693,002558:                                                                                                  #           R52 TEMPORARY                                                  (1D)
006694,002559: 
006695,002560: E7,1666  E7,1665               SAVQR52            EQUALS   QTEMP1                                
006696,002561: 
006697,002562: 
006698,002563:                                                                                                  #           INITVEL STORAGE.  (IN OVERLAY 0 AND OVERLAY 1.                 (2D)
006699,002564:                                                                                                  #                  (CALLS LAMBERT, CONIC SUBROUTINES)
006700,002565: 
006701,002566: E7,1666  E7,1565               VTPRIME            EQUALS   VACT4                                 #  TOTAL VELOCITY AT DESIRED RADIUS
006702,002567: E7,1666  E7,1616               ITCTR              EQUALS   RDOTV                                 #  ITERATION COUNTER
006703,002568: E7,1666                        COZY4              ERASE    +1                                    #  COS OF ANGLE WHEN ROTATION STARTS
006704,002569: E7,1670  E7,1607               INTIME             EQUALS   GAMPREV                               #  TIME OF RINIT
006705,002570: 

Page 147

006707,002572:                                                                                                  #           PERIAPO STORAGE. (2D)                                          (2D)
006708,002573: 
006709,002574: E7,1670                        XXXALT             ERASE    +1                                    #  RADIUS TO LAUNCH PAD OR LANDING SIGHT
006710,002575: 
006711,002576:                                                                                                  #           S40.1 STORAGE.                                                 (12D)
006712,002577: 
006713,002578: E7,1672                        UT                 ERASE    +11D                                  #  I(6)    THRUST DIRECTION
006714,002579: E7,1706  E7,1700               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
006715,002580: E7,1706  E7,1700               VGPREV             =        VGTIG                                 
006716,002581:                                                                                                  #  ASTEER STORAGE.                                                         (22D)
006717,002582: 
006718,002583: E7,1706                        VG                 ERASE    +21D                                  #  I(6)
006719,002584: E7,1734  E7,1714               RMAG               EQUALS   VG         +6                         #  I(2)
006720,002585: E7,1734  E7,1716               MUASTEER           EQUALS   RMAG       +2                         #  I(2)
006721,002586: E7,1734  E7,1720               MU/A               EQUALS   MUASTEER   +2                         #  I(2)
006722,002587: E7,1734  E7,1722               RTMAG              EQUALS   MU/A       +2                         #  I(2)
006723,002588: E7,1734  E7,1724               R1C                EQUALS   RTMAG      +2                         #  I(6)
006724,002589: E7,1734  E7,1732               SS                 EQUALS   R1C        +6                         #  I(2)
006725,002590: 
006726,002591:                                                                                                  #           ASTEER                                                         (11D)
006727,002592: 
006728,002593: E7,1734  E7,1655               IC                 =        DELVSIN                               #  I(6)  CHORD VECTOR:  RTARG VEC - POS VEC
006729,002594: E7,1734  E7,1762               TIGSAVE            =        P21TIME                               #  I(2)  USED TO DETERMINE WHEN YOU
006730,002595: E7,1734  E7,1764               TIGSAVEP           =        SCAXIS                                #  I(2)   WANT TO DO ASTEER NEXT
006731,002596: E7,1734  E7,1766               MUSCALE            =        SCAXIS     +2                         #  I(1)  HOLDS INDEX VALUE
006732,002597: 
006733,002598: 
006734,002599:                                                                                                  #           P40 STORAGE.                                                   (8D)
006735,002600: 
006736,002601:                                                                                                  #                F,MDOT,AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
006737,002602: E7,1734                        F                  ERASE    +5                                    #  I(2)TMP THRUST MAG 10**4 NEWTONS (B-7)
006738,002603: E7,1742  E7,1736               MDOT               EQUALS   F          +2                         #  I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
006739,002604: E7,1742  E7,1740               TDECAY             EQUALS   MDOT       +2                         #  I(2)IN  DELTA-T TAILOFF, (2**28)CS.
006740,002605: E7,1742                        VEX                ERASE    +1                                    #  I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
006741,002606: 
006742,002607: 
006743,002608: 
006744,002609:                                                                                                  #          MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42)                    (1D)
006745,002610: 
006746,002611: E7,1744                        IRETURN1           ERASE                                          #  B(1)     RETURN FROM MIDTOAV1 AND 2
006747,002612: 
006748,002613: 

Page 148

006750,002615:                                                                                                  #  ******* OVERLAY NUMBER 1 IN EBANK 7  *******
006751,002616: 
006752,002617: 
006753,002618: 
006754,002619:                                                                                                  #          INITVEL  (CALLED BY P34,35,38,39,10,11,S40.9,S40.1)             (6D)
006755,002620: 
006756,002621: E7,1745  E7,1471               RTARG1             EQUALS   VACT1                                 #  I(6)S TEMP STORAGE OF RTARG
006757,002622: 
006758,002623: 
006759,002624:                                                                                                  #          P35-P40 INTERFACE.                                              (6D)
006760,002625: 
006761,002626: E7,1745  E7,1505               VPASS4             EQUALS   VPASS1                                #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
006762,002627: 
006763,002628: 
006764,002629:                                                                                                  #           LAT - LONG TEMPORARIES. CAN OVERLAY WITH S40.1                 (3D)
006765,002630: 
006766,002631: E7,1745  E7,1672               ERADM              EQUALS   UT                                    #  I(2)
006767,002632: E7,1745  E7,1674               INCORPEX           EQUALS   ERADM      +2                         #  I(1)
006768,002633: 
006769,002634: 
006770,002635:                                                                                                  #           LRS24.1 STORAGE. (CAN SHARE WITH P30'S)                        (40D)
006771,002636: 
006772,002637: E7,1745  E7,1675               RLMSRCH            EQUALS   INCORPEX   +1                         #  I(6) TMP LM POSITION VECTOR
006773,002638: E7,1745  E7,1703               VXRCM              EQUALS   RLMSRCH    +6                         #  I(6)    CM V X R VECTOR
006774,002639: E7,1745  E7,1711               LOSDESRD           EQUALS   VXRCM      +6                         #  I(6)    DESIRED LOS VECTOR
006775,002640: E7,1745  E7,1717               UXVECT             EQUALS   LOSDESRD   +6                         #  I(6)    X-AXIS SRCH PATTERN COORDS
006776,002641: E7,1745  E7,1725               UYVECT             EQUALS   UXVECT     +6                         #  I(6)    Y-AXIS SRCH PATTERN COORDS
006777,002642: E7,1745  E7,1733               DATAGOOD           EQUALS   UYVECT     +6                         #  B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
006778,002643: E7,1745  E7,1734               OMEGDISP           EQUALS   DATAGOOD   +1                         #  B(2)    ANGLE OMEGA DISPLAYED IN R2
006779,002644: E7,1745  E7,1734               OMEGAD             =        OMEGDISP                              #          PINBALL DEFINITION.
006780,002645: E7,1745  E7,1736               NSRCHPNT           EQUALS   OMEGDISP   +2                         #  B(1)TMP SEARCH PATTERN POINT COUNTER.
006781,002646: E7,1745  E7,1737               SAVLEMV            EQUALS   NSRCHPNT   +1                         #  I(6) S-S SAVES LOSVEL
006782,002647: 
006783,002648: 
006784,002649: 
006785,002650: 

Page 149

006787,002652:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 7  *******
006788,002653: 
006789,002654: 
006790,002655: 
006791,002656:                                                                                                  #           INCORP STORAGE IN E7.                                          (47D)
006792,002657: 
006793,002658: E7,1745  E7,1471               TX789              EQUALS   E7OVERLA                              #  I(6)
006794,002659: E7,1745  E7,1477               GAMMA              EQUALS   TX789      +6                         #  I(3)
006795,002660: E7,1745  E7,1502               OMEGA              EQUALS   GAMMA      +3                         #  I(18)
006796,002661: E7,1745  E7,1524               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)
006797,002662: E7,1745  E7,1546               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)
006798,002663:                                                                                                  #           AOTMARK STORAGE                                                (3D)
006799,002664: 
006800,002665: E7,1745  E7,1550               MARKCNTR           EQUALS   DELTAQ     +2                         #  I(1)
006801,002666: E7,1745  E7,1551               XYMARK             EQUALS   MARKCNTR   +1                         #  B(1)
006802,002667: E7,1745  E7,1552               MKDEX              EQUALS   XYMARK     +1                         #  B(1)TMP INDEX FOR AOTMARK
006803,002668: 
006804,002669: 
006805,002670:                                                                                                  #           PLANET STORAGE.                                                (8D)
006806,002671: 
006807,002672: E7,1745  E7,1553               PLANVEC            EQUALS   MKDEX      +1                         #  (6) REFER VECTOR OF PLANET
006808,002673: E7,1745  E7,1561               TSIGHT             EQUALS   PLANVEC    +6                         #  (2) TIME OF MARK OR EST TIME OF MARK
006809,002674: 
006810,002675: 
006811,002676: 
006812,002677:                                                                                                  #           LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1     (30D).
006813,002678: 
006814,002679: E7,1745  E7,1675               LGRET              EQUALS   RLMSRCH                               #  I(1) TMP
006815,002680: E7,1745  E7,1675               RDRET              EQUALS   LGRET                                 #  B(1)  TEMP RETURN.
006816,002681: E7,1745  E7,1675               IGRET              EQUALS   LGRET                                 #  B(1)  TEMP RETURN.
006817,002682: E7,1745  E7,1676               MX                 EQUALS   RDRET      +1                         #  I(6)
006818,002683: E7,1745  E7,1704               MY                 EQUALS   MX         +6                         #  I(6)
006819,002684: E7,1745  E7,1712               MZ                 EQUALS   MY         +6                         #  I(6)
006820,002685: E7,1745  E7,1720               SCALSHFT           EQUALS   MZ         +6                         #  B(1) SCALE SHIFT FOR EARTH/MOON
006821,002686: E7,1745  E7,1721               RXZ                EQUALS   SCALSHFT   +1                         #  I(2)
006822,002687: E7,1745  E7,1723               ULC                EQUALS   RXZ        +2                         #  I(6)
006823,002688: E7,1745  E7,1731               SINTHETA           EQUALS   ULC        +6                         #  I(2)
006824,002689: 
006825,002690: 
006826,002691:                                                                                                  #       ***** IN OVERLAY ONE *****
006827,002692: 
006828,002693:                                                                                                  #           R22 / NOUN 49 DISPLAY
006829,002694: 
006830,002695: E7,1745  E7,1746               N49FLAG            EQUALS   RDOTMSAV                              #  B(1)S    FLAG INDICATING V0649 RESPONSE
006831,002696: 
006832,002697: 
006833,002698:                                                                                                  #           LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S)                   (13D)
006834,002699: 
006835,002700:                                                                                                  #           (OUTPUTS ARE TO LRS22.3)
006836,002701: 
006837,002702: E7,1745  E7,1733               RRTRUN             EQUALS   SINTHETA   +2                         #  B(2)OUT  RR TRUNION ANGLE

Page 150

006839,002704: E7,1745  E7,1735               RRSHAFT            EQUALS   RRTRUN     +2                         #  B(2)OUT RR SHAFT ANGLE
006840,002705: E7,1745  E7,1737               LRS22.1X           EQUALS   RRSHAFT    +2                         #  B(1)TMP
006841,002706: E7,1745  E7,1740               RRBORSIT           EQUALS   LRS22.1X   +1                         #  I(6) TMP RADAR BORESIGHT VECTOR.
006842,002707: E7,1745  E7,1746               RDOTMSAV           EQUALS   RRBORSIT   +6                         #  B(2) S    RR RANGE-RATE(FPS)
006843,002708: 
006844,002709: 
006845,002710:                                                                                                  #           LRS22.1  (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR  (R29)(10D)   CANNOT SHARE WITH L.A.D.
006846,002711: 
006847,002712: E7,1745  E7,1750               RDOTM              EQUALS   RDOTMSAV   +2                         #  B(2)OUT  RANGE-RATE READING
006848,002713: E7,1745  E7,1752               TANGNB             EQUALS   RDOTM      +2                         #  B(2)TMP  RR GIMBAL ANGLES
006849,002714:                                                                                                  #           RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
006850,002715: E7,1745  E7,1754               MKTIME             EQUALS   TANGNB     +2                         #  B(2)OUT  TIME OF RR READING
006851,002716: E7,1745  E7,1756               RM                 EQUALS   MKTIME     +2                         #  I(2)OUT  RANGE READING
006852,002717: E7,1745  E7,1760               RANGRDOT           EQUALS   RM         +2                         #  B(2) DOWNLINKED RAW RANGE AND RRATE
006853,002718: 
006854,002719:                                                                                                  #           R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE  **IN OVERLAY ONE*
006855,002720:                                                                                                  #                    (CALLED BY P20,R22LEM,LSR22.3)                        (1D)
006856,002721: 
006857,002722: E7,1745  E7,1745               R65CNTR            EQUALS   RRBORSIT   +5                         #  B(1)SS  COUNT NUMBER OF TIMES PREFERRED
006858,002723:                                                                                                  #          TRACKING ROUTINE IS TO CYCLE
006859,002724: 
006860,002725: 
006861,002726:                                                                                                  #           P21 STORAGE                                                    (2D)
006862,002727: 
006863,002728: E7,1745  E7,1762               P21TIME            EQUALS   RANGRDOT   +2                         #  I(2)TMP
006864,002729: 
006865,002730: 
006866,002731:                                                                                                  #           INPUTS TO VECPOINT. CALLED BY R60-65 (ATTITUDE MANEUVERS)      (12D)
006867,002732: 
006868,002733: E7,1745  E7,1764               SCAXIS             EQUALS   P21TIME    +2                         #  I(6)
006869,002734: E7,1745  E7,1772               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)
006870,002735: 
006871,002736: 

Page 151

006873,002738:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 7  *******
006874,002739: 
006875,002740: 
006876,002741: 
006877,002742:                                                                                                  #           SERVICER STORAGE                                               (6D)
006878,002743: 
006879,002744: E7,1745  E7,1471               ABVEL              EQUALS   E7OVERLA                              #  B(2)  DISPLAY
006880,002745: E7,1745  E7,1473               HDOTDISP           EQUALS   ABVEL      +2                         #  B(2)  DISPLAY
006881,002746: E7,1745  E7,1475               TTFDISP            EQUALS   HDOTDISP   +2                         #  B(2)  DISPLAY
006882,002747: 
006883,002748: 
006884,002749:                                                                                                  #           ASCENT GUIDANCE FOR LUNAR LANDING                              (2D)
006885,002750: 
006886,002751: E7,1745  E7,1473               RDOT               EQUALS   HDOTDISP                              #  I(2)
006887,002752: 
006888,002753: 
006889,002754:                                                                                                  #           BURN PROG STORAGE.                                             (2D)
006890,002755: 
006891,002756: E7,1745  E7,1477               SAVET-30           EQUALS   TTFDISP    +2                         #  B(2)TMP TIG-30 RESTART
006892,002757: 
006893,002758: 
006894,002759:                                                                                                  #           SERVICER STORAGE.                                              (69D)
006895,002760: 
006896,002761: E7,1745  E7,1501               VGBODY             EQUALS   SAVET-30   +2                         #  B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
006897,002762: E7,1745  E7,1501               DELVCTL            =        VGBODY                                
006898,002763: E7,1745  E7,1507               DVTOTAL            EQUALS   VGBODY     +6                         #  B(2) DISPLAY NOUN
006899,002764: E7,1745  E7,1511               GOBLTIME           EQUALS   DVTOTAL    +2                         #  B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
006900,002765: E7,1745  E7,1513               DVCNTR             EQUALS   GOBLTIME   +2                         #  B(1)
006901,002766: E7,1745  E7,1514               TGO                EQUALS   DVCNTR     +1                         #  B(2)
006902,002767: E7,1745  E7,1516               R                  EQUALS   TGO        +2                         #  I(6)
006903,002768: E7,1745  E7,1516               UNITGOBL           EQUALS   R                                     #  I(6)
006904,002769: E7,1745  E7,1524               V                  EQUALS   R          +6                         
006905,002770: E7,1745  E7,1524               DELVREF            EQUALS   V                                     #  I(6)
006906,002771: E7,1745  E7,1532               HCALC              EQUALS   DELVREF    +6                         #  B(2)     LR
006907,002772: E7,1745  E7,1534               UNIT/R/            EQUALS   HCALC      +2                         #  I(6)
006908,002773: 
006909,002774:                                                                                                  #                  (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
006910,002775: 
006911,002776: E7,1745  E7,1542               RN1                EQUALS   UNIT/R/    +6                         #  B(6)
006912,002777: E7,1745  E7,1550               VN1                EQUALS   RN1        +6                         #  I(6)                      (IN ORDER  )
006913,002778: E7,1745  E7,1556               PIPTIME1           EQUALS   VN1        +6                         #  B(2)                      (   FOR    )
006914,002779: E7,1745  E7,1560               G1                 EQUALS   PIPTIME1   +2                         #  B(6)       MUST FOLLOW PIPTIME1
006915,002780: E7,1745  E7,1566               PGUIDE1            EQUALS   G1         +6                         #  B(2)       MUST FOLLOW G1
006916,002781: E7,1745  E7,1570               MASS1              EQUALS   PGUIDE1    +2                         #  B(2)       MUST FOLLOW PGUIDE1
006917,002782: E7,1745  E7,1570               DVCNTR1            EQUALS   MASS1                                 #  B(1)TMP  RESTART REG FOR DVCNTR
006918,002783: E7,1745  E7,1572               R1S                EQUALS   MASS1      +2                         #  I(6)
006919,002784: E7,1745  E7,1600               V1S                EQUALS   R1S        +6                         #  I(6)
006920,002785: 
006921,002786: 
006922,002787:                                                                                                  #           P71 RESTART PROTECTION                                         (2D)
006923,002788: 

Page 152

006925,002790: E7,1745  E7,1501               TGO1               EQUALS   VGBODY                                #  B(2)TMP
006926,002791: 
006927,002792: 
006928,002793:                                                                                                  #           ALIGNMENT/S40.2.3 COMMON STORAGE.                              (18D)
006929,002794: 
006930,002795: E7,1745  E7,1606               XSMD               EQUALS   V1S        +6                         #  I(6)
006931,002796: E7,1745  E7,1614               YSMD               EQUALS   XSMD       +6                         #  I(6)
006932,002797: E7,1745  E7,1622               ZSMD               EQUALS   YSMD       +6                         #  I(6)
006933,002798: 
006934,002799: E7,1745  E7,1606               XSCREF             =        XSMD                                  
006935,002800: E7,1745  E7,1614               YSCREF             =        YSMD                                  
006936,002801: E7,1745  E7,1622               ZSCREF             =        ZSMD                                  
006937,002802: 
006938,002803: E7,1745  E7,1630               END-ALIG           EQUALS   ZSMD       +6                         #  NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
006939,002804: 
006940,002805: 
006941,002806:                                                                                                  #           **** P22 ****                                                  (34D)
006942,002807: 
006943,002808: E7,1745  E7,1630               RSUBL              EQUALS   END-ALIG                              #  I(6)S-S  LM POSITION VECTOR
006944,002809: E7,1745  E7,1636               UCSM               EQUALS   RSUBL      +6                         #  I(6)S-S  VECTOR U
006945,002810: E7,1745  E7,1644               NEWVEL             EQUALS   UCSM       +6                         #  I(6)S-S  TERMINAL VELOCITY VECTOR
006946,002811: E7,1745  E7,1652               NEWPOS             EQUALS   NEWVEL     +6                         #  I(6)S-S  TERMINAL POSITION VECTOR
006947,002812: E7,1745  E7,1660               LNCHTM             EQUALS   NEWPOS     +6                         #  I(2)S-S EST. LAUNCH TIME FOR LEM
006948,002813: E7,1745  E7,1662               TRANSTM            EQUALS   LNCHTM     +2                         #  I(2)S-S TRANSFER TIME
006949,002814: E7,1745  E7,1664               NCSMVEL            EQUALS   TRANSTM    +2                         #  I(6)S-S NEW CSM VELOCITY
006950,002815: 
006951,002816: 
006952,002817:                                                                                                  #           *****  P21  *****                                              (18D)
006953,002818: 
006954,002819: E7,1745     1162               P21ORIG            =        DISPDEX                               
006955,002820: E7,1745  E7,1675               P21BASER           EQUALS   RLMSRCH                               #  I(6)TMP
006956,002821: E7,1745  E7,1703               P21BASEV           EQUALS   P21BASER   +6                         #  I(6)TMP
006957,002822: E7,1745  E7,1711               P21VEL             EQUALS   P21BASEV   +6                         #  I(2)TMP  *** NOUN 91 ***
006958,002823: E7,1745  E7,1713               P21GAM             EQUALS   P21VEL     +2                         #  I(2)TMP  *** NOUN 91 ***
006959,002824: E7,1745  E7,1715               P21ALT             EQUALS   P21GAM     +2                         #  I(2)TMP  *** NOUN 91 ***
006960,002825: 
006961,002826: 

Page 153

006963,002828:                                                                                                  #  *******  OVERLAY NUMBER 4 IN EBANK 7  *******
006964,002829: 
006965,002830: 
006966,002831:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING)                   (81D)
006967,002832: 
006968,002833:                                                                                                  #  THESE ERASABLES MAY BE SHARED WITH CARE
006969,002834: 
006970,002835: E7,1745  E7,1542               OURTEMPS           =        RN1                                   #  OVERLAY LAST PART OF SERVICER
006971,002836: E7,1745  E7,1542               LANDTEMP           =        OURTEMPS                              #  B(6)     GUIDANCE
006972,002837: E7,1745  E7,1550               TTF/8TMP           =        LANDTEMP   +6                         #  B(2)    GUIDANCE
006973,002838: E7,1745  E7,1552               ELCOUNT            =        TTF/8TMP   +2                         #  B(1)    REDESIGNATOR AND P66HZ
006974,002839: E7,1745  E7,1553               AZCOUNT            =        ELCOUNT    +1                         #  B(1)    REDESIGNATOR AND P66HZ
006975,002840: E7,1745  E7,1554               TPIPOLD            =        AZCOUNT    +1                         #  B(2)    GUIDANCE
006976,002841: E7,1745  E7,1556               KEEP-2             =        TPIPOLD    +2                         #   (2)    TO PREVENT PIPTIME1 OVERLAY
006977,002842: E7,1745  E7,1560               TABLTTF            =        KEEP-2     +2                         #  B(2)    GUIDANCE
006978,002843: E7,1745  E7,1621               E2DPS              EQUALS   OURPERMS                              
006979,002844: 
006980,002845: 
006981,002846: 
006982,002847:                                                                                                  #  THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
006983,002848: 
006984,002849: E7,1745  E7,1606               PIFPSET            =        XSMD                                  #  B(1)    THROTTLE
006985,002850: E7,1745  E7,1607               RTNHOLD            =        PIFPSET    +1                         #  B(1)    THROTTLE
006986,002851: E7,1745  E7,1610               FWEIGHT            =        RTNHOLD    +1                         #  B(2)    THROTTLE
006987,002852: E7,1745  E7,1612               PIF                =        FWEIGHT    +2                         #  B(2)    THROTTLE:  DESIRED THRUST CHANGE
006988,002853: E7,1745  E7,1614               PSEUDO55           =        PIF        +2                         #  B(1)    THROTTLE:  DOWNLINK
006989,002854: E7,1745  E7,1615               FC                 =        PSEUDO55   +1                         #  B(1)    THROTTLE:  DESIRED THRUST
006990,002855: E7,1745  E7,1616               FWEIGHT1           =        FC         +1                         #  B(2)    THROTTLE:  PRELIMINARY FWEIGHT
006991,002856: E7,1745  E7,1620               FCOLD              =        FWEIGHT1   +2                         #  B(1)    THROTTLE:  FC LAST PASS
006992,002857: 
006993,002858: 
006994,002859: 
006995,002860:                                                                                                  #  THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
006996,002861: 
006997,002862: E7,1745  E7,1621               OURPERMS           =        FCOLD      +1                         #  MUSTN'T OVERLAY OURTEMPS OR SERVICER
006998,002863: E7,1745  E7,1621               WCHPHOLD           =        OURPERMS                              #  B(1)    GUIDANCE
006999,002864: E7,1745  E7,1622               511CTR             =        WCHPHOLD   +1                         #  B(1)    R12 - CONTROLS 511 ALARM
007000,002865: E7,1745  E7,1623               FLPASS0            =        511CTR     +1                         #  B(1)    GUIDANCE PASS COUNTER
007001,002866: E7,1745  E7,1624               TPIP               =        FLPASS0    +1                         #  B(2)
007002,002867: E7,1745  E7,1626               VGU                =        TPIP       +2                         #  B(6)    GUIDANCE
007003,002868: E7,1745  E7,1634               LAND               =        VGU        +6                         #  B(6)    GUIDANCE    CONTIGUOUS
007004,002869: E7,1745  E7,1642               TTF/8              =        LAND       +6                         #  B(2)    GUIDANCE     CONTIGUOUS
007005,002870: E7,1745  E7,1644               ELCOUNT1           =        TTF/8      +2                         #  B(1)    REDESIGNATOR AND P66HZ
007006,002871: E7,1745  E7,1645               AZCOUNT1           =        ELCOUNT1   +1                         #  B(1)    REDESIGNATOR AND P66HZ
007007,002872: E7,1745  E7,1646               ZERLINA            =        AZCOUNT1   +1                         #  B(1)    REDESIGNATOR
007008,002873: E7,1745  E7,1647               ELVIRA             =        ZERLINA    +1                         #  B(1)    REDESIGNATOR
007009,002874: E7,1745  E7,1650               LRPOS              =        ELVIRA     +1                         #  B(1)    LAST LR ANTENNA POSITION
007010,002875: 
007011,002876:                                                                                                  #                                          ** NOTE: GAP OF 1 SP LOCATION HERE IN THIS P63 THRU P66 OVERLAY **
007012,002877: 

Page 154

007014,002879: E7,1745  E7,1652               VMEAS              =        LRPOS      +2                         #  B(2)   VEL READ BY LR BEAM X, Y OR Z
007015,002880: E7,1745  E7,1654               HMEAS              =        VMEAS      +2                         #  B(2)    LR
007016,002881: E7,1745  E7,1656               VN2                =        HMEAS      +2                         #  B(6)    LR
007017,002882: E7,1745  E7,1656               GNUR               =        VN2                                   #  B(6)     LR
007018,002883: E7,1745  E7,1656               GNUV               =        VN2                                   #  B(6)     LR
007019,002884: E7,1745  E7,1664               DELTAH             =        VN2        +6                         #  B(2)    DISPLAY
007020,002885: E7,1745  E7,1666               FUNNYDSP           =        DELTAH     +2                         #  B(2)    DISPLAY
007021,002886: E7,1745  E7,1670               GTCTIME            =        FUNNYDSP   +2                         #  B(2)    PIPTIME CORRESPONDING TO FC
007022,002887: E7,1745  E7,1672               THRDISP            =        GTCTIME    +2                         #  B(1)    DESIRED PERCENT DPS RATED THRUST
007023,002888: E7,1745  E7,1673               EOURPERM           =        THRDISP    +1                         #  NEXT AVAILABLE CELL AFTER OURPERMS
007024,002889: E7,1745  E7,1456               OVFRET             =        LOSCOUNT                              #  B(1)
007025,002890: 
007026,002891: 
007027,002892: 
007028,002893:                                                                                                  #  (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
007029,002894: 
007030,002895: E7,1745  E7,1646               NIGNLOOP           =        ZERLINA                               #  B(1)   IGNALG
007031,002896: E7,1745  E7,1647               NGUIDSUB           =        ELVIRA                                #  B(1)   IGNALG
007032,002897: E7,1745  E7,1666               FORVDSKY           =        FUNNYDSP                              #  B(1)    DISPLAY DURING P66
007033,002898: E7,1745  E7,1666               TREDES             =        FUNNYDSP                              #  B(1)    DISPLAY
007034,002899: E7,1745  E7,1667               LOOKANGL           =        FUNNYDSP   +1                         #  B(1)    DISPLAY
007035,002900: 
007036,002901: 
007037,002902:                                                                                                  #  THE END OF THE LUNAR LANDING ERASABLES
007038,002903: 
007039,002904: 
007040,002905: 
007041,002906:                                                                                                  #           R12    (FOR LUNAR LANDING)                                     (6D)
007042,002907: 
007043,002908: E7,1745  E7,1673               LRLCTR             EQUALS   EOURPERM                              #  B(1) LR DATA TEST
007044,002909: E7,1745  E7,1674               LRRCTR             EQUALS   LRLCTR     +1                         #  B(1)
007045,002910: E7,1745  E7,1675               LRMCTR             EQUALS   LRRCTR     +1                         #  B(1)
007046,002911: E7,1745  E7,1676               LRSCTR             EQUALS   LRMCTR     +1                         #  B(1)
007047,002912: E7,1745  E7,1677               STILBADH           EQUALS   LRSCTR     +1                         #  B(1)
007048,002913: E7,1745  E7,1700               STILBADV           EQUALS   STILBADH   +1                         #  B(1)
007049,002914: 
007050,002915: 
007051,002916: 
007052,002917:                                                                                                  #           QUARTASK STORAGE (LANDING ANALOG DISPLAYS, ETC.)               (35D)
007053,002918: 
007054,002919: E7,1745  E7,1701               GRAVACCX           =        STILBADV   +1                         #  B(1)    ACCELERATION DUE TO GRAVITY
007055,002920: E7,1745  E7,1702               GRAVACCY           =        GRAVACCX   +1                         #  B(1)    ACCELERATION DUE TO GRAVITY
007056,002921: E7,1745  E7,1703               GRAVACCZ           =        GRAVACCY   +1                         #  B(1)    ACCELERATION DUE TO GRAVITY
007057,002922: E7,1745  E7,1704               BIASACCX           =        GRAVACCZ   +1                         #  B(1)    PSEUDO-ACC DUE TO PIPA BIAS
007058,002923: E7,1745  E7,1705               BIASACCY           =        BIASACCX   +1                         #  B(1)    PSEUDO-ACC DUE TO PIPA BIAS
007059,002924: E7,1745  E7,1706               BIASACCZ           =        BIASACCY   +1                         #  B(1)    PSEUDO-ACC DUE TO PIPA BIAS
007060,002925: E7,1745  E7,1707               VSURFACE           =        BIASACCZ   +1                         #  B(6)    LUNAR SURFACE VELOCITY
007061,002926: E7,1745  E7,1715               HCALCLAD           =        VSURFACE   +6                         #  B(2)    ALTITUDE IN UNITS OF 2(15) M
007062,002927: E7,1745  E7,1717               HDOTLAD            =        HCALCLAD   +2                         #  B(2)    HDOT IN UNITS OF 2(5) M/CS
007063,002928: E7,1745  E7,1721               DALTRATE           =        HDOTLAD    +2                         #  B(1)    DALTRATE, UNITS OF 2(-6) M/CS/CS
007064,002929: E7,1745  E7,1722               RUNITX             =        DALTRATE   +1                         #  B(1)    X-COMPONENT OF UNIT/R/ FULL-SIZE

Page 155

007066,002931: E7,1745  E7,1723               RUNITY             =        RUNITX     +1                         #  B(1)    Y-COMPONENT OF UNIT/R/ FULL-SIZE
007067,002932: E7,1745  E7,1724               RUNITZ             =        RUNITY     +1                         #  B(1)    Z-COMPONENT OF UNIT/R/ FULL-SIZE
007068,002933: E7,1745  E7,1725               DT                 =        RUNITZ     +1                         #  B(1)    TIME SINCE LAST PIPTIME
007069,002934: E7,1745  E7,1726               VVECTX             =        DT         +1                         #  B(2)    VELOCITY X-COMPONENT
007070,002935: E7,1745  E7,1730               VVECTY             =        VVECTX     +2                         #  B(2)    VELOCITY Y-COMPONENT
007071,002936: E7,1745  E7,1732               VVECTZ             =        VVECTY     +2                         #  B(2)    VELOCITY Z-COMPONENT
007072,002937: E7,1745  E7,1734               ALTRATE            =        VVECTZ     +2                         #  B(2)    ALTRATE IN UNITS OF 2(6) M/CS
007073,002938: E7,1745  E7,1736               ALTITUDE           =        ALTRATE    +2                         #  B(2)    ALTITUDE IN UNITS OF 2(15) M
007074,002939: E7,1745  E7,1740               LATVMETR           =        ALTITUDE   +2                         #  B(1)    LATERAL METER INDICATOR
007075,002940: E7,1745  E7,1741               FORVMETR           =        LATVMETR   +1                         #  B(1)    FORWARD METER INDICATOR
007076,002941: E7,1745  E7,1742               FORVEL             =        FORVMETR   +1                         #  B(2)    FORWARD VELOCITY FOR DISPLAYS
007077,002942: 
007078,002943: 
007079,002944: E7,1745     0063               ALTRTEMP           =        ITEMP3                                #  B(2)    ALTITUDE-RATE TEMPORARY
007080,002945: E7,1745     0063               ALTTEMP            =        ITEMP3                                #  B(2)    ALTITUDE TEMPORARY
007081,002946: E7,1745     0063               VHY                =        ITEMP3                                #  B(2)    VELOCITY ALONG UHYP
007082,002947: E7,1745     0065               VHZ                =        ITEMP5                                #  B(2)    VELOCITY ALONG UHZP
007083,002948: E7,1745     0070               FORVTEMP           =        RUPTREG1                              #  B(2)    FORWARD VELOCITY TEMPORARY
007084,002949: E7,1745     0072               LATVEL             =        RUPTREG3                              #  B(2)    LATERAL VELOCITY
007085,002950: 
007086,002951: 
007087,002952: 
007088,002953:                                                                                                  #           P66 ERASABLES                                                  (14D)
007089,002954: 
007090,002955: E7,1745  E7,1744               RODCOUNT           =        FORVEL     +2                         #  B(1)    COUNTER FOR ROD CLICKS
007091,002956: E7,1745  E7,1745               VDGVERT            =        RODCOUNT   +1                         #  B(2)    DESIRED VERTICAL RATE
007092,002957: E7,1745  E7,1745               VHZC               =        VDGVERT                               #  B(6)    DESIRED VHZ, OVERLAPS VDGVERT
007093,002958: E7,1745  E7,1753               HZCOUNT            =        VHZC       +6                         #  B(1)    COUNTER FOR P66HZ LOGIC
007094,002959: E7,1745  E7,1754               P66TPIP            =        HZCOUNT    +1                         #  B(1)    TIME OF P66ROD'S PIPAX READING
007095,002960: E7,1745  E7,1755               P66PIPX            =        P66TPIP    +1                         #  B(1)    P66ROD'S PIPAX READING
007096,002961: E7,1745  E7,1756               OP66TPIP           =        P66PIPX    +1                         #  B(1)    LAST P66ROD'S PIPAX READING TIME
007097,002962: E7,1745  E7,1757               OP66PIPX           =        OP66TPIP   +1                         #  B(1)    LAST P66ROD'S PIPAX READING
007098,002963: E7,1745  E7,1760               TAU                =        OP66PIPX   +1                         #  B(1)    TAU FOR USE BY P66ROD
007099,002964: E7,1745  E7,1761               -OLDTAU            =        TAU        +1                         #  B(1)    LAST P66ROD'S TAU
007100,002965: 
007101,002966: 
007102,002967:                                                                                                  #           LANDING RADAR ERASABLES                                        (6D)
007103,002968: 
007104,002969: E7,1745  E7,1762               HLRTIME            =        -OLDTAU    +1                         #  B(2)    ALTITUDE AT LRTIME
007105,002970: E7,1745  E7,1770               HMEASDL            =        HLRTIME    +6                         #  B(2)    VERSION OF HMEAS FOR DOWNLINK
007106,002971: E7,1745  E7,1772               LRTIMEDL           =        HMEASDL    +2                         #  B(2)    VERSION OF LRTIME FOR DOWNLINK
007107,002972: 
007108,002973: 

Page 156

007110,002975:                                                                                                  #  *******  OVERLAY NUMBER 5 IN EBANK 7  *******
007111,002976: 
007112,002977: 
007113,002978: 
007114,002979:                                                                                                  #           ASCENT GUIDANCE ERASABLES.                                     (21D)
007115,002980: 
007116,002981: E7,1745  E7,1630               RCO                EQUALS   END-ALIG                              #  I(2)TMP  TARGET RADIUS AND OUT-OF-PLANE
007117,002982: E7,1745  E7,1632               YCO                EQUALS   RCO        +2                         #  I(2)TMP  DISTANCE, SCALED AT 2(24).
007118,002983: E7,1745  E7,1634               1/DV1              EQUALS   YCO        +2                         #  B(2)TMP  ATMAG
007119,002984: E7,1745  E7,1636               1/DV2              EQUALS   1/DV1      +2                         #  B(2)TMP  ATMAG
007120,002985: E7,1745  E7,1640               1/DV3              EQUALS   1/DV2      +2                         #  B(2)TMP  ATMAG
007121,002986: E7,1745  E7,1642               XRANGE             EQUALS   1/DV3      +2                         #  B(2)TMP
007122,002987: E7,1745  E7,1644               ENGOFFDT           EQUALS   XRANGE     +2                         #  B(1)TMP
007123,002988: E7,1745  E7,1645               VGVECT             EQUALS   ENGOFFDT   +1                         #  I(6)OUT  VELOCITY-TO-BE-GAINED
007124,002989: E7,1745  E7,1653               TXO                EQUALS   VGVECT     +6                         #  I(2)TMP  TIME AT WHICH X-AXIS OVERRIDE
007125,002990: 
007126,002991: 
007127,002992: E7,1745  E7,1570               1/DV0              EQUALS   MASS1                                 #  B(2)TMP  ATMAG TEMPORARY
007128,002993: 
007129,002994: 
007130,002995:                                                                                                  #  END OF THE ASCENT GUIDANCE ERASABLES.
007131,002996: 
007132,002997: E7,1745                        END-E7             EQUALS   3777                                  #  **LAST LOCATION USED IN E7 **
007133,002998: 

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