Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

004653,000002:                                                                                                  ## Copyright:   Public domain.
004654,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
004655,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
004656,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
004657,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
004658,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
004659,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
004660,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
004661,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
004662,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
004663,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
004664,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
004665,000014:                                                                                                  ## Reference:   pp. 106-167
004666,000015:                                                                                                  ## Assembler:   yaYUL
004667,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
004668,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
004669,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
004670,000019:                                                                                                  ##              2019-07-27 MAS  Added E3J22R2M and E32C31RM padload erasables
004671,000020:                                                                                                  ##                              for LUM69 rev 2.
004672,000021:                                                                                                  ##              2020-12-14 RSB  Tweaked the annotation relevant to the
004673,000022:                                                                                                  ##                              change mentioned above to conform to the
004674,000023:                                                                                                  ##                              style and extent of similar justifying
004675,000024:                                                                                                  ##                              annotations previously added to 
004676,000025:                                                                                                  ##                              Comanche 44 and 51.
004677,000026:                                                                                                  ##              2021-05-30 ABS  W.INDI -> W.IND1
004678,000027:                                                                                                  ##                              TTPIO -> TTPI0
004679,000028: 

Page 106

004681,000030:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
004682,000031: 
004683,000032:                                                                                                  #           EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
004684,000033:                                                                                                  #                  OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
004685,000034:                                                                                                  #                  CHANGING OF ONLY ONE CARD.  EXAMPLE.
004686,000035: 
004687,000036:                                                                                                  #                                          X        EQUALS  START
004688,000037:                                                                                                  #                                          Y        EQUALS  X       +SIZE.X
004689,000038:                                                                                                  #                                          Z        EQUALS  Y       +SIZE.Y
004690,000039: 
004691,000040:                                                                                                  #                  (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
004692,000041:                                                                                                  #                  (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
004693,000042:                                                                                                  #                   USUALLY NUMERIC,  IE. 1, 2, 6, 18D ETC.                )
004694,000043: 
004695,000044:                                                                                                  #           EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
004696,000045:                                                                                                  #                  AND DIFFERENT DATA).  EXAMPLE.
004697,000046: 
004698,000047:                                                                                                  #                                          X        EQUALS Y
004699,000048: 
004700,000049:                                                                                                  #           = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
004701,000050:                                                                                                  #                  (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
004702,000051: 
004703,000052:                                                                                                  #                                          X        =      Y
004704,000053: 
004705,000054:                                                                                                  #           THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
004706,000055:                                                                                                  #           THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
004707,000056: 
004708,000057:                                                                                                  #                  M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
004709,000058:                                                                                                  #                       B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
004710,000059:                                                                                                  #                           INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
004711,000060:                                                                                                  #                       I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
004712,000061:                                                                                                  #                           INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
004713,000062:                                                                                                  #                           INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
004714,000063: 
004715,000064:                                                                                                  #                  SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
004716,000065: 
004717,000066:                                                                                                  #                  N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
004718,000067:                                                                                                  #                       PL  MEANS THAT THE CONTENTS ARE PAD LOADED.
004719,000068:                                                                                                  #                       DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
004720,000069:                                                                                                  #                       PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
004721,000070:                                                                                                  #                           IS USED DURING THE ENTIRE MISSION FOR ONE
004722,000071:                                                                                                  #                           PURPOSE AND CANNOT BE SHARED.
004723,000072:                                                                                                  #                       TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
004724,000073:                                                                                                  #                           IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
004725,000074:                                                                                                  #                           IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
004726,000075:                                                                                                  #                           PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
004727,000076:                                                                                                  #                           CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS
004728,000077: 

Page 107

004730,000079:                                                                                                  #                           IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
004731,000080:                                                                                                  #                           IS NOT ACTIVE IN PARALLEL.
004732,000081:                                                                                                  #                      IN   MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
004733,000082:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004734,000083:                                                                                                  #                      OUT  MEANS OUTPUT FROM THE ROUTINE, PROBABLY
004735,000084:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004736,000085: 

Page 108

004738,000087:                                                                                                  #           SPECIAL REGISTERS.
004739,000088: 
004740,000089: 24,2022                        A                  EQUALS   0                                     
004741,000090: 24,2022                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
004742,000091: 24,2022                        Q                  EQUALS   2                                     
004743,000092: 24,2022                        EBANK              EQUALS   3                                     
004744,000093: 24,2022                        FBANK              EQUALS   4                                     
004745,000094: 24,2022                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
004746,000095: 24,2022                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
004747,000096:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
004748,000097: 
004749,000098: 24,2022                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
004750,000099: 24,2022                        LRUPT              EQUALS   11                                    
004751,000100: 24,2022                        QRUPT              EQUALS   12                                    
004752,000101: 24,2022                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
004753,000102: 24,2022                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
004754,000103: 24,2022                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
004755,000104: 24,2022                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
004756,000105: 
004757,000106: 24,2022                        CYR                EQUALS   20                                    
004758,000107: 24,2022                        SR                 EQUALS   21                                    
004759,000108: 24,2022                        CYL                EQUALS   22                                    
004760,000109: 24,2022                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
004761,000110: 
004762,000111: 24,2022                        TIME2              EQUALS   24                                    
004763,000112: 24,2022                        TIME1              EQUALS   25                                    
004764,000113: 24,2022                        TIME3              EQUALS   26                                    
004765,000114: 24,2022                        TIME4              EQUALS   27                                    
004766,000115: 24,2022                        TIME5              EQUALS   30                                    
004767,000116: 24,2022                        TIME6              EQUALS   31                                    
004768,000117: 24,2022                        CDUX               EQUALS   32                                    
004769,000118: 24,2022                        CDUY               EQUALS   33                                    
004770,000119: 24,2022                        CDUZ               EQUALS   34                                    
004771,000120: 24,2022                        CDUT               EQUALS   35                                    #  REND RADAR TRUNNION CDU
004772,000121: 24,2022                        CDUS               EQUALS   36                                    #  REND RADAR SHAFT CDU
004773,000122: 24,2022                        PIPAX              EQUALS   37                                    
004774,000123: 24,2022                        PIPAY              EQUALS   40                                    
004775,000124: 24,2022                        PIPAZ              EQUALS   41                                    
004776,000125: 24,2022                        Q-RHCCTR           EQUALS   42                                    #  RHC COUNTER REGISTERS
004777,000126: 24,2022                        P-RHCCTR           EQUALS   43                                    
004778,000127: 24,2022                        R-RHCCTR           EQUALS   44                                    
004779,000128: 24,2022                        INLINK             EQUALS   45                                    
004780,000129: 24,2022                        RNRAD              EQUALS   46                                    
004781,000130: 24,2022                        GYROCMD            EQUALS   47                                    
004782,000131: 24,2022                        CDUXCMD            EQUALS   50                                    
004783,000132: 24,2022                        CDUYCMD            EQUALS   51                                    
004784,000133: 24,2022                        CDUZCMD            EQUALS   52                                    
004785,000134: 24,2022                        CDUTCMD            EQUALS   53                                    #  RADAR TRUNNION COMMAND
004786,000135: 24,2022                        CDUSCMD            EQUALS   54                                    #  RADAR SHAFT COMMAND
004787,000136: 

Page 109

004789,000138: 24,2022                        THRUST             EQUALS   55                                    
004790,000139: 24,2022                        LEMONM             EQUALS   56                                    
004791,000140: 24,2022                        OUTLINK            EQUALS   57                                    
004792,000141: 24,2022                        ALTM               EQUALS   60                                    
004793,000142: 
004794,000143:                                                                                                  #           INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
004795,000144: 
004796,000145: 24,2022                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
004797,000146: 24,2022                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
004798,000147: 24,2022                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
004799,000148: 24,2022                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
004800,000149: 24,2022                        S1                 EQUALS   40D                                   
004801,000150: 24,2022                        S2                 EQUALS   41D                                   
004802,000151: 24,2022                        QPRET              EQUALS   42D                                   
004803,000152: 
004804,000153:                                                                                                  #  INPUT/OUTPUT CHANNELS
004805,000154: 
004806,000155:                                                                                                  #                                *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
004807,000156: 24,2022  0000001               LCHAN              EQUALS   L                                     
004808,000157: 24,2022  0000002               QCHAN              EQUALS   Q                                     
004809,000158: 24,2022                        HISCALAR           EQUALS   3                                     
004810,000159: 24,2022                        LOSCALAR           EQUALS   4                                     
004811,000160: 24,2022                        CHAN5              EQUALS   5                                     
004812,000161: 24,2022                        CHAN6              EQUALS   6                                     
004813,000162: 24,2022                        SUPERBNK           EQUALS   7                                     #  SUPER-BANK.
004814,000163: 24,2022                        OUT0               EQUALS   10                                    
004815,000164: 24,2022                        DSALMOUT           EQUALS   11                                    
004816,000165: 24,2022                        CHAN12             EQUALS   12                                    
004817,000166: 24,2022                        CHAN13             EQUALS   13                                    
004818,000167: 24,2022                        CHAN14             EQUALS   14                                    
004819,000168: 24,2022                        MNKEYIN            EQUALS   15                                    
004820,000169: 24,2022                        NAVKEYIN           EQUALS   16                                    
004821,000170: 24,2022                        CHAN30             EQUALS   30                                    
004822,000171: 24,2022                        CHAN31             EQUALS   31                                    
004823,000172: 24,2022                        CHAN32             EQUALS   32                                    
004824,000173: 24,2022                        CHAN33             EQUALS   33                                    
004825,000174: 24,2022                        DNTM1              EQUALS   34                                    
004826,000175: 24,2022                        DNTM2              EQUALS   35                                    
004827,000176:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
004828,000177: 

Page 110

004830,000179:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
004831,000180: 
004832,000181: 
004833,000182:                                                                                                  #              **  FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION.  **
004834,000183: 

Page 111

004836,000185:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
004837,000186: 
004838,000187:    0061                                           SETLOC   61                                    
004839,000188:                                                                                                  #           INTERRUPT TEMPORARY STORAGE POOL.                              (11D)
004840,000189: 
004841,000190:                                                                                                  #             (ITEMP1 THROUGH RUPTREG4)
004842,000191: 
004843,000192:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
004844,000193:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
004845,000194: 
004846,000195:    0061                        ITEMP1             ERASE                                          
004847,000196:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
004848,000197:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
004849,000198: 
004850,000199:    0062                        ITEMP2             ERASE                                          
004851,000200:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
004852,000201:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
004853,000202: 
004854,000203:    0063                        ITEMP3             ERASE                                          
004855,000204:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
004856,000205:    0064     0063               WAITADR            EQUALS   ITEMP3                                
004857,000206:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
004858,000207: 
004859,000208:    0064                        ITEMP4             ERASE                                          
004860,000209:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
004861,000210:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
004862,000211: 
004863,000212:    0065                        ITEMP5             ERASE                                          
004864,000213:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
004865,000214: 
004866,000215:    0066                        ITEMP6             ERASE                                          
004867,000216:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
004868,000217: 
004869,000218:    0067                                           SETLOC   67                                    
004870,000219:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
004871,000220: 
004872,000221:    0070                        RUPTREG1           ERASE                                          
004873,000222:    0071                        RUPTREG2           ERASE                                          
004874,000223:    0072                        RUPTREG3           ERASE                                          
004875,000224:    0073                        RUPTREG4           ERASE                                          
004876,000225:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
004877,000226:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
004878,000227: 
004879,000228:                                                                                                  #           FLAGWORD RESERVATIONS.                (16D)
004880,000229: 
004881,000230:    0074                        STATE              ERASE    +15D                                  #  FLAGWORD REGISTERS.
004882,000231: 
004883,000232:                                                                                                  #           P25 RADAR STORAGE.  (MAY BE UNSHARED IN E7)  (TEMP OVERLAY)  (2D)  OVERLAYS FLGWRD 14 & 15
004884,000233: 

Page 112

004886,000235:    0114     0112               LASTYCMD           EQUALS   STATE      +14D                       #  B(1)PRM  THESE ARE CALLED BY T4RUPT
004887,000236:    0114     0113               LASTXCMD           EQUALS   LASTYCMD   +1                         #  B(1)PRM  THEY MUST BE CONTIGUOUS,Y FIRST
004888,000237: 
004889,000238: 
004890,000239: 
004891,000240:                                                                                                  #           EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
004892,000241:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
004893,000242:    0115     0114               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
004894,000243:    0115     0114               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
004895,000244:    0115     0114               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
004896,000245: 
004897,000246:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
004898,000247:    0116     0115               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
004899,000248:    0116     0115               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
004900,000249:    0116     0115               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
004901,000250:    0116     0115               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
004902,000251: 
004903,000252:                                                                                                  #           THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
004904,000253: 
004905,000254:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
004906,000255:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
004907,000256:    0120     0117               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
004908,000257:    0120     0117               CHAR               =        POLISH                                #  TEMP FOR CHARIN
004909,000258:    0120     0117               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
004910,000259:    0120     0117               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
004911,000260: 
004912,000261:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
004913,000262:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
004914,000263: 
004915,000264:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
004916,000265:    0130     0122               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
004917,000266:    0130     0122               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
004918,000267:    0130     0122               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
004919,000268:    0130     0122               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
004920,000269: 
004921,000270:    0130     0123               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
004922,000271:    0130     0123               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
004923,000272:    0130     0123               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
004924,000273:    0130     0123               HITEMIN            =        VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004925,000274:                                                                                                  #           MUST = LOTEMIN-1.
004926,000275:    0130     0124               CODE               =        VBUF       +2                         #  FOR DSPIN
004927,000276:    0130     0124               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
004928,000277:    0130     0124               LOTEMIN            =        VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
004929,000278:                                                                                                  #           MUST = HITEMIN+1.
004930,000279:    0130     0125               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
004931,000280:    0130     0125               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
004932,000281: 
004933,000282:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004934,000283: 
004935,000284:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
004936,000285: 

Page 113

004938,000287:    0133                        BUF2               ERASE    +1                                    
004939,000288:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
004940,000289:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
004941,000290:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
004942,000291:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
004943,000292:    0136     0135               DMPNTEMP           =        MPTEMP                                #  DMPSUB TEMPORARY
004944,000293:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
004945,000294:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
004946,000295:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
004947,000296:    0137     0136               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
004948,000297: 
004949,000298:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
004950,000299:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
004951,000300:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
004952,000301:    0140     0137               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
004953,000302:    0140     0137               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004954,000303: 
004955,000304:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
004956,000305:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
004957,000306:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
004958,000307:    0141     0140               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
004959,000308:    0141     0140               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
004960,000309: 
004961,000310:    0141                        TEM1               ERASE                                          #  EXEC TEMP
004962,000311:    0142     0141               POLYRET            =        TEM1                                  
004963,000312:    0142     0141               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
004964,000313: 
004965,000314:    0142                        TEM2               ERASE                                          #  EXEC TEMP
004966,000315:    0143     0142               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
004967,000316:    0143     0142               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
004968,000317: 
004969,000318:    0143                        TEM3               ERASE                                          #  EXEC TEMP
004970,000319:    0144     0143               COUNT              =        TEM3                                  #  FOR DSPIN
004971,000320: 
004972,000321:    0144                        TEM4               ERASE                                          #  EXEC TEMP
004973,000322:    0145     0144               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
004974,000323:    0145     0144               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
004975,000324:    0145     0144               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
004976,000325:    0145     0144               DSPWDRET           =        TEM4                                  #  RETURN FOR DSPSIGN
004977,000326:    0145     0144               SEPSCRET           =        TEM4                                  #  RETURN FOR SEPSEC
004978,000327:    0145     0144               SEPMNRET           =        TEM4                                  #  RETURN FOR SEPMIN
004979,000328: 
004980,000329:    0145                        TEM5               ERASE                                          #  EXEC TEMP
004981,000330:    0146     0145               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
004982,000331: 
004983,000332:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
004984,000333:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
004985,000334:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004986,000335:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
004987,000336:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004988,000337: 

Page 114

004990,000339:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
004991,000340:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
004992,000341:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
004993,000342:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
004994,000343: 
004995,000344:                                                                                                  #           AX*SR*T STORAGE.                      (6D)
004996,000345:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
004997,000346:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
004998,000347:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
004999,000348:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
005000,000349:    0154     0157               TERM1TMP           EQUALS   MPAC       +3                         #  B(2)TMP
005001,000350: 
005002,000351:    0154     0143               DEXI               =        DEX1                                  
005003,000352: 
005004,000353:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
005005,000354:                                                                                                  #  SUBROUTINE ROOTPSRS.   THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
005006,000355:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
005007,000356: 
005008,000357:    0154     0142               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
005009,000358:    0154     0143               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
005010,000359:    0154     0144               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
005011,000360:    0154     0145               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
005012,000361:    0154     0146               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
005013,000362:    0154     0147               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
005014,000363:    0154     0150               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
005015,000364:    0154     0151               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
005016,000365:    0154     0152               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N HI ORDER
005017,000366:    0154     0153               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N LO ORDER
005018,000367: 
005019,000368:    0154     0117               PWRPTR             =        POLISH                                #  ROOTPSRS POWER TABLE POINTER
005020,000369:    0154     0124               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
005021,000370:    0154     0125               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
005022,000371:    0154     0126               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
005023,000372:    0154     0127               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
005024,000373:    0154     0132               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
005025,000374:    0154     0140               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABLE LOOP COUNTER
005026,000375:    0154     0141               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABLE POINTER
005027,000376: 

Page 115

005029,000378:                                                                                                  #           DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                    (84D)
005030,000379: 
005031,000380:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
005032,000381:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
005033,000382:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
005034,000383:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
005035,000384:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
005036,000385:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
005037,000386: 
005038,000387:    0170                                           ERASE    +83D                                  #  EIGHT SETS OF  12 REGISTERS EACH
005039,000388: 
005040,000389:                                                                                                  #  INCORP STORAGE: R22 (N29)    (SHARES WITH FOLLOWING SECTION)         (4D)
005041,000390: 
005042,000391:    0314     0314               R22DISP            EQUALS   TIME2SAV                              #  I(4) N49 DISPLAY OF DELTA R AND DELTA V
005043,000392: 
005044,000393: 
005045,000394:                                                                                                  #  STANDBY VERB ERASABLES.  REDOCTR BEFORE THETADS.                      (14D)
005046,000395: 
005047,000396:    0314                        TIME2SAV           ERASE    +1                                    
005048,000397:    0316                        SCALSAVE           ERASE    +1                                    
005049,000398:    0320                        REDOCTR            ERASE                                          #  CONTAINS NUMBER OF RESTARTS
005050,000399:    0321                        THETAD             ERASE    +2                                    
005051,000400:    0324     0321               CPHI               =        THETAD                                #  O   DESIRED GIMBAL ANGLES
005052,000401:    0324     0322               CTHETA             =        THETAD     +1                         #  I   FOR
005053,000402:    0324     0323               CPSI               =        THETAD     +2                         #  M   MANEUVER.
005054,000403:    0324                        DELV               ERASE    +5                                    
005055,000404:    0332     0324               DELVX              =        DELV                                  
005056,000405:    0332     0326               DELVY              =        DELV       +2                         
005057,000406:    0332     0330               DELVZ              =        DELV       +4                         
005058,000407: 
005059,000408: 
005060,000409: 
005061,000410:                                                                                                  #           DOWNLINK STORAGE.                                            (28D)
005062,000411: 
005063,000412:    0332     0332               DNLSTADR           EQUALS   DNLSTCOD                              
005064,000413: 
005065,000414:    0332                        DNLSTCOD           ERASE                                          #  B(1)PRM DOWNLIINK LIST CODE
005066,000415:    0333                        DUMPCNT            ERASE                                          #  B(1)
005067,000416:    0334                        LDATALST           ERASE    +25D                                  #  (26D)
005068,000417:    0366     0335               DNTMGOTO           EQUALS   LDATALST   +1                         #  B(1)
005069,000418:    0366     0336               TMINDEX            EQUALS   DNTMGOTO   +1                         #  B(1)
005070,000419:    0366     0336               DUMPLOC            EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
005071,000420:                                                                                                  #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
005072,000421:                                                                                                  #  ENT.
005073,000422:    0366     0337               DNQ                EQUALS   TMINDEX    +1                         #  B(1)
005074,000423:    0366     0340               DNTMBUFF           EQUALS   DNQ        +1                         #  B(22)PRM DOWNLINK SNAPSHOT BUFFER
005075,000424: 
005076,000425:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                   (10D) FIVE MORE IN EBANK 2
005077,000426: 

Page 116

005079,000428:    0366                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
005080,000429:    0367                        NVWORD             ERASE                                          
005081,000430:    0370                        MARKNV             ERASE                                          
005082,000431:    0371                        NVSAVE             ERASE                                          
005083,000432:                                                                                                  #                  (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
005084,000433:    0372                        CADRFLSH           ERASE                                          
005085,000434:    0373                        CADRMARK           ERASE                                          
005086,000435:    0374                        TEMPFLSH           ERASE                                          
005087,000436:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM 3 ALARM CODE REGISTERS
005088,000437: 
005089,000438:                                                                                                  #           VAC AREAS. -BE CAREFUL OF PLACEMENT-                         (220D)
005090,000439: 
005091,000440:    0400                        VAC1USE            ERASE                                          
005092,000441:    0401                        VAC1               ERASE    +42D                                  
005093,000442:    0454                        VAC2USE            ERASE                                          
005094,000443:    0455                        VAC2               ERASE    +42D                                  
005095,000444:    0530                        VAC3USE            ERASE                                          
005096,000445:    0531                        VAC3               ERASE    +42D                                  
005097,000446:    0604                        VAC4USE            ERASE                                          
005098,000447:    0605                        VAC4               ERASE    +42D                                  
005099,000448:    0660                        VAC5USE            ERASE                                          
005100,000449:    0661                        VAC5               ERASE    +42D                                  
005101,000450: 
005102,000451:                                                                                                  #           WAITLIST REPEAT FLAG.                                        (1D)
005103,000452: 
005104,000453:    0734                        RUPTAGN            ERASE                                          
005105,000454:    0735     0734               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
005106,000455: 
005107,000456: 
005108,000457:                                                                                                  #           STARALIGN ERASABLES.                                         (13D)
005109,000458: 
005110,000459:    0735                        STARCODE           ERASE                                          #  (1)
005111,000460:    0736     0735               AOTCODE            =        STARCODE                              
005112,000461:    0736                        STARALGN           ERASE    +11D                                  
005113,000462:    0752     0736               SINCDU             =        STARALGN                              
005114,000463:    0752     0744               COSCDU             =        STARALGN   +6                         
005115,000464: 
005116,000465:    0752     0742               SINCDUX            =        SINCDU     +4                         
005117,000466:    0752     0736               SINCDUY            =        SINCDU                                
005118,000467:    0752     0740               SINCDUZ            =        SINCDU     +2                         
005119,000468:    0752     0750               COSCDUX            =        COSCDU     +4                         
005120,000469:    0752     0744               COSCDUY            =        COSCDU                                
005121,000470:    0752     0746               COSCDUZ            =        COSCDU     +2                         
005122,000471: 
005123,000472: 
005124,000473:                                                                                                  #           PHASE TABLE AND RESTART COUNTERS.                            (12D)
005125,000474: 
005126,000475:    0752                        -PHASE1            ERASE                                          
005127,000476: 

Page 117

