Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

003562,000002:                                                                                                  ## Copyright:   Public domain.
003563,000003:                                                                                                  ## Filename:    ERASABLE ASSIGNMENTS.agc
003564,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
003565,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
003566,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
003567,000007:                                                                                                  ## Assembler:   yaYUL
003568,000008:                                                                                                  ## Contact:     Onno Hommes <ohommes@cmu.edu>.
003569,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
003570,000010:                                                                                                  ## Pages:       0090-0152
003571,000011:                                                                                                  ## Mod history: 2009-05-16 OH   Transcribed from page images.
003572,000012:                                                                                                  ##              2009-06-05 RSB  Eliminated a variable that shouldn't have
003573,000013:                                                                                                  ##                              survived from Luminary 131.
003574,000014:                                                                                                  ##              2010-12-31 JL   Fixed page number comment.
003575,000015:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
003576,000016:                                                                                                  ##                              and corrected the errors found.
003577,000017:                                                                                                  ##              2017-03-11 MAS  Corrected errors found during transcription of Luminary 116.
003578,000018:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
003579,000019:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
003580,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
003581,000021:                                                                                                  ##              2017-08-11 RSB  Comment-text fixes identified in octopus/ProoferComments
003582,000022:                                                                                                  ##                              based comparison with AP11ROPE scan.
003583,000023: 
003584,000024:                                                                                                  ## This source code has been transcribed or otherwise adapted from
003585,000025:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
003586,000026:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
003587,000027:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
003588,000028:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
003589,000029:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
003590,000030:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
003591,000031:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
003592,000032:                                                                                                  ## actually created.
003593,000033:                                                                                                  ##
003594,000034:                                                                                                  ## Notations on the hardcopy document read, in part:
003595,000035:                                                                                                  ##
003596,000036:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
003597,000037:                                                                                                  ##      16:27 JULY 14, 1969 
003598,000038: 

Page 90

003600,000040:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
003601,000041: 
003602,000042:                                                                                                  #        EQUALS  IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
003603,000043:                                                                                                  #                OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
003604,000044:                                                                                                  #                CHANGING OF ONLY ONE CARD.  EXAMPLE.
003605,000045: 
003606,000046:                                                                                                  #                        X       EQUALS  START
003607,000047:                                                                                                  #                        Y       EQUALS  X       +SIZE.X
003608,000048:                                                                                                  #                        Z       EQUALS  Y       +SIZE.Y
003609,000049: 
003610,000050:                                                                                                  #                (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
003611,000051:                                                                                                  #                (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
003612,000052:                                                                                                  #                 USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC.                )
003613,000053: 
003614,000054:                                                                                                  #        EQUALS  OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
003615,000055:                                                                                                  #                AND DIFFERENT DATA).  EXAMPLE.
003616,000056: 
003617,000057:                                                                                                  #                        X       EQUALS  Y
003618,000058: 
003619,000059:                                                                                                  #        =       MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
003620,000060:                                                                                                  #                (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
003621,000061: 
003622,000062:                                                                                                  #                        X       =       Y
003623,000063: 
003624,000064:                                                                                                  #        THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
003625,000065:                                                                                                  #        THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
003626,000066: 
003627,000067:                                                                                                  #                M       REFERS TO THE MOBILITY OF THE ASSIGNMENT.
003628,000068:                                                                                                  #                        B       MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
003629,000069:                                                                                                  #                                INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
003630,000070:                                                                                                  #                        I       MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
003631,000071:                                                                                                  #                                INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
003632,000072:                                                                                                  #                                INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
003633,000073: 
003634,000074:                                                                                                  #                SIZE    IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
003635,000075: 
003636,000076:                                                                                                  #                N       INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
003637,000077:                                                                                                  #                        PL      MEANS THAT THE CONTENTS ARE PAD LOADED.
003638,000078:                                                                                                  #                        DSP     MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
003639,000079:                                                                                                  #                        PRM     MEANS THAT THE REGISTER IS PERMANENT,  IE. IT
003640,000080:                                                                                                  #                                IS USED DURING THE ENTIRE MISSION FOR ONE
003641,000081:                                                                                                  #                                PURPOSE AND CANNOT BE SHARED.
003642,000082:                                                                                                  #                        TMP     MEANS THAT THE REGISTER IS USED TEMPORARILY OR
003643,000083:                                                                                                  #                                IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
003644,000084:                                                                                                  #                                IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
003645,000085:                                                                                                  #                                PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
003646,000086:                                                                                                  #                                CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS

Page 91

003648,000088:                                                                                                  #                                IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
003649,000089:                                                                                                  #                                IS NOT ACTIVE IN PARALLEL.
003650,000090:                                                                                                  #                        IN      MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
003651,000091:                                                                                                  #                                TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
003652,000092:                                                                                                  #                        OUT     MEANS OUTPUT FROM THE ROUTINE, PROBABLY
003653,000093:                                                                                                  #                                TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
003654,000094: 

Page 92

003656,000096:                                                                                                  #  SPECIAL REGISTERS.
003657,000097: 
003658,000098: 26,2022                        A                  EQUALS   0                                     
003659,000099: 26,2022                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
003660,000100: 26,2022                        Q                  EQUALS   2                                     
003661,000101: 26,2022                        EBANK              EQUALS   3                                     
003662,000102: 26,2022                        FBANK              EQUALS   4                                     
003663,000103: 26,2022                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
003664,000104: 26,2022                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
003665,000105:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
003666,000106: 
003667,000107: 26,2022                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
003668,000108: 26,2022                        LRUPT              EQUALS   11                                    
003669,000109: 26,2022                        QRUPT              EQUALS   12                                    
003670,000110: 26,2022                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
003671,000111: 26,2022                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
003672,000112: 26,2022                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
003673,000113: 26,2022                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
003674,000114: 
003675,000115: 26,2022                        CYR                EQUALS   20                                    
003676,000116: 26,2022                        SR                 EQUALS   21                                    
003677,000117: 26,2022                        CYL                EQUALS   22                                    
003678,000118: 26,2022                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
003679,000119: 
003680,000120: 26,2022                        TIME2              EQUALS   24                                    
003681,000121: 26,2022                        TIME1              EQUALS   25                                    
003682,000122: 26,2022                        TIME3              EQUALS   26                                    
003683,000123: 26,2022                        TIME4              EQUALS   27                                    
003684,000124: 26,2022                        TIME5              EQUALS   30                                    
003685,000125: 26,2022                        TIME6              EQUALS   31                                    
003686,000126: 26,2022                        CDUX               EQUALS   32                                    
003687,000127: 26,2022                        CDUY               EQUALS   33                                    
003688,000128: 26,2022                        CDUZ               EQUALS   34                                    
003689,000129: 26,2022                        CDUT               EQUALS   35                                    #  REND RADAR TRUNNION CDU
003690,000130: 26,2022                        CDUS               EQUALS   36                                    #  REND RADAR SHAFT CDU
003691,000131: 26,2022                        PIPAX              EQUALS   37                                    
003692,000132: 26,2022                        PIPAY              EQUALS   40                                    
003693,000133: 26,2022                        PIPAZ              EQUALS   41                                    
003694,000134: 26,2022                        Q-RHCCTR           EQUALS   42                                    #  RHC COUNTER REGISTERS
003695,000135: 26,2022                        P-RHCCTR           EQUALS   43                                    
003696,000136: 26,2022                        R-RHCCTR           EQUALS   44                                    
003697,000137: 26,2022                        INLINK             EQUALS   45                                    
003698,000138: 26,2022                        RNRAD              EQUALS   46                                    
003699,000139: 26,2022                        GYROCMD            EQUALS   47                                    
003700,000140: 26,2022                        CDUXCMD            EQUALS   50                                    
003701,000141: 26,2022                        CDUYCMD            EQUALS   51                                    
003702,000142: 26,2022                        CDUZCMD            EQUALS   52                                    
003703,000143: 26,2022                        CDUTCMD            EQUALS   53                                    #  RADAR TRUNNION COMMAND
003704,000144: 26,2022                        CDUSCMD            EQUALS   54                                    #  RADAR SHAFT COMMAND

Page 93

003706,000146: 26,2022                        THRUST             EQUALS   55                                    
003707,000147: 26,2022                        LEMONM             EQUALS   56                                    
003708,000148: 26,2022                        OUTLINK            EQUALS   57                                    
003709,000149: 26,2022                        ALTM               EQUALS   60                                    
003710,000150: 
003711,000151:                                                                                                  #  INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
003712,000152: 
003713,000153: 26,2022                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
003714,000154: 26,2022                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
003715,000155: 26,2022                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
003716,000156: 26,2022                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
003717,000157: 26,2022                        S1                 EQUALS   40D                                   
003718,000158: 26,2022                        S2                 EQUALS   41D                                   
003719,000159: 26,2022                        QPRET              EQUALS   42D                                   
003720,000160: 
003721,000161:                                                                                                  #  INPUT/OUTPUT CHANNELS
003722,000162: 
003723,000163:                                                                                                  #  *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
003724,000164: 26,2022  0000001               LCHAN              EQUALS   L                                     
003725,000165: 26,2022  0000002               QCHAN              EQUALS   Q                                     
003726,000166: 26,2022                        HISCALAR           EQUALS   3                                     
003727,000167: 26,2022                        LOSCALAR           EQUALS   4                                     
003728,000168: 26,2022                        CHAN5              EQUALS   5                                     
003729,000169: 26,2022                        CHAN6              EQUALS   6                                     
003730,000170: 26,2022                        SUPERBNK           EQUALS   7                                     #  SUPER-BANK.
003731,000171: 26,2022                        OUT0               EQUALS   10                                    
003732,000172: 26,2022                        DSALMOUT           EQUALS   11                                    
003733,000173: 26,2022                        CHAN12             EQUALS   12                                    
003734,000174: 26,2022                        CHAN13             EQUALS   13                                    
003735,000175: 26,2022                        CHAN14             EQUALS   14                                    
003736,000176: 26,2022                        MNKEYIN            EQUALS   15                                    
003737,000177: 26,2022                        NAVKEYIN           EQUALS   16                                    
003738,000178: 26,2022                        CHAN30             EQUALS   30                                    
003739,000179: 26,2022                        CHAN31             EQUALS   31                                    
003740,000180: 26,2022                        CHAN32             EQUALS   32                                    
003741,000181: 26,2022                        CHAN33             EQUALS   33                                    
003742,000182: 26,2022                        DNTM1              EQUALS   34                                    
003743,000183: 26,2022                        DNTM2              EQUALS   35                                    
003744,000184: 
003745,000185:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
003746,000186: 

Page 94

003748,000188:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
003749,000189: 
003750,000190:                                                                                                  #        ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. **
003751,000191: 

Page 95

003753,000193:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
003754,000194: 
003755,000195:    0061                                           SETLOC   61                                    
003756,000196:                                                                                                  #  INTERRUPT TEMPORARY STORAGE POOL.     (11D)
003757,000197: 
003758,000198:                                                                                                  #  (ITEMP1 THROUGH RUPTREG4)             
003759,000199: 
003760,000200:                                                                                                  #  ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
003761,000201:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
003762,000202: 
003763,000203:    0061                        ITEMP1             ERASE                                          
003764,000204:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
003765,000205:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
003766,000206: 
003767,000207:    0062                        ITEMP2             ERASE                                          
003768,000208:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
003769,000209:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
003770,000210: 
003771,000211:    0063                        ITEMP3             ERASE                                          
003772,000212:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
003773,000213:    0064     0063               WAITADR            EQUALS   ITEMP3                                
003774,000214:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
003775,000215: 
003776,000216:    0064                        ITEMP4             ERASE                                          
003777,000217:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
003778,000218:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
003779,000219: 
003780,000220:    0065                        ITEMP5             ERASE                                          
003781,000221:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
003782,000222: 
003783,000223:    0066                        ITEMP6             ERASE                                          
003784,000224:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
003785,000225: 
003786,000226:    0067                                           SETLOC   67                                    
003787,000227:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
003788,000228: 
003789,000229:    0070                        RUPTREG1           ERASE                                          
003790,000230:    0071                        RUPTREG2           ERASE                                          
003791,000231:    0072                        RUPTREG3           ERASE                                          
003792,000232:    0073                        RUPTREG4           ERASE                                          
003793,000233:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
003794,000234:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
003795,000235: 
003796,000236:                                                                                                  #  FLAGWORD RESERVATIONS.                (16D)
003797,000237: 
003798,000238:    0074                        STATE              ERASE    +15D                                  #  FLAGWORD REGISTERS.
003799,000239: 
003800,000240:                                                                                                  #  P25 RADAR STORAGE.  (MAY BE UNSHARED IN E7)  (TEMP OVERLAY)  (2D)  OVERLAYS FLGWRD 14 & 15

Page 96

003802,000242:    0114     0112               LASTYCMD           EQUALS   STATE      +14D                       #  B(1)PRM       THESE ARE CALLED BY T4RUPT
003803,000243:    0114     0113               LASTXCMD           EQUALS   LASTYCMD   +1                         #  B(1)PRM       THEY MUST BE CONTIGUOUS, Y FIRST
003804,000244: 
003805,000245:                                                                                                  #  EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
003806,000246:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
003807,000247:    0115     0114               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
003808,000248:    0115     0114               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
003809,000249:    0115     0114               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
003810,000250: 
003811,000251:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
003812,000252:    0116     0115               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
003813,000253:    0116     0115               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
003814,000254:    0116     0115               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
003815,000255:    0116     0115               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
003816,000256: 
003817,000257:                                                                                                  #  THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
003818,000258: 
003819,000259:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
003820,000260:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
003821,000261:    0120     0117               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
003822,000262:    0120     0117               CHAR               =        POLISH                                #  TEMP FOR CHARIN
003823,000263:    0120     0117               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
003824,000264:    0120     0117               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
003825,000265: 
003826,000266:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
003827,000267:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
003828,000268: 
003829,000269:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
003830,000270:    0130     0122               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
003831,000271:    0130     0122               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
003832,000272:    0130     0122               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
003833,000273:    0130     0122               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
003834,000274: 
003835,000275:    0130     0123               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
003836,000276:    0130     0123               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
003837,000277:    0130     0123               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
003838,000278:    0130     0123               HITEMIN            =        VBUF       +1                         #  TEMP FOR LOAD OF HRS,MIN,SEC
003839,000279:                                                                                                  #  MUST = LOTEMIN-1.
003840,000280: 
003841,000281:    0130     0124               CODE               =        VBUF       +2                         #  FOR DSPIN
003842,000282:    0130     0124               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
003843,000283:    0130     0124               LOTEMIN            =        VBUF       +2                         #  TEMP FOR LOAD OF HRS,MIN,SEC
003844,000284:                                                                                                  #  MUST = HITEMIN+1.
003845,000285: 
003846,000286:    0130     0125               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
003847,000287:    0130     0125               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
003848,000288: 
003849,000289:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
003850,000290: 
003851,000291:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.

Page 97

003853,000293:    0133                        BUF2               ERASE    +1                                    
003854,000294:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
003855,000295:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
003856,000296:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
003857,000297:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
003858,000298:    0136     0135               DMPNTEMP           =        MPTEMP                                #  DMPSUB TEMPORARY
003859,000299:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
003860,000300:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
003861,000301:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
003862,000302:    0137     0136               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
003863,000303: 
003864,000304:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
003865,000305:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
003866,000306:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
003867,000307:    0140     0137               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
003868,000308:    0140     0137               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG)
003869,000309: 
003870,000310:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
003871,000311:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003872,000312:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
003873,000313:    0141     0140               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
003874,000314:    0141     0140               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
003875,000315: 
003876,000316:    0141                        TEM1               ERASE                                          #  EXEC TEMP
003877,000317:    0142     0141               POLYRET            =        TEM1                                  
003878,000318:    0142     0141               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
003879,000319: 
003880,000320:    0142                        TEM2               ERASE                                          #  EXEC TEMP
003881,000321:    0143     0142               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
003882,000322:    0143     0142               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
003883,000323: 
003884,000324:    0143                        TEM3               ERASE                                          #  EXEC TEMP
003885,000325:    0144     0143               COUNT              =        TEM3                                  #  FOR DSPIN
003886,000326: 
003887,000327:    0144                        TEM4               ERASE                                          #  EXEC TEMP
003888,000328:    0145     0144               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
003889,000329:    0145     0144               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
003890,000330:    0145     0144               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
003891,000331:    0145     0144               DSPWDRET           =        TEM4                                  #  RETURN FOR DSPSIGN
003892,000332:    0145     0144               SEPSCRET           =        TEM4                                  #  RETURN FOR SEPSEC
003893,000333:    0145     0144               SEPMNRET           =        TEM4                                  #  RETURN FOR SEPMIN
003894,000334: 
003895,000335:    0145                        TEM5               ERASE                                          #  EXEC TEMP
003896,000336:    0146     0145               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
003897,000337: 
003898,000338:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
003899,000339:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
003900,000340:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
003901,000341:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
003902,000342:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)

Page 98

003904,000344:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
003905,000345:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
003906,000346:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
003907,000347:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
003908,000348: 
003909,000349:                                                                                                  #  AX*SR*T STORAGE.                      (6D)
003910,000350:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
003911,000351:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
003912,000352:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
003913,000353:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
003914,000354:    0154     0157               TERM1TMP           EQUALS   MPAC       +3                         #  B(2)TMP
003915,000355: 
003916,000356:    0154     0143               DEXI               =        DEX1                                  
003917,000357: 
003918,000358:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
003919,000359:                                                                                                  #  SUBROUTINE ROOTPSRS.  THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
003920,000360:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
003921,000361: 
003922,000362:    0154     0142               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
003923,000363:    0154     0143               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
003924,000364:    0154     0144               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
003925,000365:    0154     0145               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
003926,000366:    0154     0146               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
003927,000367:    0154     0147               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
003928,000368:    0154     0150               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
003929,000369:    0154     0151               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
003930,000370:    0154     0152               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N HI ORDER
003931,000371:    0154     0153               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N LO ORDER
003932,000372: 
003933,000373:    0154     0117               PWRPTR             =        POLISH                                #  ROOTPSRS POWER TABLE POINTER
003934,000374:    0154     0124               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
003935,000375:    0154     0125               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
003936,000376:    0154     0126               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
003937,000377:    0154     0127               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
003938,000378:    0154     0132               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
003939,000379:    0154     0140               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABLE LOOP COUNTER
003940,000380:    0154     0141               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABLE POINTER
003941,000381: 

Page 99

003943,000383:                                                                                                  #  DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.     (84D)
003944,000384: 
003945,000385:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
003946,000386:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003947,000387:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
003948,000388:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
003949,000389:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
003950,000390:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
003951,000391: 
003952,000392:    0170                                           ERASE    +83D                                  #  EIGHT SETS OF 12 REGISTERS EACH
003953,000393: 
003954,000394:                                                                                                  #  INCORP STORAGE:  R22 (N29)    (SHARES WITH FOLLOWING SECTION)         (4D)
003955,000395: 
003956,000396:    0314     0314               R22DISP            EQUALS   TIME2SAV                              #  I(4) N49 DISPLAY OF DELTA R AND DELTA V
003957,000397: 
003958,000398:                                                                                                  #  STANDBY VERB ERASABLES.  REDOCTR BEFORE THETADS.      (14D)
003959,000399: 
003960,000400:    0314                        TIME2SAV           ERASE    +1                                    
003961,000401:    0316                        SCALSAVE           ERASE    +1                                    
003962,000402:    0320                        REDOCTR            ERASE                                          #  CONTAINS NUMBER OF RESTARTS
003963,000403:    0321                        THETAD             ERASE    +2                                    
003964,000404:    0324     0321               CPHI               =        THETAD                                #  O     DESIRED GIMBAL ANGLES
003965,000405:    0324     0322               CTHETA             =        THETAD     +1                         #  I     FOR
003966,000406:    0324     0323               CPSI               =        THETAD     +2                         #  M     MANEUVER.
003967,000407:    0324                        DELV               ERASE    +5                                    
003968,000408:    0332     0324               DELVX              =        DELV                                  
003969,000409:    0332     0326               DELVY              =        DELV       +2                         
003970,000410:    0332     0330               DELVZ              =        DELV       +4                         
003971,000411: 
003972,000412: 
003973,000413:                                                                                                  #  DOWNLINK STORAGE.                     (28D)
003974,000414: 
003975,000415:    0332     0332               DNLSTADR           EQUALS   DNLSTCOD                              
003976,000416: 
003977,000417:    0332                        DNLSTCOD           ERASE                                          #  B(1)PRM DOWNLIINK LIST CODE
003978,000418:    0333                        DUMPCNT            ERASE                                          #  B(1)
003979,000419:    0334                        LDATALST           ERASE    +25D                                  #  (26D)
003980,000420:    0366     0335               DNTMGOTO           EQUALS   LDATALST   +1                         #  B(1)
003981,000421:    0366     0336               TMINDEX            EQUALS   DNTMGOTO   +1                         #  B(1)
003982,000422:    0366     0336               DUMPLOC            EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
003983,000423:                                                                                                  #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
003984,000424:                                                                                                  #  ENT.
003985,000425:    0366     0337               DNQ                EQUALS   TMINDEX    +1                         #  B(1)
003986,000426:    0366     0340               DNTMBUFF           EQUALS   DNQ        +1                         #  B(22)PRM DOWNLINK SNAPSHOT BUFFER
003987,000427: 
003988,000428:                                                                                                  #  UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.    (10D) FIVE MORE IN EBANK 2
003989,000429: 

Page 100

003991,000431:    0366                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
003992,000432:    0367                        NVWORD             ERASE                                          
003993,000433:    0370                        MARKNV             ERASE                                          
003994,000434:    0371                        NVSAVE             ERASE                                          
003995,000435:                                                                                                  #  (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003996,000436:    0372                        CADRFLSH           ERASE                                          
003997,000437:    0373                        CADRMARK           ERASE                                          
003998,000438:    0374                        TEMPFLSH           ERASE                                          
003999,000439:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM 3 ALARM CODE REGISTERS
004000,000440: 
004001,000441:                                                                                                  #  VAC AREAS. - BE CAREFUL OF PLACEMENT- (220D)
004002,000442: 
004003,000443:    0400                        VAC1USE            ERASE                                          
004004,000444:    0401                        VAC1               ERASE    +42D                                  
004005,000445:    0454                        VAC2USE            ERASE                                          
004006,000446:    0455                        VAC2               ERASE    +42D                                  
004007,000447:    0530                        VAC3USE            ERASE                                          
004008,000448:    0531                        VAC3               ERASE    +42D                                  
004009,000449:    0604                        VAC4USE            ERASE                                          
004010,000450:    0605                        VAC4               ERASE    +42D                                  
004011,000451:    0660                        VAC5USE            ERASE                                          
004012,000452:    0661                        VAC5               ERASE    +42D                                  
004013,000453: 
004014,000454:                                                                                                  #  WAITLIST REPEAT FLAG.                 (1D)
004015,000455:    0734                        RUPTAGN            ERASE                                          
004016,000456:    0735     0734               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
004017,000457: 
004018,000458:                                                                                                  #  STARALIGN ERASABLES.                  (13D)
004019,000459: 
004020,000460:    0735                        STARCODE           ERASE                                          #  (1)
004021,000461:    0736     0735               AOTCODE            =        STARCODE                              
004022,000462:    0736                        STARALGN           ERASE    +11D                                  
004023,000463:    0752     0736               SINCDU             =        STARALGN                              
004024,000464:    0752     0744               COSCDU             =        STARALGN   +6                         
004025,000465: 
004026,000466:    0752     0742               SINCDUX            =        SINCDU     +4                         
004027,000467:    0752     0736               SINCDUY            =        SINCDU                                
004028,000468:    0752     0740               SINCDUZ            =        SINCDU     +2                         
004029,000469:    0752     0750               COSCDUX            =        COSCDU     +4                         
004030,000470:    0752     0744               COSCDUY            =        COSCDU                                
004031,000471:    0752     0746               COSCDUZ            =        COSCDU     +2                         
004032,000472: 
004033,000473:                                                                                                  #  PHASE TABLE AND RESTART COUNTERS.     (12D)
004034,000474: 
004035,000475:    0752                        -PHASE1            ERASE                                          
004036,000476: 

Page 101

