Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

001417,000002:                                                                                                  ## Copyright:   Public domain.
001418,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
001419,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
001420,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
001421,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
001422,000007:                                                                                                  ## Assembler:   yaYUL
001423,000008:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
001424,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001425,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
001426,000011:                                                                                                  ## Mod history: 2009-10-21 SN   Adapted from corresponding Colossus 249 file.
001427,000012:                                                                                                  ##              2011-01-22 JL   Minor fixes to whitespace and comments.
001428,000013:                                                                                                  ##              2011-04-27 JL   Fixed symbol name.
001429,000014:                                                                                                  ##              2016-12-29 RSB  Proofed comment text using octopus/ProoferComments,
001430,000015:                                                                                                  ##                              and corrected errors found.
001431,000016:                                                                                                  ##              2017-01-08 RSB  Fixed comment errors detected in cross-diff vs
001432,000017:                                                                                                  ##                              Colossus 249, but only through page 87 of Colossus
001433,000018:                                                                                                  ##                              249 -- page 86 of Colossus 237 -- so far.
001434,000019:                                                                                                  ##              2017-01-12 RSB  Completed the 3-way cross-proofing.
001435,000020:                                                                                                  ##              2017-01-22 RSB  Back-ported comment error fixes detected in diff'ing
001436,000021:                                                                                                  ##                              Artemis 72 vs Comanche 55.
001437,000022:                                                                                                  ##              2021-05-30 ABS  NORMSBIT -> NDRMSBIT
001438,000023:                                                                                                  ##                              GONBYBIT -> G0NBYBIT
001439,000024:                                                                                                  ##                              CGF -> OGF
001440,000025: 

Page 34

001442,000027: 
001443,000028:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001444,000029: 
001445,000030:                                                                                                  #           EQUALS IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
001446,000031:                                                                                                  #                  OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001447,000032:                                                                                                  #                  CHANGING OF ONLY ONE CARD.  EXAMPLE.
001448,000033: 
001449,000034:                                                                                                  #                                          X        EQUALS START
001450,000035:                                                                                                  #                                          Y        EQUALS X        +SIZE.X
001451,000036:                                                                                                  #                                          Z        EQUALS Y        +SIZE.Y
001452,000037: 
001453,000038:                                                                                                  #                  (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
001454,000039:                                                                                                  #                  (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001455,000040:                                                                                                  #                   USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC.                )
001456,000041: 
001457,000042:                                                                                                  #           EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001458,000043:                                                                                                  #                  AND DIFFERENT DATA). EXAMPLE.
001459,000044: 
001460,000045:                                                                                                  #                                          X        EQUALS Y
001461,000046: 
001462,000047:                                                                                                  #           = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001463,000048:                                                                                                  #                  (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
001464,000049: 
001465,000050:                                                                                                  #                                          X        =      Y
001466,000051: 
001467,000052:                                                                                                  #           THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001468,000053:                                                                                                  #           THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
001469,000054: 
001470,000055:                                                                                                  #                  M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001471,000056:                                                                                                  #                       B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001472,000057:                                                                                                  #                           INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001473,000058:                                                                                                  #                       I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001474,000059:                                                                                                  #                           INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001475,000060:                                                                                                  #                           INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001476,000061: 
001477,000062:                                                                                                  #                  SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001478,000063: 
001479,000064:                                                                                                  #                  N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001480,000065:                                                                                                  #                       PL MEANS THAT THE CONTENTS ARE PAD LOADED.
001481,000066:                                                                                                  #                       DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001482,000067:                                                                                                  #                       PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001483,000068:                                                                                                  #                           IS USED DURING THE ENTIRE MISSION FOR ONE
001484,000069:                                                                                                  #                           PURPOSE AND CANNOT BE SHARED.
001485,000070:                                                                                                  #                       TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001486,000071:                                                                                                  #                           IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001487,000072:                                                                                                  #                           IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
001488,000073:                                                                                                  #                           PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001489,000074:                                                                                                  #                           CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS

Page 35

001491,000076:                                                                                                  #                           IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
001492,000077:                                                                                                  #                           IS NOT ACTIVE IN PARALLEL.
001493,000078:                                                                                                  #                       IN  MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001494,000079:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001495,000080:                                                                                                  #                       OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001496,000081:                                                                                                  #                           TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001497,000082: 

Page 36

001499,000084: 
001500,000085:                                                                                                  #           SPECIAL REGISTERS.
001501,000086: 
001502,000087: 37,2001                        A                  EQUALS   0                                     
001503,000088: 37,2001                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
001504,000089: 37,2001                        Q                  EQUALS   2                                     
001505,000090: 37,2001                        EBANK              EQUALS   3                                     
001506,000091: 37,2001                        FBANK              EQUALS   4                                     
001507,000092: 37,2001                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
001508,000093: 37,2001                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
001509,000094:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001510,000095: 
001511,000096: 37,2001                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
001512,000097: 37,2001                        LRUPT              EQUALS   11                                    
001513,000098: 37,2001                        QRUPT              EQUALS   12                                    
001514,000099: 37,2001                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
001515,000100: 37,2001                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
001516,000101: 37,2001                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
001517,000102: 37,2001                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
001518,000103: 
001519,000104: 37,2001                        CYR                EQUALS   20                                    
001520,000105: 37,2001                        SR                 EQUALS   21                                    
001521,000106: 37,2001                        CYL                EQUALS   22                                    
001522,000107: 37,2001                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
001523,000108: 
001524,000109: 37,2001                        TIME2              EQUALS   24                                    
001525,000110: 37,2001                        TIME1              EQUALS   25                                    
001526,000111: 37,2001                        TIME3              EQUALS   26                                    
001527,000112: 37,2001                        TIME4              EQUALS   27                                    
001528,000113: 37,2001                        TIME5              EQUALS   30                                    
001529,000114: 37,2001                        TIME6              EQUALS   31                                    
001530,000115: 37,2001                        CDUX               EQUALS   32                                    
001531,000116: 37,2001                        CDUY               EQUALS   33                                    
001532,000117: 37,2001                        CDUZ               EQUALS   34                                    
001533,000118: 37,2001                        CDUT               EQUALS   35                                    #  OPTICS TRUNNION CDU (WAS OPTY).
001534,000119: 37,2001  0000035               OPTY               =        CDUT                                  
001535,000120: 37,2001                        CDUS               EQUALS   36                                    #  OPTICS SHAFT CDU (WAS OPTX).
001536,000121: 37,2001  0000036               OPTX               =        CDUS                                  
001537,000122: 37,2001                        PIPAX              EQUALS   37                                    
001538,000123: 37,2001                        PIPAY              EQUALS   40                                    
001539,000124: 37,2001                        PIPAZ              EQUALS   41                                    
001540,000125: 37,2001                        BMAGX              EQUALS   42                                    
001541,000126: 37,2001                        BMAGY              EQUALS   43                                    
001542,000127: 37,2001                        BMAGZ              EQUALS   44                                    
001543,000128: 37,2001                        INLINK             EQUALS   45                                    
001544,000129: 37,2001                        RNRAD              EQUALS   46                                    
001545,000130: 37,2001                        GYROCTR            EQUALS   47                                    
001546,000131: 37,2001                        GYROCMD            EQUALS   47                                    
001547,000132: 37,2001                        CDUXCMD            EQUALS   50                                    
001548,000133: 37,2001                        CDUYCMD            EQUALS   51                                    

Page 37

001550,000135: 37,2001                        CDUZCMD            EQUALS   52                                    
001551,000136: 37,2001                        CDUTCMD            EQUALS   53                                    #  OPTICS TRUNNION COMMAND (WAS OPTYCMD).
001552,000137: 37,2001  0000053               OPTYCMD            =        CDUTCMD                               
001553,000138: 37,2001  0000053               TVCYAW             EQUALS   CDUTCMD                               #  SPS YAW COMMAND IN TVC MODE.
001554,000139: 37,2001                        CDUSCMD            EQUALS   54                                    #  OPTICS SHAFT COMMAND (WAS OPTXCMD).
001555,000140: 37,2001  0000054               TVCPITCH           EQUALS   CDUSCMD                               #  SPS PITCH COMMAND IN TVC MODE.
001556,000141: 37,2001  0000054               OPTXCMD            =        CDUSCMD                               
001557,000142: 37,2001                        EMSD               EQUALS   55                                    
001558,000143: 37,2001                        THRUST             EQUALS   55                                    
001559,000144: 37,2001                        LEMONM             EQUALS   56                                    
001560,000145: 37,2001                        OUTLINK            EQUALS   57                                    
001561,000146: 37,2001                        ALTM               EQUALS   60                                    
001562,000147: 
001563,000148: 
001564,000149:                                                                                                  #           INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001565,000150: 
001566,000151: 37,2001                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001567,000152: 37,2001                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
001568,000153: 37,2001                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
001569,000154: 37,2001                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
001570,000155: 37,2001                        S1                 EQUALS   40D                                   
001571,000156: 37,2001                        S2                 EQUALS   41D                                   
001572,000157: 37,2001                        QPRET              EQUALS   42D                                   
001573,000158: 

Page 38

001575,000160:                                                                                                  #  INPUT/OUTPUT CHANNELS
001576,000161: 
001577,000162:                                                                                                  #                                            *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001578,000163: 37,2001  0000001               LCHAN              EQUALS   L                                     
001579,000164: 37,2001  0000002               QCHAN              EQUALS   Q                                     
001580,000165: 37,2001                        HISCALAR           EQUALS   3                                     
001581,000166: 37,2001                        LOSCALAR           EQUALS   4                                     
001582,000167: 37,2001                        PYJETS             EQUALS   5                                     
001583,000168: 37,2001                        ROLLJETS           EQUALS   6                                     
001584,000169: 37,2001                        SUPERBNK           EQUALS   7                                     
001585,000170: 37,2001                        OUT0               EQUALS   10                                    
001586,000171: 37,2001                        DSALMOUT           EQUALS   11                                    
001587,000172: 37,2001                        CHAN12             EQUALS   12                                    
001588,000173: 37,2001                        CHAN13             EQUALS   13                                    
001589,000174: 37,2001                        CHAN14             EQUALS   14                                    
001590,000175: 37,2001                        MNKEYIN            EQUALS   15                                    
001591,000176: 37,2001                        NAVKEYIN           EQUALS   16                                    
001592,000177: 37,2001                        CHAN30             EQUALS   30                                    
001593,000178: 37,2001                        CHAN31             EQUALS   31                                    
001594,000179: 37,2001                        CHAN32             EQUALS   32                                    
001595,000180: 37,2001                        CHAN33             EQUALS   33                                    
001596,000181: 37,2001                        DNTM1              EQUALS   34                                    
001597,000182: 37,2001                        DNTM2              EQUALS   35                                    
001598,000183:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
001599,000184: 

Page 39

001601,000186: 
001602,000187:                                                                                                  #           FLAGWORDS
001603,000188: 
001604,000189: 
001605,000190:                                                                                                  #  FLAGWRD0      STATE +0        (000-014)
001606,000191:                                                                                                  #  FLAGWRD1      STATE +1        (015-029)
001607,000192:                                                                                                  #  FLAGWRD2      STATE +2        (030-044)
001608,000193:                                                                                                  #  FLAGWRD3      STATE +3        (045-059)
001609,000194:                                                                                                  #  FLAGWRD4      STATE +4        (060-074)
001610,000195:                                                                                                  #  FLAGWRD5      STATE +5        (075-089)
001611,000196:                                                                                                  #  FLAGWRD6      STATE +6        (090-104)
001612,000197:                                                                                                  #  FLAGWRD7      STATE +7        (105-119)
001613,000198:                                                                                                  #  FLAGWRD8      STATE +8D       (120-134)
001614,000199:                                                                                                  #  FLAGWRD9      STATE +9D       (135-149)
001615,000200: 
001616,000201: 
001617,000202:                                                                                                  #           SORTED LIST OF
001618,000203: 
001619,000204:                                                                                                  #           INTERPITIVE SWITCH BIT ASSIGNMENTS
001620,000205: 
001621,000206:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001622,000207:                                                                                                  #  FLAGWORD      DEC NUM           BIT + FLAG         EQUIVALENT FLAGWORDS
001623,000208: 
001624,000209:                                                                                                  #  22DSPFLG      032D              BIT 13 FLAG 2
001625,000210:                                                                                                  #  360SW         134D              BIT 1 FLAG 8
001626,000211:                                                                                                  #  3AXISFLG      084D              BIT 6 FLAG 5
001627,000212:                                                                                                  #  ADVTRK        125D              BIT 10 FLAG 8
001628,000213:                                                                                                  #  APSESW        130D              BIT 5 FLAG 8
001629,000214:                                                                                                  #  ASTNFLAG      108D              BIT 12 FLAG 7
001630,000215:                                                                                                  #  ATTCHFLG      118D              BIT 2 FLAG 7
001631,000216:                                                                                                  #  AVEGFLAG      029D              BIT 1 FLAG 1
001632,000217:                                                                                                  #  AVEMIDSW      149D              BIT 1 FLAG 9
001633,000218:                                                                                                  #  AVFLAG        040D              BIT 5 FLAG 2
001634,000219:                                                                                                  #  CALCMAN2      043D              BIT 2 FLAG 2
001635,000220:                                                                                                  #  CALCMAN3      042D              BIT 3 FLAG 2
001636,000221:                                                                                                  #  CMDAPARM      093D              BIT 12 FLAG 6
001637,000222:                                                                                                  #  CMOONFLG      123D              BIT 12 FLAG 8
001638,000223:                                                                                                  #  CM/DSTBY      103D              BIT 2 FLAG 6
001639,000224:                                                                                                  #  COGAFLAG      131D              BIT 4 FLAG 8
001640,000225:                                                                                                  #  COMPUTER      082D              BIT 8 FLAG 5
001641,000226:                                                                                                  #  CPHIFLAG      000D              BIT 15 FLAG 0
001642,000227:                                                                                                  #  CULTFLAG      053D              BIT 7 FLAG 3
001643,000228:                                                                                                  #  CYCLESW       035D              BIT 10 FLAG 2
001644,000229:                                                                                                  #  D6OR9FLG      058D              BIT 2 FLAG 3
001645,000230:                                                                                                  #  DAPBIT1       090D              BIT 15 FLAG 6
001646,000231:                                                                                                  #  DAPBIT2       091D              BIT 14 FLAG 6
001647,000232:                                                                                                  #  DIM0FLAG      059D              BIT 1 FLAG 3
001648,000233:                                                                                                  #  DMENFLG       081D              BIT 9 FLAG 5
001649,000234:                                                                                                  #  DRIFTFLG      030D              BIT 15 FLAG 2
001650,000235:                                                                                                  #  DSKYFLAG      075D              BIT 15 FLAG 5

Page 40

001652,000237:                                                                                                  #  EGSW          97D               BIT 8 FLAG 6        KNOWNFLG  R57FLAG
001653,000238:                                                                                                  #  ENG1FLAG      018D              BIT 12 FLAG 1
001654,000239:                                                                                                  #  ENG2FLAG      019D              BIT 11 FLAG 1
001655,000240:                                                                                                  #  ENGONFLG      083D              BIT 7 FLAG 5
001656,000241:                                                                                                  #  ERADFLAG      017D              BIT 13 FLAG 1
001657,000242:                                                                                                  #  ETPIFLAG      038D              BIT 7 FLAG 2        FIRSTFLG   OPTNSW
001658,000243:                                                                                                  #  F2RTE         10D               BIT 5  FLAG 0
001659,000244:                                                                                                  #  FINALFLG      039D              BIT 6 FLAG 2
001660,000245:                                                                                                  #  FIRSTFLG      38D               BIT 7  FLAG 2       ETPIFLAG   OPTNSW
001661,000246:                                                                                                  #  FREEFLAG      012D              BIT 3 FLAG 0
001662,000247:                                                                                                  #  GAMDIFSW      094D              BIT 11 FLAG 6
001663,000248:                                                                                                  #  GLOKFAIL      046D              BIT 14 FLAG 3
001664,000249:                                                                                                  #  GMBDRVSW      095D              BIT 10 FLAG 6      GONEPAST
001665,000250:                                                                                                  #  GONEBY        112D              BIT 8 FLAG 7
001666,000251:                                                                                                  #  GONEPAST      095D              BIT 10 FLAG 6      GMBDRVSW
001667,000252:                                                                                                  #  GRRBKFLG      085D              BIT 5 FLAG 5
001668,000253:                                                                                                  #  GUESSW        028D              BIT 2 FLAG 1
001669,000254:                                                                                                  #  GYMDIFSW      104D              BIT 1 FLAG 6
001670,000255:                                                                                                  #  .05GSW        102D              BIT 3 FLAG 6
001671,000256:                                                                                                  #  HIND          099D              BIT 6 FLAG 6
001672,000257:                                                                                                  #  IDLEFAIL      024D              BIT 6 FLAG 1
001673,000258:                                                                                                  #  IDLEFLAG      113D              BIT 7 FLAG 7
001674,000259:                                                                                                  #  IGNFLAG       107D              BIT 13 FLAG 7
001675,000260:                                                                                                  #  IMPULSW       036D              BIT 9 FLAG 2
001676,000261:                                                                                                  #  IMUSE         007D              BIT 8 FLAG 0
001677,000262:                                                                                                  #  INCORFLG      079D              BIT 11 FLAG 5
001678,000263:                                                                                                  #  INFINFLG      128D              BIT 7 FLAG 8
001679,000264:                                                                                                  #  INRLSW        100D              BIT 5 FLAG 6
001680,000265:                                                                                                  #  INTFLAG       151D              BIT 14 FLAG 10
001681,000266:                                                                                                  #  INTYPFLG      056D              BIT 4 FLAG 3
001682,000267:                                                                                                  #  ITSWICH       106D              BIT 14 FLAG 7
001683,000268:                                                                                                  #  KFLAG         014D              BIT 1 FLAG 0
001684,000269:                                                                                                  #  KNOWNFLG      097D              BIT 8  FLAG 6      EGSW  R57FLAG
001685,000270:                                                                                                  #  LATSW         101D              BIT 4 FLAG 6
001686,000271:                                                                                                  #  LMOONFLG      124D              BIT 11 FLAG 8
001687,000272:                                                                                                  #  LUNAFLAG      048D              BIT 12 FLAG 3
001688,000273:                                                                                                  #  MAXDBFLG      138D              BIT 12 FLAG 9
001689,000274:                                                                                                  #  MGLVFLAG      088D              BIT 2 FLAG 5
001690,000275:                                                                                                  #  MID1FLAG      147D              BIT 3 FLAG 9
001691,000276:                                                                                                  #  MIDAVFLG      148D              BIT 2 FLAG 9
001692,000277:                                                                                                  #  MIDFLAG       002D              BIT 13 FLAG 0
001693,000278:                                                                                                  #  MKOVFLAG      072D              BIT 3 FLAG 4
001694,000279:                                                                                                  #  MOONFLAG      003D              BIT 12 FLAG 0
001695,000280:                                                                                                  #  MRKIDFLG      060D              BIT 15 FLAG 4
001696,000281:                                                                                                  #  MRKNVFLG      066D              BIT 9 FLAG 4
001697,000282:                                                                                                  #  MRUPTFLG      070D              BIT 5 FLAG 4
001698,000283:                                                                                                  #  MWAITFLG      064D              BIT 11 FLAG 4
001699,000284:                                                                                                  #  N22ORN17      144D              BIT 6 FLAG 9
001700,000285:                                                                                                  #  NEEDLFLG      006D              BIT 9 FLAG 0
001701,000286:                                                                                                  #  NEWIFLG       122D              BIT 13 FLAG 8

Page 41

001703,000288:                                                                                                  #  NJETSFLG      015D              BIT 15 FLAG 1
001704,000289:                                                                                                  #  NODOFLAG      044D              BIT 1 FLAG 2
001705,000290:                                                                                                  #  NORFHOR       004D              BIT 11 FLAG 0
001706,000291:                                                                                                  #  NORMSW        110D              BIT 10 FLAG 7
001707,000292:                                                                                                  #  NOSWITCH      098D              BIT 7 FLAG 6
001708,000293:                                                                                                  #  NRMIDFLG      062D              BIT 13 FLAG 4
001709,000294:                                                                                                  #  NRMNVFLG      067D              BIT 8 FLAG 4
001710,000295:                                                                                                  #  NRUPTFLG      071D              BIT 4 FLAG 4
001711,000296:                                                                                                  #  NTARGFLG      102D              BIT 3 FLAG 6
001712,000297:                                                                                                  #  NWAITFLG      065D              BIT 10 FLAG 4
001713,000298:                                                                                                  #  OPTNSW        038D              BIT 7  FLAG 2      ETPIFLAG  FIRSTFLG
001714,000299:                                                                                                  #  ORBWFLAG      054D              BIT 6  FLAG 3
001715,000300:                                                                                                  #  ORDERSW       129D              BIT 6 FLAG 8
001716,000301:                                                                                                  #  P22MKFLG      49D               BIT 11 FLAG 3
001717,000302:                                                                                                  #  P39/79SW      126D              BIT 9  FLAG 8
001718,000303:                                                                                                  #  PDSPFLAG      063D              BIT 12 FLAG 4
001719,000304:                                                                                                  #  PFRATFLG      041D              BIT 4 FLAG 2
001720,000305:                                                                                                  #  PINBRFLG      069D              BIT 6 FLAG 4
001721,000306:                                                                                                  #  PRECIFLG      052D              BIT 8 FLAG 3
001722,000307:                                                                                                  #  PRFTRKAT      080D              BIT 10 FLAG 5
001723,000308:                                                                                                  #  PRIODFLG      061D              BIT 14 FLAG 4
001724,000309:                                                                                                  #  PRONVFLG      068D              BIT 7 FLAG 4
001725,000310:                                                                                                  #  QUITFLAG      145D              BIT 5 FLAG 9
001726,000311:                                                                                                  #  R21MARK       031D              BIT 14 FLAG 2
001727,000312:                                                                                                  #  R22CAFLG      143D              BIT 7 FLAG 9
001728,000313:                                                                                                  #  R23FLG        021D              BIT 9 FLAG 1
001729,000314:                                                                                                  #  R31FLAG       146D              BIT 4 FLAG 9
001730,000315:                                                                                                  #  R53FLAG       009D              BIT 6 FLAG 0
001731,000316:                                                                                                  #  R57FLAG       097D              BIT 8 FLAG 6       KNOWNFLG  EGSW
001732,000317:                                                                                                  #  R60FLAG       086D              BIT 4 FLAG 5
001733,000318:                                                                                                  #  REFSMFLG      047D              BIT 13 FLAG 3
001734,000319:                                                                                                  #  REINTFLG      158D              BIT 7 FLAG 10
001735,000320:                                                                                                  #  RELVELSW      096D              BIT 9 FLAG 6
001736,000321:                                                                                                  #  RENDWFLG      089D              BIT 1 FLAG 5
001737,000322:                                                                                                  #  RNDVZFLG      008D              BIT 7 FLAG 0
001738,000323:                                                                                                  #  RPQFLAG       120D              BIT 15 FLAG 8
001739,000324:                                                                                                  #  RVSW          111D              BIT 9 FLAG 7
001740,000325:                                                                                                  #  SAVECFLG      140D              BIT 10 FLAG 9
001741,000326:                                                                                                  #  SLOPESW       027D              BIT 3 FLAG 1
001742,000327:                                                                                                  #  SOLNSW        087D              BIT 3 FLAG 5
001743,000328:                                                                                                  #  SOURCFLG      142D              BIT 8 FLAG 9
001744,000329:                                                                                                  #  STATEFLG      055D              BIT 5 FLAG 3
001745,000330:                                                                                                  #  STEERSW       034D              BIT 11 FLAG 2
001746,000331:                                                                                                  #  STIKFLAG      016D              BIT 14 FLAG 1
001747,000332:                                                                                                  #  STRULLSW      92D               BIT 13 FLAG 6
001748,000333:                                                                                                  #  SURFFLAG      127D              BIT 8 FLAG 8
001749,000334:                                                                                                  #  SWTOVER       135D              BIT 15 FLAG 9
001750,000335:                                                                                                  #  TARG1FLG      020D              BIT 10 FLAG 1
001751,000336:                                                                                                  #  TARG2FLG      021D              BIT 9 FLAG 1
001752,000337:                                                                                                  #  TERMIFLG      105D              BIT 15 FLAG 7

Page 42

001754,000339:                                                                                                  #  TFFSW         119D              BIT 1 FLAG 7
001755,000340:                                                                                                  #  TIMRFLAG      109D              BIT 11 FLAG 7
001756,000341:                                                                                                  #  TRACKFLG      025D              BIT 5 FLAG 1
001757,000342:                                                                                                  #  TRM03FLG      26D               BIT 4  FLAG 1
001758,000343:                                                                                                  #  TRUNFLAG      011D              BIT 4 FLAG 0
001759,000344:                                                                                                  #  UPDATFLG      023D              BIT 7 FLAG 1
001760,000345:                                                                                                  #  UPLOCKFL      116D              BIT 4 FLAG 7
001761,000346:                                                                                                  #  V37FLAG       114D              BIT 6 FLAG 7
001762,000347:                                                                                                  #  V59FLAG       078D              BIT 12 FLAG 5
001763,000348:                                                                                                  #  V67FLAG       136D              BIT 14 FLAG 9
001764,000349:                                                                                                  #  V82EMFLG      137D              BIT 13 FLAG 9
001765,000350:                                                                                                  #  V94FLAG       139D              BIT 11 FLAG 9
001766,000351:                                                                                                  #  VEHUPFLG      022D              BIT 8 FLAG 1
001767,000352:                                                                                                  #  VERIFLAG      117D              BIT 3 FLAG 7
001768,000353:                                                                                                  #  VFLAG         050D              BIT 10 FLAG 3
001769,000354:                                                                                                  #  VHFRFLAG      141D              BIT 9 FLAG 9
001770,000355:                                                                                                  #  VINTFLAG      057D              BIT 3 FLAG 3
001771,000356:                                                                                                  #  XDELVFLG      037D              BIT 8 FLAG 2
001772,000357:                                                                                                  #  XDSPFLAG      074D              BIT 1 FLAG 4
001773,000358: 

Page 43

001775,000360: 
001776,000361:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001777,000362: 37,2001     0074               FLAGWRD0           =        STATE      +0                         #  (000-014)
001778,000363: 
001779,000364:                                                                                                  #  (SET)               (RESET)
001780,000365: 
001781,000366:                                                                                                  #                        BIT 15 FLAG 0
001782,000367: 37,2001                        CPHIFLAG           =        000D                                  #  OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS
001783,000368:                                                                                                  #  CPHIX               THETAD
001784,000369: 
001785,000370: 37,2001     4674               CPHIBIT            =        BIT15                                 
001786,000371: 
001787,000372:                                                                                                  #                        BIT 14 FLAG 0
001788,000373: 37,2001                        JSWITCH            =        001D                                  #  INTEGRATION OF W    INTEGRATION OF STATE
001789,000374:                                                                                                  #  MATRIX              VECTOR
001790,000375: 
001791,000376: 37,2001     4675               JSWCHBIT           =        BIT14                                 
001792,000377: 
001793,000378:                                                                                                  #                        BIT 13 FLAG 0
001794,000379: 37,2001                        MIDFLAG            =        002D                                  #  INTEGRATION WITH    INTEGRATION WITHOUT
001795,000380:                                                                                                  #  SOLAR PERTURBATIONS SOLAR PERTURBATIONS
001796,000381: 
001797,000382: 37,2001     4676               MIDFLBIT           =        BIT13                                 
001798,000383: 
001799,000384:                                                                                                  #                        BIT 12 FLAG 0
001800,000385: 37,2001                        MOONFLAG           =        003D                                  #  MOON IS SPHERE OF   EARTH IS SPHERE OF
001801,000386:                                                                                                  #  INFLUENCE           INFLUENCE
001802,000387: 
001803,000388: 37,2001     4677               MOONBIT            =        BIT12                                 
001804,000389: 
001805,000390:                                                                                                  #                        BIT 11 FLAG 0
001806,000391: 37,2001                        NORFHOR            =        004D                                  #  FAR HORIZON         NEAR HORIZON
001807,000392: 
001808,000393: 
001809,000394: 37,2001     4700               NORFBIT            =        BIT11                                 
001810,000395: 
001811,000396:                                                                                                  #                        BIT 10 FLAG 0
001812,000397: 37,2001                        ZMEASURE           =        005D                                  #  MEASUREMENT PLANET  MEASUREMENT PLANET
001813,000398:                                                                                                  #  AND PRIMARY PLANET  AND PRIMARY PLANET
001814,000399:                                                                                                  #  DIFFERENT           SAME
001815,000400: 
001816,000401: 37,2001     4701               ZMEASBIT           =        BIT10                                 
001817,000402: 
001818,000403:                                                                                                  #                        BIT 9 FLAG 0
001819,000404: 37,2001                        NEEDLFLG           =        006D                                  #  TOTAL ATTIDUDE      A/P FOLLOWING ERROR
001820,000405:                                                                                                  #  ERROR DISPLAYED     DISPLAYED
001821,000406: 
001822,000407: 37,2001     4702               NEEDLBIT           =        BIT9                                  
001823,000408: 
001824,000409:                                                                                                  #                        BIT 8 FLAG 0
001825,000410: 37,2001                        IMUSE              =        007D                                  #  IMU IN USE          IMU NOT IN USE
001826,000411: 

Page 44

001828,000413: 37,2001     4703               IMUSEBIT           =        BIT8                                  
001829,000414: 
001830,000415:                                                                                                  #                        BIT 7 FLAG 0
001831,000416: 37,2001                        RNDVZFLG           =        008D                                  #  P20 RUNNING         P20 NOT RUNNING
001832,000417: 37,2001     4704               RNDVZBIT           =        BIT7                                  
001833,000418: 
001834,000419:                                                                                                  #                        BIT 6 FLAG 0
001835,000420: 37,2001                        R53FLAG            =        009D                                  #  V51 INITIATED       V51 NOT INITIATED
001836,000421: 
001837,000422: 
001838,000423: 37,2001     4705               R53FLBIT           =        BIT6                                  
001839,000424: 
001840,000425:                                                                                                  #                        BIT 5 FLAG 0
001841,000426: 37,2001                        F2RTE              =        010D                                  #  IN TIME CRITICAL    NOT IN TIME CRITICAL
001842,000427:                                                                                                  #  MODE                MODE
001843,000428: 
001844,000429: 37,2001     4706               F2RTEBIT           =        BIT5                                  
001845,000430: 
001846,000431:                                                                                                  #                        BIT 4 FLAG 0
001847,000432: 37,2001                        TRUNFLAG           =        011D                                  #  DRIVING OF TRUNNION DRIVING OF TRUNNION
001848,000433:                                                                                                  #  ALLOWED             NOT ALLOWED
001849,000434: 
001850,000435: 37,2001     4707               TRUNBIT            =        BIT4                                  
001851,000436: 
001852,000437:                                                                                                  #                        BIT 3 FLAG 0
001853,000438: 37,2001                        FREEFLAG           =        012D                                  #  (TEMPORARY FLAG USED IN MANY ROUTINES)
001854,000439: 
001855,000440: 37,2001     4710               FREEFBIT           =        BIT3                                  
001856,000441: 
001857,000442:                                                                                                  #                        BIT 2 FLAG 0
001858,000443:                                                                                                  #                =       013D
001859,000444: 
001860,000445:                                                                                                  #                        BIT 1 FLAG 0
001861,000446: 37,2001                        KFLAG              =        014D                                  #  SEARCH SECTOR MORE  SEARCH SECTOR LESS
001862,000447:                                                                                                  #  THAN 180 DEGREES    THAN 180 DEGREES
001863,000448: 
001864,000449: 37,2001     4712               KBIT               =        BIT1                                  
001865,000450: 
001866,000451: 37,2001     0075               FLAGWRD1           =        STATE      +1                         #  (015-029)
001867,000452: 
001868,000453:                                                                                                  #  (SET)               (RESET)
001869,000454: 
001870,000455:                                                                                                  #                        BIT 15 FLAG 1
001871,000456: 37,2001                        NJETSFLG           =        015D                                  #  TWO JET RCS BURN    FOUR JET RCS BURN
001872,000457: 
001873,000458: 37,2001     4674               NJETSBIT           =        BIT15                                 
001874,000459: 
001875,000460:                                                                                                  #                        BIT 14 FLAG 1
001876,000461: 37,2001                        STIKFLAG           =        016D                                  #  RHC CONTROL         CMC CONTROL
001877,000462: 

Page 45

001879,000464: 37,2001     4675               STIKBIT            =        BIT14                                 
001880,000465: 
001881,000466:                                                                                                  #                        BIT 13 FLAG 1
001882,000467: 37,2001                        ERADFLAG           =        017D                                  #  EARTH, COMPUTE      EARTH, USE FIXED
001883,000468:                                                                                                  #   FISCHER ELLIPSOID   RADIUS
001884,000469:                                                                                                  #   RADIUS
001885,000470:                                                                                                  #  MOON, USE FIXED     MOON, USE RLS FOR
001886,000471:                                                                                                  #        RADIUS              LUNAR RADIUS
001887,000472: 
001888,000473: 
001889,000474: 37,2001     4676               ERADFBIT           =        BIT13                                 
001890,000475: 
001891,000476:                                                                                                  #                        BIT 12 FLAG 1
001892,000477:                                                                                                  #                =       018D
001893,000478: 
001894,000479: 
001895,000480:                                                                                                  #                        BIT 11 FLAG 1
001896,000481: 37,2001                        ENG2FLAG           =        019D                                  #  RCS BURN            SPS BURN
001897,000482: 
001898,000483: 37,2001     4700               ENG2BIT            =        BIT11                                 
001899,000484: 
001900,000485:                                                                                                  #                        BIT 10 FLAG 1
001901,000486: 37,2001                        TARG1FLG           =        020D                                  #  SIGHTING LEM        NOT SIGHTING LEM
001902,000487: 
001903,000488: 37,2001     4701               TARG1BIT           =        BIT10                                 
001904,000489: 
001905,000490:                                                                                                  #                        BIT 9 FLAG 1
001906,000491: 37,2001                        TARG2FLG           =        021D                                  #  SIGHTING LANDMARK   SIGHTING STAR
001907,000492: 
001908,000493: 37,2001     4702               TARG2BIT           =        BIT9                                  
001909,000494: 
001910,000495:                                                                                                  #                        BIT  9 FLAG 1
001911,000496: 37,2001                        R23FLG             =        021D                                  #  R23 MARKING         R21 MARKING
001912,000497: 
001913,000498: 
001914,000499: 37,2001     4702               R23BIT             =        BIT9                                  
001915,000500: 
001916,000501:                                                                                                  #                        BIT 8 FLAG 1
001917,000502: 37,2001                        VEHUPFLG           =        022D                                  #  CSM STATE VECTOR    LEM STATE VECTOR
001918,000503:                                                                                                  #  BEING UPDATED       BEING UPDATED
001919,000504: 
001920,000505: 37,2001     4703               VEHUPBIT           =        BIT8                                  
001921,000506: 
001922,000507:                                                                                                  #                        BIT 7 FLAG 1
001923,000508: 37,2001                        UPDATFLG           =        023D                                  #  UPDATING BY MARKS   UPDATING BY MARKS
001924,000509:                                                                                                  #  ALLOWED             NOT ALLOWED
001925,000510: 
001926,000511: 37,2001     4704               UPDATBIT           =        BIT7                                  
001927,000512: 
001928,000513:                                                                                                  #                        BIT 6 FLAG 1

Page 46