005129,000478:    0753                        PHASE1             ERASE                                          
005130,000479:    0754                        -PHASE2            ERASE                                          
005131,000480:    0755                        PHASE2             ERASE                                          
005132,000481:    0756                        -PHASE3            ERASE                                          
005133,000482:    0757                        PHASE3             ERASE                                          
005134,000483:    0760                        -PHASE4            ERASE                                          
005135,000484:    0761                        PHASE4             ERASE                                          
005136,000485:    0762                        -PHASE5            ERASE                                          
005137,000486:    0763                        PHASE5             ERASE                                          
005138,000487:    0764                        -PHASE6            ERASE                                          
005139,000488:    0765                        PHASE6             ERASE                                          
005140,000489: 
005141,000490:                                                                                                  #           A**SR*T STORAGE.                                             (6D)
005142,000491: 
005143,000492:    0766                        CDUSPOT            ERASE    +5                                    #  B(6)
005144,000493: 
005145,000494:    0774     0766               CDUSPOTY           =        CDUSPOT                               
005146,000495:    0774     0770               CDUSPOTZ           =        CDUSPOT    +2                         
005147,000496:    0774     0772               CDUSPOTX           =        CDUSPOT    +4                         
005148,000497: 
005149,000498:                                                                                                  #           VERB 37 STORAGE.                                             (2D)
005150,000499: 
005151,000500:    0774                        MINDEX             ERASE                                          #  B(1)TMP INDEX FOR MAJOR MODE
005152,000501:    0775                        MMNUMBER           ERASE                                          #  B(1)TMP MAJOR MODE REQUESTED BY V37
005153,000502: 
005154,000503:                                                                                                  #  PINBALL INTERRUPT ACTION.                                             (1D)
005155,000504: 
005156,000505:    0776                        DSPCNT             ERASE                                          #  B(1)PRM COUNTER FOR DSPOUT.
005157,000506: 
005158,000507:                                                                                                  #  PINBALL EXECUTIVE ACTION                                              (44D)
005159,000508: 
005160,000509:    0777                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR.
005161,000510:    1000                        DECBRNCH           ERASE                                          #  +DEC, -DEC, OCT INDICATOR
005162,000511:    1001                        VERBREG            ERASE                                          #  VERB CODE
005163,000512:    1002                        NOUNREG            ERASE                                          #  NOUN CODE
005164,000513:    1003                        XREG               ERASE                                          #  R1 INPUT BUFFER
005165,000514:    1004                        YREG               ERASE                                          #  R2 INPUT BUFFER
005166,000515:    1005                        ZREG               ERASE                                          #  R3 INPUT BUFFER
005167,000516:    1006                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
005168,000517:    1007                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
005169,000518:    1010     1007               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
005170,000519:                                                                                                  #           MUST = LOTEMOUT-1.
005171,000520:    1010                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
005172,000521:    1011     1010               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
005173,000522:                                                                                                  #           MUST = HITEMOUT+1.
005174,000523:    1011                        MODREG             ERASE                                          #  MODE CODE
005175,000524: 

Page 118

005177,000526:    1012                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
005178,000527:    1013                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
005179,000528:    1014                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
005180,000529:    1015                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
005181,000530:    1016                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
005182,000531:    1017                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
005183,000532:    1020                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
005184,000533:    1021                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
005185,000534:    1022                        MONSAVE2           ERASE                                          #  NVMONOPT OPTIONS
005186,000535:    1023                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
005187,000536:    1037                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
005188,000537:                                                                                                  #  MUST = NVBNKTEM-1
005189,000538:    1040                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
005190,000539:                                                                                                  #  MUST = NVQTEM+1
005191,000540:    1041                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
005192,000541:    1042                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
005193,000542:    1043                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
005194,000543:    1044                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
005195,000544:    1045                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
005196,000545:    1050                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
005197,000546: 
005198,000547:    1053     1051               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
005199,000548:    1053     1045               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
005200,000549: 
005201,000550: 
005202,000551:                                                                                                  #           DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) )        (2D)
005203,000552: 
005204,000553:    1053     1051               OPTIONX            EQUALS   DSPTEMX                               #  (2) EXTENDED VERB OPTION CODE
005205,000554: 
005206,000555:                                                                                                  #           TBASES AND PHSPRDT S.                                        (12D)
005207,000556: 
005208,000557:    1053                        TBASE1             ERASE                                          
005209,000558:    1054                        PHSPRDT1           ERASE                                          
005210,000559:    1055                        TBASE2             ERASE                                          
005211,000560:    1056                        PHSPRDT2           ERASE                                          
005212,000561:    1057                        TBASE3             ERASE                                          
005213,000562:    1060                        PHSPRDT3           ERASE                                          
005214,000563:    1061                        TBASE4             ERASE                                          
005215,000564:    1062                        PHSPRDT4           ERASE                                          
005216,000565:    1063                        TBASE5             ERASE                                          
005217,000566:    1064                        PHSPRDT5           ERASE                                          
005218,000567:    1065                        TBASE6             ERASE                                          
005219,000568:    1066                        PHSPRDT6           ERASE                                          
005220,000569: 
005221,000570:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                   (6D)
005222,000571: 

Page 119

005224,000573:    1067                        NVWORD1            ERASE                                          #  B(1) PROBABLY FOR DISPLAY DURING SERVICER
005225,000574:    1070                        EBANKSAV           ERASE                                          
005226,000575:    1071                        MARKEBAN           ERASE                                          
005227,000576:    1072                        EBANKTEM           ERASE                                          
005228,000577:    1073                        MARK2PAC           ERASE                                          
005229,000578:    1074                        R1SAVE             ERASE                                          
005230,000579: 
005231,000580: 
005232,000581:                                                                                                  #           IMU COMPENSATION UNSWITCHED ERASABLE.                        (1D)
005233,000582: 
005234,000583:    1075                        1/PIPADT           ERASE                                          
005235,000584: 
005236,000585: 
005237,000586:                                                                                                  #           SINGLE PRECISION SUBROUTINE TEMPORARIES.                     (2D)
005238,000587: 
005239,000588:    1076                        TEMK               ERASE                                          #  (1)
005240,000589:    1077                        SQ                 ERASE                                          #  (1)
005241,000590: 
005242,000591: 
005243,000592:                                                                                                  #           UNSWITCHED RADAR ERASABLE                                    (13D)
005244,000593: 
005245,000594:    1100                        SAMPLIM            ERASE                                          
005246,000595:    1101                        SAMPLSUM           ERASE    +3                                    
005247,000596:    1105                        TIMEHOLD           ERASE    +1                                    
005248,000597:    1107     1101               RRTARGET           EQUALS   SAMPLSUM                              #  HALF U IT VECTOR IN SM OR NB AXES.
005249,000598:    1107                        TANG               ERASE    +1                                    #  DESIRE TRUNNION AND SHAFT ANGLES.
005250,000599:    1111     1107               MODEA              EQUALS   TANG                                  
005251,000600:    1111                        MODEB              ERASE    +1                                    #  DODES LOBBERS TANG +2.
005252,000601:    1113     1111               NSAMP              EQUALS   MODEB                                 
005253,000602:    1113                        DESRET             ERASE                                          
005254,000603:    1114     1113               OLDATAGD           EQUALS   DESRET                                #  USED I  DATA READING ROUTINES.
005255,000604:    1114                        DESCOUNT           ERASE                                          
005256,000605: 
005257,000606:                                                                                                  #           ******   P22   ******                                        (6D)
005258,000607: 
005259,000608:    1115     1101               RSUBC              EQUALS   RRTARGET                              #  I(6)S-S  CSM POSITION VECTOR
005260,000609: 

Page 120

005262,000611:                                                                                                  #           UNSWITCHED FOR ORBIT INTEGRATION.                            (21D)
005263,000612: 
005264,000613:    1115                        TDEC               ERASE    +20D                                  #  I(2)
005265,000614:    1142     1117               COLREG             EQUALS   TDEC       +2                         #  I(1)
005266,000615:    1142     1120               LAT                EQUALS   COLREG     +1                         #  I(2)
005267,000616:    1142     1122               LONG               EQUALS   LAT        +2                         #  I(2)
005268,000617:    1142     1124               ALT                EQUALS   LONG       +2                         #  I(2)
005269,000618:    1142     1126               YV                 EQUALS   ALT        +2                         #  I(6)
005270,000619:    1142     1134               ZV                 EQUALS   YV         +6                         #  I(6)
005271,000620: 
005272,000621: 
005273,000622:                                                                                                  #           MISCELLANEOUS UNSWITCHED.                                    (20D)
005274,000623: 
005275,000624:    1142                        P40/RET            ERASE                                          #  (WILL BE PUT IN E6 WHEN THERE IS ROOM)
005276,000625:    1143                        GENRET             ERASE                                          #  B(1)  R61 RETURN CADR.
005277,000626:    1144                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
005278,000627:    1145                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
005279,000628:    1146                        OPTION3            ERASE                                          #  B(1)  NOUN 06 USES THIS
005280,000629:    1147                        LONGCADR           ERASE    +1                                    #  B(2)  LONGCALL REGISTER
005281,000630:    1151                        LONGBASE           ERASE    +1                                    
005282,000631:    1153                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
005283,000632:    1155                        CDUTEMPX           ERASE                                          #  B(1)TMP
005284,000633:    1156                        CDUTEMPY           ERASE                                          #  B(1)TMP
005285,000634:    1157                        CDUTEMPZ           ERASE                                          #  B(1)TMP
005286,000635:    1160                        PIPATMPX           ERASE                                          #  B(1)TMP
005287,000636:    1161                        PIPATMPY           ERASE                                          #  B(1)TMP
005288,000637:    1162                        PIPATMPZ           ERASE                                          #  B(1)TMP
005289,000638: 
005290,000639:    1163                        DISPDEX            ERASE                                          #  B(1)
005291,000640:    1164                        TEMPR60            ERASE                                          #  B(1)
005292,000641:    1165                        PRIOTIME           ERASE                                          #  B(1)
005293,000642: 
005294,000643:                                                                                                  #  P27  (UPDATE PROGRAM ) STORAGE.                                       (26D)
005295,000644: 
005296,000645:    1166                        UPVERBSV           ERASE                                          #  B(1) UPDATE VERB ATTEMPTED.
005297,000646:    1167                        UPTEMP             ERASE    +24D                                  #  B(1)TMP SCRATCH
005298,000647:    1220     1167               INTWAK1Q           EQUALS   UPTEMP                                #      (BORROWS UPTEMP REGISTERS)
005299,000648:                                                                                                  #  RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
005300,000649:    1220     1170               COMPNUMB           EQUALS   UPTEMP     +1                         #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
005301,000650:    1220     1171               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP INTERRUPTED PROGRAM MM
005302,000651:    1220     1172               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
005303,000652:    1220     1173               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
005304,000653:    1220     1174               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
005305,000654: 
005306,000655: 
005307,000656:                                                                                                  #           SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS.            (2D)
005308,000657: 
005309,000658:    1220     1167               EBUF2              EQUALS   UPTEMP                                #  B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
005310,000659: 
005311,000660: 

Page 121

005313,000662:                                                                                                  #           PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION-     (14D)
005314,000663: 
005315,000664:    1220                        RN                 ERASE    +5                                    #  B(6)PRM
005316,000665:    1226                        VN                 ERASE    +5                                    #  B(6)PRM
005317,000666:    1234                        PIPTIME            ERASE    +1                                    #  B(2)PRM  (MUST BE FOLLOWED BY GDT/2)
005318,000667: 
005319,000668: 
005320,000669:                                                                                                  #           SERVICER   -MUST FOLLOW PIPTIME-                             (19D)
005321,000670: 
005322,000671:    1236                        GDT/2              ERASE    +19D                                  #  B(6)TMP (MUST FOLLOW PIPTIME)
005323,000672:    1262     1244               MASS               EQUALS   GDT/2      +6                         #  B(2)
005324,000673:    1262     1244               WEIGHT/G           =        MASS                                  
005325,000674:    1262     1246               ABDELV             EQUALS   MASS       +2                         #  ALCMANU STORAGE)
005326,000675:    1262     1247               PGUIDE             EQUALS   ABDELV     +1                         #  (2)
005327,000676:    1262     1251               DVTHRUSH           EQUALS   PGUIDE     +2                         #  (1)
005328,000677:    1262     1252               AVEGEXIT           EQUALS   DVTHRUSH   +1                         #   (2)
005329,000678:    1262     1252               AVGEXIT            =        AVEGEXIT                              
005330,000679:    1262     1254               TEMX               EQUALS   AVEGEXIT   +2                         #   (1)
005331,000680:    1262     1255               TEMY               EQUALS   TEMX       +1                         #   (1)
005332,000681:    1262     1256               TEMZ               EQUALS   TEMY       +1                         #   (1)
005333,000682:    1262     1257               PIPAGE             EQUALS   TEMZ       +1                         #  B(1)
005334,000683:    1262     1260               OUTROUTE           EQUALS   PIPAGE     +1                         #  B(1)
005335,000684: 
005336,000685: 
005337,000686: 
005338,000687:                                                                                                  #           PERMANENT LEM DAP STORAGE.                                   (12D)
005339,000688: 
005340,000689:    1262                        CH5MASK            ERASE                                          #  B(1)PRM
005341,000690:    1263                        CH6MASK            ERASE                                          #  B(1)PRM JET FAILURE MASK.
005342,000691:    1264                        DTHETASM           ERASE    +5                                    #   (6)
005343,000692:    1272                        SPNDX              ERASE                                          #  B(1)
005344,000693:    1273                        RCSFLAGS           ERASE                                          #  AUTOPILOT FLAG WORD
005345,000694:                                                                                                  #  BIT ASSIGNMENTS:
005346,000695:                                                                                                  #   1) ALTERYZ SWITCH  (ZEROOR1)
005347,000696:                                                                                                  #   2) NEEDLER SWITCH
005348,000697:                                                                                                  #   3) NEEDLER SWITCH
005349,000698:                                                                                                  #   4) NEEDLER SWITCH
005350,000699:                                                                                                  #   5) NEEDLER SWITCH
005351,000700:                                                                                                  #   9) JUST-IN-DETENT SWITCH
005352,000701:                                                                                                  #  10) PBIT - MANUAL CONTROL SWITCH
005353,000702:                                                                                                  #  11) QRBIT - MANUAL CONTROL SWITCH
005354,000703:                                                                                                  #  12) PSKIP CONTROL (PJUMPADR)
005355,000704:                                                                                                  #  13) 1/ACCJOB CONTROL (ACCSET)
005356,000705:    1274                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
005357,000706:                                                                                                  #  BBCON  OF NEXT LM DAP T5RUPT.   2CADR
005358,000707: 
005359,000708: 
005360,000709:                                                                                                  #           RCS FAILURE MONITOR STORAGE.                                  (1)
005361,000710: 

Page 122

005363,000712:    1276                        PVALVEST           ERASE                                          #  B(1)PRM
005364,000713: 
005365,000714: 
005366,000715:                                                                                                  #           KALCMANU/DAP INTERFACE.                                      (3D)
005367,000716: 
005368,000717:    1277                        DELPEROR           ERASE                                          #  B(1)PRM COMMAND LAGS.
005369,000718:    1300                        DELQEROR           ERASE                                          #  B(1)PRM
005370,000719:    1301                        DELREROR           ERASE                                          #  B(1)PRM
005371,000720: 
005372,000721: 
005373,000722:                                                                                                  #           MODE SWITCHING ERASABLE.                                     (9D)
005374,000723: 
005375,000724:                                                                                                  #      RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
005376,000725:    1302                        IMODES30           ERASE                                          #  B(1)
005377,000726:    1303                        IMODES33           ERASE                                          
005378,000727:    1304                        MODECADR           ERASE    +2                                    #  B(3)PRM
005379,000728:    1307     1304               IMUCADR            EQUALS   MODECADR                              
005380,000729:    1307     1305               OPTCADR            EQUALS   MODECADR   +1                         
005381,000730:    1307     1306               RADCADR            EQUALS   MODECADR   +2                         
005382,000731:    1307                        ATTCADR            ERASE    +2                                    #  B(3)PRM
005383,000732:    1312     1311               ATTPRIO            =        ATTCADR    +2                         
005384,000733:    1312                        MARKSTAT           ERASE                                          
005385,000734: 
005386,000735:                                                                                                  #           T4RUPT ERASABLE.                                             (2D)
005387,000736: 
005388,000737:    1313                        DSRUPTSW           ERASE                                          
005389,000738:    1314                        LGYRO              ERASE                                          #  (1)
005390,000739: 
005391,000740:                                                                                                  #           RENDEZVOUS RADAR TASK STORAGE                                (3D)
005392,000741: 
005393,000742:    1315                        RRRET              ERASE    +2D                                   #  B(1)TMP  P20'S, PERHAPS R29 & R12
005394,000743:    1320     1316               RDES               EQUALS   RRRET      +1                         #  B(1)TMP
005395,000744:    1320     1317               RRINDEX            EQUALS   RDES       +1                         #  B(1)TMP
005396,000745: 
005397,000746: 
005398,000747: 
005399,000748:                                                                                                  #           MEASINC                                                      (4D)
005400,000749: 
005401,000750:    1320                        WIXA               ERASE                                          #  B(1)
005402,000751:    1321                        WIXB               ERASE                                          #  B(1)
005403,000752:    1322                        ZIXA               ERASE                                          #  B(1)
005404,000753:    1323                        ZIXB               ERASE                                          #  B(1)
005405,000754: 
005406,000755:                                                                                                  #           AGS DUMMY ID WORD.                                           (1D)
005407,000756: 
005408,000757:    1324                        AGSWORD            ERASE                                          
005409,000758: 
005410,000759:                                                                                                  #           SOME MISCELLANEOUS UNSWITCHED.                               (6D)
005411,000760: 

Page 123

005413,000762: 
005414,000763:    1325                        RATEINDX           ERASE                                          #   (1)    USED BY KALCMANU
005415,000764:    1326                        DELAYLOC           ERASE    +2                                    
005416,000765:    1331                        LEMMASS            ERASE                                          #  KEEP CONTIGUOUS W.  CSMMASS  (1)EACH
005417,000766:    1332                        CSMMASS            ERASE                                          
005418,000767: 
005419,000768:                                                                                                  #  LESS IS MORE.
005420,000769: 
005421,000770:                                                                                                  #           RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE.               (7D)
005422,000771: 
005423,000772:                                                                                                  #                  (NORMALLY USED DURING P20, BUT MAY ALSO)
005424,000773:                                                                                                  #                  (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
005425,000774: 
005426,000775:                                                                                                  #                                  (PLEASE KEEP IN THIS ORDER)
005427,000776: 
005428,000777:    1333                        DNRRANGE           ERASE    +6                                    #  B(1) TMP
005429,000778:    1342     1334               DNRRDOT            EQUALS   DNRRANGE   +1                         #  B(1)TMP
005430,000779:    1342     1335               DNINDEX            EQUALS   DNRRDOT    +1                         #  B(1)TMP
005431,000780:    1342     1336               DNLRVELX           EQUALS   DNINDEX    +1                         #  B(1)TMP
005432,000781:    1342     1337               DNLRVELY           EQUALS   DNLRVELX   +1                         #  B(1)TMP
005433,000782:    1342     1340               DNLRVELZ           EQUALS   DNLRVELY   +1                         #  B(1)TMP
005434,000783:    1342     1341               DNLRALT            EQUALS   DNLRVELZ   +1                         #  B(1) TMP
005435,000784: 
005436,000785:                                                                                                  #           INCORPORATION UNSWITCHED.                                    (2D)
005437,000786: 
005438,000787:    1342     1257               W.IND              EQUALS   PIPAGE                                #  B(1)
005439,000788:    1342     1260               W.IND1             EQUALS   W.IND      +1                         #  I(1)
005440,000789: 
005441,000790: 
005442,000791:                                                                                                  #           SUBROUTINE BALLANGS OF R60.                                  (1D)
005443,000792: 
005444,000793:    1342                        BALLEXIT           ERASE                                          #  B(1)SAVE LOCATION FOR BALLINGS SUBR EXIT
005445,000794: 
005446,000795: 
005447,000796:                                                                                                  #           SOME LEM DAP STORAGE.                         (4D)
005448,000797: 
005449,000798:    1343                        DAPDATR1           ERASE                                          #  B(1)DSP DAP CONFIG.
005450,000799:    1344                        TEVENT             ERASE    +1                                    #  B(2)DSP
005451,000800:    1346                        DB                 ERASE                                          #  B(1)TMP DEAD BAND.
005452,000801: 
005453,000802: 
005454,000803: 
005455,000804:                                                                                                  #           NOUN 87                                                      (2D)
005456,000805: 
005457,000806:    1347                        AZ                 ERASE    +1D                                   #  B(1)  AZ AND EL MUST BE CONTIGUOUS
005458,000807:    1351     1350               EL                 EQUALS   AZ         +1D                        #  B(1)
005459,000808: 
005460,000809: 
005461,000810:                                                                                                  #  ERASABLES FOR THE R2 LUNAR POTENTIAL MODEL                            (2D)
005462,000811: 

Reconstruction: The two lines immediately following this annotation were not present in Luminary 69. They have been added to Luminary 69/2 due to incorporation of the R-2 Lunar Potential Model — see LUMINARY Memo #75. The lines have been taken without change from Luminary 99/1, which also incorporates the R-2 model. According to LUMINARY Memo #78", the implementation of the R-2 model was dictated by Program Change Notice (PCN) 761.1, of which we don't have a copy of the full text, but whose title is "R-2 Lunar Potential Model". The memo goes on to state that PCN 761.1 required the addition of two single-precision padloads, E3J22R2M and E32C31RM.

A point which at first may confuse is that PCN 761.1 was incorporated in Luminary 95. So why does the change appear in Luminary 69/2? But the confusion is only momentary after a little thought: Luminary 95 derives from Luminary 69, and Luminary 69/2 derives from Luminary 69 as well. So what? Luminary 69/2 does not derive from Luminary 95, or vice-versa. We don't know which of them came first, and in the present context don't care.

005481,000830:    1351                        E3J22R2M           ERASE                                          #  I(1)
005482,000831:    1352                        E32C31RM           ERASE                                          #  I(1)
005483,000832: 
005484,000833:    1353                        END-UE             EQUALS                                         #  NEXT UNUSED UE ADDRESS
005485,000834: 
005486,000835: 
005487,000836:                                                                                                  #           SELF-CHECK ASSIGNMENTS.                                      (17D)
005488,000837: 

Page 124

005490,000839:                                                                                                  #                                  (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
005491,000840: 
005492,000841:    1353                        SELFERAS           ERASE    1357       -          1377            #  *** MUST NOT BE MOVED ***
005493,000842:    1353     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
005494,000843:    1353     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
005495,000844:    1353     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
005496,000845:    1353     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
005497,000846:    1353     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)   ALARM-ABORT USER'S 2CADR
005498,000847:    1353     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
005499,000848:    1353     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
005500,000849:    1353     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
005501,000850:    1353     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
005502,000851:    1353     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
005503,000852:    1353     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
005504,000853:    1353     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
005505,000854:    1353     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
005506,000855:    1353     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
005507,000856: 

Page 125