004038,000478:    0753                        PHASE1             ERASE                                          
004039,000479:    0754                        -PHASE2            ERASE                                          
004040,000480:    0755                        PHASE2             ERASE                                          
004041,000481:    0756                        -PHASE3            ERASE                                          
004042,000482:    0757                        PHASE3             ERASE                                          
004043,000483:    0760                        -PHASE4            ERASE                                          
004044,000484:    0761                        PHASE4             ERASE                                          
004045,000485:    0762                        -PHASE5            ERASE                                          
004046,000486:    0763                        PHASE5             ERASE                                          
004047,000487:    0764                        -PHASE6            ERASE                                          
004048,000488:    0765                        PHASE6             ERASE                                          
004049,000489: 
004050,000490:                                                                                                  #  A**SR*T STORAGE.                      (6D)
004051,000491: 
004052,000492:    0766                        CDUSPOT            ERASE    +5                                    #  B(6)
004053,000493: 
004054,000494:    0774     0766               CDUSPOTY           =        CDUSPOT                               
004055,000495:    0774     0770               CDUSPOTZ           =        CDUSPOT    +2                         
004056,000496:    0774     0772               CDUSPOTX           =        CDUSPOT    +4                         
004057,000497: 
004058,000498:                                                                                                  #  VERB 37 STORAGE.                      (2D)
004059,000499: 
004060,000500:    0774                        MINDEX             ERASE                                          #  B(1)TMP INDEX FOR MAJOR MODE
004061,000501:    0775                        MMNUMBER           ERASE                                          #  B(1)TMP MAJOR MODE REQUESTED BY V37
004062,000502: 
004063,000503:                                                                                                  #  PINBALL INTERRUPT ACTION.             (1D)
004064,000504: 
004065,000505:    0776                        DSPCNT             ERASE                                          #  B(1)PRM COUNTER FOR DSPOUT.
004066,000506: 
004067,000507:                                                                                                  #  PINBALL EXECUTIVE ACTION              (44D)
004068,000508: 
004069,000509:    0777                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR.
004070,000510:    1000                        DECBRNCH           ERASE                                          #  +DEC, -DEC, OCT INDICATOR
004071,000511:    1001                        VERBREG            ERASE                                          #  VERB CODE
004072,000512:    1002                        NOUNREG            ERASE                                          #  NOUN CODE
004073,000513:    1003                        XREG               ERASE                                          #  R1 INPUT BUFFER
004074,000514:    1004                        YREG               ERASE                                          #  R2 INPUT BUFFER
004075,000515:    1005                        ZREG               ERASE                                          #  R3 INPUT BUFFER
004076,000516:    1006                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
004077,000517:    1007                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
004078,000518:    1010     1007               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS,MIN,SEC
004079,000519:                                                                                                  #  MUST = LOTEMOUT-1.
004080,000520:    1010                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
004081,000521:    1011     1010               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS,MIN,SEC
004082,000522:                                                                                                  #  MUST = HITEMOUT+1.
004083,000523:    1011                        MODREG             ERASE                                          #  MODE CODE
004084,000524: 

Page 102

004086,000526:    1012                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
004087,000527:    1013                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
004088,000528:    1014                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
004089,000529:    1015                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
004090,000530:    1016                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
004091,000531:    1017                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
004092,000532:    1020                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
004093,000533:    1021                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
004094,000534:    1022                        MONSAVE2           ERASE                                          #  NVMONOPT OPTIONS
004095,000535:    1023                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF.  11D, C/S LTS.
004096,000536:    1037                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
004097,000537:                                                                                                  #  MUST = NVBNKTEM-1
004098,000538:    1040                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
004099,000539:                                                                                                  #  MUST = NVQTEM+1
004100,000540:    1041                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
004101,000541:    1042                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
004102,000542:    1043                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
004103,000543:    1044                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
004104,000544:    1045                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004105,000545:    1050                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004106,000546: 
004107,000547:    1053     1051               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
004108,000548:    1053     1045               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
004109,000549: 
004110,000550:                                                                                                  #  DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) ) (2D)
004111,000551: 
004112,000552:    1053     1051               OPTIONX            EQUALS   DSPTEMX                               #  (2) EXTENDED VERB OPTION CODE
004113,000553: 
004114,000554:                                                                                                  #  TBASES AND PHSPRDT S.                 (12D)
004115,000555: 
004116,000556:    1053                        TBASE1             ERASE                                          
004117,000557:    1054                        PHSPRDT1           ERASE                                          
004118,000558:    1055                        TBASE2             ERASE                                          
004119,000559:    1056                        PHSPRDT2           ERASE                                          
004120,000560:    1057                        TBASE3             ERASE                                          
004121,000561:    1060                        PHSPRDT3           ERASE                                          
004122,000562:    1061                        TBASE4             ERASE                                          
004123,000563:    1062                        PHSPRDT4           ERASE                                          
004124,000564:    1063                        TBASE5             ERASE                                          
004125,000565:    1064                        PHSPRDT5           ERASE                                          
004126,000566:    1065                        TBASE6             ERASE                                          
004127,000567:    1066                        PHSPRDT6           ERASE                                          
004128,000568: 
004129,000569:                                                                                                  #  UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.    (6D)
004130,000570: 

Page 103

004132,000572:    1067                        NVWORD1            ERASE                                          #  B(1) PROBABLY FOR DISPLAY DURING SERVICER
004133,000573:    1070                        EBANKSAV           ERASE                                          
004134,000574:    1071                        MARKEBAN           ERASE                                          
004135,000575:    1072                        EBANKTEM           ERASE                                          
004136,000576:    1073                        MARK2PAC           ERASE                                          
004137,000577:    1074                        R1SAVE             ERASE                                          
004138,000578: 
004139,000579:                                                                                                  #  IMU COMPENSATION UNSWITCHED ERASABLE.         (1D)
004140,000580: 
004141,000581:    1075                        1/PIPADT           ERASE                                          
004142,000582: 
004143,000583:                                                                                                  #  SINGLE PRECISION SUBROUTINE TEMPORARIES.      (2D)
004144,000584: 
004145,000585:    1076                        TEMK               ERASE                                          #  (1)
004146,000586:    1077                        SQ                 ERASE                                          #  (1)
004147,000587: 
004148,000588:                                                                                                  #  UNSWITCHED RADAR ERASABLE                     (13D)
004149,000589: 
004150,000590:    1100                        SAMPLIM            ERASE                                          
004151,000591:    1101                        SAMPLSUM           ERASE    +3                                    
004152,000592:    1105                        TIMEHOLD           ERASE    +1                                    
004153,000593:    1107     1101               RRTARGET           EQUALS   SAMPLSUM                              #  HALF U IT VECTOR IN SM OR NB AXES.
004154,000594:    1107                        TANG               ERASE    +1                                    #  DESIRE TRUNNION AND SHAFT ANGLES.
004155,000595:    1111     1107               MODEA              EQUALS   TANG                                  
004156,000596:    1111                        MODEB              ERASE    +1                                    #  DODES LOBBERS TANG +2.
004157,000597:    1113     1111               NSAMP              EQUALS   MODEB                                 
004158,000598:    1113                        DESRET             ERASE                                          
004159,000599:    1114     1113               OLDATAGD           EQUALS   DESRET                                #  USED I  DATA READING ROUTINES.
004160,000600:    1114                        DESCOUNT           ERASE                                          
004161,000601: 
004162,000602:                                                                                                  #  ******   P22  ******                          (6D)
004163,000603: 
004164,000604:    1115     1101               RSUBC              EQUALS   RRTARGET                              #  I(6) S-S CSM POSITION VECTOR
004165,000605: 

Page 104

004167,000607:                                                                                                  #  UNSWITCHED FOR ORBIT INTEGRATION.             (21D)
004168,000608: 
004169,000609:    1115                        TDEC               ERASE    +20D                                  #  I(2)
004170,000610:    1142     1117               COLREG             EQUALS   TDEC       +2                         #  I(1)
004171,000611:    1142     1120               LAT                EQUALS   COLREG     +1                         #  I(2)
004172,000612:    1142     1122               LONG               EQUALS   LAT        +2                         #  I(2)
004173,000613:    1142     1124               ALT                EQUALS   LONG       +2                         #  I(2)
004174,000614:    1142     1126               YV                 EQUALS   ALT        +2                         #  I(6)
004175,000615:    1142     1134               ZV                 EQUALS   YV         +6                         #  I(6)
004176,000616: 
004177,000617:                                                                                                  #  MISCELLANEOUS UNSWITCHED.                     (20D)
004178,000618: 
004179,000619:    1142                        P40/RET            ERASE                                          #  (WILL BE PUT IN E6 WHEN THERE IS ROOM)
004180,000620:    1143                        GENRET             ERASE                                          #  B(1) R61 RETURN CADR.
004181,000621:    1144                        OPTION1            ERASE                                          #  B(1) NOUN 06 USES THIS
004182,000622:    1145                        OPTION2            ERASE                                          #  B(1) NOUN 06 USES THIS
004183,000623:    1146                        OPTION3            ERASE                                          #  B(1) NOUN 06 USES THIS
004184,000624:    1147                        LONGCADR           ERASE    +1                                    #  B(2) LONGCALL REGISTER
004185,000625:    1151                        LONGBASE           ERASE    +1                                    
004186,000626:    1153                        LONGTIME           ERASE    +1                                    #  B(2) LONGCALL REGISTER
004187,000627:    1155                        CDUTEMPX           ERASE                                          #  B(1)TMP
004188,000628:    1156                        CDUTEMPY           ERASE                                          #  B(1)TMP
004189,000629:    1157                        CDUTEMPZ           ERASE                                          #  B(1)TMP
004190,000630:    1160                        PIPATMPX           ERASE                                          #  B(1)TMP
004191,000631:    1161                        PIPATMPY           ERASE                                          #  B(1)TMP
004192,000632:    1162                        PIPATMPZ           ERASE                                          #  B(1)TMP
004193,000633: 
004194,000634:    1163                        DISPDEX            ERASE                                          #  B(1)
004195,000635:    1164                        TEMPR60            ERASE                                          #  B(1)
004196,000636:    1165                        PRIOTIME           ERASE                                          #  B(1)
004197,000637: 
004198,000638:                                                                                                  #  P27 (UPDATE PROGRAM) STORAGE.                 (26D)
004199,000639: 
004200,000640:    1166                        UPVERBSV           ERASE                                          #  B(1) UPDATE VERB ATTEMPTED.
004201,000641:    1167                        UPTEMP             ERASE    +24D                                  #  B(1)TMP SCRATCH
004202,000642:    1220     1167               INTWAK1Q           EQUALS   UPTEMP                                #  (BORROWS UPTEMP REGISTERS)
004203,000643:                                                                                                  #  RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
004204,000644:    1220     1170               COMPNUMB           EQUALS   UPTEMP     +1                         #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
004205,000645:    1220     1171               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP INTERRUPTED PROGRAM MM
004206,000646:    1220     1172               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
004207,000647:    1220     1173               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
004208,000648:    1220     1174               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
004209,000649: 
004210,000650:                                                                                                  #  SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS.     (2D)
004211,000651: 
004212,000652:    1220     1167               EBUF2              EQUALS   UPTEMP                                #  B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
004213,000653: 

Page 105

004215,000655:                                                                                                  #  PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION-      (14D)
004216,000656: 
004217,000657:    1220                        RN                 ERASE    +5                                    #  B(6)PRM
004218,000658:    1226                        VN                 ERASE    +5                                    #  B(6)PRM
004219,000659:    1234                        PIPTIME            ERASE    +1                                    #  B(2)PRM (MUST BE FOLLOWED BY GDT/2)
004220,000660: 
004221,000661:                                                                                                  #  SERVICER -MUST FOLLOW PIPTIME-                (19D)
004222,000662: 
004223,000663:    1236                        GDT/2              ERASE    +19D                                  #  B(6)TMP (MUST FOLLOW PIPTIME)
004224,000664:    1262     1244               MASS               EQUALS   GDT/2      +6                         #  B(2)
004225,000665:    1262     1244               WEIGHT/G           =        MASS                                  
004226,000666:    1262     1246               ABDELV             EQUALS   MASS       +2                         #  ALCMANU STORAGE)
004227,000667:    1262     1247               PGUIDE             EQUALS   ABDELV     +1                         #  (2)
004228,000668:    1262     1251               DVTHRUSH           EQUALS   PGUIDE     +2                         #  (1)
004229,000669:    1262     1252               AVEGEXIT           EQUALS   DVTHRUSH   +1                         #  (2)
004230,000670:    1262     1252               AVGEXIT            =        AVEGEXIT                              
004231,000671:    1262     1254               TEMX               EQUALS   AVEGEXIT   +2                         #  (1)
004232,000672:    1262     1255               TEMY               EQUALS   TEMX       +1                         #  (1)
004233,000673:    1262     1256               TEMZ               EQUALS   TEMY       +1                         #  (1)
004234,000674:    1262     1257               PIPAGE             EQUALS   TEMZ       +1                         #  B(1)
004235,000675:    1262     1260               OUTROUTE           EQUALS   PIPAGE     +1                         #  B(1)
004236,000676: 
004237,000677:                                                                                                  #  PERMANENT LEM DAP STORAGE.            (12D)
004238,000678: 
004239,000679:    1262                        CH5MASK            ERASE                                          #  B(1)PRM
004240,000680:    1263                        CH6MASK            ERASE                                          #  B(1)PRM JET FAILURE MASK.
004241,000681:    1264                        DTHETASM           ERASE    +5                                    #   (6)
004242,000682:    1272                        SPNDX              ERASE                                          #  B(1)
004243,000683:    1273                        RCSFLAGS           ERASE                                          #  AUTOPILOT FLAG WORD
004244,000684:                                                                                                  #  BIT ASSIGNMENTS:
004245,000685:                                                                                                  #   1) ALTERYZ SWITCH (ZEROOR1)
004246,000686:                                                                                                  #   2) NEEDLER SWITCH
004247,000687:                                                                                                  #   3) NEEDLER SWITCH
004248,000688:                                                                                                  #   4) NEEDLER SWITCH
004249,000689:                                                                                                  #   5) NEEDLER SWITCH
004250,000690:                                                                                                  #   9) JUST-IN-DETENT SWITCH
004251,000691:                                                                                                  #  10) PBIT - MANUAL CONTROL SWITCH
004252,000692:                                                                                                  #  11) QRBIT - MANUAL CONTROL SWITCH
004253,000693:                                                                                                  #  12) PSKIP CONTROL (PJUMPADR)
004254,000694:                                                                                                  #  13) 1/ACCJOB CONTROL (ACCSET)
004255,000695:    1274                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
004256,000696:                                                                                                  #  BBCON  OF NEXT LM DAP T5RUPT.   2CADR
004257,000697: 
004258,000698:                                                                                                  #  ERASABLES FOR P64:  OVERLAY OF DTHETASM, WHICH IS UNUSED      (4D)
004259,000699:    1276     1264               ZERLINA            EQUALS   DTHETASM                              #  B(1)  P64
004260,000700: 

Page 106

004262,000702:    1276     1265               ELVIRA             EQUALS   ZERLINA    +1                         #  B(1)  P64
004263,000703:    1276     1266               AZINCR1            EQUALS   ELVIRA     +1                         #  B(1)  P64
004264,000704:    1276     1267               ELINCR1            EQUALS   AZINCR1    +1                         #  B(1)  P64
004265,000705: 
004266,000706:                                                                                                  #  RCS FAILURE MONITOR STORAGE.          (1)
004267,000707: 
004268,000708:    1276                        PVALVEST           ERASE                                          #  B(1)PRM
004269,000709: 
004270,000710:                                                                                                  #  KALCMANU/DAP INTERFACE.                       (3D)
004271,000711: 
004272,000712:    1277                        DELPEROR           ERASE                                          #  B(1)PRM COMMAND LAGS.
004273,000713:    1300                        DELQEROR           ERASE                                          #  B(1)PRM
004274,000714:    1301                        DELREROR           ERASE                                          #  B(1)PRM
004275,000715: 
004276,000716:                                                                                                  #  MODE SWITCHING ERASABLE.                      (9D)
004277,000717: 
004278,000718:                                                                                                  #  RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
004279,000719:    1302                        IMODES30           ERASE                                          #  B(1)
004280,000720:    1303                        IMODES33           ERASE                                          
004281,000721:    1304                        MODECADR           ERASE    +2                                    #  B(3)PRM
004282,000722:    1307     1304               IMUCADR            EQUALS   MODECADR                              
004283,000723:    1307     1305               OPTCADR            EQUALS   MODECADR   +1                         
004284,000724:    1307     1306               RADCADR            EQUALS   MODECADR   +2                         
004285,000725:    1307                        ATTCADR            ERASE    +2                                    #  B(3)PRM
004286,000726:    1312     1311               ATTPRIO            =        ATTCADR    +2                         
004287,000727:    1312                        MARKSTAT           ERASE                                          
004288,000728: 
004289,000729:                                                                                                  #  T4RUPT ERASABLE.                              (2D)
004290,000730: 
004291,000731:    1313                        DSRUPTSW           ERASE                                          
004292,000732:    1314                        LGYRO              ERASE                                          #  (1)
004293,000733: 
004294,000734:                                                                                                  #  RENDEZVOUS RADAR TASK STORAGE                 (3D)
004295,000735: 
004296,000736:    1315                        RRRET              ERASE    +2D                                   #  B(1)TMP       P20'S, PERHAPS R29 & R12
004297,000737:    1320     1316               RDES               EQUALS   RRRET      +1                         #  B(1)TMP
004298,000738:    1320     1317               RRINDEX            EQUALS   RDES       +1                         #  B(1)TMP
004299,000739: 
004300,000740:                                                                                                  #  MEASINC                                       (4D)
004301,000741: 
004302,000742:    1320                        WIXA               ERASE                                          #  B(1)
004303,000743:    1321                        WIXB               ERASE                                          #  B(1)
004304,000744:    1322                        ZIXA               ERASE                                          #  B(1)
004305,000745:    1323                        ZIXB               ERASE                                          #  B(1)
004306,000746: 

Page 107

004308,000748: 
004309,000749:                                                                                                  #  AGS DUMMY ID WORD.                            (1D)
004310,000750: 
004311,000751:    1324                        AGSWORD            ERASE                                          
004312,000752: 
004313,000753:                                                                                                  #  SOME MISCELLANEOUS UNSWITCHED.                (6D)
004314,000754: 
004315,000755:    1325                        RATEINDX           ERASE                                          #  (1) USED BY KALCMANU
004316,000756:    1326                        DELAYLOC           ERASE    +2                                    
004317,000757:    1331                        LEMMASS            ERASE                                          #  KEEP CONTIGUOUS W. CSMMASS  (1) EACH
004318,000758:    1332                        CSMMASS            ERASE                                          
004319,000759: 
004320,000760:                                                                                                  #  LESS IS MORE.
004321,000761: 
004322,000762:                                                                                                  #  RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE.        (7D)
004323,000763: 
004324,000764:                                                                                                  #        (NORMALLY USED DURING P20, BUT MAY ALSO)
004325,000765:                                                                                                  #        (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
004326,000766: 
004327,000767:                                                                                                  #                    (PLEASE KEEP IN THIS ORDER)
004328,000768: 
004329,000769:    1333                        DNRRANGE           ERASE    +6                                    #  B(1)TMP
004330,000770:    1342     1334               DNRRDOT            EQUALS   DNRRANGE   +1                         #  B(1)TMP
004331,000771:    1342     1335               DNINDEX            EQUALS   DNRRDOT    +1                         #  B(1)TMP
004332,000772:    1342     1336               DNLRVELX           EQUALS   DNINDEX    +1                         #  B(1)TMP
004333,000773:    1342     1337               DNLRVELY           EQUALS   DNLRVELX   +1                         #  B(1)TMP
004334,000774:    1342     1340               DNLRVELZ           EQUALS   DNLRVELY   +1                         #  B(1)TMP
004335,000775:    1342     1341               DNLRALT            EQUALS   DNLRVELZ   +1                         #  B(1)TMP
004336,000776: 
004337,000777:                                                                                                  #  INCORPORATION UNSWITCHED.                     (2D)
004338,000778: 
004339,000779:    1342     1257               W.IND              EQUALS   PIPAGE                                #  B(1)
004340,000780:    1342     1260               W.INDI             EQUALS   W.IND      +1                         #  I(1)
004341,000781: 
004342,000782:                                                                                                  #  SUBROUTINE BALLANGS OF R60.                   (1D)
004343,000783: 
004344,000784:    1342                        BALLEXIT           ERASE                                          #  B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT
004345,000785: 
004346,000786:                                                                                                  #  SOME LEM DAP STORAGE.                         (4D)
004347,000787: 
004348,000788:    1343                        DAPDATR1           ERASE                                          #  B(1)DSP DAP CONFIG.
004349,000789:    1344                        TEVENT             ERASE    +1                                    #  B(2)DSP
004350,000790:    1346                        DB                 ERASE                                          #  B(1)TMP DEAD BAND.
004351,000791: 
004352,000792:                                                                                                  #  NOUN 87                                       (2D)
004353,000793:    1347                        AZ                 ERASE    +1D                                   #  B(1) AZ AND EL MUST BE CONTIGUOUS
004354,000794: 

Page 108

004356,000796:    1351     1350               EL                 EQUALS   AZ         +1D                        #  B(1)
004357,000797: 
004358,000798:                                                                                                  #  P63, P64, P65, P66, AND P67.                  (1D)
004359,000799: 
004360,000800:    1351                        WCHPHASE           ERASE                                          #  B(1)
004361,000801: 
004362,000802:                                                                                                  #  ERASABLES FOR THE R2 LUNAR POTENTIAL MODEL    (2D)
004363,000803: 
004364,000804:    1352                        E3J22R2M           ERASE                                          #  I(1)
004365,000805:    1353                        E32C31RM           ERASE                                          #  I(1)
004366,000806: 
004367,000807: 
004368,000808:    1354                        RADSKAL            ERASE    +1                                    #  LR ALT DOPPLER BIAS: 2T/LAMBDA SCALED
004369,000809:                                                                                                  #      AT 1/(2(7) M/CS)
004370,000810:    1356                        SKALSKAL           ERASE                                          #  LR ALT SCALE FACTOR RATIO: .2 NOM
004371,000811: 
004372,000812:    1357                        END-UE             EQUALS                                         #  NEXT UNUSED UE ADDRESS 
004373,000813: 
004374,000814:                                                                                                  #           SELF-CHECK ASSIGNMENTS.              (17D)
004375,000815: 
004376,000816:                                                                                                  #                                  (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
004377,000817: 
004378,000818:    1357                        SELFERAS           ERASE    1357       -          1377            #  *** MUST NOT BE MOVED ***
004379,000819:    1357     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
004380,000820:    1357     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
004381,000821:    1357     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1) RETURN
004382,000822:    1357     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
004383,000823:    1357     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2) ALARM-ABORT USER'S 2CADR
004384,000824:    1357     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
004385,000825:    1357     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
004386,000826:    1357     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
004387,000827:    1357     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
004388,000828:    1357     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
004389,000829:    1357     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
004390,000830:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
004391,000831:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
004392,000832:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)

Page 109

004394,000834:                                                                                                  #  EBANK-3 ASSIGNMENTS
004395,000835: 
004396,000836: E3,1400                                           SETLOC   1400                                  
004397,000837: 
004398,000838:                                                                                                  #  WAITLIST TASK LISTS.                                  (26D)
004399,000839: 
004400,000840: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM DELTA T S.
004401,000841: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
004402,000842: 
004403,000843:                                                                                                  #  RESTART STORAGE.                                      (2D)
004404,000844: 
004405,000845: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
004406,000846: 
004407,000847:                                                                                                  #  MORE LONGCALL STORAGE.  (MUST BE IN LST1 S BANK.      (2D)
004408,000848: 
004409,000849: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
004410,000850: 
004411,000851:                                                                                                  #  PHASE-CHANGE LISTS PART II.                           (12D)
004412,000852: 
004413,000853: 
004414,000854: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
004415,000855: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
004416,000856: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
004417,000857: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
004418,000858: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
004419,000859: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
004420,000860: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
004421,000861: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
004422,000862: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
004423,000863: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
004424,000864: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
004425,000865: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
004426,000866: 
004427,000867:                                                                                                  #  IMU COMPENSATION PARAMETERS.                          (22D)
004428,000868: 
004429,000869: E3,1452                        PBIASX             ERASE                                          #  B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
004430,000870: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #  INTERMIXED.
004431,000871: E3,1453                        PIPASCFX           ERASE                                          
004432,000872: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
004433,000873: E3,1454                        PBIASY             ERASE                                          
004434,000874: E3,1455                        PIPASCFY           ERASE                                          
004435,000875: E3,1456                        PBIASZ             ERASE                                          
004436,000876: E3,1457                        PIPASCFZ           ERASE                                          
004437,000877: 
004438,000878: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
004439,000879: E3,1461                        NBDY               ERASE                                          
004440,000880: E3,1462                        NBDZ               ERASE                                          

