Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

001415,000002:                                                                                                 #  Copyright:    Public domain.
001416,000003:                                                                                                 #  Filename:     ERASABLE_ASSIGNMENTS.agc
001417,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
001418,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
001419,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
001420,000007:                                                                                                 #  Assembler:    yaYUL
001421,000008:                                                                                                 #  Contact:      Sergio Navarro <sergionavarrog@gmail.com>
001422,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
001423,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
001424,000011:                                                                                                 #  Mod history:  2009-10-21 SN   Adapted from corresponding Colossus 249 file.
001425,000012:                                                                                                 #                 2011-01-22 JL   Minor fixes to whitespace and comments.
001426,000013:                                                                                                 #                 2011-04-27 JL   Fixed symbol name.
001427,000014: 
001428,000015:                                                                                                 # # Page 34
001429,000016: 
001430,000017:                                                                                                 #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001431,000018: 
001432,000019:                                                                                                 #            EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
001433,000020:                                                                                                 #                   OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001434,000021:                                                                                                 #                   CHANGING OF ONLY ONE CARD.  EXAMPLE.
001435,000022: 
001436,000023:                                                                                                 #                                           X        EQUALS START
001437,000024:                                                                                                 #                                           Y        EQUALS X        +SIZE.X
001438,000025:                                                                                                 #                                           Z        EQUALS Y        +SIZE.Y
001439,000026: 
001440,000027:                                                                                                 #                   (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
001441,000028:                                                                                                 #                   (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001442,000029:                                                                                                 #                    USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC.                )
001443,000030: 
001444,000031:                                                                                                 #            EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001445,000032:                                                                                                 #                   AND DIFFERENT DATA). EXAMPLE.
001446,000033: 
001447,000034:                                                                                                 #                                           X        EQUALS Y
001448,000035: 
001449,000036:                                                                                                 #            = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001450,000037:                                                                                                 #                   (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE:
001451,000038: 
001452,000039:                                                                                                 #                                           X        =      Y
001453,000040: 
001454,000041:                                                                                                 #            THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001455,000042:                                                                                                 #            THE COMMENTS IN THE FOLLOWING FORM,  M(SIZE)N.
001456,000043: 
001457,000044:                                                                                                 #                   M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001458,000045:                                                                                                 #                        B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001459,000046:                                                                                                 #                            INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001460,000047:                                                                                                 #                        I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001461,000048:                                                                                                 #                            INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001462,000049:                                                                                                 #                            INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001463,000050: 
001464,000051:                                                                                                 #                   SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001465,000052: 
001466,000053:                                                                                                 #                   N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001467,000054:                                                                                                 #                        PL MEANS THAT THE CONTENTS ARE PAD LOADED.
001468,000055:                                                                                                 #                        DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001469,000056:                                                                                                 #                        PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001470,000057:                                                                                                 #                            IS USED DURING THE ENTIRE MISSION FOR ONE
001471,000058:                                                                                                 #                            PURPOSE AND CANNOT BE SHARED.
001472,000059:                                                                                                 #                        TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001473,000060:                                                                                                 #                            IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001474,000061:                                                                                                 #                            IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
001475,000062:                                                                                                 #                            PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001476,000063:                                                                                                 #                            CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS
001477,000064:                                                                                                 # # Page 35
001478,000065:                                                                                                 #                            IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
001479,000066:                                                                                                 #                            IS NOT ACTIVE IN PARALLEL.
001480,000067:                                                                                                 #                        IN  MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001481,000068:                                                                                                 #                            TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001482,000069:                                                                                                 #                        OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001483,000070:                                                                                                 #                            TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001484,000071: 
001485,000072:                                                                                                 # # Page 36
001486,000073: 
001487,000074:                                                                                                 #            SPECIAL REGISTERS.
001488,000075: 
001489,000076: ???????                        A                 EQUALS   0                                     
001490,000077: ???????                        L                 EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
001491,000078: ???????                        Q                 EQUALS   2                                     
001492,000079: ???????                        EBANK             EQUALS   3                                     
001493,000080: ???????                        FBANK             EQUALS   4                                     
001494,000081: ???????                        Z                 EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
001495,000082: ???????                        BBANK             EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
001496,000083:                                                                                                 #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001497,000084: 
001498,000085: ???????                        ARUPT             EQUALS   10                                    #  INTERRUPT STORAGE.
001499,000086: ???????                        LRUPT             EQUALS   11                                    
001500,000087: ???????                        QRUPT             EQUALS   12                                    
001501,000088: ???????                        SAMPTIME          EQUALS   13                                    #  SAMPLED TIME 1 & 2.
001502,000089: ???????                        ZRUPT             EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
001503,000090: ???????                        BANKRUPT          EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
001504,000091: ???????                        BRUPT             EQUALS   17                                    #  RESUME ADDRESS AS WELL.
001505,000092: 
001506,000093: ???????                        CYR               EQUALS   20                                    
001507,000094: ???????                        SR                EQUALS   21                                    
001508,000095: ???????                        CYL               EQUALS   22                                    
001509,000096: ???????                        EDOP              EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
001510,000097: 
001511,000098: ???????                        TIME2             EQUALS   24                                    
001512,000099: ???????                        TIME1             EQUALS   25                                    
001513,000100: ???????                        TIME3             EQUALS   26                                    
001514,000101: ???????                        TIME4             EQUALS   27                                    
001515,000102: ???????                        TIME5             EQUALS   30                                    
001516,000103: ???????                        TIME6             EQUALS   31                                    
001517,000104: ???????                        CDUX              EQUALS   32                                    
001518,000105: ???????                        CDUY              EQUALS   33                                    
001519,000106: ???????                        CDUZ              EQUALS   34                                    
001520,000107: ???????                        CDUT              EQUALS   35                                    #  OPTICS TRUNNION CDU (WAS OPTY).
001521,000108: ???????  0000035               OPTY              =        CDUT                                  
001522,000109: ???????                        CDUS              EQUALS   36                                    #  OPTICS SHAFT CDU (WAS OPTX).
001523,000110: ???????  0000036               OPTX              =        CDUS                                  
001524,000111: ???????                        PIPAX             EQUALS   37                                    
001525,000112: ???????                        PIPAY             EQUALS   40                                    
001526,000113: ???????                        PIPAZ             EQUALS   41                                    
001527,000114: ???????                        BMAGX             EQUALS   42                                    
001528,000115: ???????                        BMAGY             EQUALS   43                                    
001529,000116: ???????                        BMAGZ             EQUALS   44                                    
001530,000117: ???????                        INLINK            EQUALS   45                                    
001531,000118: ???????                        RNRAD             EQUALS   46                                    
001532,000119: ???????                        GYROCTR           EQUALS   47                                    
001533,000120: ???????                        GYROCMD           EQUALS   47                                    
001534,000121: ???????                        CDUXCMD           EQUALS   50                                    
001535,000122: ???????                        CDUYCMD           EQUALS   51                                    
001536,000123:                                                                                                 # # Page 37
001537,000124: ???????                        CDUZCMD           EQUALS   52                                    
001538,000125: ???????                        CDUTCMD           EQUALS   53                                    #  OPTICS TRUNNION COMMAND (WAS OPTYCMD).
001539,000126: ???????  0000053               OPTYCMD           =        CDUTCMD                               
001540,000127: ???????  0000053               TVCYAW            EQUALS   CDUTCMD                               #  SPS YAW COMMAND IN TVC MODE.
001541,000128: ???????                        CDUSCMD           EQUALS   54                                    #  OPTICS SHAFT COMMAND (WAS OPTXCMD).
001542,000129: ???????  0000054               TVCPITCH          EQUALS   CDUSCMD                               #  SPS PITCH COMMAND IN TVC MODE.
001543,000130: ???????  0000054               OPTXCMD           =        CDUSCMD                               
001544,000131: ???????                        EMSD              EQUALS   55                                    
001545,000132: ???????                        THRUST            EQUALS   55                                    
001546,000133: ???????                        LEMONM            EQUALS   56                                    
001547,000134: ???????                        OUTLINK           EQUALS   57                                    
001548,000135: ???????                        ALTM              EQUALS   60                                    
001549,000136: 
001550,000137: 
001551,000138:                                                                                                 #            INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001552,000139: 
001553,000140: ???????                        LVSQUARE          EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001554,000141: ???????                        LV                EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
001555,000142: ???????                        X1                EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
001556,000143: ???????                        X2                EQUALS   39D                                   #  TO THE WORK AREA.
001557,000144: ???????                        S1                EQUALS   40D                                   
001558,000145: ???????                        S2                EQUALS   41D                                   
001559,000146: ???????                        QPRET             EQUALS   42D                                   
001560,000147: 
001561,000148:                                                                                                 # # Page 38
001562,000149:                                                                                                 #  INPUT/OUTPUT CHANNELS
001563,000150: 
001564,000151:                                                                                                 #                                             *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001565,000152: ???????  0000001               LCHAN             EQUALS   L                                     
001566,000153: ???????  0000002               QCHAN             EQUALS   Q                                     
001567,000154: ???????                        HISCALAR          EQUALS   3                                     
001568,000155: ???????                        LOSCALAR          EQUALS   4                                     
001569,000156: ???????                        PYJETS            EQUALS   5                                     
001570,000157: ???????                        ROLLJETS          EQUALS   6                                     
001571,000158: ???????                        SUPERBNK          EQUALS   7                                     
001572,000159: ???????                        OUT0              EQUALS   10                                    
001573,000160: ???????                        DSALMOUT          EQUALS   11                                    
001574,000161: ???????                        CHAN12            EQUALS   12                                    
001575,000162: ???????                        CHAN13            EQUALS   13                                    
001576,000163: ???????                        CHAN14            EQUALS   14                                    
001577,000164: ???????                        MNKEYIN           EQUALS   15                                    
001578,000165: ???????                        NAVKEYIN          EQUALS   16                                    
001579,000166: ???????                        CHAN30            EQUALS   30                                    
001580,000167: ???????                        CHAN31            EQUALS   31                                    
001581,000168: ???????                        CHAN32            EQUALS   32                                    
001582,000169: ???????                        CHAN33            EQUALS   33                                    
001583,000170: ???????                        DNTM1             EQUALS   34                                    
001584,000171: ???????                        DNTM2             EQUALS   35                                    
001585,000172:                                                                                                 #  END OF CHANNEL ASSIGNMENTS
001586,000173: 
001587,000174:                                                                                                 # # Page 39
001588,000175: 
001589,000176:                                                                                                 #            FLAGWORDS
001590,000177: 
001591,000178: 
001592,000179:                                                                                                 #  FLAGWRD0       STATE +0        (000-014)
001593,000180:                                                                                                 #  FLAGWRD1       STATE +1        (015-029)
001594,000181:                                                                                                 #  FLAGWRD2       STATE +2        (030-044)
001595,000182:                                                                                                 #  FLAGWRD3       STATE +3        (045-059)
001596,000183:                                                                                                 #  FLAGWRD4       STATE +4        (060-074)
001597,000184:                                                                                                 #  FLAGWRD5       STATE +5        (075-089)
001598,000185:                                                                                                 #  FLAGWRD6       STATE +6        (090-104)
001599,000186:                                                                                                 #  FLAGWRD7       STATE +7        (105-119)
001600,000187:                                                                                                 #  FLAGWRD8       STATE +8D       (120-134)
001601,000188:                                                                                                 #  FLAGWRD9       STATE +9D       (135-149)
001602,000189: 
001603,000190: 
001604,000191:                                                                                                 #            SORTED LIST OF
001605,000192: 
001606,000193:                                                                                                 #            INTERPRETIVE SWITCH BIT ASSIGNMENTS
001607,000194: 
001608,000195:                                                                                                 #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001609,000196:                                                                                                 #  FLAGWORD       DEC NUM           BIT & FLAG         EQUIVALENT FLAGWORDS
001610,000197: 
001611,000198:                                                                                                 #  22DSPFLG       032D              BIT 13 FLAG 2
001612,000199:                                                                                                 #  360SW          134D              BIT 1 FLAG 8
001613,000200:                                                                                                 #  3AXISFLG       084D              BIT 6 FLAG 5
001614,000201:                                                                                                 #  ADVTRK 125D              BIT 10 FLAG 8
001615,000202:                                                                                                 #  APSESW 130D              BIT 5 FLAG 8
001616,000203:                                                                                                 #  ASTNFLAG       108D              BIT 12 FLAG 7
001617,000204:                                                                                                 #  ATTCHFLG       118D              BIT 2 FLAG 7
001618,000205:                                                                                                 #  AVEGFLAG       029D              BIT 1 FLAG 1
001619,000206:                                                                                                 #  AVEMIDSW       149D              BIT 1 FLAG 9
001620,000207:                                                                                                 #  AVFLAG 040D              BIT 5 FLAG 2
001621,000208:                                                                                                 #  CALCMAN2       043D              BIT 2 FLAG 2
001622,000209:                                                                                                 #  CALCMAN3       042D              BIT 3 FLAG 2
001623,000210:                                                                                                 #  CMDAPARM       093D              BIT 12 FLAG 6
001624,000211:                                                                                                 #  CMOONFLG       123D              BIT 12 FLAG 8
001625,000212:                                                                                                 #  CM/DSTBY       103D              BIT 2 FLAG 6
001626,000213:                                                                                                 #  COGAFLAG       131D              BIT 4 FLAG 8
001627,000214:                                                                                                 #  COMPUTER       082D              BIT 8 FLAG 5
001628,000215:                                                                                                 #  CPHIFLAG       000D              BIT 15 FLAG 0
001629,000216:                                                                                                 #  CULTFLAG       053D              BIT 7 FLAG 3
001630,000217:                                                                                                 #  CYCLESW        035D              BIT 10 FLAG 2
001631,000218:                                                                                                 #  D6OR9FLG       058D              BIT 2 FLAG 3
001632,000219:                                                                                                 #  DAPBIT1        090D              BIT 15 FLAG 6
001633,000220:                                                                                                 #  DAPBIT2        091D              BIT 14 FLAG 6
001634,000221:                                                                                                 #  DIM0FLAG       059D              BIT 1 FLAG 3
001635,000222:                                                                                                 #  DMENFLAG       081D              BIT 9 FLAG 5
001636,000223:                                                                                                 #  DRIFTFLG       030D              BIT 15 FLAG 2
001637,000224:                                                                                                 #  DSKYFLAG       075D              BIT 15 FLAG 5
001638,000225:                                                                                                 # # Page 40
001639,000226:                                                                                                 #  EGSW           97D               BIT 8 FLAG 6        KNOWNFLG  R57FLAG
001640,000227:                                                                                                 #  ENG1FLAG       018D              BIT 12 FLAG 1
001641,000228:                                                                                                 #  ENG2FLAG       019D              BIT 11 FLAG 1
001642,000229:                                                                                                 #  ENGONFLG       083D              BIT 7 FLAG 5
001643,000230:                                                                                                 #  ERADFLAG       017D              BIT 13 FLAG 1
001644,000231:                                                                                                 #  ETPIFLAG       038D              BIT 7 FLAG 2        FIRSTFLG   OPTNSW
001645,000232:                                                                                                 #  F2RTE          10D               BIT 5  FLAG 0
001646,000233:                                                                                                 #  FINALFLG       039D              BIT 6 FLAG 2
001647,000234:                                                                                                 #  FIRSTFLG       38D               BIT 7  FLAG 2       ETPIFLAG   OPTNSW
001648,000235:                                                                                                 #  FREEFLAG       012D              BIT 3 FLAG 0
001649,000236:                                                                                                 #  GAMDIFSW       094D              BIT 11 FLAG 6
001650,000237:                                                                                                 #  GLOKFAIL       046D              BIT 14 FLAG 3
001651,000238:                                                                                                 #  GMBDRVSW       095D              BIT 10 FLAG 6      GONEPAST
001652,000239:                                                                                                 #  GONEBY 112D              BIT 8 FLAG 7
001653,000240:                                                                                                 #  GONEPAST       095D              BIT 10 FLAG 6      GMBDRVSW
001654,000241:                                                                                                 #  GRRBKFLG       085D              BIT 5 FLAG 5
001655,000242:                                                                                                 #  GUESSW 028D              BIT 2 FLAG 1
001656,000243:                                                                                                 #  GYMDIFSW       104D              BIT 1 FLAG 6
001657,000244:                                                                                                 #  .05GSW 102D              BIT 3 FLAG 6
001658,000245:                                                                                                 #  HIND           099D              BIT 6 FLAG 6
001659,000246:                                                                                                 #  IDLEFAIL       024D              BIT 6 FLAG 1
001660,000247:                                                                                                 #  IDLEFLAG       113D              BIT 7 FLAG 7
001661,000248:                                                                                                 #  IGNFLAG        107D              BIT 13 FLAG 7
001662,000249:                                                                                                 #  IMPULSW        036D              BIT 9 FLAG 2
001663,000250:                                                                                                 #  IMUSE          007D              BIT 8 FLAG 0
001664,000251:                                                                                                 #  INCORFLG       079D              BIT 11 FLAG 5
001665,000252:                                                                                                 #  INFINFLG       128D              BIT 7 FLAG 8
001666,000253:                                                                                                 #  INRLSW 100D              BIT 5 FLAG 6
001667,000254:                                                                                                 #  INTFLAG        151D              BIT 14 FLAG 10
001668,000255:                                                                                                 #  INTYPFLG       056D              BIT 4 FLAG 3
001669,000256:                                                                                                 #  ITSWICH        106D              BIT 14 FLAG 7
001670,000257:                                                                                                 #  KFLAG          014D              BIT 1 FLAG 0
001671,000258:                                                                                                 #  KNOWNFLG       097D              BIT 8  FLAG 8      EGSW  R57FLAG
001672,000259:                                                                                                 #  LATSW          101D              BIT 4 FLAG 6
001673,000260:                                                                                                 #  LMOONFLG       124D              BIT 11 FLAG 8
001674,000261:                                                                                                 #  LUNAFLAG       048D              BIT 12 FLAG 3
001675,000262:                                                                                                 #  MAXDBFLG       138D              BIT 12 FLAG 9
001676,000263:                                                                                                 #  MCLVFLAG       088D              BIT 2 FLAG 5
001677,000264:                                                                                                 #  MID1FLAG       147D              BIT 3 FLAG 9
001678,000265:                                                                                                 #  MIDAVFLG       148D              BIT 2 FLAG 9
001679,000266:                                                                                                 #  MIDFLAG        002D              BIT 13 FLAG 0
001680,000267:                                                                                                 #  MKOVFLAG       072D              BIT 3 FLAG 4
001681,000268:                                                                                                 #  MOONFLAG       003D              BIT 12 FLAG 0
001682,000269:                                                                                                 #  MRKIDFLG       060D              BIT 15 FLAG 4
001683,000270:                                                                                                 #  MRKNVFLG       066D              BIT 9 FLAG 4
001684,000271:                                                                                                 #  MRUPTFLG       070D              BIT 5 FLAG 4
001685,000272:                                                                                                 #  MWAITFLG       064D              BIT 11 FLAG 4
001686,000273:                                                                                                 #  N22ORN17       144D              BIT 6 FLAG 9
001687,000274:                                                                                                 #  NEEDLFLG       006D              BIT 9 FLAG 0
001688,000275:                                                                                                 #  NEWIFLG        122D              BIT 13 FLAG 8
001689,000276:                                                                                                 # # Page 41
001690,000277:                                                                                                 #  NJETSFLG       015D              BIT 15 FLAG 1
001691,000278:                                                                                                 #  NODOFLAG       044D              BIT 1 FLAG 2
001692,000279:                                                                                                 #  NORFHOR        004D              BIT 11 FLAG 0
001693,000280:                                                                                                 #  NORMSW 110D              BIT 10 FLAG 7
001694,000281:                                                                                                 #  NOSWITCH       098D              BIT 7 FLAG 6
001695,000282:                                                                                                 #  NRMIDFLG       062D              BIT 13 FLAG 4
001696,000283:                                                                                                 #  NRMNVFLG       067D              BIT 8 FLAG 4
001697,000284:                                                                                                 #  NRUPTFLG       071D              BIT 4 FLAG 4
001698,000285:                                                                                                 #  NTARGFLG       102D              BIT 3 FLAG 6
001699,000286:                                                                                                 #  NWAITFLG       065D              BIT 10 FLAG 4
001700,000287:                                                                                                 #  OPTNSW 038D              BIT 7  FLAG 2      ETPIFLAG  FIRSTFLG
001701,000288:                                                                                                 #  ORBWFLAG       054D              BIT 6  FLAG 3
001702,000289:                                                                                                 #  ORDERSW        129D              BIT 6 FLAG 8
001703,000290:                                                                                                 #  P22MKFLG       49D               BIT 11 FLAG 3
001704,000291:                                                                                                 #  P39/79SW       126D              BIT 9  FLAG 8
001705,000292:                                                                                                 #  PDSPFLAG       063D              BIT 12 FLAG 4
001706,000293:                                                                                                 #  PFRATFLG       041D              BIT 4 FLAG 2
001707,000294:                                                                                                 #  PINBRFLG       069D              BIT 6 FLAG 4
001708,000295:                                                                                                 #  PRECIFLG       052D              BIT 8 FLAG 3
001709,000296:                                                                                                 #  PRFTRKAT       080D              BIT 10 FLAG 5
001710,000297:                                                                                                 #  PRIODFLG       061D              BIT 14 FLAG 4
001711,000298:                                                                                                 #  PRONVFLG       068D              BIT 7 FLAG 4
001712,000299:                                                                                                 #  QUITFLAG       145D              BIT 5 FLAG 9
001713,000300:                                                                                                 #  R21MARK        031D              BIT 14 FLAG 2
001714,000301:                                                                                                 #  R22CAFLG       143D              BIT 7 FLAG 9
001715,000302:                                                                                                 #  R23FLG 021D              BIT 9 FLAG 1
001716,000303:                                                                                                 #  R31FLAG        146D              BIT 4 FLAG 9
001717,000304:                                                                                                 #  R53FLAG        009D              BIT 6 FLAG 0
001718,000305:                                                                                                 #  R57FLAG        097D              BIT 8 FLAG 6       KNOWNFLG  EGSW
001719,000306:                                                                                                 #  R60FLAG        086D              BIT 4 FLAG 5
001720,000307:                                                                                                 #  REFSMFLG       047D              BIT 13 FLAG 3
001721,000308:                                                                                                 #  REINTFLG       158D              BIT 7 FLAG 10
001722,000309:                                                                                                 #  RELVELSW       096D              BIT 9 FLAG 6
001723,000310:                                                                                                 #  RENDWFLG       089D              BIT 1 FLAG 5
001724,000311:                                                                                                 #  RNDVZFLG       008D              BIT 7 FLAG 0
001725,000312:                                                                                                 #  RPQFLAG        120D              BIT 15 FLAG 8
001726,000313:                                                                                                 #  RVSW           111D              BIT 9 FLAG 7
001727,000314:                                                                                                 #  SAVECFLG       140D              BIT 10 FLAG 9
001728,000315:                                                                                                 #  SLOPESW        027D              BIT 3 FLAG 1
001729,000316:                                                                                                 #  SOLNSW 087D              BIT 3 FLAG 5
001730,000317:                                                                                                 #  SOURCFLG       142D              BIT 8 FLAG 9
001731,000318:                                                                                                 #  STATEFLG       055D              BIT 5 FLAG 3
001732,000319:                                                                                                 #  STEERSW        034D              BIT 11 FLAG 2
001733,000320:                                                                                                 #  STIKFLAG       016D              BIT 14 FLAG 1
001734,000321:                                                                                                 #  STRULLSW       92D               BIT 13 FLAG 6
001735,000322:                                                                                                 #  SURFFLAG       127D              BIT 8 FLAG 8
001736,000323:                                                                                                 #  SWTOVER        135D              BIT 15 FLAG 9
001737,000324:                                                                                                 #  TARG1FLG       020D              BIT 10 FLAG 1
001738,000325:                                                                                                 #  TARG2FLG       021D              BIT 9 FLAG 1
001739,000326:                                                                                                 #  TERMIFLG       105D              BIT 15 FLAG 7
001740,000327:                                                                                                 # # Page 42
001741,000328:                                                                                                 #  TFFSW          119D              BIT 1 FLAG 7
001742,000329:                                                                                                 #  TIMRFLAG       109D              BIT 11 FLAG 7
001743,000330:                                                                                                 #  TRACKFLG       025D              BIT 5 FLAG 1
001744,000331:                                                                                                 #  TRM03FLG       26D               BIT 4  FLAG 1
001745,000332:                                                                                                 #  TRUNFLAG       011D              BIT 4 FLAG 0
001746,000333:                                                                                                 #  UPDATFLG       023D              BIT 7 FLAG 1
001747,000334:                                                                                                 #  UPLOCKFL       116D              BIT 4 FLAG 7
001748,000335:                                                                                                 #  V37FLAG        114D              BIT 6 FLAG 7
001749,000336:                                                                                                 #  V59FLAG        078D              BIT 12 FLAG 5
001750,000337:                                                                                                 #  V67FLAG        136D              BIT 14 FLAG 9
001751,000338:                                                                                                 #  V82EMFLG       137D              BIT 13 FLAG 9
001752,000339:                                                                                                 #  V94FLAG        139D              BIT 11 FLAG 9
001753,000340:                                                                                                 #  VEHUPFLG       022D              BIT 8 FLAG 1
001754,000341:                                                                                                 #  VERIFLAG       117D              BIT 3 FLAG 7
001755,000342:                                                                                                 #  VFLAG          050D              BIT 10 FLAG 3
001756,000343:                                                                                                 #  VHFRFLAG       141D              BIT 9 FLAG 9
001757,000344:                                                                                                 #  VINTFLAG       057D              BIT 3 FLAG 3
001758,000345:                                                                                                 #  XDELVFLG       037D              BIT 8 FLAG 2
001759,000346:                                                                                                 #  XDSPFLAG       074D              BIT 1 FLAG 4
001760,000347: 
001761,000348:                                                                                                 # # Page 43
001762,000349: 
001763,000350:                                                                                                 #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001764,000351: ???????     0074               FLAGWRD0          =        STATE      +0                         #  (000-014)
001765,000352: 
001766,000353:                                                                                                 #  (SET)                (RESET)
001767,000354: 
001768,000355:                                                                                                 #                         BIT 15 FLAG 0
001769,000356: ???????                        CPHIFLAG          =        000D                                  #  OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS
001770,000357:                                                                                                 #  CPHIX                THETAD
001771,000358: 
001772,000359: ???????     4674               CPHIBIT           =        BIT15                                 
001773,000360: 
001774,000361:                                                                                                 #                         BIT 14 FLAG 0
001775,000362: ???????                        JSWITCH           =        001D                                  #  INTEGRATION OF W    INTEGRATION OF STATE
001776,000363:                                                                                                 #  MATRIX       VECTOR
001777,000364: 
001778,000365: ???????     4675               JSWCHBIT          =        BIT14                                 
001779,000366: 
001780,000367:                                                                                                 #                         BIT 13 FLAG 0
001781,000368: ???????                        MIDFLAG           =        002D                                  #  INTEGRATION WITH    INTEGRATION WITHOUT
001782,000369:                                                                                                 #  SOLAR PERTURBATIONS SOLAR PERTURBATIONS
001783,000370: 
001784,000371: ???????     4676               MIDFLBIT          =        BIT13                                 
001785,000372: 
001786,000373:                                                                                                 #                         BIT 12 FLAG 0
001787,000374: ???????                        MOONFLAG          =        003D                                  #  MOON IS SPHERE OF   EARTH IS SPHERE OF
001788,000375:                                                                                                 #  INFLUENCE            INFLUENCE
001789,000376: 
001790,000377: ???????     4677               MOONBIT           =        BIT12                                 
001791,000378: 
001792,000379:                                                                                                 #                         BIT 11 FLAG 0
001793,000380: ???????                        NORFHOR           =        004D                                  #  FAR HORIZON          NEAR HORIZON
001794,000381: 
001795,000382: 
001796,000383: ???????     4700               NORFBIT           =        BIT11                                 
001797,000384: 
001798,000385:                                                                                                 #                         BIT 10 FLAG 0
001799,000386: ???????                        ZMEASURE          =        005D                                  #  MEASUREMENT PLANET  MEASUREMENT PLANET
001800,000387:                                                                                                 #  AND PRIMARY PLANET  AND PRIMARY PLANET
001801,000388:                                                                                                 #  DIFFERENT            SAME
001802,000389: 
001803,000390: ???????     4701               ZMEASBIT          =        BIT10                                 
001804,000391: 
001805,000392:                                                                                                 #                         BIT 9 FLAG 0
001806,000393: ???????                        NEEDLFLG          =        006D                                  #  TOTAL ATTITUDE      A/P FOLLOWING ERROR
001807,000394:                                                                                                 #  ERROR DISPLAYED     DISPLAYED
001808,000395: 
001809,000396: ???????     4702               NEEDLBIT          =        BIT9                                  
001810,000397: 
001811,000398:                                                                                                 #                         BIT 8 FLAG 0
001812,000399: ???????                        IMUSE             =        007D                                  #  IMU IN USE           IMU NOT IN USE
001813,000400: 
001814,000401:                                                                                                 # # Page 44
001815,000402: ???????     4703               IMUSEBIT          =        BIT8                                  
001816,000403: 
001817,000404:                                                                                                 #                         BIT 7 FLAG 0
001818,000405: ???????                        RNDVZFLG          =        008D                                  #  P20 RUNNING          P20 NOT RUNNING
001819,000406: ???????     4704               RNDVZBIT          =        BIT7                                  
001820,000407: 
001821,000408:                                                                                                 #                         BIT 6 FLAG 0
001822,000409: ???????                        R53FLAG           =        009D                                  #  V51 INITIATED        V51 NOT INITIATED
001823,000410: 
001824,000411: 
001825,000412: ???????     4705               R53FLBIT          =        BIT6                                  
001826,000413: 
001827,000414:                                                                                                 #                         BIT 5 FLAG 0
001828,000415: ???????                        F2RTE             =        010D                                  #  IN TIME CRITICAL    NOT IN TIME CRITICAL
001829,000416:                                                                                                 #  MODE                 MODE
001830,000417: 
001831,000418: ???????     4706               F2RTEBIT          =        BIT5                                  
001832,000419: 
001833,000420:                                                                                                 #                         BIT 4 FLAG 0
001834,000421: ???????                        TRUNFLAG          =        011D                                  #  DRIVING OF TRUNNION DRIVING OF TRUNNION
001835,000422:                                                                                                 #  ALLOWED              NOT ALLOWED
001836,000423: 
001837,000424: ???????     4707               TRUNBIT           =        BIT4                                  
001838,000425: 
001839,000426:                                                                                                 #                         BIT 3 FLAG 0
001840,000427: ???????                        FREEFLAG          =        012D                                  #  (TEMPORARY FLAG USED IN MANY ROUTINES)
001841,000428: 
001842,000429: ???????     4710               FREEFBIT          =        BIT3                                  
001843,000430: 
001844,000431:                                                                                                 #                         BIT 2 FLAG 0
001845,000432:                                                                                                 #                 =       13D
001846,000433: 
001847,000434:                                                                                                 #                         BIT 1 FLAG 0
001848,000435: ???????                        KFLAG             =        014D                                  #  SEARCH SECTOR MORE  SEARCH SECTOR LESS
001849,000436:                                                                                                 #  THAN 180 DEGREES    THAN 180 DEGREES
001850,000437: 
001851,000438: ???????     4712               KBIT              =        BIT1                                  
001852,000439: 
001853,000440: ???????     0075               FLAGWRD1          =        STATE      +1                         #  (015-029)
001854,000441: 
001855,000442:                                                                                                 #  (SET)                (RESET)
001856,000443: 
001857,000444:                                                                                                 #                         BIT 15 FLAG 1
001858,000445: ???????                        NJETSFLG          =        015D                                  #  TWO JET RCS BURN    FOUR JET RCS BURN
001859,000446: 
001860,000447: ???????     4674               NJETSBIT          =        BIT15                                 
001861,000448: 
001862,000449:                                                                                                 #                         BIT 14 FLAG 1
001863,000450: ???????                        STIKFLAG          =        016D                                  #  RHC CONTROL          CMC CONTROL
001864,000451: 
001865,000452:                                                                                                 # # Page 45
001866,000453: ???????     4675               STIKBIT           =        BIT14                                 
001867,000454: 
001868,000455:                                                                                                 #                         BIT 13 FLAG 1
001869,000456: ???????                        ERADFLAG          =        017D                                  #  EARTH, COMPUTE      EARTH, USED FIXED
001870,000457:                                                                                                 #   FISCHER ELLIPSOID   RADIUS
001871,000458:                                                                                                 #   RADIUS
001872,000459:                                                                                                 #  MOON, USE FIXED     MOON, USE RLS FOR
001873,000460:                                                                                                 #        RADIUS               LUNAR RADIUS
001874,000461: 
001875,000462: 
001876,000463: ???????     4676               ERADFBIT          =        BIT13                                 
001877,000464: 
001878,000465:                                                                                                 #                         BIT 12 FLAG 1
001879,000466:                                                                                                 #                 =       018D
001880,000467: 
001881,000468: 
001882,000469:                                                                                                 #                         BIT 11 FLAG 1
001883,000470: ???????                        ENG2FLAG          =        019D                                  #  RCS BURN             SPS BURN
001884,000471: 
001885,000472: ???????     4700               ENG2BIT           =        BIT11                                 
001886,000473: 
001887,000474:                                                                                                 #                         BIT 10 FLAG 1
001888,000475: ???????                        TARG1FLG          =        020D                                  #  SIGHTING LEM         NOT SIGHTING LEM
001889,000476: 
001890,000477: ???????     4701               TARG1BIT          =        BIT10                                 
001891,000478: 
001892,000479:                                                                                                 #                         BIT 9 FLAG 1
001893,000480: ???????                        TARG2FLG          =        021D                                  #  SIGHTING LANDMARK   SIGHTING STAR
001894,000481: 
001895,000482: ???????     4702               TARG2BIT          =        BIT9                                  
001896,000483: 
001897,000484:                                                                                                 #                         BIT  9 FLAG 1
001898,000485: ???????                        R23FLG            =        021D                                  #  R23 MARKING          R21 MARKING
001899,000486: 
001900,000487: 
001901,000488: ???????     4702               R23BIT            =        BIT9                                  
001902,000489: 
001903,000490:                                                                                                 #                         BIT 8 FLAG 1
001904,000491: ???????                        VEHUPFLG          =        022D                                  #  CSM STATE VECTOR    LEM STATE VECTOR
001905,000492:                                                                                                 #  BEING UPDATED        BEING UPDATED
001906,000493: 
001907,000494: ???????     4703               VEHUPBIT          =        BIT8                                  
001908,000495: 
001909,000496:                                                                                                 #                         BIT 7 FLAG 1
001910,000497: ???????                        UPDATFLG          =        023D                                  #  UPDATING BY MARKS   UPDATING BY MARKS
001911,000498:                                                                                                 #  ALLOWED              NOT ALLOWED
001912,000499: 
001913,000500: ???????     4704               UPDATBIT          =        BIT7                                  
001914,000501: 
001915,000502:                                                                                                 #                         BIT 6 FLAG 1
001916,000503:                                                                                                 # # Page 46
001917,000504: ???????                        IDLEFAIL          =        024D                                  #  INHIBIT R41          ENABLE R41 (ENGFAIL)
001918,000505: 
001919,000506: ???????     4705               IDLEBIT           =        BIT6                                  
001920,000507: 
001921,000508:                                                                                                 #                         BIT 5 FLAG 1
001922,000509: ???????                        TRACKFLG          =        025D                                  #  TRACKING ALLOWED    TRACKING NOT ALLOWED
001923,000510: 
001924,000511: ???????     4706               TRACKBIT          =        BIT5                                  
001925,000512: 
001926,000513:                                                                                                 #                         BIT 4 FLAG 1
001927,000514: ???????                        TRM03FLG          =        26D                                   #  REQUEST TO           NO REQUEST TO
001928,000515: ???????     4707               TRM03BIT          =        BIT4                                  #  TERMINATE P03 HAS   TERMINATE P03 HAS
001929,000516:                                                                                                 #  BEEN ENTERED         BEEN ENTERED
001930,000517: 
001931,000518: 
001932,000519:                                                                                                 #                         BIT 3 FLAG 1
001933,000520: ???????                        SLOPESW           =        27D                                   #  ITERATE WITH BIAS   ITERATE WITH REGULA
001934,000521:                                                                                                 #  METHOD IN ITERATOR  FALSI METHOD IN 
001935,000522:                                                                                                 #                         ITERATOR
001936,000523: 
001937,000524: 
001938,000525: ???????     4710               SLOPEBIT          =        BIT3                                  
001939,000526: 
001940,000527:                                                                                                 #                         BIT 2 FLAG 1
001941,000528: ???????                        GUESSW            =        028D                                  #  NO STARTING VALUE   STARTING VALUE FOR
001942,000529:                                                                                                 #  FOR ITERATION       ITERATION EXISTS
001943,000530: 
001944,000531: ???????     4711               GUESSBIT          =        BIT2                                  
001945,000532: 
001946,000533:                                                                                                 #                         BIT 1 FLAG 1
001947,000534: ???????                        AVEGFLAG          =        029D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
001948,000535:                                                                                                 #  TO CONTINUE          TO CEASE
001949,000536: 
001950,000537: ???????     4712               AVEGBIT           =        BIT1                                  
001951,000538: 
001952,000539: ???????     0076               FLAGWRD2          =        STATE      +2                         #  (030-044)
001953,000540: 
001954,000541:                                                                                                 #  (SET)                (RESET)
001955,000542: 
001956,000543:                                                                                                 #                         BIT 15 FLAG 2
001957,000544: ???????                        DRIFTFLG          =        030D                                  #  T3RUPT CALLS GYRO   T3RUPT DOES NO GYRO
001958,000545:                                                                                                 #  COMPENSATION        COMPENSATION
001959,000546: 
001960,000547: ???????     4674               DRFTBIT           =        BIT15                                 
001961,000548: 
001962,000549:                                                                                                 #                         BIT 14 FLAG 2
001963,000550: ???????                        R21MARK           =        031D                                  #  OPTION ONE FOR      OPTION TWO FOR 
001964,000551:                                                                                                 #  MARKRUPT            MARKRUPT
001965,000552: 
001966,000553: ???????     4675               R21BIT            =        BIT14                                 
001967,000554: 
001968,000555:                                                                                                 # # Page 47
001969,000556:                                                                                                 #                         BIT 13 FLAG 2
001970,000557: ???????                        22DSPFLG          =        032D                                  #  DISPLAY DR,DV       DO NOT DISPLAY DR,DV
001971,000558: 
001972,000559: 
001973,000560: ???????     4676               22DSPBIT          =        BIT13                                 
001974,000561: 
001975,000562:                                                                                                 #                         BIT 12 FLAG 2
001976,000563:                                                                                                 #                 =       033D
001977,000564: 
001978,000565: 
001979,000566:                                                                                                 #                         BIT 11 FLAG 2
001980,000567: ???????                        STEERSW           =        034D                                  #  STEERING TO BE DONE STEERING OMITTED
001981,000568: 
001982,000569: ???????     4700               STEERBIT          =        BIT11                                 
001983,000570: 
001984,000571:                                                                                                 #                         BIT 10 FLAG 2
001985,000572: ???????                        CYCLESW           =        035D                                  #  VG CALCULATION TO   VG CALCULATION
001986,000573:                                                                                                 #  BE DONE             OMITTED
001987,000574: 
001988,000575: ???????     4701               CYCLEBIT          =        BIT10                                 
001989,000576: 
001990,000577:                                                                                                 #                         BIT 9 FLAG 2
001991,000578: ???????                        IMPULSW           =        036D                                  #  MINIMUM IMPULSE     STEERING BURN (NO
001992,000579:                                                                                                 #  BURN (CUTOFF TIME   CUTOFF TIME YET
001993,000580:                                                                                                 #  SPECIFIED)          AVAILABLE)
001994,000581: 
001995,000582: ???????     4702               IMPULBIT          =        BIT9                                  
001996,000583: 
001997,000584:                                                                                                 #                         BIT 8 FLAG 2
001998,000585: ???????                        XDELVFLG          =        037D                                  #  EXTERNAL DELTAV VG  LAMBERT (AIMPOINT)
001999,000586:                                                                                                 #  COMPUTATION         VG COMPUTATION
002000,000587: 
002001,000588: ???????     4704               XDELVBIT          =        BIT7                                  
002002,000589: 
002003,000590:                                                                                                 #                         BIT 7 FLAG 2
002004,000591: ???????                        ETPIFLAG          =        038D                                  #  ELEVATION ANGLE     TPI TIME SUPPLIED
002005,000592:                                                                                                 #  SUPPLIED FOR P34,74 FOR P34,74
002006,000593: 
002007,000594:                                                                                                 #                         BIT 7 FLAG 2
002008,000595: ???????  0000046               FIRSTFLG          =        ETPIFLAG                              #  SUCCEEDING PASS     FIRST PASS THRU
002009,000596:                                                                                                 #  THRU S40.9          S40.9
002010,000597: 
002011,000598: ???????     4704               FIRSTBIT          =        BIT7                                  
002012,000599: 
002013,000600:                                                                                                 #                         BIT  7 FLAG 2
002014,000601: ???????  0000046               OPTNSW            =        ETPIFLAG                              #  SOI PHASE P38/P78   SOR PHASE OF P38/P78
002015,000602: 
002016,000603: ???????     4705               FINALBIT          =        BIT6                                  
002017,000604: 
002018,000605:                                                                                                 #                         BIT 6 FLAG 2
002019,000606:                                                                                                 # # Page 48
002020,000607: ???????                        FINALFLG          =        039D                                  #  LSAT PASS THROUGH   INTERIM PASS THROUGH
002021,000608:                                                                                                 #  RENDEZVOUS PROGRAM  RENDEZVOUS PROGRAM
002022,000609:                                                                                                 #  COMPUTATIONS        COMPUTATIONS
002023,000610: 
002024,000611: ???????     4706               AVFLBIT           =        BIT5                                  
002025,000612: 
002026,000613:                                                                                                 #                         BIT 5 FLAG 2
002027,000614: ???????                        AVFLAG            =        040D                                  #  LEM IS ACTIVE       CSM IS ACTIVE
002028,000615:                                                                                                 #  VEHICLE             VEHICLE
002029,000616: 
002030,000617:                                                                                                 #                         BIT 4 FLAG 2
002031,000618: ???????                        PFRATFLG          =        041D                                  #  PREFERRED ATTITUDE  PREFERRED ATTITUDE
002032,000619:                                                                                                 #  COMPUTED            NOT COMPUTED
002033,000620: 
002034,000621: ???????     4707               PFRATBIT          =        BIT4                                  
002035,000622: 
002036,000623:                                                                                                 #                         BIT 3 FLAG 2
002037,000624: ???????                        CALCMAN3          =        042D                                  #  NO FINAL ROLL       FINAL ROLL IS
002038,000625:                                                                                                 #                      NECESSARY
002039,000626: 
002040,000627: ???????     4710               CALC3BIT          =        BIT3                                  
002041,000628: 
002042,000629:                                                                                                 #                         BIT 2 FLAG 2
002043,000630: ???????                        CALCMAN2          =        043D                                  #  PERFORM MANEUVER    BYPASS STARTING
002044,000631:                                                                                                 #  STARTING PROCEDURE  PROCEDURE
002045,000632: 
002046,000633: ???????     4711               CALC2BIT          =        BIT2                                  
002047,000634: 
002048,000635:                                                                                                 #                         BIT 1 FLAG 2
002049,000636: ???????                        NODOFLAG          =        044D                                  #  V37 NOT PERMITTED   V37 PERMITTED
002050,000637: 
002051,000638: ???????     4712               NODOBIT           =        BIT1                                  
002052,000639: 
002053,000640: ???????     0077               FLAGWRD3          =        STATE      +3                         #  (045-059)
002054,000641: 
002055,000642:                                                                                                 #  (SET)               (RESET)
002056,000643: 
002057,000644:                                                                                                 #                         BIT 15 FLAG 3
002058,000645:                                                                                                 #                 =       045D
002059,000646: 
002060,000647: 
002061,000648:                                                                                                 #                         BIT 14 FLAG 3
002062,000649: ???????                        GLOKFAIL          =        046D                                  #  GIMBAL LOCK HAS     NOT IN GIMBAL LOCK
002063,000650:                                                                                                 #  OCCURED
002064,000651: 
002065,000652: ???????     4675               GLOKFBIT          =        BIT14                                 
002066,000653: 
002067,000654:                                                                                                 #                         BIT 13 FLAG 3
002068,000655: ???????                        REFSMFLG          =        047D                                  #  REFSMMAT GOOD       REFSMMAT NO GOOD
002069,000656: 
002070,000657:                                                                                                 # # Page 49
002071,000658: ???????     4676               REFSMBIT          =        BIT13                                 
002072,000659: 
002073,000660:                                                                                                 #                         BIT 12 FLAG 3
002074,000661: ???????                        LUNAFLAG          =        048D                                  #  LUNAR LAT-LONG      EARTH LAT-LONG
002075,000662: 
002076,000663: ???????     4677               LUNABIT           =        BIT12                                 
002077,000664: 
002078,000665:                                                                                                 #                         BIT 11 FLAG 3
002079,000666: ???????                        P22MKFLG          =        049D                                  #  P22 DOWNLINKED MARK P22 DOWNLINK MARK
002080,000667:                                                                                                 #  DATA WAS JUST TAKEN DATA NOT JUST TAKEN
002081,000668: 
002082,000669: ???????     4700               P22MKBIT          =        BIT11                                 
002083,000670: 
002084,000671:                                                                                                 #                         BIT 10 FLAG 3
002085,000672: ???????                        VFLAG             =        050D                                  #  LESS THAN TWO STARS TWO STARS IN FIELD
002086,000673:                                                                                                 #  IN FIELD OF VIEW    OF VIEW
002087,000674: 
002088,000675: ???????     4701               VFLAGBIT          =        BIT10                                 
002089,000676: 
002090,000677:                                                                                                 #                         BIT 9 FLAG 3
002091,000678:                                                                                                 #                 =       051D
002092,000679: 
002093,000680: 
002094,000681:                                                                                                 #                         BIT 8 FLAG 3
002095,000682: ???????                        PRECIFLG          =        052D                                  #  CSMPREC OR LEMPREC INTEGRV OR INTEGRVS
002096,000683:                                                                                                 #  CALLED              CALLED
002097,000684: 
002098,000685: ???????     4703               PRECIBIT          =        BIT8                                  
002099,000686: 
002100,000687:                                                                                                 #                         BIT 7 FLAG 3
002101,000688: ???????                        CULTFLAG          =        053D                                  #  STAR OCCULTED       STAR NOT OCCULTED
002102,000689: 
002103,000690: ???????     4704               CULTBIT           =        BIT7                                  
002104,000691: 
002105,000692:                                                                                                 #                         BIT 6 FLAG 3
002106,000693: ???????                        ORBWFLAG          =        054D                                  #  W MATRIX VALID FOR  W MATRIX INVALID FOR
002107,000694:                                                                                                 #  ORBITAL NIVIGATION  ORBITAL NAVIGATION
002108,000695: 
002109,000696: ???????     4705               ORBWFBIT          =        BIT6                                  
002110,000697: 
002111,000698:                                                                                                 #                         BIT 5 FLAG 3
002112,000699: ???????                        STATEFLG          =        055D                                  #  PERMANENT STATE     PERMANENT STATE
002113,000700:                                                                                                 #  VECTOR UPDATED      VECTOR NOT UPDATED
002114,000701: 
002115,000702: ???????     4706               STATEBIT          =        BIT5                                  
002116,000703: 
002117,000704:                                                                                                 #                         BIT 4 FLAG 3
002118,000705: ???????                        INTYPFLG          =        056D                                  #  CONIC INTEGRATION   ENCKE INTEGRATION
002119,000706: 
002120,000707: ???????     4707               INTYBIT           =        BIT4                                  
002121,000708: 
002122,000709:                                                                                                 # # Page 50
002123,000710:                                                                                                 #                         BIT 3 FLAG 3
002124,000711: ???????                        VINTFLAG          =        057D                                  #  CSM STATE VECTOR    LEM STATE VECTOR
002125,000712:                                                                                                 #  BEING INTEGRATED    BEING INTEGRATED
002126,000713: 
002127,000714: ???????     4710               VINTFBIT          =        BIT3                                  
002128,000715: 
002129,000716:                                                                                                 #                         BIT 2 FLAG 3
002130,000717: ???????                        D6OR9FLG          =        058D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002131,000718:                                                                                                 #  FOR INTEGRATION     FOR INTEGRATION
002132,000719: 
002133,000720: ???????     4711               D6OR9BIT          =        BIT2                                  
002134,000721: 
002135,000722:                                                                                                 #                         BIT 1 FLAG 3
002136,000723: ???????                        DIM0FLAG          =        059D                                  #  W MATRIX IS TO BE   W MATRIX IS NOT TO
002137,000724:                                                                                                 #  USED                BE USED
002138,000725: 
002139,000726: ???????     0100               FLAGWRD4          =        STATE      +4                         #  (060-074)
002140,000727: 
002141,000728:                                                                                                 #  (SET)               (RESET)
002142,000729: 
002143,000730: ???????     4712               DIM0BIT           =        BIT1                                  
002144,000731: 
002145,000732:                                                                                                 #                         BIT 15 FLAG 4
002146,000733: ???????                        MRKIDFLG          =        060D                                  #  MARK DISPLAY IN     NO MARK DISPLAY IN
002147,000734:                                                                                                 #  ENDIDLE             ENDIDLE
002148,000735: 
002149,000736: ???????     4674               MRKIDBIT          =        BIT15                                 
002150,000737: 
002151,000738:                                                                                                 #                         BIT 14 FLAG 4
002152,000739: ???????                        PRIODFLG          =        061D                                  #  PRIORITY DISPLAY IN NO PRIORITY DISPLAY
002153,000740:                                                                                                 #  ENDIDLE             IN ENDIDLE
002154,000741: 
002155,000742: ???????     4675               PRIODBIT          =        BIT14                                 
002156,000743: 
002157,000744:                                                                                                 #                         BIT 13 FLAG 4
002158,000745: ???????                        NRMIDFLG          =        062D                                  #  NORMAL DISPLAY IN   NO NORMAL DISPLAY
002159,000746:                                                                                                 #  ENDIDLE             IN ENDIDLE
002160,000747: 
002161,000748: ???????     4676               NRMIDBIT          =        BIT13                                 
002162,000749: 
002163,000750:                                                                                                 #                         BIT 12 FLAG 4
002164,000751: ???????                        PDSPFLAG          =        063D                                  #  CAN'T INTERRUPT     SEE M. HAMILTON
002165,000752:                                                                                                 #  PRIORITY DISPLAY
002166,000753: 
002167,000754: ???????     4677               PDSPFBIT          =        BIT12                                 
002168,000755: 
002169,000756:                                                                                                 #                         BIT 11 FLAG 4
002170,000757: ???????                        MWAITFLG          =        064D                                  #  HIGHER PRIORITY     NO HIGHER PRIORITY
002171,000758:                                                                                                 #  DISPLAY OPERATING   DISPLAY OPERATING
002172,000759:                                                                                                 #  WHEN MARK DISPLAY   WHEN MARK DISPLAY
002173,000760:                                                                                                 # # Page 51
002174,000761:                                                                                                 #  INITIATED           INITIATED
002175,000762: 
002176,000763: ???????     4700               MWAITBIT          =        BIT11                                 
002177,000764: 
002178,000765:                                                                                                 #                         BIT 10 FLAG 4
002179,000766: ???????                        NWAITFLG          =        065D                                  #  HIGHER PRIORITY     NO HIGHER PRIORITY
002180,000767:                                                                                                 #  DISPLAY OPERATING   DISPLAY OPERATING
002181,000768:                                                                                                 #  WHEN NORMAL         WHEN NORMAL DISPLAY
002182,000769:                                                                                                 #  DISPLAY INITIATED   INITIATED
002183,000770: 
002184,000771: ???????     4701               NWAITBIT          =        BIT10                                 
002185,000772: 
002186,000773:                                                                                                 #                         BIT 9 FLAG 4
002187,000774: ???????                        MRKNVFLG          =        066D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002188,000775:                                                                                                 #  KEYBOARD WHEN MARK  KEYBOARD WHEN MARK
002189,000776:                                                                                                 #  DISPLAY INITIATED   DISPLAY INITIATED
002190,000777: 
002191,000778: ???????     4702               MRKNVBIT          =        BIT9                                  
002192,000779: 
002193,000780:                                                                                                 #                         BIT 8 FLAG 4
002194,000781: ???????                        NRMNVFLG          =        067D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002195,000782:                                                                                                 #  KEYBOARD WHEN       KEYBOARD WHEN
002196,000783:                                                                                                 #  NORMAL DISPLAY      NORMAL DISPLAY
002197,000784:                                                                                                 #  INITIATED           INITIATED
002198,000785: 
002199,000786: ???????     4703               NRMNVBIT          =        BIT8                                  
002200,000787: 
002201,000788:                                                                                                 #                         BIT 7 FLAG 4
002202,000789: ???????                        PRONVFLG          =        068D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002203,000790:                                                                                                 #  KEYBOARD WHEN       KEYBOARD WHEN
002204,000791:                                                                                                 #  PRIORITY DISPLAY    PRIORITY DISPLAY
002205,000792:                                                                                                 #  INITIATED           INITIATED
002206,000793: 
002207,000794: ???????     4704               PRONVBIT          =        BIT7                                  
002208,000795: 
002209,000796:                                                                                                 #                         BIT 6 FLAG 4
002210,000797: ???????                        PINBRFLG          =        069D                                  #  ASTRONAUT HAS       ASTRONAUT HAS NOT
002211,000798:                                                                                                 #  INTERFERED WITH     INTERFERED WITH
002212,000799:                                                                                                 #  EXISTING DISPLAY    EXISTING DISPLAY
002213,000800: 
002214,000801: ???????     4705               PINBRBIT          =        BIT6                                  
002215,000802: 
002216,000803:                                                                                                 #                         BIT 5 FLAG 4
002217,000804: ???????                        MRUPTFLG          =        070D                                  #  MARK DISPLAY        MARK DISPLAY NOT
002218,000805:                                                                                                 #  INTERRUPTED BY      INTERRUPTED BY
002219,000806:                                                                                                 #  PRIORITY DISPLAY    PRIORITY DISPLAY
002220,000807: 
002221,000808: ???????     4706               MRUPTBIT          =        BIT5                                  
002222,000809: 
002223,000810:                                                                                                 #                         BIT 4 FLAG 4
002224,000811:                                                                                                 # # Page 52
002225,000812: ???????                        NRUPTFLG          =        071D                                  #  NORMAL DISPLAY      NORMAL DISPLAY NOT
002226,000813:                                                                                                 #  INTERRUPTED BY      INTERRUPTED BY
002227,000814:                                                                                                 #  PRIORITY OR MARK    PRIORITY OR MARK
002228,000815:                                                                                                 #  DISPLAY             DISPLAY
002229,000816: 
002230,000817: ???????     4707               NRUPTBIT          =        BIT4                                  
002231,000818: 
002232,000819:                                                                                                 #                         BIT 3 FLAG 4
002233,000820: ???????                        MKOVFLAG          =        072D                                  #  MARK DISPLAY OVER   NO MARK DISPLAY OVER
002234,000821:                                                                                                 #  NORMAL              NORMAL
002235,000822: 
002236,000823: ???????     4710               MKOVBIT           =        BIT3                                  
002237,000824: 
002238,000825:                                                                                                 #                         BIT 2 FLAG 4      DISPLAY BIT
002239,000826:                                                                                                 #                 =       073D            # CLEARED AT INTERVALS
002240,000827: 
002241,000828: 
002242,000829:                                                                                                 #                         BIT 1 FLAG 4
002243,000830: ???????                        XDSPFLAG          =        074D                                  #  MARK DISPLAY NOT TO NO SPECIAL MARK
002244,000831:                                                                                                 #  BE INTERRUPTED      INFORMATION.
002245,000832: 
002246,000833: ???????     4712               XDSPBIT           =        BIT1                                  
002247,000834: 
002248,000835: ???????     0101               FLAGWRD5          =        STATE      +5                         #  (075-099)
002249,000836: 
002250,000837:                                                                                                 #  (SET)               (RESET)
002251,000838: 
002252,000839:                                                                                                 #                         BIT 15 FLAG 5
002253,000840: ???????                        DSKYFLAG          =        075D                                  #  DISPLAYS SENT TO    NO DISPLAYS TO DSKY
002254,000841:                                                                                                 #  DSKY
002255,000842: 
002256,000843: 
002257,000844: ???????     4674               DSKYBIT           =        BIT15                                 
002258,000845: 
002259,000846:                                                                                                 #                         BIT 14 FLAG 5
002260,000847:                                                                                                 #                 =       076D
002261,000848: 
002262,000849:                                                                                                 #                         BIT 13 FLAG 5
002263,000850:                                                                                                 #                 =       077D
002264,000851: 
002265,000852:                                                                                                 #                         BIT 12 FLAG 5
002266,000853: ???????                        V59FLAG           =        078D                                  #  CALIBRATING FOR     NORMAL MARKING FOR
002267,000854:                                                                                                 #  P23                 P23
002268,000855: 
002269,000856: ???????     4677               V59FLBIT          =        BIT12                                 
002270,000857: 
002271,000858:                                                                                                 #                         BIT 11 FLAG 5
002272,000859: ???????                        INCORFLG          =        079D                                  #  FIRST INCORPORATION SECOND INCORPORATION
002273,000860: 
002274,000861: ???????     4700               INCORBIT          =        BIT11                                 
002275,000862: 
002276,000863:                                                                                                 # # Page 53
002277,000864:                                                                                                 #                         BIT 10 FLAG 5
002278,000865: ???????                        RNGSCFLG          =        080D                                  #  ANOTHER TAG FOR PRFTRKAT
002279,000866: 
002280,000867:                                                                                                 #                         BIT 10 FLAG 5
002281,000868: ???????  0000120               PRFTRKAT          =        RNGSCFLG                              #  PREF TRACK ATT      +X AXIS TRACK ATT
002282,000869: 
002283,000870: 
002284,000871: ???????     4701               PRFTRBIT          =        BIT10                                 
002285,000872: 
002286,000873:                                                                                                 #                         BIT 9 FLAG 5
002287,000874: ???????                        DMENFLG           =        081D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002288,000875:                                                                                                 #  FOR INCORPORATION   FOR INCORPORATION
002289,000876: 
002290,000877: ???????     4702               DMENFBIT          =        BIT9                                  
002291,000878: 
002292,000879:                                                                                                 #                         BIT 8 FLAG 5
002293,000880: ???????                        COMPUTER          =        082D                                  #  COMPUTER IS CMC     COMPUTER IS LGC
002294,000881: 
002295,000882: ???????     4703               COMPTBIT          =        BIT8                                  
002296,000883: 
002297,000884:                                                                                                 #                         BIT 7 FLAG 5
002298,000885: ???????                        ENGONFLG          =        083D                                  #  ENGINE TURNED ON    ENGINE TURNED OFF
002299,000886: 
002300,000887: ???????     4704               ENGONBIT          =        BIT7                                  
002301,000888: 
002302,000889:                                                                                                 #                         BIT 6 FLAG 5
002303,000890: ???????                        3AXISFLG          =        084D                                  #  MANEUVER SPECIFIED  MANEUVER SPECIFIED
002304,000891:                                                                                                 #  BY THREE AXES       BY ONE AXIS
002305,000892: 
002306,000893: ???????     4705               3AXISBIT          =        BIT6                                  
002307,000894: 
002308,000895:                                                                                                 #                         BIT 5 FLAG 5
002309,000896: ???????                        GRRBKFLG          =        085D                                  #  BACKUP GRR RECEIVED BACKUP GRR NOT
002310,000897:                                                                                                 #                      RECEIVED
002311,000898: 
002312,000899: ???????     4706               GRRBKBIT          =        BIT5                                  
002313,000900: 
002314,000901:                                                                                                 #                         BIT 4 FLAG 5
002315,000902: ???????                        R60FLAG           =        086D                                  #  R61 MUST USE R60    NORMAL R61
002316,000903: 
002317,000904: 
002318,000905: ???????     4707               R60FLBIT          =        BIT4                                  
002319,000906: 
002320,000907:                                                                                                 #                         BIT 3 FLAG 5
002321,000908: ???????                        SOLNSW            =        087D                                  #  LAMBERT DOES NOT    LAMBERT CONVERGES OR
002322,000909:                                                                                                 #  CONVERGE, OR TIME-  TIME-RADIUS NON
002323,000910:                                                                                                 #  RADIUS NEARLY CIRC. CIRCULAR.
002324,000911: 
002325,000912:                                                                                                 # # Page 54
002326,000913: ???????     4710               SOLNSBIT          =        BIT3                                  
002327,000914: 
002328,000915:                                                                                                 #                         BIT 2 FLAG 5
002329,000916: ???????                        MGLVFLAG          =        088D                                  #  LOCAL VERTICAL      MIDDLE GIMBAL ANGLE
002330,000917:                                                                                                 #  COORDINATES         COMPUTED
002331,000918:                                                                                                 #  COMPUTED
002332,000919: 
002333,000920: ???????     4711               MGLVFBIT          =        BIT2                                  
002334,000921: 
002335,000922:                                                                                                 #                         BIT 1 FLAG 5
002336,000923: ???????                        RENDWFLG          =        089D                                  #  W MATRIX VALID      W MATRIX INVALID
002337,000924:                                                                                                 #  FOR RENDEZVOUS      FOR RENDEZVOUS
002338,000925:                                                                                                 #  NAVIGATION          NAVIGATION
002339,000926: 
002340,000927: ???????     4712               RENDWBIT          =        BIT1                                  
002341,000928: 
002342,000929: ???????     0102               FLAGWRD6          =        STATE      +6                         #  (090-104)
002343,000930: 
002344,000931:                                                                                                 #  (SET)               (RESET)
002345,000932: 
002346,000933:                                                                                                 #                         BIT 15 FLAG 6
002347,000934: ???????                        DAPBIT1           =        090D                                  #  1 SATURN 1 TVC      0 RCS    0 NO
002348,000935: 
002349,000936: ???????     4674               DAP1BIT           =        BIT15                                 
002350,000937: 
002351,000938:                                                                                                 #                         BIT 14 FLAG 6
002352,000939: ???????                        DAPBIT2           =        091D                                  #  1 A/P     0 A/P     1 A/P     0 A/P
002353,000940: 
002354,000941: ???????     4675               DAP2BIT           =        BIT14                                 
002355,000942: 
002356,000943:                                                                                                 #                         BIT 13 FLAG 6
002357,000944: ???????                        STRULLSW          =        92D                                   #  DO STEERULL         DO ULAGEOFF ONLY
002358,000945: 
002359,000946: ???????     4676               STRULBIT          =        BIT13                                 
002360,000947: 
002361,000948:                                                                                                 #                         BIT 13 FLAG 6
002362,000949: ???????  0000134               ENTRYDSP          =        STRULLSW                              #  DO ENTRY DISPLAY    OMIT ENTRY DISPLAY
002363,000950:                                                                                                 #  VIA ENTRYVN.
002364,000951: 
002365,000952: ???????     4676               ENDSPBIT          =        BIT13                                 
002366,000953: 
002367,000954:                                                                                                 #                         BIT 12 FLAG 6
002368,000955: ???????                        CMDAPARM          =        093D                                  #  ALOW ENTRY FIRINGS  INHIBIT ENTRY FIRING
002369,000956:                                                                                                 #  AND CALCULATIONS    AND CONTROL FUNCTION
002370,000957: 
002371,000958: ???????     4677               CMARMBIT          =        BIT12                                 
002372,000959: 
002373,000960:                                                                                                 #                         BIT 11 FLAG 6
002374,000961: ???????                        GAMDIFSW          =        094D                                  #  CALCULATE GAMDOT    GAMDOT NOT TO BE
002375,000962:                                                                                                 # # Page 55
002376,000963:                                                                                                 #                      CALCULATED
002377,000964: 
002378,000965: ???????     4700               GMDIFBIT          =        BIT11                                 
002379,000966: 
002380,000967:                                                                                                 #                         BIT 10 FLAG 6
002381,000968: ???????                        GMBDRVSW          =        095D                                  #  TRIMGIMB OVER       TRIMGIMB NOT OVER
002382,000969: 
002383,000970: ???????     4701               GMBDRBIT          =        BIT10                                 
002384,000971: 
002385,000972:                                                                                                 #                         BIT 10 FLAG 6
002386,000973: ???????  0000137               GONEPAST          =        GMBDRVSW                              #  LATERAL CONTROL     LATERAL CONTROL
002387,000974:                                                                                                 #  CALCULATIONS TO BE  CALCULATIONS TO BE
002388,000975:                                                                                                 #  OMITTED             DONE
002389,000976: 
002390,000977: ???????     4701               GONEBIT           =        BIT10                                 
002391,000978: 
002392,000979:                                                                                                 #                         BIT 9 FLAG 6
002393,000980: ???????                        RELVELSW          =        096D                                  #  TARGETING USES      TARGETING USES
002394,000981:                                                                                                 #  EARTH-RELATIVE      INERTIAL VELOCITY
002395,000982:                                                                                                 #  VELOCITY
002396,000983: 
002397,000984: ???????     4702               RELVBIT           =        BIT9                                  
002398,000985: 
002399,000986:                                                                                                 #                         BIT 8 FLAG 6
002400,000987: ???????                        EGSW              =        097D                                  #  IN FINAL PHASE      NOT IN FINAL PHASE
002401,000988: 
002402,000989: ???????     4703               EGFLGBIT          =        BIT8                                  
002403,000990: 
002404,000991:                                                                                                 #                         BIT 8 FLAG 6
002405,000992: ???????  0000141               KNOWNFLG          =        EGSW                                  #  LANDMARK KNOWN      LANDMARK UNKNOWN
002406,000993: 
002407,000994: ???????     4703               KNOWNBIT          =        BIT8                                  
002408,000995: 
002409,000996:                                                                                                 #                         BIT 8 FLAG 6
002410,000997: ???????  0000141               R57FLAG           =        KNOWNFLG                              #  DO NOT DO R57       DO R57, TRUNION
002411,000998:                                                                                                 #  TRUNION BIAS HAS    BIAS NEEDED
002412,000999:                                                                                                 #  BEEN OBTAINED.
002413,001000: 
002414,001001: ???????     4703               R57BIT            =        BIT8                                  
002415,001002: 
002416,001003:                                                                                                 #                         BIT 7 FLAG 6
002417,001004: ???????                        NOSWITCH          =        098D                                  #  LATERAL ROLL        LATERAL ROLL MANEUVER
002418,001005: ???????     4704               NOSWBIT           =        BIT7                                  #  MANEUVER INHIBITED  PERMITTED IN ENTRY
002419,001006:                                                                                                 #  IN ENTRY
002420,001007: 
002421,001008: 
002422,001009:                                                                                                 #                         BIT 6 FLAG 6
002423,001010: ???????                        HIND              =        099D                                  #  ITERATING HUNTEST   ITERATING OF HUNTEST
002424,001011:                                                                                                 #  CALCULATIONS TO BE  CALCULATIONS TO BE
002425,001012:                                                                                                 #  DONE AFTER RANGE    OMITTED AFTER RANGE
002426,001013:                                                                                                 # # Page 56
002427,001014:                                                                                                 #  PREDICTION          PREDICTION
002428,001015: 
002429,001016: ???????     4705               HINDBIT           =        BIT6                                  
002430,001017: 
002431,001018:                                                                                                 #                         BIT 5 FLAG 6
002432,001019: ???????                        INRLSW            =        100D                                  #  INITIAL ROLL        INITIAL ROLL
002433,001020:                                                                                                 #  V(LV)               V(LV)
002434,001021: 
002435,001022: ???????     4706               INRLBIT           =        BIT5                                  
002436,001023: 
002437,001024:                                                                                                 #  ATTITUDE NOT HELD   ATTITUDE HELD
002438,001025: 
002439,001026:                                                                                                 #                         BIT 4 FLAG 6
002440,001027: ???????                        LATSW             =        101D                                  #  DOWNLIFT NOT        DOWNLIFT INHIBITED
002441,001028:                                                                                                 #  INHIBITED
002442,001029: 
002443,001030: ???????     4707               LATSWBIT          =        BIT4                                  
002444,001031: 
002445,001032:                                                                                                 #                         BIT 3 FLAG 6
002446,001033: ???????                        .05GSW            =        102D                                  #  DRAG OVER .05G      DRAG LESS THAN .05G
002447,001034: 
002448,001035: ???????     4710               .05GBIT           =        BIT3                                  
002449,001036: 
002450,001037:                                                                                                 #                         BIT 3 FLAG 6
002451,001038: ???????                        NTARGFLG          =        102D                                  #  ASTRONAUT DID       ASTRONAUT DID NOT
002452,001039:                                                                                                 #  OVERWRITE DELTA     OVERWRITE DELTA
002453,001040: ???????     4710               NTARGBIT          =        BIT3                                  
002454,001041: 
002455,001042:                                                                                                 #                         BIT 2 FLAG 6
002456,001043: ???????                        CM/DSTBY          =        103D                                  #  ENTRY DAP ACTIVATED ENTRY DAP NOT
002457,001044:                                                                                                 #                      ACTIVATED
002458,001045: 
002459,001046: ???????     4711               CM/DSBIT          =        BIT2                                  
002460,001047: 
002461,001048:                                                                                                 #                         BIT 1 FLAG 6
002462,001049: ???????                        GYMDIFSW          =        104D                                  #  CDU DIFFERENCES AND CDU DIFFERENCES AND
002463,001050:                                                                                                 #  BODY RATES COMPUTED BODY RATES NOT 
002464,001051:                                                                                                 #                      COMPUTED
002465,001052: 
002466,001053: ???????     4712               GYMDIBIT          =        BIT1                                  
002467,001054: 
002468,001055: ???????     0103               FLAGWRD7          =        STATE      +7                         #  (105-119)
002469,001056: 
002470,001057:                                                                                                 #  (SET)               (RESET)
002471,001058: 
002472,001059:                                                                                                 #                         BIT 15 FLAG 7
002473,001060: ???????                        TERMIFLG          =        105D                                  #  TERMINATE R21,R22   DO NOT TERMINATE
002474,001061:                                                                                                 #                      R21,R22
002475,001062: 
002476,001063: ???????     4674               TERMIBIT          =        BIT15                                 
002477,001064: 
002478,001065:                                                                                                 # # Page 57
002479,001066:                                                                                                 #                         BIT 14 FLAG 7
002480,001067: ???????                        ITSWICH           =        106D                                  #  ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER
002481,001068:                                                                                                 #  TPI SEARCH SOLUTION AGAINST LIMITS
002482,001069: 
002483,001070: ???????     4675               ITSWBIT           =        BIT14                                 
002484,001071: 
002485,001072:                                                                                                 #                         BIT 13 FLAG 7
002486,001073: ???????                        IGNFLAG           =        107D                                  #  TIG HAS ARRIVED     TIG HAS NOT ARRIVED
002487,001074: 
002488,001075: ???????     4676               IGNFLBIT          =        BIT13                                 
002489,001076: 
002490,001077:                                                                                                 #                         BIT 12 FLAG 7
002491,001078: ???????                        ASTNFLAG          =        108D                                  #  ASTRONAUT HAS       ASTRONAUT HAS NOT
002492,001079:                                                                                                 #  OKAYED IGNITION     OKAYED IGNITION
002493,001080: 
002494,001081: ???????     4677               ASTNBIT           =        BIT12                                 
002495,001082: 
002496,001083:                                                                                                 #                         BIT 11 FLAG 7
002497,001084: ???????                        TIMRFLAG          =        109D                                  #  CLOKTASK OPERATING  CLOKTASK INOPERATIVE
002498,001085: 
002499,001086: ???????     4700               TIMRBIT           =        BIT11                                 
002500,001087: 
002501,001088:                                                                                                 #                         BIT 10 FLAG 7
002502,001089: ???????                        NORMSW            =        110D                                  #  UNIT NORMAL INPUT   LAMBERT COMPUTE ITS
002503,001090:                                                                                                 #  TO LAMBERT.         OWN UNIT NORMAL.
002504,001091: 
002505,001092: ???????     4701               NORMSBIT          =        BIT10                                 
002506,001093: 
002507,001094:                                                                                                 #                         BIT 9 FLAG 7
002508,001095: ???????                        RVSW              =        111D                                  #  DO NOT COMPUTE FINAL COMPUTE FINAL STATE
002509,001096:                                                                                                 #  STATE VECTOR IN     VECTOR IN TIME-THETA
002510,001097:                                                                                                 #  TIME-THETA
002511,001098: 
002512,001099: 
002513,001100: ???????     4702               RVSWBIT           =        BIT9                                  
002514,001101: 
002515,001102:                                                                                                 #                         BIT 8 FLAG 7
002516,001103: ???????                        GONEBY            =        112D                                  #  PASSED TARGET       APPROACHING TARGET
002517,001104: 
002518,001105: ???????     4703               GONBYBIT          =        BIT8                                  
002519,001106: 
002520,001107:                                                                                                 #                         BIT 7 FLAG 7
002521,001108: ???????                        IDLEFLAG          =        113D                                  #  NO DV MONITOR       CONNECT DV MONITOR
002522,001109: 
002523,001110: ???????     4704               IDLEFBIT          =        BIT7                                  
002524,001111: 
002525,001112:                                                                                                 #                         BIT 6 FLAG 7
002526,001113: ???????                        V37FLAG           =        114D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002527,001114:                                                                                                 #  RUNNING             OFF
002528,001115: 
002529,001116:                                                                                                 # # Page 58
002530,001117: ???????     4705               V37FLBIT          =        BIT6                                  
002531,001118: 
002532,001119:                                                                                                 #                         BIT 5 FLAG 7
002533,001120:                                                                                                 #                 =       115D
002534,001121:                                                                                                 #                 =       BIT5
002535,001122: 
002536,001123: 
002537,001124:                                                                                                 #                         BIT 4 FLAG 7
002538,001125: ???????                        UPLOCKFL          =        116D                                  #  K-KBAR-K FAIL       NO K-KBAR-K FAIL
002539,001126: 
002540,001127: ???????     4707               UPLOCBIT          =        BIT4                                  
002541,001128: 
002542,001129:                                                                                                 #                         BIT 3 FLAG 7
002543,001130: ???????                        VERIFLAG          =        117D                                  #  CHANGED WHEN V33E OCCURS AT END OF P27
002544,001131: 
002545,001132: ???????     4710               VERIFBIT          =        BIT3                                  
002546,001133: 
002547,001134:                                                                                                 #                         BIT 2 FLAG 7
002548,001135: ???????                        ATTCHFLG          =        118D                                  #  LM,CM ATTACHED      LM,CM NOT ATTACHED
002549,001136: 
002550,001137: ???????     4711               ATTCHBIT          =        BIT2                                  
002551,001138: 
002552,001139:                                                                                                 #                         BIT 1 FLAG 7
002553,001140: ???????                        TFFSW             =        119D                                  #  CALCULATE TPERIGEE  CALCULATE TFF
002554,001141: 
002555,001142: ???????     4712               TFFSWBIT          =        BIT1                                  
002556,001143: 
002557,001144: ???????     0104               FLAGWRD8          =        STATE      +8D                        #  (120-134)
002558,001145: 
002559,001146:                                                                                                 #  (SET)               (RESET)
002560,001147: 
002561,001148:                                                                                                 #                         BIT 15 FLAG 8
002562,001149: ???????                        RPQFLAG           =        120D                                  #  RPQ NOT COMPUTED    RPQ COMPUTED
002563,001150: 
002564,001151: ???????     4674               RPQFLBIT          =        BIT15                                 
002565,001152: 
002566,001153:                                                                                                 #                         BIT 14 FLAG 8
002567,001154:                                                                                                 #                 =       121D
002568,001155: 
002569,001156: 
002570,001157:                                                                                                 #                         BIT 13 FLAG 8
002571,001158: ???????                        NEWIFLG           =        122D                                  #  FIRST PASS THROUGH  SUCCEEDING ITERATION
002572,001159:                                                                                                 #  INTEGRATION         OF INTEGRATION
002573,001160: 
002574,001161: ???????     4676               NEWIBIT           =        BIT13                                 
002575,001162: 
002576,001163:                                                                                                 #                         BIT 12 FLAG 8
002577,001164: ???????                        CMOONFLG          =        123D                                  #  PERMANENT CSM STATE PERMANENT CSM STATE
002578,001165: ???????     4677               CMOONBIT          =        BIT12                                 #  IN LUNAR SPHERE     IN EARTH SPHERE
002579,001166: 
002580,001167:                                                                                                 # # Page 59
002581,001168:                                                                                                 #                         BIT 11 FLAG 8
002582,001169: ???????                        LMOONFLG          =        124D                                  #  PERMANENT LM  STATE PERMANENT LM STATE
002583,001170: ???????     4700               LMOONBIT          =        BIT11                                 #  IN LUNAR SPHERE     IN EARTH SPHERE
002584,001171: 
002585,001172:                                                                                                 #                         BIT 10 FLAG 8
002586,001173: ???????                        ADVTRK            =        125D                                  #  ADVANCE GROUND TRACK NOT ADVANCED
002587,001174:                                                                                                 #  SIGHTING WANTED      GROUND TRACK
002588,001175: 
002589,001176: ???????     4701               ADVTKBIT          =        BIT10                                 
002590,001177: 
002591,001178:                                                                                                 #                         BIT 9 FLAG 8
002592,001179: ???????                        P39/79SW          =        126D                                  #  P39/79 OPERATING     P38/78 OPERATING
002593,001180: 
002594,001181: ???????     4702               P39SWBIT          =        BIT9                                  
002595,001182: 
002596,001183:                                                                                                 #                         BIT 8 FLAG 8
002597,001184: ???????                        SURFFLAG          =        127D                                  #  LM ON LUNAR SURFACE LM NOT ON LUNAR 
002598,001185:                                                                                                 #                      SURFACE
002599,001186: 
002600,001187: ???????     4703               SURFFBIT          =        BIT8                                  
002601,001188: 
002602,001189:                                                                                                 #                         BIT 7 FLAG 8
002603,001190: ???????                        INFINFLG          =        128D                                  #  NO CONIC SOLUTION   CONIC SOLUTION
002604,001191:                                                                                                 #  (CLOSURE THROUGH    EXISTS.
002605,001192:                                                                                                 #  INFINITY REQUIRED).
002606,001193: 
002607,001194: 
002608,001195: ???????     4704               INFINBIT          =        BIT7                                  
002609,001196: 
002610,001197:                                                                                                 #                         BIT 6 FLAG 8
002611,001198: ???????                        ORDERSW           =        129D                                  #  ITERATOR USES 2ND   ITERATOR USES 1ST
002612,001199:                                                                                                 #  ORDER MINIMUM MODE. ORDER STANDARD MODE.
002613,001200: 
002614,001201: 
002615,001202: ???????     4705               ORDERBIT          =        BIT6                                  
002616,001203: 
002617,001204:                                                                                                 #                         BIT 5 FLAG 8
002618,001205: ???????                        APSESW            =        130D                                  #  RDESIRED OUTSIDE    RDESIRED INSIDE
002619,001206:                                                                                                 #  PERICENTER-APOCENTER PERICENTER-APOCENTER
002620,001207:                                                                                                 #  RANGE IN TIME-RAD   RANGE IN TIME-RADIUS
002621,001208: 
002622,001209: 
002623,001210: ???????     4706               APSESBIT          =        BIT5                                  
002624,001211: 
002625,001212:                                                                                                 #                         BIT 4 FLAG 8
002626,001213: ???????                        COGAFLAG          =        131D                                  #  NO CONIC  SOLUTION  CONIC SOLUTION
002627,001214:                                                                                                 #  TOO CLOSE TO        EXISTS (COGA DOES
002628,001215:                                                                                                 #  RECTILINEAR (COGA   NOT  OVERFLOW).
002629,001216:                                                                                                 #  OVERFLOWS).
002630,001217: 
002631,001218:                                                                                                 # # Page 60
002632,001219: ???????     4707               COGAFBIT          =        BIT4                                  
002633,001220: 
002634,001221:                                                                                                 #                         BIT 3 FLAG 8
002635,001222:                                                                                                 #                 =       132D
002636,001223: 
002637,001224:                                                                                                 #                         BIT 2 FLAG 8
002638,001225:                                                                                                 #                 =       133D
002639,001226: 
002640,001227:                                                                                                 #                         BIT 1 FLAG 8
002641,001228: ???????                        360SW             =        134D                                  #  TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
002642,001229:                                                                                                 #  360 DEGREES         NEAR 360 DEGREES
002643,001230: 
002644,001231: ???????     4712               360SWBIT          =        BIT1                                  
002645,001232: 
002646,001233: ???????     0105               FLAGWRD9          =        STATE      +9D                        #  (135-149)
002647,001234: 
002648,001235:                                                                                                 #  (SET)               (RESET)
002649,001236:                                                                                                 #                         BIT 15 FLAG 9
002650,001237: ???????                        SWTOVER           =        135D                                  #  SWITCHOVER HAS      NO SWITCHOVER YET
002651,001238:                                                                                                 #  OCCURRED
002652,001239: 
002653,001240: ???????     4674               SWTOVBIT          =        BIT15                                 
002654,001241: 
002655,001242:                                                                                                 #                         BIT 14 FLAG 9
002656,001243: ???????                        V67FLAG           =        136D                                  #  ASTRONAUT OVERWRITES ASTRONAUT DOES NOT
002657,001244:                                                                                                 #  W MATRIX INITIAL    OVERWRITE INITIAL
002658,001245:                                                                                                 #  VALUES              VALUES
002659,001246: 
002660,001247: ???????     4675               V67FLBIT          =        BIT14                                 
002661,001248: 
002662,001249:                                                                                                 #                         BIT 13 FLAG 9
002663,001250: ???????                        V82EMFLG          =        137D                                  #  MOON VICINITY       EARTH VICINITY
002664,001251: 
002665,001252: 
002666,001253: 
002667,001254: ???????     4676               V82EMBIT          =        BIT13                                 
002668,001255: 
002669,001256:                                                                                                 #                         BIT 12 FLAG 9
002670,001257: ???????                        MAXDBFLG          =        138D                                  #  MAX DB SELECTED     MIN DB SELECTED
002671,001258: 
002672,001259: ???????     4677               MAXDBBIT          =        BIT12                                 
002673,001260: 
002674,001261:                                                                                                 #                         BIT 11 FLAG 9
002675,001262: ???????                        V94FLAG           =        139D                                  #  V94 ALLOWED DURING  V92 NOT ALLOWED
002676,001263:                                                                                                 #  P23
002677,001264: 
002678,001265: ???????     4700               V94FLBIT          =        BIT11                                 
002679,001266: 
002680,001267:                                                                                                 # # Page 61
002681,001268:                                                                                                 #                         BIT 10 FLAG 9
002682,001269: ???????                        SAVECFLG          =        140D                                  #  P23 DISPLAY AND     P23 DISPLAY AND
002683,001270:                                                                                                 #  DATA STORAGE AFTER  DATA STORAGE BEFORE
002684,001271:                                                                                                 #  MARK IS DONE        MARK IS DONE
002685,001272: 
002686,001273: ???????     4701               SAVECBIT          =        BIT10                                 
002687,001274: 
002688,001275:                                                                                                 #                         BIT  9 FLAG 9
002689,001276: ???????                        VHFRFLAG          =        141D                                  #  ALLOW R22 TO        STOP ACCEPTANCE
002690,001277:                                                                                                 #  ACCEPT RANGE        OF RANGE DATA
002691,001278:                                                                                                 #  DATA
002692,001279: 
002693,001280: ???????     4702               VHFRBIT           =        BIT9                                  
002694,001281: 
002695,001282:                                                                                                 #                         BIT  8 FLAG 9
002696,001283: ???????                        SOURCFLG          =        142D                                  #  SOURCE OF INPUT     SOURCE OF INPUT
002697,001284:                                                                                                 #  DATA IS FROM        DATA IS FROM
002698,001285:                                                                                                 #  VHF RADAR           OPTICS MARK
002699,001286: 
002700,001287: ???????     4703               SOURCBIT          =        BIT8                                  
002701,001288: 
002702,001289:                                                                                                 #                         BIT  7 FLAG 9
002703,001290: ???????                        R22CAFLG          =        143D                                  #  R-22 CALCULATIONS   R-22 CALCULATIONS
002704,001291:                                                                                                 #  ARE GOING ON        ARE NOT GOING ON
002705,001292: 
002706,001293: ???????     4704               R22CABIT          =        BIT7                                  
002707,001294: 
002708,001295:                                                                                                 #                         BIT  6 FLAG 9
002709,001296: ???????                        N22ORN17          =        144D                                  #  COMPUTE TOTAL       COMPUTE TOTAL
002710,001297:                                                                                                 #  ATTITUDE ERRORS     ATTITUDE ERRORS
002711,001298:                                                                                                 #  WRT N22 (V62)       WRT N17 (V63)
002712,001299: 
002713,001300: ???????     4705               N2217BIT          =        BIT6                                  
002714,001301: 
002715,001302:                                                                                                 #                         BIT  5 FLAG 9
002716,001303: ???????                        QUITFLAG          =        145D                                  
002717,001304: 
002718,001305: ???????     4706               QUITBIT           =        BIT5                                  
002719,001306: 
002720,001307:                                                                                                 #                         BIT  4 FLAG 9
002721,001308: ???????                        R31FLAG           =        146D                                  #  R31 SELECTED (V83)  R34 SELECTED (V85)
002722,001309: 
002723,001310: ???????     4707               R31FLBIT          =        BIT4                                  
002724,001311: 
002725,001312:                                                                                                 #                         BIT  3 FLAG 9
002726,001313: ???????                        MID1FLAG          =        147D                                  #  INTEGRATE TO TDEC   INTEGRATE TO THE
002727,001314:                                                                                                 #                      THEN-PRESENT TIME
002728,001315: 
002729,001316: ???????     4710               MID1FBIT          =        BIT3                                  
002730,001317: 
002731,001318:                                                                                                 # # Page 62
002732,001319:                                                                                                 #                         BIT  2 FLAG 9
002733,001320: ???????                        MIDAVFLG          =        148D                                  #  INTEGRATION ENTERED INTEGRATION WAS
002734,001321:                                                                                                 #  FROM ONE OF MIDTOAV NOT ENTERED VIA
002735,001322:                                                                                                 #   PORTALS            MIDTOAV
002736,001323: 
002737,001324: ???????     4711               MIDAVBIT          =        BIT2                                  
002738,001325: 
002739,001326:                                                                                                 #                         BIT  1 FLAG 9
002740,001327: ???????                        AVEMIDSW          =        149D                                  #  AVETOMID CALLING    NO AVETOMID W INTEGR
002741,001328:                                                                                                 #  FOR W.MATRIX INTEGR ALLOW SET UP RN,VN,
002742,001329:                                                                                                 #  DONT WRITE OVER RN, PIPTIME
002743,001330:                                                                                                 #  VN,PIPTIME
002744,001331: 
002745,001332: ???????     4712               AVEMDBIT          =        BIT1                                  
002746,001333: 
002747,001334:                                                                                                 #  (SET)               (RESET)
002748,001335: 
002749,001336: ???????     0106               FLGWRD10          =        STATE      +10D                       #  (150-164)
002750,001337: 
002751,001338: 
002752,001339: 
002753,001340: ???????     0106               RASFLAG           =        STATE      +10D                       
002754,001341: 
002755,001342: 
002756,001343:                                                                                                 #                         BIT 15 FLAG 10
002757,001344:                                                                                                 #                 =       150D
002758,001345: 
002759,001346:                                                                                                 #                         BIT 14 FLAG 10
002760,001347: ???????                        INTFLAG           =        151D                                  #  INTEGRATION IN      INTEGRATION NOT IN
002761,001348:                                                                                                 #  PROGRESS            PROGRESS
002762,001349: 
002763,001350: ???????     4675               INTFLBIT          =        BIT14                                 
002764,001351: 
002765,001352:                                                                                                 #                         BIT 13 FLAG 10
002766,001353:                                                                                                 #                 =       152D
002767,001354: 
002768,001355: 
002769,001356:                                                                                                 #                         BIT 12 FLAG 10
002770,001357:                                                                                                 #                 =       153D
002771,001358: 
002772,001359:                                                                                                 #                         BIT 11 FLAG 10
002773,001360:                                                                                                 #                 =       154D
002774,001361: 
002775,001362:                                                                                                 #                         BIT 10 FLAG 10
002776,001363:                                                                                                 #                 =       155D
002777,001364: 
002778,001365: 
002779,001366:                                                                                                 #                         BIT  9 FLAG 10
002780,001367:                                                                                                 #                 =       156D
002781,001368: 
002782,001369:                                                                                                 # # Page 63
002783,001370:                                                                                                 #                         BIT  8 FLAG 10
002784,001371:                                                                                                 #                 =       157D
002785,001372: 
002786,001373: 
002787,001374:                                                                                                 #                         BIT  7 FLAG 10
002788,001375: ???????                        REINTFLG          =        158D                                  #  INTEGRATION ROUTINE INTEGRATION ROUTINE
002789,001376:                                                                                                 #  TO BE RESTARTED     NOT TO BE RESTARTED
002790,001377: ???????     4704               REINTBIT          =        BIT7                                  
002791,001378: 
002792,001379:                                                                                                 #                         BIT  6 FLAG 10
002793,001380:                                                                                                 #                 =       159D
002794,001381: 
002795,001382: 
002796,001383:                                                                                                 #                         BIT  5 FLAG 10
002797,001384:                                                                                                 #                 =       160D
002798,001385: 
002799,001386: 
002800,001387:                                                                                                 #                         BIT  4 FLAG 10
002801,001388:                                                                                                 #                 =       161D
002802,001389: 
002803,001390: 
002804,001391:                                                                                                 #                         BIT  3 FLAG 10
002805,001392:                                                                                                 #                 =       162D
002806,001393: 
002807,001394: 
002808,001395:                                                                                                 #                         BIT  2 FLAG 10
002809,001396:                                                                                                 #                 =       163D
002810,001397: 
002811,001398: 
002812,001399:                                                                                                 #                         BIT  1 FLAG 10
002813,001400:                                                                                                 #                 =       164D
002814,001401: 
002815,001402: 
002816,001403: 
002817,001404: 
002818,001405: 
002819,001406: ???????     0107               FLGWRD11          =        STATE      +11D                       #  (165-179)
002820,001407: 
002821,001408:                                                                                                 #  (SET)               (RESET)
002822,001409: 
002823,001410:                                                                                                 #                         BIT 15 FLAG 11
002824,001411:                                                                                                 #                 =       165D
002825,001412: 
002826,001413: 
002827,001414:                                                                                                 #                         BIT 14 FLAG 11
002828,001415:                                                                                                 #                 =       166D
002829,001416: 
002830,001417: 
002831,001418:                                                                                                 #                         BIT 13 FLAG 11
002832,001419:                                                                                                 #                 =       167D
002833,001420: 
002834,001421: 
002835,001422:                                                                                                 # # Page 64
002836,001423:                                                                                                 #                         BIT 12 FLAG 11
002837,001424:                                                                                                 #                 =       168D
002838,001425: 
002839,001426: 
002840,001427:                                                                                                 #                         BIT 11 FLAG 11
002841,001428:                                                                                                 #                 =       169D
002842,001429: 
002843,001430: 
002844,001431:                                                                                                 #                         BIT 10 FLAG 11
002845,001432:                                                                                                 #                 =       170D
002846,001433: 
002847,001434: 
002848,001435:                                                                                                 #                         BIT  9 FLAG 11
002849,001436:                                                                                                 #                 =       171D
002850,001437: 
002851,001438: 
002852,001439:                                                                                                 #                         BIT  8 FLAG 11
002853,001440:                                                                                                 #                 =       172D
002854,001441: 
002855,001442: 
002856,001443:                                                                                                 #                         BIT  7 FLAG 11
002857,001444:                                                                                                 #                 =       173D
002858,001445: 
002859,001446: 
002860,001447:                                                                                                 #                         BIT  6 FLAG 11
002861,001448:                                                                                                 #                 =       174D
002862,001449: 
002863,001450: 
002864,001451:                                                                                                 #                         BIT  5 FLAG 11
002865,001452:                                                                                                 #                 =       175D
002866,001453: 
002867,001454: 
002868,001455:                                                                                                 #                         BIT  4 FLAG 11
002869,001456:                                                                                                 #                 =       176D
002870,001457: 
002871,001458: 
002872,001459:                                                                                                 #                         BIT  3 FLAG 11
002873,001460:                                                                                                 #                 =       177D
002874,001461: 
002875,001462: 
002876,001463:                                                                                                 #                         BIT  2 FLAG 11
002877,001464:                                                                                                 #                 =       178D
002878,001465: 
002879,001466: 
002880,001467:                                                                                                 #                         BIT  1 FLAG 11
002881,001468:                                                                                                 #                 =       179D
002882,001469: 
002883,001470: 
002884,001471: 
002885,001472:                                                                                                 # # Page 65
002886,001473: 
002887,001474:                                                                                                 #  GENERAL ERASABLE ASSIGNMENTS.
002888,001475: 
002889,001476:    0061                                          SETLOC   61                                    
002890,001477:                                                                                                 #            INTERRUPT TEMPORARY STORAGE POOL.  (11D)
002891,001478:                                                                                                 #              (ITEMP1 THROUGH RUPTREG4)          
002892,001479: 
002893,001480:                                                                                                 #            ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
002894,001481:                                                                                                 #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
002895,001482: 
002896,001483:    0061                        ITEMP1            ERASE                                          
002897,001484:    0062     0061               WAITEXIT          EQUALS   ITEMP1                                
002898,001485:    0062     0061               EXECTEM1          EQUALS   ITEMP1                                
002899,001486: 
002900,001487:    0062                        ITEMP2            ERASE                                          
002901,001488:    0063     0062               WAITBANK          EQUALS   ITEMP2                                
002902,001489:    0063     0062               EXECTEM2          EQUALS   ITEMP2                                
002903,001490: 
002904,001491:    0063                        ITEMP3            ERASE                                          
002905,001492:    0064     0063               RUPTSTOR          EQUALS   ITEMP3                                
002906,001493:    0064     0063               WAITADR           EQUALS   ITEMP3                                
002907,001494:    0064     0063               NEWPRIO           EQUALS   ITEMP3                                
002908,001495: 
002909,001496:    0064                        ITEMP4            ERASE                                          
002910,001497:    0065     0064               LOCCTR            EQUALS   ITEMP4                                
002911,001498:    0065     0064               WAITTEMP          EQUALS   ITEMP4                                
002912,001499: 
002913,001500:    0065                        ITEMP5            ERASE                                          
002914,001501:    0066     0065               NEWLOC            EQUALS   ITEMP5                                
002915,001502: 
002916,001503:    0066                        ITEMP6            ERASE                                          
002917,001504:    0067     0066               NEWLOC+1          EQUALS   ITEMP6                                #  DP ADDRESS.
002918,001505: 
002919,001506:    0067                                          SETLOC   67                                    
002920,001507:    0067                        NEWJOB            ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
002921,001508: 
002922,001509:    0070                        RUPTREG1          ERASE                                          
002923,001510:    0071                        RUPTREG2          ERASE                                          
002924,001511:    0072                        RUPTREG3          ERASE                                          
002925,001512:    0073                        RUPTREG4          ERASE                                          
002926,001513:    0074     0073               KEYTEMP1          EQUALS   RUPTREG4                              
002927,001514:    0074     0073               DSRUPTEM          EQUALS   RUPTREG4                              
002928,001515: 
002929,001516:                                                                                                 #            FLAGWORD RESERVATIONS.                                        (12D)
002930,001517: 
002931,001518:    0074                        STATE             ERASE    +11D                                  
002932,001519: 
002933,001520:    0110                        FLAGFILL          ERASE    +3                                    #  SPACE FOR FUTURE FLAGS
002934,001521: 
002935,001522:                                                                                                 # # Page 66
002936,001523: 
002937,001524:                                                                                                 #            EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. 
002938,001525:                                                                                                 #            (INTB15+ THROUGH RUPTMXM)                                     (32D)
002939,001526: 
002940,001527:    0114                        INTB15+           ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
002941,001528:    0115     0114               DSEXIT            EQUALS   INTB15+                               #  RETURN FOR DSPIN
002942,001529:    0115     0114               EXITEM            EQUALS   INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
002943,001530:    0115     0114               BLANKRET          EQUALS   INTB15+                               #  RETURN FOR 2BLANK
002944,001531: 
002945,001532:    0115                        INTBIT15          ERASE                                          #  SIMILAR TO ABOVE.
002946,001533:    0116     0115               WRDRET            EQUALS   INTBIT15                              #  RETURN FOR 5BLANK
002947,001534:    0116     0115               WDRET             EQUALS   INTBIT15                              #  RETURN FOR DSPWD
002948,001535:    0116     0115               DECRET            EQUALS   INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
002949,001536:    0116     0115               21/22REG          EQUALS   INTBIT15                              #  TEMP FOR CHARIN
002950,001537: 
002951,001538:                                                                                                 #            THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
002952,001539: 
002953,001540:    0116                        ADDRWD            ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
002954,001541:    0117                        POLISH            ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
002955,001542:    0120     0117               UPDATRET          EQUALS   POLISH                                #  RETURN FOR UPDATNN, UPDATVB
002956,001543:    0120     0117               CHAR              EQUALS   POLISH                                #  TEMP FOR CHARIN
002957,001544:    0120     0117               ERCNT             EQUALS   POLISH                                #  COUNTER FOR ERROR LIGHT RESET
002958,001545:    0120     0117               DECOUNT           EQUALS   POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
002959,001546: 
002960,001547:    0120                        FIXLOC            ERASE                                          #  WORK AREA ADDRESS.
002961,001548:    0121                        OVFIND            ERASE                                          #  SET NON-ZERO ON OVERFLOW.
002962,001549: 
002963,001550:    0122                        VBUF              ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
002964,001551:    0130     0122               SGNON             EQUALS   VBUF                                  #  TEMP FOR +,- ON
002965,001552:    0130     0122               NOUNTEM           EQUALS   VBUF                                  #  COUNTER FOR MIXNOUN FETCH
002966,001553:    0130     0122               DISTEM            EQUALS   VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
002967,001554:    0130     0122               DECTEM            EQUALS   VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
002968,001555: 
002969,001556:    0130     0123               SGNOFF            EQUALS   VBUF       +1                         #  TEMP FOR +,- ON
002970,001557:    0130     0123               NVTEMP            EQUALS   VBUF       +1                         #  TEMP FOR NVSUB
002971,001558:    0130     0123               SFTEMP1           EQUALS   VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
002972,001559:    0130     0123               HITEMIN           EQUALS   VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
002973,001560:                                                                                                 #           MUST = LOTEMIN-1.
002974,001561:    0130     0124               CODE              EQUALS   VBUF       +2                         #  FOR DSPIN
002975,001562:    0130     0124               SFTEMP2           EQUALS   VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
002976,001563:    0130     0124               LOTEMIN           EQUALS   VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
002977,001564:                                                                                                 #           MUST = HITEMIN+1.
002978,001565:    0130     0125               MIXTEMP           EQUALS   VBUF       +3                         #  FOR MIXNOUN DATA
002979,001566:    0130     0125               SIGNRET           EQUALS   VBUF       +3                         #  RETURN FOR +,- ON
002980,001567: 
002981,001568:                                                                                                 #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
002982,001569: 
002983,001570:    0130                        BUF               ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
002984,001571:    0133                        BUF2              ERASE    +1                                    
002985,001572:    0135     0130               INDEXLOC          EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
002986,001573:    0135     0130               SWWORD            EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
002987,001574:                                                                                                 # # Page 67
002988,001575:    0135     0131               SWBIT             EQUALS   BUF        +1                         #  SWITCH BIT WITHIN THE SWITCH WORD.
002989,001576:    0135                        MPTEMP            ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
002990,001577:    0136     0135               DMPNTEMP          EQUALS   MPTEMP                                #  DMPSUB TEMPORARY
002991,001578:    0136                        DOTINC            ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
002992,001579:    0137     0136               DVSIGN            EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
002993,001580:    0137     0136               ESCAPE            EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
002994,001581:    0137     0136               ENTRET            EQUALS   DOTINC                                #  EXIT FROM ENTER
002995,001582: 
002996,001583:    0137                        DOTRET            ERASE                                          #  RETURN FROM DOT SUBROUTINE.
002997,001584:    0140     0137               DVNORMCT          EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
002998,001585:    0140     0137               ESCAPE2           EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
002999,001586:    0140     0137               WDCNT             EQUALS   DOTRET                                #  CHAR COUNTER FOR DSPWD
003000,001587:    0140     0137               INREL             EQUALS   DOTRET                                #  INPUT BUFFER SELECTION ( X,Y,Z, REG )
003001,001588: 
003002,001589:    0140                        MATINC            ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
003003,001590:    0141     0140               MAXDVSW           EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003004,001591:    0141     0140               POLYCNT           EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
003005,001592:    0141     0140               DSPMMTEM          EQUALS   MATINC                                #  DSPCOUNT SAVE FOR DSPMM
003006,001593:    0141     0140               MIXBR             EQUALS   MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
003007,001594: 
003008,001595:    0141                        TEM1              ERASE                                          #  EXEC TEMP
003009,001596:    0142     0141               POLYRET           EQUALS   TEM1                                  
003010,001597:    0142     0141               DSREL             EQUALS   TEM1                                  #  REL ADDRESS FOR DSPIN
003011,001598: 
003012,001599:    0142                        TEM2              ERASE                                          #  EXEC TEMP
003013,001600:    0143     0142               DSMAG             EQUALS   TEM2                                  #  MAGNITUDE STORE FOR DSPIN
003014,001601:    0143     0142               IDADDTEM          EQUALS   TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
003015,001602: 
003016,001603:    0143                        TEM3              ERASE                                          #  EXEC TEMP
003017,001604:    0144     0143               COUNT             EQUALS   TEM3                                  #  FOR DSPIN
003018,001605: 
003019,001606:    0144                        TEM4              ERASE                                          #  EXEC TEMP
003020,001607:    0145     0144               LSTPTR            EQUALS   TEM4                                  #  LIST POINTER FOR GRABUSY
003021,001608:    0145     0144               RELRET            EQUALS   TEM4                                  #  RETURN FOR RELDSP
003022,001609:    0145     0144               FREERET           EQUALS   TEM4                                  #  RETURN FOR FREEDSP
003023,001610:    0145     0144               DSPWDRET          EQUALS   TEM4                                  #  RETURN FOR DSPSIGN
003024,001611:    0145     0144               SEPSCRET          EQUALS   TEM4                                  #  RETURN FOR SEPSEC
003025,001612:    0145     0144               SEPMNRET          EQUALS   TEM4                                  #  RETURN FOR SEPMIN
003026,001613: 
003027,001614:    0145                        TEM5              ERASE                                          #  EXEC TEMP
003028,001615:    0146     0145               NOUNADD           EQUALS   TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
003029,001616: 
003030,001617:    0146                        NNADTEM           ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
003031,001618:    0147                        NNTYPTEM          ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
003032,001619:    0150                        IDAD1TEM          ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003033,001620:                                                                                                 #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
003034,001621:    0151                        IDAD2TEM          ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003035,001622:                                                                                                 #  MUST = IDAD1TEM+1, IDAD3TEM-1.
003036,001623:    0152                        IDAD3TEM          ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003037,001624:                                                                                                 #  MUST = IDAD1TEM+2, IDAD2TEM+1.
003038,001625:                                                                                                 # # Page 68
003039,001626:    0153                        RUTMXTEM          ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
003040,001627: 
003041,001628:                                                                                                 #            AX*SR*T STORAGE.
003042,001629: 
003043,001630:    0154     0142               DEXDEX            EQUALS   TEM2                                  #  B(1)TMP
003044,001631:    0154     0143               DEX1              EQUALS   TEM3                                  #  B(1)TMP
003045,001632:    0154     0144               DEX2              EQUALS   TEM4                                  #  B(1)TMP
003046,001633:    0154     0145               RTNSAVER          EQUALS   TEM5                                  #  B(1)TMP
003047,001634:    0154     0133               TERM1TMP          EQUALS   BUF2                                  #  B(2)TMP
003048,001635: 
003049,001636:    0154     0143               DEXI              =        DEX1                                  
003050,001637: 
003051,001638:                                                                                                 # # Page 69
003052,001639: 
003053,001640:                                                                                                 #            DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                      (84D)
003054,001641: 
003055,001642:    0154                        MPAC              ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
003056,001643:    0163                        MODE              ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003057,001644:    0164                        LOC               ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
003058,001645:    0165                        BANKSET           ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
003059,001646:    0166                        PUSHLOC           ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
003060,001647:    0167                        PRIORITY          ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
003061,001648: 
003062,001649:    0170                                          ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
003063,001650: 
003064,001651:                                                                                                 #            SPECIAL DOWNLINK BUFFER.-OVERLAYED BY P27 STORAGE-
003065,001652: 
003066,001653:                                                                                                 #            P27 (UPDATE PROGRAM) STORAGE. -OVERLAYS SPEC DNLNK BUFF-       (24D)         
003067,001654: 
003068,001655:    0300                        COMPNUMB          ERASE    +23D                                  #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
003069,001656:    0330     0301               UPOLDMOD          EQUALS   COMPNUMB   +1                         #  B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
003070,001657:    0330     0302               UPVERB            EQUALS   UPOLDMOD   +1                         #  B(1) TMP VERB NUMBER
003071,001658:    0330     0303               UPCOUNT           EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
003072,001659:    0330     0304               UPBUFF            EQUALS   UPCOUNT    +1                         #  B(20D)
003073,001660: 
003074,001661:                                                                                                 #            MORE P27 STORAGE.                                              (2D)
003075,001662: 
003076,001663:    0330                        UPTEMP            ERASE                                          #  B(1)TMP SCRATCH
003077,001664:    0331                        UPVERBSV          ERASE                                          #  B(1)TMP
003078,001665:    0332     0330               INTWAK1Q          EQUALS   UPTEMP                                #  (06D)
003079,001666: 
003080,001667: 
003081,001668:                                                                                                 #            (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.)
003082,001669: 
003083,001670:                                                                                                 #                                                         THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP.
003084,001671: 
003085,001672:    0332     0304               CMTMTIME          =        UPBUFF                                #  B(1) (VEHICLE BODY RATE INFO IS
003086,001673:    0332     0305               SW/NDX            =        CMTMTIME   +1                         #  B(1)  TELEMETERED EACH 0.2 SEC. DURING
003087,001674:    0332     0324               ENDBUF            =        CMTMTIME   +16D                       #  B(1)  ENTRY.)
003088,001675: 
003089,001676:    0332     0325               V1                =        ENDBUF     +1                         #  I(2) REENTRY, P65-P65
003090,001677:    0332     0327               A0                =        V1         +2                         #  I(2) REENTRY, P64-P65
003091,001678:                                                                                                 #  HI-ORDER WORD ONLY ON DNLNK.
003092,001679: 
003093,001680: 
003094,001681:                                                                                                 #            ALIGNMENT STORAGE.                                             (5D)
003095,001682:                                                                                                 #            (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)
003096,001683: 
003097,001684:    0332     0300               QMAJ              EQUALS   COMPNUMB                              #  B(1)TMP
003098,001685:    0332     0301               MARKINDX          EQUALS   QMAJ       +1                         #  B(1)TMP
003099,001686:    0332     0302               BESTI             EQUALS   MARKINDX   +1                         #  I(1)TMP
003100,001687:    0332     0303               BESTJ             EQUALS   BESTI      +1                         #  I(1)TMP
003101,001688:    0332     0304               STARIND           EQUALS   BESTJ      +1                         #  I(1)TMP
003102,001689: 
003103,001690:                                                                                                 # # Page 70
003104,001691: 
003105,001692:                                                                                                 #            ALIGNMENT/S40.2,3 COMMON STORAGE.                              (18D)
003106,001693: 
003107,001694:    0332     0306               XSMD              EQUALS   UPBUFF     +2                         #  I(6)TMP
003108,001695:    0332     0314               YSMD              EQUALS   XSMD       +6                         #  I(6)TMP
003109,001696:    0332     0322               ZSMD              EQUALS   YSMD       +6                         #  I(6)TMP
003110,001697: 
003111,001698:    0332     0306               XSCREF            =        XSMD                                  #  SPACE CRAFT AXES IN REF COORDS.
003112,001699:    0332     0314               YSCREF            =        YSMD                                  
003113,001700:    0332     0322               ZSCREF            =        ZSMD                                  
003114,001701: 
003115,001702: 
003116,001703:    0332                        ZPRIME            =        22D                                   
003117,001704:    0332                        PDA               =        22D                                   
003118,001705:    0332                        COSTH             =        16D                                   
003119,001706:    0332                        SINTH             =        18D                                   
003120,001707:    0332                        THETA             =        20D                                   
003121,001708:    0332                        STARM             =        32D                                   
003122,001709: 
003123,001710: 
003124,001711:                                                                                                 #            DOWNLINK STORAGE.                                              (18D)
003125,001712: 
003126,001713:    0332     0332               DNLSTADR          EQUALS   DNLSTCOD                              #  CONTENTS NO LONGER AN ADDR BUT A CODE
003127,001714: 
003128,001715:    0332                        DNLSTCOD          ERASE                                          #  B(1)PRM ID CODE OF DOWNLIST
003129,001716:    0333                        DUMPCNT           ERASE                                          #  B(1)PRM
003130,001717:    0334                        LDATALST          ERASE                                          #  B(1)
003131,001718:    0335                        DNTMGOTO          ERASE                                          #  B(1)
003132,001719:    0336                        TMINDEX           ERASE                                          #  B(1)
003133,001720:    0337     0336               DUMPLOC           EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
003134,001721:                                                                                                 #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
003135,001722:                                                                                                 #  ENT.
003136,001723:    0337                        DNQ               ERASE                                          #  B(1)
003137,001724:    0340                        DNTMBUFF          ERASE    +11D                                  #  B(12) PRM DOWNLINK SNAPSHOT BUFFER
003138,001725: 
003139,001726: 
003140,001727: 
003141,001728:                                                                                                 #             OPTICS MARKING , UNSHARED.                                    (8D)
003142,001729: 
003143,001730:    0354                        MKNDX             ERASE                                          
003144,001731:    0355                        MKT2T1            ERASE    +1                                    
003145,001732:    0357                        MKCDUY            ERASE                                          
003146,001733:    0360                        MKCDUS            ERASE                                          
003147,001734:    0361                        MKCDUZ            ERASE                                          
003148,001735:    0362                        MKCDUT            ERASE                                          
003149,001736:    0363                        MKCDUX            ERASE                                          
003150,001737:                                                                                                 #            FOR EXCLUSIVE USE OF SYS TEST STANDARD LEAD INS                (2)
003151,001738: 
003152,001739:    0364                        EBUF2             ERASE    +1                                    #  R(2) UNSHARED
003153,001740: 
003154,001741:                                                                                                 # # Page 71
003155,001742: 
003156,001743:                                                                                                 #            UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                     (10D)
003157,001744: 
003158,001745:    0366                        RESTREG           ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
003159,001746:    0367                        NVWORD            ERASE                                          
003160,001747:    0370                        MARKNV            ERASE                                          
003161,001748:    0371                        NVSAVE            ERASE                                          
003162,001749:                                                                                                 #                   (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003163,001750:    0372                        CADRFLSH          ERASE                                          #  B(1)TMP
003164,001751:    0373                        CADRMARK          ERASE                                          #  B(1)TMP
003165,001752:    0374                        TEMPFLSH          ERASE                                          #  B(1)TMP
003166,001753:    0375                        FAILREG           ERASE    +2                                    #  B(3)PRM  3 ALARM-ABORT USER'S 2CADR
003167,001754: 
003168,001755:    0400                                          SETLOC   400                                   
003169,001756:                                                                                                 #            VAC AREAS. -BE CAREFUL OF PLACEMENT-                           (220D)
003170,001757: 
003171,001758:    0400                        VAC1USE           ERASE                                          #  B(1)PRM
003172,001759:    0401                        VAC1              ERASE    +42D                                  #  B(43)PRM
003173,001760:    0454                        VAC2USE           ERASE                                          #  B(1)PRM
003174,001761:    0455                        VAC2              ERASE    +42D                                  #  B(43)PRM
003175,001762:    0530                        VAC3USE           ERASE                                          #  B(1)PRM
003176,001763:    0531                        VAC3              ERASE    +42D                                  #  B(43)PRM
003177,001764:    0604                        VAC4USE           ERASE                                          #  B(1)PRM
003178,001765:    0605                        VAC4              ERASE    +42D                                  #  B(43)PRM
003179,001766:    0660                        VAC5USE           ERASE                                          #  B(1)PRM
003180,001767:    0661                        VAC5              ERASE    +42D                                  #  B(43)PRM
003181,001768: 
003182,001769: 
003183,001770:                                                                                                 #            WAITLIST REPEAT FLAG.                                          (1D)
003184,001771:    0734                        RUPTAGN           ERASE                                          #  B(1)PRM
003185,001772:    0735     0734               KEYTEMP2          =        RUPTAGN                               
003186,001773: 
003187,001774: 
003188,001775:                                                                                                 #            STARALIGN ERASABLES.                                           (13D)
003189,001776: 
003190,001777:    0735                        STARCODE          ERASE                                          #  B(1)DSP NOUN 70 FOR P22,51 AND R52,53.
003191,001778:    0736                        STARALGN          ERASE    +11D                                  
003192,001779:    0752     0736               SINCDU            =        STARALGN                              
003193,001780:    0752     0744               COSCDU            =        STARALGN   +6                         
003194,001781: 
003195,001782:    0752     0742               SINCDUX           =        SINCDU     +4                         
003196,001783:    0752     0736               SINCDUY           =        SINCDU                                
003197,001784:    0752     0740               SINCDUZ           =        SINCDU     +2                         
003198,001785:    0752     0750               COSCDUX           =        COSCDU     +4                         
003199,001786:    0752     0744               COSCDUY           =        COSCDU                                
003200,001787:    0752     0746               COSCDUZ           =        COSCDU     +2                         
003201,001788: 
003202,001789:                                                                                                 #            PHASE TABLE AND RESTART COUNTERS.                              (12D)
003203,001790:                                                                                                 # # Page 72
003204,001791: 
003205,001792:    0752                        -PHASE1           ERASE                                          #  B(1)PRM
003206,001793:    0753                        PHASE1            ERASE                                          #  B(1)PRM
003207,001794:    0754                        -PHASE2           ERASE                                          #  B(1)PRM
003208,001795:    0755                        PHASE2            ERASE                                          #  B(1)PRM
003209,001796:    0756                        -PHASE3           ERASE                                          #  B(1)PRM
003210,001797:    0757                        PHASE3            ERASE                                          #  B(1)PRM
003211,001798:    0760                        -PHASE4           ERASE                                          #  B(1)PRM
003212,001799:    0761                        PHASE4            ERASE                                          #  B(1)PRM
003213,001800:    0762                        -PHASE5           ERASE                                          #  B(1)PRM
003214,001801:    0763                        PHASE5            ERASE                                          #  B(1)PRM
003215,001802:    0764                        -PHASE6           ERASE                                          #  B(1)PRM
003216,001803:    0765                        PHASE6            ERASE                                          #  B(1)PRM
003217,001804: 
003218,001805: 
003219,001806:                                                                                                 #            AX*SR*T STORAGE.                                               (6D)
003220,001807: 
003221,001808:    0766                        CDUSPOT           ERASE    +5                                    #  B(6)
003222,001809: 
003223,001810:    0774     0766               CDUSPOTY          =        CDUSPOT                               
003224,001811:    0774     0770               CDUSPOTZ          =        CDUSPOT    +2                         
003225,001812:    0774     0772               CDUSPOTX          =        CDUSPOT    +4                         
003226,001813: 
003227,001814: 
003228,001815:                                                                                                 #            VERB 37 STORAGE.                                               (2D)
003229,001816: 
003230,001817:    0774                        MINDEX            ERASE                                          #  B(1)TMP  INDEX FOR MAJOR MODE
003231,001818:    0775                        MMNUMBER          ERASE                                          #  B(1)TMP  MAJOR MODE REQUESTED BY V37
003232,001819: 
003233,001820: 
003234,001821:                                                                                                 #            PINBALL INTERRUPT STORAGE.                                     (1D)
003235,001822: 
003236,001823:    0776                        DSPCNT            ERASE                                          #  B(1)PRM DSPOUT COUNTER
003237,001824: 
003238,001825: 
003239,001826:                                                                                                 #            PINBALL EXECUTIVE ACTION.                                      (44D)
003240,001827: 
003241,001828:    0777                        DSPCOUNT          ERASE                                          #  DISPLAY POSITION INDICATOR
003242,001829:    1000                        DECBRNCH          ERASE                                          #  +DEC, - DEC, OCT INDICATOR
003243,001830:    1001                        VERBREG           ERASE                                          #  VERB CODE
003244,001831:    1002                        NOUNREG           ERASE                                          #  NOUN CODE
003245,001832:    1003                        XREG              ERASE                                          #  R1 INPUT BUFFER
003246,001833:    1004                        YREG              ERASE                                          #  R2 INPUT BUFFER
003247,001834:    1005                        ZREG              ERASE                                          #  R3 INPUT BUFFER
003248,001835:    1006                        XREGLP            ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
003249,001836:    1007                        YREGLP            ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
003250,001837:    1010     1007               HITEMOUT          =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003251,001838:                                                                                                 #           MUST = LOTEMOUT-1.
003252,001839:    1010                        ZREGLP            ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
003253,001840:    1011     1010               LOTEMOUT          =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS,MIN,SEC
003254,001841:                                                                                                 #           MUST = HITEMOUT+1.
003255,001842:                                                                                                 # # Page 73
003256,001843:    1011                        MODREG            ERASE                                          #  MODE CODE
003257,001844:    1012                        DSPLOCK           ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
003258,001845:    1013                        REQRET            ERASE                                          #  RETURN REGISTER FOR LOAD
003259,001846:    1014                        LOADSTAT          ERASE                                          #  STATUS INDICATOR FOR LOADTST
003260,001847:    1015                        CLPASS            ERASE                                          #  PASS INDICATOR FOR CLEAR
003261,001848:    1016                        NOUT              ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
003262,001849:    1017                        NOUNCADR          ERASE                                          #  MACHINE CADR FOR NOUN
003263,001850:    1020                        MONSAVE           ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
003264,001851:    1021                        MONSAVE1          ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) = MONSAVE +1
003265,001852:    1022                        MONSAVE2          ERASE                                          #  B(1)PRM NVMONOPT OPTIONS
003266,001853:    1023                        DSPTAB            ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003267,001854:    1037                        NVQTEM            ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
003268,001855:                                                                                                 #  MUST = NVBNKTEM-1
003269,001856:    1040                        NVBNKTEM          ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
003270,001857:                                                                                                 #  MUST = NVQTEM+1
003271,001858:    1041                        VERBSAVE          ERASE                                          #  NEEDED FOR RECYCLE
003272,001859:    1042                        CADRSTOR          ERASE                                          #  ENDIDLE STORAGE
003273,001860:    1043                        DSPLIST           ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
003274,001861:    1044                        EXTVBACT          ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
003275,001862:    1045                        DSPTEM1           ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003276,001863:    1050                        DSPTEM2           ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003277,001864: 
003278,001865: 
003279,001866:    1053     1051               DSPTEMX           EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS.
003280,001867:    1053     1045               NORMTEM1          EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
003281,001868: 
003282,001869: 
003283,001870: 
003284,001871:                                                                                                 #            DISPLAY FOR EXTENDED VERBS                                     (2D)
003285,001872: 
003286,001873:    1053     1051               OPTIONX           EQUALS   DSPTEMX                               #  B(2) EXTENDED VERB OPTION CODE  N12(V82)
003287,001874: 
003288,001875: 
003289,001876:                                                                                                 #            TBASE S AND PHSPRDT S.                                         (12D)
003290,001877: 
003291,001878:    1053                        TBASE1            ERASE                                          #  B(1)PRM
003292,001879:    1054                        PHSPRDT1          ERASE                                          #  B(1)PRM
003293,001880:    1055                        TBASE2            ERASE                                          #  B(1)PRM
003294,001881:    1056                        PHSPRDT2          ERASE                                          #  B(1)PRM
003295,001882:    1057                        TBASE3            ERASE                                          #  B(1)PRM
003296,001883:    1060                        PHSPRDT3          ERASE                                          #  B(1)PRM
003297,001884:    1061                        TBASE4            ERASE                                          #  B(1)PRM
003298,001885:    1062                        PHSPRDT4          ERASE                                          #  B(1)PRM
003299,001886:    1063                        TBASE5            ERASE                                          #  B(1)PRM
003300,001887:    1064                        PHSPRDT5          ERASE                                          #  B(1)PRM
003301,001888:    1065                        TBASE6            ERASE                                          #  B(1)PRM
003302,001889:    1066                        PHSPRDT6          ERASE                                          #  B(1)PRM
003303,001890: 
003304,001891: 
003305,001892:                                                                                                 #            MORE UNSWITCHED FOR DISPLAY INF                                (5D).
003306,001893:                                                                                                 # # Page 74
003307,001894: 
003308,001895:    1067                        EBANKSAV          ERASE                                          
003309,001896:    1070                        MARKEBAN          ERASE                                          
003310,001897:    1071                        EBANKTEM          ERASE                                          
003311,001898:    1072                        MARK2PAC          ERASE                                          
003312,001899:    1073                        R1SAVE            ERASE                                          
003313,001900: 
003314,001901: 
003315,001902:                                                                                                 #            IMU COMPENSATION UNSWITCHED ERASABLE.                          (1D)
003316,001903: 
003317,001904:    1074                        1/PIPADT          ERASE                                          #  B(1)PRM
003318,001905:    1075     1074               OLDBT1            =        1/PIPADT                              
003319,001906: 
003320,001907:                                                                                                 #            SINGLE PRECISION SUBROUTINE TEMPORARIES.                       (3D)
003321,001908: 
003322,001909:                                                                                                 #                                                                SPSIN, SPCOS, SPROOT VARIABLES.
003323,001910:                                                                                                 #                                                                DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003324,001911:                                                                                                 #                                                                AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003325,001912:                                                                                                 #                                                                MATERIALIZE, THEN THIS CAN BE CHANGED.
003326,001913: 
003327,001914:    1075                        HALFY             ERASE                                          
003328,001915:    1076                        ROOTRET           ERASE                                          
003329,001916:    1077                        SQRARG            ERASE                                          
003330,001917:    1100     1075               TEMK              EQUALS   HALFY                                 
003331,001918:    1100     1076               SQ                EQUALS   ROOTRET                               
003332,001919: 
003333,001920:                                                                                                 # # Page 75
003334,001921: 
003335,001922:                                                                                                 #            UNSWITCHED FOR ORBIT INTEGRATION.                              (21D)
003336,001923: 
003337,001924:    1100                        TDEC              ERASE    +20D                                  #  I(2)
003338,001925:    1125     1102               COLREG            EQUALS   TDEC       +2                         #  I(1)
003339,001926:    1125     1103               LAT               EQUALS   COLREG     +1                         #  I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003340,001927:    1125     1103               LANDLAT           =        LAT                                   #           NOUN 89    FOR P22.
003341,001928:    1125     1105               LONG              EQUALS   LAT        +2                         #  I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003342,001929:    1125     1107               ALT               EQUALS   LONG       +2                         #  I(2)DSP NOUN 43    FOR P20,22,51 R52,53.
003343,001930:    1125     1111               YV                EQUALS   ALT        +2                         #  I(6)
003344,001931:    1125     1117               ZV                EQUALS   YV         +6                         #  I(6)
003345,001932: 
003346,001933: 
003347,001934: 
003348,001935:                                                                                                 #            MARK STORAGE.                                                  (2)
003349,001936: 
003350,001937:    1125                        VHFCNT            ERASE                                          #  B(1)PRM NO. OF VHF MARKS(P20(R22)).
003351,001938:    1126                        TRKMKCNT          ERASE                                          #  B(1)PRM NO. OF VHF MARKS (P20(R22)).
003352,001939: 
003353,001940:    1127     1126               MARKCTR           =        TRKMKCNT                              #  B(1) MARK COUNTER USED BY R32
003354,001941: 
003355,001942: 
003356,001943:                                                                                                 #            MISCELLANEOUS UNSWITCHED.                                      (16D)
003357,001944: 
003358,001945:    1127                        IRETURN1          ERASE                                          #  B(1)  RET ADDR USED BY MIDTOAV1 AND 2
003359,001946:                                                                                                 #  CALLED BY P40,P41,P42, P61,P62
003360,001947:    1130                        RATEINDX          ERASE                                          #   (1)    USED BY KALCMANU
003361,001948:    1131                        OPTION1           ERASE                                          #  B(1)   NOUN 06 USES THIS
003362,001949:    1132                        OPTION2           ERASE                                          #  B(1)   NOUN 06 USES THIS
003363,001950:    1133                        LONGCADR          ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003364,001951:    1135                        LONGBASE          ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003365,001952:    1137                        LONGTIME          ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003366,001953:    1141                        DELAYLOC          ERASE    +3                                    
003367,001954:    1145                        NVWORD1           ERASE                                          #  B(1)
003368,001955:    1146                        TEMPR60           ERASE                                          #  B(1)
003369,001956:    1147                        PRIOTIME          ERASE                                          #  B(1)
003370,001957:    1150     1127               P30/RET           EQUALS   IRETURN1                              
003371,001958: 
003372,001959: 
003373,001960: 
003374,001961:                                                                                                 #            MISC.  INCLUDING RESTART COUNTER, GIMBAL ANGLE  SAVE  AND
003375,001962:                                                                                                 #            STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK)         (16D)
003376,001963: 
003377,001964:    1150                        TIME2SAV          ERASE    +1                                    #  B(2)TMP
003378,001965:    1152                        SCALSAVE          ERASE    +1                                    #  B(2)TMP
003379,001966:    1154                        REDOCTR           ERASE                                          #  B(1)PRM CONTAINS NUMBER OF RESTARTS.
003380,001967:    1155                        THETAD            ERASE    +2                                    #  B(3)PRM DESIRED GIM ANGLES FOR MANEUVER.
003381,001968:    1160     1155               CPHI              =        THETAD                                #           (OUTER)
003382,001969:    1160     1156               CTHETA            =        THETAD     +1                         #           (INNER)
003383,001970:    1160     1157               CPSI              =        THETAD     +2                         #           (MIDDLE)
003384,001971: 
003385,001972:                                                                                                 # # Page 76
003386,001973: 
003387,001974:                                                                                                 #            ENTRY VARIABLES SHARED FOR TM.
003388,001975: 
003389,001976:    1160     1155               RDOTREF           =        THETAD                                #  I(2)    P65
003390,001977:    1160     1157               VREF              =        RDOTREF    +2                         #  I(2)    P65   HI-ORDER WORD ONLY DNLNK'D
003391,001978:    1160                        DESOPTT           ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003392,001979:    1161                        DESOPTS           ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003393,001980: 
003394,001981:    1162                        DELV              ERASE    +5                                    #  I(6)
003395,001982:    1170     1162               DELVX             =        DELV                                  
003396,001983:    1170     1164               DELVY             =        DELV       +2                         
003397,001984:    1170     1166               DELVZ             =        DELV       +4                         
003398,001985: 
003399,001986:                                                                                                 #            P20, CONICS   (SHARING WITH TIME 2 SAV AND SCAL SAV ONLY)      (3D)
003400,001987: 
003401,001988:    1170     1150               POINTEX           EQUALS   TIME2SAV                              #  I(1) POINT AXS EXIT
003402,001989:    1170     1151               VHFTIME           EQUALS   POINTEX    +1                         #  I(2) DOWNLINK OF VHF RANGE TIME +1M
003403,001990: 
003404,001991: 
003405,001992: 
003406,001993:                                                                                                 #            PERM STATE VECTORS FOR BOOST AND DOWNLINK -WHOLE MISSION-      (14D)
003407,001994: 
003408,001995:    1170                        RN                ERASE    +5                                    #  B(6)PRM
003409,001996:    1176                        VN                ERASE    +5                                    #  B(6)PRM
003410,001997:    1204                        PIPTIME           ERASE    +1                                    #  B(2)PRM (MUST BE FOLLOWED BY GDT/2)
003411,001998: 
003412,001999: 
003413,002000:                                                                                                 #            SERVICER STORAGE.                                              (45D)
003414,002001: 
003415,002002:                                                                                                 #            (SERVICER STORAGE AND P11 STORAGE IN UNSWITHCHED SHOULD NOT
003416,002003:                                                                                                 #            OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT
003417,002004:                                                                                                 #            EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE)
003418,002005: 
003419,002006:    1206     1206               GDT/2             EQUALS   PIPTIME    +2                         #  B(6)TMP (MUST FOLLOW PIPTIME)
003420,002007:    1206     1214               GOBL/2            EQUALS   GDT/2      +6                         #  B(6)TMP
003421,002008:    1206     1222               AVEGEXIT          EQUALS   GOBL/2     +6                         #  B(2)TMP
003422,002009:    1206     1222               AVGEXIT           =        AVEGEXIT                              
003423,002010:    1206     1224               TEMX              EQUALS   AVEGEXIT   +2                         #  B(1)TMP
003424,002011:    1206     1225               TEMY              EQUALS   TEMX       +1                         #  B(1)TMP
003425,002012:    1206     1226               TEMZ              EQUALS   TEMY       +1                         #  B(1)TMP
003426,002013:    1206     1227               PIPCTR            EQUALS   TEMZ       +1                         #  B(1)TMP
003427,002014:    1206     1230               PIPAGE            EQUALS   PIPCTR     +1                         #  B(1)TMP
003428,002015: 
003429,002016: 
003430,002017:    1206     1231               RN1               EQUALS   PIPAGE     +1                         #  B(6)TMP
003431,002018:    1206     1237               VN1               EQUALS   RN1        +6                         #  B(6)TMP
003432,002019:    1206     1245               PIPTIME1          EQUALS   VN1        +6                         #  B(2)TMP
003433,002020:    1206     1247               GDT1/2            EQUALS   PIPTIME1   +2                         #  B(6)TMP
003434,002021:    1206     1255               GOBL1/2           EQUALS   GDT1/2     +6                         #  B(6)TMP
003435,002022: 
003436,002023:                                                                                                 # # Page 77
003437,002024: 
003438,002025:                                                                                                 #            ENTRY STORAGE.                                                 (1D)
003439,002026: 
003440,002027:    1206     1263               ENTRYVN           EQUALS   GOBL1/2    +6                         #  B(1)TMP VN CODE FOR ENTRY DISPLAYS P60S.
003441,002028: 
003442,002029: 
003443,002030: 
003444,002031:                                                                                                 #            P11 STORAGE.                                                   (9D)
003445,002032: 
003446,002033:    1206     1263               PADLONG           EQUALS   ENTRYVN                               #   (2)PL   LONGITUDE OF LAUNCH PAD
003447,002034:    1206     1265               LIFTTEMP          EQUALS   PADLONG    +2                         #   (2)TMP
003448,002035:    1206     1267               TEPHEM1           EQUALS   LIFTTEMP   +2                         #   (3)TMP
003449,002036:    1206     1272               PGNCSALT          EQUALS   TEPHEM1    +3                         #   (2)PL  ALTITUDE
003450,002037: 
003451,002038: 
003452,002039:                                                                                                 #            RENDEZVOUS NAVIGATION STORAGE.(SEE COMMENT IN SERVICER STORAGE)(58D)
003453,002040: 
003454,002041:    1206                        CSMPOS            ERASE    +57D                                  #  I(6)TMP
003455,002042:    1300     1214               LEMPOS            EQUALS   CSMPOS     +6                         #  I(6)TMP
003456,002043:    1300     1222               RCL               EQUALS   LEMPOS     +6                         #  I(2)TMP
003457,002044:    1300     1224               MARKTIME          EQUALS   RCL        +2                         #  B(2)TMP
003458,002045:    1300     1226               VTEMP             EQUALS   MARKTIME   +2                         #  B(6)TMP
003459,002046:    1300     1234               UM                EQUALS   VTEMP      +6                         #  I(6)TMP
003460,002047:    1300     1242               MARKDATA          EQUALS   UM         +6                         #  B(2)TMP
003461,002048:    1300     1244               USTAR             EQUALS   MARKDATA   +2                         #  I(6)TMP
003462,002049:    1300     1252               WIXA              EQUALS   USTAR      +6                         #  B(1)TMP
003463,002050:    1300     1253               WIXB              EQUALS   WIXA       +1                         #  B(1)TMP
003464,002051:    1300     1254               ZIXA              EQUALS   WIXB       +1                         #  B(1)TMP
003465,002052:    1300     1255               ZIXB              EQUALS   ZIXA       +1                         #  B(1)TMP
003466,002053:    1300     1256               DELTAX            EQUALS   ZIXB       +1                         #  I(18)TMP
003467,002054: 
003468,002055:    1300     1256               VHFRANGE          EQUALS   DELTAX                                #   (2)
003469,002056:    1300     1272               UCL               EQUALS   DELTAX     +12D                       #   (6)     LM-CSM LINE OF SIGHT 1/2 UNIT V
003470,002057: 
003471,002058: 
003472,002059:                                                                                                 #         **** CONICSEX (MEAS INC) ****
003473,002060: 
003474,002061:    1300     1256               TRIPA             EQUALS   DELTAX                                
003475,002062:    1300     1261               TEMPVAR           EQUALS   DELTAX     +3                         
003476,002063: 
003477,002064: 
003478,002065: 
003479,002066:    1300                        TEMPOR1           ERASE    +1                                    #  B(2)TMP
003480,002067: 
003481,002068: 
003482,002069:                                                                                                 #            T4RUPT ERASABLE.                                               (6D)
003483,002070: 
003484,002071:    1302                        DSRUPTSW          ERASE                                          
003485,002072:    1303                        OPTIND            ERASE                                          
003486,002073:    1304                        LGYRO             ERASE                                          
003487,002074:    1305                        COMMANDO          ERASE    +1                                    
003488,002075: 
003489,002076:                                                                                                 # # Page 78
003490,002077: 
003491,002078:    1307                        ZONE              ERASE                                          #  B(1)PRM USED IN SHAFT STOP MONITOR
003492,002079:    1310  0000035               LASTYCMD          =        OPTY                                  #  DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003493,002080:    1310  0000035               LASTXCMD          =        OPTY                                  #  DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003494,002081: 
003495,002082: 
003496,002083:                                                                                                 #            UNSWITCHED DAP ERASABLE.                                       (4D)
003497,002084: 
003498,002085:    1310                        T6LOC             ERASE                                          
003499,002086:    1311                        T6ADR             ERASE                                          
003500,002087:    1312                        T5LOC             ERASE    +1                                    
003501,002088: 
003502,002089: 
003503,002090:                                                                                                 #            MODE SWITCHING ERASABLE.                                       (14D)
003504,002091: 
003505,002092:    1314                        SWSAMPLE          ERASE                                          #  B(1)PRM
003506,002093:    1315                        DESOPMOD          ERASE                                          #  B(1)PRM
003507,002094:    1316                        WTOPTION          ERASE                                          #  B(1)PRM
003508,002095:    1317                        ZOPTCNT           ERASE                                          #  B(1)PRM
003509,002096:    1320                        IMODES30          ERASE                                          #  B(1)PRM
003510,002097:    1321                        IMODES33          ERASE                                          #  B(1)PRM
003511,002098:    1322                        MODECADR          ERASE    +2                                    #  B(3)TMP
003512,002099:    1325     1322               IMUCADR           =        MODECADR                              
003513,002100:    1325     1323               OPTCADR           =        MODECADR   +1                         
003514,002101:    1325     1324               RADCADR           =        MODECADR   +2                         
003515,002102:    1325                        ATTCADR           ERASE    +2                                    #  B(3)PRM
003516,002103:    1330     1327               ATTPRIO           =        ATTCADR    +2                         
003517,002104:    1330                        MARKSTAT          ERASE                                          #  B(1)PRM
003518,002105:    1331                        OPTMODES          ERASE                                          #  B(1)PRM
003519,002106: 
003520,002107: 
003521,002108: 
003522,002109:                                                                                                 #            RCSDAP ERASABLE.                                               (1D)
003523,002110: 
003524,002111:    1332                        HOLDFLAG          ERASE                                          #  B(1)PRM
003525,002112: 
003526,002113: 
003527,002114: 
003528,002115: 
003529,002116: 
003530,002117: 
003531,002118:                                                                                                 #            CRS61.1 STORAGE. -USED IN R63 (VERB 89)-                       (5D)
003532,002119: 
003533,002120:    1333                        CPHIX             ERASE    +2                                    #  B(3)DSP NOUN 96 CALCULATED BY CRS61.1
003534,002121: 
003535,002122: 
003536,002123: 
003537,002124:    1336                        TEVENT            ERASE    +1                                    #  B(2)     TIME OF EVENT FOR DOWNLIST
003538,002125:    1340     1336               TLIFTOFF          =        TEVENT                                
003539,002126: 
003540,002127:                                                                                                 # # Page 79
003541,002128: 
003542,002129:                                                                                                 #            P34-P35 STORAGE                                                (1D)
003543,002130: 
003544,002131:    1340                        NORMEX            ERASE                                          
003545,002132: 
003546,002133: 
003547,002134: 
003548,002135:                                                                                                 #            SELF-CHECK ASSIGNMENTS.                                        (17D)
003549,002136: 
003550,002137:                                                                                                 #                                   (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003551,002138: 
003552,002139:    1341                        SELFERAS          ERASE    1357       -          1377            #  ***MUST NOT BE MOVED***
003553,002140:    1341     1357               SFAIL             EQUALS   SELFERAS                              #  B(1)
003554,002141:    1341     1360               ERESTORE          EQUALS   SFAIL      +1                         #  B(1)
003555,002142:    1341     1361               SELFRET           EQUALS   ERESTORE   +1                         #  B(1)    RETURN
003556,002143:    1341     1362               SMODE             EQUALS   SELFRET    +1                         #  B(1)
003557,002144:    1341     1363               ALMCADR           EQUALS   SMODE      +1                         #  B(2)     ALARM-ABORT USER'S 2CADR
003558,002145:    1341     1365               ERCOUNT           EQUALS   ALMCADR    +2                         #  B(1)
003559,002146:    1341     1366               SCOUNT            EQUALS   ERCOUNT    +1                         #  B(3)
003560,002147:    1341     1371               SKEEP1            EQUALS   SCOUNT     +3                         #  B(1)
003561,002148:    1341     1372               SKEEP2            EQUALS   SKEEP1     +1                         #  B(1)
003562,002149:    1341     1373               SKEEP3            EQUALS   SKEEP2     +1                         #  B(1)
003563,002150:    1341     1374               SKEEP4            EQUALS   SKEEP3     +1                         #  B(1)
003564,002151:    1341     1375               SKEEP5            EQUALS   SKEEP4     +1                         #  B(1)
003565,002152:    1341     1376               SKEEP6            EQUALS   SKEEP5     +1                         #  B(1)
003566,002153:    1341     1377               SKEEP7            EQUALS   SKEEP6     +1                         #  B(1)
003567,002154: 
003568,002155: 
003569,002156:                                                                                                 #            USED BY P30 ROUTINES TO WRITE ONLY NEVER READ IN COLOSSUS
003570,002157: 
003571,002158:    1341  0000000               DISPDEX           EQUALS   A                                     
003572,002159:                                                                                                 #            ERASABLE FOR SXTMARK CDU CHECK DELAY.  -PAD LOADED-            (1D)
003573,002160: 
003574,002161:    1341                        CDUCHKWD          ERASE                                          #  B(1) PL
003575,002162: 
003576,002163: 
003577,002164:                                                                                                 #            R57 STORAGE. -MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY-       (1D)
003578,002165: 
003579,002166:    1342                        TRUNBIAS          ERASE                                          #  B(1)PRM RESULT OF R57 CALIBR OF TRUNION
003580,002167: 
003581,002168: 
003582,002169: 
003583,002170:                                                                                                 #            KEPLER STORAGE                                                 (6D)
003584,002171: 
003585,002172:    1343                        XMODULO           ERASE    +1                                    #  I(2) GREATER 2PI KEPLER
003586,002173:    1345                        TMODULO           ERASE    +1                                    #  I(2) GREATER 2 KEPLER
003587,002174:    1347                        EPSILONT          ERASE    +1                                    #  I(2) TMP
003588,002175: 
003589,002176:                                                                                                 # # Page 80
003590,002177: 
003591,002178:                                                                                                 #            P37    **RETURN TO EARTH  (PAD LOAD) ****                      (2D)
003592,002179: 
003593,002180:    1351                        RTED1             ERASE    +1                                    #  I(2)PL VGAMMA POLY COEF               B-3
003594,002181: 
003595,002182: 
003596,002183:                                                                                                 #            P40    ***STEERING ROUTINE*** PAD LOAD                         (1D)
003597,002184: 
003598,002185:    1353                        DVTHRESH          ERASE                                          #  I(1)PL  DELTA V THRESHOLD FOR LOW THRUST
003599,002186:                                                                                                 #                                                   ROUTINE                      B-2
003600,002187: 
003601,002188: 
003602,002189:                                                                                                 #            P23     ***PAD LOAD****                                        (2D)
003603,002190: 
003604,002191:    1354                        HORIZALT          ERASE    +1                                    #  I(2)PL  HORIZION ALTITUDE        M  B-29
003605,002192: 
003606,002193: 
003607,002194:                                                                                                 #            P-20        ALTERNATE LOS VARIANCE     PAD LOAD*****           (1D)
003608,002195: 
003609,002196:                                                                                                 #                                                                           -16
003610,002197:    1356                        ALTVAR            ERASE                                          #  I(2)PL MILLARD. SQUARED SCALED 2
003611,002198: 
003612,002199: 
003613,002200:    1357     1377               END-UE            EQUALS   SELFERAS   +16D                       #  LAST USED UNSWITCHED ERASABLE
003614,002201: 
003615,002202:                                                                                                 # # Page 81
003616,002203: 
003617,002204:                                                                                                 #                   EBANK-3 ASSIGNMENTS
003618,002205: 
003619,002206: E3,1400                                          SETLOC   1400                                  
003620,002207: 
003621,002208:                                                                                                 #            WAITLIST TASK LISTS.                                           (26D)
003622,002209: 
003623,002210: E3,1400                        LST1              ERASE    +7                                    #  B(8D)PRM DELTA T S.
003624,002211: E3,1410                        LST2              ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
003625,002212: 
003626,002213: 
003627,002214:                                                                                                 #            RESTART STORAGE.                                               (2D)
003628,002215: 
003629,002216: E3,1432                        RSBBQ             ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
003630,002217: 
003631,002218: 
003632,002219:                                                                                                 #            MORE LONGCALL STORAGE. (MUST BE IN LST1 S BANK).               (2D)
003633,002220: 
003634,002221: E3,1434                        LONGEXIT          ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
003635,002222: 
003636,002223: 
003637,002224:                                                                                                 #            PHASE-CHANGE LISTS PART II.                                    (12D)
003638,002225: 
003639,002226: E3,1436                        PHSNAME1          ERASE                                          #  B(1)PRM
003640,002227: E3,1437                        PHSBB1            ERASE                                          #  B(1)PRM
003641,002228: E3,1440                        PHSNAME2          ERASE                                          #  B(1)PRM
003642,002229: E3,1441                        PHSBB2            ERASE                                          #  B(1)PRM
003643,002230: E3,1442                        PHSNAME3          ERASE                                          #  B(1)PRM
003644,002231: E3,1443                        PHSBB3            ERASE                                          #  B(1)PRM
003645,002232: E3,1444                        PHSNAME4          ERASE                                          #  B(1)PRM
003646,002233: E3,1445                        PHSBB4            ERASE                                          #  B(1)PRM
003647,002234: E3,1446                        PHSNAME5          ERASE                                          #  B(1)PRM
003648,002235: E3,1447                        PHSBB5            ERASE                                          #  B(1)PRM
003649,002236: E3,1450                        PHSNAME6          ERASE                                          #  B(1)PRM
003650,002237: E3,1451                        PHSBB6            ERASE                                          #  B(1)PRM
003651,002238: 
003652,002239: 
003653,002240:                                                                                                 #            IMU COMPENSATION PARAMETERS.                                   (22D)
003654,002241: 
003655,002242: E3,1452                        PBIASX            ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTOR TERMS
003656,002243: E3,1453  E3,1452               PIPABIAS          =        PBIASX                                #      INTERMIXED.
003657,002244: E3,1453                        PIPASCFX          ERASE                                          
003658,002245: E3,1454  E3,1453               PIPASCF           =        PIPASCFX                              
003659,002246: E3,1454                        PBIASY            ERASE                                          
003660,002247: E3,1455                        PIPASCFY          ERASE                                          
003661,002248: E3,1456                        PBIASZ            ERASE                                          
003662,002249: E3,1457                        PIPASCFZ          ERASE                                          
003663,002250: 
003664,002251: E3,1460                        NBDX              ERASE                                          #  GYRO BIAS DRIFTS
003665,002252: E3,1461  E3,1460               GBIASX            =        NBDX                                  
003666,002253: E3,1461                        NBDY              ERASE                                          
003667,002254:                                                                                                 # # Page 82
003668,002255: E3,1462                        NBDZ              ERASE                                          
003669,002256: 
003670,002257: E3,1463                        ADIAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003671,002258: E3,1464                        ADIAY             ERASE                                          #      INPUT AXIS
003672,002259: E3,1465                        ADIAZ             ERASE                                          
003673,002260: 
003674,002261: E3,1466                        ADSRAX            ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003675,002262: E3,1467                        ADSRAY            ERASE                                          #      SPIN REFERENCE AXIS
003676,002263: E3,1470                        ADSRAZ            ERASE                                          
003677,002264: 
003678,002265: E3,1471                        GCOMP             ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
003679,002266: 
003680,002267: E3,1477                        GCOMPSW           ERASE                                          
003681,002268: E3,1500  E3,1471               COMMAND           EQUALS   GCOMP                                 
003682,002269: E3,1500  E3,1474               CDUIND            EQUALS   GCOMP      +3                         
003683,002270: 
003684,002271: 
003685,002272:                                                                                                 #            STATE VECTORS FOR ORBIT INTEGRATION.                           (44D)
003686,002273: 
003687,002274:                                                                                                 #                                   (DIFEQCNT THRU XKEP MUST BE IN THE SAME
003688,002275:                                                                                                 #                                     EBANK AS RRECTCSM, RRECTLEM ETC
003689,002276:                                                                                                 #                                     BECAUSE THE COPY-CYCLES (ATOPCSM,
003690,002277:                                                                                                 #                                     PTOACSM ETC) ARE EXECUTED IN BASIC.
003691,002278:                                                                                                 #                                       ALL OTHER REFERENCES TO THIS GROUP
003692,002279:                                                                                                 #                                     ARE BY INTERPRETIVE INSTRUCTIONS.)
003693,002280: 
003694,002281: 
003695,002282: E3,1500                        DIFEQCNT          ERASE    +43D                                  #  B(1)TMP
003696,002283:                                                                                                 #                                   (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003697,002284: 
003698,002285: E3,1554  E3,1501               UPSVFLAG          EQUALS   DIFEQCNT   +1                         #  B(1)PRM UPDATE FLAG
003699,002286: E3,1554  E3,1502               RRECT             EQUALS   UPSVFLAG   +1                         #  B(6)TMP POS AT RECT            KM*2(-14)
003700,002287: E3,1554  E3,1510               VRECT             EQUALS   RRECT      +6                         #  B(6)TMP VEL AT RECT        KM(-1/2)*2(6)
003701,002288: E3,1554  E3,1516               TET               EQUALS   VRECT      +6                         #  B(2)TMP TIME OF STATE VECT  CSECS*2(-28)
003702,002289: E3,1554  E3,1520               TDELTAV           EQUALS   TET        +2                         #  B(6)TMP POSITION DEVIATION      KM*2(14)
003703,002290: E3,1554  E3,1526               TNUV              EQUALS   TDELTAV    +6                         #  B(6)TMP VEL DEVIATION     KM(-1/2)*2(14)
003704,002291: E3,1554  E3,1534               RCV               EQUALS   TNUV       +6                         #  B(6)TMP CONIC POSITION         KM*2(-14)
003705,002292: E3,1554  E3,1542               VCV               EQUALS   RCV        +6                         #  B(6)TMP CONIC VELOCITY     KM(-1/2)*2(6)
003706,002293: E3,1554  E3,1550               TC                EQUALS   VCV        +6                         #  B(2)TMP TIME SINCE RECTIFICATION
003707,002294: E3,1554  E3,1552               XKEP              EQUALS   TC         +2                         #  B(2)TMP ROOT OF KEPLER EQ KM(1/2.*2(-10)
003708,002295: 
003709,002296:                                                                                                 #         **** TEMP - IN VAC AREA ****
003710,002297: E3,1554                        RRECT1            EQUALS   18D                                   
003711,002298: E3,1554                        VRECT1            EQUALS   24D                                   
003712,002299: E3,1554                        TET1              EQUALS   30D                                   
003713,002300: 
003714,002301: 
003715,002302: 
003716,002303:                                                                                                 #            PERMANENT STATE VECTORS AND TIMES.                             (101D)
003717,002304: 
003718,002305:                                                                                                 #            (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
003719,002306: 
003720,002307:                                                                                                 # # Page 83
003721,002308:                                                                                                 #            (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
003722,002309: 
003723,002310: E3,1554                        RRECTCSM          ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
003724,002311: E3,1562  E3,1554               RRECTHIS          =        RRECTCSM                              
003725,002312: E3,1562                        VRECTCSM          ERASE    +5                                    #  B(6)PRM
003726,002313: E3,1570                        TETCSM            ERASE    +1                                    #  B(2)PRM
003727,002314: E3,1572  E3,1570               TETTHIS           =        TETCSM                                
003728,002315: E3,1572                        DELTACSM          ERASE    +5                                    #  B(6)PRM
003729,002316: E3,1600                        NUVCSM            ERASE    +5                                    #  B(6)PRM
003730,002317: E3,1606                        RCVCSM            ERASE    +5                                    #  B(6)PRM
003731,002318: E3,1614                        VCVCSM            ERASE    +5                                    #  B(6)PRM
003732,002319: E3,1622                        TCCSM             ERASE    +1                                    #  B(2)PRM
003733,002320: E3,1624                        XKEPCSM           ERASE    +1                                    #  B(2)PRM
003734,002321: 
003735,002322:                                                                                                 #            (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER)
003736,002323: 
003737,002324: E3,1626                        RRECTLEM          ERASE    +5                                    #  B(6)PRM LEM VARIABLES
003738,002325: E3,1634  E3,1626               RRECTOTH          =        RRECTLEM                              
003739,002326: E3,1634                        VRECTLEM          ERASE    +5                                    #  B(6)PRM
003740,002327: E3,1642                        TETLEM            ERASE    +1                                    #  B(2)PRM
003741,002328: E3,1644  E3,1642               TETOTHER          =        TETLEM                                
003742,002329: E3,1644                        DELTALEM          ERASE    +5                                    #  B(6)PRM
003743,002330: E3,1652                        NUVLEM            ERASE    +5                                    #  B(6)PRM
003744,002331: E3,1660                        RCVLEM            ERASE    +5                                    #  B(6)PRM
003745,002332: E3,1666                        VCVLEM            ERASE    +5                                    #  B(6)PRM
003746,002333: E3,1674                        TCLEM             ERASE    +1                                    #  B(2)PRM
003747,002334: E3,1676                        XKEPLEM           ERASE    +1                                    #  B(2)PRM
003748,002335: 
003749,002336: E3,1700                        X789              ERASE    +5                                    
003750,002337: E3,1706                        TEPHEM            ERASE    +2                                    
003751,002338: E3,1711                        AZO               ERASE    +1                                    
003752,002339: E3,1713                        UNITW             ERASE    +5                                    
003753,002340: E3,1721  E3,1713               -AYO              EQUALS   UNITW                                 #   (2)
003754,002341: E3,1721  E3,1715               AXO               EQUALS   UNITW      +2                         #   (2)
003755,002342: 
003756,002343: 
003757,002344: 
003758,002345:                                                                                                 #            STATE VECTORS FOR DOWNLINK.                                    (12D)
003759,002346: 
003760,002347: E3,1721                        R-OTHER           ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
003761,002348: E3,1727                        V-OTHER           ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
003762,002349: 
003763,002350: E3,1735  E3,1642               T-OTHER           =        TETLEM                                #               TIME (OTHER VECH) FOR DNLINK
003764,002351: 
003765,002352: 
003766,002353:                                                                                                 #            REFSMMAT.                                                      (18D)
003767,002354: 
003768,002355: E3,1735                        REFSMMAT          ERASE    +17D                                  #  I(18D)PRM
003769,002356: 
003770,002357:                                                                                                 # # Page 84
003771,002358: 
003772,002359:                                                                                                 #            AVERAGEG INTEGRATOR STORAGE.                                   (8D)
003773,002360: 
003774,002361: E3,1757                        UNITR             ERASE    +5                                    
003775,002362: E3,1765                        RMAG              ERASE    +1                                    
003776,002363: 
003777,002364: 
003778,002365:                                                                                                 #         **** CONICSEX (PLANETARY INERT. ORIEN.) ****
003779,002366: 
003780,002367: E3,1767  E3,1706               TIMSUBO           EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PREC)
003781,002368: E3,1767  E3,1767               END-E3            EQUALS   RMAG       +2                         #  NEXT UNUSED E3 ADDRESS
003782,002369: 
003783,002370:                                                                                                 # # Page 85
003784,002371: 
003785,002372:                                                                                                 #                   EBANK-4 ASSIGNMENTS
003786,002373: 
003787,002374: E4,1400                                          SETLOC   2000                                  
003788,002375: 
003789,002376: 
003790,002377:                                                                                                 #            P20 STORAGE.           -PAD LOADED-                            (4D)
003791,002378: 
003792,002379: E4,1400                        WRENDPOS          ERASE                                          #  B(1)PL                     M B-14
003793,002380: E4,1401                        WRENDVEL          ERASE                                          #  B(1)PL                   M/CSECB0
003794,002381: E4,1402                        RMAX              ERASE                                          #  B(1)PL              METERS*2(-19)
003795,002382: E4,1403                        VMAX              ERASE                                          #  B(1)PL               M/CSEC*2(-7)
003796,002383: 
003797,002384: 
003798,002385:                                                                                                 #            P22 STORAGE.           -PAD LOADED-                            (5D)
003799,002386: 
003800,002387: E4,1404                        WORBPOS           ERASE                                          #  B(1)PL                     M B-14
003801,002388: E4,1405                        WORBVEL           ERASE                                          #  B(1)PL                   M/CSECB0
003802,002389: E4,1406                        S22WSUBL          ERASE                                          #  B(1)PL                     M B-14
003803,002390: E4,1407                        RPVAR             ERASE    +1                                    #  B(2)PL
003804,002391: 
003805,002392:                                                                                                 #            CONISEX STORAGE.       -PAD LOADED-                            (6D)
003806,002393: 
003807,002394: E4,1411                        504LM             ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
003808,002395: 
003809,002396: 
003810,002397: 
003811,002398:                                                                                                 #            ENTRY STORAGE.         -PAD LOADED-                            (2D)
003812,002399: 
003813,002400: E4,1417                        EMSALT            ERASE    +1                                    #  I(2)PL
003814,002401: 
003815,002402: 
003816,002403:                                                                                                 #            P35 CONSTANTS.         -PAD LOADED-                            (4D)
003817,002404: 
003818,002405: E4,1421                        ATIGINC           ERASE    +1                                    #  B(2)PL
003819,002406: E4,1423                        PTIGINC           ERASE    +1                                    #  B(2)PL
003820,002407: 
003821,002408: 
003822,002409:                                                                                                 #            LUNAR LANDING SIGHT DATA. -PAD LOADED-                         (6D)
003823,002410:                                                                                                 #            (USED BY INTEGRATION INITIALIZATION,LAT-LONG SUBROUTINES, P30'S)
003824,002411: 
003825,002412: E4,1425                        RLS               ERASE    +5                                    #  I(6) PL  LUNAR LANDING SIGHT VECTOR
003826,002413: 
003827,002414: 
003828,002415: 
003829,002416:                                                                                                 #  CONISEX (LUNAR AND SOLAR EPHEM)STORAGE. -PAD LOADED-                     (77D)
003830,002417: E4,1433                        TIMEMO            ERASE    +76D                                  
003831,002418: E4,1550  E4,1436               VECOEM            EQUALS   TIMEMO     +3                         
003832,002419: E4,1550  E4,1532               RESO              EQUALS   VECOEM     +60D                       
003833,002420:                                                                                                 # # Page 86
003834,002421: E4,1550  E4,1540               VESO              EQUALS   RESO       +6                         
003835,002422: E4,1550  E4,1546               OMEGAES           EQUALS   VESO       +6                         
003836,002423: 
003837,002424: 
003838,002425:                                                                                                 #            FULL INTEGRATION STORAGE.                                      (95D)
003839,002426: 
003840,002427: E4,1550                        PBODY             ERASE                                          #  I(1)
003841,002428: E4,1551  E4,1551               ALPHAV            EQUALS   PBODY      +1                         #  I(6)TMP
003842,002429: E4,1551  E4,1557               BETAV             EQUALS   ALPHAV     +6                         #  I(6)TMP
003843,002430: E4,1551  E4,1565               PHIV              EQUALS   BETAV      +6                         #  I(6)TMP
003844,002431: E4,1551  E4,1573               PSIV              EQUALS   PHIV       +6                         #  I(6)TMP
003845,002432: E4,1551  E4,1601               FV                EQUALS   PSIV       +6                         #  I(6)TMP
003846,002433: E4,1551  E4,1607               BETAM             EQUALS   FV         +6                         #  I(6)TMP
003847,002434: E4,1551  E4,1611               H                 EQUALS   BETAM      +2                         #  I(2)TMP
003848,002435: E4,1551  E4,1613               GMODE             EQUALS   H          +2                         #  I(1)TMP
003849,002436: E4,1551  E4,1614               IRETURN           EQUALS   GMODE      +1                         #  I(1)TMP
003850,002437: E4,1551  E4,1615               NORMGAM           EQUALS   IRETURN    +1                         #  I(1)TMP
003851,002438: E4,1551  E4,1616               VECTAB            EQUALS   NORMGAM    +1                         #  I(36)TMP
003852,002439: E4,1551  E4,1662               RPQV              EQUALS   VECTAB     +36D                       #   (6)TMP VECTOR PRIMARY TO SECONDARY BODY
003853,002440: E4,1551  E4,1670               ORIGEX            EQUALS   RPQV       +6                         #  B(1)TMP QSAVE FOR COORD. SWITCH. ROUTINE
003854,002441: E4,1551  E4,1670               KEPRTN            EQUALS   ORIGEX                                #           QSAVE FOR KEPLER
003855,002442: E4,1551  E4,1671               RQVV              EQUALS   ORIGEX     +1                         #   (6)    SEC.BODY TO VEH.VETOR(USED P23)
003856,002443: E4,1551  E4,1677               RPSV              EQUALS   RQVV       +6                         #   (6)TMP SUN TO PRIMARY BODY VECTOR
003857,002444: E4,1551  E4,1705               XKEPNEW           EQUALS   RPSV       +6                         #   (2)TMP ROOT OF KEPLERS EQU FOR TIME TAU
003858,002445: 
003859,002446: 
003860,002447:                                                                                                 #            THESE PROBABLY CAN SHARE INTEGRATION VARIABLES.                (9D)
003861,002448: 
003862,002449: E4,1551  E4,1624               VACX              EQUALS   VECTAB     +6                         #  I(2)TMP
003863,002450: E4,1551  E4,1626               VACY              EQUALS   VACX       +2                         #  I(2)TMP
003864,002451: E4,1551  E4,1630               VACZ              EQUALS   VACY       +2                         #  I(2)TMP
003865,002452: 
003866,002453: E4,1551  E4,1640               ERADM             EQUALS   VECTAB     +18D                       #  I(2)TMP
003867,002454: E4,1551  E4,1642               INCORPEX          EQUALS   ERADM      +2                         #  I(1)TMP
003868,002455: 
003869,002456: 
003870,002457:                                                                                                 #            R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-            (28D)
003871,002458: 
003872,002459: 
003873,002460: E4,1551  E4,1624               BASEOTP           EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
003874,002461: E4,1551  E4,1640               BASEOTV           EQUALS   VECTAB     +18D                       #  I(6)     BASE VEL VECTOR OTHER VEH
003875,002462: E4,1551  E4,1654               BASETHP           EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
003876,002463: E4,1551  E4,1662               BASETHV           EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
003877,002464: E4,1551  E4,1671               BASETIME          EQUALS   RQVV                                  #  I(2)     TIME ASSOC WITH BASE VECS
003878,002465: E4,1551  E4,1673               ORIG              EQUALS   RQVV       +2                         #  I(1)     =0 FOR EARTH  =+2 FOR MOON
003879,002466: E4,1551  E4,1674               STATEXIT          EQUALS   RQVV       +3                         #  I(1)     STQ ADDRESS FOR STATEXTP
003880,002467: 
003881,002468: 
003882,002469:                                                                                                 #            CONIC INTEGRATION STORAGE.      -MAY NOT SHARE WITH SERVICER-  (6D)
003883,002470: 
003884,002471:                                                                                                 # # Page 87
003885,002472: E4,1551  E4,1707               ALPHAM            EQUALS   XKEPNEW    +2                         #  I(2)TMP
003886,002473: E4,1551  E4,1711               TAU.              EQUALS   ALPHAM     +2                         #  I(2)TMP
003887,002474: E4,1551  E4,1713               DT/2              EQUALS   TAU.       +2                         #  I(2)TMP
003888,002475: 
003889,002476: 
003890,002477:                                                                                                 #            P21 STORAGE.                                                   (2D)
003891,002478: 
003892,002479: E4,1551  E4,1715               P21TIME           EQUALS   DT/2       +2                         #  B(2)TMP
003893,002480: 
003894,002481: 
003895,002482: 
003896,002483:                                                                                                 #            INCORPORATION/VERB 63 COMMON STORAGE.                          (1D)
003897,002484: 
003898,002485: E4,1551  E4,1717               EGRESS            EQUALS   P21TIME    +2                         #  I(1)TMP SAVES RETURNS.
003899,002486: 
003900,002487: 
003901,002488:                                                                                                 #            VERB 83 STORAGE.        MAY SHARE ONLY WITH INCORPORATION.     (18D)
003902,002489: 
003903,002490: E4,1551  E4,1720               RANGE             EQUALS   EGRESS     +1                         #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
003904,002491: E4,1551  E4,1722               RRATE             EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH
003905,002492: E4,1551  E4,1724               RTHETA            EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54
003906,002493: E4,1551  E4,1726               RONE              EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE. (SCRATCH)
003907,002494: E4,1551  E4,1734               VONE              EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE. (SCRATCH)
003908,002495: 
003909,002496: 
003910,002497:                                                                                                 #            LUNAR LANDMARK SELECTION PROGRAM - R35                         (28D)
003911,002498: 
003912,002499: E4,1551  E4,1720               XR1HOLD           EQUALS   RANGE                                 #  I(2)
003913,002500: E4,1551  E4,1722               VECTIME           EQUALS   XR1HOLD    +2                         #  I(2)
003914,002501: E4,1551  E4,1724               JLOOPCNT          EQUALS   VECTIME    +2                         #  I(1)
003915,002502: E4,1551  E4,1725               KLOOPCNT          EQUALS   JLOOPCNT   +1                         #  I(1)
003916,002503: E4,1551  E4,1726               NKVAL             EQUALS   KLOOPCNT   +1                         #  I(1)
003917,002504: E4,1551  E4,1727               DELTAL            EQUALS   NKVAL      +1                         #  I(2)
003918,002505: E4,1551  E4,1731               TK                EQUALS   DELTAL     +2                         #  I(2)
003919,002506: E4,1551  E4,1733               INDEXNUM          EQUALS   TK         +2                         #  I(1)
003920,002507: 
003921,002508: E4,1551  E4,1734               LONGSAVE          EQUALS   INDEXNUM   +1                         #  I(2)
003922,002509: E4,1551  E4,1736               POSVECT           EQUALS   LONGSAVE   +2                         #  I(6)
003923,002510: E4,1551  E4,1744               VELVECT           EQUALS   POSVECT    +6                         #  I(6)
003924,002511: E4,1551  E4,1752               LSLONG            EQUALS   VELVECT    +6                         #  I(2) TMP LONGITUDE OF LANDING SIGHT
003925,002512: 
003926,002513: 
003927,002514:                                                                                                 #            S-BAND ANTENNA GIMBAL ANGLES.  DISPLAYED BY R05 (EXT.VB.64)    (4D)
003928,002515:                                                                                                 #                   OPERATION DURING P00 ONLY.
003929,002516: 
003930,002517: E4,1551  E4,1720               RHOSB             EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE
003931,002518: E4,1551  E4,1722               GAMMASB           EQUALS   RHOSB      +2                         #  B(2)DSP NOUN 51.  YAW ANGLE
003932,002519: 
003933,002520:                                                                                                 #            R 36 SCRATCHPAD STORAGE                                        (12)
003934,002521: 
003935,002522:                                                                                                 # # Page 88
003936,002523: E4,1551  E4,1726               RPASS36           EQUALS   RONE                                  #  I (6)S-S
003937,002524: E4,1551  E4,1734               UNP36             EQUALS   RPASS36    +6                         #  I (6)S-S
003938,002525: 
003939,002526: 
003940,002527: 
003941,002528:                                                                                                 #            EXTENDED VERB 82 STORAGE.
003942,002529:                                                                                                 #            (*** THE SHARING IN THIS SECTION IS TEMPORARY ONLY ****)       (8D)
003943,002530: 
003944,002531: E4,1551  E4,1720               HPERMIN           EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
003945,002532: E4,1551  E4,1722               RPADTEM           EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
003946,002533: E4,1551  E4,1724               TSTART82          EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE VOR V82.
003947,002534: 
003948,002535: 
003949,002536:                                                                                                 #            MORE VERB 82 NOT SHARING WITH VERB 83                          (9D)
003950,002537: 
003951,002538: 
003952,002539: E4,1551  E4,1742               V82FLAGS          EQUALS   VONE       +6                         #   (1) FOR V 82 BITS
003953,002540: E4,1551  E4,1743               TFF               EQUALS   V82FLAGS   +1                         #  I(2) DSP NOUN 42,   , FOR P30,40,41.
003954,002541: E4,1551  E4,1745               -TPER             EQUALS   TFF        +2                         #  I(2)DSP NOUN 32
003955,002542: E4,1551  E4,1747               THETA(1)          EQUALS   -TPER      +2                         #  I(2) TMP SET AT END OF V82
003956,002543: E4,1551  E4,1755               RSP-RREC          EQUALS   AOPTIME                               #  DSP NOUN R32
003957,002544: 
003958,002545: 
003959,002546:                                                                                                 #            REENTRY CONICS                                                 (6D)
003960,002547: 
003961,002548: E4,1551  E4,1742               URONE             EQUALS   V82FLAGS                              #  I(6) SAVE ACTUAL FOR CALCULATIONS
003962,002549: 
003963,002550: 
003964,002551: 
003965,002552:                                                                                                 #            V 82 DISPLAY                                                   (4D)
003966,002553: 
003967,002554: E4,1551  E4,1751               HAPOX             EQUALS   THETA(1)   +2                         #  I(2) DSP NOUN 44
003968,002555: E4,1551  E4,1753               HPERX             EQUALS   HAPOX      +2                         #  I(2) DSP NOUN 44
003969,002556: 
003970,002557: 
003971,002558: 
003972,002559:                                                                                                 #            VARIOUS DISPLAY REGISTERS.                                     (06D)
003973,002560: 
003974,002561: E4,1551  E4,1755               AOPTIME           EQUALS   HPERX      +2                         
003975,002562: E4,1551  E4,1757               LANDLONG          EQUALS   AOPTIME    +2                         #  I(2) DSP NOUN 89 FOR P22
003976,002563: E4,1551  E4,1761               LANDALT           EQUALS   LANDLONG   +2                         #  I(2)DSP NOUN 89 FOR P22.
003977,002564: 
003978,002565:                                                                                                 #            S34/35.5,P34-P35 STORAGE.                                      (6D)
003979,002566: 
003980,002567: E4,1551  E4,1763               KT                EQUALS   LANDALT    +2                         #  B(2)
003981,002568: E4,1551  E4,1765               VERBNOUN          EQUALS   KT         +2                         #  B(1)TMP
003982,002569: E4,1551  E4,1766               QSAVED            EQUALS   VERBNOUN   +1                         #  B(1)TMP HOLDS RETURN
003983,002570:                                                                                                 # # Page 89
003984,002571: E4,1551  E4,1767               RTRN              EQUALS   QSAVED     +1                         #  B(1) RETURN
003985,002572: E4,1551  E4,1770               SUBEXIT           EQUALS   RTRN       +1                         #  B(1) TMP
003986,002573:                                                                                                 #                                           RGEXIT CANT SHARE WITH HPER,HAPO
003987,002574: E4,1551  E4,1770               RGEXIT            EQUALS   SUBEXIT                               #  I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN
003988,002575: 
003989,002576: 
003990,002577:                                                                                                 #            P30 DISPLAY                                                    (4D)
003991,002578: 
003992,002579: E4,1551  E4,1763               HAPO              EQUALS   KT                                    #  I(2) DSP NOUN 42, FOR P30.
003993,002580: E4,1551  E4,1765               HPER              EQUALS   HAPO       +2                         #  I(2) DSP NOUN 42, FOR P30.
003994,002581: 
003995,002582: 
003996,002583: 
003997,002584:                                                                                                 #            SOME P34 STORAGE.       (OVERLAYS P35.1 STORAGE)               (2D)
003998,002585: 
003999,002586: E4,1551  E4,1763               NOMTPI            EQUALS   KT                                    #  I(2)TMP NOMINAL TPI TIME FOR RECYCLE.
004000,002587: 
004001,002588: 
004002,002589:                                                                                                 #  THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1  GS ARE NOT USED IN 205 NOR ARE THEY
004003,002590:                                                                                                 #  WHILE 504 USES TRANSM1 AND ALFOK .
004004,002591: 
004005,002592: E4,1551                        TRANSM1           EQUALS   2000                                  #   (19) INITIALIZATION FOR IMU TESTS
004006,002593: E4,1551  0002022               ALFDK             =        TRANSM1    +18D                       #   (144) ERASABLE LOAD IN 504
004007,002594:                                                                                                 #  END OF PERF. TEST ERASABLE IN BANK 4
004008,002595: 
004009,002596:                                                                                                 #      *-*-* V82 *-*-*                                                      (6D)
004010,002597: 
004011,002598: E4,1551  E4,1771               VONE'             EQUALS   RGEXIT     +1                         #  I(6)TMP NORMAL VELOCITY VONE/ SQ RT MU
004012,002599: 
004013,002600: 
004014,002601:                                                                                                 #            PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20         (1D)
004015,002602: 
004016,002603: E4,1551  E4,1777               INTVAR            EQUALS   VONE'      +6                         #  I(1)PL  SQUARE OF EXPECTED INTEGRATION
004017,002604:                                                                                                 #                                                   POSITION EXTRAPOLATION ERROR.
004018,002605:                                                                                                 #                                                   SCALED  METERS(2) 2(15)
004019,002606: 
004020,002607: E4,1551  E4,1777               END-E4            EQUALS   INTVAR                                #  LAST USED ERASABLE IN E4
004021,002608: 
004022,002609:                                                                                                 # # Page 90
004023,002610: 
004024,002611:                                                                                                 #  EBANK-5 ASSIGNMENTS
004025,002612: E5,1400                                          SETLOC   2400                                  
004026,002613: 
004027,002614:                                                                                                 #            *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*
004028,002615: 
004029,002616:                                                                                                 #            W-MATRIX STORAGE.                                              (162D)
004030,002617: 
004031,002618: E5,1400                        W                 EQUALS   2400                                  #  B(162)
004032,002619: 
004033,002620: E5,1400  0002570               EMATRIX           =        W          +120D                      #  B(42E    USED TO CONVERT W TO 6X6
004034,002621: E5,1400  0002642               END-W             EQUALS   W          +162D                      #  **NEXT AVAILABLE LOC AFTER W MATRIX**
004035,002622: 
004036,002623: 
004037,002624:                                                                                                 #            AUTO-OPTICS STORAGE -R52-
004038,002625: 
004039,002626:                                                                                                 #  DO NOT MOVE FROM E5,1554. A DELICATE BALANCE EXISTS BETWEEN THIS AND P03
004040,002627: E5,1400  0002554               XNB1              EQUALS   W          +108D                      #  B(6D)TMP
004041,002628: E5,1400  0002562               YNB1              EQUALS   XNB1       +6                         #  B(6)TMP
004042,002629: E5,1400  0002570               ZNB1              EQUALS   YNB1       +6                         #  B(6)TMP
004043,002630: E5,1400  0002576               SAVQR52           EQUALS   ZNB1       +6                         #  I(2)TMP
004044,002631: 
004045,002632: 
004046,002633: E5,1400  0002600               PLANVEC           EQUALS   SAVQR52    +2                         #  B(6) S-S SIGHTING VECTOR IN REF. COOR.
004047,002634: E5,1400  0002606               TSIGHT            EQUALS   PLANVEC    +6                         #  B(2) S-S TIME OF SIGHTING
004048,002635: 
004049,002636: 
004050,002637: 
004051,002638:                                                                                                 #            RENDEZVOUS -P34-35                                             (26D)
004052,002639: 
004053,002640: E5,1400  0002610               DVLOS             EQUALS   TSIGHT     +2                         #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPL1
004054,002641: E5,1400  0002610               DELTAR            EQUALS   DVLOS                                 #  I(2)
004055,002642: E5,1400  0002610               TINTSOI           EQUALS   DELTAR                                #  I(2) INTERCEPT TIME FOR  SOI MANEUVER
004056,002643: E5,1400  0002612               DELTTIME          EQUALS   DVLOS      +2                         #  I(2)
004057,002644: E5,1400  0002614               TARGTIME          EQUALS   DVLOS      +4                         #  I(2)
004058,002645: E5,1400  0002616               UNRM              EQUALS   DVLOS      +6                         #  I(6) S-S
004059,002646: E5,1400  0002624               ULOS              EQUALS   UNRM       +6                         #  I(6) S-S UNIT LINE OF SIGHT VECTOR
004060,002647: E5,1400  0002632               ACTCENT           EQUALS   ULOS       +6                         #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
004061,002648:                                                                                                 #           VEH AT TPI IGNITION TIME AND
004062,002649:                                                                                                 #           TARGET VECTOR.
004063,002650: E5,1400  0002634               DELVTPI           EQUALS   ACTCENT    +2                         #  I(2)    NOUN 58 FOR P34.
004064,002651: E5,1400  0002636               DELVTPF           EQUALS   DELVTPI    +2                         #  I(2)    NOUN 58,59 FOR P34,35.
004065,002652: E5,1400  0002640               POSTTPI           EQUALS   DELVTPF    +2                         #  I(2)    NOUN 58 FOR P34.
004066,002653: E5,1400  0002634               TDEC2             EQUALS   DELVTPI                               #   (2)
004067,002654: 
004068,002655:                                                                                                 #            ALIGNMENT                                                      (12D)
004069,002656: E5,1400  0002610               STARSAV1          EQUALS   DVLOS                                 #  I(6)TMP RESTART STAR SAVE.
004070,002657: E5,1400  0002616               STARSAV2          EQUALS   STARSAV1   +6                         #  I(6)TMP RESTART STAR SAVE.
004071,002658:                                                                                                 # # Page 91
004072,002659: E5,1400  0002616               US                =        STARSAV2                              #            (CISLUNAR TAG FOR STARSAV2).
004073,002660: 
004074,002661: 
004075,002662: 
004076,002663:                                                                                                 #            TPI SEARCH                                                     (26D)
004077,002664: 
004078,002665: E5,1400  0002610               IT                EQUALS   DVLOS                                 #   (6)
004079,002666: E5,1400  0002616               THETZERO          EQUALS   IT         +6                         #   (2)
004080,002667: E5,1400  0002620               TFI               EQUALS   THETZERO   +2                         #   (2)
004081,002668: E5,1400  0002622               DELVEE            EQUALS   TFI        +2                         #   (2)
004082,002669: E5,1400  0002624               HP                EQUALS   DELVEE     +2                         #   (2)
004083,002670: E5,1400  0002626               TFO               EQUALS   HP         +2                         #   (2)
004084,002671: E5,1400  0002630               HPO               EQUALS   TFO        +2                         #   (2)
004085,002672: E5,1400  0002632               DELVEO            EQUALS   HPO        +2                         #   (2)
004086,002673: E5,1400  0002634               MAGVTPI           EQUALS   DELVEO     +2                         #  I(2) TMP MAG OF DELTAVTPI OR VMID
004087,002674: E5,1400  0002636               RELDELV           EQUALS   MAGVTPI    +2                         #  I(2) TMP MAG OF DELTAVTPF
004088,002675: E5,1400  0002640               T3TOT4            EQUALS   RELDELV    +2                         #  I(2) DSP NOUN 39 FOR P34, 35. TPI TO TIN
004089,002676:                                                                                                 #                                           T (CAN NOT SHARE WITH RETURN TO EARTH)
004090,002677: 
004091,002678:                                                                                                 # # Page 92
004092,002679: 
004093,002680:                                                                                                 #            ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE.             (36D)
004094,002681:                                                                                                 #            (CALCSMSC IS A SUBSET OF S41.1 AT LEAST)
004095,002682:                                                                                                 #            (CRS61.1 IS A SUBSET OF P20)
004096,002683: 
004097,002684: E5,1400  0002671               XSM               EQUALS   END-W      +23D                       #  B(6)
004098,002685: E5,1400  0002677               YSM               EQUALS   XSM        +6                         #  B(6)TMP
004099,002686: E5,1400  0002705               ZSM               EQUALS   YSM        +6                         #  B(6)TMP
004100,002687: 
004101,002688: E5,1400  0002713               XDC               EQUALS   ZSM        +6                         #  B(6)TMP
004102,002689: E5,1400  0002721               YDC               EQUALS   XDC        +6                         #  B(6)TMP
004103,002690: E5,1400  0002727               ZDC               EQUALS   YDC        +6                         #  B(6)TMP
004104,002691: 
004105,002692: E5,1400  0002713               XNB               =        XDC                                   
004106,002693: E5,1400  0002721               YNB               =        YDC                                   
004107,002694: E5,1400  0002727               ZNB               =        ZDC                                   
004108,002695: 
004109,002696: 
004110,002697:                                                                                                 #            OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.
004111,002698: 
004112,002699: E5,1400  0002673               -COSB             EQUALS   XSM        +2                         #   (2)TMP
004113,002700: E5,1400  0002675               SINB              EQUALS   -COSB      +2                         #   (2)TMP
004114,002701: 
004115,002702: 
004116,002703:                                                                                                 #            ALIGNMENT/SYSTEST COMMON STORAGE.                              (18D)
004117,002704: 
004118,002705: E5,1400  0002735               STARAD            EQUALS   ZDC        +6                         #  I(18D)TMP
004119,002706: 
004120,002707: 
004121,002708:                                                                                                 #            ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE.                  (17D)
004122,002709: 
004123,002710: E5,1400  0002757               OGC               EQUALS   STARAD     +18D                       #  I(2)TMP
004124,002711: E5,1400  0002761               IGC               EQUALS   OGC        +2                         #  I(2)TMP
004125,002712: E5,1400  0002763               MGC               EQUALS   IGC        +2                         #  I(2)TMP
004126,002713: E5,1400  0002765               STAR              EQUALS   MGC        +2                         #  I(6)TMP
004127,002714: E5,1400  0002773               SAC               EQUALS   STAR       +6                         #  I(2)TMP
004128,002715: E5,1400  0002775               PAC               EQUALS   SAC        +2                         #  I(2)TMP
004129,002716: E5,1400  0002777               QMIN              EQUALS   PAC        +2                         #  B(1)TMP
004130,002717: 
004131,002718: 
004132,002719:                                                                                                 #         **** COLP50S ****                                                 (1D))
004133,002720: 
004134,002721: E5,1400  0002735               CULTRIX           EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
004135,002722: 
004136,002723: 
004137,002724:                                                                                                 #            OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE.              (24D)
004138,002725: 
004139,002726: E5,1400  0002735               VEARTH            EQUALS   STARAD                                #   (6)TMP
004140,002727: E5,1400  0002743               VSUN              EQUALS   VEARTH     +6                         #   (6)TMP
004141,002728: E5,1400  0002751               VMOON             EQUALS   VSUN       +6                         #   (6)TMP
004142,002729: E5,1400  0002757               SAX               EQUALS   VMOON      +6                         #   (6)TMP
004143,002730: 
004144,002731:                                                                                                 # # Page 93
004145,002732: 
004146,002733:                                                                                                 #            *-*-*-*-  OVERLAY 2 IN EBANK 5 -*-*-*-*
004147,002734: 
004148,002735:                                                                                                 #            CONICS ROUTINE STORAGE.                                        (87D)
004149,002736: 
004150,002737: E5,1400  0002642               DELX              EQUALS   END-W                                 #  I(2)TMP
004151,002738: E5,1400  0002644               DELT              EQUALS   DELX       +2                         #  I(2)TMP
004152,002739: E5,1400  0002646               URRECT            EQUALS   DELT       +2                         #  I(6)TMP
004153,002740: E5,1400  0002654               RCNORM            EQUALS   URRECT     +6                         #  I(2)TMP
004154,002741: E5,1400  E3,1552               XPREV             EQUALS   XKEP                                  #  I(2)TMP
004155,002742: E5,1400  0002656               R1VEC             EQUALS   RCNORM     +2                         #  I(6)TMP
004156,002743: E5,1400  0002664               R2VEC             EQUALS   R1VEC      +6                         #  I(6)TMP
004157,002744: E5,1400  0002672               TDESIRED          EQUALS   R2VEC      +6                         #  I(2)TMP
004158,002745: E5,1400  0002674               GEOMSGN           EQUALS   TDESIRED   +2                         #  I(1)TMP
004159,002746: E5,1400  0002675               UN                EQUALS   GEOMSGN    +1                         #  I(6)TMP
004160,002747: E5,1400  0002703               VTARGTAG          EQUALS   UN         +6                         #  I(1)TMP
004161,002748: E5,1400  0002704               VTARGET           EQUALS   VTARGTAG   +1                         #  I(6)TMP
004162,002749: E5,1400  0002712               RTNLAMB           EQUALS   VTARGET    +6                         #  I(1)TMP
004163,002750: E5,1400  0002713               U2                EQUALS   RTNLAMB    +1                         #  I(6)TMP
004164,002751: E5,1400  0002721               MAGVEC2           EQUALS   U2         +6                         #  I(2)TMP
004165,002752: E5,1400  0002723               UR1               EQUALS   MAGVEC2    +2                         #  I(6)TMP
004166,002753: E5,1400  0002731               SNTH              EQUALS   UR1        +6                         #  I(2)TMP
004167,002754: E5,1400  0002733               CSTH              EQUALS   SNTH       +2                         #  I(2)TMP
004168,002755: E5,1400  0002735               1-CSTH            EQUALS   CSTH       +2                         #  I(2)TMP
004169,002756: E5,1400  0002737               CSTH-RHO          EQUALS   1-CSTH     +2                         #  I(2)TMP
004170,002757: E5,1400  0002741               P                 EQUALS   CSTH-RHO   +2                         #  I(2)TMP
004171,002758: E5,1400  0002743               R1A               EQUALS   P          +2                         #  I(2)TMP
004172,002759: E5,1400  0002656               RVEC              EQUALS   R1VEC                                 #  I(6)TMP
004173,002760: E5,1400  0002745               VVEC              EQUALS   R1A        +2                         #  I(6)TMP
004174,002761: E5,1400  0002712               RTNTT             EQUALS   RTNLAMB                               #  I(1)TMP
004175,002762: E5,1400  0002753               ECC               EQUALS   VVEC       +6                         #  I(2)TMP
004176,002763: E5,1400  0002712               RTNTR             EQUALS   RTNLAMB                               #  I(1)TMP
004177,002764: E5,1400  0002712               RTNAPSE           EQUALS   RTNLAMB                               #  I(1)TMP
004178,002765: E5,1400  0002721               R2                EQUALS   MAGVEC2                               #  I(2)TMP
004179,002766: E5,1400  0002755               RTNPRM            EQUALS   ECC        +2                         #  I(1)TMP
004180,002767: E5,1400  0002756               SGNRDOT           EQUALS   RTNPRM     +1                         #  I(1)TMP
004181,002768: E5,1400  0002757               RDESIRED          EQUALS   SGNRDOT    +1                         #  I(2)TMP
004182,002769: E5,1400  0002761               DELDEP            EQUALS   RDESIRED   +2                         #  I(2)TMP
004183,002770: E5,1400  0002763               DEPREV            EQUALS   DELDEP     +2                         #  I(2)TMP
004184,002771: E5,1400  0002761               TERRLAMB          EQUALS   DELDEP                                #  I(2)TMP
004185,002772: E5,1400  0002763               TPREV             EQUALS   DEPREV                                #  I(2)TMP
004186,002773: 
004187,002774:                                                                                                 # # Page 94
004188,002775: 
004189,002776:                                                                                                 #            *-*-*-*-  OVERLAY 3 IN EBANK 5 -*-*-*-*
004190,002777: 
004191,002778:                                                                                                 #            MEASUREMENT INCORPORATION STORAGE.                             (66D)
004192,002779:                                                                                                 #            (CALLED BY P20, P22, P23)
004193,002780: 
004194,002781: E5,1400  0002642               OMEGAM1           EQUALS   END-W                                 #  I(6)TMP
004195,002782: E5,1400  0002650               OMEGAM2           EQUALS   OMEGAM1    +6                         #  I(6)TMP
004196,002783: E5,1400  0002656               OMEGAM3           EQUALS   OMEGAM2    +6                         #  I(6)TMP
004197,002784: E5,1400  0002664               HOLDW             EQUALS   OMEGAM3    +6                         #  I(18)TMP
004198,002785: E5,1400  0002706               TDPOS             EQUALS   HOLDW      +18D                       #  I(6)TMP
004199,002786: E5,1400  0002714               TDVEL             EQUALS   TDPOS      +6                         #  I(6)TMP
004200,002787: 
004201,002788: E5,1400  0002722               ZI                EQUALS   TDVEL      +6                         #  I(18)
004202,002789: 
004203,002790:                                                                                                 #            P22-P23 STORAGE.                                               (8D)
004204,002791: 
004205,002792: E5,1400  0002744               22SUBSCL          EQUALS   ZI         +18D                       #  DE OF ABCDE LANDMARK ID NO.
004206,002793: E5,1400  0002745               CXOFF             EQUALS   22SUBSCL   +1                         #  B OF ABCDE OFFSET INDICATOR
004207,002794: E5,1400  0002746               8KK               EQUALS   CXOFF      +1                         #  B(1)TMP INDEX OF PRESENT MARK.
004208,002795: E5,1400  0002747               8NN               EQUALS   8KK        +1                         #  B(1)TMP 
004209,002796: E5,1400  0002750               S22LOC            EQUALS   8NN        +1                         #  I(1)TMP MARK DATA LOC
004210,002797: E5,1400  0002751               LANDMARK          EQUALS   S22LOC     +1                         #  B(1)DSP NOUN 70 FOR P22,51, R52,53.
004211,002798: E5,1400  0002752               HORIZON           EQUALS   LANDMARK   +1                         #  B(1)DSP NOUN 70 FOR P22,51, R52,53.
004212,002799: E5,1400  0002753               IDOFLMK           EQUALS   HORIZON    +1                         #  B(1)
004213,002800: 
004214,002801: 
004215,002802: 
004216,002803:                                                                                                 #            ******P23***                                                   (1D)
004217,002804: E5,1400  0002754               TRUNION           EQUALS   IDOFLMK    +1                         #  B(1)
004218,002805: 
004219,002806:                                                                                                 # # Page 95
004220,002807: 
004221,002808:                                                                                                 #            *-*-*-*-  OVERLAY 0 IN EBANK 5 -*-*-*-*
004222,002809: 
004223,002810:                                                                                                 #            SYSTEM TEST STORAGE.                                           (174)
004224,002811: 
004225,002812: E5,1400                        AZIMUTH           ERASE    +1                                    
004226,002813: E5,1402                        LATITUDE          ERASE    +1                                    
004227,002814: 
004228,002815: E5,1404     1160               TRUNA             EQUALS   DESOPTT                               
004229,002816: E5,1404     1161               SHAFTA            EQUALS   DESOPTS                               
004230,002817: 
004231,002818: E5,1404                        ERVECTOR          ERASE    +5                                    
004232,002819: E5,1412                        LENGTHOT          ERASE                                          
004233,002820: E5,1413                        LOSVEC            ERASE    +5                                    
004234,002821: 
004235,002822: E5,1421  E5,1413               SXTOPTN           =        LOSVEC                                
004236,002823: E5,1421                        NDXCTR            ERASE                                          
004237,002824: E5,1422                        PIPINDEX          ERASE                                          
004238,002825: E5,1423                        POSITON           ERASE                                          
004239,002826: E5,1424                        QPLAC             ERASE                                          
004240,002827: E5,1425                        QPLACE            ERASE                                          
004241,002828: E5,1426                        QPLACES           ERASE                                          
004242,002829: E5,1427                        RUN               ERASE                                          
004243,002830: E5,1430                        STOREPL           ERASE                                          
004244,002831: E5,1431                        SOUTHDR           ERASE                                          
004245,002832: E5,1432  E5,1431               TARG1/2           =        SOUTHDR                               
004246,002833: E5,1432                        TAZEL1            ERASE    +5                                    
004247,002834: E5,1440                        TEMPTIME          ERASE    +1                                    
004248,002835: E5,1442                        TMARK             ERASE    +1                                    
004249,002836: E5,1444                        GENPL             ERASE    +134D                                 
004250,002837: E5,1653  E5,1444               CDUTIMEI          =        GENPL                                 
004251,002838: E5,1653  E5,1446               CDUTIMEF          =        GENPL      +2                         
004252,002839: E5,1653  E5,1450               IMU/OPT           =        GENPL      +4                         
004253,002840: E5,1653  E5,1451               CDUREADF          =        GENPL      +5                         
004254,002841: E5,1653  E5,1452               CDUREADI          =        GENPL      +6                         
004255,002842: E5,1653  E5,1453               CDULIMIT          =        GENPL      +7                         
004256,002843: 
004257,002844: E5,1653  E5,1450               TEMPADD           =        GENPL      +4                         
004258,002845: E5,1653  E5,1451               TEMP              =        GENPL      +5                         
004259,002846: E5,1653  E5,1452               NOBITS            =        GENPL      +6                         
004260,002847: E5,1653  E5,1453               CHAN              =        GENPL      +7                         
004261,002848: 
004262,002849: E5,1653  E5,1454               LOS1              =        GENPL      +8D                        
004263,002850: E5,1653  E5,1462               LOS2              =        GENPL      +14D                       
004264,002851: 
004265,002852: E5,1653  E5,1470               CALCDIR           EQUALS   GENPL      +20D                       
004266,002853: E5,1653  E5,1471               CDUFLAG           EQUALS   GENPL      +21D                       
004267,002854: E5,1653  E5,1472               GYTOBETQ          EQUALS   GENPL      +22D                       
004268,002855: E5,1653  E5,1473               OPTNREG           EQUALS   GENPL      +23D                       
004269,002856: E5,1653  E5,1474               SAVE              EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
004270,002857: E5,1653  E5,1477               SFCONST1          EQUALS   GENPL      +27D                       
004271,002858:                                                                                                 # # Page 96
004272,002859: E5,1653  E5,1500               TIMER             EQUALS   GENPL      +28D                       
004273,002860: 
004274,002861: E5,1653  E5,1502               DATAPL            EQUALS   GENPL      +30D                       
004275,002862: E5,1653  E5,1444               RDSP              EQUALS   GENPL                                 #  FIX LATER   POSSIBLY KEEP1
004276,002863: E5,1653  E5,1544               MASKREG           EQUALS   GENPL      +64D                       
004277,002864: E5,1653  E5,1546               CDUNDX            EQUALS   GENPL      +66D                       
004278,002865: E5,1653  E5,1547               RESULTCT          EQUALS   GENPL      +67D                       
004279,002866: E5,1653  E5,1552               COUNTPL           EQUALS   GENPL      +70D                       
004280,002867: 
004281,002868: E5,1653  E5,1553               CDUANG            EQUALS   GENPL      +71D                       
004282,002869: E5,1653  E5,1444               AINLA             =        GENPL                                 #  OPTIMUM CALIB. AND ALIGNMENT
004283,002870: 
004284,002871: 
004285,002872: E5,1653  E5,1444               WANGO             EQUALS   AINLA                                 
004286,002873: E5,1653  E5,1446               WANGI             EQUALS   AINLA      +2D                        
004287,002874: E5,1653  E5,1450               WANGT             EQUALS   AINLA      +4D                        
004288,002875: E5,1653  E5,1450               TORQNDX           =        WANGT                                 
004289,002876: E5,1653  E5,1452               DRIFTT            EQUALS   AINLA      +6D                        
004290,002877: E5,1653  E5,1454               ALX1S             EQUALS   AINLA      +8D                        
004291,002878: E5,1653  E5,1455               CMPX1             EQUALS   AINLA      +9D                        
004292,002879: E5,1653  E5,1456               ALK               EQUALS   AINLA      +10D                       
004293,002880: E5,1653  E5,1472               VLAUNS            EQUALS   AINLA      +22D                       
004294,002881: E5,1653  E5,1460               THETAX            =        ALK        +2                         
004295,002882: E5,1653  E5,1474               WPLATO            EQUALS   AINLA      +24D                       
004296,002883: E5,1653  E5,1500               INTY              EQUALS   AINLA      +28D                       
004297,002884: E5,1653  E5,1466               THETAN            =        THETAX     +6                         
004298,002885: E5,1653  E5,1502               ANGZ              EQUALS   AINLA      +30D                       
004299,002886: E5,1653  E5,1504               INTZ              EQUALS   AINLA      +32D                       
004300,002887: E5,1653  E5,1506               ANGY              EQUALS   AINLA      +34D                       
004301,002888: E5,1653  E5,1510               ANGX              EQUALS   AINLA      +36D                       
004302,002889: E5,1653  E5,1512               DRIFTO            EQUALS   AINLA      +38D                       
004303,002890: E5,1653  E5,1514               DRIFTI            EQUALS   AINLA      +40D                       
004304,002891: E5,1653  E5,1520               VLAUN             EQUALS   AINLA      +44D                       
004305,002892: E5,1653  E5,1474               FILDELV           =        THETAN     +6                         
004306,002893: E5,1653  E5,1522               ACCWD             EQUALS   AINLA      +46D                       
004307,002894: E5,1653  E5,1476               INTVEC            =        FILDELV    +2                         
004308,002895: E5,1653  E5,1530               POSNV             EQUALS   AINLA      +52D                       
004309,002896: E5,1653  E5,1532               DPIPAY            EQUALS   AINLA      +54D                       
004310,002897: E5,1653  E5,1536               DPIPAZ            EQUALS   AINLA      +58D                       
004311,002898: E5,1653  E5,1540               ALTIM             EQUALS   AINLA      +60D                       
004312,002899: E5,1653  E5,1541               ALTIMS            EQUALS   AINLA      +61D                       
004313,002900: E5,1653  E5,1542               ALDK              EQUALS   AINLA      +62D                       
004314,002901: E5,1653  E5,1560               DELM              EQUALS   AINLA      +76D                       
004315,002902: E5,1653  E5,1570               WPLATI            EQUALS   AINLA      +84D                       
004316,002903: E5,1653  E5,1577               RESTARPT          =        AINLA      +          91D             
004317,002904: E5,1653  E5,1631               GEOSAVED          =        AINLA      +117D                      
004318,002905: E5,1653  E5,1632               PREMTRXC          =        AINLA      +118D                      
004319,002906: E5,1653  E5,1633               LAUNCHAZ          =        AINLA      +119D                      
004320,002907: E5,1653  E5,1635               NEWAZMTH          =        AINLA      +121D                      
004321,002908: E5,1653  E5,1637               OLDAZMTH          =        AINLA      +123D                      
004322,002909:                                                                                                 # # Page 97
004323,002910: E5,1653  E5,1641               TOLDAZMT          =        AINLA      +125D                      
004324,002911: E5,1653  E5,1643               GEOCOMPS          =        AINLA      +127D                      
004325,002912: E5,1653  E5,1644               1SECXT            =        AINLA      +128D                      
004326,002913: E5,1653  E5,1645               GTSXTLST          =        AINLA      +129D                      
004327,002914: E5,1653  E5,1646               ERECTIME          =        AINLA      +130D                      
004328,002915: E5,1653  E5,1647               ERCOMP            =        AINLA      +131D                      
004329,002916: E5,1653  E5,1655               ZERONDX           =        AINLA      +137D                      
004330,002917: E5,1653  E5,1655               GTSOPNDZ          =        ZERONDX                               
004331,002918: 
004332,002919: 
004333,002920:                                                                                                 #  THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY.
004334,002921: 
004335,002922: E5,1653  E5,1460               THETAX1           EQUALS   ALK        +2                         
004336,002923: E5,1653  E5,1466               THETAN1           EQUALS   THETAX1    +6                         
004337,002924: E5,1653  E5,1474               FILDELV1          EQUALS   THETAN1    +6                         
004338,002925: E5,1653  E5,1476               INTVEC1           EQUALS   FILDELV1   +2                         
004339,002926: E5,1653  E5,1631               GEOSAVE1          EQUALS   AINLA      +117D                      
004340,002927: E5,1653  E5,1632               PREMTRX1          EQUALS   AINLA      +118D                      
004341,002928: E5,1653  E5,1633               LUNCHAZ1          EQUALS   AINLA      +119D                      
004342,002929: E5,1653  E5,1635               NEWAZ1            EQUALS   LUNCHAZ1   +2                         
004343,002930: E5,1653  E5,1637               OLDAZ1            EQUALS   LUNCHAZ1   +4                         
004344,002931: E5,1653  E5,1641               TOLDAZ1           EQUALS   LUNCHAZ1   +6                         
004345,002932: E5,1653  E5,1643               GEOCOMP1          EQUALS   AINLA      +127D                      
004346,002933: E5,1653  E5,1644               1SECXT1           EQUALS   AINLA      +128D                      
004347,002934: E5,1653  E5,1645               GTSWTLT1          EQUALS   AINLA      +129D                      
004348,002935: E5,1653  E5,1646               ERECTIM1          EQUALS   AINLA      +130D                      
004349,002936: E5,1653  E5,1647               ERCOMP1           EQUALS   AINLA      +131D                      #  I(6)
004350,002937: E5,1653  E5,1655               ZERONDX1          EQUALS   AINLA      +137D                      
004351,002938: E5,1653  E5,1656               PERFDLAY          EQUALS   AINLA      +138D                      #  B(2).........
004352,002939:                                                                                                 #  END OF 504 + ALIGN ERASE.
004353,002940: 
004354,002941: 
004355,002942: E5,1653  0002777               END-E5            EQUALS   QMIN                                  #  LAST USED E5 ADDRESS
004356,002943: 
004357,002944:                                                                                                 # # Page 98
004358,002945: 
004359,002946:                                                                                                 #                   EBANK-6 ASSIGNMENTS.
004360,002947: E6,1400                                          SETLOC   3000                                  
004361,002948: 
004362,002949:                                                                                                 #            P23   PAD LOADS***                                             (2D).
004363,002950: 
004364,002951: E6,1400                        WMIDPOS           ERASE                                          #  I(1) PL  INITIAL VALUES FOR W-MATRIX IN
004365,002952: E6,1401                        WMIDVEL           ERASE                                          #  I(1) PL  CISLUNAR (P23) NAVIGATION
004366,002953: 
004367,002954: 
004368,002955: 
004369,002956:                                                                                                 #            R22 PAD LOADS                                                  ( 5D ).
004370,002957: 
004371,002958: E6,1402                        RVAR              ERASE    +1                                    #  I(2) PL  VHF RADAR
004372,002959: E6,1404                        RVARMIN           ERASE    +2                                    #  I(3) PL  VHF RADAR
004373,002960: 
004374,002961: 
004375,002962: 
004376,002963:                                                                                                 #  ******** PAD LOADED ENTRY DAP STEERING VARIABLES ********                (3D)
004377,002964: 
004378,002965: E6,1407                        LADPAD            ERASE                                          #  I(1) PL  FOR ENTRY.HOLDS CM  NOMINAL L/D
004379,002966: E6,1410                        LODPAD            ERASE                                          #  I(1) PL  FOR ENTRY.HOLDS CM  NOMINAL LOD
004380,002967: E6,1411                        ALFAPAD           ERASE                                          #  B(1) PL  ALFA TRIM / 180
004381,002968: 
004382,002969: 
004383,002970:                                                                                                 #  ******** PAD LOADED TVC DAP VARIABLES.**********************************(26D)
004384,002971: 
004385,002972: E6,1412                        ESTROKER          ERASE                                          #  B(1)PL
004386,002973: E6,1413                        EKPRIME           ERASE    +1                                    #  B(2)PL
004387,002974: E6,1415                        ETDECAY           ERASE                                          #  I(1)PL
004388,002975: E6,1416                        EKTLX/I           ERASE    +1                                    #  B(2)PL
004389,002976: E6,1420                        ETVCDT/2          ERASE                                          #  B(1)PL
004390,002977: E6,1421                        ETSWITCH          ERASE                                          #  B(1)PL
004391,002978: E6,1422                        ECORFRAC          ERASE                                          #  B(1)PL
004392,002979: E6,1423                        EREPFRAC          ERASE    +1                                    #  B(2)PL
004393,002980: E6,1425                        PACTOFF           ERASE                                          #  B(1)PL, DSP N48 R01 = PTRIM, RD2 = YTRIM
004394,002981: E6,1426                        YACTOFF           ERASE                                          #  B(1)PL, CONSECUTIVE WITH PACTOFF
004395,002982: E6,1427                        AP0               ERASE                                          #  B(1)
004396,002983: E6,1430                        AP1               ERASE    +1                                    #  B(2)
004397,002984: E6,1432                        AP2               ERASE    +1                                    #  B(2)
004398,002985: E6,1434                        AP3               ERASE    +1                                    #  B(2)
004399,002986: 
004400,002987: E6,1436                        BP1               ERASE    +1                                    #  B(2)
004401,002988: E6,1440                        BP2               ERASE    +1                                    #  B(2)
004402,002989: E6,1442                        BP3               ERASE    +1                                    #  B(2)
004403,002990: E6,1444  E6,1427               AY0               =        AP0                                   
004404,002991: E6,1444  E6,1430               AY1               =        AP1                                   
004405,002992: E6,1444  E6,1432               AY2               =        AP2                                   
004406,002993: E6,1444  E6,1434               AY3               =        AP3                                   
004407,002994: 
004408,002995: E6,1444  E6,1436               BY1               =        BP1                                   
004409,002996:                                                                                                 # # Page 99
004410,002997: E6,1444  E6,1440               BY2               =        BP2                                   
004411,002998: E6,1444  E6,1442               BY3               =        BP3                                   
004412,002999: 
004413,003000:                                                                                                 #  ******* EXCLUSIVE TVC DAP VARIABLES. ***********************************(5D)
004414,003001: 
004415,003002: E6,1444                        V97VCNTR          ERASE                                          #  B(1)
004416,003003: E6,1445                        TEMPDAP           ERASE    +1                                    #  B(2)
004417,003004: E6,1447  E6,1445               MRKRTMP           =        TEMPDAP                               #       ((B(1)))
004418,003005: E6,1447                        CNTR              ERASE                                          #  B(1)
004419,003006: E6,1450                        OGAD              ERASE                                          #  B(1)
004420,003007: 
004421,003008: 
004422,003009: 
004423,003010:                                                                                                 #  ******* EXCLUSIVE RCS DAP VARIABLES. ***********************************(13D)
004424,003011: 
004425,003012: E6,1451                        RWORD1            ERASE    +12D                                  #  B(1)
004426,003013: E6,1466  E6,1452               RWORD2            EQUALS   RWORD1     +1                         #  B(1)
004427,003014: E6,1466  E6,1453               PWORD1            EQUALS   RWORD2     +1                         #  B(1)
004428,003015: E6,1466  E6,1454               PWORD2            EQUALS   PWORD1     +1                         #  B(1)
004429,003016: E6,1466  E6,1455               YWORD1            EQUALS   PWORD2     +1                         #  B(1)
004430,003017: E6,1466  E6,1456               YWORD2            EQUALS   YWORD1     +1                         #  B(1)
004431,003018: E6,1466  E6,1457               BLAST             EQUALS   YWORD2     +1                         #  B(2)
004432,003019: E6,1466  E6,1461               BLAST1            EQUALS   BLAST      +2                         #  B(2)
004433,003020: E6,1466  E6,1463               BLAST2            EQUALS   BLAST1     +2                         #  B(2)
004434,003021: E6,1466  E6,1465               T5PHASE           EQUALS   BLAST2     +2                         #  B(1)
004435,003022: 
004436,003023: 
004437,003024: 
004438,003025:                                                                                                 #  ******* RCS/TVC DAP COMMON STORAGE.*************************************(16D)
004439,003026: 
004440,003027: E6,1466                        DAPDATR1          ERASE                                          #  B(1)DSP NOUN 46(R1)
004441,003028: E6,1467                        DAPDATR2          ERASE                                          #  B(1)DSP NOUN 46(R2)
004442,003029: 
004443,003030: E6,1470                        IXX               ERASE                                          #  B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR
004444,003031: E6,1471                        IAVG              ERASE                                          #  B(1)                             MASSPROP
004445,003032: E6,1472                        IAVG/TLX          ERASE                                          #  B(1)
004446,003033: 
004447,003034: E6,1473                        LEMMASS           ERASE    +1                                    #  B(1) DSP NOUN 47 (R2)       LEM/CSMMASS
004448,003035: E6,1475  E6,1474               CSMMASS           EQUALS   LEMMASS    +1                         #  B(1) DSP NOUN 47 (R1)       FOR DOWNLINK
004449,003036: E6,1475                        WEIGHT/G          ERASE                                          #  B(1)
004450,003037: E6,1476  E6,1475               MASS              =        WEIGHT/G                              
004451,003038: 
004452,003039: E6,1476                        AK                ERASE                                          
004453,003040: E6,1477                        AK1               ERASE                                          
004454,003041: E6,1500                        AK2               ERASE                                          
004455,003042: 
004456,003043: E6,1501                        RCSFLAGS          ERASE                                          #  B(1) CONSECUTIVE WITHAK2 DOWNLINK
004457,003044: E6,1502                        T5TEMP            ERASE                                          #  B(1)
004458,003045: E6,1503                        EDRIVEX           ERASE                                          
004459,003046:                                                                                                 # # Page 100
004460,003047: E6,1504                        EDRIVEY           ERASE                                          
004461,003048: E6,1505                        EDRIVEZ           ERASE                                          
004462,003049: 
004463,003050: 
004464,003051:                                                                                                 #            INTEMP THRU INTEMP+14D  ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORIES
004465,003052: E6,1506                        INTTEMP           ERASE    +14D                                  #   (15)
004466,003053: 
004467,003054: 
004468,003055:                                                                                                 #            TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES
004469,003056: 
004470,003057: E6,1525                        TVCRCS            ERASE    +11D                                  #  (12)
004471,003058:                                                                                                 #  RCS (WBODYS,ADOTS)
004472,003059:                                                                                                 #  TVC(OMEGACS,OMEGABS)
004473,003060: 
004474,003061: 
004475,003062:                                                                                                 #            TVC DAP TEMPORARY VARIABLES************************************
004476,003063: 
004477,003064:                                                                                                 #            TVC DAP INTERUPT TRUE TEMPORARIES******************************
004478,003065: 
004479,003066: E6,1541  E6,1506               PHI333            EQUALS   INTTEMP                               #  B(1)     TEMPORARY REGISTER
004480,003067: E6,1541  E6,1507               PSI333            EQUALS   PHI333     +1                         #  B(1)     COUNTING REGISTER
004481,003068: E6,1541  E6,1510               TEMP333           EQUALS   PSI333     +1                         #  B(1)     COUNTING REGISTER
004482,003069: E6,1541  E6,1511               VARST0            EQUALS   TEMP333    +1                         #  B(10D)   BREAKPOINTS AND SLOPES
004483,003070: E6,1541  E6,1516               VARST5            =        VARST0     +5                         
004484,003071: E6,1541  E6,1522               LASTMASP          EQUALS   VARST0     +9D                        #  LAST VARST0 WORD
004485,003072: E6,1541  E6,1523               TVCTMP1           EQUALS   LASTMASP   +1                         #  B(1)
004486,003073: 
004487,003074: 
004488,003075:                                                                                                 #            *******REGULAR TVC TEMPORARIES*************
004489,003076: 
004490,003077: 
004491,003078:                                                                                                 #            TVC ZEROING LOOP STARTS AT OMEGAYC                             (70D)
004492,003079: 
004493,003080: 
004494,003081: E6,1541  E6,1525               OMEGAC            EQUALS   TVCRCS                                #  I(6)
004495,003082: E6,1541  E6,1525               OMEGAXC           =        OMEGAC                                
004496,003083: E6,1541  E6,1527               OMEGAYC           =        OMEGAC     +2                         
004497,003084: E6,1541  E6,1531               OMEGAZC           =        OMEGAC     +4                         
004498,003085: 
004499,003086: E6,1541  E6,1533               OMEGAB            EQUALS   TVCRCS     +6                         #  B(6)
004500,003087: E6,1541  E6,1533               OMEGAXB           =        OMEGAB                                
004501,003088: E6,1541  E6,1535               OMEGAYB           =        OMEGAB     +2                         
004502,003089: E6,1541  E6,1537               OMEGAZB           =        OMEGAB     +4                         
004503,003090: 
004504,003091: E6,1541  E6,1541               PNSUM             EQUALS   OMEGAC     +12D                       #  B(2)
004505,003092: E6,1541  E6,1543               PDSUM             EQUALS   PNSUM      +2                         #  B(2)
004506,003093: 
004507,003094: E6,1541  E6,1545               B1                EQUALS   PDSUM      +2                         #  B(1)
004508,003095: E6,1541  E6,1546               B2                EQUALS   B1         +1                         #  B(1)
004509,003096:                                                                                                 # # Page 101
004510,003097: E6,1541  E6,1547               B3                EQUALS   B2         +1                         #  B(1)
004511,003098: E6,1541  E6,1550               B4                EQUALS   B3         +1                         #  B(1)
004512,003099: E6,1541  E6,1551               B5                EQUALS   B4         +1                         #  B(1)
004513,003100: E6,1541  E6,1552               B6                EQUALS   B5         +1                         #  B(1)
004514,003101: 
004515,003102: E6,1541  E6,1553               J1                EQUALS   B6         +1                         #  B(2)
004516,003103: E6,1541  E6,1555               J2                EQUALS   J1         +2                         #  B(2)
004517,003104: E6,1541  E6,1557               J3                EQUALS   J2         +2                         #  B(2)
004518,003105: E6,1541  E6,1561               J4                EQUALS   J3         +2                         #  B(2)
004519,003106: E6,1541  E6,1563               J5                EQUALS   J4         +2                         #  B(2)
004520,003107: 
004521,003108: E6,1541  E6,1565               YNSUM             EQUALS   J5         +2                         #  B(2)
004522,003109: E6,1541  E6,1567               YDSUM             EQUALS   YNSUM      +2                         #  B(2)
004523,003110: 
004524,003111: E6,1541  E6,1571               C1                EQUALS   YDSUM      +2                         #  B(1)
004525,003112: E6,1541  E6,1572               C2                EQUALS   C1         +1                         #  B(1)
004526,003113: E6,1541  E6,1573               C3                EQUALS   C2         +1                         #  B(1)
004527,003114: E6,1541  E6,1574               C4                EQUALS   C3         +1                         #  B(1)
004528,003115: E6,1541  E6,1575               C5                EQUALS   C4         +1                         #  B(1)
004529,003116: E6,1541  E6,1576               C6                EQUALS   C5         +1                         #  B(1)
004530,003117: 
004531,003118: E6,1541  E6,1577               Y1                EQUALS   C6         +1                         #  B(2)
004532,003119: E6,1541  E6,1601               Y2                EQUALS   Y1         +2                         #  B(2)
004533,003120: E6,1541  E6,1603               Y3                EQUALS   Y2         +2                         #  B(2)
004534,003121: E6,1541  E6,1605               Y4                EQUALS   Y3         +2                         #  B(2)
004535,003122: E6,1541  E6,1607               Y5                EQUALS   Y4         +2                         #  B(2)
004536,003123: 
004537,003124: E6,1541  E6,1611               ROLLFIRE          EQUALS   Y5         +2                         #  B(1)
004538,003125: E6,1541  E6,1612               ROLLWORD          EQUALS   ROLLFIRE   +1                         #  B(1)
004539,003126: E6,1541  E6,1613               TEMREG            EQUALS   ROLLWORD   +1                         #  B(1)
004540,003127: 
004541,003128: E6,1541  E6,1614               STROKER           EQUALS   TEMREG     +1                         #  B(1)
004542,003129: 
004543,003130: E6,1541  E6,1615               PERRB             EQUALS   STROKER    +1                         #  B(2)
004544,003131: E6,1541  E6,1617               YERRB             EQUALS   PERRB      +2                         #  B(2)
004545,003132: 
004546,003133: E6,1541  E6,1621               DELPBAR           EQUALS   YERRB      +2                         #  B(2)
004547,003134: E6,1541  E6,1623               DELYBAR           EQUALS   DELPBAR    +2                         #  B(2)
004548,003135: 
004549,003136: E6,1541  E6,1625               PDELOFF           EQUALS   DELYBAR    +2                         #  B(2)
004550,003137: E6,1541  E6,1627               YDELOFF           EQUALS   PDELOFF    +2                         #  B(2)
004551,003138: 
004552,003139:                                                                                                 #            TVC ZEROING LOOP ENDS HERE
004553,003140: 
004554,003141: 
004555,003142: E6,1541  E6,1631               PCMD              EQUALS   YDELOFF    +2                         #  B(1)
004556,003143: E6,1541  E6,1632               YCMD              EQUALS   PCMD       +1                         #  B(1), CONSECUTIVE WITH PCMD
004557,003144: E6,1541  E6,1633               TACTOFF           EQUALS   YCMD       +1                         #  B(2)
004558,003145: E6,1541  E6,1635               T5TVCDT           EQUALS   TACTOFF    +2                         #  B(1)
004559,003146: E6,1541  E6,1636               MDT               EQUALS   T5TVCDT    +1                         #  I(6)
004560,003147:                                                                                                 # # Page 102
004561,003148: E6,1541  E6,1644               KPRIMEDT          EQUALS   MDT        +6                         #  I(2)
004562,003149: E6,1541  E6,1646               KTLX/I            EQUALS   KPRIMEDT   +2                         #  B(1)
004563,003150: E6,1541  E6,1647               TENMDOT           EQUALS   KTLX/I     +1                         #  B(1)
004564,003151: E6,1541  E6,1650               1/CONACC          EQUALS   TENMDOT    +1                         #  B(1)
004565,003152: E6,1541  E6,1651               VARK              EQUALS   1/CONACC   +1                         #  B(1)
004566,003153: E6,1541  E6,1652               REPFRAC           EQUALS   VARK       +1                         #  B(1)
004567,003154: E6,1541  E6,1653               VCNTR             EQUALS   REPFRAC    +1                         #  B(1)
004568,003155: E6,1541  E6,1654               TVCPHASE          EQUALS   VCNTR      +1                         #  B(1)
004569,003156: E6,1541  E6,1655               PCDUYPST          EQUALS   TVCPHASE   +1                         #  B(1)
004570,003157: E6,1541  E6,1656               PCDUZPST          EQUALS   PCDUYPST   +1                         #  B(1)
004571,003158: E6,1541  E6,1657               MCDUYDOT          EQUALS   PCDUZPST   +1                         #  B(1)
004572,003159: E6,1541  E6,1660               MCDUZDOT          EQUALS   MCDUYDOT   +1                         #  B(1)
004573,003160: E6,1541  E6,1661               TVCEXPHS          EQUALS   MCDUZDOT   +1                         #  B(1)
004574,003161: E6,1541  E6,1662               MASSTMP           EQUALS   TVCEXPHS   +1                         #  B(1)     PROTECT
004575,003162: E6,1541  E6,1663               VCNTRTMP          EQUALS   MASSTMP    +1                         #  B(1)       *PROTECT***
004576,003163: 
004577,003164:                                                                                                 #            STROKE TEST VARIABLES
004578,003165: 
004579,003166:                                                                                                 #  (6D))
004580,003167: E6,1541  E6,1664               STRKTIME          EQUALS   VCNTRTMP   +1                         #  B(1)
004581,003168: E6,1541  E6,1665               CADDY             EQUALS   STRKTIME   +1                         #  B(1)
004582,003169: E6,1541  E6,1666               N                 EQUALS   CADDY      +1                         #  B(1)
004583,003170: E6,1541  E6,1667               BUNKER            EQUALS   N          +1                         #  B(1)
004584,003171: E6,1541  E6,1670               REVS              EQUALS   BUNKER     +1                         #  B(1)
004585,003172: E6,1541  E6,1671               CARD              EQUALS   REVS       +1                         #  B(1)
004586,003173: 
004587,003174:                                                                                                 #            TVC ROLL DAP VARIABLES
004588,003175: 
004589,003176:                                                                                                 #  (8D)
004590,003177: E6,1541  E6,1672               OGANOW            EQUALS   CARD       +1                         #  B(1)
004591,003178: E6,1541  E6,1673               OGAPAST           EQUALS   OGANOW     +1                         #  B(1)
004592,003179: E6,1541  E6,1674               OGA               EQUALS   OGAPAST    +1                         #  B(1)TMP
004593,003180: E6,1541  E6,1674               OGAERR            =        OGA                                   #  (ROLL DAP USES OGA, MEANS OGAERROR)
004594,003181: E6,1541  E6,1675               DELOGART          EQUALS   OGA        +1                         #  B(1)TMP
004595,003182: E6,1541  E6,1676               SGNRT             EQUALS   DELOGART   +1                         #  SIGN OF OGA RATE
004596,003183: E6,1541  E6,1677               DELOGA            EQUALS   SGNRT      +1                         #  USED IN ROLL LOGIC
004597,003184: E6,1541  E6,1700               I                 EQUALS   DELOGA     +1                         #  USED IN ROLL LOGIC
004598,003185: E6,1541  E6,1701               IOGARATE          EQUALS   I          +1                         #  USED IN ROLL LOGIC
004599,003186: 
004600,003187:                                                                                                 #            TVC DAP RESTART TEMPORARIES.                                   (33D)
004601,003188: 
004602,003189: E6,1541  E6,1702               TKTLX/I           EQUALS   IOGARATE   +1                         #  B(1)
004603,003190: E6,1541  E6,1703               PACTTMP           EQUALS   TKTLX/I    +1                         #  B(2)
004604,003191: E6,1541  E6,1705               YACTTMP           EQUALS   PACTTMP    +2                         #  B(2)
004605,003192: E6,1541  E6,1707               CNTRTMP           EQUALS   YACTTMP    +2                         #  B(1)
004606,003193: E6,1541  E6,1710               STRKTTMP          EQUALS   CNTRTMP    +1                         #  B(1)
004607,003194: E6,1541  E6,1711               NSUMTMP           EQUALS   STRKTTMP   +1                         #  B(2)
004608,003195: E6,1541  E6,1713               DSUMTMP           EQUALS   NSUMTMP    +2                         #  B(2)
004609,003196: E6,1541  E6,1715               DELBRTMP          EQUALS   DSUMTMP    +2                         #  B(2)
004610,003197:                                                                                                 # # Page 103
004611,003198: E6,1541  E6,1717               B1TMP             EQUALS   DELBRTMP   +2                         #  B(1)
004612,003199: E6,1541  E6,1720               B2TMP             EQUALS   B1TMP      +1                         #  B(1)
004613,003200: E6,1541  E6,1721               B3TMP             EQUALS   B2TMP      +1                         #  B(1)
004614,003201: E6,1541  E6,1722               B4TMP             EQUALS   B3TMP      +1                         #  B(1)
004615,003202: E6,1541  E6,1723               B5TMP             EQUALS   B4TMP      +1                         #  B(1)
004616,003203: E6,1541  E6,1724               B6TMP             EQUALS   B5TMP      +1                         #  B(1)
004617,003204: E6,1541  E6,1725               B7TMP             EQUALS   B6TMP      +1                         #  B(1)
004618,003205: 
004619,003206: E6,1541  E6,1726               J1TMP             EQUALS   B7TMP      +1                         #  B(2)
004620,003207: E6,1541  E6,1730               J2TMP             EQUALS   J1TMP      +2                         #  B(2)
004621,003208: E6,1541  E6,1732               J3TMP             EQUALS   J2TMP      +2                         #  B(2)
004622,003209: E6,1541  E6,1734               J4TMP             EQUALS   J3TMP      +2                         #  B(2)
004623,003210: E6,1541  E6,1736               J5TMP             EQUALS   J4TMP      +2                         #  B(2)
004624,003211: E6,1541  E6,1740               J6TMP             EQUALS   J5TMP      +2                         #  B(2)
004625,003212: E6,1541  E6,1742               ERRBTMP           EQUALS   J6TMP      +2                         #  B(2)
004626,003213: E6,1541  E6,1744               CMDTMP            EQUALS   ERRBTMP    +2                         #  B(2)
004627,003214: 
004628,003215:                                                                                                 #            OVERLAYS WITHIN TVC DAP
004629,003216: 
004630,003217: E6,1541  E6,1533               OGARATE           =        OMEGAB                                #  B(2)
004631,003218: 
004632,003219: E6,1541  E6,1742               BZERO             =        ERRBTMP                               
004633,003220: E6,1541  E6,1742               CZERO             =        ERRBTMP                               
004634,003221: E6,1541  E6,1744               JZERO             =        CMDTMP                                
004635,003222: E6,1541  E6,1744               YZERO             =        CMDTMP                                
004636,003223: E6,1541  E6,1651               KPGEN3            =        VARK                                  
004637,003224: E6,1541  E6,1651               KYGEN3            =        KPGEN3                                
004638,003225: 
004639,003226: E6,1541  E6,1742               EP                =        ERRBTMP                               
004640,003227: E6,1541  E6,1744               NPD               =        CMDTMP                                
004641,003228: E6,1541  E6,1561               NP0               EQUALS   J4                                    #      (B(2))
004642,003229: E6,1541  E6,1563               NP1               EQUALS   J5                                    #      (B(2))
004643,003230: E6,1541  E6,1541               NP2               EQUALS   PNSUM                                 #      (B(2))
004644,003231: E6,1541  E6,1543               NP3               EQUALS   PDSUM                                 #      (B(2))
004645,003232: 
004646,003233: E6,1541  E6,1736               NP1TMP            EQUALS   J5TMP                                 #      (B(2))
004647,003234: E6,1541  E6,1711               NP2TMP            EQUALS   NSUMTMP                               #      (B(2))
004648,003235: E6,1541  E6,1713               NP3TMP            EQUALS   DSUMTMP                               #      (B(2))
004649,003236: 
004650,003237: E6,1541  E6,1742               EY                =        ERRBTMP                               
004651,003238: E6,1541  E6,1744               NYD               =        CMDTMP                                
004652,003239: E6,1541  E6,1605               NY0               EQUALS   Y4                                    #      (B(2))
004653,003240: E6,1541  E6,1607               NY1               EQUALS   Y5                                    #      (B(2))
004654,003241: E6,1541  E6,1565               NY2               EQUALS   YNSUM                                 #      (B(2))
004655,003242: E6,1541  E6,1567               NY3               EQUALS   YDSUM                                 #      (B(2))
004656,003243: 
004657,003244: E6,1541  E6,1736               NY1TMP            EQUALS   Y5TMP                                 #      (B(2))
004658,003245: E6,1541  E6,1711               NY2TMP            EQUALS   NSUMTMP                               #      (B(2))
004659,003246: E6,1541  E6,1713               NY3TMP            EQUALS   DSUMTMP                               #      (B(2))
004660,003247: 
004661,003248:                                                                                                 # # Page 103
004662,003249: E6,1541  E6,1717               C1TMP             =        B1TMP                                 #      (B(1))
004663,003250: E6,1541  E6,1720               C2TMP             =        B2TMP                                 #      (B(1))
004664,003251: E6,1541  E6,1721               C3TMP             =        B3TMP                                 #      (B(1))
004665,003252: E6,1541  E6,1722               C4TMP             =        B4TMP                                 #      (B(1))
004666,003253: E6,1541  E6,1723               C5TMP             =        B5TMP                                 #      (B(1))
004667,003254: E6,1541  E6,1724               C6TMP             =        B6TMP                                 #      (B(1))
004668,003255: E6,1541  E6,1725               C7TMP             =        B7TMP                                 #      (B(1))
004669,003256: 
004670,003257: E6,1541  E6,1726               Y1TMP             =        J1TMP                                 #      (B(2))
004671,003258: E6,1541  E6,1730               Y2TMP             =        J2TMP                                 #      (B(2))
004672,003259: E6,1541  E6,1732               Y3TMP             =        J3TMP                                 #      (B(2))
004673,003260: E6,1541  E6,1734               Y4TMP             =        J4TMP                                 #      (B(2))
004674,003261: E6,1541  E6,1736               Y5TMP             =        J5TMP                                 #      (B(2))
004675,003262: E6,1541  E6,1740               Y6TMP             =        J6TMP                                 #      (B(2))
004676,003263: 
004677,003264: 
004678,003265:                                                                                                 #            540.9 STORAGE..........
004679,003266: 
004680,003267: E6,1541  E6,1746               NBRCYCLS          EQUALS   CMDTMP     +2                         #  B(1)     COUNTER FOR P40,41 STEERING
004681,003268: E6,1541  E6,1747               NBRCYCLP          EQUALS   NBRCYCLS   +1                         #  B(1) MAINTAIN ORDER
004682,003269: E6,1541  E6,1750               DELVSUM           EQUALS   NBRCYCLP   +1                         #  I(6)  P40,P41
004683,003270: E6,1541  E6,1756               DELVSUMP          EQUALS   DELVSUM    +6                         #  I(6)  P40,P41
004684,003271: 
004685,003272:                                                                                                 # # Page 105
004686,003273: 
004687,003274:                                                                                                 #  ******** RCS DAP TEMPORARY VARIABLES. **********************************(95D)
004688,003275: 
004689,003276:                                                                                                 #            **RCS INTERUPT TRUE TEMPS************************              15D
004690,003277: 
004691,003278: E6,1541  E6,1506               SPNDX             EQUALS   INTTEMP                               #  B(1)
004692,003279: E6,1541  E6,1507               DPNDX             EQUALS   SPNDX      +1                         #  B(1)TMP
004693,003280: E6,1541  E6,1510               KMPAC             EQUALS   DPNDX      +1                         #  B(2)TMP
004694,003281: E6,1541  E6,1512               KMPTEMP           EQUALS   KMPAC      +2                         #  B(1)TMP
004695,003282: 
004696,003283: E6,1541  E6,1513               XNDX1             EQUALS   KMPTEMP    +1                         #  B(1)TMP  XNDX1 THRU NYJETS ARE OVERLAYED
004697,003284: E6,1541  E6,1514               XNDX2             EQUALS   XNDX1      +1                         #  B(1)TMP  BY OTHER DAP ERASABLES SO
004698,003285: E6,1541  E6,1515               YNDX              EQUALS   XNDX2      +1                         #  B(1)TMP  SHOULD ALWAYS BE DEFINED IN
004699,003286: E6,1541  E6,1516               ZNDX              EQUALS   YNDX       +1                         #  B(1)TMP  A BLOCK
004700,003287: E6,1541  E6,1517               RINDEX            EQUALS   ZNDX       +1                         #  B(1)TMP
004701,003288: E6,1541  E6,1520               PINDEX            EQUALS   RINDEX     +1                         #  B(1)TMP
004702,003289: E6,1541  E6,1521               YINDEX            EQUALS   PINDEX     +1                         #  B(1)TMP
004703,003290: E6,1541  E6,1522               NRJETS            EQUALS   YINDEX     +1                         #  B(1)TMP
004704,003291: E6,1541  E6,1523               NPJETS            EQUALS   NRJETS     +1                         #  B(1)TMP
004705,003292: E6,1541  E6,1524               NYJETS            EQUALS   NPJETS     +1                         #  B(1)TMP
004706,003293: 
004707,003294: E6,1541  E6,1513               WTEMP             EQUALS   XNDX1                                 #  B(2)TMP   WTEMP THRU DELTEMPZ OVERLAY
004708,003295: E6,1541  E6,1515               DELTEMPX          EQUALS   WTEMP      +2                         #  B(2)TMP   XNDX1 THRU NRJETS AND EDOT THRU
004709,003296: E6,1541  E6,1517               DELTEMPY          EQUALS   DELTEMPX   +2                         #  B(2)TMP   ADBVEL
004710,003297: E6,1541  E6,1521               DELTEMPZ          EQUALS   DELTEMPY   +2                         #  B(2)TMP
004711,003298: 
004712,003299: E6,1541  E6,1515               EDOT              EQUALS   YNDX                                  #  B(2)TMP   EDOT THRU ADBVEL OVERLAY
004713,003300: E6,1541  E6,1517               AERR              EQUALS   EDOT       +2                         #  B(1)TMP   YNDX THRU NPJETS AND DELTEMPX
004714,003301: E6,1541  E6,1520               EDOTVEL           EQUALS   AERR       +1                         #  B(2)TMP    THRU DELTEMPZ
004715,003302: E6,1541  E6,1522               AERRVEL           EQUALS   EDOTVEL    +2                         #  B(1)TMP
004716,003303: E6,1541  E6,1523               ADBVEL            EQUALS   AERRVEL    +1                         #  B(1)TMP
004717,003304: 
004718,003305:                                                                                                 #            *** REGULAR RCS TEMPS******************************            (   ).
004719,003306: 
004720,003307:                                                                                                 #              RCS ZEROING LOOP STARTS HERE****  ** **  **  ***   *** * *   (37)
004721,003308: 
004722,003309: E6,1541  E6,1525               WBODY             EQUALS   TVCRCS                                #  B(2)TMP
004723,003310: E6,1541  E6,1527               WBODY1            EQUALS   WBODY      +2                         #  B(2)TMP
004724,003311: E6,1541  E6,1531               WBODY2            EQUALS   WBODY      +4                         #  B(2)TMP
004725,003312: E6,1541  E6,1533               ADOT              EQUALS   WBODY2     +2                         #  B(2)TMP
004726,003313: E6,1541  E6,1535               ADOT1             EQUALS   ADOT       +2                         #  B(2)TMP
004727,003314: E6,1541  E6,1537               ADOT2             EQUALS   ADOT1      +2                         #  B(2)TMP
004728,003315: 
004729,003316: E6,1541  E6,1541               MERRORX           EQUALS   ADOT2      +2                         #   (2)
004730,003317: E6,1541  E6,1543               MERRORY           EQUALS   MERRORX    +2                         #   (2)
004731,003318: E6,1541  E6,1545               MERRORZ           EQUALS   MERRORY    +2                         #   (2)
004732,003319: E6,1541  E6,1547               DFT               EQUALS   MERRORZ    +2                         #         B(1)TMP
004733,003320: E6,1541  E6,1550               DFT1              EQUALS   DFT        +1                         #  B(1)TMP
004734,003321: E6,1541  E6,1551               DFT2              EQUALS   DFT1       +1                         #  B(1)TMP
004735,003322: E6,1541  E6,1552               DRHO              EQUALS   DFT2       +1                         #  B(2)TMP
004736,003323: E6,1541  E6,1554               DRHO1             EQUALS   DRHO       +2                         #  B(2)TMP
004737,003324:                                                                                                 # # Page 106
004738,003325: E6,1541  E6,1556               DRHO2             EQUALS   DRHO1      +2                         #  B(2)TMP
004739,003326: E6,1541  E6,1560               ATTSEC            EQUALS   DRHO2      +2                         #  B(1)TMP
004740,003327: E6,1541  E6,1561               TAU               EQUALS   ATTSEC     +1                         #  B(1)TMP
004741,003328: E6,1541  E6,1562               TAU1              EQUALS   TAU        +1                         #  B(1)TMP
004742,003329: E6,1541  E6,1563               TAU2              EQUALS   TAU1       +1                         #  B(1)TMP
004743,003330: E6,1541  E6,1564               BIAS              EQUALS   TAU2       +1                         #  B(1)TMP
004744,003331: E6,1541  E6,1565               BIAS1             EQUALS   BIAS       +1                         #  B(1)TMP
004745,003332: E6,1541  E6,1566               BIAS2             EQUALS   BIAS1      +1                         #  B(1)TMP
004746,003333: E6,1541  E6,1567               ERRORX            EQUALS   BIAS2      +1                         #  B(1)TMP
004747,003334: E6,1541  E6,1570               ERRORY            EQUALS   ERRORX     +1                         #  B(1)TMP
004748,003335: E6,1541  E6,1571               ERRORZ            EQUALS   ERRORY     +1                         #  B(1)TMP
004749,003336: 
004750,003337: 
004751,003338: 
004752,003339:                                                                                                 #            RCS ZERO LOOP ENDS HERE
004753,003340: 
004754,003341: 
004755,003342:                                                                                                 #                 MORE RCS                                                  (69D)
004756,003343: 
004757,003344: 
004758,003345: E6,1541  E6,1572               THETADX           EQUALS   ERRORZ     +1                         #  B(1)TMP  MUST BE CONSECUTIVE WITH ERRORZ
004759,003346: E6,1541  E6,1573               THETADY           EQUALS   THETADX    +1                         #  B(1)TMP
004760,003347: E6,1541  E6,1574               THETADZ           EQUALS   THETADY    +1                         #  B(1)TMP
004761,003348: 
004762,003349: E6,1541  E6,1575               DELCDUX           EQUALS   THETADZ    +1                         #  B(2)TMP
004763,003350: E6,1541  E6,1577               DELCDUY           EQUALS   DELCDUX    +2                         #  B(2)TMP
004764,003351: E6,1541  E6,1601               DELCDUZ           EQUALS   DELCDUY    +2                         #  B(2)TMP
004765,003352: 
004766,003353: E6,1541  E6,1603               DCDU              EQUALS   DELCDUZ    +2                         #  B(6)TMP USED DURING P20
004767,003354: E6,1541  E6,1611               DTHETASM          EQUALS   DCDU       +6                         #  B(6)TMP STEER LOW OUTPUT.
004768,003355: 
004769,003356: E6,1541  E6,1617               ATTKALMN          EQUALS   DTHETASM   +6                         #  B(1)TMP
004770,003357: E6,1541  E6,1620               KMJ               EQUALS   ATTKALMN   +1                         #  B(1)TMP
004771,003358: E6,1541  E6,1621               KMJ1              EQUALS   KMJ        +1                         #  B(1)TMP
004772,003359: E6,1541  E6,1622               KMJ2              EQUALS   KMJ1       +1                         #  B(1)TMP
004773,003360: E6,1541  E6,1623               J/M               EQUALS   KMJ2       +1                         #  B(1)TMP
004774,003361: E6,1541  E6,1624               J/M1              EQUALS   J/M        +1                         #  B(1)TMP
004775,003362: E6,1541  E6,1625               J/M2              EQUALS   J/M1       +1                         #  B(1)TMP
004776,003363: E6,1541  E6,1626               RACFAIL           EQUALS   J/M2       +1                         #  B(1)TMP
004777,003364: E6,1541  E6,1627               RBDFAIL           EQUALS   RACFAIL    +1                         #  B(1)TMP
004778,003365: E6,1541  E6,1630               ACORBD            EQUALS   RBDFAIL    +1                         #  B(1)TMP
004779,003366: E6,1541  E6,1631               XTRANS            EQUALS   ACORBD     +1                         #  B(1)TMP
004780,003367: E6,1541  E6,1632               CH31TEMP          EQUALS   XTRANS     +1                         #  B(1)TMP
004781,003368: E6,1541  E6,1633               CHANTEMP          EQUALS   CH31TEMP   +1                         #  B(1)TMP
004782,003369: E6,1541  E6,1634               T5TIME            EQUALS   CHANTEMP   +1                         #  B(1)TMP
004783,003370: E6,1541  E6,1635               RHO               EQUALS   T5TIME     +1                         #  B(1)TMP
004784,003371: E6,1541  E6,1636               RHO1              EQUALS   RHO        +1                         #  B(1)TMP
004785,003372: E6,1541  E6,1637               RHO2              EQUALS   RHO1       +1                         #  B(1)TMP
004786,003373: E6,1541  E6,1640               AMGB1             EQUALS   RHO2       +1                         #  B(1)TMP
004787,003374: E6,1541  E6,1641               AMGB4             EQUALS   AMGB1      +1                         #  B(1)TMP
004788,003375:                                                                                                 # # Page 107
004789,003376: E6,1541  E6,1642               AMGB5             EQUALS   AMGB4      +1                         #  B(1)TMP
004790,003377: E6,1541  E6,1643               AMGB7             EQUALS   AMGB5      +1                         #  B(1)TMP
004791,003378: E6,1541  E6,1644               AMGB8             EQUALS   AMGB7      +1                         #  B(1)TMP
004792,003379: E6,1541  E6,1645               CAPSI             EQUALS   AMGB8      +1                         #  B(1)TMP
004793,003380: E6,1541  E6,1646               CDUXD             EQUALS   CAPSI      +1                         #  B(1)TMP
004794,003381: E6,1541  E6,1650               CDUYD             EQUALS   CDUXD      +2                         #  B(1)TMP
004795,003382: E6,1541  E6,1652               CDUZD             EQUALS   CDUYD      +2                         #  B(1)TMP
004796,003383: E6,1541  E6,1654               SLOPE             EQUALS   CDUZD      +2                         #  B(1)TMP
004797,003384: E6,1541  E6,1655               ADB               EQUALS   SLOPE      +1                         #  B(1)TMP
004798,003385: E6,1541  E6,1656               RMANNDX           EQUALS   ADB        +1                         #  B(1)TMP
004799,003386: E6,1541  E6,1657               PMANNDX           EQUALS   RMANNDX    +1                         #  B(1)TMP
004800,003387: E6,1541  E6,1660               YMANNDX           EQUALS   PMANNDX    +1                         #  B(1)TMP  MUST BE LAST VARIABLE IN RCS
004801,003388: 
004802,003389:                                                                                                 # # Page 108
004803,003390: 
004804,003391:                                                                                                 #  ******** ENTRY DAP TEMPORARY VARIABLES.*********************************(69D)
004805,003392: 
004806,003393:                                                                                                 #   ANGLE REGISTERS FOR ENTRY DAPS
004807,003394: 
004808,003395: E6,1541  E6,1661               AOG               EQUALS   BCDU                                  #  1P
004809,003396: E6,1541  E6,1662               AIG               EQUALS   AOG        +1                         #  1P
004810,003397: E6,1541  E6,1663               AMG               EQUALS   AIG        +1                         #  1P
004811,003398: E6,1541  E6,1664               ROLL/180          EQUALS   AMG        +1                         #  1P
004812,003399: E6,1541  E6,1665               ALFA/180          EQUALS   ROLL/180   +1                         #  1P
004813,003400: E6,1541  E6,1666               BETA/180          EQUALS   ALFA/180   +1                         #  1P
004814,003401: E6,1541  E6,1667               AOG/PIP           EQUALS   BETA/180   +1                         #  1P
004815,003402: E6,1541  E6,1670               AIG/PIP           EQUALS   AOG/PIP    +1                         #  1P
004816,003403: E6,1541  E6,1671               AMG/PIP           EQUALS   AIG/PIP    +1                         #  1P
004817,003404: E6,1541  E6,1672               ROLL/PIP          EQUALS   AMG/PIP    +1                         #  1P
004818,003405: E6,1541  E6,1673               ALFA/PIP          EQUALS   ROLL/PIP   +1                         #  1P
004819,003406: E6,1541  E6,1674               BETA/PIP          EQUALS   ALFA/PIP   +1                         #  1P
004820,003407: 
004821,003408:                                                                                                 #  GYMBAL DIFFERENCES OVER INTERNAL TCDU = .1 SEC.
004822,003409: 
004823,003410: E6,1541  E6,1675               -DELAOG           EQUALS   BETA/PIP   +1                         #  1P
004824,003411: E6,1541  E6,1676               -DELAIG           EQUALS   -DELAOG    +1                         #  1P
004825,003412: E6,1541  E6,1677               -DELAMG           EQUALS   -DELAIG    +1                         #  1P
004826,003413: 
004827,003414:                                                                                                 #  ESTIMATED BODY RATES
004828,003415: 
004829,003416: E6,1541  E6,1700               CMDAPMOD          EQUALS   -DELAMG    +1                         #  1P  GOES BEFORE PREL FOR TM.
004830,003417: 
004831,003418: E6,1541  E6,1701               PREL              EQUALS   CMDAPMOD   +1                         #  1P   P TCDU/180      (ROLLDOT)
004832,003419: E6,1541  E6,1702               QREL              EQUALS   PREL       +1                         #  1P   Q TCDU/180     (PITCHDOT)
004833,003420: E6,1541  E6,1703               RREL              EQUALS   QREL       +1                         #  1P   R TCDU/180     (YAWDOT)
004834,003421: 
004835,003422: E6,1541  E6,1704               BETADOT           EQUALS   RREL       +1                         #  1P  MUST FOLLOW RREL. BETADOT TCDU/180
004836,003423: E6,1541  E6,1705               PHIDOT            EQUALS   BETADOT    +1                         #  1P
004837,003424: 
004838,003425:                                                                                                 #  OLD (UNAVERAGED) BODY RATE MEASURE
004839,003426: 
004840,003427: E6,1541  E6,1706               OLDELP            EQUALS   PHIDOT     +1                         #  1P
004841,003428: E6,1541  E6,1707               OLDELQ            EQUALS   OLDELP     +1                         #  1P
004842,003429: E6,1541  E6,1710               OLDELR            EQUALS   OLDELQ     +1                         #  1P
004843,003430: 
004844,003431: E6,1541  E6,1711               JETAG             EQUALS   OLDELR     +1                         #  1P
004845,003432: E6,1541  E6,1712               TUSED             EQUALS   JETAG      +1                         #  1P   ELAPSED TIME SINCE NOMINAL UPDATE.
004846,003433: 
004847,003434: 
004848,003435:                                                                                                 #            FOLLOWING 3 SP WORDS IN DOWNLINK.  ROLLTM SENT EACH 1 SEC.
004849,003436: 
004850,003437: E6,1541  E6,1713               PAXERR1           EQUALS   TUSED      +1                         #  1P   INTEGRATED ROLL ERROR/360.
004851,003438: E6,1541  E6,1714               ROLLTM            EQUALS   PAXERR1    +1                         #  1P   ROLL/180 FOR TM.
004852,003439: E6,1541  E6,1715               ROLLC             EQUALS   ROLLTM     +1                         #  2P   ROLLCOM/360 FROM ENTRY (FOR TM)
004853,003440:                                                                                                 #                                           >> KEEP ROLLC & ROLLHOLD ADJACENT FOR TP
004854,003441:                                                                                                 # # Page 109
004855,003442: E6,1541  E6,1717               ROLLHOLD          EQUALS   ROLLC      +2                         #  1P FOR ATTITUDE HOLD IN CMDAPMOD = +1
004856,003443: 
004857,003444: 
004858,003445:                                                                                                 #            ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP.
004859,003446: 
004860,003447: E6,1541  E6,1603               ALFACOM           EQUALS   DCDU                                  #  1P  KEEP ADJACENT TO BETACOM.  <<
004861,003448: E6,1541  E6,1604               BETACOM           EQUALS   ALFACOM    +1                         #  1P
004862,003449: 
004863,003450:                                                                                                 #  JET LIST:    DT, JETBITS  IN THIS ORDER.
004864,003451: 
004865,003452: E6,1541  E6,1605               TOFF              EQUALS   BETACOM    +1                         #  1P   DP PAIR
004866,003453: E6,1541  E6,1606               TBITS             EQUALS   TOFF       +1                         #  1P
004867,003454: E6,1541  E6,1607               TON2              EQUALS   TBITS      +1                         #  1P   DP PAIR
004868,003455: E6,1541  E6,1610               T2BITS            EQUALS   TON2       +1                         #  1P
004869,003456: 
004870,003457:                                                                                                 #   MISCELLANEOUS PERMANENT ERASABLE.
004871,003458: 
004872,003459: E6,1541  E6,1611               OUTTAG            EQUALS   T2BITS     +1                         #  1P
004873,003460: E6,1541  E6,1612               NUJET             EQUALS   OUTTAG     +1                         #  1P
004874,003461:                                                                                                 #     MORE ENTRY DAP QUANTITIES THAT DO NOT SHARE WITH RCS DAP.
004875,003462: 
004876,003463: E6,1541  E6,1720               JETEM             EQUALS   ROLLHOLD   +1                         #  2P  THIS DP USED IN RATEAVG.
004877,003464: E6,1541  E6,1722               GAMA              EQUALS   JETEM      +2                         #  1P
004878,003465: E6,1541  E6,1723               GAMDOT            EQUALS   GAMA       +1                         #  1P
004879,003466: E6,1541  E6,1724               POSEXIT           EQUALS   GAMDOT     +1                         #  1P
004880,003467: E6,1541  E6,1725               CM/GYMDT          EQUALS   POSEXIT    +1                         #  1P
004881,003468: E6,1541  E6,1726               HEADSUP           EQUALS   CM/GYMDT   +1                         #  1P  DSP NOUN 61 FOR P62,63,64,67.
004882,003469: E6,1541  E6,1727               P63FLAG           EQUALS   HEADSUP    +1                         #  1P  INTERLOCK FOR WAKEP62
004883,003470: 
004884,003471: 
004885,003472:                                                                                                 #                                                                    >> SHARE BELOW WITH RCS RUPT TEMPS (< 15D) <<<
004886,003473: E6,1541  E6,1506               CALFA             EQUALS   SPNDX                                 #  1P
004887,003474: E6,1541  E6,1507               SALFA             EQUALS   CALFA      +1                         #  1P
004888,003475: 
004889,003476: E6,1541  E6,1510               SINM              EQUALS   SALFA      +1                         #  1P
004890,003477: E6,1541  E6,1511               COSM              EQUALS   SINM       +1                         #  1P
004891,003478: E6,1541  E6,1512               SINO              EQUALS   COSM       +1                         #  1P
004892,003479: E6,1541  E6,1513               COSO              EQUALS   SINO       +1                         #  1P
004893,003480: E6,1541  E6,1514               SINOCOSM          EQUALS   COSO       +1                         #  1P
004894,003481: E6,1541  E6,1515               COSOCOSM          EQUALS   SINOCOSM   +1                         #  1P
004895,003482:                                                                                                 #                                                                    >> SHARE ABOVE WITH RCS RUPT TEMPS          <<<
004896,003483: 
004897,003484:                                                                                                 #            THE FOLLOWING FEW REGISTERS USED ONCE EACH 2 SEC.
004898,003485: 
004899,003486: E6,1541  E6,1613               -VT/180           EQUALS   NUJET      +1                         #  1P
004900,003487: E6,1541  E6,1614               LCX/360           EQUALS   -VT/180    +1                         #  1P
004901,003488: E6,1541  E6,1615               XD/360            EQUALS   LCX/360    +1                         #  1P
004902,003489: E6,1541  E6,1616               VSQ/4API          EQUALS   XD/360     +1                         #  1P
004903,003490: E6,1541  E6,1617               JNDX              EQUALS   VSQ/4API   +1                         #  1P
004904,003491: E6,1541  E6,1620               JNDX1             EQUALS   JNDX       +1                         #  1P
004905,003492:                                                                                                 # # Page 110
004906,003493: E6,1541  E6,1621               TON1              EQUALS   JNDX1      +1                         #  1P   DP PAIR
004907,003494: E6,1541  E6,1622               T1BITS            EQUALS   TON1       +1                         #  1P
004908,003495: 
004909,003496:                                                                                                 #            MISCELLANEOUS REGISTERS USED EACH UPDATE.
004910,003497: 
004911,003498: E6,1541  E6,1623               CM/SAVE           EQUALS   T1BITS     +1                         #  1P
004912,003499: E6,1541  E6,1624               JETEM2            EQUALS   CM/SAVE    +1                         #  1P  TEMPORARY STORAGE
004913,003500: 
004914,003501:                                                                                                 #            DAP   QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
004915,003502: 
004916,003503: E6,1541  E6,1567               VDT/180           =        ERRORX                                #  1P   (EDIT)
004917,003504: E6,1541  E6,1570               -VT/180E          =        ERRORY                                #  1P   (EDIT)
004918,003505: 
004919,003506: E6,1541  E6,1476               PAXERR            EQUALS   AK                                    #  1P  ROLL ERROR FOR NEEDLES
004920,003507: E6,1541  E6,1572               QAXERR            =        THETADX                               #  1P  SINCE AK1 IS ZEROED IN ATM DAP.
004921,003508: E6,1541  E6,1573               RAXERR            =        QAXERR     +1                         #  1P  SINCE AK2 IS ZEROED IN TM DAP.
004922,003509: 
004923,003510: 
004924,003511: 
004925,003512:                                                                                                 #         *** COLMANU (R60,R62) ****
004926,003513: 
004927,003514: E6,1541  E6,1710               VECQTEMP          EQUALS   COFSKEW                               
004928,003515: 
004929,003516:                                                                                                 # # Page 111
004930,003517: 
004931,003518:                                                                                                 #  ******** KALCMANU VARIABLES. (71D) *************************************
004932,003519: E6,1541  E6,1661               BCDU              EQUALS   YMANNDX    +1                         #  B(3) TMP
004933,003520: E6,1541  E6,1664               KSPNDX            EQUALS   BCDU       +3                         #  B(1)TMP
004934,003521: E6,1541  E6,1665               KDPNDX            EQUALS   KSPNDX     +1                         #  B(1)TMP
004935,003522: 
004936,003523: E6,1541  E6,1666               TMIS              EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN THE SAME BANK AS RCS DAP
004937,003524: E6,1541  E6,1710               COFSKEW           EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN THE SAME BANK AS RCS DAP
004938,003525: E6,1541  E6,1716               CAM               EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN THE SAME BANK AS RCS DAP
004939,003526: 
004940,003527: E6,1541  E6,1720               MIS               EQUALS   CAM        +2                         #  I(18)   (THE REST MAY GO ANYWHERE)
004941,003528: E6,1541  E6,1742               COF               EQUALS   MIS        +18D                       #  I(6)TMP
004942,003529: E6,1541  E6,1750               SCAXIS            EQUALS   COF        +6                         #  I(6)TMP
004943,003530: E6,1541  E6,1756               POINTVSM          EQUALS   SCAXIS     +6                         #  I(6)TMP
004944,003531: E6,1541  E6,1764               AM                EQUALS   POINTVSM   +6                         #  I(2)TMP
004945,003532: E6,1541  E6,1766               RAD               EQUALS   AM         +2                         #  I(2)TMP
004946,003533: 
004947,003534: 
004948,003535:                                                                                                 #  FIRST-ORDER OVERLAYS IN KALCMANU
004949,003536: 
004950,003537: E6,1541  E6,1666               KV1               EQUALS   TMIS                                  #  I(6)TMP
004951,003538: E6,1541  E6,1666               MFISYM            EQUALS   TMIS                                  #  I   TMP
004952,003539: E6,1541  E6,1666               TMFI              EQUALS   TMIS                                  #  I   TMP
004953,003540: E6,1541  E6,1666               NCDU              EQUALS   TMIS                                  #  B   TMP
004954,003541: E6,1541  E6,1671               NEXTIME           EQUALS   TMIS       +3                         #  B   TMP
004955,003542: E6,1541  E6,1672               TTEMP             EQUALS   TMIS       +4                         #  B   TMP
004956,003543: E6,1541  E6,1674               KV2               EQUALS   TMIS       +6                         #  I(6)TMP
004957,003544: E6,1541  E6,1674               BIASTEMP          EQUALS   TMIS       +6                         #  B   TMP
004958,003545: E6,1541  E6,1702               KV3               EQUALS   TMIS       +12D                       #  I(6)TMP
004959,003546: E6,1541  E6,1702               CGF               EQUALS   TMIS       +12D                       #  I   TMP
004960,003547: 
004961,003548: E6,1541  E6,1710               BRATE             EQUALS   COFSKEW                               #  B   TMP
004962,003549: E6,1541  E6,1716               TM                EQUALS   CAM                                   #  B   TMP
004963,003550: 
004964,003551:                                                                                                 #  SECOND-ORDER OVERLAYS IN KALCMANU
004965,003552: 
004966,003553: E6,1541  E6,1666               P21               EQUALS   KV1                                   #  I(2)TMP
004967,003554: E6,1541  E6,1670               D21               EQUALS   KV1        +2                         #  I(2)TMP
004968,003555: E6,1541  E6,1672               G21               EQUALS   KV1        +4                         #  I(2)TMP
004969,003556: 
004970,003557: 
004971,003558:                                                                                                 #            SATURN BOOST STORAGE. SAVE TILL RCS DAP OPERATION.             (17D)
004972,003559: 
004973,003560: E6,1541  E6,1661               POLYNUM           EQUALS   BCDU                                  #  B(15) PAD LOADED
004974,003561: E6,1541  E6,1673               POLYLOC           =        POLYNUM    +10D                       
004975,003562: E6,1541  E6,1700               SATRLRT           EQUALS   POLYNUM    +15D                       #  B(2) PAD LOADED
004976,003563: 
004977,003564: 
004978,003565: 
004979,003566:                                                                                                 #            MORE P11 STORAGE -PAD LOADED-                                  (2D)
004980,003567: 
004981,003568:                                                                                                 # # Page 112
004982,003569:                                                                                                 #            (NOTE: THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU,
004983,003570:                                                                                                 #             ENTRY DAP AND TVC DAP)
004984,003571: 
004985,003572: E6,1541  E6,1702               RPSTART           EQUALS   SATRLRT    +2                         #  B(1) PITCH ROLL START TIME
004986,003573: E6,1541  E6,1703               POLYSTOP          EQUALS   RPSTART    +1                         #  B(1) POLYCUT OFF MINUS RPSTART SEC
004987,003574: 
004988,003575: 
004989,003576: 
004990,003577:                                                                                                 #            STORAGE FOR VHHDOT AND ATTDSP
004991,003578: 
004992,003579: E6,1541  E6,1704               BODY3             EQUALS   POLYSTOP   +1                         #  B(1)OUT
004993,003580: E6,1541  E6,1705               BODY2             EQUALS   BODY3      +1                         #  B(1)OUT
004994,003581: E6,1541  E6,1706               BODY1             EQUALS   BODY2      +1                         #  B(1)OUT
004995,003582: E6,1541  E6,1707               SPOLYARG          EQUALS   BODY1      +1                         #  B(1)TMP  ARGUEMENT FOR POLLY
004996,003583: 
004997,003584: E6,1541  E6,1503               OLDBODY1          =        EDRIVEX                               #            1 PULSE = 0.0432 DEGREES
004998,003585: E6,1541  E6,1504               OLDBODY2          =        EDRIVEY                               
004999,003586: E6,1541  E6,1505               OLDBODY3          =        EDRIVEZ                               
005000,003587: 
005001,003588: 
005002,003589:                                                                                                 #            STORAGE FOR S11.1
005003,003590: 
005004,003591: E6,1541  E6,1710               VDISP             EQUALS   SPOLYARG   +1                         #  I(2)OUT   2(7)  M/CS
005005,003592: E6,1541  E6,1712               HDISP             EQUALS   VDISP      +2                         #  I(2)OUT   2(29) M
005006,003593: E6,1541  E6,1714               HDOTDISP          EQUALS   HDISP      +2                         #  I(2)OUT     2(7) M/CS
005007,003594: E6,1541  E6,1716               BOOSTEMP          EQUALS   HDOTDISP   +2                         #  B(2) TEMP
005008,003595: 
005009,003596:                                                                                                 #            P21 STORAGE.                                                   (1D))
005010,003597: 
005011,003598: E6,1541  E6,1770               GENRET            EQUALS   RAD        +2                         #  B(1)TMP
005012,003599: 
005013,003600: 
005014,003601:                                                                                                 #            R61CSM STORAGE.                                                (1D)
005015,003602: 
005016,003603: E6,1541  E6,1771               SAVBNK            EQUALS   GENRET     +1                         #  B(1) S-S SAVE EBANK FOR R61 SUBROUTINE
005017,003604: 
005018,003605: 
005019,003606:                                                                                                 #            CRS61.1 STORAGE FOR AUTOPILOT BANK.                            (3D)
005020,003607: 
005021,003608: E6,1541  E6,1772               SAVEDCDU          EQUALS   SAVBNK     +1                         #  B(3) TMP
005022,003609: 
005023,003610: 
005024,003611: 
005025,003612:                                                                                                 #            R61 STORAGE.                                                   (1D)
005026,003613: 
005027,003614: E6,1541  E6,1775               R61CNTR           EQUALS   SAVEDCDU   +3                         #   (1)TMP
005028,003615: 
005029,003616: 
005030,003617:                                                                                                 #            ENTRY RESTART PROTECTION STORAGE. -KEEP TEMPS IN ORDER-        (12D)
005031,003618: 
005032,003619:                                                                                                 # # Page 113
005033,003620: E6,1541  E6,1770               TEMPROLL          EQUALS   GENRET                                #  B(1)TMP COPY CYCLE REGISTER
005034,003621: E6,1541  E6,1771               TEMPALFA          EQUALS   TEMPROLL   +1                         #  B(1)TMP COPY CYCLE REGISTER
005035,003622: E6,1541  E6,1772               TEMPBETA          EQUALS   TEMPALFA   +1                         #  B(1)TMP COPY CYCLE REGISTER
005036,003623: E6,1541  E6,1773               60GENRET          EQUALS   TEMPBETA   +1                         #  B(1)TMP QSAVE FOR S61.1 AND ENTRY.
005037,003624: E6,1541  E6,1774               S61DT             EQUALS   60GENRET   +1                         #  B(1)TMP VARIABLE DT FOR S61.1 RESTART.
005038,003625: 
005039,003626: 
005040,003627: 
005041,003628:                                                                                                 #            ENTRY TM SHARING FOR ACCELERATION PROFILE.
005042,003629: 
005043,003630: E6,1541  E6,1533               XPIPBUF           EQUALS   ADOT                                  #  B(1) PIPA BUFFER FOR TM DURING ENTRY.
005044,003631: E6,1541  E6,1534               YPIPBUF           EQUALS   XPIPBUF    +1                         #  B(1) PIPS FILED HERE EACH .5 SEC APPEAR
005045,003632: E6,1541  E6,1535               ZPIPBUF           EQUALS   YPIPBUF    +1                         #  B(1) ON DOWNLIST ONCE PER SECOND DURING
005046,003633: E6,1541  E6,1536               XOLDBUF           EQUALS   ZPIPBUF    +1                         #  B(1) ENTRY AFTER RCS DAP HAS BEEN DIS-
005047,003634: E6,1541  E6,1537               YOLDBUF           EQUALS   XOLDBUF    +1                         #  B(1) ABLED. NEWEST PIP VALUE REPLACES
005048,003635: E6,1541  E6,1540               ZOLDBUF           EQUALS   YOLDBUF    +1                         #  B(1) PIPBUF, WHICH IS MOVED INTO OLDBUF.
005049,003636: 
005050,003637: 
005051,003638:                                                                                                 #            REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
005052,003639: 
005053,003640: E6,1541  E6,1574               Q7                =        THETADZ                               #  I(2)   HI-WORD ONLY ON DNLIST.
005054,003641: 
005055,003642: E6,1541  E6,1525               ASPS(TM)          =        WBODY                                 #  I(6) DWN
005056,003643:                                                                                                 #                                                 ASKEP,ASP1,ASPUP,ASPDN,ASP3,ASP3+1
005057,003644: 
005058,003645: 
005059,003646: 
005060,003647: E6,1541  E6,1776               END-E6            EQUALS   R61CNTR    +1                         #  NEXT FREE  E6 ADDRESS
005061,003648: 
005062,003649:                                                                                                 # # Page 114
005063,003650:                                                                                                 #                   EBANK-7 ASSIGNMENTS
005064,003651: 
005065,003652: E7,1400                                          SETLOC   3400                                  
005066,003653: 
005067,003654: 
005068,003655:                                                                                                 #            *-*-*-*-  OVERLAY 0 IN EBANK 7 -*-*-*-*
005069,003656: 
005070,003657:                                                                                                 #            EXTERNAL DELTA-V UPDATE.                                       (21D)
005071,003658: 
005072,003659:                                                                                                 #            (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAMS PICK UP 'LAT(SPL)' WITH A VLOAD.)
005073,003660: 
005074,003661: E7,1400                        LAT(SPL)          ERASE    +20D                                  #  I(2)      DSP NOUN 61 FOR P62,63,64,67
005075,003662: E7,1425  E7,1402               LNG(SPL)          EQUALS   LAT(SPL)   +2                         #  I(2)DSP NOUN 61 FOR P62,63,64,67.
005076,003663: 
005077,003664: E7,1425  E7,1404               DELVSLV           EQUALS   LNG(SPL)   +2                         #  I(6)TMP DELTA VEL VECT, LOC VER COORDS
005078,003665: E7,1425  E7,1412               TIG               EQUALS   DELVSLV    +6                         #  B(2)DSP NOUN 33 FOR X-V84(R32),P30,40.
005079,003666: E7,1425  E7,1414               RTARG             EQUALS   TIG        +2                         #  I(6)IN  DESIRED VEHICLE RADIUS VECTOR
005080,003667: E7,1425  E7,1422               DELLT4            EQUALS   RTARG      +6                         #  I(2)IN  TIME DIFFERENCE FOR INITVEL
005081,003668: E7,1425  E7,1424               ECSTEER           EQUALS   DELLT4     +2                         #  I(1)PL   FOR P40 S
005082,003669: E7,1425  E7,1404               DELVLVC           =        DELVSLV                               
005083,003670: E7,1425                        END-DELV          ERASE                                          #  *NEXT AVAIL LOC AFTER UNSHARED E7*
005084,003671:                                                                                                 #            SERVICER STORAGE.                                              (13D)
005085,003672: 
005086,003673: E7,1426  E7,1425               DVTOTAL           EQUALS   END-DELV                              #  B(2) DSP NOUN 40,99 FOR P30,34,35,40
005087,003674: E7,1426  E7,1427               TGO               EQUALS   DVTOTAL    +2                         #  B(2)
005088,003675: E7,1426  E7,1431               DVCNTR            EQUALS   TGO        +2                         #  B(1)TMP
005089,003676: E7,1426  E7,1432               DELVREF           EQUALS   DVCNTR     +1                         #  I(6)TMP
005090,003677: 
005091,003678: E7,1426  E7,1447               NOMTIG            EQUALS   END-KALC                              #  I(2) (CAN NOT SHARE WITH KALCMANU
005092,003679:                                                                                                 #                                           OR DELVREF)
005093,003680: E7,1426  E7,1451               END-SVCR          EQUALS   NOMTIG     +2                         #  ***NEXT AVAILABLE AFTER SERVICER
005094,003681: 
005095,003682: 
005096,003683: 
005097,003684:                                                                                                 #            ALIGNMENT STORAGE.                                             (25D)
005098,003685: 
005099,003686: E7,1426  E7,1451               XSCD              EQUALS   END-SVCR                              #  I(6)TMP
005100,003687: E7,1426  E7,1457               YSCD              EQUALS   XSCD       +6                         #  I(6)TMP
005101,003688: E7,1426  E7,1465               ZSCD              EQUALS   YSCD       +6                         #  I(6)TMP
005102,003689: E7,1426  E7,1473               VEL/C             EQUALS   ZSCD       +6                         #  I(6)TMP
005103,003690: E7,1426  E7,1501               R53EXIT           EQUALS   VEL/C      +6                         #  I(1)TMP
005104,003691: 
005105,003692: 
005106,003693:                                                                                                 #            ALIGNMENT  MARKDATA  (DOWNLINK)******                          (7D)
005107,003694: E7,1426  E7,1502               MARK2DWN          EQUALS   R53EXIT    +1                         #  (7)  USED BY ALLIGNMENT P50 S
005108,003695: 
005109,003696:                                                                                                 # # Page 115
005110,003697: 
005111,003698:                                                                                                 #            *-*-*-*-  OVERLAY 1 IN EBANK 7 -*-*-*-*
005112,003699: 
005113,003700:                                                                                                 #  REENTRY ERASABLES                                                        (206D)
005114,003701: 
005115,003702: E7,1426  E7,1451               RTINIT            EQUALS   END-SVCR                              #  6P
005116,003703: E7,1426  E7,1457               RTEAST            EQUALS   RTINIT     +6                         #  6P
005117,003704: E7,1426  E7,1465               RTNORM            EQUALS   RTEAST     +6                         #  6P
005118,003705: E7,1426  E7,1473               RT                EQUALS   RTNORM     +6                         #  6P
005119,003706: E7,1426  E7,1501               UNI               EQUALS   RT         +6                         #  6P
005120,003707: E7,1426  E7,1507               UNITV             EQUALS   UNI        +6                         #  6P
005121,003708: E7,1426  E7,1515               VEL               EQUALS   UNITV      +6                         #  6P
005122,003709: 
005123,003710: E7,1426  E7,1523               TIME/RTO          EQUALS   VEL        +6                         #  2P   TIME OF INITIAL TARGET, RTO.
005124,003711: E7,1426  E7,1525               -VREL             EQUALS   TIME/RTO   +2                         #  6P
005125,003712: E7,1426  E7,1533               OLDUYA            EQUALS   -VREL      +6                         #  6P   USED BY CM/POSE     (ENTRY DAP)
005126,003713: E7,1426  E7,1541               UXA/2             EQUALS   OLDUYA     +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)  -UVA
005127,003714: E7,1426  E7,1541               URH               =        UXA/2                                 #             P61 DISPLAY NOUN
005128,003715: E7,1426  E7,1547               UYA/2             EQUALS   UXA/2      +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)   UYA
005129,003716: E7,1426  E7,1555               UZA/2             EQUALS   UYA/2      +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)   UNA
005130,003717: E7,1426  E7,1563               UBX/2             EQUALS   UZA/2      +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)
005131,003718: E7,1426  E7,1571               UBY/2             EQUALS   UBX/2      +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)
005132,003719: E7,1426  E7,1577               UBZ/2             EQUALS   UBY/2      +6                         #  6P   USED BY CM/POSE   (ENTRY DAP)
005133,003720: 
005134,003721: E7,1426  E7,1605               DTEAROT           EQUALS   UBZ/2      +6                         #  2P
005135,003722: E7,1426  E7,1607               DIFF              EQUALS   DTEAROT    +2                         #  2P
005136,003723: E7,1426  E7,1611               DIFFOLD           EQUALS   DIFF       +2                         #  2P
005137,003724: E7,1426  E7,1613               FACTOR            EQUALS   DIFFOLD    +2                         #  2P
005138,003725: E7,1426  E7,1615               FACT1             EQUALS   FACTOR     +2                         #  2P
005139,003726: E7,1426  E7,1617               FACT2             EQUALS   FACT1      +2                         #  2P
005140,003727:                                                                                                 # Q7              =       THETADZ         # 2P  SHARED FOR TM.   P64-P66
005141,003728: E7,1426  E7,1621               VSQUARE           EQUALS   FACT2      +2                         #  2P
005142,003729: E7,1426  E7,1623               LAD               EQUALS   VSQUARE    +2                         #  2P
005143,003730: E7,1426  E7,1625               LOD               EQUALS   LAD        +2                         #  2P
005144,003731: E7,1426  E7,1627               L/DCMINR          EQUALS   LOD        +2                         #  2P
005145,003732: E7,1426  E7,1631               KLAT              EQUALS   L/DCMINR   +2                         #  2P
005146,003733: E7,1426  E7,1633               L/D               EQUALS   KLAT       +2                         #  2P
005147,003734: E7,1426  E7,1635               L/D1              EQUALS   L/D        +2                         #  2P
005148,003735: E7,1426  E7,1724               LEWD              =        VIO                                   #  2P   SHARED FOR TM.  P64-P65
005149,003736: E7,1426  E7,1637               D                 EQUALS   L/D1       +2                         #  2P   DSP NOUN 64,66,68 FOR P63,64,67
005150,003737:                                                                                                 # V1              =       ENDBUF +1       # 2P   SHARED FOR TM.  P64-P65
005151,003738: E7,1426  E7,1641               DLEWD             EQUALS   D          +2                         #  2P
005152,003739: E7,1426  E7,1643               K2ROLL            EQUALS   DLEWD      +2                         #  2 P
005153,003740: E7,1426  E7,1645               GOTOADDR          EQUALS   K2ROLL     +2                         #  1P
005154,003741: E7,1426  E7,1646               TEM1B             EQUALS   GOTOADDR   +1                         #  2 P
005155,003742: E7,1426  E7,1650               MM                EQUALS   TEM1B      +2                         #  2 P
005156,003743: E7,1426  E7,1651               GRAD              EQUALS   MM         +1                         #  1P
005157,003744: E7,1426  E7,1652               FX                EQUALS   GRAD       +1                         #  1P   OVERWRITES NEXT 5 LOCS IN P67.
005158,003745: E7,1426  E7,1653               LEQ               EQUALS   FX         +1                         #  2P
005159,003746: E7,1426  E7,1655               DHOOK             EQUALS   LEQ        +2                         #  2P
005160,003747: E7,1426  E7,1657               AHOOKDV           EQUALS   DHOOK      +2                         #  2P
005161,003748:                                                                                                 # # Page 116
005162,003749: E7,1426  E7,1661               DVL               EQUALS   AHOOKDV    +2                         #  2P
005163,003750:                                                                                                 # A0              =       ENDBUF +3       # 2P    SHARED FOR TM.(HI-WD ) P64-P65
005164,003751: E7,1426  E7,1663               A1                EQUALS   DVL        +2                         #  2P
005165,003752: E7,1426  E7,1665               VBARS             EQUALS   A1         +2                         #  2P
005166,003753: E7,1426  E7,1667               COSG/2            EQUALS   VBARS      +2                         #  2P
005167,003754:                                                                                                 # GAMMAL          =       GAMMAEI         # 2P    SHARED FOR TM  P64
005168,003755: E7,1426                        GAMMAL1           =        22D                                   #  2P
005169,003756: E7,1426  E7,1671               VS1               EQUALS   COSG/2     +2                         #  2P
005170,003757: E7,1426  E7,1766               VL                =        VPRED                                 #  2P   SHARED FOR TM.  P64-P65
005171,003758: E7,1426  E7,1673               V                 EQUALS   VS1        +2                         #  2P
005172,003759:                                                                                                 # VREF            =       THETAD   +2     # 2P   SHARED FOR TM    P65
005173,003760: E7,1426  E7,1675               LATANG            EQUALS   V          +2                         #  2P   ADJACENT FOR TM.
005174,003761: E7,1426  E7,1677               RDOT              EQUALS   LATANG     +2                         #  2P   ADJACENT FOR TM.
005175,003762: E7,1426  E7,1701               THETAH            EQUALS   RDOT       +2                         #  2P   DSP NOUN 64,67 FOR P63,64,67
005176,003763:                                                                                                 # RDOTREF         =       THETAD  # 2P   SHARED FOR TM     P65
005177,003764: E7,1426  E7,1703               ALP               EQUALS   THETAH     +2                         #  2P
005178,003765: 
005179,003766: E7,1426  E7,1730               ASKEP             =        ASPS                                  #  2P)                  THESE ARE STORED IN
005180,003767: E7,1426  E7,1731               ASP1              =        ASPS       +1                         #  2P)                  SEQUENCE,OVERLAPPING
005181,003768: E7,1426  E7,1732               ASPUP             =        ASPS       +2                         #  2P)>HI-WD OF EACH<  HI-WORD ONLY APPEARS
005182,003769: E7,1426  E7,1733               ASPDWN            =        ASPS       +3                         #  2P)                  ON DOWNLIST, EXCEPT 
005183,003770: E7,1426  E7,1734               ASP3              =        ASPS       +4                         #  2P)                  ASP3 IS COMPLETE.
005184,003771: 
005185,003772: E7,1426  E7,1705               C/D0              EQUALS   ALP        +2                         #  2P   -1/D0
005186,003773: E7,1426  E7,1707               D0                EQUALS   C/D0       +2                         #  I(2)    CONSTANT DRAG
005187,003774: E7,1426  E7,1711               Q2                EQUALS   D0         +2                         #  2P
005188,003775: 
005189,003776:                                                                                                 #            ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP.
005190,003777: E7,1426  E7,1713               RTGO              EQUALS   Q2         +2                         #  2P   DSP NOUN 66 FOR P64,P67.
005191,003778: E7,1426  E7,1715               DNRNGERR          EQUALS   RTGO       +2                         #  2P DSP NOUN 66 FOR P64,67.
005192,003779: E7,1426  E7,1675               XRNGERR           =        LATANG                                #       FOR DISKY DISPLAY
005193,003780: E7,1426  E7,1717               KAT               EQUALS   DNRNGERR   +2                         #  2P
005194,003781: E7,1426  E7,1721               GMAX              EQUALS   KAT        +2                         #  1P  DSP NOUN 60 FOR P61,62,63.
005195,003782:                                                                                                 #  GMAX IS LOADED IN DOUBLE PRECISION.
005196,003783: E7,1426  E7,1726               L/DCALC           =        TTE                                   #  2P  CALCULATED L/D FOR TM:  P64 - P67.
005197,003784: E7,1426  E7,1770               GAMMAL            =        GAMMAEI                               #  2P  SHARED FOR TM   P64
005198,003785: E7,1426  E7,1770               PREDANG           =        GAMMAEI                               #       FOR TM IN P67.
005199,003786: E7,1426  E7,1771               JJ                =        PREDANG    +1                         #       FOR TM IN P67.
005200,003787: E7,1426  E7,1722               VMAGI             EQUALS   GMAX       +1                         #  2P DSP NOUN 62,64,66 FOR P11,63,64.
005201,003788: E7,1426  E7,1724               VIO               EQUALS   VMAGI      +2                         #  2P DSP NOUN 63 FOR P61.
005202,003789: E7,1426  E7,1726               TTE               EQUALS   VIO        +2                         #  2P DSP NOUN 63 FOR P61.
005203,003790: 
005204,003791: E7,1426  E7,1730               ASPS              EQUALS   TTE        +2                         #  I(2)     HI-WORD ONLY ON DNLIST FOR TEMP
005205,003792: E7,1426  E7,1732               TTE1              EQUALS   ASPS       +2                         #  I(2ETMP HOLDS UNDECREMENTED TTE VALUE
005206,003793: 
005207,003794: 
005208,003795:                                                                                                 #            **** P6OS ****
005209,003796: 
005210,003797: E7,1426  E7,1713               RTGON64           EQUALS   RTGO                                  #  RANGE ERRORS NEGATIVE IF FALLS SHORT
005211,003798:                                                                                                 # # Page 117
005212,003799: E7,1426  E7,1713               RTGON67           EQUALS   RTGO                                  #     DSP NOUN 67
005213,003800: 
005214,003801: 
005215,003802: 
005216,003803:                                                                                                 #            REENTRY, RETURN TO EARTH COMMON DISPLAY.                       (4D)
005217,003804: 
005218,003805: E7,1426  E7,1766               VPRED             EQUALS   BETA12     +2                         #  DSP NOUN 60 FOR P61,  ,62,63.
005219,003806: E7,1426  E7,1770               GAMMAEI           EQUALS   VPRED      +2                         #  DSP NOUN 60 FOR P61,  ,62,63.
005220,003807: 
005221,003808: 
005222,003809: 
005223,003810:                                                                                                 #            SOME P11 DISPLAY REGISTERS.                                    (6D)
005224,003811: 
005225,003812: E7,1426  E7,1734               ALTI              EQUALS   TTE1       +2                         #  2P DSP NOUN 62 FOR P11.
005226,003813: E7,1426  E7,1736               HDOT              EQUALS   ALTI       +2                         #  2P DSP NOUN 62 FOR P11.
005227,003814: 
005228,003815:                                                                                                 # # Page 118
005229,003816: 
005230,003817:                                                                                                 #            *-*-*-*-  OVERLAY 2 IN EBANK 7 -*-*-*-*
005231,003818: 
005232,003819:                                                                                                 #            KALCMANU STORAGE.                                              (18D)
005233,003820: 
005234,003821: E7,1426  E7,1425               MFS               EQUALS   END-DELV                              #  I(18)
005235,003822: E7,1426  E7,1425               MFI               EQUALS   MFS                                   #  I    TMP
005236,003823: E7,1426  E7,1425               DEL               EQUALS   MFS                                   #  I    TMP
005237,003824: E7,1426  E7,1447               END-KALC          EQUALS   MFS        +18D                       #  **NEXT AVAIL LOC AFTER KALCMANU **
005238,003825: 
005239,003826: 
005240,003827:                                                                                                 #            MEASUREMENT INCORPORATION STORAGE(R22) STORAGE.                (56D)
005241,003828: 
005242,003829: E7,1426  E7,1447               TX789             EQUALS   END-KALC                              #  I(6)TMP
005243,003830: E7,1426  E7,1455               GAMMA             EQUALS   TX789      +6                         #  I(2)TMP
005244,003831: E7,1426  E7,1457               OMEGA             EQUALS   GAMMA      +2                         #  I(18)TMP
005245,003832: E7,1426  E7,1501               BVECTOR           EQUALS   OMEGA      +18D                       #  I(18)TMP
005246,003833: E7,1426  E7,1523               DELTAQ            EQUALS   BVECTOR    +18D                       #  I(2)TMP
005247,003834: E7,1426  E7,1525               VARIANCE          EQUALS   DELTAQ     +2                         #  I(3)TMP
005248,003835: E7,1426  E7,1530               RCLP              EQUALS   VARIANCE   +3                         #  I(6)TMP
005249,003836: E7,1426  E7,1536               GRP2SVQ           EQUALS   RCLP       +6                         #  I(1)TMP QSAVE FOR RESTARTS
005250,003837: 
005251,003838: 
005252,003839:                                                                                                 #            P20, P22, P23 DSP NOUN                                         (5D)
005253,003840: 
005254,003841: E7,1426  E7,1501               N49DISP           EQUALS   BVECTOR                               #  B(5)TMP
005255,003842: 
005256,003843: 
005257,003844:                                                                                                 #            S22.1 STORAGE.                                                 (36D)
005258,003845: 
005259,003846: E7,1426  E7,1537               SVMRKDAT          EQUALS   GRP2SVQ    +1                         #  I(36)TMP 5 SETS OF MARK DATA +PAD OF ONE
005260,003847: 
005261,003848: 
005262,003849:                                                                                                 #            **** CISLUNAR NAV.  ERAS.  (P20S) ****                         (57D).
005263,003850: 
005264,003851: E7,1426  E7,1603               TRUNX             EQUALS   SVMRKDAT   +36D                       
005265,003852: E7,1426  E7,1603               DATATEST          EQUALS   TRUNX                                 #   (1)
005266,003853: E7,1426  E7,1604               UBAR0             EQUALS   TRUNX      +1                         
005267,003854: E7,1426  E7,1612               UBAR1             EQUALS   UBAR0      +6                         
005268,003855: E7,1426  E7,1620               UBAR2             EQUALS   UBAR1      +6                         
005269,003856: E7,1426  E7,1626               RZC               EQUALS   UBAR2      +6                         
005270,003857: E7,1426  E7,1634               VZC               EQUALS   RZC        +6                         
005271,003858: E7,1426  E7,1642               UCLSTAR           EQUALS   VZC        +6                         
005272,003859: E7,1426  E7,1650               USSTAR            EQUALS   UCLSTAR    +6                         
005273,003860: E7,1426  E7,1656               RCLL              EQUALS   USSTAR     +6                         
005274,003861: E7,1426  E7,1664               RL                EQUALS   RCLL       +6                         
005275,003862: E7,1426  E7,1672               SRRETURN          EQUALS   RL         +6                         
005276,003863: 
005277,003864:                                                                                                 # # Page 119
005278,003865: 
005279,003866:                                                                                                 #            *-*-*-*-  OVERLAY 3 IN EBANK 7 -*-*-*-*
005280,003867: 
005281,003868:                                                                                                 #            RENDEZVOUS GUIDANCE STORAGE. - P32...P35-                      (8D)
005282,003869: 
005283,003870: E7,1426  E7,1447               DELTEEO           EQUALS   END-KALC                              #  I(2) S-S BACK VALUES OF DELTA TIME
005284,003871: E7,1426  E7,1451               DELEL             EQUALS   DELTEEO    +2                         #  I(2) S-S
005285,003872: E7,1426  E7,1453               SECMAX            EQUALS   DELEL      +2                         #  I(2) S-S MAX STOP SIZE FOR ROUTINE
005286,003873: E7,1426  E7,1455               XXXALT            EQUALS   SECMAX     +2                         #  I(2)
005287,003874: 
005288,003875: 
005289,003876: 
005290,003877:                                                                                                 #            S40.9 STORAGE.                                                 (16D)
005291,003878: 
005292,003879: E7,1426  E7,1457               VG                EQUALS   XXXALT     +2                         #  I(6)TMP
005293,003880: E7,1426  E7,1465               VRPREV            EQUALS   VG         +6                         #  I(6)
005294,003881: E7,1426  E7,1473               TNIT              EQUALS   VRPREV     +6                         #  I(2)
005295,003882: E7,1426  E7,1475               TNITPREV          EQUALS   TNIT       +2                         #  I(2)
005296,003883: 
005297,003884: 
005298,003885:                                                                                                 #            S40.2,3 STORAGE.                                               (1D)
005299,003886: 
005300,003887: E7,1426  E7,1477               AXISCODE          EQUALS   TNITPREV   +2                         #  I(1)IN
005301,003888: 
005302,003889: 
005303,003890:                                                                                                 #            P30'S-P17 COMMON STORAGE.                                      (24D)
005304,003891: 
005305,003892: E7,1426  E7,1537               RACT3             EQUALS   GRP2SVQ    +1                         #  I(6)TMP POSITION OF ACTIE AT TPI TIME.
005306,003893: E7,1426  E7,1545               VACT3             EQUALS   RACT3      +6                         #  I(6)TMP VELOCITY OF ACTIVE AT TPI TIME.
005307,003894: E7,1426  E7,1553               RPASS3            EQUALS   VACT3      +6                         #  I(6)TMP POSITION OF PASSIVE AT TPI TIME.
005308,003895: E7,1426  E7,1561               VPASS3            EQUALS   RPASS3     +6                         #  I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.
005309,003896: 
005310,003897: 
005311,003898:                                                                                                 #            P76, N84 DISPLAY                                               (6D)
005312,003899: 
005313,003900: E7,1426  E7,1537               DELVOV            EQUALS   RACT3                                 #  I(6)DSP NOUN 84 FOR X-V84, P34-35
005314,003901: 
005315,003902: 
005316,003903:                                                                                                 #            INITVEL/MIDGIM STORAGE.                                        (34D)
005317,003904:                                                                                                 #                   (CALLED BY S34.1,2, S35.1,2, AND S40.9)
005318,003905:                                                                                                 #                   (CALLS LAMBERT, CONIC SUBROUTINES)
005319,003906: 
005320,003907: E7,1426  E7,1567               RINIT             EQUALS   VPASS3     +6                         #  I(6)IN  ACTIVE VEHICLE RADIUS VECTOR
005321,003908: E7,1426  E7,1575               VINIT             EQUALS   RINIT      +6                         #  I(6)IN  ACTIVE VEHICLE VELOCITY VECTOR
005322,003909: E7,1426  E7,1603               RTARG1            EQUALS   VINIT      +6                         #  I(6)TMP SHIFTED RTARG
005323,003910: E7,1426  E7,1611               VIPRIME           EQUALS   RTARG1     +6                         #  I(6)OUT   NEW VEL REQ AT INITIAL RADIUS
005324,003911: E7,1426  E7,1617               VTPRIME           EQUALS   VIPRIME    +6                         #  I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS
005325,003912: E7,1426  E7,1625               +MGA              EQUALS   VTPRIME    +6                         #  I(2)DSP NOUN 45 FOR P30,34,35. +MID GIM.
005326,003913: E7,1426  E7,1627               COZY4             EQUALS   +MGA       +2                         #  I(2)TMP COSINE OF ANGLE WHEN ROT STARTS
005327,003914: 
005328,003915:                                                                                                 #  (THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CAN NOT SHARE WITH TPI
005329,003916: 
005330,003917:                                                                                                 # # Page 120
005331,003918: E7,1426  E7,1502               INTIME            EQUALS   AXISCODE   +3                         
005332,003919: E7,1426  E7,1504               ITCTR             EQUALS   INTIME     +2                         #  I(1) TMP ITERATION COUNTER
005333,003920: E7,1426  E7,1631               END-IN/M          EQUALS   COZY4      +2                         #  **NEXT AVAIL LOC AFTER INITVEL/MIDGIM**
005334,003921: 
005335,003922:                                                                                                 #            P34 AND P33 STORAGE.   (OVERLAYS INITVEL/MIDGIM)               (24D)
005336,003923: 
005337,003924: E7,1426  E7,1567               VAPREC            EQUALS   RINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005338,003925: E7,1426  E7,1575               RAPREC            EQUALS   VINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005339,003926: E7,1426  E7,1611               VPPREC            EQUALS   VIPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005340,003927: E7,1426  E7,1617               RPPREC            EQUALS   VTPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005341,003928: 
005342,003929:                                                                                                 #            P30, P40 INTERFACE.                                            (20D)
005343,003930: 
005344,003931: E7,1426  E7,1631               RTIG              EQUALS   END-IN/M                              #  I(6)TMP
005345,003932: E7,1426  E7,1637               VTIG              EQUALS   RTIG       +6                         #  I(6)TMP
005346,003933: E7,1426  E7,1645               DELVSIN           EQUALS   VTIG       +6                         #  I(6)TMP
005347,003934: E7,1426  E7,1645               DELVEET3          EQUALS   DELVSIN                               #       TMP DELTA VEL VECT INERTIAL COORDS.
005348,003935: E7,1426  E7,1645               VGTEMP            EQUALS   DELVEET3                              
005349,003936: E7,1426  E7,1653               DELVSAB           EQUALS   DELVSIN    +6                         #  I(2)TMP
005350,003937: E7,1426  E7,1653               VGDISP            =        DELVSAB                               #      DSP NOUN 40,42,99FOR P30,34,35,40,41
005351,003938: 
005352,003939:                                                                                                 #            P35-P40 INTERFACE STORAGE. (OVERLAYS P30-P40 I/F STORAGE)      (12D)
005353,003940: 
005354,003941: E7,1426  E7,1631               RPASS4            EQUALS   RTIG                                  #  I(6)TMP POSITION OF PASSIVE AT INTERCEPT
005355,003942: E7,1426  E7,1637               VPASS4            EQUALS   RPASS4     +6                         #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
005356,003943: 
005357,003944: 
005358,003945:                                                                                                 #            TPI SEARCH (P17)                                               (6D)
005359,003946: 
005360,003947: E7,1426  E7,1645               E2                EQUALS   VPASS4     +6                         #  I(6)TMP
005361,003948: 
005362,003949: 
005363,003950: 
005364,003951:                                                                                                 #            P30-P40 COMMON STORAGE.                                        (3D)
005365,003952: 
005366,003953: E7,1426  E7,1655               TPASS4            EQUALS   DELVSAB    +2                         #  I(2)TMP
005367,003954: E7,1426  E7,1655               TINT              =        TPASS4                                #  I(2)
005368,003955: E7,1426  E7,1657               QTEMP             EQUALS   TPASS4     +2                         #  I(1)TMP
005369,003956: 
005370,003957: 
005371,003958: 
005372,003959:                                                                                                 #            P30-P40 STORAGE.                                               (4D)
005373,003960: 
005374,003961: E7,1426  E7,1660               TTOGO             EQUALS   QTEMP      +1                         #  B(2)DSP NOUN 35,40,45,59,99
005375,003962:                                                                                                 #           FOR P30,34,35,40,41,47,  R30.
005376,003963: E7,1426  E7,1662               TTPI              EQUALS   TTOGO      +2                         #  B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS.
005377,003964:                                                                                                 # # Page 121
005378,003965: E7,1426  E7,1664               END-P30S          EQUALS   TTPI       +2                         #  **NEXT AVAIL LOC AFTER P30-40 STORAGE.**
005379,003966: 
005380,003967: 
005381,003968:                                                                                                 #            P40 STORAGE.                                                   (8D)
005382,003969: 
005383,003970: E7,1426  E7,1664               VGBODY            EQUALS   END-P30S                              #  B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR
005384,003971: E7,1426  E7,1664               DELVCTL           =        VGBODY                                
005385,003972: E7,1426  E7,1672               P40TMP            EQUALS   VGBODY     +6                         #  B(2)TMP
005386,003973: 
005387,003974: 
005388,003975:                                                                                                 #            P47 STORAGE.
005389,003976: 
005390,003977: E7,1426  E7,1457               DV47TEMP          EQUALS   VG                                    
005391,003978: E7,1426  E7,1674               DELVIMU           EQUALS   P40TMP     +2                         #  I(6)  DSP  NOUN 83 FOR P47 DELTAV(IMU)
005392,003979: 
005393,003980: 
005394,003981: 
005395,003982:                                                                                                 #            S40.1 STORAGE.                                                 (23D)
005396,003983: 
005397,003984: E7,1426  E7,1702               CSTEER            EQUALS   DELVIMU    +6                         #  I(2)IN
005398,003985: E7,1426  E7,1704               BDT               EQUALS   CSTEER     +2                         #  I(6)IN
005399,003986: E7,1426  E7,1712               UT                EQUALS   BDT        +6                         #  I(6)OUT THRUST DIRECTION
005400,003987: E7,1426  E7,1720               VGTIG             EQUALS   UT         +6                         #  I(6)OUT
005401,003988: E7,1426  E7,1720               VGPREV            =        VGTIG                                 
005402,003989: E7,1426  E7,1726               F                 EQUALS   VGTIG      +6                         #  I(2)OUT S40.3 NEEDS THIS
005403,003990: 
005404,003991: E7,1426  E7,1730               QTEMP1            EQUALS   F          +2                         #  I(1)TMP HOLDS RETURN
005405,003992: 
005406,003993:                                                                                                 # # Page 122
005407,003994: 
005408,003995:                                                                                                 #            *-*-*-*-  OVERLAY 4 IN EBANK 7 -*-*-*-*
005409,003996: 
005410,003997:                                                                                                 #            S35.1 STORAGE.                                                 (2D)
005411,003998: 
005412,003999: E7,1426  E7,1664               TSTRT             EQUALS   END-P30S                              #  I(2)IN  MIDCOURSE START TIME
005413,004000: 
005414,004001: 
005415,004002:                                                                                                 #            S34.1 STORAGE.          (OVERLAYS S35.1 STORAGE)               (1D)
005416,004003: 
005417,004004: E7,1426  E7,1664               TITER             EQUALS   TSTRT                                 #  I(1)TMP ITERATION COUNTER
005418,004005: 
005419,004006: 
005420,004007:                                                                                                 #            (P30-31 Q-SAVES)                                               (1)
005421,004008: 
005422,004009: E7,1426  E7,1664               P30/31RT          EQUALS   TITER                                 #  B(1)  RETURN POINT
005423,004010: 
005424,004011: 
005425,004012: 
005426,004013:                                                                                                 #            P20'S(COLOSSUS) STORAGE.                                       (6D)
005427,004014: 
005428,004015: E7,1426  E7,1666               S22WUNL           EQUALS   TSTRT      +2                         #  1      WUNL W8 UNKNOWN INIT VALUE
005429,004016: E7,1426  E7,1667               S22TOFF           EQUALS   S22WUNL    +1                         #  2    T SUB OFF
005430,004017: E7,1426  E7,1671               S22TPRIM          EQUALS   S22TOFF    +2                         #  2      SAVE TF
005431,004018: E7,1426  E7,1673               S22EORM           EQUALS   S22TPRIM   +2                         #  0 = EARTH -- NON-ZERO = MOON
005432,004019: 
005433,004020: 
005434,004021: 
005435,004022:                                                                                                 #            DOWNLINK ERASABLES FOR P22,P20 MARK DATA.                      (8D)
005436,004023: 
005437,004024: E7,1426  E7,1674               MARKDOWN          EQUALS   S22EORM    +1                         #  B(1)
005438,004025: E7,1426  E7,1703               RM                EQUALS   S22RTNEX                              #  DOWNLINK OF VHF RANGE
005439,004026: 
005440,004027: 
005441,004028: 
005442,004029:                                                                                                 #            S22.1                                                          (1D)
005443,004030: 
005444,004031: E7,1426  E7,1703               S22RTNEX          EQUALS   MARKDOWN   +7                         #  B(1)
005445,004032: 
005446,004033: 
005447,004034: 
005448,004035:                                                                                                 #            CRS61.1 STORAGE.          -A SUBSET OF P20-                    (14D)
005449,004036: 
005450,004037: E7,1426  E7,1704               Q611              EQUALS   RM         +1                         #  I(1) TMP QSAVE
005451,004038: E7,1426  E7,1705               Q6111             EQUALS   Q611       +1                         #  I(1)TMP QSAVE
005452,004039: E7,1426  E7,1706               SAVEPOS           EQUALS   Q6111      +1                         #  I(6)TMP LEM POSITION VECTOR-
005453,004040: E7,1426  E7,1714               SAVEVEL           EQUALS   SAVEPOS    +6                         #  I(6)TMP LEM VELOCITY VECTOR-
005454,004041: 
005455,004042: 
005456,004043:                                                                                                 #            ATTITUDE MANEUVER -CALLED BY P20,R61,R63,CRS61.1               (3D)
005457,004044: 
005458,004045:                                                                                                 # # Page 123
005459,004046: E7,1426  E7,1722               PRAXIS            EQUALS   SAVEVEL    +6                         #  B(3) S-S DISP RES FOR PREF AXIS N95
005460,004047: 
005461,004048: 
005462,004049:                                                                                                 #            MARK ROUTINE (R21) STORAGE.         -IS SUBSET OF R22-         (14D)
005463,004050: 
005464,004051: E7,1426  E7,1725               MRKBUF1           EQUALS   PRAXIS     +3                         #  B(7)TMP R21 MARK BUFFER
005465,004052: E7,1426  E7,1734               MRKBUF2           EQUALS   MRKBUF1    +7                         #  B(7)TMP R21 MARK BUFFER
005466,004053: 
005467,004054: 
005468,004055:                                                                                                 #            MORE CONICS STORAGE.                                           (4)
005469,004056: E7,1426                        COGA              EQUALS   3774                                  #  I(2) COTAN OF INITIAL FLIGHT  PATH ANGLE
005470,004057: E7,1426  0003774               INDEP             EQUALS   COGA                                  #  I(1) USED BY SUBROUTINE:ITERATOR:
005471,004058: E7,1426  0003776               EPSILONL          EQUALS   COGA       +2                         #  I(2) TMP
005472,004059: 
005473,004060: 
005474,004061:                                                                                                 #            RENDEZVOUS GUIDANCE STORAGE.  - P32...P35 -                    (10D)
005475,004062: 
005476,004063: E7,1426  E7,1743               ELEV              EQUALS   MRKBUF2    +7                         #  I(2)TMP
005477,004064: E7,1426  E7,1745               RTX1              EQUALS   ELEV       +2                         #   (1)
005478,004065: E7,1426  E7,1746               RTX2              EQUALS   RTX1       +1                         #   (1)
005479,004066: E7,1426  E7,1747               RTMU              EQUALS   RTX2       +1                         #   (1)
005480,004067: E7,1426  E7,1751               RTSR1/MU          EQUALS   RTMU       +2                         #   (2)
005481,004068: E7,1426  E7,1753               CENTANG           EQUALS   RTSR1/MU   +2                         #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
005482,004069: 
005483,004070: 
005484,004071: 
005485,004072:                                                                                                 #            TPI SEARCH (S17.1, S17.2) P17 STORAGE.                         (10D)
005486,004073: 
005487,004074: E7,1426  E7,1743               DELTEE            EQUALS   MRKBUF2    +7                         #  I(2)
005488,004075: E7,1426  E7,1745               XRS               EQUALS   DELTEE     +2                         #  I(2)
005489,004076: E7,1426  E7,1747               THETL             EQUALS   XRS        +2                         #  I(2)
005490,004077: E7,1426  E7,1751               TF                EQUALS   THETL      +2                         #  I(2)
005491,004078: E7,1426  E7,1753               DELHITE           EQUALS   TF         +2                         #   (2)
005492,004079: 
005493,004080:                                                                                                 # # Page 124
005494,004081: 
005495,004082:                                                                                                 #            *-*-*-*-  OVERLAY 5 IN EBANK 7 -*-*-*-*
005496,004083: 
005497,004084:                                                                                                 #            P17,P34                                                        (2D)
005498,004085: 
005499,004086: E7,1426  E7,1645               NN1               EQUALS   DELVEET3                              #  I(2) DSP NOUN 55,R1
005500,004087: 
005501,004088:                                                                                                 #   ************ THE FOLLOWING ARE FOR FLIGHT 504 ONLY *******************
005502,004089: 
005503,004090:                                                                                                 #            RETURN-TO-EARTH STORAGE.                                       (93D)
005504,004091: 
005505,004092: E7,1426  E7,1631               RTEDVD            EQUALS   END-IN/M                              #  I(2)IN  DELTA VELOCITY DESIRED  M/CS B7
005506,004093: E7,1426  E7,1633               RTEGAM2D          EQUALS   RTEDVD     +2                         #  I(2)IN  REENTRY ANGLE DESIRED    REVS B0
005507,004094: E7,1426  E7,1635               RCON              EQUALS   RTEGAM2D   +2                         #  I(2)TMP CONIC R2 RADIUS             M B29
005508,004095: E7,1426  E7,1637               R(T1)/            EQUALS   RCON       +2                         #  I(6)TMP POSITION VECTOR AT TIG M B29/B27
005509,004096: E7,1426  E7,1645               R(T1)             EQUALS   R(T1)/     +6                         #  I(2)TMP MAGNITUDE OF R(T1)/     M B29/B27
005510,004097: E7,1426  E7,1647               DT21PR            EQUALS   R(T1)      +2                         #  I(2) TMP PREVIOUS DT21   CS B30
005511,004098: E7,1426  E7,1651               MAMAX1            EQUALS   DT21PR     +2                         #  I(2) TMP MAJ AXIS LOW BOUND LMT    M B30
005512,004099: E7,1426  E7,1653               MAMAX2            EQUALS   MAMAX1     +2                         #  I(2) TMP MAJ AXIS UP BOUND LMT     M B30
005513,004100: E7,1426  E7,1655               R(T2)/            EQUALS   MAMAX2     +2                         #  I(6)TMP FINAL POSITION VECTOR   M B29/B27
005514,004101: E7,1426  E7,1663               RD                EQUALS   R(T2)/     +6                         #  I(2)TMP FINAL R DESIRED         M B29/B27
005515,004102: E7,1426  E7,1665               DRCON             EQUALS   RD         +2                         #  I(2)TMP RCON SLOPE ITERATOR     M B29/B27
005516,004103: E7,1426  E7,1667               RPRE,             EQUALS   DRCON      +2                         #  I(2)TMP PREVISOUS RPRE  M B29/B27
005517,004104: E7,1426  E7,1671               V(T1)/            EQUALS   RPRE,      +2                         #  I(6)TMP VEL VECTOR AT TIG      M/CS B7/B5
005518,004105: E7,1426  E7,1677               V2(T1)/           EQUALS   V(T1)/     +6                         #  I(6)TMP POST IMP VEL AT TIG    M/CS B7/B5
005519,004106: E7,1426  E7,1705               DV                EQUALS   V2(T1)/    +6                         #  I(2)TMP DELTA VELOCITY AT TIG  M/CS B7/B5
005520,004107: E7,1426  E7,1707               V(T2)/            EQUALS   DV         +2                         #  I(6)TMP FINAL VELOCITY VECTOR M/CS B7/B5
005521,004108: E7,1426  E7,1715               T1                EQUALS   V(T2)/     +6                         #  I(2)TMP INITIAL VECTOR TIME        CS B28
005522,004109: E7,1426  E7,1717               PCON              EQUALS   T1         +2                         #  I(2)TMP SEMI-LATUS RECTUM          M B29
005523,004110: E7,1426  E7,1721               X(T1)             EQUALS   PCON       +2                         #  I(2)TMP COTANGENT GAMMA1               B5
005524,004111: E7,1426  E7,1723               T12               EQUALS   X(T1)      +2                         #  I(2)TMP INIT TO FINL POSIT TIME   CS B28
005525,004112: E7,1426  E7,1725               DELTAT            EQUALS   T12        +2                         #  I(2) TMP DELTA T IN SAFE PERILUNE CS B28
005526,004113: E7,1426  E7,1727               NN1A              EQUALS   DELTAT     +2                         #  I(2) TMP ITERATION COUNTER 1
005527,004114: E7,1426  E7,1731               NN2               EQUALS   NN1A       +2                         #  I(2) TMP ITERATION COUNTER 2
005528,004115: E7,1426  E7,1733               RTENCKEX          EQUALS   NN2        +2                         #  I(1)TMP RTENCK RETURN ADDRESS
005529,004116: E7,1426  E7,1734               CONICX1           EQUALS   RTENCKEX   +1                         #  I(1)TMP CONICS MU TABLE INDEX
005530,004117: E7,1426  E7,1735               T2                EQUALS   CONICX1    +1                         #  I(2)TMP FINAL TIME                 CS B28
005531,004118: E7,1426  E7,1737               UR1/              EQUALS   T2         +2                         #  I(6)TMP UNIT R(T1)/                    B1
005532,004119: E7,1426  E7,1745               UV1/              EQUALS   UR1/       +6                         #  I(6)TMP UNIT V(T1)/                    B1
005533,004120: E7,1426  E7,1753               BETA1             EQUALS   UV1/       +6                         #  I(2)TMP 1+X(T2)**2                     B1
005534,004121: E7,1426  E7,1755               P(T1)             EQUALS   BETA1      +2                         #  I(1)TMP PRIMARY BODY STATE TIME 1    B14
005535,004122: E7,1426  E7,1756               CFPA              EQUALS   P(T1)      +1                         #  I(2) TMP COSINE FLIGHT PATH ANGLE   B1
005536,004123: E7,1426  E7,1760               PHI2              EQUALS   CFPA       +2                         #  I(2) TMP PERI OR APO INDICATOR       B2
005537,004124: E7,1426  E7,1762               SPRTEX            EQUALS   PHI2       +2                         #  I(1)TMP ROUTINE RETURN ADDRESS
005538,004125: 
005539,004126: 
005540,004127: E7,1426  E7,1763               VNSTORE           EQUALS   SPRTEX     +1                         #  I(1)TMP VERBNOUN STORAGE
005541,004128: E7,1426  E7,1764               BETA12            EQUALS   VNSTORE    +1                         #  I(2)TMP SIGN FOR TIMERAD
005542,004129:                                                                                                 #            OVERLAYS WITHIN RETURN-TO-EARTH STORAGE.
005543,004130: 
005544,004131: E7,1426                        RPRE              EQUALS   24D                                   #  I(2)TMP COMPUTED PREC RADIUS   M B29/B27
005545,004132:                                                                                                 # # Page 125
005546,004133: E7,1426                        P/RPRE            EQUALS   26D                                   #  I(2)TMP P/R                            B4
005547,004134: E7,1426                        R/APRE            EQUALS   28D                                   #  I(2)TMP R/A                            B6
005548,004135: E7,1426  E7,1723               X(T2)PRE          EQUALS   T12                                   #  I(2)TMP PREC COTAN GAMMA2              B0
005549,004136: E7,1426  E7,1725               X(T2)             EQUALS   DELTAT                                #  I(2)TMP COTAN GAMMA2                   B0
005550,004137: E7,1426  E7,1745               UH/               EQUALS   UV1/                                  #  I(2)TMP UNIT HORIZONTAL VECTOR.        B1
005551,004138: E7,1426  E7,1412               SPRTETIG          EQUALS   TIG                                   #  I(2)IN  TIME OF IGNITION           CS B28
005552,004139: E7,1426  E4,1721               RETLOCN           EQUALS   XR1HOLD    +1                         
005553,004140: 
005554,004141: 
005555,004142: 
005556,004143: E7,1426                        WHOCARES          =        3777                                  #  A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
005557,004144: 
005558,004145: 
005559,004146: E7,1426  0003777               END-E7            EQUALS   WHOCARES                              #  ****** LAST LOCATION IN E7

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