001930,000515: 37,2001                        IDLEFAIL           =        024D                                  #  INHIBIT R41         ENABLE R41 (ENGFAIL)
001931,000516: 
001932,000517: 37,2001     4705               IDLEBIT            =        BIT6                                  
001933,000518: 
001934,000519:                                                                                                  #                        BIT 5 FLAG 1
001935,000520: 37,2001                        TRACKFLG           =        025D                                  #  TRACKING ALLOWED    TRACKING NOT ALLOWED
001936,000521: 
001937,000522: 37,2001     4706               TRACKBIT           =        BIT5                                  
001938,000523: 
001939,000524:                                                                                                  #                        BIT 4 FLAG 1
001940,000525: 37,2001                        TRM03FLG           =        26D                                   #  REQUEST TO          NO REQUEST TO
001941,000526: 37,2001     4707               TRM03BIT           =        BIT4                                  #  TERMINATE P03 HAS   TERMINATE P03 HAS
001942,000527:                                                                                                  #  BEEN ENTERED        BEEN ENTERED
001943,000528: 
001944,000529: 
001945,000530:                                                                                                  #                        BIT 3 FLAG 1
001946,000531: 37,2001                        SLOPESW            =        27D                                   #  ITERATE WITH BIAS   ITERATE WITH REGULA
001947,000532:                                                                                                  #  METHOD IN ITERATOR  FALSI METHOD IN 
001948,000533:                                                                                                  #                        ITERATOR
001949,000534: 
001950,000535: 
001951,000536: 37,2001     4710               SLOPEBIT           =        BIT3                                  
001952,000537: 
001953,000538:                                                                                                  #                        BIT 2 FLAG 1
001954,000539: 37,2001                        GUESSW             =        028D                                  #  NO STARTING VALUE   STARTING VALUE FOR
001955,000540:                                                                                                  #  FOR ITERATION       ITERATION EXISTS
001956,000541: 
001957,000542: 37,2001     4711               GUESSBIT           =        BIT2                                  
001958,000543: 
001959,000544:                                                                                                  #                        BIT 1 FLAG 1
001960,000545: 37,2001                        AVEGFLAG           =        029D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
001961,000546:                                                                                                  #  TO CONTINUE         TO CEASE
001962,000547: 
001963,000548: 37,2001     4712               AVEGBIT            =        BIT1                                  
001964,000549: 
001965,000550: 37,2001     0076               FLAGWRD2           =        STATE      +2                         #  (030-044)
001966,000551: 
001967,000552:                                                                                                  #  (SET)               (RESET)
001968,000553: 
001969,000554:                                                                                                  #                        BIT 15 FLAG 2
001970,000555: 37,2001                        DRIFTFLG           =        030D                                  #  T3RUPT CALLS GYRO   T3RUPT DOES NO GYRO
001971,000556:                                                                                                  #  COMPENSATION        COMPENSATION
001972,000557: 
001973,000558: 37,2001     4674               DRFTBIT            =        BIT15                                 
001974,000559: 
001975,000560:                                                                                                  #                        BIT 14 FLAG 2
001976,000561: 37,2001                        R21MARK            =        031D                                  #  OPTION ONE FOR      OPTION TWO FOR 
001977,000562:                                                                                                  #  MARKRUPT            MARKRUPT
001978,000563: 
001979,000564: 37,2001     4675               R21BIT             =        BIT14                                 
001980,000565: 

Page 47

001982,000567:                                                                                                  #                        BIT 13 FLAG 2
001983,000568: 37,2001                        22DSPFLG           =        032D                                  #  DISPLAY DR,DV       DO NOT DISPLAY DR,DV
001984,000569: 
001985,000570: 
001986,000571: 37,2001     4676               22DSPBIT           =        BIT13                                 
001987,000572: 
001988,000573:                                                                                                  #                        BIT 12 FLAG 2
001989,000574:                                                                                                  #                =       033D
001990,000575: 
001991,000576: 
001992,000577:                                                                                                  #                        BIT 11 FLAG 2
001993,000578: 37,2001                        STEERSW            =        034D                                  #  STEERING TO BE DONE STEERING OMITTED
001994,000579: 
001995,000580: 37,2001     4700               STEERBIT           =        BIT11                                 
001996,000581: 
001997,000582:                                                                                                  #                        BIT 10 FLAG 2
001998,000583: 37,2001                        CYCLESW            =        035D                                  #  VG CALCULATION TO   VG CALCULATION
001999,000584:                                                                                                  #  BE DONE             OMITTED
002000,000585: 
002001,000586: 37,2001     4701               CYCLEBIT           =        BIT10                                 
002002,000587: 
002003,000588:                                                                                                  #                        BIT 9 FLAG 2
002004,000589: 37,2001                        IMPULSW            =        036D                                  #  MINIMUM IMPULSE     STEERING BURN (NO
002005,000590:                                                                                                  #  BURN (CUTOFF TIME   CUTOFF TIME YET
002006,000591:                                                                                                  #  SPECIFIED)          AVAILABLE)
002007,000592: 
002008,000593: 37,2001     4702               IMPULBIT           =        BIT9                                  
002009,000594: 
002010,000595:                                                                                                  #                        BIT 8 FLAG 2
002011,000596: 37,2001                        XDELVFLG           =        037D                                  #  EXTERNAL DELTAV VG  LAMBERT (AIMPOINT)
002012,000597:                                                                                                  #  COMPUTATION         VG COMPUTATION
002013,000598: 
002014,000599: 37,2001     4704               XDELVBIT           =        BIT7                                  
002015,000600: 
002016,000601:                                                                                                  #                        BIT 7 FLAG 2
002017,000602: 37,2001                        ETPIFLAG           =        038D                                  #  ELEVATION ANGLE     TPI TIME SUPPLIED
002018,000603:                                                                                                  #  SUPPLIED FOR P34,74 FOR P34,74
002019,000604: 
002020,000605:                                                                                                  #                        BIT 7 FLAG 2
002021,000606: 37,2001  0000046               FIRSTFLG           =        ETPIFLAG                              #  SUCCEEDING PASS     FIRST PASS THRU
002022,000607:                                                                                                  #  THRU S40.9          S40.9
002023,000608: 
002024,000609: 37,2001     4704               FIRSTBIT           =        BIT7                                  
002025,000610: 
002026,000611:                                                                                                  #                        BIT  7 FLAG 2
002027,000612: 37,2001  0000046               OPTNSW             =        ETPIFLAG                              #  SOI PHASE P38/P78   SOR PHASE OF P38/P78
002028,000613: 
002029,000614: 37,2001     4705               FINALBIT           =        BIT6                                  
002030,000615: 
002031,000616:                                                                                                  #                        BIT 6 FLAG 2

Page 48

002033,000618: 37,2001                        FINALFLG           =        039D                                  #  LSAT PASS THROUGH   INTERIM PASS THROUGH
002034,000619:                                                                                                  #  RENDEZVOUS PROGRAM  RENDEZVOUS PROGRAM
002035,000620:                                                                                                  #  COMPUTATIONS        COMPUTATIONS
002036,000621: 
002037,000622: 37,2001     4706               AVFLBIT            =        BIT5                                  
002038,000623: 
002039,000624:                                                                                                  #                        BIT 5 FLAG 2
002040,000625: 37,2001                        AVFLAG             =        040D                                  #  LEM IS ACTIVE       CSM IS ACTIVE
002041,000626:                                                                                                  #  VEHICLE             VEHICLE
002042,000627: 
002043,000628:                                                                                                  #                        BIT 4 FLAG 2
002044,000629: 37,2001                        PFRATFLG           =        041D                                  #  PREFERRED ATTITUDE  PREFERRED ATTITUDE
002045,000630:                                                                                                  #  COMPUTED            NOT COMPUTED
002046,000631: 
002047,000632: 37,2001     4707               PFRATBIT           =        BIT4                                  
002048,000633: 
002049,000634:                                                                                                  #                        BIT 3 FLAG 2
002050,000635: 37,2001                        CALCMAN3           =        042D                                  #  NO FINAL ROLL       FINAL ROLL IS
002051,000636:                                                                                                  #                      NECESSARY
002052,000637: 
002053,000638: 37,2001     4710               CALC3BIT           =        BIT3                                  
002054,000639: 
002055,000640:                                                                                                  #                        BIT 2 FLAG 2
002056,000641: 37,2001                        CALCMAN2           =        043D                                  #  PERFORM MANEUVER    BYPASS STARTING
002057,000642:                                                                                                  #  STARTING PROCEDURE  PROCEDURE
002058,000643: 
002059,000644: 37,2001     4711               CALC2BIT           =        BIT2                                  
002060,000645: 
002061,000646:                                                                                                  #                        BIT 1 FLAG 2
002062,000647: 37,2001                        NODOFLAG           =        044D                                  #  V37 NOT PERMITTED   V37 PERMITTED
002063,000648: 
002064,000649: 37,2001     4712               NODOBIT            =        BIT1                                  
002065,000650: 
002066,000651: 37,2001     0077               FLAGWRD3           =        STATE      +3                         #  (045-059)
002067,000652: 
002068,000653:                                                                                                  #  (SET)               (RESET)
002069,000654: 
002070,000655:                                                                                                  #                        BIT 15 FLAG 3
002071,000656:                                                                                                  #                =       045D
002072,000657: 
002073,000658: 
002074,000659:                                                                                                  #                        BIT 14 FLAG 3
002075,000660: 37,2001                        GLOKFAIL           =        046D                                  #  GIMBAL LOCK HAS     NOT IN GIMBAL LOCK
002076,000661:                                                                                                  #  OCCURED
002077,000662: 
002078,000663: 37,2001     4675               GLOKFBIT           =        BIT14                                 
002079,000664: 
002080,000665:                                                                                                  #                        BIT 13 FLAG 3
002081,000666: 37,2001                        REFSMFLG           =        047D                                  #  REFSMMAT GOOD       REFSMMAT NO GOOD
002082,000667: 

Page 49

002084,000669: 37,2001     4676               REFSMBIT           =        BIT13                                 
002085,000670: 
002086,000671:                                                                                                  #                        BIT 12 FLAG 3
002087,000672: 37,2001                        LUNAFLAG           =        048D                                  #  LUNAR LAT-LONG      EARTH LAT-LONG
002088,000673: 
002089,000674: 37,2001     4677               LUNABIT            =        BIT12                                 
002090,000675: 
002091,000676:                                                                                                  #                        BIT 11 FLAG 3
002092,000677: 37,2001                        P22MKFLG           =        049D                                  #  P22 DOWNLINKED MARK P22 DOWLINK MARK
002093,000678:                                                                                                  #  DATA WAS JUST TAKEN DATA NOT JUST TAKEN
002094,000679: 
002095,000680: 37,2001     4700               P22MKBIT           =        BIT11                                 
002096,000681: 
002097,000682:                                                                                                  #                        BIT 10 FLAG 3
002098,000683: 37,2001                        VFLAG              =        050D                                  #  LESS THAN TWO STARS TWO STARS IN FIELD
002099,000684:                                                                                                  #  IN FIELD OF VIEW    OF VIEW
002100,000685: 
002101,000686: 37,2001     4701               VFLAGBIT           =        BIT10                                 
002102,000687: 
002103,000688:                                                                                                  #                        BIT 9 FLAG 3
002104,000689:                                                                                                  #                =       051D
002105,000690: 
002106,000691: 
002107,000692:                                                                                                  #                        BIT 8 FLAG 3
002108,000693: 37,2001                        PRECIFLG           =        052D                                  #  CSMPREC OR LEMPREC INTEGRV OR INTEGRVS
002109,000694:                                                                                                  #  CALLED              CALLED
002110,000695: 
002111,000696: 37,2001     4703               PRECIBIT           =        BIT8                                  
002112,000697: 
002113,000698:                                                                                                  #                        BIT 7 FLAG 3
002114,000699: 37,2001                        CULTFLAG           =        053D                                  #  STAR OCCULTED       STAR NOT OCCULTED
002115,000700: 
002116,000701: 37,2001     4704               CULTBIT            =        BIT7                                  
002117,000702: 
002118,000703:                                                                                                  #                        BIT 6 FLAG 3
002119,000704: 37,2001                        ORBWFLAG           =        054D                                  #  W MATRIX VALID FOR  W MATRIX INVALID FOR
002120,000705:                                                                                                  #  ORBITAL N1VIGATION  ORBITAL NAVIGATION
002121,000706: 
002122,000707: 37,2001     4705               ORBWFBIT           =        BIT6                                  
002123,000708: 
002124,000709:                                                                                                  #                        BIT 5 FLAG 3
002125,000710: 37,2001                        STATEFLG           =        055D                                  #  PERMANENT STATE     PERMANENT STATE
002126,000711:                                                                                                  #  VECTOR UPDATED      VECTOR NOT UPDATED
002127,000712: 
002128,000713: 37,2001     4706               STATEBIT           =        BIT5                                  
002129,000714: 
002130,000715:                                                                                                  #                        BIT 4 FLAG 3
002131,000716: 37,2001                        INTYPFLG           =        056D                                  #  CONIC INTEGRATION   ENCKE INTEGRATION
002132,000717: 
002133,000718: 37,2001     4707               INTYBIT            =        BIT4                                  
002134,000719: 

Page 50

002136,000721:                                                                                                  #                        BIT 3 FLAG 3
002137,000722: 37,2001                        VINTFLAG           =        057D                                  #  CSM STATE VECTOR    LEM STATE VECTOR
002138,000723:                                                                                                  #  BEING INTEGRATED    BEING INTEGRATED
002139,000724: 
002140,000725: 37,2001     4710               VINTFBIT           =        BIT3                                  
002141,000726: 
002142,000727:                                                                                                  #                        BIT 2 FLAG 3
002143,000728: 37,2001                        D6OR9FLG           =        058D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002144,000729:                                                                                                  #  FOR INTEGRATION     FOR INTEGRATION
002145,000730: 
002146,000731: 37,2001     4711               D6OR9BIT           =        BIT2                                  
002147,000732: 
002148,000733:                                                                                                  #                        BIT 1 FLAG 3
002149,000734: 37,2001                        DIM0FLAG           =        059D                                  #  W MATRIX IS TO BE   W MATRIX IS NOT TO
002150,000735:                                                                                                  #  USED                BE USED
002151,000736: 
002152,000737: 37,2001     0100               FLAGWRD4           =        STATE      +4                         #  (060-074)
002153,000738: 
002154,000739:                                                                                                  #  (SET)               (RESET)
002155,000740: 
002156,000741: 37,2001     4712               DIM0BIT            =        BIT1                                  
002157,000742: 
002158,000743:                                                                                                  #                        BIT 15 FLAG 4
002159,000744: 37,2001                        MRKIDFLG           =        060D                                  #  MARK DISPLAY IN     NO MARK DISPLAY IN
002160,000745:                                                                                                  #  ENDIDLE             ENDIDLE
002161,000746: 
002162,000747: 37,2001     4674               MRKIDBIT           =        BIT15                                 
002163,000748: 
002164,000749:                                                                                                  #                        BIT 14 FLAG 4
002165,000750: 37,2001                        PRIODFLG           =        061D                                  #  PRIORITY DISPLAY IN NO PRIORITY DISPLAY
002166,000751:                                                                                                  #  ENDIDLE             IN ENDIDLE
002167,000752: 
002168,000753: 37,2001     4675               PRIODBIT           =        BIT14                                 
002169,000754: 
002170,000755:                                                                                                  #                        BIT 13 FLAG 4
002171,000756: 37,2001                        NRMIDFLG           =        062D                                  #  NORMAL DISPLAY IN   NO NORMAL DISPLAY
002172,000757:                                                                                                  #  ENDIDLE             IN ENDIDLE
002173,000758: 
002174,000759: 37,2001     4676               NRMIDBIT           =        BIT13                                 
002175,000760: 
002176,000761:                                                                                                  #                        BIT 12 FLAG 4
002177,000762: 37,2001                        PDSPFLAG           =        063D                                  #  CAN'T INTERRUPT     SEE M. HAMILTON
002178,000763:                                                                                                  #  PRIORITY DISPLAY
002179,000764: 
002180,000765: 37,2001     4677               PDSPFBIT           =        BIT12                                 
002181,000766: 
002182,000767:                                                                                                  #                        BIT 11 FLAG 4
002183,000768: 37,2001                        MWAITFLG           =        064D                                  #  HIGHER PRIORITY     NO HIGHER PRIORITY
002184,000769:                                                                                                  #  DISPLAY OPERATING   DISPLAY OPERATING
002185,000770:                                                                                                  #  WHEN MARK DISPLAY   WHEN MARK DISPLAY

Page 51

002187,000772:                                                                                                  #  INITIATED           INITIATED
002188,000773: 
002189,000774: 37,2001     4700               MWAITBIT           =        BIT11                                 
002190,000775: 
002191,000776:                                                                                                  #                        BIT 10 FLAG 4
002192,000777: 37,2001                        NWAITFLG           =        065D                                  #  HIGHER PRIORITY     NO HIGHER PRIORITY
002193,000778:                                                                                                  #  DISPLAY OPERATING   DISPLAY OPERATING
002194,000779:                                                                                                  #  WHEN NORMAL         WHEN NORMAL DISPLAY
002195,000780:                                                                                                  #  DISPLAY INITIATED   INITIATED
002196,000781: 
002197,000782: 37,2001     4701               NWAITBIT           =        BIT10                                 
002198,000783: 
002199,000784:                                                                                                  #                        BIT 9 FLAG 4
002200,000785: 37,2001                        MRKNVFLG           =        066D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002201,000786:                                                                                                  #  KEYBOARD WHEN MARK  KEYBOARD WHEN MARK
002202,000787:                                                                                                  #  DISPLAY INITIATED   DISPLAY INITIATED
002203,000788: 
002204,000789: 37,2001     4702               MRKNVBIT           =        BIT9                                  
002205,000790: 
002206,000791:                                                                                                  #                        BIT 8 FLAG 4
002207,000792: 37,2001                        NRMNVFLG           =        067D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002208,000793:                                                                                                  #  KEYBOARD WHEN       KEYBOARD WHEN
002209,000794:                                                                                                  #  NORMAL DISPLAY      NORMAL DISPLAY
002210,000795:                                                                                                  #  INITIATED           INITIATED
002211,000796: 
002212,000797: 37,2001     4703               NRMNVBIT           =        BIT8                                  
002213,000798: 
002214,000799:                                                                                                  #                        BIT 7 FLAG 4
002215,000800: 37,2001                        PRONVFLG           =        068D                                  #  ASTRONAUT USING     ASTRONAUT NOT USING
002216,000801:                                                                                                  #  KEYBOARD WHEN       KEYBOARD WHEN
002217,000802:                                                                                                  #  PRIORITY DISPLAY    PRIORITY DISPLAY
002218,000803:                                                                                                  #  INITIATED           INITIATED
002219,000804: 
002220,000805: 37,2001     4704               PRONVBIT           =        BIT7                                  
002221,000806: 
002222,000807:                                                                                                  #                        BIT 6 FLAG 4
002223,000808: 37,2001                        PINBRFLG           =        069D                                  #  ASTRONAUT HAS       ASTRONAUT HAS NOT
002224,000809:                                                                                                  #  INTERFERED WITH     INTERFERED WITH
002225,000810:                                                                                                  #  EXISTING DISPLAY    EXISTING DISPLAY
002226,000811: 
002227,000812: 37,2001     4705               PINBRBIT           =        BIT6                                  
002228,000813: 
002229,000814:                                                                                                  #                        BIT 5 FLAG 4
002230,000815: 37,2001                        MRUPTFLG           =        070D                                  #  MARK DISPLAY        MARK DISPLAY NOT
002231,000816:                                                                                                  #  INTERRUPTED BY      INTERRUPTED BY
002232,000817:                                                                                                  #  PRIORITY DISPLAY    PRIORITY DISPLAY
002233,000818: 
002234,000819: 37,2001     4706               MRUPTBIT           =        BIT5                                  
002235,000820: 
002236,000821:                                                                                                  #                        BIT 4 FLAG 4

Page 52

002238,000823: 37,2001                        NRUPTFLG           =        071D                                  #  NORMAL DISPLAY      NORMAL DISPLAY NOT
002239,000824:                                                                                                  #  INTERRUPTED BY      INTERRUPTED BY
002240,000825:                                                                                                  #  PRIORITY OR MARK    PRIORITY OR MARK
002241,000826:                                                                                                  #  DISPLAY             DISPLAY
002242,000827: 
002243,000828: 37,2001     4707               NRUPTBIT           =        BIT4                                  
002244,000829: 
002245,000830:                                                                                                  #                        BIT 3 FLAG 4
002246,000831: 37,2001                        MKOVFLAG           =        072D                                  #  MARK DISPLAY OVER   NO MARK DISPLAY OVER
002247,000832:                                                                                                  #  NORMAL              NORMAL
002248,000833: 
002249,000834: 37,2001     4710               MKOVBIT            =        BIT3                                  
002250,000835: 
002251,000836:                                                                                                  #                        BIT 2 FLAG 4      DISPLAY BIT
002252,000837:                                                                                                  #                =       073D              CLEARED AT INTERVALS
002253,000838: 
002254,000839: 
002255,000840:                                                                                                  #                        BIT 1 FLAG 4      MARK DISPLAY NOT TO NO SPECIAL MARK
002256,000841: 37,2001                        XDSPFLAG           =        074D                                  #  BE INTERRUPTED      INFORMATION.
002257,000842: 
002258,000843: 
002259,000844: 37,2001     4712               XDSPBIT            =        BIT1                                  
002260,000845: 
002261,000846: 37,2001     0101               FLAGWRD5           =        STATE      +5                         #  (075-099)
002262,000847: 
002263,000848:                                                                                                  #  (SET)               (RESET)
002264,000849: 
002265,000850:                                                                                                  #                        BIT 15 FLAG 5
002266,000851: 37,2001                        DSKYFLAG           =        075D                                  #  DISPLAYS SENT TO    NO DISPLAYS TO DSKY
002267,000852:                                                                                                  #  DSKY
002268,000853: 
002269,000854: 
002270,000855: 37,2001     4674               DSKYBIT            =        BIT15                                 
002271,000856: 
002272,000857:                                                                                                  #                        BIT 14 FLAG 5
002273,000858:                                                                                                  #                =       76D
002274,000859: 
002275,000860:                                                                                                  #                        BIT 13 FLAG 5
002276,000861:                                                                                                  #                =       77D
002277,000862: 
002278,000863:                                                                                                  #                        BIT 12 FLAG 5
002279,000864: 37,2001                        V59FLAG            =        078D                                  #  CALIBRATING FOR     NORMAL MARKING FOR
002280,000865:                                                                                                  #  P23                 P23
002281,000866: 
002282,000867: 37,2001     4677               V59FLBIT           =        BIT12                                 
002283,000868: 
002284,000869:                                                                                                  #                        BIT 11 FLAG 5
002285,000870: 37,2001                        INCORFLG           =        079D                                  #  FIRST INCORPORATION SECOND INCORPORATION
002286,000871: 
002287,000872: 37,2001     4700               INCORBIT           =        BIT11                                 
002288,000873: 

Page 53

002290,000875:                                                                                                  #                        BIT 10 FLAG 5
002291,000876: 37,2001                        RNGSCFLG           =        080D                                  #  ANOTHER TAG FOR PRFTKAT
002292,000877: 
002293,000878:                                                                                                  #                        BIT 10 FLAG 5
002294,000879: 37,2001  0000120               PRFTRKAT           =        RNGSCFLG                              #  PREF TRACK ATT      +X AXIS TRACK ATT
002295,000880: 
002296,000881: 
002297,000882: 37,2001     4701               PRFTRBIT           =        BIT10                                 
002298,000883: 
002299,000884:                                                                                                  #                        BIT 9 FLAG 5
002300,000885: 37,2001                        DMENFLG            =        081D                                  #  DIMENSION OF W IS 9 DIMENSION OF W IS 6
002301,000886:                                                                                                  #  FOR INCORPORATION   FOR INCORPORATION
002302,000887: 
002303,000888: 37,2001     4702               DMENFBIT           =        BIT9                                  
002304,000889: 
002305,000890:                                                                                                  #                        BIT 8 FLAG 5
002306,000891: 37,2001                        COMPUTER           =        082D                                  #  COMPUTER IS CMC     COMPUTER IS LGC
002307,000892: 
002308,000893: 37,2001     4703               COMPTBIT           =        BIT8                                  
002309,000894: 
002310,000895:                                                                                                  #                        BIT 7 FLAG 5
002311,000896: 37,2001                        ENGONFLG           =        083D                                  #  ENGINE TURNED ON    ENGINE TURNED OFF
002312,000897: 
002313,000898: 37,2001     4704               ENGONBIT           =        BIT7                                  
002314,000899: 
002315,000900:                                                                                                  #                        BIT 6 FLAG 5
002316,000901: 37,2001                        3AXISFLG           =        084D                                  #  MANEUVER SPECIFIED  MANEUVER SPECIFIED
002317,000902:                                                                                                  #  BY THREE AXES       BY ONE AXIS
002318,000903: 
002319,000904: 37,2001     4705               3AXISBIT           =        BIT6                                  
002320,000905: 
002321,000906:                                                                                                  #                        BIT 5 FLAG 5
002322,000907: 37,2001                        GRRBKFLG           =        085D                                  #  BACKUP GRR RECEIVED BACKUP GRR NOT
002323,000908:                                                                                                  #                      RECEIVED
002324,000909: 
002325,000910: 37,2001     4706               GRRBKBIT           =        BIT5                                  
002326,000911: 
002327,000912:                                                                                                  #                        BIT 4 FLAG 5
002328,000913: 37,2001                        R60FLAG            =        086D                                  #  R61 MUST USE R60    NORMAL R61
002329,000914: 
002330,000915: 
002331,000916: 37,2001     4707               R60FLBIT           =        BIT4                                  
002332,000917: 
002333,000918:                                                                                                  #                        BIT 3 FLAG 5
002334,000919: 37,2001                        SOLNSW             =        087D                                  #  LAMBERT DOES NOT    LAMBERT CONVERGES OR
002335,000920:                                                                                                  #  CONVERGE, OR TIME-  TIME-RADIUS NON
002336,000921:                                                                                                  #  RADIUS NEARLY CIRC. CIRCULAR.
002337,000922: 

Page 54

002339,000924: 37,2001     4710               SOLNSBIT           =        BIT3                                  
002340,000925: 
002341,000926:                                                                                                  #                        BIT 2 FLAG 5
002342,000927: 37,2001                        MGLVFLAG           =        088D                                  #  LOCAL VERTICAL      MIDDLE GIMBAL ANGLE
002343,000928:                                                                                                  #  COORDINATES         COMPUTED
002344,000929:                                                                                                  #  COMPUTED
002345,000930: 
002346,000931: 37,2001     4711               MGLVFBIT           =        BIT2                                  
002347,000932: 
002348,000933:                                                                                                  #                        BIT 1 FLAG 5
002349,000934: 37,2001                        RENDWFLG           =        089D                                  #  W MATRIX VALID      W MATRIX INVALID
002350,000935:                                                                                                  #  FOR RENDEZVOUS      FOR RENDEZVOUS
002351,000936:                                                                                                  #  NAVIGATION          NAVIGATION
002352,000937: 
002353,000938: 37,2001     4712               RENDWBIT           =        BIT1                                  
002354,000939: 
002355,000940: 37,2001     0102               FLAGWRD6           =        STATE      +6                         #  (090-104)
002356,000941: 
002357,000942:                                                                                                  #  (SET)               (RESET)
002358,000943: 
002359,000944:                                                                                                  #                        BIT 15 FLAG 6
002360,000945: 37,2001                        DAPBIT1            =        090D                                  #  1 SATURN 1 TVC      0 RCS    0 NO
002361,000946: 
002362,000947: 37,2001     4674               DAP1BIT            =        BIT15                                 
002363,000948: 
002364,000949:                                                                                                  #                        BIT 14 FLAG 6
002365,000950: 37,2001                        DAPBIT2            =        091D                                  #  1 A/P     0 A/P     1 A/P     0 A/P
002366,000951: 
002367,000952: 37,2001     4675               DAP2BIT            =        BIT14                                 
002368,000953: 
002369,000954:                                                                                                  #                        BIT 13 FLAG 6
002370,000955: 37,2001                        STRULLSW           =        92D                                   #  DO STEERULL         DO ULAGEOFF ONLY
002371,000956: 
002372,000957: 37,2001     4676               STRULBIT           =        BIT13                                 
002373,000958: 
002374,000959:                                                                                                  #                        BIT 13 FLAG 6
002375,000960: 37,2001  0000134               ENTRYDSP           =        STRULLSW                              #  DO ENTRY DISPLAY    OMIT ENTRY DISPLAY
002376,000961:                                                                                                  #  VIA ENTRYVN.
002377,000962: 
002378,000963: 37,2001     4676               ENDSPBIT           =        BIT13                                 
002379,000964: 
002380,000965:                                                                                                  #                        BIT 12 FLAG 6
002381,000966: 37,2001                        CMDAPARM           =        093D                                  #  ALOW ENTRY FIRINGS  INHIBIT ENTRY FIRING
002382,000967:                                                                                                  #  AND CALCULATIONS    AND CONTROL FUNCTION
002383,000968: 
002384,000969: 37,2001     4677               CMARMBIT           =        BIT12                                 
002385,000970: 
002386,000971:                                                                                                  #                        BIT 11 FLAG 6
002387,000972: 37,2001                        GAMDIFSW           =        094D                                  #  CALCULATE GAMDOT    GAMDOT NOT TO BE

Page 55

002389,000974:                                                                                                  #                      CALCULATED
002390,000975: 
002391,000976: 37,2001     4700               GMDIFBIT           =        BIT11                                 
002392,000977: 
002393,000978:                                                                                                  #                        BIT 10 FLAG 6
002394,000979: 37,2001                        GMBDRVSW           =        095D                                  #  TRIMGIMB OVER       TRIMGIMB NOT OVER
002395,000980: 
002396,000981: 37,2001     4701               GMBDRBIT           =        BIT10                                 
002397,000982: 
002398,000983:                                                                                                  #                        BIT 10 FLAG 6
002399,000984: 37,2001  0000137               GONEPAST           =        GMBDRVSW                              #  LATERAL CONTROL     LATERAL CONTROL
002400,000985:                                                                                                  #  CALCULATIONS TO BE  CALCULATIONS TO BE
002401,000986:                                                                                                  #  OMITTED             DONE
002402,000987: 
002403,000988: 37,2001     4701               GONEBIT            =        BIT10                                 
002404,000989: 
002405,000990:                                                                                                  #                        BIT 9 FLAG 6
002406,000991: 37,2001                        RELVELSW           =        096D                                  #  TARGETING USES      TARGETING USES
002407,000992:                                                                                                  #  EARTH-RELATIVE      INERTIAL VELOCITY
002408,000993:                                                                                                  #  VELOCITY
002409,000994: 
002410,000995: 37,2001     4702               RELVBIT            =        BIT9                                  
002411,000996: 
002412,000997:                                                                                                  #                        BIT 8 FLAG 6
002413,000998: 37,2001                        EGSW               =        097D                                  #  IN FINAL PHASE      NOT IN FINAL PHASE
002414,000999: 
002415,001000: 37,2001     4703               EGFLGBIT           =        BIT8                                  
002416,001001: 
002417,001002:                                                                                                  #                        BIT 8 FLAG 6
002418,001003: 37,2001  0000141               KNOWNFLG           =        EGSW                                  #  LANDMARK KNOWN      LANDMARK UNKNOWN
002419,001004: 
002420,001005: 37,2001     4703               KNOWNBIT           =        BIT8                                  
002421,001006: 
002422,001007:                                                                                                  #                        BIT 8 FLAG 6
002423,001008: 37,2001  0000141               R57FLAG            =        KNOWNFLG                              #  DO NOT DO R57       DO R57, TRUNION
002424,001009:                                                                                                  #  TRUNION BIAS HAS    BIAS NEEDED
002425,001010:                                                                                                  #  BEEN OBTAINED.
002426,001011: 
002427,001012: 37,2001     4703               R57BIT             =        BIT8                                  
002428,001013: 
002429,001014:                                                                                                  #                        BIT 7 FLAG 6
002430,001015: 37,2001                        NOSWITCH           =        098D                                  #  LATERAL ROLL        LATERAL ROLL MANUVER
002431,001016: 37,2001     4704               NOSWBIT            =        BIT7                                  #  MANUVER INHIBITED   PERMITED IN ENTRY
002432,001017:                                                                                                  #  IN ENTRY
002433,001018: 
002434,001019: 
002435,001020:                                                                                                  #                        BIT 6 FLAG 6
002436,001021: 37,2001                        HIND               =        099D                                  #  ITERATING HUNTEST   ITERATING OF HUNTEST
002437,001022:                                                                                                  #  CALCULATIONS TO BE  CALCULATIONS TO BE
002438,001023:                                                                                                  #  DONE AFTER RANGE    OMITTED AFTER RANGE

Page 56

002440,001025:                                                                                                  #  PREDICTION          PREDICTION
002441,001026: 
002442,001027: 37,2001     4705               HINDBIT            =        BIT6                                  
002443,001028: 
002444,001029:                                                                                                  #                        BIT 5 FLAG 6
002445,001030: 37,2001                        INRLSW             =        100D                                  #  INITIAL ROLL        INITIAL ROLL
002446,001031:                                                                                                  #  V(LV)               V(LV)
002447,001032: 
002448,001033: 37,2001     4706               INRLBIT            =        BIT5                                  
002449,001034: 
002450,001035:                                                                                                  #  ATTITUDE NOT HELD   ATTITUDE HELD
002451,001036: 
002452,001037:                                                                                                  #                        BIT 4 FLAG 6
002453,001038: 37,2001                        LATSW              =        101D                                  #  DOWNLIFT NOT        DOWNLIFT INHIBITED
002454,001039:                                                                                                  #  INHIBITED
002455,001040: 
002456,001041: 37,2001     4707               LATSWBIT           =        BIT4                                  
002457,001042: 
002458,001043:                                                                                                  #                        BIT 3 FLAG 6
002459,001044: 37,2001                        .05GSW             =        102D                                  #  DRAG OVER .05G      DRAG LESS THAN .05G
002460,001045: 
002461,001046: 37,2001     4710               .05GBIT            =        BIT3                                  
002462,001047: 
002463,001048:                                                                                                  #                        BIT 3 FLAG 6
002464,001049: 37,2001                        NTARGFLG           =        102D                                  #  ASTRONAUT DID       ASTRONAUT DID NOT
002465,001050:                                                                                                  #  OVERWRITE DELTA     OVERWRITE DELTA
002466,001051: 37,2001     4710               NTARGBIT           =        BIT3                                  
002467,001052: 
002468,001053:                                                                                                  #                        BIT 2 FLAG 6
002469,001054: 37,2001                        CM/DSTBY           =        103D                                  #  ENTRY DAP ACTIVATED ENTRY DAP NOT
002470,001055:                                                                                                  #                      ACTIVATED
002471,001056: 
002472,001057: 37,2001     4711               CM/DSBIT           =        BIT2                                  
002473,001058: 
002474,001059:                                                                                                  #                        BIT 1 FLAG 6
002475,001060: 37,2001                        GYMDIFSW           =        104D                                  #  CDU DIFFERENCES AND CDU DIFFERENCES AND
002476,001061:                                                                                                  #  BODY RATES COMPUTED BODY RATES NOT 
002477,001062:                                                                                                  #                      COMPUTED
002478,001063: 
002479,001064: 37,2001     4712               GYMDIBIT           =        BIT1                                  
002480,001065: 
002481,001066: 37,2001     0103               FLAGWRD7           =        STATE      +7                         #  (105-119)
002482,001067: 
002483,001068:                                                                                                  #  (SET)               (RESET)
002484,001069: 
002485,001070:                                                                                                  #                        BIT 15 FLAG 7
002486,001071: 37,2001                        TERMIFLG           =        105D                                  #  TERMINATE R21,R22   DO NOT TERMINATE
002487,001072:                                                                                                  #                      R21,R22
002488,001073: 
002489,001074: 37,2001     4674               TERMIBIT           =        BIT15                                 
002490,001075: 

Page 57

002492,001077:                                                                                                  #                        BIT 14 FLAG 7
002493,001078: 37,2001                        ITSWICH            =        106D                                  #  ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER
002494,001079:                                                                                                  #  TPI SEARCH SOLUTION AGAINST LIMITS
002495,001080: 
002496,001081: 37,2001     4675               ITSWBIT            =        BIT14                                 
002497,001082: 
002498,001083:                                                                                                  #                        BIT 13 FLAG 7
002499,001084: 37,2001                        IGNFLAG            =        107D                                  #  TIG HAS ARRIVED     TIG HAS NOT ARRIVED
002500,001085: 
002501,001086: 37,2001     4676               IGNFLBIT           =        BIT13                                 
002502,001087: 
002503,001088:                                                                                                  #                        BIT 12 FLAG 7
002504,001089: 37,2001                        ASTNFLAG           =        108D                                  #  ASTRONAUT HAS       ASTRONAUT HAS NOT
002505,001090:                                                                                                  #  OKAYED IGNITION     OKAYED IGNITION
002506,001091: 
002507,001092: 37,2001     4677               ASTNBIT            =        BIT12                                 
002508,001093: 
002509,001094:                                                                                                  #                        BIT 11 FLAG 7
002510,001095: 37,2001                        TIMRFLAG           =        109D                                  #  CLOKTASK OPERATING  CLOKTASK INOPERATIVE
002511,001096: 
002512,001097: 37,2001     4700               TIMRBIT            =        BIT11                                 
002513,001098: 
002514,001099:                                                                                                  #                        BIT 10 FLAG 7
002515,001100: 37,2001                        NORMSW             =        110D                                  #  UNIT NORMAL INPUT   LAMBERT COMPUTE ITS
002516,001101:                                                                                                  #  TO LAMBERT.         OWN UNIT NORMAL.
002517,001102: 
002518,001103: 37,2001     4701               NDRMSBIT           =        BIT10                                 
002519,001104: 
002520,001105:                                                                                                  #                        BIT 9 FLAG 7
002521,001106: 37,2001                        RVSW               =        111D                                  #  DO NOT COMPUTE FINAL COMPUTE FINAL STATE
002522,001107:                                                                                                  #  STATE VECTOR IN     VECTOR IN TIME-THETA
002523,001108:                                                                                                  #  TIME-THETA.
002524,001109: 
002525,001110: 
002526,001111: 37,2001     4702               RVSWBIT            =        BIT9                                  
002527,001112: 
002528,001113:                                                                                                  #                        BIT 8 FLAG 7
002529,001114: 37,2001                        GONEBY             =        112D                                  #  PASSED TARGET       APPROACHING TARGET
002530,001115: 
002531,001116: 37,2001     4703               G0NBYBIT           =        BIT8                                  
002532,001117: 
002533,001118:                                                                                                  #                        BIT 7 FLAG 7
002534,001119: 37,2001                        IDLEFLAG           =        113D                                  #  NO DV MONITOR       CONNECT DV MONITOR
002535,001120: 
002536,001121: 37,2001     4704               IDLEFBIT           =        BIT7                                  
002537,001122: 
002538,001123:                                                                                                  #                        BIT 6 FLAG 7
002539,001124: 37,2001                        V37FLAG            =        114D                                  #  AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002540,001125:                                                                                                  #  RUNNING             OFF
002541,001126: 