Page 110

004442,000882: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
004443,000883: E3,1464                        ADIAY              ERASE                                          #  INPUT AXIS
004444,000884: E3,1465                        ADIAZ              ERASE                                          
004445,000885: 
004446,000886: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
004447,000887: E3,1467                        ADSRAY             ERASE                                          #  SPIN REFERENCE AXIS
004448,000888: E3,1470                        ADSRAZ             ERASE                                          
004449,000889: 
004450,000890: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
004451,000891: 
004452,000892: E3,1477  E3,1471               COMMAND            EQUALS   GCOMP                                 
004453,000893: E3,1477  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
004454,000894: 
004455,000895: E3,1477                        GCOMPSW            ERASE                                          
004456,000896: 
004457,000897:                                                                                                  #  STATE VECTORS FOR ORBIT INTEGRATION.          (44D)
004458,000898: 
004459,000899:                                                                                                  #                (DIFEQCNT THRU XKEP MUST BE IN SAME
004460,000900:                                                                                                  #                EBANK AS RRECTCSM, RRECTLEM ETC
004461,000901:                                                                                                  #                BECAUSE THE COPY-CYCLES (ATOPCSM,
004462,000902:                                                                                                  #                PTOACSM ETC) ARE EXECUTED IN BASIC.
004463,000903:                                                                                                  #                ALL OTHER REFERENCES TO THIS GROUP
004464,000904:                                                                                                  #                ARE BY INTERPRETIVE INSTRUCTIONS.)
004465,000905: 
004466,000906: 
004467,000907: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)
004468,000908:                                                                                                  #  (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
004469,000909: 
004470,000910: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)
004471,000911: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)
004472,000912: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)
004473,000913: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)
004474,000914: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)
004475,000915: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)
004476,000916: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)
004477,000917: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)
004478,000918: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)
004479,000919: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)
004480,000920: 
004481,000921:                                                                                                  #  PERMANENT STATE VECTORS AND TIMES.    (99D)
004482,000922: 
004483,000923:                                                                                                  #  (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
004484,000924: 
004485,000925:                                                                                                  #  (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER)
004486,000926: 
004487,000927: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
004488,000928: E3,1562  E3,1554               RRECTOTH           =        RRECTCSM                              
004489,000929: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM

Page 111

004491,000931: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
004492,000932: E3,1572  E3,1570               TETOTHER           =        TETCSM                                
004493,000933: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
004494,000934: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
004495,000935: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
004496,000936: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
004497,000937: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
004498,000938: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
004499,000939: 
004500,000940:                                                                                                  #  (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER)
004501,000941: 
004502,000942: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
004503,000943: E3,1634  E3,1626               RRECTHIS           =        RRECTLEM                              
004504,000944: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
004505,000945: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
004506,000946: E3,1644  E3,1642               TETTHIS            =        TETLEM                                
004507,000947: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
004508,000948: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
004509,000949: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
004510,000950: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
004511,000951: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
004512,000952: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
004513,000953: 
004514,000954: E3,1700                        X789               ERASE    +5                                    
004515,000955: E3,1706                        TEPHEM             ERASE    +2                                    
004516,000956: E3,1711                        AZO                ERASE    +1                                    
004517,000957: E3,1713                        -AYO               ERASE    +1                                    
004518,000958: E3,1715                        AXO                ERASE    +1                                    
004519,000959: 
004520,000960:                                                                                                  #  STATE VECTORS FOR DOWNLINK.                   (12D)
004521,000961: 
004522,000962: E3,1717                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
004523,000963: E3,1725                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
004524,000964: 
004525,000965: E3,1733  E3,1570               T-OTHER            =        TETCSM                                #              TIME (OTHER VECH) FOR DNLINK
004526,000966: 
004527,000967:                                                                                                  #  REFSMMAT.                                     (18D)
004528,000968: 
004529,000969: E3,1733                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
004530,000970: 
004531,000971:                                                                                                  #  ACTIVE VEHICLE CENTANG.  MUST BE DISPLAYED ANYTIME (ALMOST.)  (2D)
004532,000972: 
004533,000973: E3,1755                        ACTCENT            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
004534,000974:                                                                                                  #  VEHICLE AT TPI TIG AND TARGET VECTOR.
004535,000975: 
004536,000976:                                                                                                  #  **** USED IN CONICSEX (PLAN INERT ORIENT) ****

Page 112

004538,000978: E3,1757  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PRECISION)
004539,000979: 
004540,000980:                                                                                                  #  LPS20.1 STORAGE       -ALL ARE PRM -          (9D)
004541,000981: 
004542,000982: E3,1757                        LS21X              ERASE                                          #  I(1)
004543,000983: E3,1760                        LOSVEL             ERASE    +5                                    #  I(6)
004544,000984: E3,1766                        MLOSV              ERASE    +1                                    #  I(2) MAGNITUDE OF LOS, METERS B-29
004545,000985: 
004546,000986:                                                                                                  #  ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE)   (6D)
004547,000987: E3,1770  E3,1760               VSUBC              EQUALS   LOSVEL                                #  I(6) S-S CSM VELOCITY VECTOR
004548,000988: 
004549,000989:                                                                                                  #  PADLOADED ERASABLES FOR P20/P22               (6D)
004550,000990: 
004551,000991: E3,1770                        RANGEVAR           ERASE    +1                                    #  I(2) RR RANGE ERROR VARIANCE
004552,000992: E3,1772                        RATEVAR            ERASE    +1                                    #  I(2) RR RANGE-RATE ERROR VARIANCE
004553,000993: E3,1774                        RVARMIN            ERASE                                          #  I(1) MINIMUM RANGE ERROR VARIANCE
004554,000994: E3,1775                        VVARMIN            ERASE                                          #  I(1) MINIMUM RANGE-RATE ERROR VARIANCE
004555,000995: 
004556,000996:                                                                                                  #  P32-P33 STORAGE                               (2D)
004557,000997: 
Warning:  May overflow memory bank.
004558,000998: E3,1776                        TCDH               ERASE    +1                                    #  I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED
004559,000999: 
004560,001000: E3,1777                        END-E3             EQUALS   1777                                  #  ** LAST LOCATION USED IN E3 **
004561,001001: 

Page 113

004563,001003:                                                                                                  #  EBANK-4 ASSIGNMENTS
004564,001004: 
004565,001005: E4,1400                                           SETLOC   2000                                  
004566,001006: 
004567,001007:                                                                                                  #  E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
004568,001008: 
004569,001009: E4,1400                        AMEMORY            EQUALS                                         
004570,001010: 
004571,001011:                                                                                                  #  P20 STORAGE.  -PAD LOADED-                            (6D)
004572,001012: 
004573,001013: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL        KM*2(-7)
004574,001014: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL        KM(-1/2)*2(11)
004575,001015: E4,1402                        WSHAFT             ERASE                                          #  B(1)PL        KM*2(-7)
004576,001016: E4,1403                        WTRUN              ERASE                                          #  B(1)PL        KM*2(-7)
004577,001017: E4,1404                        RMAX               ERASE                                          #  B(1)PL        METERS*2(-19)
004578,001018: E4,1405                        VMAX               ERASE                                          #  B(1)PL        M/CSEC*2(-7)
004579,001019: 
004580,001020:                                                                                                  #  LUNAR SURFACE NAVIGATION                              (2D)
004581,001021: 
004582,001022: E4,1406                        WSURFPOS           ERASE                                          #  B(1)PL
004583,001023: E4,1407                        WSURFVEL           ERASE                                          #  B(1)PL
004584,001024: 
004585,001025:                                                                                                  #  P22 STORAGE.  -PAD LOADED-            (2D)
004586,001026: 
004587,001027: E4,1410                        SHAFTVAR           ERASE                                          #  B(1)PL        RAD SQ*2(12)
004588,001028: E4,1411                        TRUNVAR            ERASE                                          #  B(1)PL        RAD SQ*2(10)
004589,001029: 
004590,001030:                                                                                                  #  CONISEX STORAGE.-PAD LOADED-          (6D)
004591,001031: 
004592,001032: E4,1412                        504LM              ERASE    +5                                    #  I(6) MOON LIBRATION VECTOR
004593,001033: 
004594,001034:                                                                                                  #  V47 (R47) AGS INITIALIZATION STORAGE. -PAD LOADED-    (2D)
004595,001035: 
004596,001036: E4,1420                        AGSK               ERASE    +1                                    
004597,001037: 
004598,001038:                                                                                                  #  LUNAR LANDING STORAGE. -PAD LOADED-                   (6D)
004599,001039: 
004600,001040: E4,1422                        RLS                ERASE    +5                                    #  I(6) LANDING SITE VECTOR -MOON REF
004601,001041: 
004602,001042:                                                                                                  #  INTEGRATION STORAGE.                          (102D)
004603,001043: 
004604,001044: E4,1430                        PBODY              ERASE    +101D                                 #  I(1)

Page 114

004606,001046: E4,1576  E4,1431               ALPHAV             EQUALS   PBODY      +1                         #  I(6)
004607,001047: E4,1576  E4,1437               BETAV              EQUALS   ALPHAV     +6                         #  I(6)
004608,001048: E4,1576  E4,1445               PHIV               EQUALS   BETAV      +6                         #  I(6)
004609,001049: E4,1576  E4,1453               PSIV               EQUALS   PHIV       +6                         #  I(6)
004610,001050: E4,1576  E4,1461               FV                 EQUALS   PSIV       +6                         #  I(6)  PERTURBING ACCELERATIONS
004611,001051: E4,1576  E4,1467               ALPHAM             EQUALS   FV         +6                         #  I(2)
004612,001052: E4,1576  E4,1471               BETAM              EQUALS   ALPHAM     +2                         #  I(2)
004613,001053: E4,1576  E4,1473               TAU.               EQUALS   BETAM      +2                         #  I(2)
004614,001054: E4,1576  E4,1475               DT/2               EQUALS   TAU.       +2                         #  I(2)
004615,001055: E4,1576  E4,1477               H                  EQUALS   DT/2       +2                         #  I(2)
004616,001056: E4,1576  E4,1501               GMODE              EQUALS   H          +2                         #  I(1)
004617,001057: E4,1576  E4,1502               IRETURN            EQUALS   GMODE      +1                         #  I(1)
004618,001058: E4,1576  E4,1503               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)
004619,001059: E4,1576  E4,1504               RPQV               EQUALS   NORMGAM    +1                         
004620,001060: E4,1576  E4,1512               ORIGEX             EQUALS   RPQV       +6                         #  I(1)
004621,001061: E4,1576  E4,1512               KEPRTN             EQUALS   ORIGEX                                #  I(1)
004622,001062: E4,1576  E4,1513               RQVV               EQUALS   ORIGEX     +1                         #  I(6)
004623,001063: E4,1576  E4,1521               RPSV               EQUALS   RQVV       +6                         #  I(6)
004624,001064: E4,1576  E4,1527               XKEPNEW            EQUALS   RPSV       +6                         #  I(2)
004625,001065: E4,1576  E4,1531               VECTAB             EQUALS   XKEPNEW    +2                         #  I(36D)
004626,001066: E4,1576  E4,1574               VECTABND           EQUALS   VECTAB     +35D                       #  END MARK
004627,001067: 
004628,001068:                                                                                                  #  THESE PROBABLY CAN SHARE MID-COURSE VARIABLES.        (6D)
004629,001069: 
004630,001070: E4,1576  E4,1537               VACX               EQUALS   VECTAB     +6                         #  I(2)
004631,001071: E4,1576  E4,1541               VACY               EQUALS   VACX       +2                         #  I(2)
004632,001072: E4,1576  E4,1543               VACZ               EQUALS   VACY       +2                         #  I(2)
004633,001073: 
004634,001074:                                                                                                  #  SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.)  (18D)
004635,001075: 
004636,001076: E4,1576  E4,1545               XNBPIP             EQUALS   VECTAB     +12D                       #  I(6)
004637,001077: E4,1576  E4,1553               YNBPIP             EQUALS   XNBPIP     +6                         #  I(6)
004638,001078: E4,1576  E4,1561               ZNBPIP             EQUALS   YNBPIP     +6                         #  I(6)
004639,001079: 
004640,001080:                                                                                                  #  SOME VERB 82 STORAGE                          (4D)
004641,001081: 
004642,001082: E4,1576  E4,1517               HAPOX              EQUALS   RQVV       +4                         #  I(2)
004643,001083: E4,1576  E4,1521               HPERX              EQUALS   HAPOX      +2                         #  I(2)
004644,001084: 
004645,001085:                                                                                                  #  V82 STORAGE                                   (6D)
004646,001086: 
004647,001087: E4,1576  E4,1567               VONE'              EQUALS   VECTAB     +30D                       #  I(6)TMP NORMAL VELOCITY VONE / SQRT. MU
004648,001088: 
004649,001089:                                                                                                  #  R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-   (28D)
004650,001090: 

Page 115

004652,001092: E4,1576  E4,1504               BASETHV            EQUALS   RPQV                                  #  I(6) BASE VEL VECTOR THIS VEH
004653,001093: 
004654,001094: E4,1576  E4,1513               BASETIME           EQUALS   RQVV                                  #  I(2) TIME ASSOC WITH BASE VECS
004655,001095: E4,1576  E4,1515               ORIG               EQUALS   RQVV       +2                         #  I(1) =0 FOR EARTH     =2 FOR MOON
004656,001096: E4,1576  E4,1516               STATEXIT           EQUALS   RQVV       +3                         #  I(1) STQ ADDRESS FOR STATEXTP
004657,001097: E4,1576  E4,1517               BASEOTV            EQUALS   RQVV       +4                         #  I(6) BASE VEL VECTOR OTHER VEH
004658,001098: 
004659,001099: E4,1576  E4,1537               BASEOTP            EQUALS   VECTAB     +6                         #  I(6) BASE POS VECTOR OTHER VEH
004660,001100: 
004661,001101: E4,1576  E4,1567               BASETHP            EQUALS   VECTAB     +30D                       #  I(6) BASE POS VECTOR THIS VEH
004662,001102: 
004663,001103:                                                                                                  #  KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D)
004664,001104:                                                                                                  #  CONICS)
004665,001105: 
004666,001106: E4,1576                        EPSILONT           ERASE    +1                                    #  I(2)
004667,001107: 
004668,001108:                                                                                                  #  VERB 83 STORAGE.                              (18D)
004669,001109: 
004670,001110: E4,1600                        RANGE              ERASE    +17D                                  #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
004671,001111: E4,1622  E4,1602               RRATE              EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH.
004672,001112: E4,1622  E4,1604               RTHETA             EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54.
004673,001113: E4,1622  E4,1606               RONE               EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
004674,001114: E4,1622  E4,1614               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
004675,001115: 
004676,001116:                                                                                                  #  VERB 67 STORAGE
004677,001117: 
004678,001118: E4,1622  E4,1600               WWPOS              =        RANGE                                 #  NOUN 99 (V67)
004679,001119: E4,1622  E4,1602               WWVEL              =        RRATE                                 #  NOUN 99 (V67)
004680,001120: E4,1622  E4,1604               WWBIAS             =        RTHETA                                #  NOUN 99 (V67)
004681,001121: 
004682,001122:                                                                                                  #  V82 STORAGE.  (CANNOT OVERLAY RONE OR VONE)   (11D) TWO SEPARATE LOCATIONS
004683,001123: 
004684,001124: E4,1622  E4,1537               V82FLAGS           EQUALS   VECTAB     +6                         #  (1) FOR V82 BITS.
004685,001125: E4,1622  E4,1540               TFF                EQUALS   V82FLAGS   +1                         #  I(2)
004686,001126: E4,1622  E4,1542               -TPER              EQUALS   TFF        +2                         #  I(2)
004687,001127: 
004688,001128: E4,1622  E4,1600               HPERMIN            EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
004689,001129: E4,1622  E4,1602               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
004690,001130: E4,1622  E4,1604               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
004691,001131: 
004692,001132:                                                                                                  #  VARIOUS DISPLAY REGISTERS                     (6D) NOUN 84; P76

Page 116

004694,001134: E4,1622                        DELVOV             ERASE    +5D                                   #  (6)
004695,001135: 
004696,001136:                                                                                                  #  ALIGNMENT PLANETARY -INERTIAL TRANSFORMATION STORAGE. (18D)
004697,001137: 
004698,001138:                                                                                                  #                UNSHARED WHILE LM ON LUNAR SURFACE.
004699,001139: 
004700,001140: E4,1630                        GSAV               ERASE    +17D                                  #  I(6)
004701,001141: E4,1652  E4,1636               YNBSAV             EQUALS   GSAV       +6                         #  I(6)
004702,001142: E4,1652  E4,1644               ZNBSAV             EQUALS   YNBSAV     +6                         #  I(6)
004703,001143: 
004704,001144:                                                                                                  #  KALCMANU STORAGE. CAN OVERLAY GSAV.           (18D)
004705,001145: 
004706,001146: E4,1652  E4,1630               MFS                EQUALS   GSAV                                  #  I(18)
004707,001147: E4,1652  E4,1630               MFI                EQUALS   MFS                                   #  I
004708,001148: E4,1652  E4,1630               KEL                EQUALS   MFS                                   #  I(18)
004709,001149: E4,1652  E4,1630               E01                EQUALS   MFS                                   #  I(6)
004710,001150: E4,1652  E4,1636               E02                EQUALS   E01        +6                         #  I(6)
004711,001151: 
004712,001152:                                                                                                  #  LR VEL BEAM VECTORS.                          (26D)
004713,001153: 
004714,001154:                                                                                                  #  CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
004715,001155: 
004716,001156: E4,1652  E4,1630               VZBEAMNB           EQUALS   GSAV                                  #  I(6) LR VELOCITY BEAMS IN NB COORDS.
004717,001157: E4,1652  E4,1636               VYBEAMNB           EQUALS   VZBEAMNB   +6                         #  I(6)
004718,001158: E4,1652  E4,1644               VXBEAMNB           EQUALS   VYBEAMNB   +6                         #  I(6) PRESERVE Z,Y,X ORDER.
004719,001159: 
004720,001160: E4,1652  E4,1652               LRVTIME            =        VXBEAMNB   +6                         #  B(2) LR
004721,001161: E4,1652  E4,1654               LRXCDU             =        LRVTIME    +2                         #  B(1) LR
004722,001162: E4,1652  E4,1655               LRYCDU             =        LRXCDU     +1                         #  B(1) LR
004723,001163: E4,1652  E4,1656               LRZCDU             =        LRYCDU     +1                         #  B(1) LR
004724,001164: E4,1652  E4,1657               PIPTEM             =        LRZCDU     +1                         #  B(3) LR
004725,001165: 
004726,001166:                                                                                                  #  P32-P35, P72-P75 STORAGE.                     (40D)
004727,001167: 
004728,001168: E4,1652                        T1TOT2             ERASE    +1                                    #  (2)   TIME FROM CSI TO CDH
004729,001169: E4,1654                        T2TOT3             ERASE    +1                                    #  (2)
004730,001170: E4,1656                        ELEV               ERASE    +1                                    #  (2)
004731,001171: E4,1660                        UP1                ERASE    +5                                    #  (6)
004732,001172: E4,1666                        DELVEET1           ERASE    +5                                    #  I(6)  DV CSI IN REF
004733,001173: E4,1674                        DELVEET2           ERASE    +5                                    #  I(6)  DV CSH IN REF
004734,001174: E4,1702                        RACT1              ERASE    +5                                    #  (6)   POS VEC OF ACTIVE AT CSI TIME
004735,001175: E4,1710                        RACT2              ERASE    +5                                    #  (6)   POS VEC OF ACTIVE AT CDH TIME

Page 117

004737,001177: E4,1716                        RTSR1/MU           ERASE    +1                                    #  (2)   SQ ROOT 1/MU STORAGE
004738,001178: E4,1720                        RTMU               ERASE    +1                                    #  (2)   MU STORAGE
004739,001179: 
004740,001180:                                                                                                  #  (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
004741,001181: 
004742,001182: E4,1722  E4,1652               +MGA               EQUALS   T1TOT2                                #  (2) S-S + MID GIM ANGL TO DELVEET3
004743,001183: 
004744,001184: E4,1722  E4,1660               UNRM               EQUALS   UP1                                   #  I(6) S-S
004745,001185: 
004746,001186: E4,1722  E4,1702               DVLOS              EQUALS   RACT1                                 #  I(6) S-S DELTA VELOCITY, LOS COORD-DISPLA
004747,001187: E4,1722  E4,1710               ULOS               EQUALS   RACT2                                 #  I(6) S-S UNIT LINE OF SIGHT VECTOR
004748,001188: 
004749,001189: E4,1722  E4,1716               NOMTPI             EQUALS   RTSR1/MU                              #  (2) S-S NOMINAL TPI TIME FOR RECYCLE
004750,001190: 
004751,001191:                                                                                                  #  SOME P30 STORAGE.                             (4D)
004752,001192: 
004753,001193: E4,1722  E4,1716               HAPO               EQUALS   RTSR1/MU                              #  I(2)
004754,001194: E4,1722  E4,1720               HPER               EQUALS   HAPO       +2                         #  I(2)
004755,001195: 
004756,001196: 
004757,001197:                                                                                                  #  SOME P38-P39,P78-79 STORAGE.                  (6D)
004758,001198: 
004759,001199: E4,1722  E4,1702               DELTAR             EQUALS   DVLOS                                 #  I(2)
004760,001200: E4,1722  E4,1704               DELTTIME           EQUALS   DELTAR     +2                         #  I(2) TIME REPRESENTATION OF DELTAR
004761,001201: E4,1722  E4,1706               TARGTIME           EQUALS   DELTTIME   +2                         #  I(2) TINT MINUS DELTTIME
004762,001202: 
004763,001203: E4,1722  E4,1702               TINTSOI            EQUALS   DELTAR                                #  I(2) TIME OF INTERCEPT FOR SOI PHASE
004764,001204: 
004765,001205:                                                                                                  #  THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
004766,001206: 
004767,001207: E4,1722  E4,1400               TRANSM1            =        WRENDPOS                              #  E4,1400
004768,001208: E4,1722  E4,1422               ALFDK              =        TRANSM1    +18D                       
004769,001209: 
004770,001210:                                                                                                  #  ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
004771,001211: 
004772,001212:                                                                                                  #  V47 (R47) AGS INITIALIZATION PROGRAM STORAGE.  (OVERLAYS V83) (14D)
004773,001213: 
004774,001214: E4,1722  E4,1600               AGSBUFF            EQUALS   RANGE                                 #  B(14D)
004775,001215: E4,1722  E4,1615               AGSBUFFE           EQUALS   AGSBUFF    +13D                       #  ENDMARK

Page 118