005509,000858:                                                                                                  #                  EBANK-3 ASSIGNMENTS
005510,000859: 
005511,000860: E3,1400                                           SETLOC   1400                                  
005512,000861: 
005513,000862:                                                                                                  #           WAITLIST TASK LISTS.                                         (26D)
005514,000863: 
005515,000864: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM DELTA T S.
005516,000865: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
005517,000866: 
005518,000867: 
005519,000868:                                                                                                  #           RESTART STORAGE.                                             (2D)
005520,000869: 
005521,000870: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
005522,000871: 
005523,000872:                                                                                                  #           MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK.               (2D)
005524,000873: 
005525,000874: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
005526,000875: 
005527,000876: 
005528,000877:                                                                                                  #           PHASE-CHANGE LISTS PART II.                                  (12D)
005529,000878: 
005530,000879: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
005531,000880: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
005532,000881: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
005533,000882: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
005534,000883: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
005535,000884: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
005536,000885: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
005537,000886: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
005538,000887: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
005539,000888: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
005540,000889: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
005541,000890: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
005542,000891: 
005543,000892: 
005544,000893:                                                                                                  #           IMU COMPENSATION PARAMETERS.                                 (22D)
005545,000894: 
005546,000895: E3,1452                        PBIASX             ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTR TERMS
005547,000896: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #      INTERMIXED.
005548,000897: E3,1453                        PIPASCFX           ERASE                                          
005549,000898: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
005550,000899: E3,1454                        PBIASY             ERASE                                          
005551,000900: E3,1455                        PIPASCFY           ERASE                                          
005552,000901: E3,1456                        PBIASZ             ERASE                                          
005553,000902: E3,1457                        PIPASCFZ           ERASE                                          
005554,000903: 
005555,000904: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
005556,000905: E3,1461                        NBDY               ERASE                                          
005557,000906: E3,1462                        NBDZ               ERASE                                          
005558,000907: 

Page 126

005560,000909: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
005561,000910: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
005562,000911: E3,1465                        ADIAZ              ERASE                                          
005563,000912: 
005564,000913: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
005565,000914: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
005566,000915: E3,1470                        ADSRAZ             ERASE                                          
005567,000916: 
005568,000917: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
005569,000918: 
005570,000919: E3,1477  E3,1471               COMMAND            EQUALS   GCOMP                                 
005571,000920: E3,1477  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
005572,000921: 
005573,000922: 
005574,000923: E3,1477                        GCOMPSW            ERASE                                          
005575,000924: 
005576,000925:                                                                                                  #           STATE VECTORS FOR ORBIT INTEGRATION.                         (44D)
005577,000926: 
005578,000927:                                                                                                  #                                  (DIFEQCNT THRU XKEP MUST BE IN SAME
005579,000928:                                                                                                  #                                    EBANK AS RRECTCSM, RRECTLEM ETC
005580,000929:                                                                                                  #                                    BECAUSE THE COPY-CYCLES (ATOPCSM,
005581,000930:                                                                                                  #                                    PTOACSM ETC) ARE EXECUTED IN BASIC.
005582,000931:                                                                                                  #                                      ALL OTHER REFERENCES TO THIS GROUP
005583,000932:                                                                                                  #                                    ARE BY INTERPRETIVE INSTRUCTIONS.)
005584,000933: 
005585,000934: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)
005586,000935:                                                                                                  #                                  (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
005587,000936: 
005588,000937: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)
005589,000938: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)
005590,000939: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)
005591,000940: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)
005592,000941: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)
005593,000942: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)
005594,000943: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)
005595,000944: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)
005596,000945: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)
005597,000946: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)
005598,000947: 
005599,000948:                                                                                                  #           PERMANENT STATE VECTORS AND TIMES.                           (99D)
005600,000949: 
005601,000950:                                                                                                  #           (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
005602,000951: 
005603,000952:                                                                                                  #           (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
005604,000953: 
005605,000954: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
005606,000955: E3,1562  E3,1554               RRECTOTH           =        RRECTCSM                              
005607,000956: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
005608,000957: 

Page 127

005610,000959: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
005611,000960: E3,1572  E3,1570               TETOTHER           =        TETCSM                                
005612,000961: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
005613,000962: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
005614,000963: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
005615,000964: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
005616,000965: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
005617,000966: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
005618,000967: 
005619,000968:                                                                                                  #           (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
005620,000969: 
005621,000970: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
005622,000971: E3,1634  E3,1626               RRECTHIS           =        RRECTLEM                              
005623,000972: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
005624,000973: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
005625,000974: E3,1644  E3,1642               TETTHIS            =        TETLEM                                
005626,000975: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
005627,000976: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
005628,000977: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
005629,000978: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
005630,000979: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
005631,000980: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
005632,000981: 
005633,000982: E3,1700                        X789               ERASE    +5                                    
005634,000983: E3,1706                        TEPHEM             ERASE    +2                                    
005635,000984: E3,1711                        AZO                ERASE    +1                                    
005636,000985: E3,1713                        -AYO               ERASE    +1                                    
005637,000986: E3,1715                        AXO                ERASE    +1                                    
005638,000987: 
005639,000988: 
005640,000989: 
005641,000990:                                                                                                  #           STATE VECTORS FOR DOWNLINK.                                  (12D)
005642,000991: 
005643,000992: E3,1717                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
005644,000993: E3,1725                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
005645,000994: 
005646,000995: E3,1733  E3,1570               T-OTHER            =        TETCSM                                #              TIME (OTHER VECH) FOR DNLINK
005647,000996: 
005648,000997:                                                                                                  #           REFSMMAT.                                                    (18D)
005649,000998: 
005650,000999: E3,1733                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
005651,001000: 
005652,001001: 
005653,001002:                                                                                                  #           ACTIVE VEHICLE CENTANG.  MUST BE DISPLAYED ANYTIME (ALMOST.)  (2D)
005654,001003: 
005655,001004: E3,1755                        ACTCENT            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
005656,001005:                                                                                                  #   VEHICLE AT TPI TIG AND TARGET VECTOR.
005657,001006: 
005658,001007:                                                                                                  #           **** USED IN CONICSEX (PLAN INERT ORIENT) ****
005659,001008: 

Page 128

005661,001010: E3,1757  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PRECISION)
005662,001011: 
005663,001012: 
005664,001013:                                                                                                  #           LPS20.1 STORAGE     -ALL ARE PRM -                           (9D)
005665,001014: 
005666,001015: E3,1757                        LS21X              ERASE                                          #  I(1)
005667,001016: E3,1760                        LOSVEL             ERASE    +5                                    #  I(6)
005668,001017: E3,1766                        MLOSV              ERASE    +1                                    #  I(2) MAGNITUDE OF LOS, METERS B-29
005669,001018: 
005670,001019: 
005671,001020:                                                                                                  #       ***** P22  *****  (OVERLAYS LPS 20.1 STORAGE)                    (6D)
005672,001021: E3,1770  E3,1760               VSUBC              EQUALS   LOSVEL                                #  I(6) S-S  CSM VELOCITY VECTOR
005673,001022: 
005674,001023: 
005675,001024:                                                                                                  #           PADLOADED ERASABLES FOR P20/P22                              (6D)
005676,001025: 
005677,001026: E3,1770                        RANGEVAR           ERASE    +1                                    #  I(2) RR RANGE ERROR VARIANCE
005678,001027: E3,1772                        RATEVAR            ERASE    +1                                    #  I(2) RR RANGE-RATE ERROR VARIANCE
005679,001028: E3,1774                        RVARMIN            ERASE                                          #  I(1) MINIMUM RANGE ERROR VARIANCE
005680,001029: E3,1775                        VVARMIN            ERASE                                          #  I(1) MINIMUM RANGE-RATE ERROR VARIANCE
005681,001030: 
005682,001031: 
005683,001032: E3,1776                        END-E3             EQUALS                                         #  NEXT UNUSED E3 ADDRESS
005684,001033: 

Page 129

005686,001035:                                                                                                  #                  EBANK-4 ASSIGNMENTS
005687,001036: 
005688,001037: E4,1400                                           SETLOC   2000                                  
005689,001038: 
005690,001039:                                                                                                  #  E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
005691,001040: 
005692,001041: E4,1400                        AMEMORY            EQUALS                                         
005693,001042: 
005694,001043:                                                                                                  #           P20 STORAGE. -PAD LOADED-                                    (6D)
005695,001044: 
005696,001045: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                          KM*2(-7)
005697,001046: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                    KM(-1/2)*2(11)
005698,001047: E4,1402                        WSHAFT             ERASE                                          #  B(1)PL                          KM*2(-7)
005699,001048: E4,1403                        WTRUN              ERASE                                          #  B(1)PL                          KM*2(-7)
005700,001049: E4,1404                        RMAX               ERASE                                          #  B(1)PL                     METERS*2(-19)
005701,001050: E4,1405                        VMAX               ERASE                                          #  B(1)PL                      M/CSEC*2(-7)
005702,001051: 
005703,001052: 
005704,001053:                                                                                                  #           LUNAR SURFACE NAVIGATION                                     (2D)
005705,001054: 
005706,001055: E4,1406                        WSURFPOS           ERASE                                          #  B(1)PL
005707,001056: E4,1407                        WSURFVEL           ERASE                                          #  B(1)PL
005708,001057: 
005709,001058:                                                                                                  #           P22 STORAGE. -PAD LOADED-                                    (2D)
005710,001059: 
005711,001060: E4,1410                        SHAFTVAR           ERASE                                          #  B(1)PL                      RAD SQ*2(12)
005712,001061: E4,1411                        TRUNVAR            ERASE                                          #  B(1)PL                      RAD SQ*2(10)
005713,001062: 
005714,001063: 
005715,001064:                                                                                                  #           CONISEX STORAGE.-PAD LOADED-                                 (6D)
005716,001065: 
005717,001066: E4,1412                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
005718,001067: 
005719,001068:                                                                                                  #           V47(R47) AGS INITIALIZATION STORAGE. -PAD LOADED-            (2D)
005720,001069: 
005721,001070: E4,1420                        AGSK               ERASE    +1                                    
005722,001071: 
005723,001072:                                                                                                  #           LUNAR LANDING STORAGE. -PAD LOADED-                          (6D)
005724,001073: 
005725,001074: E4,1422                        RLS                ERASE    +5                                    #  I(6) LANDING SITE VECTOR -MOON REF
005726,001075: 
005727,001076: 
005728,001077:                                                                                                  #           INTEGRATION STORAGE.                                         (102D)
005729,001078: 
005730,001079: E4,1430                        PBODY              ERASE    +101D                                 #  I(1)
005731,001080: 

Page 130

005733,001082: E4,1576  E4,1431               ALPHAV             EQUALS   PBODY      +1                         #  I(6)
005734,001083: E4,1576  E4,1437               BETAV              EQUALS   ALPHAV     +6                         #  I(6)
005735,001084: E4,1576  E4,1445               PHIV               EQUALS   BETAV      +6                         #  I(6)
005736,001085: E4,1576  E4,1453               PSIV               EQUALS   PHIV       +6                         #  I(6)
005737,001086: E4,1576  E4,1461               FV                 EQUALS   PSIV       +6                         #  I(6)    PERTURBING ACCELERATIONS
005738,001087: E4,1576  E4,1467               ALPHAM             EQUALS   FV         +6                         #  I(2)
005739,001088: E4,1576  E4,1471               BETAM              EQUALS   ALPHAM     +2                         #  I(2)
005740,001089: E4,1576  E4,1473               TAU.               EQUALS   BETAM      +2                         #  I(2)
005741,001090: E4,1576  E4,1475               DT/2               EQUALS   TAU.       +2                         #  I(2)
005742,001091: E4,1576  E4,1477               H                  EQUALS   DT/2       +2                         #  I(2)
005743,001092: E4,1576  E4,1501               GMODE              EQUALS   H          +2                         #  I(1)
005744,001093: E4,1576  E4,1502               IRETURN            EQUALS   GMODE      +1                         #  I(1)
005745,001094: E4,1576  E4,1503               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)
005746,001095: E4,1576  E4,1504               RPQV               EQUALS   NORMGAM    +1                         
005747,001096: E4,1576  E4,1512               ORIGEX             EQUALS   RPQV       +6                         #  I(1)
005748,001097: E4,1576  E4,1512               KEPRTN             EQUALS   ORIGEX                                #  I(1)
005749,001098: E4,1576  E4,1513               RQVV               EQUALS   ORIGEX     +1                         #  I(6)
005750,001099: E4,1576  E4,1521               RPSV               EQUALS   RQVV       +6                         #  I(6)
005751,001100: E4,1576  E4,1527               XKEPNEW            EQUALS   RPSV       +6                         #  I(2)
005752,001101: E4,1576  E4,1531               VECTAB             EQUALS   XKEPNEW    +2                         #  I(36D)
005753,001102: E4,1576  E4,1574               VECTABND           EQUALS   VECTAB     +35D                       #  END MARK
005754,001103: 
005755,001104: 
005756,001105: 
005757,001106:                                                                                                  #           THESE PROBABLY CAN SHARE MID-COURSE VARIABLES.               (6D)
005758,001107: 
005759,001108: E4,1576  E4,1537               VACX               EQUALS   VECTAB     +6                         #  I(2)
005760,001109: E4,1576  E4,1541               VACY               EQUALS   VACX       +2                         #  I(2)
005761,001110: E4,1576  E4,1543               VACZ               EQUALS   VACY       +2                         #  I(2)
005762,001111: 
005763,001112:                                                                                                  #           SERVICER STORAGE  (USED BY ALL POWERED FLIGHT PROGS.)        (18D)
005764,001113: 
005765,001114: E4,1576  E4,1545               XNBPIP             EQUALS   VECTAB     +12D                       #  I(6)
005766,001115: E4,1576  E4,1553               YNBPIP             EQUALS   XNBPIP     +6                         #  I(6)
005767,001116: E4,1576  E4,1561               ZNBPIP             EQUALS   YNBPIP     +6                         #  I(6)
005768,001117: 
005769,001118: 
005770,001119:                                                                                                  #           SOME VERB 82 STORAGE                                         (4D)
005771,001120: 
005772,001121: E4,1576  E4,1517               HAPOX              EQUALS   RQVV       +4                         #  I(2)
005773,001122: E4,1576  E4,1521               HPERX              EQUALS   HAPOX      +2                         #  I(2)
005774,001123: 
005775,001124: 
005776,001125:                                                                                                  #           V82 STORAGE                                                  (6D)
005777,001126: 
005778,001127: E4,1576  E4,1567               VONE'              EQUALS   VECTAB     +30D                       #  I(6)TMP  NORMAL VELOCITY VONE /SQRT. MU
005779,001128: 
005780,001129:                                                                                                  #           R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-          (28D)
005781,001130: 

Page 131

005783,001132: E4,1576  E4,1504               BASETHV            EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
005784,001133: 
005785,001134: 
005786,001135: E4,1576  E4,1513               BASETIME           EQUALS   RQVV                                  #  I(2)     TIME ASSOC WITH BASE VECS
005787,001136: E4,1576  E4,1515               ORIG               EQUALS   RQVV       +2                         #  I(1)     =0 FOR EARTH =2 FOR MOON
005788,001137: E4,1576  E4,1516               STATEXIT           EQUALS   RQVV       +3                         #  I(1)     STQ ADDRESS FOR STATEXTP
005789,001138: E4,1576  E4,1517               BASEOTV            EQUALS   RQVV       +4                         #  I(6)     BASE VEL VECTOR OTHER VEH
005790,001139: 
005791,001140: 
005792,001141: E4,1576  E4,1537               BASEOTP            EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
005793,001142: 
005794,001143: 
005795,001144: E4,1576  E4,1567               BASETHP            EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
005796,001145: 
005797,001146: 
005798,001147: 
005799,001148:                                                                                                  #           KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (6D)
005800,001149:                                                                                                  #           CONICS)
005801,001150: 
005802,001151: E4,1576                        XMODULO            ERASE    +5                                    #  I(2)
005803,001152: E4,1604  E4,1600               TMODULO            EQUALS   XMODULO    +2                         #  I(2)
005804,001153: E4,1604  E4,1602               EPSILONT           EQUALS   TMODULO    +2                         #  I(2)
005805,001154: 
005806,001155: 
005807,001156:                                                                                                  #           VERB 83 STORAGE.                                             (18D)
005808,001157: 
005809,001158: E4,1604                        RANGE              ERASE    +17D                                  #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
005810,001159: E4,1626  E4,1606               RRATE              EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH.
005811,001160: E4,1626  E4,1610               RTHETA             EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54.
005812,001161: E4,1626  E4,1612               RONE               EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
005813,001162: E4,1626  E4,1620               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
005814,001163: 
005815,001164: 
005816,001165: E4,1626  E4,1604               WWPOS              =        RANGE                                 #  NOUN 99 (V67)
005817,001166: E4,1626  E4,1606               WWVEL              =        RRATE                                 #  NOUN 99 (V67)
005818,001167:                                                                                                  #           V82 STORAGE. (CANNOT OVERLAY RONE OR VONE)                   (11D) TWO SEPARATE LOCATIONS
005819,001168: 
005820,001169: E4,1626  E4,1537               V82FLAGS           EQUALS   VECTAB     +6                         #   (1) FOR V82 BITS.
005821,001170: E4,1626  E4,1540               TFF                EQUALS   V82FLAGS   +1                         #  I(2)
005822,001171: E4,1626  E4,1542               -TPER              EQUALS   TFF        +2                         #  I(2)
005823,001172: 
005824,001173: 
005825,001174: E4,1626  E4,1604               HPERMIN            EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
005826,001175: E4,1626  E4,1606               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
005827,001176: E4,1626  E4,1610               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
005828,001177: 
005829,001178: 
005830,001179: 
005831,001180:                                                                                                  #           VARIOUS DISPLAY REGISTERS                                    (6D)     NOUN 84; P76
005832,001181: 

Page 132

005834,001183: E4,1626                        DELVOV             ERASE    +5D                                   #  (6)
005835,001184: 
005836,001185: 
005837,001186:                                                                                                  #           ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE.         (18D)
005838,001187: 
005839,001188:                                                                                                  #                  UNSHARED WHILE LM ON LUNAR SURFACE.
005840,001189: 
005841,001190: E4,1634                        GSAV               ERASE    +17D                                  #  I(6)
005842,001191: E4,1656  E4,1642               YNBSAV             EQUALS   GSAV       +6                         #  I(6)
005843,001192: E4,1656  E4,1650               ZNBSAV             EQUALS   YNBSAV     +6                         #  I(6)
005844,001193: 
005845,001194: 
005846,001195: 
005847,001196:                                                                                                  #           KALCMANU STORAGE. CAN OVERLAY GSAV.                          (18D)
005848,001197: 
005849,001198: E4,1656  E4,1634               MFS                EQUALS   GSAV                                  #  I(18)
005850,001199: E4,1656  E4,1634               MFI                EQUALS   MFS                                   #  I
005851,001200: E4,1656  E4,1634               KEL                EQUALS   MFS                                   #  I(18)
005852,001201: E4,1656  E4,1634               E01                EQUALS   MFS                                   #  I(6)
005853,001202: E4,1656  E4,1642               E02                EQUALS   E01        +6                         #  I(6)
005854,001203: 
005855,001204:                                                                                                  #           LR VEL BEAM VECTORS.                                         (26D)
005856,001205: 
005857,001206:                                                                                                  #           CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
005858,001207: 
005859,001208: E4,1656  E4,1634               VZBEAMNB           EQUALS   GSAV                                  #  I(6) LR VELOCITY BEAMS IN NB COORDS.
005860,001209: E4,1656  E4,1642               VYBEAMNB           EQUALS   VZBEAMNB   +6                         #  I(6)
005861,001210: E4,1656  E4,1650               VXBEAMNB           EQUALS   VYBEAMNB   +6                         #  I(6) PRESERVE Z,Y,X ORDER.
005862,001211: 
005863,001212: 
005864,001213: E4,1656  E4,1656               LRVTIME            =        VXBEAMNB   +6                         #  B(2)     LR
005865,001214: E4,1656  E4,1660               LRXCDU             =        LRVTIME    +2                         #  B(1)     LR
005866,001215: E4,1656  E4,1661               LRYCDU             =        LRXCDU     +1                         #  B(1)     LR
005867,001216: E4,1656  E4,1662               LRZCDU             =        LRYCDU     +1                         #  B(1)     LR
005868,001217: E4,1656  E4,1663               PIPTEM             =        LRZCDU     +1                         #  B(3)     LR
005869,001218: 
005870,001219: 
005871,001220:                                                                                                  #           P32-P35, P72-P75 STORAGE.                                    (40D)
005872,001221: 
005873,001222: E4,1656                        T1TOT2             ERASE    +1                                    #   (2)     TIME FROM CSI TO CDH
005874,001223: E4,1660                        T2TOT3             ERASE    +1                                    #   (2)
005875,001224: E4,1662                        ELEV               ERASE    +1                                    #   (2)
005876,001225: E4,1664                        UP1                ERASE    +5                                    #   (6)
005877,001226: E4,1672                        DELVEET1           ERASE    +5                                    #  I(6)     DV CSI IN REF
005878,001227: E4,1700                        DELVEET2           ERASE    +5                                    #  I(6)     DV CSH IN REF
005879,001228: E4,1706                        RACT1              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CSI TIME
005880,001229: E4,1714                        RACT2              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CDH TIME
005881,001230: 

Page 133

005883,001232: E4,1722                        RTSR1/MU           ERASE    +1                                    #  (2)      SQ ROOT 1/MU STORAGE
005884,001233: E4,1724                        RTMU               ERASE    +1                                    #  (2)      MU STORAGE
005885,001234: 
005886,001235: 
005887,001236: 
005888,001237:                                                                                                  #           (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
005889,001238: 
005890,001239: E4,1726  E4,1656               +MGA               EQUALS   T1TOT2                                #   (2) S-S + MID GIM ANGL TO DELVEET3
005891,001240: 
005892,001241: 
005893,001242: E4,1726  E4,1664               UNRM               EQUALS   UP1                                   #  I(6) S-S
005894,001243: 
005895,001244: 
005896,001245: E4,1726  E4,1706               DVLOS              EQUALS   RACT1                                 #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
005897,001246: E4,1726  E4,1714               ULOS               EQUALS   RACT2                                 #  I(6) S-S UNIT LINE OF SIGHT VECTOR
005898,001247: 
005899,001248: 
005900,001249: E4,1726  E4,1722               NOMTPI             EQUALS   RTSR1/MU                              #  (2) S-S NOMINAL TPI TIME FOR RECYCLE
005901,001250: 
005902,001251: 
005903,001252:                                                                                                  #           SOME P30 STORAGE.                                            (4D)
005904,001253: 
005905,001254: E4,1726  E4,1722               HAPO               EQUALS   RTSR1/MU                              #  I(2)
005906,001255: E4,1726  E4,1724               HPER               EQUALS   HAPO       +2                         #  I(2)
005907,001256: 
005908,001257: 
005909,001258: 
005910,001259:                                                                                                  #           SOME P38-P39,P78-79 STORAGE.                                 (6D)
005911,001260: 
005912,001261: E4,1726  E4,1706               DELTAR             EQUALS   DVLOS                                 #  I(2)
005913,001262: E4,1726  E4,1710               DELTTIME           EQUALS   DELTAR     +2                         #  I(2) TIME REPRESENTATION OF DELTAR
005914,001263: E4,1726  E4,1712               TARGTIME           EQUALS   DELTTIME   +2                         #  I(2) TINT MINUS DELTTIME
005915,001264: 
005916,001265: E4,1726  E4,1706               TINTSOI            EQUALS   DELTAR                                #  I(2) TIME OF INTERCEPT FOR SOI PHASE
005917,001266: 
005918,001267: 
005919,001268: 
005920,001269:                                                                                                  #           THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
005921,001270: 
005922,001271: E4,1726  E4,1400               TRANSM1            =        WRENDPOS                              #  E4,1400
005923,001272: E4,1726  E4,1422               ALFDK              =        TRANSM1    +18D                       
005924,001273: 
005925,001274: 
005926,001275:                                                                                                  #  ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
005927,001276: 
005928,001277: 
005929,001278:                                                                                                  #           V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83)   (14D)
005930,001279: 
005931,001280: E4,1726  E4,1604               AGSBUFF            EQUALS   RANGE                                 #  B(14D)
005932,001281: E4,1726  E4,1621               AGSBUFFE           EQUALS   AGSBUFF    +13D                       #  ENDMARK
005933,001282: 