Page 58

002543,001128: 37,2001     4705               V37FLBIT           =        BIT6                                  
002544,001129: 
002545,001130:                                                                                                  #                        BIT 5 FLAG 7
002546,001131:                                                                                                  #                =       115D
002547,001132:                                                                                                  #                =       BIT5
002548,001133: 
002549,001134: 
002550,001135:                                                                                                  #                        BIT 4 FLAG 7
002551,001136: 37,2001                        UPLOCKFL           =        116D                                  #  K-KBAR-K FAIL       NO K-KBAR-K FAIL
002552,001137: 
002553,001138: 37,2001     4707               UPLOCBIT           =        BIT4                                  
002554,001139: 
002555,001140:                                                                                                  #                        BIT 3 FLAG 7
002556,001141: 37,2001                        VERIFLAG           =        117D                                  #  CHANGED WHEN V33E OCCURS AT END OF P27
002557,001142: 
002558,001143: 37,2001     4710               VERIFBIT           =        BIT3                                  
002559,001144: 
002560,001145:                                                                                                  #                        BIT 2 FLAG 7
002561,001146: 37,2001                        ATTCHFLG           =        118D                                  #  LM,CM ATTACHED      LM,CM NOT ATTACHED
002562,001147: 
002563,001148: 37,2001     4711               ATTCHBIT           =        BIT2                                  
002564,001149: 
002565,001150:                                                                                                  #                        BIT 1 FLAG 7
002566,001151: 37,2001                        TFFSW              =        119D                                  #  CALCULATE TPERIGEE  CALCULATE TFF
002567,001152: 
002568,001153: 37,2001     4712               TFFSWBIT           =        BIT1                                  
002569,001154: 
002570,001155: 37,2001     0104               FLAGWRD8           =        STATE      +8D                        #  (120-134)
002571,001156: 
002572,001157:                                                                                                  #  (SET)               (RESET)
002573,001158: 
002574,001159:                                                                                                  #                        BIT 15 FLAG 8
002575,001160: 37,2001                        RPQFLAG            =        120D                                  #  RPQ NOT COMPUTED    RPQ COMPUTED
002576,001161: 
002577,001162: 37,2001     4674               RPQFLBIT           =        BIT15                                 
002578,001163: 
002579,001164:                                                                                                  #                        BIT 14 FLAG 8
002580,001165:                                                                                                  #                =       121D
002581,001166: 
002582,001167: 
002583,001168:                                                                                                  #                        BIT 13 FLAG 8
002584,001169: 37,2001                        NEWIFLG            =        122D                                  #  FIRST PASS THROUGH  SUCCEEDING ITERATION
002585,001170:                                                                                                  #  INTEGRATION         OF INTEGRATION
002586,001171: 
002587,001172: 37,2001     4676               NEWIBIT            =        BIT13                                 
002588,001173: 
002589,001174:                                                                                                  #                        BIT 12 FLAG 8
002590,001175: 37,2001                        CMOONFLG           =        123D                                  #  PERMANENT CSM STATE PERMANENT CSM STATE
002591,001176: 37,2001     4677               CMOONBIT           =        BIT12                                 #  IN LUNAR SPHERE     IN EARTH SPHERE
002592,001177: 

Page 59

002594,001179:                                                                                                  #                        BIT 11 FLAG 8
002595,001180: 37,2001                        LMOONFLG           =        124D                                  #  PERMANENT LM  STATE PERMANENT LM STATE
002596,001181: 37,2001     4700               LMOONBIT           =        BIT11                                 #  IN LUNAR SPHERE     IN EARTH SHPERE
002597,001182: 
002598,001183:                                                                                                  #                        BIT 10 FLAG 8
002599,001184: 37,2001                        ADVTRK             =        125D                                  #  ADVANCE GROUND TRACK NOT ADVANCED
002600,001185:                                                                                                  #  SIGHTING WANTED      GROUND TRACK
002601,001186: 
002602,001187: 37,2001     4701               ADVTKBIT           =        BIT10                                 
002603,001188: 
002604,001189:                                                                                                  #                        BIT 9 FLAG 8
002605,001190: 37,2001                        P39/79SW           =        126D                                  #  P39/79 OPERATING     P38/78 OPERATING
002606,001191: 
002607,001192: 37,2001     4702               P39SWBIT           =        BIT9                                  
002608,001193: 
002609,001194:                                                                                                  #                        BIT 8 FLAG 8
002610,001195: 37,2001                        SURFFLAG           =        127D                                  #  LM ON LUNAR SURFACE LM NOT ON LUNAR 
002611,001196:                                                                                                  #                      SURFACE
002612,001197: 
002613,001198: 37,2001     4703               SURFFBIT           =        BIT8                                  
002614,001199: 
002615,001200:                                                                                                  #                        BIT 7 FLAG 8
002616,001201: 37,2001                        INFINFLG           =        128D                                  #  NO CONIC SOLUTION   CONIC SOLUTION
002617,001202:                                                                                                  #  (CLOSURE THROUGH    EXISTS.
002618,001203:                                                                                                  #  INFINITY REQUIRED).
002619,001204: 
002620,001205: 
002621,001206: 37,2001     4704               INFINBIT           =        BIT7                                  
002622,001207: 
002623,001208:                                                                                                  #                        BIT 6 FLAG 8
002624,001209: 37,2001                        ORDERSW            =        129D                                  #  ITERATOR USES 2ND   ITERATOR USES 1ST
002625,001210:                                                                                                  #  ORDER MINIMUM MODE. ORDER STANDARD MODE.
002626,001211: 
002627,001212: 
002628,001213: 37,2001     4705               ORDERBIT           =        BIT6                                  
002629,001214: 
002630,001215:                                                                                                  #                        BIT 5 FLAG 8
002631,001216: 37,2001                        APSESW             =        130D                                  #  RDESIRED OUTSIDE    RDESIRED INSIDE
002632,001217:                                                                                                  #  PERICENTER-APOCENTER PERICENTER-APOCENTE
002633,001218:                                                                                                  #  RANGE IN TIME-RAD   RANGE IN TIME-RADIUS
002634,001219: 
002635,001220: 
002636,001221: 37,2001     4706               APSESBIT           =        BIT5                                  
002637,001222: 
002638,001223:                                                                                                  #                        BIT 4 FLAG 8
002639,001224: 37,2001                        COGAFLAG           =        131D                                  #  NO CONIC  SOLUTION  CONIC SOLUTION
002640,001225:                                                                                                  #  TOO CLOSE TO        EXISTS (COGA DOES
002641,001226:                                                                                                  #  RECTILINEAR (COGA   NOT  OVERFLOW).
002642,001227:                                                                                                  #  OVERFLOWS).
002643,001228: 

Page 60

002645,001230: 37,2001     4707               COGAFBIT           =        BIT4                                  
002646,001231: 
002647,001232:                                                                                                  #                        BIT 3 FLAG 8
002648,001233:                                                                                                  #                =       132D
002649,001234: 
002650,001235:                                                                                                  #                        BIT 2 FLAG 8
002651,001236:                                                                                                  #                =       133D
002652,001237: 
002653,001238:                                                                                                  #                        BIT 1 FLAG 8
002654,001239: 37,2001                        360SW              =        134D                                  #  TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
002655,001240:                                                                                                  #  360 DEGREES         NEAR 360 DEGREES
002656,001241: 
002657,001242: 37,2001     4712               360SWBIT           =        BIT1                                  
002658,001243: 
002659,001244: 37,2001     0105               FLAGWRD9           =        STATE      +9D                        #  (135-149)
002660,001245: 
002661,001246:                                                                                                  #  (SET)               (RESET)
002662,001247:                                                                                                  #                        BIT 15 FLAG 9
002663,001248: 37,2001                        SWTOVER            =        135D                                  #  SWITCHOVER HAS      NO SWITCHOVER YET
002664,001249:                                                                                                  #  OCCURRED
002665,001250: 
002666,001251: 37,2001     4674               SWTOVBIT           =        BIT15                                 
002667,001252: 
002668,001253:                                                                                                  #                        BIT 14 FLAG 9
002669,001254: 37,2001                        V67FLAG            =        136D                                  #  ASTRONAUT OVERWRITES ASTRONAUT DOES NOT
002670,001255:                                                                                                  #  W MATRIX INITIAL    OVERWRITE INITIAL
002671,001256:                                                                                                  #  VALUES              VALUES
002672,001257: 
002673,001258: 37,2001     4675               V67FLBIT           =        BIT14                                 
002674,001259: 
002675,001260:                                                                                                  #                        BIT 13 FLAG 9
002676,001261: 37,2001                        V82EMFLG           =        137D                                  #  MOON VICINITY       EARTH VICINITY
002677,001262: 
002678,001263: 
002679,001264: 
002680,001265: 37,2001     4676               V82EMBIT           =        BIT13                                 
002681,001266: 
002682,001267:                                                                                                  #                        BIT 12 FLAG 9
002683,001268: 37,2001                        MAXDBFLG           =        138D                                  #  MAX DB SELECTED     MIN DB SELECTED
002684,001269: 
002685,001270: 37,2001     4677               MAXDBBIT           =        BIT12                                 
002686,001271: 
002687,001272:                                                                                                  #                        BIT 11 FLAG 9
002688,001273: 37,2001                        V94FLAG            =        139D                                  #  V94 ALLOWED DURING  V94 NOT ALLOWED
002689,001274:                                                                                                  #  P23
002690,001275: 
002691,001276: 37,2001     4700               V94FLBIT           =        BIT11                                 
002692,001277: 

Page 61

002694,001279:                                                                                                  #                        BIT 10 FLAG 9
002695,001280: 37,2001                        SAVECFLG           =        140D                                  #  P23 DISPLAY AND     P23 DISPLAY AND
002696,001281:                                                                                                  #  DATA STORAGE AFTER  DATA STORAGE BEFORE
002697,001282:                                                                                                  #  MARK IS DONE        MARK IS DONE
002698,001283: 
002699,001284: 37,2001     4701               SAVECBIT           =        BIT10                                 
002700,001285: 
002701,001286:                                                                                                  #                        BIT  9 FLAG 9
002702,001287: 37,2001                        VHFRFLAG           =        141D                                  #  ALLOW R22 TO        STOP ACCEPTANCE
002703,001288:                                                                                                  #  ACCEPT RANGE        OF RANGE DATA
002704,001289:                                                                                                  #  DATA
002705,001290: 
002706,001291: 37,2001     4702               VHFRBIT            =        BIT9                                  
002707,001292: 
002708,001293:                                                                                                  #                        BIT  8 FLAG 9
002709,001294: 37,2001                        SOURCFLG           =        142D                                  #  SOURCE OF INPUT     SOURCE OF INPUT
002710,001295:                                                                                                  #  DATA IS FROM        DATA IS FROM
002711,001296:                                                                                                  #  VHF RADAR           OPTICS MARK
002712,001297: 
002713,001298: 37,2001     4703               SOURCBIT           =        BIT8                                  
002714,001299: 
002715,001300:                                                                                                  #                        BIT  7 FLAG 9
002716,001301: 37,2001                        R22CAFLG           =        143D                                  #  R-22 CALCULATIONS   R-22 CALCULATIONS
002717,001302:                                                                                                  #  ARE GOING ON        ARE NOT GOING ON
002718,001303: 
002719,001304: 37,2001     4704               R22CABIT           =        BIT7                                  
002720,001305: 
002721,001306:                                                                                                  #                        BIT  6 FLAG 9
002722,001307: 37,2001                        N22ORN17           =        144D                                  #  COMPUTE TOTAL       COMPUTE TOTAL
002723,001308:                                                                                                  #  ATTITUDE ERRORS     ATTITUDE ERRORS
002724,001309:                                                                                                  #  WRT N22 (V62)       WRT N17 (V63)
002725,001310: 
002726,001311: 37,2001     4705               N2217BIT           =        BIT6                                  
002727,001312: 
002728,001313:                                                                                                  #                        BIT  5 FLAG 9
002729,001314: 37,2001                        QUITFLAG           =        145D                                  
002730,001315: 
002731,001316: 37,2001     4706               QUITBIT            =        BIT5                                  
002732,001317: 
002733,001318:                                                                                                  #                        BIT  4 FLAG 9
002734,001319: 37,2001                        R31FLAG            =        146D                                  #  R31 SELECTED (V83)  R34 SELECTED (V85)
002735,001320: 
002736,001321: 37,2001     4707               R31FLBIT           =        BIT4                                  
002737,001322: 
002738,001323:                                                                                                  #                        BIT  3 FLAG 9
002739,001324: 37,2001                        MID1FLAG           =        147D                                  #  INTEGRATE TO TDEC   INTEGRATE TO THE
002740,001325:                                                                                                  #                      THEN-PRESENT TIME
002741,001326: 
002742,001327: 37,2001     4710               MID1FBIT           =        BIT3                                  
002743,001328: 

Page 62

002745,001330:                                                                                                  #                        BIT  2 FLAG 9
002746,001331: 37,2001                        MIDAVFLG           =        148D                                  #  INTEGRATION ENTERED INTEGRATION WAS
002747,001332:                                                                                                  #  FROM ONE OF MIDTOAV NOT ENTERED VIA
002748,001333:                                                                                                  #   PORTALS            MIDTOAV
002749,001334: 
002750,001335: 37,2001     4711               MIDAVBIT           =        BIT2                                  
002751,001336: 
002752,001337:                                                                                                  #                        BIT  1 FLAG 9
002753,001338: 37,2001                        AVEMIDSW           =        149D                                  #  AVETOMID CALLING    NO AVETOMID W INTEGR
002754,001339:                                                                                                  #  FOR W.MATRIX INTEGR ALLOW SET UP RN,VN,
002755,001340:                                                                                                  #  DONT WRITE OVER RN, PIPTIME
002756,001341:                                                                                                  #  VN,PIPTIME
002757,001342: 
002758,001343: 37,2001     4712               AVEMDBIT           =        BIT1                                  
002759,001344: 
002760,001345:                                                                                                  #  (SET)               (RESET)
002761,001346: 
002762,001347: 37,2001     0106               FLGWRD10           =        STATE      +10D                       #  (150-164)
002763,001348: 
002764,001349: 
002765,001350: 
002766,001351: 37,2001     0106               RASFLAG            =        STATE      +10D                       
002767,001352: 
002768,001353: 
002769,001354:                                                                                                  #                        BIT 15 FLAG 10
002770,001355:                                                                                                  #                =       150D
002771,001356: 
002772,001357:                                                                                                  #                        BIT 14 FLAG 10
002773,001358: 37,2001                        INTFLAG            =        151D                                  #  INTEGRATION IN      INTEGRATION NOT IN
002774,001359:                                                                                                  #  PROGRESS            PROGRESS
002775,001360: 
002776,001361: 37,2001     4675               INTFLBIT           =        BIT14                                 
002777,001362: 
002778,001363:                                                                                                  #                        BIT 13 FLAG 10
002779,001364:                                                                                                  #                =       152D
002780,001365: 
002781,001366: 
002782,001367:                                                                                                  #                        BIT 12 FLAG 10
002783,001368:                                                                                                  #                =       153D
002784,001369: 
002785,001370:                                                                                                  #                        BIT 11 FLAG 10
002786,001371:                                                                                                  #                =       154D
002787,001372: 
002788,001373:                                                                                                  #                        BIT 10 FLAG 10
002789,001374:                                                                                                  #                =       155D
002790,001375: 
002791,001376: 
002792,001377:                                                                                                  #                        BIT  9 FLAG 10
002793,001378:                                                                                                  #                =       156D
002794,001379: 

Page 63

002796,001381:                                                                                                  #                        BIT  8 FLAG 10
002797,001382:                                                                                                  #                =       157D
002798,001383: 
002799,001384: 
002800,001385:                                                                                                  #                        BIT  7 FLAG 10
002801,001386: 37,2001                        REINTFLG           =        158D                                  #  INTEGRATION ROUTINE INTEGRATION ROUTINE
002802,001387:                                                                                                  #  TO BE RESTARTED     NOT TO BE RESTARTED
002803,001388: 37,2001     4704               REINTBIT           =        BIT7                                  
002804,001389: 
002805,001390:                                                                                                  #                        BIT  6 FLAG 10
002806,001391:                                                                                                  #                =       159D
002807,001392: 
002808,001393: 
002809,001394:                                                                                                  #                        BIT  5 FLAG 10
002810,001395:                                                                                                  #                =       160D
002811,001396: 
002812,001397: 
002813,001398:                                                                                                  #                        BIT  4 FLAG 10
002814,001399:                                                                                                  #                =       161D
002815,001400: 
002816,001401: 
002817,001402:                                                                                                  #                        BIT  3 FLAG 10
002818,001403:                                                                                                  #                =       162D
002819,001404: 
002820,001405: 
002821,001406:                                                                                                  #                        BIT  2 FLAG 10
002822,001407:                                                                                                  #                =       163D
002823,001408: 
002824,001409: 
002825,001410:                                                                                                  #                        BIT  1 FLAG 10
002826,001411:                                                                                                  #                =       164D
002827,001412: 
002828,001413: 
002829,001414: 
002830,001415: 
002831,001416: 
002832,001417: 37,2001     0107               FLGWRD11           =        STATE      +11D                       #  (165-179)
002833,001418: 
002834,001419:                                                                                                  #  (SET)               (RESET)
002835,001420: 
002836,001421:                                                                                                  #                        BIT 15 FLAG 11
002837,001422:                                                                                                  #                =       165D
002838,001423: 
002839,001424: 
002840,001425:                                                                                                  #                        BIT 14 FLAG 11
002841,001426:                                                                                                  #                =       166D
002842,001427: 
002843,001428: 
002844,001429:                                                                                                  #                        BIT 13 FLAG 11
002845,001430:                                                                                                  #                =       167D
002846,001431: 
002847,001432: 

Page 64

002849,001434:                                                                                                  #                        BIT 12 FLAG 11
002850,001435:                                                                                                  #                =       168D
002851,001436: 
002852,001437: 
002853,001438:                                                                                                  #                        BIT 11 FLAG 11
002854,001439:                                                                                                  #                =       169D
002855,001440: 
002856,001441: 
002857,001442:                                                                                                  #                        BIT 10 FLAG 11
002858,001443:                                                                                                  #                =       170D
002859,001444: 
002860,001445: 
002861,001446:                                                                                                  #                        BIT  9 FLAG 11
002862,001447:                                                                                                  #                =       171D
002863,001448: 
002864,001449: 
002865,001450:                                                                                                  #                        BIT  8 FLAG 11
002866,001451:                                                                                                  #                =       172D
002867,001452: 
002868,001453: 
002869,001454:                                                                                                  #                        BIT  7 FLAG 11
002870,001455:                                                                                                  #                =       173D
002871,001456: 
002872,001457: 
002873,001458:                                                                                                  #                        BIT  6 FLAG 11
002874,001459:                                                                                                  #                =       174D
002875,001460: 
002876,001461: 
002877,001462:                                                                                                  #                        BIT  5 FLAG 11
002878,001463:                                                                                                  #                =       175D
002879,001464: 
002880,001465: 
002881,001466:                                                                                                  #                        BIT  4 FLAG 11
002882,001467:                                                                                                  #                =       176D
002883,001468: 
002884,001469: 
002885,001470:                                                                                                  #                        BIT  3 FLAG 11
002886,001471:                                                                                                  #                =       177D
002887,001472: 
002888,001473: 
002889,001474:                                                                                                  #                        BIT  2 FLAG 11
002890,001475:                                                                                                  #                =       178D
002891,001476: 
002892,001477: 
002893,001478:                                                                                                  #                        BIT  1 FLAG 11
002894,001479:                                                                                                  #                =       179D
002895,001480: 
002896,001481: 
002897,001482: 

Page 65

002899,001484: 
002900,001485:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
002901,001486: 
002902,001487:    0061                                           SETLOC   61                                    
002903,001488:                                                                                                  #           INTERRUPT TEMPORARY STORAGE POOL.  (11D)
002904,001489:                                                                                                  #             (ITEMP1 THROUGH RUPTREG4)          
002905,001490: 
002906,001491:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
002907,001492:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
002908,001493: 
002909,001494:    0061                        ITEMP1             ERASE                                          
002910,001495:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
002911,001496:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
002912,001497: 
002913,001498:    0062                        ITEMP2             ERASE                                          
002914,001499:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
002915,001500:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
002916,001501: 
002917,001502:    0063                        ITEMP3             ERASE                                          
002918,001503:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
002919,001504:    0064     0063               WAITADR            EQUALS   ITEMP3                                
002920,001505:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
002921,001506: 
002922,001507:    0064                        ITEMP4             ERASE                                          
002923,001508:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
002924,001509:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
002925,001510: 
002926,001511:    0065                        ITEMP5             ERASE                                          
002927,001512:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
002928,001513: 
002929,001514:    0066                        ITEMP6             ERASE                                          
002930,001515:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
002931,001516: 
002932,001517:    0067                                           SETLOC   67                                    
002933,001518:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
002934,001519: 
002935,001520:    0070                        RUPTREG1           ERASE                                          
002936,001521:    0071                        RUPTREG2           ERASE                                          
002937,001522:    0072                        RUPTREG3           ERASE                                          
002938,001523:    0073                        RUPTREG4           ERASE                                          
002939,001524:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
002940,001525:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
002941,001526: 
002942,001527:                                                                                                  #           FLAGWORD RESERVATIONS.                                        (12D)
002943,001528: 
002944,001529:    0074                        STATE              ERASE    +11D                                  
002945,001530: 
002946,001531:    0110                        FLAGFILL           ERASE    +3                                    #  SPACE FOR FUTURE FLAGS
002947,001532: 

Page 66

002949,001534: 
002950,001535:                                                                                                  #           EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. 
002951,001536:                                                                                                  #           (INTB15+ THROUGH RUPTMXM)                                     (32D)
002952,001537: 
002953,001538:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
002954,001539:    0115     0114               DSEXIT             EQUALS   INTB15+                               #  RETURN FOR DSPIN
002955,001540:    0115     0114               EXITEM             EQUALS   INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
002956,001541:    0115     0114               BLANKRET           EQUALS   INTB15+                               #  RETURN FOR 2BLANK
002957,001542: 
002958,001543:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
002959,001544:    0116     0115               WRDRET             EQUALS   INTBIT15                              #  RETURN FOR 5BLANK
002960,001545:    0116     0115               WDRET              EQUALS   INTBIT15                              #  RETURN FOR DSPWD
002961,001546:    0116     0115               DECRET             EQUALS   INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
002962,001547:    0116     0115               21/22REG           EQUALS   INTBIT15                              #  TEMP FOR CHARIN
002963,001548: 
002964,001549:                                                                                                  #           THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
002965,001550: 
002966,001551:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
002967,001552:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
002968,001553:    0120     0117               UPDATRET           EQUALS   POLISH                                #  RETURN FOR UPDATNN, UPDATVB
002969,001554:    0120     0117               CHAR               EQUALS   POLISH                                #  TEMP FOR CHARIN
002970,001555:    0120     0117               ERCNT              EQUALS   POLISH                                #  COUNTER FOR ERROR LIGHT RESET
002971,001556:    0120     0117               DECOUNT            EQUALS   POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
002972,001557: 
002973,001558:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
002974,001559:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
002975,001560: 
002976,001561:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
002977,001562:    0130     0122               SGNON              EQUALS   VBUF                                  #  TEMP FOR +,- ON
002978,001563:    0130     0122               NOUNTEM            EQUALS   VBUF                                  #  COUNTER FOR MIXNOUN FETCH
002979,001564:    0130     0122               DISTEM             EQUALS   VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
002980,001565:    0130     0122               DECTEM             EQUALS   VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
002981,001566: 
002982,001567:    0130     0123               SGNOFF             EQUALS   VBUF       +1                         #  TEMP FOR +,- ON
002983,001568:    0130     0123               NVTEMP             EQUALS   VBUF       +1                         #  TEMP FOR NVSUB
002984,001569:    0130     0123               SFTEMP1            EQUALS   VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
002985,001570:    0130     0123               HITEMIN            EQUALS   VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
002986,001571:                                                                                                  #           MUST = LOTEMIN-1.
002987,001572:    0130     0124               CODE               EQUALS   VBUF       +2                         #  FOR DSPIN
002988,001573:    0130     0124               SFTEMP2            EQUALS   VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
002989,001574:    0130     0124               LOTEMIN            EQUALS   VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
002990,001575:                                                                                                  #           MUST = HITEMIN+1.
002991,001576:    0130     0125               MIXTEMP            EQUALS   VBUF       +3                         #  FOR MIXNOUN DATA
002992,001577:    0130     0125               SIGNRET            EQUALS   VBUF       +3                         #  RETURN FOR +,- ON
002993,001578: 
002994,001579:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
002995,001580: 
002996,001581:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
002997,001582:    0133                        BUF2               ERASE    +1                                    
002998,001583:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
002999,001584:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.

Page 67

003001,001586:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
003002,001587:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
003003,001588:    0136     0135               DMPNTEMP           EQUALS   MPTEMP                                #  DMPSUB TEMPORARY
003004,001589:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
003005,001590:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
003006,001591:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
003007,001592:    0137     0136               ENTRET             EQUALS   DOTINC                                #  EXIT FROM ENTER
003008,001593: 
003009,001594:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
003010,001595:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
003011,001596:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
003012,001597:    0140     0137               WDCNT              EQUALS   DOTRET                                #  CHAR COUNTER FOR DSPWD
003013,001598:    0140     0137               INREL              EQUALS   DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
003014,001599: 
003015,001600:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
003016,001601:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003017,001602:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
003018,001603:    0141     0140               DSPMMTEM           EQUALS   MATINC                                #  DSPCOUNT SAVE FOR DSPMM
003019,001604:    0141     0140               MIXBR              EQUALS   MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
003020,001605: 
003021,001606:    0141                        TEM1               ERASE                                          #  EXEC TEMP
003022,001607:    0142     0141               POLYRET            EQUALS   TEM1                                  
003023,001608:    0142     0141               DSREL              EQUALS   TEM1                                  #  REL ADDRESS FOR DSPIN
003024,001609: 
003025,001610:    0142                        TEM2               ERASE                                          #  EXEC TEMP
003026,001611:    0143     0142               DSMAG              EQUALS   TEM2                                  #  MAGNITUDE STORE FOR DSPIN
003027,001612:    0143     0142               IDADDTEM           EQUALS   TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
003028,001613: 
003029,001614:    0143                        TEM3               ERASE                                          #  EXEC TEMP
003030,001615:    0144     0143               COUNT              EQUALS   TEM3                                  #  FOR DSPIN
003031,001616: 
003032,001617:    0144                        TEM4               ERASE                                          #  EXEC TEMP
003033,001618:    0145     0144               LSTPTR             EQUALS   TEM4                                  #  LIST POINTER FOR GRABUSY
003034,001619:    0145     0144               RELRET             EQUALS   TEM4                                  #  RETURN FOR RELDSP
003035,001620:    0145     0144               FREERET            EQUALS   TEM4                                  #  RETURN FOR FREEDSP
003036,001621:    0145     0144               DSPWDRET           EQUALS   TEM4                                  #  RETURN FOR DSPSIGN
003037,001622:    0145     0144               SEPSCRET           EQUALS   TEM4                                  #  RETURN FOR SEPSEC
003038,001623:    0145     0144               SEPMNRET           EQUALS   TEM4                                  #  RETURN FOR SEPMIN
003039,001624: 
003040,001625:    0145                        TEM5               ERASE                                          #  EXEC TEMP
003041,001626:    0146     0145               NOUNADD            EQUALS   TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
003042,001627: 
003043,001628:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
003044,001629:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
003045,001630:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003046,001631:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
003047,001632:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003048,001633:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
003049,001634:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003050,001635:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.

Page 68

003052,001637:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
003053,001638: 
003054,001639:                                                                                                  #           AX*SR*T STORAGE.             (6D)
003055,001640: 
003056,001641:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP
003057,001642:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
003058,001643:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
003059,001644:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
003060,001645:    0154     0133               TERM1TMP           EQUALS   BUF2                                  #  B(2)TMP
003061,001646: 
003062,001647:    0154     0143               DEXI               =        DEX1                                  
003063,001648: 

Page 69

003065,001650: 
003066,001651:                                                                                                  #           DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                      (84D)
003067,001652: 
003068,001653:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
003069,001654:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003070,001655:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
003071,001656:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
003072,001657:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
003073,001658:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
003074,001659: 
003075,001660:    0170                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
003076,001661: 
003077,001662:                                                                                                  #           SPECIAL DOWNLINK BUFFER.-OVERLAYED BY P27 STORAGE-
003078,001663: 
003079,001664:                                                                                                  #           P27 (UPDATE PROGRAM) STORAGE. -OVERLAYS SPEC DNLNK BUFF-       (24D)         
003080,001665: 
003081,001666:    0300                        COMPNUMB           ERASE    +23D                                  #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
003082,001667:    0330     0301               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
003083,001668:    0330     0302               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1) TMP VERB NUMBER
003084,001669:    0330     0303               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
003085,001670:    0330     0304               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
003086,001671: 
003087,001672:                                                                                                  #           MORE P27 STORAGE.                                              (2D)
003088,001673: 
003089,001674:    0330                        UPTEMP             ERASE                                          #  B(1)TMP SCRATCH
003090,001675:    0331                        UPVERBSV           ERASE                                          #  B(1)TMP
003091,001676:    0332     0330               INTWAK1Q           EQUALS   UPTEMP                                #  (06D)
003092,001677: 
003093,001678: 
003094,001679:                                                                                                  #           (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.)
003095,001680: 
003096,001681:                                                                                                  #                                                        THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP.
003097,001682: 
003098,001683:    0332     0304               CMTMTIME           =        UPBUFF                                #  B(1) (VEHICLE BODY RATE INFO IS
003099,001684:    0332     0305               SW/NDX             =        CMTMTIME   +1                         #  B(1)  TELEMETERED EACH 0.2 SEC. DURING
003100,001685:    0332     0324               ENDBUF             =        CMTMTIME   +16D                       #  B(1)  ENTRY.)
003101,001686: 
003102,001687:    0332     0325               V1                 =        ENDBUF     +1                         #  I(2) REENTRY, P64-P65
003103,001688:    0332     0327               A0                 =        V1         +2                         #  I(2) REENTRY, P64-P65
003104,001689:                                                                                                  #  HI-ORDER WORD ONLY ON DNLNK.
003105,001690: 
003106,001691: 
003107,001692:                                                                                                  #           ALIGNMENT STORAGE.                                             (5D)
003108,001693:                                                                                                  #           (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)
003109,001694: 
003110,001695:    0332     0300               QMAJ               EQUALS   COMPNUMB                              #  B(1)TMP
003111,001696:    0332     0301               MARKINDX           EQUALS   QMAJ       +1                         #  B(1)TMP
003112,001697:    0332     0302               BESTI              EQUALS   MARKINDX   +1                         #  I(1)TMP
003113,001698:    0332     0303               BESTJ              EQUALS   BESTI      +1                         #  I(1)TMP
003114,001699:    0332     0304               STARIND            EQUALS   BESTJ      +1                         #  I(1)TMP
003115,001700: 

Page 70

003117,001702: 
003118,001703:                                                                                                  #           ALIGNMENT/S40.2,3 COMMON STORAGE.    (18D)
003119,001704: 
003120,001705:    0332     0306               XSMD               EQUALS   UPBUFF     +2                         #  I(6)TMP
003121,001706:    0332     0314               YSMD               EQUALS   XSMD       +6                         #  I(6)TMP
003122,001707:    0332     0322               ZSMD               EQUALS   YSMD       +6                         #  I(6)TMP
003123,001708: 
003124,001709:    0332     0306               XSCREF             =        XSMD                                  #  SPACE CRAFT AXES IN REF COORDS.
003125,001710:    0332     0314               YSCREF             =        YSMD                                  
003126,001711:    0332     0322               ZSCREF             =        ZSMD                                  
003127,001712: 
003128,001713: 
003129,001714:    0332                        ZPRIME             =        22D                                   
003130,001715:    0332                        PDA                =        22D                                   
003131,001716:    0332                        COSTH              =        16D                                   
003132,001717:    0332                        SINTH              =        18D                                   
003133,001718:    0332                        THETA              =        20D                                   
003134,001719:    0332                        STARM              =        32D                                   
003135,001720: 
003136,001721: 
003137,001722:                                                                                                  #           DOWNLINK STORAGE.            (18)
003138,001723: 
003139,001724:    0332     0332               DNLSTADR           EQUALS   DNLSTCOD                              #  CONTENTS NO LONGER AN ADDR BUT A CODE
003140,001725: 
003141,001726:    0332                        DNLSTCOD           ERASE                                          #  B(1)PRM ID CODE OF DOWNLIST
003142,001727:    0333                        DUMPCNT            ERASE                                          #  B(1)PRM
003143,001728:    0334                        LDATALST           ERASE                                          #  B(1)
003144,001729:    0335                        DNTMGOTO           ERASE                                          #  B(1)
003145,001730:    0336                        TMINDEX            ERASE                                          #  B(1)
003146,001731:    0337     0336               DUMPLOC            EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
003147,001732:                                                                                                  #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
003148,001733:                                                                                                  #  ENT.
003149,001734:    0337                        DNQ                ERASE                                          #  B(1)
003150,001735:    0340                        DNTMBUFF           ERASE    +11D                                  #  B(12) PRM DOWNLINK SNAPSHOT BUFFER
003151,001736: 
003152,001737: 
003153,001738: 
003154,001739:                                                                                                  #            OPTICS MARKING . UNSHARED.  (8D)
003155,001740: 
003156,001741:    0354                        MKNDX              ERASE                                          
003157,001742:    0355                        MKT2T1             ERASE    +1                                    
003158,001743:    0357                        MKCDUY             ERASE                                          
003159,001744:    0360                        MKCDUS             ERASE                                          
003160,001745:    0361                        MKCDUZ             ERASE                                          
003161,001746:    0362                        MKCDUT             ERASE                                          
003162,001747:    0363                        MKCDUX             ERASE                                          
003163,001748:                                                                                                  #           FOR EXCLUSIVE USE OF SYS TEST STANDARD LEAD INS (2)
003164,001749: 
003165,001750:    0364                        EBUF2              ERASE    +1                                    #  B(2) UNSHARED
003166,001751: 

Page 71

