Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

001741,000002:                                                                                                  ## Copyright:   Public domain.
001742,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
001743,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
001744,000005:                                                                                                  ##              as closely as possible with available information. Sundance
001745,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
001746,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
001747,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
001748,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
001749,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
001750,000011:                                                                                                  ##              or the Sundance GSOPs.
001751,000012:                                                                                                  ## Assembler:   yaYUL
001752,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
001753,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001754,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
001755,000016:                                                                                                  ##              2021-05-30 ABS  TTPIO -> TTPI0
001756,000017: 
001757,000018: 
001758,000019:                                                                                                  ## This log section assembles such that the addresses of all erasables match
001759,000020:                                                                                                  ## their locations for Sundance 306, to the best of our knowledge. The order
001760,000021:                                                                                                  ## of definitions, and especially the comments, may not reflect the original
001761,000022:                                                                                                  ## listing.
001762,000023: 
001763,000024:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001764,000025: 
001765,000026:                                                                                                  #           EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
001766,000027:                                                                                                  #                  OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001767,000028:                                                                                                  #                  CHANGING OF ONLY ONE CARD.  EXAMPLE.
001768,000029: 
001769,000030:                                                                                                  #                                          X        EQUALS  START
001770,000031:                                                                                                  #                                          Y        EQUALS  X       +SIZE.X
001771,000032:                                                                                                  #                                          Z        EQUALS  Y       +SIZE.Y
001772,000033: 
001773,000034:                                                                                                  #                  (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
001774,000035:                                                                                                  #                  (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001775,000036:                                                                                                  #                   USUALLY NUMERIC,  IE. 1, 2, 6, 18D ETC.                )
001776,000037: 
001777,000038:                                                                                                  #           EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001778,000039:                                                                                                  #                  AND DIFFERENT DATA).  EXAMPLE.
001779,000040: 
001780,000041:                                                                                                  #                                          X        EQUALS Y
001781,000042: 
001782,000043:                                                                                                  #           = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001783,000044:                                                                                                  #                  (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
001784,000045: 
001785,000046:                                                                                                  #                                          X        =      Y
001786,000047: 
001787,000048:                                                                                                  #           THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001788,000049:                                                                                                  #           THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
001789,000050: 
001790,000051:                                                                                                  #                  M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001791,000052:                                                                                                  #                       B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001792,000053:                                                                                                  #                           INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001793,000054:                                                                                                  #                       I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001794,000055:                                                                                                  #                           INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001795,000056:                                                                                                  #                           INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001796,000057: 
001797,000058:                                                                                                  #                  SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001798,000059: 
001799,000060:                                                                                                  #                  N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001800,000061:                                                                                                  #                       PL  MEANS THAT THE CONTENTS ARE PAD LOADED.
001801,000062:                                                                                                  #                       DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001802,000063:                                                                                                  #                       PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001803,000064:                                                                                                  #                           IS USED DURING THE ENTIRE MISSION FOR ONE
001804,000065:                                                                                                  #                           PURPOSE AND CANNOT BE SHARED.
001805,000066:                                                                                                  #                       TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001806,000067:                                                                                                  #                           IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001807,000068:                                                                                                  #                           IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
001808,000069:                                                                                                  #                           PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001809,000070:                                                                                                  #                           CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS
001810,000071: 
001811,000072:                                                                                                  #                           IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
001812,000073:                                                                                                  #                           IS NOT ACTIVE IN PARALLEL.
001813,000074:                                                                                                  #                      IN   MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001814,000075:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001815,000076:                                                                                                  #                      OUT  MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001816,000077:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001817,000078: 
001818,000079:                                                                                                  #           SPECIAL REGISTERS.
001819,000080: 
001820,000081: 43,2000                        A                  EQUALS   0                                     
001821,000082: 43,2000                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
001822,000083: 43,2000                        Q                  EQUALS   2                                     
001823,000084: 43,2000                        EBANK              EQUALS   3                                     
001824,000085: 43,2000                        FBANK              EQUALS   4                                     
001825,000086: 43,2000                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
001826,000087: 43,2000                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
001827,000088:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001828,000089: 
001829,000090: 43,2000                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
001830,000091: 43,2000                        LRUPT              EQUALS   11                                    
001831,000092: 43,2000                        QRUPT              EQUALS   12                                    
001832,000093: 43,2000                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
001833,000094: 43,2000                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
001834,000095: 43,2000                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
001835,000096: 43,2000                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
001836,000097: 
001837,000098: 43,2000                        CYR                EQUALS   20                                    
001838,000099: 43,2000                        SR                 EQUALS   21                                    
001839,000100: 43,2000                        CYL                EQUALS   22                                    
001840,000101: 43,2000                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
001841,000102: 
001842,000103: 43,2000                        TIME2              EQUALS   24                                    
001843,000104: 43,2000                        TIME1              EQUALS   25                                    
001844,000105: 43,2000                        TIME3              EQUALS   26                                    
001845,000106: 43,2000                        TIME4              EQUALS   27                                    
001846,000107: 43,2000                        TIME5              EQUALS   30                                    
001847,000108: 43,2000                        TIME6              EQUALS   31                                    
001848,000109: 43,2000                        CDUX               EQUALS   32                                    
001849,000110: 43,2000                        CDUY               EQUALS   33                                    
001850,000111: 43,2000                        CDUZ               EQUALS   34                                    
001851,000112: 43,2000                        CDUT               EQUALS   35                                    #  REND RADAR TRUNNION CDU
001852,000113: 43,2000                        OPTY               EQUALS   35                                    
001853,000114: 43,2000                        CDUS               EQUALS   36                                    #  REND RADAR SHAFT CDU
001854,000115: 43,2000                        OPTX               EQUALS   36                                    
001855,000116: 43,2000                        PIPAX              EQUALS   37                                    
001856,000117: 43,2000                        PIPAY              EQUALS   40                                    
001857,000118: 43,2000                        PIPAZ              EQUALS   41                                    
001858,000119: 43,2000                        Q-RHCCTR           EQUALS   42                                    #  RHC COUNTER REGISTERS
001859,000120: 43,2000                        P-RHCCTR           EQUALS   43                                    
001860,000121: 43,2000                        R-RHCCTR           EQUALS   44                                    
001861,000122: 43,2000                        INLINK             EQUALS   45                                    
001862,000123: 43,2000                        RNRAD              EQUALS   46                                    
001863,000124: 43,2000                        GYROCMD            EQUALS   47                                    
001864,000125: 43,2000                        CDUXCMD            EQUALS   50                                    
001865,000126: 43,2000                        CDUYCMD            EQUALS   51                                    
001866,000127: 43,2000                        CDUZCMD            EQUALS   52                                    
001867,000128: 43,2000                        CDUTCMD            EQUALS   53                                    #  RADAR TRUNNION COMMAND
001868,000129: 43,2000                        CDUSCMD            EQUALS   54                                    #  RADAR SHAFT COMMAND
001869,000130: 
001870,000131: 43,2000                        THRUST             EQUALS   55                                    
001871,000132: 43,2000                        LEMONM             EQUALS   56                                    
001872,000133: 43,2000                        OUTLINK            EQUALS   57                                    
001873,000134: 43,2000                        ALTM               EQUALS   60                                    
001874,000135: 
001875,000136:                                                                                                  #           INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001876,000137: 
001877,000138: 43,2000                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001878,000139: 43,2000                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
001879,000140: 43,2000                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
001880,000141: 43,2000                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
001881,000142: 43,2000                        S1                 EQUALS   40D                                   
001882,000143: 43,2000                        S2                 EQUALS   41D                                   
001883,000144: 43,2000                        QPRET              EQUALS   42D                                   
001884,000145: 
001885,000146:                                                                                                  #  INPUT/OUTPUT CHANNELS
001886,000147: 
001887,000148:                                                                                                  #                                *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001888,000149: 43,2000  0000001               LCHAN              EQUALS   L                                     
001889,000150: 43,2000  0000002               QCHAN              EQUALS   Q                                     
001890,000151: 43,2000                        HISCALAR           EQUALS   3                                     
001891,000152: 43,2000                        LOSCALAR           EQUALS   4                                     
001892,000153: 43,2000                        CHAN5              EQUALS   5                                     
001893,000154: 43,2000                        CHAN6              EQUALS   6                                     
001894,000155: 43,2000                        SUPERBNK           EQUALS   7                                     #  SUPER-BANK.
001895,000156: 43,2000                        OUT0               EQUALS   10                                    
001896,000157: 43,2000                        DSALMOUT           EQUALS   11                                    
001897,000158: 43,2000                        CHAN12             EQUALS   12                                    
001898,000159: 43,2000                        CHAN13             EQUALS   13                                    
001899,000160: 43,2000                        CHAN14             EQUALS   14                                    
001900,000161: 43,2000                        MNKEYIN            EQUALS   15                                    
001901,000162: 43,2000                        NAVKEYIN           EQUALS   16                                    
001902,000163: 43,2000                        CHAN30             EQUALS   30                                    
001903,000164: 43,2000                        CHAN31             EQUALS   31                                    
001904,000165: 43,2000                        CHAN32             EQUALS   32                                    
001905,000166: 43,2000                        CHAN33             EQUALS   33                                    
001906,000167: 43,2000                        DNTM1              EQUALS   34                                    
001907,000168: 43,2000                        DNTM2              EQUALS   35                                    
001908,000169:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
001909,000170: 
001910,000171:                                                                                                  #           FLAGWORDS
001911,000172: 
001912,000173: 
001913,000174:                                                                                                  #  FLAGWRD0      STATE +0        (000-014)
001914,000175:                                                                                                  #  FLAGWRD1      STATE +1        (015-029)
001915,000176:                                                                                                  #  FLAGWRD2      STATE +2        (030-044)
001916,000177:                                                                                                  #  FLAGWRD3      STATE +3        (045-059)
001917,000178:                                                                                                  #  FLAGWRD4      STATE +4        (060-074)
001918,000179:                                                                                                  #  FLAGWRD5      STATE +5        (075-089)
001919,000180:                                                                                                  #  FLAGWRD6      STATE +6        (090-104)
001920,000181:                                                                                                  #  FLAGWRD7      STATE +7        (105-119)
001921,000182:                                                                                                  #  FLAGWRD8      STATE +8D       (120-134)
001922,000183:                                                                                                  #  FLAGWRD9      STATE +9D       (135-149)
001923,000184: 
001924,000185: 
001925,000186:                                                                                                  #           SORTED LIST OF
001926,000187:                                                                                                  #           INTERPITIVE SWITCH BIT ASSIGNMENTS
001927,000188: 
001928,000189:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001929,000190: 
001930,000191:                                                                                                  #  FLAGWORD        DEC. NUMBER     BIT AND FLAG         BIT NAME
001931,000192: 
001932,000193:                                                                                                  #  ACMODFLG        032             BIT 13 FLAG 2        ACMODBIT
001933,000194:                                                                                                  #  APSESW          130             BIT 5  FLAG 8        APSESBIT
001934,000195:                                                                                                  #  APSFLAG         018             BIT 12 FLAG 1        APSFLBIT
001935,000196:                                                                                                  #  ASTNFLAG        108             BIT 12 FLAG 7        ASTNBIT
001936,000197:                                                                                                  #  ATTFLAG         104             BIT 1  FLAG 6        ATTFLBIT
001937,000198:                                                                                                  #  ASCNTFLG        103             BIT 2  FLAG 6        ASCNTBIT
001938,000199:                                                                                                  #  AUTMANSW        045             BIT 15 FLAG 3        AUTMNBIT
001939,000200:                                                                                                  #  AVEGFLAG        115             BIT 5  FLAG 7        AVEGFBIT
001940,000201:                                                                                                  #  AVEMIDSW        149             BIT 1  FLAG 9        AVEMDBIT
001941,000202:                                                                                                  #  AVFLAG          040             BIT 5  FLAG 2        AVFLBIT
001942,000203:                                                                                                  #  B29FLAG         013             BIT 2  FLAG 0        B29FLBIT
001943,000204:                                                                                                  #  CALCMAN2        043             BIT 2  FLAG 2        CALC2BIT
001944,000205:                                                                                                  #  CALCMAN3        042             BIT 3  FLAG 2        CALC3BIT
001945,000206:                                                                                                  #  CMOONFLG        123             BIT 12 FLAG 8        CMOONBIT
001946,000207:                                                                                                  #  COGAFLAG        131             BIT 4  FLAG 8        COGAFBIT
001947,000208:                                                                                                  #  COMPUTER        082             BIT 8  FLAG 5        COMPTBIT
001948,000209:                                                                                                  #  CPHIFLAG        000             BIT 15 FLAG 0        CPHIBIT
001949,000210:                                                                                                  #  CULTFLAG        053             BIT 7  FLAG 3        CULTBIT
001950,000211:                                                                                                  #  CYCLESW         035             BIT 10 FLAG 2        CYCLEBIT
001951,000212:                                                                                                  #  DIMOFLAG        059             BIT 1  FLAG 3        DIMOBIT
001952,000213:                                                                                                  #  DMENFLG         081             BIT 9  FLAG 5        DMENFBIT
001953,000214:                                                                                                  #  DRIFTFLG        030             BIT 15 FLAG 2        DRFTBIT
001954,000215:                                                                                                  #  DSKYFLAG        075             BIT 15 FLAG 5        DSKYFBIT
001955,000216:                                                                                                  #  D6OR9FLG        058             BIT 2  FLAG 3        D6OR9BIT
001956,000217:                                                                                                  #  ENGONFLG        083             BIT 7  FLAG 5        ENGONBIT
001957,000218:                                                                                                  #  ERADFLAG        017             BIT 13 FLAG 1        ERADFBIT
001958,000219:                                                                                                  #  ETPIFLAG        038             BIT 7  FLAG 2        ETPIBIT         EQUIVALENT FLAG NAME:  OPTNSW
001959,000220:                                                                                                  #  FINALFLG        039             BIT 6  FLAG 2        FINALBIT
001960,000221:                                                                                                  #  FIRSTFLG        094             BIT 11 FLAG 6        FIRSTBIT
001961,000222:                                                                                                  #  FLAP            142             BIT 8  FLAG 9        FLAPBIT
001962,000223:                                                                                                  #  FLIC            143             BIT 7  FLAG 9        FLICBIT
001963,000224:                                                                                                  #  FLPC            138             BIT 12 FLAG 9        FLPCBIT
001964,000225:                                                                                                  #  FLPI            139             BIT 11 FLAG 9        FLPIBIT
001965,000226:                                                                                                  #  FLP70           137             BIT 13 FLAG 9        FLP70BIT
001966,000227:                                                                                                  #  FLRCS           149             BIT 10 FLAG 9        FLRCSBIT
001967,000228:                                                                                                  #  FLUNDISP        125             BIT 10 FLAG 8        FLUNDBIT
001968,000229:                                                                                                  #  FLVR            136             BIT 14 FLAG 9        FLVRBIT
001969,000230:                                                                                                  #  FLZONE0         144             BIT 6  FLAG 9        FLZONBIT
001970,000231:                                                                                                  #  FREEFLAG        012             BIT 3  FLAG 0        FREEFBIT
001971,000232:                                                                                                  #  GIMBFLG         026             BIT 4  FLAG 1        GIMBFBIT
001972,000233:                                                                                                  #  GLOKFAIL        046             BIT 14 FLAG 3        GLOKFBIT
001973,000234:                                                                                                  #  GMBDRVSW        095             BIT 10 FLAG 6        GMBDRBIT
001974,000235:                                                                                                  #  GUESSW          028             BIT 2  FLAG 1        GUESSBIT
001975,000236:                                                                                                  #  IDLEFLAG        113             BIT 7  FLAG 7        IDLEFBIT
001976,000237:                                                                                                  #  IGNFLAG         107             BIT 13 FLAG 7        IGNFLBIT
001977,000238:                                                                                                  #  IMPULSW         036             BIT 9  FLAG 2        IMPULBIT
001978,000239:                                                                                                  #  IMUSE           007             BIT 8  FLAG 0        IMUSEBIT
001979,000240:                                                                                                  #  INFINFLG        128             BIT 7  FLAG 8        INFINBIT
001980,000241:                                                                                                  #  INTFLG2         076             BIT 14 FLAG 5        INTF2BIT
001981,000242:                                                                                                  #  INTYPFLG        056             BIT 4  FLAG 3        INTYPBIT
001982,000243:                                                                                                  #  ITSWICH         105             BIT 15 FLAG 7        ITSWBIT
001983,000244:                                                                                                  #  JSWITCH         001             BIT 14 FLAG 0        JSWCHBIT
001984,000245:                                                                                                  #  KFLAG           014             BIT 1  FLAG 0        KBIT
001985,000246:                                                                                                  #  KILLROSE        100             BIT 5  FLAG 6        KILLRBIT
001986,000247:                                                                                                  #  LETABORT        141             BIT 9  FLAG 9        LETABBIT
001987,000248:                                                                                                  #  LMOONFLG        124             BIT 11 FLAG 8        LMOONBIT
001988,000249:                                                                                                  #  LOKONSW         010             BIT 5  FLAG 0        LOKONBIT
001989,000250:                                                                                                  #  LOSCMFLG        033             BIT 12 FLAG 2        LOSCMBIT
001990,000251:                                                                                                  #  LUNAFLAG        048             BIT 12 FLAG 3        LUNABIT
001991,000252:                                                                                                  #  MANUFLAG        106             BIT 14 FLAG 7        MANUFBIT
001992,000253:                                                                                                  #  MGLVFLAG        088             BIT 2  FLAG 5        MGLVFBIT
001993,000254:                                                                                                  #  MIDAVFLG        148             BIT 2  FLAG 9        MIDAVBIT
001994,000255:                                                                                                  #  MIDFLAG         002             BIT 13 FLAG 0        MIDFLBIT
001995,000256:                                                                                                  #  MID1FLAG        147             BIT 3  FLAG 9        MID1BIT
001996,000257:                                                                                                  #  MKOVFLAG        072             BIT 3  FLAG 4        MKOVBIT
001997,000258:                                                                                                  #  MOONFLAG        003             BIT 12 FLAG 0        MOONBIT
001998,000259:                                                                                                  #  MRKIDFLG        060             BIT 15 FLAG 4        MRKIDBIT
001999,000260:                                                                                                  #  MRKNVFLG        066             BIT 9  FLAG 4        MRKNVBIT
002000,000261:                                                                                                  #  MRUPTFLG        070             BIT 5 FLAG 4         MRUPTBIT
002001,000262:                                                                                                  #  MUNFLAG         097             BIT 8 FLAG 6         MUNFLBIT
002002,000263:                                                                                                  #  MWAITFLG        064             BIT 11 FLAG 4        MWAITBIT
002003,000264:                                                                                                  #  NEEDLFLG        011             BIT 4  FLAG 0        NEEDLBIT
002004,000265:                                                                                                  #  NEWIFLG         122             BIT 13  FLAG 8       NEWIBIT
002005,000266:                                                                                                  #  NJETSFLG        015             BIT 15 FLAG          NJETSBIT
002006,000267:                                                                                                  #  NODOFLAG        044             BIT 1  FLAG 2        NODOBIT
002007,000268:                                                                                                  #  NORMSW          110             BIT 10 FLAG 7        NORMSBIT
002008,000269:                                                                                                  #  NORRMON         086             BIT 4  FLAG 5        NORRMBIT
002009,000270:                                                                                                  #  NOTHROTL        078             BIT 12 FLAG 5        NOTHRBIT
002010,000271:                                                                                                  #  NOUPFLAG        024             BIT 6  FLAG 1        NOUPFBIT
002011,000272:                                                                                                  #  NRMNVFLG        067             BIT 8  FLAG 4        NRMNVBIT
002012,000273:                                                                                                  #  NRMIDFLG        062             BIT 13 FLAG 4        NRMIDBIT
002013,000274:                                                                                                  #  NRUPTFLG        071             BIT 4  FLAG 4        NRUPTBIT
002014,000275:                                                                                                  #  NTARGFLG        102             BIT 3  FLAG 6        NTARGBIT
002015,000276:                                                                                                  #  NWAITFLG        065             BIT 10 FLAG 4        NWAITBIT
002016,000277:                                                                                                  #  OPTNSW          038             BIT 7  FLAG 2        OPTNBIT         EQUIVALENT FLAG NAME:  ETPIFLAG
002017,000278:                                                                                                  #  ORBWFLAG        054             BIT 6  FLAG 3        ORBWFBIT
002018,000279:                                                                                                  #  ORDERSW         129             BIT 6  FLAG 8        ORDERBIT
002019,000280:                                                                                                  #  PDSPFLAG        063             BIT 12 FLAG 4        PDSPFBIT
002020,000281:                                                                                                  #  PFRATFLG        041             BIT 4  FLAG 2        PFRATBIT
002021,000282:                                                                                                  #  PINBRFLG        069             BIT 6  FLAG 4        PINBRBIT
002022,000283:                                                                                                  #  PRECIFLG        052             BIT 8  FLAG 3        PRECIBIT
002023,000284:                                                                                                  #  PRIODFLG        061             BIT 14 FLAG 1        PRIODBIT
002024,000285:                                                                                                  #  PRONVFLG        068             BIT 7  FLAG 4        PRONVBIT
002025,000286:                                                                                                  #  P25FLAG         006             BIT 9  FLAG 0        P25FLBIT
002026,000287:                                                                                                  #  P39/79SW        126             BIT 9  FLAG 8        P39SWBIT
002027,000288:                                                                                                  #  QUITFLAG        145             BIT 5  FLAG 9        QUITBIT
002028,000289:                                                                                                  #  REDFLAG         099             BIT 6  FLAG 6        REDFLBIT
002029,000290:                                                                                                  #  REFSMFLG        047             BIT 13 FLAG 3        REFSMBIT
002030,000291:                                                                                                  #  RENDWFLG        089             BIT 1  FLAG 5        RENDWBIT
002031,000292:                                                                                                  #  RNDVZFLG        008             BIT 7  FLAG 0        RNDVZBIT
002032,000293:                                                                                                  #  RNGSCFLG        080             BIT 10 FLAG 5        RNGSCBIT
002033,000294:                                                                                                  #  RPQFLAG         120             BIT 15 FLAG 8        RPQFLBIT
002034,000295:                                                                                                  #  RRNBSW          009             BIT 6 FLAG 0         RRNBBIT
002035,000296:                                                                                                  #  RVSW            111             BIT 9  FLAG 7        RVSWBIT
002036,000297:                                                                                                  #  R04FLAG         051             BIT 9  FLAG 3        R04FLBIT
002037,000298:                                                                                                  #  R32FLAG         121             BIT 14 FLAG 8        R32FLBIT
002038,000299:                                                                                                  #  R77FLAG         079             BIT 11 FLAG 5        R77FLBIT
002039,000300:                                                                                                  #  SLOPESW         027             BIT 3  FLAG 1        SLOPEBIT
002040,000301:                                                                                                  #  SNUFFER         077             BIT 13 FLAG 5        SNUFFBIT
002041,000302:                                                                                                  #  SOLNSW          087             BIT 3  FLAG 5        SOLNSBIT
002042,000303:                                                                                                  #  SRCHOPTN        031             BIT 14 FLAG 2        SRCHOBIT
002043,000304:                                                                                                  #  STATEFLG        055             BIT 5  FLAG 3        STATEBIT
002044,000305:                                                                                                  #  STEERSW         034             BIT 11 FLAG 2        STEERBIT
002045,000306:                                                                                                  #  SURFFLAG        127             BIT 8  FLAG 8        SURFFBIT
002046,000307:                                                                                                  #  SWANDISP        109             BIT 11 FLAG 7        SWANDBIT
002047,000308:                                                                                                  #  S32.1F1         090             BIT 15 FLAG 6        S32BIT1
002048,000309:                                                                                                  #  S32.1F2         092             BIT 14 FLAG 6        S32BIT2
002049,000310:                                                                                                  #  S32.1F3A        092             BIT 13 FLAG 6        S32BIT3A
002050,000311:                                                                                                  #  S32.1S3B        093             BIT 12 FLAG 6        S32BIT3B
002051,000312:                                                                                                  #  TFFSW           119             BIT 1  FLAG 7        TFFSWBIT
002052,000313:                                                                                                  #  TRACKFLG        025             BIT 5  FLAG 1        TRACKBIT
002053,000314:                                                                                                  #  UPDATFLG        023             BIT 7  FLAG 1        UPDATBIT
002054,000315:                                                                                                  #  UPLOCKFL        116             BIT 4  FLAG 7        UPLOCBIT
002055,000316:                                                                                                  #  VEHUPFLG        022             BIT 8  FLAG 1        VEHUPBIT
002056,000317:                                                                                                  #  VERIFLAG        117             BIT 3  FLAG 7        VERIFBIT
002057,000318:                                                                                                  #  VFLAG           050             BIT 10 FLAG 3        VFLAGBIT
002058,000319:                                                                                                  #  VINHFLG         004             BIT 11 FLAG 0        VINHFBIT
002059,000320:                                                                                                  #  VINTFLAG        057             BIT 3  FLAG 3        VINTFBIT
002060,000321:                                                                                                  #  VORIDEFL        005             BIT 10 FLAG 0        VORIDBIT
002061,000322:                                                                                                  #  V37FLAG         114             BIT 6  FLAG 7        V37FLBIT
002062,000323:                                                                                                  #  V45FLAG         112             BIT 8  FLAG 7        V45FLBIT
002063,000324:                                                                                                  #  XDELVFLG        037             BIT 8  FLAG 2        XDELVBIT
002064,000325:                                                                                                  #  XDSPFLAG        074             BIT 1  FLAG 4        XDSPBIT
002065,000326:                                                                                                  #  LTCPFLG         096             BIT 9  FLAG 6        LTCPFBIT
002066,000327:                                                                                                  #  3AXISFLG        084             BIT 6 FLAG 5         3AXISBIT
002067,000328:                                                                                                  #  360SW           134             BIT 1 FLAG  8        360SWBIT
002068,000329: 
002069,000330:                                                                                                  #            ASSIGNMENT AND DESCRIPTION OF FLAGWORDS
002070,000331: 
002071,000332: 43,2000     0074               FLAGWRD0           =        STATE      +0                         #  (000-014)
002072,000333: 
002073,000334:                                                                                                  #  (SET)              (RESET)
002074,000335: 
002075,000336:                                                                                                  #  BIT 15 FLAG 0 (S)
002076,000337: 43,2000                        CPHIFLAG           =        000D                                  #  OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS
002077,000338: 43,2000     5010               CPHIBIT            =        BIT15                                 #  CPHIX               THETAD
002078,000339: 
002079,000340: 
002080,000341:                                                                                                  #  BIT 14 FLAG 0 (S)
002081,000342: 43,2000                        JSWITCH            =        001D                                  #  INTEGRATION OF W    INTEGRATION OF STATE
002082,000343: 43,2000     5011               JSWCHBIT           =        BIT14                                 #  MATRIX              VECTOR
002083,000344: 
002084,000345: 
002085,000346:                                                                                                  #  BIT 13 FLAG 0 (S)
002086,000347: 43,2000                        MIDFLAG            =        002D                                  #  INTEGRATION WITH    INTEGRATION WITHOUT
002087,000348:                                                                                                  #  SECONDARY BODY AND  SOLAR PERTURBATIONS
002088,000349: 43,2000     5012               MIDFLBIT           =        BIT13                                 #  SOLAR PERTURBATIONS
002089,000350: 
002090,000351:                                                                                                  #  BIT 12 FLAG 0 (L)
002091,000352: 43,2000                        MOONFLAG           =        003D                                  #  MOON IS SPHERE OF   EARTH IS SPHERE OF
002092,000353: 43,2000     5013               MOONBIT            =        BIT12                                 #  INFLUENCE           INFLUENCE
002093,000354: 
002094,000355:                                                                                                  #  BIT 11 FLAG 0
002095,000356: 43,2000                        VINHFLG            =        004D                                  #  LANDING RADAR VEL   LANDING RADAR VEL
002096,000357: 43,2000     5014               VINHFBIT           =        BIT11                                 #  UPDATES INHIBITED   UPDATES PERMITTED
002097,000358: 
002098,000359: 
002099,000360:                                                                                                  #  BIT 10 FLAG 0
002100,000361: 43,2000                        VORIDEFL           =        005D                                  #  LANDING RADAR VEL   LANDING RADAR VEL
002101,000362: 43,2000     5015               VORIDBIT           =        BIT10                                 #  OVERRIDE ACTIVE     NOT OVERRIDDEN
002102,000363: 
002103,000364: 
002104,000365:                                                                                                  #  BIT 9 FLAG 0  (S)
002105,000366: 43,2000                        P25FLAG            =        006D                                  #  P25 OPERATING       P25 NOT OPERATING
002106,000367: 43,2000     5016               P25FLBIT           =        BIT9                                  
002107,000368: 
002108,000369: 
002109,000370:                                                                                                  #  BIT 8 FLAG 0  (S)
002110,000371: 43,2000                        IMUSE              =        007D                                  #  IMU IN USE          IMU NOT IN USE
002111,000372: 43,2000     5017               IMUSEBIT           =        BIT8                                  
002112,000373: 
002113,000374: 
002114,000375:                                                                                                  #  BIT 7 FLAG 0  (S)
002115,000376: 43,2000                        RNDVZFLG           =        008D                                  #  P20 RUNNING (RADAR  P20 NOT RUNNING
002116,000377: 43,2000     5020               RNDVZBIT           =        BIT7                                  #  IN USE)
002117,000378: 
002118,000379: 
002119,000380:                                                                                                  #  BIT 6 FLAG 0  (S)
002120,000381: 43,2000                        RRNBSW             =        009D                                  #  RADAR TARGET IN     RADAR TARGET IN
002121,000382: 43,2000     5021               RRNBBIT            =        BIT6                                  #  NB COORDINATES      SM COORDINATES
002122,000383: 
002123,000384: 
002124,000385:                                                                                                  #  BIT 5 FLAG 0  (S)
002125,000386: 43,2000                        LOKONSW            =        010D                                  #  RADAR LOCK-ON       RADAR LOCK-ON NOT
002126,000387: 43,2000     5022               LOKONBIT           =        BIT5                                  #  DESIRED             DESIRED
002127,000388: 
002128,000389: 
002129,000390:                                                                                                  #  BIT 4 FLAG 0  (S)
002130,000391: 43,2000                        NEEDLFLG           =        011D                                  #  TOTAL ATTITUDE      A/P FOLLOWING
002131,000392: 43,2000     5023               NEEDLBIT           =        BIT4                                  #  ERROR DISPLAYED     ERROR DISPLAYED
002132,000393: 
002133,000394: 
002134,000395:                                                                                                  #  BIT 3 FLAG 0
002135,000396: 43,2000                        FREEFLAG           =        012D                                  #  (USED BY P51-53 TEMP IN MANY DIFFERENT
002136,000397:                                                                                                  #  ROUTINES & BY LUNAR + SOLAR EPHEMERIDES)
002137,000398: 43,2000     5024               FREEFBIT           =        BIT3                                  
002138,000399: 
002139,000400: 
002140,000401:                                                                                                  #  BIT 2 FLAG 0
002141,000402: 43,2000                        B29FLAG            =        013D                                  #  MOON IS CENTRAL     EARTH IS CENTRAL
002142,000403: 43,2000     5025               B29FLBIT           =        BIT2                                  #  BODY                BODY
002143,000404: 
002144,000405: 
002145,000406:                                                                                                  #  BIT 1 FLAG 0  (L)
002146,000407: 43,2000                        KFLAG              =        014D                                  #  SEARCH SECTOR MORE  SEARCH SECTOR LESS
002147,000408:                                                                                                  #  THAN 180 DEGREES    THAN 180 DEGREES
002148,000409: 43,2000     5026               KBIT               =        BIT1                                  
002149,000410: 
002150,000411: 
002151,000412: 43,2000     0075               FLAGWRD1           =        STATE      +1                         #  (015-029)
002152,000413: 
002153,000414:                                                                                                  #   (SET)              (RESET)
002154,000415: 
002155,000416:                                                                                                  #  BIT 15 FLAG 1 (S)
002156,000417: 43,2000                        NJETSFLG           =        015D                                  #   TWO JET RCS BURN    FOUR JET RCS BURN
002157,000418: 43,2000     5010               NJETSBIT           =        BIT15                                 
002158,000419: 
002159,000420: 
002160,000421:                                                                                                  #  BIT 14 FLAG 1
002161,000422:                                                                                                  #                =               016D
002162,000423:                                                                                                  #                =               BIT14
002163,000424: 
002164,000425: 
002165,000426:                                                                                                  #  BIT 13 FLAG 1 (S)
002166,000427: 43,2000                        ERADFLAG           =        017D                                  #  COMPUTE REARTH       USE CONSTANT REARTH
002167,000428: 43,2000     5012               ERADFBIT           =        BIT13                                 #  FISCHER ELLIPSOID    PAD RADIUS
002168,000429: 
002169,000430: 
002170,000431:                                                                                                  #  BIT 12 FLAG 1
002171,000432: 43,2000                        APSFLAG            =        018D                                  #  ASCENT STAGE         DESCENT STAGE
002172,000433: 43,2000     5013               APSFLBIT           =        BIT12                                 
002173,000434: 
002174,000435: 
002175,000436:                                                                                                  #  BIT 11 FLAG 1
002176,000437:                                                                                                  #                =               019D
002177,000438: 
002178,000439:                                                                                                  #  BIT 10 FLAG 1
002179,000440:                                                                                                  #                =               020D
002180,000441:                                                                                                  #                =               BIT10
002181,000442: 
002182,000443:                                                                                                  #  BIT 9 FLAG 1
002183,000444:                                                                                                  #                =               021D
002184,000445:                                                                                                  #                =               BIT9
002185,000446: 
002186,000447:                                                                                                  #  BIT 8 FLAG 1  (S)
002187,000448: 43,2000                        VEHUPFLG           =        022D                                  #  CSM STATE VECTOR     LEM STATE VECTOR
002188,000449: 43,2000     5017               VEHUPBIT           =        BIT8                                  #  BEING UPDATED        BEING UPDATED
002189,000450: 
002190,000451: 
002191,000452:                                                                                                  #  BIT 7 FLAG 1  (S)
002192,000453: 43,2000                        UPDATFLG           =        023D                                  #  UPDATING BY MARKS    UPDATING BY MARKS
002193,000454: 43,2000     5020               UPDATBIT           =        BIT7                                  #  ALLOWED              NOT ALLOWED
002194,000455: 
002195,000456: 
002196,000457:                                                                                                  #  BIT 6 FLAG 1  (S)
002197,000458: 
002198,000459: 43,2000                        NOUPFLAG           =        024D                                  #  NEITHER CSM         EITHER STATE
002199,000460:                                                                                                  #  NOR LM STATE VECTOR VECTOR MAY BE
002200,000461: 43,2000     5021               NOUPFBIT           =        BIT6                                  #  MAY BE UPDATED      UPDATED
002201,000462: 
002202,000463: 
002203,000464:                                                                                                  #  BIT 5 FLAG 1  (S)
002204,000465: 43,2000                        TRACKFLG           =        025D                                  #  TRACKING ALLOWED    TRACKING NOT ALLOWED
002205,000466: 43,2000     5022               TRACKBIT           =        BIT5                                  
002206,000467: 
002207,000468:                                                                                                  #  BIT 4 FLAG 1
002208,000469: 43,2000                        GIMBFLG            =        026D                                  #  USING TRIM GIMBAL   NOT USING TRIM
002209,000470: 43,2000     5023               GIMBFBIT           =        BIT4                                  #                      GIMBAL
002210,000471: 
002211,000472: 
002212,000473:                                                                                                  #  BIT 3 FLAG 1  (S)
002213,000474: 43,2000                        SLOPESW            =        027D                                  #  ITERATE WITH BIAS   ITERATE WITH REGULAR
002214,000475:                                                                                                  #  METHOD IN ITERATOR  FALSI METHOD IN
002215,000476: 43,2000     5024               SLOPEBIT           =        BIT3                                  #                      ITERATOR
002216,000477: 
002217,000478: 
002218,000479:                                                                                                  #  BIT 2 FLAG 1  (S)
002219,000480: 43,2000                        GUESSW             =        028D                                  #  NO STARTING VALUE   STARTING VALUE FOR
002220,000481: 43,2000     5025               GUESSBIT           =        BIT2                                  #  FOR ITERATION       ITERATION EXISTS
002221,000482: 
002222,000483: 
002223,000484:                                                                                                  #  BIT 1 FLAG 1
002224,000485: 43,2000                        HINHFLG            =        029D                                  #  LR HEIGHT UPDATES   LR HEIGHT UPDATES
002225,000486: 43,2000     5026               HINHFBIT           =        BIT1                                  #  INHIBITED           PERMITTED
002226,000487: 
002227,000488: 
002228,000489: 43,2000     0076               FLAGWRD2           =        STATE      +2                         #  (030-044)
002229,000490: 
002230,000491:                                                                                                  #  (SET)               (RESET)
002231,000492: 
002232,000493:                                                                                                  #  BIT 15 FLAG 2 (S)
002233,000494: 43,2000                        DRIFTFLG           =        030D                                  #  T3RUPT CALLS GYRO   T3RUPT DOES NO GYRO
002234,000495: 43,2000     5010               DRFTBIT            =        BIT15                                 #  COMPENSATION        COMPENSATION
002235,000496: 
002236,000497: 
002237,000498:                                                                                                  #  BIT 14 FLAG 2 (S)
002238,000499: 43,2000                        SRCHOPTN           =        031D                                  #  RADAR IN AUTOMATIC  RADAR NOT IN AUTO-
002239,000500: 43,2000     5011               SRCHOBIT           =        BIT14                                 #  SEARCH OPTION(R24)  MATIC SEARCH OPTION
002240,000501: 
002241,000502: 
002242,000503:                                                                                                  #  BIT 13 FLAG 2 (S)
002243,000504: 43,2000                        ACMODFLG           =        032D                                  #  MANUAL ACQUISITION  AUTO ACQUISITION
002244,000505: 43,2000     5012               ACMODBIT           =        BIT13                                 #  BY RENDESVOUS RADAR BY RENDESVOUS RADAR
002245,000506: 
002246,000507: 
002247,000508:                                                                                                  #  BIT 12 FLAG 2 (S)
002248,000509: 
002249,000510: 43,2000                        LOSCMFLG           =        033D                                  #  LINE OF SIGHT BEING LINE OF SIGHT NOT
002250,000511:                                                                                                  #  COMPUTED (R21)      BEING COMPUTED
002251,000512: 43,2000     5013               LOSCMBIT           =        BIT12                                 
002252,000513:                                                                                                  #  IN R29 (L): RR GYRO IN R29 (L): RR GYRO
002253,000514:                                                                                                  #  CMD LOOP RUNNING    CMD LOOP OFF
002254,000515: 
002255,000516:                                                                                                  #  BIT 11 FLAG 2 (S)
002256,000517: 43,2000                        STEERSW            =        034D                                  #  SUFFICIENT THRUST   INSUFFICIENT THRUST
002257,000518: 43,2000     5014               STEERBIT           =        BIT11                                 #  IS PRESENT          IS PRESENT
002258,000519: 
002259,000520: 
002260,000521:                                                                                                  #  BIT 10 FLAG 2 (S)
002261,000522: 43,2000                        CYCLESW            =        035D                                  #  LAMBERT VG CALCU-   LAMBERT CALCULATION
002262,000523: 43,2000     5015               CYCLEBIT           =        BIT10                                 #  LATION TO BE DONE   OMITTED
002263,000524: 
002264,000525: 
002265,000526:                                                                                                  #  BIT 9 FLAG 2 (S)
002266,000527: 43,2000                        IMPULSW            =        036D                                  #  MINIMUM IMPULSE     STEERING BURN (NO
002267,000528:                                                                                                  #  BURN (CUTOFF TIME   CUTOFF TIME YET
002268,000529: 43,2000     5016               IMPULBIT           =        BIT9                                  #  SPECIFIED)          AVAILABLE)
002269,000530: 
002270,000531: 
002271,000532:                                                                                                  #  BIT 8 FLAG 2 (S)
002272,000533: 43,2000                        XDELVFLG           =        037D                                  #  EXTERNAL DELTAV VG  LAMBERT (AIMPOINT)
002273,000534: 43,2000     5017               XDELVBIT           =        BIT8                                  #  COMPUTATION         VG COMPUTATION
002274,000535: 
002275,000536: 
002276,000537:                                                                                                  #  BIT 7 FLAG 2 (S)
002277,000538: 43,2000                        ETPIFLAG           =        038D                                  #  ELEVATION ANGLE     TPI TIME SUPPLIED
002278,000539:                                                                                                  #  SUPPLIED FOR        FOR P34,74 TO COMPUT
002279,000540: 43,2000     5020               ETPIBIT            =        BIT7                                  #  P34,74              ELEVATION
002280,000541: 
002281,000542: 
002282,000543:                                                                                                  #  BIT 7 FLAG 2 (L)
002283,000544: 43,2000  0000046               OPTNSW             =        ETPIFLAG                              #  SOI PHASE OF P38/78  SOR PHASE OF P38/78
002284,000545: 43,2000     5020               OPTNBIT            =        BIT7                                  
002285,000546: 
002286,000547: 
002287,000548:                                                                                                  #  BIT 6 FLAG 2 (S)
002288,000549: 43,2000                        FINALFLG           =        039D                                  #  LAST PASS THROUGH   INTERIM PASS THROUGH
002289,000550:                                                                                                  #  RENDEZVOUS PROGRAM  RENDEZVOUS PROGRAM
002290,000551: 43,2000     5021               FINALBIT           =        BIT6                                  #  COMPUTATIONS        COMPUTATIONS
002291,000552: 
002292,000553: 
002293,000554:                                                                                                  #  BIT 5 FLAG 2 (S)
002294,000555: 43,2000                        AVFLAG             =        040D                                  #  LEM IS ACTIVE       CSM IS ACTIVE
002295,000556: 43,2000     5022               AVFLBIT            =        BIT5                                  #  VEHICLE             VEHICLE
002296,000557: 
002297,000558: 
002298,000559:                                                                                                  #  BIT 4 FLAG 2 (S)
002299,000560: 
002300,000561: 43,2000                        PFRATFLG           =        041D                                  #  PREFERRED ATTITUDE  PREFERRED ATTITUDE
002301,000562: 43,2000     5023               PFRATBIT           =        BIT4                                  #  COMPUTED            NOT COMPUTED
002302,000563: 
002303,000564: 
002304,000565:                                                                                                  #  BIT 3 FLAG 2 (S)
002305,000566: 43,2000                        CALCMAN3           =        042D                                  #  NO FINAL ROLL       FINAL ROLL IS
002306,000567: 43,2000     5024               CALC3BIT           =        BIT3                                  #                      NECESSARY
002307,000568: 
002308,000569: 
002309,000570:                                                                                                  #  BIT 2 FLAG 2 (S)
002310,000571: 43,2000                        CALCMAN2           =        043D                                  #  PERFORM MANEUVER    BYPASS STARTING
002311,000572: 43,2000     5025               CALC2BIT           =        BIT2                                  #  STARTING PROCEDURE  PROCEDURE
002312,000573: 
002313,000574: 
002314,000575:                                                                                                  #  BIT 1 FLAG 2 (S)
002315,000576: 43,2000                        NODOFLAG           =        044D                                  #  V37 NOT PERMITTED   V37 PERMITTED
002316,000577: 43,2000     5026               NODOBIT            =        BIT1                                  
002317,000578: 
002318,000579: 
002319,000580: 43,2000     0077               FLAGWRD3           =        STATE      +3                         #  (045-059)
002320,000581: 
002321,000582:                                                                                                  #  (SET)               (RESET)
002322,000583: 
002323,000584:                                                                                                  #  BIT 15 FLAG 3
002324,000585: 43,2000                        AUTMANSW           =        045D                                  #  MANUAL MANEUVER     AUTOMATIC MANEUVER
002325,000586: 43,2000     5010               AUTMNBIT           =        BIT15                                 #  DESIRED             DESIRED
002326,000587: 
002327,000588: 
002328,000589:                                                                                                  #  BIT 14 FLAG 3 (S)
002329,000590: 43,2000                        GLOKFAIL           =        046D                                  #  GIMBAL LOCK HAS     NOT IN GIMBAL LOCK
002330,000591: 43,2000     5011               GLOKFBIT           =        BIT14                                 #  OCCURRED
002331,000592: 
002332,000593: 
002333,000594:                                                                                                  #  BIT 13 FLAG 3
002334,000595: 43,2000                        REFSMFLG           =        047D                                  #  REFSMMAT GOOD       REFSMMAT NO GOOD
002335,000596: 43,2000     5012               REFSMBIT           =        BIT13                                 
002336,000597: 
002337,000598: 
002338,000599:                                                                                                  #  BIT 12 FLAG 3 (S)
002339,000600: 43,2000                        LUNAFLAG           =        048D                                  #  LUNAR LAT-LONG      EARTH LAT-LONG
002340,000601: 43,2000     5013               LUNABIT            =        BIT12                                 
002341,000602: 
002342,000603: 
002343,000604:                                                                                                  #  BIT 11 FLAG 3
002344,000605:                                                                                                  #                =               049D
002345,000606:                                                                                                  #                =               BIT11
002346,000607: 
002347,000608: 
002348,000609:                                                                                                  #  BIT 10 FLAG 3 (S)
002349,000610: 43,2000                        VFLAG              =        050D                                  #  LESS THAN TWO STARS TWO STARS IN FIELD
002350,000611: 43,2000     5015               VFLAGBIT           =        BIT10                                 #  IN FIELD OF VIEW    OF VIEW
002351,000612: 
002352,000613: 
002353,000614: 
002354,000615:                                                                                                  #  BIT 9 FLAG 3  (S)
002355,000616: 43,2000                        R04FLAG            =        051D                                  #  ALARM 521           ALARM 521 ALLOWED
002356,000617:                                                                                                  #  SUPPRESSED
002357,000618: 43,2000     5016               R04FLBIT           =        BIT9                                  
002358,000619: 
002359,000620: 
002360,000621:                                                                                                  #  BIT 8 FLAG 3  (S)
002361,000622: 43,2000                        PRECIFLG           =        052D                                  #  NORMAL INTEGRATION  ENGAGES 4-TIME STEP
002362,000623:                                                                                                  #  IN POO              (POO) LOGIC IN INTE-
002363,000624: 43,2000     5017               PRECIBIT           =        BIT8                                  #                      GRATION
002364,000625: 
002365,000626: 
002366,000627:                                                                                                  #  BIT 7 FLAG 3  (S)
002367,000628: 43,2000                        CULTFLAG           =        053D                                  #  STAR OCCULTED       STAR NOT OCCULTED
002368,000629: 43,2000     5020               CULTBIT            =        BIT7                                  
002369,000630: 
002370,000631: 
002371,000632:                                                                                                  #  BIT 6 FLAG 3  (S)
002372,000633: 43,2000                        ORBWFLAG           =        054D                                  #  W MATRIX VALID FOR  W MATRIX INVALID FOR
002373,000634: 43,2000     5021               ORBWFBIT           =        BIT6                                  #  ORBITAL NAVIGATION  ORBITAL NAVIGATION
002374,000635: 
002375,000636: 
002376,000637:                                                                                                  #  BIT 5 FLAG 3  (S)
002377,000638: 43,2000                        STATEFLG           =        055D                                  #  PERMANENT STATE     PERMANENT STATE
002378,000639: 43,2000     5022               STATEBIT           =        BIT5                                  #  VECTOR UPDATED      VECTOR NOT UPDATED
002379,000640: 
002380,000641: 
002381,000642:                                                                                                  #  BIT 4 FLAG 3  (S)
002382,000643: 43,2000                        INTYPFLG           =        056D                                  #  CONIC INTEGRATION   ENCKE INTEGRATION
002383,000644: 43,2000     5023               INTYPBIT           =        BIT4                                  
002384,000645: 
002385,000646: 
002386,000647:                                                                                                  #  BIT 3 FLAG 3  (S)
002387,000648: 43,2000                        VINTFLAG           =        057D                                  #  CSM STATE VECTOR    LEM STATE VECTOR
002388,000649: 43,2000     5024               VINTFBIT           =        BIT3                                  #  BEING INTEGRATED    BEING INTEGRATED
002389,000650: 
002390,000651: 
002391,000652:                                                                                                  #  BIT 2 FLAG 3 (S)
002392,000653: 43,2000                        D6OR9FLG           =        058D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002393,000654: 43,2000     5025               D6OR9BIT           =        BIT2                                  #  FOR INTEGRATION     FOR INTEGRATION
002394,000655: 
002395,000656: 
002396,000657:                                                                                                  #  BIT 1 FLAG 3  (S)
002397,000658: 
002398,000659: 43,2000                        DIM0FLAG           =        059D                                  #  W MATRIX IS TO BE   W MATRIX IS NOT TO
002399,000660: 43,2000     5026               DIM0BIT            =        BIT1                                  #  USED                BE USED
002400,000661: 
002401,000662: 
002402,000663: 43,2000     0100               FLAGWRD4           =        STATE      +4                         #  (060-074)
002403,000664: 
002404,000665:                                                                                                  #  (SET)               (RESET)
002405,000666: 
002406,000667:                                                                                                  #  BIT 15 FLAG 4 (S)
002407,000668: 43,2000                        MRKIDFLG           =        060D                                  #  MARK DISPLAY IN     NO MARK DISPLAY IN
002408,000669: 43,2000     5010               MRKIDBIT           =        BIT15                                 #  ENDIDLE             ENDIDLE
002409,000670: 
002410,000671: 
002411,000672:                                                                                                  #  BIT 14 FLAG 4 (S)
002412,000673: 43,2000                        PRIODFLG           =        061D                                  #  PRIORITY DISPLAY IN NO PRIORITY DISPLAY
002413,000674: 43,2000     5011               PRIODBIT           =        BIT14                                 #  ENDIDLE             IN ENDIDLE
002414,000675: 
002415,000676: 
002416,000677:                                                                                                  #  BIT 13 FLAG 4 (S)
002417,000678: 43,2000                        NRMIDFLG           =        062D                                  #  NORMAL DISPLAY IN   NO NORMAL DISPLAY
002418,000679: 43,2000     5012               NRMIDBIT           =        BIT13                                 #  ENDIDLE             IN ENDIDLE
002419,000680: 
002420,000681: 
002421,000682:                                                                                                  #  BIT 12 FLAG 4 (S)
002422,000683: 43,2000                        PDSPFLAG           =        063D                                  #  P20 SETS SO AS TO   LEAVE AS NORMAL DISP
002423,000684:                                                                                                  #  TURN A NORMAL DIS-
002424,000685: 43,2000     5013               PDSPFBIT           =        BIT12                                 #  PLAY INTO A PRIORITY
002425,000686:                                                                                                  #  DISPLAY IN R60
002426,000687: 
002427,000688: 
002428,000689:                                                                                                  #  BIT 11 FLAG 4 (S)
002429,000690: 43,2000                        MWAITFLG           =        064D                                  #  HIGHER PRIORITY      NO HIGHER PRIORITY
002430,000691:                                                                                                  #  DISPLAY OPERATING    DISPLAY OPERATING
002431,000692: 43,2000     5014               MWAITBIT           =        BIT11                                 #  WHEN MARK DISPLAY    WHEN MARK DISPLAY
002432,000693:                                                                                                  #  INITIATED            INITIATED
002433,000694: 
002434,000695:                                                                                                  #  BIT 10 FLAG 4 (S)
002435,000696: 43,2000                        NWAITFLG           =        065D                                  #  HIGHER PRIORITY      NO HIGHER PRIORITY
002436,000697:                                                                                                  #  DISPLAY OPERATING    DISPLAY OPERATING
002437,000698: 43,2000     5015               NWAITBIT           =        BIT10                                 #  WHEN NORMAL          WHEN NORMAL DISPLAY
002438,000699:                                                                                                  #  DISPLAY INITIATED    INITIATED
002439,000700: 
002440,000701:                                                                                                  #  BIT 9 FLAG 4  (S)
002441,000702: 43,2000                        MRKNVFLG           =        066D                                  #  ASTRONAUT USING      ASTRONAUT NOT USING
002442,000703:                                                                                                  #  KEYBOARD WHEN MARK   KEYBOARD WHEN MARK
002443,000704: 43,2000     5016               MRKNVBIT           =        BIT9                                  #  DISPLAY INITIATED    DISPLAY INITIATED
002444,000705: 
002445,000706: 
002446,000707:                                                                                                  #  BIT 8 FLAG 4  (S)
002447,000708: 43,2000                        NRMNVFLG           =        067D                                  #  ASTRONAUT USING      ASTRONAUT NOT USING
002448,000709: 
002449,000710:                                                                                                  #  KEYBOARD WHEN        KEYBOARD WHEN
002450,000711: 43,2000     5017               NRMNVBIT           =        BIT8                                  #  NORMAL DISPLAY       NORMAL DISPLAY
002451,000712:                                                                                                  #  INITIATED            INITIATED
002452,000713: 
002453,000714:                                                                                                  #  BIT 7 FLAG 4  (S)
002454,000715: 43,2000                        PRONVFLG           =        068D                                  #  ASTRONAUT USING      ASTRONAUT NOT USING
002455,000716:                                                                                                  #  KEYBOARD WHEN        KEYBOARD WHEN
002456,000717: 43,2000     5020               PRONVBIT           =        BIT7                                  #  PRIORITY DISPLAY     PRIORITY DISPLAY
002457,000718:                                                                                                  #  INITIATED            INITIATED
002458,000719: 
002459,000720:                                                                                                  #  BIT 6 FLAG 4  (S)
002460,000721: 43,2000                        PINBRFLG           =        069D                                  #  ASTRONAUT HAS        ASTRONAUT HAS NOT
002461,000722:                                                                                                  #  INTERFERED WITH      INTERFERED WITH
002462,000723: 43,2000     5021               PINBRBIT           =        BIT6                                  #  EXISTING DISPLAY     EXISTING DISPLAY
002463,000724: 
002464,000725: 
002465,000726:                                                                                                  #  BIT 5 FLAG 4  (S)
002466,000727: 43,2000                        MRUPTFLG           =        070D                                  #  MARK DISPLAY         MARK DISPLAY NOT
002467,000728:                                                                                                  #  INTERRUPTED BY       INTERRUPTED BY
002468,000729: 43,2000     5022               MRUPTBIT           =        BIT5                                  #  PRIORITY DISPLAY     PRIORITY DISPLAY
002469,000730: 
002470,000731: 
002471,000732:                                                                                                  #  BIT 4 FLAG 4  (S)
002472,000733: 43,2000                        NRUPTFLG           =        071D                                  #  NORMAL DISPLAY       NORMAL DISPLAY NOT
002473,000734:                                                                                                  #  INTERRUPTED BY       INTERRUPTED BY
002474,000735: 43,2000     5023               NRUPTBIT           =        BIT4                                  #  PRIORITY OR MARK     PRIORITY OR MARK
002475,000736:                                                                                                  #  DISPLAY              DISPLAY
002476,000737: 
002477,000738:                                                                                                  #  BIT 3 FLAG 4  (S)
002478,000739: 43,2000                        MKOVFLAG           =        072D                                  #  MARK DISPLAY OVER    NO MARK DISPLAY OVER
002479,000740: 43,2000     5024               MKOVBIT            =        BIT3                                  #  NORMAL               NORMAL
002480,000741: 
002481,000742: 
002482,000743:                                                                                                  #  BIT 2 FLAG 4
002483,000744:                                                                                                  #                =               073D
002484,000745: 
002485,000746: 
002486,000747: 
002487,000748:                                                                                                  #  BIT 1 FLAG 4  (S)
002488,000749: 43,2000                        XDSPFLAG           =        074D                                  #  MARK DISPLAY NOT     NO SPECIAL MARK
002489,000750: 43,2000     5026               XDSPBIT            =        BIT1                                  #  TO BE INTERRUPTED    INFORMATION
002490,000751: 
002491,000752: 
002492,000753: 43,2000     0101               FLAGWRD5           =        STATE      +5                         #  (075-089)
002493,000754:                                                                                                  #  (SET)                (RESET)
002494,000755: 
002495,000756:                                                                                                  #  BIT 15 FLAG 5 (S)
002496,000757: 43,2000                        DSKYFLAG           =        075D                                  #  DISPLAYS SENT TO     NO DISPLAYS TO DSKY
002497,000758: 43,2000     5010               DSKYFBIT           =        BIT15                                 #  DSKY
002498,000759: 
002499,000760: 
002500,000761:                                                                                                  #  BIT 14 FLAG 5
002501,000762: 43,2000                        INTFLG2            =        076D                                  #  ORBITAL INTEGRATION ORBITAL INTEGRATION
002502,000763:                                                                                                  #  PROGRAM PACKAGE IN  PROGRAM PACKAGE NOT
002503,000764: 43,2000     5011               INTF2BIT           =        BIT14                                 #  USE                 IN USE
002504,000765: 
002505,000766: 
002506,000767:                                                                                                  #  BIT 13 FLAG 5 (S,L)
002507,000768: 43,2000                        SNUFFER            =        077D                                  #  U,V JETS DISABLED   U,V JETS ENABLED
002508,000769:                                                                                                  #  DURING DPS          DURING DPS
002509,000770: 43,2000     5012               SNUFFBIT           =        BIT13                                 #  BURNS (V65)         BURNS (V75)
002510,000771: 
002511,000772: 
002512,000773:                                                                                                  #  BIT 12 FLAG 5 (S)
002513,000774: 43,2000                        NOTHROTL           =        078D                                  #  INHIBIT FULL        PERMIT FULL THROTTLE
002514,000775: 43,2000     5013               NOTHRBIT           =        BIT12                                 #  THROTTLE
002515,000776: 
002516,000777: 
002517,000778:                                                                                                  #  BIT 11 FLAG 5 (S,L)
002518,000779: 43,2000                        R77FLAG            =        079D                                  #  R77 IS ON,         R77 IS NOT ON.
002519,000780:                                                                                                  #  SUPPRESS ALL RADAR
002520,000781:                                                                                                  #  ALARMS AND TRACKER
002521,000782: 43,2000     5014               R77FLBIT           =        BIT11                                 #  FAILS
002522,000783: 
002523,000784: 
002524,000785:                                                                                                  #  BIT 10 FLAG 5 (S)
002525,000786: 43,2000                        RNGSCFLG           =        080D                                  #  SCALE CHANGE HAS    NO SCALE CHANGE HAS
002526,000787:                                                                                                  #  OCCURRED DURING     OCCURRED DURING
002527,000788: 43,2000     5015               RNGSCBIT           =        BIT10                                 #  RR READING          RR READING
002528,000789: 
002529,000790: 
002530,000791:                                                                                                  #  BIT 9 FLAG 5  (S)
002531,000792: 43,2000                        DMENFLG            =        081D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002532,000793: 43,2000     5016               DMENFBIT           =        BIT9                                  #  FOR INCORPORATION   FOR INCORPORATION
002533,000794: 
002534,000795: 
002535,000796:                                                                                                  #  BIT 8 FLAG 5  (S)
002536,000797: 43,2000                        COMPUTER           =        082D                                  #  COMPUTER IS CMC     COMPUTER IS LGC
002537,000798: 43,2000     5017               COMPTBIT           =        BIT8                                  
002538,000799: 
002539,000800: 
002540,000801:                                                                                                  #  BIT 7 FLAG 5  (S)
002541,000802: 43,2000                        ENGONFLG           =        083D                                  #  ENGINE TURNED ON    ENGINE TURNED OFF
002542,000803: 43,2000     5020               ENGONBIT           =        BIT7                                  
002543,000804: 
002544,000805: 
002545,000806:                                                                                                  #  BIT 6 FLAG 5  (S)
002546,000807: 43,2000                        3AXISFLG           =        084D                                  #  MANEUVER SPECIFIED  MANEUVER SPECIFIED
002547,000808:                                                                                                  #  BY THREE AXES       BY ONE AXIS; R60
002548,000809: 43,2000     5021               3AXISBIT           =        BIT6                                  #                      CALLS VECPOINT.
002549,000810: 
002550,000811: 
002551,000812:                                                                                                  #  BIT 5 FLAG 5
002552,000813:                                                                                                  #                =               085D
002553,000814: 
002554,000815: 
002555,000816:                                                                                                  #  BIT 4 FLAG 5  (S)
002556,000817: 43,2000                        NORRMON            =        086D                                  #  BYPASS RR GIMBAL    PERFORM
002557,000818: 43,2000     5023               NORRMBIT           =        BIT4                                  #  MONITOR             RR GIMBAL MONITOR
002558,000819: 
002559,000820: 
002560,000821:                                                                                                  #  BIT 3 FLAG 5  (S)
002561,000822: 43,2000                        SOLNSW             =        087D                                  #  LAMBERT DOES NOT    LAMBERT CONVERGES OR
002562,000823:                                                                                                  #  CONVERGE,OR TIME-RADTIME-RADIUS NON
002563,000824: 43,2000     5024               SOLNSBIT           =        BIT3                                  #  NEARLY CIRCULAR     CIRCULAR
002564,000825: 
002565,000826: 
002566,000827:                                                                                                  #  BIT 2 FLAG 5  (S)
002567,000828: 43,2000                        MGLVFLAG           =        088D                                  #  LOCAL VERTICAL      MIDDLE GIMBAL ANGLE
002568,000829:                                                                                                  #  COORDINATES         COMPUTED
002569,000830: 43,2000     5025               MGLVFBIT           =        BIT2                                  #  COMPUTED
002570,000831: 
002571,000832:                                                                                                  #  BIT 1 FLAG 5  (S)
002572,000833: 43,2000                        RENDWFLG           =        089D                                  #  W MATRIX VALID      W MATRIX INVALID
002573,000834:                                                                                                  #  FOR RENDEZVOUS      FOR RENDEZVOUS
002574,000835: 43,2000     5026               RENDWBIT           =        BIT1                                  #  NAVIGATION          NAVIGATION
002575,000836: 
002576,000837: 
002577,000838: 43,2000     0102               FLAGWRD6           =        STATE      +6                         #  (090-104)
002578,000839: 
002579,000840:                                                                                                  #  (SET)               (RESET)
002580,000841: 
002581,000842:                                                                                                  #  BIT 15 FLAG 6 (S)
002582,000843: 43,2000                        S32.1F1            =        090D                                  #  DELTA V AT CSI TIME  DVT1 LESS THEN MAX
002583,000844: 43,2000     5010               S32BIT1            =        BIT15                                 #  ONE EXCEEDS MAX
002584,000845: 
002585,000846: 
002586,000847:                                                                                                  #  BIT 14 FLAG 6 (S)
002587,000848: 43,2000                        S32.1F2            =        091D                                  #  FIRST PASS OF       REITERATION OF
002588,000849: 43,2000     5011               S32BIT2            =        BIT14                                 #  NEWTON ITERATION    NEWTON
002589,000850: 
002590,000851: 
002591,000852:                                                                                                  #  BIT 13 FLAG 6 (S)
002592,000853: 43,2000                        S32.1F3A           =        092D                                  #  BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
002593,000854: 43,2000     5012               S32BIT3A           =        BIT13                                 #  PAIR (13,12) INDICATING THE POSSIBLE OC-
002594,000855:                                                                                                  #  CURRANCE OF 2NEWTON ITERATIONS FOR S32.1
002595,000856:                                                                                                  #  IN THE PROGRAM IN THE FOLLOWING ORDER:
002596,000857:                                                                                                  #  BIT 12 FLAG 6                                           (0,1) (I.E.BIT 13 RESET,BIT 12 SET)
002597,000858: 43,2000                        S32.1F3B           =        093D                                  #       = FIRST NEWTON ITERATION BEING DONE
002598,000859: 43,2000     5013               S32BIT3B           =        BIT12                                 #  (0,0)= FIRST PASS OF SECOND NEWT.ITERAT.
002599,000860:                                                                                                  #  (1,1)= 50 FT/SEC STAGE OF SEC. NEWT.ITER
002600,000861: 
002601,000862:                                                                                                  #  (1,0)= REMAINDER OF SECOND NEWTON ITERA.
002602,000863: 
002603,000864: 
002604,000865:                                                                                                  #  BIT 11 FLAG 6 (S)
002605,000866: 43,2000                        FIRSTFLG           =        094D                                  #  SUCCEEDING PASS     FIRST PASS THRU
002606,000867: 43,2000     5014               FIRSTBIT           =        BIT11                                 #  THRU S40.9          S40.9
002607,000868: 
002608,000869: 
002609,000870:                                                                                                  #  BIT 10 FLAG 6 (S)
002610,000871: 43,2000                        GMBDRVSW           =        095D                                  #  TRIMGIMB OVER       TRIMGIMB NOT OVER
002611,000872: 43,2000     5015               GMBDRBIT           =        BIT10                                 
002612,000873: 
002613,000874: 
002614,000875:                                                                                                  #  BIT 9 FLAG 6
002615,000876: 43,2000                        LTCPFLG            =        096D                                  #  LAUNCH TIME         LAUNCH TIME DIRECT
002616,000877: 43,2000     5016               LTCPFBIT           =        BIT9                                  #  CONCENTRIC FLIGHT   TRANSFER
002617,000878:                                                                                                  #  PLAN
002618,000879: 
002619,000880: 
002620,000881:                                                                                                  #  BIT 8 FLAG 6  (S)
002621,000882: 43,2000                        MUNFLAG            =        097D                                  #  SERVICER CALLS      SERVICER CALLS
002622,000883: 43,2000     5017               MUNFLBIT           =        BIT8                                  #  MUNRVG              CALCRVG
002623,000884: 
002624,000885: 
002625,000886:                                                                                                  #  BIT 7 FLAG 6
002626,000887:                                                                                                  #                =               098D
002627,000888:                                                                                                  #                =               BIT7
002628,000889: 
002629,000890: 
002630,000891:                                                                                                  #  BIT 6 FLAG 6  (L)
002631,000892: 43,2000                        REDFLAG            =        099D                                  #  LANDING SITE        LANDING SITE
002632,000893:                                                                                                  #  REDESIGNATION       REDESIGNATION NOT
002633,000894: 43,2000     5021               REDFLBIT           =        BIT6                                  #  PERMITTED           PERMITTED
002634,000895: 
002635,000896: 
002636,000897:                                                                                                  #  BIT 5 FLAG 6
002637,000898: 43,2000                        KILLROSE           =        100D                                  #  R11 COMMANDED       R11 NOT COMMANDED
002638,000899: 43,2000     5022               KILLRBIT           =        BIT5                                  #  TO EXIT             TO EXIT
002639,000900: 
002640,000901:                                                                                                  #  BIT 4 FLAG 6
002641,000902:                                                                                                  #                =               101D
002642,000903: 
002643,000904:                                                                                                  #  BIT 3 FLAG 6  (S)
002644,000905: 43,2000                        NTARGFLG           =        102D                                  #  ASTRONAUT DID       ASTRONAUT DID NOT
002645,000906:                                                                                                  #  OVERWRITE DELTA     OVERWRITE DELTA
002646,000907: 43,2000     5024               NTARGBIT           =        BIT3                                  #  VELOCITY AT TPI     VELOCITY
002647,000908:                                                                                                  #  OR TPM (P34,35)
002648,000909: 
002649,000910:                                                                                                  #  BIT 2 FLAG 6
002650,000911: 43,2000                        ASCNTFLG           =        103D                                  #  ASCENT TIME HAS     ASCENT TIME HAS NOT
002651,000912: 43,2000     5025               ASCNTBIT           =        BIT2                                  #  BEEN CALCULATED     BEEN CALCULATED
002652,000913: 
002653,000914:                                                                                                  #  BIT 1 FLAG 6  (L)
002654,000915: 43,2000                        ATTFLAG            =        104D                                  #  LEM ATTITUDE EXISTS NO LEM ATTITUDE
002655,000916:                                                                                                  #  IN MOON-FIXED       AVAILABLE IN MOON-
002656,000917: 43,2000     5026               ATTFLBIT           =        BIT1                                  #  COORDINATES         FIXED COORDINATES
002657,000918: 
002658,000919: 
002659,000920: 43,2000     0103               FLAGWRD7           =        STATE      +7                         #  (105-119)
002660,000921: 
002661,000922:                                                                                                  #  (SET)               (RESET)
002662,000923: 
002663,000924:                                                                                                  #  BIT 15 FLAG 7 (S)
002664,000925: 43,2000                        ITSWICH            =        105D                                  #  P34;TPI TIME TO BE  TPI HAS BEEN
002665,000926: 43,2000     5010               ITSWBIT            =        BIT15                                 #  COMPUTED            COMPUTED
002666,000927: 
002667,000928: 
002668,000929:                                                                                                  #  BIT 14 FLAG 7 (S)
002669,000930: 43,2000                        MANUFLAG           =        106D                                  #  ATTITUDE MANEUVER   NO ATTITUDE MANEUVER
002670,000931:                                                                                                  #  GOING DURING RR     DURING RR SEARCH
002671,000932: 43,2000     5011               MANUFBIT           =        BIT14                                 #  SEARCH
002672,000933: 
002673,000934: 
002674,000935:                                                                                                  #  BIT 13 FLAG 7 (S)
002675,000936: 43,2000                        IGNFLAG            =        107D                                  #  TIG HAS ARRIVED     TIG HAS NOT ARRIVED
002676,000937: 43,2000     5012               IGNFLBIT           =        BIT13                                 
002677,000938: 
002678,000939: 
002679,000940:                                                                                                  #  BIT 12 FLAG 7 (S)
002680,000941: 43,2000                        ASTNFLAG           =        108D                                  #  ASTRONAUT HAS       ASTRONAUT HAS NOT
002681,000942: 43,2000     5013               ASTNBIT            =        BIT12                                 #  OKAYED IGNITION     OKAYED IGNITION
002682,000943: 
002683,000944: 
002684,000945:                                                                                                  #  BIT 11 FLAG 7 (L)
002685,000946: 43,2000                        SWANDISP           =        109D                                  #  LANDING ANALOG      LANDING ANALOG
002686,000947: 43,2000     5014               SWANDBIT           =        BIT11                                 #  DISPLAYS ENABLED    DISPLAYS SUPPRESSED
002687,000948: 
002688,000949: 
002689,000950:                                                                                                  #  BIT 10 FLAG 7 (S)
002690,000951: 43,2000                        NORMSW             =        110D                                  #  UNIT NORMAL INPUT   LAMBERT COMPUTES ITS
002691,000952: 43,2000     5015               NORMSBIT           =        BIT10                                 #  TO LAMBERT          OWN UNIT NORMAL
002692,000953: 
002693,000954: 
002694,000955:                                                                                                  #  BIT 9 FLAG 7  (S)
002695,000956: 43,2000                        RVSW               =        111D                                  #  DO NOT COMPUTE      COMPUTE FINAL STATE
002696,000957:                                                                                                  #  FINAL STATE VECTOR  VECTOR IN TIME-THETA
002697,000958: 43,2000     5016               RVSWBIT            =        BIT9                                  #  IN TIME-THETA
002698,000959: 
002699,000960: 
002700,000961:                                                                                                  #  BIT 8 FLAG 7  (S)
002701,000962: 43,2000                        V45FLAG            =        112D                                  #  ASTRONAUT OVERWRITE  ASTRONAUT DOES NOT
002702,000963:                                                                                                  #  W-MATRIX INITIAL    OVERWRITE W-MATRIX
002703,000964: 43,2000     5017               V45FLBIT           =        BIT8                                  #  VALUES              INITIAL VALUES
002704,000965: 
002705,000966: 
002706,000967:                                                                                                  #  BIT 7 FLAG 7  (S)
002707,000968: 43,2000                        IDLEFLAG           =        113D                                  #  NO DV MONITOR       CONNECT DV MONITOR
002708,000969: 43,2000     5020               IDLEFBIT           =        BIT7                                  
002709,000970: 
002710,000971: 
002711,000972:                                                                                                  #  BIT 6 FLAG 7  (S)
002712,000973: 43,2000                        V37FLAG            =        114D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002713,000974: 43,2000     5021               V37FLBIT           =        BIT6                                  #  RUNNING             OFF
002714,000975: 
002715,000976: 
002716,000977:                                                                                                  #  BIT 5 FLAG 7  (S)
002717,000978: 43,2000                        AVEGFLAG           =        115D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002718,000979: 43,2000     5022               AVEGFBIT           =        BIT5                                  #  DESIRED             NOT DESIRED
002719,000980: 
002720,000981: 
002721,000982:                                                                                                  #  BIT 4 FLAG 7  (S)
002722,000983: 43,2000                        UPLOCKFL           =        116D                                  #  K-KBAR-K FAIL       NO K-KBAR-K FAIL
002723,000984: 43,2000     5023               UPLOCBIT           =        BIT4                                  
002724,000985: 
002725,000986: 
002726,000987:                                                                                                  #  BIT 3 FLAG 7  (S)
002727,000988: 43,2000                        VERIFLAG           =        117D                                  #  CHANGED WHEN V33E OCCURS AT END OF P27
002728,000989: 43,2000     5024               VERIFBIT           =        BIT3                                  
002729,000990: 
002730,000991: 
002731,000992:                                                                                                  #  BIT 2 FLAG 7
002732,000993:                                                                                                  #                =               118D
002733,000994:                                                                                                  #                =               BIT2
002734,000995: 
002735,000996: 
002736,000997:                                                                                                  #  BIT 1 FLAG 7  (S)
002737,000998: 43,2000                        TFFSW              =        119D                                  #  CALCULATE TPERIGEE  CALCULATE TFF
002738,000999: 43,2000     5026               TFFSWBIT           =        BIT1                                  
002739,001000: 
002740,001001: 
002741,001002: 43,2000     0104               FLAGWRD8           =        STATE      +8D                        #  (120-134)
002742,001003: 
002743,001004:                                                                                                  #  (SET)               (RESET)
002744,001005: 
002745,001006:                                                                                                  #  BIT 15 FLAG 8 (S)
002746,001007: 
002747,001008: 43,2000                        RPQFLAG            =        120D                                  #  RPQ NOT COMPUTED    RPQ COMPUTED
002748,001009:                                                                                                  #  (RPQ = VECTOR BE-
002749,001010: 43,2000     5010               RPQFLBIT           =        BIT15                                 #  TWEEN SECONDARY BODY
002750,001011:                                                                                                  #  AND PRIMARY BODY
002751,001012: 
002752,001013: 
002753,001014:                                                                                                  #  BIT 14 FLAG 8
002754,001015: 43,2000                        R32FLAG            =        121D                                  #  R32 IS RUNNING      R32 IS NOT RUNNING
002755,001016: 43,2000     5011               R32FLBIT           =        BIT14                                 
002756,001017: 
002757,001018: 
002758,001019:                                                                                                  #  BIT 13 FLAG 8 (S)
002759,001020: 43,2000                        NEWIFLG            =        122D                                  #  FIRST PASS THROUGH  SUCCEEDING ITERATION
002760,001021: 43,2000     5012               NEWIBIT            =        BIT13                                 #  INTEGRATION         OF INTEGRATION
002761,001022: 
002762,001023: 
002763,001024:                                                                                                  #  BIT 12 FLAG 8
002764,001025: 43,2000                        CMOONFLG           =        123D                                  #  PERMANENT CSM STATE PERMANENT CSM STATE
002765,001026: 43,2000     5013               CMOONBIT           =        BIT12                                 #  IN LUNAR SPHERE     IN EARTH SPHERE
002766,001027: 
002767,001028: 
002768,001029:                                                                                                  #  BIT 11 FLAG 8
002769,001030: 43,2000                        LMOONFLG           =        124D                                  #  PERMANENT LM STATE  PERMANENT LM STATE
002770,001031: 43,2000     5014               LMOONBIT           =        BIT11                                 #  IN LUNAR SPHERE     IN EARTH SPHERE
002771,001032: 
002772,001033: 
002773,001034:                                                                                                  #  BIT 10 FLAG 8 (L)
002774,001035: 43,2000                        FLUNDISP           =        125D                                  #  CURRENT GUIDANCE    CURRENT GUIDANCE
002775,001036: 43,2000     5015               FLUNDBIT           =        BIT10                                 #  DISPLAYS INHIBITED  DISPLAYS PERMITTED
002776,001037: 
002777,001038: 
002778,001039:                                                                                                  #  BIT 9 FLAG 8  (L)
002779,001040: 43,2000                        P39/79SW           =        126D                                  #  P39/79 OPERATING    P38/P78 OPERATING
002780,001041: 43,2000     5016               P39SWBIT           =        BIT9                                  
002781,001042: 
002782,001043: 
002783,001044:                                                                                                  #  BIT 8 FLAG 8
002784,001045: 43,2000                        SURFFLAG           =        127D                                  #  LM ON LUNAR SURFACE LM NOT ON LUNAR
002785,001046: 43,2000     5017               SURFFBIT           =        BIT8                                  #                      SURFACE
002786,001047: 
002787,001048: 
002788,001049:                                                                                                  #  BIT 7 FLAG 8  (S)
002789,001050: 43,2000                        INFINFLG           =        128D                                  #  NO CONIC SOLUTION   CONIC SOLUTION
002790,001051:                                                                                                  #  (CLOSURE THROUGH    EXISTS
002791,001052: 43,2000     5020               INFINBIT           =        BIT7                                  #  INFINITY REQUIRED)
002792,001053: 
002793,001054: 
002794,001055:                                                                                                  #  BIT 6 FLAG 8  (S)
002795,001056: 43,2000                        ORDERSW            =        129D                                  #  ITERATOR USES 2ND   ITERATOR USES 1ST
002796,001057: 43,2000     5021               ORDERBIT           =        BIT6                                  #  ORDER MINIMUM MODE  ORDER STANDARD MODE
002797,001058: 
002798,001059: 
002799,001060: 
002800,001061:                                                                                                  #  BIT 5 FLAG 8  (S)
002801,001062: 43,2000                        APSESW             =        130D                                  #  RDESIRED OUTSIDE    RDESIRED INSIDE
002802,001063:                                                                                                  #  PERICENTER-APOCENTERPERICENTER-APOCENTER
002803,001064: 43,2000     5022               APSESBIT           =        BIT5                                  #  RANGE IN TIME-RADI  RANGE IN TIME-RADIUS
002804,001065: 
002805,001066: 
002806,001067:                                                                                                  #  BIT 4 FLAG 8  (S)
002807,001068: 43,2000                        COGAFLAG           =        131D                                  #  NO CONIC SOLUTION - CONIC SOLUTION
002808,001069:                                                                                                  #  TOO CLOSE TO RECTI- EXISTS(COGA DOES NOT
002809,001070: 43,2000     5023               COGAFBIT           =        BIT4                                  #  LINEAR(COGA OVRFLWS) OVERFLOW)
002810,001071: 
002811,001072: 
002812,001073:                                                                                                  #  BIT 3 FLAG 8
002813,001074:                                                                                                  #                =               132D
002814,001075: 
002815,001076:                                                                                                  #  BIT 2 FLAG 8
002816,001077:                                                                                                  #                =               133D
002817,001078:                                                                                                  #                =               BIT2
002818,001079: 
002819,001080: 
002820,001081:                                                                                                  #  BIT 1 FLAG 8  (S)
002821,001082: 43,2000                        360SW              =        134D                                  #  TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
002822,001083: 43,2000     5026               360SWBIT           =        BIT1                                  #  360 DEGREES         NEAR 360 DEGREES
002823,001084: 
002824,001085: 
002825,001086: 43,2000     0105               FLAGWRD9           =        STATE      +9D                        #  (135-149)
002826,001087: 
002827,001088:                                                                                                  #  (SET)               (RESET)
002828,001089: 
002829,001090: 
002830,001091:                                                                                                  #  BIT 15 FLAG 9
002831,001092: 43,2000                        ENGOFFSW           =        135D                                  
002832,001093: 43,2000     5010               ENGOFBIT           =        BIT15                                 
002833,001094: 
002834,001095:                                                                                                  #  BIT 14 FLAG 9 (L)
002835,001096: 43,2000                        FLVR               =        136D                                  #  VERTICAL RISE       NON-VERTICAL RISE
002836,001097: 43,2000     5011               FLVRBIT            =        BIT14                                 #  (ASCENT GUIDANCE)
002837,001098: 
002838,001099: 
002839,001100:                                                                                                  #  BIT 13 FLAG 9
002840,001101: 43,2000                        FLP70              =        137D                                  #  P70 HAS BEEN CALLED  P70 HAS NOT BEEN
002841,001102: 43,2000     5012               FLP70BIT           =        BIT13                                 #                       CALLED
002842,001103: 
002843,001104: 
002844,001105:                                                                                                  #  BIT 12 FLAG 9 (L)
002845,001106: 43,2000                        FLPC               =        138D                                  #  NO POSITION CONTROL  POSITION CONTROL
002846,001107: 43,2000     5013               FLPCBIT            =        BIT12                                 #  (ASCENT GUIDANCE)
002847,001108: 
002848,001109: 
002849,001110: 
002850,001111:                                                                                                  #  BIT 11 FLAG 9 (L)
002851,001112: 43,2000                        FLPI               =        139D                                  #  PRE-IGNITION PHASE   REGULAR GUIDANCE
002852,001113: 43,2000     5014               FLPIBIT            =        BIT11                                 #  (ASCENT GUIDANCE)
002853,001114: 
002854,001115: 
002855,001116:                                                                                                  #  BIT 10 FLAG 9 (L)
002856,001117: 43,2000                        FLRCS              =        140D                                  #  RCS INJECTION MODE   MAIN ENGINE MODE
002857,001118: 43,2000     5015               FLRCSBIT           =        BIT10                                 #  (ASCENT GUIDANCE)
002858,001119: 
002859,001120: 
002860,001121:                                                                                                  #  BIT 9 FLAG 9  (L)
002861,001122: 43,2000                        LETABORT           =        141D                                  #  ABORT PROGRAMS       ABORT PROGRAMS
002862,001123: 43,2000     5016               LETABBIT           =        BIT9                                  #  ARE ENABLED          ARE NOT ENABLED
002863,001124: 
002864,001125: 
002865,001126:                                                                                                  #  BIT 8 FLAG 9  (L)
002866,001127: 43,2000                        FLAP               =        142D                                  #  APS CONTINUED ABORT   APS ABORT IS NOT A
002867,001128:                                                                                                  #  AFTER DPS STAGING    CONTINUATION
002868,001129: 43,2000     5017               FLAPBIT            =        BIT8                                  #  (ASCENT GUIDANCE)
002869,001130: 
002870,001131: 
002871,001132:                                                                                                  #  BIT 7 FLAG 9  (L)
002872,001133: 43,2000                        FLIC               =        143D                                  #  INITIAL COMPUTATION  NOT INITIAL COMP
002873,001134: 43,2000     5020               FLICBIT            =        BIT7                                  #  CYCLE FOR ABORTS     CYCLE FOR ABORTS
002874,001135: 
002875,001136:                                                                                                  #  BIT 6 FLAG 9  (L)
002876,001137: 43,2000                        FLZONE0            =        144D                                  #  EARLY ABORT          LATE ABORT
002877,001138: 43,2000     5021               FLZONBIT           =        BIT6                                  #  TFI . 50 SECS.       TFI > 50 SECS.
002878,001139:                                                                                                  #  P70 --> P40
002879,001140:                                                                                                  #  P71 --> P42
002880,001141: 
002881,001142:                                                                                                  #  BIT 5 FLAG 9  (S)
002882,001143: 43,2000                        QUITFLAG           =        145D                                  #  DISCONTINUE INTEGR.  CONTINUE INTEGRATION
002883,001144: 43,2000     5022               QUITBIT            =        BIT5                                  
002884,001145: 
002885,001146: 
002886,001147:                                                                                                  #  BIT 4 FLAG 9
002887,001148: 43,2000                        R31FLAG            =        146D                                  
002888,001149: 43,2000     5023               R31FLBIT           =        BIT4                                  
002889,001150: 
002890,001151: 
002891,001152:                                                                                                  #  BIT 3 FLAG 9  (L)
002892,001153: 43,2000                        MID1FLAG           =        147D                                  #  INTEGRATE TO TDEC    INTEGRATE TO THE
002893,001154: 43,2000     5024               MID1FBIT           =        BIT3                                  #                       THEN-PRESENT TIME
002894,001155: 
002895,001156: 
002896,001157:                                                                                                  #  BIT 2 FLAG 9  (L)
002897,001158: 43,2000                        MIDAVFLG           =        148D                                  #  INTEGRATION ENTERED  INTEGRATION WAS
002898,001159:                                                                                                  #  FROM ONE OF MIDTOAV  NOT ENTERED VIA
002899,001160: 43,2000     5025               MIDAVBIT           =        BIT2                                  #  PORTALS              MIDTOAV
002900,001161: 
002901,001162: 
002902,001163:                                                                                                  #  BIT 1 FLAG 9  (S)
002903,001164: 43,2000                        AVEMIDSW           =        149D                                  #  AVETOMID CALLING    NO AVETOMID W INTEGR
002904,001165:                                                                                                  #  FOR W.MATRIX INTEGR ALLOW SET UP RM,VN.
002905,001166: 43,2000     5026               AVEMDBIT           =        BIT1                                  #  DONT WRITE OVER RN, PIPTIME
002906,001167:                                                                                                  #  VN,PIPTIME
002907,001168: 
002908,001169: 
002909,001170:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
002910,001171: 
002911,001172:    0061                                           SETLOC   61                                    
002912,001173:                                                                                                  #           INTERRUPT TEMPORARY STORAGE POOL.                              (11D)
002913,001174: 
002914,001175:                                                                                                  #             (ITEMP1 THROUGH RUPTREG4)
002915,001176: 
002916,001177:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
002917,001178:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
002918,001179: 
002919,001180:    0061                        ITEMP1             ERASE                                          
002920,001181:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
002921,001182:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
002922,001183: 
002923,001184:    0062                        ITEMP2             ERASE                                          
002924,001185:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
002925,001186:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
002926,001187: 
002927,001188:    0063                        ITEMP3             ERASE                                          
002928,001189:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
002929,001190:    0064     0063               WAITADR            EQUALS   ITEMP3                                
002930,001191:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
002931,001192: 
002932,001193:    0064                        ITEMP4             ERASE                                          
002933,001194:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
002934,001195:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
002935,001196: 
002936,001197:    0065                        ITEMP5             ERASE                                          
002937,001198:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
002938,001199: 
002939,001200:    0066                        ITEMP6             ERASE                                          
002940,001201:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
002941,001202: 
002942,001203:    0067                                           SETLOC   67                                    
002943,001204:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
002944,001205: 
002945,001206:    0070                        RUPTREG1           ERASE                                          
002946,001207:    0071                        RUPTREG2           ERASE                                          
002947,001208:    0072                        RUPTREG3           ERASE                                          
002948,001209:    0073                        RUPTREG4           ERASE                                          
002949,001210:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
002950,001211:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
002951,001212: 
002952,001213:                                                                                                  #           FLAGWORD RESERVATIONS.                (13D)
002953,001214: 
002954,001215:    0074                        STATE              ERASE    +12D                                  #  FLAGWORD REGISTERS.
002955,001216: 
002956,001217: 
002957,001218:                                                                                                  #           RENDEZVOUS RADAR TASK STORAGE                                (3D)
002958,001219: 
002959,001220:    0111                        RRRET              ERASE    +2D                                   #  B(1)TMP  P20'S, PERHAPS R29 & R12
002960,001221:    0114     0112               RDES               EQUALS   RRRET      +1                         #  B(1)TMP
002961,001222:    0114     0113               RRINDEX            EQUALS   RDES       +1                         #  B(1)TMP
002962,001223: 
002963,001224: 
002964,001225: 
002965,001226:                                                                                                  #           EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
002966,001227:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
002967,001228:    0115     0114               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
002968,001229:    0115     0114               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
002969,001230:    0115     0114               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
002970,001231: 
002971,001232:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
002972,001233:    0116     0115               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
002973,001234:    0116     0115               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
002974,001235:    0116     0115               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
002975,001236:    0116     0115               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
002976,001237: 
002977,001238:                                                                                                  #           THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
002978,001239: 
002979,001240:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
002980,001241:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
002981,001242:    0120     0117               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
002982,001243:    0120     0117               CHAR               =        POLISH                                #  TEMP FOR CHARIN
002983,001244:    0120     0117               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
002984,001245:    0120     0117               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
002985,001246: 
002986,001247:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
002987,001248:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
002988,001249: 
002989,001250:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
002990,001251:    0130     0122               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
002991,001252:    0130     0122               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
002992,001253:    0130     0122               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
002993,001254:    0130     0122               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
002994,001255: 
002995,001256:    0130     0123               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
002996,001257:    0130     0123               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
002997,001258:    0130     0123               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
002998,001259:    0130     0123               HITEMIN            =        VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
002999,001260:                                                                                                  #           MUST = LOTEMIN-1.
003000,001261:    0130     0124               CODE               =        VBUF       +2                         #  FOR DSPIN
003001,001262:    0130     0124               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
003002,001263:    0130     0124               LOTEMIN            =        VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
003003,001264:                                                                                                  #           MUST = HITEMIN+1.
003004,001265:    0130     0125               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
003005,001266:    0130     0125               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
003006,001267: 
003007,001268:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
003008,001269: 
003009,001270:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
003010,001271:    0133                        BUF2               ERASE    +1                                    
003011,001272:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
003012,001273:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
003013,001274:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
003014,001275:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
003015,001276:    0136     0135               DMPNTEMP           =        MPTEMP                                #  DMPSUB TEMPORARY
003016,001277:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
003017,001278:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
003018,001279:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
003019,001280:    0137     0136               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
003020,001281: 
003021,001282:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
003022,001283:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
003023,001284:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
003024,001285:    0140     0137               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
003025,001286:    0140     0137               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
003026,001287: 
003027,001288:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
003028,001289:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003029,001290:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
003030,001291:    0141     0140               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
003031,001292:    0141     0140               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
003032,001293: 
003033,001294:    0141                        TEM1               ERASE                                          #  EXEC TEMP
003034,001295:    0142     0141               POLYRET            =        TEM1                                  
003035,001296:    0142     0141               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
003036,001297: 
003037,001298:    0142                        TEM2               ERASE                                          #  EXEC TEMP
003038,001299:    0143     0142               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
003039,001300:    0143     0142               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
003040,001301: 
003041,001302:    0143                        TEM3               ERASE                                          #  EXEC TEMP
003042,001303:    0144     0143               COUNT              =        TEM3                                  #  FOR DSPIN
003043,001304: 
003044,001305:    0144                        TEM4               ERASE                                          #  EXEC TEMP
003045,001306:    0145     0144               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
003046,001307:    0145     0144               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
003047,001308:    0145     0144               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
003048,001309:    0145     0144               DSPWDRET           =        TEM4                                  #  RETURN FOR DSPSIGN
003049,001310:    0145     0144               SEPSCRET           =        TEM4                                  #  RETURN FOR SEPSEC
003050,001311:    0145     0144               SEPMNRET           =        TEM4                                  #  RETURN FOR SEPMIN
003051,001312: 
003052,001313:    0145                        TEM5               ERASE                                          #  EXEC TEMP
003053,001314:    0146     0145               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
003054,001315: 
003055,001316:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
003056,001317:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
003057,001318:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003058,001319:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
003059,001320:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003060,001321: 
003061,001322:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
003062,001323:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
003063,001324:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
003064,001325: 
003065,001326:                                                                                                  #           AX*SR*T STORAGE.                      (6D)
003066,001327:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
003067,001328:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
003068,001329:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
003069,001330:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
003070,001331:    0154     0133               TERM1TMP           EQUALS   BUF2                                  #  B(2)TMP
003071,001332: 
003072,001333:    0154     0143               DEXI               =        DEX1                                  
003073,001334: 
003074,001335:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
003075,001336:                                                                                                  #  SUBROUTINE ROOTPSRS.   THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
003076,001337:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
003077,001338: 
003078,001339:    0154     0142               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
003079,001340:    0154     0143               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
003080,001341:    0154     0144               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
003081,001342:    0154     0145               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
003082,001343:    0154     0146               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
003083,001344:    0154     0147               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
003084,001345:    0154     0150               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
003085,001346:    0154     0151               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
003086,001347:    0154     0152               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N HI ORDER
003087,001348:    0154     0153               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N LO ORDER
003088,001349: 
003089,001350:    0154     0117               PWRPTR             =        POLISH                                #  ROOTPSRS POWER TABLE POINTER
003090,001351:    0154     0124               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
003091,001352:    0154     0125               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
003092,001353:    0154     0126               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
003093,001354:    0154     0127               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
003094,001355:    0154     0132               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
003095,001356:    0154     0140               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABLE LOOP COUNTER
003096,001357:    0154     0141               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABLE POINTER
003097,001358: 
003098,001359:                                                                                                  #           DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                    (84D)
003099,001360: 
003100,001361:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
003101,001362:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003102,001363:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
003103,001364:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
003104,001365:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
003105,001366:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
003106,001367: 
003107,001368:    0170                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
003108,001369: 
003109,001370:                                                                                                  #  P27  (UPDATE PROGRAM ) STORAGE.                                       (26D)
003110,001371: 
003111,001372:    0300                        UPVERBSV           ERASE                                          #  B(1) UPDATE VERB ATTEMPTED.
003112,001373:    0301                        UPTEMP             ERASE    +24D                                  #  B(1)TMP SCRATCH
003113,001374:    0332     0301               INTWAK1Q           EQUALS   UPTEMP                                #      (BORROWS UPTEMP REGISTERS)
003114,001375:                                                                                                  #  RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
003115,001376:    0332     0302               COMPNUMB           EQUALS   UPTEMP     +1                         #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
003116,001377:    0332     0303               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP INTERRUPTED PROGRAM MM
003117,001378:    0332     0304               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
003118,001379:    0332     0305               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
003119,001380:    0332     0306               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
003120,001381: 
003121,001382: 
003122,001383:                                                                                                  #           DOWNLINK STORAGE.                                            (28D)
003123,001384: 
003124,001385:    0332     0332               DNLSTADR           EQUALS   DNLSTCOD                              
003125,001386: 
003126,001387:    0332                        DNLSTCOD           ERASE                                          #  B(1)PRM DOWNLIINK LIST CODE
003127,001388:    0333                        DUMPCNT            ERASE                                          #  B(1)
003128,001389:    0334                        LDATALST           ERASE    +25D                                  #  (26D)
003129,001390:    0366     0335               DNTMGOTO           EQUALS   LDATALST   +1                         #  B(1)
003130,001391:    0366     0336               TMINDEX            EQUALS   DNTMGOTO   +1                         #  B(1)
003131,001392:    0366     0336               DUMPLOC            EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
003132,001393:                                                                                                  #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
003133,001394:                                                                                                  #  ENT.
003134,001395:    0366     0337               DNQ                EQUALS   TMINDEX    +1                         #  B(1)
003135,001396:    0366     0340               DNTMBUFF           EQUALS   DNQ        +1                         #  B(22)PRM DOWNLINK SNAPSHOT BUFFER
003136,001397: 
003137,001398:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                   (10D) FIVE MORE IN EBANK 2
003138,001399: 
003139,001400:    0366                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
003140,001401:    0367                        NVWORD             ERASE                                          
003141,001402:    0370                        MARKNV             ERASE                                          
003142,001403:    0371                        NVSAVE             ERASE                                          
003143,001404:                                                                                                  #                  (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003144,001405:    0372                        CADRFLSH           ERASE                                          
003145,001406:    0373                        CADRMARK           ERASE                                          
003146,001407:    0374                        TEMPFLSH           ERASE                                          
003147,001408:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM 3 ALARM CODE REGISTERS
003148,001409: 
003149,001410: 
003150,001411:                                                                                                  #           VAC AREAS. -BE CAREFUL OF PLACEMENT-                         (220D)
003151,001412: 
003152,001413:    0400                        VAC1USE            ERASE                                          
003153,001414:    0401                        VAC1               ERASE    +42D                                  
003154,001415:    0454                        VAC2USE            ERASE                                          
003155,001416:    0455                        VAC2               ERASE    +42D                                  
003156,001417:    0530                        VAC3USE            ERASE                                          
003157,001418:    0531                        VAC3               ERASE    +42D                                  
003158,001419:    0604                        VAC4USE            ERASE                                          
003159,001420:    0605                        VAC4               ERASE    +42D                                  
003160,001421:    0660                        VAC5USE            ERASE                                          
003161,001422:    0661                        VAC5               ERASE    +42D                                  
003162,001423: 
003163,001424:                                                                                                  #           WAITLIST REPEAT FLAG.                                        (1D)
003164,001425: 
003165,001426:    0734                        RUPTAGN            ERASE                                          
003166,001427:    0735     0734               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
003167,001428: 
003168,001429: 
003169,001430: 
003170,001431:                                                                                                  #           STARALIGN ERASABLES.                                         (13D)
003171,001432: 
003172,001433:    0735                        STARCODE           ERASE                                          #  (1)
003173,001434:    0736     0735               AOTCODE            =        STARCODE                              
003174,001435:    0736                        STARALGN           ERASE    +11D                                  
003175,001436:    0752     0736               SINCDU             =        STARALGN                              
003176,001437:    0752     0744               COSCDU             =        STARALGN   +6                         
003177,001438: 
003178,001439:    0752     0742               SINCDUX            =        SINCDU     +4                         
003179,001440:    0752     0736               SINCDUY            =        SINCDU                                
003180,001441:    0752     0740               SINCDUZ            =        SINCDU     +2                         
003181,001442:    0752     0750               COSCDUX            =        COSCDU     +4                         
003182,001443:    0752     0744               COSCDUY            =        COSCDU                                
003183,001444:    0752     0746               COSCDUZ            =        COSCDU     +2                         
003184,001445: 
003185,001446: 
003186,001447:                                                                                                  #           PHASE TABLE AND RESTART COUNTERS.                            (12D)
003187,001448: 
003188,001449:    0752                        -PHASE1            ERASE                                          
003189,001450:    0753                        PHASE1             ERASE                                          
003190,001451:    0754                        -PHASE2            ERASE                                          
003191,001452:    0755                        PHASE2             ERASE                                          
003192,001453:    0756                        -PHASE3            ERASE                                          
003193,001454:    0757                        PHASE3             ERASE                                          
003194,001455:    0760                        -PHASE4            ERASE                                          
003195,001456:    0761                        PHASE4             ERASE                                          
003196,001457:    0762                        -PHASE5            ERASE                                          
003197,001458:    0763                        PHASE5             ERASE                                          
003198,001459:    0764                        -PHASE6            ERASE                                          
003199,001460:    0765                        PHASE6             ERASE                                          
003200,001461: 
003201,001462:                                                                                                  #           A**SR*T STORAGE.                                             (6D)
003202,001463: 
003203,001464:    0766                        CDUSPOT            ERASE    +5                                    #  B(6)
003204,001465: 
003205,001466:    0774     0766               CDUSPOTY           =        CDUSPOT                               
003206,001467:    0774     0770               CDUSPOTZ           =        CDUSPOT    +2                         
003207,001468:    0774     0772               CDUSPOTX           =        CDUSPOT    +4                         
003208,001469: 
003209,001470:                                                                                                  #  INTSTALL-ERASTALL FLAG    (1D)
003210,001471:    0774                        RASFLAG            ERASE                                          
003211,001472: 
003212,001473:                                                                                                  #           VERB 37 STORAGE.                                             (2D)
003213,001474: 
003214,001475:    0775                        MINDEX             ERASE                                          #  B(1)TMP INDEX FOR MAJOR MODE
003215,001476:    0776                        MMNUMBER           ERASE                                          #  B(1)TMP MAJOR MODE REQUESTED BY V37
003216,001477: 
003217,001478:                                                                                                  #  PINBALL INTERRUPT ACTION.                                             (1D)
003218,001479: 
003219,001480:    0777                        DSPCNT             ERASE                                          #  B(1)PRM COUNTER FOR DSPOUT.
003220,001481: 
003221,001482:                                                                                                  #  PINBALL EXECUTIVE ACTION                                              (44D)
003222,001483: 
003223,001484:    1000                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR.
003224,001485:    1001                        DECBRNCH           ERASE                                          #  +DEC, -DEC, OCT INDICATOR
003225,001486:    1002                        VERBREG            ERASE                                          #  VERB CODE
003226,001487:    1003                        NOUNREG            ERASE                                          #  NOUN CODE
003227,001488:    1004                        XREG               ERASE                                          #  R1 INPUT BUFFER
003228,001489:    1005                        YREG               ERASE                                          #  R2 INPUT BUFFER
003229,001490:    1006                        ZREG               ERASE                                          #  R3 INPUT BUFFER
003230,001491:    1007                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
003231,001492:    1010                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
003232,001493:    1011     1010               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003233,001494:                                                                                                  #           MUST = LOTEMOUT-1.
003234,001495:    1011                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
003235,001496:    1012     1011               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003236,001497:                                                                                                  #           MUST = HITEMOUT+1.
003237,001498:    1012                        MODREG             ERASE                                          #  MODE CODE
003238,001499: 
003239,001500:    1013                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
003240,001501:    1014                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
003241,001502:    1015                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
003242,001503:    1016                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
003243,001504:    1017                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
003244,001505:    1020                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
003245,001506:    1021                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
003246,001507:    1022                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
003247,001508:    1023                        MONSAVE2           ERASE                                          #  NVMONOPT OPTIONS
003248,001509:    1024                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003249,001510:    1040                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
003250,001511:                                                                                                  #  MUST = NVBNKTEM-1
003251,001512:    1041                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
003252,001513:                                                                                                  #  MUST = NVQTEM+1
003253,001514:    1042                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
003254,001515:    1043                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
003255,001516:    1044                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
003256,001517:    1045                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
003257,001518:    1046                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003258,001519:    1051                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003259,001520: 
003260,001521:    1054     1052               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
003261,001522:    1054     1046               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
003262,001523: 
003263,001524: 
003264,001525:                                                                                                  #  INCORP STORAGE: R22 (N29)    (SHARES WITH PREVIOUS SECTION)         (4D)
003265,001526: 
003266,001527:    1054     1046               R22DISP            EQUALS   DSPTEM1                               #  I(4) N49 DISPLAY OF DELTA R AND DELTA V
003267,001528: 
003268,001529: 
003269,001530:                                                                                                  #           TBASES AND PHSPRDT S.                                        (12D)
003270,001531: 
003271,001532:    1054                        TBASE1             ERASE                                          
003272,001533:    1055                        PHSPRDT1           ERASE                                          
003273,001534:    1056                        TBASE2             ERASE                                          
003274,001535:    1057                        PHSPRDT2           ERASE                                          
003275,001536:    1060                        TBASE3             ERASE                                          
003276,001537:    1061                        PHSPRDT3           ERASE                                          
003277,001538:    1062                        TBASE4             ERASE                                          
003278,001539:    1063                        PHSPRDT4           ERASE                                          
003279,001540:    1064                        TBASE5             ERASE                                          
003280,001541:    1065                        PHSPRDT5           ERASE                                          
003281,001542:    1066                        TBASE6             ERASE                                          
003282,001543:    1067                        PHSPRDT6           ERASE                                          
003283,001544: 
003284,001545:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                   (6D)
003285,001546: 
003286,001547:    1070                        EBANKSAV           ERASE                                          
003287,001548:    1071                        MARKEBAN           ERASE                                          
003288,001549:    1072                        EBANKTEM           ERASE                                          
003289,001550:    1073                        MARK2PAC           ERASE                                          
003290,001551:    1074                        R1SAVE             ERASE                                          
003291,001552: 
003292,001553: 
003293,001554:                                                                                                  #           IMU COMPENSATION UNSWITCHED ERASABLE.                        (1D)
003294,001555: 
003295,001556:    1075                        1/PIPADT           ERASE                                          
003296,001557: 
003297,001558: 
003298,001559:                                                                                                  #           SINGLE PRECISION SUBROUTINE TEMPORARIES.                     (2D)
003299,001560: 
003300,001561:                                                                                                  #                                                               SPSIN, SPCOS, SPROOT VARIABLES.
003301,001562:                                                                                                  #                                                               DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003302,001563:                                                                                                  #                                                               AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003303,001564:                                                                                                  #                                                               MATERIALIZE, THEN THIS CAN BE CHANGED.
003304,001565: 
003305,001566:    1076                        HALFY              ERASE                                          
003306,001567:    1077                        ROOTRET            ERASE                                          
003307,001568:    1100                        SQRARG             ERASE                                          
003308,001569:    1101     1076               TEMK               EQUALS   HALFY                                 
003309,001570:    1101     1077               SQ                 EQUALS   ROOTRET                               
003310,001571: 
003311,001572: 
003312,001573:                                                                                                  #           UNSWITCHED RADAR ERASABLE                                    (13D)
003313,001574: 
003314,001575:    1101                        RADMODES           ERASE                                          
003315,001576:    1102                        DAPBOOLS           ERASE                                          
003316,001577:    1103                        SAMPLIM            ERASE                                          
003317,001578:    1104                        SAMPLSUM           ERASE    +1                                    
003318,001579:    1106                        OPTYHOLD           ERASE    +1                                    
003319,001580:    1110                        TIMEHOLD           ERASE    +1                                    
003320,001581:    1112     1104               RRTARGET           EQUALS   SAMPLSUM                              #  HALF U IT VECTOR IN SM OR NB AXES.
003321,001582:    1112                        TANG               ERASE    +1                                    #  DESIRE TRUNNION AND SHAFT ANGLES.
003322,001583:    1114     1112               MODEA              EQUALS   TANG                                  
003323,001584:    1114                        MODEB              ERASE    +1                                    #  DODES LOBBERS TANG +2.
003324,001585:    1116     1114               NSAMP              EQUALS   MODEB                                 
003325,001586:    1116                        DESRET             ERASE                                          
003326,001587:    1117     1116               OLDATAGD           EQUALS   DESRET                                #  USED I  DATA READING ROUTINES.
003327,001588:    1117                        DESCOUNT           ERASE                                          
003328,001589: 
003329,001590:                                                                                                  #           ******   P22   ******                                        (6D)
003330,001591: 
003331,001592:    1120     1104               RSUBC              EQUALS   RRTARGET                              #  I(6)S-S  CSM POSITION VECTOR
003332,001593: 
003333,001594:                                                                                                  #           UNSWITCHED FOR ORBIT INTEGRATION.                            (21D)
003334,001595: 
003335,001596:    1120                        TDEC               ERASE    +20D                                  #  I(2)
003336,001597:    1145     1122               COLREG             EQUALS   TDEC       +2                         #  I(1)
003337,001598:    1145     1123               LAT                EQUALS   COLREG     +1                         #  I(2)
003338,001599:    1145     1125               LONG               EQUALS   LAT        +2                         #  I(2)
003339,001600:    1145     1127               ALT                EQUALS   LONG       +2                         #  I(2)
003340,001601:    1145     1131               YV                 EQUALS   ALT        +2                         #  I(6)
003341,001602:    1145     1137               ZV                 EQUALS   YV         +6                         #  I(6)
003342,001603: 
003343,001604: 
003344,001605:                                                                                                  #           MISCELLANEOUS UNSWITCHED.                                    (20D)
003345,001606: 
003346,001607:    1145                        UNUSED2            ERASE    +5                                    
003347,001608: 
003348,001609:    1153                        P40/RET            ERASE                                          #  (WILL BE PUT IN E6 WHEN THERE IS ROOM)
003349,001610:    1154                        GENRET             ERASE                                          #  B(1)  R61 RETURN CADR.
003350,001611:    1155                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
003351,001612:    1156                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
003352,001613:    1157                        OPTION3            ERASE                                          #  B(1)  NOUN 06 USES THIS
003353,001614:    1160                        LONGCADR           ERASE    +1                                    #  B(2)  LONGCALL REGISTER
003354,001615:    1162                        LONGBASE           ERASE    +1                                    
003355,001616:    1164                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003356,001617:    1166                        NVWORD1            ERASE                                          
003357,001618:    1167                        CDUTEMPX           ERASE                                          #  B(1)TMP
003358,001619:    1170                        CDUTEMPY           ERASE                                          #  B(1)TMP
003359,001620:    1171                        CDUTEMPZ           ERASE                                          #  B(1)TMP
003360,001621:    1172                        PIPATMPX           ERASE                                          #  B(1)TMP
003361,001622:    1173                        PIPATMPY           ERASE                                          #  B(1)TMP
003362,001623:    1174                        PIPATMPZ           ERASE                                          #  B(1)TMP
003363,001624: 
003364,001625:    1175                        DISPDEX            ERASE                                          #  B(1)
003365,001626:    1176                        TEMPR60            ERASE                                          #  B(1)
003366,001627:    1177                        PRIOTIME           ERASE                                          #  B(1)
003367,001628: 
003368,001629:    1200                        UNUSED5            ERASE                                          
003369,001630: 
003370,001631: 
003371,001632:                                                                                                  #  STANDBY VERB ERASABLES.  REDOCTR BEFORE THETADS.                      (14D)
003372,001633: 
003373,001634:    1201                        TIME2SAV           ERASE    +1                                    
003374,001635:    1203                        SCALSAVE           ERASE    +1                                    
003375,001636:    1205                        REDOCTR            ERASE                                          #  CONTAINS NUMBER OF RESTARTS
003376,001637:    1206                        THETAD             ERASE    +2                                    
003377,001638:    1211     1206               CPHI               =        THETAD                                #  O   DESIRED GIMBAL ANGLES
003378,001639:    1211     1207               CTHETA             =        THETAD     +1                         #  I   FOR
003379,001640:    1211     1210               CPSI               =        THETAD     +2                         #  M   MANEUVER.
003380,001641:    1211                        DELV               ERASE    +5                                    
003381,001642:    1217     1211               DELVX              =        DELV                                  
003382,001643:    1217     1213               DELVY              =        DELV       +2                         
003383,001644:    1217     1215               DELVZ              =        DELV       +4                         
003384,001645: 
003385,001646: 
003386,001647:                                                                                                  #           SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS.            (2D)
003387,001648: 
003388,001649:    1217     0301               EBUF2              EQUALS   UPTEMP                                #  B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
003389,001650: 
003390,001651: 
003391,001652:                                                                                                  #           PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION-     (14D)
003392,001653: 
003393,001654:    1217                        RN                 ERASE    +5                                    #  B(6)PRM
003394,001655:    1225                        VN                 ERASE    +5                                    #  B(6)PRM
003395,001656:    1233                        PIPTIME            ERASE    +1                                    #  B(2)PRM  (MUST BE FOLLOWED BY GDT/2)
003396,001657: 
003397,001658: 
003398,001659:                                                                                                  #           SERVICER   -MUST FOLLOW PIPTIME-                             (22D)
003399,001660: 
003400,001661:    1235                        GDT/2              ERASE    +22D                                  #  B(6)TMP (MUST FOLLOW PIPTIME)
003401,001662:    1264     1243               MASS               EQUALS   GDT/2      +6                         #  B(2)
003402,001663:    1264     1243               WEIGHT/G           =        MASS                                  
003403,001664:    1264     1245               ABDELV             EQUALS   MASS       +2                         #  ALCMANU STORAGE)
003404,001665:    1264     1247               /AF/               EQUALS   ABDELV     +2                         #  (6)
003405,001666:    1264     1251               DVTHRSH1           EQUALS   /AF/       +2                         #  (1)
003406,001667:    1264     1201               DVTHRUSH           =        TIME2SAV                              
003407,001668:    1264     1202               AUXFLAG            =        DVTHRUSH   +1                         
003408,001669:    1264     1252               AVEGEXIT           EQUALS   DVTHRSH1   +1                         #   (2)
003409,001670:    1264     1252               AVGEXIT            =        AVEGEXIT                              
003410,001671:    1264     1254               TEMX               EQUALS   AVEGEXIT   +2                         #   (1)
003411,001672:    1264     1255               TEMY               EQUALS   TEMX       +1                         #   (1)
003412,001673:    1264     1256               TEMZ               EQUALS   TEMY       +1                         #   (1)
003413,001674:    1264     1257               PIPCTR             EQUALS   TEMZ       +1                         #  B(1)
003414,001675:    1264     1260               STOPDVC            EQUALS   PIPCTR     +1                         #  B(1)
003415,001676:    1264     1261               PIPAGE             EQUALS   STOPDVC    +1                         #  B(1)
003416,001677:    1264     1262               OUTROUTE           EQUALS   PIPAGE     +1                         #  B(1)
003417,001678:    1264     1263               LRSTAT             EQUALS   OUTROUTE   +1                         #  B(1)
003418,001679: 
003419,001680: 
003420,001681: 
003421,001682:                                                                                                  #           PERMANENT LEM DAP STORAGE.                                   (12D)
003422,001683: 
003423,001684:    1264                        CH5MASK            ERASE                                          #  B(1)PRM
003424,001685:    1265                        CH6MASK            ERASE                                          #  B(1)PRM JET FAILURE MASK.
003425,001686:    1266                        DTHETASM           ERASE    +5                                    #   (6)
003426,001687:    1274                        SPNDX              ERASE                                          #  B(1)
003427,001688:    1275                        RCSFLAGS           ERASE                                          #  AUTOPILOT FLAG WORD
003428,001689:                                                                                                  #  BIT ASSIGNMENTS:
003429,001690:                                                                                                  #   1) ALTERYZ SWITCH  (ZEROOR1)
003430,001691:                                                                                                  #   2) NEEDLER SWITCH
003431,001692:                                                                                                  #   3) NEEDLER SWITCH
003432,001693:                                                                                                  #   4) NEEDLER SWITCH
003433,001694:                                                                                                  #   5) NEEDLER SWITCH
003434,001695:                                                                                                  #   9) JUST-IN-DETENT SWITCH
003435,001696:                                                                                                  #  10) PBIT - MANUAL CONTROL SWITCH
003436,001697:                                                                                                  #  11) QRBIT - MANUAL CONTROL SWITCH
003437,001698:                                                                                                  #  12) PSKIP CONTROL (PJUMPADR)
003438,001699:                                                                                                  #  13) 1/ACCJOB CONTROL (ACCSET)
003439,001700:    1276                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
003440,001701:                                                                                                  #  BBCON  OF NEXT LM DAP T5RUPT.   2CADR
003441,001702: 
003442,001703: 
003443,001704:                                                                                                  #           RCS FAILURE MONITOR STORAGE.                                  (1)
003444,001705: 
003445,001706:    1300                        PVALVEST           ERASE                                          #  B(1)PRM
003446,001707: 
003447,001708: 
003448,001709:                                                                                                  #           KALCMANU/DAP INTERFACE.                                      (3D)
003449,001710: 
003450,001711:    1301                        DELPEROR           ERASE                                          #  B(1)PRM COMMAND LAGS.
003451,001712:    1302                        DELQEROR           ERASE                                          #  B(1)PRM
003452,001713:    1303                        DELREROR           ERASE                                          #  B(1)PRM
003453,001714: 
003454,001715: 
003455,001716:                                                                                                  #           MODE SWITCHING ERASABLE.                                     (9D)
003456,001717: 
003457,001718:                                                                                                  #      RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
003458,001719:    1304                        IMODES30           ERASE                                          #  B(1)
003459,001720:    1305                        IMODES33           ERASE                                          
003460,001721:    1306                        MODECADR           ERASE    +2                                    #  B(3)PRM
003461,001722:    1311     1306               IMUCADR            EQUALS   MODECADR                              
003462,001723:    1311     1307               OPTCADR            EQUALS   MODECADR   +1                         
003463,001724:    1311     1310               RADCADR            EQUALS   MODECADR   +2                         
003464,001725:    1311                        ATTCADR            ERASE    +2                                    #  B(3)PRM
003465,001726:    1314     1313               ATTPRIO            =        ATTCADR    +2                         
003466,001727:    1314                        MARKSTAT           ERASE                                          
003467,001728: 
003468,001729:                                                                                                  #           T4RUPT ERASABLE.                                             (2D)
003469,001730: 
003470,001731:    1315                        DSRUPTSW           ERASE                                          
003471,001732:    1316                        DIDFLG             ERASE                                          #  (1)
003472,001733:    1317                        FINALT             ERASE    +1                                    #  (MAY NOT BE REQUIRED FOR FLIGHTS).
003473,001734:    1321                        LGYRO              ERASE                                          #  (1)
003474,001735: 
003475,001736:                                                                                                  #           P25 RADAR STORAGE.                                           (2D)
003476,001737: 
003477,001738:    1322                        LASTYCMD           ERASE    +1                                    #  B(1)PRM  THESE ARE CALLED BY T4RUPT
003478,001739:    1324     1323               LASTXCMD           EQUALS   LASTYCMD   +1                         #  B(1)PRM  THEY MUST BE CONTIGUOUS,Y FIRST
003479,001740: 
003480,001741: 
003481,001742: 
003482,001743:                                                                                                  #           MEASINC                                                      (4D)
003483,001744: 
003484,001745:    1324                        WIXA               ERASE                                          #  B(1)
003485,001746:    1325                        WIXB               ERASE                                          #  B(1)
003486,001747:    1326                        ZIXA               ERASE                                          #  B(1)
003487,001748:    1327                        ZIXB               ERASE                                          #  B(1)
003488,001749: 
003489,001750:                                                                                                  #           AGS DUMMY ID WORD.                                           (1D)
003490,001751: 
003491,001752:    1330                        AGSWORD            ERASE                                          
003492,001753: 
003493,001754:                                                                                                  #           SOME MISCELLANEOUS UNSWITCHED.                               (6D)
003494,001755: 
003495,001756: 
003496,001757:    1331                        RATEINDX           ERASE                                          #   (1)    USED BY KALCMANU
003497,001758:    1332                        DELAYLOC           ERASE    +2                                    
003498,001759:    1335                        LEMMASS            ERASE                                          #  KEEP CONTIGUOUS W.  CSMMASS  (1)EACH
003499,001760:    1336                        CSMMASS            ERASE                                          
003500,001761: 
003501,001762:                                                                                                  #  LESS IS MORE.
003502,001763: 
003503,001764:                                                                                                  #           RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE.               (7D)
003504,001765: 
003505,001766:                                                                                                  #                  (NORMALLY USED DURING P20, BUT MAY ALSO)
003506,001767:                                                                                                  #                  (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
003507,001768: 
003508,001769:                                                                                                  #                                  (PLEASE KEEP IN THIS ORDER)
003509,001770: 
003510,001771:    1337                        DNRRANGE           ERASE    +6                                    #  B(1) TMP
003511,001772:    1346     1340               DNRRDOT            EQUALS   DNRRANGE   +1                         #  B(1)TMP
003512,001773:    1346     1341               DNINDEX            EQUALS   DNRRDOT    +1                         #  B(1)TMP
003513,001774:    1346     1342               DNLRVELX           EQUALS   DNINDEX    +1                         #  B(1)TMP
003514,001775:    1346     1343               DNLRVELY           EQUALS   DNLRVELX   +1                         #  B(1)TMP
003515,001776:    1346     1344               DNLRVELZ           EQUALS   DNLRVELY   +1                         #  B(1)TMP
003516,001777:    1346     1345               DNLRALT            EQUALS   DNLRVELZ   +1                         #  B(1) TMP
003517,001778: 
003518,001779:                                                                                                  #           INCORPORATION UNSWITCHED.                                    (1D)
003519,001780: 
003520,001781:    1346     1257               W.IND              EQUALS   PIPCTR                                #  B(1)
003521,001782: 
003522,001783: 
003523,001784:                                                                                                  #           SUBROUTINE BALLANGS OF R60.                                  (1D)
003524,001785: 
003525,001786:    1346                        BALLEXIT           ERASE                                          #  B(1)SAVE LOCATION FOR BALLINGS SUBR EXIT
003526,001787: 
003527,001788:                                                                                                  #           CRS61.1 STORAGE. -USED IN R63 (VERB 89)-                       (5D)
003528,001789: 
003529,001790:    1347                        CPHIX              ERASE    +2                                    #  B(3)DSP NOUN 96 CALCULATED BY CRS61.1
003530,001791: 
003531,001792: 
003532,001793:                                                                                                  #           NOUN 87                                                      (2D)
003533,001794: 
003534,001795:    1352     1347               AZ                 EQUALS   CPHIX                                 #  B(1)  AZ AND EL MUST BE CONTIGUOUS
003535,001796:    1352     1350               EL                 EQUALS   AZ         +1D                        #  B(1)
003536,001797: 
003537,001798: 
003538,001799: 
003539,001800:                                                                                                  #           NOUN 29                                                      (1D)
003540,001801:    1352                        LRFLAGS            ERASE                                          
003541,001802: 
003542,001803: 
003543,001804:                                                                                                  #           SOME LEM DAP STORAGE.                         (4D)
003544,001805: 
003545,001806:    1353                        DAPDATR1           ERASE                                          #  B(1)DSP DAP CONFIG.
003546,001807:    1354                        TEVENT             ERASE    +1                                    #  B(2)DSP
003547,001808:    1356                        DB                 ERASE                                          #  B(1)TMP DEAD BAND.
003548,001809: 
003549,001810: 
003550,001811:    1357                        END-UE             EQUALS                                         #  NEXT UNUSED UE ADDRESS
003551,001812: 
003552,001813: 
003553,001814:                                                                                                  #           SELF-CHECK ASSIGNMENTS.                                      (17D)
003554,001815: 
003555,001816:                                                                                                  #                                  (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003556,001817: 
003557,001818:    1357                        SELFERAS           ERASE    1357       -          1377            #  *** MUST NOT BE MOVED ***
003558,001819:    1357     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
003559,001820:    1357     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
003560,001821:    1357     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
003561,001822:    1357     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
003562,001823:    1357     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)   ALARM-ABORT USER'S 2CADR
003563,001824:    1357     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
003564,001825:    1357     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
003565,001826:    1357     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
003566,001827:    1357     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
003567,001828:    1357     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
003568,001829:    1357     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
003569,001830:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
003570,001831:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
003571,001832:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
003572,001833: 
003573,001834:                                                                                                  #                  EBANK-3 ASSIGNMENTS
003574,001835: 
003575,001836: E3,1400                                           SETLOC   1400                                  
003576,001837: 
003577,001838:                                                                                                  #           WAITLIST TASK LISTS.                                         (26D)
003578,001839: 
003579,001840: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM DELTA T S.
003580,001841: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
003581,001842: 
003582,001843: 
003583,001844:                                                                                                  #           RESTART STORAGE.                                             (2D)
003584,001845: 
003585,001846: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
003586,001847: 
003587,001848:                                                                                                  #           MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK.               (2D)
003588,001849: 
003589,001850: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
003590,001851: 
003591,001852: 
003592,001853:                                                                                                  #           PHASE-CHANGE LISTS PART II.                                  (12D)
003593,001854: 
003594,001855: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
003595,001856: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
003596,001857: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
003597,001858: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
003598,001859: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
003599,001860: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
003600,001861: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
003601,001862: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
003602,001863: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
003603,001864: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
003604,001865: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
003605,001866: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
003606,001867: 
003607,001868: 
003608,001869:                                                                                                  #           IMU COMPENSATION PARAMETERS.                                 (22D)
003609,001870: 
003610,001871: E3,1452                        PBIASX             ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTR TERMS
003611,001872: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #      INTERMIXED.
003612,001873: E3,1453                        PIPASCFX           ERASE                                          
003613,001874: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
003614,001875: E3,1454                        PBIASY             ERASE                                          
003615,001876: E3,1455                        PIPASCFY           ERASE                                          
003616,001877: E3,1456                        PBIASZ             ERASE                                          
003617,001878: E3,1457                        PIPASCFZ           ERASE                                          
003618,001879: 
003619,001880: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
003620,001881: E3,1461  E3,1460               GBIASX             =        NBDX                                  
003621,001882: E3,1461                        NBDY               ERASE                                          
003622,001883: E3,1462                        NBDZ               ERASE                                          
003623,001884: 
003624,001885: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003625,001886: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
003626,001887: E3,1465                        ADIAZ              ERASE                                          
003627,001888: 
003628,001889: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003629,001890: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
003630,001891: E3,1470                        ADSRAZ             ERASE                                          
003631,001892: 
003632,001893: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
003633,001894: 
003634,001895: E3,1477  E3,1471               COMMAND            EQUALS   GCOMP                                 
003635,001896: E3,1477  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
003636,001897: 
003637,001898: 
003638,001899: E3,1477                        GCOMPSW            ERASE                                          
003639,001900: 
003640,001901:                                                                                                  #           STATE VECTORS FOR ORBIT INTEGRATION.                         (44D)
003641,001902: 
003642,001903:                                                                                                  #                                  (DIFEQCNT THRU XKEP MUST BE IN SAME
003643,001904:                                                                                                  #                                    EBANK AS RRECTCSM, RRECTLEM ETC
003644,001905:                                                                                                  #                                    BECAUSE THE COPY-CYCLES (ATOPCSM,
003645,001906:                                                                                                  #                                    PTOACSM ETC) ARE EXECUTED IN BASIC.
003646,001907:                                                                                                  #                                      ALL OTHER REFERENCES TO THIS GROUP
003647,001908:                                                                                                  #                                    ARE BY INTERPRETIVE INSTRUCTIONS.)
003648,001909: 
003649,001910: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)
003650,001911:                                                                                                  #                                  (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003651,001912: 
003652,001913: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)
003653,001914: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)
003654,001915: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)
003655,001916: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)
003656,001917: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)
003657,001918: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)
003658,001919: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)
003659,001920: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)
003660,001921: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)
003661,001922: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)
003662,001923: 
003663,001924:                                                                                                  #           PERMANENT STATE VECTORS AND TIMES.                           (99D)
003664,001925: 
003665,001926:                                                                                                  #           (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
003666,001927: 
003667,001928:                                                                                                  #           (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
003668,001929: 
003669,001930: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
003670,001931: E3,1562  E3,1554               RRECTOTH           =        RRECTCSM                              
003671,001932: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
003672,001933: 
003673,001934: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
003674,001935: E3,1572  E3,1570               TETOTHER           =        TETCSM                                
003675,001936: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
003676,001937: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
003677,001938: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
003678,001939: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
003679,001940: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
003680,001941: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
003681,001942: 
003682,001943:                                                                                                  #           (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
003683,001944: 
003684,001945: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
003685,001946: E3,1634  E3,1626               RRECTHIS           =        RRECTLEM                              
003686,001947: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
003687,001948: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
003688,001949: E3,1644  E3,1642               TETTHIS            =        TETLEM                                
003689,001950: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
003690,001951: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
003691,001952: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
003692,001953: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
003693,001954: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
003694,001955: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
003695,001956: 
003696,001957: E3,1700                        X789               ERASE    +5                                    
003697,001958: E3,1706                        TEPHEM             ERASE    +2                                    
003698,001959: E3,1711                        AZO                ERASE    +1                                    
003699,001960: E3,1713                        UNITW              ERASE    +5                                    
003700,001961: E3,1721  E3,1713               -AYO               EQUALS   UNITW                                 #   (2)
003701,001962: E3,1721  E3,1715               AXO                EQUALS   UNITW      +2                         #   (2)
003702,001963: 
003703,001964: 
003704,001965: 
003705,001966:                                                                                                  #           STATE VECTORS FOR DOWNLINK.                                  (12D)
003706,001967: 
003707,001968: E3,1721                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
003708,001969: E3,1727                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
003709,001970: 
003710,001971: E3,1735  E3,1570               T-OTHER            =        TETCSM                                #              TIME (OTHER VECH) FOR DNLINK
003711,001972: 
003712,001973:                                                                                                  #           REFSMMAT.                                                    (18D)
003713,001974: 
003714,001975: E3,1735                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
003715,001976: 
003716,001977:                                                                                                  #           UNIT R.
003717,001978: E3,1757                        UNITR              ERASE    +7D                                   
003718,001979: 
003719,001980: 
003720,001981:                                                                                                  #           ACTIVE VEHICLE CENTANG.  MUST BE DISPLAYED ANYTIME (ALMOST.)  (2D)
003721,001982: 
003722,001983: E3,1767                        ACTCENT            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
003723,001984:                                                                                                  #   VEHICLE AT TPI TIG AND TARGET VECTOR.
003724,001985: 
003725,001986:                                                                                                  #           **** USED IN CONICSEX (PLAN INERT ORIENT) ****
003726,001987: 
003727,001988: E3,1771  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PRECISION)
003728,001989: 
003729,001990: 
003730,001991:                                                                                                  #       ***** P22  *****  (OVERLAYS LPS 20.1 STORAGE)                    (6D)
003731,001992: E3,1771  E7,1434               VSUBC              EQUALS   LOSVEL                                #  I(6) S-S  CSM VELOCITY VECTOR
003732,001993: 
003733,001994: 
003734,001995:                                                                                                  #           INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS      (8D)
003735,001996: 
003736,001997: E3,1771                        RTARG              ERASE    +5                                    #  I(6) TARGET VECTOR
003737,001998: 
003738,001999: 
003739,002000: E3,1777                        END-E3             EQUALS                                         #  NEXT UNUSED E3 ADDRESS
003740,002001: 
003741,002002:                                                                                                  #                  EBANK-4 ASSIGNMENTS
003742,002003: 
003743,002004: E4,1400                                           SETLOC   2000                                  
003744,002005: 
003745,002006:                                                                                                  #  E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
003746,002007: 
003747,002008: E4,1400                        AMEMORY            EQUALS                                         
003748,002009: 
003749,002010:                                                                                                  #           P20 STORAGE. -PAD LOADED-                                    (6D)
003750,002011: 
003751,002012: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                          KM*2(-7)
003752,002013: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                    KM(-1/2)*2(11)
003753,002014: E4,1402                        WSHAFT             ERASE                                          #  B(1)PL                          KM*2(-7)
003754,002015: E4,1403                        WTRUN              ERASE                                          #  B(1)PL                          KM*2(-7)
003755,002016: E4,1404                        RMAX               ERASE                                          #  B(1)PL                     METERS*2(-19)
003756,002017: E4,1405                        VMAX               ERASE                                          #  B(1)PL                      M/CSEC*2(-7)
003757,002018: 
003758,002019:                                                                                                  #           P22 STORAGE. -PAD LOADED-                                    (2D)
003759,002020: 
003760,002021: E4,1406                        SHAFTVAR           ERASE                                          #  B(1)PL                      RAD SQ*2(12)
003761,002022: E4,1407                        TRUNVAR            ERASE                                          #  B(1)PL                      RAD SQ*2(10)
003762,002023: 
003763,002024: 
003764,002025:                                                                                                  #           CONISEX STORAGE.-PAD LOADED-                                 (6D)
003765,002026: 
003766,002027: E4,1410                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
003767,002028: 
003768,002029:                                                                                                  #           V47(R47) AGS INITIALIZATION STORAGE. -PAD LOADED-            (2D)
003769,002030: 
003770,002031: E4,1416                        AGSK               ERASE    +1                                    
003771,002032: 
003772,002033: 
003773,002034:                                                                                                  #           LUNAR LANDING STORAGE. -PAD LOADED-                          (6D)
003774,002035: 
003775,002036: E4,1420                        TLAND              ERASE    +1                                    #  I(2)  NOMINAL TIME OF LANDING
003776,002037: E4,1422                        /LAND/             ERASE    +1                                    #  B(2) LUNAR RADIUS AT LANDING SITE
003777,002038: E4,1424                        RLS                ERASE    +5                                    #  I(6) LANDING SITE VECTOR -MOON REF
003778,002039: 
003779,002040: 
003780,002041:                                                                                                  #           INTEGRATION STORAGE.                                         (102D)
003781,002042: 
003782,002043: E4,1432                        PBODY              ERASE    +101D                                 #  I(1)
003783,002044: 
003784,002045: E4,1600  E4,1433               ALPHAV             EQUALS   PBODY      +1                         #  I(6)
003785,002046: E4,1600  E4,1441               BETAV              EQUALS   ALPHAV     +6                         #  I(6)
003786,002047: E4,1600  E4,1447               PHIV               EQUALS   BETAV      +6                         #  I(6)
003787,002048: E4,1600  E4,1455               PSIV               EQUALS   PHIV       +6                         #  I(6)
003788,002049: E4,1600  E4,1463               FV                 EQUALS   PSIV       +6                         #  I(6)    PERTURBING ACCELERATIONS
003789,002050: E4,1600  E4,1471               ALPHAM             EQUALS   FV         +6                         #  I(2)
003790,002051: E4,1600  E4,1473               BETAM              EQUALS   ALPHAM     +2                         #  I(2)
003791,002052: E4,1600  E4,1475               TAU.               EQUALS   BETAM      +2                         #  I(2)
003792,002053: E4,1600  E4,1477               DT/2               EQUALS   TAU.       +2                         #  I(2)
003793,002054: E4,1600  E4,1501               H                  EQUALS   DT/2       +2                         #  I(2)
003794,002055: E4,1600  E4,1503               GMODE              EQUALS   H          +2                         #  I(1)
003795,002056: E4,1600  E4,1504               IRETURN            EQUALS   GMODE      +1                         #  I(1)
003796,002057: E4,1600  E4,1505               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)
003797,002058: E4,1600  E4,1506               RPQV               EQUALS   NORMGAM    +1                         
003798,002059: E4,1600  E4,1514               ORIGEX             EQUALS   RPQV       +6                         #  I(1)
003799,002060: E4,1600  E4,1514               KEPRTN             EQUALS   ORIGEX                                #  I(1)
003800,002061: E4,1600  E4,1515               RQVV               EQUALS   ORIGEX     +1                         #  I(6)
003801,002062: E4,1600  E4,1523               RPSV               EQUALS   RQVV       +6                         #  I(6)
003802,002063: E4,1600  E4,1531               XKEPNEW            EQUALS   RPSV       +6                         #  I(2)
003803,002064: E4,1600  E4,1533               VECTAB             EQUALS   XKEPNEW    +2                         #  I(36D)
003804,002065: E4,1600  E4,1576               VECTABND           EQUALS   VECTAB     +35D                       #  END MARK
003805,002066: 
003806,002067: 
003807,002068: 
003808,002069:                                                                                                  #           THESE PROBABLY CAN SHARE MID-COURSE VARIABLES.               (6D)
003809,002070: 
003810,002071: E4,1600  E4,1541               VACX               EQUALS   VECTAB     +6                         #  I(2)
003811,002072: E4,1600  E4,1543               VACY               EQUALS   VACX       +2                         #  I(2)
003812,002073: E4,1600  E4,1545               VACZ               EQUALS   VACY       +2                         #  I(2)
003813,002074: 
003814,002075:                                                                                                  #           SERVICER STORAGE  (USED BY ALL POWERED FLIGHT PROGS.)        (18D)
003815,002076: 
003816,002077: E4,1600  E4,1547               XNBPIP             EQUALS   VECTAB     +12D                       #  I(6)
003817,002078: E4,1600  E4,1555               YNBPIP             EQUALS   XNBPIP     +6                         #  I(6)
003818,002079: E4,1600  E4,1563               ZNBPIP             EQUALS   YNBPIP     +6                         #  I(6)
003819,002080: 
003820,002081: 
003821,002082:                                                                                                  #           SOME VERB 82 STORAGE                                         (4D)
003822,002083: 
003823,002084: E4,1600  E4,1521               HAPOX              EQUALS   RQVV       +4                         #  I(2)
003824,002085: E4,1600  E4,1523               HPERX              EQUALS   HAPOX      +2                         #  I(2)
003825,002086: 
003826,002087: 
003827,002088:                                                                                                  #           V82 STORAGE                                                  (6D)
003828,002089: 
003829,002090: E4,1600  E4,1571               VONE'              EQUALS   VECTAB     +30D                       #  I(6)TMP  NORMAL VELOCITY VONE /SQRT. MU
003830,002091: 
003831,002092:                                                                                                  #           R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-          (28D)
003832,002093: 
003833,002094: E4,1600  E4,1506               BASETHV            EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
003834,002095: 
003835,002096: 
003836,002097: E4,1600  E4,1515               BASETIME           EQUALS   RQVV                                  #  I(2)     TIME ASSOC WITH BASE VECS
003837,002098: E4,1600  E4,1517               ORIG               EQUALS   RQVV       +2                         #  I(1)     =0 FOR EARTH =2 FOR MOON
003838,002099: E4,1600  E4,1520               STATEXIT           EQUALS   RQVV       +3                         #  I(1)     STQ ADDRESS FOR STATEXTP
003839,002100: E4,1600  E4,1521               BASEOTV            EQUALS   RQVV       +4                         #  I(6)     BASE VEL VECTOR OTHER VEH
003840,002101: 
003841,002102: 
003842,002103: E4,1600  E4,1541               BASEOTP            EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
003843,002104: 
003844,002105: 
003845,002106: E4,1600  E4,1571               BASETHP            EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
003846,002107: 
003847,002108: 
003848,002109: 
003849,002110:                                                                                                  #           KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (6D)
003850,002111:                                                                                                  #           CONICS)
003851,002112: 
003852,002113: E4,1600                        XMODULO            ERASE    +5                                    #  I(2)
003853,002114: E4,1606  E4,1602               TMODULO            EQUALS   XMODULO    +2                         #  I(2)
003854,002115: E4,1606  E4,1604               EPSILONT           EQUALS   TMODULO    +2                         #  I(2)
003855,002116: 
003856,002117: 
003857,002118:                                                                                                  #           VERB 83 STORAGE.                                             (18D)
003858,002119: 
003859,002120: E4,1606                        RANGE              ERASE    +17D                                  #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
003860,002121: E4,1630  E4,1610               RRATE              EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH.
003861,002122: E4,1630  E4,1612               RTHETA             EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54.
003862,002123: E4,1630  E4,1614               RONE               EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
003863,002124: E4,1630  E4,1622               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE.  (SCRATCH)
003864,002125: 
003865,002126: 
003866,002127: E4,1630  E4,1606               WWPOS              =        RANGE                                 #  NOUN 99 (V45)
003867,002128: E4,1630  E4,1610               WWVEL              =        RRATE                                 #  NOUN 99 (V45)
003868,002129:                                                                                                  #           V82 STORAGE. (CANNOT OVERLAY RONE OR VONE)                   (11D) TWO SEPARATE LOCATIONS
003869,002130: 
003870,002131: E4,1630  E4,1541               V82FLAGS           EQUALS   VECTAB     +6                         #   (1) FOR V82 BITS.
003871,002132: E4,1630  E4,1542               TFF                EQUALS   V82FLAGS   +1                         #  I(2)
003872,002133: E4,1630  E4,1544               -TPER              EQUALS   TFF        +2                         #  I(2)
003873,002134: 
003874,002135: 
003875,002136: E4,1630  E4,1606               HPERMIN            EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
003876,002137: E4,1630  E4,1610               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
003877,002138: E4,1630  E4,1612               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
003878,002139: 
003879,002140: 
003880,002141: 
003881,002142:                                                                                                  #           VARIOUS DISPLAY REGISTERS                                    (6D)     NOUN 84; P76
003882,002143: 
003883,002144: E4,1630                        DELVOV             ERASE    +5D                                   #  (6)
003884,002145: 
003885,002146: 
003886,002147:                                                                                                  #           ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE.         (18D)
003887,002148: 
003888,002149:                                                                                                  #                  UNSHARED WHILE LM ON LUNAR SURFACE.
003889,002150: 
003890,002151: E4,1636                        GSAV               ERASE    +17D                                  #  I(6)
003891,002152: E4,1660  E4,1644               YNBSAV             EQUALS   GSAV       +6                         #  I(6)
003892,002153: E4,1660  E4,1652               ZNBSAV             EQUALS   YNBSAV     +6                         #  I(6)
003893,002154: E4,1660  E4,1660               STARVSAV           EQUALS   ZNBSAV     +6                         #  I(6)
003894,002155: 
003895,002156: 
003896,002157: 
003897,002158:                                                                                                  #           KALCMANU STORAGE. CAN OVERLAY GSAV.                          (18D)
003898,002159: 
003899,002160: E4,1660  E4,1636               MFS                EQUALS   GSAV                                  #  I(18)
003900,002161: E4,1660  E4,1636               MFI                EQUALS   MFS                                   #  I
003901,002162: E4,1660  E4,1636               KEL                EQUALS   MFS                                   #  I(18)
003902,002163: E4,1660  E4,1636               E01                EQUALS   MFS                                   #  I(6)
003903,002164: E4,1660  E4,1644               E02                EQUALS   E01        +6                         #  I(6)
003904,002165: 
003905,002166:                                                                                                  #           LR VEL BEAM VECTORS.                                         (26D)
003906,002167: 
003907,002168:                                                                                                  #           CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
003908,002169: 
003909,002170: E4,1660  E4,1636               VZBEAMNB           EQUALS   GSAV                                  #  I(6) LR VELOCITY BEAMS IN NB COORDS.
003910,002171: E4,1660  E4,1644               VYBEAMNB           EQUALS   VZBEAMNB   +6                         #  I(6)
003911,002172: E4,1660  E4,1652               VXBEAMNB           EQUALS   VYBEAMNB   +6                         #  I(6) PRESERVE Z,Y,X ORDER.
003912,002173: 
003913,002174: 
003914,002175: E4,1660  E4,1660               LRVTIME            =        VXBEAMNB   +6                         #  B(2)     LR
003915,002176: E4,1660  E4,1662               LRXCDU             =        LRVTIME    +2                         #  B(1)     LR
003916,002177: E4,1660  E4,1663               LRYCDU             =        LRXCDU     +1                         #  B(1)     LR
003917,002178: E4,1660  E4,1664               LRZCDU             =        LRYCDU     +1                         #  B(1)     LR
003918,002179: E4,1660  E4,1665               PIPTEM             =        LRZCDU     +1                         #  B(3)     LR
003919,002180: 
003920,002181: 
003921,002182:                                                                                                  #           P32-P35, P72-P75 STORAGE.                                    (40D)
003922,002183: 
003923,002184: E4,1660                        T1TOT2             ERASE    +1                                    #   (2)     TIME FROM CSI TO CDH
003924,002185: E4,1662                        T2TOT3             ERASE    +1                                    #   (2)
003925,002186: E4,1664                        ELEV               ERASE    +1                                    #   (2)
003926,002187: E4,1666                        DELVLVC            ERASE    +5                                    #  I(6) DELTA VELOCITY - LOCAL VERTICAL COO
003927,002188: E4,1674  E4,1666               DELVSLV            =        DELVLVC                               #  (TEMP STORAGE OF SAME VECTOR)   -RDINATE
003928,002189: E4,1674                        UP1                ERASE    +5                                    #   (6)
003929,002190: E4,1702                        DELVEET1           ERASE    +5                                    #  I(6)     DV CSI IN REF
003930,002191: E4,1710                        DELVEET2           ERASE    +5                                    #  I(6)     DV CSH IN REF
003931,002192: E4,1716                        RACT1              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CSI TIME
003932,002193: E4,1724                        RACT2              ERASE    +5                                    #   (6)     POS VEC OF ACTIVE AT CDH TIME
003933,002194: E4,1732                        RTX1               ERASE                                          #  I(1) X1  -2 FOR EARTH, -10 FOR MOON
003934,002195: E4,1733                        RTX2               ERASE                                          #  I(1) X2 FOR SHIFT-EARTH 0, MOON 2
003935,002196: E4,1734                        RTSR1/MU           ERASE    +1                                    #  (2)      SQ ROOT 1/MU STORAGE
003936,002197: E4,1736                        RTMU               ERASE    +1                                    #  (2)      MU STORAGE
003937,002198: 
003938,002199: 
003939,002200: 
003940,002201:                                                                                                  #           (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
003941,002202: 
003942,002203: E4,1740  E4,1660               +MGA               EQUALS   T1TOT2                                #   (2) S-S + MID GIM ANGL TO DELVEET3
003943,002204: 
003944,002205: 
003945,002206: E4,1740  E4,1674               UNRM               EQUALS   UP1                                   #  I(6) S-S
003946,002207: 
003947,002208: 
003948,002209: E4,1740  E4,1716               DVLOS              EQUALS   RACT1                                 #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
003949,002210: E4,1740  E4,1724               ULOS               EQUALS   RACT2                                 #  I(6) S-S UNIT LINE OF SIGHT VECTOR
003950,002211: 
003951,002212: 
003952,002213: E4,1740  E4,1734               NOMTPI             EQUALS   RTSR1/MU                              #  (2) S-S NOMINAL TPI TIME FOR RECYCLE
003953,002214: 
003954,002215: 
003955,002216:                                                                                                  #           SOME P30 STORAGE.                                            (4D)
003956,002217: 
003957,002218: E4,1740  E4,1660               HAPO               EQUALS   T1TOT2                                #  I(2)
003958,002219: E4,1740  E4,1662               HPER               EQUALS   HAPO       +2                         #  I(2)
003959,002220: 
003960,002221: 
003961,002222: 
003962,002223:                                                                                                  #           SOME P38-P39,P78-79 STORAGE.                                 (6D)
003963,002224: 
003964,002225: E4,1740  E4,1716               DELTAR             EQUALS   DVLOS                                 #  I(2)
003965,002226: E4,1740  E4,1720               DELTTIME           EQUALS   DELTAR     +2                         #  I(2) TIME REPRESENTATION OF DELTAR
003966,002227: E4,1740  E4,1722               TARGTIME           EQUALS   DELTTIME   +2                         #  I(2) TINT MINUS DELTTIME
003967,002228: 
003968,002229: E4,1740  E4,1716               TINTSOI            EQUALS   DELTAR                                #  I(2) TIME OF INTERCEPT FOR SOI PHASE
003969,002230: 
003970,002231: 
003971,002232: 
003972,002233:                                                                                                  #           THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
003973,002234: 
003974,002235: E4,1740  E4,1400               TRANSM1            =        WRENDPOS                              #  E4,1400
003975,002236: E4,1740  E4,1422               ALFDK              =        /LAND/                                
003976,002237: 
003977,002238: 
003978,002239:                                                                                                  #  ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
003979,002240: 
003980,002241: 
003981,002242:                                                                                                  #           V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83)   (14D)
003982,002243: 
003983,002244: E4,1740  E4,1606               AGSBUFF            EQUALS   RANGE                                 #  B(14D)
003984,002245: E4,1740  E4,1623               AGSBUFFE           EQUALS   AGSBUFF    +13D                       #  ENDMARK
003985,002246: 
003986,002247: 
003987,002248:                                                                                                  #           R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83)  (12D)
003988,002249: 
003989,002250: E4,1740  E4,1614               RPASS36            EQUALS   RONE                                  #  I(6) S-S
003990,002251: E4,1740  E4,1622               UNP36              EQUALS   RPASS36    +6                         #  I(6) S-S
003991,002252: 
003992,002253: 
003993,002254:                                                                                                  #           S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64).(OVERLAYS V83) (10D)
003994,002255:                                                                                                  #                 (OPERATES DURING P00 ONLY)
003995,002256: 
003996,002257: E4,1740  E4,1606               ALPHASB            EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE.
003997,002258: E4,1740  E4,1610               BETASB             EQUALS   ALPHASB    +2                         #  B(2)DSP NOUN 51.  YAW ANGLE.
003998,002259: E4,1740  E4,1612               RLM                EQUALS   BETASB     +2                         #  I(6)S S/C POSITION VECTOR.
003999,002260: 
004000,002261:                                                                                                  #           **** USED IN S-BAND ANTENNA FOR LM ****
004001,002262: 
004002,002263: E4,1740  E4,1610               YAWANG             EQUALS   BETASB                                
004003,002264: E4,1740  E4,1606               PITCHANG           EQUALS   ALPHASB                               
004004,002265: 
004005,002266: 
004006,002267:                                                                                                  #           NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85.            (4)
004007,002268: 
004008,002269: E4,1740  E4,1606               RR-AZ              EQUALS   PITCHANG                              #  I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
004009,002270: E4,1740  E4,1610               RR-ELEV            EQUALS   RR-AZ      +2                         #  I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
004010,002271: 
004011,002272:                                                                                                  #           R04(V62) RADAR TEST STORAGE.                         (8D)
004012,002273:                                                                                                  #           R04 IS RESTRICTED TO P00.
004013,002274: 
004014,002275: E4,1740  E4,1606               RSTACK             EQUALS   RANGE                                 #  B(8) BUFFER FOR R04 NOUNS.
004015,002276: 
004016,002277: 
004017,002278: 
004018,002279:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
004019,002280: 
004020,002281:                                                                                                  #                   (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
004021,002282: 
004022,002283: E4,1740                        RINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE POSITION
004023,002284: E4,1746                        VINIT              ERASE    +5                                    #  I(6) ACTIVE VEHICLE VELOCITY
004024,002285: E4,1754                        DELLT4             ERASE    +1                                    #  I(2) TIME DIFFERENCE
004025,002286: E4,1756                        VIPRIME            ERASE    +5                                    #  I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
004026,002287: 
004027,002288:                                                                                                  #           PADLOADED ERASABLES FOR P20/P22                              (6D)
004028,002289: 
004029,002290: E4,1764                        RANGEVAR           ERASE    +1                                    #  I(2) RR RANGE ERROR VARIANCE
004030,002291: E4,1766                        RATEVAR            ERASE    +1                                    #  I(2) RR RANGE-RATE ERROR VARIANCE
004031,002292: E4,1770                        RVARMIN            ERASE    +2                                    #  I(3) MINIMUM RANGE ERROR VARIANCE
004032,002293: E4,1773                        VVARMIN            ERASE    +1                                    #  I(2) MINIMUM RANGE-RATE ERROR VARIANCE
004033,002294: 
004034,002295: 
004035,002296: 
004036,002297:                                                                                                  #           SOME R04(V62)-R77 RADAR TEST STORAGE                         (6D)
004037,002298: 
004038,002299: E4,1775  E4,1521               RTSTDEX            EQUALS   HAPOX                                 #  (1)
004039,002300: E4,1775  E4,1522               RTSTMAX            =        RTSTDEX    +1                         #  (1)
004040,002301: E4,1775  E4,1523               RTSTBASE           =        RTSTMAX    +1                         #  (1)
004041,002302: E4,1775  E4,1524               RTSTLOC            =        RTSTBASE   +1                         #  (1)
004042,002303: E4,1775  E4,1524               RSTKLOC            =        RTSTLOC                               
004043,002304: E4,1775  E4,1525               RSAMPDT            =        RTSTLOC    +1                         #  (1)
004044,002305: E4,1775  E4,1526               RFAILCNT           =        RSAMPDT    +1                         #  (1)
004045,002306: 
004046,002307: 
004047,002308:                                                                                                  #          LPS20.1 STORAGE 
004048,002309: 
004049,002310:                                                                                                  #  (12D)
004050,002311: 
004051,002312: 
004052,002313: E4,1775     1104               LMPOS              EQUALS   SAMPLSUM                              #  I(6)TEMP.  STORAGE FOR LM POS. VECTOR.
004053,002314: E4,1775  E7,1434               LMVEL              EQUALS   LOSVEL                                #  I(6)TEMP.  STORAGE FOR LM VEL. VECTOR.
004054,002315: 
004055,002316: 
004056,002317: E4,1775                        END-E4             EQUALS                                         #  FIRST UNUSED LOCATION IN E4
004057,002318: 
004058,002319:                                                                                                  #           EBANK-5 ASSIGNMENTS
004059,002320: 
004060,002321: E5,1400                                           SETLOC   2400                                  
004061,002322: 
004062,002323:                                                                                                  #           W-MATRIX. ESSENTIALLY UNSHARABLE.            (162D)
004063,002324: 
004064,002325: E5,1400                        W                  ERASE    +161D                                 
004065,002326: E5,1642  E5,1642               ENDW               EQUALS   W          +162D                      
004066,002327: 
004067,002328: 
004068,002329: 
004069,002330:                                                                                                  #  *******  OVERLAY NUMBER 1 IN EBANK 5  *******
004070,002331: 
004071,002332:                                                                                                  #           SOME VARIABLES FOR SECOND DPS GUIDANCE                       (34D)
004072,002333: 
004073,002334: E5,1642  E5,1400               CG                 =        W                                     #  I(18D) GUIDANCE
004074,002335: E5,1642  E5,1422               RANGEDSP           =        CG         +18D                       #  B(2)     DISPLAY
004075,002336: E5,1642  E5,1424               DELTAH             =        RANGEDSP   +2                         #  B(2)    DISPLAY
004076,002337: E5,1642  E5,1426               OUTOFPLN           =        DELTAH     +2                         #  B(2)    DISPLAY
004077,002338: 
004078,002339:                                                                                                  #           ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.                   (36D)
004079,002340: 
004080,002341: E5,1642  E5,1642               XSM                EQUALS   ENDW                                  #  B(6)
004081,002342: E5,1642  E5,1650               YSM                EQUALS   XSM        +6                         #  B(6)
004082,002343: E5,1642  E5,1656               ZSM                EQUALS   YSM        +6                         #  B(6)
004083,002344: 
004084,002345: E5,1642  E5,1664               XDC                EQUALS   ZSM        +6                         #  B(6)
004085,002346: E5,1642  E5,1672               YDC                EQUALS   XDC        +6                         #  B(6)
004086,002347: E5,1642  E5,1700               ZDC                EQUALS   YDC        +6                         #  B(6)
004087,002348: 
004088,002349: E5,1642  E5,1664               XNB                =        XDC                                   
004089,002350: E5,1642  E5,1672               YNB                =        YDC                                   
004090,002351: E5,1642  E5,1700               ZNB                =        ZDC                                   
004091,002352: 
004092,002353:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.   (4D)
004093,002354: 
004094,002355: E5,1642  E5,1644               -COSB              EQUALS   XSM        +2                         #  (2)TMP
004095,002356: E5,1642  E5,1646               SINB               EQUALS   -COSB      +2                         #  (2)TMP
004096,002357: 
004097,002358:                                                                                                  #           ALIGNMENT/SYSTEST COMMON STORAGE.                    (31D)
004098,002359: 
004099,002360: E5,1642  E5,1706               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
004100,002361: E5,1642  E5,1730               STAR               EQUALS   STARAD     +18D                       #  I(6)
004101,002362: E5,1642  E5,1736               GCTR               EQUALS   STAR       +6                         #  B(1)
004102,002363: E5,1642  E5,1737               OGC                EQUALS   GCTR       +1                         #  I(2)
004103,002364: E5,1642  E5,1741               IGC                EQUALS   OGC        +2                         #  I(2)
004104,002365: E5,1642  E5,1743               MGC                EQUALS   IGC        +2                         #  I(2)
004105,002366: 
004106,002367:                                                                                                  #           P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE)  (12D)
004107,002368: 
004108,002369: E5,1642  E5,1706               GACC               =        STARAD                                #   (6) SS
004109,002370: E5,1642  E5,1714               GOUT               =        STARAD     +6                         #   (6) SS
004110,002371: 
004111,002372: 
004112,002373:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE             (24D)
004113,002374: 
004114,002375: E5,1642  E5,1706               VEARTH             EQUALS   STARAD                                #   (6)TMP
004115,002376: E5,1642  E5,1714               VSUN               EQUALS   VEARTH     +6                         #   (6)TMP
004116,002377: E5,1642  E5,1722               VMOON              EQUALS   VSUN       +6                         #   (6)TMP
004117,002378: E5,1642  E5,1730               SAX                EQUALS   VMOON      +6                         #   (6)TMP
004118,002379: 
004119,002380: 
004120,002381:                                                                                                  #           P50'S,R50'S Q STORES.                                        (2D)
004121,002382: 
004122,002383: E5,1642  E5,1745               QMIN               EQUALS   MGC        +2                         #  B(1)TMP
004123,002384: E5,1642  E5,1746               QMAJ               EQUALS   QMIN       +1                         #  B(1)TMP
004124,002385: 
004125,002386: 
004126,002387:                                                                                                  #         **** USED IN P50S ****   (SCATTERED OVERLAYS)
004127,002388: E5,1642  E5,1706               XSCI               EQUALS   STARAD                                
004128,002389: E5,1642  E5,1714               YSCI               EQUALS   XSCI       +6                         
004129,002390: E5,1642  E5,1714               ZSCI               EQUALS   YSCI                                  
004130,002391: E5,1642  E5,1706               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
004131,002392: E5,1642  E5,1722               VEC1               EQUALS   STARAD     +12D                       
004132,002393: E5,1642  E5,1730               VEC2               EQUALS   STAR                                  
004133,002394: 
004134,002395: 
004135,002396: 
004136,002397:                                                                                                  #           ALIGNMENT STORAGE.                                           (23D)
004137,002398: 
004138,002399: E5,1642  E5,1747               OGCT               EQUALS   QMAJ       +1                         #  I(6)
004139,002400: E5,1642  E5,1755               BESTI              EQUALS   OGCT       +6                         #  I(1)
004140,002401: E5,1642  E5,1756               BESTJ              EQUALS   BESTI      +1                         
004141,002402: E5,1642  E5,1757               STARIND            EQUALS   BESTJ      +1                         
004142,002403:                                                                                                  #     RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
004143,002404: E5,1642  E5,1760               STARSAV1           EQUALS   STARIND    +1                         #  I(6)
004144,002405: E5,1642  E5,1766               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)
004145,002406: E5,1642  E5,1774               TALIGN             EQUALS   STARSAV2   +6                         #  B(2) TIME OF IMU ALIGNMENT  (DOWNLINKED)
004146,002407:                                                                                                  #                VEL/C     EQUALS  STARSAV2  +6            I(6)TMP  (NOT USED IN LEM)
004147,002408: 
004148,002409: 
004149,002410: E5,1642                        ZPRIME             =        22D                                   
004150,002411: E5,1642                        PDA                =        22D                                   
004151,002412: E5,1642                        COSTH              =        16D                                   
004152,002413: E5,1642                        SINTH              =        18D                                   
004153,002414: E5,1642                        THETA              =        20D                                   
004154,002415: E5,1642                        STARM              =        32D                                   
004155,002416: 
004156,002417:                                                                                                  #  *******  OVERLAY NUMBER 2 IN EBANK 5  *******
004157,002418: 
004158,002419: 
004159,002420:                                                                                                  #           CONICS ROUTINE STORAGE.                       (85D)
004160,002421: 
004161,002422: E5,1642  E5,1642               DELX               EQUALS   ENDW                                  #  I(2)TMP
004162,002423: E5,1642  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
004163,002424: E5,1642  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
004164,002425: E5,1642                        RCNORM             EQUALS   34D                                   #  I(2) TMP
004165,002426: E5,1642  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
004166,002427: E5,1642  E5,1654               R1VEC              EQUALS   URRECT     +6                         #  I(6) TMP
004167,002428: E5,1642  E5,1662               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
004168,002429: E5,1642  E5,1670               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
004169,002430: E5,1642  E5,1672               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
004170,002431: E5,1642  E5,1673               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
004171,002432: E5,1642  E5,1701               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
004172,002433: E5,1642  E5,1702               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
004173,002434: E5,1642  E5,1710               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
004174,002435: E5,1642  E5,1711               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
004175,002436: E5,1642  E5,1717               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
004176,002437: E5,1642  E5,1721               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
004177,002438: E5,1642  E5,1727               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
004178,002439: E5,1642  E5,1731               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
004179,002440: E5,1642  E5,1733               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
004180,002441: E5,1642  E5,1735               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
004181,002442: E5,1642  E5,1737               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
004182,002443: E5,1642  E5,1741               R1A                EQUALS   P          +2                         #  I(2)TMP
004183,002444: E5,1642  E5,1654               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
004184,002445: E5,1642  E5,1743               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
004185,002446: E5,1642  E5,1710               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
004186,002447: E5,1642  E5,1751               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
004187,002448: E5,1642  E5,1710               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
004188,002449: E5,1642  E5,1710               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
004189,002450: E5,1642  E5,1717               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
004190,002451: E5,1642  E5,1753               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
004191,002452: E5,1642  E5,1754               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
004192,002453: E5,1642  E5,1755               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
004193,002454: E5,1642  E5,1757               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
004194,002455: E5,1642  E5,1761               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
004195,002456: E5,1642  E5,1757               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
004196,002457: E5,1642  E5,1761               TPREV              EQUALS   DEPREV                                #  I(2)TMP
004197,002458: E5,1642  E5,1763               EPSILONL           EQUALS   DEPREV     +2                         #  I(2)TMP
004198,002459: E5,1642  E5,1765               COGA               EQUALS   EPSILONL   +2                         #  I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
004199,002460: E5,1642  E5,1765               INDEP              EQUALS   COGA                                  #       USED BY SUBROUTINE'ITERATOR'.
004200,002461: 
004201,002462:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 5  *******
004202,002463: 
004203,002464:                                                                                                  #           INCORP STORAGE.                               (18D)
004204,002465: 
004205,002466: E5,1642  E5,1642               ZI                 EQUALS   ENDW                                  #  I(18)TMP
004206,002467: 
004207,002468:                                                                                                  #           INCORP/L SR22.3 STORAGE.                                     (21D)
004208,002469: 
004209,002470: E5,1642  E5,1664               DELTAX             EQUALS   ZI         +18D                       #  I(18)
004210,002471: E5,1642  E5,1706               VARIANCE           EQUALS   DELTAX     +18D                       #  I(3)
004211,002472: 
004212,002473:                                                                                                  #           MEASUREMENT INCORPORATION -R22- STORAGE.                     (49D)
004213,002474: 
004214,002475: E5,1642  E5,1711               GRP2SVQ            EQUALS   VARIANCE   +3                         #  I(1)TMP QSAVE FOR RESTARTS
004215,002476: E5,1642  E5,1712               OMEGAM1            EQUALS   GRP2SVQ    +1                         #  I(6)
004216,002477: E5,1642  E5,1720               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)
004217,002478: E5,1642  E5,1726               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)
004218,002479: E5,1642  E5,1734               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)
004219,002480: E5,1642  E5,1756               TDPOS              EQUALS   HOLDW      +18D                       #  I(6)
004220,002481: E5,1642  E5,1764               TDVEL              EQUALS   TDPOS      +6                         #  I(6)
004221,002482: 
004222,002483: 
004223,002484: E5,1642  E5,1664               TRIPA              EQUALS   DELTAX                                #  I(3)TMP
004224,002485: E5,1642  E5,1667               TEMPVAR            EQUALS   TRIPA      +3                         #  I(3)TMP
004225,002486: 
004226,002487: 
004227,002488: 
004228,002489: 
004229,002490:                                                                                                  #           INCORPORATION/INTEGRATION Q STORAGE.                         (1D)
004230,002491: 
004231,002492: E5,1642  E5,1772               EGRESS             EQUALS   TDVEL      +6                         #  I(1)
004232,002493: 
004233,002494: 
004234,002495: 
004235,002496:                                                                                                  #           P30/P31 STORAGE.                                             (1D) AND ONE OVERLAY
004236,002497: 
004237,002498: E5,1642  E5,1773               P30EXIT            EQUALS   EGRESS     +1                         #  B(1)TMP
004238,002499: 
004239,002500: 
004240,002501: E5,1642  E5,1773               ORIGIN             EQUALS   P30EXIT                               #  I(1)TMP  INDEX DURING INITVEL
004241,002502: 
004242,002503: 
004243,002504:                                                                                                  #           SYSTEM TEST ERASABLES.  CAN OVERLAY W MATRIX. (127D)
004244,002505: 
004245,002506:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 5  *******
004246,002507: 
004247,002508: 
004248,002509: E5,1642  E5,1400               AZIMUTH            EQUALS   W                                     #  2
004249,002510: E5,1642  E5,1402               LATITUDE           EQUALS   AZIMUTH    +2                         #  2
004250,002511: E5,1642  E5,1404               ERVECTOR           EQUALS   LATITUDE   +2                         #  6
004251,002512: E5,1642  E5,1412               LENGTHOT           EQUALS   ERVECTOR   +6                         #  1
004252,002513: E5,1642  E5,1413               LOSVEC             EQUALS   LENGTHOT   +1                         #  6
004253,002514: E5,1642  E5,1414               NDXCTR             EQUALS   LOSVEC     +1                         #  1
004254,002515: E5,1642  E5,1415               PIPINDEX           EQUALS   NDXCTR     +1                         #  1
004255,002516: E5,1642  E5,1416               POSITON            EQUALS   PIPINDEX   +1                         #  1
004256,002517: E5,1642  E5,1417               QPLACE             EQUALS   POSITON    +1                         #  1
004257,002518: E5,1642  E5,1420               QPLACES            EQUALS   QPLACE     +1                         #  1
004258,002519: E5,1642  E5,1421               SOUTHDR            EQUALS   QPLACES    +1                         #  7
004259,002520: E5,1642  E5,1430               TEMPTIME           EQUALS   SOUTHDR    +7                         #  2
004260,002521: E5,1642  E5,1432               TMARK              EQUALS   TEMPTIME   +2                         #  2
004261,002522: E5,1642  E5,1434               GENPL              EQUALS   TMARK      +2                         
004262,002523: E5,1642  E5,1434               CDUTIMEI           =        GENPL                                 
004263,002524: E5,1642  E5,1436               CDUTIMEF           =        GENPL      +2                         
004264,002525: E5,1642  E5,1440               CDUDANG            =        GENPL      +4                         
004265,002526: E5,1642  E5,1441               CDUREADF           =        GENPL      +5                         
004266,002527: E5,1642  E5,1442               CDUREADI           =        GENPL      +6                         
004267,002528: E5,1642  E5,1443               CDULIMIT           =        GENPL      +7                         
004268,002529: 
004269,002530: E5,1642  E5,1440               TEMPADD            =        GENPL      +4                         
004270,002531: E5,1642  E5,1441               TEMP               =        GENPL      +5                         
004271,002532: E5,1642  E5,1442               NOBITS             =        GENPL      +6                         
004272,002533: E5,1642  E5,1443               CHAN               =        GENPL      +7                         
004273,002534: 
004274,002535: E5,1642  E5,1444               LOS1               =        GENPL      +8D                        
004275,002536: E5,1642  E5,1452               LOS2               =        GENPL      +14D                       
004276,002537: 
004277,002538: E5,1642  E5,1460               CALCDIR            EQUALS   GENPL      +20D                       
004278,002539: E5,1642  E5,1461               CDUFLAG            EQUALS   GENPL      +21D                       
004279,002540: E5,1642  E5,1462               GYTOBETQ           EQUALS   GENPL      +22D                       
004280,002541: E5,1642  E5,1463               OPTNREG            EQUALS   GENPL      +23D                       
004281,002542: E5,1642  E5,1464               SAVE               EQUALS   GENPL      +24D                       #  THREE  ONSEC LOC
004282,002543: E5,1642  E5,1467               SFCONST1           EQUALS   GENPL      +27D                       
004283,002544: E5,1642  E5,1470               TIMER              EQUALS   GENPL      +28D                       
004284,002545: 
004285,002546: E5,1642  E5,1472               DATAPL             EQUALS   GENPL      +30D                       
004286,002547: E5,1642  E5,1434               RDSP               EQUALS   GENPL                                 #  FIX LA ER   POSSIBLY KEEP1
004287,002548: E5,1642  E5,1534               MASKREG            EQUALS   GENPL      +64D                       
004288,002549: E5,1642  E5,1536               CDUNDX             EQUALS   GENPL      +66D                       
004289,002550: E5,1642  E5,1537               RESULTCT           EQUALS   GENPL      +67D                       
004290,002551: E5,1642  E5,1542               COUNTPL            EQUALS   GENPL      +70D                       
004291,002552: 
004292,002553: E5,1642  E5,1543               CDUANG             EQUALS   GENPL      +71D                       
004293,002554: 
004294,002555: E5,1642  E5,1434               AINLA              =        GENPL                                 #  110 DE  OR 156 OCT LOCATIONS
004295,002556: 
004296,002557: E5,1642  E5,1434               WANGO              EQUALS   AINLA                                 #  VERT E ATE
004297,002558: E5,1642  E5,1436               WANGI              EQUALS   AINLA      +2D                        #  HORIZO TAL ERATE
004298,002559: E5,1642  E5,1440               WANGT              EQUALS   AINLA      +4D                        #  T
004299,002560: E5,1642  E5,1440               TORQNDX            =        WANGT                                 
004300,002561: E5,1642  E5,1442               DRIFTT             EQUALS   AINLA      +6D                        
004301,002562: E5,1642  E5,1444               ALX1S              EQUALS   AINLA      +8D                        
004302,002563: E5,1642  E5,1445               CMPX1              EQUALS   AINLA      +9D                        #  IND
004303,002564: E5,1642  E5,1446               ALK                EQUALS   AINLA      +10D                       #  GAINS
004304,002565: E5,1642  E5,1462               VLAUNS             EQUALS   AINLA      +22D                       
004305,002566: E5,1642  E5,1464               WPLATO             EQUALS   AINLA      +24D                       
004306,002567: E5,1642  E5,1470               INTY               EQUALS   AINLA      +28D                       #  SOUTH  IP INTE
004307,002568: E5,1642  E5,1472               ANGZ               EQUALS   AINLA      +30D                       #  EAST A IS
004308,002569: E5,1642  E5,1474               INTZ               EQUALS   AINLA      +32D                       #  EAST P P I
004309,002570: E5,1642  E5,1476               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
004310,002571: E5,1642  E5,1500               ANGX               EQUALS   AINLA      +36D                       #  VE
004311,002572: E5,1642  E5,1502               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
004312,002573: E5,1642  E5,1504               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
004313,002574: E5,1642  E5,1510               VLAUN              EQUALS   AINLA      +44D                       
004314,002575: E5,1642  E5,1512               ACCWD              EQUALS   AINLA      +46D                       
004315,002576: E5,1642  E5,1520               POSNV              EQUALS   AINLA      +52D                       
004316,002577: E5,1642  E5,1522               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
004317,002578: E5,1642  E5,1526               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH  IP INCREMENT
004318,002579: E5,1642  E5,1530               ALTIM              EQUALS   AINLA      +60D                       
004319,002580: E5,1642  E5,1531               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
004320,002581: E5,1642  E5,1532               ALDK               EQUALS   AINLA      +62D                       #   TIME  ONSTAN
004321,002582: E5,1642  E5,1550               DELM               EQUALS   AINLA      +76D                       
004322,002583: E5,1642  E5,1560               WPLATI             EQUALS   AINLA      +84D                       
004323,002584: E5,1642  E5,1562               GEOCOMPS           EQUALS   AINLA      +86D                       
004324,002585: E5,1642  E5,1563               ERCOMP             EQUALS   AINLA      +87D                       
004325,002586: E5,1642  E5,1571               ZERONDX            EQUALS   AINLA      +93D                       
004326,002587: 
004327,002588: E5,1642  E5,1452               THETAN             =        ALK        +4                         
004328,002589: E5,1642  E5,1460               FILDELV            EQUALS   THETAN     +6                         #   AGS ALIGNMENT STORAGE
004329,002590: E5,1642  E5,1462               INTVEC             EQUALS   FILDELV    +2                         
004330,002591: E5,1642  E5,1572               1SECXT             =        AINLA      +94D                       
004331,002592: E5,1642  E5,1573               ASECXT             =        AINLA      +95D                       
004332,002593: E5,1642  E5,1574               PERFDLAY           EQUALS   AINLA      +96D                       #  B(2) DELAY TIME BEF. START DRIFT MEASURE
004333,002594: E5,1642  E5,1576               OVFLOWCK           EQUALS   AINLA      +98D                       #  (1) SET MEANS OVERFLOW IN IMU PERF TEST
004334,002595:                                                                                                  #      AND CAUSES TERMINATION
004335,002596: 
004336,002597: 
004337,002598: E5,1642  E5,1774               END-E5             EQUALS   STARSAV2   +6                         #  *** FIRST FREE LOCATION IN E5***
004338,002599: 
004339,002600:                                                                                                  #           EBANK-6 ASSIGNMENTS.
004340,002601: 
004341,002602: E6,1400                                           SETLOC   3000                                  
004342,002603: 
004343,002604:                                                                                                  #           DAP    PAD-LOADED    DATA.                          (10D)
004344,002605: 
004345,002606:                                                                                                  #    ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
004346,002607: 
004347,002608: E6,1400                        HIASCENT           ERASE                                          #  (1) MASS AFTER STAGING, SCALE AT B16 KG.
004348,002609: E6,1401                        ROLLTIME           ERASE                                          #  (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
004349,002610: E6,1402                        PITTIME            ERASE                                          #  (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
004350,002611: E6,1403                        DKTRAP             ERASE                                          #  (1) DAP STATE            (POSSIBLE 77001
004351,002612: E6,1404                        DKOMEGAN           ERASE                                          #  (1)   ESTIMATOR PARA-      (VALUES 00012
004352,002613: E6,1405                        DKKAOSN            ERASE                                          #  (1)      METERS FOR THE           00074
004353,002614: E6,1406                        LMTRAP             ERASE                                          #  (1)         DOCKED AND            77001
004354,002615: E6,1407                        LMOMEGAN           ERASE                                          #  (1)            LEM-ALONE CASES    00000
004355,002616: E6,1410                        LMKAOSN            ERASE                                          #  (1)               RESPECTIVELY    00074
004356,002617: E6,1411                        DKDB               ERASE                                          #  (1) WIDTH OF DEADBAND FOR DOCKED RCS
004357,002618:                                                                                                  #      AUTOPILOT (DB=1.4DEG IN FRESH START)
004358,002619:                                                                                                  #      DEADBAND = PI/DKDB RAD.
004359,002620: 
004360,002621:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:                    (5D)
004361,002622: 
004362,002623: E6,1412                        M11                ERASE                                          #  SCALED AT 1
004363,002624: E6,1413                        M21                ERASE                                          #  SCALED AT 1
004364,002625: E6,1414                        M31                ERASE                                          
004365,002626: E6,1415                        M22                ERASE                                          #  SCALED AT 1.
004366,002627: E6,1416                        M32                ERASE                                          #  SCALED AT 1.
004367,002628: 
004368,002629:                                                                                                  #  ANGLE MEASUREMENTS.                                                   (31D)
004369,002630: 
004370,002631: E6,1417                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
004371,002632: E6,1424  E6,1420               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
004372,002633: E6,1424  E6,1421               OMEGAR             EQUALS   OMEGAP     +2                         
004373,002634:                                                                                                  #     RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
004374,002635: E6,1424  E6,1422               ALPHAQ             EQUALS   OMEGAP     +3                         
004375,002636: E6,1424  E6,1423               ALPHAR             EQUALS   OMEGAP     +4                         
004376,002637: E6,1424                        OMEGAU             ERASE    +1                                    
004377,002638: E6,1426  E6,1425               OMEGAV             =        OMEGAU     +1                         
004378,002639: 
004379,002640: E6,1426                        TRAPEDP            ERASE    +5                                    
004380,002641: E6,1434  E6,1427               TRAPEDQ            =        TRAPEDP    +1                         
004381,002642: E6,1434  E6,1430               TRAPEDR            =        TRAPEDP    +2                         
004382,002643: E6,1434  E6,1431               NPTRAPS            =        TRAPEDP    +3                         
004383,002644: E6,1434  E6,1432               NQTRAPS            =        TRAPEDP    +4                         
004384,002645: E6,1434  E6,1433               NRTRAPS            =        TRAPEDP    +5                         
004385,002646: E6,1434  E6,1543               EDOTP              =        EDOT                                  
004386,002647: E6,1434                        EDOTQ              ERASE    +1                                    
004387,002648: E6,1436  E6,1435               EDOTR              =        EDOTQ      +1                         #   MANY SHARING NAMES
004388,002649: E6,1436  E6,1434               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
004389,002650: 
004390,002651: E6,1436  E6,1435               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
004391,002652: 
004392,002653: E6,1436  E6,1424               URATEDIF           EQUALS   OMEGAU                                
004393,002654: E6,1436  E6,1425               VRATEDIF           EQUALS   OMEGAV                                
004394,002655: E6,1436                        OLDXFORP           ERASE    +2                                    #  STORED CDU READINGS FOR STATE
004395,002656: E6,1441  E6,1437               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
004396,002657: E6,1441  E6,1440               OLDZFORQ           EQUALS   OLDXFORP   +2                         
004397,002658: 
004398,002659: E6,1441                        SUMRATEQ           ERASE    +1                                    #  SUM OF UN-WEIGHTED JETRATE TERMS
004399,002660: E6,1443  E6,1442               SUMRATER           EQUALS   SUMRATEQ   +1                         #  SCALED AT PI/4 RADIANS/SECOND
004400,002661: 
004401,002662:                                                                                                  #  OTHER VARIABLES.                                                      (5D)
004402,002663: 
004403,002664: E6,1443                        OLDPMIN            ERASE                                          #  THESE THREE USED IN MIN IMPULSE MODE.
004404,002665: E6,1444                        OLDQRMIN           ERASE                                          
004405,002666: E6,1445  E6,1734               TEMP31             EQUALS   DAPTEMP1                              
004406,002667: 
004407,002668: E6,1445                        SAVEHAND           ERASE    +1                                    
004408,002669: E6,1447                        1/2JTSP            ERASE                                          
004409,002670: E6,1450                        PERROR             ERASE                                          
004410,002671: E6,1451                        QERROR             ERASE                                          
004411,002672: E6,1452                        RERROR             ERASE                                          
004412,002673:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW      (10D)
004413,002674:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
004414,002675: 
004415,002676: E6,1453                        NXT6ADR            ERASE                                          
004416,002677: E6,1454                        T6NEXT             ERASE    +1                                    
004417,002678: E6,1456                        T6FURTHA           ERASE    +1                                    
004418,002679: E6,1460                        NEXTP              ERASE    +2                                    
004419,002680: E6,1463  E6,1461               NEXTU              =        NEXTP      +1                         
004420,002681: E6,1463  E6,1462               NEXTV              =        NEXTP      +2                         
004421,002682: E6,1463                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
004422,002683: E6,1465  E6,1464               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
004423,002684: E6,1465                        ZEROOR1            ERASE                                          
004424,002685: 
004425,002686: E6,1466  E6,1464               TARGETDB           EQUALS   -RATEDB                               #  MAN. CONTROL TARGET DB COMPLEMENT.
004426,002687: 
004427,002688:                                                                                                  #      *** Q,R AXIS ERASABLES ***                                        (3)
004428,002689: 
004429,002690: E6,1466     5015               PBIT               EQUALS   BIT10                                 
004430,002691: E6,1466     5014               QRBIT              EQUALS   BIT11                                 
004431,002692: E6,1466                        UERROR             ERASE    +1                                    #  U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
004432,002693: E6,1470  E6,1467               VERROR             =        UERROR     +1                         
004433,002694: E6,1470                        RETJADR            ERASE                                          
004434,002695: 
004435,002696: E6,1471  E6,1737               TEMPNUM            EQUALS   DAPTEMP4                              
004436,002697: E6,1471  E6,1740               NUMBERT            EQUALS   DAPTEMP5                              
004437,002698: E6,1471  E6,1741               ROTINDEX           EQUALS   DAPTEMP6                              
004438,002699: E6,1471  E6,1734               ROTEMP1            EQUALS   DAPTEMP1                              
004439,002700: E6,1471  E6,1735               ROTEMP2            EQUALS   DAPTEMP2                              
004440,002701: E6,1471                        AXISCTR            ERASE                                          
004441,002702: E6,1472  E6,1736               POLYTEMP           EQUALS   DAPTEMP3                              
004442,002703: E6,1472                        SENSETYP           ERASE                                          
004443,002704: E6,1473  E6,1734               ABSTJ              EQUALS   DAPTEMP1                              #  ABS VALUE OF JET-FIRING TIME
004444,002705: E6,1473  E6,1734               ABSEDOTP           EQUALS   DAPTEMP1                              
004445,002706: E6,1473  E6,1734               ANYTRANS           EQUALS   DAPTEMP1                              
004446,002707: 
004447,002708: E6,1473  E6,1745               DPSBURN            EQUALS   DAPTREG4                              #  USED WITH SNUFFBIT.  VERY TEMPORARY.
004448,002709: 
004449,002710:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:                            (11D)
004450,002711: 
004451,002712: E6,1473  E6,1734               GTSTEMPS           EQUALS   DAPTEMP1                              #  GTS IS PART OF THE JASK.
004452,002713: E6,1473  E6,1736               SHFTFLAG           EQUALS   GTSTEMPS   +2                         #  COUNT HIGH ORDER ZERO BITS FOR SHIFTING.
004453,002714: 
004454,002715: E6,1473  E6,1737               ININDEX            EQUALS   GTSTEMPS   +3                         #  INDEX FOR SHIFT LOOP.
004455,002716: 
004456,002717: E6,1473  E6,1471               SAVESR             EQUALS   AXISCTR                               #  CANNOT BE A DAPTEMP - GTS USES THEM ALL.
004457,002718: 
004458,002719: E6,1473  E6,1741               SCRATCH            EQUALS   GTSTEMPS   +5                         #  ERASABLE FOR ROOTCYCL
004459,002720: E6,1473  E6,1742               HALFARG            EQUALS   GTSTEMPS   +6                         
004460,002721: 
004461,002722: E6,1473  E6,1734               K2THETA            EQUALS   GTSTEMPS                              #  D.P. K(2)THETA AND NEGUSUM
004462,002723: E6,1473  E6,1736               A2CNTRAL           EQUALS   GTSTEMPS   +2                         #  D.P. ALPHA(2), AT PI(2)/164 RAD/SEC(2)
004463,002724: E6,1473  E6,1740               KCENTRAL           EQUALS   GTSTEMPS   +4                         #  S.P. K FROM KQ OR KR, AT PI/2(8)
004464,002725: E6,1473  E6,1740               OMEGA.K            EQUALS   KCENTRAL                              #  D.P. OMEGA*K   OVERLAYS K AND K(2)
004465,002726: E6,1473  E6,1741               K2CNTRAL           EQUALS   GTSTEMPS   +5                         #  S.P. K(2) FROM Q OR R, AT PI(2)/2(16)
004466,002727: E6,1473  E6,1742               WCENTRAL           EQUALS   GTSTEMPS   +6                         #  S.P. OMEGA, AT PI/4 RAD/SEC
004467,002728: E6,1473  E6,1743               ACENTRAL           EQUALS   GTSTEMPS   +7                         #  S.P. ALPHA, AT PI/8 RAD/SEC(2)
004468,002729: E6,1473  E6,1744               DEL                EQUALS   GTSTEMPS   +8D                        #  S.P. SGN FUNCTION VALUE
004469,002730: 
004470,002731: E6,1473  E6,1745               QRCNTR             EQUALS   GTSTEMPS   +9D                        #  INDEX FOR GTS LOOP THROUGH Q,R AXES.
004471,002732: 
004472,002733: E6,1473                        FUNCTION           ERASE    +1                                    #  D.P. WORD FOR DRIVE FUNCTION
004473,002734: 
004474,002735: E6,1475                        SCRATCHX           ERASE    +2                                    #  SCRATCH AREA FOR DVOVSUB ROUTINE.
004475,002736: E6,1500  E6,1476               SCRATCHY           EQUALS   SCRATCHX   +1                         
004476,002737: E6,1500  E6,1477               SCRATCHZ           EQUALS   SCRATCHX   +2                         
004477,002738: 
004478,002739: E6,1500                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
004479,002740:                                                                                                  #                                NEGUQ +1               DEFINED AND USED ELSEWHERE
004480,002741: E6,1503  E6,1502               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
004481,002742: 
004482,002743: E6,1503                        KQ                 ERASE    +3                                    #  .3ACCDOTQ SCALED AT PI/2(8)
004483,002744: E6,1507  E6,1504               KQ2                EQUALS   KQ         +1                         #  KQ2 = KQ*KQ
004484,002745: E6,1507  E6,1505               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
004485,002746: E6,1507  E6,1506               KR2                EQUALS   KQ         +3                         #  KR2 = KR*KR
004486,002747: 
004487,002748: E6,1507                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
004488,002749: E6,1513  E6,1510               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
004489,002750: E6,1513  E6,1511               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
004490,002751: E6,1513  E6,1512               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
004491,002752: 
004492,002753: E6,1513  E6,1451               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
004493,002754: E6,1513  E6,1452               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
004494,002755: 
004495,002756: 
004496,002757: 
004497,002758: 
004498,002759:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:                               (18D)
004499,002760: 
004500,002761: E6,1513  E6,1742               JETRATE            EQUALS   DAPTREG1                              
004501,002762: E6,1513  E6,1743               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
004502,002763: E6,1513  E6,1744               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
004503,002764: 
004504,002765: 
004505,002766: E6,1513                        NO.PJETS           ERASE    +2                                    
004506,002767: E6,1516  E6,1514               NO.UJETS           =        NO.PJETS   +1                         
004507,002768: E6,1516  E6,1515               NO.VJETS           =        NO.UJETS   +1                         
004508,002769: E6,1516                        TJP                ERASE    +2                                    
004509,002770: E6,1521  E6,1517               TJU                =        TJP        +1                         
004510,002771: E6,1521  E6,1520               TJV                =        TJP        +2                         
004511,002772: 
004512,002773: E6,1521                        L,PVT-CG           ERASE                                          
004513,002774: E6,1522                        1JACC              ERASE    +4                                    #  ACCELERATIONS DUE TO 1 JET TORQUING
004514,002775: E6,1527  E6,1523               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
004515,002776: E6,1527  E6,1524               1JACCR             EQUALS   1JACC      +2                         
004516,002777: E6,1527  E6,1525               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
004517,002778: E6,1527  E6,1526               1JACCV             EQUALS   1JACC      +4                         #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
004518,002779: 
004519,002780: E6,1527                        PJUMPADR           ERASE                                          
004520,002781: 
004521,002782:                                                                                                  #  ASCENT VARIABLES:                                                     (10D)
004522,002783: 
004523,002784: E6,1530                        SKIPU              ERASE    +1                                    
004524,002785: E6,1532  E6,1531               SKIPV              =        SKIPU      +1                         
004525,002786:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
004526,002787:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
004527,002788:                                                                                                  #  SECTIONS AND ELSEWHERE.
004528,002789: 
004529,002790: E6,1532                        AOSQ               ERASE    +5                                    #  OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
004530,002791: E6,1540  E6,1534               AOSR               EQUALS   AOSQ       +2                         #  AND SCALED AT PI/2.
004531,002792: E6,1540  E6,1536               AOSU               EQUALS   AOSQ       +4                         #  UV-AXES OFFSET ACC. FROMED BY VECTOR
004532,002793: E6,1540  E6,1537               AOSV               EQUALS   AOSQ       +5                         #  ADDITION OF Q,R.  AT PI/2 RAD/SEC(2).
004533,002794: 
004534,002795: E6,1540                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
004535,002796: E6,1542  E6,1541               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
004536,002797: 
004537,002798:                                                                                                  #  FOR TJET LAW SUBROUTINE:                                              (TEMPS ONLY)
004538,002799: 
004539,002800:                                                                                                  # NUMBERT        EQUALS          DAPTEMP5                  DEFINED IN QRAXIS.
004540,002801: E6,1542  E6,1734               EDOTSQ             EQUALS   DAPTEMP1                              
004541,002802: E6,1542  E6,1735               ROTSENSE           EQUALS   DAPTEMP2                              
004542,002803: E6,1542  E6,1736               FIREFCT            EQUALS   DAPTEMP3                              #  LOOKED AT BY PAXIS.
004543,002804: E6,1542  E6,1737               TTOAXIS            EQUALS   DAPTEMP4                              
004544,002805: E6,1542  E6,1741               ADRSDIF2           EQUALS   DAPTEMP6                              
004545,002806: E6,1542  E6,1742               HOLDQ              EQUALS   DAPTREG1                              
004546,002807: E6,1542  E6,1743               ADRSDIF1           EQUALS   DAPTREG2                              
004547,002808: E6,1542  E6,1744               HH                 EQUALS   DAPTREG3                              #  DOUBLE PRECISION
004548,002809: 
004549,002810:                                                                                                  #  HH +1         EQUALS          DAPTREG4
004550,002811: E6,1542                        E                  ERASE    +1                                    
004551,002812: E6,1544  E6,1543               EDOT               EQUALS   E          +1                         
004552,002813: 
004553,002814:                                                                                                  #  INPUT TO TJET LAW (PERMANENT ERASABLES).                              (48D)
004554,002815: 
004555,002816: E6,1544  E6,1517               TJETU              =        TJU                                   #  EQUATE NAMES.  INDEXED BY -1, 0, +1.
004556,002817: E6,1544                        BLOCKTOP           ERASE    +47D                                  
004557,002818: E6,1624  E6,1564               1/ANET1            =        BLOCKTOP   +16D                       #  THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
004558,002819: E6,1624  E6,1565               1/ANET2            =        1/ANET1    +1                         #  FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
004559,002820: E6,1624  E6,1570               1/ACOAST           =        1/ANET1    +4                         #  EDOT IS POSITIVE.  TJETLAW INDEXES BY
004560,002821: E6,1624  E6,1572               ACCFCTZ1           =        1/ANET1    +6                         #  ADRSDIFF FROM THESE REGISTERS TO PICK UP
004561,002822: E6,1624  E6,1573               ACCFCTZ5           =        1/ANET1    +7                         #  PARAMETERS FOR THE PROPER AXIS, NUMBER
004562,002823: E6,1624  E6,1576               FIREDB             =        1/ANET1    +10D                       #  OF JETS AND SIGN OF EDOT.  THERE ARE 48
004563,002824: E6,1624  E6,1600               COASTDB            =        1/ANET1    +12D                       #  REGISTERS IN ALL IN THIS BLOCK.
004564,002825: E6,1624  E6,1602               AXISDIST           =        1/ANET1    +14D                       #  FOUR NOT REFERENCED (P-AXIS) ARE FILLED
004565,002826:                                                                                                  #    IN BY THE FOLLOWING:
004566,002827: E6,1624  E6,1544               ACCSWU             =        BLOCKTOP                              #  SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
004567,002828: E6,1624  E6,1545               ACCSWV             =        ACCSWU     +1                         #  JETS ARE REQUIRED BECAUSE OF AOS.
004568,002829: E6,1624  E6,1552               FLAT               =        BLOCKTOP   +6                         #  WIDTH OF MINIMUM IMPULSE ZONE.
004569,002830: E6,1624  E6,1553               ZONE3LIM           =        BLOCKTOP   +7                         #  HEIGHT OF MINIMUM IMPULSE ZONE(AT 4 SEC)
004570,002831: 
004571,002832: 
004572,002833: 
004573,002834:                                                                                                  #  VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE.                            (4)
004574,002835: 
004575,002836: E6,1624                        ALLOWGTS           ERASE                                          #  INSERT INTO UNUSED LOCATION
004576,002837: E6,1625                        COTROLER           ERASE                                          #  INDICATES WHICH CONTROL SYSTEM TO USE.
004577,002838: E6,1626                        QGIMTIMR           ERASE    +2                                    #  Q-GIMBAL DRIVE ITMER, DECISECONDS.
004578,002839: E6,1631  E6,1627               INGTS              EQUALS   QGIMTIMR   +1                         #  INDICATOR OF CURRENT GTS CONTROL.
004579,002840: E6,1631  E6,1630               RGIMTIMR           EQUALS   QGIMTIMR   +2                         #  R-GIMBAL DRIVE TIMER, DECISECONDS.
004580,002841: 
004581,002842:                                                                                                  #  PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
004582,002843: 
004583,002844:                                                                                                  #           KALCMANU:DAP INTERFACE.                                      (9D)
004584,002845: 
004585,002846: E6,1631                        ACCSET             ERASE                                          #  INDICATES 1/ACCS HAS BEEN SET UP
004586,002847: E6,1632                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
004587,002848: E6,1635  E6,1633               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
004588,002849: E6,1635  E6,1634               CDUZD              EQUALS   CDUXD      +2                         #  (STORE IN 2S COMPLEMENT)
004589,002850: 
004590,002851: E6,1635                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
004591,002852: E6,1640  E6,1636               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
004592,002853: E6,1640  E6,1637               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORE IN 2S COMPLEMENT)
004593,002854: 
004594,002855:                                                                                                  #     RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
004595,002856: E6,1640                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES:
004596,002857: E6,1643  E6,1641               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
004597,002858: E6,1643  E6,1642               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
004598,002859: 
004599,002860:                                                                                                  #  KALCMANU STORAGE.                                                     (24D)
004600,002861: 
004601,002862: E6,1643                        MIS                ERASE    +23D                                  #  I(18D)
004602,002863: E6,1673  E6,1665               COF                EQUALS   MIS        +18D                       #  I(6)
004603,002864: 
004604,002865: 
004605,002866:                                                                                                  #           KALCMANU STORAGE.                                             (33D)
004606,002867: 
004607,002868: E6,1673                        BCDU               ERASE    +30D                                  #  B(3)
004608,002869: E6,1732  E6,1676               KSPNDX             EQUALS   BCDU       +3                         #  B(1)
004609,002870: E6,1732  E6,1677               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)
004610,002871: 
004611,002872: E6,1732  E6,1700               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
004612,002873: E6,1732  E6,1722               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
004613,002874: E6,1732  E6,1730               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
004614,002875: 
004615,002876: 
004616,002877: E6,1732                        AM                 ERASE    +1                                    #  I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
004617,002878: 
004618,002879: 
004619,002880:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU                                      (25D)
004620,002881: 
004621,002882: E6,1734  E6,1700               KV1                EQUALS   TMIS                                  #  I(6)
004622,002883: E6,1734  E6,1700               MFISYM             EQUALS   TMIS                                  #  I
004623,002884: E6,1734  E6,1700               TMFI               EQUALS   TMIS                                  #  I
004624,002885: E6,1734  E6,1700               NCDU               EQUALS   TMIS                                  #  B
004625,002886: E6,1734  E6,1703               NEXTIME            EQUALS   TMIS       +3                         #  B
004626,002887: E6,1734  E6,1704               TTEMP              EQUALS   TMIS       +4                         #  B
004627,002888: E6,1734  E6,1706               KV2                EQUALS   TMIS       +6                         #  I(6)
004628,002889: E6,1734  E6,1706               BIASTEMP           EQUALS   TMIS       +6                         #  B
004629,002890: E6,1734  E6,1714               KV3                EQUALS   TMIS       +12D                       #  I(6)
004630,002891: E6,1734  E6,1714               OGF                EQUALS   TMIS       +12D                       #  I
004631,002892: 
004632,002893: E6,1734  E6,1722               BRATE              EQUALS   COFSKEW                               #  B
004633,002894: E6,1734  E6,1722               IG                 EQUALS   COFSKEW                               #  I
004634,002895: 
004635,002896: E6,1734  E6,1730               TM                 EQUALS   CAM                                   #  B
004636,002897: 
004637,002898:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU                                     (24D)
004638,002899: 
004639,002900: E6,1734  E6,1700               K1                 =        KV1                                   
004640,002901: E6,1734  E6,1706               K2                 =        KV2                                   
004641,002902: E6,1734  E6,1714               K3                 =        KV3                                   
004642,002903: E6,1734  E6,1700               P21                EQUALS   KV1                                   #  I(2)
004643,002904: E6,1734  E6,1702               D21                EQUALS   KV1        +2                         #  I(2)
004644,002905: E6,1734  E6,1704               G21                EQUALS   KV1        +4                         #  I(2)
004645,002906: E6,1734  E6,1706               C2SQP              EQUALS   KV2                                   #  I(2)
004646,002907: E6,1734  E6,1710               C2SQM              EQUALS   KV2        +2                         #  I(2)
004647,002908: E6,1734  E6,1712               C2PP               EQUALS   KV2        +4                         #  I(2)
004648,002909: E6,1734  E6,1714               C2MP               EQUALS   KV3                                   #  I(2)
004649,002910: E6,1734  E6,1716               C1PP               EQUALS   KV3        +2                         #  I(2)
004650,002911: E6,1734  E6,1720               C1MP               EQUALS   KV3        +4                         #  I(2)
004651,002912: 
004652,002913: E6,1734  E6,1722               VECQTEMP           =        COFSKEW                               
004653,002914: 
004654,002915: E6,1734  E6,1632               DCDU               =        CDUXD                                 
004655,002916: E6,1734  E6,1635               DELDCDU            =        DELCDUX                               
004656,002917: E6,1734  E6,1636               DELDCDU1           =        DELCDUY                               
004657,002918: E6,1734  E6,1637               DELDCDU2           =        DELCDUZ                               
004658,002919: 
004659,002920: 
004660,002921:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
004661,002922: 
004662,002923:                                                                                                  #  STORAGE FOR FINDCDUW
004663,002924: 
004664,002925:                                                                                                  #           OVERLAYING KALCMANU STORAGE:                                 (26D)
004665,002926: 
004666,002927: E6,1734  E6,1643               ECDUW              EQUALS   MIS                                   
004667,002928: E6,1734  E6,1643               ECDUWUSR           EQUALS   ECDUW                                 #  B(1)TMP
004668,002929: E6,1734  E6,1644               QCDUWUSR           EQUALS   ECDUWUSR   +1                         #  I(1)TMP
004669,002930: E6,1734  E6,1645               NDXCDUW            EQUALS   QCDUWUSR   +1                         #  B(1)TMP
004670,002931: E6,1734  E6,1646               FLAGOODW           EQUALS   NDXCDUW    +1                         #  B(1)TMP
004671,002932: E6,1734  E6,1647               UNFC/2             EQUALS   FLAGOODW   +1                         #  I(6)IN
004672,002933: E6,1734  E6,1655               UNWC/2             EQUALS   UNFC/2     +6                         #  I(6)IN
004673,002934: E6,1734  E6,1663               UNFV/2             EQUALS   UNWC/2     +6                         #  I(6) S-S
004674,002935: E6,1734  E6,1663               UNFVX/2            =        UNFV/2                                
004675,002936: E6,1734  E6,1665               UNFVY/2            =        UNFV/2     +2                         
004676,002937: E6,1734  E6,1667               UNFVZ/2            =        UNFV/2     +4                         
004677,002938: E6,1734  E6,1671               -DELGMB            EQUALS   UNFV/2     +6                         #  B(3)TMP
004678,002939: 
004679,002940:                                                                                                  #           DEFINED IN THE WORK AREA:                                    (18D)
004680,002941: 
004681,002942: E6,1734                        UNX/2              =        0                                     
004682,002943: E6,1734                        UNY/2              =        6                                     
004683,002944: E6,1734                        UNZ/2              =        14                                    
004684,002945: 
004685,002946:                                                                                                  #  END OF FINDCDUW ERASABLES
004686,002947: 
004687,002948:                                                                                                  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *
004688,002949: 
004689,002950:                                                                                                  #  THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
004690,002951:                                                                                                  #  ...ANYWAY, THE DAP CAN NOW BE INTERRUPTED.                            (16D)
004691,002952: 
004692,002953: E6,1734                        DAPTEMP1           ERASE    +15D                                  
004693,002954: E6,1754  E6,1735               DAPTEMP2           EQUALS   DAPTEMP1   +1                         
004694,002955: E6,1754  E6,1736               DAPTEMP3           EQUALS   DAPTEMP1   +2                         
004695,002956: E6,1754  E6,1737               DAPTEMP4           EQUALS   DAPTEMP1   +3                         
004696,002957: E6,1754  E6,1740               DAPTEMP5           EQUALS   DAPTEMP1   +4                         
004697,002958: E6,1754  E6,1741               DAPTEMP6           EQUALS   DAPTEMP1   +5                         
004698,002959: E6,1754  E6,1742               DAPTREG1           EQUALS   DAPTEMP1   +6                         
004699,002960: E6,1754  E6,1743               DAPTREG2           EQUALS   DAPTEMP1   +7                         
004700,002961: E6,1754  E6,1744               DAPTREG3           EQUALS   DAPTEMP1   +8D                        
004701,002962: 
004702,002963: E6,1754  E6,1745               DAPTREG4           EQUALS   DAPTEMP1   +9D                        
004703,002964: E6,1754  E6,1746               DAPTREG5           EQUALS   DAPTEMP1   +10D                       
004704,002965: E6,1754  E6,1747               DAPTREG6           EQUALS   DAPTEMP1   +11D                       
004705,002966: 
004706,002967: E6,1754  E6,1746               DAPARUPT           EQUALS   DAPTEMP1   +10D                       
004707,002968: E6,1754  E6,1747               DAPLRUPT           EQUALS   DAPARUPT   +1                         
004708,002969: E6,1754  E6,1750               DAPBQRPT           EQUALS   DAPARUPT   +2                         
004709,002970: E6,1754  E6,1752               DAPZRUPT           EQUALS   DAPARUPT   +4                         
004710,002971: 
004711,002972:                                                                                                  #  (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
004712,002973: 
004713,002974: 
004714,002975: 
004715,002976:                                                                                                  #           NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE.          (6D)
004716,002977: 
004717,002978: E6,1754     0061               T5TEMP             EQUALS   ITEMP1                                
004718,002979: E6,1754     0063               DINDX              EQUALS   ITEMP3                                
004719,002980: E6,1754                        AK                 ERASE    +2                                    #  NEEDLER ATTITUDE INPUTS, SCALED AT 180
004720,002981: E6,1757  E6,1755               AK1                EQUALS   AK         +1                         #  DEGREES.  P,Q,R AXES IN AK,AK1,AK2.
004721,002982: E6,1757  E6,1756               AK2                EQUALS   AK         +2                         
004722,002983: 
004723,002984: E6,1757                        EDRIVEX            ERASE    +2                                    #  NEEDLER DISPLAY REGS AT 1800 DEGREES.
004724,002985: E6,1762  E6,1760               EDRIVEY            EQUALS   EDRIVEX    +1                         #  SO THAT 384 BITS REPRESENT 42 3/16 DEG.
004725,002986: E6,1762  E6,1761               EDRIVEZ            EQUALS   EDRIVEX    +2                         
004726,002987: 
004727,002988: 
004728,002989:                                                                                                  #           INITVEL STORAGE.  ALSO USED BY P31,P34,P35,P74,P75,S40.1 AND DOWNLINKED. (6D)
004729,002990: 
004730,002991: E6,1762                        DELVEET3           ERASE    +5                                    #  I(6)     DELTA V IN INERTIAL
004731,002992: 
004732,002993: 
004733,002994:                                                                                                  #           P32-P33 STORAGE.                                             (2)
004734,002995: 
004735,002996: E6,1770                        TCDH               ERASE    +1                                    #   I(2) T2 CDH TIME IN C.S. ALSO DWNLINKED
004736,002997: 
004737,002998: 
004738,002999: E6,1772  E4,1733               END-E6             EQUALS   RTX2                                  #  LAST LOCATION USED IN E6.
004739,003000: 
004740,003001:                                                                                                  #                  EBANK-7 ASSIGNMENTS
004741,003002: 
004742,003003: E7,1400                                           SETLOC   3400                                  
004743,003004: 
004744,003005: 
004745,003006:                                                                                                  #           P35 CONSTANTS.         -PAD LOADED-                          (4D)
004746,003007: 
004747,003008: E7,1400                        ATIGINC            ERASE    +1                                    #  B(2)PL  *MUST BE AT 1400 FOR SYSTEMSTEST
004748,003009: E7,1402                        PTIGINC            ERASE    +1                                    #  B(2)PL
004749,003010: 
004750,003011: 
004751,003012:                                                                                                  #           AOTMARK STORAGE.       -PAD LOADED-                          (6D)
004752,003013: 
004753,003014: E7,1404                        AOTAZ              ERASE    +2                                    #  B(3)PL
004754,003015: E7,1407                        AOTEL              ERASE    +2                                    #  B(3)PL
004755,003016: 
004756,003017: 
004757,003018:                                                                                                  #           LANDING RADAR.         -PAD LOADED-                          (10D)
004758,003019: 
004759,003020: E7,1412                        LRALPHA            ERASE    +4                                    #  B(1)    POS1 X ROTATION      * MUST *
004760,003021: E7,1417  E7,1413               LRBETA1            EQUALS   LRALPHA    +1                         #  B(1)    POS1 Y ROTATION    *  BE  *
004761,003022: E7,1417  E7,1414               LRALPHA2           EQUALS   LRBETA1    +1                         #  B(1)    POS2 X ROTATION    *  IN  *
004762,003023: E7,1417  E7,1415               LRBETA2            EQUALS   LRALPHA2   +1                         #  B(1)    POS2 Y ROTATION    * ORDER *
004763,003024: E7,1417  E7,1416               HANGLE             EQUALS   LRBETA2    +1                         #  B(1)
004764,003025: 
004765,003026:                                                                                                  #           THROTTLE STORAGE.      -PAD LOADED-                          (1D)
004766,003027: 
004767,003028: E7,1417                        PIF                ERASE                                          #  B(2)   THROTTLE
004768,003029: E7,1420                        ZOOMTDP            ERASE    +1                                    
004769,003030: E7,1422  E7,1421               ZOOMTIME           EQUALS   ZOOMTDP    +1                         #  B(1)PL TIME OF DPS THROTTLE-UP COMMAND
004770,003031: 
004771,003032:                                                                                                  #           LANDING RADAR      -PAD LOADED-                              (2D)
004772,003033: 
004773,003034:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                   (2D)
004774,003035: 
004775,003036: E7,1422                        TIG(AS)            ERASE    +1                                    #  B(2)
004776,003037: E7,1424                        TIG                ERASE    +1                                    #  B(2)
004777,003038: 
004778,003039:                                                                                                  #           P30-P40 INTERFACE UNSHARED.                                  (3D)
004779,003040: 
004780,003041: E7,1426                        TTOGO              ERASE    +1                                    #  B(2)
004781,003042: E7,1430  E7,1426               TFI                EQUALS   TTOGO                                 
004782,003043: E7,1430                        WHICH              ERASE                                          #  B(1)
004783,003044: 
004784,003045: 
004785,003046:                                                                                                  #           LPS20.1 STORAGE     -ALL ARE PRM -                           (9D)
004786,003047: 
004787,003048: E7,1431                        LS21X              ERASE                                          #  I(1)
004788,003049: E7,1432                        UNUSED8            ERASE                                          
004789,003050: E7,1433                        LOSCOUNT           ERASE                                          #  B(1)
004790,003051: E7,1434                        LOSVEL             ERASE    +5                                    #  I(6)
004791,003052: E7,1442                        MLOSV              ERASE    +1                                    #  I(2) MAGNITUDE OF LOS, METERS B-29
004792,003053: 
004793,003054: 
004794,003055: 
004795,003056:                                                                                                  #           L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE.                    (4D)
004796,003057: 
004797,003058:                                                                                                  #     RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
004798,003059: E7,1444                        AIG                ERASE                                          #  B(1)OUT  GIMGAL ANGLES
004799,003060: E7,1445                        AMG                ERASE                                          #  B(1)OUT  (MUST BE
004800,003061: E7,1446                        AOG                ERASE                                          #  B(1)OUT   CONSECUTIVE)
004801,003062: 
004802,003063: E7,1447                        TRKMKCNT           ERASE                                          #  B(1)TMP  TEMPORARY MARK STORAGE.
004803,003064: E7,1450  E7,1447               MARKCTR            =        TRKMKCNT                              
004804,003065: 
004805,003066: 
004806,003067:                                                                                                  #           P32-P35, P72-P75 STORAGE.  -PERMANENT-                       (6)
004807,003068: 
004808,003069: E7,1450                        NORMEX             ERASE                                          #  B(1) PRM SAVE FOR Q
004809,003070: E7,1451                        QSAVED             ERASE                                          #  B(1) PRM SAVE FOR Q
004810,003071: E7,1452                        RTRN               ERASE                                          #  B(1) PRM SAVE FOR Q
004811,003072: E7,1453                        NN                 ERASE    +1                                    #  B(2)
004812,003073: E7,1455                        SUBEXIT            ERASE                                          #  B(1) PRM SAVE Q
004813,003074: 
004814,003075: 
004815,003076: E7,1456                        E7OVERLA           EQUALS                                         #           START OF E7 OVERLAYS
004816,003077: 
004817,003078: E7,1456  E7,1456               WHOCARES           EQUALS   E7OVERLA                              #  A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
004818,003079: 
004819,003080:                                                                                                  #  *******  OVERLAY NUMBER 0 IN EBANK 7  *******
004820,003081: 
004821,003082: 
004822,003083: 
004823,003084:                                                                                                  #  RENDEZVOUS GUIDANCE STORAGE -P32....P35-                              (89D)
004824,003085: 
004825,003086: E7,1456  E7,1564               TSTRT              EQUALS   DELDV                                 #  MIDCOURSE START TIME
004826,003087: E7,1456  E7,1560               TDEC2              EQUALS   DELVCSI                               #  TEMP STORAGE FOR INTEGRATION TIME INPUT
004827,003088: E7,1456  E7,1562               KT                 EQUALS   DELVTPI                               #  TEMP STORAGE FOR MIDCOURSE DELTA TIME
004828,003089: E7,1456                        VACT1              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CSI TIME
004829,003090: E7,1464                        RPASS1             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CSI TIME
004830,003091: E7,1472                        VPASS1             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CSI TIME
004831,003092: E7,1500                        VACT2              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT CDH TIME
004832,003093: E7,1506                        RPASS2             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT CDH TIME
004833,003094: E7,1514                        VPASS2             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT CDH TIME
004834,003095: E7,1522                        RACT3              ERASE    +5D                                   #  POSITION VECTOR OF ACTIVE  AT TPI TIME
004835,003096: E7,1530                        VACT3              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT TPI TIME
004836,003097: E7,1536                        RPASS3             ERASE    +5D                                   #  POSITION VECTOR OF PASSIVE AT TPI TIME
004837,003098: E7,1544                        VPASS3             ERASE    +5D                                   #  VELOCITY VECTOR OF PASSIVE AT TPI TIME
004838,003099: E7,1552                        VACT4              ERASE    +5D                                   #  VELOCITY VECTOR OF ACTIVE  AT INTERCEPT
004839,003100: E7,1560  E7,1530               UNVEC              EQUALS   VACT3                                 #  CDHMVR UNIT VECTOR TEMP STORAGE.
004840,003101: E7,1560                        DELVCSI            ERASE    +1D                                   #  THRUST VALUE AT CSI
004841,003102: E7,1562                        DELVTPI            ERASE    +1D                                   #  THRUST VALUE AT TPI OR MID
004842,003103: E7,1564                        DELDV              ERASE    +1D                                   
004843,003104: E7,1566  E7,1562               DELVMID            EQUALS   DELVTPI                               
004844,003105: E7,1566                        DIFFALT            ERASE    +1D                                   #  ALT DIFFERENCE AT CDH
004845,003106: E7,1570                        POSTCSI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CSI MANEUVER
004846,003107: E7,1572                        POSTCDH            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER CDH MANEUVER
004847,003108: E7,1574                        POSTTPI            ERASE    +1                                    #  PERIGEE ALTITUDE AFTER TPI MANEUVER
004848,003109: E7,1576  E7,1574               LOOPCT             EQUALS   POSTTPI                               #  CSI NEWTON ITERATION COUNTER
004849,003110: E7,1576  E7,1572               HAFPA1             EQUALS   POSTCDH                               #  HALF PERIOD
004850,003111: E7,1576                        GAMPREV            ERASE    +1                                    #  PREVIOUS GAMMA
004851,003112: E7,1600  E7,1562               DVPREV             EQUALS   DELVTPI                               #  PREVIOUS DELVCSI
004852,003113: E7,1600                        CSIALRM            ERASE    +1                                    #  FIRST SOLUTION ALARM
004853,003114: E7,1602                        VERBNOUN           ERASE                                          
004854,003115: E7,1603  E7,1600               TITER              EQUALS   CSIALRM                               #  ITERATION COUNTER
004855,003116: E7,1603                        RDOTV              ERASE    +1                                    
004856,003117: E7,1605  E7,1472               VAPREC             EQUALS   VPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
004857,003118: E7,1605  E7,1464               RAPREC             EQUALS   RPASS1                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
004858,003119: E7,1605  E7,1514               VPPREC             EQUALS   VPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
004859,003120: E7,1605  E7,1506               RPPREC             EQUALS   RPASS2                                #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
004860,003121: E7,1605  E7,1562               DELEL              EQUALS   DELVTPI                               #  I(2) S-S
004861,003122: E7,1605  E7,1564               DELTEE             EQUALS   DELDV                                 #  I(2)S-S
004862,003123: E7,1605  E7,1560               SECMAX             EQUALS   DELVCSI                               #  I(2) S-S MAX STOP SIZE FOR ROUTINE
004863,003124: E7,1605  E7,1574               DELTEEO            EQUALS   POSTTPI                               #  I(2) S-S BACK VALUES OF DELTA TIME
004864,003125: E7,1605                        CENTANG            ERASE    +1                                    #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
004865,003126: 
004866,003127:                                                                                                  #          P34-P35 STORAGE.  DOWNLINKED.
004867,003128: 
004868,003129:                                                                                                  #  (2D)
004869,003130: 
004870,003131: E7,1607  E7,1564               DELVTPF            EQUALS   DELDV                                 #  I(2) DELTA V FOR TPF
004871,003132: 
004872,003133:                                                                                                  #           SOME P47 STORAGE                                             (6D)
004873,003134: 
004874,003135: E7,1607                        DELVIMU            ERASE    +5                                    #  I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
004875,003136: 
004876,003137: 
004877,003138:                                                                                                  #           P30-P40 COMMON STORAGE.                                      (3D)
004878,003139: 
004879,003140: E7,1615                        TPASS4             ERASE    +1                                    #  INTERCEPT TIME
004880,003141: E7,1617                        QTEMP              ERASE                                          #  I(1)TMP COMMON RETURN SAVE REGISTER.
004881,003142: 
004882,003143: 
004883,003144: 
004884,003145:                                                                                                  #           P32,33,34 STORAGE.                                            (6D)
004885,003146: 
004886,003147: E7,1620                        TCSI               ERASE    +1                                    #  B(2) TMP CSI TIME IN CENTISECONDS
004887,003148: E7,1622                        TTPI               ERASE    +1                                    #  B(2) TMP TPI TIME IN CENTISECONDS
004888,003149: E7,1624                        TTPI0              ERASE    +1                                    #  B(2) TMP TTPI STORAGE FOR RECYCLE
004889,003150: 
004890,003151: 
004891,003152:                                                                                                  #           P30,P40 INTERFACE.                                            (21D)
004892,003153: 
004893,003154: E7,1626                        RTIG               ERASE    +19D                                  #  I(6)TMP
004894,003155: E7,1652  E7,1634               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
004895,003156: E7,1652  E7,1642               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
004896,003157: E7,1652  E7,1650               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
004897,003158: E7,1652  E7,1650               VGDISP             =        DELVSAB                               
004898,003159: 
004899,003160: 
004900,003161: E7,1652                        QTEMP1             ERASE                                          #  I(1)TMP HOLDS RETURN.
004901,003162: E7,1653  E7,1652               RGEXIT             EQUALS   QTEMP1                                #  SAVE Q
004902,003163: E7,1653  E7,1652               SAVQR52            EQUALS   QTEMP1                                
004903,003164: 
004904,003165: 
004905,003166:                                                                                                  #           INITVEL STORAGE.  (IN OVERLAY 0 AND OVERLAY 1.                (2D)
004906,003167:                                                                                                  #                  (CALLS LAMBERT, CONIC SUBROUTINES)
004907,003168: 
004908,003169: E7,1653  E7,1552               VTPRIME            EQUALS   VACT4                                 #  TOTAL VELOCITY AT DESIRED RADIUS
004909,003170: E7,1653  E7,1603               ITCTR              EQUALS   RDOTV                                 #  ITERATION COUNTER
004910,003171: E7,1653                        COZY4              ERASE    +1                                    #  COS OF ANGLE WHEN ROTATION STARTS
004911,003172: E7,1655  E7,1564               X1INPUT            EQUALS   DELDV                                 #  X1 TEMP STORAGE
004912,003173: E7,1655  E7,1576               INTIME             EQUALS   GAMPREV                               #  TIME OF RINIT
004913,003174: 
004914,003175: 
004915,003176: 
004916,003177:                                                                                                  #           PERIAPO STORAGE. (2D)                                 (2D)
004917,003178: 
004918,003179: E7,1655                        XXXALT             ERASE    +1                                    #  RADIUS TO LAUNCH PAD OR LANDING SIGHT
004919,003180: 
004920,003181: E7,1657  E7,1657               END-IN/M           EQUALS   XXXALT     +2                         #  NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
004921,003182: 
004922,003183:                                                                                                  #           S40.1 STORAGE.                                               (19D)
004923,003184: 
004924,003185: E7,1657                        BDT                ERASE    +18D                                  #  I(6) IN
004925,003186: E7,1702  E7,1665               UT                 EQUALS   BDT        +6                         #  I(6)OUT THRUST DIRECTION
004926,003187: E7,1702  E7,1673               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
004927,003188: E7,1702  E7,1673               VGPREV             =        VGTIG                                 
004928,003189:                                                                                                  #          S40.9 STORAGE.                                                (16D)
004929,003190: 
004930,003191: E7,1702                        VG                 ERASE    +15D                                  #  I(6)TMP
004931,003192: E7,1722  E7,1710               VRPREV             EQUALS   VG         +6                         #  I(6)TMP
004932,003193: E7,1722  E7,1716               TNIT               EQUALS   VRPREV     +6                         #  I(2)TMP TIME SIMCE LAST CALL TO S40.9
004933,003194: E7,1722  E7,1720               TNITPREV           EQUALS   TNIT       +2                         #  I(2)TMP PREVIOUS INIT.
004934,003195: 
004935,003196: 
004936,003197:                                                                                                  #          P40 STORAGE.                                                  (6D)
004937,003198: 
004938,003199:                                                                                                  #               F,MDOT,AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
004939,003200: E7,1722                        F                  ERASE    +5                                    #  I(2)TMP  S40.1 GENERATES THIS FOR S40.3
004940,003201: E7,1730  E7,1724               MDOT               EQUALS   F          +2                         #  I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
004941,003202: E7,1730  E7,1726               TDECAY             EQUALS   MDOT       +2                         #  I(2)IN  DELTA-T TAILOFF, (2**28)CS.
004942,003203: 
004943,003204: 
004944,003205: 
004945,003206:                                                                                                  #           MIDTOAV1(2) STORAGE.  (CALLED BY P40,P41,P42)                (1D)
004946,003207: 
004947,003208: E7,1730                        IRETURN1           ERASE                                          #  B(1)     RETURN FROM MIDTOAV1 AND 2
004948,003209: 
004949,003210: 
004950,003211:                                                                                                  #  ******* OVERLAY  NUMBER 1 IN EBANK 7  *******
004951,003212: 
004952,003213: 
004953,003214: 
004954,003215:                                                                                                  #           P35-P40 INTERFACE.                                           (6D)
004955,003216: 
004956,003217: E7,1731  E7,1472               VPASS4             EQUALS   VPASS1                                #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
004957,003218: 
004958,003219: 
004959,003220:                                                                                                  #           INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
004960,003221: 
004961,003222:                                                                                                  #           SOME P38-39,P78-79 STORAGE.                                  (2D)
004962,003223: 
004963,003224: E7,1731  E7,1615               TINT               EQUALS   TPASS4                                #  I(2) TIME OF INTERCEPT
004964,003225: 
004965,003226: 
004966,003227:                                                                                                  #           LAT - LONG TEMPORARIES. CAN OVERLAY WITH S40.1               (3D)
004967,003228: 
004968,003229: E7,1731  E7,1657               ERADM              EQUALS   BDT                                   #  I(2)
004969,003230: E7,1731  E7,1661               INCORPEX           EQUALS   ERADM      +2                         #  I(1)
004970,003231: 
004971,003232: 
004972,003233:                                                                                                  #           LRS24.1 STORAGE. (CAN SHARE WITH P30'S)                      (40D)
004973,003234: 
004974,003235: E7,1731  E7,1662               RLMSRCH            EQUALS   INCORPEX   +1                         #  I(6) TMP LM POSITION VECTOR
004975,003236: E7,1731  E7,1670               VXRCM              EQUALS   RLMSRCH    +6                         #  I(6)    CM V X R VECTOR
004976,003237: E7,1731  E7,1676               LOSDESRD           EQUALS   VXRCM      +6                         #  I(6)    DESIRED LOS VECTOR
004977,003238: E7,1731  E7,1704               UXVECT             EQUALS   LOSDESRD   +6                         #  I(6)    X-AXIS SRCH PATTERN COORDS
004978,003239: E7,1731  E7,1712               UYVECT             EQUALS   UXVECT     +6                         #  I(6)    Y-AXIS SRCH PATTERN COORDS
004979,003240: E7,1731  E7,1720               DATAGOOD           EQUALS   UYVECT     +6                         #  B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
004980,003241: E7,1731  E7,1721               OMEGDISP           EQUALS   DATAGOOD   +1                         #  B(2)    ANGLE OMEGA DISPLAYED IN R2
004981,003242: E7,1731  E7,1721               OMEGAD             =        OMEGDISP                              #          PINBALL DEFINITION.
004982,003243: E7,1731  E7,1723               NSRCHPNT           EQUALS   OMEGDISP   +2                         #  B(1)TMP SEARCH PATTERN POINT COUNTER.
004983,003244: E7,1731  E7,1724               SAVLEMV            EQUALS   NSRCHPNT   +1                         #  I(6)S-S SAVES LOSVEL
004984,003245: 
004985,003246: 
004986,003247: 
004987,003248: 
004988,003249:                                                                                                  #  ******* OVERLAY NUMBER 2 IN EBANK 7  *******
004989,003250: 
004990,003251: 
004991,003252: 
004992,003253:                                                                                                  #           INCORP STORAGE IN E7.                                        (47D)
004993,003254: 
004994,003255: E7,1731  E7,1456               TX789              EQUALS   E7OVERLA                              #  I(6)
004995,003256: E7,1731  E7,1464               GAMMA              EQUALS   TX789      +6                         #  I(3)
004996,003257: E7,1731  E7,1467               OMEGA              EQUALS   GAMMA      +3                         #  I(18)
004997,003258: E7,1731  E7,1511               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)
004998,003259: E7,1731  E7,1533               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)
004999,003260:                                                                                                  #           AOTMARK STORAGE                                              (3D)
005000,003261: 
005001,003262: E7,1731  E7,1535               MARKCNTR           EQUALS   DELTAQ     +2                         #  I(1)
005002,003263: E7,1731  E7,1536               XYMARK             EQUALS   MARKCNTR   +1                         #  B(1)
005003,003264: E7,1731  E7,1537               MKDEX              EQUALS   XYMARK     +1                         #  B(1)TMP INDEX FOR AOTMARK
005004,003265: 
005005,003266: 
005006,003267:                                                                                                  #           PLANET STORAGE.                                              (8D)
005007,003268: 
005008,003269: E7,1731  E7,1540               PLANVEC            EQUALS   MKDEX      +1                         #  (6) REFER VECTOR OF PLANET
005009,003270: E7,1731  E7,1546               TSIGHT             EQUALS   PLANVEC    +6                         #  (2) TIME OF MARK OR EST TIME OF MARK
005010,003271: 
005011,003272: 
005012,003273: 
005013,003274:                                                                                                  #           LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1   (30D).
005014,003275: 
005015,003276: E7,1731  E7,1662               LGRET              EQUALS   INCORPEX   +1                         #  I(1) TMP
005016,003277: E7,1731  E7,1662               RDRET              EQUALS   LGRET                                 #  B(1)  TEMP RETURN.
005017,003278: E7,1731  E7,1662               IGRET              EQUALS   RDRET                                 #  B(1)  TEMP RETURN.
005018,003279: E7,1731  E7,1663               MX                 EQUALS   RDRET      +1                         #  I(6)
005019,003280: E7,1731  E7,1671               MY                 EQUALS   MX         +6                         #  I(6)
005020,003281: E7,1731  E7,1677               MZ                 EQUALS   MY         +6                         #  I(6)
005021,003282: E7,1731  E7,1663               E0                 EQUALS   MX                                    #  I(2)
005022,003283: E7,1731  E7,1665               E1                 EQUALS   MX         +2                         #  I(2)
005023,003284: E7,1731  E7,1667               E2                 EQUALS   MX         +4                         #  I(2)
005024,003285: E7,1731  E7,1671               E3                 EQUALS   E2         +2                         #  I(2)
005025,003286: E7,1731  E7,1705               SCALSHFT           EQUALS   MZ         +6                         #  B(1) SCALE SHIFT FOR EARTH/MOON
005026,003287: E7,1731  E7,1706               RXZ                EQUALS   SCALSHFT   +1                         #  I(2)
005027,003288: E7,1731  E7,1710               ULC                EQUALS   RXZ        +2                         #  I(6)
005028,003289: E7,1731  E7,1716               SINTHETA           EQUALS   ULC        +6                         #  I(2)
005029,003290: 
005030,003291:                                                                                                  #      ***** IN OVERLAY ONE *****
005031,003292: 
005032,003293: E7,1731  E7,1732               N49FLAG            EQUALS   LRS22.1X                              #  B(1)S    FLAG INDICATING V0649 RESPONSE
005033,003294: 
005034,003295: 
005035,003296:                                                                                                  #           LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S)                 (13D)
005036,003297: 
005037,003298:                                                                                                  #           (OUTPUTS ARE TO LRS22.3)
005038,003299: 
005039,003300: E7,1731  E7,1720               RDOTM              EQUALS   SINTHETA   +2                         #  B(2)OUT  RANGE-RATE READING
005040,003301: E7,1731  E7,1722               RRTRUN             EQUALS   RDOTM      +2                         #  B(2)OUT  RR TRUNION ANGLE
005041,003302: E7,1731  E7,1724               RRSHAFT            EQUALS   RRTRUN     +2                         #  B(2)OUT RRSHAFT ANGLE
005042,003303:                                                                                                  #           RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
005043,003304: E7,1731  E7,1726               MKTIME             EQUALS   RRSHAFT    +2                         #  B(2)OUT  TIME OF RR READING
005044,003305: E7,1731  E7,1730               RM                 EQUALS   MKTIME     +2                         #  I(2)OUT  RANGE READING
005045,003306: E7,1731  E7,1732               LRS22.1X           EQUALS   RM         +2                         #  B(1)TMP
005046,003307: E7,1731  E7,1733               RRBORSIT           EQUALS   LRS22.1X   +1                         #  I(6) TMP RADAR BORESIGHT VECTOR.
005047,003308: E7,1731  E7,1741               RDOTMSAV           EQUALS   RRBORSIT   +6                         #  B(2) S    RR RANGE-RATE(FPS)
005048,003309: 
005049,003310: 
005050,003311:                                                                                                  #           LRS22.1  (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR  (R29)(8D) CANNOT SHARE WITH L.A.D.
005051,003312: 
005052,003313: E7,1731  E7,1743               TANGNB             EQUALS   RDOTMSAV   +2                         #  B(2)TMP  RR GIMBAL ANGLES
005053,003314: 
005054,003315: 
005055,003316: 
005056,003317: 
005057,003318:                                                                                                  #           P21 STORAGE                                                  (2D)
005058,003319: 
005059,003320: E7,1731  E7,1745               P21TIME            EQUALS   TANGNB     +2                         #  I(2)TMP
005060,003321: 
005061,003322: 
005062,003323:                                                                                                  #           KALCMANU, VECPOINT STORAGE.  CALLED BY R63, R61, R65.         (12D)
005063,003324: 
005064,003325: E7,1731     1247               SCAXIS             EQUALS   /AF/                                  
005065,003326: E7,1731     1255               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)
005066,003327: 
005067,003328: 
005068,003329:                                                                                                  #  *******  OVERLAY NUMBER 3 IN EBANK 7  *******
005069,003330: 
005070,003331: 
005071,003332:                                                                                                  #           BURN PROG STORAGE.                                           (2D)
005072,003333: 
005073,003334: E7,1731  E7,1456               SAVET-30           EQUALS   E7OVERLA                              #  B(2)TMP TIG-30 RESTART
005074,003335: 
005075,003336: 
005076,003337:                                                                                                  #           CROSS-PRODUCT STEERING ACTUAL                                (6D)
005077,003338: E7,1731  E7,1460               UASTEER            EQUALS   SAVET-30   +2                         
005078,003339: E7,1731  E7,1763               UDSTEER            EQUALS   LASTLADW   +3                         
005079,003340: E7,1731  E7,1771               S40EXIT            =        UDSTEER    +6                         
005080,003341: E7,1731  E7,1772               VGBODY             =        S40EXIT    +1                         #  B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
005081,003342: E7,1731  E7,1772               DELVCTL            =        VGBODY                                
005082,003343: 
005083,003344:                                                                                                  #           SERVICER STORAGE.                                            (69D)
005084,003345: 
005085,003346: E7,1731  E7,1466               DVTOTAL            EQUALS   UASTEER    +6                         #  B(2) DISPLAY NOUN
005086,003347: E7,1731  E7,1470               ABDVCONV           EQUALS   DVTOTAL    +2                         #  I(2)
005087,003348: E7,1731  E7,1472               DVCNTR             EQUALS   ABDVCONV   +2                         #  B(1)
005088,003349: E7,1731  E7,1473               TGO                EQUALS   DVCNTR     +1                         #  B(2)
005089,003350: E7,1731  E7,1475               R                  EQUALS   TGO        +2                         #  I(6)
005090,003351: E7,1731  E7,1475               UNITGOBL           EQUALS   R                                     #  I(6)
005091,003352: E7,1731  E7,1503               V                  EQUALS   R          +6                         
005092,003353: E7,1731  E7,1503               DELVREF            EQUALS   V                                     #  I(6)
005093,003354: E7,1731  E7,1511               HCALC              EQUALS   DELVREF    +6                         #  B(2)     LR
005094,003355: 
005095,003356: E7,1731  E7,1513               ABVELINT           EQUALS   HCALC      +2                         #  B(2)
005096,003357: E7,1731  E7,1515               ABVEL              EQUALS   ABVELINT   +2                         #  B(2) DISPLAY
005097,003358: E7,1731  E7,1517               HDOTDISP           EQUALS   ABVEL      +2                         #  B(2) DISPLAY
005098,003359: E7,1731  E7,1521               TTFDISP            EQUALS   HDOTDISP   +2                         #  B(2) DISPLAY
005099,003360: 
005100,003361: 
005101,003362: E7,1731  E7,1523               UNIT/R/            EQUALS   TTFDISP    +2                         #  I(6)
005102,003363:                                                                                                  #           (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
005103,003364: 
005104,003365: E7,1731  E7,1531               RN1                EQUALS   UNIT/R/    +6                         #  B(6)
005105,003366: E7,1731  E7,1537               VN1                EQUALS   RN1        +6                         #  I(6)                      (IN ORDER  )
005106,003367: E7,1731  E7,1545               PIPTIME1           EQUALS   VN1        +6                         #  B(2)                      (   FOR    )
005107,003368: E7,1731  E7,1547               GDT1/2             EQUALS   PIPTIME1   +2                         #  I(6)                      (  COPY    )
005108,003369: E7,1731  E7,1555               MASS1              EQUALS   GDT1/2     +6                         #  I(2)                      (  CYCLE   )
005109,003370: E7,1731  E7,1557               R1S                EQUALS   MASS1      +2                         #  I(6)
005110,003371: E7,1731  E7,1565               V1S                EQUALS   R1S        +6                         #  I(6)
005111,003372: 
005112,003373:                                                                                                  #           ALIGNMENT/S40.2.3 COMMON STORAGE.                            (18D)
005113,003374: 
005114,003375: E7,1731  E7,1573               XSMD               EQUALS   V1S        +6                         #  I(6)
005115,003376: E7,1731  E7,1601               YSMD               EQUALS   XSMD       +6                         #  I(6)
005116,003377: E7,1731  E7,1607               ZSMD               EQUALS   YSMD       +6                         #  I(6)
005117,003378: 
005118,003379: E7,1731  E7,1573               XSCREF             =        XSMD                                  
005119,003380: E7,1731  E7,1601               YSCREF             =        YSMD                                  
005120,003381: 
005121,003382: E7,1731  E7,1607               ZSCREF             =        ZSMD                                  
005122,003383: 
005123,003384: E7,1731  E7,1615               END-ALIG           EQUALS   ZSMD       +6                         #  NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
005124,003385: 
005125,003386:                                                                                                  #  *******  OVERLAY NUMBER 4 IN EBANK 7  *******
005126,003387: 
005127,003388: 
005128,003389:                                                                                                  #           AUTO-OPTICS STORAGE.  -R52-                                  (1)
005129,003390: 
005130,003391: E7,1731  E7,1456               XNB1               =        WHOCARES                              #  THESE WHOCARES THINGS ARE REFERENCED.
005131,003392: E7,1731  E7,1456               YNB1               =        WHOCARES                              #  BUT NOT USED IN SUNDANCE
005132,003393: E7,1731  E7,1456               ZNB1               =        WHOCARES                              
005133,003394: 
005134,003395: 
005135,003396:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING)                 (84D)
005136,003397: 
005137,003398:                                                                                                  #  THESE ERASABLES MAY BE SHARED WITH CARE
005138,003399: 
005139,003400: E7,1731  E7,1531               OURTEMPS           =        RN1                                   #  OVERLAY LAST PART OF SERVICER
005140,003401: E7,1731  E7,1531               RGU                =        OURTEMPS                              #  I(6)    GUIDANCE
005141,003402: E7,1731  E7,1540               LANDTEMP           =        OURTEMPS   +7                         #  B(6)     GUIDANCE
005142,003403: E7,1731  E7,1546               TTF/8TMP           =        LANDTEMP   +6                         #  B(2)    GUIDANCE
005143,003404: E7,1731  E7,1550               TABLTTF            =        TTF/8TMP   +2                         #  B(2)    GUIDANCE
005144,003405: E7,1731  E7,1550               FCODD              =        TABLTTF                               #  B(2)    THROTTLE
005145,003406: E7,1731  E7,1552               FP                 =        FCODD      +2                         #  B(2)    THROTTLE
005146,003407: E7,1731  E7,1561               TPIPOLD            =        TABLTTF    +9D                        #  B(2)    GUIDANCE
005147,003408: E7,1731  E7,1563               AZINCR             =        TPIPOLD    +2                         #  B(2)    GUIDANCE
005148,003409: E7,1731  E7,1565               ELINCR             =        AZINCR     +2                         #  B(2)    GUIDANCE
005149,003410: E7,1731  E7,1567               KEEP-2             =        ELINCR     +2                         #  B(2)    TO PREVENT PIPTIME1 OVERLAY
005150,003411: E7,1731  E7,1567               /AFC/              =        TPIPOLD    +6                         #  B(2)    GUIDANCE AND  THROTTLE
005151,003412: E7,1731  E7,1571               ANGTERM            =        /AFC/      +2                         #  I(6) GUIDANCE
005152,003413: E7,1731  E7,1573               GOBLTIME           =        ANGTERM    +2                         #  B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
005153,003414: 
005154,003415: 
005155,003416: E7,1731  E7,1606               E2DPS              EQUALS   OURPERMS                              
005156,003417: 
005157,003418: 
005158,003419: 
005159,003420:                                                                                                  #  THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
005160,003421: E7,1731  E7,1577               PIFPSET            =        GOBLTIME   +4                         #  B(1)    THROTTLE
005161,003422: E7,1731  E7,1600               RTNHOLD            =        PIFPSET    +1                         #  B(1)    THROTTLE
005162,003423: E7,1731  E7,1601               FWEIGHT            =        RTNHOLD    +1                         #  B(2)    THROTTLE
005163,003424: E7,1731  E7,1603               PSEUDO55           =        FWEIGHT    +2                         #  B(1)   THROTTLE DOWNLINK
005164,003425: E7,1731  E7,1604               TTHROT             =        PSEUDO55   +1                         #  B(1)    THROTTLE
005165,003426: 
005166,003427: 
005167,003428: 
005168,003429:                                                                                                  #  THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
005169,003430: 
005170,003431: E7,1731  E7,1537               WCHPHOLD           =        VN1                                   #  B(1)    GUIDANCE
005171,003432: 
005172,003433: E7,1731  E7,1606               OURPERMS           =        TTHROT     +2                         #  MUSTN'T OVERLAY OURTEMPS OR SERVICER
005173,003434: E7,1731  E7,1606               WCHPHASE           =        OURPERMS                              #  B(1)    GUIDANCE
005174,003435: E7,1731  E7,1607               FLPASS0            =        WCHPHASE   +1                         #  B(1)    GUIDANCE
005175,003436: E7,1731  E7,1610               TARGTDEX           =        FLPASS0    +1                         #  B(1)    GUIDANCE
005176,003437: E7,1731  E7,1611               TPIP               =        TARGTDEX   +1                         #  B(2)
005177,003438: E7,1731  E7,1613               VGU                =        TPIP       +2                         #  B(6)    GUIDANCE
005178,003439: E7,1731  E7,1621               WM                 =        VGU        +6                         #  I(6) TMP - LUNAR ROTATION VECTOR (SM)
005179,003440: E7,1731  E7,1627               LAND               =        WM         +6                         #  B(6)    GUIDANCE    CONTIGUOUS
005180,003441: E7,1731  E7,1635               TTF/8              =        LAND       +6                         #  B(2)    GUIDANCE     CONTIGUOUS
005181,003442: E7,1731  E7,1637               ACG                =        TTF/8      +2                         #  I(6) GUIDANCE
005182,003443: E7,1731  E7,1645               JLING              =        ACG        +6                         #  I(6) GUIDANCE
005183,003444: E7,1731  E7,1653               ELINCR1            =        JLING      +6                         #  B(1)    GUIDANCE
005184,003445: E7,1731  E7,1654               AZINCR1            =        ELINCR1    +1                         #  B(1)     GUIDANCE
005185,003446: E7,1731  E7,1655               ZERLINA            =        AZINCR1    +1                         #  B(1)     GUIDANCE
005186,003447: E7,1731  E7,1656               ELVIRA             =        ZERLINA    +1                         #  B(1)     GUIDANCE
005187,003448: E7,1731  E7,1657               FCOLD              =        ELVIRA     +1                         #  B(1)    THROTTLE
005188,003449: E7,1731  E7,1660               LRADRET            =        FCOLD      +1                         #  B(1)    LR
005189,003450: E7,1731  E7,1661               VSELECT            =        LRADRET    +1                         #  B(1)    LR
005190,003451: E7,1731  E7,1662               HBEAMNB            =        VSELECT    +1                         #  I(6) LANDING RADAR
005191,003452: E7,1731  E7,1670               VMEAS              =        HBEAMNB    +6                         #  B(2)    LR
005192,003453: E7,1731  E7,1672               HMEAS              =        VMEAS      +2                         #  B(2)    LR
005193,003454: E7,1731  E7,1674               VN2                =        HMEAS      +2                         #  B(6)    LR
005194,003455: E7,1731  E7,1674               GNUR               =        VN2                                   #  B(6)     LR
005195,003456: E7,1731  E7,1674               GNUV               =        VN2                                   #  B(6)     LR
005196,003457: E7,1731  E7,1674               LRADRET1           =        VN2                                   #  B(1)     LR
005197,003458: E7,1731  E7,1702               FUNNYDSP           =        VN2        +6                         #  B(2)    DISPLAY
005198,003459: E7,1731  E7,1704               VHORIZ             =        FUNNYDSP   +2                         #  I(2) DISPLAY
005199,003460: E7,1731  E7,1706               EOURPERM           EQUALS   VHORIZ     +2                         #  NEXT AVAILABLE ERASABLE AFTER OURPERMS
005200,003461: 
005201,003462: 
005202,003463:                                                                                                  #  (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
005203,003464: 
005204,003465: E7,1731  E7,1653               VDGVERT            =        ELINCR1                               #  B(2)    P65,66
005205,003466: E7,1731  E7,1655               NIGNLOOP           =        ZERLINA                               #  B(1)    IGNALG
005206,003467: E7,1731  E7,1656               NGUIDSUB           =        ELVIRA                                #  B(1)    IGNALG
005207,003468: E7,1731  E7,1655               RODCOUNT           =        ZERLINA                               #  B(1)    P66
005208,003469: E7,1731  E7,1656               WCHVERT            =        ELVIRA                                #  B(1)    P65,66,67
005209,003470: E7,1731  E7,1702               FUELNEED           =        FUNNYDSP                              #  B(1)    DISPLAY
005210,003471: E7,1731  E7,1702               TREDES             =        FUNNYDSP                              #  B(1)    DISPLAY
005211,003472: E7,1731  E7,1703               LOOKANGL           =        FUNNYDSP   +1                         #  B(1)    DISPLAY
005212,003473: 
005213,003474: 
005214,003475:                                                                                                  #  ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
005215,003476: 
005216,003477: E7,1731                        PROJ               =        18D                                   #  I(2)    GUIDANCE
005217,003478: E7,1731                        UNLRB/2            =        20D                                   #  I(6)    GUIDANCE (DURING P64 ONLY)
005218,003479: E7,1731                        UNLR/2             =        20D                                   #  I(6)    GUIDANCE
005219,003480: 
005220,003481: 
005221,003482:                                                                                                  #  THE END OF THE LUNAR LANDING ERASABLES
005222,003483: 
005223,003484: 
005224,003485: 
005225,003486:                                                                                                  #           R12    (FOR LUNAR LANDING)                                   (6D)
005226,003487: 
005227,003488: E7,1731     0156               LRLCTR             EQUALS   MPAC       +2                         #  B(1) LR DATA TEST
005228,003489: E7,1731     0156               LRRCTR             EQUALS   MPAC       +2                         #  B(1)
005229,003490: E7,1731     0156               LRMCTR             EQUALS   MPAC       +2                         #  B(1)
005230,003491: E7,1731     0156               LRSCTR             EQUALS   MPAC       +2                         #  B(1)
005231,003492: 
005232,003493: 
005233,003494: 
005234,003495:                                                                                                  #           LANDING ANALOGS DISPLAY STORAGE.                             (40D)
005235,003496: 
005236,003497: E7,1731  E7,1706               UHYP               EQUALS   RXZ                                   #  B(6)PRM SM UNIT VECTOR
005237,003498: E7,1731  E7,1714               UHZP               EQUALS   UHYP       +6                         #  B(6)PRM SM UNIT VECTOR
005238,003499: E7,1731  E7,1722               VHY                EQUALS   UHZP       +6                         #  B(1)PRM VHY=VMP.UHYP   (AN ORDER)
005239,003500: E7,1731  E7,1723               VHZ                EQUALS   VHY        +1                         #  B(1)PRM VHZ=VMP.UHZP   (-ED PAIR)
005240,003501: E7,1731  E7,1724               DELVS              EQUALS   VHZ        +1                         #  B(6)PRM DELVS = WMXR
005241,003502: E7,1731  E7,1732               VVECT              EQUALS   DELVS      +6                         #  B(3)PRM UPDATED S.P. VELOCITY VECTOR
005242,003503: E7,1731  E7,1735               ALTBITS            EQUALS   VVECT      +3                         #  B(2)PRM ALTITUDE IN BIT UNITS, 2.34FT/BT
005243,003504: E7,1731  E7,1737               RUNIT              EQUALS   ALTBITS    +2                         #  B(3)PRM SM HALF-UNIT R VECTOR
005244,003505: E7,1731  E7,1745               LATVMETR           EQUALS   RUNIT      +6                         #  B(1)PRM LATVEL MONITOR METER  (AN ORDER)
005245,003506: E7,1731  E7,1746               FORVMETR           EQUALS   LATVMETR   +1                         #  B(1)PRM FORVEL MONITOR METER  (-ED PAIR)
005246,003507: E7,1731  E7,1747               ALTRATE            EQUALS   FORVMETR   +1                         #  B(1)PRM ALTITUDE RATE IN BIT UNITS
005247,003508: E7,1731  E7,1750               LATVEL             EQUALS   ALTRATE    +1                         #  B(1)PRM LATERAL VELOCITY   (AN ORDER)
005248,003509: E7,1731  E7,1751               FORVEL             EQUALS   LATVEL     +1                         #  B(1)PRM FORWARD VELOCITY   (-ED PAIR)
005249,003510: E7,1731  E7,1752               TRAKLATV           EQUALS   FORVEL     +1                         #  B(1)PRM MONITOR FLG 4 LATVEL  (AN ORDER)
005250,003511: E7,1731  E7,1753               TRAKFWDV           EQUALS   TRAKLATV   +1                         #  B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
005251,003512: E7,1731  E7,1754               ALTSAVE            EQUALS   TRAKFWDV   +1                         #  B(2)PRM ALTITUDE IN BIT UNITS
005252,003513: E7,1731  E7,1756               LADQSAVE           EQUALS   ALTSAVE    +2                         #  B(1)PRM SAVE Q IN LANDISP
005253,003514: E7,1731  E7,1757               DALTRATE           EQUALS   LADQSAVE   +1                         #  B(1)PRM ALTITUDE RATE ERROR CORRECTION
005254,003515: E7,1731  E7,1760               DT                 EQUALS   DALTRATE   +1                         #  B(1)PRM TIME 1 MINUS (PIPTIME +1)
005255,003516: E7,1731  E7,1760               LASTLADW           EQUALS   DT                                    #  ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
005256,003517: 
005257,003518: 
005258,003519:                                                                                                  #  *******  OVERLAY NUMBER 5 IN EBANK 7  *******
005259,003520: 
005260,003521: 
005261,003522: 
005262,003523:                                                                                                  #           ASCENT GUIDANCE ERASABLES.                                   (23D)
005263,003524: 
005264,003525: E7,1731  E7,1615               RCO                EQUALS   END-ALIG                              #  I(2)TMP  TARGET RADIUS AND OUT-OF-PLANE
005265,003526: E7,1731  E7,1617               YCO                EQUALS   RCO        +2                         #  I(2)TMP  DISTANCE, SCALED AT 2(24).
005266,003527: E7,1731  E7,1621               RDOTD              EQUALS   YCO        +2                         #  I(2)TMP  TARGET VELOCITY COMPONENTS
005267,003528: E7,1731  E7,1623               YDOTD              EQUALS   RDOTD      +2                         #  I(2)TMP SCALING IS 2(7)M/CS.
005268,003529: E7,1731  E7,1625               ZDOTD              EQUALS   YDOTD      +2                         #  I(2)TMP
005269,003530: E7,1731  E7,1627               XRANGE             EQUALS   ZDOTD      +2                         #  B(2)TMP
005270,003531: E7,1731  E7,1631               APO                EQUALS   XRANGE     +2                         #  B(2)TMP  APOLUNE ALTITUDE DESIRED - M.
005271,003532:                                                                                                  #           SCALED AT 2(2().
005272,003533: E7,1731  E7,1633               AT                 EQUALS   APO        +2                         #  I(2)TMP  ENGINE DATA -- THRUST ACC.*2(9)
005273,003534: E7,1731  E7,1635               VE                 EQUALS   AT         +2                         #  I(2)TMP  EXHAUST VELOCITY * 2(7)M/CS.
005274,003535: E7,1731  E7,1637               TTO                EQUALS   VE         +2                         #  I(2)TMP  TAILOFF TIME * 2(17)CS.
005275,003536: E7,1731  E7,1641               TBUP               EQUALS   TTO        +2                         #  I(2)TMP  (M/MDOT) * 2(17)CS.
005276,003537: E7,1731  E7,1643               1/DV1              EQUALS   TBUP       +2                         #  B(2)TMP  ATMAG
005277,003538: E7,1731  E7,1645               1/DV2              EQUALS   1/DV1      +2                         #  B(2)TMP  ATMAG
005278,003539: E7,1731  E7,1647               1/DV3              EQUALS   1/DV2      +2                         #  B(2)TMP  ATMAG
005279,003540: E7,1731  E7,1651               QAXIS              EQUALS   1/DV3      +2                         #  B(6)
005280,003541: E7,1731  E7,1657               /R/MAG             EQUALS   QAXIS      +6                         #  I(2)TMP
005281,003542: E7,1731  E7,1661               LAXIS              EQUALS   /R/MAG     +2                         #  I(6)TMP
005282,003543: E7,1731  E7,1667               ZAXIS1             EQUALS   LAXIS      +6                         #  I(6)TMP  SYSTEM (R,L,Z).
005283,003544: E7,1731  E7,1675               RDOT               EQUALS   ZAXIS1     +6                         #  I(2)TMP  RADIAL RATE *2 (-7).
005284,003545: E7,1731  E7,1677               YDOT               EQUALS   RDOT       +2                         #  I(2)TMP  VEL. NORMAL TO REF. PLANE*2(-7)
005285,003546: E7,1731  E7,1701               ZDOT               EQUALS   YDOT       +2                         #  I(2)TMP  DOWN RANGE VEL *2(-7).
005286,003547: E7,1731  E7,1703               GEFF               EQUALS   ZDOT       +2                         #  I(2)TMP  EFFECTIVE GRAVITY
005287,003548: E7,1731  E7,1705               Y                  EQUALS   GEFF       +2                         #  I(2)TMP  OUT-OF-PLANE DIST *2(24)M
005288,003549: E7,1731  E7,1707               DRDOT              EQUALS   Y          +2                         #  I(2)TMP  RDOTD - RDOT
005289,003550: E7,1731  E7,1711               DYDOT              EQUALS   DRDOT      +2                         #  I(2)TMP  YDOTD - YDOT
005290,003551: E7,1731  E7,1713               DZDOT              EQUALS   DYDOT      +2                         #  I(2)TMP  ZDOTD - ZDOT
005291,003552: E7,1731  E7,1715               PCONS              EQUALS   DZDOT      +2                         #  I(2)TMP  CONSTANT IN ATR EQUATION
005292,003553: E7,1731  E7,1717               YCONS              EQUALS   PCONS      +2                         #  I(2)TMP  CONSTANT IN ATY EQUATION
005293,003554: E7,1731  E7,1721               PRATE              EQUALS   YCONS      +2                         #  I(2)TMP  RATE COEFF. IN ATR EQUATION
005294,003555: E7,1731  E7,1723               YRATE              EQUALS   PRATE      +2                         #  I(2)TMP  RATE COEFF. IN ATY EQUATION
005295,003556: E7,1731  E7,1731               ATY                EQUALS   YRATE      +6                         #  I(2)TMP  OUT-OF-PLANE THRUST COMP.*2(9)
005296,003557: E7,1731  E7,1733               ATR                EQUALS   ATY        +2                         #  I(2)TMP  RADIAL THRUST COMP.*2(9)
005297,003558: E7,1731  E7,1735               ATP                EQUALS   ATR        +2                         #  I(2)TMP  DOWN-RANGE THRUST COMP
005298,003559: E7,1731  E7,1737               YAW                EQUALS   ATP        +2                         #  I(2)TMP
005299,003560: E7,1731  E7,1741               PITCH              EQUALS   YAW        +2                         #  I(2)RMP
005300,003561: E7,1731  E7,1743               ENGOFFDT           EQUALS   PITCH      +2                         #  B(1)TMP PROTECTION OFENGOFF1 CALL
005301,003562: E7,1731  E7,1744               VGVECT             EQUALS   ENGOFFDT   +1                         #  I(6)OUT  VELOCITY-TO-BE-GAINED
005302,003563: E7,1731  E7,1752               TXO                EQUALS   VGVECT     +6                         #  I(2)TMP  TIME AT WHICH X-AXIS OVERRIDE
005303,003564: 
005304,003565:                                                                                                  #  END OF THE ASCENT GUIDANCE ERASABLES.
005305,003566: 
005306,003567:                                                                                                  #  P10-P11 ERASABLES.
005307,003568: E7,1731  E7,1426               P1XTMIN            EQUALS   TTOGO                                 
005308,003569: E7,1731  E7,1662               P1XITCNT           EQUALS   INCORPEX   +1                         
005309,003570: E7,1731  E7,1663               RCSMINT            =        P1XITCNT   +1                         
005310,003571: E7,1731  E7,1671               P1XDELTT           =        RCSMINT    +6                         
005311,003572: E7,1731  E7,1673               TCSITPF            =        P1XDELTT   +2                         
005312,003573: E7,1731  E7,1675               RLSBRCS            =        TCSITPF    +2                         
005313,003574: E7,1731  E7,1703               RLEMT2             =        RLSBRCS    +6                         
005314,003575: E7,1731  E7,1705               VCSMINT            =        RLEMT2     +2                         
005315,003576: E7,1731  E7,1713               INJANGLE           =        VCSMINT    +6                         
005316,003577: E7,1731  E7,1715               INJALT             =        INJANGLE   +2                         
005317,003578: E7,1731  E7,1717               P1XVVER            =        INJALT     +2                         
005318,003579: E7,1731  E7,1721               P1XVHOR            =        P1XVVER    +2                         
005319,003580: E7,1731  E7,1723               RP1XROT            =        P1XVHOR    +2                         
005320,003581: E7,1731  E7,1731               VP1XROT            =        RP1XROT    +6                         
005321,003582: E7,1731  E7,1737               P1XMAX             =        VP1XROT    +6                         
005322,003583: E7,1731  E7,1741               TPITIME            =        P1XMAX     +2                         
005323,003584: E7,1731  E7,1743               INJTIME            =        TPITIME    +2                         
005324,003585: E7,1731  E7,1745               CDHDELH            =        INJTIME    +2                         
005325,003586: E7,1731  E7,1747               ULVEC              =        CDHDELH    +2                         
005326,003587: E7,1731  E7,1755               P1XDT              =        ULVEC      +6                         
005327,003588: E7,1731  E7,1757               TPIANGLE           =        P1XDT      +2                         
005328,003589: E7,1731  E7,1761               UNVEC2             =        TPIANGLE   +2                         
005329,003590: E7,1731  E7,1767               P11VTPF            =        UNVEC2     +6                         
005330,003591: 
005331,003592:                                                                                                  #           VARIOUS DISPLAY REGISTERS.  BALLANGS                         (3D)
005332,003593: 
005333,003594: E7,1731  E7,1775               FDAIX              EQUALS   VGBODY     +3                         #  I(1)
005334,003595: E7,1731  E7,1776               FDAIY              =        FDAIX      +1                         #  I(1)
005335,003596: E7,1731  E7,1777               FDAIZ              =        FDAIY      +1                         #  I(1)
005336,003597: 
005337,003598: 
005338,003599:                                                                                                  #  THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
005339,003600: 
005340,003601: E7,1731  0000007               CPHIXATT           EQUALS   SPARE                                 
005341,003602: 
005342,003603: E7,1731  E7,1731               CURSOR             EQUALS   END-E7.0                              
005343,003604: E7,1731  E7,1731               SPIRAL             EQUALS   END-E7.0                              
005344,003605: E7,1731  E7,1731               POSCODE            EQUALS   END-E7.0                              
005345,003606: 
005346,003607: E7,1731  E7,1731               LANDLAT            EQUALS   END-E7.0                              
005347,003608: E7,1731  E7,1731               LANDLONG           EQUALS   END-E7.0                              
005348,003609: E7,1731  E7,1731               LANDALT            EQUALS   END-E7.0                              
005349,003610: 
005350,003611: E7,1731  E7,1731               END-E7.0           EQUALS   IRETURN1   +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 0
005351,003612: E7,1731  E7,1733               END-E7.1           EQUALS   N49FLAG    +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 1
005352,003613: E7,1731  E7,1747               END-E7.2           EQUALS   P21TIME    +2                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 2
005353,003614: E7,1731  E7,1771               END-E7.3           EQUALS   P11VTPF    +2                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 3
005354,003615: E7,1731     4000               END-E7.4           EQUALS   FDAIZ      +1                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 4
005355,003616: E7,1731  E7,1754               END-E7.5           EQUALS   TXO        +2                         #  FIRST UNUSED LOCATION IN E7 OVERLAY 5
005356,003617: E7,1731                        END-E7             EQUALS   3777                                  #  **LAST LOCATION USED IN E7 **

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