Page 134

005935,001284: 
005936,001285:                                                                                                  #           R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83)  (12D)
005937,001286: 
005938,001287: E4,1726  E4,1612               RPASS36            EQUALS   RONE                                  #  I(6) S-S
005939,001288: E4,1726  E4,1620               UNP36              EQUALS   RPASS36    +6                         #  I(6) S-S
005940,001289: 
005941,001290: 
005942,001291:                                                                                                  #           S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64).(OVERLAYS V83) (10D)
005943,001292:                                                                                                  #                 (OPERATES DURING P00 ONLY)
005944,001293: 
005945,001294: E4,1726  E4,1604               ALPHASB            EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE.
005946,001295: E4,1726  E4,1606               BETASB             EQUALS   ALPHASB    +2                         #  B(2)DSP NOUN 51.  YAW ANGLE.
005947,001296: E4,1726  E4,1610               RLM                EQUALS   BETASB     +2                         #  I(6)S S/C POSITION VECTOR.
005948,001297: 
005949,001298:                                                                                                  #           **** USED IN S-BAND ANTENNA FOR LM ****
005950,001299: 
005951,001300: E4,1726  E4,1606               YAWANG             EQUALS   BETASB                                
005952,001301: E4,1726  E4,1604               PITCHANG           EQUALS   ALPHASB                               
005953,001302: 
005954,001303: 
005955,001304:                                                                                                  #           NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85.            (4)
005956,001305: 
005957,001306: E4,1726  E4,1604               RR-AZ              EQUALS   PITCHANG                              #  I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
005958,001307: E4,1726  E4,1606               RR-ELEV            EQUALS   RR-AZ      +2                         #  I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
005959,001308: 
005960,001309:                                                                                                  #           R04(V62) RADAR TEST STORAGE.                         (8D)
005961,001310:                                                                                                  #           R04 IS RESTRICTED TO P00.
005962,001311: 
005963,001312: E4,1726  E4,1604               RSTACK             EQUALS   RANGE                                 #  B(8) BUFFER FOR R04 NOUNS.
005964,001313: 
005965,001314: 
005966,001315: 
005967,001316:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
005968,001317: 
005969,001318:                                                                                                  #                   (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
005970,001319: 
005971,001320: E4,1726                        RINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE POSITION
005972,001321: E4,1734                        VINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE VELOCITY
005973,001322: E4,1742                        VIPRIME            ERASE    +5                                    #  I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
005974,001323: 
005975,001324:                                                                                                  #           VARIOUS DISPLAY REGISTERS.  BALLANGS                         (3D)
005976,001325: 
005977,001326: E4,1750                        FDAIX              ERASE                                          #  I(1)
005978,001327: E4,1751                        FDAIY              ERASE                                          #  I(1)
005979,001328: E4,1752                        FDAIZ              ERASE                                          #  I(1)
005980,001329: 
005981,001330:                                                                                                  #          P34-P35 STORAGE.  DOWNLINKED.
005982,001331: 
005983,001332:                                                                                                  #  (2D)
005984,001333: 

Page 135

005986,001335: E4,1753                        DELVTPF            ERASE    +1                                    #  I(2) DELTA V FOR TPF
005987,001336: 
005988,001337:                                                                                                  #           SOME R04(V62)-R77 RADAR TEST STORAGE                         (6D)
005989,001338: 
005990,001339: E4,1755                        RTSTDEX            ERASE                                          #  (1)
005991,001340: E4,1756                        RTSTMAX            ERASE                                          #  (1)
005992,001341: E4,1757                        RTSTBASE           ERASE                                          #  (1)
005993,001342: E4,1760                        RTSTLOC            ERASE                                          #  (1)
005994,001343: E4,1761  E4,1760               RSTKLOC            =        RTSTLOC                               
005995,001344: E4,1761                        RSAMPDT            ERASE                                          #  (1)
005996,001345: E4,1762                        RFAILCNT           ERASE                                          #  (1)
005997,001346: 
005998,001347: 
005999,001348:                                                                                                  #          LPS20.1 STORAGE 
006000,001349: 
006001,001350:                                                                                                  #  (12D)
006002,001351: 
006003,001352: 
006004,001353: E4,1763  E4,1755               LMPOS              EQUALS   RTSTDEX                               #  I(6)TEMP.  STORAGE FOR LM POS. VECTOR.
006005,001354: E4,1763  E4,1763               LMVEL              EQUALS   LMPOS      +6                         #  I(6)TEMP.  STORAGE FOR LM VEL. VECTOR.
006006,001355: 
006007,001356: 
006008,001357: E4,1763                        END-E4             EQUALS                                         #  FIRST UNUSED LOCATION IN E4
006009,001358: 
006010,001359:                                                                                                  #           SECOND DPS GUIDANCE (LUNAR LANDING)  (OVERLAY P32-35,INITVEL) (26D)
006011,001360: 
006012,001361: E4,1763  E4,1666               VHORIZ             EQUALS   PIPTEM     +3                         #  I(2) DISPLAY
006013,001362: E4,1763  E4,1670               ACG                EQUALS   VHORIZ     +2                         #  I(6) GUIDANCE
006014,001363: E4,1763  E4,1676               JLING              EQUALS   ACG        +6                         #  I(6) GUIDANCE
006015,001364: E4,1763  E4,1704               ANGTERM            EQUALS   JLING      +6                         #  I(6) GUIDANCE
006016,001365: E4,1763  E4,1712               HBEAMNB            EQUALS   ANGTERM    +6                         #  I(6) LANDING RADAR
006017,001366: E4,1763  E4,1740               LRXCDUDL           EQUALS   /LAND/     +2                         #  B(1) LANDING RADAR DOWNLINK
006018,001367: E4,1763  E4,1741               LRYCDUDL           EQUALS   LRXCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
006019,001368: E4,1763  E4,1742               LRZCDUDL           EQUALS   LRYCDUDL   +1                         #  B(1) LANDING RADAR DOWNLINK
006020,001369: E4,1763  E4,1743               LRVTIMDL           EQUALS   LRZCDUDL   +1                         #  B(2) LANDING RADAR DOWNLINK
006021,001370: 
006022,001371: 
006023,001372: 
006024,001373: 
006025,001374:                                                                                                  #           ASCENT GUIDANCE FOR LUNAR LANDING                            (62D)
006026,001375: 
006027,001376: E4,1763  E4,1656               AT                 EQUALS   T1TOT2                                #  I(2)TMP  ENGINE DATA -- THRUST ACC.*2(9)
006028,001377: E4,1763  E4,1660               VE                 EQUALS   AT         +2                         #  I(2)TMP  EXHAUST VELOCITY * 2(7)M/CS.
006029,001378: E4,1763  E4,1662               TTO                EQUALS   VE         +2                         #  I(2)TMP  TAILOFF TIME * 2(17)CS.
006030,001379: E4,1763  E4,1664               TBUP               EQUALS   TTO        +2                         #  I(2)TMP  (M/MDOT) * 2(17)CS.
006031,001380: E4,1763  E4,1666               RDOTD              EQUALS   TBUP       +2                         #  I(2)TMP  TARGET VELOCITY COMPONENTS
006032,001381: E4,1763  E4,1670               YDOTD              EQUALS   RDOTD      +2                         #  I(2)TMP SCALING IS 2(7)M/CS.
006033,001382: E4,1763  E4,1672               ZDOTD              EQUALS   YDOTD      +2                         #  I(2)TMP
006034,001383: 
006035,001384: E4,1763  E4,1674               /R/MAG             EQUALS   ZDOTD      +2                         #  I(2)TMP
006036,001385: E4,1763  E4,1676               LAXIS              EQUALS   /R/MAG     +2                         #  I(6)TMP
006037,001386: 

Page 136

006039,001388: E4,1763  E4,1704               ZAXIS1             EQUALS   LAXIS      +6                         #  I(6)TMP  SYSTEM (R,L,Z).
006040,001389: E4,1763  E4,1712               RDOT               EQUALS   ZAXIS1     +6                         #  I(2)TMP  RADIAL RATE *2 (-7).
006041,001390: E4,1763  E4,1714               YDOT               EQUALS   RDOT       +2                         #  I(2)TMP  VEL. NORMAL TO REF. PLANE*2(-7)
006042,001391: E4,1763  E4,1716               ZDOT               EQUALS   YDOT       +2                         #  I(2)TMP  DOWN RANGE VEL *2(-7).
006043,001392: E4,1763  E4,1720               GEFF               EQUALS   ZDOT       +2                         #  I(2)TMP  EFFECTIVE GRAVITY
006044,001393: 
006045,001394:                                                                                                  #        THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
006046,001395: 
006047,001396: E4,1763  E4,1740               Y                  EQUALS   /LAND/     +2                         #  I(2)TMP  OUT-OF-PLANE DIST *2(24)M
006048,001397: E4,1763  E4,1742               DRDOT              EQUALS   Y          +2                         #  I(2)TMP  RDOTD - RDOT
006049,001398: E4,1763  E4,1744               DYDOT              EQUALS   DRDOT      +2                         #  I(2)TMP  YDOTD - YDOT
006050,001399: E4,1763  E4,1746               DZDOT              EQUALS   DYDOT      +2                         #  I(2)TMP  ZDOTD - ZDOT
006051,001400: E4,1763  E4,1750               PCONS              EQUALS   DZDOT      +2                         #  I(2)TMP  CONSTANT IN ATR EQUATION
006052,001401: E4,1763  E4,1752               YCONS              EQUALS   PCONS      +2                         #  I(2)TMP  CONSTANT IN ATY EQUATION
006053,001402: E4,1763  E4,1754               PRATE              EQUALS   YCONS      +2                         #  I(2)TMP  RATE COEFF. IN ATR EQUATION
006054,001403: E4,1763  E4,1756               YRATE              EQUALS   PRATE      +2                         #  I(2)TMP  RATE COEFF. IN ATY EQUATION
006055,001404: E4,1763  E4,1760               ATY                EQUALS   YRATE      +2                         #  I(2)TMP  OUT-OF-PLANE THRUST COMP.*2(9)
006056,001405: E4,1763  E4,1762               ATR                EQUALS   ATY        +2                         #  I(2)TMP  RADIAL THRUST COMP.*2(9)
006057,001406: E4,1763  E4,1764               ATP                EQUALS   ATR        +2                         #  I(2)TMP  DOWN-RANGE THRUST COMP
006058,001407: E4,1763  E4,1766               YAW                EQUALS   ATP        +2                         #  I(2)TMP
006059,001408: E4,1763  E4,1770               PITCH              EQUALS   YAW        +2                         #  I(2)RMP
006060,001409: 
006061,001410: 
006062,001411:                                                                                                  #           SERVICER FOR LUNAR ASCENT AND DESCENT                        (14D)
006063,001412: 
006064,001413: E4,1763  E4,1722               G(CSM)             EQUALS   GEFF       +2                         #  I(6) FOR UPDATE OF COMMAND MODULE STATE
006065,001414: E4,1763  E3,1717               R(CSM)             EQUALS   R-OTHER                               #       VECTORS BY LEM; ANALOGS OF GDT/2,
006066,001415: E4,1763  E3,1725               V(CSM)             EQUALS   V-OTHER                               #       R, AND V, RESPECTIVELY OF THE CSM
006067,001416: E4,1763  E4,1730               WM                 EQUALS   G(CSM)     +6                         #  I(6) TMP - LUNAR ROTATION VECTOR (SM)
006068,001417: E4,1763  E4,1736               /LAND/             EQUALS   WM         +6                         #  B(2) LUNAR RADIUS AT LANDING SITE
006069,001418: 

Page 137

006071,001420:                                                                                                  #           EBANK-5 ASSIGNMENTS
006072,001421: 
006073,001422: E5,1400                                           SETLOC   2400                                  
006074,001423: 
006075,001424:                                                                                                  #           W-MATRIX. ESSENTIALLY UNSHARABLE.            (162D)
006076,001425: 
006077,001426: E5,1400                        W                  ERASE    +161D                                 
006078,001427: E5,1642  E5,1642               ENDW               EQUALS   W          +162D                      
006079,001428: 
006080,001429: 
006081,001430: 
006082,001431:                                                                                                  #  *******  OVERLAY NUMBER 1 IN EBANK 5  *******
006083,001432: 
006084,001433: 
006085,001434:                                                                                                  #           LUNAR LANDING TARGET PARAMETERS   - PADLOADED -              (64D)
006086,001435: 
006087,001436:                                                                                                  #   PLEASE RETAIN THE ORDER OF TLAND THRU JAPFG
006088,001437: 
006089,001438: E5,1642  E5,1400               TLAND              EQUALS   W                                     #  I(2)  NOMINAL TIME OF LANDING
006090,001439: E5,1642  E5,1402               RBRFG              EQUALS   TLAND      +2                         #  I(6) BRAKING
006091,001440: E5,1642  E5,1410               VBRFG              EQUALS   RBRFG      +6                         #  I(6)      PHASE
006092,001441: E5,1642  E5,1416               ABRFG              EQUALS   VBRFG      +6                         #  I(6)         TARGET
006093,001442: E5,1642  E5,1424               VBRFG*             EQUALS   ABRFG      +6                         #  I(2)            PARAMETERS:
006094,001443: E5,1642  E5,1426               ABRFG*             EQUALS   VBRFG*     +2                         #  I(2)               HIGH
006095,001444: E5,1642  E5,1430               JBRFG*             EQUALS   ABRFG*     +2                         #  I(2)                  GATE
006096,001445: E5,1642  E5,1432               RAPFG              EQUALS   JBRFG*     +2                         #  I(6) APPROACH
006097,001446: E5,1642  E5,1440               VAPFG              EQUALS   RAPFG      +6                         #  I(6)      PHASE
006098,001447: E5,1642  E5,1446               AAPFG              EQUALS   VAPFG      +6                         #  I(6)         TARGET
006099,001448: E5,1642  E5,1454               VAPFG*             EQUALS   AAPFG      +6                         #  I(2)            PARAMETERS:
006100,001449: E5,1642  E5,1456               AAPFG*             EQUALS   VAPFG*     +2                         #  I(2)               LOW
006101,001450: E5,1642  E5,1460               JAPFG*             EQUALS   AAPFG*     +2                         #  I(2)                  GATE
006102,001451: E5,1642  E5,1462               VIGN               EQUALS   JAPFG*     +2                         #  I(2)  DESIRED SPEED FOR IGNITION
006103,001452: E5,1642  E5,1464               RIGNX              EQUALS   VIGN       +2                         #  I(2)  DESIRED 'ALTITUDE' FOR IGNITION
006104,001453: E5,1642  E5,1466               RIGNZ              EQUALS   RIGNX      +2                         #  I(2)  DESIRED GROUND RANGE FOR IGNITION
006105,001454: E5,1642  E5,1470               KIGNX/B4           EQUALS   RIGNZ      +2                         #  I(2)
006106,001455: E5,1642  E5,1472               KIGNY/B8           EQUALS   KIGNX/B4   +2                         #  I(2)
006107,001456: E5,1642  E5,1474               KIGNV/B4           EQUALS   KIGNY/B8   +2                         #  I(2)
006108,001457: E5,1642  E5,1476               LOWCRIT            EQUALS   KIGNV/B4   +2                         #  B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
006109,001458: E5,1642  E5,1477               HIGHCRIT           EQUALS   LOWCRIT    +1                         #  B(1) %S OF NOMINAL MAXIMUM THRUST
006110,001459: 
006111,001460: E5,1642     0130               L*WCR*T            =        BUF                                   #      TEMPORARY STORAGE IN UNSWITCHED
006112,001461: E5,1642     0131               H*GHCR*T           =        BUF        +1                         #       FOR USE IN EBANK SWITCHING LOWCRIT
006113,001462: 
006114,001463: E5,1642  E5,1500               DELQFIX            EQUALS   HIGHCRIT   +1                         #  I(2) LR ALTITUDE DATA REASONABLE PARM.
006115,001464: 
006116,001465: 
006117,001466: 
006118,001467:                                                                                                  #           P70-P71    PADLOADED  *  ASCENT  *                           (5D)
006119,001468: 

Page 138

006121,001470: E5,1642  E5,1502               TBRKPNT            EQUALS   DELQFIX    +2                         #  I(1) TFI BRANCH TIME:ABORT TARGET PCR133
006122,001471: E5,1642  E5,1503               ABTVINJ1           EQUALS   TBRKPNT    +1                         #  I(2) ABORT VELOCITY;TFI LESSTHAN TBRKPNT
006123,001472: E5,1642  E5,1505               ABTVINJ2           EQUALS   ABTVINJ1   +2                         #  I(2) ABORT VEL ;TFI GREATER THAN TBRKPNT
006124,001473: 
006125,001474: 
006126,001475:                                                                                                  #           SOME VARIABLES FOR SECOND DPS GUIDANCE                       (34D)
006127,001476: 
006128,001477: E5,1642  E5,1507               CG                 EQUALS   ABTVINJ2   +2                         #  I(18D) GUIDANCE
006129,001478: E5,1642  E5,1531               RANGEDSP           =        CG         +18D                       #  B(2)     DISPLAY
006130,001479: E5,1642  E5,1533               OUTOFPLN           =        RANGEDSP   +2                         #  B(2)    DISPLAY
006131,001480: E5,1642  E5,1535               R60VSAVE           EQUALS   OUTOFPLN   +2                         #  I(6)TMP SAVES VALUE OF POINTVSM THRU R51
006132,001481: E5,1642  E5,1543               RGU                EQUALS   R60VSAVE   +6                         #  I(6) UNSHARED FOR DOWNLINK
006133,001482: 
006134,001483:                                                                                                  #           ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.                   (36D)
006135,001484: 
006136,001485: E5,1642  E5,1642               XSM                EQUALS   ENDW                                  #  B(6)
006137,001486: E5,1642  E5,1650               YSM                EQUALS   XSM        +6                         #  B(6)
006138,001487: E5,1642  E5,1656               ZSM                EQUALS   YSM        +6                         #  B(6)
006139,001488: 
006140,001489: E5,1642  E5,1664               XDC                EQUALS   ZSM        +6                         #  B(6)
006141,001490: E5,1642  E5,1672               YDC                EQUALS   XDC        +6                         #  B(6)
006142,001491: E5,1642  E5,1700               ZDC                EQUALS   YDC        +6                         #  B(6)
006143,001492: 
006144,001493: E5,1642  E5,1664               XNB                =        XDC                                   
006145,001494: E5,1642  E5,1672               YNB                =        YDC                                   
006146,001495: E5,1642  E5,1700               ZNB                =        ZDC                                   
006147,001496: 
006148,001497:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.   (4D)
006149,001498: 
006150,001499: E5,1642  E5,1644               -COSB              EQUALS   XSM        +2                         #  (2)TMP
006151,001500: E5,1642  E5,1646               SINB               EQUALS   -COSB      +2                         #  (2)TMP
006152,001501: 
006153,001502: 
006154,001503:                                                                                                  #           MORE OVERLAYS TO ALIGNMENT /SYSTEST  (THESE ARE P52)         (6D)
006155,001504: 
006156,001505: E5,1642  E5,1706               LANDLAT            EQUALS   STARAD                                #  (2) LATITUDE, LONGITUDE
006157,001506: E5,1642  E5,1710               LANDLONG           EQUALS   LANDLAT    +2                         #  (2)     AND ALTITUDE
006158,001507: E5,1642  E5,1712               LANDALT            EQUALS   LANDLONG   +2                         #  (2)     OF LANDING SITE
006159,001508: 
006160,001509:                                                                                                  #           ALIGNMENT/SYSTEST COMMON STORAGE.                    (31D)
006161,001510: 
006162,001511: E5,1642  E5,1706               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
006163,001512: E5,1642  E5,1730               STAR               EQUALS   STARAD     +18D                       #  I(6)
006164,001513: E5,1642  E5,1736               GCTR               EQUALS   STAR       +6                         #  B(1)
006165,001514: E5,1642  E5,1737               OGC                EQUALS   GCTR       +1                         #  I(2)
006166,001515: E5,1642  E5,1741               IGC                EQUALS   OGC        +2                         #  I(2)
006167,001516: E5,1642  E5,1743               MGC                EQUALS   IGC        +2                         #  I(2)
006168,001517: 

Page 139

006170,001519:                                                                                                  #           P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE)  (12D)
006171,001520: 
006172,001521: E5,1642  E5,1706               GACC               =        STARAD                                #   (6) SS
006173,001522: E5,1642  E5,1714               GOUT               =        STARAD     +6                         #   (6) SS
006174,001523: 
006175,001524: 
006176,001525:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE             (24D)
006177,001526: 
006178,001527: E5,1642  E5,1706               VEARTH             EQUALS   STARAD                                #   (6)TMP
006179,001528: E5,1642  E5,1714               VSUN               EQUALS   VEARTH     +6                         #   (6)TMP
006180,001529: E5,1642  E5,1722               VMOON              EQUALS   VSUN       +6                         #   (6)TMP
006181,001530: E5,1642  E5,1730               SAX                EQUALS   VMOON      +6                         #   (6)TMP
006182,001531: 
006183,001532: 
006184,001533:                                                                                                  #           P50'S,R50'S Q STORES.                                        (2D)
006185,001534: 
006186,001535: E5,1642  E5,1745               QMIN               EQUALS   MGC        +2                         #  B(1)TMP
006187,001536: E5,1642  E5,1746               QMAJ               EQUALS   QMIN       +1                         #  B(1)TMP
006188,001537: 
006189,001538: 
006190,001539:                                                                                                  #         **** USED IN P50S ****   (SCATTERED OVERLAYS)
006191,001540: E5,1642  E5,1706               XSCI               EQUALS   STARAD                                
006192,001541: E5,1642  E5,1714               YSCI               EQUALS   XSCI       +6                         
006193,001542: E5,1642  E5,1714               ZSCI               EQUALS   YSCI                                  
006194,001543: E5,1642  E5,1706               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
006195,001544: E5,1642  E5,1722               VEC1               EQUALS   STARAD     +12D                       
006196,001545: E5,1642  E5,1730               VEC2               EQUALS   STAR                                  
006197,001546: 
006198,001547: 
006199,001548: 
006200,001549:                                                                                                  #           ALIGNMENT STORAGE.                                           (23D)
006201,001550: 
006202,001551: E5,1642  E5,1747               OGCT               EQUALS   QMAJ       +1                         #  I(6)
006203,001552: E5,1642  E5,1755               BESTI              EQUALS   OGCT       +6                         #  I(1)
006204,001553: E5,1642  E5,1756               BESTJ              EQUALS   BESTI      +1                         
006205,001554: E5,1642  E5,1757               STARIND            EQUALS   BESTJ      +1                         
006206,001555:                                                                                                  #     RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
006207,001556: E5,1642  E5,1760               STARSAV1           EQUALS   STARIND    +1                         #  I(6)
006208,001557: E5,1642  E5,1766               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)
006209,001558: E5,1642  E5,1774               TALIGN             EQUALS   STARSAV2   +6                         #  B(2) TIME OF IMU ALIGNMENT  (DOWNLINKED)
006210,001559:                                                                                                  #                VEL/C     EQUALS  STARSAV2  +6            I(6)TMP  (NOT USED IN LEM)
006211,001560: 
006212,001561: 
006213,001562: E5,1642                        ZPRIME             =        22D                                   
006214,001563: E5,1642                        PDA                =        22D                                   
006215,001564: E5,1642                        COSTH              =        16D                                   
006216,001565: E5,1642                        SINTH              =        18D                                   
006217,001566: E5,1642                        THETA              =        20D                                   
006218,001567: E5,1642                        STARM              =        32D                                   
006219,001568: 