003168,001753: 
003169,001754:                                                                                                  #           UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                     (10D)
003170,001755: 
003171,001756:    0366                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
003172,001757:    0367                        NVWORD             ERASE                                          
003173,001758:    0370                        MARKNV             ERASE                                          
003174,001759:    0371                        NVSAVE             ERASE                                          
003175,001760:                                                                                                  #                  (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003176,001761:    0372                        CADRFLSH           ERASE                                          #  B(1)TMP
003177,001762:    0373                        CADRMARK           ERASE                                          #  B(1)TMP
003178,001763:    0374                        TEMPFLSH           ERASE                                          #  B(1)TMP
003179,001764:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM  3 ALARM-ABORT USER'S 2CADR
003180,001765: 
003181,001766:    0400                                           SETLOC   400                                   
003182,001767:                                                                                                  #           VAC AREAS. -BE CAREFUL OF PLACEMENT-                           (220D)
003183,001768: 
003184,001769:    0400                        VAC1USE            ERASE                                          #  B(1)PRM
003185,001770:    0401                        VAC1               ERASE    +42D                                  #  B(43)PRM
003186,001771:    0454                        VAC2USE            ERASE                                          #  B(1)PRM
003187,001772:    0455                        VAC2               ERASE    +42D                                  #  B(43)PRM
003188,001773:    0530                        VAC3USE            ERASE                                          #  B(1)PRM
003189,001774:    0531                        VAC3               ERASE    +42D                                  #  B(43)PRM
003190,001775:    0604                        VAC4USE            ERASE                                          #  B(1)PRM
003191,001776:    0605                        VAC4               ERASE    +42D                                  #  B(43)PRM
003192,001777:    0660                        VAC5USE            ERASE                                          #  B(1)PRM
003193,001778:    0661                        VAC5               ERASE    +42D                                  #  B(43)PRM
003194,001779: 
003195,001780: 
003196,001781:                                                                                                  #           WAITLIST REPEAT FLAG.                                          (1D)
003197,001782:    0734                        RUPTAGN            ERASE                                          #  B(1)PRM
003198,001783:    0735     0734               KEYTEMP2           =        RUPTAGN                               
003199,001784: 
003200,001785: 
003201,001786:                                                                                                  #           STARALIGN ERASABLES.                                           (13D)
003202,001787: 
003203,001788:    0735                        STARCODE           ERASE                                          #  B(1)DSP NOUN 70 FOR P22,51 AND R52,53.
003204,001789:    0736                        STARALGN           ERASE    +11D                                  
003205,001790:    0752     0736               SINCDU             =        STARALGN                              
003206,001791:    0752     0744               COSCDU             =        STARALGN   +6                         
003207,001792: 
003208,001793:    0752     0742               SINCDUX            =        SINCDU     +4                         
003209,001794:    0752     0736               SINCDUY            =        SINCDU                                
003210,001795:    0752     0740               SINCDUZ            =        SINCDU     +2                         
003211,001796:    0752     0750               COSCDUX            =        COSCDU     +4                         
003212,001797:    0752     0744               COSCDUY            =        COSCDU                                
003213,001798:    0752     0746               COSCDUZ            =        COSCDU     +2                         
003214,001799: 
003215,001800:                                                                                                  #           PHASE TABLE AND RESTART COUNTERS.                              (12D)

Page 72

003217,001802: 
003218,001803:    0752                        -PHASE1            ERASE                                          #  B(1)PRM
003219,001804:    0753                        PHASE1             ERASE                                          #  B(1)PRM
003220,001805:    0754                        -PHASE2            ERASE                                          #  B(1)PRM
003221,001806:    0755                        PHASE2             ERASE                                          #  B(1)PRM
003222,001807:    0756                        -PHASE3            ERASE                                          #  B(1)PRM
003223,001808:    0757                        PHASE3             ERASE                                          #  B(1)PRM
003224,001809:    0760                        -PHASE4            ERASE                                          #  B(1)PRM
003225,001810:    0761                        PHASE4             ERASE                                          #  B(1)PRM
003226,001811:    0762                        -PHASE5            ERASE                                          #  B(1)PRM
003227,001812:    0763                        PHASE5             ERASE                                          #  B(1)PRM
003228,001813:    0764                        -PHASE6            ERASE                                          #  B(1)PRM
003229,001814:    0765                        PHASE6             ERASE                                          #  B(1)PRM
003230,001815: 
003231,001816: 
003232,001817:                                                                                                  #           AX*SR*T STORAGE.                                               (6D)
003233,001818: 
003234,001819:    0766                        CDUSPOT            ERASE    +5                                    #  B(6)
003235,001820: 
003236,001821:    0774     0766               CDUSPOTY           =        CDUSPOT                               
003237,001822:    0774     0770               CDUSPOTZ           =        CDUSPOT    +2                         
003238,001823:    0774     0772               CDUSPOTX           =        CDUSPOT    +4                         
003239,001824: 
003240,001825: 
003241,001826:                                                                                                  #           VERB 37 STORAGE.                                               (2D)
003242,001827: 
003243,001828:    0774                        MINDEX             ERASE                                          #  B(1)TMP  INDEX FOR MAJOR MODE
003244,001829:    0775                        MMNUMBER           ERASE                                          #  B(1)TMP  MAJOR MODE REQUESTED VIA V37
003245,001830: 
003246,001831: 
003247,001832:                                                                                                  #           PINBALL INTERRUPT STORAGE.                                     (1D)
003248,001833: 
003249,001834:    0776                        DSPCNT             ERASE                                          #  B(1)PRM DSPOUT COUNTER
003250,001835: 
003251,001836: 
003252,001837:                                                                                                  #           PINBALL EXECUTIVE ACTION.                                      (44D)
003253,001838: 
003254,001839:    0777                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
003255,001840:    1000                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
003256,001841:    1001                        VERBREG            ERASE                                          #  VERB CODE
003257,001842:    1002                        NOUNREG            ERASE                                          #  NOUN CODE
003258,001843:    1003                        XREG               ERASE                                          #  R1 INPUT BUFFER
003259,001844:    1004                        YREG               ERASE                                          #  R2 INPUT BUFFER
003260,001845:    1005                        ZREG               ERASE                                          #  R3 INPUT BUFFER
003261,001846:    1006                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
003262,001847:    1007                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
003263,001848:    1010     1007               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003264,001849:                                                                                                  #           MUST = LOTEMOUT-1.
003265,001850:    1010                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
003266,001851:    1011     1010               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS,MIN,SEC
003267,001852:                                                                                                  #           MUST = HITEMOUT+1.

Page 73

003269,001854:    1011                        MODREG             ERASE                                          #  MODE CODE
003270,001855:    1012                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
003271,001856:    1013                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
003272,001857:    1014                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
003273,001858:    1015                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
003274,001859:    1016                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
003275,001860:    1017                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
003276,001861:    1020                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
003277,001862:    1021                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) = MONSAVE +1
003278,001863:    1022                        MONSAVE2           ERASE                                          #  B(1)PRM NVMONOPT OPTIONS
003279,001864:    1023                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003280,001865:    1037                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
003281,001866:                                                                                                  #  MUST = NVBNKTEM-1
003282,001867:    1040                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
003283,001868:                                                                                                  #  MUST = NVQTEM+1
003284,001869:    1041                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
003285,001870:    1042                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
003286,001871:    1043                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
003287,001872:    1044                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
003288,001873:    1045                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003289,001874:    1050                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003290,001875: 
003291,001876: 
003292,001877:    1053     1051               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS.
003293,001878:    1053     1045               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
003294,001879: 
003295,001880: 
003296,001881: 
003297,001882:                                                                                                  #           DISPLAY FOR EXTENDED VERBS                                     (2D)
003298,001883: 
003299,001884:    1053     1051               OPTIONX            EQUALS   DSPTEMX                               #  B(2) EXTENDED VERB OPTION CODE  N12(V82)
003300,001885: 
003301,001886: 
003302,001887:                                                                                                  #           TBASE S AND PHSPRDT S.                                         (12D)
003303,001888: 
003304,001889:    1053                        TBASE1             ERASE                                          #  B(1)PRM
003305,001890:    1054                        PHSPRDT1           ERASE                                          #  B(1)PRM
003306,001891:    1055                        TBASE2             ERASE                                          #  B(1)PRM
003307,001892:    1056                        PHSPRDT2           ERASE                                          #  B(1)PRM
003308,001893:    1057                        TBASE3             ERASE                                          #  B(1)PRM
003309,001894:    1060                        PHSPRDT3           ERASE                                          #  B(1)PRM
003310,001895:    1061                        TBASE4             ERASE                                          #  B(1)PRM
003311,001896:    1062                        PHSPRDT4           ERASE                                          #  B(1)PRM
003312,001897:    1063                        TBASE5             ERASE                                          #  B(1)PRM
003313,001898:    1064                        PHSPRDT5           ERASE                                          #  B(1)PRM
003314,001899:    1065                        TBASE6             ERASE                                          #  B(1)PRM
003315,001900:    1066                        PHSPRDT6           ERASE                                          #  B(1)PRM
003316,001901: 
003317,001902: 
003318,001903:                                                                                                  #           MORE UNSWITCHED FOR DISPLAY INF                                (5D).

Page 74

003320,001905: 
003321,001906:    1067                        EBANKSAV           ERASE                                          
003322,001907:    1070                        MARKEBAN           ERASE                                          
003323,001908:    1071                        EBANKTEM           ERASE                                          
003324,001909:    1072                        MARK2PAC           ERASE                                          
003325,001910:    1073                        R1SAVE             ERASE                                          
003326,001911: 
003327,001912: 
003328,001913:                                                                                                  #           IMU COMPENSATION UNSWITCHED ERASABLE.                          (1D)
003329,001914: 
003330,001915:    1074                        1/PIPADT           ERASE                                          #  B(1)PRM
003331,001916:    1075     1074               OLDBT1             =        1/PIPADT                              
003332,001917: 
003333,001918:                                                                                                  #           SINGLE PRECISION SUBROUTINE TEMPORARIES.                       (3D)
003334,001919: 
003335,001920:                                                                                                  #                                                               SPSIN, SPCOS, SPROOT VARIABLES.
003336,001921:                                                                                                  #                                                               DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003337,001922:                                                                                                  #                                                               AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003338,001923:                                                                                                  #                                                               MATERIALIZE, THEN THIS CAN BE CHANGED.
003339,001924: 
003340,001925:    1075                        HALFY              ERASE                                          
003341,001926:    1076                        ROOTRET            ERASE                                          
003342,001927:    1077                        SQRARG             ERASE                                          
003343,001928:    1100     1075               TEMK               EQUALS   HALFY                                 
003344,001929:    1100     1076               SQ                 EQUALS   ROOTRET                               
003345,001930: 

Page 75

003347,001932: 
003348,001933:                                                                                                  #           UNSWITCHED FOR ORBIT INTEGRATION.                              (21D)
003349,001934: 
003350,001935:    1100                        TDEC               ERASE    +20D                                  #  I(2)
003351,001936:    1125     1102               COLREG             EQUALS   TDEC       +2                         #  I(1)
003352,001937:    1125     1103               LAT                EQUALS   COLREG     +1                         #  I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003353,001938:    1125     1103               LANDLAT            =        LAT                                   #          NOUN 89    FOR P22.
003354,001939:    1125     1105               LONG               EQUALS   LAT        +2                         #  I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003355,001940:    1125     1107               ALT                EQUALS   LONG       +2                         #  I(2)DSP NOUN 43    FOR P20,22,51 R52,53.
003356,001941:    1125     1111               YV                 EQUALS   ALT        +2                         #  I(6)
003357,001942:    1125     1117               ZV                 EQUALS   YV         +6                         #  I(6)
003358,001943: 
003359,001944: 
003360,001945: 
003361,001946:                                                                                                  #           MARK STORAGE.                                                  (2)
003362,001947: 
003363,001948:    1125                        VHFCNT             ERASE                                          #  B(1)PRM NO. OF VHF MARKS(P20(R22)).
003364,001949:    1126                        TRKMKCNT           ERASE                                          #  B(1)PRM NO. OF VHF MARKS (P20(R22)).
003365,001950: 
003366,001951:    1127     1126               MARKCTR            =        TRKMKCNT                              #  B(1) MARK COUNTER USED BY R32
003367,001952: 
003368,001953: 
003369,001954:                                                                                                  #           MISCELLANEOUS UNSWITCHED.                                      (16D)
003370,001955: 
003371,001956:    1127                        IRETURN1           ERASE                                          #  B(1)  RET ADDR USED BY MIDTOAV1 AND 2
003372,001957:                                                                                                  #  CALLED BY P40,P41,P42, P61,P62
003373,001958:    1130                        RATEINDX           ERASE                                          #   (1)    USED BY KALCMANU
003374,001959:    1131                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
003375,001960:    1132                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
003376,001961:    1133                        LONGCADR           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003377,001962:    1135                        LONGBASE           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003378,001963:    1137                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003379,001964:    1141                        DELAYLOC           ERASE    +3                                    
003380,001965:    1145                        NVWORD1            ERASE                                          #  B(1)
003381,001966:    1146                        TEMPR60            ERASE                                          #  B(1)
003382,001967:    1147                        PRIOTIME           ERASE                                          #  B(1)
003383,001968:    1150     1127               P30/RET            EQUALS   IRETURN1                              
003384,001969: 
003385,001970: 
003386,001971: 
003387,001972:                                                                                                  #           MISC.  INCLUDING RESTART COUNTER, GIMBAL ANGLE  SAVE  AND
003388,001973:                                                                                                  #           STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK)         (16D)
003389,001974: 
003390,001975:    1150                        TIME2SAV           ERASE    +1                                    #  B(2)TMP
003391,001976:    1152                        SCALSAVE           ERASE    +1                                    #  B(2)TMP
003392,001977:    1154                        REDOCTR            ERASE                                          #  B(1)PRM CONTAINS NUMBER OF RESTARTS.
003393,001978:    1155                        THETAD             ERASE    +2                                    #  B(3)PRM DESIRED GIM ANGLES FOR MANEUVER.
003394,001979:    1160     1155               CPHI               =        THETAD                                #          (OUTER)
003395,001980:    1160     1156               CTHETA             =        THETAD     +1                         #          (INNER)
003396,001981:    1160     1157               CPSI               =        THETAD     +2                         #          (MIDDLE)
003397,001982: 

Page 76

003399,001984: 
003400,001985:                                                                                                  #           ENTRY VARIABLES SHARED FOR TM.
003401,001986: 
003402,001987:    1160     1155               RDOTREF            =        THETAD                                #  I(2)    P65
003403,001988:    1160     1157               VREF               =        RDOTREF    +2                         #  I(2)    P65   HI-ORDER WORD ONLY DNLNK'D
003404,001989:    1160                        DESOPTT            ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003405,001990:    1161                        DESOPTS            ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003406,001991: 
003407,001992:    1162                        DELV               ERASE    +5                                    #  I(6)
003408,001993:    1170     1162               DELVX              =        DELV                                  
003409,001994:    1170     1164               DELVY              =        DELV       +2                         
003410,001995:    1170     1166               DELVZ              =        DELV       +4                         
003411,001996: 
003412,001997:                                                                                                  #           P20, CONICS   (SHARING WITH TIME 2 SAV AND SCAL SAV ONLY)      (3D)
003413,001998: 
003414,001999:    1170     1150               POINTEX            EQUALS   TIME2SAV                              #  I(1) POINT AXS EXIT
003415,002000:    1170     1151               VHFTIME            EQUALS   POINTEX    +1                         #  I(2) DOWNLINK OF VHF RANGE TIME +1M
003416,002001: 
003417,002002: 
003418,002003: 
003419,002004:                                                                                                  #           PERM STATE VECTORS FOR BOOST AND DOWNLINK -WHOLE MISSION-      (14D)
003420,002005: 
003421,002006:    1170                        RN                 ERASE    +5                                    #  B(6)PRM
003422,002007:    1176                        VN                 ERASE    +5                                    #  B(6)PRM
003423,002008:    1204                        PIPTIME            ERASE    +1                                    #  B(2)PRM (MUST BE FOLLOWED BY GDT/2)
003424,002009: 
003425,002010: 
003426,002011:                                                                                                  #           SERVICER STORAGE.                                              (45D)
003427,002012: 
003428,002013:                                                                                                  #           (SERVICER STORAGE AND P11 STORAGE IN UNSWITHCHED SHOULD NOT
003429,002014:                                                                                                  #           OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT
003430,002015:                                                                                                  #           EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE)
003431,002016: 
003432,002017:    1206     1206               GDT/2              EQUALS   PIPTIME    +2                         #  B(6)TMP (MUST FOLLOW PIPTIME)
003433,002018:    1206     1214               GOBL/2             EQUALS   GDT/2      +6                         #  B(6)TMP
003434,002019:    1206     1222               AVEGEXIT           EQUALS   GOBL/2     +6                         #  B(2)TMP
003435,002020:    1206     1222               AVGEXIT            =        AVEGEXIT                              
003436,002021:    1206     1224               TEMX               EQUALS   AVEGEXIT   +2                         #  B(1)TMP
003437,002022:    1206     1225               TEMY               EQUALS   TEMX       +1                         #  B(1)TMP
003438,002023:    1206     1226               TEMZ               EQUALS   TEMY       +1                         #  B(1)TMP
003439,002024:    1206     1227               PIPCTR             EQUALS   TEMZ       +1                         #  B(1)TMP
003440,002025:    1206     1230               PIPAGE             EQUALS   PIPCTR     +1                         #  B(1)TMP
003441,002026: 
003442,002027: 
003443,002028:    1206     1231               RN1                EQUALS   PIPAGE     +1                         #  B(6)TMP
003444,002029:    1206     1237               VN1                EQUALS   RN1        +6                         #  B(6)TMP
003445,002030:    1206     1245               PIPTIME1           EQUALS   VN1        +6                         #  B(2)TMP
003446,002031:    1206     1247               GDT1/2             EQUALS   PIPTIME1   +2                         #  B(6)TMP
003447,002032:    1206     1255               GOBL1/2            EQUALS   GDT1/2     +6                         #  B(6)TMP
003448,002033: 

Page 77

003450,002035: 
003451,002036:                                                                                                  #           ENTRY STORAGE.                                                 (1D)
003452,002037: 
003453,002038:    1206     1263               ENTRYVN            EQUALS   GOBL1/2    +6                         #  B(1)TMP VN CODE FOR ENTRY DISPLAYS P60S.
003454,002039: 
003455,002040: 
003456,002041: 
003457,002042:                                                                                                  #           P11 STORAGE.                                                   (9D)
003458,002043: 
003459,002044:    1206     1263               PADLONG            EQUALS   ENTRYVN                               #   (2)PL   LONGITUDE OF LAUNCH PAD
003460,002045:    1206     1265               LIFTTEMP           EQUALS   PADLONG    +2                         #   (2)TMP
003461,002046:    1206     1267               TEPHEM1            EQUALS   LIFTTEMP   +2                         #   (3)TMP
003462,002047:    1206     1272               PGNCSALT           EQUALS   TEPHEM1    +3                         #   (2)PL  ALTITUDE
003463,002048: 
003464,002049: 
003465,002050:                                                                                                  #           RENDEZVOUS NAVIGATION STORAGE.(SEE COMMENT IN SERVICER STORAGE)(58D)
003466,002051: 
003467,002052:    1206                        CSMPOS             ERASE    +57D                                  #  I(6)TMP
003468,002053:    1300     1214               LEMPOS             EQUALS   CSMPOS     +6                         #  I(6)TMP
003469,002054:    1300     1222               RCL                EQUALS   LEMPOS     +6                         #  I(2)TMP
003470,002055:    1300     1224               MARKTIME           EQUALS   RCL        +2                         #  B(2)TMP
003471,002056:    1300     1226               VTEMP              EQUALS   MARKTIME   +2                         #  B(6)TMP
003472,002057:    1300     1234               UM                 EQUALS   VTEMP      +6                         #  I(6)TMP
003473,002058:    1300     1242               MARKDATA           EQUALS   UM         +6                         #  B(2)TMP
003474,002059:    1300     1244               USTAR              EQUALS   MARKDATA   +2                         #  I(6)TMP
003475,002060:    1300     1252               WIXA               EQUALS   USTAR      +6                         #  B(1)TMP
003476,002061:    1300     1253               WIXB               EQUALS   WIXA       +1                         #  B(1)TMP
003477,002062:    1300     1254               ZIXA               EQUALS   WIXB       +1                         #  B(1)TMP
003478,002063:    1300     1255               ZIXB               EQUALS   ZIXA       +1                         #  B(1)TMP
003479,002064:    1300     1256               DELTAX             EQUALS   ZIXB       +1                         #  I(18)TMP
003480,002065: 
003481,002066:    1300     1256               VHFRANGE           EQUALS   DELTAX                                #   (2)
003482,002067:    1300     1272               UCL                EQUALS   DELTAX     +12D                       #   (6)     LM-CSM LINE OF SIGHT 1/2 UNIT V
003483,002068: 
003484,002069: 
003485,002070:                                                                                                  #        **** CONICSEX (MEAS INC) ****
003486,002071: 
003487,002072:    1300     1256               TRIPA              EQUALS   DELTAX                                
003488,002073:    1300     1261               TEMPVAR            EQUALS   DELTAX     +3                         
003489,002074: 
003490,002075: 
003491,002076: 
003492,002077:    1300                        TEMPOR1            ERASE    +1                                    #  B(2)TMP
003493,002078: 
003494,002079: 
003495,002080:                                                                                                  #           T4RUPT ERASABLE.                                               (6D)
003496,002081: 
003497,002082:    1302                        DSRUPTSW           ERASE                                          
003498,002083:    1303                        OPTIND             ERASE                                          
003499,002084:    1304                        LGYRO              ERASE                                          
003500,002085:    1305                        COMMANDO           ERASE    +1                                    
003501,002086: 

Page 78

003503,002088: 
003504,002089:    1307                        ZONE               ERASE                                          #  B(1)PRM USED IN SHAFT STOP MONITOR
003505,002090:    1310  0000035               LASTYCMD           =        OPTY                                  #  DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003506,002091:    1310  0000035               LASTXCMD           =        OPTY                                  #  DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003507,002092: 
003508,002093: 
003509,002094:                                                                                                  #           UNSWITCHED DAP ERASABLE.                                       (4D)
003510,002095: 
003511,002096:    1310                        T6LOC              ERASE                                          
003512,002097:    1311                        T6ADR              ERASE                                          
003513,002098:    1312                        T5LOC              ERASE    +1                                    
003514,002099: 
003515,002100: 
003516,002101:                                                                                                  #           MODE SWITCHING ERASABLE.                                       (14D)
003517,002102: 
003518,002103:    1314                        SWSAMPLE           ERASE                                          #  B(1)PRM
003519,002104:    1315                        DESOPMOD           ERASE                                          #  B(1)PRM
003520,002105:    1316                        WTOPTION           ERASE                                          #  B(1)PRM
003521,002106:    1317                        ZOPTCNT            ERASE                                          #  B(1)PRM
003522,002107:    1320                        IMODES30           ERASE                                          #  B(1)PRM
003523,002108:    1321                        IMODES33           ERASE                                          #  B(1)PRM
003524,002109:    1322                        MODECADR           ERASE    +2                                    #  B(3)TMP
003525,002110:    1325     1322               IMUCADR            =        MODECADR                              
003526,002111:    1325     1323               OPTCADR            =        MODECADR   +1                         
003527,002112:    1325     1324               RADCADR            =        MODECADR   +2                         
003528,002113:    1325                        ATTCADR            ERASE    +2                                    #  B(3)PRM
003529,002114:    1330     1327               ATTPRIO            =        ATTCADR    +2                         
003530,002115:    1330                        MARKSTAT           ERASE                                          #  B(1)PRM
003531,002116:    1331                        OPTMODES           ERASE                                          #  B(1)PRM
003532,002117: 
003533,002118: 
003534,002119: 
003535,002120:                                                                                                  #           RCSDAP ERASABLE.                                               (1D)
003536,002121: 
003537,002122:    1332                        HOLDFLAG           ERASE                                          #  B(1)PRM
003538,002123: 
003539,002124: 
003540,002125: 
003541,002126: 
003542,002127: 
003543,002128: 
003544,002129:                                                                                                  #           CRS61.1 STORAGE. -USED IN R63 (VERB 89)-                       (5D)
003545,002130: 
003546,002131:    1333                        CPHIX              ERASE    +2                                    #  B(3)DSP NOUN 96 CALCULATED BY CRS61.1
003547,002132: 
003548,002133: 
003549,002134: 
003550,002135:    1336                        TEVENT             ERASE    +1                                    #  B(2)     TIME OF EVENT FOR DOWNLIST
003551,002136:    1340     1336               TLIFTOFF           =        TEVENT                                
003552,002137: 

Page 79

003554,002139: 
003555,002140:                                                                                                  #           P34-P35 STORAGE                                                (1D)
003556,002141: 
003557,002142:    1340                        NORMEX             ERASE                                          
003558,002143: 
003559,002144: 
003560,002145: 
003561,002146:                                                                                                  #           SELF-CHECK ASSIGNMENTS.                                        (17D)
003562,002147: 
003563,002148:                                                                                                  #                                  (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003564,002149: 
003565,002150:    1341                        SELFERAS           ERASE    1357       -          1377            #  ***MUST NOT BE MOVED***
003566,002151:    1341     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
003567,002152:    1341     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
003568,002153:    1341     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
003569,002154:    1341     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
003570,002155:    1341     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)     ALARM-ABORT USER'S 2CADR
003571,002156:    1341     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
003572,002157:    1341     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
003573,002158:    1341     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
003574,002159:    1341     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
003575,002160:    1341     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
003576,002161:    1341     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
003577,002162:    1341     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
003578,002163:    1341     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
003579,002164:    1341     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
003580,002165: 
003581,002166: 
003582,002167:                                                                                                  #           USED BY P30 ROUTINES TO WRITE ONLY NEVER READ IN COLOSSUS
003583,002168: 
003584,002169:    1341  0000000               DISPDEX            EQUALS   A                                     
003585,002170:                                                                                                  #           ERASABLE FOR SXTMARK CDU CHECK DELAY.  -PAD LOADED-            (1D)
003586,002171: 
003587,002172:    1341                        CDUCHKWD           ERASE                                          #  B(1) PL
003588,002173: 
003589,002174: 
003590,002175:                                                                                                  #           R57 STORAGE. -MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY-       (1D)
003591,002176: 
003592,002177:    1342                        TRUNBIAS           ERASE                                          #  B(1)PRM RESULT OF R57 CALIBR OF TRUNION
003593,002178: 
003594,002179: 
003595,002180: 
003596,002181:                                                                                                  #           KEPLER STORAGE                                                 (6D)
003597,002182: 
003598,002183:    1343                        XMODULO            ERASE    +1                                    #  I(2) GREATER 2PI KEPLER
003599,002184:    1345                        TMODULO            ERASE    +1                                    #  I(2) GREATER 2 KEPLER
003600,002185:    1347                        EPSILONT           ERASE    +1                                    #  I(2) TMP
003601,002186: 

Page 80

003603,002188: 
003604,002189:                                                                                                  #           P37    **RETURN TO EARTH  (PAD LOAD) ****                      (2D)
003605,002190: 
003606,002191:    1351                        RTED1              ERASE    +1                                    #  I(2)PL VGAMMA POLY COEF              B-3
003607,002192: 
003608,002193: 
003609,002194:                                                                                                  #           P40    ***STEERING ROUTINE*** PAD LOAD                         (1D)
003610,002195: 
003611,002196:    1353                        DVTHRESH           ERASE                                          #  I(1)PL  DELTA V THRESHOLD FOR LOW THRUST
003612,002197:                                                                                                  #                                                  ROUTINE                      B-2
003613,002198: 
003614,002199: 
003615,002200:                                                                                                  #           P23     ***PAD LOAD****                                        (2D)
003616,002201: 
003617,002202:    1354                        HORIZALT           ERASE    +1                                    #  I(2)PL  HORIZION ALTITUDE       M  B-29
003618,002203: 
003619,002204: 
003620,002205:                                                                                                  #           P-20        ALTERNATE LOS VARIANCE     PAD LOAD*****           (1D)
003621,002206: 
003622,002207:                                                                                                  #                                                                          -16
003623,002208:    1356                        ALTVAR             ERASE                                          #  I(2)PL MILLARD. SQUARED SCALED 2
003624,002209: 
003625,002210: 
003626,002211:    1357     1377               END-UE             EQUALS   SELFERAS   +16D                       #  LAST USED UNSWITCHED ERASABLE
003627,002212: 

Page 81

003629,002214: 
003630,002215:                                                                                                  #                  EBANK-3 ASSIGNMENTS
003631,002216: 
003632,002217: E3,1400                                           SETLOC   1400                                  
003633,002218: 
003634,002219:                                                                                                  #           WAITLIST TASK LISTS.                                           (26D)
003635,002220: 
003636,002221: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM DELTA T S.
003637,002222: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
003638,002223: 
003639,002224: 
003640,002225:                                                                                                  #           RESTART STORAGE.                                               (2D)
003641,002226: 
003642,002227: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
003643,002228: 
003644,002229: 
003645,002230:                                                                                                  #           MORE LONGCALL STORAGE. (MUST BE IN LST1 S BANK).               (2D)
003646,002231: 
003647,002232: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
003648,002233: 
003649,002234: 
003650,002235:                                                                                                  #           PHASE-CHANGE LISTS PART II.                                    (12D)
003651,002236: 
003652,002237: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
003653,002238: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
003654,002239: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
003655,002240: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
003656,002241: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
003657,002242: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
003658,002243: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
003659,002244: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
003660,002245: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
003661,002246: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
003662,002247: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
003663,002248: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
003664,002249: 
003665,002250: 
003666,002251:                                                                                                  #           IMU COMPENSATION PARAMETERS.                                   (22D)
003667,002252: 
003668,002253: E3,1452                        PBIASX             ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTR TERMS
003669,002254: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #      INTERMIXED.
003670,002255: E3,1453                        PIPASCFX           ERASE                                          
003671,002256: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
003672,002257: E3,1454                        PBIASY             ERASE                                          
003673,002258: E3,1455                        PIPASCFY           ERASE                                          
003674,002259: E3,1456                        PBIASZ             ERASE                                          
003675,002260: E3,1457                        PIPASCFZ           ERASE                                          
003676,002261: 
003677,002262: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
003678,002263: E3,1461  E3,1460               GBIASX             =        NBDX                                  
003679,002264: E3,1461                        NBDY               ERASE                                          

Page 82

003681,002266: E3,1462                        NBDZ               ERASE                                          
003682,002267: 
003683,002268: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003684,002269: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
003685,002270: E3,1465                        ADIAZ              ERASE                                          
003686,002271: 
003687,002272: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003688,002273: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
003689,002274: E3,1470                        ADSRAZ             ERASE                                          
003690,002275: 
003691,002276: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
003692,002277: 
003693,002278: E3,1477                        GCOMPSW            ERASE                                          
003694,002279: E3,1500  E3,1471               COMMAND            EQUALS   GCOMP                                 
003695,002280: E3,1500  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
003696,002281: 
003697,002282: 
003698,002283:                                                                                                  #           STATE VECTORS FOR ORBIT INTEGRATION.                           (44D)
003699,002284: 
003700,002285:                                                                                                  #                                  (DIFEQCNT THRU XKEP MUST BE IN SAME
003701,002286:                                                                                                  #                                    EBANK AS RRECTCSM, RRECTLEM ETC
003702,002287:                                                                                                  #                                    BECAUSE THE COPY-CYCLES (ATOPCSM,
003703,002288:                                                                                                  #                                    PTOACSM ETC) ARE EXECUTED IN BASIC.
003704,002289:                                                                                                  #                                      ALL OTHER REFERENCES TO THIS GROUP
003705,002290:                                                                                                  #                                    ARE BY INTERPRETIVE INSTRUCTIONS.)
003706,002291: 
003707,002292: 
003708,002293: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)TMP
003709,002294:                                                                                                  #                                  (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003710,002295: 
003711,002296: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)PRM UPDATE FLAG
003712,002297: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)TMP POS AT RECT            KM*2(-14)
003713,002298: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)TMP VEL AT RECT        KM(-1/2)*2(6)
003714,002299: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)TMP TIME OF STATE VECT  CSECS*2(-28)
003715,002300: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)TMP POSITION DEVIATION      KM*2(14)
003716,002301: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)TMP VEL DEVIATION     KM(-1/2)*2(14)
003717,002302: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)TMP CONIC POSITION         KM*2(-14)
003718,002303: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)TMP CONIC VELOCITY     KM(-1/2)*2(6)
003719,002304: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)TMP TIME SINCE RECTIFICATION
003720,002305: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)TMP ROOT OF KEPLER EQ KM(1/2.*2(-10)
003721,002306: 
003722,002307:                                                                                                  #        **** TEMP - IN VAC AREA ****
003723,002308: E3,1554                        RRECT1             EQUALS   18D                                   
003724,002309: E3,1554                        VRECT1             EQUALS   24D                                   
003725,002310: E3,1554                        TET1               EQUALS   30D                                   
003726,002311: 
003727,002312: 
003728,002313: 
003729,002314:                                                                                                  #           PERMANENT STATE VECTORS AND TIMES.                             (101D)
003730,002315: 
003731,002316:                                                                                                  #           (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
003732,002317: 

Page 83

003734,002319:                                                                                                  #           (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
003735,002320: 
003736,002321: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
003737,002322: E3,1562  E3,1554               RRECTHIS           =        RRECTCSM                              
003738,002323: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
003739,002324: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
003740,002325: E3,1572  E3,1570               TETTHIS            =        TETCSM                                
003741,002326: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
003742,002327: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
003743,002328: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
003744,002329: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
003745,002330: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
003746,002331: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
003747,002332: 
003748,002333:                                                                                                  #           (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER)
003749,002334: 
003750,002335: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
003751,002336: E3,1634  E3,1626               RRECTOTH           =        RRECTLEM                              
003752,002337: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
003753,002338: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
003754,002339: E3,1644  E3,1642               TETOTHER           =        TETLEM                                
003755,002340: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
003756,002341: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
003757,002342: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
003758,002343: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
003759,002344: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
003760,002345: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
003761,002346: 
003762,002347: E3,1700                        X789               ERASE    +5                                    
003763,002348: E3,1706                        TEPHEM             ERASE    +2                                    
003764,002349: E3,1711                        AZO                ERASE    +1                                    
003765,002350: E3,1713                        UNITW              ERASE    +5                                    
003766,002351: E3,1721  E3,1713               -AYO               EQUALS   UNITW                                 #   (2)
003767,002352: E3,1721  E3,1715               AXO                EQUALS   UNITW      +2                         #   (2)
003768,002353: 
003769,002354: 
003770,002355: 
003771,002356:                                                                                                  #           STATE VECTORS FOR DOWNLINK.                                    (12D)
003772,002357: 
003773,002358: E3,1721                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
003774,002359: E3,1727                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
003775,002360: 
003776,002361: E3,1735  E3,1642               T-OTHER            =        TETLEM                                #              TIME (OTHER VECH) FOR DNLINK
003777,002362: 
003778,002363: 
003779,002364:                                                                                                  #           REFSMMAT.                                                      (18D)
003780,002365: 
003781,002366: E3,1735                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
003782,002367: 

Page 84

003784,002369: 
003785,002370:                                                                                                  #           AVERAGEG INTEGRATOR STORAGE.                                   (8D)
003786,002371: 
003787,002372: E3,1757                        UNITR              ERASE    +5                                    
003788,002373: E3,1765                        RMAG               ERASE    +1                                    
003789,002374: 
003790,002375: 
003791,002376:                                                                                                  #        **** CONICSEX (PLANETARY INERT. ORIEN.) ****
003792,002377: 
003793,002378: E3,1767  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PREC)
003794,002379: E3,1767  E3,1767               END-E3             EQUALS   RMAG       +2                         #  NEXT UNUSED E3 ADDRESS
003795,002380: 

Page 85