004777,001217: 
004778,001218:                                                                                                  #  R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE.  (OVERLAYS V83)  (12D)
004779,001219: 
004780,001220: E4,1722  E4,1606               RPASS36            EQUALS   RONE                                  #  I(6) S-S
004781,001221: E4,1722  E4,1614               UNP36              EQUALS   RPASS36    +6                         #  I(6) S-S
004782,001222: 
004783,001223:                                                                                                  #  S-BAND ANTENNA GIMBAL ANGLES.  DISPLAYED BY R05 (V64).  (OVERLAYS V83)        (10D)
004784,001224:                                                                                                  #                        (OPERATES DURING P00 ONLY)
004785,001225: E4,1722  E4,1600               ALPHASB            EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE.
004786,001226: E4,1722  E4,1602               BETASB             EQUALS   ALPHASB    +2                         #  B(2)DSP NOUN 51.  YAW ANGLE.
004787,001227: E4,1722  E4,1604               RLM                EQUALS   BETASB     +2                         #  I(6)S S/C POSITION VECTOR.
004788,001228: 
004789,001229:                                                                                                  #  **** USED IN S-BAND ANTENNA FOR LM ****
004790,001230: 
004791,001231: E4,1722  E4,1602               YAWANG             EQUALS   BETASB                                
004792,001232: E4,1722  E4,1600               PITCHANG           EQUALS   ALPHASB                               
004793,001233: 
004794,001234:                                                                                                  #  NOUN 56 DATA -COMPUTED AND DISPLAYED BY VERB 85.      (4)
004795,001235: 
004796,001236: E4,1722  E4,1600               RR-AZ              EQUALS   PITCHANG                              #  I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
004797,001237: E4,1722  E4,1602               RR-ELEV            EQUALS   RR-AZ      +2                         #  I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
004798,001238: 
004799,001239:                                                                                                  #  R04 (V62) RADAR TEST STORAGE.                 (8D)
004800,001240:                                                                                                  #  R04 IS RESTRICTED TO P00.
004801,001241: 
004802,001242: E4,1722  E4,1600               RSTACK             EQUALS   RANGE                                 #  B(8) BUFFER FOR R04 NOUNS.
004803,001243: 
004804,001244:                                                                                                  #  INITVEL STORAGE.  ALSO USED BY P31, P34, P35, P74, P75, P10, P11, MIDGIM, S40.1 AND S40.9.    (18D)
004805,001245: 
004806,001246:                                                                                                  #                (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
004807,001247: 
004808,001248: E4,1722                        RINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE POSITION
004809,001249: E4,1730                        VINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE VELOCITY
004810,001250: E4,1736                        VIPRIME            ERASE    +5                                    #  I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
004811,001251: 
004812,001252:                                                                                                  #  VARIOUS DISPLAY REGISTERS.  BALLANGS          (3D)
004813,001253: 
004814,001254: E4,1744                        FDAIX              ERASE                                          #  I(1)
004815,001255: E4,1745                        FDAIY              ERASE                                          #  I(1)
004816,001256: E4,1746                        FDAIZ              ERASE                                          #  I(1)
004817,001257: 
004818,001258:                                                                                                  #  P34-P35 STORAGE.  DOWNLINKED.                 (2D)
004819,001259: 
004820,001260: E4,1747                        DELVTPF            ERASE    +1                                    #  I(2) DELTA V FOR TPF
004821,001261: 
004822,001262:                                                                                                  #  SOME R04(V62)-R77 RADAR TEST STORAGE          (6D)

Page 119

004824,001264: E4,1751                        RTSTDEX            ERASE                                          #  (1)
004825,001265: E4,1752                        RTSTMAX            ERASE                                          #  (1)
004826,001266: E4,1753                        RTSTBASE           ERASE                                          #  (1)
004827,001267: E4,1754                        RTSTLOC            ERASE                                          #  (1)
004828,001268: E4,1755  E4,1754               RSTKLOC            =        RTSTLOC                               
004829,001269: E4,1755                        RSAMPDT            ERASE                                          #  (1)
004830,001270: E4,1756                        RFAILCNT           ERASE                                          #  (1)
004831,001271: 
004832,001272:                                                                                                  #  LPS20.1 STORAGE                               (12D)
004833,001273: 
004834,001274: E4,1757  E4,1751               LMPOS              EQUALS   RTSTDEX                               #  I(6)TEMP.  STORAGE FOR LM POS. VECTOR.
004835,001275: E4,1757  E4,1757               LMVEL              EQUALS   LMPOS      +6                         #  I(6)TEMP.  STORAGE FOR LM VEL. VECTOR.
004836,001276: 
004837,001277:                                                                                                  #  INITVEL STORAGE.  ALSO USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED.  (6D)
004838,001278: 
004839,001279: E4,1757  E4,1765               DELVEET3           EQUALS   LMVEL      +6                         #  I(6) DELTA V IN INERTIAL COORDINATES.
004840,001280: 
004841,001281: 
004842,001282: E4,1757                        END-E4             EQUALS                                         #  FIRST UNUSED LOCATION IN E4
004843,001283: 
004844,001284:                                                                                                  #  SECOND DPS GUIDANCE (LUNAR LANDING)  (OVERLAY P32-35, INITVEL)        (14D)
004845,001285: 
004846,001286: E4,1757  E4,1662               VHORIZ             EQUALS   PIPTEM     +3                         #  I(2) DISPLAY
004847,001287: E4,1757  E4,1664               ANGTERM            EQUALS   VHORIZ     +2                         #  I(6) GUIDANCE
004848,001288: E4,1757  E4,1672               HBEAMNB            EQUALS   ANGTERM    +6                         #  I(6) LANDING RADAR
004849,001289: 
004850,001290:                                                                                                  #  R12 DOWNLINK QUANTITIES                       (5D)
004851,001291: 
004852,001292: E4,1757  E4,1734               LRXCDUDL           EQUALS   /LAND/     +2                         #  B(1) LANDING RADAR DOWNLINK
004853,001293: E4,1757  E4,1735               LRYCDUDL           EQUALS   LRXCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
004854,001294: E4,1757  E4,1736               LRZCDUDL           EQUALS   LRYCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
004855,001295: E4,1757  E4,1737               LRVTIMDL           EQUALS   LRZCDUDL   +1                         #  B(2) LANDING RADAR DOWNLINK
004856,001296: 
004857,001297:                                                                                                  #  ASCENT GUIDANCE FOR LUNAR LANDING             (54D)
004858,001298: 
004859,001299: E4,1757  E4,1662               AT                 EQUALS   PIPTEM     +3                         #  I(2)TMP ENGINE DATA -- THRUST ACC*2(9)
004860,001300: E4,1757  E4,1664               VE                 EQUALS   AT         +2                         #  I(2)TMP EXHAUST VELOCITY * 2(7)M/CS.
004861,001301: E4,1757  E4,1666               TTO                EQUALS   VE         +2                         #  I(2)TMP TAILOFF TIME * 2(17)CS.
004862,001302: E4,1757  E4,1670               TBUP               EQUALS   TTO        +2                         #  I(2)TMP (M/MDOT) * 2(17)CS.
004863,001303: E4,1757  E4,1672               RDOTD              EQUALS   TBUP       +2                         #  I(2)TMP TARGET VELOCITY COMPONENTS
004864,001304: E4,1757  E4,1674               YDOTD              EQUALS   RDOTD      +2                         #  I(2)TMP SCALING IS 2(7)M/CS.
004865,001305: E4,1757  E4,1676               ZDOTD              EQUALS   YDOTD      +2                         #  I(2)TMP
004866,001306: 
004867,001307: E4,1757  E4,1700               /R/MAG             EQUALS   ZDOTD      +2                         #  I(2)TMP
004868,001308: E4,1757  E4,1702               LAXIS              EQUALS   /R/MAG     +2                         #  I(6)TMP

Page 120

004870,001310: E4,1757  E7,1725               ZAXIS1             =        UHZP                                  
004871,001311: E4,1757  E7,1473               RDOT               =        HDOTDISP                              
004872,001312: E4,1757  E4,1710               YDOT               =        LAXIS      +6                         #  I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
004873,001313: E4,1757  E4,1712               ZDOT               EQUALS   YDOT       +2                         #  I(2)TMP DOWN RANGE VEL * 2(-7).
004874,001314: E4,1757  E4,1714               GEFF               EQUALS   ZDOT       +2                         #  I(2)TMP EFFECTIVE GRAVITY
004875,001315: 
004876,001316:                                                                                                  #  THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
004877,001317: 
004878,001318: E4,1757  E4,1734               Y                  EQUALS   /LAND/     +2                         #  I(2)TMP OUT-OF-PLANE DIST *2(24)M
004879,001319: E4,1757  E4,1736               DRDOT              EQUALS   Y          +2                         #  I(2)TMP RDOTD - RDOT
004880,001320: E4,1757  E4,1740               DYDOT              EQUALS   DRDOT      +2                         #  I(2)TMP YDOTD - YDOT
004881,001321: E4,1757  E4,1742               DZDOT              EQUALS   DYDOT      +2                         #  I(2)TMP ZDOTD - ZDOT
004882,001322: E4,1757  E4,1744               PCONS              EQUALS   DZDOT      +2                         #  I(2)TMP CONSTANT IN ATR EQUATION
004883,001323: E4,1757  E4,1746               YCONS              EQUALS   PCONS      +2                         #  I(2)TMP CONSTANT IN ATY EQUATION
004884,001324: E4,1757  E4,1750               PRATE              EQUALS   YCONS      +2                         #  I(2)TMP RATE COEFF. IN ATR EQUATION
004885,001325: E4,1757  E4,1752               YRATE              EQUALS   PRATE      +2                         #  I(2)TMP RATE COEFF. IN ATY EQUATION
004886,001326: E4,1757  E4,1754               ATY                EQUALS   YRATE      +2                         #  I(2)TMP OUT-OF-PLANE THRUST COMP. *2(9)
004887,001327: E4,1757  E4,1756               ATR                EQUALS   ATY        +2                         #  I(2)TMP RADIAL THRUST COMP. * 2(9)
004888,001328: E4,1757  E4,1760               ATP                EQUALS   ATR        +2                         #  I(2)TMP DOWN-RANGE THRUST COMP
004889,001329: E4,1757  E4,1762               YAW                EQUALS   ATP        +2                         #  I(2)TMP
004890,001330: E4,1757  E4,1764               PITCH              EQUALS   YAW        +2                         #  I(2)RMP
004891,001331: 
004892,001332:                                                                                                  #  SERVICER FOR LUNAR ASCENT AND DESCENT         (14D)
004893,001333: 
004894,001334: E4,1757  E4,1716               G(CSM)             EQUALS   GEFF       +2                         #  I(6)  FOR UPDATE OF COMMAND MODULE STATE
004895,001335: E4,1757  E3,1717               R(CSM)             EQUALS   R-OTHER                               #        VECTORS BY LEM; ANALOGS OF GDT/2,
004896,001336: E4,1757  E3,1725               V(CSM)             EQUALS   V-OTHER                               #        R, AND V, RESPECTIVELY OF THE CSM
004897,001337: E4,1757  E4,1724               WM                 EQUALS   G(CSM)     +6                         #  I(6)TMP - LUNAR ROTATION VECTOR (SM)
004898,001338: E4,1757  E4,1732               /LAND/             EQUALS   WM         +6                         #  B(2) LUNAR RADIUS AT LANDING SITE
004899,001339: 

Page 121

004901,001341:                                                                                                  #  EBANK-5 ASSIGNMENTS
004902,001342: 
004903,001343: E5,1400                                           SETLOC   2400                                  
004904,001344: 
004905,001345:                                                                                                  #  W-MATRIX.  ESSENTIALLY UNSHARABLE.            (162D)
004906,001346: 
004907,001347: E5,1400                        W                  ERASE    +161D                                 
004908,001348: E5,1642  E5,1642               ENDW               EQUALS   W          +162D                      
004909,001349: 
004910,001350:                                                                                                  #  ******* OVERLAY NUMBER 1 IN EBANK 5 *******
004911,001351: 
004912,001352:                                                                                                  #                W-MATRIX PADLOADS               (128D)
004913,001353: 
004914,001354:                                                                                                  #  PLEASE RETAIN THE ORDER OF TLAND THRU JAPFG
004915,001355: 
004916,001356: E5,1642  E5,1400               TLAND              EQUALS   W                                     #  I(2)  NOMINAL TIME OF LANDING
004917,001357: E5,1642  E5,1402               RBRFG              EQUALS   TLAND      +2                         #  I(6) BRAKING
004918,001358: E5,1642  E5,1410               VBRFG              EQUALS   RBRFG      +6                         #  I(6)      PHASE
004919,001359: E5,1642  E5,1416               ABRFG              EQUALS   VBRFG      +6                         #  I(6)           TARGET
004920,001360: E5,1642  E5,1424               VBRFG*             EQUALS   ABRFG      +6                         #  I(2)                PARAMETERS:
004921,001361: E5,1642  E5,1426               ABRFG*             EQUALS   VBRFG*     +2                         #  I(2)                     HIGH
004922,001362: E5,1642  E5,1430               JBRFG*             EQUALS   ABRFG*     +2                         #  I(2)                          GATE
004923,001363: E5,1642  E5,1432               GAINBRAK           EQUALS   JBRFG*     +2                         #  B(2)
004924,001364: E5,1642  E5,1434               TCGFBRAK           EQUALS   GAINBRAK   +2                         #  B(1)
004925,001365: E5,1642  E5,1435               TCGIBRAK           EQUALS   TCGFBRAK   +1                         #  B(1)
004926,001366: E5,1642  E5,1436               RAPFG              EQUALS   TCGIBRAK   +1                         #  I(6) APPROACH
004927,001367: E5,1642  E5,1444               VAPFG              EQUALS   RAPFG      +6                         #  I(6)      PHASE
004928,001368: E5,1642  E5,1452               AAPFG              EQUALS   VAPFG      +6                         #  I(6)           TARGET
004929,001369: E5,1642  E5,1460               VAPFG*             EQUALS   AAPFG      +6                         #  I(2)                PARAMETERS:
004930,001370: E5,1642  E5,1462               AAPFG*             EQUALS   VAPFG*     +2                         #  I(2)                     LOW
004931,001371: E5,1642  E5,1464               JAPFG*             EQUALS   AAPFG*     +2                         #  I(2)                          GATE
004932,001372: E5,1642  E5,1466               GAINAPPR           EQUALS   JAPFG*     +2                         #  B(2)
004933,001373: E5,1642  E5,1470               TCGFAPPR           EQUALS   GAINAPPR   +2                         #  B(1)
004934,001374: E5,1642  E5,1471               TCGIAPPR           EQUALS   TCGFAPPR   +1                         #  B(1)
004935,001375: E5,1642  E5,1472               VIGN               EQUALS   TCGIAPPR   +1                         #  I(2)  DESIRED SPEED FOR IGNITION
004936,001376: E5,1642  E5,1474               RIGNX              EQUALS   VIGN       +2                         #  I(2)  DESIRED 'ALTITUDE' FOR IGNITION
004937,001377: E5,1642  E5,1476               RIGNZ              EQUALS   RIGNX      +2                         #  I(2)  DESIRED GROUND RANGE FOR IGNITION
004938,001378: E5,1642  E5,1500               KIGNX/B4           EQUALS   RIGNZ      +2                         #  I(2)
004939,001379: E5,1642  E5,1502               KIGNY/B8           EQUALS   KIGNX/B4   +2                         #  I(2)
004940,001380: E5,1642  E5,1504               KIGNV/B4           EQUALS   KIGNY/B8   +2                         #  I(2)
004941,001381: E5,1642  E5,1506               LOWCRIT            EQUALS   KIGNV/B4   +2                         #  B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
004942,001382: E5,1642  E5,1507               HIGHCRIT           EQUALS   LOWCRIT    +1                         #  B(1)
004943,001383: E5,1642  E5,1510               V2FG               EQUALS   HIGHCRIT   +1                         #  I(6) DESIRED VELOCITY FOR P65.
004944,001384: E5,1642  E5,1516               TAUVERT            EQUALS   V2FG       +6                         #  I(2) TIME CONSTANT FOR P65 VEL. NULLING.
004945,001385: E5,1642  E5,1520               DELQFIX            EQUALS   TAUVERT    +2                         #  I(2) LR ALTITUDE DATA REASONABLE PARM.
004946,001386: E5,1642  E5,1522               LRALPHA            EQUALS   DELQFIX    +2                         #  B(1) POS1 X ROTATION          * MUST *

Page 122

004948,001388: E5,1642  E5,1523               LRBETA1            EQUALS   LRALPHA    +1                         #  B(1) POS1 Y ROTATION          *  BE  *
004949,001389: E5,1642  E5,1524               LRALPHA2           EQUALS   LRBETA1    +1                         #  B(1) POS2 X ROTATION          *  IN  *
004950,001390: E5,1642  E5,1525               LRBETA2            EQUALS   LRALPHA2   +1                         #  B(1) POS2 Y ROTATION          * ORDER*
004951,001391: E5,1642  E5,1526               LRVMAX             EQUALS   LRBETA2    +1                         #  B(1) LR VEL WEIGHTING FUNCTIONS
004952,001392: E5,1642  E5,1527               LRVF               EQUALS   LRVMAX     +1                         #  B(1) LR VEL WEIGHTING FUNCTIONS
004953,001393: E5,1642  E5,1530               LRWVZ              EQUALS   LRVF       +1                         #  B(1) LR VEL WEIGH ING FUNCTIONS
004954,001394: E5,1642  E5,1531               LRWVY              EQUALS   LRWVZ      +1                         #  B(1) LR VEL WEIGH ING FUNCTIONS
004955,001395: E5,1642  E5,1532               LRWVX              EQUALS   LRWVY      +1                         #  B(1) LR VEL WEIGH ING FUNCTIONS
004956,001396: E5,1642  E5,1533               LRWVFZ             EQUALS   LRWVX      +1                         #  B(1) LR VEL WEIGH ING FUNCTIONS
004957,001397: E5,1642  E5,1534               LRWVFY             EQUALS   LRWVFZ     +1                         #  B(1) LR VEL WEIG  ING FUNC IONS
004958,001398: E5,1642  E5,1535               LRWVFX             EQUALS   LRWVFY     +1                         #  B(1) LR VEL WEIG  ING FUNC IONS
004959,001399: E5,1642  E5,1536               LRWVFF             EQUALS   LRWVFX     +1                         #  B(1) LR VEL WEIG  ING FUNC IONS
004960,001400: 
004961,001401: E5,1642     0130               ABVEL*             EQUALS   BUF                                   #  B(1) LR TEMP
004962,001402: E5,1642     0131               VSELECT*           EQUALS   BUF        +1                         #  B(1) LR TEMP
004963,001403: 
004964,001404: E5,1642  E5,1537               RODSCALE           EQUALS   LRWVFF     +1                         #  I(1) CLICK SCALE FACTOR FOR ROD
004965,001405: E5,1642  E5,1540               TAUROD             EQUALS   RODSCALE   +1                         #  I(2) TIME CONSTANT FOR R.O.D.
004966,001406: E5,1642  E5,1542               LAG/TAU            EQUALS   TAUROD     +2                         #  I(2) LAG TIME DIVIDED BY TAUROD (P66)
004967,001407: E5,1642  E5,1544               MINFORCE           EQUALS   LAG/TAU    +2                         #  I(2) MINIMUM FORCE P66 WILL COMMAND.
004968,001408: E5,1642  E5,1546               MAXFORCE           EQUALS   MINFORCE   +2                         #  I(2) MAXIMUM FORCE P66 WILL COMMAND.
004969,001409: E5,1642  E5,1550               ABTCOF             EQUALS   MAXFORCE   +2                         #  I(16) COEFFICIENTS FOR ABORT TFI POLYS.
004970,001410: E5,1642  E5,1570               VMIN               EQUALS   ABTCOF     +16D                       #  I(2) MINIMUM VELOCITY FOR ABORT INJ.
004971,001411: E5,1642  E5,1572               YLIM               EQUALS   VMIN       +2                         #  I(2) MAXIMUM CROSS-RANGE DIST IN ABORTS.
004972,001412: E5,1642  E5,1574               ABTRDOT            EQUALS   YLIM       +2                         #  I(2) DESIRED RADIAL VEL. FOR ABORTS.
004973,001413: E5,1642  E5,1576               COSTHET1           EQUALS   ABTRDOT    +2                         #  I(2) COS OF CONE 1 ANGLE FOR ABORTS
004974,001414: E5,1642  E5,1600               COSTHET2           EQUALS   COSTHET1   +2                         #  I(2) COS OF CONE 2 ANGLE FOR ABORTS.
004975,001415: 
004976,001416:                                                                                                  #  SOME VARIABLES FOR SECOND DPS GUIDANCE        (34D)
004977,001417: 
004978,001418: E5,1642  E5,1602               CG                 EQUALS   COSTHET2   +2                         #  I(18D) GUIDANCE
004979,001419: E5,1642  E5,1624               RANGEDSP           EQUALS   CG         +18D                       #  B(2)     DISPLAY
004980,001420: E5,1642  E5,1626               OUTOFPLN           EQUALS   RANGEDSP   +2                         #  B(2)    DISPLAY
004981,001421: E5,1642  E5,1630               R60VSAVE           EQUALS   OUTOFPLN   +2                         #  I(6)TMP SAVES VALUE OF POINTVSM THRU R51
004982,001422: E5,1642  E5,1636               RGU                EQUALS   R60VSAVE   +6                         #  I(6) UNSHARED FOR DOWNLINK
004983,001423: E5,1642  E5,1630               VBIAS              EQUALS   R60VSAVE                              #  I(6) PIPA BIAS EQUIV. VELOCITY VECTOR.
004984,001424: E5,1642     0130               L*WCR*T            =        BUF                                   
004985,001425: E5,1642     0131               H*GHCR*T           =        BUF        +1                         
004986,001426: 
004987,001427:                                                                                                  #  ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.    (36D)
004988,001428: 
004989,001429: E5,1642  E5,1642               XSM                EQUALS   ENDW                                  #  B(6)
004990,001430: E5,1642  E5,1650               YSM                EQUALS   XSM        +6                         #  B(6)
004991,001431: E5,1642  E5,1656               ZSM                EQUALS   YSM        +6                         #  B(6)
004992,001432: 
004993,001433: E5,1642  E5,1664               XDC                EQUALS   ZSM        +6                         #  B(6)
004994,001434: E5,1642  E5,1672               YDC                EQUALS   XDC        +6                         #  B(6)
004995,001435: E5,1642  E5,1700               ZDC                EQUALS   YDC        +6                         #  B(6)

Page 123

004997,001437: E5,1642  E5,1664               XNB                =        XDC                                   
004998,001438: E5,1642  E5,1672               YNB                =        YDC                                   
004999,001439: E5,1642  E5,1700               ZNB                =        ZDC                                   
005000,001440: 
005001,001441:                                                                                                  #  OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.    (4D)
005002,001442: 
005003,001443: E5,1642  E5,1644               -COSB              EQUALS   XSM        +2                         #  (2)TMP
005004,001444: E5,1642  E5,1646               SINB               EQUALS   -COSB      +2                         #  (2)TMP
005005,001445: 
005006,001446:                                                                                                  #  MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52)    (6D)
005007,001447: 
005008,001448: E5,1642  E5,1706               LANDLAT            EQUALS   STARAD                                #  (2) LATITUDE,LONGITUDE
005009,001449: E5,1642  E5,1710               LANDLONG           EQUALS   LANDLAT    +2                         #  (2)   AND ALTITUDE
005010,001450: E5,1642  E5,1712               LANDALT            EQUALS   LANDLONG   +2                         #  (2)   OF LANDING SITE
005011,001451: 
005012,001452:                                                                                                  #  ALIGNMENT/SYSTEST COMMON STORAGE.             (31D)
005013,001453: 
005014,001454: E5,1642  E5,1706               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
005015,001455: E5,1642  E5,1730               STAR               EQUALS   STARAD     +18D                       #  I(6)
005016,001456: E5,1642  E5,1736               GCTR               EQUALS   STAR       +6                         #  B(1)
005017,001457: E5,1642  E5,1737               OGC                EQUALS   GCTR       +1                         #  I(2)
005018,001458: E5,1642  E5,1741               IGC                EQUALS   OGC        +2                         #  I(2)
005019,001459: E5,1642  E5,1743               MGC                EQUALS   IGC        +2                         #  I(2)
005020,001460: 
005021,001461:                                                                                                  #  P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE)   (12D)
005022,001462: 
005023,001463: E5,1642  E5,1706               GACC               =        STARAD                                #  (6) SS
005024,001464: E5,1642  E5,1714               GOUT               =        STARAD     +6                         #  (6) SS
005025,001465: 
005026,001466:                                                                                                  #  OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE      (24D)
005027,001467: 
005028,001468: E5,1642  E5,1706               VEARTH             EQUALS   STARAD                                #  (6)TMP
005029,001469: E5,1642  E5,1714               VSUN               EQUALS   VEARTH     +6                         #  (6)TMP
005030,001470: E5,1642  E5,1722               VMOON              EQUALS   VSUN       +6                         #  (6)TMP
005031,001471: E5,1642  E5,1730               SAX                EQUALS   VMOON      +6                         #  (6)TMP
005032,001472: 
005033,001473:                                                                                                  #  P50'S, R50'S Q STORES.                                (2D)
005034,001474: 
005035,001475: E5,1642  E5,1745               QMIN               EQUALS   MGC        +2                         #  B(1)TMP
005036,001476: E5,1642  E5,1746               QMAJ               EQUALS   QMIN       +1                         #  B(1)TMP
005037,001477: 
005038,001478:                                                                                                  #  **** USED IN P50S **** (SCATTERED OVERLAYS)
005039,001479: 
005040,001480: E5,1642  E5,1706               XSCI               EQUALS   STARAD                                
005041,001481: E5,1642  E5,1714               YSCI               EQUALS   XSCI       +6                         