Page 140

006221,001570:                                                                                                  #  *******  OVERLAY NUMBER 2 IN EBANK 5  *******
006222,001571: 
006223,001572: 
006224,001573:                                                                                                  #           CONICS ROUTINE STORAGE.                       (85D)
006225,001574: 
006226,001575: E5,1642  E5,1642               DELX               EQUALS   ENDW                                  #  I(2)TMP
006227,001576: E5,1642  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
006228,001577: E5,1642  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
006229,001578: E5,1642                        RCNORM             EQUALS   34D                                   #  I(2) TMP
006230,001579: E5,1642  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
006231,001580: E5,1642  E5,1654               R1VEC              EQUALS   URRECT     +6                         #  I(6) TMP
006232,001581: E5,1642  E5,1662               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
006233,001582: E5,1642  E5,1670               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
006234,001583: E5,1642  E5,1672               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
006235,001584: E5,1642  E5,1673               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
006236,001585: E5,1642  E5,1701               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
006237,001586: E5,1642  E5,1702               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
006238,001587: E5,1642  E5,1710               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
006239,001588: E5,1642  E5,1711               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
006240,001589: E5,1642  E5,1717               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
006241,001590: E5,1642  E5,1721               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
006242,001591: E5,1642  E5,1727               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
006243,001592: E5,1642  E5,1731               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
006244,001593: E5,1642  E5,1733               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
006245,001594: E5,1642  E5,1735               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
006246,001595: E5,1642  E5,1737               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
006247,001596: E5,1642  E5,1741               R1A                EQUALS   P          +2                         #  I(2)TMP
006248,001597: E5,1642  E5,1654               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
006249,001598: E5,1642  E5,1743               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
006250,001599: E5,1642  E5,1710               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
006251,001600: E5,1642  E5,1751               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
006252,001601: E5,1642  E5,1710               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
006253,001602: E5,1642  E5,1710               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
006254,001603: E5,1642  E5,1717               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
006255,001604: E5,1642  E5,1753               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
006256,001605: E5,1642  E5,1754               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
006257,001606: E5,1642  E5,1755               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
006258,001607: E5,1642  E5,1757               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
006259,001608: E5,1642  E5,1761               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
006260,001609: E5,1642  E5,1757               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
006261,001610: E5,1642  E5,1761               TPREV              EQUALS   DEPREV                                #  I(2)TMP
006262,001611: E5,1642  E5,1763               EPSILONL           EQUALS   DEPREV     +2                         #  I(2)TMP
006263,001612: E5,1642  E5,1765               COGA               EQUALS   EPSILONL   +2                         #  I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
006264,001613: E5,1642  E5,1765               INDEP              EQUALS   COGA                                  #       USED BY SUBROUTINE'ITERATOR'.
006265,001614: 

Page 141

006267,001616:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 5  *******
006268,001617: 
006269,001618:                                                                                                  #           INCORP STORAGE.                               (18D)
006270,001619: 
006271,001620: E5,1642  E5,1642               ZI                 EQUALS   ENDW                                  #  I(18)TMP
006272,001621: 
006273,001622:                                                                                                  #           INCORP/L SR22.3 STORAGE.                                     (21D)
006274,001623: 
006275,001624: E5,1642  E5,1664               DELTAX             EQUALS   ZI         +18D                       #  I(18)
006276,001625: E5,1642  E5,1706               VARIANCE           EQUALS   DELTAX     +18D                       #  I(3)
006277,001626: 
006278,001627:                                                                                                  #           MEASUREMENT INCORPORATION -R22- STORAGE.                     (49D)
006279,001628: 
006280,001629: E5,1642  E5,1711               GRP2SVQ            EQUALS   VARIANCE   +3                         #  I(1)TMP QSAVE FOR RESTARTS
006281,001630: E5,1642  E5,1712               OMEGAM1            EQUALS   GRP2SVQ    +1                         #  I(6)
006282,001631: E5,1642  E5,1720               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)
006283,001632: E5,1642  E5,1726               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)
006284,001633: E5,1642  E5,1734               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)
006285,001634: E5,1642  E5,1756               TDPOS              EQUALS   HOLDW      +18D                       #  I(6)
006286,001635: E5,1642  E5,1764               TDVEL              EQUALS   TDPOS      +6                         #  I(6)
006287,001636: 
006288,001637: 
006289,001638: E5,1642  E5,1664               TRIPA              EQUALS   DELTAX                                #  I(3)TMP
006290,001639: E5,1642  E5,1667               TEMPVAR            EQUALS   TRIPA      +3                         #  I(3)TMP
006291,001640: 
006292,001641: 
006293,001642: 
006294,001643: 
006295,001644:                                                                                                  #           INCORPORATION/INTEGRATION Q STORAGE.                         (1D)
006296,001645: 
006297,001646: E5,1642  E5,1772               EGRESS             EQUALS   TDVEL      +6                         #  I(1)
006298,001647: 
006299,001648: 
006300,001649: 
006301,001650:                                                                                                  #           P30/P31 STORAGE.                                             (1D) AND ONE OVERLAY
006302,001651: 
006303,001652: E5,1642  E5,1773               P30EXIT            EQUALS   EGRESS     +1                         #  B(1)TMP
006304,001653: 
006305,001654: 
006306,001655: E5,1642  E5,1773               ORIGIN             EQUALS   P30EXIT                               #  I(1)TMP  INDEX DURING INITVEL
006307,001656: 
006308,001657: 

Page 142

006310,001659:                                                                                                  #           SYSTEM TEST ERASABLES.  CAN OVERLAY W MATRIX. (127D)
006311,001660: 
006312,001661:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 5  *******
006313,001662: 
006314,001663: 
006315,001664: E5,1642  E5,1400               AZIMUTH            EQUALS   W                                     #  2
006316,001665: E5,1642  E5,1402               LATITUDE           EQUALS   AZIMUTH    +2                         #  2
006317,001666: E5,1642  E5,1404               ERVECTOR           EQUALS   LATITUDE   +2                         #  6
006318,001667: E5,1642  E5,1412               LENGTHOT           EQUALS   ERVECTOR   +6                         #  1
006319,001668: E5,1642  E5,1413               LOSVEC             EQUALS   LENGTHOT   +1                         #  6
006320,001669: E5,1642  E5,1414               NDXCTR             EQUALS   LOSVEC     +1                         #  1
006321,001670: E5,1642  E5,1415               PIPINDEX           EQUALS   NDXCTR     +1                         #  1
006322,001671: E5,1642  E5,1416               POSITON            EQUALS   PIPINDEX   +1                         #  1
006323,001672: E5,1642  E5,1417               QPLACE             EQUALS   POSITON    +1                         #  1
006324,001673: E5,1642  E5,1420               QPLACES            EQUALS   QPLACE     +1                         #  1
006325,001674: E5,1642  E5,1421               SOUTHDR            EQUALS   QPLACES    +1                         #  7
006326,001675: E5,1642  E5,1430               TEMPTIME           EQUALS   SOUTHDR    +7                         #  2
006327,001676: E5,1642  E5,1432               TMARK              EQUALS   TEMPTIME   +2                         #  2
006328,001677: E5,1642  E5,1434               GENPL              EQUALS   TMARK      +2                         
006329,001678: E5,1642  E5,1434               CDUTIMEI           =        GENPL                                 
006330,001679: E5,1642  E5,1436               CDUTIMEF           =        GENPL      +2                         
006331,001680: E5,1642  E5,1440               CDUDANG            =        GENPL      +4                         
006332,001681: E5,1642  E5,1441               CDUREADF           =        GENPL      +5                         
006333,001682: E5,1642  E5,1442               CDUREADI           =        GENPL      +6                         
006334,001683: E5,1642  E5,1443               CDULIMIT           =        GENPL      +7                         
006335,001684: 
006336,001685: E5,1642  E5,1440               TEMPADD            =        GENPL      +4                         
006337,001686: E5,1642  E5,1441               TEMP               =        GENPL      +5                         
006338,001687: E5,1642  E5,1442               NOBITS             =        GENPL      +6                         
006339,001688: E5,1642  E5,1443               CHAN               =        GENPL      +7                         
006340,001689: 
006341,001690: E5,1642  E5,1444               LOS1               =        GENPL      +8D                        
006342,001691: E5,1642  E5,1452               LOS2               =        GENPL      +14D                       
006343,001692: 
006344,001693: E5,1642  E5,1460               CALCDIR            EQUALS   GENPL      +20D                       
006345,001694: E5,1642  E5,1461               CDUFLAG            EQUALS   GENPL      +21D                       
006346,001695: E5,1642  E5,1462               GYTOBETQ           EQUALS   GENPL      +22D                       
006347,001696: E5,1642  E5,1463               OPTNREG            EQUALS   GENPL      +23D                       
006348,001697: E5,1642  E5,1464               SAVE               EQUALS   GENPL      +24D                       #  THREE  ONSEC LOC
006349,001698: E5,1642  E5,1467               SFCONST1           EQUALS   GENPL      +27D                       
006350,001699: E5,1642  E5,1470               TIMER              EQUALS   GENPL      +28D                       
006351,001700: 
006352,001701: E5,1642  E5,1472               DATAPL             EQUALS   GENPL      +30D                       
006353,001702: E5,1642  E5,1434               RDSP               EQUALS   GENPL                                 #  FIX LA ER   POSSIBLY KEEP1
006354,001703: E5,1642  E5,1534               MASKREG            EQUALS   GENPL      +64D                       
006355,001704: E5,1642  E5,1536               CDUNDX             EQUALS   GENPL      +66D                       
006356,001705: E5,1642  E5,1537               RESULTCT           EQUALS   GENPL      +67D                       
006357,001706: E5,1642  E5,1542               COUNTPL            EQUALS   GENPL      +70D                       
006358,001707: 
006359,001708: E5,1642  E5,1543               CDUANG             EQUALS   GENPL      +71D                       
006360,001709: 

Page 143

006362,001711: E5,1642  E5,1434               AINLA              =        GENPL                                 #  110 DE  OR 156 OCT LOCATIONS
006363,001712: 
006364,001713: E5,1642  E5,1434               WANGO              EQUALS   AINLA                                 #  VERT E ATE
006365,001714: E5,1642  E5,1436               WANGI              EQUALS   AINLA      +2D                        #  HORIZO TAL ERATE
006366,001715: E5,1642  E5,1440               WANGT              EQUALS   AINLA      +4D                        #  T
006367,001716: E5,1642  E5,1440               TORQNDX            =        WANGT                                 
006368,001717: E5,1642  E5,1442               DRIFTT             EQUALS   AINLA      +6D                        
006369,001718: E5,1642  E5,1444               ALX1S              EQUALS   AINLA      +8D                        
006370,001719: E5,1642  E5,1445               CMPX1              EQUALS   AINLA      +9D                        #  IND
006371,001720: E5,1642  E5,1446               ALK                EQUALS   AINLA      +10D                       #  GAINS
006372,001721: E5,1642  E5,1462               VLAUNS             EQUALS   AINLA      +22D                       
006373,001722: E5,1642  E5,1464               WPLATO             EQUALS   AINLA      +24D                       
006374,001723: E5,1642  E5,1470               INTY               EQUALS   AINLA      +28D                       #  SOUTH  IP INTE
006375,001724: E5,1642  E5,1472               ANGZ               EQUALS   AINLA      +30D                       #  EAST A IS
006376,001725: E5,1642  E5,1474               INTZ               EQUALS   AINLA      +32D                       #  EAST P P I
006377,001726: E5,1642  E5,1476               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
006378,001727: E5,1642  E5,1500               ANGX               EQUALS   AINLA      +36D                       #  VE
006379,001728: E5,1642  E5,1502               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
006380,001729: E5,1642  E5,1504               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
006381,001730: E5,1642  E5,1510               VLAUN              EQUALS   AINLA      +44D                       
006382,001731: E5,1642  E5,1512               ACCWD              EQUALS   AINLA      +46D                       
006383,001732: E5,1642  E5,1520               POSNV              EQUALS   AINLA      +52D                       
006384,001733: E5,1642  E5,1522               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
006385,001734: E5,1642  E5,1526               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH  IP INCREMENT
006386,001735: E5,1642  E5,1530               ALTIM              EQUALS   AINLA      +60D                       
006387,001736: E5,1642  E5,1531               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
006388,001737: E5,1642  E5,1532               ALDK               EQUALS   AINLA      +62D                       #   TIME  ONSTAN
006389,001738: E5,1642  E5,1550               DELM               EQUALS   AINLA      +76D                       
006390,001739: E5,1642  E5,1560               WPLATI             EQUALS   AINLA      +84D                       
006391,001740: E5,1642  E5,1562               GEOCOMPS           EQUALS   AINLA      +86D                       
006392,001741: E5,1642  E5,1563               ERCOMP             EQUALS   AINLA      +87D                       
006393,001742: E5,1642  E5,1571               ZERONDX            EQUALS   AINLA      +93D                       
006394,001743: 
006395,001744: E5,1642  E5,1452               THETAN             =        ALK        +4                         
006396,001745: E5,1642  E5,1460               FILDELV            EQUALS   THETAN     +6                         #   AGS ALIGNMENT STORAGE
006397,001746: E5,1642  E5,1462               INTVEC             EQUALS   FILDELV    +2                         
006398,001747: E5,1642  E5,1572               1SECXT             =        AINLA      +94D                       
006399,001748: E5,1642  E5,1573               ASECXT             =        AINLA      +95D                       
006400,001749: E5,1642  E5,1574               PERFDLAY           EQUALS   AINLA      +96D                       #  B(2) DELAY TIME BEF. START DRIFT MEASURE
006401,001750: E5,1642  E5,1576               OVFLOWCK           EQUALS   AINLA      +98D                       #  (1) SET MEANS OVERFLOW IN IMU PERF TEST
006402,001751:                                                                                                  #      AND CAUSES TERMINATION
006403,001752: 
006404,001753: 
006405,001754: E5,1642  E5,1774               END-E5             EQUALS   STARSAV2   +6                         #  *** FIRST FREE LOCATION IN E5***
006406,001755: 

Page 144

006408,001757:                                                                                                  #           EBANK-6 ASSIGNMENTS.
006409,001758: 
006410,001759: E6,1400                                           SETLOC   3000                                  
006411,001760: 
006412,001761:                                                                                                  #           DAP    PAD-LOADED    DATA.                          (10D)
006413,001762: 
006414,001763:                                                                                                  #    ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
006415,001764: 
006416,001765: E6,1400                        HIASCENT           ERASE                                          #  (1) MASS AFTER STAGING, SCALE AT B16 KG.
006417,001766: E6,1401                        ROLLTIME           ERASE                                          #  (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
006418,001767: E6,1402                        PITTIME            ERASE                                          #  (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
006419,001768: E6,1403                        DKTRAP             ERASE                                          #  (1) DAP STATE            (POSSIBLE 77001
006420,001769: E6,1404                        DKOMEGAN           ERASE                                          #  (1)   ESTIMATOR PARA-      (VALUES 00012
006421,001770: E6,1405                        DKKAOSN            ERASE                                          #  (1)      METERS FOR THE           00074
006422,001771: E6,1406                        LMTRAP             ERASE                                          #  (1)         DOCKED AND            77001
006423,001772: E6,1407                        LMOMEGAN           ERASE                                          #  (1)            LEM-ALONE CASES    00000
006424,001773: E6,1410                        LMKAOSN            ERASE                                          #  (1)               RESPECTIVELY    00074
006425,001774: E6,1411                        DKDB               ERASE                                          #  (1) WIDTH OF DEADBAND FOR DOCKED RCS
006426,001775:                                                                                                  #      AUTOPILOT (DB=1.4DEG IN FRESH START)
006427,001776:                                                                                                  #      DEADBAND = PI/DKDB RAD.
006428,001777: 
006429,001778:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:                    (5D)
006430,001779: 
006431,001780: E6,1412                        M11                ERASE                                          #  SCALED AT 1
006432,001781: E6,1413                        M21                ERASE                                          #  SCALED AT 1
006433,001782: E6,1414                        M31                ERASE                                          
006434,001783: E6,1415                        M22                ERASE                                          #  SCALED AT 1.
006435,001784: E6,1416                        M32                ERASE                                          #  SCALED AT 1.
006436,001785: 
006437,001786:                                                                                                  #  ANGLE MEASUREMENTS.                                                   (31D)
006438,001787: 
006439,001788: E6,1417                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
006440,001789: E6,1424  E6,1420               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
006441,001790: E6,1424  E6,1421               OMEGAR             EQUALS   OMEGAP     +2                         
006442,001791:                                                                                                  #     RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
006443,001792: E6,1424  E6,1422               ALPHAQ             EQUALS   OMEGAP     +3                         
006444,001793: E6,1424  E6,1423               ALPHAR             EQUALS   OMEGAP     +4                         
006445,001794: E6,1424                        OMEGAU             ERASE    +1                                    
006446,001795: E6,1426  E6,1425               OMEGAV             =        OMEGAU     +1                         
006447,001796: 
006448,001797: E6,1426                        TRAPEDP            ERASE    +5                                    
006449,001798: E6,1434  E6,1427               TRAPEDQ            =        TRAPEDP    +1                         
006450,001799: E6,1434  E6,1430               TRAPEDR            =        TRAPEDP    +2                         
006451,001800: E6,1434  E6,1431               NPTRAPS            =        TRAPEDP    +3                         
006452,001801: E6,1434  E6,1432               NQTRAPS            =        TRAPEDP    +4                         
006453,001802: E6,1434  E6,1433               NRTRAPS            =        TRAPEDP    +5                         
006454,001803: E6,1434  E6,1425               EDOTP              =        EDOT                                  
006455,001804: E6,1434                        EDOTQ              ERASE    +1                                    
006456,001805: E6,1436  E6,1435               EDOTR              =        EDOTQ      +1                         #   MANY SHARING NAMES
006457,001806: E6,1436  E6,1434               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
006458,001807: 

Page 145

006460,001809: E6,1436  E6,1435               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
006461,001810: 
006462,001811: E6,1436  E6,1424               URATEDIF           EQUALS   OMEGAU                                
006463,001812: E6,1436  E6,1425               VRATEDIF           EQUALS   OMEGAV                                
006464,001813: E6,1436                        OLDXFORP           ERASE    +2                                    #  STORED CDU READINGS FOR STATE
006465,001814: E6,1441  E6,1437               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
006466,001815: E6,1441  E6,1440               OLDZFORQ           EQUALS   OLDXFORP   +2                         
006467,001816: 
006468,001817:                                                                                                  #  RATE-COMMAND AND MINIMUM IMPULSE MODES
006469,001818: 
006470,001819: E6,1441                        CH31TEMP           ERASE                                          
006471,001820: E6,1442                        STIKSENS           ERASE                                          
006472,001821: E6,1443                        TCP                ERASE                                          
006473,001822: E6,1444                        DXERROR            ERASE    +5                                    
006474,001823: E6,1452  E6,1446               DYERROR            EQUALS   DXERROR    +2                         
006475,001824: E6,1452  E6,1450               DZERROR            EQUALS   DXERROR    +4                         
006476,001825: E6,1452                        PLAST              ERASE                                          
006477,001826: E6,1453                        QLAST              ERASE                                          
006478,001827: E6,1454                        RLAST              ERASE                                          
006479,001828: E6,1455                        TCQR               ERASE                                          
006480,001829:                                                                                                  #  OTHER VARIABLES.                                                      (5D)
006481,001830: 
006482,001831: E6,1456                        OLDPMIN            ERASE                                          #  THESE THREE USED IN MIN IMPULSE MODE.
006483,001832: E6,1457                        OLDQRMIN           ERASE                                          
006484,001833: E6,1460  E6,1735               TEMP31             EQUALS   DAPTEMP1                              
006485,001834: 
006486,001835: E6,1460                        SAVEHAND           ERASE    +1                                    
006487,001836: E6,1462                        PERROR             ERASE                                          
006488,001837: E6,1463  E6,1446               QERROR             EQUALS   DYERROR                               
006489,001838: E6,1463  E6,1450               RERROR             EQUALS   DZERROR                               
006490,001839:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW      (10D)
006491,001840:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
006492,001841: 
006493,001842: E6,1463                        NXT6ADR            ERASE                                          
006494,001843: E6,1464                        T6NEXT             ERASE    +1                                    
006495,001844: E6,1466                        T6FURTHA           ERASE    +1                                    
006496,001845: E6,1470                        NEXTP              ERASE    +2                                    
006497,001846: E6,1473  E6,1471               NEXTU              =        NEXTP      +1                         
006498,001847: E6,1473  E6,1472               NEXTV              =        NEXTP      +2                         
006499,001848: E6,1473                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
006500,001849: E6,1475  E6,1474               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
006501,001850: 
006502,001851: E6,1475  E6,1474               TARGETDB           EQUALS   -RATEDB                               #  MAN. CONTROL TARGET DB COMPLEMENT.
006503,001852: 
006504,001853:                                                                                                  #      *** Q,R AXIS ERASABLES ***                                        (3)
006505,001854: 
006506,001855: E6,1475     4742               PBIT               EQUALS   BIT10                                 
006507,001856: E6,1475     4741               QRBIT              EQUALS   BIT11                                 
006508,001857: E6,1475  E6,1747               UERROR             EQUALS   DAPTREG5                              #  U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
006509,001858: E6,1475  E6,1750               VERROR             =        UERROR     +1                         
006510,001859: E6,1475                        RETJADR            ERASE                                          
006511,001860: 

Page 146

006513,001862: E6,1476  E6,1740               TEMPNUM            EQUALS   DAPTEMP4                              
006514,001863: E6,1476  E6,1741               NUMBERT            EQUALS   DAPTEMP5                              
006515,001864: E6,1476  E6,1742               ROTINDEX           EQUALS   DAPTEMP6                              
006516,001865: E6,1476  E6,1735               ROTEMP1            EQUALS   DAPTEMP1                              
006517,001866: E6,1476  E6,1736               ROTEMP2            EQUALS   DAPTEMP2                              
006518,001867: E6,1476                        AXISCTR            ERASE                                          
006519,001868: E6,1477  E6,1737               POLYTEMP           EQUALS   DAPTEMP3                              
006520,001869: E6,1477                        SENSETYP           ERASE                                          
006521,001870: E6,1500  E6,1735               ABSTJ              EQUALS   DAPTEMP1                              #  ABS VALUE OF JET-FIRING TIME
006522,001871: E6,1500  E6,1735               ABSEDOTP           EQUALS   DAPTEMP1                              
006523,001872: 
006524,001873: E6,1500  E6,1746               DPSBURN            EQUALS   DAPTREG4                              #  USED WITH SNUFFBIT.  VERY TEMPORARY.
006525,001874: 

Page 147