003797,002382: 
003798,002383:                                                                                                  #                  EBANK-4 ASSIGNMENTS
003799,002384: 
003800,002385: E4,1400                                           SETLOC   2000                                  
003801,002386: 
003802,002387: 
003803,002388:                                                                                                  #           P20 STORAGE.           -PAD LOADED-                            (4D)
003804,002389: 
003805,002390: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                            M B-14
003806,002391: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                          M/CSECB0
003807,002392: E4,1402                        RMAX               ERASE                                          #  B(1)PL                     METERS*2(-19)
003808,002393: E4,1403                        VMAX               ERASE                                          #  B(1)PL                      M/CSEC*2(-7)
003809,002394: 
003810,002395: 
003811,002396:                                                                                                  #           P22 STORAGE.           -PAD LOADED-                            (5D)
003812,002397: 
003813,002398: E4,1404                        WORBPOS            ERASE                                          #  B(1)PL                            M B-14
003814,002399: E4,1405                        WORBVEL            ERASE                                          #  B(1)PL                          M/CSECB0
003815,002400: E4,1406                        S22WSUBL           ERASE                                          #  B(1)PL                            M B-14
003816,002401: E4,1407                        RPVAR              ERASE    +1                                    #  B(2)PL
003817,002402: 
003818,002403:                                                                                                  #           CONISEX STORAGE.       -PAD LOADED-                            (6D)
003819,002404: 
003820,002405: E4,1411                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
003821,002406: 
003822,002407: 
003823,002408: 
003824,002409:                                                                                                  #           ENTRY STORAGE.         -PAD LOADED-                            (2D)
003825,002410: 
003826,002411: E4,1417                        EMSALT             ERASE    +1                                    #  I(2)PL
003827,002412: 
003828,002413: 
003829,002414:                                                                                                  #           P35 CONSTANTS.         -PAD LOADED-                            (4D)
003830,002415: 
003831,002416: E4,1421                        ATIGINC            ERASE    +1                                    #  B(2)PL
003832,002417: E4,1423                        PTIGINC            ERASE    +1                                    #  B(2)PL
003833,002418: 
003834,002419: 
003835,002420:                                                                                                  #           LUNAR LANDING SIGHT DATA. -PAD LOADED-                         (6D)
003836,002421:                                                                                                  #           (USED BY INTEGRATION INITIALIZATION,LAT-LONG SUBROUTINES, P30'S)
003837,002422: 
003838,002423: E4,1425                        RLS                ERASE    +5                                    #  I(6) PL  LUNAR LANDING SIGHT VECTOR
003839,002424: 
003840,002425: 
003841,002426: 
003842,002427:                                                                                                  #  CONISEX (LUNAR AND SOLAR EPHEM)STORAGE. -PAD LOADED-                    (77D)
003843,002428: E4,1433                        TIMEMO             ERASE    +76D                                  
003844,002429: E4,1550  E4,1436               VECOEM             EQUALS   TIMEMO     +3                         
003845,002430: E4,1550  E4,1532               RESO               EQUALS   VECOEM     +60D                       

Page 86

003847,002432: E4,1550  E4,1540               VESO               EQUALS   RESO       +6                         
003848,002433: E4,1550  E4,1546               OMEGAES            EQUALS   VESO       +6                         
003849,002434: 
003850,002435: 
003851,002436:                                                                                                  #           FULL INTEGRATION STORAGE.                                      (95D)
003852,002437: 
003853,002438: E4,1550                        PBODY              ERASE                                          #  I(1)
003854,002439: E4,1551  E4,1551               ALPHAV             EQUALS   PBODY      +1                         #  I(6)TMP
003855,002440: E4,1551  E4,1557               BETAV              EQUALS   ALPHAV     +6                         #  I(6)TMP
003856,002441: E4,1551  E4,1565               PHIV               EQUALS   BETAV      +6                         #  I(6)TMP
003857,002442: E4,1551  E4,1573               PSIV               EQUALS   PHIV       +6                         #  I(6)TMP
003858,002443: E4,1551  E4,1601               FV                 EQUALS   PSIV       +6                         #  I(6)TMP
003859,002444: E4,1551  E4,1607               BETAM              EQUALS   FV         +6                         #  I(6)TMP
003860,002445: E4,1551  E4,1611               H                  EQUALS   BETAM      +2                         #  I(2)TMP
003861,002446: E4,1551  E4,1613               GMODE              EQUALS   H          +2                         #  I(1)TMP
003862,002447: E4,1551  E4,1614               IRETURN            EQUALS   GMODE      +1                         #  I(1)TMP
003863,002448: E4,1551  E4,1615               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)TMP
003864,002449: E4,1551  E4,1616               VECTAB             EQUALS   NORMGAM    +1                         #  I(36)TMP
003865,002450: E4,1551  E4,1662               RPQV               EQUALS   VECTAB     +36D                       #   (6)TMP VECTOR PRIMARY TO SECONDARY BODY
003866,002451: E4,1551  E4,1670               ORIGEX             EQUALS   RPQV       +6                         #  B(1)TMP QSAVE FOR COORD. SWITCH. ROUTINE
003867,002452: E4,1551  E4,1670               KEPRTN             EQUALS   ORIGEX                                #          QSAVE FOR KEPLER
003868,002453: E4,1551  E4,1671               RQVV               EQUALS   ORIGEX     +1                         #   (6)    SEC.BODY TO VEH.VETOR(USED P23)
003869,002454: E4,1551  E4,1677               RPSV               EQUALS   RQVV       +6                         #   (6)TMP SUN TO PRIMARY BODY VECTOR
003870,002455: E4,1551  E4,1705               XKEPNEW            EQUALS   RPSV       +6                         #   (2)TMP ROOT OF KEPLERS EQU FOR TIME TAU
003871,002456: 
003872,002457: 
003873,002458:                                                                                                  #           THESE PROBABLY CAN SHARE INTEGRATION VARIABLES.                (9D)
003874,002459: 
003875,002460: E4,1551  E4,1624               VACX               EQUALS   VECTAB     +6                         #  I(2)TMP
003876,002461: E4,1551  E4,1626               VACY               EQUALS   VACX       +2                         #  I(2)TMP
003877,002462: E4,1551  E4,1630               VACZ               EQUALS   VACY       +2                         #  I(2)TMP
003878,002463: 
003879,002464: E4,1551  E4,1640               ERADM              EQUALS   VECTAB     +18D                       #  I(2)TMP
003880,002465: E4,1551  E4,1642               INCORPEX           EQUALS   ERADM      +2                         #  I(1)TMP
003881,002466: 
003882,002467: 
003883,002468:                                                                                                  #           R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-            (28D)
003884,002469: 
003885,002470: 
003886,002471: E4,1551  E4,1624               BASEOTP            EQUALS   VECTAB     +6                         #  I(6)     BASE POS VECTOR OTHER VEH
003887,002472: E4,1551  E4,1640               BASEOTV            EQUALS   VECTAB     +18D                       #  I(6)     BASE VEL VECTOR OTHER VEH
003888,002473: E4,1551  E4,1654               BASETHP            EQUALS   VECTAB     +30D                       #  I(6)     BASE POS VECTOR THIS VEH
003889,002474: E4,1551  E4,1662               BASETHV            EQUALS   RPQV                                  #  I(6)     BASE VEL VECTOR THIS VEH
003890,002475: E4,1551  E4,1671               BASETIME           EQUALS   RQVV                                  #  I(2)     TIME ASSOC WITH BASE VECS
003891,002476: E4,1551  E4,1673               ORIG               EQUALS   RQVV       +2                         #  I(1)     =0 FOR EARTH =+2 FOR MOON
003892,002477: E4,1551  E4,1674               STATEXIT           EQUALS   RQVV       +3                         #  I(1)     STQ ADDRESS FOR STATEXTP
003893,002478: 
003894,002479: 
003895,002480:                                                                                                  #           CONIC INTEGRATION STORAGE.      -MAY NOT SHARE WITH SERVICER-  (6D)
003896,002481: 

Page 87

003898,002483: E4,1551  E4,1707               ALPHAM             EQUALS   XKEPNEW    +2                         #  I(2)TMP
003899,002484: E4,1551  E4,1711               TAU.               EQUALS   ALPHAM     +2                         #  I(2)TMP
003900,002485: E4,1551  E4,1713               DT/2               EQUALS   TAU.       +2                         #  I(2)TMP
003901,002486: 
003902,002487: 
003903,002488:                                                                                                  #           P21 STORAGE.                                                   (2D)
003904,002489: 
003905,002490: E4,1551  E4,1715               P21TIME            EQUALS   DT/2       +2                         #  B(2)TMP
003906,002491: 
003907,002492: 
003908,002493: 
003909,002494:                                                                                                  #           INCORPORATION/VERB 83 COMMON STORAGE.                          (1D)
003910,002495: 
003911,002496: E4,1551  E4,1717               EGRESS             EQUALS   P21TIME    +2                         #  I(1)TMP SAVES RETURNS.
003912,002497: 
003913,002498: 
003914,002499:                                                                                                  #           VERB 83 STORAGE.        MAY SHARE ONLY WITH INCORPORATION.     (18D)
003915,002500: 
003916,002501: E4,1551  E4,1720               RANGE              EQUALS   EGRESS     +1                         #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
003917,002502: E4,1551  E4,1722               RRATE              EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH
003918,002503: E4,1551  E4,1724               RTHETA             EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54
003919,002504: E4,1551  E4,1726               RONE               EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE. (SCRATCH)
003920,002505: E4,1551  E4,1734               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE. (SCRATCH)
003921,002506: 
003922,002507: 
003923,002508:                                                                                                  #           LUNAR LANDMARK SELECTION PROGRAM - R35                         (28D)
003924,002509: 
003925,002510: E4,1551  E4,1720               XR1HOLD            EQUALS   RANGE                                 #  I(2)
003926,002511: E4,1551  E4,1722               VECTIME            EQUALS   XR1HOLD    +2                         #  I(2)
003927,002512: E4,1551  E4,1724               JLOOPCNT           EQUALS   VECTIME    +2                         #  I(1)
003928,002513: E4,1551  E4,1725               KLOOPCNT           EQUALS   JLOOPCNT   +1                         #  I(1)
003929,002514: E4,1551  E4,1726               NKVAL              EQUALS   KLOOPCNT   +1                         #  I(1)
003930,002515: E4,1551  E4,1727               DELTAL             EQUALS   NKVAL      +1                         #  I(2)
003931,002516: E4,1551  E4,1731               TK                 EQUALS   DELTAL     +2                         #  I(2)
003932,002517: E4,1551  E4,1733               INDEXNUM           EQUALS   TK         +2                         #  I(1)
003933,002518: 
003934,002519: E4,1551  E4,1734               LONGSAVE           EQUALS   INDEXNUM   +1                         #  I(2)
003935,002520: E4,1551  E4,1736               POSVECT            EQUALS   LONGSAVE   +2                         #  I(6)
003936,002521: E4,1551  E4,1744               VELVECT            EQUALS   POSVECT    +6                         #  I(6)
003937,002522: E4,1551  E4,1752               LSLONG             EQUALS   VELVECT    +6                         #  I(2) TMP LONGITUDE OF LANDING SIGHT
003938,002523: 
003939,002524: 
003940,002525:                                                                                                  #           S-BAND ANTENNA GIMBAL ANGLES.  DISPLAYED BY R05 (EXT.VB.64)    (4D)
003941,002526:                                                                                                  #                  OPERATION DURING P00 ONLY.
003942,002527: 
003943,002528: E4,1551  E4,1720               RHOSB              EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE
003944,002529: E4,1551  E4,1722               GAMMASB            EQUALS   RHOSB      +2                         #  B(2)DSP NOUN 51.  YAW ANGLE
003945,002530: 
003946,002531:                                                                                                  #           R 36 SCRATCHPAD STORAGE                                        (12)
003947,002532: 

Page 88

003949,002534: E4,1551  E4,1726               RPASS36            EQUALS   RONE                                  #  I (6)S-S
003950,002535: E4,1551  E4,1734               UNP36              EQUALS   RPASS36    +6                         #  I (6)S-S
003951,002536: 
003952,002537: 
003953,002538: 
003954,002539:                                                                                                  #           EXTENDED VERB 82 STORAGE.
003955,002540:                                                                                                  #           (*** THE SHARING IN THIS SECTION IS TEMPORARY ONLY ****)       (8D)
003956,002541: 
003957,002542: E4,1551  E4,1720               HPERMIN            EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
003958,002543: E4,1551  E4,1722               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
003959,002544: E4,1551  E4,1724               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.
003960,002545: 
003961,002546: 
003962,002547:                                                                                                  #           MORE VERB 82 NOT SHARING WITH VERB 83                          (9D)
003963,002548: 
003964,002549: 
003965,002550: E4,1551  E4,1742               V82FLAGS           EQUALS   VONE       +6                         #   (1) FOR V 82 BITS
003966,002551: E4,1551  E4,1743               TFF                EQUALS   V82FLAGS   +1                         #  I(2) DSP NOUN 42,   , FOR P30,40,41.
003967,002552: E4,1551  E4,1745               -TPER              EQUALS   TFF        +2                         #  I(2)DSP NOUN 32
003968,002553: E4,1551  E4,1747               THETA(1)           EQUALS   -TPER      +2                         #  I(2) TMP SET AT END OF V82
003969,002554: E4,1551  E4,1755               RSP-RREC           EQUALS   AOPTIME                               #  DSP NOUN R32
003970,002555: 
003971,002556: 
003972,002557:                                                                                                  #           REENTRY CONICS                                                 (6D)
003973,002558: 
003974,002559: E4,1551  E4,1742               URONE              EQUALS   V82FLAGS                              #  I(6) SAVE ACTUAL FOR CALCULATIONS
003975,002560: 
003976,002561: 
003977,002562: 
003978,002563:                                                                                                  #           V 82 DISPLAY                                                   (4D)
003979,002564: 
003980,002565: E4,1551  E4,1751               HAPOX              EQUALS   THETA(1)   +2                         #  I(2) DSP NOUN 44
003981,002566: E4,1551  E4,1753               HPERX              EQUALS   HAPOX      +2                         #  I(2) DSP NOUN 44
003982,002567: 
003983,002568: 
003984,002569: 
003985,002570:                                                                                                  #           VARIOUS DISPLAY REGISTERS.                                     (06D)
003986,002571: 
003987,002572: E4,1551  E4,1755               AOPTIME            EQUALS   HPERX      +2                         
003988,002573: E4,1551  E4,1757               LANDLONG           EQUALS   AOPTIME    +2                         #  I(2) DSP NOUN 89 FOR P22
003989,002574: E4,1551  E4,1761               LANDALT            EQUALS   LANDLONG   +2                         #  I(2)DSP NOUN 89 FOR P22.
003990,002575: 
003991,002576:                                                                                                  #           S34/35.5,P34-P35 STORAGE.                                      (6D)
003992,002577: 
003993,002578: E4,1551  E4,1763               KT                 EQUALS   LANDALT    +2                         #  B(2)
003994,002579: E4,1551  E4,1765               VERBNOUN           EQUALS   KT         +2                         #  B(1)TMP
003995,002580: E4,1551  E4,1766               QSAVED             EQUALS   VERBNOUN   +1                         #  B(1)TMP HOLDS RETURN

Page 89

003997,002582: E4,1551  E4,1767               RTRN               EQUALS   QSAVED     +1                         #  B(1) RETURN
003998,002583: E4,1551  E4,1770               SUBEXIT            EQUALS   RTRN       +1                         #  B(1) TMP
003999,002584:                                                                                                  #                                          RGEXIT CANT SHARE WITH HPER,HAPO
004000,002585: E4,1551  E4,1770               RGEXIT             EQUALS   SUBEXIT                               #  I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN
004001,002586: 
004002,002587: 
004003,002588:                                                                                                  #           P30 DISPLAY                                                    (4D)
004004,002589: 
004005,002590: E4,1551  E4,1763               HAPO               EQUALS   KT                                    #  I(2) DSP NOUN 42, FOR P30.
004006,002591: E4,1551  E4,1765               HPER               EQUALS   HAPO       +2                         #  I(2) DSP NOUN 42, FOR P30.
004007,002592: 
004008,002593: 
004009,002594: 
004010,002595:                                                                                                  #           SOME P34 STORAGE.       (OVERLAYS P35.1 STORAGE)               (2D)
004011,002596: 
004012,002597: E4,1551  E4,1763               NOMTPI             EQUALS   KT                                    #  I(2)TMP NOMINAL TPI TIME FOR RECYCLE
004013,002598: 
004014,002599: 
004015,002600:                                                                                                  #  THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1  GS ARE NOT USED IN 205 NOR ARE THEY
004016,002601:                                                                                                  #  WHILE 504 USES TRANSM1 AND ALFDK .
004017,002602: 
004018,002603: E4,1551                        TRANSM1            EQUALS   2000                                  #   (18) INITIALIZATION FOR IMU TESTS
004019,002604: E4,1551  E4,1422               ALFDK              =        TRANSM1    +18D                       #   (144) ERASABLE LOAD IN 504
004020,002605:                                                                                                  #  END OF PERF. TEST ERASABLE IN BANK 4
004021,002606: 
004022,002607:                                                                                                  #      *-*-* V82 *-*-*                                                     (6D)
004023,002608: 
004024,002609: E4,1551  E4,1771               VONE'              EQUALS   RGEXIT     +1                         #  I(6)TMP NORMAL VELOCITY VONE/ SQ RT MU
004025,002610: 
004026,002611: 
004027,002612:                                                                                                  #           PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20         (1D)
004028,002613: 
004029,002614: E4,1551  E4,1777               INTVAR             EQUALS   VONE'      +6                         #  I(1)PL  SQUARE OF EXPECTED INTEGRATION
004030,002615:                                                                                                  #                                                  POSITION EXTRAPOLATION ERROR.
004031,002616:                                                                                                  #                                                  SCALED  METERS(2) 2(15)
004032,002617: 
004033,002618: E4,1551  E4,1777               END-E4             EQUALS   INTVAR                                #  LAST USED ERASABLE IN E4
004034,002619: 

Page 90

004036,002621: 
004037,002622:                                                                                                  #  EBANK-5 ASSIGNMENTS
004038,002623: E5,1400                                           SETLOC   2400                                  
004039,002624: 
004040,002625:                                                                                                  #           *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*
004041,002626: 
004042,002627:                                                                                                  #           W-MATRIX STORAGE.                                              (162D)
004043,002628: 
004044,002629: E5,1400                        W                  EQUALS   2400                                  #  B(162)
004045,002630: 
004046,002631: E5,1400  E5,1570               EMATRIX            =        W          +120D                      #  B(42E    USED TO CONVERT W TO 6X6
004047,002632: E5,1400  E5,1642               END-W              EQUALS   W          +162D                      #  **NEXT AVAILABLE LOC AFTER W MATRIX**
004048,002633: 
004049,002634: 
004050,002635:                                                                                                  #           AUTO-OPTICS STORAGE -R52-
004051,002636: 
004052,002637:                                                                                                  #  DO NOT MOVE FROM E5,1554. A DELICATE BALANCE EXISTS BETWEEN THIS AND P03
004053,002638: E5,1400  E5,1554               XNB1               EQUALS   W          +108D                      #  B(6D)TMP
004054,002639: E5,1400  E5,1562               YNB1               EQUALS   XNB1       +6                         #  B(6)TMP
004055,002640: E5,1400  E5,1570               ZNB1               EQUALS   YNB1       +6                         #  B(6)TMP
004056,002641: E5,1400  E5,1576               SAVQR52            EQUALS   ZNB1       +6                         #  I(2)TMP
004057,002642: 
004058,002643: 
004059,002644: E5,1400  E5,1600               PLANVEC            EQUALS   SAVQR52    +2                         #  B(6) S-S SIGHTING VECTOR IN REF. COOR.
004060,002645: E5,1400  E5,1606               TSIGHT             EQUALS   PLANVEC    +6                         #  B(2) S-S TIME OF SIGHTING
004061,002646: 
004062,002647: 
004063,002648: 
004064,002649:                                                                                                  #           RENDEZVOUS -P34-35                                             (26D)
004065,002650: 
004066,002651: E5,1400  E5,1610               DVLOS              EQUALS   TSIGHT     +2                         #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPL1
004067,002652: E5,1400  E5,1610               DELTAR             EQUALS   DVLOS                                 #  I(2)
004068,002653: E5,1400  E5,1610               TINTSOI            EQUALS   DELTAR                                #  I(2) INTERCEPT TIME FOR  SOI MANEUVER
004069,002654: E5,1400  E5,1612               DELTTIME           EQUALS   DVLOS      +2                         #  I(2)
004070,002655: E5,1400  E5,1614               TARGTIME           EQUALS   DVLOS      +4                         #  I(2)
004071,002656: E5,1400  E5,1616               UNRM               EQUALS   DVLOS      +6                         #  I(6) S-S
004072,002657: E5,1400  E5,1624               ULOS               EQUALS   UNRM       +6                         #  I(6) S-S UNIT LINE OF SIGHT VECTOR
004073,002658: E5,1400  E5,1632               ACTCENT            EQUALS   ULOS       +6                         #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
004074,002659:                                                                                                  #           VEH AT TPI IGNITION TIME AND
004075,002660:                                                                                                  #           TARGET VECTOR.
004076,002661: E5,1400  E5,1634               DELVTPI            EQUALS   ACTCENT    +2                         #  I(2)    NOUN 58 FOR P34.
004077,002662: E5,1400  E5,1636               DELVTPF            EQUALS   DELVTPI    +2                         #  I(2)    NOUN 58,59 FOR P34,35.
004078,002663: E5,1400  E5,1640               POSTTPI            EQUALS   DELVTPF    +2                         #  I(2)    NOUN 58 FOR P34.
004079,002664: E5,1400  E5,1634               TDEC2              EQUALS   DELVTPI                               #   (2)
004080,002665: 
004081,002666:                                                                                                  #           ALIGNMENT                                                      (12D)
004082,002667: E5,1400  E5,1610               STARSAV1           EQUALS   DVLOS                                 #  I(6)TMP RESTART STAR SAVE.
004083,002668: E5,1400  E5,1616               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)TMP RESTART STAR SAVE.

Page 91

004085,002670: E5,1400  E5,1616               US                 =        STARSAV2                              #           (CISLUNAR TAG FOR STARSAV2).
004086,002671: 
004087,002672: 
004088,002673: 
004089,002674:                                                                                                  #           TPI SEARCH                                                     (26D)
004090,002675: 
004091,002676: E5,1400  E5,1610               IT                 EQUALS   DVLOS                                 #   (6)
004092,002677: E5,1400  E5,1616               THETZERO           EQUALS   IT         +6                         #   (2)
004093,002678: E5,1400  E5,1620               TFI                EQUALS   THETZERO   +2                         #   (2)
004094,002679: E5,1400  E5,1622               DELVEE             EQUALS   TFI        +2                         #   (2)
004095,002680: E5,1400  E5,1624               HP                 EQUALS   DELVEE     +2                         #   (2)
004096,002681: E5,1400  E5,1626               TFO                EQUALS   HP         +2                         #   (2)
004097,002682: E5,1400  E5,1630               HPO                EQUALS   TFO        +2                         #   (2)
004098,002683: E5,1400  E5,1632               DELVEO             EQUALS   HPO        +2                         #   (2)
004099,002684: E5,1400  E5,1634               MAGVTPI            EQUALS   DELVEO     +2                         #  I(2) TMP MAG OF DELTAVTPI OR VMID
004100,002685: E5,1400  E5,1636               RELDELV            EQUALS   MAGVTPI    +2                         #  I(2) TMP MAG OF DELTAVTPF
004101,002686: E5,1400  E5,1640               T3TOT4             EQUALS   RELDELV    +2                         #  I(2) DSP NOUN 39 FOR P34, 35. TPI TO TIN
004102,002687:                                                                                                  #                                          T (CAN NOT SHARE WITH RETURN TO EARTH)
004103,002688: 

Page 92

004105,002690: 
004106,002691:                                                                                                  #           ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE.             (36D)
004107,002692:                                                                                                  #           (CALCSMSC IS A SUBSET OF S41.1 AT LEAST)
004108,002693:                                                                                                  #           (CRS61.1 IS A SUBSET OF P20)
004109,002694: 
004110,002695: E5,1400  E5,1671               XSM                EQUALS   END-W      +23D                       #  B(6)
004111,002696: E5,1400  E5,1677               YSM                EQUALS   XSM        +6                         #  B(6)TMP
004112,002697: E5,1400  E5,1705               ZSM                EQUALS   YSM        +6                         #  B(6)TMP
004113,002698: 
004114,002699: E5,1400  E5,1713               XDC                EQUALS   ZSM        +6                         #  B(6)TMP
004115,002700: E5,1400  E5,1721               YDC                EQUALS   XDC        +6                         #  B(6)TMP
004116,002701: E5,1400  E5,1727               ZDC                EQUALS   YDC        +6                         #  B(6)TMP
004117,002702: 
004118,002703: E5,1400  E5,1713               XNB                =        XDC                                   
004119,002704: E5,1400  E5,1721               YNB                =        YDC                                   
004120,002705: E5,1400  E5,1727               ZNB                =        ZDC                                   
004121,002706: 
004122,002707: 
004123,002708:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.
004124,002709: 
004125,002710: E5,1400  E5,1673               -COSB              EQUALS   XSM        +2                         #   (2)TMP
004126,002711: E5,1400  E5,1675               SINB               EQUALS   -COSB      +2                         #   (2)TMP
004127,002712: 
004128,002713: 
004129,002714:                                                                                                  #           ALIGNMENT/SYSTEST COMMON STORAGE.                              (18D)
004130,002715: 
004131,002716: E5,1400  E5,1735               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
004132,002717: 
004133,002718: 
004134,002719:                                                                                                  #           ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE.                  (17D)
004135,002720: 
004136,002721: E5,1400  E5,1757               OGC                EQUALS   STARAD     +18D                       #  I(2)TMP
004137,002722: E5,1400  E5,1761               IGC                EQUALS   OGC        +2                         #  I(2)TMP
004138,002723: E5,1400  E5,1763               MGC                EQUALS   IGC        +2                         #  I(2)TMP
004139,002724: E5,1400  E5,1765               STAR               EQUALS   MGC        +2                         #  I(6)TMP
004140,002725: E5,1400  E5,1773               SAC                EQUALS   STAR       +6                         #  I(2)TMP
004141,002726: E5,1400  E5,1775               PAC                EQUALS   SAC        +2                         #  I(2)TMP
004142,002727: E5,1400  E5,1777               QMIN               EQUALS   PAC        +2                         #  B(1)TMP
004143,002728: 
004144,002729: 
004145,002730:                                                                                                  #        **** COLP50S ****                                                 (1D)
004146,002731: 
004147,002732: E5,1400  E5,1735               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
004148,002733: 
004149,002734: 
004150,002735:                                                                                                  #           OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE.              (24D)
004151,002736: 
004152,002737: E5,1400  E5,1735               VEARTH             EQUALS   STARAD                                #   (6)TMP
004153,002738: E5,1400  E5,1743               VSUN               EQUALS   VEARTH     +6                         #   (6)TMP
004154,002739: E5,1400  E5,1751               VMOON              EQUALS   VSUN       +6                         #   (6)TMP
004155,002740: E5,1400  E5,1757               SAX                EQUALS   VMOON      +6                         #   (6)TMP
004156,002741: 

Page 93

004158,002743: 
004159,002744:                                                                                                  #           *-*-*-*-  OVERLAY 2 IN EBANK 5 -*-*-*-*
004160,002745: 
004161,002746:                                                                                                  #           CONIC ROUTINES STORAGE.                                        (87D)
004162,002747: 
004163,002748: E5,1400  E5,1642               DELX               EQUALS   END-W                                 #  I(2)TMP
004164,002749: E5,1400  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
004165,002750: E5,1400  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
004166,002751: E5,1400  E5,1654               RCNORM             EQUALS   URRECT     +6                         #  I(2)TMP
004167,002752: E5,1400  E3,1552               XPREV              EQUALS   XKEP                                  #  I(2)TMP
004168,002753: E5,1400  E5,1656               R1VEC              EQUALS   RCNORM     +2                         #  I(6)TMP
004169,002754: E5,1400  E5,1664               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
004170,002755: E5,1400  E5,1672               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
004171,002756: E5,1400  E5,1674               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
004172,002757: E5,1400  E5,1675               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
004173,002758: E5,1400  E5,1703               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
004174,002759: E5,1400  E5,1704               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
004175,002760: E5,1400  E5,1712               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
004176,002761: E5,1400  E5,1713               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
004177,002762: E5,1400  E5,1721               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
004178,002763: E5,1400  E5,1723               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
004179,002764: E5,1400  E5,1731               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
004180,002765: E5,1400  E5,1733               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
004181,002766: E5,1400  E5,1735               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
004182,002767: E5,1400  E5,1737               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
004183,002768: E5,1400  E5,1741               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
004184,002769: E5,1400  E5,1743               R1A                EQUALS   P          +2                         #  I(2)TMP
004185,002770: E5,1400  E5,1656               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
004186,002771: E5,1400  E5,1745               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
004187,002772: E5,1400  E5,1712               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
004188,002773: E5,1400  E5,1753               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
004189,002774: E5,1400  E5,1712               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
004190,002775: E5,1400  E5,1712               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
004191,002776: E5,1400  E5,1721               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
004192,002777: E5,1400  E5,1755               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
004193,002778: E5,1400  E5,1756               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
004194,002779: E5,1400  E5,1757               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
004195,002780: E5,1400  E5,1761               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
004196,002781: E5,1400  E5,1763               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
004197,002782: E5,1400  E5,1761               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
004198,002783: E5,1400  E5,1763               TPREV              EQUALS   DEPREV                                #  I(2)TMP
004199,002784: 

Page 94

004201,002786: 
004202,002787:                                                                                                  #           *-*-*-*-  OVERLAY 3 IN EBANK 5 -*-*-*-*
004203,002788: 
004204,002789:                                                                                                  #           MEASUREMENT INCORPORATION STORAGE.                             (66D)
004205,002790:                                                                                                  #           (CALLED BY P20, P22, P23)
004206,002791: 
004207,002792: E5,1400  E5,1642               OMEGAM1            EQUALS   END-W                                 #  I(6)TMP
004208,002793: E5,1400  E5,1650               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)TMP
004209,002794: E5,1400  E5,1656               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)TMP
004210,002795: E5,1400  E5,1664               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)TMP
004211,002796: E5,1400  E5,1706               TDPOS              EQUALS   HOLDW      +18D                       #  I(6)TMP
004212,002797: E5,1400  E5,1714               TDVEL              EQUALS   TDPOS      +6                         #  I(6)TMP
004213,002798: 
004214,002799: E5,1400  E5,1722               ZI                 EQUALS   TDVEL      +6                         #  I(18)
004215,002800: 
004216,002801:                                                                                                  #           P22-P23 STORAGE.                                               (8D)
004217,002802: 
004218,002803: E5,1400  E5,1744               22SUBSCL           EQUALS   ZI         +18D                       #  DE OF ABCDE LANDMARK ID NO.
004219,002804: E5,1400  E5,1745               CXOFF              EQUALS   22SUBSCL   +1                         #  B OF ABCDE OFFSET INDICATOR
004220,002805: E5,1400  E5,1746               8KK                EQUALS   CXOFF      +1                         #  B(1)TMP INDEX OF PRESENT MARK.
004221,002806: E5,1400  E5,1747               8NN                EQUALS   8KK        +1                         #  B(1)TMP 
004222,002807: E5,1400  E5,1750               S22LOC             EQUALS   8NN        +1                         #  I(1)TMP MARK DATA LOC
004223,002808: E5,1400  E5,1751               LANDMARK           EQUALS   S22LOC     +1                         #  B(1)DSP NOUN 70 FOR P22,51, R52,53.
004224,002809: E5,1400  E5,1752               HORIZON            EQUALS   LANDMARK   +1                         #  B(1)DSP NOUN 70 FOR P22,51, R52,53.
004225,002810: E5,1400  E5,1753               IDOFLMK            EQUALS   HORIZON    +1                         #  B(1)
004226,002811: 
004227,002812: 
004228,002813: 
004229,002814:                                                                                                  #           ******P23***                                                   (1D)
004230,002815: E5,1400  E5,1754               TRUNION            EQUALS   IDOFLMK    +1                         #  B(1)
004231,002816: 

Page 95

004233,002818: 
004234,002819:                                                                                                  #           *-*-*-*-  OVERLAY 0 IN EBANK 5 -*-*-*-*
004235,002820: 
004236,002821:                                                                                                  #           SYSTEM TEST STORAGE.                                           (174)
004237,002822: 
004238,002823: E5,1400                        AZIMUTH            ERASE    +1                                    
004239,002824: E5,1402                        LATITUDE           ERASE    +1                                    
004240,002825: 
004241,002826: E5,1404     1160               TRUNA              EQUALS   DESOPTT                               
004242,002827: E5,1404     1161               SHAFTA             EQUALS   DESOPTS                               
004243,002828: 
004244,002829: E5,1404                        ERVECTOR           ERASE    +5                                    
004245,002830: E5,1412                        LENGTHOT           ERASE                                          
004246,002831: E5,1413                        LOSVEC             ERASE    +5                                    
004247,002832: 
004248,002833: E5,1421  E5,1413               SXTOPTN            =        LOSVEC                                
004249,002834: E5,1421                        NDXCTR             ERASE                                          
004250,002835: E5,1422                        PIPINDEX           ERASE                                          
004251,002836: E5,1423                        POSITON            ERASE                                          
004252,002837: E5,1424                        QPLAC              ERASE                                          
004253,002838: E5,1425                        QPLACE             ERASE                                          
004254,002839: E5,1426                        QPLACES            ERASE                                          
004255,002840: E5,1427                        RUN                ERASE                                          
004256,002841: E5,1430                        STOREPL            ERASE                                          
004257,002842: E5,1431                        SOUTHDR            ERASE                                          
004258,002843: E5,1432  E5,1431               TARG1/2            =        SOUTHDR                               
004259,002844: E5,1432                        TAZEL1             ERASE    +5                                    
004260,002845: E5,1440                        TEMPTIME           ERASE    +1                                    
004261,002846: E5,1442                        TMARK              ERASE    +1                                    
004262,002847: E5,1444                        GENPL              ERASE    +134D                                 
004263,002848: E5,1653  E5,1444               CDUTIMEI           =        GENPL                                 
004264,002849: E5,1653  E5,1446               CDUTIMEF           =        GENPL      +2                         
004265,002850: E5,1653  E5,1450               IMU/OPT            =        GENPL      +4                         
004266,002851: E5,1653  E5,1451               CDUREADF           =        GENPL      +5                         
004267,002852: E5,1653  E5,1452               CDUREADI           =        GENPL      +6                         
004268,002853: E5,1653  E5,1453               CDULIMIT           =        GENPL      +7                         
004269,002854: 
004270,002855: E5,1653  E5,1450               TEMPADD            =        GENPL      +4                         
004271,002856: E5,1653  E5,1451               TEMP               =        GENPL      +5                         
004272,002857: E5,1653  E5,1452               NOBITS             =        GENPL      +6                         
004273,002858: E5,1653  E5,1453               CHAN               =        GENPL      +7                         
004274,002859: 
004275,002860: E5,1653  E5,1454               LOS1               =        GENPL      +8D                        
004276,002861: E5,1653  E5,1462               LOS2               =        GENPL      +14D                       
004277,002862: 
004278,002863: E5,1653  E5,1470               CALCDIR            EQUALS   GENPL      +20D                       
004279,002864: E5,1653  E5,1471               CDUFLAG            EQUALS   GENPL      +21D                       
004280,002865: E5,1653  E5,1472               GYTOBETQ           EQUALS   GENPL      +22D                       
004281,002866: E5,1653  E5,1473               OPTNREG            EQUALS   GENPL      +23D                       
004282,002867: E5,1653  E5,1474               SAVE               EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
004283,002868: E5,1653  E5,1477               SFCONST1           EQUALS   GENPL      +27D                       

Page 96