Page 124

005043,001483: E5,1642  E5,1714               ZSCI               EQUALS   YSCI                                  
005044,001484: E5,1642  E5,1706               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
005045,001485: E5,1642  E5,1722               VEC1               EQUALS   STARAD     +12D                       
005046,001486: E5,1642  E5,1730               VEC2               EQUALS   STAR                                  
005047,001487: 
005048,001488:                                                                                                  #  ALIGNMENT STORAGE.                            (23D)
005049,001489: 
005050,001490: E5,1642  E5,1747               OGCT               EQUALS   QMAJ       +1                         #  I(6)
005051,001491: E5,1642  E5,1755               BESTI              EQUALS   OGCT       +6                         #  I(1)
005052,001492: E5,1642  E5,1756               BESTJ              EQUALS   BESTI      +1                         
005053,001493: E5,1642  E5,1757               STARIND            EQUALS   BESTJ      +1                         
005054,001494:                                                                                                  #  RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
005055,001495: E5,1642  E5,1760               STARSAV1           EQUALS   STARIND    +1                         #  I(6)
005056,001496: E5,1642  E5,1766               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)
005057,001497: E5,1642  E5,1774               TALIGN             EQUALS   STARSAV2   +6                         #  B(2) TIME OF IMU ALIGNMENT (DOWNLINKED)
005058,001498: 
005059,001499:                                                                                                  #  P32-35 + SERVICER                     (2D)
005060,001500: 
005061,001501: E5,1642  E5,1776               RTX1               EQUALS   TALIGN     +2                         #  I(1) X1       -2 EARTH, -10 MOON
005062,001502: E5,1642  E5,1777               RTX2               EQUALS   RTX1       +1                         #  I(1) X2       0 EARTH, 2 MOON
005063,001503: 
005064,001504: E5,1642                        ZPRIME             =        22D                                   
005065,001505: E5,1642                        PDA                =        22D                                   
005066,001506: E5,1642                        COSTH              =        16D                                   
005067,001507: E5,1642                        SINTH              =        18D                                   
005068,001508: E5,1642                        THETA              =        20D                                   
005069,001509: E5,1642                        STARM              =        32D                                   
005070,001510: 

Page 125

005072,001512:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 5 *******
005073,001513: 
005074,001514:                                                                                                  #  CONICS ROUTINE STORAGE.                       (85D)
005075,001515: 
005076,001516: E5,1642  E5,1642               DELX               EQUALS   ENDW                                  #  I(2)TMP
005077,001517: E5,1642  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
005078,001518: E5,1642  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
005079,001519: E5,1642                        RCNORM             EQUALS   34D                                   #  I(2)TMP
005080,001520: E5,1642  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
005081,001521: E5,1642  E5,1654               R1VEC              EQUALS   URRECT     +6                         #  I(6)TMP
005082,001522: E5,1642  E5,1662               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
005083,001523: E5,1642  E5,1670               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
005084,001524: E5,1642  E5,1672               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
005085,001525: E5,1642  E5,1673               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
005086,001526: E5,1642  E5,1701               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
005087,001527: E5,1642  E5,1702               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
005088,001528: E5,1642  E5,1710               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
005089,001529: E5,1642  E5,1711               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
005090,001530: E5,1642  E5,1717               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
005091,001531: E5,1642  E5,1721               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
005092,001532: E5,1642  E5,1727               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
005093,001533: E5,1642  E5,1731               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
005094,001534: E5,1642  E5,1733               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
005095,001535: E5,1642  E5,1735               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
005096,001536: E5,1642  E5,1737               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
005097,001537: E5,1642  E5,1741               R1A                EQUALS   P          +2                         #  I(2)TMP
005098,001538: E5,1642  E5,1654               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
005099,001539: E5,1642  E5,1743               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
005100,001540: E5,1642  E5,1710               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
005101,001541: E5,1642  E5,1751               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
005102,001542: E5,1642  E5,1710               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
005103,001543: E5,1642  E5,1710               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
005104,001544: E5,1642  E5,1717               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
005105,001545: E5,1642  E5,1753               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
005106,001546: E5,1642  E5,1754               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
005107,001547: E5,1642  E5,1755               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
005108,001548: E5,1642  E5,1757               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
005109,001549: E5,1642  E5,1761               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
005110,001550: E5,1642  E5,1757               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
005111,001551: E5,1642  E5,1761               TPREV              EQUALS   DEPREV                                #  I(2)TMP
005112,001552: E5,1642  E5,1763               EPSILONL           EQUALS   DEPREV     +2                         #  I(2)TMP
005113,001553: E5,1642  E5,1765               COGA               EQUALS   EPSILONL   +2                         #  I(2)  COTAN OF INITIAL FLIGHT PATH ANGLE.
005114,001554: E5,1642  E5,1765               INDEP              EQUALS   COGA                                  #        USED BY SUBROUTINE 'ITERATOR'.
005115,001555: 

Page 126

005117,001557:                                                                                                  #  ******* OVERLAY NUMBER 3 IN EBANK 5 *******
005118,001558: 
005119,001559:                                                                                                  #  INCORP STORAGE.                               (18D)
005120,001560: 
005121,001561: E5,1642  E5,1642               ZI                 EQUALS   ENDW                                  #  I(18)TMP
005122,001562: 
005123,001563:                                                                                                  #  INCORP/L SR22.3 STORAGE.                      (21D)
005124,001564: 
005125,001565: E5,1642  E5,1664               DELTAX             EQUALS   ZI         +18D                       #  I(18)
005126,001566: E5,1642  E5,1706               VARIANCE           EQUALS   DELTAX     +18D                       #  I(3)
005127,001567: 
005128,001568:                                                                                                  #  MEASUREMENT INCORPORATION -R22- STORAGE.      (49D)
005129,001569: 
005130,001570: E5,1642  E5,1711               GRP2SVQ            EQUALS   VARIANCE   +3                         #  I(1)TMP QSAVE FOR RESTARTS
005131,001571: E5,1642  E5,1712               OMEGAM1            EQUALS   GRP2SVQ    +1                         #  I(6)
005132,001572: E5,1642  E5,1720               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)
005133,001573: E5,1642  E5,1726               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)
005134,001574: E5,1642  E5,1734               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)
005135,001575: E5,1642  E5,1756               TDPOS              EQUALS   HOLDW      +18D                       #  I(6)
005136,001576: E5,1642  E5,1764               TDVEL              EQUALS   TDPOS      +6                         #  I(6)
005137,001577: 
005138,001578: E5,1642  E5,1664               TRIPA              EQUALS   DELTAX                                #  I(3)TMP
005139,001579: E5,1642  E5,1667               TEMPVAR            EQUALS   TRIPA      +3                         #  I(3)TMP
005140,001580: 
005141,001581:                                                                                                  #  INCORPORATION/INTEGRATION Q STORAGE.          (1D)
005142,001582: 
005143,001583: E5,1642  E5,1772               EGRESS             EQUALS   TDVEL      +6                         #  I(1)
005144,001584: 
005145,001585:                                                                                                  #  P30/P31 STORAGE.                              (1D) AND ONE OVERLAY
005146,001586: 
005147,001587: E5,1642  E5,1773               P30EXIT            EQUALS   EGRESS     +1                         #  B(1)TMP
005148,001588: 
005149,001589: E5,1642  E5,1773               ORIGIN             EQUALS   P30EXIT                               #  I(1)TMP INDEX DURING INITVEL
005150,001590: 

Page 127

005152,001592:                                                                                                  #  SYSTEM TEST ERASABLES.  CAN OVERLAY W MATRIX. (127D)
005153,001593: 
005154,001594:                                                                                                  #  ******* OVERLAY NUMBER 0 IN EBANK 5 *******
005155,001595: 
005156,001596: E5,1642  E5,1400               AZIMUTH            EQUALS   W                                     #  2
005157,001597: E5,1642  E5,1402               LATITUDE           EQUALS   AZIMUTH    +2                         #  2
005158,001598: E5,1642  E5,1404               ERVECTOR           EQUALS   LATITUDE   +2                         #  6
005159,001599: E5,1642  E5,1412               LENGTHOT           EQUALS   ERVECTOR   +6                         #  1
005160,001600: E5,1642  E5,1413               LOSVEC             EQUALS   LENGTHOT   +1                         #  6
005161,001601: E5,1642  E5,1414               NDXCTR             EQUALS   LOSVEC     +1                         #  1
005162,001602: E5,1642  E5,1415               PIPINDEX           EQUALS   NDXCTR     +1                         #  1
005163,001603: E5,1642  E5,1416               POSITON            EQUALS   PIPINDEX   +1                         #  1
005164,001604: E5,1642  E5,1417               QPLACE             EQUALS   POSITON    +1                         #  1
005165,001605: E5,1642  E5,1420               QPLACES            EQUALS   QPLACE     +1                         #  1
005166,001606: E5,1642  E5,1421               SOUTHDR            EQUALS   QPLACES    +1                         #  7
005167,001607: E5,1642  E5,1430               TEMPTIME           EQUALS   SOUTHDR    +7                         #  2
005168,001608: E5,1642  E5,1432               TMARK              EQUALS   TEMPTIME   +2                         #  2
005169,001609: E5,1642  E5,1434               GENPL              EQUALS   TMARK      +2                         
005170,001610: E5,1642  E5,1434               CDUTIMEI           =        GENPL                                 
005171,001611: E5,1642  E5,1436               CDUTIMEF           =        GENPL      +2                         
005172,001612: E5,1642  E5,1440               CDUDANG            =        GENPL      +4                         
005173,001613: E5,1642  E5,1441               CDUREADF           =        GENPL      +5                         
005174,001614: E5,1642  E5,1442               CDUREADI           =        GENPL      +6                         
005175,001615: E5,1642  E5,1443               CDULIMIT           =        GENPL      +7                         
005176,001616: 
005177,001617: E5,1642  E5,1440               TEMPADD            =        GENPL      +4                         
005178,001618: E5,1642  E5,1441               TEMP               =        GENPL      +5                         
005179,001619: E5,1642  E5,1442               NOBITS             =        GENPL      +6                         
005180,001620: E5,1642  E5,1443               CHAN               =        GENPL      +7                         
005181,001621: 
005182,001622: E5,1642  E5,1444               LOS1               =        GENPL      +8D                        
005183,001623: E5,1642  E5,1452               LOS2               =        GENPL      +14D                       
005184,001624: 
005185,001625: E5,1642  E5,1460               CALCDIR            EQUALS   GENPL      +20D                       
005186,001626: E5,1642  E5,1461               CDUFLAG            EQUALS   GENPL      +21D                       
005187,001627: E5,1642  E5,1462               GYTOBETQ           EQUALS   GENPL      +22D                       
005188,001628: E5,1642  E5,1463               OPTNREG            EQUALS   GENPL      +23D                       
005189,001629: E5,1642  E5,1464               SAVE               EQUALS   GENPL      +24D                       #  THREE ONSEC LOC
005190,001630: E5,1642  E5,1467               SFCONST1           EQUALS   GENPL      +27D                       
005191,001631: E5,1642  E5,1470               TIMER              EQUALS   GENPL      +28D                       
005192,001632: 
005193,001633: E5,1642  E5,1472               DATAPL             EQUALS   GENPL      +30D                       
005194,001634: E5,1642  E5,1434               RDSP               EQUALS   GENPL                                 #  FIX LA ER     POSSIBLY KEEP1
005195,001635: E5,1642  E5,1534               MASKREG            EQUALS   GENPL      +64D                       
005196,001636: E5,1642  E5,1536               CDUNDX             EQUALS   GENPL      +66D                       
005197,001637: E5,1642  E5,1537               RESULTCT           EQUALS   GENPL      +67D                       
005198,001638: E5,1642  E5,1542               COUNTPL            EQUALS   GENPL      +70D                       
005199,001639: 
005200,001640: E5,1642  E5,1543               CDUANG             EQUALS   GENPL      +71D                       

Page 128

005202,001642: E5,1642  E5,1434               AINLA              =        GENPL                                 #  110 DE  OR 156 OCT LOCATIONS
005203,001643: 
005204,001644: E5,1642  E5,1434               WANGO              EQUALS   AINLA                                 #  VERT E ATE
005205,001645: E5,1642  E5,1436               WANGI              EQUALS   AINLA      +2D                        #  HORIZO TAL ERATE
005206,001646: E5,1642  E5,1440               WANGT              EQUALS   AINLA      +4D                        #  T
005207,001647: E5,1642  E5,1440               TORQNDX            =        WANGT                                 
005208,001648: E5,1642  E5,1442               DRIFTT             EQUALS   AINLA      +6D                        
005209,001649: E5,1642  E5,1444               ALX1S              EQUALS   AINLA      +8D                        
005210,001650: E5,1642  E5,1445               CMPX1              EQUALS   AINLA      +9D                        #  IND
005211,001651: E5,1642  E5,1446               ALK                EQUALS   AINLA      +10D                       #  GAINS
005212,001652: E5,1642  E5,1462               VLAUNS             EQUALS   AINLA      +22D                       
005213,001653: E5,1642  E5,1464               WPLATO             EQUALS   AINLA      +24D                       
005214,001654: E5,1642  E5,1470               INTY               EQUALS   AINLA      +28D                       #  SOUTH  IP INTE
005215,001655: E5,1642  E5,1472               ANGZ               EQUALS   AINLA      +30D                       #  EAST A IS
005216,001656: E5,1642  E5,1474               INTZ               EQUALS   AINLA      +32D                       #  EAST P P I
005217,001657: E5,1642  E5,1476               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
005218,001658: E5,1642  E5,1500               ANGX               EQUALS   AINLA      +36D                       #  VE
005219,001659: E5,1642  E5,1502               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
005220,001660: E5,1642  E5,1504               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
005221,001661: E5,1642  E5,1510               VLAUN              EQUALS   AINLA      +44D                       
005222,001662: E5,1642  E5,1512               ACCWD              EQUALS   AINLA      +46D                       
005223,001663: E5,1642  E5,1520               POSNV              EQUALS   AINLA      +52D                       
005224,001664: E5,1642  E5,1522               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
005225,001665: E5,1642  E5,1526               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH  IP INCREMENT
005226,001666: E5,1642  E5,1530               ALTIM              EQUALS   AINLA      +60D                       
005227,001667: E5,1642  E5,1531               ALTIMS             EQUALS   AINLA      +61D                       #  INDEX
005228,001668: E5,1642  E5,1532               ALDK               EQUALS   AINLA      +62D                       #  TIME  ONSTAN
005229,001669: E5,1642  E5,1550               DELM               EQUALS   AINLA      +76D                       
005230,001670: E5,1642  E5,1560               WPLATI             EQUALS   AINLA      +84D                       
005231,001671: E5,1642  E5,1562               GEOCOMPS           EQUALS   AINLA      +86D                       
005232,001672: E5,1642  E5,1563               ERCOMP             EQUALS   AINLA      +87D                       
005233,001673: E5,1642  E5,1571               ZERONDX            EQUALS   AINLA      +93D                       
005234,001674: 
005235,001675: E5,1642  E5,1452               THETAN             =        ALK        +4                         
005236,001676: E5,1642  E5,1460               FILDELV            EQUALS   THETAN     +6                         #  AGS ALIGNMENT STORAGE
005237,001677: E5,1642  E5,1462               INTVEC             EQUALS   FILDELV    +2                         
005238,001678: E5,1642  E5,1572               1SECXT             =        AINLA      +94D                       
005239,001679: E5,1642  E5,1573               ASECXT             =        AINLA      +95D                       
005240,001680: E5,1642  E5,1574               PERFDLAY           EQUALS   AINLA      +96D                       #  B(2) DELAY TIME BEF. START DRIFT MEASURE
005241,001681: E5,1642  E5,1576               OVFLOWCK           EQUALS   AINLA      +98D                       #  (1) SET MEANS OVERFLOW IN IMU PERF TEST
005242,001682:                                                                                                  #      AND CAUSES TERMINATION
005243,001683: 
005244,001684: E5,1642  E5,1774               END-E5             EQUALS   STARSAV2   +6                         #  *** FIRST FREE LOCATION IN E5 ***
005245,001685: 

Page 129

005247,001687:                                                                                                  #  EBANK-6 ASSIGNMENTS.
005248,001688: 
005249,001689: E6,1400                                           SETLOC   3000                                  
005250,001690: 
005251,001691:                                                                                                  #  DAP PAD-LOADED DATA.                          (10D)
005252,001692: 
005253,001693:                                                                                                  #  ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
005254,001694: 
005255,001695: E6,1400                        HIASCENT           ERASE                                          #  (1) MASS AFTER STAGING, SCALE AT B16 KG.
005256,001696: E6,1401                        ROLLTIME           ERASE                                          #  (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
005257,001697: E6,1402                        PITTIME            ERASE                                          #  (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
005258,001698: E6,1403                        DKTRAP             ERASE                                          #  (1) DAP STATE            (POSSIBLE 77001
005259,001699: E6,1404                        DKOMEGAN           ERASE                                          #  (1)   ESTIMATOR PARA-      (VALUES 00012
005260,001700: E6,1405                        DKKAOSN            ERASE                                          #  (1)     METERS FOR THE             00074
005261,001701: E6,1406                        LMTRAP             ERASE                                          #  (1)       DOCKED AND               77001
005262,001702: E6,1407                        LMOMEGAN           ERASE                                          #  (1)         LEM-ALONE CASES        00000
005263,001703: E6,1410                        LMKAOSN            ERASE                                          #  (1)           RESPECTIVELY         00074
005264,001704: E6,1411                        DKDB               ERASE                                          #  (1) WIDTH OF DEADBAND FOR DOCKED RCS
005265,001705:                                                                                                  #      AUTOPILOT (DB=1.4DEG IN FRESH START)
005266,001706:                                                                                                  #      DEADBAND = PI/DKDB RAD.
005267,001707: 
005268,001708:                                                                                                  #  PADLOADS FOR INITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION)        (2D)
005269,001709: 
005270,001710: E6,1412                        IGNAOSQ            ERASE                                          #  B(1)PL
005271,001711: E6,1413                        IGNAOSR            ERASE                                          #  B(1)PL
005272,001712: 
005273,001713:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:    (5D)
005274,001714: 
005275,001715: E6,1414                        M11                ERASE                                          #  SCALED AT 1
005276,001716: E6,1415                        M21                ERASE                                          #  SCALED AT 1
005277,001717: E6,1416                        M31                ERASE                                          
005278,001718: E6,1417                        M22                ERASE                                          #  SCALED AT 1.
005279,001719: E6,1420                        M32                ERASE                                          #  SCALED AT 1.
005280,001720: 
005281,001721:                                                                                                  #  ANGLE MEASUREMENTS.                   (31D)
005282,001722: 
005283,001723: E6,1421                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
005284,001724: E6,1426  E6,1422               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
005285,001725: E6,1426  E6,1423               OMEGAR             EQUALS   OMEGAP     +2                         
005286,001726:                                                                                                  #  RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
005287,001727: E6,1426  E6,1424               ALPHAQ             EQUALS   OMEGAP     +3                         
005288,001728: E6,1426  E6,1425               ALPHAR             EQUALS   OMEGAP     +4                         
005289,001729: E6,1426                        OMEGAU             ERASE    +1                                    
005290,001730: E6,1430  E6,1427               OMEGAV             =        OMEGAU     +1                         
005291,001731: 
005292,001732: E6,1430                        TRAPEDP            ERASE    +5                                    
005293,001733: E6,1436  E6,1431               TRAPEDQ            =        TRAPEDP    +1                         
005294,001734: E6,1436  E6,1432               TRAPEDR            =        TRAPEDP    +2                         
005295,001735: E6,1436  E6,1433               NPTRAPS            =        TRAPEDP    +3                         

Page 130

005297,001737: E6,1436  E6,1434               NQTRAPS            =        TRAPEDP    +4                         
005298,001738: E6,1436  E6,1435               NRTRAPS            =        TRAPEDP    +5                         
005299,001739: E6,1436  E6,1427               EDOTP              =        EDOT                                  
005300,001740: E6,1436                        EDOTQ              ERASE    +1                                    
005301,001741: E6,1440  E6,1437               EDOTR              =        EDOTQ      +1                         #   MANY SHARING NAMES
005302,001742: E6,1440  E6,1436               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
005303,001743: E6,1440  E6,1437               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
005304,001744: 
005305,001745: E6,1440  E6,1426               URATEDIF           EQUALS   OMEGAU                                
005306,001746: E6,1440  E6,1427               VRATEDIF           EQUALS   OMEGAV                                
005307,001747: E6,1440                        OLDXFORP           ERASE    +2                                    #  STORED CDU READINGS FOR STATE
005308,001748: E6,1443  E6,1441               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
005309,001749: E6,1443  E6,1442               OLDZFORQ           EQUALS   OLDXFORP   +2                         
005310,001750: 
005311,001751:                                                                                                  #  RATE-COMMAND AND MINIMUM IMPULSE MODES
005312,001752: 
005313,001753: E6,1443                        CH31TEMP           ERASE                                          
005314,001754: E6,1444                        STIKSENS           ERASE                                          
005315,001755: E6,1445                        TCP                ERASE                                          
005316,001756: E6,1446                        DXERROR            ERASE    +5                                    
005317,001757: E6,1454  E6,1450               DYERROR            EQUALS   DXERROR    +2                         
005318,001758: E6,1454  E6,1452               DZERROR            EQUALS   DXERROR    +4                         
005319,001759: E6,1454                        PLAST              ERASE                                          
005320,001760: E6,1455                        QLAST              ERASE                                          
005321,001761: E6,1456                        RLAST              ERASE                                          
005322,001762: E6,1457                        TCQR               ERASE                                          
005323,001763: 
005324,001764:                                                                                                  #  OTHER VARIABLES.                              (5D)
005325,001765: 
005326,001766: E6,1460                        OLDPMIN            ERASE                                          #  THESE THREE USED IN MIN IMPULSE MODE.
005327,001767: E6,1461                        OLDQRMIN           ERASE                                          
005328,001768: E6,1462  E6,1737               TEMP31             EQUALS   DAPTEMP1                              
005329,001769: 
005330,001770: E6,1462                        SAVEHAND           ERASE    +1                                    
005331,001771: E6,1464                        PERROR             ERASE                                          
005332,001772: E6,1465  E6,1450               QERROR             EQUALS   DYERROR                               
005333,001773: E6,1465  E6,1452               RERROR             EQUALS   DZERROR                               
005334,001774: 
005335,001775:                                                                                                  #  JET STATE CHANGE VARIABLES - TIME (TOFJTCHG), JET BITS WRITTEN NOW    (10D)
005336,001776:                                                                                                  #  (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
005337,001777: 
005338,001778: E6,1465                        NXT6ADR            ERASE                                          
005339,001779: E6,1466                        T6NEXT             ERASE    +1                                    
005340,001780: E6,1470                        T6FURTHA           ERASE    +1                                    
005341,001781: E6,1472                        NEXTP              ERASE    +2                                    
005342,001782: E6,1475  E6,1473               NEXTU              =        NEXTP      +1                         
005343,001783: E6,1475  E6,1474               NEXTV              =        NEXTP      +2                         
005344,001784: E6,1475                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
005345,001785: E6,1477  E6,1476               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
005346,001786: 
005347,001787: E6,1477  E6,1476               TARGETDB           EQUALS   -RATEDB                               #  MAN. CONTROL TARGET DB COMPLEMENT.
005348,001788: 
005349,001789:                                                                                                  #  ***Q,R AXIS ERASABLES ***             (3)

Page 131