006527,001876:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:                            (11D)
006528,001877: 
006529,001878: E6,1500  E6,1735               GTSTEMPS           EQUALS   DAPTEMP1                              #  GTS IS PART OF THE JASK.
006530,001879: E6,1500  E6,1737               SHFTFLAG           EQUALS   GTSTEMPS   +2                         #  COUNT HIGH ORDER ZERO BITS FOR SHIFTING.
006531,001880: 
006532,001881: E6,1500  E6,1740               ININDEX            EQUALS   GTSTEMPS   +3                         #  INDEX FOR SHIFT LOOP.
006533,001882: 
006534,001883: E6,1500  E6,1476               SAVESR             EQUALS   AXISCTR                               #  CANNOT BE A DAPTEMP - GTS USES THEM ALL.
006535,001884: 
006536,001885: E6,1500  E6,1742               SCRATCH            EQUALS   GTSTEMPS   +5                         #  ERASABLE FOR ROOTCYCL
006537,001886: E6,1500  E6,1743               HALFARG            EQUALS   GTSTEMPS   +6                         
006538,001887: 
006539,001888: E6,1500  E6,1735               K2THETA            EQUALS   GTSTEMPS                              #  D.P. K(2)THETA AND NEGUSUM
006540,001889: E6,1500  E6,1737               A2CNTRAL           EQUALS   GTSTEMPS   +2                         #  D.P. ALPHA(2), AT PI(2)/164 RAD/SEC(2)
006541,001890: E6,1500  E6,1741               KCENTRAL           EQUALS   GTSTEMPS   +4                         #  S.P. K FROM KQ OR KR, AT PI/2(8)
006542,001891: E6,1500  E6,1741               OMEGA.K            EQUALS   KCENTRAL                              #  D.P. OMEGA*K   OVERLAYS K AND K(2)
006543,001892: E6,1500  E6,1742               K2CNTRAL           EQUALS   GTSTEMPS   +5                         #  S.P. K(2) FROM Q OR R, AT PI(2)/2(16)
006544,001893: E6,1500  E6,1743               WCENTRAL           EQUALS   GTSTEMPS   +6                         #  S.P. OMEGA, AT PI/4 RAD/SEC
006545,001894: E6,1500  E6,1744               ACENTRAL           EQUALS   GTSTEMPS   +7                         #  S.P. ALPHA, AT PI/8 RAD/SEC(2)
006546,001895: E6,1500  E6,1745               DEL                EQUALS   GTSTEMPS   +8D                        #  S.P. SGN FUNCTION VALUE
006547,001896: 
006548,001897: E6,1500  E6,1746               QRCNTR             EQUALS   GTSTEMPS   +9D                        #  INDEX FOR GTS LOOP THROUGH Q,R AXES.
006549,001898: 
006550,001899: E6,1500  E6,1747               FUNCTION           EQUALS   GTSTEMPS   +10D                       #  D.P. WORD FOR DRIVE FUNCTION
006551,001900: 
006552,001901: E6,1500                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
006553,001902:                                                                                                  #                                NEGUQ +1               DEFINED AND USED ELSEWHERE
006554,001903: E6,1503  E6,1502               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
006555,001904: 
006556,001905: E6,1503                        KQ                 ERASE    +3                                    #  .3ACCDOTQ SCALED AT PI/2(8)
006557,001906: E6,1507  E6,1504               KQ2                EQUALS   KQ         +1                         #  KQ2 = KQ*KQ
006558,001907: E6,1507  E6,1505               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
006559,001908: E6,1507  E6,1506               KR2                EQUALS   KQ         +3                         #  KR2 = KR*KR
006560,001909: 
006561,001910: E6,1507                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
006562,001911: E6,1513  E6,1510               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
006563,001912: E6,1513  E6,1511               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
006564,001913: E6,1513  E6,1512               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
006565,001914: 
006566,001915: E6,1513  E6,1446               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
006567,001916: E6,1513  E6,1450               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
006568,001917: 
006569,001918: 
006570,001919: 
006571,001920: 
006572,001921:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:                               (18D)
006573,001922: 
006574,001923: E6,1513  E6,1743               JETRATE            EQUALS   DAPTREG1                              
006575,001924: E6,1513  E6,1744               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
006576,001925: E6,1513  E6,1745               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
006577,001926: 

Page 148

006579,001928: 
006580,001929: E6,1513                        DOWNTORK           ERASE    +5                                    #  ACCUMULATED JET TORQUE COMMANDED ABOUT
006581,001930: E6,1521  E6,1513               POSTORKP           EQUALS   DOWNTORK                              #    +,-P, +,-U, +,-V RESPECTIVELY.
006582,001931: E6,1521  E6,1514               NEGTOTKP           EQUALS   DOWNTORK   +1                         #    EMPLOYED EXCLUSIVELY FOR DOWNLIST.
006583,001932: E6,1521  E6,1515               POSTORKU           EQUALS   DOWNTORK   +2                         #    NOT INITIALIZED; PERMITTED TO OVERFLOW
006584,001933: E6,1521  E6,1516               NEGTORKU           EQUALS   DOWNTORK   +3                         #  SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
006585,001934: E6,1521  E6,1517               POSTORKV           EQUALS   DOWNTORK   +4                         #      MSEC PER BIT.
006586,001935: E6,1521  E6,1520               NEGTORKV           EQUALS   DOWNTORK   +5                         
006587,001936: 
006588,001937: E6,1521                        NO.PJETS           ERASE    +2                                    
006589,001938: E6,1524  E6,1522               NO.UJETS           =        NO.PJETS   +1                         
006590,001939: E6,1524  E6,1523               NO.VJETS           =        NO.UJETS   +1                         
006591,001940: E6,1524                        TJP                ERASE    +2                                    
006592,001941: E6,1527  E6,1525               TJU                =        TJP        +1                         
006593,001942: E6,1527  E6,1526               TJV                =        TJP        +2                         
006594,001943: 
006595,001944: E6,1527                        L,PVT-CG           ERASE                                          
006596,001945: E6,1530                        1JACC              ERASE    +4                                    #  ACCELERATIONS DUE TO 1 JET TORQUING
006597,001946: E6,1535  E6,1531               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
006598,001947: E6,1535  E6,1532               1JACCR             EQUALS   1JACC      +2                         
006599,001948: E6,1535  E6,1533               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
006600,001949: E6,1535  E6,1534               1JACCV             EQUALS   1JACC      +4                         #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
006601,001950: 
006602,001951:                                                                                                  #  ASCENT VARIABLES:                                                     (10D)
006603,001952: 
006604,001953: E6,1535                        SKIPU              ERASE    +1                                    
006605,001954: E6,1537  E6,1536               SKIPV              =        SKIPU      +1                         
006606,001955:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
006607,001956:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
006608,001957:                                                                                                  #  SECTIONS AND ELSEWHERE.
006609,001958: 
006610,001959: E6,1537                        AOSQ               ERASE    +5                                    #  OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
006611,001960: E6,1545  E6,1541               AOSR               EQUALS   AOSQ       +2                         #  AND SCALED AT PI/2.
006612,001961: E6,1545  E6,1543               AOSU               EQUALS   AOSQ       +4                         #  UV-AXES OFFSET ACC. FROMED BY VECTOR
006613,001962: E6,1545  E6,1544               AOSV               EQUALS   AOSQ       +5                         #  ADDITION OF Q,R.  AT PI/2 RAD/SEC(2).
006614,001963: 
006615,001964: E6,1545                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
006616,001965: E6,1547  E6,1546               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
006617,001966: 
006618,001967:                                                                                                  #  FOR TJET LAW SUBROUTINE:                                              (TEMPS ONLY)
006619,001968: 
006620,001969:                                                                                                  # NUMBERT        EQUALS          DAPTEMP5                  DEFINED IN QRAXIS.
006621,001970: E6,1547  E6,1735               EDOTSQ             EQUALS   DAPTEMP1                              
006622,001971: E6,1547  E6,1736               ROTSENSE           EQUALS   DAPTEMP2                              
006623,001972: E6,1547  E6,1737               FIREFCT            EQUALS   DAPTEMP3                              #  LOOKED AT BY PAXIS.
006624,001973: E6,1547  E6,1740               TTOAXIS            EQUALS   DAPTEMP4                              
006625,001974: E6,1547  E6,1742               ADRSDIF2           EQUALS   DAPTEMP6                              
006626,001975: E6,1547  E6,1743               HOLDQ              EQUALS   DAPTREG1                              
006627,001976: E6,1547  E6,1744               ADRSDIF1           EQUALS   DAPTREG2                              
006628,001977: E6,1547  E6,1745               HH                 EQUALS   DAPTREG3                              #  DOUBLE PRECISION
006629,001978: 

Page 149

006631,001980:                                                                                                  #  HH +1         EQUALS          DAPTREG4
006632,001981: E6,1547  E6,1750               E                  EQUALS   DAPTREG6                              #  TIME SHARE WITH VERROR
006633,001982: E6,1547  E6,1425               EDOT               EQUALS   OMEGAV                                
006634,001983: 
006635,001984:                                                                                                  #  INPUT TO TJET LAW (PERMANENT ERASABLES).                              (48D)
006636,001985: 
006637,001986: E6,1547  E6,1525               TJETU              =        TJU                                   #  EQUATE NAMES.  INDEXED BY -1, 0, +1.
006638,001987: E6,1547                        BLOCKTOP           ERASE    +47D                                  
006639,001988: E6,1627  E6,1567               1/ANET1            =        BLOCKTOP   +16D                       #  THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
006640,001989: E6,1627  E6,1570               1/ANET2            =        1/ANET1    +1                         #  FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
006641,001990: E6,1627  E6,1573               1/ACOAST           =        1/ANET1    +4                         #  EDOT IS POSITIVE.  TJETLAW INDEXES BY
006642,001991: E6,1627  E6,1575               ACCFCTZ1           =        1/ANET1    +6                         #  ADRSDIFF FROM THESE REGISTERS TO PICK UP
006643,001992: E6,1627  E6,1576               ACCFCTZ5           =        1/ANET1    +7                         #  PARAMETERS FOR THE PROPER AXIS, NUMBER
006644,001993: E6,1627  E6,1601               FIREDB             =        1/ANET1    +10D                       #  OF JETS AND SIGN OF EDOT.  THERE ARE 48
006645,001994: E6,1627  E6,1603               COASTDB            =        1/ANET1    +12D                       #  REGISTERS IN ALL IN THIS BLOCK.
006646,001995: E6,1627  E6,1605               AXISDIST           =        1/ANET1    +14D                       #  FOUR NOT REFERENCED (P-AXIS) ARE FILLED
006647,001996:                                                                                                  #    IN BY THE FOLLOWING:
006648,001997: E6,1627  E6,1547               ACCSWU             =        BLOCKTOP                              #  SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
006649,001998: E6,1627  E6,1550               ACCSWV             =        ACCSWU     +1                         #  JETS ARE REQUIRED BECAUSE OF AOS.
006650,001999: E6,1627  E6,1555               FLAT               =        BLOCKTOP   +6                         #  WIDTH OF MINIMUM IMPULSE ZONE.
006651,002000: E6,1627  E6,1556               ZONE3LIM           =        BLOCKTOP   +7                         #  HEIGHT OF MINIMUM IMPULSE ZONE(AT 4 SEC)
006652,002001: 
006653,002002: 
006654,002003: 
006655,002004:                                                                                                  #  VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE.                            (4)
006656,002005: 
006657,002006: E6,1627  E6,1501               ALLOWGTS           EQUALS   NEGUQ      +1                         #  INSERT INTO UNUSED LOCATION
006658,002007: E6,1627                        COTROLER           ERASE                                          #  INDICATES WHICH CONTROL SYSTEM TO USE.
006659,002008: E6,1630                        QGIMTIMR           ERASE    +2                                    #  Q-GIMBAL DRIVE ITMER, DECISECONDS.
006660,002009: E6,1633  E6,1631               INGTS              EQUALS   QGIMTIMR   +1                         #  INDICATOR OF CURRENT GTS CONTROL.
006661,002010: E6,1633  E6,1632               RGIMTIMR           EQUALS   QGIMTIMR   +2                         #  R-GIMBAL DRIVE TIMER, DECISECONDS.
006662,002011: 
006663,002012:                                                                                                  #  PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
006664,002013: 
006665,002014:                                                                                                  #           KALCMANU:DAP INTERFACE.                                      (9D)
006666,002015: 
006667,002016: E6,1633                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
006668,002017: E6,1636  E6,1634               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006669,002018: E6,1636  E6,1635               CDUZD              EQUALS   CDUXD      +2                         #  (STORE IN 2S COMPLEMENT)
006670,002019: 
006671,002020: E6,1636                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
006672,002021: E6,1641  E6,1637               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
006673,002022: E6,1641  E6,1640               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORE IN 2S COMPLEMENT)
006674,002023: 
006675,002024:                                                                                                  #     RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
006676,002025: E6,1641                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES:
006677,002026: E6,1644  E6,1642               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
006678,002027: E6,1644  E6,1643               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
006679,002028: 
006680,002029:                                                                                                  #  KALCMANU STORAGE.                                                     (24D)
006681,002030: 

Page 150

006683,002032: E6,1644                        MIS                ERASE    +23D                                  #  I(18D)
006684,002033: E6,1674  E6,1666               COF                EQUALS   MIS        +18D                       #  I(6)
006685,002034: 
006686,002035: 
006687,002036:                                                                                                  #           KALCMANU STORAGE.                                             (33D)
006688,002037: 
006689,002038: E6,1674                        BCDU               ERASE    +30D                                  #  B(3)
006690,002039: E6,1733  E6,1677               KSPNDX             EQUALS   BCDU       +3                         #  B(1)
006691,002040: E6,1733  E6,1700               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)
006692,002041: 
006693,002042: E6,1733  E6,1701               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
006694,002043: E6,1733  E6,1723               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
006695,002044: E6,1733  E6,1731               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
006696,002045: 
006697,002046: 
006698,002047: E6,1733                        AM                 ERASE    +1                                    #  I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
006699,002048: 
006700,002049: 
006701,002050:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU                                      (25D)
006702,002051: 
006703,002052: E6,1735  E6,1701               KV1                EQUALS   TMIS                                  #  I(6)
006704,002053: E6,1735  E6,1701               MFISYM             EQUALS   TMIS                                  #  I
006705,002054: E6,1735  E6,1701               TMFI               EQUALS   TMIS                                  #  I
006706,002055: E6,1735  E6,1701               NCDU               EQUALS   TMIS                                  #  B
006707,002056: E6,1735  E6,1704               NEXTIME            EQUALS   TMIS       +3                         #  B
006708,002057: E6,1735  E6,1705               TTEMP              EQUALS   TMIS       +4                         #  B
006709,002058: E6,1735  E6,1707               KV2                EQUALS   TMIS       +6                         #  I(6)
006710,002059: E6,1735  E6,1707               BIASTEMP           EQUALS   TMIS       +6                         #  B
006711,002060: E6,1735  E6,1715               KV3                EQUALS   TMIS       +12D                       #  I(6)
006712,002061: E6,1735  E6,1715               OGF                EQUALS   TMIS       +12D                       #  I
006713,002062: 
006714,002063: E6,1735  E6,1723               BRATE              EQUALS   COFSKEW                               #  B
006715,002064: E6,1735  E6,1723               IG                 EQUALS   COFSKEW                               #  I
006716,002065: 
006717,002066: E6,1735  E6,1731               TM                 EQUALS   CAM                                   #  B
006718,002067: 
006719,002068:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU                                     (24D)
006720,002069: 
006721,002070: E6,1735  E6,1701               K1                 =        KV1                                   
006722,002071: E6,1735  E6,1707               K2                 =        KV2                                   
006723,002072: E6,1735  E6,1715               K3                 =        KV3                                   
006724,002073: E6,1735  E6,1701               P21                EQUALS   KV1                                   #  I(2)
006725,002074: E6,1735  E6,1703               D21                EQUALS   KV1        +2                         #  I(2)
006726,002075: E6,1735  E6,1705               G21                EQUALS   KV1        +4                         #  I(2)
006727,002076: E6,1735  E6,1707               C2SQP              EQUALS   KV2                                   #  I(2)
006728,002077: E6,1735  E6,1711               C2SQM              EQUALS   KV2        +2                         #  I(2)
006729,002078: E6,1735  E6,1713               C2PP               EQUALS   KV2        +4                         #  I(2)
006730,002079: E6,1735  E6,1715               C2MP               EQUALS   KV3                                   #  I(2)
006731,002080: E6,1735  E6,1717               C1PP               EQUALS   KV3        +2                         #  I(2)
006732,002081: E6,1735  E6,1721               C1MP               EQUALS   KV3        +4                         #  I(2)
006733,002082: 

Page 151

006735,002084: E6,1735  E6,1723               VECQTEMP           =        COFSKEW                               
006736,002085: 
006737,002086: E6,1735  E6,1633               DCDU               =        CDUXD                                 
006738,002087: E6,1735  E6,1636               DELDCDU            =        DELCDUX                               
006739,002088: E6,1735  E6,1637               DELDCDU1           =        DELCDUY                               
006740,002089: E6,1735  E6,1640               DELDCDU2           =        DELCDUZ                               
006741,002090: 
006742,002091: 
006743,002092:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
006744,002093: 
006745,002094:                                                                                                  #  STORAGE FOR FINDCDUW
006746,002095: 
006747,002096:                                                                                                  #           OVERLAYING KALCMANU STORAGE:                                 (26D)
006748,002097: 
006749,002098: E6,1735  E6,1644               ECDUW              EQUALS   MIS                                   
006750,002099: E6,1735  E6,1644               ECDUWUSR           EQUALS   ECDUW                                 #  B(1)TMP
006751,002100: E6,1735  E6,1645               QCDUWUSR           EQUALS   ECDUWUSR   +1                         #  I(1)TMP
006752,002101: E6,1735  E6,1646               NDXCDUW            EQUALS   QCDUWUSR   +1                         #  B(1)TMP
006753,002102: E6,1735  E6,1647               FLAGOODW           EQUALS   NDXCDUW    +1                         #  B(1)TMP
006754,002103: E6,1735  E6,1650               FLPAUTNO           EQUALS   FLAGOODW   +1                         #  B(1)TMP
006755,002104: E6,1735  E6,1651               UNFC/2             EQUALS   FLPAUTNO   +1                         #  I(6)IN
006756,002105: E6,1735  E6,1657               UNWC/2             EQUALS   UNFC/2     +6                         #  I(6)IN
006757,002106: E6,1735  E6,1665               UNFV/2             EQUALS   UNWC/2     +6                         #  I(6) S-S
006758,002107: E6,1735  E6,1665               UNFVX/2            =        UNFV/2                                
006759,002108: E6,1735  E6,1667               UNFVY/2            =        UNFV/2     +2                         
006760,002109: E6,1735  E6,1671               UNFVZ/2            =        UNFV/2     +4                         
006761,002110: E6,1735  E6,1673               -DELGMB            EQUALS   UNFV/2     +6                         #  B(3)TMP
006762,002111: 
006763,002112:                                                                                                  #           DEFINED IN THE WORK AREA:                                    (18D)
006764,002113: 
006765,002114: E6,1735                        UNX/2              =        0                                     
006766,002115: E6,1735                        UNY/2              =        6                                     
006767,002116: E6,1735                        UNZ/2              =        14                                    
006768,002117: 
006769,002118:                                                                                                  #  END OF FINDCDUW ERASABLES
006770,002119: 
006771,002120:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
006772,002121: 
006773,002122:                                                                                                  #  THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
006774,002123:                                                                                                  #  ...ANYWAY, THE DAP CAN NOW BE INTERRUPTED.                            (18D)
006775,002124: 
006776,002125: E6,1735                        DAPTEMP1           ERASE    +17D                                  
006777,002126: E6,1757  E6,1736               DAPTEMP2           EQUALS   DAPTEMP1   +1                         
006778,002127: E6,1757  E6,1737               DAPTEMP3           EQUALS   DAPTEMP1   +2                         
006779,002128: E6,1757  E6,1740               DAPTEMP4           EQUALS   DAPTEMP1   +3                         
006780,002129: E6,1757  E6,1741               DAPTEMP5           EQUALS   DAPTEMP1   +4                         
006781,002130: E6,1757  E6,1742               DAPTEMP6           EQUALS   DAPTEMP1   +5                         
006782,002131: E6,1757  E6,1743               DAPTREG1           EQUALS   DAPTEMP1   +6                         
006783,002132: E6,1757  E6,1744               DAPTREG2           EQUALS   DAPTEMP1   +7                         
006784,002133: E6,1757  E6,1745               DAPTREG3           EQUALS   DAPTEMP1   +8D                        
006785,002134: 

Page 152

006787,002136: E6,1757  E6,1746               DAPTREG4           EQUALS   DAPTEMP1   +9D                        
006788,002137: E6,1757  E6,1747               DAPTREG5           EQUALS   DAPTEMP1   +10D                       
006789,002138: E6,1757  E6,1750               DAPTREG6           EQUALS   DAPTEMP1   +11D                       
006790,002139: 
006791,002140: E6,1757  E6,1751               DAPARUPT           EQUALS   DAPTEMP1   +12D                       
006792,002141: E6,1757  E6,1752               DAPLRUPT           EQUALS   DAPARUPT   +1                         
006793,002142: E6,1757  E6,1753               DAPBQRPT           EQUALS   DAPARUPT   +2                         
006794,002143: E6,1757  E6,1755               DAPZRUPT           EQUALS   DAPARUPT   +4                         
006795,002144: 
006796,002145:                                                                                                  #  (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
006797,002146: 
006798,002147: 
006799,002148: 
006800,002149:                                                                                                  #           NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE.          (6D)
006801,002150: 
006802,002151: E6,1757     0061               T5TEMP             EQUALS   ITEMP1                                
006803,002152: E6,1757     0063               DINDX              EQUALS   ITEMP3                                
006804,002153: E6,1757                        AK                 ERASE    +2                                    #  NEEDLER ATTITUDE INPUTS, SCALED AT 180
006805,002154: E6,1762  E6,1760               AK1                EQUALS   AK         +1                         #  DEGREES.  P,Q,R AXES IN AK,AK1,AK2.
006806,002155: E6,1762  E6,1761               AK2                EQUALS   AK         +2                         
006807,002156: 
006808,002157: E6,1762                        EDRIVEX            ERASE    +2                                    #  NEEDLER DISPLAY REGS AT 1800 DEGREES.
006809,002158: E6,1765  E6,1763               EDRIVEY            EQUALS   EDRIVEX    +1                         #  SO THAT 384 BITS REPRESENT 42 3/16 DEG.
006810,002159: E6,1765  E6,1764               EDRIVEZ            EQUALS   EDRIVEX    +2                         
006811,002160: 
006812,002161: 
006813,002162:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,S40.1 AND DOWNLINKED. (6D)
006814,002163: 
006815,002164: E6,1765                        DELVEET3           ERASE    +5                                    #  I(6)     DELTA V IN INERTIAL
006816,002165: 
006817,002166: 
006818,002167:                                                                                                  #           P32-P33 STORAGE.                                             (2)
006819,002168: 
006820,002169: E6,1773                        TCDH               ERASE    +1                                    #   I(2) T2 CDH TIME IN C.S. ALSO DWNLINKED
006821,002170: 
006822,002171: 
006823,002172: 
006824,002173:                                                                                                  #           P32 - 35                                                     (2D)
006825,002174: 
006826,002175: E6,1775                        RTX1               ERASE                                          #  I(1) X1  -2 FOR EARTH, -10 FOR MOON
006827,002176: E6,1776                        RTX2               ERASE                                          #  I(1) X2 FOR SHIFT-EARTH 0, MOON 2
006828,002177: 
006829,002178: 
006830,002179: E6,1777  E6,1776               END-E6             EQUALS   RTX2                                  #  LAST LOCATION USED IN E6.
006831,002180: 

Page 153