004285,002870: E5,1653  E5,1500               TIMER              EQUALS   GENPL      +28D                       
004286,002871: 
004287,002872: E5,1653  E5,1502               DATAPL             EQUALS   GENPL      +30D                       
004288,002873: E5,1653  E5,1444               RDSP               EQUALS   GENPL                                 #  FIX LATER   POSSIBLY KEEP1
004289,002874: E5,1653  E5,1544               MASKREG            EQUALS   GENPL      +64D                       
004290,002875: E5,1653  E5,1546               CDUNDX             EQUALS   GENPL      +66D                       
004291,002876: E5,1653  E5,1547               RESULTCT           EQUALS   GENPL      +67D                       
004292,002877: E5,1653  E5,1552               COUNTPL            EQUALS   GENPL      +70D                       
004293,002878: 
004294,002879: E5,1653  E5,1553               CDUANG             EQUALS   GENPL      +71D                       
004295,002880: E5,1653  E5,1444               AINLA              =        GENPL                                 #  OPTIMUM CALIB. AND ALIGNMENT
004296,002881: 
004297,002882: 
004298,002883: E5,1653  E5,1444               WANGO              EQUALS   AINLA                                 
004299,002884: E5,1653  E5,1446               WANGI              EQUALS   AINLA      +2D                        
004300,002885: E5,1653  E5,1450               WANGT              EQUALS   AINLA      +4D                        
004301,002886: E5,1653  E5,1450               TORQNDX            =        WANGT                                 
004302,002887: E5,1653  E5,1452               DRIFTT             EQUALS   AINLA      +6D                        
004303,002888: E5,1653  E5,1454               ALX1S              EQUALS   AINLA      +8D                        
004304,002889: E5,1653  E5,1455               CMPX1              EQUALS   AINLA      +9D                        
004305,002890: E5,1653  E5,1456               ALK                EQUALS   AINLA      +10D                       
004306,002891: E5,1653  E5,1472               VLAUNS             EQUALS   AINLA      +22D                       
004307,002892: E5,1653  E5,1460               THETAX             =        ALK        +2                         
004308,002893: E5,1653  E5,1474               WPLATO             EQUALS   AINLA      +24D                       
004309,002894: E5,1653  E5,1500               INTY               EQUALS   AINLA      +28D                       
004310,002895: E5,1653  E5,1466               THETAN             =        THETAX     +6                         
004311,002896: E5,1653  E5,1502               ANGZ               EQUALS   AINLA      +30D                       
004312,002897: E5,1653  E5,1504               INTZ               EQUALS   AINLA      +32D                       
004313,002898: E5,1653  E5,1506               ANGY               EQUALS   AINLA      +34D                       
004314,002899: E5,1653  E5,1510               ANGX               EQUALS   AINLA      +36D                       
004315,002900: E5,1653  E5,1512               DRIFTO             EQUALS   AINLA      +38D                       
004316,002901: E5,1653  E5,1514               DRIFTI             EQUALS   AINLA      +40D                       
004317,002902: E5,1653  E5,1520               VLAUN              EQUALS   AINLA      +44D                       
004318,002903: E5,1653  E5,1474               FILDELV            =        THETAN     +6                         
004319,002904: E5,1653  E5,1522               ACCWD              EQUALS   AINLA      +46D                       
004320,002905: E5,1653  E5,1476               INTVEC             =        FILDELV    +2                         
004321,002906: E5,1653  E5,1530               POSNV              EQUALS   AINLA      +52D                       
004322,002907: E5,1653  E5,1532               DPIPAY             EQUALS   AINLA      +54D                       
004323,002908: E5,1653  E5,1536               DPIPAZ             EQUALS   AINLA      +58D                       
004324,002909: E5,1653  E5,1540               ALTIM              EQUALS   AINLA      +60D                       
004325,002910: E5,1653  E5,1541               ALTIMS             EQUALS   AINLA      +61D                       
004326,002911: E5,1653  E5,1542               ALDK               EQUALS   AINLA      +62D                       
004327,002912: E5,1653  E5,1560               DELM               EQUALS   AINLA      +76D                       
004328,002913: E5,1653  E5,1570               WPLATI             EQUALS   AINLA      +84D                       
004329,002914: E5,1653  E5,1577               RESTARPT           =        AINLA      +          91D             
004330,002915: E5,1653  E5,1631               GEOSAVED           =        AINLA      +117D                      
004331,002916: E5,1653  E5,1632               PREMTRXC           =        AINLA      +118D                      
004332,002917: E5,1653  E5,1633               LAUNCHAZ           =        AINLA      +119D                      
004333,002918: E5,1653  E5,1635               NEWAZMTH           =        AINLA      +121D                      
004334,002919: E5,1653  E5,1637               OLDAZMTH           =        AINLA      +123D                      

Page 97

004336,002921: E5,1653  E5,1641               TOLDAZMT           =        AINLA      +125D                      
004337,002922: E5,1653  E5,1643               GEOCOMPS           =        AINLA      +127D                      
004338,002923: E5,1653  E5,1644               1SECXT             =        AINLA      +128D                      
004339,002924: E5,1653  E5,1645               GTSXTLST           =        AINLA      +129D                      
004340,002925: E5,1653  E5,1646               ERECTIME           =        AINLA      +130D                      
004341,002926: E5,1653  E5,1647               ERCOMP             =        AINLA      +131D                      
004342,002927: E5,1653  E5,1655               ZERONDX            =        AINLA      +137D                      
004343,002928: E5,1653  E5,1655               GTSOPNDZ           =        ZERONDX                               
004344,002929: 
004345,002930: 
004346,002931:                                                                                                  #  THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY.
004347,002932: 
004348,002933: E5,1653  E5,1460               THETAX1            EQUALS   ALK        +2                         
004349,002934: E5,1653  E5,1466               THETAN1            EQUALS   THETAX1    +6                         
004350,002935: E5,1653  E5,1474               FILDELV1           EQUALS   THETAN1    +6                         
004351,002936: E5,1653  E5,1476               INTVEC1            EQUALS   FILDELV1   +2                         
004352,002937: E5,1653  E5,1631               GEOSAVE1           EQUALS   AINLA      +117D                      
004353,002938: E5,1653  E5,1632               PREMTRX1           EQUALS   AINLA      +118D                      
004354,002939: E5,1653  E5,1633               LUNCHAZ1           EQUALS   AINLA      +119D                      
004355,002940: E5,1653  E5,1635               NEWAZ1             EQUALS   LUNCHAZ1   +2                         
004356,002941: E5,1653  E5,1637               OLDAZ1             EQUALS   LUNCHAZ1   +4                         
004357,002942: E5,1653  E5,1641               TOLDAZ1            EQUALS   LUNCHAZ1   +6                         
004358,002943: E5,1653  E5,1643               GEOCOMP1           EQUALS   AINLA      +127D                      
004359,002944: E5,1653  E5,1644               1SECXT1            EQUALS   AINLA      +128D                      
004360,002945: E5,1653  E5,1645               GTSWTLT1           EQUALS   AINLA      +129D                      
004361,002946: E5,1653  E5,1646               ERECTIM1           EQUALS   AINLA      +130D                      
004362,002947: E5,1653  E5,1647               ERCOMP1            EQUALS   AINLA      +131D                      #  I(6)
004363,002948: E5,1653  E5,1655               ZERONDX1           EQUALS   AINLA      +137D                      
004364,002949: E5,1653  E5,1656               PERFDLAY           EQUALS   AINLA      +138D                      #  B(2).........
004365,002950:                                                                                                  #  END OF 504 CAL + ALIGN ERASE.
004366,002951: 
004367,002952: 
004368,002953: E5,1653  E5,1777               END-E5             EQUALS   QMIN                                  #  LAST USED E5 ADDRESS
004369,002954: 

Page 98

004371,002956: 
004372,002957:                                                                                                  #                  EBANK-6 ASSIGNMENTS
004373,002958: E6,1400                                           SETLOC   3000                                  
004374,002959: 
004375,002960:                                                                                                  #           P23   PAD LOADS***                                             (2D).
004376,002961: 
004377,002962: E6,1400                        WMIDPOS            ERASE                                          #  I(1) PL  INITIAL VALUES FOR W-MATRIX IN
004378,002963: E6,1401                        WMIDVEL            ERASE                                          #  I(1) PL  CISLUNAR (P23) NAVIGATION
004379,002964: 
004380,002965: 
004381,002966: 
004382,002967:                                                                                                  #           R22 PAD LOADS                                                  ( 5D ).
004383,002968: 
004384,002969: E6,1402                        RVAR               ERASE    +1                                    #  I(2) PL  VHF RADAR
004385,002970: E6,1404                        RVARMIN            ERASE    +2                                    #  I(3) PL  VHF RADAR
004386,002971: 
004387,002972: 
004388,002973: 
004389,002974:                                                                                                  #  ******** PAD LOADED ENTRY DAP STEERING VARIABLES ********               (3D)
004390,002975: 
004391,002976: E6,1407                        LADPAD             ERASE                                          #  I(1) PL  FOR ENTRY.HOLDS CM  NOMINAL L/D
004392,002977: E6,1410                        LODPAD             ERASE                                          #  I(1) PL  FOR ENTRY.HOLDS CM  NOMINAL LOD
004393,002978: E6,1411                        ALFAPAD            ERASE                                          #  B(1) PL  ALFA TRIM / 180
004394,002979: 
004395,002980: 
004396,002981:                                                                                                  #  ******** PAD LOADED TVC DAP VARIABLES.**********************************(26D)
004397,002982: 
004398,002983: E6,1412                        ESTROKER           ERASE                                          #  B(1)PL
004399,002984: E6,1413                        EKPRIME            ERASE    +1                                    #  B(2)PL
004400,002985: E6,1415                        ETDECAY            ERASE                                          #  I(1)PL
004401,002986: E6,1416                        EKTLX/I            ERASE    +1                                    #  B(2)PL
004402,002987: E6,1420                        ETVCDT/2           ERASE                                          #  B(1)PL
004403,002988: E6,1421                        ETSWITCH           ERASE                                          #  B(1)PL
004404,002989: E6,1422                        ECORFRAC           ERASE                                          #  B(1)PL
004405,002990: E6,1423                        EREPFRAC           ERASE    +1                                    #  B(2)PL
004406,002991: E6,1425                        PACTOFF            ERASE                                          #  B(1)PL, DSP N48 R01 = PTRIM, R02 = YTRIM
004407,002992: E6,1426                        YACTOFF            ERASE                                          #  B(1)PL, CONSECUTIVE WITH PACTOFF
004408,002993: E6,1427                        AP0                ERASE                                          #  B(1)
004409,002994: E6,1430                        AP1                ERASE    +1                                    #  B(2)
004410,002995: E6,1432                        AP2                ERASE    +1                                    #  B(2)
004411,002996: E6,1434                        AP3                ERASE    +1                                    #  B(2)
004412,002997: 
004413,002998: E6,1436                        BP1                ERASE    +1                                    #  B(2)
004414,002999: E6,1440                        BP2                ERASE    +1                                    #  B(2)
004415,003000: E6,1442                        BP3                ERASE    +1                                    #  B(2)
004416,003001: E6,1444  E6,1427               AY0                =        AP0                                   
004417,003002: E6,1444  E6,1430               AY1                =        AP1                                   
004418,003003: E6,1444  E6,1432               AY2                =        AP2                                   
004419,003004: E6,1444  E6,1434               AY3                =        AP3                                   
004420,003005: 
004421,003006: E6,1444  E6,1436               BY1                =        BP1                                   

Page 99

004423,003008: E6,1444  E6,1440               BY2                =        BP2                                   
004424,003009: E6,1444  E6,1442               BY3                =        BP3                                   
004425,003010: 
004426,003011:                                                                                                  #  ******** EXCLUSIVE TVC DAP VARIABLES. **********************************(5D)
004427,003012: 
004428,003013: E6,1444                        V97VCNTR           ERASE                                          #  B(1)
004429,003014: E6,1445                        TEMPDAP            ERASE    +1                                    #  B(2)
004430,003015: E6,1447  E6,1445               MRKRTMP            =        TEMPDAP                               #       ((B(1)))
004431,003016: E6,1447                        CNTR               ERASE                                          #  B(1)
004432,003017: E6,1450                        OGAD               ERASE                                          #  B(1)
004433,003018: 
004434,003019: 
004435,003020: 
004436,003021:                                                                                                  #  ******** EXCLUSIVE RCS DAP VARIABLES. *********************************(13D)
004437,003022: 
004438,003023: E6,1451                        RWORD1             ERASE    +12D                                  #  B(1)
004439,003024: E6,1466  E6,1452               RWORD2             EQUALS   RWORD1     +1                         #  B(1)
004440,003025: E6,1466  E6,1453               PWORD1             EQUALS   RWORD2     +1                         #  B(1)
004441,003026: E6,1466  E6,1454               PWORD2             EQUALS   PWORD1     +1                         #  B(1)
004442,003027: E6,1466  E6,1455               YWORD1             EQUALS   PWORD2     +1                         #  B(1)
004443,003028: E6,1466  E6,1456               YWORD2             EQUALS   YWORD1     +1                         #  B(1)
004444,003029: E6,1466  E6,1457               BLAST              EQUALS   YWORD2     +1                         #  B(2)
004445,003030: E6,1466  E6,1461               BLAST1             EQUALS   BLAST      +2                         #  B(2)
004446,003031: E6,1466  E6,1463               BLAST2             EQUALS   BLAST1     +2                         #  B(2)
004447,003032: E6,1466  E6,1465               T5PHASE            EQUALS   BLAST2     +2                         #  B(1)
004448,003033: 
004449,003034: 
004450,003035: 
004451,003036:                                                                                                  #  ******** RCS/TVC DAP COMMON STORAGE.************************************(16D)
004452,003037: 
004453,003038: E6,1466                        DAPDATR1           ERASE                                          #  B(1)DSP NOUN 46(R1)
004454,003039: E6,1467                        DAPDATR2           ERASE                                          #  B(1)DSP NOUN 46(R2)
004455,003040: 
004456,003041: E6,1470                        IXX                ERASE                                          #  B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR
004457,003042: E6,1471                        IAVG               ERASE                                          #  B(1)                            MASSPROP
004458,003043: E6,1472                        IAVG/TLX           ERASE                                          #  B(1)
004459,003044: 
004460,003045: E6,1473                        LEMMASS            ERASE    +1                                    #  B(1) DSP NOUN 47 (R2)       LEM/CSMMASS
004461,003046: E6,1475  E6,1474               CSMMASS            EQUALS   LEMMASS    +1                         #  B(1) DSP NOUN 47 (R1)       FOR DOWNLINK
004462,003047: E6,1475                        WEIGHT/G           ERASE                                          #  B(1)
004463,003048: E6,1476  E6,1475               MASS               =        WEIGHT/G                              
004464,003049: 
004465,003050: E6,1476                        AK                 ERASE                                          
004466,003051: E6,1477                        AK1                ERASE                                          
004467,003052: E6,1500                        AK2                ERASE                                          
004468,003053: 
004469,003054: E6,1501                        RCSFLAGS           ERASE                                          #  B(1) CONSECUTIVE WITHAK2 DOWNLINK
004470,003055: E6,1502                        T5TEMP             ERASE                                          #  B(1)
004471,003056: E6,1503                        EDRIVEX            ERASE                                          

Page 100

004473,003058: E6,1504                        EDRIVEY            ERASE                                          
004474,003059: E6,1505                        EDRIVEZ            ERASE                                          
004475,003060: 
004476,003061: 
004477,003062:                                                                                                  #           INTEMP THRU INTEMP+14D  ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORIES
004478,003063: E6,1506                        INTTEMP            ERASE    +14D                                  #   (15)
004479,003064: 
004480,003065: 
004481,003066:                                                                                                  #           TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES
004482,003067: 
004483,003068: E6,1525                        TVCRCS             ERASE    +11D                                  #  (12)
004484,003069:                                                                                                  #  RCS (WBODYS,ADOTS)
004485,003070:                                                                                                  #  TVC(OMEGACS,OMEGABS)
004486,003071: 
004487,003072: 
004488,003073:                                                                                                  #           TVC DAP TEMPORARY VARIABLES************************************
004489,003074: 
004490,003075:                                                                                                  #           TVC DAP INTERUPT TRUE TEMPORARIES******************************
004491,003076: 
004492,003077: E6,1541  E6,1506               PHI333             EQUALS   INTTEMP                               #  B(1)     TEMPORARY REGISTER
004493,003078: E6,1541  E6,1507               PSI333             EQUALS   PHI333     +1                         #  B(1)     COUNTING REGISTER
004494,003079: E6,1541  E6,1510               TEMP333            EQUALS   PSI333     +1                         #  B(1)     COUNTING REGISTER
004495,003080: E6,1541  E6,1511               VARST0             EQUALS   TEMP333    +1                         #  B(10D)   BREAKPOINTS AND SLOPES
004496,003081: E6,1541  E6,1516               VARST5             =        VARST0     +5                         
004497,003082: E6,1541  E6,1522               LASTMASP           EQUALS   VARST0     +9D                        #  LAST VARST0 WORD
004498,003083: E6,1541  E6,1523               TVCTMP1            EQUALS   LASTMASP   +1                         #  B(1)
004499,003084: 
004500,003085: 
004501,003086:                                                                                                  #           *******REGULAR TVC TEMPORARIES*************
004502,003087: 
004503,003088: 
004504,003089:                                                                                                  #           TVC ZEROING LOOP STARTS AT OMEGAYC                             (70D)
004505,003090: 
004506,003091: 
004507,003092: E6,1541  E6,1525               OMEGAC             EQUALS   TVCRCS                                #  I(6)
004508,003093: E6,1541  E6,1525               OMEGAXC            =        OMEGAC                                
004509,003094: E6,1541  E6,1527               OMEGAYC            =        OMEGAC     +2                         
004510,003095: E6,1541  E6,1531               OMEGAZC            =        OMEGAC     +4                         
004511,003096: 
004512,003097: E6,1541  E6,1533               OMEGAB             EQUALS   TVCRCS     +6                         #  B(6)
004513,003098: E6,1541  E6,1533               OMEGAXB            =        OMEGAB                                
004514,003099: E6,1541  E6,1535               OMEGAYB            =        OMEGAB     +2                         
004515,003100: E6,1541  E6,1537               OMEGAZB            =        OMEGAB     +4                         
004516,003101: 
004517,003102: E6,1541  E6,1541               PNSUM              EQUALS   OMEGAC     +12D                       #  B(2)
004518,003103: E6,1541  E6,1543               PDSUM              EQUALS   PNSUM      +2                         #  B(2)
004519,003104: 
004520,003105: E6,1541  E6,1545               B1                 EQUALS   PDSUM      +2                         #  B(1)
004521,003106: E6,1541  E6,1546               B2                 EQUALS   B1         +1                         #  B(1)

Page 101

004523,003108: E6,1541  E6,1547               B3                 EQUALS   B2         +1                         #  B(1)
004524,003109: E6,1541  E6,1550               B4                 EQUALS   B3         +1                         #  B(1)
004525,003110: E6,1541  E6,1551               B5                 EQUALS   B4         +1                         #  B(1)
004526,003111: E6,1541  E6,1552               B6                 EQUALS   B5         +1                         #  B(1)
004527,003112: 
004528,003113: E6,1541  E6,1553               J1                 EQUALS   B6         +1                         #  B(2)
004529,003114: E6,1541  E6,1555               J2                 EQUALS   J1         +2                         #  B(2)
004530,003115: E6,1541  E6,1557               J3                 EQUALS   J2         +2                         #  B(2)
004531,003116: E6,1541  E6,1561               J4                 EQUALS   J3         +2                         #  B(2)
004532,003117: E6,1541  E6,1563               J5                 EQUALS   J4         +2                         #  B(2)
004533,003118: 
004534,003119: E6,1541  E6,1565               YNSUM              EQUALS   J5         +2                         #  B(2)
004535,003120: E6,1541  E6,1567               YDSUM              EQUALS   YNSUM      +2                         #  B(2)
004536,003121: 
004537,003122: E6,1541  E6,1571               C1                 EQUALS   YDSUM      +2                         #  B(1)
004538,003123: E6,1541  E6,1572               C2                 EQUALS   C1         +1                         #  B(1)
004539,003124: E6,1541  E6,1573               C3                 EQUALS   C2         +1                         #  B(1)
004540,003125: E6,1541  E6,1574               C4                 EQUALS   C3         +1                         #  B(1)
004541,003126: E6,1541  E6,1575               C5                 EQUALS   C4         +1                         #  B(1)
004542,003127: E6,1541  E6,1576               C6                 EQUALS   C5         +1                         #  B(1)
004543,003128: 
004544,003129: E6,1541  E6,1577               Y1                 EQUALS   C6         +1                         #  B(2)
004545,003130: E6,1541  E6,1601               Y2                 EQUALS   Y1         +2                         #  B(2)
004546,003131: E6,1541  E6,1603               Y3                 EQUALS   Y2         +2                         #  B(2)
004547,003132: E6,1541  E6,1605               Y4                 EQUALS   Y3         +2                         #  B(2)
004548,003133: E6,1541  E6,1607               Y5                 EQUALS   Y4         +2                         #  B(2)
004549,003134: 
004550,003135: E6,1541  E6,1611               ROLLFIRE           EQUALS   Y5         +2                         #  B(1)
004551,003136: E6,1541  E6,1612               ROLLWORD           EQUALS   ROLLFIRE   +1                         #  B(1)
004552,003137: E6,1541  E6,1613               TEMREG             EQUALS   ROLLWORD   +1                         #  B(1)
004553,003138: 
004554,003139: E6,1541  E6,1614               STROKER            EQUALS   TEMREG     +1                         #  B(1)
004555,003140: 
004556,003141: E6,1541  E6,1615               PERRB              EQUALS   STROKER    +1                         #  B(2)
004557,003142: E6,1541  E6,1617               YERRB              EQUALS   PERRB      +2                         #  B(2)
004558,003143: 
004559,003144: E6,1541  E6,1621               DELPBAR            EQUALS   YERRB      +2                         #  B(2)
004560,003145: E6,1541  E6,1623               DELYBAR            EQUALS   DELPBAR    +2                         #  B(2)
004561,003146: 
004562,003147: E6,1541  E6,1625               PDELOFF            EQUALS   DELYBAR    +2                         #  B(2)
004563,003148: E6,1541  E6,1627               YDELOFF            EQUALS   PDELOFF    +2                         #  B(2)
004564,003149: 
004565,003150:                                                                                                  #           TVC ZEROING LOOP ENDS HERE
004566,003151: 
004567,003152: 
004568,003153: E6,1541  E6,1631               PCMD               EQUALS   YDELOFF    +2                         #  B(1)
004569,003154: E6,1541  E6,1632               YCMD               EQUALS   PCMD       +1                         #  B(1), CONSECUTIVE WITH PCMD
004570,003155: E6,1541  E6,1633               TACTOFF            EQUALS   YCMD       +1                         #  B(2)
004571,003156: E6,1541  E6,1635               T5TVCDT            EQUALS   TACTOFF    +2                         #  B(1)
004572,003157: E6,1541  E6,1636               MDT                EQUALS   T5TVCDT    +1                         #  I(6)

Page 102

004574,003159: E6,1541  E6,1644               KPRIMEDT           EQUALS   MDT        +6                         #  I(2)
004575,003160: E6,1541  E6,1646               KTLX/I             EQUALS   KPRIMEDT   +2                         #  B(1)
004576,003161: E6,1541  E6,1647               TENMDOT            EQUALS   KTLX/I     +1                         #  B(1)
004577,003162: E6,1541  E6,1650               1/CONACC           EQUALS   TENMDOT    +1                         #  B(1)
004578,003163: E6,1541  E6,1651               VARK               EQUALS   1/CONACC   +1                         #  B(1)
004579,003164: E6,1541  E6,1652               REPFRAC            EQUALS   VARK       +1                         #  B(1)
004580,003165: E6,1541  E6,1653               VCNTR              EQUALS   REPFRAC    +1                         #  B(1)
004581,003166: E6,1541  E6,1654               TVCPHASE           EQUALS   VCNTR      +1                         #  B(1)
004582,003167: E6,1541  E6,1655               PCDUYPST           EQUALS   TVCPHASE   +1                         #  B(1)
004583,003168: E6,1541  E6,1656               PCDUZPST           EQUALS   PCDUYPST   +1                         #  B(1)
004584,003169: E6,1541  E6,1657               MCDUYDOT           EQUALS   PCDUZPST   +1                         #  B(1)
004585,003170: E6,1541  E6,1660               MCDUZDOT           EQUALS   MCDUYDOT   +1                         #  B(1)
004586,003171: E6,1541  E6,1661               TVCEXPHS           EQUALS   MCDUZDOT   +1                         #  B(1)
004587,003172: E6,1541  E6,1662               MASSTMP            EQUALS   TVCEXPHS   +1                         #  B(1)     PROTECT
004588,003173: E6,1541  E6,1663               VCNTRTMP           EQUALS   MASSTMP    +1                         #  B(1)       *PROTECT***
004589,003174: 
004590,003175:                                                                                                  #           STROKE TEST VARIABLES
004591,003176: 
004592,003177:                                                                                                  #  (6D)
004593,003178: E6,1541  E6,1664               STRKTIME           EQUALS   VCNTRTMP   +1                         #  B(1)
004594,003179: E6,1541  E6,1665               CADDY              EQUALS   STRKTIME   +1                         #  B(1)
004595,003180: E6,1541  E6,1666               N                  EQUALS   CADDY      +1                         #  B(1)
004596,003181: E6,1541  E6,1667               BUNKER             EQUALS   N          +1                         #  B(1)
004597,003182: E6,1541  E6,1670               REVS               EQUALS   BUNKER     +1                         #  B(1)
004598,003183: E6,1541  E6,1671               CARD               EQUALS   REVS       +1                         #  B(1)
004599,003184: 
004600,003185:                                                                                                  #           TVC ROLL DAP VARIABLES
004601,003186: 
004602,003187:                                                                                                  #  (8D)
004603,003188: E6,1541  E6,1672               OGANOW             EQUALS   CARD       +1                         #  B(1)
004604,003189: E6,1541  E6,1673               OGAPAST            EQUALS   OGANOW     +1                         #  B(1)
004605,003190: E6,1541  E6,1674               OGA                EQUALS   OGAPAST    +1                         #  B(1)TMP
004606,003191: E6,1541  E6,1674               OGAERR             =        OGA                                   #  (ROLL DAP USES OGA, MEANS OGAERROR)
004607,003192: E6,1541  E6,1675               DELOGART           EQUALS   OGA        +1                         #  B(1)TMP
004608,003193: E6,1541  E6,1676               SGNRT              EQUALS   DELOGART   +1                         #  SIGN OF OGA RATE
004609,003194: E6,1541  E6,1677               DELOGA             EQUALS   SGNRT      +1                         #  USED IN ROLL LOGIC
004610,003195: E6,1541  E6,1700               I                  EQUALS   DELOGA     +1                         #  USED IN ROLL LOGIC
004611,003196: E6,1541  E6,1701               IOGARATE           EQUALS   I          +1                         #  USED IN ROLL LOGIC
004612,003197: 
004613,003198:                                                                                                  #           TVC DAP RESTART TEMPORARIES.                                   (33D)
004614,003199: 
004615,003200: E6,1541  E6,1702               TKTLX/I            EQUALS   IOGARATE   +1                         #  B(1)
004616,003201: E6,1541  E6,1703               PACTTMP            EQUALS   TKTLX/I    +1                         #  B(2)
004617,003202: E6,1541  E6,1705               YACTTMP            EQUALS   PACTTMP    +2                         #  B(2)
004618,003203: E6,1541  E6,1707               CNTRTMP            EQUALS   YACTTMP    +2                         #  B(1)
004619,003204: E6,1541  E6,1710               STRKTTMP           EQUALS   CNTRTMP    +1                         #  B(1)
004620,003205: E6,1541  E6,1711               NSUMTMP            EQUALS   STRKTTMP   +1                         #  B(2)
004621,003206: E6,1541  E6,1713               DSUMTMP            EQUALS   NSUMTMP    +2                         #  B(2)
004622,003207: E6,1541  E6,1715               DELBRTMP           EQUALS   DSUMTMP    +2                         #  B(2)

Page 103

004624,003209: E6,1541  E6,1717               B1TMP              EQUALS   DELBRTMP   +2                         #  B(1)
004625,003210: E6,1541  E6,1720               B2TMP              EQUALS   B1TMP      +1                         #  B(1)
004626,003211: E6,1541  E6,1721               B3TMP              EQUALS   B2TMP      +1                         #  B(1)
004627,003212: E6,1541  E6,1722               B4TMP              EQUALS   B3TMP      +1                         #  B(1)
004628,003213: E6,1541  E6,1723               B5TMP              EQUALS   B4TMP      +1                         #  B(1)
004629,003214: E6,1541  E6,1724               B6TMP              EQUALS   B5TMP      +1                         #  B(1)
004630,003215: E6,1541  E6,1725               B7TMP              EQUALS   B6TMP      +1                         #  B(1)
004631,003216: 
004632,003217: E6,1541  E6,1726               J1TMP              EQUALS   B7TMP      +1                         #  B(2)
004633,003218: E6,1541  E6,1730               J2TMP              EQUALS   J1TMP      +2                         #  B(2)
004634,003219: E6,1541  E6,1732               J3TMP              EQUALS   J2TMP      +2                         #  B(2)
004635,003220: E6,1541  E6,1734               J4TMP              EQUALS   J3TMP      +2                         #  B(2)
004636,003221: E6,1541  E6,1736               J5TMP              EQUALS   J4TMP      +2                         #  B(2)
004637,003222: E6,1541  E6,1740               J6TMP              EQUALS   J5TMP      +2                         #  B(2)
004638,003223: E6,1541  E6,1742               ERRBTMP            EQUALS   J6TMP      +2                         #  B(2)
004639,003224: E6,1541  E6,1744               CMDTMP             EQUALS   ERRBTMP    +2                         #  B(2)
004640,003225: 
004641,003226:                                                                                                  #           OVERLAYS WITHIN TVC DAP
004642,003227: 
004643,003228: E6,1541  E6,1533               OGARATE            =        OMEGAB                                #  B(2)
004644,003229: 
004645,003230: E6,1541  E6,1742               BZERO              =        ERRBTMP                               
004646,003231: E6,1541  E6,1742               CZERO              =        ERRBTMP                               
004647,003232: E6,1541  E6,1744               JZERO              =        CMDTMP                                
004648,003233: E6,1541  E6,1744               YZERO              =        CMDTMP                                
004649,003234: E6,1541  E6,1651               KPGEN3             =        VARK                                  
004650,003235: E6,1541  E6,1651               KYGEN3             =        KPGEN3                                
004651,003236: 
004652,003237: E6,1541  E6,1742               EP                 =        ERRBTMP                               
004653,003238: E6,1541  E6,1744               NPD                =        CMDTMP                                
004654,003239: E6,1541  E6,1561               NP0                EQUALS   J4                                    #      (B(2))
004655,003240: E6,1541  E6,1563               NP1                EQUALS   J5                                    #      (B(2))
004656,003241: E6,1541  E6,1541               NP2                EQUALS   PNSUM                                 #      (B(2))
004657,003242: E6,1541  E6,1543               NP3                EQUALS   PDSUM                                 #      (B(2))
004658,003243: 
004659,003244: E6,1541  E6,1736               NP1TMP             EQUALS   J5TMP                                 #      (B(2))
004660,003245: E6,1541  E6,1711               NP2TMP             EQUALS   NSUMTMP                               #      (B(2))
004661,003246: E6,1541  E6,1713               NP3TMP             EQUALS   DSUMTMP                               #      (B(2))
004662,003247: 
004663,003248: E6,1541  E6,1742               EY                 =        ERRBTMP                               
004664,003249: E6,1541  E6,1744               NYD                =        CMDTMP                                
004665,003250: E6,1541  E6,1605               NY0                EQUALS   Y4                                    #      (B(2))
004666,003251: E6,1541  E6,1607               NY1                EQUALS   Y5                                    #      (B(2))
004667,003252: E6,1541  E6,1565               NY2                EQUALS   YNSUM                                 #      (B(2))
004668,003253: E6,1541  E6,1567               NY3                EQUALS   YDSUM                                 #      (B(2))
004669,003254: 
004670,003255: E6,1541  E6,1736               NY1TMP             EQUALS   Y5TMP                                 #      (B(2))
004671,003256: E6,1541  E6,1711               NY2TMP             EQUALS   NSUMTMP                               #      (B(2))
004672,003257: E6,1541  E6,1713               NY3TMP             EQUALS   DSUMTMP                               #      (B(2))
004673,003258: 

Page 104

004675,003260: E6,1541  E6,1717               C1TMP              =        B1TMP                                 #      (B(1))
004676,003261: E6,1541  E6,1720               C2TMP              =        B2TMP                                 #      (B(1))
004677,003262: E6,1541  E6,1721               C3TMP              =        B3TMP                                 #      (B(1))
004678,003263: E6,1541  E6,1722               C4TMP              =        B4TMP                                 #      (B(1))
004679,003264: E6,1541  E6,1723               C5TMP              =        B5TMP                                 #      (B(1))
004680,003265: E6,1541  E6,1724               C6TMP              =        B6TMP                                 #      (B(1))
004681,003266: E6,1541  E6,1725               C7TMP              =        B7TMP                                 #      (B(1))
004682,003267: 
004683,003268: E6,1541  E6,1726               Y1TMP              =        J1TMP                                 #      (B(2))
004684,003269: E6,1541  E6,1730               Y2TMP              =        J2TMP                                 #      (B(2))
004685,003270: E6,1541  E6,1732               Y3TMP              =        J3TMP                                 #      (B(2))
004686,003271: E6,1541  E6,1734               Y4TMP              =        J4TMP                                 #      (B(2))
004687,003272: E6,1541  E6,1736               Y5TMP              =        J5TMP                                 #      (B(2))
004688,003273: E6,1541  E6,1740               Y6TMP              =        J6TMP                                 #      (B(2))
004689,003274: 
004690,003275: 
004691,003276:                                                                                                  #           S40.9 STORAGE..........
004692,003277: 
004693,003278: E6,1541  E6,1746               NBRCYCLS           EQUALS   CMDTMP     +2                         #  B(1)     COUNTER FOR P40,41 STEERING
004694,003279: E6,1541  E6,1747               NBRCYCLP           EQUALS   NBRCYCLS   +1                         #  B(1) MAINTAIN ORDER
004695,003280: E6,1541  E6,1750               DELVSUM            EQUALS   NBRCYCLP   +1                         #  I(6)  P40,P41
004696,003281: E6,1541  E6,1756               DELVSUMP           EQUALS   DELVSUM    +6                         #  I(6)  P40,P41
004697,003282: 

Page 105

004699,003284: 
004700,003285:                                                                                                  #  ******** RCS DAP TEMPORARY VARIABLES. ***********************************(95D)
004701,003286: 
004702,003287:                                                                                                  #           **RCS INTERUPT TRUE TEMPS*************************              15D
004703,003288: 
004704,003289: E6,1541  E6,1506               SPNDX              EQUALS   INTTEMP                               #  B(1)
004705,003290: E6,1541  E6,1507               DPNDX              EQUALS   SPNDX      +1                         #  B(1)TMP
004706,003291: E6,1541  E6,1510               KMPAC              EQUALS   DPNDX      +1                         #  B(2)TMP
004707,003292: E6,1541  E6,1512               KMPTEMP            EQUALS   KMPAC      +2                         #  B(1)TMP
004708,003293: 
004709,003294: E6,1541  E6,1513               XNDX1              EQUALS   KMPTEMP    +1                         #  B(1)TMP  XNDX1 THRU NYJETS ARE OVERLAYED
004710,003295: E6,1541  E6,1514               XNDX2              EQUALS   XNDX1      +1                         #  B(1)TMP  BY OTHER DAP ERASABLES SO
004711,003296: E6,1541  E6,1515               YNDX               EQUALS   XNDX2      +1                         #  B(1)TMP  SHOULD ALWAYS BE DEFINED IN
004712,003297: E6,1541  E6,1516               ZNDX               EQUALS   YNDX       +1                         #  B(1)TMP  A BLOCK
004713,003298: E6,1541  E6,1517               RINDEX             EQUALS   ZNDX       +1                         #  B(1)TMP
004714,003299: E6,1541  E6,1520               PINDEX             EQUALS   RINDEX     +1                         #  B(1)TMP
004715,003300: E6,1541  E6,1521               YINDEX             EQUALS   PINDEX     +1                         #  B(1)TMP
004716,003301: E6,1541  E6,1522               NRJETS             EQUALS   YINDEX     +1                         #  B(1)TMP
004717,003302: E6,1541  E6,1523               NPJETS             EQUALS   NRJETS     +1                         #  B(1)TMP
004718,003303: E6,1541  E6,1524               NYJETS             EQUALS   NPJETS     +1                         #  B(1)TMP
004719,003304: 
004720,003305: E6,1541  E6,1513               WTEMP              EQUALS   XNDX1                                 #  B(2)TMP   WTEMP THRU DELTEMPZ OVERLAY
004721,003306: E6,1541  E6,1515               DELTEMPX           EQUALS   WTEMP      +2                         #  B(2)TMP   XNDX1 THRU NRJETS AND EDOT THRU
004722,003307: E6,1541  E6,1517               DELTEMPY           EQUALS   DELTEMPX   +2                         #  B(2)TMP   ADBVEL
004723,003308: E6,1541  E6,1521               DELTEMPZ           EQUALS   DELTEMPY   +2                         #  B(2)TMP
004724,003309: 
004725,003310: E6,1541  E6,1515               EDOT               EQUALS   YNDX                                  #  B(2)TMP   EDOT THRU ADBVEL OVERLAY
004726,003311: E6,1541  E6,1517               AERR               EQUALS   EDOT       +2                         #  B(1)TMP   YNDX THRU NPJETS AND DELTEMPX
004727,003312: E6,1541  E6,1520               EDOTVEL            EQUALS   AERR       +1                         #  B(2)TMP    THRU DELTEMPZ
004728,003313: E6,1541  E6,1522               AERRVEL            EQUALS   EDOTVEL    +2                         #  B(1)TMP
004729,003314: E6,1541  E6,1523               ADBVEL             EQUALS   AERRVEL    +1                         #  B(1)TMP
004730,003315: 
004731,003316:                                                                                                  #           *** REGULAR RCS TEMPS*****************************             (   ).
004732,003317: 
004733,003318:                                                                                                  #             RCS ZEROING LOOP STARTS HERE****  ** **  **  ***   *** * *   (37)
004734,003319: 
004735,003320: E6,1541  E6,1525               WBODY              EQUALS   TVCRCS                                #  B(2)TMP
004736,003321: E6,1541  E6,1527               WBODY1             EQUALS   WBODY      +2                         #  B(2)TMP
004737,003322: E6,1541  E6,1531               WBODY2             EQUALS   WBODY      +4                         #  B(2)TMP
004738,003323: E6,1541  E6,1533               ADOT               EQUALS   WBODY2     +2                         #  B(2)TMP
004739,003324: E6,1541  E6,1535               ADOT1              EQUALS   ADOT       +2                         #  B(2)TMP
004740,003325: E6,1541  E6,1537               ADOT2              EQUALS   ADOT1      +2                         #  B(2)TMP
004741,003326: 
004742,003327: E6,1541  E6,1541               MERRORX            EQUALS   ADOT2      +2                         #   (2)
004743,003328: E6,1541  E6,1543               MERRORY            EQUALS   MERRORX    +2                         #   (2)
004744,003329: E6,1541  E6,1545               MERRORZ            EQUALS   MERRORY    +2                         #   (2)
004745,003330: E6,1541  E6,1547               DFT                EQUALS   MERRORZ    +2                         #         B(1)TMP
004746,003331: E6,1541  E6,1550               DFT1               EQUALS   DFT        +1                         #  B(1)TMP
004747,003332: E6,1541  E6,1551               DFT2               EQUALS   DFT1       +1                         #  B(1)TMP
004748,003333: E6,1541  E6,1552               DRHO               EQUALS   DFT2       +1                         #  B(2)TMP
004749,003334: E6,1541  E6,1554               DRHO1              EQUALS   DRHO       +2                         #  B(2)TMP