005351,001791: E6,1477     4742               PBIT               EQUALS   BIT10                                 
005352,001792: E6,1477     4741               QRBIT              EQUALS   BIT11                                 
005353,001793: E6,1477  E6,1751               UERROR             EQUALS   DAPTREG5                              #  U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
005354,001794: E6,1477  E6,1752               VERROR             =        UERROR     +1                         
005355,001795: E6,1477                        RETJADR            ERASE                                          
005356,001796: E6,1500  E6,1742               TEMPNUM            EQUALS   DAPTEMP4                              
005357,001797: E6,1500  E6,1743               NUMBERT            EQUALS   DAPTEMP5                              
005358,001798: E6,1500  E6,1744               ROTINDEX           EQUALS   DAPTEMP6                              
005359,001799: E6,1500  E6,1737               ROTEMP1            EQUALS   DAPTEMP1                              
005360,001800: E6,1500  E6,1740               ROTEMP2            EQUALS   DAPTEMP2                              
005361,001801: E6,1500  E6,1741               POLYTEMP           EQUALS   DAPTEMP3                              
005362,001802: E6,1500                        SENSETYP           ERASE                                          
005363,001803: E6,1501  E6,1737               ABSTJ              EQUALS   DAPTEMP1                              #  ABS VALUE OF JET-FIRING TIME
005364,001804: E6,1501  E6,1737               ABSEDOTP           EQUALS   DAPTEMP1                              
005365,001805: 
005366,001806: E6,1501  E6,1750               DPSBURN            EQUALS   DAPTREG4                              #  USED WITH SNUFFBIT.  VERY TEMPORARY.
005367,001807: 

Page 132

005369,001809:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:            (11D)
005370,001810: 
005371,001811: E6,1501  E6,1737               GTSTEMPS           EQUALS   DAPTEMP1                              #  GTS IS PART OF THE JASK.
005372,001812: E6,1501  E6,1741               SHFTFLAG           EQUALS   GTSTEMPS   +2                         #  COUNT BITS FOR GTSQRT SHIFTING.
005373,001813: E6,1501  E6,1744               ININDEX            EQUALS   GTSTEMPS   +5                         #  INDEX FOR SHIFT LOOP IN GTSQRT.
005374,001814: 
005375,001815: E6,1501  E6,1505               SAVESR             EQUALS   AXISCTR                               #  CANNOT BE A DAPTEMP - GTS USES THEM ALL.
005376,001816: 
005377,001817: E6,1501  E6,1746               SCRATCH            EQUALS   GTSTEMPS   +7                         #  ROOTCYCL ERASABLE
005378,001818: E6,1501  E6,1747               HALFARG            EQUALS   GTSTEMPS   +8D                        #  ROOTCYCL ERASABLE.
005379,001819: 
005380,001820: E6,1501  E6,1737               K2THETA            EQUALS   GTSTEMPS                              #  D.P., K*ERROR, NEGUSUM
005381,001821: E6,1501  E6,1741               KCENTRAL           EQUALS   GTSTEMPS   +2                         #  S.P., K FROM KQ OR KRDAP, AT PI/2(8)
005382,001822: E6,1501  E6,1742               K2CNTRAL           EQUALS   GTSTEMPS   +3                         #  D.P., GTS SCRATCH CELLS.
005383,001823: E6,1501  E6,1743               WCENTRAL           EQUALS   GTSTEMPS   +4                         #  S.P., OMEGA, AT PI/4 RAD/SEC
005384,001824: E6,1501  E6,1744               ACENTRAL           EQUALS   GTSTEMPS   +5                         #  S.P., ALPHA, AT PI/4 RAD/SEC(2)
005385,001825: E6,1501  E6,1745               DEL                EQUALS   GTSTEMPS   +6                         #  S.P., SGN FUNCTION VALUE.
005386,001826: E6,1501  E6,1746               A2CNTRAL           EQUALS   GTSTEMPS   +7                         #  D.P., GTS SCRATCH CELLS.
005387,001827: E6,1501  E6,1750               QRCNTR             EQUALS   GTSTEMPS   +9D                        #  S.P., INDEX FOR GTS LOOP THROUGH Q,R AXES
005388,001828: E6,1501  E6,1751               FUNCTION           EQUALS   GTSTEMPS   +10D                       #  D.P., ARGUMENT FOR GRSQRT, SCRATCH FOR GTS
005389,001829: 
005390,001830: E6,1501                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
005391,001831:                                                                                                  #                        NEGUQ +1        DEFINED AND USED ELSEWHERE
005392,001832: E6,1504  E6,1503               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
005393,001833: 
005394,001834: E6,1504                        KQ                 ERASE    +2                                    #  S.P., JERK TERM FOR GTS, AT PI/2(8)
005395,001835: E6,1507  E6,1505               AXISCTR            EQUALS   KQ         +1                         
005396,001836: E6,1507  E6,1506               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
005397,001837: 
005398,001838: E6,1507                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
005399,001839: E6,1513  E6,1510               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
005400,001840: E6,1513  E6,1511               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
005401,001841: E6,1513  E6,1512               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
005402,001842: 
005403,001843: E6,1513  E6,1450               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
005404,001844: E6,1513  E6,1452               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
005405,001845: 
005406,001846:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:       (18D)
005407,001847: 
005408,001848: E6,1513  E6,1745               JETRATE            EQUALS   DAPTREG1                              
005409,001849: E6,1513  E6,1746               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
005410,001850: E6,1513  E6,1747               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
005411,001851: 
005412,001852: E6,1513                        DOWNTORK           ERASE    +5                                    #  ACCUMULATED JET TORQUE COMMANDED ABOUT
005413,001853: E6,1521  E6,1513               POSTORKP           EQUALS   DOWNTORK                              #        +,-P, +,-U, +,-V RESPECTIVELY.
005414,001854: E6,1521  E6,1514               NETTOTKP           EQUALS   DOWNTORK   +1                         #        EMPLOYED EXCLUSIVELY FOR DOWNLIST.
005415,001855: E6,1521  E6,1515               POSTORKU           EQUALS   DOWNTORK   +2                         #        NOT INITIALIZED:  PERMITTED TO OVERFLOW

Page 133

005417,001857: E6,1521  E6,1516               NEGTORKU           EQUALS   DOWNTORK   +3                         #        SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
005418,001858: E6,1521  E6,1517               POSTORKV           EQUALS   DOWNTORK   +4                         #        MSEC PER BIT.
005419,001859: E6,1521  E6,1520               NEGTORKV           EQUALS   DOWNTORK   +5                         
005420,001860: 
005421,001861: E6,1521                        NO.PJETS           ERASE    +2                                    
005422,001862: E6,1524  E6,1522               NO.UJETS           =        NO.PJETS   +1                         
005423,001863: E6,1524  E6,1523               NO.VJETS           =        NO.UJETS   +1                         
005424,001864: E6,1524                        TJP                ERASE    +2                                    
005425,001865: E6,1527  E6,1525               TJU                =        TJP        +1                         
005426,001866: E6,1527  E6,1526               TJV                =        TJP        +2                         
005427,001867: 
005428,001868: E6,1527                        L,PVT-CG           ERASE                                          
005429,001869: E6,1530                        1JACC              ERASE    +4                                    #  ACCELERATIONS DUE TO 1 JET TORQUING
005430,001870: E6,1535  E6,1531               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
005431,001871: E6,1535  E6,1532               1JACCR             EQUALS   1JACC      +2                         
005432,001872: E6,1535  E6,1533               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
005433,001873: E6,1535  E6,1534               1JACCV             EQUALS   1JACC      +4                         #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
005434,001874: 
005435,001875:                                                                                                  #  ASCENT VARIABLES:                             (10D)
005436,001876: 
005437,001877: E6,1535                        SKIPU              ERASE    +1                                    
005438,001878: E6,1537  E6,1536               SKIPV              =        SKIPU      +1                         
005439,001879: 
005440,001880:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
005441,001881:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
005442,001882:                                                                                                  #  SECTIONS AND ELSEWHERE.
005443,001883: 
005444,001884: E6,1537                        AOSQ               ERASE    +5                                    #  OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
005445,001885: E6,1545  E6,1541               AOSR               EQUALS   AOSQ       +2                         #  AND SCALED AT PI/2.
005446,001886: E6,1545  E6,1543               AOSU               EQUALS   AOSQ       +4                         #  UV-AXES OFFSET ACC. FROMED BY VECTOR
005447,001887: E6,1545  E6,1544               AOSV               EQUALS   AOSQ       +5                         #  ADDITION OF Q,R. AT PI/2 RAD/SEC(2).
005448,001888: 
005449,001889: E6,1545                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
005450,001890: E6,1547  E6,1546               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
005451,001891: 
005452,001892:                                                                                                  #  FOR TJET LAW SUBROUTINE:                      (TEMPS ONLY)
005453,001893: 
005454,001894:                                                                                                  # NUMBERT        EQUALS  DAPTEMP5        DEFINED IN QRAXIS.
005455,001895: E6,1547  E6,1737               EDOTSQ             EQUALS   DAPTEMP1                              
005456,001896: E6,1547  E6,1740               ROTSENSE           EQUALS   DAPTEMP2                              
005457,001897: E6,1547  E6,1741               FIREFCT            EQUALS   DAPTEMP3                              #  LOOKED AT BY PAXIS.
005458,001898: E6,1547  E6,1742               TTOAXIS            EQUALS   DAPTEMP4                              
005459,001899: E6,1547  E6,1744               ADRSDIF2           EQUALS   DAPTEMP6                              
005460,001900: E6,1547  E6,1745               HOLDQ              EQUALS   DAPTREG1                              
005461,001901: E6,1547  E6,1746               ADRSDIF1           EQUALS   DAPTREG2                              
005462,001902: E6,1547  E6,1747               HH                 EQUALS   DAPTREG3                              #  DOUBLE PRECISION
005463,001903:                                                                                                  #  HH +1         EQUALS  DAPTREG4
005464,001904: E6,1547  E6,1752               E                  EQUALS   DAPTREG6                              #  TIME SHARE WITH VERROR
005465,001905: E6,1547  E6,1427               EDOT               EQUALS   OMEGAV                                
005466,001906: 

Page 134

005468,001908:                                                                                                  #  INPUT TO TJET LAW (PERMANENT ERASABLES).      (48D)
005469,001909: 
005470,001910: E6,1547  E6,1525               TJETU              =        TJU                                   #  EQUATE NAMES.  INDEXED BY -1, 0, +1.
005471,001911: E6,1547                        BLOCKTOP           ERASE    +47D                                  
005472,001912: E6,1627  E6,1567               1/ANET1            =        BLOCKTOP   +16D                       #  THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
005473,001913: E6,1627  E6,1570               1/ANET2            =        1/ANET1    +1                         #  FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
005474,001914: E6,1627  E6,1573               1/ACOAST           =        1/ANET1    +4                         #  EDOT IS POSITIVE.  TJETLAW INDEXES BY
005475,001915: E6,1627  E6,1575               ACCFCTZ1           =        1/ANET1    +6                         #  ADRSDIFF FROM THESE REGISTERS TO PICK UP
005476,001916: E6,1627  E6,1576               ACCFCTZ5           =        1/ANET1    +7                         #  PARAMETERS FOR THE PROPER AXIS, NUMBER
005477,001917: E6,1627  E6,1601               FIREDB             =        1/ANET1    +10D                       #  OF JETS AND SIGN OF EDOT.  THERE ARE 48
005478,001918: E6,1627  E6,1603               COASTDB            =        1/ANET1    +12D                       #  REGISTERS IN ALL IN THIS BLOCK.
005479,001919: E6,1627  E6,1605               AXISDIST           =        1/ANET1    +14D                       #  FOUR NOT REFERENCED (P-AXIS) ARE FILLED 
005480,001920:                                                                                                  #  IN BY THE FOLLOWING:
005481,001921: E6,1627  E6,1547               ACCSWU             =        BLOCKTOP                              #  SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
005482,001922: E6,1627  E6,1550               ACCSWV             =        ACCSWU     +1                         #  JETS ARE REQUIRED BECAUSE OF AOS.
005483,001923: E6,1627  E6,1555               FLAT               =        BLOCKTOP   +6                         #  WIDTH OF MINIMUM IMPULSE ZONE.
005484,001924: E6,1627  E6,1556               ZONE3LIM           =        BLOCKTOP   +7                         #  HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC)
005485,001925: 
005486,001926: E6,1627                        COEFFQ             ERASE    +1                                    #  COEFFQ AND COEFFR ARE USED IN ROT-TOUV
005487,001927: E6,1631  E6,1630               COEFFR             EQUALS   COEFFQ     +1                         #  TO RESOLVE Q,R COMPONENTS INTO U,V COMP.
005488,001928: 
005489,001929:                                                                                                  #  VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE.    (4)
005490,001930: 
005491,001931: E6,1631  E6,1502               ALLOWGTS           EQUALS   NEGUQ      +1                         #  INSERT INTO UNUSED LOCATION
005492,001932: E6,1631                        COTROLER           ERASE                                          #  INDICATES WHICH CONTROL SYSTEM TO USE.
005493,001933: E6,1632                        QGIMTIMR           ERASE    +2                                    #  Q-GIMBAL DRIVE ITMER, DECISECONDS.
005494,001934: E6,1635  E6,1633               INGTS              EQUALS   QGIMTIMR   +1                         #  INDICATOR OF CURRENT GTS CONTROL.
005495,001935: E6,1635  E6,1634               RGIMTIMR           EQUALS   QGIMTIMR   +2                         #  R-GIMBAL DRIVE TIMER, DECISECONDS.
005496,001936: 
005497,001937:                                                                                                  #  PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
005498,001938: 
005499,001939:                                                                                                  #  KALCMANU:DAP INTERFACE.                       (9D)
005500,001940: 
005501,001941: E6,1635                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
005502,001942: E6,1640  E6,1636               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
005503,001943: E6,1640  E6,1637               CDUZD              EQUALS   CDUXD      +2                         #  (STORE IN 2S COMPLEMENT)
005504,001944: 
005505,001945: E6,1640                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
005506,001946: E6,1643  E6,1641               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
005507,001947: E6,1643  E6,1642               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORE IN 2S COMPLEMENT)
005508,001948: 
005509,001949:                                                                                                  #  RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
005510,001950: 
005511,001951: E6,1643                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES:
005512,001952: E6,1646  E6,1644               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
005513,001953: E6,1646  E6,1645               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
005514,001954: 
005515,001955:                                                                                                  #  KALCMANU STORAGE.                             (24D)
005516,001956: 
005517,001957: E6,1646                        MIS                ERASE    +23D                                  #  I(18D)

Page 135

005519,001959: E6,1676  E6,1670               COF                EQUALS   MIS        +18D                       #  I(6)
005520,001960: 
005521,001961:                                                                                                  #  KALCMANU STORAGE.                             (33D)
005522,001962: E6,1676                        BCDU               ERASE    +30D                                  #  B(3)
005523,001963: E6,1735  E6,1701               KSPNDX             EQUALS   BCDU       +3                         #  B(1)
005524,001964: E6,1735  E6,1702               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)
005525,001965: 
005526,001966: E6,1735  E6,1703               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
005527,001967: E6,1735  E6,1725               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
005528,001968: E6,1735  E6,1733               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
005529,001969: 
005530,001970: E6,1735                        AM                 ERASE    +1                                    #  I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
005531,001971: 
005532,001972:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU              (25D)
005533,001973: E6,1737  E6,1703               KV1                EQUALS   TMIS                                  #  I(6)
005534,001974: E6,1737  E6,1703               MFISYM             EQUALS   TMIS                                  #  I
005535,001975: E6,1737  E6,1703               TMFI               EQUALS   TMIS                                  #  I
005536,001976: E6,1737  E6,1703               NCDU               EQUALS   TMIS                                  #  B
005537,001977: E6,1737  E6,1706               NEXTIME            EQUALS   TMIS       +3                         #  B
005538,001978: E6,1737  E6,1707               TTEMP              EQUALS   TMIS       +4                         #  B
005539,001979: E6,1737  E6,1711               KV2                EQUALS   TMIS       +6                         #  I(6)
005540,001980: E6,1737  E6,1711               BIASTEMP           EQUALS   TMIS       +6                         #  B
005541,001981: E6,1737  E6,1717               KV3                EQUALS   TMIS       +12D                       #  I(6)
005542,001982: E6,1737  E6,1717               OGF                EQUALS   TMIS       +12D                       #  I
005543,001983: 
005544,001984: E6,1737  E6,1725               BRATE              EQUALS   COFSKEW                               #  B
005545,001985: E6,1737  E6,1725               IG                 EQUALS   COFSKEW                               #  I
005546,001986: 
005547,001987: E6,1737  E6,1733               TM                 EQUALS   CAM                                   #  B
005548,001988: 
005549,001989:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU             (24D)
005550,001990: 
005551,001991: E6,1737  E6,1703               K1                 =        KV1                                   
005552,001992: E6,1737  E6,1711               K2                 =        KV2                                   
005553,001993: E6,1737  E6,1717               K3                 =        KV3                                   
005554,001994: E6,1737  E6,1703               P21                EQUALS   KV1                                   #  I(2)
005555,001995: E6,1737  E6,1705               D21                EQUALS   KV1        +2                         #  I(2)
005556,001996: E6,1737  E6,1707               G21                EQUALS   KV1        +4                         #  I(2)
005557,001997: E6,1737  E6,1711               C2SQP              EQUALS   KV2                                   #  I(2)
005558,001998: E6,1737  E6,1713               C2SQM              EQUALS   KV2        +2                         #  I(2)
005559,001999: E6,1737  E6,1715               C2PP               EQUALS   KV2        +4                         #  I(2)
005560,002000: E6,1737  E6,1717               C2MP               EQUALS   KV3                                   #  I(2)
005561,002001: E6,1737  E6,1721               C1PP               EQUALS   KV3        +2                         #  I(2)
005562,002002: E6,1737  E6,1723               C1MP               EQUALS   KV3        +4                         #  I(2)

Page 136

005564,002004: E6,1737  E6,1725               VECQTEMP           =        COFSKEW                               
005565,002005: 
005566,002006: E6,1737  E6,1635               DCDU               =        CDUXD                                 
005567,002007: E6,1737  E6,1640               DELDCDU            =        DELCDUX                               
005568,002008: E6,1737  E6,1641               DELDCDU1           =        DELCDUY                               
005569,002009: E6,1737  E6,1642               DELDCDU2           =        DELCDUZ                               
005570,002010: 
005571,002011:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
005572,002012: 
005573,002013:                                                                                                  #  STORAGE FOR FINDCDUW
005574,002014: 
005575,002015:                                                                                                  #  OVERLAYING KALCMANU STORAGE:                  (26D)
005576,002016: 
005577,002017: E6,1737  E6,1646               ECDUW              EQUALS   MIS                                   
005578,002018: E6,1737  E6,1646               ECDUWUSR           EQUALS   ECDUW                                 #  B(1)TMP
005579,002019: E6,1737  E6,1647               QCDUWUSR           EQUALS   ECDUWUSR   +1                         #  I(1)TMP
005580,002020: E6,1737  E6,1650               NDXCDUW            EQUALS   QCDUWUSR   +1                         #  B(1)TMP
005581,002021: E6,1737  E6,1651               FLAGOODW           EQUALS   NDXCDUW    +1                         #  B(1)TMP
005582,002022: E6,1737  E6,1652               FLPAUTNO           EQUALS   FLAGOODW   +1                         #  B(1)TMP
005583,002023: E6,1737  E6,1653               UNFC/2             EQUALS   FLPAUTNO   +1                         #  I(6)IN
005584,002024: E6,1737  E6,1661               UNWC/2             EQUALS   UNFC/2     +6                         #  I(6)IN
005585,002025: E6,1737  E6,1667               UNFV/2             EQUALS   UNWC/2     +6                         #  I(6) S-S
005586,002026: E6,1737  E6,1667               UNFVX/2            =        UNFV/2                                
005587,002027: E6,1737  E6,1671               UNFVY/2            =        UNFV/2     +2                         
005588,002028: E6,1737  E6,1673               UNFVZ/2            =        UNFV/2     +4                         
005589,002029: E6,1737  E6,1675               -DELGMB            EQUALS   UNFV/2     +6                         #  B(3)TMP
005590,002030: 
005591,002031:                                                                                                  #  DEFINED IN THE WORK AREA:                     (18D)
005592,002032: 
005593,002033: E6,1737                        UNX/2              =        0                                     
005594,002034: E6,1737                        UNY/2              =        6                                     
005595,002035: E6,1737                        UNZ/2              =        14                                    
005596,002036: 
005597,002037:                                                                                                  #  END OF FINDCDUW ERASABLES
005598,002038: 
005599,002039:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
005600,002040: 
005601,002041:                                                                                                  #  THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS, NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
005602,002042:                                                                                                  #  ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED.   (18D)
005603,002043: 
005604,002044: E6,1737                        DAPTEMP1           ERASE    +17D                                  
005605,002045: E6,1761  E6,1740               DAPTEMP2           EQUALS   DAPTEMP1   +1                         
005606,002046: E6,1761  E6,1741               DAPTEMP3           EQUALS   DAPTEMP1   +2                         
005607,002047: E6,1761  E6,1742               DAPTEMP4           EQUALS   DAPTEMP1   +3                         
005608,002048: E6,1761  E6,1743               DAPTEMP5           EQUALS   DAPTEMP1   +4                         
005609,002049: E6,1761  E6,1744               DAPTEMP6           EQUALS   DAPTEMP1   +5                         
005610,002050: E6,1761  E6,1745               DAPTREG1           EQUALS   DAPTEMP1   +6                         
005611,002051: E6,1761  E6,1746               DAPTREG2           EQUALS   DAPTEMP1   +7                         
005612,002052: E6,1761  E6,1747               DAPTREG3           EQUALS   DAPTEMP1   +8D                        

Page 137

005614,002054: E6,1761  E6,1750               DAPTREG4           EQUALS   DAPTEMP1   +9D                        
005615,002055: E6,1761  E6,1751               DAPTREG5           EQUALS   DAPTEMP1   +10D                       
005616,002056: E6,1761  E6,1752               DAPTREG6           EQUALS   DAPTEMP1   +11D                       
005617,002057: 
005618,002058: E6,1761  E6,1753               DAPARUPT           EQUALS   DAPTEMP1   +12D                       
005619,002059: E6,1761  E6,1754               DAPLRUPT           EQUALS   DAPARUPT   +1                         
005620,002060: E6,1761  E6,1755               DAPBQRPT           EQUALS   DAPARUPT   +2                         
005621,002061: E6,1761  E6,1757               DAPZRUPT           EQUALS   DAPARUPT   +4                         
005622,002062:                                                                                                  #  (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
005623,002063: 
005624,002064:                                                                                                  #  NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE.  (6D)
005625,002065: 
005626,002066: E6,1761     0061               T5TEMP             EQUALS   ITEMP1                                
005627,002067: E6,1761     0063               DINDX              EQUALS   ITEMP3                                
005628,002068: E6,1761                        AK                 ERASE    +2                                    #  NEEDLER ATTITUDE INPUTS, SCALED AT 180
005629,002069: E6,1764  E6,1762               AK1                EQUALS   AK         +1                         #  DEGREES.  P,Q,R AXES IN AK,AK1,AK2.
005630,002070: E6,1764  E6,1763               AK2                EQUALS   AK         +2                         
005631,002071: 
005632,002072: E6,1764                        EDRIVEX            ERASE    +2                                    #  NEEDLER DISPLAY REGS AT 1800 DEGREES.
005633,002073: E6,1767  E6,1765               EDRIVEY            EQUALS   EDRIVEX    +1                         #  SO THAT 384 BITS REPRESENT 42 3/16 DEG.
005634,002074: E6,1767  E6,1766               EDRIVEZ            EQUALS   EDRIVEX    +2                         
005635,002075: 
005636,002076:                                                                                                  #  DOCKED JET INHIBITION COUNTERS                (3D)
005637,002077: 
005638,002078: E6,1767                        PJETCTR            ERASE    +2                                    
005639,002079: E6,1772  E6,1770               UJETCTR            EQUALS   PJETCTR    +1                         
005640,002080: E6,1772  E6,1771               VJETCTR            EQUALS   PJETCTR    +2                         
005641,002081: 
005642,002082: E6,1772  E6,1771               END-E6             EQUALS   VJETCTR                               
005643,002083: 

Page 138