006833,002182:                                                                                                  #                  EBANK-7 ASSIGNMENTS
006834,002183: 
006835,002184: E7,1400                                           SETLOC   3400                                  
006836,002185: 
006837,002186: 
006838,002187:                                                                                                  #           P35 CONSTANTS.         -PAD LOADED-                          (4D)
006839,002188: 
006840,002189: E7,1400                        ATIGINC            ERASE    +1                                    #  B(2)PL  *MUST BE AT 1400 FOR SYSTEMSTEST
006841,002190: E7,1402                        PTIGINC            ERASE    +1                                    #  B(2)PL
006842,002191: 
006843,002192: 
006844,002193:                                                                                                  #           AOTMARK STORAGE.       -PAD LOADED-                          (6D)
006845,002194: 
006846,002195: E7,1404                        AOTAZ              ERASE    +2                                    #  B(3)PL
006847,002196: E7,1407                        AOTEL              ERASE    +2                                    #  B(3)PL
006848,002197: 
006849,002198: 
006850,002199:                                                                                                  #           LANDING RADAR.         -PAD LOADED-                          (10D)
006851,002200: 
006852,002201: E7,1412                        LRALPHA            ERASE    +3                                    #  B(1)    POS1 X ROTATION      * MUST *
006853,002202: E7,1416  E7,1413               LRBETA1            EQUALS   LRALPHA    +1                         #  B(1)    POS1 Y ROTATION    *  BE  *
006854,002203: E7,1416  E7,1414               LRALPHA2           EQUALS   LRBETA1    +1                         #  B(1)    POS2 X ROTATION    *  IN  *
006855,002204: E7,1416  E7,1415               LRBETA2            EQUALS   LRALPHA2   +1                         #  B(1)    POS2 Y ROTATION    * ORDER *
006856,002205: E7,1416                        LRHMAX             ERASE                                          #  B(1)
006857,002206: E7,1417                        LRVMAX             ERASE                                          #  B(1)
006858,002207: E7,1420                        LRWH               ERASE                                          #  B(1)
006859,002208: E7,1421                        LRWVZ              ERASE                                          #  B(1)    * MUST  *
006860,002209: E7,1422                        LRWVY              ERASE                                          #  B(1)    * BE IN *
006861,002210: E7,1423                        LRWVX              ERASE                                          #  B(1)    * ORDER *
006862,002211: 
006863,002212: 
006864,002213: 
006865,002214:                                                                                                  #           THROTTLE STORAGE.      -PAD LOADED-                          (1D)
006866,002215: 
006867,002216: E7,1424                        ZOOMTIME           ERASE                                          #  B(1)PL TIME OF DPS THROTTLE-UP COMMAND
006868,002217: 
006869,002218:                                                                                                  #           P63 AND P64 CONSTANTS.    -PAD LOADED-                       (2D)
006870,002219: 
006871,002220: E7,1425                        TENDBRAK           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006872,002221: E7,1426                        TENDAPPR           ERASE                                          #  B(1) LANDING PHASE SWITCHING CRITERION
006873,002222: 
006874,002223: 
006875,002224:                                                                                                  #           LANDING RADAR      -PAD LOADED-                              (2D)
006876,002225: 
006877,002226: E7,1427                        RPCRTIME           ERASE                                          #  B(1) REPOSITIONING CRITERION  (TIME)
006878,002227: E7,1430                        RPCRTQSW           ERASE                                          #  B(1) REPOSITIONING CRITERION (ANGLE)
006879,002228: 
006880,002229: 
006881,002230:                                                                                                  #  *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
006882,002231: 

Page 154

006884,002233:                                                                                                  #           P32-35  P72-75 STORAGE.                        (6D)
006885,002234: 
006886,002235: E7,1431                        DELVLVC            ERASE    +5                                    #  I(6) DELTA VELOCITY - LOCAL VERTICAL COO
006887,002236: E7,1437  E7,1431               DELVSLV            =        DELVLVC                               #  (TEMP STORAGE OF SAME VECTOR)   -RDINATE
006888,002237: 
006889,002238: 
006890,002239: 
006891,002240:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                   (2D)
006892,002241: 
006893,002242: E7,1437                        TIG                ERASE    +1                                    #  B(2)
006894,002243: 
006895,002244:                                                                                                  #           INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS      (8D)
006896,002245: 
006897,002246: E7,1441                        RTARG              ERASE    +5                                    #  I(6) TARGET VECTOR
006898,002247: E7,1447                        DELLT4             ERASE    +1                                    #  I(2) TIME DIFFERENCE
006899,002248: 
006900,002249: 
006901,002250:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                                  (3D)
006902,002251: 
006903,002252: E7,1451                        TTOGO              ERASE    +1                                    #  B(2)
006904,002253: E7,1453  E7,1451               TFI                EQUALS   TTOGO                                 
006905,002254: E7,1453                        WHICH              ERASE                                          #  B(1)
006906,002255: 
006907,002256: 
006908,002257:                                                                                                  #           ***  R21  ***                                                (1D)
006909,002258: 
006910,002259: E7,1454                        LOSCOUNT           ERASE                                          #  B(1)
006911,002260: 
006912,002261: 
006913,002262:                                                                                                  #           L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE.                    (4D)
006914,002263: 
006915,002264:                                                                                                  #     RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
006916,002265: E7,1455                        AIG                ERASE                                          #  B(1)OUT  GIMGAL ANGLES
006917,002266: E7,1456                        AMG                ERASE                                          #  B(1)OUT  (MUST BE
006918,002267: E7,1457                        AOG                ERASE                                          #  B(1)OUT   CONSECUTIVE)
006919,002268: 
006920,002269: E7,1460                        TRKMKCNT           ERASE                                          #  B(1)TMP  TEMPORARY MARK STORAGE.
006921,002270: E7,1461  E7,1460               MARKCTR            =        TRKMKCNT                              
006922,002271: 
006923,002272: 
006924,002273:                                                                                                  #           P32-P35, P72-P75 STORAGE.  -PERMANENT-                       (6)
006925,002274: 
006926,002275: E7,1461                        NORMEX             ERASE                                          #  B(1) PRM SAVE FOR Q
006927,002276: E7,1462                        QSAVED             ERASE                                          #  B(1) PRM SAVE FOR Q
006928,002277: E7,1463                        RTRN               ERASE                                          #  B(1) PRM SAVE FOR Q
006929,002278: E7,1464                        NN                 ERASE    +1                                    #  B(2)
006930,002279: E7,1466                        SUBEXIT            ERASE                                          #  B(1) PRM SAVE Q
006931,002280: 

Page 155

006933,002282: 
006934,002283: E7,1467                        E7OVERLA           EQUALS                                         #           START OF E7 OVERLAYS
006935,002284: 
006936,002285: E7,1467  E7,1467               WHOCARES           EQUALS   E7OVERLA                              #  A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
006937,002286: 

Page 156

006939,002288:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 7  *******
006940,002289: 
006941,002290: 
006942,002291: 
006943,002292:                                                                                                  #  RENDEZVOUS GUIDANCE STORAGE -P32....P35-                              (89D)
006944,002293: 
006945,002294: E7,1467  E7,1607               TSTRT              EQUALS   DELDV                                 #  MIDCOURSE START TIME
006946,002295: E7,1467  E7,1571               TDEC2              EQUALS   DELVCSI                               #  TEMP STORAGE FOR INTEGRATION TIME INPUT
006947,002296: E7,1467  E7,1573               KT                 EQUALS   DELVTPI                               #  TEMP STORAGE FOR MIDCOURSE DELTA TIME
006948,002297: E7,1467                        VACT1              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CSI TIME
006949,002298: E7,1475                        RPASS1             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CSI TIME
006950,002299: E7,1503                        VPASS1             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CSI TIME
006951,002300: E7,1511                        VACT2              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CDH TIME
006952,002301: E7,1517                        RPASS2             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CDH TIME
006953,002302: E7,1525                        VPASS2             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CDH TIME
006954,002303: E7,1533                        RACT3              ERASE    +5D                                   #  POSITION VECTOR OF ACTIVE  AT TPI TIME
006955,002304: E7,1541                        VACT3              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT TPI TIME
006956,002305: E7,1547                        RPASS3             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT TPI TIME
006957,002306: E7,1555                        VPASS3             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT TPI TIME
006958,002307: E7,1563                        VACT4              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT INTERCEPT
006959,002308: E7,1571  E7,1541               UNVEC              EQUALS   VACT3                                 #  CDHMVR UNIT VECTOR TEMP STORAGE.
006960,002309: E7,1571                        DELVCSI            ERASE    +1D                                   #  THRUST VALUE AT CSI
006961,002310: E7,1573                        DELVTPI            ERASE    +1D                                   #  THRUST VALUE AT TPI OR MID
006962,002311: E7,1575  E7,1573               DELVMID            EQUALS   DELVTPI                               
006963,002312: E7,1575                        DIFFALT            ERASE    +1D                                   #  ALT DIFFERENCE AT CDH
006964,002313: E7,1577                        POSTCSI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CSI MANEUVER
006965,002314: E7,1601                        POSTCDH            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CDH MANEUVER
006966,002315: E7,1603                        POSTTPI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER TPI MANEUVER
006967,002316: E7,1605  E7,1603               LOOPCT             EQUALS   POSTTPI                               #  CSI NEWTON ITERATION COUNTER
006968,002317: E7,1605  E7,1601               HAFPA1             EQUALS   POSTCDH                               #  HALF PERIOD
006969,002318: E7,1605                        GAMPREV            ERASE    +1                                    #  PREVIOUS GAMMA
006970,002319: E7,1607  E7,1573               DVPREV             EQUALS   DELVTPI                               #  PREVIOUS DELVCSI
006971,002320: E7,1607                        DELDV              ERASE    +1D                                   
006972,002321: E7,1611                        CSIALRM            ERASE    +1                                    #  FIRST SOLUTION ALARM
006973,002322: E7,1613                        VERBNOUN           ERASE                                          
006974,002323: E7,1614  E7,1611               TITER              EQUALS   CSIALRM                               #  ITERATION COUNTER
006975,002324: E7,1614                        RDOTV              ERASE    +1                                    
006976,002325: E7,1616  E7,1503               VAPREC             EQUALS   VPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006977,002326: E7,1616  E7,1475               RAPREC             EQUALS   RPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006978,002327: E7,1616  E7,1525               VPPREC             EQUALS   VPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006979,002328: E7,1616  E7,1517               RPPREC             EQUALS   RPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006980,002329: E7,1616  E7,1573               DELEL              EQUALS   DELVTPI                               #  I(2) S-S
006981,002330: E7,1616  E7,1607               DELTEE             EQUALS   DELDV                                 #  I(2)S-S
006982,002331: E7,1616  E7,1571               SECMAX             EQUALS   DELVCSI                               #  I(2) S-S MAX STOP SIZE FOR ROUTINE
006983,002332: E7,1616  E7,1603               DELTEEO            EQUALS   POSTTPI                               #  I(2) S-S BACK VALUES OF DELTA TIME
006984,002333: E7,1616                        CENTANG            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
006985,002334: 

Page 157

006987,002336:                                                                                                  #           SOME P47 STORAGE                                             (6D)
006988,002337: 
006989,002338: E7,1620                        DELVIMU            ERASE    +5                                    #  I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
006990,002339: 
006991,002340: 
006992,002341:                                                                                                  #           P30-P40 COMMON STORAGE.                                      (3D)
006993,002342: 
006994,002343: E7,1626                        TPASS4             ERASE    +1                                    #  INTERCEPT TIME
006995,002344: E7,1630                        QTEMP              ERASE                                          #  I(1)TMP COMMON RETURN SAVE REGISTER.
006996,002345: 
006997,002346: 
006998,002347: 
006999,002348:                                                                                                  #           P32,33,34 STORAGE.                                            (6D)
007000,002349: 
007001,002350: E7,1631                        TCSI               ERASE    +1                                    #  B(2) TMP CSI TIME IN CENTISECONDS
007002,002351: E7,1633                        TTPI               ERASE    +1                                    #  B(2) TMP TPI TIME IN CENTISECONDS
007003,002352: E7,1635                        TTPI0              ERASE    +1                                    #  B(2) TMP TTPI STORAGE FOR RECYCLE
007004,002353: 
007005,002354: 
007006,002355:                                                                                                  #           P30,P40 INTERFACE.                                            (21D)
007007,002356: 
007008,002357: E7,1637                        RTIG               ERASE    +19D                                  #  I(6)TMP
007009,002358: E7,1663  E7,1645               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
007010,002359: E7,1663  E7,1653               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
007011,002360: E7,1663  E7,1661               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
007012,002361: E7,1663  E7,1661               VGDISP             =        DELVSAB                               
007013,002362: 
007014,002363: 
007015,002364: E7,1663                        QTEMP1             ERASE                                          #  I(1)TMP HOLDS RETURN.
007016,002365: E7,1664  E7,1663               RGEXIT             EQUALS   QTEMP1                                #  SAVE Q
007017,002366: E7,1664  E7,1663               SAVQR52            EQUALS   QTEMP1                                
007018,002367: 
007019,002368: 
007020,002369:                                                                                                  #           INITVEL STORAGE.  (IN OVERLAY 0 AND OVERLAY 1.                (2D)
007021,002370:                                                                                                  #                  (CALLS LAMBERT, CONIC SUBROUTINES)
007022,002371: 
007023,002372: E7,1664  E7,1563               VTPRIME            EQUALS   VACT4                                 #  TOTAL VELOCITY AT DESIRED RADIUS
007024,002373: E7,1664  E7,1614               ITCTR              EQUALS   RDOTV                                 #  ITERATION COUNTER
007025,002374: E7,1664                        COZY4              ERASE    +1                                    #  COS OF ANGLE WHEN ROTATION STARTS
007026,002375: E7,1666  E7,1607               X1INPUT            EQUALS   DELDV                                 #  X1 TEMP STORAGE
007027,002376: E7,1666  E7,1605               INTIME             EQUALS   GAMPREV                               #  TIME OF RINIT
007028,002377: 
007029,002378: 
007030,002379: 
007031,002380:                                                                                                  #           PERIAPO STORAGE. (2D)                                 (2D)
007032,002381: 
007033,002382: E7,1666                        XXXALT             ERASE    +1                                    #  RADIUS TO LAUNCH PAD OR LANDING SIGHT
007034,002383: 
007035,002384: E7,1670  E7,1670               END-IN/M           EQUALS   XXXALT     +2                         #  NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
007036,002385: 

Page 158

007038,002387:                                                                                                  #           S40.1 STORAGE.                                               (19D)
007039,002388: 
007040,002389: E7,1670                        BDT                ERASE    +18D                                  #  I(6) IN
007041,002390: E7,1713  E7,1676               UT                 EQUALS   BDT        +6                         #  I(6)OUT THRUST DIRECTION
007042,002391: E7,1713  E7,1704               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
007043,002392: E7,1713  E7,1704               VGPREV             =        VGTIG                                 
007044,002393:                                                                                                  #          S40.9 STORAGE.                                                (16D)
007045,002394: 
007046,002395: E7,1713                        VG                 ERASE    +15D                                  #  I(6)TMP
007047,002396: E7,1733  E7,1721               VRPREV             EQUALS   VG         +6                         #  I(6)TMP
007048,002397: E7,1733  E7,1727               TNIT               EQUALS   VRPREV     +6                         #  I(2)TMP TIME SIMCE LAST CALL TO S40.9
007049,002398: E7,1733  E7,1731               TNITPREV           EQUALS   TNIT       +2                         #  I(2)TMP PREVIOUS INIT.
007050,002399: 
007051,002400: 
007052,002401:                                                                                                  #          P40 STORAGE.                                                  (6D)
007053,002402: 
007054,002403:                                                                                                  #               F,MDOT,AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
007055,002404: E7,1733                        F                  ERASE    +5                                    #  I(2)TMP  S40.1 GENERATES THIS FOR S40.3
007056,002405: E7,1741  E7,1735               MDOT               EQUALS   F          +2                         #  I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
007057,002406: E7,1741  E7,1737               TDECAY             EQUALS   MDOT       +2                         #  I(2)IN  DELTA-T TAILOFF, (2**28)CS.
007058,002407: E7,1741                        VEX                ERASE    +1                                    #  I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
007059,002408: 
007060,002409: 
007061,002410: 
007062,002411:                                                                                                  #           MIDTOAV1(2) STORAGE.  (CALLED BY P40,P41,P42)                (1D)
007063,002412: 
007064,002413: E7,1743                        IRETURN1           ERASE                                          #  B(1)     RETURN FROM MIDTOAV1 AND 2
007065,002414: 

Page 159

007067,002416:                                                                                                  #  ******* OVERLAY  NUMBER 1 IN EBANK 7  *******
007068,002417: 
007069,002418: 
007070,002419: 
007071,002420:                                                                                                  #           INITVEL  (CALLED BY P34,35,38,39,10,11,S40.9,S40.1)          (6D)
007072,002421: 
007073,002422: E7,1744  E7,1467               RTARG1             EQUALS   VACT1                                 #  I(6)S TEMP STORAGE OF RTARG
007074,002423: 
007075,002424: 
007076,002425:                                                                                                  #           P35-P40 INTERFACE.                                           (6D)
007077,002426: 
007078,002427: E7,1744  E7,1503               VPASS4             EQUALS   VPASS1                                #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
007079,002428: 
007080,002429: 
007081,002430:                                                                                                  #           INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
007082,002431: 
007083,002432:                                                                                                  #           SOME P38-39,P78-79 STORAGE.                                  (2D)
007084,002433: 
007085,002434: E7,1744  E7,1626               TINT               EQUALS   TPASS4                                #  I(2) TIME OF INTERCEPT
007086,002435: 
007087,002436: 
007088,002437:                                                                                                  #           LAT - LONG TEMPORARIES. CAN OVERLAY WITH S40.1               (3D)
007089,002438: 
007090,002439: E7,1744  E7,1670               ERADM              EQUALS   BDT                                   #  I(2)
007091,002440: E7,1744  E7,1672               INCORPEX           EQUALS   ERADM      +2                         #  I(1)
007092,002441: 
007093,002442: 
007094,002443:                                                                                                  #           LRS24.1 STORAGE. (CAN SHARE WITH P30'S)                      (40D)
007095,002444: 
007096,002445: E7,1744  E7,1673               RLMSRCH            EQUALS   INCORPEX   +1                         #  I(6) TMP LM POSITION VECTOR
007097,002446: E7,1744  E7,1701               VXRCM              EQUALS   RLMSRCH    +6                         #  I(6)    CM V X R VECTOR
007098,002447: E7,1744  E7,1707               LOSDESRD           EQUALS   VXRCM      +6                         #  I(6)    DESIRED LOS VECTOR
007099,002448: E7,1744  E7,1715               UXVECT             EQUALS   LOSDESRD   +6                         #  I(6)    X-AXIS SRCH PATTERN COORDS
007100,002449: E7,1744  E7,1723               UYVECT             EQUALS   UXVECT     +6                         #  I(6)    Y-AXIS SRCH PATTERN COORDS
007101,002450: E7,1744  E7,1731               DATAGOOD           EQUALS   UYVECT     +6                         #  B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
007102,002451: E7,1744  E7,1732               OMEGDISP           EQUALS   DATAGOOD   +1                         #  B(2)    ANGLE OMEGA DISPLAYED IN R2
007103,002452: E7,1744  E7,1732               OMEGAD             =        OMEGDISP                              #          PINBALL DEFINITION.
007104,002453: E7,1744  E7,1734               NSRCHPNT           EQUALS   OMEGDISP   +2                         #  B(1)TMP SEARCH PATTERN POINT COUNTER.
007105,002454: E7,1744  E7,1735               SAVLEMV            EQUALS   NSRCHPNT   +1                         #  I(6)S-S SAVES LOSVEL
007106,002455: 
007107,002456: 
007108,002457: 
007109,002458: 

Page 160

007111,002460:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 7  *******
007112,002461: 
007113,002462: 
007114,002463: 
007115,002464:                                                                                                  #           INCORP STORAGE IN E7.                                        (47D)
007116,002465: 
007117,002466: E7,1744  E7,1467               TX789              EQUALS   E7OVERLA                              #  I(6)
007118,002467: E7,1744  E7,1475               GAMMA              EQUALS   TX789      +6                         #  I(3)
007119,002468: E7,1744  E7,1500               OMEGA              EQUALS   GAMMA      +3                         #  I(18)
007120,002469: E7,1744  E7,1522               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)
007121,002470: E7,1744  E7,1544               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)
007122,002471:                                                                                                  #           AOTMARK STORAGE                                              (3D)
007123,002472: 
007124,002473: E7,1744  E7,1546               MARKCNTR           EQUALS   DELTAQ     +2                         #  I(1)
007125,002474: E7,1744  E7,1547               XYMARK             EQUALS   MARKCNTR   +1                         #  B(1)
007126,002475: E7,1744  E7,1550               MKDEX              EQUALS   XYMARK     +1                         #  B(1)TMP INDEX FOR AOTMARK
007127,002476: 
007128,002477: 
007129,002478:                                                                                                  #           PLANET STORAGE.                                              (8D)
007130,002479: 
007131,002480: E7,1744  E7,1551               PLANVEC            EQUALS   MKDEX      +1                         #  (6) REFER VECTOR OF PLANET
007132,002481: E7,1744  E7,1557               TSIGHT             EQUALS   PLANVEC    +6                         #  (2) TIME OF MARK OR EST TIME OF MARK
007133,002482: 
007134,002483: 
007135,002484: 
007136,002485:                                                                                                  #           LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1   (30D).
007137,002486: 
007138,002487: E7,1744  E7,1673               LGRET              EQUALS   RLMSRCH                               #  I(1) TMP
007139,002488: E7,1744  E7,1673               RDRET              EQUALS   LGRET                                 #  B(1)  TEMP RETURN.
007140,002489: E7,1744  E7,1673               IGRET              EQUALS   LGRET                                 #  B(1)  TEMP RETURN.
007141,002490: E7,1744  E7,1674               MX                 EQUALS   RDRET      +1                         #  I(6)
007142,002491: E7,1744  E7,1702               MY                 EQUALS   MX         +6                         #  I(6)
007143,002492: E7,1744  E7,1710               MZ                 EQUALS   MY         +6                         #  I(6)
007144,002493: E7,1744  E7,1674               E0                 EQUALS   MX                                    #  I(2)
007145,002494: E7,1744  E7,1676               E1                 EQUALS   MX         +2                         #  I(2)
007146,002495: E7,1744  E7,1700               E2                 EQUALS   MX         +4                         #  I(2)
007147,002496: E7,1744  E7,1702               E3                 EQUALS   E2         +2                         #  I(2)
007148,002497: E7,1744  E7,1716               SCALSHFT           EQUALS   MZ         +6                         #  B(1) SCALE SHIFT FOR EARTH/MOON
007149,002498: E7,1744  E7,1717               RXZ                EQUALS   SCALSHFT   +1                         #  I(2)
007150,002499: E7,1744  E7,1721               ULC                EQUALS   RXZ        +2                         #  I(6)
007151,002500: E7,1744  E7,1727               SINTHETA           EQUALS   ULC        +6                         #  I(2)
007152,002501: 
007153,002502:                                                                                                  #      ***** IN OVERLAY ONE *****
007154,002503: 
007155,002504: E7,1744  E7,1744               N49FLAG            EQUALS   RDOTMSAV                              #  B(1)S    FLAG INDICATING V0649 RESPONSE
007156,002505: 
007157,002506: 
007158,002507:                                                                                                  #           LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S)                 (13D)
007159,002508: 
007160,002509:                                                                                                  #           (OUTPUTS ARE TO LRS22.3)
007161,002510: 

Page 161