Page 106

004751,003336: E6,1541  E6,1556               DRHO2              EQUALS   DRHO1      +2                         #  B(2)TMP
004752,003337: E6,1541  E6,1560               ATTSEC             EQUALS   DRHO2      +2                         #  B(1)TMP
004753,003338: E6,1541  E6,1561               TAU                EQUALS   ATTSEC     +1                         #  B(1)TMP
004754,003339: E6,1541  E6,1562               TAU1               EQUALS   TAU        +1                         #  B(1)TMP
004755,003340: E6,1541  E6,1563               TAU2               EQUALS   TAU1       +1                         #  B(1)TMP
004756,003341: E6,1541  E6,1564               BIAS               EQUALS   TAU2       +1                         #  B(1)TMP
004757,003342: E6,1541  E6,1565               BIAS1              EQUALS   BIAS       +1                         #  B(1)TMP
004758,003343: E6,1541  E6,1566               BIAS2              EQUALS   BIAS1      +1                         #  B(1)TMP
004759,003344: E6,1541  E6,1567               ERRORX             EQUALS   BIAS2      +1                         #  B(1)TMP
004760,003345: E6,1541  E6,1570               ERRORY             EQUALS   ERRORX     +1                         #  B(1)TMP
004761,003346: E6,1541  E6,1571               ERRORZ             EQUALS   ERRORY     +1                         #  B(1)TMP
004762,003347: 
004763,003348: 
004764,003349: 
004765,003350:                                                                                                  #           RCS ZERO LOOP ENDS HERE
004766,003351: 
004767,003352: 
004768,003353:                                                                                                  #                MORE RCS                                                  (69D)
004769,003354: 
004770,003355: 
004771,003356: E6,1541  E6,1572               THETADX            EQUALS   ERRORZ     +1                         #  B(1)TMP  MUST BE CONSECUTIVE WITH ERRORZ
004772,003357: E6,1541  E6,1573               THETADY            EQUALS   THETADX    +1                         #  B(1)TMP
004773,003358: E6,1541  E6,1574               THETADZ            EQUALS   THETADY    +1                         #  B(1)TMP
004774,003359: 
004775,003360: E6,1541  E6,1575               DELCDUX            EQUALS   THETADZ    +1                         #  B(2)TMP
004776,003361: E6,1541  E6,1577               DELCDUY            EQUALS   DELCDUX    +2                         #  B(2)TMP
004777,003362: E6,1541  E6,1601               DELCDUZ            EQUALS   DELCDUY    +2                         #  B(2)TMP
004778,003363: 
004779,003364: E6,1541  E6,1603               DCDU               EQUALS   DELCDUZ    +2                         #  B(6)TMP USED DURING P20
004780,003365: E6,1541  E6,1611               DTHETASM           EQUALS   DCDU       +6                         #  B(6)TMP STEER LOW OUTPUT.
004781,003366: 
004782,003367: E6,1541  E6,1617               ATTKALMN           EQUALS   DTHETASM   +6                         #  B(1)TMP
004783,003368: E6,1541  E6,1620               KMJ                EQUALS   ATTKALMN   +1                         #  B(1)TMP
004784,003369: E6,1541  E6,1621               KMJ1               EQUALS   KMJ        +1                         #  B(1)TMP
004785,003370: E6,1541  E6,1622               KMJ2               EQUALS   KMJ1       +1                         #  B(1)TMP
004786,003371: E6,1541  E6,1623               J/M                EQUALS   KMJ2       +1                         #  B(1)TMP
004787,003372: E6,1541  E6,1624               J/M1               EQUALS   J/M        +1                         #  B(1)TMP
004788,003373: E6,1541  E6,1625               J/M2               EQUALS   J/M1       +1                         #  B(1)TMP
004789,003374: E6,1541  E6,1626               RACFAIL            EQUALS   J/M2       +1                         #  B(1)TMP
004790,003375: E6,1541  E6,1627               RBDFAIL            EQUALS   RACFAIL    +1                         #  B(1)TMP
004791,003376: E6,1541  E6,1630               ACORBD             EQUALS   RBDFAIL    +1                         #  B(1)TMP
004792,003377: E6,1541  E6,1631               XTRANS             EQUALS   ACORBD     +1                         #  B(1)TMP
004793,003378: E6,1541  E6,1632               CH31TEMP           EQUALS   XTRANS     +1                         #  B(1)TMP
004794,003379: E6,1541  E6,1633               CHANTEMP           EQUALS   CH31TEMP   +1                         #  B(1)TMP
004795,003380: E6,1541  E6,1634               T5TIME             EQUALS   CHANTEMP   +1                         #  B(1)TMP
004796,003381: E6,1541  E6,1635               RHO                EQUALS   T5TIME     +1                         #  B(1)TMP
004797,003382: E6,1541  E6,1636               RHO1               EQUALS   RHO        +1                         #  B(1)TMP
004798,003383: E6,1541  E6,1637               RHO2               EQUALS   RHO1       +1                         #  B(1)TMP
004799,003384: E6,1541  E6,1640               AMGB1              EQUALS   RHO2       +1                         #  B(1)TMP
004800,003385: E6,1541  E6,1641               AMGB4              EQUALS   AMGB1      +1                         #  B(1)TMP

Page 107

004802,003387: E6,1541  E6,1642               AMGB5              EQUALS   AMGB4      +1                         #  B(1)TMP
004803,003388: E6,1541  E6,1643               AMGB7              EQUALS   AMGB5      +1                         #  B(1)TMP
004804,003389: E6,1541  E6,1644               AMGB8              EQUALS   AMGB7      +1                         #  B(1)TMP
004805,003390: E6,1541  E6,1645               CAPSI              EQUALS   AMGB8      +1                         #  B(1)TMP
004806,003391: E6,1541  E6,1646               CDUXD              EQUALS   CAPSI      +1                         #  B(2)TMP
004807,003392: E6,1541  E6,1650               CDUYD              EQUALS   CDUXD      +2                         #  B(2)TMP
004808,003393: E6,1541  E6,1652               CDUZD              EQUALS   CDUYD      +2                         #  B(2)TMP
004809,003394: E6,1541  E6,1654               SLOPE              EQUALS   CDUZD      +2                         #  B(1)TMP
004810,003395: E6,1541  E6,1655               ADB                EQUALS   SLOPE      +1                         #  B(1)TMP
004811,003396: E6,1541  E6,1656               RMANNDX            EQUALS   ADB        +1                         #  B(1)TMP
004812,003397: E6,1541  E6,1657               PMANNDX            EQUALS   RMANNDX    +1                         #  B(1)TMP
004813,003398: E6,1541  E6,1660               YMANNDX            EQUALS   PMANNDX    +1                         #  B(1)TMP  MUST BE LAST VARIABLE IN RCS
004814,003399: 

Page 108

004816,003401: 
004817,003402:                                                                                                  #  ******** ENTRY DAP TEMPORARY VARIABLES.*********************************(69D)
004818,003403: 
004819,003404:                                                                                                  #   ANGLE REGISTERS FOR ENTRY DAPS
004820,003405: 
004821,003406: E6,1541  E6,1661               AOG                EQUALS   BCDU                                  #  1P
004822,003407: E6,1541  E6,1662               AIG                EQUALS   AOG        +1                         #  1P
004823,003408: E6,1541  E6,1663               AMG                EQUALS   AIG        +1                         #  1P
004824,003409: E6,1541  E6,1664               ROLL/180           EQUALS   AMG        +1                         #  1P
004825,003410: E6,1541  E6,1665               ALFA/180           EQUALS   ROLL/180   +1                         #  1P
004826,003411: E6,1541  E6,1666               BETA/180           EQUALS   ALFA/180   +1                         #  1P
004827,003412: E6,1541  E6,1667               AOG/PIP            EQUALS   BETA/180   +1                         #  1P
004828,003413: E6,1541  E6,1670               AIG/PIP            EQUALS   AOG/PIP    +1                         #  1P
004829,003414: E6,1541  E6,1671               AMG/PIP            EQUALS   AIG/PIP    +1                         #  1P
004830,003415: E6,1541  E6,1672               ROLL/PIP           EQUALS   AMG/PIP    +1                         #  1P
004831,003416: E6,1541  E6,1673               ALFA/PIP           EQUALS   ROLL/PIP   +1                         #  1P
004832,003417: E6,1541  E6,1674               BETA/PIP           EQUALS   ALFA/PIP   +1                         #  1P
004833,003418: 
004834,003419:                                                                                                  #  GYMBAL DIFFERENCES OVER INTERVAL TCDU = .1 SEC.
004835,003420: 
004836,003421: E6,1541  E6,1675               -DELAOG            EQUALS   BETA/PIP   +1                         #  1P
004837,003422: E6,1541  E6,1676               -DELAIG            EQUALS   -DELAOG    +1                         #  1P
004838,003423: E6,1541  E6,1677               -DELAMG            EQUALS   -DELAIG    +1                         #  1P
004839,003424: 
004840,003425:                                                                                                  #  ESTIMATED BODY RATES
004841,003426: 
004842,003427: E6,1541  E6,1700               CMDAPMOD           EQUALS   -DELAMG    +1                         #  1P  GOES BEFORE PREL FOR TM.
004843,003428: 
004844,003429: E6,1541  E6,1701               PREL               EQUALS   CMDAPMOD   +1                         #  1P   P TCDU/180      (ROLLDOT)
004845,003430: E6,1541  E6,1702               QREL               EQUALS   PREL       +1                         #  1P   Q TCDU/180     (PITCHDOT)
004846,003431: E6,1541  E6,1703               RREL               EQUALS   QREL       +1                         #  1P   R TCDU/180     (YAWDOT)
004847,003432: 
004848,003433: E6,1541  E6,1704               BETADOT            EQUALS   RREL       +1                         #  1P  MUST FOLLOW RREL. BETADOT TCDU/180
004849,003434: E6,1541  E6,1705               PHIDOT             EQUALS   BETADOT    +1                         #  1P
004850,003435: 
004851,003436:                                                                                                  #  OLD (UNAVERAGED) BODY RATE MEASURE
004852,003437: 
004853,003438: E6,1541  E6,1706               OLDELP             EQUALS   PHIDOT     +1                         #  1P
004854,003439: E6,1541  E6,1707               OLDELQ             EQUALS   OLDELP     +1                         #  1P
004855,003440: E6,1541  E6,1710               OLDELR             EQUALS   OLDELQ     +1                         #  1P
004856,003441: 
004857,003442: E6,1541  E6,1711               JETAG              EQUALS   OLDELR     +1                         #  1P
004858,003443: E6,1541  E6,1712               TUSED              EQUALS   JETAG      +1                         #  1P   ELAPSED TIME SINCE NOMINAL UPDATE.
004859,003444: 
004860,003445: 
004861,003446:                                                                                                  #           FOLLOWING 3 SP WORDS IN DOWNLINK.  ROLLTM SENT EACH 1 SEC.
004862,003447: 
004863,003448: E6,1541  E6,1713               PAXERR1            EQUALS   TUSED      +1                         #  1P   INTEGRATED ROLL ERROR/360.
004864,003449: E6,1541  E6,1714               ROLLTM             EQUALS   PAXERR1    +1                         #  1P   ROLL/180 FOR TM.
004865,003450: E6,1541  E6,1715               ROLLC              EQUALS   ROLLTM     +1                         #  2P   ROLLCOM/360 FROM ENTRY (FOR TM)
004866,003451:                                                                                                  #                                          >> KEEP ROLLC & ROLLHOLD ADJACENT FOR TP

Page 109

004868,003453: E6,1541  E6,1717               ROLLHOLD           EQUALS   ROLLC      +2                         #  1P FOR ATTITUDE HOLD IN CMDAPMOD = +1
004869,003454: 
004870,003455: 
004871,003456:                                                                                                  #           ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP.
004872,003457: 
004873,003458: E6,1541  E6,1603               ALFACOM            EQUALS   DCDU                                  #  1P  KEEP ADJACENT TO BETACOM.  <<
004874,003459: E6,1541  E6,1604               BETACOM            EQUALS   ALFACOM    +1                         #  1P
004875,003460: 
004876,003461:                                                                                                  #  JET LIST:    DT, JETBITS  IN THIS ORDER.
004877,003462: 
004878,003463: E6,1541  E6,1605               TOFF               EQUALS   BETACOM    +1                         #  1P   DP PAIR
004879,003464: E6,1541  E6,1606               TBITS              EQUALS   TOFF       +1                         #  1P
004880,003465: E6,1541  E6,1607               TON2               EQUALS   TBITS      +1                         #  1P   DP PAIR
004881,003466: E6,1541  E6,1610               T2BITS             EQUALS   TON2       +1                         #  1P
004882,003467: 
004883,003468:                                                                                                  #   MISCELLANEOUS PERMANENT ERASEABLE.
004884,003469: 
004885,003470: E6,1541  E6,1611               OUTTAG             EQUALS   T2BITS     +1                         #  1P
004886,003471: E6,1541  E6,1612               NUJET              EQUALS   OUTTAG     +1                         #  1P
004887,003472:                                                                                                  #     MORE ENTRY DAP QUANTITIES THAT DO NOT SHARE WITH RCS DAP.
004888,003473: 
004889,003474: E6,1541  E6,1720               JETEM              EQUALS   ROLLHOLD   +1                         #  2P  THIS DP USED IN RATEAVG.
004890,003475: E6,1541  E6,1722               GAMA               EQUALS   JETEM      +2                         #  1P
004891,003476: E6,1541  E6,1723               GAMDOT             EQUALS   GAMA       +1                         #  1P
004892,003477: E6,1541  E6,1724               POSEXIT            EQUALS   GAMDOT     +1                         #  1P
004893,003478: E6,1541  E6,1725               CM/GYMDT           EQUALS   POSEXIT    +1                         #  1P
004894,003479: E6,1541  E6,1726               HEADSUP            EQUALS   CM/GYMDT   +1                         #  1P  DSP NOUN 61 FOR P62,63,64,67.
004895,003480: E6,1541  E6,1727               P63FLAG            EQUALS   HEADSUP    +1                         #  1P  INTERLOCK FOR WAKEP62
004896,003481: 
004897,003482: 
004898,003483:                                                                                                  #                                                                   >> SHARE BELOW WITH RCS RUPT TEMPS (< 15D) <<<
004899,003484: E6,1541  E6,1506               CALFA              EQUALS   SPNDX                                 #  1P
004900,003485: E6,1541  E6,1507               SALFA              EQUALS   CALFA      +1                         #  1P
004901,003486: 
004902,003487: E6,1541  E6,1510               SINM               EQUALS   SALFA      +1                         #  1P
004903,003488: E6,1541  E6,1511               COSM               EQUALS   SINM       +1                         #  1P
004904,003489: E6,1541  E6,1512               SINO               EQUALS   COSM       +1                         #  1P
004905,003490: E6,1541  E6,1513               COSO               EQUALS   SINO       +1                         #  1P
004906,003491: E6,1541  E6,1514               SINOCOSM           EQUALS   COSO       +1                         #  1P
004907,003492: E6,1541  E6,1515               COSOCOSM           EQUALS   SINOCOSM   +1                         #  1P
004908,003493:                                                                                                  #                                                                   >> SHARE ABOVE WITH RCS RUPT TEMPS          <<<
004909,003494: 
004910,003495:                                                                                                  #           THE FOLLOWING FEW REGISTERS USED ONCE EACH 2 SEC.
004911,003496: 
004912,003497: E6,1541  E6,1613               -VT/180            EQUALS   NUJET      +1                         #  1P
004913,003498: E6,1541  E6,1614               LCX/360            EQUALS   -VT/180    +1                         #  1P
004914,003499: E6,1541  E6,1615               XD/360             EQUALS   LCX/360    +1                         #  1P
004915,003500: E6,1541  E6,1616               VSQ/4API           EQUALS   XD/360     +1                         #  1P
004916,003501: E6,1541  E6,1617               JNDX               EQUALS   VSQ/4API   +1                         #  1P
004917,003502: E6,1541  E6,1620               JNDX1              EQUALS   JNDX       +1                         #  1P

Page 110

004919,003504: E6,1541  E6,1621               TON1               EQUALS   JNDX1      +1                         #  1P   DP PAIR
004920,003505: E6,1541  E6,1622               T1BITS             EQUALS   TON1       +1                         #  1P
004921,003506: 
004922,003507:                                                                                                  #           MISCELLANEOUS REGISTERS USED EACH UPDATE.
004923,003508: 
004924,003509: E6,1541  E6,1623               CM/SAVE            EQUALS   T1BITS     +1                         #  1P
004925,003510: E6,1541  E6,1624               JETEM2             EQUALS   CM/SAVE    +1                         #  1P  TEMPORARY STORAGE
004926,003511: 
004927,003512:                                                                                                  #           DAP   QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
004928,003513: 
004929,003514: E6,1541  E6,1567               VDT/180            =        ERRORX                                #  1P   (EDIT)
004930,003515: E6,1541  E6,1570               -VT/180E           =        ERRORY                                #  1P   (EDIT)
004931,003516: 
004932,003517: E6,1541  E6,1476               PAXERR             EQUALS   AK                                    #  1P  ROLL ERROR FOR NEEDLES
004933,003518: E6,1541  E6,1572               QAXERR             =        THETADX                               #  1P  SINCE AK1 IS ZEROED IN ATM DAP.
004934,003519: E6,1541  E6,1573               RAXERR             =        QAXERR     +1                         #  1P  SINCE AK2 IS ZEROED IN TM DAP.
004935,003520: 
004936,003521: 
004937,003522: 
004938,003523:                                                                                                  #        **** COLMANU (R60,R62) ****
004939,003524: 
004940,003525: E6,1541  E6,1710               VECQTEMP           EQUALS   COFSKEW                               
004941,003526: 

Page 111

004943,003528: 
004944,003529:                                                                                                  #  ******** KALCMANU VARIABLES. (71D) *************************************
004945,003530: E6,1541  E6,1661               BCDU               EQUALS   YMANNDX    +1                         #  B(3) TMP
004946,003531: E6,1541  E6,1664               KSPNDX             EQUALS   BCDU       +3                         #  B(1)TMP
004947,003532: E6,1541  E6,1665               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)TMP
004948,003533: 
004949,003534: E6,1541  E6,1666               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
004950,003535: E6,1541  E6,1710               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
004951,003536: E6,1541  E6,1716               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
004952,003537: 
004953,003538: E6,1541  E6,1720               MIS                EQUALS   CAM        +2                         #  I(18)  (THE REST MAY GO ANYWHERE)
004954,003539: E6,1541  E6,1742               COF                EQUALS   MIS        +18D                       #  I(6)TMP
004955,003540: E6,1541  E6,1750               SCAXIS             EQUALS   COF        +6                         #  I(6)TMP
004956,003541: E6,1541  E6,1756               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)TMP
004957,003542: E6,1541  E6,1764               AM                 EQUALS   POINTVSM   +6                         #  I(2)TMP
004958,003543: E6,1541  E6,1766               RAD                EQUALS   AM         +2                         #  I(2)TMP
004959,003544: 
004960,003545: 
004961,003546:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU
004962,003547: 
004963,003548: E6,1541  E6,1666               KV1                EQUALS   TMIS                                  #  I(6)TMP
004964,003549: E6,1541  E6,1666               MFISYM             EQUALS   TMIS                                  #  I   TMP
004965,003550: E6,1541  E6,1666               TMFI               EQUALS   TMIS                                  #  I   TMP
004966,003551: E6,1541  E6,1666               NCDU               EQUALS   TMIS                                  #  B   TMP
004967,003552: E6,1541  E6,1671               NEXTIME            EQUALS   TMIS       +3                         #  B   TMP
004968,003553: E6,1541  E6,1672               TTEMP              EQUALS   TMIS       +4                         #  B   TMP
004969,003554: E6,1541  E6,1674               KV2                EQUALS   TMIS       +6                         #  I(6)TMP
004970,003555: E6,1541  E6,1674               BIASTEMP           EQUALS   TMIS       +6                         #  B   TMP
004971,003556: E6,1541  E6,1702               KV3                EQUALS   TMIS       +12D                       #  I(6)TMP
004972,003557: E6,1541  E6,1702               OGF                EQUALS   TMIS       +12D                       #  I   TMP
004973,003558: 
004974,003559: E6,1541  E6,1710               BRATE              EQUALS   COFSKEW                               #  B   TMP
004975,003560: E6,1541  E6,1716               TM                 EQUALS   CAM                                   #  B   TMP
004976,003561: 
004977,003562:                                                                                                  #  SECOND-ORDER OVERLAYS IN KALCMANU
004978,003563: 
004979,003564: E6,1541  E6,1666               P21                EQUALS   KV1                                   #  I(2)TMP
004980,003565: E6,1541  E6,1670               D21                EQUALS   KV1        +2                         #  I(2)TMP
004981,003566: E6,1541  E6,1672               G21                EQUALS   KV1        +4                         #  I(2)TMP
004982,003567: 
004983,003568: 
004984,003569:                                                                                                  #           SATURN BOOST STORAGE. SAVE TILL RCS DAP OPERATION.             (17D)
004985,003570: 
004986,003571: E6,1541  E6,1661               POLYNUM            EQUALS   BCDU                                  #  B(15) PAD LOADED
004987,003572: E6,1541  E6,1673               POLYLOC            =        POLYNUM    +10D                       
004988,003573: E6,1541  E6,1700               SATRLRT            EQUALS   POLYNUM    +15D                       #  B(2) PAD LOADED
004989,003574: 
004990,003575: 
004991,003576: 
004992,003577:                                                                                                  #           MORE P11 STORAGE -PAD LOADED-                                  (2D)
004993,003578: 

Page 112

004995,003580:                                                                                                  #           (NOTE: THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU,
004996,003581:                                                                                                  #            ENTRY DAP AND TVC DAP)
004997,003582: 
004998,003583: E6,1541  E6,1702               RPSTART            EQUALS   SATRLRT    +2                         #  B(1) PITCH ROLL START TIME
004999,003584: E6,1541  E6,1703               POLYSTOP           EQUALS   RPSTART    +1                         #  B(1) POLYCUT OFF MINUS RPSTART SEC
005000,003585: 
005001,003586: 
005002,003587: 
005003,003588:                                                                                                  #           STORAGE FOR VHHDOT AND ATTDSP
005004,003589: 
005005,003590: E6,1541  E6,1704               BODY3              EQUALS   POLYSTOP   +1                         #  B(1)OUT
005006,003591: E6,1541  E6,1705               BODY2              EQUALS   BODY3      +1                         #  B(1)OUT
005007,003592: E6,1541  E6,1706               BODY1              EQUALS   BODY2      +1                         #  B(1)OUT
005008,003593: E6,1541  E6,1707               SPOLYARG           EQUALS   BODY1      +1                         #  B(1)TMP  ARGUEMENT FOR POLLY
005009,003594: 
005010,003595: E6,1541  E6,1503               OLDBODY1           =        EDRIVEX                               #           1 PULSE = 0.0432 DEGREES
005011,003596: E6,1541  E6,1504               OLDBODY2           =        EDRIVEY                               
005012,003597: E6,1541  E6,1505               OLDBODY3           =        EDRIVEZ                               
005013,003598: 
005014,003599: 
005015,003600:                                                                                                  #           STORAGE FOR S11.1
005016,003601: 
005017,003602: E6,1541  E6,1710               VDISP              EQUALS   SPOLYARG   +1                         #  I(2)OUT   2(7)  M/CS
005018,003603: E6,1541  E6,1712               HDISP              EQUALS   VDISP      +2                         #  I(2)OUT   2(29) M
005019,003604: E6,1541  E6,1714               HDOTDISP           EQUALS   HDISP      +2                         #  I(2)OUT     2(7) M/CS
005020,003605: E6,1541  E6,1716               BOOSTEMP           EQUALS   HDOTDISP   +2                         #  B(2) TEMP
005021,003606: 
005022,003607:                                                                                                  #           P21 STORAGE.                                                   (1D)
005023,003608: 
005024,003609: E6,1541  E6,1770               GENRET             EQUALS   RAD        +2                         #  B(1)TMP
005025,003610: 
005026,003611: 
005027,003612:                                                                                                  #           R61CSM STORAGE.                                                (1D)
005028,003613: 
005029,003614: E6,1541  E6,1771               SAVBNK             EQUALS   GENRET     +1                         #  B(1) S-S SAVE EBANK FOR R61 SUBROUTINE
005030,003615: 
005031,003616: 
005032,003617:                                                                                                  #           CRS61.1 STORAGE FOR AUTOPILOT BANK.                            (3D)
005033,003618: 
005034,003619: E6,1541  E6,1772               SAVEDCDU           EQUALS   SAVBNK     +1                         #  B(3) TMP
005035,003620: 
005036,003621: 
005037,003622: 
005038,003623:                                                                                                  #           R61 STORAGE.                                                   (1D)
005039,003624: 
005040,003625: E6,1541  E6,1775               R61CNTR            EQUALS   SAVEDCDU   +3                         #   (1)TMP
005041,003626: 
005042,003627: 
005043,003628:                                                                                                  #           ENTRY RESTART PROTECTION STORAGE. -KEEP TEMPS IN ORDER-        (12D)
005044,003629: 

Page 113

005046,003631: E6,1541  E6,1770               TEMPROLL           EQUALS   GENRET                                #  B(1)TMP COPY CYCLE REGISTER
005047,003632: E6,1541  E6,1771               TEMPALFA           EQUALS   TEMPROLL   +1                         #  B(1)TMP COPY CYCLE REGISTER
005048,003633: E6,1541  E6,1772               TEMPBETA           EQUALS   TEMPALFA   +1                         #  B(1)TMP COPY CYCLE REGISTER
005049,003634: E6,1541  E6,1773               60GENRET           EQUALS   TEMPBETA   +1                         #  B(1)TMP QSAVE FOR S61.1 AND ENTRY.
005050,003635: E6,1541  E6,1774               S61DT              EQUALS   60GENRET   +1                         #  B(1)TMP VARIABLE DT FOR S61.1 RESTART.
005051,003636: 
005052,003637: 
005053,003638: 
005054,003639:                                                                                                  #           ENTRY TM SHARING FOR ACCELERATION PROFILE.
005055,003640: 
005056,003641: E6,1541  E6,1533               XPIPBUF            EQUALS   ADOT                                  #  B(1) PIPA BUFFER FOR TM DURING ENTRY.
005057,003642: E6,1541  E6,1534               YPIPBUF            EQUALS   XPIPBUF    +1                         #  B(1) PIPS FILED HERE EACH .5 SEC APPEAR
005058,003643: E6,1541  E6,1535               ZPIPBUF            EQUALS   YPIPBUF    +1                         #  B(1) ON DOWNLIST ONCE PER SECOND DURING
005059,003644: E6,1541  E6,1536               XOLDBUF            EQUALS   ZPIPBUF    +1                         #  B(1) ENTRY AFTER RCS DAP HAS BEEN DIS-
005060,003645: E6,1541  E6,1537               YOLDBUF            EQUALS   XOLDBUF    +1                         #  B(1) ABLED. NEWEST PIP VALUE REPLACES
005061,003646: E6,1541  E6,1540               ZOLDBUF            EQUALS   YOLDBUF    +1                         #  B(1) PIPBUF, WHICH IS MOVED INTO OLDBUF.
005062,003647: 
005063,003648: 
005064,003649:                                                                                                  #           REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
005065,003650: 
005066,003651: E6,1541  E6,1574               Q7                 =        THETADZ                               #  I(2)   HI-WORD ONLY ON DNLIST.
005067,003652: 
005068,003653: E6,1541  E6,1525               ASPS(TM)           =        WBODY                                 #  I(6) DWN
005069,003654:                                                                                                  #                                                ASKEP,ASP1,ASPUP,ASPDN,ASP3,ASP3+1
005070,003655: 
005071,003656: 
005072,003657: 
005073,003658: E6,1541  E6,1776               END-E6             EQUALS   R61CNTR    +1                         #  NEXT FREE  E6 ADDRESS
005074,003659: 

Page 114

005076,003661:                                                                                                  #                  EBANK-7 ASSIGNMENTS
005077,003662: 
005078,003663: E7,1400                                           SETLOC   3400                                  
005079,003664: 
005080,003665: 
005081,003666:                                                                                                  #           *-*-*-*-  OVERLAY 0 IN EBANK 7 -*-*-*-*
005082,003667: 
005083,003668:                                                                                                  #           EXTERNAL DELTA-V UPDATE.                                       (21D)
005084,003669: 
005085,003670:                                                                                                  #           (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAMS PICK UP 'LAT(SPL)' WITH A VLOAD.)
005086,003671: 
005087,003672: E7,1400                        LAT(SPL)           ERASE    +20D                                  #  I(2)      DSP NOUN 61 FOR P62,63,64,67
005088,003673: E7,1425  E7,1402               LNG(SPL)           EQUALS   LAT(SPL)   +2                         #  I(2)DSP NOUN 61 FOR P62,63,64,67.
005089,003674: 
005090,003675: E7,1425  E7,1404               DELVSLV            EQUALS   LNG(SPL)   +2                         #  I(6)TMP DELTA VEL VECT, LOC VER COORDS
005091,003676: E7,1425  E7,1412               TIG                EQUALS   DELVSLV    +6                         #  B(2)DSP NOUN 33 FOR X-V84(R32),P30,40.
005092,003677: E7,1425  E7,1414               RTARG              EQUALS   TIG        +2                         #  I(6)IN  DESIRED VEHICHE RADIUS VECTOR
005093,003678: E7,1425  E7,1422               DELLT4             EQUALS   RTARG      +6                         #  I(2)IN  TIME DIFFERENCE FOR INITVEL
005094,003679: E7,1425  E7,1424               ECSTEER            EQUALS   DELLT4     +2                         #  I(1)PL   FOR P40 S
005095,003680: E7,1425  E7,1404               DELVLVC            =        DELVSLV                               
005096,003681: E7,1425                        END-DELV           ERASE                                          #  *NEXT AVAIL LOC AFTER UNSHARED E7*
005097,003682:                                                                                                  #           SERVICER STORAGE.                                              (13D)
005098,003683: 
005099,003684: E7,1426  E7,1425               DVTOTAL            EQUALS   END-DELV                              #  B(2) DSP NOUN 40,99 FOR P30,34,35,40
005100,003685: E7,1426  E7,1427               TGO                EQUALS   DVTOTAL    +2                         #  B(2)
005101,003686: E7,1426  E7,1431               DVCNTR             EQUALS   TGO        +2                         #  B(1)TMP
005102,003687: E7,1426  E7,1432               DELVREF            EQUALS   DVCNTR     +1                         #  I(6)TMP
005103,003688: 
005104,003689: E7,1426  E7,1447               NOMTIG             EQUALS   END-KALC                              #  I(2) (CAN NOT SHARE WITH KALCMANU
005105,003690:                                                                                                  #                                          OR DELVREF)
005106,003691: E7,1426  E7,1451               END-SVCR           EQUALS   NOMTIG     +2                         #  ***NEXT AVAILABLE AFTER SERVICER
005107,003692: 
005108,003693: 
005109,003694: 
005110,003695:                                                                                                  #           ALIGNMENT STORAGE.                                             (25D)
005111,003696: 
005112,003697: E7,1426  E7,1451               XSCD               EQUALS   END-SVCR                              #  I(6)TMP
005113,003698: E7,1426  E7,1457               YSCD               EQUALS   XSCD       +6                         #  I(6)TMP
005114,003699: E7,1426  E7,1465               ZSCD               EQUALS   YSCD       +6                         #  I(6)TMP
005115,003700: E7,1426  E7,1473               VEL/C              EQUALS   ZSCD       +6                         #  I(6)TMP
005116,003701: E7,1426  E7,1501               R53EXIT            EQUALS   VEL/C      +6                         #  I(1)TMP
005117,003702: 
005118,003703: 
005119,003704:                                                                                                  #           ALIGNMENT  MARKDATA  (DOWNLNK)******                           (7D)
005120,003705: E7,1426  E7,1502               MARK2DWN           EQUALS   R53EXIT    +1                         #  (7)  USED BY ALLIGNMENT P50 S
005121,003706: 

Page 115

005123,003708: 
005124,003709:                                                                                                  #           *-*-*-*-  OVERLAY 1 IN EBANK 7 -*-*-*-*
005125,003710: 
005126,003711:                                                                                                  #  REENTRY ERASABLES                                                       (206D)
005127,003712: 
005128,003713: E7,1426  E7,1451               RTINIT             EQUALS   END-SVCR                              #  6P
005129,003714: E7,1426  E7,1457               RTEAST             EQUALS   RTINIT     +6                         #  6P
005130,003715: E7,1426  E7,1465               RTNORM             EQUALS   RTEAST     +6                         #  6P
005131,003716: E7,1426  E7,1473               RT                 EQUALS   RTNORM     +6                         #  6P
005132,003717: E7,1426  E7,1501               UNI                EQUALS   RT         +6                         #  6P
005133,003718: E7,1426  E7,1507               UNITV              EQUALS   UNI        +6                         #  6P
005134,003719: E7,1426  E7,1515               VEL                EQUALS   UNITV      +6                         #  6P
005135,003720: 
005136,003721: E7,1426  E7,1523               TIME/RTO           EQUALS   VEL        +6                         #  2P   TIME OF INITIAL TARGET, RTO.
005137,003722: E7,1426  E7,1525               -VREL              EQUALS   TIME/RTO   +2                         #  6P
005138,003723: E7,1426  E7,1533               OLDUYA             EQUALS   -VREL      +6                         #  6P   USED BY CM/POSE    (ENTRY DAP)
005139,003724: E7,1426  E7,1541               UXA/2              EQUALS   OLDUYA     +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)  -UVA
005140,003725: E7,1426  E7,1541               URH                =        UXA/2                                 #            P61 DISPLAY NOUN
005141,003726: E7,1426  E7,1547               UYA/2              EQUALS   UXA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)   UYA
005142,003727: E7,1426  E7,1555               UZA/2              EQUALS   UYA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)   UNA
005143,003728: E7,1426  E7,1563               UBX/2              EQUALS   UZA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005144,003729: E7,1426  E7,1571               UBY/2              EQUALS   UBX/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005145,003730: E7,1426  E7,1577               UBZ/2              EQUALS   UBY/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005146,003731: 
005147,003732: E7,1426  E7,1605               DTEAROT            EQUALS   UBZ/2      +6                         #  2P
005148,003733: E7,1426  E7,1607               DIFF               EQUALS   DTEAROT    +2                         #  2P
005149,003734: E7,1426  E7,1611               DIFFOLD            EQUALS   DIFF       +2                         #  2P
005150,003735: E7,1426  E7,1613               FACTOR             EQUALS   DIFFOLD    +2                         #  2P
005151,003736: E7,1426  E7,1615               FACT1              EQUALS   FACTOR     +2                         #  2P
005152,003737: E7,1426  E7,1617               FACT2              EQUALS   FACT1      +2                         #  2P
005153,003738:                                                                                                  # Q7             =       THETADZ           2P  SHARED FOR TM.   P64-P66
005154,003739: E7,1426  E7,1621               VSQUARE            EQUALS   FACT2      +2                         #  2P
005155,003740: E7,1426  E7,1623               LAD                EQUALS   VSQUARE    +2                         #  2P
005156,003741: E7,1426  E7,1625               LOD                EQUALS   LAD        +2                         #  2P
005157,003742: E7,1426  E7,1627               L/DCMINR           EQUALS   LOD        +2                         #  2P
005158,003743: E7,1426  E7,1631               KLAT               EQUALS   L/DCMINR   +2                         #  2P
005159,003744: E7,1426  E7,1633               L/D                EQUALS   KLAT       +2                         #  2P
005160,003745: E7,1426  E7,1635               L/D1               EQUALS   L/D        +2                         #  2P
005161,003746: E7,1426  E7,1724               LEWD               =        VIO                                   #  2P   SHARED FOR TM.  P64-P65
005162,003747: E7,1426  E7,1637               D                  EQUALS   L/D1       +2                         #  2P   DSP NOUN 64,66,68 FOR P63,64,67
005163,003748:                                                                                                  # V1             =       ENDBUF +1         2P   SHARED FOR TM.  P64-P65
005164,003749: E7,1426  E7,1641               DLEWD              EQUALS   D          +2                         #  2P
005165,003750: E7,1426  E7,1643               K2ROLL             EQUALS   DLEWD      +2                         #  2 P
005166,003751: E7,1426  E7,1645               GOTOADDR           EQUALS   K2ROLL     +2                         #  1P
005167,003752: E7,1426  E7,1646               TEM1B              EQUALS   GOTOADDR   +1                         #  2 P
005168,003753: E7,1426  E7,1650               MM                 EQUALS   TEM1B      +2                         #  2 P
005169,003754: E7,1426  E7,1651               GRAD               EQUALS   MM         +1                         #  1P
005170,003755: E7,1426  E7,1652               FX                 EQUALS   GRAD       +1                         #  1P   OVERWRITES NEXT 5 LOCS IN P67.
005171,003756: E7,1426  E7,1653               LEQ                EQUALS   FX         +1                         #  2P
005172,003757: E7,1426  E7,1655               DHOOK              EQUALS   LEQ        +2                         #  2P
005173,003758: E7,1426  E7,1657               AHOOKDV            EQUALS   DHOOK      +2                         #  2P