005645,002085:                                                                                                  #  EBANK-7 ASSIGNMENTS
005646,002086: 
005647,002087: E7,1400                                           SETLOC   3400                                  
005648,002088: 
005649,002089:                                                                                                  #  P35 CONSTANTS.        -PAD LOADED-            (4D)
005650,002090: 
005651,002091: E7,1400                        ATIGINC            ERASE    +1                                    #  B(2)PL        *MUST BE AT 1400 FOR SYSTEMSTEST
005652,002092: E7,1402                        PTIGINC            ERASE    +1                                    #  B(2)PL
005653,002093: 
005654,002094:                                                                                                  #  AOTMARK STORAGE.      -PAD LOADED-            (12D)
005655,002095: 
005656,002096: E7,1404                        AOTAZ              ERASE    +5                                    #  B(6)PL
005657,002097: E7,1412                        AOTEL              ERASE    +5                                    #  B(6)PL
005658,002098: 
005659,002099:                                                                                                  #  LANDING RADAR.        -PAD LOADED-            (2D)
005660,002100: 
005661,002101: E7,1420                        LRHMAX             ERASE                                          #  B(1)
005662,002102: E7,1421                        LRWH               ERASE                                          #  B(1)
005663,002103: 
005664,002104:                                                                                                  #  THROTTLE STORAGE.     -PAD LOADED-            (1D)
005665,002105: 
005666,002106: E7,1422                        ZOOMTIME           ERASE                                          #  B(1)PL TIME OF DPS THROTTLE-UP COMMAND
005667,002107: 
005668,002108:                                                                                                  #  P63 AND P64 CONSTANTS.        -PAD LOADED-            (4D)
005669,002109: 
005670,002110: E7,1423                        TENDBRAK           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
005671,002111: E7,1424                        TENDAPPR           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
005672,002112: E7,1425                        DELTTFAP           ERASE                                          #  B(1) INCREMENT ADDED TO TTF/8 WHEN
005673,002113:                                                                                                  #        SWITCHING FROM P63 TO P64
005674,002114: E7,1426                        LEADTIME           ERASE                                          #  B(1) TIME INCREMENT SPECIFYING HOW MUCH
005675,002115:                                                                                                  #        GUIDANCE IS PROJECTED FORWARD.
005676,002116: 
005677,002117:                                                                                                  #  LANDING RADAR         -PAD LOADED-            (2D)
005678,002118: 
005679,002119: E7,1427                        RPCRTIME           ERASE                                          #  B(1) REPOSITIONING CRITERION (TIME)
005680,002120: E7,1430                        RPCRTQSW           ERASE                                          #  B(1) REPOSITIONING CRITERION (ANGLE)
005681,002121: 
005682,002122:                                                                                                  #  ASTEER                -PAD LOADED-            (2D)
005683,002123: 
005684,002124: E7,1431                        TNEWA              ERASE    +1                                    #  I(2)PL LAMBERT CYCLE PERIOD
005685,002125: 
005686,002126:                                                                                                  #  P22 STORAGE - OVERLAYS LANDING PADLOADS -     (5D)

Page 139

005688,002128: E7,1433  E7,1423               REPOSCNT           EQUALS   TENDBRAK                              #  B(1)TMP COUNTS NUMBER OF PASSES THROUGH
005689,002129:                                                                                                  #          REPOSITION ROUTINE.
005690,002130: E7,1433  E7,1424               REPOSTM            EQUALS   REPOSCNT   +1                         #  I(2)TMP PRESENT TIME PLUS INCREMENTS OF
005691,002131:                                                                                                  #          TEN SECONDS.
005692,002132: E7,1433  E7,1426               DELTATM            EQUALS   REPOSTM    +2                         #  I(2)TMP TIME INTERVAL FOR RUNNING
005693,002133:                                                                                                  #          DESIGNATE TASK.
005694,002134: 
005695,002135:                                                                                                  #  *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
005696,002136: 
005697,002137:                                                                                                  #  P32-35 P72-75 STORAGE.                        (6D)
005698,002138: 
005699,002139: E7,1433                        DELVLVC            ERASE    +5                                    #  I(6) DELTA VELOCITY - LOCAL VERTICAL COO
005700,002140: E7,1441  E7,1433               DELVSLV            =        DELVLVC                               #  (TEMP STORAGE OF SAME VECTOR)    -RDINATE
005701,002141: 
005702,002142:                                                                                                  #  P30-P40 INTERFACE UNSHARED.                   (2D)
005703,002143: 
005704,002144: E7,1441                        TIG                ERASE    +1                                    #  B(2)
005705,002145: 
005706,002146:                                                                                                  #  INITVEL STORAGE.  ALSO USED BY P34,35,74,75,10,11 OTHERS      (8D)
005707,002147: 
005708,002148: E7,1443                        RTARG              ERASE    +5                                    #  I(6) TARGET VECTOR
005709,002149: E7,1451                        DELLT4             ERASE    +1                                    #  I(2) TIME DIFFERENCE
005710,002150: 
005711,002151:                                                                                                  #  P30-P40 INTERFACE UNSHARED.                   (3D)
005712,002152: 
005713,002153: E7,1453                        TTOGO              ERASE    +1                                    #  B(2)
005714,002154: E7,1455  E7,1453               TFI                EQUALS   TTOGO                                 
005715,002155: E7,1455                        WHICH              ERASE                                          #  B(1)
005716,002156: 
005717,002157:                                                                                                  #  *** R21 ***                                   (1D)
005718,002158: 
005719,002159: E7,1456                        LOSCOUNT           ERASE                                          #  B(1)
005720,002160: 
005721,002161:                                                                                                  #  L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE.             (4D)
005722,002162: 
005723,002163:                                                                                                  #  RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
005724,002164: 
005725,002165: E7,1457                        AIG                ERASE                                          #  B(1)OUT GIMGAL ANGLES
005726,002166: E7,1460                        AMG                ERASE                                          #  B(1)OUT (MUST BE
005727,002167: E7,1461                        AOG                ERASE                                          #  B(1)OUT  CONSECUTIVE)
005728,002168: 
005729,002169: E7,1462                        TRKMKCNT           ERASE                                          #  B(1)TMP TEMPORARY MARK STORAGE.
005730,002170: E7,1463  E7,1462               MARKCTR            =        TRKMKCNT                              
005731,002171: 

Page 140

005733,002173:                                                                                                  #  P32-P35, P72-P75 STORAGE.  -PERMANENT-        (6)
005734,002174: 
005735,002175: E7,1463                        NORMEX             ERASE                                          #  B(1)PRM SAVE FOR Q
005736,002176: E7,1464                        QSAVED             ERASE                                          #  B(1)PRM SAVE FOR Q
005737,002177: E7,1465                        RTRN               ERASE                                          #  B(1)PRM SAVE FOR Q
005738,002178: E7,1466                        NN                 ERASE    +1                                    #  B(2)
005739,002179: E7,1470                        SUBEXIT            ERASE                                          #  B(1)PRM SAVE Q
005740,002180: 
005741,002181: E7,1471                        E7OVERLA           EQUALS                                         #  START OF E7 OVERLAYS.
005742,002182: E7,1471  E7,1471               WHOCARES           EQUALS   E7OVERLA                              #  DUMMY FOR EBANK INSENSITIVE 2CADRS
005743,002183: 
005744,002184:                                                                                                  #  LUNAR LANDING OVERLAYS                        (6D)
005745,002185: 
005746,002186: E7,1471  E7,1463               /AFC/              EQUALS   NORMEX                                #  B(2)TMP THROTTLE
005747,002187: E7,1471  E7,1465               FCODD              EQUALS   /AFC/      +2                         #  B(2)TMP THROTTLE
005748,002188: E7,1471  E7,1467               FP                 EQUALS   FCODD      +2                         #  B(2)TMP THROTTLE

Page 141

005750,002190:                                                                                                  #  ******* OVERLAY NUMBER 0 IN EBANK 7 *******
005751,002191: 
005752,002192:                                                                                                  #  RENDEZVOUS GUIDANCE STORAGE -P32....P35-      (89D)
005753,002193: 
005754,002194: E7,1471  E7,1611               TSTRT              EQUALS   DELDV                                 #  MIDCOURSE START TIME
005755,002195: E7,1471  E7,1573               TDEC2              EQUALS   DELVCSI                               #  TEMP STORAGE FOR INTEGRATION TIME INPUT
005756,002196: E7,1471  E7,1575               KT                 EQUALS   DELVTPI                               #  TEMP STORAGE FOR MIDCOURSE DELTA TIME
005757,002197: E7,1471                        VACT1              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE AT CSI TIME
005758,002198: E7,1477                        RPASS1             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CSI TIME
005759,002199: E7,1505                        VPASS1             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CSI TIME
005760,002200: E7,1513                        VACT2              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE AT CDH TIME
005761,002201: E7,1521                        RPASS2             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CDH TIME
005762,002202: E7,1527                        VPASS2             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CDH TIME
005763,002203: E7,1535                        RACT3              ERASE    +5D                                   #  POSITION VECTOR OF ACTIVE AT TPI TIME
005764,002204: E7,1543                        VACT3              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE AT TPI TIME
005765,002205: E7,1551                        RPASS3             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT TPI TIME
005766,002206: E7,1557                        VPASS3             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT TPI TIME
005767,002207: E7,1565                        VACT4              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE AT INTERCEPT
005768,002208: E7,1573  E7,1543               UNVEC              EQUALS   VACT3                                 #  CDHMVR UNIT VECTOR TEMP STORAGE.
005769,002209: E7,1573                        DELVCSI            ERASE    +1D                                   #  THRUST VALUE AT CSI
005770,002210: E7,1575                        DELVTPI            ERASE    +1D                                   #  THRUST VALUE AT TPI OR MID
005771,002211: E7,1577  E7,1575               DELVMID            EQUALS   DELVTPI                               
005772,002212: E7,1577                        DIFFALT            ERASE    +1D                                   #  ALT DIFFERENCE AT CDH
005773,002213: E7,1601                        POSTCSI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CSI MANEUVER
005774,002214: E7,1603                        POSTCDH            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CDH MANEUVER
005775,002215: E7,1605                        POSTTPI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER TPI MANEUVER
005776,002216: E7,1607  E7,1605               LOOPCT             EQUALS   POSTTPI                               #  CSI NEWTON ITERATION COUNTER
005777,002217: E7,1607  E7,1603               HAFPA1             EQUALS   POSTCDH                               #  HALF PERIOD
005778,002218: E7,1607                        GAMPREV            ERASE    +1                                    #  PREVIOUS GAMMA
005779,002219: E7,1611  E7,1575               DVPREV             EQUALS   DELVTPI                               #  PREVIOUS DELVCSI
005780,002220: E7,1611                        DELDV              ERASE    +1D                                   
005781,002221: E7,1613                        CSIALRM            ERASE    +1                                    #  FIRST SOLUTION ALARM
005782,002222: E7,1615                        VERBNOUN           ERASE                                          
005783,002223: E7,1616  E7,1613               TITER              EQUALS   CSIALRM                               #  ITERATION COUNTER
005784,002224: E7,1616                        RDOTV              ERASE    +1                                    
005785,002225: E7,1620  E7,1505               VAPREC             EQUALS   VPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005786,002226: E7,1620  E7,1477               RAPREC             EQUALS   RPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005787,002227: E7,1620  E7,1527               VPPREC             EQUALS   VPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005788,002228: E7,1620  E7,1521               RPPREC             EQUALS   RPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005789,002229: E7,1620  E7,1575               DELEL              EQUALS   DELVTPI                               #  I(2) S-S
005790,002230: E7,1620  E7,1611               DELTEE             EQUALS   DELDV                                 #  I(2) S-S
005791,002231: E7,1620  E7,1573               SECMAX             EQUALS   DELVCSI                               #  I(2) S-S MAX STOP SIZE FOR ROUTINE
005792,002232: E7,1620  E7,1605               DELTEEO            EQUALS   POSTTPI                               #  I(2) S-S BACK VALUES OF DELTA TIME
005793,002233: E7,1620                        CENTANG            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
005794,002234: 

Page 142

005796,002236:                                                                                                  #  SOME P47 STORAGE                              (6D)
005797,002237: 
005798,002238: E7,1622                        DELVIMU            ERASE    +5                                    #  I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
005799,002239: 
005800,002240:                                                                                                  #  P30-P40 COMMON STORAGE.                       (3D)
005801,002241: 
005802,002242: E7,1630                        TPASS4             ERASE    +1                                    #  INTERCEPT TIME
005803,002243: E7,1632                        QTEMP              ERASE                                          #  I(1)TMP COMMON RETURN SAVE REGISTER.
005804,002244: 
005805,002245:                                                                                                  #  P32,33,34 STORAGE.                            (6D)
005806,002246: 
005807,002247: E7,1633                        TCSI               ERASE    +1                                    #  B(2)TMP CSI TIME IN CENTISECONDS
005808,002248: E7,1635                        TTPI               ERASE    +1                                    #  B(2)TMP TPI TIME IN CENTISECONDS
005809,002249: E7,1637                        TTPIO              ERASE    +1                                    #  B(2)TMP TTPI STORAGE FOR RECYCLE
005810,002250: 
005811,002251:                                                                                                  #  P30,P40 INTERFACE.                            (21D)
005812,002252: 
005813,002253: E7,1641                        RTIG               ERASE    +19D                                  #  I(6)TMP
005814,002254: E7,1665  E7,1647               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
005815,002255: E7,1665  E7,1655               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
005816,002256: E7,1665  E7,1663               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
005817,002257: E7,1665  E7,1663               VGDISP             =        DELVSAB                               
005818,002258: 
005819,002259: E7,1665                        QTEMP1             ERASE                                          #  I(1)TMP HOLDS RETURN.
005820,002260: E7,1666  E7,1665               RGEXIT             EQUALS   QTEMP1                                #  SAVE Q
005821,002261: E7,1666  E7,1665               SAVQR52            EQUALS   QTEMP1                                
005822,002262: 
005823,002263:                                                                                                  #  INITVEL STORAGE.  (IN OVERLAY 0 AND OVERLAY 1.        (2D)
005824,002264:                                                                                                  #        (CALLS LAMBERT, CONIC SUBROUTINES)
005825,002265: 
005826,002266: E7,1666  E7,1565               VTPRIME            EQUALS   VACT4                                 #  TOTAL VELOCITY AT DESIRED RADIUS
005827,002267: E7,1666  E7,1616               ITCTR              EQUALS   RDOTV                                 #  ITERATION COUNTER
005828,002268: E7,1666                        COZY4              ERASE    +1                                    #  COS OF ANGLE WHEN ROTATION STARTS
005829,002269: E7,1670  E7,1611               X1INPUT            EQUALS   DELDV                                 #  X1 TEMP STORAGE
005830,002270: E7,1670  E7,1607               INTIME             EQUALS   GAMPREV                               #  TIME OF RINIT
005831,002271: 
005832,002272:                                                                                                  #  PERIAPO STORAGE. (2D)                         (2D)
005833,002273: 
005834,002274: E7,1670                        XXXALT             ERASE    +1                                    #  RADIUS TO LAUNCH PAD OR LANDING SIGHT
005835,002275: 
005836,002276: E7,1672  E7,1672               END-IN/M           EQUALS   XXXALT     +2                         #  NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
005837,002277: 

Page 143

005839,002279:                                                                                                  #  S40.1 STORAGE.                                (12D)
005840,002280: 
005841,002281: E7,1672                        UT                 ERASE    +11D                                  #  I(6) THRUST DIRECTION
005842,002282: E7,1706  E7,1700               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
005843,002283: E7,1706  E7,1700               VGPREV             =        VGTIG                                 
005844,002284: 
005845,002285:                                                                                                  #  ASTEER STORAGE.                               (22D)
005846,002286: 
005847,002287: E7,1706                        VG                 ERASE    +21D                                  #  I(6)
005848,002288: E7,1734  E7,1714               RMAG               EQUALS   VG         +6                         #  I(2)
005849,002289: E7,1734  E7,1716               MUASTEER           EQUALS   RMAG       +2                         #  I(2)
005850,002290: E7,1734  E7,1720               MU/A               EQUALS   MUASTEER   +2                         #  I(2)
005851,002291: E7,1734  E7,1722               RTMAG              EQUALS   MU/A       +2                         #  I(2)
005852,002292: E7,1734  E7,1724               R1C                EQUALS   RTMAG      +2                         #  I(6)
005853,002293: E7,1734  E7,1732               SS                 EQUALS   R1C        +6                         #  I(2)
005854,002294: 
005855,002295: E7,1734  E7,1655               IC                 =        DELVSIN                               
005856,002296: E7,1734  E7,1762               TIGSAVE            =        P21TIME                               
005857,002297: E7,1734  E7,1764               TIGSAVEP           =        SCAXIS                                
005858,002298: E7,1734  E7,1766               MUSCALE            =        SCAXIS     +2                         
005859,002299: 
005860,002300:                                                                                                  #  P40 STORAGE.                                  (6D)
005861,002301: 
005862,002302:                                                                                                  #  F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
005863,002303: 
005864,002304: E7,1734                        F                  ERASE    +5                                    #  I(2)TMP S40.1 GENERATES THIS FOR S40.3
005865,002305: E7,1742  E7,1736               MDOT               EQUALS   F          +2                         #  I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
005866,002306: E7,1742  E7,1740               TDECAY             EQUALS   MDOT       +2                         #  I(2)IN DELTA-T TAILOFF, (2**28)CS.
005867,002307: E7,1742                        VEX                ERASE    +1                                    #  I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
005868,002308: 
005869,002309:                                                                                                  #  MIDTOAV1(2) STORAGE.  (CALLED BY P40,P41,P42)         (1D)
005870,002310: 
005871,002311: E7,1744                        IRETURN1           ERASE                                          #  B(1) RETURN FROM MIDTOAV1 AND 2
005872,002312: 

Page 144

005874,002314:                                                                                                  #  ******* OVERLAY NUMBER 1 IN EBANK 7 *******
005875,002315: 
005876,002316:                                                                                                  #  INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1)    (6D)
005877,002317: 
005878,002318: E7,1745  E7,1471               RTARG1             EQUALS   VACT1                                 #  I(6)S TEMP STORAGE OF RTARG
005879,002319: 
005880,002320:                                                                                                  #  P35-P40 INTERFACE.                            (6D)
005881,002321: 
005882,002322: E7,1745  E7,1505               VPASS4             EQUALS   VPASS1                                #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
005883,002323: 
005884,002324:                                                                                                  #  INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
005885,002325: 
005886,002326:                                                                                                  #  SOME P38-39,P78-79 STORAGE.                           (2D)
005887,002327: E7,1745  E7,1630               TINT               EQUALS   TPASS4                                #  I(2) TIME OF INTERCEPT
005888,002328: 
005889,002329: 
005890,002330:                                                                                                  #  LAT-LONG TEMPORARIES.  CAN OVERLAY WITH S40.1         (3D)
005891,002331: 
005892,002332: E7,1745  E7,1672               ERADM              EQUALS   UT                                    #  I(2)
005893,002333: E7,1745  E7,1674               INCORPEX           EQUALS   ERADM      +2                         #  I(1)
005894,002334: 
005895,002335:                                                                                                  #  LRS24.1 STORAGE.  (CAN SHARE WITH P30'S)              (40D)
005896,002336: 
005897,002337: E7,1745  E7,1675               RLMSRCH            EQUALS   INCORPEX   +1                         #  I(6)TMP LM POSITION VECTOR
005898,002338: E7,1745  E7,1703               VXRCM              EQUALS   RLMSRCH    +6                         #  I(6)    CM V X R VECTOR
005899,002339: E7,1745  E7,1711               LOSDESRD           EQUALS   VXRCM      +6                         #  I(6)    DESIRED LOS VECTOR
005900,002340: E7,1745  E7,1717               UXVECT             EQUALS   LOSDESRD   +6                         #  I(6)    X-AXIS SRCH PATTERN COORDS
005901,002341: E7,1745  E7,1725               UYVECT             EQUALS   UXVECT     +6                         #  I(6)    Y-AXIS SRCH PATTERN COORDS
005902,002342: E7,1745  E7,1733               DATAGOOD           EQUALS   UYVECT     +6                         #  B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
005903,002343: E7,1745  E7,1734               OMEGDISP           EQUALS   DATAGOOD   +1                         #  B(2)    ANGLE OMEGA DISPLAYED IN R2
005904,002344: E7,1745  E7,1734               OMEGAD             =        OMEGDISP                              #          PINBALL DEFINITION.
005905,002345: E7,1745  E7,1736               NSRCHPNT           EQUALS   OMEGDISP   +2                         #  B(1)TMP SEARCH PATTERN POINT COUNTER.
005906,002346: E7,1745  E7,1737               SAVLEMV            EQUALS   NSRCHPNT   +1                         #  I(6)S-S SAVES LOSVEL
005907,002347: 

Page 145

005909,002349:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 7 *******
005910,002350: 
005911,002351:                                                                                                  #  INCORP STORAGE IN E7.                         (47D)
005912,002352: 
005913,002353: E7,1745  E7,1471               TX789              EQUALS   E7OVERLA                              #  I(6)
005914,002354: E7,1745  E7,1477               GAMMA              EQUALS   TX789      +6                         #  I(3)
005915,002355: E7,1745  E7,1502               OMEGA              EQUALS   GAMMA      +3                         #  I(18)
005916,002356: E7,1745  E7,1524               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)
005917,002357: E7,1745  E7,1546               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)
005918,002358: 
005919,002359:                                                                                                  #  AOTMARK STORAGE                               (3D)
005920,002360: 
005921,002361: E7,1745  E7,1550               MARKCNTR           EQUALS   DELTAQ     +2                         #  I(1)
005922,002362: E7,1745  E7,1551               XYMARK             EQUALS   MARKCNTR   +1                         #  B(1)
005923,002363: E7,1745  E7,1552               MKDEX              EQUALS   XYMARK     +1                         #  B(1)TMP INDEX FOR AOTMARK
005924,002364: 
005925,002365:                                                                                                  #  PLANET STORAGE.                               (8D)
005926,002366: 
005927,002367: E7,1745  E7,1553               PLANVEC            EQUALS   MKDEX      +1                         #  (6) REFER VECTOR OF PLANET
005928,002368: E7,1745  E7,1561               TSIGHT             EQUALS   PLANVEC    +6                         #  (2) TIME OF MARK OR EST TIME OF MARK
005929,002369: 
005930,002370:                                                                                                  #  LRS22.3 STORAGE.  (CAN SHARE WITH P30'S AND OVERLAY LRS24.1   (30D).
005931,002371: 
005932,002372: E7,1745  E7,1675               LGRET              EQUALS   RLMSRCH                               #  I(1)TMP
005933,002373: E7,1745  E7,1675               RDRET              EQUALS   LGRET                                 #  B(1) TEMP RETURN.
005934,002374: E7,1745  E7,1675               IGRET              EQUALS   LGRET                                 #  B(1) TEMP RETURN.
005935,002375: E7,1745  E7,1676               MX                 EQUALS   RDRET      +1                         #  I(6)
005936,002376: E7,1745  E7,1704               MY                 EQUALS   MX         +6                         #  I(6)
005937,002377: E7,1745  E7,1712               MZ                 EQUALS   MY         +6                         #  I(6)
005938,002378: E7,1745  E7,1676               E0                 EQUALS   MX                                    #  I(2)
005939,002379: E7,1745  E7,1700               E1                 EQUALS   MX         +2                         #  I(2)
005940,002380: E7,1745  E7,1702               E2                 EQUALS   MX         +4                         #  I(2)
005941,002381: E7,1745  E7,1704               E3                 EQUALS   E2         +2                         #  I(2)
005942,002382: E7,1745  E7,1720               SCALSHFT           EQUALS   MZ         +6                         #  B(1) SCALE SHIFT FOR EARTH/MOON
005943,002383: E7,1745  E7,1721               RXZ                EQUALS   SCALSHFT   +1                         #  I(2)
005944,002384: E7,1745  E7,1723               ULC                EQUALS   RXZ        +2                         #  I(6)
005945,002385: E7,1745  E7,1731               SINTHETA           EQUALS   ULC        +6                         #  I(2)
005946,002386: 
005947,002387:                                                                                                  #  ***** IN OVERLAY ONE *****
005948,002388: 
005949,002389: E7,1745  E7,1746               N49FLAG            EQUALS   RDOTMSAV                              #  B(1)S FLAG INDICATING V0649 RESPONSE
005950,002390: 
005951,002391:                                                                                                  #  LRS22.1 STORAGE.  (MUST NOT SHARE WITH P30'S)         (13D)
005952,002392: 
005953,002393:                                                                                                  #  (OUTPUTS ARE TO LRS22.3)
005954,002394: 

Page 146