007163,002512: E7,1744  E7,1731               RRTRUN             EQUALS   SINTHETA   +2                         #  B(2)OUT  RR TRUNION ANGLE
007164,002513: E7,1744  E7,1733               RRSHAFT            EQUALS   RRTRUN     +2                         #  B(2)OUT RRSHAFT ANGLE
007165,002514: E7,1744  E7,1735               LRS22.1X           EQUALS   RRSHAFT    +2                         #  B(1)TMP
007166,002515: E7,1744  E7,1736               RRBORSIT           EQUALS   LRS22.1X   +1                         #  I(6) TMP RADAR BORESIGHT VECTOR.
007167,002516: E7,1744  E7,1744               RDOTMSAV           EQUALS   RRBORSIT   +6                         #  B(2) S    RR RANGE-RATE(FPS)
007168,002517: 
007169,002518: 
007170,002519:                                                                                                  #           LRS22.1  (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR  (R29)(8D) CANNOT SHARE WITH L.A.D.
007171,002520: 
007172,002521: E7,1744  E7,1746               RDOTM              EQUALS   RDOTMSAV   +2                         #  B(2)OUT  RANGE-RATE READING
007173,002522: E7,1744  E7,1750               TANGNB             EQUALS   RDOTM      +2                         #  B(2)TMP  RR GIMBAL ANGLES
007174,002523:                                                                                                  #           RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
007175,002524: E7,1744  E7,1752               MKTIME             EQUALS   TANGNB     +2                         #  B(2)OUT  TIME OF RR READING
007176,002525: E7,1744  E7,1754               RM                 EQUALS   MKTIME     +2                         #  I(2)OUT  RANGE READING
007177,002526: 
007178,002527: 
007179,002528:                                                                                                  #           R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE  **IN OVERLAY ONE*
007180,002529:                                                                                                  #                    (CALLED BY P20,R22LEM,LSR22.3)                      (1D)
007181,002530: 
007182,002531: E7,1744  E7,1743               R65CNTR            EQUALS   RRBORSIT   +5                         #  B(1)SS  COUNT NUMBER OF TIMES PREFERRED
007183,002532:                                                                                                  #          TRACKING ROUTINE IS TO CYCLE
007184,002533: 
007185,002534: 
007186,002535: 
007187,002536: 
007188,002537:                                                                                                  #           P21 STORAGE                                                  (2D)
007189,002538: 
007190,002539: E7,1744  E7,1756               P21TIME            EQUALS   RM         +2                         #  I(2)TMP
007191,002540: 
007192,002541: 
007193,002542:                                                                                                  #           KALCMANU, VECPOINT STORAGE.  CALLED BY R63, R61, R65.         (12D)
007194,002543: 
007195,002544: E7,1744  E7,1760               SCAXIS             EQUALS   P21TIME    +2                         #  I(6)
007196,002545: E7,1744  E7,1766               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)
007197,002546: 
007198,002547: 

Page 162

007200,002549:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 7  *******
007201,002550: 
007202,002551: 
007203,002552: 
007204,002553:                                                                                                  #           SERVICER STORAGE                                             (6D)
007205,002554: 
007206,002555: E7,1744  E7,1467               ABVEL              EQUALS   E7OVERLA                              #  B(2) DISPLAY
007207,002556: E7,1744  E7,1471               HDOTDISP           EQUALS   ABVEL      +2                         #  B(2) DISPLAY
007208,002557: E7,1744  E7,1473               TTFDISP            EQUALS   HDOTDISP   +2                         #  B(2) DISPLAY
007209,002558: 
007210,002559: 
007211,002560:                                                                                                  #           BURN PROG STORAGE.                                           (2D)
007212,002561: 
007213,002562: E7,1744  E7,1475               SAVET-30           EQUALS   TTFDISP    +2                         #  B(2)TMP TIG-30 RESTART
007214,002563: 
007215,002564: 
007216,002565:                                                                                                  #           SERVICER STORAGE.                                            (69D)
007217,002566: 
007218,002567: E7,1744  E7,1477               VGBODY             EQUALS   SAVET-30   +2                         #  B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
007219,002568: E7,1744  E7,1477               DELVCTL            =        VGBODY                                
007220,002569: E7,1744  E7,1505               DVTOTAL            EQUALS   VGBODY     +6                         #  B(2) DISPLAY NOUN
007221,002570: E7,1744  E7,1507               GOBLTIME           EQUALS   DVTOTAL    +2                         #  B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
007222,002571: E7,1744  E7,1511               ABDVCONV           EQUALS   GOBLTIME   +2                         #  I(2)
007223,002572: E7,1744  E7,1513               DVCNTR             EQUALS   ABDVCONV   +2                         #  B(1)
007224,002573: E7,1744  E7,1514               TGO                EQUALS   DVCNTR     +1                         #  B(2)
007225,002574: E7,1744  E7,1516               R                  EQUALS   TGO        +2                         #  I(6)
007226,002575: E7,1744  E7,1516               UNITGOBL           EQUALS   R                                     #  I(6)
007227,002576: E7,1744  E7,1524               V                  EQUALS   R          +6                         
007228,002577: E7,1744  E7,1524               DELVREF            EQUALS   V                                     #  I(6)
007229,002578: E7,1744  E7,1532               HCALC              EQUALS   DELVREF    +6                         #  B(2)     LR
007230,002579: E7,1744  E7,1534               UNIT/R/            EQUALS   HCALC      +2                         #  I(6)
007231,002580:                                                                                                  #           (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
007232,002581: 
007233,002582: E7,1744  E7,1542               RN1                EQUALS   UNIT/R/    +6                         #  B(6)
007234,002583: E7,1744  E7,1550               VN1                EQUALS   RN1        +6                         #  I(6)                      (IN ORDER  )
007235,002584: E7,1744  E7,1556               PIPTIME1           EQUALS   VN1        +6                         #  B(2)                      (   FOR    )
007236,002585: E7,1744  E7,1560               GDT1/2             EQUALS   PIPTIME1   +2                         #  I(6)                      (  COPY    )
007237,002586: E7,1744  E7,1566               MASS1              EQUALS   GDT1/2     +6                         #  I(2)                      (  CYCLE   )
007238,002587: E7,1744  E7,1570               R1S                EQUALS   MASS1      +2                         #  I(6)
007239,002588: E7,1744  E7,1576               V1S                EQUALS   R1S        +6                         #  I(6)
007240,002589: 
007241,002590: 
007242,002591:                                                                                                  #           ALIGNMENT/S40.2.3 COMMON STORAGE.                            (18D)
007243,002592: 
007244,002593: E7,1744  E7,1604               XSMD               EQUALS   V1S        +6                         #  I(6)
007245,002594: E7,1744  E7,1612               YSMD               EQUALS   XSMD       +6                         #  I(6)
007246,002595: E7,1744  E7,1620               ZSMD               EQUALS   YSMD       +6                         #  I(6)
007247,002596: 
007248,002597: E7,1744  E7,1604               XSCREF             =        XSMD                                  
007249,002598: E7,1744  E7,1612               YSCREF             =        YSMD                                  
007250,002599: 

Page 163

007252,002601: E7,1744  E7,1620               ZSCREF             =        ZSMD                                  
007253,002602: 
007254,002603: E7,1744  E7,1626               END-ALIG           EQUALS   ZSMD       +6                         #  NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
007255,002604: 
007256,002605: 
007257,002606:                                                                                                  #           ******   P22   ******                                        (24D)
007258,002607: 
007259,002608: E7,1744  E7,1626               RSUBL              EQUALS   END-ALIG                              #  I(6)S-S  LM POSITION VECTOR
007260,002609: E7,1744  E7,1634               UCSM               EQUALS   RSUBL      +6                         #  I(6)S-S  VECTOR U
007261,002610: E7,1744  E7,1642               NEWVEL             EQUALS   UCSM       +6                         #  I(6)S-S  TERMINAL VELOCITY VECTOR
007262,002611: E7,1744  E7,1650               NEWPOS             EQUALS   NEWVEL     +6                         #  I(6)S-S  TERMINAL POSITION VECTOR
007263,002612: E7,1744  E7,1656               LNCHTM             EQUALS   NEWPOS     +6                         #  I(2)S-S EST. LAUNCH TIME FOR LEM
007264,002613: E7,1744  E7,1660               TRANSTM            EQUALS   LNCHTM     +2                         #  I(2)S-S TRANSFER TIME
007265,002614: E7,1744  E7,1662               NCSMVEL            EQUALS   TRANSTM    +2                         #  I(6)S-S NEW CSM VELOCITY
007266,002615: 

Page 164

007268,002617:                                                                                                  #  *******  OVERLAY NUMBER 4 IN EBANK 7  *******
007269,002618: 
007270,002619: 
007271,002620:                                                                                                  #           AUTO-OPTICS STORAGE.  -R52-                                  (1)
007272,002621: 
007273,002622: E7,1744  E7,1467               XNB1               =        WHOCARES                              #  THESE WHOCARES THINGS ARE REFERENCED.
007274,002623: E7,1744  E7,1467               YNB1               =        WHOCARES                              #  BUT NOT USED IN SUNDANCE
007275,002624: E7,1744  E7,1467               ZNB1               =        WHOCARES                              
007276,002625: 
007277,002626: 
007278,002627:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING)                 (84D)
007279,002628: 
007280,002629:                                                                                                  #  THESE ERASABLES MAY BE SHARED WITH CARE
007281,002630: 
007282,002631: E7,1744  E7,1542               OURTEMPS           =        RN1                                   #  OVERLAY LAST PART OF SERVICER
007283,002632: E7,1744  E7,1542               LANDTEMP           =        OURTEMPS                              #  B(6)     GUIDANCE
007284,002633: E7,1744  E7,1550               TTF/8TMP           =        LANDTEMP   +6                         #  B(2)    GUIDANCE
007285,002634: E7,1744  E7,1552               ELINCR             =        TTF/8TMP   +2                         #  B(2)    GUIDANCE
007286,002635: E7,1744  E7,1554               AZINCR             =        ELINCR     +2                         #  B(2)    GUIDANCE
007287,002636: E7,1744  E7,1556               KEEP-2             =        AZINCR     +2                         #  B(2)    TO PREVENT PIPTIME1 OVERLAY
007288,002637: E7,1744  E7,1560               TABLTTF            =        KEEP-2     +2                         #  B(2)    GUIDANCE
007289,002638: E7,1744  E7,1571               TPIPOLD            =        TABLTTF    +9D                        #  B(2)    GUIDANCE
007290,002639: E7,1744  E7,1573               /AFC/              =        TPIPOLD    +2                         #  B(2)    GUIDANCE AND  THROTTLE
007291,002640: 
007292,002641: 
007293,002642: 
007294,002643:                                                                                                  #  (ERASABLES WHICH OVERLAP WITH THE ABOVE BLOCK)
007295,002644: 
007296,002645: E7,1744  E7,1560               FCODD              =        TABLTTF                               #  B(2)    THROTTLE
007297,002646: E7,1744  E7,1562               FP                 =        FCODD      +2                         #  B(2)    THROTTLE
007298,002647: E7,1744  E7,1617               E2DPS              EQUALS   OURPERMS                              
007299,002648: 
007300,002649: 
007301,002650: 
007302,002651:                                                                                                  #  THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
007303,002652: E7,1744  E7,1604               PIFPSET            =        XSMD                                  #  B(1)    THROTTLE
007304,002653: E7,1744  E7,1605               RTNHOLD            =        PIFPSET    +1                         #  B(1)    THROTTLE
007305,002654: E7,1744  E7,1606               FWEIGHT            =        RTNHOLD    +1                         #  B(2)    THROTTLE
007306,002655: E7,1744  E7,1610               PIF                =        FWEIGHT    +2                         #  B(2)   THROTTLE
007307,002656: E7,1744  E7,1612               PSEUDO55           =        PIF        +2                         #  B(1)   THROTTLE DOWNLINK
007308,002657: E7,1744  E7,1613               FC                 =        PSEUDO55   +1                         #  B(2)    THROTTLE
007309,002658: E7,1744  E7,1615               TTHROT             =        FC         +2                         #  B(1)    THROTTLE
007310,002659: E7,1744  E7,1616               FCOLD              =        TTHROT     +1                         #  B(1)    THROTTLE
007311,002660: 
007312,002661: 
007313,002662: 
007314,002663:                                                                                                  #  THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
007315,002664: 
007316,002665: E7,1744  E7,1617               OURPERMS           =        FCOLD      +1                         #  MUSTN'T OVERLAY OURTEMPS OR SERVICER
007317,002666: E7,1744  E7,1617               WCHPHOLD           =        OURPERMS                              #  B(1)    GUIDANCE
007318,002667: 

Page 165

007320,002669: E7,1744  E7,1620               WCHPHASE           =        WCHPHOLD   +1                         #  B(1)    GUIDANCE
007321,002670: E7,1744  E7,1621               FLPASS0            =        WCHPHASE   +1                         #  B(1)    GUIDANCE
007322,002671: E7,1744  E7,1622               TPIP               =        FLPASS0    +1                         #  B(2)
007323,002672: E7,1744  E7,1624               VGU                =        TPIP       +2                         #  B(6)    GUIDANCE
007324,002673: E7,1744  E7,1632               LAND               =        VGU        +6                         #  B(6)    GUIDANCE    CONTIGUOUS
007325,002674: E7,1744  E7,1640               TTF/8              =        LAND       +6                         #  B(2)    GUIDANCE     CONTIGUOUS
007326,002675: E7,1744  E7,1642               ELINCR1            =        TTF/8      +2                         #  B(1)    GUIDANCE
007327,002676: E7,1744  E7,1643               AZINCR1            =        ELINCR1    +1                         #  B(1)     GUIDANCE
007328,002677: E7,1744  E7,1644               ZERLINA            =        AZINCR1    +1                         #  B(1)     GUIDANCE
007329,002678: E7,1744  E7,1645               ELVIRA             =        ZERLINA    +1                         #  B(1)     GUIDANCE
007330,002679: E7,1744  E7,1646               LRADRET            =        ELVIRA     +1                         #  B(1)    LR
007331,002680: E7,1744  E7,1647               VSELECT            =        LRADRET    +1                         #  B(1)    LR
007332,002681: E7,1744  E7,1650               VMEAS              =        VSELECT    +1                         #  B(2)    LR
007333,002682: E7,1744  E7,1652               HMEAS              =        VMEAS      +2                         #  B(2)    LR
007334,002683: E7,1744  E7,1654               VN2                =        HMEAS      +2                         #  B(6)    LR
007335,002684: E7,1744  E7,1654               GNUR               =        VN2                                   #  B(6)     LR
007336,002685: E7,1744  E7,1654               GNUV               =        VN2                                   #  B(6)     LR
007337,002686: E7,1744  E7,1654               LRADRET1           =        VN2                                   #  B(1)     LR
007338,002687: E7,1744  E7,1662               DELTAH             =        VN2        +6                         #  B(2)    DISPLAY
007339,002688: E7,1744  E7,1664               FUNNYDSP           =        DELTAH     +2                         #  B(2)    DISPLAY
007340,002689: E7,1744  E7,1666               EOURPERM           EQUALS   FUNNYDSP   +2                         #  NEXT AVAILABLE ERASABLE AFTER OURPERMS
007341,002690: 
007342,002691: 
007343,002692:                                                                                                  #  (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
007344,002693: 
007345,002694: E7,1744  E7,1642               VDGVERT            =        ELINCR1                               #  B(2)    P65,66
007346,002695: E7,1744  E7,1644               NIGNLOOP           =        ZERLINA                               #  B(1)    IGNALG
007347,002696: E7,1744  E7,1645               NGUIDSUB           =        ELVIRA                                #  B(1)    IGNALG
007348,002697: E7,1744  E7,1644               RODCOUNT           =        ZERLINA                               #  B(1)    P66
007349,002698: E7,1744  E7,1645               WCHVERT            =        ELVIRA                                #  B(1)    P65,66,67
007350,002699: E7,1744  E7,1664               FUELNEED           =        FUNNYDSP                              #  B(1)    DISPLAY
007351,002700: E7,1744  E7,1664               TREDES             =        FUNNYDSP                              #  B(1)    DISPLAY
007352,002701: E7,1744  E7,1665               LOOKANGL           =        FUNNYDSP   +1                         #  B(1)    DISPLAY
007353,002702: 
007354,002703: 
007355,002704:                                                                                                  #  ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
007356,002705: 
007357,002706: E7,1744                        PROJ               =        18D                                   #  I(2)    GUIDANCE
007358,002707: E7,1744                        UNLRB/2            =        20D                                   #  I(6)    GUIDANCE (DURING P64 ONLY)
007359,002708: E7,1744                        UNLR/2             =        20D                                   #  I(6)    GUIDANCE
007360,002709: 
007361,002710: 
007362,002711:                                                                                                  #  THE END OF THE LUNAR LANDING ERASABLES
007363,002712: 
007364,002713: 
007365,002714: 
007366,002715:                                                                                                  #           R12    (FOR LUNAR LANDING)                                   (6D)
007367,002716: 
007368,002717: E7,1744  E7,1666               LRLCTR             EQUALS   EOURPERM                              #  B(1) LR DATA TEST
007369,002718: E7,1744  E7,1667               LRRCTR             EQUALS   LRLCTR     +1                         #  B(1)
007370,002719: 

Page 166

007372,002721: E7,1744  E7,1670               LRMCTR             EQUALS   LRRCTR     +1                         #  B(1)
007373,002722: E7,1744  E7,1671               LRSCTR             EQUALS   LRMCTR     +1                         #  B(1)
007374,002723: E7,1744  E7,1672               STILBADH           EQUALS   LRSCTR     +1                         #  B(1)
007375,002724: E7,1744  E7,1673               STILBADV           EQUALS   STILBADH   +1                         #  B(1)
007376,002725: 
007377,002726: 
007378,002727: 
007379,002728:                                                                                                  #           LANDING ANALOGS DISPLAY STORAGE.                             (40D)
007380,002729: 
007381,002730: E7,1744  E7,1674               LATVMETR           EQUALS   STILBADV   +1                         #  B(1)PRM LATVEL MONITOR METER  (AN ORDER)
007382,002731: E7,1744  E7,1675               FORVMETR           EQUALS   LATVMETR   +1                         #  B(1)PRM FORVEL MONITOR METER  (-ED PAIR)
007383,002732: E7,1744  E7,1676               LATVEL             EQUALS   FORVMETR   +1                         #  B(1)PRM LATERAL VELOCITY   (AN ORDER)
007384,002733: E7,1744  E7,1677               FORVEL             EQUALS   LATVEL     +1                         #  B(1)PRM FORWARD VELOCITY   (-ED PAIR)
007385,002734: E7,1744  E7,1700               TRAKLATV           EQUALS   FORVEL     +1                         #  B(1)PRM MONITOR FLG 4 LATVEL  (AN ORDER)
007386,002735: E7,1744  E7,1701               TRAKFWDV           EQUALS   TRAKLATV   +1                         #  B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
007387,002736: E7,1744  E7,1702               VHY                EQUALS   TRAKFWDV   +1                         #  B(1)PRM VHY=VMP.UHYP   (AN ORDER)
007388,002737: E7,1744  E7,1703               VHZ                EQUALS   VHY        +1                         #  B(1)PRM VHZ=VMP.UHZP   (-ED PAIR)
007389,002738: E7,1744  E7,1704               VVECT              EQUALS   VHZ        +1                         #  B(3)PRM UPDATED S.P. VELOCITY VECTOR
007390,002739: E7,1744  E7,1707               ALTRATE            EQUALS   VVECT      +3                         #  B(1)PRM ALTITUDE RATE IN BIT UNITS
007391,002740: E7,1744  E7,1710               ALTSAVE            EQUALS   ALTRATE    +1                         #  B(2)PRM ALTITUDE IN BIT UNITS
007392,002741: E7,1744  E7,1712               LADQSAVE           EQUALS   ALTSAVE    +2                         #  B(1)PRM SAVE Q IN LANDISP
007393,002742: E7,1744  E7,1713               DT                 EQUALS   LADQSAVE   +1                         #  B(1)PRM TIME 1 MINUS (PIPTIME +1)
007394,002743: E7,1744  E7,1714               DALTRATE           EQUALS   DT         +1                         #  B(1)PRM ALTITUDE RATE ERROR CORRECTION
007395,002744: E7,1744  E7,1715               UHYP               EQUALS   DALTRATE   +1                         #  B(6)PRM SM UNIT VECTOR
007396,002745: E7,1744  E7,1715               QAXIS              =        UHYP                                  
007397,002746: E7,1744  E7,1723               UHZP               EQUALS   UHYP       +6                         #  B(6)PRM SM UNIT VECTOR
007398,002747: E7,1744  E7,1731               DELVS              EQUALS   UHZP       +6                         #  B(6)PRM DELVS = WMXR
007399,002748: E7,1744  E7,1737               ALTBITS            EQUALS   DELVS      +6                         #  B(2)PRM ALTITUDE IN BIT UNITS, 2.34FT/BT
007400,002749: E7,1744  E7,1741               RUNIT              EQUALS   ALTBITS    +2                         #  B(3)PRM SM HALF-UNIT R VECTOR
007401,002750: E7,1744  E7,1743               LASTLADW           EQUALS   RUNIT      +2                         #  ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
007402,002751: 
007403,002752: 

Page 167

007405,002754:                                                                                                  #  *******  OVERLAY NUMBER 5 IN EBANK 7  *******
007406,002755: 
007407,002756: 
007408,002757: 
007409,002758:                                                                                                  #           ASCENT GUIDANCE ERASABLES.                                   (23D)
007410,002759: 
007411,002760: E7,1744  E7,1626               RCO                EQUALS   END-ALIG                              #  I(2)TMP  TARGET RADIUS AND OUT-OF-PLANE
007412,002761: E7,1744  E7,1630               YCO                EQUALS   RCO        +2                         #  I(2)TMP  DISTANCE, SCALED AT 2(24).
007413,002762: E7,1744  E7,1632               1/DV1              EQUALS   YCO        +2                         #  B(2)TMP  ATMAG
007414,002763: E7,1744  E7,1634               1/DV2              EQUALS   1/DV1      +2                         #  B(2)TMP  ATMAG
007415,002764: E7,1744  E7,1636               1/DV3              EQUALS   1/DV2      +2                         #  B(2)TMP  ATMAG
007416,002765: E7,1744  E7,1640               XRANGE             EQUALS   1/DV3      +2                         #  B(2)TMP
007417,002766: E7,1744  E7,1642               APO                EQUALS   XRANGE     +2                         #  B(2)TMP  APOLUNE ALTITUDE DESIRED - M.
007418,002767:                                                                                                  #           SCALED AT 2(2().
007419,002768: 
007420,002769: E7,1744  E7,1644               ENGOFFDT           EQUALS   APO        +2                         #  B(1)TMP PROTECTION OFENGOFF1 CALL
007421,002770: E7,1744  E7,1645               VGVECT             EQUALS   ENGOFFDT   +1                         #  I(6)OUT  VELOCITY-TO-BE-GAINED
007422,002771: E7,1744  E7,1653               TXO                EQUALS   VGVECT     +6                         #  I(2)TMP  TIME AT WHICH X-AXIS OVERRIDE
007423,002772:                                                                                                  #  IS ALLOWED.
007424,002773: 
007425,002774:                                                                                                  #  END OF THE ASCENT GUIDANCE ERASABLES.
007426,002775: 
007427,002776:                                                                                                  #  THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
007428,002777: 
007429,002778: E7,1744  E7,1744               END-E7.0           EQUALS   IRETURN1   +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 0
007430,002779: E7,1744  E7,1745               END-E7.1           EQUALS   N49FLAG    +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 1
007431,002780: E7,1744  E7,1774               END-E7.2           EQUALS   POINTVSM   +6                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 2
007432,002781: E7,1744  E7,1626               END-E7.3           EQUALS   END-ALIG                              #  FIRST UNUSED LOCATION IN E7 OVERLAY 3
007433,002782: E7,1744  E7,1744               END-E7.4           EQUALS   LASTLADW   +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 4
007434,002783: E7,1744  E7,1655               END-E7.5           EQUALS   TXO        +2                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 5
007435,002784: E7,1744                        END-E7             EQUALS   3777                                  #  **LAST LOCATION USED IN E7 **

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