Page 116

005175,003760: E7,1426  E7,1661               DVL                EQUALS   AHOOKDV    +2                         #  2P
005176,003761:                                                                                                  # A0             =       ENDBUF +3         2P    SHARED FOR TM.(HI-WD ) P64-P65
005177,003762: E7,1426  E7,1663               A1                 EQUALS   DVL        +2                         #  2P
005178,003763: E7,1426  E7,1665               VBARS              EQUALS   A1         +2                         #  2P
005179,003764: E7,1426  E7,1667               COSG/2             EQUALS   VBARS      +2                         #  2P
005180,003765:                                                                                                  # GAMMAL         =       GAMMAEI           2P    SHARED FOR TM  P64
005181,003766: E7,1426                        GAMMAL1            =        22D                                   #  2P
005182,003767: E7,1426  E7,1671               VS1                EQUALS   COSG/2     +2                         #  2P
005183,003768: E7,1426  E7,1766               VL                 =        VPRED                                 #  2P   SHARED FOR TM   P64-P65
005184,003769: E7,1426  E7,1673               V                  EQUALS   VS1        +2                         #  2P
005185,003770:                                                                                                  # VREF           =       THETAD   +2       2P   SHARED FOR TM    P65
005186,003771: E7,1426  E7,1675               LATANG             EQUALS   V          +2                         #  2P   ADJACENT FOR TM.
005187,003772: E7,1426  E7,1677               RDOT               EQUALS   LATANG     +2                         #  2P   ADJACENT FOR TM.
005188,003773: E7,1426  E7,1701               THETAH             EQUALS   RDOT       +2                         #  2P   DSP NOUN 64,67 FOR P63,64,67
005189,003774:                                                                                                  # RDOTREF                =       THETAD    2P   SHARED FOR TM     P65
005190,003775: E7,1426  E7,1703               ALP                EQUALS   THETAH     +2                         #  2P
005191,003776: 
005192,003777: E7,1426  E7,1730               ASKEP              =        ASPS                                  #  2P)                 THESE ARE STORED IN
005193,003778: E7,1426  E7,1731               ASP1               =        ASPS       +1                         #  2P)                 SEQUENCE,OVERLAPPING
005194,003779: E7,1426  E7,1732               ASPUP              =        ASPS       +2                         #  2P)>HI-WD OF EACH<  HI-WORD ONLY APPEARS
005195,003780: E7,1426  E7,1733               ASPDWN             =        ASPS       +3                         #  2P)                 ON DOWNLIST, EXCEPT 
005196,003781: E7,1426  E7,1734               ASP3               =        ASPS       +4                         #  2P)                 ASP3 IS COMPLETE.
005197,003782: 
005198,003783: E7,1426  E7,1705               C/D0               EQUALS   ALP        +2                         #  2P   -1/D0
005199,003784: E7,1426  E7,1707               D0                 EQUALS   C/D0       +2                         #  I(2)    CONSTANT DRAG
005200,003785: E7,1426  E7,1711               Q2                 EQUALS   D0         +2                         #  2P
005201,003786: 
005202,003787:                                                                                                  #           ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP.
005203,003788: E7,1426  E7,1713               RTGO               EQUALS   Q2         +2                         #  2P   DSP NOUN 66 FOR P64,P67.
005204,003789: E7,1426  E7,1715               DNRNGERR           EQUALS   RTGO       +2                         #  2P DSP NOUN 66 FOR P64,67.
005205,003790: E7,1426  E7,1675               XRNGERR            =        LATANG                                #       FOR DISKY DISPLAY
005206,003791: E7,1426  E7,1717               KAT                EQUALS   DNRNGERR   +2                         #  2P
005207,003792: E7,1426  E7,1721               GMAX               EQUALS   KAT        +2                         #  1P  DSP NOUN 60 FOR P61,62,63.
005208,003793:                                                                                                  #  GMAX IS LOADED IN DOUBLE PRECISION
005209,003794: E7,1426  E7,1726               L/DCALC            =        TTE                                   #  2P  CALCULATED L/D FOR TM:  P64 - P67.
005210,003795: E7,1426  E7,1770               GAMMAL             =        GAMMAEI                               #  2P  SHARED FOR TM   P64
005211,003796: E7,1426  E7,1770               PREDANG            =        GAMMAEI                               #       FOR TM IN P67.
005212,003797: E7,1426  E7,1771               JJ                 =        PREDANG    +1                         #       FOR TM IN P67.
005213,003798: E7,1426  E7,1722               VMAGI              EQUALS   GMAX       +1                         #  2P DSP NOUN 62,64,68 FOR P11,63,64.
005214,003799: E7,1426  E7,1724               VIO                EQUALS   VMAGI      +2                         #  2P DSP NOUN 63 FOR P61.
005215,003800: E7,1426  E7,1726               TTE                EQUALS   VIO        +2                         #  2P DSP NOUN 63 FOR P61.
005216,003801: 
005217,003802: E7,1426  E7,1730               ASPS               EQUALS   TTE        +2                         #  I(2)     HI-WORD ONLY ON DNLIST FOR TEMP
005218,003803: E7,1426  E7,1732               TTE1               EQUALS   ASPS       +2                         #  I(2ETMP HOLDS UNDECREMENTED TTE VALUE
005219,003804: 
005220,003805: 
005221,003806:                                                                                                  #           **** P6OS ****
005222,003807: 
005223,003808: E7,1426  E7,1713               RTGON64            EQUALS   RTGO                                  #  RANGE ERRORS NEGATIVE IF FALLS SHORT

Page 117

005225,003810: E7,1426  E7,1713               RTGON67            EQUALS   RTGO                                  #     DSP NOUN 67
005226,003811: 
005227,003812: 
005228,003813: 
005229,003814:                                                                                                  #           REENTRY, RETURN TO EARTH COMMON DISPLAY.                       (4D)
005230,003815: 
005231,003816: E7,1426  E7,1766               VPRED              EQUALS   BETA12     +2                         #  DSP NOUN 60 FOR P61,  ,62,63.
005232,003817: E7,1426  E7,1770               GAMMAEI            EQUALS   VPRED      +2                         #  DSP NOUN 60 FOR P61,  ,62,63.
005233,003818: 
005234,003819: 
005235,003820: 
005236,003821:                                                                                                  #           SOME P11 DISPLAY REGISTERS.                                    (6D)
005237,003822: 
005238,003823: E7,1426  E7,1734               ALTI               EQUALS   TTE1       +2                         #  2P DSP NOUN 62 FOR P11.
005239,003824: E7,1426  E7,1736               HDOT               EQUALS   ALTI       +2                         #  2P DSP NOUN 62 FOR P11.
005240,003825: 

Page 118

005242,003827: 
005243,003828:                                                                                                  #           *-*-*-*-  OVERLAY 2 IN EBANK 7 -*-*-*-*
005244,003829: 
005245,003830:                                                                                                  #           KALCMANU STORAGE.                                              (18D)
005246,003831: 
005247,003832: E7,1426  E7,1425               MFS                EQUALS   END-DELV                              #  I(18)
005248,003833: E7,1426  E7,1425               MFI                EQUALS   MFS                                   #  I    TMP
005249,003834: E7,1426  E7,1425               DEL                EQUALS   MFS                                   #  I    TMP
005250,003835: E7,1426  E7,1447               END-KALC           EQUALS   MFS        +18D                       #  **NEXT AVAIL LOC AFTER KALCMANU **
005251,003836: 
005252,003837: 
005253,003838:                                                                                                  #           MEASUREMENT INCORPORATION STORAGE(R22) STORAGE.                (56D)
005254,003839: 
005255,003840: E7,1426  E7,1447               TX789              EQUALS   END-KALC                              #  I(6)TMP
005256,003841: E7,1426  E7,1455               GAMMA              EQUALS   TX789      +6                         #  I(2)TMP
005257,003842: E7,1426  E7,1457               OMEGA              EQUALS   GAMMA      +2                         #  I(18)TMP
005258,003843: E7,1426  E7,1501               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)TMP
005259,003844: E7,1426  E7,1523               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)TMP
005260,003845: E7,1426  E7,1525               VARIANCE           EQUALS   DELTAQ     +2                         #  I(3)TMP
005261,003846: E7,1426  E7,1530               RCLP               EQUALS   VARIANCE   +3                         #  I(6)TMP
005262,003847: E7,1426  E7,1536               GRP2SVQ            EQUALS   RCLP       +6                         #  I(1)TMP QSAVE FOR RESTARTS
005263,003848: 
005264,003849: 
005265,003850:                                                                                                  #           P20, P22, P23 DSP NOUN                                         (5D)
005266,003851: 
005267,003852: E7,1426  E7,1501               N49DISP            EQUALS   BVECTOR                               #  B(5)TMP
005268,003853: 
005269,003854: 
005270,003855:                                                                                                  #           S22.1 STORAGE.                                                 (36D)
005271,003856: 
005272,003857: E7,1426  E7,1537               SVMRKDAT           EQUALS   GRP2SVQ    +1                         #  I(36)TMP 5 SETS OF MARK DATA +PAD OF ONE
005273,003858: 
005274,003859: 
005275,003860:                                                                                                  #           **** CISLUNAR NAV.  ERAS.  (P20S) ****                         (57D).
005276,003861: 
005277,003862: E7,1426  E7,1603               TRUNX              EQUALS   SVMRKDAT   +36D                       
005278,003863: E7,1426  E7,1603               DATATEST           EQUALS   TRUNX                                 #   (1)
005279,003864: E7,1426  E7,1604               UBAR0              EQUALS   TRUNX      +1                         
005280,003865: E7,1426  E7,1612               UBAR1              EQUALS   UBAR0      +6                         
005281,003866: E7,1426  E7,1620               UBAR2              EQUALS   UBAR1      +6                         
005282,003867: E7,1426  E7,1626               RZC                EQUALS   UBAR2      +6                         
005283,003868: E7,1426  E7,1634               VZC                EQUALS   RZC        +6                         
005284,003869: E7,1426  E7,1642               UCLSTAR            EQUALS   VZC        +6                         
005285,003870: E7,1426  E7,1650               USSTAR             EQUALS   UCLSTAR    +6                         
005286,003871: E7,1426  E7,1656               RCLL               EQUALS   USSTAR     +6                         
005287,003872: E7,1426  E7,1664               RL                 EQUALS   RCLL       +6                         
005288,003873: E7,1426  E7,1672               SRRETURN           EQUALS   RL         +6                         
005289,003874: 

Page 119

005291,003876: 
005292,003877:                                                                                                  #           *-*-*-*-  OVERLAY 3 IN EBANK 7 -*-*-*-*
005293,003878: 
005294,003879:                                                                                                  #           RENDEZVOUS GUIDANCE STORAGE. - P32...P35-                      (8D)
005295,003880: 
005296,003881: E7,1426  E7,1447               DELTEEO            EQUALS   END-KALC                              #  I(2) S-S BACK VALUES OF DELTA TIME
005297,003882: E7,1426  E7,1451               DELEL              EQUALS   DELTEEO    +2                         #  I(2) S-S
005298,003883: E7,1426  E7,1453               SECMAX             EQUALS   DELEL      +2                         #  I(2) S-S MAX STOP SIZE FOR ROUTINE
005299,003884: E7,1426  E7,1455               XXXALT             EQUALS   SECMAX     +2                         #  I(2)
005300,003885: 
005301,003886: 
005302,003887: 
005303,003888:                                                                                                  #           S40.9 STORAGE.                                                 (16D)
005304,003889: 
005305,003890: E7,1426  E7,1457               VG                 EQUALS   XXXALT     +2                         #  I(6)TMP
005306,003891: E7,1426  E7,1465               VRPREV             EQUALS   VG         +6                         #  I(6)
005307,003892: E7,1426  E7,1473               TNIT               EQUALS   VRPREV     +6                         #  I(2)
005308,003893: E7,1426  E7,1475               TNITPREV           EQUALS   TNIT       +2                         #  I(2)
005309,003894: 
005310,003895: 
005311,003896:                                                                                                  #           S40.2,3 STORAGE.                                               (1D)
005312,003897: 
005313,003898: E7,1426  E7,1477               AXISCODE           EQUALS   TNITPREV   +2                         #  I(1)IN
005314,003899: 
005315,003900: 
005316,003901:                                                                                                  #           P30'S-P17 COMMON STORAGE.                                      (24D)
005317,003902: 
005318,003903: E7,1426  E7,1537               RACT3              EQUALS   GRP2SVQ    +1                         #  I(6)TMP POSITION OF ACTIVE AT TPI TIME.
005319,003904: E7,1426  E7,1545               VACT3              EQUALS   RACT3      +6                         #  I(6)TMP VELOCITY OF ACTIVE AT TPI TIME.
005320,003905: E7,1426  E7,1553               RPASS3             EQUALS   VACT3      +6                         #  I(6)TMP POSITION OF PASSIVE AT TPI TIME.
005321,003906: E7,1426  E7,1561               VPASS3             EQUALS   RPASS3     +6                         #  I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.
005322,003907: 
005323,003908: 
005324,003909:                                                                                                  #           P76, N84 DISPLAY                                               (6D)
005325,003910: 
005326,003911: E7,1426  E7,1537               DELVOV             EQUALS   RACT3                                 #  I(6)DSP NOUN 84 FOR X-V84, P34-35
005327,003912: 
005328,003913: 
005329,003914:                                                                                                  #           INITVEL/MIDGIM STORAGE.                                        (34D)
005330,003915:                                                                                                  #                  (CALLED BY S34.1,2, S35.1,2, AND S40.9)
005331,003916:                                                                                                  #                  (CALLS LAMBERT, CONIC SUBROUTINES)
005332,003917: 
005333,003918: E7,1426  E7,1567               RINIT              EQUALS   VPASS3     +6                         #  I(6)IN  ACTIVE VEHICLE RADIUS VECTOR
005334,003919: E7,1426  E7,1575               VINIT              EQUALS   RINIT      +6                         #  I(6)IN  ACTIVE VEHICLE VELOCITY VECTOR
005335,003920: E7,1426  E7,1603               RTARG1             EQUALS   VINIT      +6                         #  I(6)TMP SHIFTED RTARG
005336,003921: E7,1426  E7,1611               VIPRIME            EQUALS   RTARG1     +6                         #  I(6)OUT   NEW VEL REQ AT INITIAL RADIUS
005337,003922: E7,1426  E7,1617               VTPRIME            EQUALS   VIPRIME    +6                         #  I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS
005338,003923: E7,1426  E7,1625               +MGA               EQUALS   VTPRIME    +6                         #  I(2)DSP NOUN 45 FOR P30,34,35. +MID GIM.
005339,003924: E7,1426  E7,1627               COZY4              EQUALS   +MGA       +2                         #  I(2)TMP COSINE OF ANGLE WHEN ROT STARTS
005340,003925: 
005341,003926:                                                                                                  #  (THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CAN NOT SHARE WITH TPI
005342,003927: 

Page 120

005344,003929: E7,1426  E7,1502               INTIME             EQUALS   AXISCODE   +3                         
005345,003930: E7,1426  E7,1504               ITCTR              EQUALS   INTIME     +2                         #  I(1) TMP ITERATION COUNTER
005346,003931: E7,1426  E7,1631               END-IN/M           EQUALS   COZY4      +2                         #  **NEXT AVAIL LOC AFTER INITVEL/MIDGIM**
005347,003932: 
005348,003933:                                                                                                  #           P34 AND P33 STORAGE.   (OVERLAYS INITVEL/MIDGIM)               (24D)
005349,003934: 
005350,003935: E7,1426  E7,1567               VAPREC             EQUALS   RINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005351,003936: E7,1426  E7,1575               RAPREC             EQUALS   VINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005352,003937: E7,1426  E7,1611               VPPREC             EQUALS   VIPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005353,003938: E7,1426  E7,1617               RPPREC             EQUALS   VTPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005354,003939: 
005355,003940:                                                                                                  #           P30, P40 INTERFACE.                                            (20D)
005356,003941: 
005357,003942: E7,1426  E7,1631               RTIG               EQUALS   END-IN/M                              #  I(6)TMP
005358,003943: E7,1426  E7,1637               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
005359,003944: E7,1426  E7,1645               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
005360,003945: E7,1426  E7,1645               DELVEET3           EQUALS   DELVSIN                               #       TMP DELTA VEL VECT INERTIAL COORDS.
005361,003946: E7,1426  E7,1645               VGTEMP             EQUALS   DELVEET3                              
005362,003947: E7,1426  E7,1653               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
005363,003948: E7,1426  E7,1653               VGDISP             =        DELVSAB                               #      DSP NOUN 40,42,99FOR P30,34,35,40,41
005364,003949: 
005365,003950:                                                                                                  #           P35-P40 INTERFACE STORAGE. (OVERLAYS P30-P40 I/F STORAGE)      (12D)
005366,003951: 
005367,003952: E7,1426  E7,1631               RPASS4             EQUALS   RTIG                                  #  I(6)TMP POSITION OF PASSIVE AT INTERCEPT
005368,003953: E7,1426  E7,1637               VPASS4             EQUALS   RPASS4     +6                         #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
005369,003954: 
005370,003955: 
005371,003956:                                                                                                  #           TPI SEARCH (P17)                                               (6D)
005372,003957: 
005373,003958: E7,1426  E7,1645               E2                 EQUALS   VPASS4     +6                         #  I(6)TMP
005374,003959: 
005375,003960: 
005376,003961: 
005377,003962:                                                                                                  #           P30-P40 COMMON STORAGE.                                        (3D)
005378,003963: 
005379,003964: E7,1426  E7,1655               TPASS4             EQUALS   DELVSAB    +2                         #  I(2)TMP
005380,003965: E7,1426  E7,1655               TINT               =        TPASS4                                #  I(2)
005381,003966: E7,1426  E7,1657               QTEMP              EQUALS   TPASS4     +2                         #  I(1)TMP
005382,003967: 
005383,003968: 
005384,003969: 
005385,003970:                                                                                                  #           P30-P40 STORAGE.                                               (4D)
005386,003971: 
005387,003972: E7,1426  E7,1660               TTOGO              EQUALS   QTEMP      +1                         #  B(2)DSP NOUN 35,40,45,59,99
005388,003973:                                                                                                  #          FOR P30,34,35,40,41,47,  R30.
005389,003974: E7,1426  E7,1662               TTPI               EQUALS   TTOGO      +2                         #  B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS.

Page 121

005391,003976: E7,1426  E7,1664               END-P30S           EQUALS   TTPI       +2                         #  **NEXT AVAIL LOC AFTER P30-40 STORAGE.**
005392,003977: 
005393,003978: 
005394,003979:                                                                                                  #           P40 STORAGE.                                                   (8D)
005395,003980: 
005396,003981: E7,1426  E7,1664               VGBODY             EQUALS   END-P30S                              #  B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR
005397,003982: E7,1426  E7,1664               DELVCTL            =        VGBODY                                
005398,003983: E7,1426  E7,1672               P40TMP             EQUALS   VGBODY     +6                         #  B(2)TMP
005399,003984: 
005400,003985: 
005401,003986:                                                                                                  #           P47 STORAGE.
005402,003987: 
005403,003988: E7,1426  E7,1457               DV47TEMP           EQUALS   VG                                    
005404,003989: E7,1426  E7,1674               DELVIMU            EQUALS   P40TMP     +2                         #  I(6)  DSP  NOUN 83 FOR P47 DELTAV(IMU)
005405,003990: 
005406,003991: 
005407,003992: 
005408,003993:                                                                                                  #           S40.1 STORAGE.                                                 (23D)
005409,003994: 
005410,003995: E7,1426  E7,1702               CSTEER             EQUALS   DELVIMU    +6                         #  I(2)IN
005411,003996: E7,1426  E7,1704               BDT                EQUALS   CSTEER     +2                         #  I(6)IN
005412,003997: E7,1426  E7,1712               UT                 EQUALS   BDT        +6                         #  I(6)OUT THRUST DIRECTION
005413,003998: E7,1426  E7,1720               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
005414,003999: E7,1426  E7,1720               VGPREV             =        VGTIG                                 
005415,004000: E7,1426  E7,1726               F                  EQUALS   VGTIG      +6                         #  I(2)OUT S40.3 NEEDS THIS
005416,004001: 
005417,004002: E7,1426  E7,1730               QTEMP1             EQUALS   F          +2                         #  I(1)TMP HOLDS RETURN
005418,004003: 

Page 122

005420,004005: 
005421,004006:                                                                                                  #           *-*-*-*-  OVERLAY 4 IN EBANK 7 -*-*-*-*
005422,004007: 
005423,004008:                                                                                                  #           S35.1 STORAGE.                                                 (2D)
005424,004009: 
005425,004010: E7,1426  E7,1664               TSTRT              EQUALS   END-P30S                              #  I(2)IN  MIDCOURSE START TIME
005426,004011: 
005427,004012: 
005428,004013:                                                                                                  #           S34.1 STORAGE.          (OVERLAYS S35.1 STORAGE)               (1D)
005429,004014: 
005430,004015: E7,1426  E7,1664               TITER              EQUALS   TSTRT                                 #  I(1)TMP ITERATION COUNTER
005431,004016: 
005432,004017: 
005433,004018:                                                                                                  #           (P30-31 Q-SAVES)                                               (1)
005434,004019: 
005435,004020: E7,1426  E7,1664               P30/31RT           EQUALS   TITER                                 #  B(1)  RETURN POINT
005436,004021: 
005437,004022: 
005438,004023: 
005439,004024:                                                                                                  #           P20'S(COLOSSUS) STORAGE.                                       (6D)
005440,004025: 
005441,004026: E7,1426  E7,1666               S22WUNL            EQUALS   TSTRT      +2                         #  1      WUNL W8 UNKNOWN INIT VALUE
005442,004027: E7,1426  E7,1667               S22TOFF            EQUALS   S22WUNL    +1                         #  2    T SUB OFF
005443,004028: E7,1426  E7,1671               S22TPRIM           EQUALS   S22TOFF    +2                         #  2      SAVE TF
005444,004029: E7,1426  E7,1673               S22EORM            EQUALS   S22TPRIM   +2                         #  0 = EARTH -- NON-ZERO = MOON
005445,004030: 
005446,004031: 
005447,004032: 
005448,004033:                                                                                                  #           DOWNLINK ERASABLES FOR P22,P20 MARK DATA.                      (8D)
005449,004034: 
005450,004035: E7,1426  E7,1674               MARKDOWN           EQUALS   S22EORM    +1                         #  B(1)
005451,004036: E7,1426  E7,1703               RM                 EQUALS   S22RTNEX                              #  DOWNLINK OF VHF RANGE
005452,004037: 
005453,004038: 
005454,004039: 
005455,004040:                                                                                                  #           S22.1                                                          (1D)
005456,004041: 
005457,004042: E7,1426  E7,1703               S22RTNEX           EQUALS   MARKDOWN   +7                         #  B(1)
005458,004043: 
005459,004044: 
005460,004045: 
005461,004046:                                                                                                  #           CRS61.1 STORAGE.          -A SUBSET OF P20-                    (14D)
005462,004047: 
005463,004048: E7,1426  E7,1704               Q611               EQUALS   RM         +1                         #  I(1) TMP QSAVE
005464,004049: E7,1426  E7,1705               Q6111              EQUALS   Q611       +1                         #  I(1)TMP QSAVE
005465,004050: E7,1426  E7,1706               SAVEPOS            EQUALS   Q6111      +1                         #  I(6)TMP LEM POSITION VECTOR-
005466,004051: E7,1426  E7,1714               SAVEVEL            EQUALS   SAVEPOS    +6                         #  I(6)TMP LEM VELOCITY VECTOR-
005467,004052: 
005468,004053: 
005469,004054:                                                                                                  #           ATTITUDE MANEUVER -CALLED BY P20,R61,R63,CRS61.1               (3D)
005470,004055: 

Page 123

005472,004057: E7,1426  E7,1722               PRAXIS             EQUALS   SAVEVEL    +6                         #  B(3) S-S DISP RES FOR PREF AXIS N95
005473,004058: 
005474,004059: 
005475,004060:                                                                                                  #           MARK ROUTINE (R21) STORAGE.         -IS SUBSET OF R22-         (14D)
005476,004061: 
005477,004062: E7,1426  E7,1725               MRKBUF1            EQUALS   PRAXIS     +3                         #  B(7)TMP R21 MARK BUFFER
005478,004063: E7,1426  E7,1734               MRKBUF2            EQUALS   MRKBUF1    +7                         #  B(7)TMP R21 MARK BUFFER
005479,004064: 
005480,004065: 
005481,004066:                                                                                                  #           MORE CONICS STORAGE.                                           (4)
005482,004067: E7,1426                        COGA               EQUALS   3774                                  #  I(2) COTAN OF INITIAL FLIGHT  PATH ANGLE
005483,004068: E7,1426  E7,1774               INDEP              EQUALS   COGA                                  #  I(1) USED BY SUBROUTINE:ITERATOR:
005484,004069: E7,1426  E7,1776               EPSILONL           EQUALS   COGA       +2                         #  I(2) TMP
005485,004070: 
005486,004071: 
005487,004072:                                                                                                  #           RENDEZVOUS GUIDANCE STORAGE.  - P32...P35 -                    (10D)
005488,004073: 
005489,004074: E7,1426  E7,1743               ELEV               EQUALS   MRKBUF2    +7                         #  I(2)TMP
005490,004075: E7,1426  E7,1745               RTX1               EQUALS   ELEV       +2                         #   (1)
005491,004076: E7,1426  E7,1746               RTX2               EQUALS   RTX1       +1                         #   (1)
005492,004077: E7,1426  E7,1747               RTMU               EQUALS   RTX2       +1                         #   (2)
005493,004078: E7,1426  E7,1751               RTSR1/MU           EQUALS   RTMU       +2                         #   (2)
005494,004079: E7,1426  E7,1753               CENTANG            EQUALS   RTSR1/MU   +2                         #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
005495,004080: 
005496,004081: 
005497,004082: 
005498,004083:                                                                                                  #           TPI SEARCH (S17.1, S17.2) P17 STORAGE.                         (10D)
005499,004084: 
005500,004085: E7,1426  E7,1743               DELTEE             EQUALS   MRKBUF2    +7                         #  I(2)
005501,004086: E7,1426  E7,1745               XRS                EQUALS   DELTEE     +2                         #  I(2)
005502,004087: E7,1426  E7,1747               THETL              EQUALS   XRS        +2                         #  I(2)
005503,004088: E7,1426  E7,1751               TF                 EQUALS   THETL      +2                         #  I(2)
005504,004089: E7,1426  E7,1753               DELHITE            EQUALS   TF         +2                         #   (2)
005505,004090: 

Page 124

005507,004092: 
005508,004093:                                                                                                  #           *-*-*-*-  OVERLAY 5 IN EBANK 7 -*-*-*-*
005509,004094: 
005510,004095:                                                                                                  #           P17,P34                                                        (2D)
005511,004096: 
005512,004097: E7,1426  E7,1645               NN1                EQUALS   DELVEET3                              #  I(2) DSP NOUN 55,R1
005513,004098: 
005514,004099:                                                                                                  #   ************ THE FOLLOWING ARE FOR FLIGHT 504 ONLY ********************
005515,004100: 
005516,004101:                                                                                                  #           RETURN-TO-EARTH STORAGE.                                       (93D)
005517,004102: 
005518,004103: E7,1426  E7,1631               RTEDVD             EQUALS   END-IN/M                              #  I(2)IN  DELTA VELOCITY DESIRED  M/CS B7
005519,004104: E7,1426  E7,1633               RTEGAM2D           EQUALS   RTEDVD     +2                         #  I(2)IN  REENTRY ANGLE DESIRED   REVS B0
005520,004105: E7,1426  E7,1635               RCON               EQUALS   RTEGAM2D   +2                         #  I(2)TMP CONIC R2 RADIUS            M B29
005521,004106: E7,1426  E7,1637               R(T1)/             EQUALS   RCON       +2                         #  I(6)TMP POSITION VECTOR AT TIG M B29/B27
005522,004107: E7,1426  E7,1645               R(T1)              EQUALS   R(T1)/     +6                         #  I(2)TMP MAGNITUDE OF R(T1)/    M B29/B27
005523,004108: E7,1426  E7,1647               DT21PR             EQUALS   R(T1)      +2                         #  I(2) TMP PREVOUS DT21           CS B30
005524,004109: E7,1426  E7,1651               MAMAX1             EQUALS   DT21PR     +2                         #  I(2) TMP MAJ AXIS LOW BOUND LMT    M B30
005525,004110: E7,1426  E7,1653               MAMAX2             EQUALS   MAMAX1     +2                         #  I(2) TMP MAJ AXIS UP BOUND LMT     M B30
005526,004111: E7,1426  E7,1655               R(T2)/             EQUALS   MAMAX2     +2                         #  I(6)TMP FINAL POSITION VECTOR  M B29/B27
005527,004112: E7,1426  E7,1663               RD                 EQUALS   R(T2)/     +6                         #  I(2)TMP FINAL R DESIRED        M B29/B27
005528,004113: E7,1426  E7,1665               DRCON              EQUALS   RD         +2                         #  I(2)TMP RCON SLOPE ITERATOR    M B29/B27
005529,004114: E7,1426  E7,1667               RPRE,              EQUALS   DRCON      +2                         #  I(2)TMP PREVISOUS RPRE         M B29/B27
005530,004115: E7,1426  E7,1671               V(T1)/             EQUALS   RPRE,      +2                         #  I(6)TMP VEL VECTOR AT TIG     M/CS B7/B5
005531,004116: E7,1426  E7,1677               V2(T1)/            EQUALS   V(T1)/     +6                         #  I(6)TMP POST IMP VEL AT TIG   M/CS B7/B5
005532,004117: E7,1426  E7,1705               DV                 EQUALS   V2(T1)/    +6                         #  I(2)TMP DELTA VELOCITY AT TIG M/CS B7/B5
005533,004118: E7,1426  E7,1707               V(T2)/             EQUALS   DV         +2                         #  I(6)TMP FINAL VELOCITY VECTOR M/CS B7/B5
005534,004119: E7,1426  E7,1715               T1                 EQUALS   V(T2)/     +6                         #  I(2)TMP INITIAL VECTOR TIME       CS B28
005535,004120: E7,1426  E7,1717               PCON               EQUALS   T1         +2                         #  I(2)TMP SEMI-LATUS RECTUM         M B29
005536,004121: E7,1426  E7,1721               X(T1)              EQUALS   PCON       +2                         #  I(2)TMP COTANGENT GAMMA1              B5
005537,004122: E7,1426  E7,1723               T12                EQUALS   X(T1)      +2                         #  I(2)TMP INIT TO FINL POSIT TIME   CS B28
005538,004123: E7,1426  E7,1725               DELTAT             EQUALS   T12        +2                         #  I(2) TMP DELTA T IN SAFE PERILUNE CS B28
005539,004124: E7,1426  E7,1727               NN1A               EQUALS   DELTAT     +2                         #  I(2) TMP ITERATION COUNTER 1
005540,004125: E7,1426  E7,1731               NN2                EQUALS   NN1A       +2                         #  I(2) TMP ITERATION COUNTER 2
005541,004126: E7,1426  E7,1733               RTENCKEX           EQUALS   NN2        +2                         #  I(1)TMP RTENCK RETURN ADDRESS
005542,004127: E7,1426  E7,1734               CONICX1            EQUALS   RTENCKEX   +1                         #  I(1)TMP CONICS MU TABLE INDEX
005543,004128: E7,1426  E7,1735               T2                 EQUALS   CONICX1    +1                         #  I(2)TMP FINAL TIME                CS B28
005544,004129: E7,1426  E7,1737               UR1/               EQUALS   T2         +2                         #  I(6)TMP UNIT R(T1)/                   B1
005545,004130: E7,1426  E7,1745               UV1/               EQUALS   UR1/       +6                         #  I(6)TMP UNIT V(T1)/                   B1
005546,004131: E7,1426  E7,1753               BETA1              EQUALS   UV1/       +6                         #  I(2)TMP 1+X(T2)**2                    B1
005547,004132: E7,1426  E7,1755               P(T1)              EQUALS   BETA1      +2                         #  I(1)TMP PRIMARY BODY STATE TIME 1    B14
005548,004133: E7,1426  E7,1756               CFPA               EQUALS   P(T1)      +1                         #  I(2) TMP COSINE FLIGHT PATH ANGLE   B1
005549,004134: E7,1426  E7,1760               PHI2               EQUALS   CFPA       +2                         #  I(2) TMP PERI OR APO INDICATOR       B2
005550,004135: E7,1426  E7,1762               SPRTEX             EQUALS   PHI2       +2                         #  I(1)TMP ROUTINE RETURN ADDRESS
005551,004136: 
005552,004137: 
005553,004138: E7,1426  E7,1763               VNSTORE            EQUALS   SPRTEX     +1                         #  I(1)TMP VERBNOUN STORAGE
005554,004139: E7,1426  E7,1764               BETA12             EQUALS   VNSTORE    +1                         #  I(2)TMP SIGN FOR TIMERAD
005555,004140:                                                                                                  #           OVERLAYS WITHIN RETURN-TO-EARTH STORAGE.
005556,004141: 
005557,004142: E7,1426                        RPRE               EQUALS   24D                                   #  I(2)TMP COMPUTED PREC RADIUS   M B29/B27

Page 125

005559,004144: E7,1426                        P/RPRE             EQUALS   26D                                   #  I(2)TMP P/R                           B4
005560,004145: E7,1426                        R/APRE             EQUALS   28D                                   #  I(2)TMP R/A                           B6
005561,004146: E7,1426  E7,1723               X(T2)PRE           EQUALS   T12                                   #  I(2)TMP PREC COTAN GAMMA2             B0
005562,004147: E7,1426  E7,1725               X(T2)              EQUALS   DELTAT                                #  I(2)TMP COTAN GAMMA2                  B0
005563,004148: E7,1426  E7,1745               UH/                EQUALS   UV1/                                  #  I(2)TMP UNIT HORIZONTAL VECTOR.       B1
005564,004149: E7,1426  E7,1412               SPRTETIG           EQUALS   TIG                                   #  I(2)IN  TIME OF IGNITION          CS B28
005565,004150: E7,1426  E4,1721               RETLOCN            EQUALS   XR1HOLD    +1                         
005566,004151: 
005567,004152: 
005568,004153: 
005569,004154: E7,1426                        WHOCARES           =        3777                                  #  A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
005570,004155: 
005571,004156: 
005572,004157: E7,1426  0003777               END-E7             EQUALS   WHOCARES                              #  ****** LAST LOCATION IN E7

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