005956,002396: E7,1745  E7,1733               RRTRUN             EQUALS   SINTHETA   +2                         #  B(2)OUT RR TRUNION ANGLE
005957,002397: E7,1745  E7,1735               RRSHAFT            EQUALS   RRTRUN     +2                         #  B(2)OUT RR SHAFT ANGLE
005958,002398: E7,1745  E7,1737               LRS22.1X           EQUALS   RRSHAFT    +2                         #  B(1)TMP
005959,002399: E7,1745  E7,1740               RRBORSIT           EQUALS   LRS22.1X   +1                         #  I(6)TMP RADAR BORESIGHT VECTOR.
005960,002400: E7,1745  E7,1746               RDOTMSAV           EQUALS   RRBORSIT   +6                         #  B(2)S RR RANGE-RATE (FPS)
005961,002401: 
005962,002402:                                                                                                  #  LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29)         (10D) CANNOT SHARE WITH L.A.D.
005963,002403: 
005964,002404: E7,1745  E7,1750               RDOTM              EQUALS   RDOTMSAV   +2                         #  B(2)OUT RANGE-RATE READING
005965,002405: E7,1745  E7,1752               TANGNB             EQUALS   RDOTM      +2                         #  B(2)TMP RR GIMBAL ANGLES
005966,002406:                                                                                                  #  RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
005967,002407: E7,1745  E7,1754               MKTIME             EQUALS   TANGNB     +2                         #  B(2)OUT TIME OF RR READING
005968,002408: E7,1745  E7,1756               RM                 EQUALS   MKTIME     +2                         #  I(2)OUT RANGE READING
005969,002409: E7,1745  E7,1760               RANGRDOT           EQUALS   RM         +2                         #  B(2) DOWNLINKED RAW RANGE AND RRATE
005970,002410: 
005971,002411:                                                                                                  #  R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE*
005972,002412:                                                                                                  #  (CALLED BY P20, R22LEM, LSR22.3)              (1D)
005973,002413: 
005974,002414: E7,1745  E7,1745               R65CNTR            EQUALS   RRBORSIT   +5                         #  B(1)SS COUNT NUMBER OF TIMES PREFERRED
005975,002415:                                                                                                  #         TRACKING ROUTINE IS TO CYCLE
005976,002416: E7,1745  E7,1745               WHCHREAD           EQUALS   R65CNTR                               #  TELLS WHICH RR DATA TRIGGERED N49 DISPLA
005977,002417: 
005978,002418:                                                                                                  #  P21 STORAGE                                   (2D)
005979,002419: 
005980,002420: E7,1745  E7,1762               P21TIME            EQUALS   RANGRDOT   +2                         #  I(2)TMP
005981,002421: 
005982,002422:                                                                                                  #  KALCMANU, VECPOINT STORAGE.  CALLED BY R63, R61, R65.         (12D)
005983,002423: 
005984,002424: E7,1745  E7,1764               SCAXIS             EQUALS   P21TIME    +2                         #  I(6)
005985,002425: E7,1745  E7,1772               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)

Page 147

005987,002427:                                                                                                  #  ******* OVERLAY NUMBER 3 IN EBANK 7 *******
005988,002428: 
005989,002429: 
005990,002430:                                                                                                  #  SERVICER STORAGE                              (6D)
005991,002431: 
005992,002432: E7,1745  E7,1471               ABVEL              EQUALS   E7OVERLA                              #  B(2) DISPLAY
005993,002433: E7,1745  E7,1473               HDOTDISP           EQUALS   ABVEL      +2                         #  B(2) DISPLAY
005994,002434: E7,1745  E7,1475               TTFDISP            EQUALS   HDOTDISP   +2                         #  B(2) DISPLAY
005995,002435: 
005996,002436:                                                                                                  #  BURN PROG STORAGE.                            (2D)
005997,002437: 
005998,002438: E7,1745  E7,1477               SAVET-30           EQUALS   TTFDISP    +2                         #  B(2)TMP TIG-30 RESTART
005999,002439: 
006000,002440:                                                                                                  #  SERVICER STORAGE.                             (69D)
006001,002441: 
006002,002442: E7,1745  E7,1501               VGBODY             EQUALS   SAVET-30   +2                         #  B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
006003,002443: E7,1745  E7,1501               DELVCTL            =        VGBODY                                
006004,002444: E7,1745  E7,1507               DVTOTAL            EQUALS   VGBODY     +6                         #  B(2) DISPLAY NOUN
006005,002445: E7,1745  E7,1511               GOBLTIME           EQUALS   DVTOTAL    +2                         #  B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
006006,002446: E7,1745  E7,1513               ABDVCONV           EQUALS   GOBLTIME   +2                         #  I(2)
006007,002447: E7,1745  E7,1515               DVCNTR             EQUALS   ABDVCONV   +2                         #  B(1)
006008,002448: E7,1745  E7,1516               TGO                EQUALS   DVCNTR     +1                         #  B(2)
006009,002449: E7,1745  E7,1520               R                  EQUALS   TGO        +2                         #  I(6)
006010,002450: E7,1745  E7,1520               UNITGOBL           EQUALS   R                                     #  I(6)
006011,002451: E7,1745  E7,1526               V                  EQUALS   R          +6                         
006012,002452: E7,1745  E7,1526               DELVREF            EQUALS   V                                     #  I(6)
006013,002453: E7,1745  E7,1534               HCALC              EQUALS   DELVREF    +6                         #  B(2) LR
006014,002454: E7,1745  E7,1536               UNIT/R/            EQUALS   HCALC      +2                         #  I(6)
006015,002455: 
006016,002456:                                                                                                  #  (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
006017,002457: 
006018,002458: E7,1745  E7,1544               RN1                EQUALS   UNIT/R/    +6                         #  B(6)
006019,002459: E7,1745  E7,1552               VN1                EQUALS   RN1        +6                         #  I(6)          ( IN ORDER )
006020,002460: E7,1745  E7,1560               PIPTIME1           EQUALS   VN1        +6                         #  B(2)          (    FOR   )
006021,002461: E7,1745  E7,1562               GDT1/2             EQUALS   PIPTIME1   +2                         #  I(6)          (   COPY   )
006022,002462: E7,1745  E7,1570               MASS1              EQUALS   GDT1/2     +6                         #  I(2)          (   CYCLE  )
006023,002463: E7,1745  E7,1572               R1S                EQUALS   MASS1      +2                         #  I(6)
006024,002464: E7,1745  E7,1600               V1S                EQUALS   R1S        +6                         #  I(6)
006025,002465: 
006026,002466:                                                                                                  #  ALIGNMENT/S40.2.3 COMMON STORAGE.             (18D)
006027,002467: 
006028,002468: E7,1745  E7,1606               XSMD               EQUALS   V1S        +6                         #  I(6)
006029,002469: E7,1745  E7,1614               YSMD               EQUALS   XSMD       +6                         #  I(6)
006030,002470: E7,1745  E7,1622               ZSMD               EQUALS   YSMD       +6                         #  I(6)
006031,002471: 
006032,002472: E7,1745  E7,1606               XSCREF             =        XSMD                                  
006033,002473: E7,1745  E7,1614               YSCREF             =        YSMD                                  

Page 148

006035,002475: E7,1745  E7,1622               ZSCREF             =        ZSMD                                  
006036,002476: 
006037,002477: E7,1745  E7,1630               END-ALIG           EQUALS   ZSMD       +6                         #  NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
006038,002478: 
006039,002479:                                                                                                  #  ****** P22 ******                             (24D)
006040,002480: 
006041,002481: E7,1745  E7,1630               RSUBL              EQUALS   END-ALIG                              #  I(6)S-S       LM POSITION VECTOR
006042,002482: E7,1745  E7,1636               UCSM               EQUALS   RSUBL      +6                         #  I(6)S-S       VECTOR U
006043,002483: E7,1745  E7,1644               NEWVEL             EQUALS   UCSM       +6                         #  I(6)S-S       TERMINAL VELOCITY VECTOR
006044,002484: E7,1745  E7,1652               NEWPOS             EQUALS   NEWVEL     +6                         #  I(6)S-S       TERMINAL POSITION VECTOR
006045,002485: E7,1745  E7,1660               LNCHTM             EQUALS   NEWPOS     +6                         #  I(2)S-S       EST. LAUNCH TIME FOR LEM
006046,002486: E7,1745  E7,1662               TRANSTM            EQUALS   LNCHTM     +2                         #  I(2)S-S       TRANSFER TIME
006047,002487: E7,1745  E7,1664               NCSMVEL            EQUALS   TRANSTM    +2                         #  I(6)S-S       NEW CSM VELOCITY
006048,002488: 
006049,002489:                                                                                                  #  ***** P21 *****                               (18D)
006050,002490: 
006051,002491: E7,1745     1163               P21ORIG            =        DISPDEX                               
006052,002492: E7,1745  E7,1675               P21BASER           EQUALS   RLMSRCH                               #  I(6)TMP
006053,002493: E7,1745  E7,1703               P21BASEV           EQUALS   P21BASER   +6                         #  I(6)TMP
006054,002494: E7,1745  E7,1711               P21VEL             EQUALS   P21BASEV   +6                         #  I(2)TMP       *** NOUN 91 ***
006055,002495: E7,1745  E7,1713               P21GAM             EQUALS   P21VEL     +2                         #  I(2)TMP       *** NOUN 91 ***
006056,002496: E7,1745  E7,1715               P21ALT             EQUALS   P21GAM     +2                         #  I(2)TMP       *** NOUN 91 ***
006057,002497: 

Page 149

006059,002499:                                                                                                  #  ******* OVERLAY NUMBER 4 IN EBANK 7 *******
006060,002500: 
006061,002501:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING)         (80D)
006062,002502: 
006063,002503:                                                                                                  #  THESE ERASABLES MAY BE SHARED WITH CARE
006064,002504: 
006065,002505: E7,1745  E7,1544               OURTEMPS           =        RN1                                   #  OVERLAY LAST PART OF SERVICER
006066,002506: E7,1745  E7,1544               LANDTEMP           =        OURTEMPS                              #  B(6)  GUIDANCE
006067,002507: E7,1745  E7,1552               TTF/8TMP           =        LANDTEMP   +6                         #  B(2)  GUIDANCE
006068,002508: E7,1745  E7,1554               ELINCR             =        TTF/8TMP   +2                         #  B(2)  GUIDANCE
006069,002509: E7,1745  E7,1556               AZINCR             =        ELINCR     +2                         #  B(2)  GUIDANCE
006070,002510: E7,1745  E7,1560               KEEP-2             =        AZINCR     +2                         #  B(2)  TO PREVENT PIPTIME1 OVERLAY
006071,002511: E7,1745  E7,1562               TABLTTF            =        KEEP-2     +2                         #  B(2)  GUIDANCE
006072,002512: E7,1745  E7,1573               TPIPOLD            =        TABLTTF    +9D                        #  B(2)  GUIDANCE
006073,002513: E7,1745  E7,1621               E2DPS              EQUALS   OURPERMS                              
006074,002514: 
006075,002515:                                                                                                  #  THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
006076,002516: 
006077,002517: E7,1745  E7,1606               PIFPSET            =        XSMD                                  #  B(1)  THROTTLE
006078,002518: E7,1745  E7,1607               RTNHOLD            =        PIFPSET    +1                         #  B(1)  THROTTLE
006079,002519: E7,1745  E7,1610               FWEIGHT            =        RTNHOLD    +1                         #  B(2)  THROTTLE
006080,002520: E7,1745  E7,1612               PIF                =        FWEIGHT    +2                         #  B(2)  THROTTLE
006081,002521: E7,1745  E7,1614               PSEUDO55           =        PIF        +2                         #  B(1)  THROTTLE DOWNLINK
006082,002522: E7,1745  E7,1615               FC                 =        PSEUDO55   +1                         #  B(2)  THROTTLE
006083,002523: E7,1745  E7,1617               TTHROT             =        FC         +2                         #  B(1)  THROTTLE
006084,002524: E7,1745  E7,1620               FCOLD              =        TTHROT     +1                         #  B(1)  THROTTLE
006085,002525: 
006086,002526:                                                                                                  #  THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
006087,002527: 
006088,002528: E7,1745  E7,1621               OURPERMS           =        FCOLD      +1                         #  MUSTN'T OVERLAY OURTEMPS OR SERVICER
006089,002529: E7,1745  E7,1621               WCHPHOLD           =        OURPERMS                              #  B(1)  GUIDANCE
006090,002530: E7,1745  E7,1622               FILLER             =        WCHPHOLD   +1                         
006091,002531: E7,1745  E7,1623               FLPASS0            =        FILLER     +1                         #  B(1)  GUIDANCE
006092,002532: E7,1745  E7,1624               TPIP               =        FLPASS0    +1                         #  B(2)
006093,002533: E7,1745  E7,1626               VGU                =        TPIP       +2                         #  B(6)  GUIDANCE
006094,002534: E7,1745  E7,1634               LAND               =        VGU        +6                         #  B(6)  GUIDANCE        CONTIGUOUS
006095,002535: E7,1745  E7,1642               TTF/8              =        LAND       +6                         #  B(2)  GUIDANCE        CONTIGUOUS
006096,002536: E7,1745  E7,1644               ELIDUMMY           =        TTF/8      +2                         #  (1)   DUMMY FOR ELINCR1
006097,002537: E7,1745  E7,1645               AZIDUMMY           =        ELIDUMMY   +1                         #  (1)   DUMMY FOR AZINCR1
006098,002538: E7,1745  E7,1646               ZERDUMMY           =        AZIDUMMY   +1                         #  (1)   DUMMY FOR ZERLINA
006099,002539: E7,1745  E7,1647               ELVDUMMY           =        ZERDUMMY   +1                         #  (1)   DUMMY FOR ELVIRA
006100,002540: E7,1745  E7,1650               LRADRET            =        ELVDUMMY   +1                         #  B(1)  LR
006101,002541: E7,1745  E7,1651               VSELECT            =        LRADRET    +1                         #  B(1)  LR
006102,002542: E7,1745  E7,1652               VMEAS              =        VSELECT    +1                         #  B(2)  LR
006103,002543: E7,1745  E7,1654               HMEAS              =        VMEAS      +2                         #  B(2)  LR
006104,002544: E7,1745  E7,1656               VN2                =        HMEAS      +2                         #  B(6)  LR

Page 150

006106,002546: E7,1745  E7,1656               GNUR               =        VN2                                   #  B(6)  LR
006107,002547: E7,1745  E7,1656               GNUV               =        VN2                                   #  B(6)  LR
006108,002548: E7,1745  E7,1656               LRADRET1           =        VN2                                   #  B(1)  LR
006109,002549: E7,1745  E7,1664               DELTAH             =        VN2        +6                         #  B(2)  DISPLAY
006110,002550: E7,1745  E7,1666               FUNNYDSP           =        DELTAH     +2                         #  B(2)  DISPLAY
006111,002551: E7,1745  E7,1670               EOURPERM           EQUALS   FUNNYDSP   +2                         #  NEXT AVAILABLE ERASABLE AFTER OURPERMS
006112,002552: 
006113,002553:                                                                                                  #  (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
006114,002554: 
006115,002555: E7,1745  E7,1644               VDGVERT            =        ELIDUMMY                              #  B(2)  P65,P66
006116,002556: E7,1745  E7,1646               NIGNLOOP           =        ZERDUMMY                              #  B(1)  IGNALG
006117,002557: E7,1745  E7,1647               NGUIDSUB           =        ELVDUMMY                              #  B(1)  IGNALG
006118,002558: E7,1745  E7,1647               WCHVERT            =        ELVDUMMY                              #  B(1)  P65,P66,P67
006119,002559: E7,1745  E7,1666               FUELNEED           =        FUNNYDSP                              #  B(1)  DISPLAY
006120,002560: E7,1745  E7,1666               TREDES             =        FUNNYDSP                              #  B(1)  DISPLAY
006121,002561: E7,1745  E7,1667               LOOKANGL           =        FUNNYDSP   +1                         #  B(1)  DISPLAY
006122,002562: 
006123,002563:                                                                                                  #  ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
006124,002564: 
006125,002565: E7,1745                        PROJ               =        18D                                   #  I(2)  GUIDANCE
006126,002566: E7,1745                        UNLRB/2            =        20D                                   #  I(6)  GUIDANCE (DURING P64 ONLY)
006127,002567: E7,1745                        UNLR/2             =        20D                                   #  I(6)  GUIDANCE
006128,002568: 
006129,002569:                                                                                                  #  THE END OF THE LUNAR LANDING ERASABLES
006130,002570: 
006131,002571:                                                                                                  #  R12 (FOR LUNAR LANDING)                       (6D)
006132,002572: 
006133,002573: E7,1745  E7,1670               LRLCTR             EQUALS   EOURPERM                              #  B(1) LR DATA TEST
006134,002574: E7,1745  E7,1671               LRRCTR             EQUALS   LRLCTR     +1                         #  B(1)
006135,002575: E7,1745  E7,1672               LRMCTR             EQUALS   LRRCTR     +1                         #  B(1)
006136,002576: E7,1745  E7,1673               LRSCTR             EQUALS   LRMCTR     +1                         #  B(1)
006137,002577: E7,1745  E7,1674               STILBADH           EQUALS   LRSCTR     +1                         #  B(1)
006138,002578: E7,1745  E7,1675               STILBADV           EQUALS   STILBADH   +1                         #  B(1)
006139,002579: 
006140,002580:                                                                                                  #  LANDING ANALOGS DISPLAY STORAGE.              (40D)
006141,002581: 
006142,002582: E7,1745  E7,1676               LATVMETR           EQUALS   STILBADV   +1                         #  B(1)PRM LATVEL MONITOR METER (AN ORDER)
006143,002583: E7,1745  E7,1677               FORVMETR           EQUALS   LATVMETR   +1                         #  B(1)PRM FORVEL MONITOR METER (-ED PAIR)
006144,002584: E7,1745  E7,1700               LATVEL             EQUALS   FORVMETR   +1                         #  B(1)PRM LATERAL VELOCITY (AN ORDER)
006145,002585: E7,1745  E7,1701               FORVEL             EQUALS   LATVEL     +1                         #  B(1)PRM FORWARD VELOCITY (-ED PAIR)
006146,002586: E7,1745  E7,1702               TRAKLATV           EQUALS   FORVEL     +1                         #  B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER)
006147,002587: E7,1745  E7,1703               TRAKFWDV           EQUALS   TRAKLATV   +1                         #  B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
006148,002588: E7,1745  E7,1704               VHY                EQUALS   TRAKFWDV   +1                         #  B(1)PRM VHY=VMP.UHYP (AN ORDER)

Page 151

006150,002590: E7,1745  E7,1705               VHZ                EQUALS   VHY        +1                         #  B(1)PRM VHZ=VMP.UHZP (-ED PAIR)
006151,002591: E7,1745  E7,1706               VVECT              EQUALS   VHZ        +1                         #  B(3)PRM UPDATED S.P. VELOCITY VECTOR
006152,002592: E7,1745  E7,1711               ALTRATE            EQUALS   VVECT      +3                         #  B(1)PRM ALTITUDE RATE IN BIT UNITS
006153,002593: E7,1745  E7,1712               ALTSAVE            EQUALS   ALTRATE    +1                         #  B(2)PRM ALTITUDE IN BIT UNITS
006154,002594: E7,1745  E7,1714               LADQSAVE           EQUALS   ALTSAVE    +2                         #  B(1)PRM SAVE Q IN LANDISP
006155,002595: E7,1745  E7,1715               DT                 EQUALS   LADQSAVE   +1                         #  B(1)PRM TIME 1 MINUS (PIPTIME +1)
006156,002596: E7,1745  E7,1716               DALTRATE           EQUALS   DT         +1                         #  B(1)PRM ALTITUDE RATE ERROR CORRECTION
006157,002597: E7,1745  E7,1717               UHYP               EQUALS   DALTRATE   +1                         #  B(6)PRM SM UNIT VECTOR
006158,002598: E7,1745  E7,1717               QAXIS              =        UHYP                                  
006159,002599: E7,1745  E7,1725               UHZP               EQUALS   UHYP       +6                         #  B(6)PRM SM UNIT VECTOR
006160,002600: E7,1745  E7,1733               DELVS              EQUALS   UHZP       +6                         #  B(6)PRM DELVS = WMXR
006161,002601: E7,1745  E7,1741               ALTBITS            EQUALS   DELVS      +6                         #  B(2)PRM ALTITUDE IN BIT UNITS, 2.34 FT/BT
006162,002602: E7,1745  E7,1743               RUNIT              EQUALS   ALTBITS    +2                         #  B(3)PRM SM HALF-UNIT R VECTOR
006163,002603: E7,1745  E7,1745               LASTLADW           EQUALS   RUNIT      +2                         #  ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
006164,002604: 
006165,002605:                                                                                                  #  P66 ERASABLES (R.O.D.)                        (1D)
006166,002606: 
006167,002607: E7,1745  E7,1746               RODCOUNT           EQUALS   RUNIT      +3                         
006168,002608: 
006169,002609:                                                                                                  #  P66 ERASABLES (R.O.D.)                        (14D)
006170,002610: 
006171,002611: E7,1745  E7,1756               RODSCAL1           EQUALS   RM                                    #  B(1)
006172,002612: E7,1745  E7,1757               LASTTPIP           EQUALS   RODSCAL1   +1                         #  I(2)
006173,002613: E7,1745  E7,1761               THISTPIP           EQUALS   LASTTPIP   +2                         #  B(2)
006174,002614: E7,1745  E7,1763               OLDPIPAX           EQUALS   THISTPIP   +2                         #  B(1)
006175,002615: E7,1745  E7,1764               OLDPIPAY           EQUALS   OLDPIPAX   +1                         #  B(1)
006176,002616: E7,1745  E7,1765               OLDPIPAZ           EQUALS   OLDPIPAY   +1                         #  B(1)
006177,002617: E7,1745  E7,1766               DELVROD            EQUALS   OLDPIPAZ   +1                         #  B(6)
006178,002618: 
006179,002619:                                                                                                  #  NOUN 63 COMPONENT                             (2D)
006180,002620: 
006181,002621: E7,1745  E7,1774               HCALC1             EQUALS   DELVROD    +6                         #  I(2)
006182,002622: 

Page 152

006184,002624:                                                                                                  #  ******* OVERLAY NUMBER 5 IN EBANK 7 *******
006185,002625: 
006186,002626:                                                                                                  #  ASCENT GUIDANCE ERASABLES.                    (21D)
006187,002627: 
006188,002628: E7,1745  E7,1630               RCO                EQUALS   END-ALIG                              #  I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
006189,002629: E7,1745  E7,1632               YCO                EQUALS   RCO        +2                         #  I(2)TMP DISTANCE, SCALED AT 2(24).
006190,002630: E7,1745  E7,1634               1/DV1              EQUALS   YCO        +2                         #  B(2)TMP ATMAG
006191,002631: E7,1745  E7,1636               1/DV2              EQUALS   1/DV1      +2                         #  B(2)TMP ATMAG
006192,002632: E7,1745  E7,1640               1/DV3              EQUALS   1/DV2      +2                         #  B(2)TMP ATMAG
006193,002633: E7,1745  E7,1642               XRANGE             EQUALS   1/DV3      +2                         #  B(2)TMP
006194,002634: E7,1745  E7,1644               ENGOFFDT           EQUALS   XRANGE     +2                         #  B(1)TMP
006195,002635: E7,1745  E7,1645               VGVECT             EQUALS   ENGOFFDT   +1                         #  I(6)OUT VELOCITY-TO-BE-GAINED
006196,002636: E7,1745  E7,1653               TXO                EQUALS   VGVECT     +6                         #  I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
006197,002637:                                                                                                  #  IS ALLOWED.
006198,002638: 
006199,002639:                                                                                                  #  END OF THE ASCENT GUIDANCE ERASABLES.
006200,002640: 
006201,002641:                                                                                                  #  THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
006202,002642: 
006203,002643: E7,1745  E7,1745               END-E7.0           EQUALS   IRETURN1   +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 0
006204,002644: E7,1745  E7,1747               END-E7.1           EQUALS   N49FLAG    +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 1
006205,002645: E7,1745     4000               END-E7.2           EQUALS   POINTVSM   +6                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 2
006206,002646: E7,1745  E7,1630               END-E7.3           EQUALS   END-ALIG                              #  FIRST UNUSED LOCATION IN E7 OVERLAY 3
006207,002647: E7,1745                        END-E7.4           EQUALS   3777                                  #  ** LAST LOCATION USED IN E7 OVERLAY 4 **
006208,002648: E7,1745  E7,1655               END-E7.5           EQUALS   TXO        +2                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 5
006209,002649: E7,1745                        END-E7             EQUALS   3777                                  #  ** LAST LOCATION USED IN E7 **

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