Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

001549,000002:                                                                                                  ## Copyright:   Public domain.
001550,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
001551,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
001552,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
001553,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
001554,000007:                                                                                                  ##              Apollo 15-17.
001555,000008:                                                                                                  ## Assembler:   yaYUL
001556,000009:                                                                                                  ## Contact:     Onno Hommes <ohommes@alumni.cmu.edu>
001557,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001558,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
001559,000012:                                                                                                  ## Mod history: 2009-07-30 OH   Started from corresponding Comanche 055 file.
001560,000013:                                                                                                  ##              2009-11-29 JL   Carried on from where Onno stopped on page 48.
001561,000014:                                                                                                  ##              2010-01-25 JL   Finished conversion.
001562,000015:                                                                                                  ##              2010-01-26 JL   Updated header comments.
001563,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
001564,000017:                                                                                                  ##              2010-02-02 JL   Fixed page numbers.
001565,000018:                                                                                                  ##              2010-02-02 JL   Fixed ERASE op.
001566,000019:                                                                                                  ##              2010-02-09 JL   Fixed addresses of 9X9LOC1 and 9X9LOC2 on p97.
001567,000020:                                                                                                  ##                              Fixed EQUALS on p80.
001568,000021:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
001569,000022:                                                                                                  ##              2010-04-12 JL   Fixed tab spacing on a line.
001570,000023:                                                                                                  ##              2011-05-07 JL   Removed workarounds.
001571,000024:                                                                                                  ##              2017-01-04 RSB  Proofed comment text using octopus/ProoferComments
001572,000025:                                                                                                  ##                              and fixed errors found.
001573,000026:                                                                                                  ##              2017-01-22 RSB  Proofed comment text by diff'ing vs Comanche 55
001574,000027:                                                                                                  ##                              and corrected errors found, though the match between
001575,000028:                                                                                                  ##                              these program versions is not stellar (ha!), so 
001576,000029:                                                                                                  ##                              you shouldn't have too much confidence that all
001577,000030:                                                                                                  ##                              comment-text errors were found. 
001578,000031:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 4-way side-by-side
001579,000032:                                                                                                  ##                              diff of Colossus237/249/Comanche55/Artemis72.
001580,000033:                                                                                                  ##                              Note that there are several instances (marked by 
001581,000034:                                                                                                  ##                              ##-style comments) in which I've added a trailing
001582,000035:                                                                                                  ##                              period not visible in the printout. In these instances
001583,000036:                                                                                                  ##                              I believe that the printout is simply too faint, but 
001584,000037:                                                                                                  ##                              that the periods are really present in the source code.
001585,000038:                                                                                                  ##                              Previously, I had intentionally omitted these periods.
001586,000039: 

Page 38

001588,000041:                                                                                                  #  CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001589,000042: 
001590,000043:                                                                                                  #        EQUALS  IS USED IN TWO WAYS.  IT IS OFTEN USED TO CHAIN A GROUP
001591,000044:                                                                                                  #                OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001592,000045:                                                                                                  #                CHANGING OF ONLY ONE CARD.  EXAMPLE.
001593,000046: 
001594,000047:                                                                                                  #                                        X       EQUALS  START
001595,000048:                                                                                                  #                                        Y       EQUALS  X       +SIZE.X
001596,000049:                                                                                                  #                                        Z       EQUALS  Y       +SIZE.Y
001597,000050: 
001598,000051:                                                                                                  #                (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START.       )
001599,000052:                                                                                                  #                (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001600,000053:                                                                                                  #                 USUALLY NUMERIC,  IE. 1, 2, 6, 18D ETC.               )
001601,000054: 
001602,000055: 
001603,000056:                                                                                                  #        EQUALS  OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001604,000057:                                                                                                  #                AND DIFFERENT DATA).  EXAMPLE.
001605,000058: 
001606,000059:                                                                                                  #                                        X       EQUALS  Y
001607,000060: 
001608,000061: 
001609,000062:                                                                                                  #        = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001610,000063:                                                                                                  #                (THIS IS LOGICAL EQUIVALENCE, NOT SHARING)  EXAMPLE.
001611,000064: 
001612,000065:                                                                                                  #                                        X       =       Y
001613,000066: 
001614,000067: 
001615,000068:                                                                                                  #        THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001616,000069:                                                                                                  #        THE COMMENTS IN THE FOLLOWING FORM.  M(SIZE)N.
001617,000070: 
001618,000071:                                                                                                  #                M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001619,000072:                                                                                                  #                     B   MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001620,000073:                                                                                                  #                         INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001621,000074:                                                                                                  #                     I   MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001622,000075:                                                                                                  #                         INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001623,000076:                                                                                                  #                         INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001624,000077: 
001625,000078:                                                                                                  #                SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001626,000079: 
001627,000080:                                                                                                  #                N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001628,000081:                                                                                                  #                     PL MEANS THAT THE CONTENTS ARE PAD LOADED.
001629,000082:                                                                                                  #                     DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001630,000083:                                                                                                  #                     PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001631,000084:                                                                                                  #                         IS USED DURING THE ENTIRE MISSION FOR ONE
001632,000085:                                                                                                  #                         PURPOSE AND CANNOT BE SHARED.
001633,000086:                                                                                                  #                     TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001634,000087:                                                                                                  #                         IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001635,000088:                                                                                                  #                         IT IS ASSIGNED.  THAT IS, IT NEED NOT BE SET
001636,000089:                                                                                                  #                         PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001637,000090:                                                                                                  #                         CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE.  THUS

Page 39

001639,000092:                                                                                                  #                         IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
001640,000093:                                                                                                  #                         IS NOT ACTIVE IN PARALLEL.
001641,000094:                                                                                                  #                     IN  MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001642,000095:                                                                                                  #                         TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001643,000096:                                                                                                  #                     OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001644,000097:                                                                                                  #                         TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001645,000098: 

Page 40

001647,000100: 
001648,000101:                                                                                                  #        SPECIAL REGISTERS.
001649,000102: 
001650,000103: ???????                        A                  EQUALS   0                                     
001651,000104: ???????                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
001652,000105: ???????                        Q                  EQUALS   2                                     
001653,000106: ???????                        EBANK              EQUALS   3                                     
001654,000107: ???????                        FBANK              EQUALS   4                                     
001655,000108: ???????                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
001656,000109: ???????                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
001657,000110:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001658,000111: 
001659,000112: ???????                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
001660,000113: ???????                        LRUPT              EQUALS   11                                    
001661,000114: ???????                        QRUPT              EQUALS   12                                    
001662,000115: ???????                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
001663,000116: ???????                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)

The trailing period in the line below is not visible in the printout, but I believe it is simply too faint to see. — RSB 2017.

001666,000119: ???????                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
001667,000120: ???????                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
001668,000121: 
001669,000122: ???????                        CYR                EQUALS   20                                    
001670,000123: ???????                        SR                 EQUALS   21                                    
001671,000124: ???????                        CYL                EQUALS   22                                    
001672,000125: ???????                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
001673,000126: 
001674,000127: 
001675,000128: ???????                        TIME2              EQUALS   24                                    
001676,000129: ???????                        TIME1              EQUALS   25                                    
001677,000130: ???????                        TIME3              EQUALS   26                                    
001678,000131: ???????                        TIME4              EQUALS   27                                    
001679,000132: ???????                        TIME5              EQUALS   30                                    
001680,000133: ???????                        TIME6              EQUALS   31                                    
001681,000134: ???????                        CDUX               EQUALS   32                                    
001682,000135: ???????                        CDUY               EQUALS   33                                    
001683,000136: ???????                        CDUZ               EQUALS   34                                    

The trailing period in the lines below is not visible in the printout, but I believe it is simply too faint to see. — RSB 2017.

001686,000139: ???????                        CDUT               EQUALS   35                                    #  OPTICS TRUNNION CDU (WAS OPTY).
001687,000140: ???????                        CDUS               EQUALS   36                                    #  OPTICS SHAFT CDU (WAS OPTX).
001688,000141: ???????                        PIPAX              EQUALS   37                                    
001689,000142: ???????                        PIPAY              EQUALS   40                                    
001690,000143: ???????                        PIPAZ              EQUALS   41                                    
001691,000144: ???????                        BMAGX              EQUALS   42                                    
001692,000145: ???????                        BMAGY              EQUALS   43                                    
001693,000146: ???????                        BMAGZ              EQUALS   44                                    
001694,000147: ???????                        INLINK             EQUALS   45                                    
001695,000148: ???????                        RNRAD              EQUALS   46                                    
001696,000149: ???????                        GYROCMD            EQUALS   47                                    
001697,000150: ???????                        CDUXCMD            EQUALS   50                                    
001698,000151: ???????                        CDUYCMD            EQUALS   51                                    
001699,000152: ???????                        CDUZCMD            EQUALS   52                                    
001700,000153: ???????                        CDUTCMD            EQUALS   53                                    #  OPTICS TRUNNION COMMAND (WAS OPTYCMD).
001701,000154: ???????  0000053               TVCYAW             EQUALS   CDUTCMD                               #  SPS YAW COMMAND IN TVC MODE.
001702,000155: 

Page 41

001704,000157: ???????                        CDUSCMD            EQUALS   54                                    #  OPTICS SHAFT COMMAND (WAS OPTXCMD).
001705,000158: ???????  0000054               TVCPITCH           EQUALS   CDUSCMD                               #  SPS PITCH COMMAND IN TVC MODE.
001706,000159:                                                                                                  #  REGISTERS 55-60 ARE COUNTERS WHICH ARE NOT PRESENTLY WIRED, AND SO MAY BE USED WITH CARE
001707,000160: 
001708,000161: 
001709,000162:                                                                                                  #        INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001710,000163: 
001711,000164: ???????                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001712,000165: ???????                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
001713,000166: ???????                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE

The trailing period in the line below is not visible in the printout, but I believe it is simply too faint to see. — RSB 2017.

001716,000169: ???????                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
001717,000170: ???????                        S1                 EQUALS   40D                                   
001718,000171: ???????                        S2                 EQUALS   41D                                   
001719,000172: ???????                        QPRET              EQUALS   42D                                   
001720,000173: 

Page 42

001722,000175: 
001723,000176:                                                                                                  #  INPUT/OUTPUT CHANNELS
001724,000177: 
001725,000178:                                                                                                  #   *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001726,000179: ???????  0000001               LCHAN              EQUALS   L                                     
001727,000180: ???????  0000002               QCHAN              EQUALS   Q                                     
001728,000181: ???????                        HISCALAR           EQUALS   3                                     
001729,000182: ???????                        LOSCALAR           EQUALS   4                                     
001730,000183: ???????                        PYJETS             EQUALS   5                                     
001731,000184: ???????  0000005               CHAN5              =        PYJETS                                
001732,000185: ???????                        ROLLJETS           EQUALS   6                                     
001733,000186: ???????  0000006               CHAN6              =        ROLLJETS                              
001734,000187: ???????                        SUPERBNK           EQUALS   7                                     
001735,000188: ???????                        OUT0               EQUALS   10                                    
001736,000189: ???????                        DSALMOUT           EQUALS   11                                    
001737,000190: ???????                        CHAN12             EQUALS   12                                    
001738,000191: ???????                        CHAN13             EQUALS   13                                    
001739,000192: ???????                        CHAN14             EQUALS   14                                    
001740,000193: ???????                        MNKEYIN            EQUALS   15                                    
001741,000194: ???????                        NAVKEYIN           EQUALS   16                                    
001742,000195: ???????                        CHAN30             EQUALS   30                                    
001743,000196: ???????                        CHAN31             EQUALS   31                                    
001744,000197: ???????                        CHAN32             EQUALS   32                                    
001745,000198: ???????                        CHAN33             EQUALS   33                                    
001746,000199: ???????                        DNTM1              EQUALS   34                                    
001747,000200: ???????                        DNTM2              EQUALS   35                                    
001748,000201: ???????                        CHAN76             EQUALS   76                                    
001749,000202: ???????                        CHAN77             EQUALS   77                                    
001750,000203:                                                                                                  #  END OF CHANNEL ASSIGNMENTS
001751,000204: 

Page 43

001753,000206: 
001754,000207:                                                                                                  #        FLAGWORDS
001755,000208: 
001756,000209: 
001757,000210:                                                                                                  #  FLAGWRD0      STATE +0        (000-014)
001758,000211:                                                                                                  #  FLAGWRD1      STATE +1        (015-029)
001759,000212:                                                                                                  #  FLAGWRD2      STATE +2        (030-044)
001760,000213:                                                                                                  #  FLAGWRD3      STATE +3        (045-059)
001761,000214:                                                                                                  #  FLAGWRD4      STATE +4        (060-074)
001762,000215:                                                                                                  #  FLAGWRD5      STATE +5        (075-089)
001763,000216:                                                                                                  #  FLAGWRD6      STATE +6        (090-104)
001764,000217:                                                                                                  #  FLAGWRD7      STATE +7        (105-119)
001765,000218:                                                                                                  #  FLAGWRD8      STATE +8D       (120-134)
001766,000219:                                                                                                  #  FLAGWRD9      STATE +9D       (135-149)
001767,000220: 
001768,000221: 
001769,000222: 
001770,000223:                                                                                                  #        SORTED LIST OF
001771,000224: 
001772,000225:                                                                                                  #        INTERPITIVE SWITCH BIT ASSIGNMENTS
001773,000226: 
001774,000227:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001775,000228:                                                                                                  #  FLAGWORD      DEC NUM         BIT + FLAG      EQUIVALENT FLAGWORDS
001776,000229: 
001777,000230:                                                                                                  #  .05GSW        102D            BIT 3 FLAG 6
001778,000231:                                                                                                  #  22DSPFLG      032D            BIT 13 FLAG 2
001779,000232:                                                                                                  #  360SW         134D            BIT 1 FLAG 8
001780,000233:                                                                                                  #  3AXISFLG      084D            BIT 6 FLAG 5
001781,000234:                                                                                                  #  ADVTRK        125D            BIT 10 FLAG 8
001782,000235:                                                                                                  #  AMOONFLG      13D             BIT 2 FLAG 0
001783,000236:                                                                                                  #  APSESW        130D            BIT 5 FLAG 8
001784,000237:                                                                                                  #  ASTNFLAG      108D            BIT 12 FLAG 7
001785,000238:                                                                                                  #  ATTCHFLG      118D            BIT 2 FLAG 7
001786,000239:                                                                                                  #  AUTOSEQ       158D            BIT 7  FLAG 10
001787,000240:                                                                                                  #  AVEGFLAG      029D            BIT 1 FLAG 1
001788,000241:                                                                                                  #  AVEMIDSW      149D            BIT 1 FLAG 9
001789,000242:                                                                                                  #  AVFLAG        040D            BIT 5 FLAG 2
001790,000243:                                                                                                  #  AZIMFLAG      172D            BIT 8 FLAG 11
001791,000244:                                                                                                  #  BURNFLAG      155D            BIT 10 FLAG 10
001792,000245:                                                                                                  #  CALCMAN2      043D            BIT 2 FLAG 2
001793,000246:                                                                                                  #  CMDAPARM      093D            BIT 12 FLAG 6
001794,000247:                                                                                                  #  CMOONFLG      123D            BIT 12 FLAG 8
001795,000248:                                                                                                  #  CM/DSTBY      103D            BIT 2 FLAG 6
001796,000249:                                                                                                  #  COGAFLAG      131D            BIT 4 FLAG 8
001797,000250:                                                                                                  #  COMPUTER      082D            BIT 8 FLAG 5
001798,000251:                                                                                                  #  CSISFLAG      174D            BIT 6  FLAG 11
001799,000252:                                                                                                  #  CULTFLAG      053D            BIT 7 FLAG 3
001800,000253:                                                                                                  #  CYC61FLG      11D             BIT 4  FLAG 0
001801,000254:                                                                                                  #  D6OR9FLG      058D            BIT 2 FLAG 3
001802,000255:                                                                                                  #  DAPBIT1       090D            BIT 15 FLAG 6
001803,000256:                                                                                                  #  DAPBIT2       091D            BIT 14 FLAG 6
001804,000257: 

Page 44

001806,000259:                                                                                                  #  DIM0FLAG      059D            BIT 1 FLAG 3
001807,000260:                                                                                                  #  DMENFLG       081D            BIT 9 FLAG 5
001808,000261:                                                                                                  #  DRIFTFLG      030D            BIT 15 FLAG 2
001809,000262:                                                                                                  #  DSKYFLAG      075D            BIT 15 FLAG 5
001810,000263:                                                                                                  #  EGSW          97D             BIT 8 FLAG 6    KNOWNFLG  R57FLAG
001811,000264:                                                                                                  #  ENG2FLAG      019D            BIT 11 FLAG 1
001812,000265:                                                                                                  #  ENGONFLG      083D            BIT 7 FLAG 5
001813,000266:                                                                                                  #  ENTRYDSP      047D            BIT 13 FLAG 6
001814,000267:                                                                                                  #  ERADFLAG      017D            BIT 13 FLAG 1
001815,000268:                                                                                                  #  ETPIFLAG      038D            BIT 7 FLAG 2    FIRSTFLG   OPTNSW
001816,000269:                                                                                                  #  F2RTE         10D             BIT 5  FLAG 0
001817,000270:                                                                                                  #  FINALFLG      039D            BIT 6 FLAG 2
001818,000271:                                                                                                  #  FIRSTFLG      38D             BIT 7  FLAG 2   ETPIFLAG   OPTNSW
001819,000272:                                                                                                  #  FREEFLAG      012D            BIT 3 FLAG 0
001820,000273:                                                                                                  #  FULTKFLG      163D            BIT 2 FLAG 10
001821,000274:                                                                                                  #  GAMDIFSW      094D            BIT 11 FLAG 6
001822,000275:                                                                                                  #  GLOKFAIL      046D            BIT 14 FLAG 3
001823,000276:                                                                                                  #  GONEBY        112D            BIT 8 FLAG 7
001824,000277:                                                                                                  #  GONEPAST      095D            BIT 10 FLAG 6
001825,000278:                                                                                                  #  GRRBKFLG      085D            BIT 5 FLAG 5
001826,000279:                                                                                                  #  GUESSW        028D            BIT 2 FLAG 1
001827,000280:                                                                                                  #  GYMDIFSW      104D            BIT 1 FLAG 6
001828,000281:                                                                                                  #  HAFLAG        173D            BIT 7  FLAG 11
001829,000282:                                                                                                  #  HDSUPFLG      154D            BIT 11 FLAG 10
001830,000283:                                                                                                  #  HIND          099D            BIT 6 FLAG 6
001831,000284:                                                                                                  #  IDLEFAIL      024D            BIT 6 FLAG 1
001832,000285:                                                                                                  #  IGNFLAG       107D            BIT 13 FLAG 7
001833,000286:                                                                                                  #  IMPULSW       036D            BIT 9 FLAG 2
001834,000287:                                                                                                  #  IMUSE         007D            BIT 8 FLAG 0
001835,000288:                                                                                                  #  INCORFLG      079D            BIT 11 FLAG 5
001836,000289:                                                                                                  #  INFINFLG      128D            BIT 7 FLAG 8
001837,000290:                                                                                                  #  INRLSW        100D            BIT 5 FLAG 6
001838,000291:                                                                                                  #  INTFLAG       151D            BIT 14 FLAG 10
001839,000292:                                                                                                  #  INTYPFLG      056D            BIT 4 FLAG 3
001840,000293:                                                                                                  #  ITSWICH       106D            BIT 14 FLAG 7
001841,000294:                                                                                                  #  JSWITCH       001D            BIT 14 FLAG 0
001842,000295:                                                                                                  #  KNOWNFLG      097D            BIT 8  FLAG 6   EGSW  R57FLAG
001843,000296:                                                                                                  #  LATSW         101D            BIT 4  FLAG 6
001844,000297:                                                                                                  #  LMOONFLG      124D            BIT 11 FLAG 8
001845,000298:                                                                                                  #  LUNAFLAG      048D            BIT 12 FLAG 3
001846,000299:                                                                                                  #  MANEUFLG      160D            BIT 5 FLAG 10
001847,000300:                                                                                                  #  MARKFLG       026D            BIT 4 FLAG 1
001848,000301:                                                                                                  #  MAXDBFLG      138D            BIT 12 FLAG 9
001849,000302:                                                                                                  #  MGLVFLAG      088D            BIT 2 FLAG 5
001850,000303:                                                                                                  #  MID1FLAG      147D            BIT 3 FLAG 9
001851,000304:                                                                                                  #  MIDAVFLG      148D            BIT 2 FLAG 9
001852,000305:                                                                                                  #  MIDFLAG       002D            BIT 13 FLAG 0
001853,000306:                                                                                                  #  MKOVFLAG      072D            BIT 3 FLAG 4
001854,000307:                                                                                                  #  MOONFLAG      003D            BIT 12 FLAG 0
001855,000308:                                                                                                  #  MRKIDFLG      060D            BIT 15 FLAG 4
001856,000309: 

Page 45

001858,000311:                                                                                                  #  MRKNVFLG      066D            BIT 9 FLAG 4
001859,000312:                                                                                                  #  MRUPTFLG      070D            BIT 5 FLAG 4
001860,000313:                                                                                                  #  MWAITFLG      064D            BIT 11 FLAG 4
001861,000314:                                                                                                  #  N22ORN17      144D            BIT 6 FLAG 9
001862,000315:                                                                                                  #  NEEDLFLG      006D            BIT 9 FLAG 0
001863,000316:                                                                                                  #  NEWIFLG       122D            BIT 13 FLAG 8
001864,000317:                                                                                                  #  NEWLMFLG      121D            BIT 14 FLAG  8
001865,000318:                                                                                                  #  NEWTFLAG      80D             BIT 10 FLAG 5
001866,000319:                                                                                                  #  NJETSFLG      015D            BIT 15 FLAG 1
001867,000320:                                                                                                  #  NODOFLAG      044D            BIT 1 FLAG 2
001868,000321:                                                                                                  #  NODOP01       018D            BIT 12 FLAG 1
001869,000322:                                                                                                  #  NORFHOR       004D            BIT 11 FLAG 0
001870,000323:                                                                                                  #  NORMSW        110D            BIT 10 FLAG 7
001871,000324:                                                                                                  #  NOSWITCH      098D            BIT 7 FLAG 6
001872,000325:                                                                                                  #  NRMIDFLG      062D            BIT 13 FLAG 4
001873,000326:                                                                                                  #  NRMNVFLG      067D            BIT 8 FLAG 4
001874,000327:                                                                                                  #  NRUPTFLG      071D            BIT 4 FLAG 4
001875,000328:                                                                                                  #  NWAITFLG      065D            BIT 10 FLAG 4
001876,000329:                                                                                                  #  ORBWFLAG      054D            BIT 6 FLAG 3
001877,000330:                                                                                                  #  ORDERSW       129D            BIT 6 FLAG 8
001878,000331:                                                                                                  #  P21FLAG       033D            BIT 12 FLAG 2
001879,000332:                                                                                                  #  P22MKFLG      49D             BIT 11 FLAG 3
001880,000333:                                                                                                  #  P24FLAG       136D            BIT 14 FLAG  9
001881,000334:                                                                                                  #  P24MKFLG      042D            BIT  3 FLAG  2
001882,000335:                                                                                                  #  P29FLAG       14D             BIT 1 FLAG 0
001883,000336:                                                                                                  #  P35FLAG       157D            BIT 8 FLAG 10
001884,000337:                                                                                                  #  PCFLAG        164D            BIT 1 FLAG 10
001885,000338:                                                                                                  #  PCMANFLG      150D            BIT 15 FLAG 10
001886,000339:                                                                                                  #  PDSPFLAG      063D            BIT 12 FLAG 4
001887,000340:                                                                                                  #  PFRATFLG      041D            BIT 4 FLAG 2
001888,000341:                                                                                                  #  PINBRFLG      069D            BIT 6 FLAG 4
001889,000342:                                                                                                  #  POOFLAG       051D            BIT 9  FLAG 3
001890,000343:                                                                                                  #  PRECIFLG      052D            BIT 8 FLAG 3
001891,000344:                                                                                                  #  PRIODFLG      061D            BIT 14 FLAG 4
001892,000345:                                                                                                  #  PRONVFLG      068D            BIT 7 FLAG 4
001893,000346:                                                                                                  #  PTV93FLG      161D            BIT 4 FLAG 10
001894,000347:                                                                                                  #  QUITFLAG      145D            BIT 5 FLAG 9
001895,000348:                                                                                                  #  R21MARK       031D            BIT 14 FLAG 2
001896,000349:                                                                                                  #  R22CAFLG      143D            BIT 7 FLAG 9
001897,000350:                                                                                                  #  R31FLAG       146D            BIT 4 FLAG 9
001898,000351:                                                                                                  #  R53FLAG       009D            BIT 6 FLAG 0
001899,000352:                                                                                                  #  R67FLAG       133D            BIT 2  FLAG 8
001900,000353:                                                                                                  #  RANGFLAG      156D            BIT 9 FLAG 10
001901,000354:                                                                                                  #  REFSMFLG      047D            BIT 13 FLAG 3
001902,000355:                                                                                                  #  REINTFLG      152D            BIT 13 FLAG 10
001903,000356:                                                                                                  #  REJCTFLG      153D            BIT 12 FLAG 10
001904,000357:                                                                                                  #  RELVELSW      096D            BIT 9 FLAG 6
001905,000358:                                                                                                  #  RENDWFLG      089D            BIT 1 FLAG 5
001906,000359:                                                                                                  #  RETROFLG      76D             BIT 14 FLAG 5
001907,000360:                                                                                                  #  RNDVZFLG      008D            BIT 7 FLAG 0
001908,000361: 

Page 46

001910,000363:                                                                                                  #  RPQFLAG       120D            BIT 15 FLAG 8
001911,000364:                                                                                                  #  RVSW          111D            BIT 9 FLAG 7
001912,000365:                                                                                                  #  S32.1F1       165D            BIT 15 FLAG 11
001913,000366:                                                                                                  #  S32.1F2       166D            BIT 14 FLAG 11
001914,000367:                                                                                                  #  S32.1F3A      167D            BIT 13 FLAG 11
001915,000368:                                                                                                  #  S32.1F3B      168D            BIT 12 FLAG 11
001916,000369:                                                                                                  #  SAVECFLG      140D            BIT 10 FLAG 9
001917,000370:                                                                                                  #  SKIPVHF       035D            BIT 10 FLAG 2
001918,000371:                                                                                                  #  SLOPESW       027D            BIT 3 FLAG 1
001919,000372:                                                                                                  #  SLOWFLG       77D             BIT 13 FLAG 5
001920,000373:                                                                                                  #  SOLNSW        087D            BIT 3 FLAG 5
001921,000374:                                                                                                  #  SOURCFLG      142D            BIT 8 FLAG 9
001922,000375:                                                                                                  #  STATEFLG      055D            BIT 5 FLAG 3
001923,000376:                                                                                                  #  STEERSW       034D            BIT 11 FLAG 2
001924,000377:                                                                                                  #  STIKFLAG      016D            BIT 14 FLAG 1
001925,000378:                                                                                                  #  STRULLSW      92D             BIT 13 FLAG 6
001926,000379:                                                                                                  #  SURFFLAG      127D            BIT 8  FLAG 8
001927,000380:                                                                                                  #  SWTOVER       135D            BIT 15 FLAG 9
001928,000381:                                                                                                  #  TARG1FLG      020D            BIT 10 FLAG 1
001929,000382:                                                                                                  #  TARG2FLG      021D            BIT 9 FLAG 1
001930,000383:                                                                                                  #  TERMIFLG      105D            BIT 15 FLAG 7
001931,000384:                                                                                                  #  TFFSW         119D            BIT 1 FLAG 7
001932,000385:                                                                                                  #  TIMRFLAG      109D            BIT 11 FLAG 7
001933,000386:                                                                                                  #  TPIMNFLG      162D            BIT 3 FLAG 10
001934,000387:                                                                                                  #  TRACKFLG      025D            BIT 5 FLAG 1
001935,000388:                                                                                                  #  UPDATFLG      023D            BIT 7 FLAG 1
001936,000389:                                                                                                  #  UPLOCKFL      116D            BIT 4 FLAG 7
001937,000390:                                                                                                  #  UTFLAG        126D            BIT 9 FLAG 8
001938,000391:                                                                                                  #  V37FLAG       114D            BIT 6 FLAG 7
001939,000392:                                                                                                  #  V50N18FL      045D            BIT 15 FLAG 3
001940,000393:                                                                                                  #  V59FLAG       078D            BIT 12 FLAG 5
001941,000394:                                                                                                  #  V82EMFLG      137D            BIT 13 FLAG 9
001942,000395:                                                                                                  #  V94FLAG       139D            BIT 11 FLAG 9
001943,000396:                                                                                                  #  V96ONFLG      132D            BIT 3 FLAG 8
001944,000397:                                                                                                  #  VEHUPFLG      022D            BIT 8 FLAG 1
001945,000398:                                                                                                  #  VERIFLAG      117D            BIT 3 FLAG 7
001946,000399:                                                                                                  #  VFLAG         050D            BIT 10 FLAG 3
001947,000400:                                                                                                  #  VHFRFLAG      141D            BIT 9 FLAG 9
001948,000401:                                                                                                  #  VINTFLAG      057D            BIT 3 FLAG 3
001949,000402:                                                                                                  #  VNFLAG        073D            BIT 2 FLAG 4
001950,000403:                                                                                                  #  XDELVFLG      037D            BIT 8 FLAG 2
001951,000404:                                                                                                  #  XDSPFLAG      074D            BIT 1 FLAG 4
001952,000405:                                                                                                  #  ZMEASURE      005D            BIT 10 FLAG 0
001953,000406: 

Page 47

001955,000408: 
001956,000409:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS
001957,000410: ???????     0074               FLAGWRD0           =        STATE      +0                         #  (000-014)
001958,000411:                                                                                                  #  (SET)                 (RESET)
001959,000412:                                                                                                  #                        BIT 15 FLAG 0
001960,000413:                                                                                                  #                =       000D
001961,000414:                                                                                                  #                        BIT 14 FLAG 0
001962,000415: ???????                        JSWITCH            =        001D                                  #  INTEGRATION OF W      INTEGRATION OF STATE
001963,000416:                                                                                                  #  MATRIX                VECTOR
001964,000417: ???????     4753               JSWCHBIT           =        BIT14                                 
001965,000418: 
001966,000419:                                                                                                  #                        BIT 13 FLAG 0
001967,000420: ???????                        MIDFLAG            =        002D                                  #  INTEGRATION WITH      INTEGRATION WITHOUT
001968,000421:                                                                                                  #  SOLAR PERTURBATIONS   SOLAR PERTURBATIONS
001969,000422: 
001970,000423: ???????     4754               MIDFLBIT           =        BIT13                                 
001971,000424: 
001972,000425:                                                                                                  #                        BIT 12 FLAG 0
001973,000426: ???????                        MOONFLAG           =        003D                                  #  MOON IS SPHERE OF     EARTH IS SPHERE OF
001974,000427:                                                                                                  #  INFLUENCE             INFLUENCE
001975,000428: 
001976,000429: ???????     4755               MOONBIT            =        BIT12                                 
001977,000430: 
001978,000431:                                                                                                  #                        BIT 11 FLAG 0
001979,000432: ???????                        NORFHOR            =        004D                                  #  FAR HORIZON           NEAR HORIZON
001980,000433: 
001981,000434: ???????     4756               NORFBIT            =        BIT11                                 
001982,000435: 
001983,000436:                                                                                                  #                        BIT 10 FLAG 0
001984,000437: ???????                        ZMEASURE           =        005D                                  #  MEASUREMENT PLANET    MEASUREMENT PLANET
001985,000438:                                                                                                  #  AND PRIMARY PLANET    AND PRIMARY PLANET
001986,000439:                                                                                                  #  DIFFERENT             SAME
001987,000440: 
001988,000441: ???????     4757               ZMEASBIT           =        BIT10                                 
001989,000442: 
001990,000443:                                                                                                  #                        BIT 9 FLAG 0
001991,000444: ???????                        NEEDLFLG           =        006D                                  #  TOTAL ATTIDUDE        A/P FOLLOWING ERROR
001992,000445:                                                                                                  #  ERROR DISPLAYED       DISPLAYED
001993,000446: 
001994,000447: ???????     4760               NEEDLBIT           =        BIT9                                  
001995,000448: 
001996,000449:                                                                                                  #                        BIT 8 FLAG 0
001997,000450: ???????                        IMUSE              =        007D                                  #  IMU IN USE            IMU NOT IN USE
001998,000451: 
001999,000452: ???????     4761               IMUSEBIT           =        BIT8                                  
002000,000453: 
002001,000454:                                                                                                  #                        BIT 7 FLAG 0

Page 48

002003,000456: ???????                        RNDVZFLG           =        008D                                  #  P20 RUNNING           P20 NOT RUNNING
002004,000457: ???????     4762               RNDVZBIT           =        BIT7                                  
002005,000458: 
002006,000459:                                                                                                  #                        BIT 6 FLAG 0
002007,000460: ???????                        R53FLAG            =        009D                                  #  V51 INITIATED         V51 NOT INITIATED
002008,000461: 
002009,000462: 
002010,000463: ???????     4763               R53FLBIT           =        BIT6                                  
002011,000464: 
002012,000465:                                                                                                  #                        BIT 5 FLAG 0
002013,000466: ???????                        F2RTE              =        010D                                  #  IN TIME CRITICAL      NOT IN TIME CRITICAL
002014,000467:                                                                                                  #  MODE                  MODE
002015,000468: 
002016,000469: ???????     4764               F2RTEBIT           =        BIT5                                  
002017,000470: 
002018,000471:                                                                                                  #                        BIT 4 FLAG 0
002019,000472: ???????                        CYC61FLG           =        11D                                   #  KALCMAN3 TO RETURN    KALCMAN3 TO DO
002020,000473:                                                                                                  #  TO R61 AFTER          MANEUVER
002021,000474: 
002022,000475: ???????     4765               CYC61BIT           =        BIT4                                  #  COMPUTING TM
002023,000476: 
002024,000477:                                                                                                  #                        BIT 3 FLAG 0
002025,000478: ???????                        FREEFLAG           =        012D                                  #  (TEMPORARY FLAG USED IN MANY ROUTINES)
002026,000479: 
002027,000480: ???????     4766               FREEFBIT           =        BIT3                                  
002028,000481: 
002029,000482:                                                                                                  #                        BIT 2 FLAG 0
002030,000483: ???????                        AMOONFLG           =        013D                                  #  STATE VECTOR IN       STATE VECTOR IN
002031,000484: ???????     4767               AMOONBIT           =        BIT2                                  #  LUNAR SPHERE AT       EARTH SPHERE AT
002032,000485:                                                                                                  #  MIDTOAVE              MIDTOAVE
002033,000486: 
002034,000487:                                                                                                  #                        BIT 1 FLAG 0
002035,000488: ???????                        P29FLAG            =        14D                                   #  P29 RUNNING. 1ST      P29 FINISHED WITH
002036,000489: ???????     4770               P29BIT             =        BIT1                                  #  PASS IN PROGRESS.     1ST PASS.
002037,000490: 
002038,000491: 
002039,000492: ???????     0075               FLAGWRD1           =        STATE      +1                         #  (015-029)
002040,000493: 
002041,000494:                                                                                                  #  (SET)                 (RESET)
002042,000495: 
002043,000496:                                                                                                  #                        BIT 15 FLAG 1
002044,000497: ???????                        NJETSFLG           =        015D                                  #  TWO JET RCS BURN      FOUR JET RCS BURN
002045,000498: 
002046,000499: ???????     4752               NJETSBIT           =        BIT15                                 
002047,000500: 
002048,000501:                                                                                                  #                        BIT 14 FLAG 1
002049,000502: ???????                        STIKFLAG           =        016D                                  #  RHC CONTROL           CMC CONTROL

Page 49

002051,000504: ???????     4753               STIKBIT            =        BIT14                                 
002052,000505: 
002053,000506:                                                                                                  #                        BIT 13 FLAG 1
002054,000507: ???????                        ERADFLAG           =        017D                                  #  EARTH, COMPUTE        EARTH, USE FIXED
002055,000508:                                                                                                  #   FISCHER ELLIPSOID     RADIUS
002056,000509:                                                                                                  #   RADIUS
002057,000510:                                                                                                  #  MOON, USE FIXED       MOON, USE RLS FOR
002058,000511:                                                                                                  #        RADIUS                LUNAR RADIUS
002059,000512: 
002060,000513: ???????     4754               ERADFBIT           =        BIT13                                 
002061,000514: 
002062,000515:                                                                                                  #                        BIT 12 FLAG 1
002063,000516: ???????                        NODOP01            =        018D                                  #  P01 NOT ALLOWED       P01 ALLOWED
002064,000517: 
002065,000518: ???????     4755               NOP01BIT           =        BIT12                                 
002066,000519: 
002067,000520: 
002068,000521:                                                                                                  #                        BIT 11 FLAG 1
002069,000522: ???????                        ENG2FLAG           =        019D                                  #  RCS BURN              SPS BURN
002070,000523: 
002071,000524: ???????     4756               ENG2BIT            =        BIT11                                 
002072,000525: 
002073,000526:                                                                                                  #                        BIT 10 FLAG 1
002074,000527: ???????                        TARG1FLG           =        020D                                  #  SIGHTING LEM          NOT SIGHTING LEM
002075,000528: 
002076,000529: ???????     4757               TARG1BIT           =        BIT10                                 
002077,000530: 
002078,000531:                                                                                                  #                        BIT 9 FLAG 1
002079,000532: ???????                        TARG2FLG           =        021D                                  #  SIGHTING LANDMARK     SIGHTING STAR
002080,000533: 
002081,000534: ???????     4760               TARG2BIT           =        BIT9                                  
002082,000535: 
002083,000536:                                                                                                  #                        BIT 8 FLAG 1
002084,000537: ???????                        VEHUPFLG           =        022D                                  #  CSM STATE VECTOR      LEM STATE VECTOR
002085,000538:                                                                                                  #  BEING UPDATED         BEING UPDATED
002086,000539: 
002087,000540: ???????     4761               VEHUPBIT           =        BIT8                                  
002088,000541: 
002089,000542:                                                                                                  #                        BIT 7 FLAG 1
002090,000543: ???????                        UPDATFLG           =        023D                                  #  UPDATING BY MARKS     UPDATING BY MARKS
002091,000544:                                                                                                  #  ALLOWED               NOT ALLOWED
002092,000545: 
002093,000546: ???????     4762               UPDATBIT           =        BIT7                                  
002094,000547: 
002095,000548:                                                                                                  #                        BIT 6 FLAG 1
002096,000549: ???????                        IDLEFAIL           =        024D                                  #  INHIBIT R41           ENABLE R41 (ENGFAIL)
002097,000550: 
002098,000551: ???????     4763               IDLEBIT            =        BIT6                                  
002099,000552: 

Page 50

002101,000554: 
002102,000555:                                                                                                  #                        BIT 5 FLAG 1
002103,000556: ???????                        TRACKFLG           =        025D                                  #  TRACKING ALLOWED      TRACKING NOT ALLOWED
002104,000557: 
002105,000558: ???????     4764               TRACKBIT           =        BIT5                                  
002106,000559: 
002107,000560:                                                                                                  #                        BIT 4 FLAG 1
002108,000561: ???????                        MARKFLG            =        026D                                  #  A MARK HAS BEEN       NO MARK HAS BEEN
002109,000562: ???????     4765               MARKBIT            =        BIT4                                  #  ACCEPTED. ALLOW       ACCEPTED. DO NOT
002110,000563:                                                                                                  #  MARK REJECT.          MARK REJECT.
002111,000564: 
002112,000565: 
002113,000566:                                                                                                  #                        BIT 3 FLAG 1
002114,000567: ???????                        SLOPESW            =        27D                                   #  ITERATE WITH BIAS     ITERATE WITH REGULA
002115,000568:                                                                                                  #  METHOD IN ITERATOR    FALSI METHOD IN 
002116,000569:                                                                                                  #                        ITERATOR
002117,000570: 
002118,000571: 
002119,000572: ???????     4766               SLOPEBIT           =        BIT3                                  
002120,000573: 
002121,000574:                                                                                                  #                        BIT 2 FLAG 1
002122,000575: ???????                        GUESSW             =        028D                                  #  NO STARTING VALUE     STARTING VALUE FOR
002123,000576:                                                                                                  #  FOR ITERATION         ITERATION EXISTS
002124,000577: 
002125,000578: ???????     4767               GUESSBIT           =        BIT2                                  
002126,000579: 
002127,000580:                                                                                                  #                        BIT 1 FLAG 1
002128,000581: ???????                        AVEGFLAG           =        029D                                  #  AVERAGEG (SERVICER)   AVERAGEG (SERVICER)
002129,000582:                                                                                                  #  TO CONTINUE           TO CEASE
002130,000583: 
002131,000584: ???????     4770               AVEGBIT            =        BIT1                                  
002132,000585: 
002133,000586: ???????     0076               FLAGWRD2           =        STATE      +2                         #  (030-044)
002134,000587: 
002135,000588:                                                                                                  #  (SET)                 (RESET)
002136,000589: 
002137,000590:                                                                                                  #                        BIT 15 FLAG 2
002138,000591: ???????                        DRIFTFLG           =        030D                                  #  T3RUPT CALLS GYRO     T3RUPT DOES NO GYRO
002139,000592:                                                                                                  #  COMPENSATION          COMPENSATION
002140,000593: 
002141,000594: ???????     4752               DRFTBIT            =        BIT15                                 
002142,000595: 
002143,000596:                                                                                                  #                        BIT 14 FLAG 2
002144,000597: ???????                        R21MARK            =        031D                                  #  OPTION ONE FOR        OPTION TWO FOR 
002145,000598:                                                                                                  #  MARKRUPT              MARKRUPT
002146,000599: 
002147,000600: ???????     4753               R21BIT             =        BIT14                                 
002148,000601: 
002149,000602:                                                                                                  #                        BIT 13 FLAG 2
002150,000603: ???????                        22DSPFLG           =        032D                                  #  DISPLAY DR,DV         DO NOT DISPLAY DR,DV
002151,000604: 

Page 51

002153,000606: ???????     4754               22DSPBIT           =        BIT13                                 
002154,000607: 
002155,000608:                                                                                                  #                        BIT 12 FLAG 2
002156,000609: ???????                        P21FLAG            =        033D                                  #  SUCCEEDING PASS       1ST PASS THRU P21,
002157,000610:                                                                                                  #  THRU P21, USE BASE    CALCULATE BASE
002158,000611: ???????     4755               P21BIT             =        BIT12                                 #  VECTOR FOR CALC.      VECTOR
002159,000612: ???????                        STEERSW            =        034D                                  #  STEERING TO BE DONE   STEERING OMITTED
002160,000613: 
002161,000614: ???????     4756               STEERBIT           =        BIT11                                 
002162,000615: 
002163,000616:                                                                                                  #                        BIT 10 FLAG 2
002164,000617: ???????                        SKIPVHF            =        035D                                  #  DISREGARD RADAR       RADAR READ TO
002165,000618:                                                                                                  #  READ BECAUSE OF       PROCEED NORMALLY
002166,000619: ???????     4757               SKIPVBIT           =        BIT10                                 #  SFTWRE OR HDWRE
002167,000620:                                                                                                  #  RESTART
002168,000621: 
002169,000622:                                                                                                  #                        BIT 9 FLAG 2
002170,000623: ???????                        IMPULSW            =        036D                                  #  MINIMUM IMPULSE       STEERING BURN (NO
002171,000624:                                                                                                  #  BURN (CUTOFF TIME     CUTOFF TIME YET
002172,000625:                                                                                                  #  SPECIFIED)            AVAILABLE)
002173,000626: 
002174,000627: ???????     4760               IMPULBIT           =        BIT9                                  
002175,000628: 
002176,000629:                                                                                                  #                        BIT 8 FLAG 2
002177,000630: ???????                        XDELVFLG           =        037D                                  #  EXTERNAL DELTAV VG    LAMBERT (AIMPOINT)
002178,000631:                                                                                                  #  COMPUTATION           VG COMPUTATION
002179,000632: 
002180,000633: ???????     4761               XDELVBIT           =        BIT8                                  
002181,000634:                                                                                                  #                        BIT 7 FLAG 2
002182,000635: ???????                        ETPIFLAG           =        038D                                  #  ELEVATION ANGLE       TPI TIME SUPPLIED
002183,000636:                                                                                                  #  SUPPLIED FOR P34,74   FOR P34,74
002184,000637: 
002185,000638: ???????     4762               ETPIBIT            =        BIT7                                  
002186,000639: 
002187,000640:                                                                                                  #                        BIT 7 FLAG 2
002188,000641: ???????  0000046               FIRSTFLG           =        ETPIFLAG                              #  FIRST PASS            SUCCEEDING PASS THRU
002189,000642:                                                                                                  #  THRU S40.9            S40.9
002190,000643: 
002191,000644: ???????     4762               FIRSTBIT           =        BIT7                                  
002192,000645: 
002193,000646: ???????     4763               FINALBIT           =        BIT6                                  
002194,000647: 
002195,000648:                                                                                                  #                        BIT 6 FLAG 2
002196,000649: ???????                        FINALFLG           =        039D                                  #  LSAT PASS THROUGH     INTERIM PASS THROUGH
002197,000650:                                                                                                  #  RENDEZVOUS PROGRAM    RENDEZVOUS PROGRAM
002198,000651:                                                                                                  #  COMPUTATIONS          COMPUTATIONS
002199,000652: 
002200,000653: ???????     4764               AVFLBIT            =        BIT5                                  
002201,000654: 
002202,000655:                                                                                                  #                        BIT 5 FLAG 2

Page 52

002204,000657: ???????                        AVFLAG             =        040D                                  #  LEM IS ACTIVE         CSM IS ACTIVE
002205,000658:                                                                                                  #  VEHICLE               VEHICLE
002206,000659: 
002207,000660:                                                                                                  #                        BIT 4 FLAG 2
002208,000661: ???????                        PFRATFLG           =        041D                                  #  PREFERRED ATTITUDE    PREFERRED ATTITUDE
002209,000662:                                                                                                  #  COMPUTED              NOT COMPUTED
002210,000663: 
002211,000664: ???????     4765               PFRATBIT           =        BIT4                                  
002212,000665: 
002213,000666:                                                                                                  #                        BIT 3 FLAG 2
002214,000667: ???????                        P24MKFLG           =        042D                                  #  P24 MARKING           P24 NOT MARKING
002215,000668: ???????     4766               P24MKBIT           =        BIT3                                  
002216,000669: 
002217,000670:                                                                                                  #                        BIT 2 FLAG 2
002218,000671: ???????                        CALCMAN2           =        043D                                  #  PERFORM MANEUVER      BYPASS STARTING
002219,000672:                                                                                                  #  STARTING PROCEDURE    PROCEDURE
002220,000673: 
002221,000674: ???????     4767               CALC2BIT           =        BIT2                                  
002222,000675: 
002223,000676:                                                                                                  #                        BIT 1 FLAG 2
002224,000677: ???????                        NODOFLAG           =        044D                                  #  V37 NOT PERMITTED     V37 PERMITTED
002225,000678: 
002226,000679: ???????     4770               NODOBIT            =        BIT1                                  
002227,000680: 
002228,000681: ???????     0077               FLAGWRD3           =        STATE      +3                         #  (045-059)
002229,000682: 
002230,000683:                                                                                                  #  (SET)                 (RESET)
002231,000684: 
002232,000685:                                                                                                  #                        BIT 15 FLAG 3
002233,000686: ???????                        V50N18FL           =        045D                                  #  ENABLE R60 ATT        INHIBIT R60 ATTITUDE
002234,000687: ???????     4752               V50N18BT           =        BIT15                                 #   MANEUVER              MANEUVER
002235,000688: 
002236,000689:                                                                                                  #                        BIT 14 FLAG 3
002237,000690: ???????                        GLOKFAIL           =        046D                                  #  GIMBAL LOCK HAS       NOT IN GIMBAL LOCK
002238,000691:                                                                                                  #  OCCURED
002239,000692: 
002240,000693: ???????     4753               GLOKFBIT           =        BIT14                                 
002241,000694: 
002242,000695:                                                                                                  #                        BIT 13 FLAG 3
002243,000696: ???????                        REFSMFLG           =        047D                                  #  REFSMMAT GOOD         REFSMMAT NO GOOD
002244,000697: 
002245,000698: ???????     4754               REFSMBIT           =        BIT13                                 
002246,000699: 
002247,000700:                                                                                                  #                        BIT 12 FLAG 3
002248,000701: ???????                        LUNAFLAG           =        048D                                  #  LUNAR LAT-LONG        EARTH LAT-LONG
002249,000702: 
002250,000703: ???????     4755               LUNABIT            =        BIT12                                 
002251,000704: 
002252,000705:                                                                                                  #                        BIT 11 FLAG 3

Page 53

002254,000707: ???????                        P22MKFLG           =        49D                                   #  P22 DOWNLINKED MARK   P22 DOWLINK MARK
002255,000708:                                                                                                  #  DATA WAS JUST TAKEN   DATA NOT JUST TAKEN
002256,000709: 
002257,000710: ???????     4756               P22MKBIT           =        BIT11                                 
002258,000711: 
002259,000712:                                                                                                  #                        BIT 10 FLAG 3
002260,000713: ???????                        VFLAG              =        050D                                  #  LESS THAN TWO STARS   TWO STARS IN FIELD
002261,000714:                                                                                                  #  IN FIELD OF VIEW      OF VIEW
002262,000715: 
002263,000716: ???????     4757               VFLAGBIT           =        BIT10                                 
002264,000717: 
002265,000718:                                                                                                  #                        BIT 9 FLAG 3
002266,000719: ???????                        POOFLAG            =        051D                                  #  INHIBIT BACKWARDS     ALLOW BACKWARDS
002267,000720: ???????     4760               POOBIT             =        BIT9                                  #  INTEGRATION           INTEGRATION
002268,000721:                                                                                                  #                        BIT 8 FLAG 3
002269,000722: ???????                        PRECIFLG           =        052D                                  #  CSMPREC, LEMPREC      INTGRV CALLED
002270,000723: ???????     4761               PRECIBIT           =        BIT8                                  #  OR INTEGRVS CALLED
002271,000724: 
002272,000725:                                                                                                  #                        BIT 7 FLAG 3
002273,000726: ???????                        CULTFLAG           =        053D                                  #  STAR OCCULTED         STAR NOT OCCULTED
002274,000727: 
002275,000728: ???????     4762               CULTBIT            =        BIT7                                  
002276,000729: 
002277,000730:                                                                                                  #                        BIT 6 FLAG 3
002278,000731: ???????                        ORBWFLAG           =        054D                                  #  W MATRIX VALID FOR    W MATRIX INVALID FOR
002279,000732:                                                                                                  #  ORBITAL N1VIGATION    ORBITAL NAVIGATION
002280,000733: 
002281,000734: ???????     4763               ORBWFBIT           =        BIT6                                  
002282,000735: 
002283,000736:                                                                                                  #                        BIT 5 FLAG 3
002284,000737: ???????                        STATEFLG           =        055D                                  #  PERMANENT STATE       PERMANENT STATE
002285,000738:                                                                                                  #  VECTOR UPDATED        VECTOR NOT UPDATED
002286,000739: 
002287,000740: ???????     4764               STATEBIT           =        BIT5                                  
002288,000741: 
002289,000742:                                                                                                  #                        BIT 4 FLAG 3
002290,000743: ???????                        INTYPFLG           =        056D                                  #  CONIC INTEGRATION     ENCKE INTEGRATION
002291,000744: 
002292,000745: ???????     4765               INTYBIT            =        BIT4                                  
002293,000746: 
002294,000747:                                                                                                  #                        BIT 3 FLAG 3
002295,000748: ???????                        VINTFLAG           =        057D                                  #  CSM STATE VECTOR      LEM STATE VECTOR
002296,000749:                                                                                                  #  BEING INTEGRATED      BEING INTEGRATED
002297,000750: 
002298,000751: ???????     4766               VINTFBIT           =        BIT3                                  
002299,000752: 
002300,000753:                                                                                                  #                        BIT 2 FLAG 3
002301,000754: ???????                        D6OR9FLG           =        058D                                  #  DIMENSION OF W IS 9   DIMENSION OF W IS 6
002302,000755:                                                                                                  #  FOR INTEGRATION       FOR INTEGRATION

Page 54

002304,000757: ???????     4767               D6OR9BIT           =        BIT2                                  
002305,000758: 
002306,000759:                                                                                                  #                        BIT 1 FLAG 3
002307,000760: ???????                        DIM0FLAG           =        059D                                  #  W MATRIX IS TO BE     W MATRIX IS NOT TO
002308,000761:                                                                                                  #  USED                  BE USED
002309,000762: 
002310,000763: ???????     0100               FLAGWRD4           =        STATE      +4                         #  (060-074)
002311,000764: 
002312,000765:                                                                                                  #  (SET)                 (RESET)
002313,000766: 
002314,000767: ???????     4770               DIM0BIT            =        BIT1                                  
002315,000768: 
002316,000769:                                                                                                  #                        BIT 15 FLAG 4
002317,000770: ???????                        MRKIDFLG           =        060D                                  #  MARK DISPLAY IN       NO MARK DISPLAY IN
002318,000771:                                                                                                  #  ENDIDLE               ENDIDLE
002319,000772: 
002320,000773: ???????     4752               MRKIDBIT           =        BIT15                                 
002321,000774: 
002322,000775:                                                                                                  #                        BIT 14 FLAG 4
002323,000776: ???????                        PRIODFLG           =        061D                                  #  PRIORITY DISPLAY IN   NO PRIORITY DISPLAY
002324,000777:                                                                                                  #  ENDIDLE               IN ENDIDLE
002325,000778: 
002326,000779: ???????     4753               PRIODBIT           =        BIT14                                 
002327,000780: 
002328,000781:                                                                                                  #                        BIT 13 FLAG 4
002329,000782: ???????                        NRMIDFLG           =        062D                                  #  NORMAL DISPLAY IN     NO NORMAL DISPLAY
002330,000783:                                                                                                  #  ENDIDLE               IN ENDIDLE
002331,000784: 
002332,000785: ???????     4754               NRMIDBIT           =        BIT13                                 
002333,000786: 
002334,000787:                                                                                                  #                        BIT 12 FLAG 4
002335,000788: ???????                        PDSPFLAG           =        063D                                  #  CAN'T INTERRUPT       SEE M. HAMILTON
002336,000789:                                                                                                  #  PRIORITY DISPLAY
002337,000790: 
002338,000791: ???????     4755               PDSPFBIT           =        BIT12                                 
002339,000792: 
002340,000793:                                                                                                  #                        BIT 11 FLAG 4
002341,000794: ???????                        MWAITFLG           =        064D                                  #  HIGHER PRIORITY       NO HIGHER PRIORITY
002342,000795:                                                                                                  #  DISPLAY OPERATING     DISPLAY OPERATING
002343,000796:                                                                                                  #  WHEN MARK DISPLAY     WHEN MARK DISPLAY
002344,000797:                                                                                                  #  INITIATED             INITIATED
002345,000798: ???????     4756               MWAITBIT           =        BIT11                                 
002346,000799: 
002347,000800:                                                                                                  #                        BIT 10 FLAG 4
002348,000801: ???????                        NWAITFLG           =        065D                                  #  HIGHER PRIORITY       NO HIGHER PRIORITY
002349,000802:                                                                                                  #  DISPLAY OPERATING     DISPLAY OPERATING
002350,000803:                                                                                                  #  WHEN NORMAL           WHEN NORMAL DISPLAY
002351,000804:                                                                                                  #  DISPLAY INITIATED     INITIATED

Page 55

002353,000806: ???????     4757               NWAITBIT           =        BIT10                                 
002354,000807: 
002355,000808:                                                                                                  #                        BIT 9 FLAG 4
002356,000809: ???????                        MRKNVFLG           =        066D                                  #  ASTRONAUT USING       ASTRONAUT NOT USING
002357,000810:                                                                                                  #  KEYBOARD WHEN MARK    KEYBOARD WHEN MARK
002358,000811:                                                                                                  #  DISPLAY INITIATED     DISPLAY INITIATED
002359,000812: 
002360,000813: ???????     4760               MRKNVBIT           =        BIT9                                  
002361,000814: 
002362,000815:                                                                                                  #                        BIT 8 FLAG 4
002363,000816: ???????                        NRMNVFLG           =        067D                                  #  ASTRONAUT USING       ASTRONAUT NOT USING
002364,000817:                                                                                                  #  KEYBOARD WHEN         KEYBOARD WHEN
002365,000818:                                                                                                  #  NORMAL DISPLAY        NORMAL DISPLAY
002366,000819:                                                                                                  #  INITIATED             INITIATED
002367,000820: 
002368,000821: ???????     4761               NRMNVBIT           =        BIT8                                  
002369,000822: 
002370,000823:                                                                                                  #                        BIT 7 FLAG 4
002371,000824: ???????                        PRONVFLG           =        068D                                  #  ASTRONAUT USING       ASTRONAUT NOT USING
002372,000825:                                                                                                  #  KEYBOARD WHEN         KEYBOARD WHEN
002373,000826:                                                                                                  #  PRIORITY DISPLAY      PRIORITY DISPLAY
002374,000827:                                                                                                  #  INITIATED             INITIATED
002375,000828: 
002376,000829: ???????     4762               PRONVBIT           =        BIT7                                  
002377,000830: 
002378,000831:                                                                                                  #                        BIT 6 FLAG 4
002379,000832: ???????                        PINBRFLG           =        069D                                  #  ASTRONAUT HAS         ASTRONAUT HAS NOT
002380,000833:                                                                                                  #  INTERFERED WITH       INTERFERED WITH
002381,000834:                                                                                                  #  EXISTING DISPLAY      EXISTING DISPLAY
002382,000835: 
002383,000836: ???????     4763               PINBRBIT           =        BIT6                                  
002384,000837: 
002385,000838:                                                                                                  #                        BIT 5 FLAG 4
002386,000839: ???????                        MRUPTFLG           =        070D                                  #  MARK DISPLAY          MARK DISPLAY NOT
002387,000840:                                                                                                  #  INTERRUPTED BY        INTERRUPTED BY
002388,000841:                                                                                                  #  PRIORITY DISPLAY      PRIORITY DISPLAY
002389,000842: 
002390,000843: ???????     4764               MRUPTBIT           =        BIT5                                  
002391,000844: 
002392,000845:                                                                                                  #                        BIT 4 FLAG 4
002393,000846: ???????                        NRUPTFLG           =        071D                                  #  NORMAL DISPLAY        NORMAL DISPLAY NOT
002394,000847:                                                                                                  #  INTERRUPTED BY        INTERRUPTED BY
002395,000848:                                                                                                  #  PRIORITY OR MARK      PRIORITY OR MARK
002396,000849:                                                                                                  #  DISPLAY               DISPLAY
002397,000850: 
002398,000851: ???????     4765               NRUPTBIT           =        BIT4                                  
002399,000852: 
002400,000853:                                                                                                  #                        BIT 3 FLAG 4
002401,000854: ???????                        MKOVFLAG           =        072D                                  #  MARK DISPLAY OVER     NO MARK DISPLAY OVER
002402,000855:                                                                                                  #  NORMAL                NORMAL

Page 56

002404,000857: ???????     4766               MKOVBIT            =        BIT3                                  
002405,000858: 
002406,000859:                                                                                                  #                        BIT 2 FLAG 4    DISPLAY BIT
002407,000860: ???????                        VNFLAG             =        073D                                  #  DISPLAY IS A          DISPLAY IS NOT A
002408,000861: ???????     4767               VNBIT              =        BIT2                                  #  VNFLASH TYPE          VNFLASH TYPE
002409,000862: 
002410,000863:                                                                                                  #                        BIT 1 FLAG 4    MARK DISPLAY NOT TO     NO SPECIAL MARK
002411,000864: ???????                        XDSPFLAG           =        074D                                  #  BE INTERRUPTED        INFORMATION.
002412,000865: 
002413,000866: ???????     4770               XDSPBIT            =        BIT1                                  
002414,000867: 
002415,000868: ???????     0101               FLAGWRD5           =        STATE      +5                         #  (075-099)
002416,000869: 
002417,000870:                                                                                                  #  (SET)                 (RESET)
002418,000871: 
002419,000872:                                                                                                  #                        BIT 15 FLAG 5
002420,000873: ???????                        DSKYFLAG           =        075D                                  #  DISPLAYS SENT TO      NO DISPLAYS TO DSKY
002421,000874:                                                                                                  #  DSKY                          
002422,000875: 
002423,000876: 
002424,000877: ???????     4752               DSKYBIT            =        BIT15                                 
002425,000878: 
002426,000879:                                                                                                  #                        BIT 14 FLAG 5
002427,000880: ???????                        RETROFLG           =        76D                                   #  P37 PREMANEUVER       ORBIT NOT RETROGRADE
002428,000881: ???????     4753               RETROBIT           =        BIT14                                 #  ORBIT IS RETROGRADE
002429,000882: 
002430,000883:                                                                                                  #                        BIT 13 FLAG 5
002431,000884: ???????                        SLOWFLG            =        77D                                   #  P37 TRANSEARTH        SLOW DOWN IS NOT
002432,000885: ???????     4754               SLOWBIT            =        BIT13                                 #  COAST SLOW DOWN       DESIRED
002433,000886:                                                                                                  #  IS DESIRED
002434,000887: 
002435,000888:                                                                                                  #                        BIT 12 FLAG 5
002436,000889: ???????                        V59FLAG            =        078D                                  #  CALIBRATING FOR       NORMAL MARKING FOR
002437,000890:                                                                                                  #  P 23                  P 23
002438,000891: 
002439,000892: ???????     4755               V59FLBIT           =        BIT12                                 
002440,000893: 
002441,000894:                                                                                                  #                        BIT 11 FLAG 5
002442,000895: ???????                        INCORFLG           =        079D                                  #  FIRST INCORPORATION   SECOND INCORPORATION
002443,000896: 
002444,000897: ???????     4756               INCORBIT           =        BIT11                                 
002445,000898: 
002446,000899:                                                                                                  #                        BIT 10 FLAG 5
002447,000900: ???????                        NEWTFLAG           =        80D                                   #  RETURN TO P29 SKIP-   NORMAL OPERATION
002448,000901: ???????     4757               NEWTBIT            =        BIT10                                 #  PING LONGITUDE DIS-
002449,000902:                                                                                                  #  PLAY
002450,000903: 
002451,000904:                                                                                                  #                        BIT 9 FLAG 5
002452,000905: ???????                        DMENFLG            =        081D                                  #  DIMENSION OF W IS 9   DIMENSION OF W IS 6
002453,000906:                                                                                                  #  FOR INCORPORATION     FOR INCORPORATION

Page 57

002455,000908: ???????     4760               DMENFBIT           =        BIT9                                  
002456,000909: 
002457,000910:                                                                                                  #                        BIT 8 FLAG 5
002458,000911: ???????                        COMPUTER           =        082D                                  #  COMPUTER IS CMC       COMPUTER IS LGC
002459,000912: 
002460,000913: ???????     4761               COMPTBIT           =        BIT8                                  
002461,000914: 
002462,000915:                                                                                                  #                        BIT 7 FLAG 5
002463,000916: ???????                        ENGONFLG           =        083D                                  #  ENGINE TURNED ON      ENGINE TURNED OFF
002464,000917: 
002465,000918: ???????     4762               ENGONBIT           =        BIT7                                  
002466,000919: 
002467,000920:                                                                                                  #                        BIT 6 FLAG 5
002468,000921: ???????                        3AXISFLG           =        084D                                  #  MANEUVER SPECIFIED    MANEUVER SPECIFIED
002469,000922:                                                                                                  #  BY THREE AXES         BY ONE AXIS
002470,000923: 
002471,000924: ???????     4763               3AXISBIT           =        BIT6                                  
002472,000925: 
002473,000926:                                                                                                  #                        BIT 5 FLAG 5
002474,000927: ???????                        GRRBKFLG           =        085D                                  #  BACKUP GRR RECEIVED   BACKUP GRR NOT
002475,000928:                                                                                                  #                        RECEIVED
002476,000929: 
002477,000930: ???????     4764               GRRBKBIT           =        BIT5                                  
002478,000931: 
002479,000932:                                                                                                  #                        BIT 4 FLAG 5
002480,000933:                                                                                                  #                =       086D
002481,000934: 
002482,000935: 
002483,000936:                                                                                                  #                        BIT 3 FLAG 5
002484,000937: ???????                        SOLNSW             =        87D                                   #  LAMBERT DOES NOT      LAMBERT CONVERGES OR
002485,000938:                                                                                                  #  CONVERGE, OR TIME-    TIME-RADIUS NON
002486,000939:                                                                                                  #  RADIUS NEARLY CIRC.   CIRCULAR.
002487,000940: 
002488,000941: 
002489,000942: ???????     4766               SOLNSBIT           =        BIT3                                  
002490,000943: 
002491,000944:                                                                                                  #                        BIT 2 FLAG 5
002492,000945: ???????                        MGLVFLAG           =        088D                                  #  LOCAL VERTICAL        MIDDLE GIMBAL ANGLE
002493,000946:                                                                                                  #  COORDINATES           COMPUTED
002494,000947:                                                                                                  #  COMPUTED
002495,000948: 
002496,000949: ???????     4767               MGLVFBIT           =        BIT2                                  
002497,000950: 
002498,000951:                                                                                                  #                        BIT 1 FLAG 5
002499,000952: ???????                        RENDWFLG           =        089D                                  #  W MATRIX VALID        W MATRIX INVALID
002500,000953:                                                                                                  #  FOR RENDEZVOUS        FOR RENDEZVOUS
002501,000954:                                                                                                  #  NAVIGATION            NAVIGATION
002502,000955: 
002503,000956: ???????     4770               RENDWBIT           =        BIT1                                  
002504,000957: 

Page 58

002506,000959: 
002507,000960: ???????     0102               FLAGWRD6           =        STATE      +6                         #  (090-104)
002508,000961: 
002509,000962:                                                                                                  #  (SET)                 (RESET)
002510,000963: 
002511,000964:                                                                                                  #                        BIT 15 FLAG 6
002512,000965: ???????                        DAPBIT1            =        090D                                  #  1 SATURN 1 TVC        0 RCS   0 NO
002513,000966: 
002514,000967: 
002515,000968: ???????     4752               DAP1BIT            =        BIT15                                 
002516,000969: 
002517,000970:                                                                                                  #                        BIT 14 FLAG 6
002518,000971: ???????                        DAPBIT2            =        091D                                  #  1 A/P    0 A/P        1 A/P   0 A/P
002519,000972: 
002520,000973: ???????     4753               DAP2BIT            =        BIT14                                 
002521,000974: 
002522,000975:                                                                                                  #                        BIT 13 FLAG 6
002523,000976: ???????                        STRULLSW           =        92D                                   #  DO STEERULL           DO ULAGEOFF ONLY
002524,000977: 
002525,000978: ???????     4754               STRULBIT           =        BIT13                                 
002526,000979: 
002527,000980:                                                                                                  #                        BIT 13 FLAG 6
002528,000981: ???????  0000134               ENTRYDSP           =        STRULLSW                              #  DO ENTRY DISPLAY      OMIT ENTRY DISPLAY
002529,000982:                                                                                                  #  VIA ENTRYVN.
002530,000983: 
002531,000984: ???????     4754               ENDSPBIT           =        BIT13                                 
002532,000985: 
002533,000986:                                                                                                  #                        BIT 12 FLAG 6
002534,000987: ???????                        CMDAPARM           =        093D                                  #  ALOW ENTRY FIRINGS    INHIBIT ENTRY FIRING
002535,000988:                                                                                                  #  AND CALCULATIONS      AND CONTROL FUNCTION
002536,000989: ???????     4755               CMARMBIT           =        BIT12                                 
002537,000990: 
002538,000991:                                                                                                  #                                DO NOT SHARE BIT12 WITH PROGRAMS USING SERVICER
002539,000992: 
002540,000993:                                                                                                  #                        BIT 11 FLAG 6
002541,000994: ???????                        GAMDIFSW           =        094D                                  #  CALCULATE GAMDOT      GAMDOT NOT TO BE
002542,000995:                                                                                                  #                        CALCULATED
002543,000996: 
002544,000997: ???????     4756               GMDIFBIT           =        BIT11                                 
002545,000998: 
002546,000999:                                                                                                  #                        BIT 10 FLAG 6
002547,001000: ???????                        GONEPAST           =        095D                                  #  LATERAL CONTROL       LATERAL CONTROL
002548,001001:                                                                                                  #  CALCULATIONS TO BE    CALCULATIONS TO BE
002549,001002:                                                                                                  #  OMITTED               DONE
002550,001003: 
002551,001004: ???????     4757               GONEBIT            =        BIT10                                 
002552,001005: 
002553,001006:                                                                                                  #                        BIT 9 FLAG 6
002554,001007: ???????                        RELVELSW           =        096D                                  #  TARGETING USES        TARGETING USES
002555,001008:                                                                                                  #  EARTH-RELATIVE        INERTIAL VELOCITY

Page 59

002557,001010:                                                                                                  #  VELOCITY
002558,001011: 
002559,001012: ???????     4760               RELVBIT            =        BIT9                                  
002560,001013: 
002561,001014:                                                                                                  #                        BIT 8 FLAG 6
002562,001015: ???????                        EGSW               =        097D                                  #  IN FINAL PHASE        NOT IN FINAL PHASE
002563,001016: 
002564,001017: ???????     4761               EGFLGBIT           =        BIT8                                  
002565,001018: 
002566,001019:                                                                                                  #                        BIT 8 FLAG 6
002567,001020: ???????  0000141               KNOWNFLG           =        EGSW                                  #  LANDMARK KNOWN        LANDMARK UNKNOWN
002568,001021: 
002569,001022: ???????     4761               KNOWNBIT           =        BIT8                                  
002570,001023: 
002571,001024:                                                                                                  #                        BIT 7 FLAG 6
002572,001025: ???????                        NOSWITCH           =        098D                                  #  LATERAL ROLL          LATERAL ROLL MANUVER
002573,001026: ???????     4762               NOSWBIT            =        BIT7                                  #  MANUVER INHIBITED     PERMITED IN ENTRY
002574,001027:                                                                                                  #  IN ENTRY
002575,001028: 
002576,001029: 
002577,001030:                                                                                                  #                        BIT 6 FLAG 6
002578,001031: ???????                        HIND               =        099D                                  #  ITERATING HUNTEST     ITERATING OF HUNTEST
002579,001032:                                                                                                  #  CALCULATIONS TO BE    CALCULATIONS TO BE
002580,001033:                                                                                                  #  DONE AFTER RANGE      OMITTED AFTER RANGE
002581,001034:                                                                                                  #  PREDICTION            PREDICTION
002582,001035: 
002583,001036: ???????     4763               HINDBIT            =        BIT6                                  
002584,001037: 
002585,001038:                                                                                                  #                        BIT 5 FLAG 6
002586,001039: ???????                        INRLSW             =        100D                                  #  INITIAL ROLL          INITIAL ROLL
002587,001040:                                                                                                  #  V(LV)                 V(LV)
002588,001041: 
002589,001042: ???????     4764               INRLBIT            =        BIT5                                  
002590,001043: 
002591,001044:                                                                                                  #  ATTITUDE NOT HELD     ATTITUDE HELD
002592,001045: 
002593,001046:                                                                                                  #                        BIT 4 FLAG 6
002594,001047: ???????                        LATSW              =        101D                                  #  DOWNLIFT NOT          DOWNLIFT INHIBITED
002595,001048:                                                                                                  #  INHIBITED
002596,001049: 
002597,001050: ???????     4765               LATSWBIT           =        BIT4                                  
002598,001051: 
002599,001052:                                                                                                  #                        BIT 3 FLAG 6
002600,001053: ???????                        .05GSW             =        102D                                  #  DRAG OVER .05G        DRAG LESS THAN .05G
002601,001054: 
002602,001055: ???????     4766               .05GBIT            =        BIT3                                  
002603,001056: 
002604,001057:                                                                                                  #                                DO NOT SHARE BIT3 WITH PROGRAMS USING SERVICER
002605,001058: 
002606,001059:                                                                                                  #                        BIT 2 FLAG 6

Page 60

002608,001061: ???????                        CM/DSTBY           =        103D                                  #  ENTRY DAP ACTIVATED   ENTRY DAP NOT
002609,001062:                                                                                                  #                        ACTIVATED
002610,001063: 
002611,001064: ???????     4767               CM/DSBIT           =        BIT2                                  
002612,001065: 
002613,001066:                                                                                                  #                                DO NOT SHARE BIT2  WITH PROGRAMS USING SERVICER
002614,001067: 
002615,001068:                                                                                                  #                        BIT 1 FLAG 6
002616,001069: ???????                        GYMDIFSW           =        104D                                  #  CDU DIFFERENCES AND   CDU DIFFERENCES AND
002617,001070:                                                                                                  #  BODY RATES COMPUTED   BODY RATES NOT 
002618,001071:                                                                                                  #                        COMPUTED
002619,001072: 
002620,001073: ???????     4770               GYMDIBIT           =        BIT1                                  
002621,001074: 
002622,001075: ???????     0103               FLAGWRD7           =        STATE      +7                         #  (105-119)
002623,001076: 
002624,001077:                                                                                                  #  (SET)                 (RESET)
002625,001078: 
002626,001079:                                                                                                  #                        BIT 15 FLAG 7
002627,001080: ???????                        TERMIFLG           =        105D                                  #  TERMINATE R52         DO NOT TERMINATE R52
002628,001081: ???????     4752               TERMIBIT           =        BIT15                                 
002629,001082: 
002630,001083:                                                                                                  #                        BIT 14 FLAG 7
002631,001084: ???????                        ITSWICH            =        106D                                  #  ACCEPT NEXT LAMBERT   TEST LAMBERT ANSWER
002632,001085:                                                                                                  #  TPI SEARCH SOLUTION   AGAINST LIMITS
002633,001086: 
002634,001087: ???????     4753               ITSWBIT            =        BIT14                                 
002635,001088: 
002636,001089:                                                                                                  #                        BIT 13 FLAG 7
002637,001090: ???????                        IGNFLAG            =        107D                                  #  TIG HAS ARRIVED       TIG HAS NOT ARRIVED
002638,001091: 
002639,001092: ???????     4754               IGNFLBIT           =        BIT13                                 
002640,001093: 
002641,001094:                                                                                                  #                        BIT 12 FLAG 7
002642,001095: ???????                        ASTNFLAG           =        108D                                  #  ASTRONAUT HAS         ASTRONAUT HAS NOT
002643,001096:                                                                                                  #  OKAYED IGNITION       OKAYED IGNITION
002644,001097: 
002645,001098: ???????     4755               ASTNBIT            =        BIT12                                 
002646,001099: 
002647,001100:                                                                                                  #                        BIT 11 FLAG 7
002648,001101: ???????                        TIMRFLAG           =        109D                                  #  CLOKTASK OPERATING    CLOKTASK INOPERATIVE
002649,001102: 
002650,001103: ???????     4756               TIMRBIT            =        BIT11                                 
002651,001104: 
002652,001105:                                                                                                  #                        BIT 10 FLAG 7
002653,001106: ???????                        NORMSW             =        110D                                  #  UNIT NORMAL INPUT     LAMBERT COMPUTE ITS
002654,001107:                                                                                                  #  TO LAMBERT.           OWN UNIT NORMAL.
002655,001108: 
002656,001109: 
002657,001110: ???????     4757               NORMSBIT           =        BIT10                                 
002658,001111: 

Page 61

002660,001113:                                                                                                  #                        BIT 9 FLAG 7
002661,001114: ???????                        RVSW               =        111D                                  #  DO NOT COMPUTE FINAL  COMPUTE FINAL STATE
002662,001115:                                                                                                  #  STATE VECTOR IN       VECTOR IN TIME-THETA
002663,001116:                                                                                                  #  TIME-THETA.
002664,001117: 
002665,001118: 
002666,001119: ???????     4760               RVSWBIT            =        BIT9                                  
002667,001120: 
002668,001121:                                                                                                  #                        BIT 8 FLAG 7
002669,001122: ???????                        GONEBY             =        112D                                  #  PASSED TARGET         APPROACHING TARGET
002670,001123: 
002671,001124: ???????     4761               GONBYBIT           =        BIT8                                  
002672,001125: 
002673,001126:                                                                                                  #                        BIT 7 FLAG 7
002674,001127:                                                                                                  #                =       113D
002675,001128: 
002676,001129:                                                                                                  #                        BIT 6 FLAG 7
002677,001130: ???????                        V37FLAG            =        114D                                  #  AVERAGEG (SERVICER)   AVERAGEG (SERVICER)
002678,001131:                                                                                                  #  RUNNING               OFF
002679,001132: 
002680,001133: ???????     4763               V37FLBIT           =        BIT6                                  
002681,001134: 
002682,001135:                                                                                                  #                        BIT 5 FLAG 7
002683,001136:                                                                                                  #                =       115D
002684,001137: 
002685,001138:                                                                                                  #                        BIT 4 FLAG 7
002686,001139: ???????                        UPLOCKFL           =        116D                                  #  K-KBAR-K FAIL         NO K-KBAR-K FAIL
002687,001140: 
002688,001141: ???????     4765               UPLOCBIT           =        BIT4                                  
002689,001142: 
002690,001143:                                                                                                  #                        BIT 3 FLAG 7
002691,001144: ???????                        VERIFLAG           =        117D                                  #  CHANGED WHEN V33E OCCURS AT END OF P27
002692,001145: 
002693,001146: ???????     4766               VERIFBIT           =        BIT3                                  
002694,001147: 
002695,001148:                                                                                                  #                        BIT 2 FLAG 7
002696,001149: ???????                        ATTCHFLG           =        118D                                  #  LM,CM ATTACHED        LM,CM NOT ATTACHED
002697,001150: 
002698,001151: ???????     4767               ATTCHBIT           =        BIT2                                  
002699,001152: 
002700,001153:                                                                                                  #                        BIT 1 FLAG 7
002701,001154: ???????                        TFFSW              =        119D                                  #  CALCULATE TPERIGEE    CALCULATE TFF
002702,001155: 
002703,001156: ???????     4770               TFFSWBIT           =        BIT1                                  
002704,001157: 
002705,001158: ???????     0104               FLAGWRD8           =        STATE      +8D                        #  (120-134)
002706,001159: 
002707,001160:                                                                                                  #  (SET)                 (RESET)
002708,001161: 
002709,001162:                                                                                                  #                        BIT 15 FLAG 8

Page 62

002711,001164: ???????                        RPQFLAG            =        120D                                  #  RPQ NOT COMPUTED      RPQ COMPUTED
002712,001165: 
002713,001166: ???????     4752               RPQFLBIT           =        BIT15                                 
002714,001167: 
002715,001168:                                                                                                  #                        BIT 14 FLAG 8
002716,001169: ???????                        NEWLMFLG           =        121D                                  #  NEW LANDMARK COORD    OLD LANDMARK COORD
002717,001170: ???????     4753               NEWLMBIT           =        BIT14                                 
002718,001171: 
002719,001172:                                                                                                  #                        BIT 13 FLAG 8
002720,001173: ???????                        NEWIFLG            =        122D                                  #  FIRST PASS THROUGH    SUCCEEDING ITERATION
002721,001174:                                                                                                  #  INTEGRATION           OF INTEGRATION
002722,001175: 
002723,001176: ???????     4754               NEWIBIT            =        BIT13                                 
002724,001177: 
002725,001178:                                                                                                  #                        BIT 12 FLAG 8
002726,001179: ???????                        CMOONFLG           =        123D                                  #  PERMANENT CSM STATE   PERMANENT CSM STATE
002727,001180: ???????     4755               CMOONBIT           =        BIT12                                 #  IN LUNAR SPHERE       IN EARTH SPHERE
002728,001181: 
002729,001182:                                                                                                  #                        BIT 11 FLAG 8
002730,001183: ???????                        LMOONFLG           =        124D                                  #  PERMANENT LM  STATE   PERMANENT LM  STATE
002731,001184: ???????     4756               LMOONBIT           =        BIT11                                 #  IN LUNAR SPHERE       IN EARTH SHPERE
002732,001185: 
002733,001186:                                                                                                  #                        BIT 10 FLAG 8
002734,001187: ???????                        ADVTRK             =        125D                                  #  ADVANCE GROUND TRACK  NOT ADVANCED
002735,001188:                                                                                                  #  SIGHTING WANTED       GROUND TRACK
002736,001189: 
002737,001190: ???????     4757               ADVTKBIT           =        BIT10                                 
002738,001191: 
002739,001192:                                                                                                  #                        BIT 9 FLAG 8
002740,001193: ???????                        UTFLAG             =        126D                                  #  UNIVERSAL TRACKING    NO UNIVERSAL TRACKING
002741,001194: ???????     4760               UTBIT              =        BIT9                                  
002742,001195: 
002743,001196:                                                                                                  #                        BIT 8 FLAG 8
002744,001197: ???????                        SURFFLAG           =        127D                                  #  LM ON LUNAR SURFACE   LM NOT ON LUNAR 
002745,001198:                                                                                                  #                        SURFACE
002746,001199: 
002747,001200: ???????     4761               SURFFBIT           =        BIT8                                  
002748,001201: 
002749,001202:                                                                                                  #                        BIT 7 FLAG 8
002750,001203: ???????                        INFINFLG           =        128D                                  #  NO CONIC SOLUTION     CONIC SOLUTION
002751,001204:                                                                                                  #  (CLOSURE THROUGH      EXISTS.
002752,001205:                                                                                                  #  INFINITY REQUIRED).
002753,001206: 
002754,001207: ???????     4762               INFINBIT           =        BIT7                                  
002755,001208: 
002756,001209:                                                                                                  #                        BIT 6 FLAG 8
002757,001210: ???????                        ORDERSW            =        129D                                  #  ITERATOR USES 2ND     ITERATOR USES 1ST
002758,001211:                                                                                                  #  ORDER MINIMUM MODE.   ORDER STANDARD MODE.

Page 63

002760,001213: ???????     4763               ORDERBIT           =        BIT6                                  
002761,001214: 
002762,001215:                                                                                                  #                        BIT 5 FLAG 8
002763,001216: ???????                        APSESW             =        130D                                  #  RDESIRED OUTSIDE      RDESIRED INSIDE
002764,001217:                                                                                                  #  PERICENTER-APOCENTER  PERICENTER-APOCENTE
002765,001218:                                                                                                  #  RANGE IN TIME-RAD     RANGE IN TIME-RADIUS
002766,001219: 
002767,001220: 
002768,001221: ???????     4764               APSESBIT           =        BIT5                                  
002769,001222: 
002770,001223:                                                                                                  #                        BIT 4 FLAG 8
002771,001224: ???????                        COGAFLAG           =        131D                                  #  NO CONIC SOLUTION     CONIC SOLUTION
002772,001225:                                                                                                  #  TOO CLOSE TO          EXISTS (COGA DOES
002773,001226:                                                                                                  #  RECTILINEAR (COGA     NOT OVERFLOW).
002774,001227:                                                                                                  #  OVERFLOWS).
002775,001228: 
002776,001229: 
002777,001230: ???????     4765               COGAFBIT           =        BIT4                                  
002778,001231: 
002779,001232:                                                                                                  #                        BIT 3 FLAG 8
002780,001233: ???????                        V96ONFLG           =        132D                                  #  P00 INTEGRATION HAS   P00 INTEGRATION IS
002781,001234:                                                                                                  #  BEEN INHIBITED BY     PROCEEDING REGULARLY
002782,001235: ???????     4766               V96ONBIT           =        BIT3                                  #  V96
002783,001236: 
002784,001237:                                                                                                  #                        BIT 2 FLAG 8
002785,001238: ???????                        R67FLAG            =        133D                                  #  R67 CALLING R60       NOT R67 CALLING R60
002786,001239: ???????     4767               R67BIT             =        BIT2                                  
002787,001240: 
002788,001241:                                                                                                  #                        BIT 1 FLAG 8
002789,001242: ???????                        360SW              =        134D                                  #  TRANSFER ANGLE NEAR   TRANSFER ANGLE NOT
002790,001243:                                                                                                  #  360 DEGREES           NEAR 360 DEGREES
002791,001244: 
002792,001245: ???????     4770               360SWBIT           =        BIT1                                  
002793,001246: 
002794,001247: ???????     0105               FLAGWRD9           =        STATE      +9D                        #  (135-149)
002795,001248: 
002796,001249:                                                                                                  #  (SET)                 (RESET)
002797,001250:                                                                                                  #                        BIT 15 FLAG 9
002798,001251: ???????                        SWTOVER            =        135D                                  #  SWITCHOVER HAS        NO SWITCHOVER YET
002799,001252:                                                                                                  #  OCCURRED
002800,001253: 
002801,001254: ???????     4752               SWTOVBIT           =        BIT15                                 
002802,001255: 
002803,001256:                                                                                                  #                        BIT 14 FLAG 9
002804,001257: ???????                        P24FLAG            =        136D                                  #  P24 RUNNING           P24 NOT RUNNING
002805,001258: ???????     4753               P24BIT             =        BIT14                                 
002806,001259: 
002807,001260:                                                                                                  #                        BIT 13 FLAG 9
002808,001261: ???????                        V82EMFLG           =        137D                                  #  MOON VICINITY         EARTH VICINITY
002809,001262: 

Page 64

002811,001264: ???????     4754               V82EMBIT           =        BIT13                                 
002812,001265: 
002813,001266:                                                                                                  #                        BIT 12 FLAG 9
002814,001267: ???????                        MAXDBFLG           =        138D                                  #  MAX DB SELECTED       MIN DB SELECTED
002815,001268: 
002816,001269: 
002817,001270: ???????     4755               MAXDBBIT           =        BIT12                                 
002818,001271: 
002819,001272:                                                                                                  #                        BIT 11 FLAG 9
002820,001273: ???????                        V94FLAG            =        139D                                  #  V94 ALLOWED DURING    V94 NOT ALLOWED
002821,001274:                                                                                                  #  P23
002822,001275: 
002823,001276: ???????     4756               V94FLBIT           =        BIT11                                 
002824,001277: 
002825,001278:                                                                                                  #                        BIT 10 FLAG 9
002826,001279: ???????                        SAVECFLG           =        140D                                  #  P23 DISPLAY AND       P23 DISPLAY AND
002827,001280:                                                                                                  #  DATA STORAGE AFTER    DATA STORAGE BEFORE
002828,001281:                                                                                                  #  MARK IS DONE          MARK IS DONE
002829,001282: 
002830,001283: ???????     4757               SAVECBIT           =        BIT10                                 
002831,001284: 
002832,001285:                                                                                                  #                        BIT 9 FLAG 9
002833,001286: ???????                        VHFRFLAG           =        141D                                  #  ALLOW R22 TO          STOP ACCEPTANCE
002834,001287:                                                                                                  #  ACCEPT RANGE          OF RANGE DATA
002835,001288:                                                                                                  #  DATA
002836,001289: 
002837,001290: ???????     4760               VHFRBIT            =        BIT9                                  
002838,001291: 
002839,001292:                                                                                                  #                        BIT 8 FLAG 9
002840,001293: ???????                        SOURCFLG           =        142D                                  #  SOURCE OF INPUT       SOURCE OF INPUT
002841,001294:                                                                                                  #  DATA IS FROM          DATA IS FROM
002842,001295:                                                                                                  #  VHF RADAR             OPTICS MARK
002843,001296: 
002844,001297: ???????     4761               SOURCBIT           =        BIT8                                  
002845,001298: 
002846,001299:                                                                                                  #                        BIT 7 FLAG 9
002847,001300: ???????                        R22CAFLG           =        143D                                  #  R22 IS PROCESSING     R22 IS NOT PROCESSING
002848,001301:                                                                                                  #  AN OPTICS MARK        AN OPTICS MARK
002849,001302: 
002850,001303: ???????     4762               R22CABIT           =        BIT7                                  
002851,001304: 
002852,001305:                                                                                                  #                        BIT 6 FLAG 9
002853,001306: ???????                        N22ORN17           =        144D                                  #  COMPUTE TOTAL         COMPUTE TOTAL
002854,001307:                                                                                                  #  ATTITUDE ERRORS       ATTITUDE ERRORS
002855,001308:                                                                                                  #  WRT N22 (V62)         WRT N17 (V63)
002856,001309: 
002857,001310: ???????     4763               N2217BIT           =        BIT6                                  
002858,001311: 
002859,001312:                                                                                                  #                        BIT 5 FLAG 9
002860,001313: ???????                        QUITFLAG           =        145D                                  #  TERMINATE AND EXIT    CONTINUE INTEGRATION

Page 65

002862,001315: ???????     4764               QUITBIT            =        BIT5                                  #  FROM INTEGRATION
002863,001316: 
002864,001317:                                                                                                  #                        BIT 4 FLAG 9
002865,001318: ???????                        R31FLAG            =        146D                                  #  R31 SELECTED (V83)    R34 SELECTED (V85)
002866,001319: 
002867,001320: ???????     4765               R31FLBIT           =        BIT4                                  
002868,001321: 
002869,001322:                                                                                                  #                        BIT 3 FLAG 9
002870,001323: ???????                        MID1FLAG           =        147D                                  #  INTEGRATE TO TDEC     INTEGRATE TO THE
002871,001324:                                                                                                  #                        THEN-PRESENT TIME
002872,001325: 
002873,001326: ???????     4766               MID1FBIT           =        BIT3                                  
002874,001327: 
002875,001328:                                                                                                  #                        BIT 2 FLAG 9
002876,001329: ???????                        MIDAVFLG           =        148D                                  #  INTEGRATION ENTERED   INTEGRATION WAS
002877,001330:                                                                                                  #  FROM ONE OF MIDTOAV   NOT ENTERED VIA
002878,001331:                                                                                                  #  PORTALS               MIDTOAV
002879,001332: 
002880,001333: ???????     4767               MIDAVBIT           =        BIT2                                  
002881,001334: 
002882,001335:                                                                                                  #                        BIT 1 FLAG 9
002883,001336: ???????                        AVEMIDSW           =        149D                                  #  AVETOMID CALLING      NO AVETOMID W INTEGR
002884,001337:                                                                                                  #  FOR W.MATRIX INTEGR   ALLOW SET UP RN,VN,
002885,001338:                                                                                                  #  DONT WRITE OVER RN,   PIPTIME
002886,001339:                                                                                                  #  VN,PIPTIME
002887,001340: 
002888,001341: ???????     4770               AVEMDBIT           =        BIT1                                  
002889,001342: 
002890,001343:                                                                                                  #  (SET)                 (RESET)
002891,001344: 
002892,001345: ???????     0106               FLGWRD10           =        STATE      +10D                       #  (150-164)
002893,001346: 
002894,001347: 
002895,001348:                                                                                                  #                        BIT 15 FLAG 10
002896,001349: ???????                        PCMANFLG           =        150D                                  #  P20 MANEUVER          NOT P20 PC
002897,001350:                                                                                                  #  AT PLANE CHANGE       MANEUVER
002898,001351: ???????     4752               PCMANBIT           =        BIT15                                 
002899,001352: 
002900,001353:                                                                                                  #                        BIT 14 FLAG 10
002901,001354: ???????                        INTFLAG            =        151D                                  #  INTEGRATION IN        INTEGRATION NOT IN
002902,001355:                                                                                                  #  PROGRESS              PROGRESS
002903,001356: 
002904,001357: ???????     4753               INTFLBIT           =        BIT14                                 
002905,001358: 
002906,001359:                                                                                                  #                        BIT 13 FLAG 10
002907,001360: ???????                        REINTFLG           =        152D                                  #  INTEGRATION ROUTINE   INTEGRATION ROUTINE
002908,001361:                                                                                                  #  TO BE RESTARTED       NOT TO BE RESTARTED
002909,001362: ???????     4754               REINTBIT           =        BIT13                                 
002910,001363: 

Page 66

002912,001365:                                                                                                  #                        BIT 12 FLAG 10
002913,001366: ???????                        REJCTFLG           =        153D                                  #  MARK TO BE REJECTED   NO MARK REJECT BY
002914,001367:                                                                                                  #  IN R22                R22
002915,001368: ???????     4755               REJCTBIT           =        BIT12                                 
002916,001369: 
002917,001370: 
002918,001371:                                                                                                  #                        BIT 11 FLAG 10
002919,001372: ???????                        HDSUPFLG           =        154D                                  
002920,001373: ???????     4756               HDSUPBIT           =        BIT11                                 #  HEADS UP ATTITUDE     HEADS DOWN ATTITUDE
002921,001374: 
002922,001375: 
002923,001376:                                                                                                  #                        BIT 10 FLAG 10
002924,001377: ???????                        BURNFLAG           =        155D                                  #  CSM DID BURN          LM DID BURN
002925,001378: ???????     4757               BURNBIT            =        BIT10                                 
002926,001379: 
002927,001380:                                                                                                  #                        BIT 9 FLAG 10
002928,001381: ???????                        RANGFLAG           =        156D                                  #  RANGE < 328 N.M       RANGE > 328 N.M.
002929,001382: ???????     4760               RANGBIT            =        BIT9                                  
002930,001383: 
002931,001384:                                                                                                  #                        BIT 8 FLAG 10
002932,001385: ???????                        P35FLAG            =        157D                                  #  MCC TARGETING DONE    NOT YET MCC
002933,001386: ???????     4761               P35BIT             =        BIT8                                  
002934,001387: 
002935,001388:                                                                                                  #                        BIT 7 FLAG 10
002936,001389: ???????                        AUTOSEQ            =        158D                                  #  AUTOMATIC RENDEZVOUS  AUTOMATIC RENDEZ-
002937,001390: 
002938,001391:                                                                                                  #  SEQUENCE IS RUNNING   VOUS NOT RUNNING
002939,001392: ???????     4762               AUTSQBIT           =        BIT7                                  
002940,001393: 
002941,001394:                                                                                                  #                        BIT 6 FLAG 10
002942,001395: ???????                                           =        159D                                  
002943,001396:                                                                                                  #                        BIT 5 FLAG 10
002944,001397: ???????                        MANEUFLG           =        160D                                  #  MANEUVER,P76,         MARK INCORPORATED
002945,001398:                                                                                                  #  OR PLANNED MANEUVER
002946,001399: ???????     4764               MANEUBIT           =        BIT5                                  
002947,001400: 
002948,001401:                                                                                                  #                        BIT 4 FLAG 10
002949,001402: ???????                        PTV93FLG           =        161D                                  #  V93 TO BE DONE        MANEUVER AND
002950,001403:                                                                                                  #  AFTER MANEUVER        V93 DONE
002951,001404: ???????     4765               PTV93BIT           =        BIT4                                  
002952,001405: 
002953,001406:                                                                                                  #                        BIT 3 FLAG 10
002954,001407: ???????                        TPIMNFLG           =        162D                                  #  TPI MANEUVER HAS
002955,001408:                                                                                                  #  BEEN DONE
002956,001409: ???????     4766               TPIMNBIT           =        BIT3                                  
002957,001410: 
002958,001411:                                                                                                  #                        BIT 2 FLAG 10
002959,001412: ???????                        FULTKFLG           =        163D                                  #  ONLY OPTICS OR VHF    OPTICS AND VHF
002960,001413:                                                                                                  #  MARKS BEING TAKEN     MARKS TAKEN
002961,001414: ???????     4767               FULTKBIT           =        BIT2                                  
002962,001415: 

Page 67

002964,001417:                                                                                                  #                        BIT 1 FLAG 10
002965,001418: ???????                        PCFLAG             =        164D                                  #  PLANE CHANGE          NOT PLANE CHANGE
002966,001419:                                                                                                  #  TARGETTING
002967,001420: ???????     4770               PCBIT              =        BIT1                                  
002968,001421: ???????     0107               FLGWRD11           =        STATE      +11D                       #  (165-179)
002969,001422: 
002970,001423:                                                                                                  #  (SET)                 (RESET)
002971,001424: 
002972,001425:                                                                                                  #                        BIT 15 FLAG 11
002973,001426: ???????                        S32.1F1            =        165D                                  #  DELTAN AT CSI TIME    DVT1 LESS THAN MAX
002974,001427: ???????     4752               S32BIT1            =        BIT15                                 #  ONE EXCEEDS MAX
002975,001428: 
002976,001429:                                                                                                  #                        BIT 14 FLAG 11
002977,001430: ???????                        S32.1F2            =        166D                                  #  FIRST PASS OF         REITERATION OF
002978,001431: ???????     4753               S32BIT2            =        BIT14                                 #  NEWTON INTERATION     NEWTON
002979,001432: 
002980,001433:                                                                                                  #                        BIT 13 FLAG 11
002981,001434: ???????                        S32.1F3A           =        167D                                  #  BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
002982,001435: ???????     4754               S32BIT3A           =        BIT13                                 #  PAIR (13,12) INDICATING THE POSSIBLE OC-
002983,001436:                                                                                                  #  CURRENCE OF 2NEWTON ITERATIONS FOR S32.1
002984,001437:                                                                                                  #                        BIT 12 FLAG 11    IN THE PROGRAM IN THE FOLLOWING ORDER:
002985,001438: ???????                        S32.1F3B           =        168D                                  #  (0,1) (I.E.BIT 13 RESET, BIT 12 SET)
002986,001439: ???????     4755               S3229T3B           =        BIT12                                 #       = FIRST NEWTON ITERATION BEING DONE
002987,001440:                                                                                                  #  (0,0)= FIRST PASS OF 2ND NEWTON ITER.
002988,001441:                                                                                                  #  (1,1)= 50 FPS STAGE OF 2ND NEWT ITER.
002989,001442:                                                                                                  #  (1,0)= REMAINDER OF 2ND NEWTON ITER.
002990,001443: 
002991,001444:                                                                                                  #                        BIT 11 FLAG 11
002992,001445:                                                                                                  #                =       169D
002993,001446: 
002994,001447:                                                                                                  #                        BIT 10 FLAG 11
002995,001448:                                                                                                  #                =       170D
002996,001449: 
002997,001450:                                                                                                  #                        BIT 9 FLAG 11
002998,001451:                                                                                                  #                =       171D
002999,001452: 
003000,001453:                                                                                                  #                        BIT 8 FLAG 11
003001,001454: ???????                        AZIMFLAG           =        172D                                  #  3-AXIS UT             VECPOINT UT
003002,001455: ???????     4761               AZIMBIT            =        BIT8                                  
003003,001456: 
003004,001457:                                                                                                  #                        BIT 7 FLAG 11
003005,001458: ???????                        HAFLAG             =        173D                                  #  HEIGHT ADJUST         NOT HEIGHT ADJUST
003006,001459: ???????     4762               HABIT              =        BIT7                                  #  MANEUVER PROG
003007,001460: 
003008,001461:                                                                                                  #                        BIT 6 FLAG 11
003009,001462: ???????                        CSISFLAG           =        174D                                  #  MULTIPLE CSI S        NOT MULTIPLE CSI
003010,001463: 
003011,001464: 
003012,001465:                                                                                                  #  REQUESTED
003013,001466: ???????     4763               CSISBIT            =        BIT6                                  
003014,001467: 

Page 68

003016,001469:                                                                                                  #                        BIT 5 FLAG 11
003017,001470:                                                                                                  #                =       175D
003018,001471: 
003019,001472:                                                                                                  #                        BIT 4 FLAG 11
003020,001473:                                                                                                  #                =       176D
003021,001474: 
003022,001475:                                                                                                  #                        BIT 3 FLAG 11
003023,001476:                                                                                                  #                =       177D
003024,001477: 
003025,001478:                                                                                                  #                        BIT 2 FLAG 11
003026,001479:                                                                                                  #                =       178D
003027,001480: 
003028,001481:                                                                                                  #                        BIT 1 FLAG 11
003029,001482:                                                                                                  #                =       179D
003030,001483: 

Page 69

003032,001485:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
003033,001486: 
003034,001487:    0061                                           SETLOC   61                                    
003035,001488:                                                                                                  #        INTERRUPT TEMPORARY STORAGE POOL.  (11D)
003036,001489:                                                                                                  #          (ITEMP1 THROUGH RUPTREG4)             
003037,001490: 
003038,001491:                                                                                                  #        ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
003039,001492:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
003040,001493: 
003041,001494:    0061                        ITEMP1             ERASE                                          
003042,001495:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
003043,001496:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
003044,001497: 
003045,001498:    0062                        ITEMP2             ERASE                                          
003046,001499:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
003047,001500:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
003048,001501: 
003049,001502:    0063                        ITEMP3             ERASE                                          
003050,001503:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
003051,001504:    0064     0063               WAITADR            EQUALS   ITEMP3                                
003052,001505:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
003053,001506: 
003054,001507:    0064                        ITEMP4             ERASE                                          
003055,001508:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
003056,001509:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
003057,001510: 
003058,001511:    0065                        ITEMP5             ERASE                                          
003059,001512:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
003060,001513: 
003061,001514:    0066                        ITEMP6             ERASE                                          
003062,001515:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
003063,001516: 
003064,001517:    0067                                           SETLOC   67                                    
003065,001518:    0067                        NEWJOB             ERASE                                          #  MUST BE AT LOC 67 DUE TO WIRING.
003066,001519: 
003067,001520:    0070                        RUPTREG1           ERASE                                          
003068,001521:    0071                        RUPTREG2           ERASE                                          
003069,001522:    0072                        RUPTREG3           ERASE                                          
003070,001523:    0073                        RUPTREG4           ERASE                                          
003071,001524:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
003072,001525:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
003073,001526: 
003074,001527:                                                                                                  #        FLAGWORD RESERVATIONS.                                          (12D)
003075,001528: 
003076,001529:    0074                        STATE              ERASE    +11D                                  
003077,001530: 
003078,001531:                                                                                                  #        UNSWITCHED DAP ERASABLE.                                        (4D)
003079,001532:    0110                        T6LOC              ERASE                                          
003080,001533:    0111                        T6ADR              ERASE                                          

Page 70

003082,001535:    0112                        T5LOC              ERASE    +1                                    
003083,001536: 
003084,001537: 
003085,001538:                                                                                                  #        EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. 
003086,001539:                                                                                                  #        (INTB15+ THROUGH RUPTMXM)                                       (32D)
003087,001540: 
003088,001541:    0114                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
003089,001542:    0115     0114               DSEXIT             EQUALS   INTB15+                               #  RETURN FOR DSPIN
003090,001543:    0115     0114               EXITEM             EQUALS   INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
003091,001544:    0115                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
003092,001545:    0116     0115               WDRET              EQUALS   INTBIT15                              #  RETURN FOR DSPWD
003093,001546:    0116     0115               DECRET             EQUALS   INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
003094,001547:    0116     0115               21/22REG           EQUALS   INTBIT15                              #  TEMP FOR CHARIN
003095,001548: 
003096,001549:                                                                                                  #  THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
003097,001550: 
003098,001551:    0116                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
003099,001552:    0117                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
003100,001553:    0120     0117               UPDATRET           EQUALS   POLISH                                #  RETURN FOR UPDATNN, UPDATVB
003101,001554:    0120     0117               CHAR               EQUALS   POLISH                                #  TEMP FOR CHARIN
003102,001555:    0120     0117               ERCNT              EQUALS   POLISH                                #  COUNTER FOR ERROR LIGHT RESET
003103,001556:    0120     0117               DECOUNT            EQUALS   POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
003104,001557: 
003105,001558:    0120                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
003106,001559:    0121                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
003107,001560: 
003108,001561:    0122                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
003109,001562:    0130     0122               SGNON              EQUALS   VBUF                                  #  TEMP FOR +,- ON
003110,001563:    0130     0122               NOUNTEM            EQUALS   VBUF                                  #  COUNTER FOR MIXNOUN FETCH
003111,001564:    0130     0122               DISTEM             EQUALS   VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
003112,001565:    0130     0122               DECTEM             EQUALS   VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
003113,001566: 
003114,001567:    0130     0123               SGNOFF             EQUALS   VBUF       +1                         #  TEMP FOR +,- ON
003115,001568:    0130     0123               NVTEMP             EQUALS   VBUF       +1                         #  TEMP FOR NVSUB
003116,001569:    0130     0123               SFTEMP1            EQUALS   VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
003117,001570:    0130     0123               HITEMIN            EQUALS   VBUF       +1                         #  TEMP FOR LOAD OF HRS, MIN, SEC
003118,001571:                                                                                                  #        MUST = LOTEMIN-1.
003119,001572:    0130     0124               CODE               EQUALS   VBUF       +2                         #  FOR DSPIN
003120,001573:    0130     0124               SFTEMP2            EQUALS   VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
003121,001574:    0130     0124               LOTEMIN            EQUALS   VBUF       +2                         #  TEMP FOR LOAD OF HRS, MIN, SEC
003122,001575:                                                                                                  #        MUST = HITEMIN+1.
003123,001576:    0130     0125               MIXTEMP            EQUALS   VBUF       +3                         #  FOR MIXNOUN DATA
003124,001577:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
003125,001578: 
003126,001579:    0130                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
003127,001580:    0133                        BUF2               ERASE    +1                                    
003128,001581:    0135     0130               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
003129,001582:    0135     0130               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
003130,001583:    0135     0131               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
003131,001584:    0135                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.

Page 71

003133,001586:    0136                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
003134,001587:    0137     0136               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
003135,001588:    0137     0136               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
003136,001589:    0137     0136               ENTRET             EQUALS   DOTINC                                #  EXIT FROM ENTER
003137,001590: 
003138,001591:    0137     0136               ENTEXIT            =        ENTRET                                
003139,001592: 
003140,001593:    0137                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
003141,001594:    0140     0137               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
003142,001595:    0140     0137               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
003143,001596:    0140     0137               WDCNT              EQUALS   DOTRET                                #  CHAR COUNTER FOR DSPWD
003144,001597:    0140     0137               INREL              EQUALS   DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
003145,001598: 
003146,001599:    0140                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
003147,001600:    0141     0140               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003148,001601:    0141     0140               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
003149,001602:    0141     0140               DSPMMTEM           EQUALS   MATINC                                #  DSPCOUNT SAVE FOR DSPMM
003150,001603:    0141     0140               MIXBR              EQUALS   MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
003151,001604: 
003152,001605:    0141                        TEM1               ERASE                                          #  EXEC TEMP
003153,001606:    0142     0141               POLYRET            EQUALS   TEM1                                  
003154,001607:    0142     0141               DSREL              EQUALS   TEM1                                  #  REL ADDRESS FOR DSPIN
003155,001608: 
003156,001609:    0142                        TEM2               ERASE                                          #  EXEC TEMP
003157,001610:    0143     0142               DSMAG              EQUALS   TEM2                                  #  MAGNITUDE STORE FOR DSPIN
003158,001611:    0143                        TEM3               ERASE                                          #  EXEC TEMP
003159,001612:    0144     0143               COUNT              EQUALS   TEM3                                  #  FOR DSPIN
003160,001613: 
003161,001614:    0144                        TEM4               ERASE                                          #  EXEC TEMP
003162,001615:    0145     0144               RELRET             EQUALS   TEM4                                  #  RETURN FOR RELDSP
003163,001616:    0145     0144               DSPWDRET           EQUALS   TEM4                                  #  RETURN FOR DSPSIGN
003164,001617:    0145     0144               SEPSCRET           EQUALS   TEM4                                  #  RETURN FOR SEPSEC
003165,001618:    0145     0144               SEPMNRET           EQUALS   TEM4                                  #  RETURN FOR SEPMIN
003166,001619: 
003167,001620:    0145                        TEM5               ERASE                                          #  EXEC TEMP
003168,001621:    0146     0145               NOUNADD            EQUALS   TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
003169,001622: 
003170,001623:    0146                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
003171,001624:    0147                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
003172,001625:    0150                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003173,001626:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
003174,001627:    0151                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003175,001628:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
003176,001629:    0152                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003177,001630:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
003178,001631:    0153                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
003179,001632: 
003180,001633:                                                                                                  #        AX*SR*T STORAGE.                                                (6D)
003181,001634:    0154     0142               DEXDEX             EQUALS   TEM2                                  #  B(1)TMP

Page 72

003183,001636:    0154     0143               DEX1               EQUALS   TEM3                                  #  B(1)TMP
003184,001637:    0154     0144               DEX2               EQUALS   TEM4                                  #  B(1)TMP
003185,001638:    0154     0145               RTNSAVER           EQUALS   TEM5                                  #  B(1)TMP
003186,001639:    0154     0133               TERM1TMP           EQUALS   BUF2                                  #  B(2)TMP
003187,001640: 
003188,001641:    0154     0143               DEXI               =        DEX1                                  
003189,001642: 

Page 73

003191,001644:                                                                                                  #        DYNAMICALLY ALLOCATED CORE SETS FOR JOBS.                       (84D)
003192,001645: 
003193,001646:    0154                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
003194,001647:    0163                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003195,001648:    0164                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
003196,001649:    0165                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
003197,001650:    0166                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
003198,001651:    0167                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
003199,001652: 
003200,001653:    0170                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
003201,001654: 
003202,001655:                                                                                                  #        SPECIAL DOWNLINK BUFFER.-OVERLAYED BY P27 STORAGE-
003203,001656: 
003204,001657:                                                                                                  #        P27(UPDATE PROGRAM) STORAGE. -OVERLAYS SPEC DNLNK BUFF-         (24D)           
003205,001658: 
003206,001659:    0300                        COMPNUMB           ERASE    +23D                                  #  B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
003207,001660:    0330     0301               UPOLDMOD           EQUALS   COMPNUMB   +1                         #  B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
003208,001661:    0330     0302               UPVERB             EQUALS   UPOLDMOD   +1                         #  B(1)TMP VERB NUMBER
003209,001662:    0330     0303               UPCOUNT            EQUALS   UPVERB     +1                         #  B(1)TMP UPBUFF INDEX
003210,001663:    0330     0304               UPBUFF             EQUALS   UPCOUNT    +1                         #  B(20D)
003211,001664: 
003212,001665:                                                                                                  #        MORE P27 STORAGE.                                               (2D)
003213,001666: 
003214,001667:    0330                        UPTEMP             ERASE                                          #  B(1)TMP SCRATCH
003215,001668:    0331                        UPVERBSV           ERASE                                          #  B(1)TMP
003216,001669: 
003217,001670: 
003218,001671:                                                                                                  #        ENTRY DOWNLINK STORAGE
003219,001672: 
003220,001673:                                                                                                  #                (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.)
003221,001674: 
003222,001675:                                                                                                  #                                                        THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP.
003223,001676: 
003224,001677:    0332     0304               CMTMTIME           =        UPBUFF                                #  B(1) (VEHICLE BODY RATE INFO IS
003225,001678:    0332     0305               SW/NDX             =        CMTMTIME   +1                         #  B(1)  TELEMETERED EACH 0.2 SEC. DURING
003226,001679:    0332     0324               ENDBUF             =        CMTMTIME   +16D                       #  B(1)  ENTRY.)
003227,001680: 
003228,001681:    0332     0325               V1                 =        ENDBUF     +1                         #  I(2) REENTRY, P64-P65
003229,001682:    0332     0327               A0                 =        V1         +2                         #  I(2) REENTRY, P64-P65
003230,001683:                                                                                                  #  HI-ORDER WORD ONLY ON DNLNK.
003231,001684: 
003232,001685:                                                                                                  #        ALIGNMENT STORAGE.                                              (5D)
003233,001686:                                                                                                  #        (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)
003234,001687: 
003235,001688:    0332     0300               QMAJ               EQUALS   COMPNUMB                              #  B(1)TMP
003236,001689:    0332     0301               MARKINDX           EQUALS   QMAJ       +1                         #  B(1)TMP
003237,001690:    0332     0302               BESTI              EQUALS   MARKINDX   +1                         #  I(1)TMP
003238,001691:    0332     0303               BESTJ              EQUALS   BESTI      +1                         #  I(1)TMP
003239,001692:    0332     0304               STARIND            EQUALS   BESTJ      +1                         #  I(1)TMP
003240,001693: 

Page 74

003242,001695:                                                                                                  #        ALIGNMENT/S40.2,3 COMMON STORAGE.                               (18D)
003243,001696: 
003244,001697:    0332     0306               XSMD               EQUALS   UPBUFF     +2                         #  I(6)TMP
003245,001698:    0332     0314               YSMD               EQUALS   XSMD       +6                         #  I(6)TMP
003246,001699:    0332     0322               ZSMD               EQUALS   YSMD       +6                         #  I(6)TMP
003247,001700: 
003248,001701:    0332     0306               XSCREF             =        XSMD                                  #        SPACE CRAFT AXES IN REF COORDS.
003249,001702:    0332     0314               YSCREF             =        YSMD                                  
003250,001703:    0332     0322               ZSCREF             =        ZSMD                                  
003251,001704: 
003252,001705: 
003253,001706:                                                                                                  #        ALIGNMENT TEMPS IN VAC
003254,001707: 
003255,001708:    0332                        ZPRIME             =        22D                                   
003256,001709:    0332                        PDA                =        22D                                   
003257,001710:    0332                        COSTH              =        16D                                   
003258,001711:    0332                        SINTH              =        18D                                   
003259,001712:    0332                        THETA              =        20D                                   
003260,001713:    0332                        STARM              =        32D                                   
003261,001714: 
003262,001715:                                                                                                  #  R52 AUTO-OPTICS (1)
003263,001716: 
003264,001717:    0332     0330               PACTEMP            EQUALS   ZSMD       +6D                        #  B(1)TMP
003265,001718: 
003266,001719:                                                                                                  #        DOWNLINK STORAGE.                                               (17D)
003267,001720: 
003268,001721:    0332     0332               DNLSTADR           EQUALS   DNLSTCOD                              #  CONTENTS NO LONGER AN ADDR BUT A CODE
003269,001722: 
003270,001723:    0332                        DNLSTCOD           ERASE                                          #  B(1)PRM ID CODE OF DOWNLIST
003271,001724:    0333                        CTLIST             ERASE                                          
003272,001725:    0334                        DNTMGOTO           ERASE                                          #  B(1)
003273,001726:    0335                        TMINDEX            ERASE                                          #  B(1)
003274,001727:    0336     0335               DNECADR            EQUALS   TMINDEX                               #  B(1) ADDRESS OF CURRENT DNLST WORD
003275,001728:    0336     0335               DUMPLOC            EQUALS   TMINDEX                               #  CONTAINS ECADR OF AGC DP WORD BEING DUMP
003276,001729:                                                                                                  #  ED AND COUNT OF COMPLETE DUMPS ALREADY S
003277,001730:                                                                                                  #  ENT.
003278,001731:    0336                        SUBLIST            ERASE                                          #  B(1)
003279,001732:    0337                        DNTMBUFF           ERASE    +11D                                  #  B(12) PRM DOWNLINK SNAPSHOT BUFFER
003280,001733: 
003281,001734: 
003282,001735: 
003283,001736:                                                                                                  #        OPTICS MARKING . UNSHARED.                                      (8D)
003284,001737: 
003285,001738:    0353                        MKNDX              ERASE                                          
003286,001739:    0354                        MKT2T1             ERASE    +1                                    
003287,001740:    0356                        MKCDUY             ERASE                                          
003288,001741:    0357                        MKCDUS             ERASE                                          
003289,001742:    0360                        MKCDUZ             ERASE                                          

Page 75

003291,001744:    0361                        MKCDUT             ERASE                                          
003292,001745:    0362                        MKCDUX             ERASE                                          
003293,001746: 
003294,001747: 
003295,001748: 
003296,001749:                                                                                                  #        R52 TIME SAVE STORAGE                                           (2)
003297,001750:    0363                        AOPOLD             ERASE    +1                                    
003298,001751: 
003299,001752: 
003300,001753:                                                                                                  #        UNSWITCHED FOR DISPLAY INTERFACE ROUTINES.                      (7D)
003301,001754: 
003302,001755:    0365                        RESTREG            ERASE                                          #  B(1)PRM FOR DISPLAY RESTARTS
003303,001756:    0366                        NVWORD             ERASE                                          
003304,001757:    0367                        MARKNV             ERASE                                          
003305,001758:    0370                        NVSAVE             ERASE                                          #   PURPOSES)
003306,001759:    0371                        CADRFLSH           ERASE                                          #  B(1)TMP
003307,001760:    0372                        CADRMARK           ERASE                                          #  B(1)TMP
003308,001761:    0373                        TEMPFLSH           ERASE                                          #  B(1)TMP
003309,001762: 
003310,001763: 
003311,001764:                                                                                                  #  CHANNEL FAIL REGISTER                                                 (1D)
003312,001765: 
003313,001766:    0374                        C31FLWRD           ERASE                                          #  B(1)PRM
003314,001767: 
003315,001768: 
003316,001769:                                                                                                  #  C31FLWRD HAS THE FOLLOWING OCTAL FORMAT AXXBX WHERE A + B HAVE THE FOLLOWING INTERPRETATION. IF THE ASTRONAUT
003317,001770:                                                                                                  #  DESIRES TO BYPASS THE CHANNEL REPRESENTATION, HE SHOULD LOAD C31FLWRD   VIA V21 N01 TO THE VALUES SHOWN IN THE
003318,001771:                                                                                                  #  FOLLOWING TABLES:
003319,001772: 
003320,001773:                                                                                                  #     A VALUE      MEANING FOR CHANNEL 31                                     B VALUE      MEANING FOR CHANNEL 33
003321,001774: 
003322,001775:                                                                                                  #     0 OR 4       BITS 15,14, + 13 OF CHANNEL 31 ARE VALID                   0 OR 4       BITS 4 + 5 OF CHANNEL 33
003323,001776:                                                                                                  #     1            G&N CONTROL FREE                                           1 OR 5       OPTICS MODE CMC
003324,001777:                                                                                                  #     2            G&N CONTROL ATT. HOLD                                      2 OR 6       OPTICS MODE ZERO
003325,001778:                                                                                                  #     3            G&N CONTROL AUTO                                           3 OR 7       OPTICS MODE MANUAL
003326,001779:                                                                                                  #     5            SCS CONTROL FREE
003327,001780:                                                                                                  #     6            SCS CONTROL ATT. HOLD
003328,001781:                                                                                                  #     7            SCS CONTROL AUTO
003329,001782: 
003330,001783: 
003331,001784:                                                                                                  #  ALARM REGISTERS                                                       (3D)
003332,001785: 
003333,001786:    0375                        FAILREG            ERASE    +2                                    #  B(3)PRM ALARM ABORT CODES
003334,001787: 
003335,001788:    0400                                           SETLOC   400                                   
003336,001789:                                                                                                  #  VAC AREAS. -BE CAREFUL OF PLACEMENT-                                  (220D)
003337,001790: 
003338,001791:    0400                        VAC1USE            ERASE                                          #  B(1)PRM
003339,001792:    0401                        VAC1               ERASE    +42D                                  #  B(43)PRM

Page 76

003341,001794:    0454                        VAC2USE            ERASE                                          #  B(1)PRM
003342,001795:    0455                        VAC2               ERASE    +42D                                  #  B(43)PRM
003343,001796:    0530                        VAC3USE            ERASE                                          #  B(1)PRM
003344,001797:    0531                        VAC3               ERASE    +42D                                  #  B(43)PRM
003345,001798:    0604                        VAC4USE            ERASE                                          #  B(1)PRM
003346,001799:    0605                        VAC4               ERASE    +42D                                  #  B(43)PRM
003347,001800:    0660                        VAC5USE            ERASE                                          #  B(1)PRM
003348,001801:    0661                        VAC5               ERASE    +42D                                  #  B(43)PRM
003349,001802: 
003350,001803: 
003351,001804:                                                                                                  #        TEMP STORAGE FOR RESTARTS ROUTINE -- STARTS AT VAC5 + 19D
003352,001805: 
003353,001806:    0734     0705               GOLOC              EQUALS   VAC5       +20D                       #  B(4) GOLOC -1 THRU GOLOC +2 USED
003354,001807:                                                                                                  #     TO SET EXEC AND WTLST CALL
003355,001808: 
003356,001809:                                                                                                  #        V82, V90 STORAGE        (1D)
003357,001810: 
003358,001811:    0734                        VEHRET             ERASE                                          
003359,001812: 
003360,001813:                                                                                                  #        P24-RATE AIDED OPTICS (PAD LOAD)*****                           (3D)
003361,001814: 
003362,001815: 
003363,001816:    0735                        TRATE              ERASE                                          
003364,001817:    0736                        SRATE              ERASE                                          
003365,001818:    0737                        NO.PASS            ERASE                                          
003366,001819: 
003367,001820: 
003368,001821:                                                                                                  #        P24-RATE AIDED OPTICS UNSHARED ERASABLES                        (2D)
003369,001822: 
003370,001823:    0740                        TOLD               ERASE                                          
003371,001824:    0741                        SOLD               ERASE                                          
003372,001825: 
003373,001826: 
003374,001827: 
003375,001828:                                                                                                  #        SINGLE PRECISION SUBROUTINE TEMPORARIES.                        (2D)
003376,001829: 
003377,001830:                                                                                                  #                                                                        SPSIN, SPCOS VARIABLES
003378,001831: 
003379,001832:                                                                                                  #                                                                DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003380,001833:                                                                                                  #                                                                AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003381,001834:                                                                                                  #                                                                MATERIALIZE, THEN THIS CAN BE CHANGED.
003382,001835: 
003383,001836:    0742                        TEMK               ERASE                                          
003384,001837:    0743                        SQ                 ERASE                                          
003385,001838: 

Page 77

003387,001840:                                                                                                  #        UNSWITCHED FOR ORBIT INTEGRATION.                               (21D)
003388,001841: 
003389,001842:    0744                        TDEC               ERASE    +20D                                  #  I(2)
003390,001843:    0771     0746               LAT                EQUALS   TDEC       +2                         #  I(2)DSP NOUN 43,67 FOR P20,22,51,R52,53.
003391,001844:    0771     0746               LANDLAT            =        LAT                                   #          NOUN 89    FOR P22.
003392,001845:    0771     0750               LONG               EQUALS   LAT        +2                         #  I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003393,001846:    0771     0752               ALT                EQUALS   LONG       +2                         #  I(2)DSP NOUN 43    FOR P20,22,51 R52,53.
003394,001847:    0771     0754               YV                 EQUALS   ALT        +2                         #  I(6)
003395,001848:    0771     0762               ZV                 EQUALS   YV         +6                         #  I(6)
003396,001849:    0771     0770               COLREG             EQUALS   ZV         +6                         #  I(1)
003397,001850: 
003398,001851: 
003399,001852: 
003400,001853:                                                                                                  #        MARK STORAGE.                                                   (2)
003401,001854: 
003402,001855:    0771                        VHFCNT             ERASE                                          #  B(1) PRM NO. OF VHF MARKS(P20(R22)).
003403,001856:    0772                        TRKMKCNT           ERASE                                          #  B(1) PRM NO. OF VHF MARKS (P20(R22)).
003404,001857: 
003405,001858:                                                                                                  #        P24 STORAGE                                                     (1D)
003406,001859: 
003407,001860:    0773     0771               RATETEMP           EQUALS   VHFCNT                                #  B(1) TMP
003408,001861: 
003409,001862:                                                                                                  #        MISCELLANEOUS UNSWITCHED.                                       (15D)
003410,001863: 
003411,001864:    0773                        IRETURN1           ERASE                                          #  B(1)  RET ADDR USED BY MIDTOAV1 AND 2
003412,001865:                                                                                                  #  CALLED BY P40,P41,P42,  P61,P62
003413,001866:    0774                        RATEINDX           ERASE                                          #   (1)    USED BY KALCMANU
003414,001867:    0775                        OPTION1            ERASE                                          #  B(1)   NOUN 06 USES THIS
003415,001868:    0776                        OPTION2            ERASE                                          #  B(1)   NOUN 06 USES THIS
003416,001869:    0777                        NVWORD1            ERASE                                          #  B(1)
003417,001870:    1000                        DELAYLOC           ERASE    +3                                    
003418,001871:    1004                        TEMPR60            ERASE                                          #  B(1)
003419,001872:    1005                        PRIOTIME           ERASE                                          #  B(1)
003420,001873:    1006                        TIME2SAV           ERASE    +1                                    #  B(2)TMP
003421,001874:    1010                        SCALSAVE           ERASE    +1                                    #  B(2)TMP
003422,001875:                                                                                                  #        P20, CONICS   (SHARING WITH TIME 2 SAVE AND SCAL SAV ONLY)      (3D)
003423,001876: 
003424,001877:    1012     1006               POINTEX            EQUALS   TIME2SAV                              #  I(1) POINT AXS EXIT
003425,001878:    1012     1007               VHFTIME            EQUALS   POINTEX    +1                         #  I(2) DOWNLINK OF VHF RANGE TIME +1M
003426,001879: 
003427,001880: 
003428,001881: 
003429,001882:                                                                                                  #        MINKEY RENDEZVOUS                                               (1D)
003430,001883: 
003431,001884:    1012                        AUTPOINT           ERASE                                          #  B(1) CONTROLLER RETURN
003432,001885: 

Page 78

003434,001887: 
003435,001888:                                                                                                  #        CRS61.1 STORAGE.  -USED IN R63 (VERB 89)-                       (3D)
003436,001889: 
003437,001890:    1013                        CPHIX              ERASE    +2                                    #  B(3)DSP NOUN 95 CALCULATED BY CRS61.1
003438,001891: 
003439,001892: 
003440,001893: 
003441,001894:                                                                                                  #        NOUN 26 ERASABLES                                               (3D)
003442,001895: 
003443,001896:    1016                        N26/PRI            ERASE                                          #  B(1D)  PRIO/TIME DELAY
003444,001897:    1017                        N26/2CAD           ERASE    +1                                    #  B(2D)  2CADR OF JOB/TASK
003445,001898: 
003446,001899: 
003447,001900:                                                                                                  #  DOWNLINK TIME OF EVENT
003448,001901: 
003449,001902:    1021                        TEVENT             ERASE    +1                                    #  B(2)     TIME OF EVENT FOR DOWNLIST
003450,001903:    1023     1021               TLIFTOFF           =        TEVENT                                
003451,001904: 
003452,001905:                                                                                                  #        P34-P35 STORAGE                                                 (1D)
003453,001906:    1023                        NORMEX             ERASE                                          
003454,001907: 
003455,001908: 
003456,001909: 
003457,001910:                                                                                                  #        R57 STORAGE. -MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY-        (1D)
003458,001911: 
003459,001912:    1024                        TRUNBIAS           ERASE                                          #  B(1)PRM RESULT OF R57 CALIBR OF TRUNION
003460,001913: 
003461,001914: 
003462,001915: 
003463,001916:                                                                                                  #        KEPLER STORAGE                                                  (2D)
003464,001917: 
003465,001918:    1025                        EPSILONT           ERASE    +1                                    #  I(2) TMP
003466,001919: 
003467,001920: 
003468,001921: 
003469,001922:                                                                                                  #        PERM STATE VECTORS FOR BOOST AND DOWNLINK -WHOLE MISSION-       (14D)
003470,001923: 
003471,001924:    1027                        RN                 ERASE    +5                                    #  B(6)PRM
003472,001925:    1035                        VN                 ERASE    +5                                    #  B(6)PRM
003473,001926:    1043                        PIPTIME            ERASE    +1                                    #  B(2)PRM (MUST BE FOLLOWED BY GDT/2)
003474,001927: 
003475,001928: 
003476,001929:                                                                                                  #        SERVICER STORAGE.                                               (45D)
003477,001930: 
003478,001931:                                                                                                  #        (SERVICER STORAGE AND P11 STORAGE IN UNSWITHCHED SHOULD NOT
003479,001932:                                                                                                  #        OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT
003480,001933:                                                                                                  #        EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE)
003481,001934: 
003482,001935:    1045     1045               GDT/2              EQUALS   PIPTIME    +2                         #  B(6)TMP       (MUST FOLLOW PIPTIME)

Page 79

003484,001937:    1045     1053               GOBL/2             EQUALS   GDT/2      +6                         #  B(6)TMP
003485,001938:    1045     1061               AVEGEXIT           EQUALS   GOBL/2     +6                         #  B(2)TMP
003486,001939:    1045     1061               AVGEXIT            =        AVEGEXIT                              
003487,001940:    1045     1063               TEMX               EQUALS   AVEGEXIT   +2                         #  B(1)TMP
003488,001941:    1045     1064               TEMY               EQUALS   TEMX       +1                         #  B(1)TMP
003489,001942:    1045     1065               TEMZ               EQUALS   TEMY       +1                         #  B(1)TMP
003490,001943:    1045     1066               PIPCTR             EQUALS   TEMZ       +1                         #  B(1)TMP
003491,001944:    1045     1067               PIPAGE             EQUALS   PIPCTR     +1                         #  B(1)TMP
003492,001945: 
003493,001946: 
003494,001947:    1045     1070               RN1                EQUALS   PIPAGE     +1                         #  B(6)TMP
003495,001948:    1045     1076               VN1                EQUALS   RN1        +6                         #  B(6)TMP
003496,001949:    1045     1104               PIPTIME1           EQUALS   VN1        +6                         #  B(2)TMP
003497,001950:    1045     1106               GDT1/2             EQUALS   PIPTIME1   +2                         #  B(6)TMP
003498,001951:    1045     1114               GOBL1/2            EQUALS   GDT1/2     +6                         #  B(6)TMP
003499,001952: 
003500,001953:                                                                                                  #        ENTRY STORAGE.                                                  (1D)
003501,001954: 
003502,001955:    1045     1122               ENTRYVN            EQUALS   GOBL1/2    +6                         #  B(1)TMP VN CODE FOR ENTRY DISPLAYS P60S.
003503,001956: 
003504,001957: 
003505,001958: 
003506,001959:                                                                                                  #        RENDEZVOUS NAVIGATION STORAGE.(SEE COMMENT IN SERVICER STORAGE) (56D)
003507,001960: 
003508,001961:    1045                        CSMPOS             ERASE    +55D                                  #  I(6)TMP
003509,001962:    1135     1053               LEMPOS             EQUALS   CSMPOS     +6                         #  I(6)TMP
003510,001963:    1135     1061               MARKTIME           EQUALS   LEMPOS     +6                         #  B(2) TEMP MUST PRECEDE VTEMP FOR GENTRAN
003511,001964:    1135     1063               VTEMP              EQUALS   MARKTIME   +2                         #  B(6)TMP
003512,001965:    1135     1071               UM                 EQUALS   VTEMP      +6                         #  I(6)TMP
003513,001966:    1135     1077               MARKDATA           EQUALS   UM         +6                         #  B(2)TMP
003514,001967:    1135     1101               USTAR              EQUALS   MARKDATA   +2                         #  I(6)TMP
003515,001968:    1135     1107               WIXA               EQUALS   USTAR      +6                         #  B(1)TMP
003516,001969:    1135     1110               WIXB               EQUALS   WIXA       +1                         #  B(1)TMP
003517,001970:    1135     1111               ZIXA               EQUALS   WIXB       +1                         #  B(1)TMP
003518,001971:    1135     1112               ZIXB               EQUALS   ZIXA       +1                         #  B(1)TMP
003519,001972:    1135     1113               DELTAX             EQUALS   ZIXB       +1                         #  I(18)TMP
003520,001973: 
003521,001974:    1135     1113               VHFRANGE           EQUALS   DELTAX                                #   (2)
003522,001975:    1135     1127               UCL                EQUALS   DELTAX     +12D                       #   (6)     LM-CSM LINE OF SIGHT 1/2 UNIT V
003523,001976: 
003524,001977: 
003525,001978:                                                                                                  #        P22 TEMPORARIES
003526,001979: 
003527,001980:    1135     1053               S22UOFF            EQUALS   LEMPOS                                #  I(6)TMP  UM OFFSET
003528,001981:    1135     1053               9DWXX              EQUALS   LEMPOS                                #  I(1)TMP QSAVE REGISTER
003529,001982:    1135     1113               S22UUT             EQUALS   DELTAX                                #  I(18)
003530,001983: 

Page 80

003532,001985: 
003533,001986:                                                                                                  #        MINKEY RENDEZVOUS *** (1D)
003534,001987: 
003535,001988:    1135     1113               TEMPMM             EQUALS   DELTAX                                #  B(1) MAJOR MODE DURING P20 STARTUP
003536,001989: 
003537,001990: 
003538,001991:                                                                                                  #        USED FOR SUMMATION OF UPRUPT DURING PRELAUNCH & SYS TEST LEADIN (3D)
003539,001992: 
003540,001993:    1135     1116               UPSUM              EQUALS   EBUF2      +2                         #  (3)
003541,001994: 
003542,001995: 
003543,001996:                                                                                                  #        PRELAUNCH ERASABLE PROGRAM ENTRANCE                             (2D)
003544,001997: 
003545,001998:    1135     1114               EBUF2              EQUALS   GOBL1/2                               #  (2)
003546,001999: 
003547,002000: 
003548,002001:                                                                                                  #        FOR STALL ROUTINE FOR VHF RADAR
003549,002002: 
003550,002003: 
003551,002004:    1135     1063               RADTIME            EQUALS   VTEMP                                 #  B(1)
003552,002005:    1135     1064               RADDEL             EQUALS   RADTIME    +1                         #  B(1)
003553,002006: 
003554,002007: 
003555,002008:                                                                                                  #        P11 STORAGE.                                                    (9D)
003556,002009: 
003557,002010:    1135     1126               LIFTTEMP           EQUALS   UCL        -1                         #  (2)TMP
003558,002011:    1135     1130               TEPHEM1            EQUALS   LIFTTEMP   +2                         #   (3)TMP
003559,002012:    1135     1133               PGNCSALT           EQUALS   TEPHEM1    +3                         #   (2)PL  ALTITUDE
003560,002013:    1135     1135               PADLONG            EQUALS   PGNCSALT   +2                         #  (2)PL LONGITUDE F LAUNCH PAD
003561,002014: 
003562,002015: 
003563,002016:                                                                                                  #     **** CONICSEX (MEAS INC) ****                                      (6D)
003564,002017: 
003565,002018:    1135     1113               TRIPA              EQUALS   DELTAX                                
003566,002019:    1135     1116               TEMPVAR            EQUALS   DELTAX     +3                         
003567,002020: 
003568,002021: 
003569,002022: 
003570,002023:                                                                                                  #        P24   RATE AIDED OPTICS
003571,002024: 
003572,002025:    1135     1131               PASSCNT            EQUALS   TEPHEM1    +1                         #  B(1)
003573,002026: 
003574,002027: 
003575,002028:                                                                                                  #        P20-P22 PROCESSING STORAGE                                      (2D)
003576,002029: 
003577,002030:    1135                        TEMPOR1            ERASE    +1                                    #  B(2)TMP
003578,002031: 
003579,002032: 
003580,002033:                                                                                                  #        WAITLIST REPEAT FLAG.                                           (1D)
003581,002034: 
003582,002035:    1137                        RUPTAGN            ERASE                                          #  B(1)PRM

Page 81

003584,002037:    1140     1137               KEYTEMP2           =        RUPTAGN                               
003585,002038: 
003586,002039: 
003587,002040:                                                                                                  #        STARALIGN ERASABLES.                                            (13D)
003588,002041: 
003589,002042:    1140                        STARCODE           ERASE                                          #  B(1)DSP NOUN 70 FOR P22,51 AND R52,53.
003590,002043:    1141                        STARALGN           ERASE    +11D                                  
003591,002044:    1155     1141               SINCDU             =        STARALGN                              
003592,002045:    1155     1147               COSCDU             =        STARALGN   +6                         
003593,002046: 
003594,002047:    1155     1145               SINCDUX            =        SINCDU     +4                         
003595,002048:    1155     1141               SINCDUY            =        SINCDU                                
003596,002049:    1155     1143               SINCDUZ            =        SINCDU     +2                         
003597,002050:    1155     1153               COSCDUX            =        COSCDU     +4                         
003598,002051:    1155     1147               COSCDUY            =        COSCDU                                
003599,002052:    1155     1151               COSCDUZ            =        COSCDU     +2                         
003600,002053: 
003601,002054: 
003602,002055:                                                                                                  #        PHASE TABLE AND RESTART COUNTERS.                               (12D)
003603,002056: 
003604,002057:    1155                        -PHASE1            ERASE                                          #  B(1)PRM
003605,002058:    1156                        PHASE1             ERASE                                          #  B(1)PRM
003606,002059:    1157                        -PHASE2            ERASE                                          #  B(1)PRM
003607,002060:    1160                        PHASE2             ERASE                                          #  B(1)PRM
003608,002061:    1161                        -PHASE3            ERASE                                          #  B(1)PRM
003609,002062:    1162                        PHASE3             ERASE                                          #  B(1)PRM
003610,002063:    1163                        -PHASE4            ERASE                                          #  B(1)PRM
003611,002064:    1164                        PHASE4             ERASE                                          #  B(1)PRM
003612,002065:    1165                        -PHASE5            ERASE                                          #  B(1)PRM
003613,002066:    1166                        PHASE5             ERASE                                          #  B(1)PRM
003614,002067:    1167                        -PHASE6            ERASE                                          #  B(1)PRM
003615,002068:    1170                        PHASE6             ERASE                                          #  B(1)PRM
003616,002069: 
003617,002070: 
003618,002071:                                                                                                  #        AX*SR*T STORAGE.                                                (6D)
003619,002072: 
003620,002073:    1171                        CDUSPOT            ERASE    +5                                    #  B(6)
003621,002074: 
003622,002075:    1177     1171               CDUSPOTY           =        CDUSPOT                               
003623,002076:    1177     1173               CDUSPOTZ           =        CDUSPOT    +2                         
003624,002077:    1177     1175               CDUSPOTX           =        CDUSPOT    +4                         
003625,002078: 
003626,002079: 
003627,002080:                                                                                                  #        VERB 37 STORAGE.                                                (2D)
003628,002081: 
003629,002082:    1177                        MINDEX             ERASE                                          #  B(1)TMP  INDEX FOR MAJOR MODE
003630,002083:    1200                        MMNUMBER           ERASE                                          #  B(1)TMP  MAJOR MODE REQUESTED VIA V37
003631,002084: 
003632,002085: 
003633,002086:                                                                                                  #        PINBALL INTERRUPT STORAGE.                                      (1D)
003634,002087: 

Page 82

003636,002089:    1201                        DSPCNT             ERASE                                          #  B(1)PRM DSPOUT COUNTER
003637,002090: 
003638,002091: 
003639,002092:                                                                                                  #        PINBALL EXECUTIVE ACTION.                                       (44D)
003640,002093: 
003641,002094:    1202                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
003642,002095:    1203                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
003643,002096:    1204                        VERBREG            ERASE                                          #  VERB CODE
003644,002097:    1205                        NOUNREG            ERASE                                          #  NOUN CODE
003645,002098:    1206                        XREG               ERASE                                          #  R1 INPUT BUFFER
003646,002099:    1207                        YREG               ERASE                                          #  R2 INPUT BUFFER
003647,002100:    1210                        ZREG               ERASE                                          #  R3 INPUT BUFFER
003648,002101:    1211                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
003649,002102:    1212                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
003650,002103:    1213     1212               HITEMOUT           =        YREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003651,002104:                                                                                                  #        MUST = LOTEMOUT-1.
003652,002105:    1213                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
003653,002106:    1214     1213               LOTEMOUT           =        ZREGLP                                #  TEMP FOR DISPLAY OF HRS, MIN, SEC
003654,002107:                                                                                                  #        MUST = HITEMOUT+1.
003655,002108:    1214                        MODREG             ERASE                                          #  MODE CODE
003656,002109:    1215                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
003657,002110:    1216                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
003658,002111:    1217                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
003659,002112:    1220                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
003660,002113:    1221                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
003661,002114:    1222                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
003662,002115:    1223                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
003663,002116:    1224                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
003664,002117:    1225                        MONSAVE2           ERASE                                          #  B(1)PRM NVMONOPT OPTIONS
003665,002118:    1226                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003666,002119:    1242                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
003667,002120:                                                                                                  #  MUST = NVBNKTEM-1
003668,002121:    1243                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
003669,002122:                                                                                                  #  MUST = NVQTEM+1
003670,002123:    1244                        VERBSAVE           ERASE                                          #  NEEDED FOR RECYCLE
003671,002124:    1245                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
003672,002125:    1246                        DSPLIST            ERASE                                          #  WAITING REG FOR DSP SYST INTERNAL USE
003673,002126:    1247                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
003674,002127:    1250                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003675,002128:    1253                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003676,002129: 
003677,002130: 
003678,002131:    1256     1254               DSPTEMX            EQUALS   DSPTEM2    +1                         #  B(2) S-S DISPLAY BUFFER FOR EXT. VERBS.
003679,002132:    1256     1250               NORMTEM1           EQUALS   DSPTEM1                               #  B(3)DSP NORMAL DISPLAY REGISTERS.
003680,002133: 
003681,002134: 
003682,002135: 
003683,002136:                                                                                                  #        DISPLAY FOR EXTENDED VERBS                                      (2D)
003684,002137: 
003685,002138:    1256     1255               OPTIONX            EQUALS   DSPTEMX    +1                         #  B(2) EXT VB OPTION CODE

Page 83

003687,002140:    1256                        OPTIONEV           ERASE                                          
003688,002141: 
003689,002142: 
003690,002143: 
003691,002144:                                                                                                  #        TBASE S AND PHSPRDT S.                                          (12D)
003692,002145: 
003693,002146:    1257                        TBASE1             ERASE                                          #  B(1)PRM
003694,002147:    1260                        PHSPRDT1           ERASE                                          #  B(1)PRM
003695,002148:    1261                        TBASE2             ERASE                                          #  B(1)PRM
003696,002149:    1262                        PHSPRDT2           ERASE                                          #  B(1)PRM
003697,002150:    1263                        TBASE3             ERASE                                          #  B(1)PRM
003698,002151:    1264                        PHSPRDT3           ERASE                                          #  B(1)PRM
003699,002152:    1265                        TBASE4             ERASE                                          #  B(1)PRM
003700,002153:    1266                        PHSPRDT4           ERASE                                          #  B(1)PRM
003701,002154:    1267                        TBASE5             ERASE                                          #  B(1)PRM
003702,002155:    1270                        PHSPRDT5           ERASE                                          #  B(1)PRM
003703,002156:    1271                        TBASE6             ERASE                                          #  B(1)PRM
003704,002157:    1272                        PHSPRDT6           ERASE                                          #  B(1)PRM
003705,002158: 
003706,002159: 
003707,002160:                                                                                                  #  V37 TEMP STORAGE                                                      (2D)
003708,002161:    1273     1264               MMTEMP             EQUALS   PHSPRDT3                              #  B(1)TMP
003709,002162:    1273     1265               BASETEMP           EQUALS   TBASE4                                #  B(1)TMP
003710,002163: 
003711,002164:                                                                                                  #        MORE UNSWITCHED FOR DISPLAY INF                                 (4D)
003712,002165: 
003713,002166:    1273                        EBANKSAV           ERASE                                          
003714,002167:    1274     1273               DSPFLG             =        EBANKSAV                              
003715,002168:    1274                        MARKFLAG           ERASE                                          
003716,002169:    1275                        EBANKTEM           ERASE                                          
003717,002170:    1276                        MARK2PAC           ERASE                                          
003718,002171: 
003719,002172: 
003720,002173:                                                                                                  #  MISCELLANEOUS UNSWITCHED                                              (19D)
003721,002174:    1277                        1/PIPADT           ERASE                                          #  B(1)PRM
003722,002175:    1300     1277               OLDBT1             =        1/PIPADT                              
003723,002176: 
003724,002177:    1300                        LONGCADR           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003725,002178:    1302                        LONGBASE           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003726,002179:    1304                        LONGTIME           ERASE    +1                                    #  B(2)    LONGCALL REGISTER
003727,002180: 
003728,002181: 
003729,002182: 
003730,002183:                                                                                                  #        MISC. INCLUDING RESTART COUNTER, GIMBAL ANGLE  SAVE  AND
003731,002184:                                                                                                  #        STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK)
003732,002185: 
003733,002186:    1306                        REDOCTR            ERASE                                          #  B(1)PRM CONTAINS NUMBER OF RESTARTS.
003734,002187:    1307                        THETAD             ERASE    +2                                    #  B(3)PRM DESIRED GIM ANGLES FOR MANEUVER.
003735,002188:    1312     1307               CPHI               =        THETAD                                #          (OUTER)

Page 84

003737,002190:    1312     1310               CTHETA             =        THETAD     +1                         #          (INNER)
003738,002191:    1312     1311               CPSI               =        THETAD     +2                         #          (MIDDLE)
003739,002192: 
003740,002193:                                                                                                  #        ENTRY VARIABLES SHARED FOR TM.                                  (4D)
003741,002194: 
003742,002195:    1312     1307               RDOTREF            =        THETAD                                #  I(2)    P65
003743,002196:    1312     1311               VREF               =        RDOTREF    +2                         #  I(2)    P65   HI-ORDER WORD ONLY DNLNK'D
003744,002197:    1312                        DESOPTT            ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003745,002198:    1313                        DESOPTS            ERASE                                          #  B(1)DSP NOUN 92 FOR P20,22,52, R52.
003746,002199: 
003747,002200:    1314                        DELV               ERASE    +5                                    #  I(6)
003748,002201:    1322     1314               DELVX              =        DELV                                  
003749,002202:    1322     1316               DELVY              =        DELV       +2                         
003750,002203:    1322     1320               DELVZ              =        DELV       +4                         
003751,002204: 
003752,002205: 
003753,002206:                                                                                                  #        T4RUPT ERASABLE.                                                (6D)
003754,002207: 
003755,002208:    1322                        DSRUPTSW           ERASE                                          
003756,002209:    1323                        OPTIND             ERASE                                          
003757,002210:    1324                        LGYRO              ERASE                                          
003758,002211:    1325                        COMMANDO           ERASE    +1                                    
003759,002212:    1327                        ZONE               ERASE                                          #  B(1)PRM USED IN SHAFT STOP MONITOR
003760,002213: 
003761,002214: 
003762,002215:                                                                                                  #        MODE SWITCHING ERASABLE.                                        (09D)
003763,002216: 
003764,002217:    1330                        DESOPMOD           ERASE                                          #  B(1)PRM
003765,002218:    1331                        WTOPTION           ERASE                                          #  B(1)PRM
003766,002219:    1332                        ZOPTCNT            ERASE                                          #  B(1)PRM
003767,002220: 
003768,002221: 
003769,002222:    1333                        IMODES30           ERASE                                          #  B(1)PRM
003770,002223:    1334     4752               TLIMBIT            =        BIT15                                 #  IMU TEMP NOT          IMU TEMP WITHIN
003771,002224:                                                                                                  #  WITHIN LIMITS         LIMITS
003772,002225: 
003773,002226:    1334     4753               TONISSBT           =        BIT14                                 #  ISS OFF               ISS ON
003774,002227: 
003775,002228:    1334     4754               IMUFLBIT           =        BIT13                                 #  IMU OK                IMU FAIL IS ON
003776,002229: 
003777,002230:    1334     4755               ICDUFLBT           =        BIT12                                 #  IMU CDU OK            IMU CDU FAIL IS ON
003778,002231: 
003779,002232:    1334     4756               CAGEBIT            =        BIT11                                 #  IMU CAGE NOT ON       IMU CAGE ON
003780,002233: 
003781,002234:    1334     4757               PIPAFLBT           =        BIT10                                 #  PIPA OK               PIPA FAIL IS ON
003782,002235: 
003783,002236:    1334     4760               IMUOPBIT           =        BIT9                                  #  IMU OFF OR NOT OK     IMU ON AND OK
003784,002237: 
003785,002238:    1334     4761               ITNON2BT           =        BIT8                                  #  IMU TURN ON DELAYED   IMU TURN ON ALLOWED
003786,002239: 

Page 85

003788,002241:    1334     4762               ITNON1BT           =        BIT7                                  #  IMU TURN ON DELAYED   IMU TURN ON ALLOWED
003789,002242: 
003790,002243:    1334     4763               IMUNITBT           =        BIT6                                  #  IMU INIT IN PROCESS   IMU NOT BEING INIT.
003791,002244: 
003792,002245:    1334     4764               NOACCALM           =        BIT5                                  #  INHIBIT PIPA ALARM    ALLOW PIPA ALARM
003793,002246: 
003794,002247:    1334     4765               IMUFINHT           =        BIT4                                  #  INHIBIT IMU WARNING   ALLOW IMU WARNING
003795,002248: 
003796,002249:    1334     4766               ICDUINHT           =        BIT3                                  #  INHIBIT CDU WARNING   ALLOW CDU WARNING
003797,002250: 
003798,002251:    1334     4767               DLAYFAIL           =        BIT2                                  #  TURNON DELAY FAIL     TURN DELAY OK
003799,002252: 
003800,002253:    1334     4770               ACCFINHT           =        BIT1                                  #  INHIBIT PIPA          ALLOW PIPA WARNING
003801,002254:                                                                                                  #          WARNING
003802,002255: 
003803,002256:    1334                        IMODES33           ERASE                                          #  B(1)PRM
003804,002257:    1335     4753               PROCDBIT           =        BIT14                                 #  PROCEED OFF           PROCEED ON
003805,002258: 
003806,002259:    1335     4754               PIP2FLBT           =        BIT13                                 #  PIPA OK               PIPA FAIL IS ON
003807,002260: 
003808,002261:    1335     4755               DNLKFAIL           =        BIT12                                 #  DOWNLINK OK           DOWNLINK FAIL
003809,002262: 
003810,002263:    1335     4756               UPLKFAIL           =        BIT11                                 #  UPLINK OK             UPLINK TOO FAST
003811,002264: 
003812,002265:    1335     4763               NOIMUDAP           =        BIT6                                  #  DONT USE IMU FOR      OK TO USE IMU FOR
003813,002266:                                                                                                  #   VEHICLE ATTITUDE        VEHICLE ATTITUDE
003814,002267: 
003815,002268:    1335     4764               IMUZROBT           =        BIT5                                  #  IMU ZEROING           IMU NOT ZEROING
003816,002269: 
003817,002270:    1335     4770               LMPTSTBT           =        BIT1                                  #  LAMP TEST REQUESTED   LAMP TEST NOT ON
003818,002271: 
003819,002272: 
003820,002273:    1335                        MODECADR           ERASE    +1                                    #  B(2)TMP
003821,002274:    1337     1335               IMUCADR            =        MODECADR                              
003822,002275:    1337     1336               OPTCADR            =        MODECADR   +1                         
003823,002276: 
003824,002277:    1337                        OPTMODES           ERASE                                          #  B(1)PRM *****MUST PRECEDE HOLDFLAG
003825,002278:                                                                                                  #                FOR DOWNLINK
003826,002279:    1340     4757               ZROPTFIN           =        BIT10                                 #  OPTICS ZERO FINISH    OPTICS BEING ZEROED
003827,002280: 
003828,002281:    1340     4762               OCDUFBIT           =        BIT7                                  #  OPTICS CDU OK         OPTICS CDU FAIL
003829,002282: 
003830,002283:    1340     4764               OPMD1BIT           =        BIT5                                  #  OPTICS MODE NOT SET   OPTICS MODE SET TO
003831,002284:                                                                                                  #  TO COMPUTER CONTROL     COMPUTER CONTROL
003832,002285: 
003833,002286:    1340     4765               OPMD2BIT           =        BIT4                                  #  OPTICS MODE NOT SET   OPTICS MODE SET TO
003834,002287:                                                                                                  #    TO ZERO OPTICS        ZERO OPTICS
003835,002288: 
003836,002289:    1340     4766               ZOPTCS             =        BIT3                                  #  OPTICS MODE           OPTICS MODE NOT

Page 86

003838,002291:                                                                                                  #  SWITCHED TO ZERO      SWITCHED TO ZERO
003839,002292:                                                                                                  #  OPTICS                OPTICS
003840,002293: 
003841,002294:    1340     4767               OCDUINHT           =        BIT2                                  #  INHIBIT TRACKER       ALLOW TRACKER ALARM
003842,002295:                                                                                                  #   ALARM
003843,002296: 
003844,002297:    1340                        HOLDFLAG           ERASE                                          #  B(1)PRM  **** MUST FOLLOW OPTMODES
003845,002298:                                                                                                  #                FOR DOWNLINK
003846,002299: 
003847,002300: 
003848,002301: 
003849,002302:                                                                                                  #        ERASABLE FOR SXTMARK CDU CHECK DELAY.  -PAD LOADED-             (1D)
003850,002303: 
003851,002304:    1341                        CDUCHKWD           ERASE                                          #  B(1) PL
003852,002305: 
003853,002306:                                                                                                  #        P37    **RETURN TO EARTH  (PAD LOAD) ****                       (2D)
003854,002307: 
003855,002308:    1342                        RTED1              ERASE    +1                                    #  I(2)PL VGAMMA POLY COEF               B-3
003856,002309: 
003857,002310:                                                                                                  #        P40    ***STEERING ROUTINE*** PAD LOAD                          (1D)
003858,002311: 
003859,002312:    1344                        DVTHRESH           ERASE                                          #  I(1)PL  DELTA V THRESHOLD FOR LOW THRUST
003860,002313:                                                                                                  #          ROUTINE                       B-2
003861,002314: 
003862,002315:                                                                                                  #        P23    ***PAD LOAD****                                          (2D)
003863,002316: 
003864,002317:    1345                        HORIZALT           ERASE    +1                                    #  I(2)PL  HORIZION ALTITUDE          M B-29
003865,002318: 
003866,002319:                                                                                                  #        P-20       ALTERNATE LOS VARIANCE     PAD LOAD*****             (1D)
003867,002320:                                                                                                  #                                  -16
003868,002321:    1347                        ALTVAR             ERASE                                          #  I(2)PL MILLARD. SQUARED SCALED 2
003869,002322: 
003870,002323: 
003871,002324:                                                                                                  #        PAD LOADED FOR DAP                                              (1D)
003872,002325: 
003873,002326:    1350                        EMDOT              ERASE                                          #  I(1)PL  SPS FLOW RATE   KG/CS B+3
003874,002327: 
003875,002328: 
003876,002329:                                                                                                  #        UNIVERSAL TRACKING STORAGE                                      (3D)
003877,002330: 
003878,002331:    1351                        OPTNTYPE           ERASE                                          #  B(1)
003879,002332:    1352                        AZIMANGL           ERASE    +1                                    #  B(2)
003880,002333: 

Page 87

003882,002335:                                                                                                  #        MODE SW. ERASABLE               (1D)
003883,002336: 
003884,002337:    1354                        SWSAMPLE           ERASE                                          #  B(1)PRM
003885,002338: 
003886,002339: 
003887,002340:                                                                                                  #        UT PERMANENT STORAGE                                            (2D)
003888,002341: 
003889,002342:    1355                        R67TIME            ERASE    +1                                    #  B(2)
003890,002343:    1357     1355               UTSTARNO           EQUALS   R67TIME                               #  B(1)
003891,002344: 
003892,002345: 
003893,002346:                                                                                                  #        MINKEY CONTROLLER TEMP RESTART STORAGE                          (1D)
003894,002347: 
003895,002348:    1357     1356               AUTTEMP            EQUALS   R67TIME    +1                         #  B(1)
003896,002349: 
003897,002350: 
003898,002351:                                                                                                  #        SELF-CHECK ASSIGNMENTS.                                         (17D)
003899,002352: 
003900,002353:                                                                                                  #                                (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003901,002354: 
003902,002355:    1357                        SELFERAS           ERASE    1357       -          1377            #  ***MUST NOT BE MOVED*** 
003903,002356:    1357     1357               SFAIL              EQUALS   SELFERAS                              #  B(1)
003904,002357:    1357     1360               ERESTORE           EQUALS   SFAIL      +1                         #  B(1)
003905,002358:    1357     1361               SELFRET            EQUALS   ERESTORE   +1                         #  B(1)    RETURN
003906,002359:    1357     1362               SMODE              EQUALS   SELFRET    +1                         #  B(1)
003907,002360:    1357     1363               ALMCADR            EQUALS   SMODE      +1                         #  B(2)     ALARM-ABORT USER'S 2CADR
003908,002361:    1357     1365               ERCOUNT            EQUALS   ALMCADR    +2                         #  B(1)
003909,002362:    1357     1366               SCOUNT             EQUALS   ERCOUNT    +1                         #  B(3)
003910,002363:    1357     1371               SKEEP1             EQUALS   SCOUNT     +3                         #  B(1)
003911,002364:    1357     1372               SKEEP2             EQUALS   SKEEP1     +1                         #  B(1)
003912,002365:    1357     1373               SKEEP3             EQUALS   SKEEP2     +1                         #  B(1)
003913,002366:    1357     1374               SKEEP4             EQUALS   SKEEP3     +1                         #  B(1)
003914,002367:    1357     1375               SKEEP5             EQUALS   SKEEP4     +1                         #  B(1)
003915,002368:    1357     1376               SKEEP6             EQUALS   SKEEP5     +1                         #  B(1)
003916,002369:    1357     1377               SKEEP7             EQUALS   SKEEP6     +1                         #  B(1)
003917,002370: 
003918,002371: 
003919,002372: 

Page 88

003921,002374:                                                                                                  #        EBANK-3 ASSIGNMENTS
003922,002375: 
003923,002376: E3,1400                                           SETLOC   1400                                  
003924,002377: 
003925,002378:                                                                                                  #        WAITLIST TASK LISTS.                                            (26D)
003926,002379: 
003927,002380: E3,1400                        LST1               ERASE    +7                                    #  B(8D)PRM  DELTA T S.
003928,002381: E3,1410                        LST2               ERASE    +17D                                  #  B(18D)PRM TASK 2CADR ADDRESSES.
003929,002382: 
003930,002383: 
003931,002384:                                                                                                  #        RESTART STORAGE.                                                (2D)
003932,002385: 
003933,002386: E3,1432                        RSBBQ              ERASE    +1                                    #  B(2)PRM SAVE BB AND Q FOR RESTARTS.
003934,002387: 
003935,002388: 
003936,002389:                                                                                                  #        MORE LONGCALL STORAGE. (MUST BE IN LST1 S BANK).                (2D)
003937,002390: 
003938,002391: E3,1434                        LONGEXIT           ERASE    +1                                    #  B(2)TMP MAY BE SELDOM OVERLAYED.
003939,002392: 
003940,002393: 
003941,002394:                                                                                                  #        PHASE-CHANGE LISTS PART II.                                     (12D)
003942,002395: 
003943,002396: E3,1436                        PHSNAME1           ERASE                                          #  B(1)PRM
003944,002397: E3,1437                        PHSBB1             ERASE                                          #  B(1)PRM
003945,002398: E3,1440                        PHSNAME2           ERASE                                          #  B(1)PRM
003946,002399: E3,1441                        PHSBB2             ERASE                                          #  B(1)PRM
003947,002400: E3,1442                        PHSNAME3           ERASE                                          #  B(1)PRM
003948,002401: E3,1443                        PHSBB3             ERASE                                          #  B(1)PRM
003949,002402: E3,1444                        PHSNAME4           ERASE                                          #  B(1)PRM
003950,002403: E3,1445                        PHSBB4             ERASE                                          #  B(1)PRM
003951,002404: E3,1446                        PHSNAME5           ERASE                                          #  B(1)PRM
003952,002405: E3,1447                        PHSBB5             ERASE                                          #  B(1)PRM
003953,002406: E3,1450                        PHSNAME6           ERASE                                          #  B(1)PRM
003954,002407: E3,1451                        PHSBB6             ERASE                                          #  B(1)PRM
003955,002408: 
003956,002409: 
003957,002410:                                                                                                  #        IMU COMPENSATION PARAMETERS.                                            (22D)
003958,002411: 
003959,002412: E3,1452                        PBIASX             ERASE                                          #  B(1)   PIPA BIAS, PIPA SCALE FACTR TERMS
003960,002413: E3,1453  E3,1452               PIPABIAS           =        PBIASX                                #      INTERMIXED.
003961,002414: E3,1453                        PIPASCFX           ERASE                                          
003962,002415: E3,1454  E3,1453               PIPASCF            =        PIPASCFX                              
003963,002416: E3,1454                        PBIASY             ERASE                                          
003964,002417: E3,1455                        PIPASCFY           ERASE                                          
003965,002418: E3,1456                        PBIASZ             ERASE                                          
003966,002419: E3,1457                        PIPASCFZ           ERASE                                          
003967,002420: 
003968,002421: E3,1460                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
003969,002422: E3,1461                        NBDY               ERASE                                          
003970,002423: E3,1462                        NBDZ               ERASE                                          
003971,002424: 

Page 89

003973,002426: E3,1463                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003974,002427: E3,1464                        ADIAY              ERASE                                          #      INPUT AXIS
003975,002428: E3,1465                        ADIAZ              ERASE                                          
003976,002429: 
003977,002430: E3,1466                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
003978,002431: E3,1467                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
003979,002432: E3,1470                        ADSRAZ             ERASE                                          
003980,002433: 
003981,002434: E3,1471                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
003982,002435: 
003983,002436: E3,1477                        GCOMPSW            ERASE                                          
003984,002437: E3,1500  E3,1471               COMMAND            EQUALS   GCOMP                                 
003985,002438: E3,1500  E3,1474               CDUIND             EQUALS   GCOMP      +3                         
003986,002439: 
003987,002440:                                                                                                  #        STATE VECTORS FOR ORBIT INTEGRATION.                            (44D)
003988,002441: 
003989,002442:                                                                                                  #                                (DIFEQCNT THRU XKEP MUST BE IN SAME
003990,002443:                                                                                                  #                                  EBANK AS RRECTCSM, RRECTLEM ETC
003991,002444:                                                                                                  #                                  BECAUSE THE COPY-CYCLES (ATOPCSM,
003992,002445:                                                                                                  #                                  PTOACSM ETC) ARE EXECUTED IN BASIC.
003993,002446:                                                                                                  #                                    ALL OTHER REFERENCES TO THIS GROUP
003994,002447:                                                                                                  #                                  ARE BY INTERPRETIVE INSTRUCTIONS.)
003995,002448: 
003996,002449: E3,1500                        DIFEQCNT           ERASE    +43D                                  #  B(1)TMP
003997,002450:                                                                                                  #                                (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003998,002451: 
003999,002452: E3,1554  E3,1501               UPSVFLAG           EQUALS   DIFEQCNT   +1                         #  B(1)PRM UPDATE FLAG
004000,002453: E3,1554  E3,1502               RRECT              EQUALS   UPSVFLAG   +1                         #  B(6)TMP POS AT RECT            KM*2(-14)
004001,002454: E3,1554  E3,1510               VRECT              EQUALS   RRECT      +6                         #  B(6)TMP VEL AT RECT        KM(-1/2)*2(6)
004002,002455: E3,1554  E3,1516               TET                EQUALS   VRECT      +6                         #  B(2)TMP TIME OF STATE VECT  CSECS*2(-28)
004003,002456: E3,1554  E3,1520               TDELTAV            EQUALS   TET        +2                         #  B(6)TMP POSITION DEVIATION      KM*2(14)
004004,002457: E3,1554  E3,1526               TNUV               EQUALS   TDELTAV    +6                         #  B(6)TMP VEL DEVIATION     KM(-1/2)*2(14)
004005,002458: E3,1554  E3,1534               RCV                EQUALS   TNUV       +6                         #  B(6)TMP CONIC POSITION         KM*2(-14)
004006,002459: E3,1554  E3,1542               VCV                EQUALS   RCV        +6                         #  B(6)TMP CONIC VELOCITY     KM(-1/2)*2(6)
004007,002460: E3,1554  E3,1550               TC                 EQUALS   VCV        +6                         #  B(2)TMP TIME SINCE RECTIFICATION
004008,002461: E3,1554  E3,1552               XKEP               EQUALS   TC         +2                         #  B(2)TMP ROOT OF KEPLER EQ KM(1/2.*2(-10)
004009,002462: 
004010,002463: E3,1554  E3,1552               XPREV              =        XKEP                                  #  I(2)TMP
004011,002464:                                                                                                  #      **** TEMP - IN VAC AREA ****
004012,002465: E3,1554                        RRECT1             EQUALS   18D                                   
004013,002466: E3,1554                        VRECT1             EQUALS   24D                                   
004014,002467: E3,1554                        TET1               EQUALS   30D                                   
004015,002468: 
004016,002469: 
004017,002470: 
004018,002471:                                                                                                  #        PERMANENT STATE VECTORS AND TIMES.                              (99D)
004019,002472: 
004020,002473:                                                                                                  #        (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
004021,002474: 

Page 90

004023,002476:                                                                                                  #        (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
004024,002477: 
004025,002478: E3,1554                        RRECTCSM           ERASE    +5                                    #  B(6)PRM CSM VARIABLES.
004026,002479: E3,1562  E3,1554               RRECTHIS           =        RRECTCSM                              
004027,002480: E3,1562                        VRECTCSM           ERASE    +5                                    #  B(6)PRM
004028,002481: E3,1570                        TETCSM             ERASE    +1                                    #  B(2)PRM
004029,002482: E3,1572  E3,1570               TETTHIS            =        TETCSM                                
004030,002483: E3,1572                        DELTACSM           ERASE    +5                                    #  B(6)PRM
004031,002484: E3,1600                        NUVCSM             ERASE    +5                                    #  B(6)PRM
004032,002485: E3,1606                        RCVCSM             ERASE    +5                                    #  B(6)PRM
004033,002486: E3,1614                        VCVCSM             ERASE    +5                                    #  B(6)PRM
004034,002487: E3,1622                        TCCSM              ERASE    +1                                    #  B(2)PRM
004035,002488: E3,1624                        XKEPCSM            ERASE    +1                                    #  B(2)PRM
004036,002489: 
004037,002490:                                                                                                  #        (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
004038,002491: 
004039,002492: E3,1626                        RRECTLEM           ERASE    +5                                    #  B(6)PRM LEM VARIABLES
004040,002493: E3,1634  E3,1626               RRECTOTH           =        RRECTLEM                              
004041,002494: E3,1634                        VRECTLEM           ERASE    +5                                    #  B(6)PRM
004042,002495: E3,1642                        TETLEM             ERASE    +1                                    #  B(2)PRM
004043,002496: E3,1644  E3,1642               TETOTHER           =        TETLEM                                
004044,002497: E3,1644                        DELTALEM           ERASE    +5                                    #  B(6)PRM
004045,002498: E3,1652                        NUVLEM             ERASE    +5                                    #  B(6)PRM
004046,002499: E3,1660                        RCVLEM             ERASE    +5                                    #  B(6)PRM
004047,002500: E3,1666                        VCVLEM             ERASE    +5                                    #  B(6)PRM
004048,002501: E3,1674                        TCLEM              ERASE    +1                                    #  B(2)PRM
004049,002502: E3,1676                        XKEPLEM            ERASE    +1                                    #  B(2)PRM
004050,002503: 
004051,002504: E3,1700                        X789               ERASE    +5                                    
004052,002505: E3,1706                        TEPHEM             ERASE    +2                                    
004053,002506: E3,1711                        UNITW              ERASE    +5                                    
004054,002507: E3,1717  E3,1711               -AYO               EQUALS   UNITW                                 #   (2)
004055,002508: E3,1717  E3,1713               AXO                EQUALS   UNITW      +2                         #   (2)
004056,002509: 
004057,002510: 
004058,002511: 
004059,002512:                                                                                                  #        STATE VECTORS FOR DOWNLINK.                                     (12D)
004060,002513: 
004061,002514: E3,1717                        R-OTHER            ERASE    +5                                    #  B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
004062,002515: E3,1725                        V-OTHER            ERASE    +5                                    #  B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
004063,002516: 
004064,002517: E3,1733  E3,1642               T-OTHER            =        TETLEM                                #              TIME (OTHER VECH) FOR DNLINK
004065,002518: 
004066,002519: 
004067,002520:                                                                                                  #        REFSMMAT.                                                       (18D)
004068,002521: 
004069,002522: E3,1733                        REFSMMAT           ERASE    +17D                                  #  I(18D)PRM
004070,002523: 
004071,002524:                                                                                                  #        AVERAGEG INTEGRATOR STORAGE.                                    (6D)
004072,002525: 

Page 91

004074,002527: E3,1755                        UNITR              ERASE    +5                                    
004075,002528: 
004076,002529: 
004077,002530: 
004078,002531:                                                                                                  #        TEMP STORAGE FOR N90 DISPLAY IN RENDEZVOUS TARGETING PROGRAMS   (6D)
004079,002532: E3,1763  E3,1755               YCSM               EQUALS   UNITR                                 
004080,002533: E3,1763  E3,1757               YDOTC              EQUALS   YCSM       +2                         
004081,002534: E3,1763  E3,1761               YDOTL              EQUALS   YDOTC      +2                         
004082,002535: 
004083,002536: 
004084,002537:                                                                                                  #        P40 PAD LOADS                                                   (3D)
004085,002538: 
004086,002539: E3,1763                        EIMP1SEC           ERASE                                          #  I(1)PL E-2 B-14 NEWT-SEC BR-PT AT 1 SEC
004087,002540: E3,1764                        EFIMP01            ERASE                                          #  I(1)PL E-2 B-14 NEWT SLOPE 0-1 SEC SEG
004088,002541: E3,1765                        EFIMP16            ERASE                                          #  I(1)PL E-2 B-14 NEWT SLOPE 1-6 SEC SEG
004089,002542: 
004090,002543: 
004091,002544: 
004092,002545:                                                                                                  #  **********LUNAR MODULE CHANGE  ***********                            (2D)
004093,002546: 
004094,002547: E3,1766  E3,1766               E3J22R2M           EQUALS   EFIMP16    +1                         
004095,002548: E3,1766  E3,1767               E32C31RM           EQUALS   E3J22R2M   +1                         
004096,002549: 
004097,002550: 
004098,002551:                                                                                                  #      **** CONICSEX (PLANETARY INERT. ORIEN.) ****
004099,002552: 
004100,002553: E3,1766  E3,1706               TIMSUBO            EQUALS   TEPHEM                                #  CSEC B-42 (TRIPLE PREC)
004101,002554: 
004102,002555: 
004103,002556:                                                                                                  #        P23 PAD LOAD (2D)
004104,002557: 
004105,002558:                                                                                                  #  ** P24  PAD LOADS **    (2D)
004106,002559: 
004107,002560: E3,1766  E3,1770               TRUNSF             EQUALS   E32C31RM   +1                         #  I(1)PL
004108,002561: E3,1766  E3,1771               SHAFTSF            EQUALS   TRUNSF     +1                         #  I(1)PL
004109,002562: 

Page 92

004111,002564: 
004112,002565:                                                                                                  #                EBANK-4 ASSIGNMENTS
004113,002566: 
004114,002567: E4,1400                                           SETLOC   2000                                  
004115,002568: 
004116,002569: 
004117,002570: E4,1400                        ERASPIP            EQUALS                                         #  ENTRANCE TO ERASABLE PIPA TEST PROGRAM
004118,002571:                                                                                                  #        P20 STORAGE.            -PAD LOADED-                            (4D)
004119,002572: 
004120,002573: E4,1400                        WRENDPOS           ERASE                                          #  B(1)PL                            M B-14
004121,002574: E4,1401                        WRENDVEL           ERASE                                          #  B(1)PL                          M/CSECB0
004122,002575: E4,1402                        RMAX               ERASE                                          #  B(1)PL                     METERS*2(-19)
004123,002576: E4,1403                        VMAX               ERASE                                          #  B(1)PL                      M/CSEC*2(-7)
004124,002577: 
004125,002578: 
004126,002579:                                                                                                  #        P22 STORAGE.            -PAD LOADED-                            (5D)
004127,002580: 
004128,002581: E4,1404                        WORBPOS            ERASE                                          #  B(1)PL                            M B-14
004129,002582: E4,1405                        WORBVEL            ERASE                                          #  B(1)PL                          M/CSECB0
004130,002583: E4,1406                        S22WSUBL           ERASE                                          #  B(1)PL                            M B-14
004131,002584: E4,1407                        RPVAR              ERASE    +1                                    #  B(2)PL
004132,002585: 
004133,002586: 
004134,002587:                                                                                                  #        CONISEX STORAGE.        -PAD LOADED-                            (6D)
004135,002588: 
004136,002589: E4,1411                        504LM              ERASE    +5                                    #  I(6)MOON LIBRATION VECTOR
004137,002590: 
004138,002591: 
004139,002592: 
004140,002593:                                                                                                  #        ENTRY STORAGE.          -PAD LOADED-                            (2D)
004141,002594: 
004142,002595: E4,1417                        EMSALT             ERASE    +1                                    #  I(2)PL
004143,002596: 
004144,002597: 
004145,002598:                                                                                                  #        P35 CONSTANTS.          -PAD LOADED-                            (4D)
004146,002599: 
004147,002600: E4,1421                        ATIGINC            ERASE    +1                                    #  B(2)PL
004148,002601: E4,1423                        PTIGINC            ERASE    +1                                    #  B(2)PL
004149,002602: 
004150,002603: 
004151,002604:                                                                                                  #        LUNAR LANDING SIGHT DATA. -PAD LOADED-                          (6D)
004152,002605:                                                                                                  #        (USED BY INTEGRATION INITIALIZATION,LAT-LONG SUBROUTINES, P30'S)
004153,002606: 
004154,002607: E4,1425                        RLS                ERASE    +5                                    #  I(6) PL  LUNAR LANDING SIGHT VECTOR
004155,002608: 
004156,002609: 
004157,002610: 
004158,002611:                                                                                                  #  CONISEX (LUNAR AND SOLAR EPHEM)STORAGE. -PAD LOADED-                  (77D)
004159,002612: 
004160,002613: E4,1433                        TIMEMO             ERASE    +76D                                  
004161,002614: E4,1550  E4,1436               VECOEM             EQUALS   TIMEMO     +3                         

Page 93

004163,002616: E4,1550  E4,1532               RESO               EQUALS   VECOEM     +60D                       
004164,002617: E4,1550  E4,1540               VESO               EQUALS   RESO       +6                         
004165,002618: E4,1550  E4,1546               OMEGAES            EQUALS   VESO       +6                         
004166,002619: 
004167,002620: 
004168,002621:                                                                                                  #        FULL INTEGRATION STORAGE.                                       (88D)
004169,002622: 
004170,002623: E4,1550                        PBODY              ERASE                                          #  I(1)
004171,002624: E4,1551  E4,1551               ALPHAV             EQUALS   PBODY      +1                         #  I(6)TMP
004172,002625: E4,1551  E4,1557               BETAV              EQUALS   ALPHAV     +6                         #  I(6)TMP
004173,002626: E4,1551  E4,1565               PHIV               EQUALS   BETAV      +6                         #  I(6)TMP
004174,002627: E4,1551  E4,1573               PSIV               EQUALS   PHIV       +6                         #  I(6)TMP
004175,002628: E4,1551  E4,1601               FV                 EQUALS   PSIV       +6                         #  I(6)TMP
004176,002629: E4,1551  E4,1607               BETAM              EQUALS   FV         +6                         #  I(6)TMP
004177,002630: E4,1551  E4,1611               H                  EQUALS   BETAM      +2                         #  I(2)TMP
004178,002631: E4,1551  E4,1613               IRETURN            EQUALS   H          +2                         #  I(1) TMP
004179,002632: E4,1551  E4,1614               NORMGAM            EQUALS   IRETURN    +1                         #  I(1)TMP
004180,002633: E4,1551  E4,1615               VECTAB             EQUALS   NORMGAM    +1                         #  I(36)TMP
004181,002634: E4,1551  E4,1661               RPQV               EQUALS   VECTAB     +36D                       #   (6)TMP VECTOR PRIMARY TO SECONDARY BODY
004182,002635: E4,1551  E4,1667               ORIGEX             EQUALS   RPQV       +6                         #  B(1)TMP QSAVE FOR COORD. SWITCH. ROUTINE
004183,002636: E4,1551  E4,1667               KEPRTN             EQUALS   ORIGEX                                #          QSAVE FOR KEPLER
004184,002637: E4,1551  E4,1670               RPSV               EQUALS   ORIGEX     +1                         #  I(6) TMP SUN TO PRIMARY BODY VECTOR
004185,002638: E4,1551  E4,1676               XKEPNEW            EQUALS   RPSV       +6                         #   (2)TMP ROOT OF KEPLERS EQU FOR TIME TAU
004186,002639: 
004187,002640: 
004188,002641:                                                                                                  #        THESE PROBABLY CAN SHARE INTEGRATION VARIABLES.                 (3D)
004189,002642: 
004190,002643:                                                                                                  #        LAT-LONG STORAGE
004191,002644: 
004192,002645: E4,1551  E4,1637               ERADM              EQUALS   VECTAB     +18D                       #  I(2)TMP
004193,002646: E4,1551  E4,1641               INCORPEX           EQUALS   ERADM      +2                         #  I(1)TMP
004194,002647: 
004195,002648: 
004196,002649:                                                                                                  #        R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE-             (24D)
004197,002650: 
004198,002651: 
004199,002652: E4,1551  E4,1623               BASEOTP            EQUALS   VECTAB     +6                         #  I(6) BASE POS VECTOR OTHER VEH
004200,002653: E4,1551  E4,1637               BASEOTV            EQUALS   VECTAB     +18D                       #  I(6) BASE VEL VECTOR OTHER VEH
004201,002654: E4,1551  E4,1653               BASETHP            EQUALS   VECTAB     +30D                       #  I(6) BASE POS VECTOR THIS VEH
004202,002655: E4,1551  E4,1661               BASETHV            EQUALS   RPQV                                  #  I(6) BASE VEL VECTOR THIS VEH
004203,002656: 
004204,002657: 
004205,002658:                                                                                                  #        CONIC INTEGRATION STORAGE.      -MAY NOT SHARE WITH SERVICER-   (6D)
004206,002659: 
004207,002660: E4,1551  E4,1700               ALPHAM             EQUALS   XKEPNEW    +2                         #  I(2)TMP
004208,002661: E4,1551  E4,1702               TAU.               EQUALS   ALPHAM     +2                         #  I(2)TMP
004209,002662: E4,1551  E4,1704               DT/2               EQUALS   TAU.       +2                         #  I(2)TMP
004210,002663: 
004211,002664: 
004212,002665:                                                                                                  #        R61 STORAGE                                                     (2D)
004213,002666: 

Page 94

004215,002668: E4,1551  E4,1706               R63TIME            EQUALS   DT/2       +2                         #  I(2)TMP
004216,002669: 
004217,002670: 
004218,002671: 
004219,002672:                                                                                                  #        INTEGRATION STORAGE                                             (1D)
004220,002673: E4,1551  E4,1710               EGRESS             EQUALS   R63TIME    +2                         
004221,002674: 
004222,002675: 
004223,002676:                                                                                                  #        VERB 83(N54)AND VERB 90 (N96) DISPLAYS                          (6D)
004224,002677: E4,1551  E4,1711               RANGE              EQUALS   EGRESS     +1                         #  I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
004225,002678: E4,1551  E4,1713               RRATE              EQUALS   RANGE      +2                         #  I(2)DSP NOUN 54 RATE OF APPROACH
004226,002679: E4,1551  E4,1715               RTHETA             EQUALS   RRATE      +2                         #  I(2)DSP NOUN 54
004227,002680: E4,1551  E4,1715               RRATE2             EQUALS   RTHETA                                #  I(2) N96 LM OUT-OF-PLANE RATE
004228,002681: 
004229,002682: 
004230,002683:                                                                                                  #  VERB 83  STORAGE                                                      (14D)
004231,002684: 
004232,002685: E4,1551  E4,1717               RONE               EQUALS   RTHETA     +2                         #  I(6)TMP VECTOR STORAGE. (SCRATCH)
004233,002686: E4,1551  E4,1725               VONE               EQUALS   RONE       +6                         #  I(6)TMP VECTOR STORAGE (SCRATCH)
004234,002687: E4,1551  E4,1733               BASETIME           EQUALS   VONE       +6                         #  I(2)    BASE TIME  ASSOC WITH BASE VECS
004235,002688: 
004236,002689: 
004237,002690: 
004238,002691:                                                                                                  #        V 67 STORAGE                                                    (6D)
004239,002692: 
004240,002693: E4,1551  E4,1711               WWPOS              EQUALS   RANGE                                 #  I(2)TMP
004241,002694: E4,1551  E4,1713               WWVEL              EQUALS   RRATE                                 #  I(2)TMP
004242,002695: E4,1551  E4,1715               WWOPT              EQUALS   RTHETA                                #  I(2)TMP
004243,002696: 
004244,002697: 
004245,002698:                                                                                                  #        S-BAND ANTENNA GIMBAL ANGLES.  DISPLAYED BY R05 (EXT.VB.64)     (4D)
004246,002699:                                                                                                  #               OPERATION DURING P00 ONLY.
004247,002700: 
004248,002701: E4,1551  E4,1711               RHOSB              EQUALS   RANGE                                 #  B(2)DSP NOUN 51.  PITCH ANGLE
004249,002702: E4,1551  E4,1713               GAMMASB            EQUALS   RHOSB      +2                         #  B(2)DSP NOUN 51.  YAW ANGLE
004250,002703: 
004251,002704: 
004252,002705:                                                                                                  #        R 36 SCRATCHPAD STORAGE                                         (18D)
004253,002706: 
004254,002707: E4,1551  E4,1717               VPASS36            EQUALS   RONE                                  #  I (6)S-S
004255,002708: E4,1551  E4,1725               UNP36              EQUALS   VPASS36    +6                         #  I (6)S-S
004256,002709: E4,1551  E4,1733               UNA36              EQUALS   UNP36      +6                         #  I (6)S-S
004257,002710: 
004258,002711: 
004259,002712: 
004260,002713:                                                                                                  #        EXTENDED VERB 82 STORAGE.                                       (6D)
004261,002714: 
004262,002715: E4,1551  E4,1711               HPERMIN            EQUALS   RANGE                                 #  I(2) SET TO 300KFT OR 35KFT FOR SR30.1
004263,002716: E4,1551  E4,1713               RPADTEM            EQUALS   HPERMIN    +2                         #  I(2) PAD OR LANDING RADIUS FOR SR30.1
004264,002717: E4,1551  E4,1715               TSTART82           EQUALS   RPADTEM    +2                         #  I(2) TEMP TIME STORAGE FOR V82.

Page 95

004266,002719: 
004267,002720: 
004268,002721: 
004269,002722:                                                                                                  #        MORE VERB 82 NOT SHARING WITH VERB 83                           (7D)
004270,002723: 
004271,002724: 
004272,002725: E4,1551  E4,1733               V82FLAGS           EQUALS   VONE       +6                         #   (1) FOR V 82 BITS
004273,002726: E4,1551  E4,1734               TFF                EQUALS   V82FLAGS   +1                         #  I(2)  DSP NOUN 50,44
004274,002727: E4,1551  E4,1736               -TPER              EQUALS   TFF        +2                         #  I(2)DSP NOUN 32
004275,002728: E4,1551  E4,1740               THETA(1)           EQUALS   -TPER      +2                         #  I(2) TMP SET AT END OF V82
004276,002729: E4,1551  E4,1746               RSP-RREC           EQUALS   AOPTIME                               #  DSP NOUN 50 FOR V82 DURING P00 AND P11
004277,002730: 
004278,002731: 
004279,002732: 
004280,002733:                                                                                                  #        REENTRY CONICS                                                  (6D)
004281,002734: 
004282,002735: E4,1551  E4,1733               URONE              EQUALS   V82FLAGS                              #  I(6) SAVE ACTUAL FOR CALCULATIONS
004283,002736: 
004284,002737: 
004285,002738:                                                                                                  #        V 82 DISPLAY                                                    (4D)
004286,002739: 
004287,002740: E4,1551  E4,1742               HAPOX              EQUALS   THETA(1)   +2                         #  I(2) DSP NOUN 44
004288,002741: E4,1551  E4,1744               HPERX              EQUALS   HAPOX      +2                         #  I(2) DSP NOUN 44
004289,002742: 
004290,002743: 
004291,002744: 
004292,002745:                                                                                                  #        MINKEY RENDEZVOUS STORAGE                                       (2D)
004293,002746: 
004294,002747: E4,1551  E4,1750               TCSI2              EQUALS   RSP-RREC   +2                         #  I(2) TIME OF NEXT CSI
004295,002748: 
004296,002749: 
004297,002750:                                                                                                  #        P22 DISPLAY REGISTERS                                           (06D)
004298,002751: 
004299,002752: E4,1551  E4,1746               AOPTIME            EQUALS   HPERX      +2                         #  I(2)TMP FOR SR52.1,ADVTRACK
004300,002753: E4,1551  E4,1750               LANDLONG           EQUALS   AOPTIME    +2                         #  I(2) DSP NOUN 89 FOR P22
004301,002754: E4,1551  E4,1752               LANDALT            EQUALS   LANDLONG   +2                         #  I(2)DSP NOUN 89 FOR P22.
004302,002755: 
004303,002756: 
004304,002757: 
004305,002758:                                                                                                  #        S34/35.5,P34-P35 STORAGE.                                       (5D)
004306,002759: 
004307,002760: E4,1551  E4,1754               KT                 EQUALS   LANDALT    +2                         #  B(2)
004308,002761: E4,1551  E4,1756               QSAVED             EQUALS   KT         +2                         #  B(1)TMP HOLDS RETURN
004309,002762: E4,1551  E4,1757               RTRN               EQUALS   QSAVED     +1                         #  B(1) RETURN
004310,002763: E4,1551  E4,1760               SUBEXIT            EQUALS   RTRN       +1                         #  B(1) TMP
004311,002764: E4,1551  E4,1756               ANEXIT             EQUALS   QSAVED                                #  I(1)
004312,002765: 
004313,002766: 
004314,002767:                                                                                                  #        P 30 DISPLAY                                                    (4D)
004315,002768: 

Page 96

004317,002770: E4,1551  E4,1754               HAPO               EQUALS   KT                                    #  I(2) DSP NOUN 42, FOR P30.
004318,002771: E4,1551  E4,1756               HPER               EQUALS   HAPO       +2                         #  I(2) DSP NOUN 42, FOR P30.
004319,002772: 
004320,002773: 
004321,002774: 
004322,002775:                                                                                                  #        SOME P34 STORAGE.       (OVERLAYS P35.1 STORAGE)                (2D)
004323,002776: 
004324,002777: E4,1551  E4,1754               NOMTPI             EQUALS   KT                                    #  I(2)TMP NOMINAL TPI TIME FOR RECYCLE
004325,002778: 
004326,002779: 
004327,002780:                                                                                                  #        P15 PAD LOADS                                                   (3D)
004328,002781: 
004329,002782: E4,1551  E4,1754               DTF                EQUALS   KT                                    #  I(1)
004330,002783: E4,1551  E4,1755               VC/O               EQUALS   DTF        +1                         #  I(2)
004331,002784: 
004332,002785: 
004333,002786:                                                                                                  #  THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1  GS ARE NOT USED IN 205 NOR ARE THEY
004334,002787:                                                                                                  #  WHILE 504 USES TRANSM1 AND ALFDK .
004335,002788: 
004336,002789: E4,1551                        TRANSM1            EQUALS   2000                                  #   (18) INITIALIZATION FOR IMU TESTS
004337,002790: E4,1551  E4,1422               ALFDK              =        TRANSM1    +18D                       #   (144) ERASABLE LOAD IN 504
004338,002791: E4,1551  E4,1641               ENDSYS-4           EQUALS   ALFDK      +143D                      #  LAST SYS.TEST STORAGE IN E-4
004339,002792: 
004340,002793:                                                                                                  #  END OF PERF. TEST ERASABLE IN BANK 4
004341,002794: 
004342,002795:                                                                                                  #      *-*-* V82 *-*-*                                                   (6D)
004343,002796: 
004344,002797: E4,1551  E4,1761               VONE'              EQUALS   SUBEXIT    +1                         #  I(6)TMP NORMAL VELOCITY VONE/ SQRT MU
004345,002798: 
004346,002799: 
004347,002800:                                                                                                  #      MINKEY PAD LOADS                                                  (8D)
004348,002801: 
004349,002802: E4,1551  E4,1767               HAMDELH            EQUALS   VONE'      +6                         #  I(2)PL
004350,002803: E4,1551  E4,1771               WRDTIME            EQUALS   HAMDELH    +2                         #  I(1)PL
004351,002804: E4,1551  E4,1772               MINBLKTM           EQUALS   WRDTIME    +1                         #  I(1)PL
004352,002805: E4,1551  E4,1773               TBEFCOMP           EQUALS   MINBLKTM   +1                         #  I(1)PL
004353,002806: E4,1551  E4,1774               BRNBLKTM           EQUALS   TBEFCOMP   +1                         #  I(1)PL
004354,002807: E4,1551  E4,1775               MAXWTIME           EQUALS   BRNBLKTM   +1                         #  I(1)PL
004355,002808: E4,1551  E4,1776               FINCMPTM           EQUALS   MAXWTIME   +1                         #  I(1)PL
004356,002809: 
004357,002810: 
004358,002811:                                                                                                  #        PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20          (1D)
004359,002812: 
004360,002813: E4,1551  E4,1777               INTVAR             EQUALS   FINCMPTM   +1                         #  I(1)PL  SQUARE OF EXPECTED INTEGRATION
004361,002814:                                                                                                  #          POSITION EXTRAPOLATION ERROR.
004362,002815:                                                                                                  #          SCALED  METERS(2) 2(15)

Page 97

004364,002817:                                                                                                  #  EBANK-5 ASSIGNMENTS
004365,002818: 
004366,002819: E5,1400                                           SETLOC   2400                                  
004367,002820: 
004368,002821: 
004369,002822:                                                                                                  #        *-*-*-*-  OVERLAY 1 IN EBANK 5 -*-*-*-*
004370,002823: 
004371,002824:                                                                                                  #        W-MATRIX STORAGE.                                               (162D)
004372,002825: 
004373,002826: E5,1400                        W                  EQUALS   2400                                  #  B(162)
004374,002827: 
004375,002828: E5,1400                        9X9LOC1            EQUALS   2444                                  
004376,002829: E5,1400                        9X9LOC2            EQUALS   2532                                  
004377,002830: 
004378,002831:                                                                                                  #        P22 TEMP STORAGE                                                (6D)
004379,002832: 
004380,002833: E5,1400  E5,1554               S22RL              EQUALS   W          +108D                      #  TMP RL IN UNKNOWN LMK W INIT
004381,002834: 
004382,002835: 
004383,002836: E5,1400  E5,1570               EMATRIX            =        W          +120D                      #  B(42E    USED TO CONVERT W TO  6X6
004384,002837: E5,1400  E5,1642               END-W              EQUALS   W          +162D                      #  **NEXT AVAILABLE LOC AFTER W MATRIX**
004385,002838: 
004386,002839: 
004387,002840:                                                                                                  #        AUTO-OPTICS STORAGE -R52-
004388,002841: 
004389,002842:                                                                                                  #  DO NOT MOVE FROM E5,1554. A DELICATE BALANCE EXISTS BETWEEN THIS AND P03
004390,002843: E5,1400  E5,1554               XNB1               EQUALS   W          +108D                      #  B(6D) TMP
004391,002844: E5,1400  E5,1562               YNB1               EQUALS   XNB1       +6                         #  B(6)TMP
004392,002845: E5,1400  E5,1570               ZNB1               EQUALS   YNB1       +6                         #  B(6)TMP
004393,002846: E5,1400  E5,1576               SAVQR52            EQUALS   ZNB1       +6                         #  I(2)TMP
004394,002847: 
004395,002848: 
004396,002849: E5,1400  E5,1577               R52BNKSV           EQUALS   SAVQR52    +1                         #  USED TO SAVE EBANK IN R52
004397,002850: E5,1400  E5,1600               PLANVEC            EQUALS   SAVQR52    +2                         #  B(6) S-S SIGHTING VECTOR IN REF. COOR.
004398,002851: E5,1400  E5,1606               TSIGHT             EQUALS   PLANVEC    +6                         #  B(2) S-S TIME OF SIGHTING
004399,002852: 
004400,002853: 
004401,002854: 
004402,002855:                                                                                                  #        RENDEZVOUS TARGETTING STORAGE                                   (6D)
004403,002856: 
004404,002857: E5,1400  E5,1600               AUTOY              EQUALS   PLANVEC                               #  I(2)
004405,002858: E5,1400  E5,1602               CMYDOT             EQUALS   AUTOY      +2                         #  I(2)
004406,002859: E5,1400  E5,1604               LMYDOT             EQUALS   CMYDOT     +2                         #  I(2)
004407,002860: 
004408,002861: 
004409,002862:                                                                                                  #        RENDEZVOUS -P34-35                                              (26D)
004410,002863: 
004411,002864: E5,1400  E5,1610               DVLOS              EQUALS   TSIGHT     +2                         #  I(6) S-S DELTA VELOCITY,LOS COORD-DISPL1
004412,002865: E5,1400  E5,1616               UNRM               EQUALS   DVLOS      +6                         #  I(6) S-S
004413,002866: E5,1400  E5,1624               ULOS               EQUALS   UNRM       +6                         #  I(6) S-S UNIT LINE OF SIGHT VECTOR
004414,002867: E5,1400  E5,1632               ACTCENT            EQUALS   ULOS       +6                         #  I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE

Page 98

004416,002869:                                                                                                  #           VEH AT TPI IGNITION TIME AND
004417,002870:                                                                                                  #           TARGET VECTOR.
004418,002871: E5,1400  E5,1634               DELVTPI            EQUALS   ACTCENT    +2                         #  I(2)    NOUN 58 FOR P34.
004419,002872: E5,1400  E5,1636               DELVTPF            EQUALS   DELVTPI    +2                         #  I(2)    NOUN 58,59 FOR P34,35.
004420,002873: E5,1400  E5,1640               POSTTPI            EQUALS   DELVTPF    +2                         #  I(2)    NOUN 58 FOR P34.
004421,002874: E5,1400  E5,1634               TDEC2              EQUALS   DELVTPI                               #   (2)
004422,002875: 
004423,002876: 
004424,002877: E5,1400  E5,1640               T3TOT4             EQUALS   POSTTPI                               #  I(2) DSP NOUN 39 FOR P34,P35. TPI TO TIN
004425,002878:                                                                                                  #  T (CAN NOT SHARE WITH RETURN TO EARTH)
004426,002879:                                                                                                  #        ALIGNMENT                                                       (12D)
004427,002880: 
004428,002881: E5,1400  E5,1610               STARSAV1           EQUALS   DVLOS                                 #  I(6)TMP RESTART STAR SAVE.
004429,002882: E5,1400  E5,1616               STARSAV2           EQUALS   STARSAV1   +6                         #  I(6)TMP RESTART STAR SAVE.
004430,002883: E5,1400  E5,1616               US                 =        STARSAV2                              #           (CISLUNAR TAG FOR STARSAV2).
004431,002884: 
004432,002885: 
004433,002886: 
004434,002887:                                                                                                  #        P24-RATE AIDED OPTICS                                           (2)
004435,002888: 
004436,002889: E5,1400  E5,1656               TRTEMP             EQUALS   R1VEC                                 #  B(1)TMP
004437,002890: E5,1400  E5,1657               SRTEMP             EQUALS   TRTEMP     +1                         #  B(1)TMP  ALSO USED AS RETURN SAVE BY R51
004438,002891:                                                                                                  #           AND P23.
004439,002892: 

Page 99

004441,002894:                                                                                                  #        ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE.              (36D)
004442,002895:                                                                                                  #        (CALCSMSC IS A SUBSET OF S41.1 AT LEAST)
004443,002896:                                                                                                  #        (CRS61.1  IS A SUBSET OF P20)
004444,002897: 
004445,002898: E5,1400  E5,1671               XSM                EQUALS   END-W      +23D                       #  B(6)
004446,002899: E5,1400  E5,1677               YSM                EQUALS   XSM        +6                         #  B(6)TMP
004447,002900: E5,1400  E5,1705               ZSM                EQUALS   YSM        +6                         #  B(6)TMP
004448,002901: 
004449,002902: E5,1400  E5,1713               XDC                EQUALS   ZSM        +6                         #  B(6)TMP
004450,002903: E5,1400  E5,1721               YDC                EQUALS   XDC        +6                         #  B(6)TMP
004451,002904: E5,1400  E5,1727               ZDC                EQUALS   YDC        +6                         #  B(6)TMP
004452,002905: 
004453,002906: E5,1400  E5,1713               XNB                =        XDC                                   
004454,002907: E5,1400  E5,1721               YNB                =        YDC                                   
004455,002908: E5,1400  E5,1727               ZNB                =        ZDC                                   
004456,002909: 
004457,002910: 
004458,002911:                                                                                                  #        ALIGNMENT/SYSTEST COMMON STORAGE.                               (18D)
004459,002912: 
004460,002913: E5,1400  E5,1735               STARAD             EQUALS   ZDC        +6                         #  I(18D)TMP
004461,002914: 
004462,002915: 
004463,002916:                                                                                                  #        ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE.                   (17D)
004464,002917: 
004465,002918: E5,1400  E5,1757               OGC                EQUALS   STARAD     +18D                       #  I(2)TMP
004466,002919: E5,1400  E5,1761               IGC                EQUALS   OGC        +2                         #  I(2)TMP
004467,002920: E5,1400  E5,1763               MGC                EQUALS   IGC        +2                         #  I(2)TMP
004468,002921: E5,1400  E5,1765               STAR               EQUALS   MGC        +2                         #  I(6)TMP
004469,002922: E5,1400  E5,1773               SAC                EQUALS   STAR       +6                         #  I(2)TMP
004470,002923: E5,1400  E5,1775               PAC                EQUALS   SAC        +2                         #  I(2)TMP
004471,002924: E5,1400  E5,1777               QMIN               EQUALS   PAC        +2                         #  B(1)TMP
004472,002925: 
004473,002926: 
004474,002927:                                                                                                  #      **** COLP50S ****                                                 (1D)
004475,002928: 
004476,002929: E5,1400  E5,1735               CULTRIX            EQUALS   VEARTH                                #  VEARTH, VSUN, VMOON
004477,002930: 
004478,002931:                                                                                                  #        OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE.               (24D)
004479,002932: 
004480,002933: E5,1400  E5,1735               VEARTH             EQUALS   STARAD                                #   (6)TMP
004481,002934: E5,1400  E5,1743               VSUN               EQUALS   VEARTH     +6                         #   (6)TMP
004482,002935: E5,1400  E5,1751               VMOON              EQUALS   VSUN       +6                         #   (6)TMP
004483,002936: E5,1400  E5,1757               SAX                EQUALS   VMOON      +6                         #   (6)TMP
004484,002937: 

Page 100

004486,002939:                                                                                                  #        *-*-*-*-  OVERLAY 2 IN EBANK 5 -*-*-*-*
004487,002940: 
004488,002941:                                                                                                  #        CONIC ROUTINES STORAGE.                                         (87D)
004489,002942: 
004490,002943: E5,1400  E5,1642               DELX               EQUALS   END-W                                 #  I(2)TMP
004491,002944: E5,1400  E5,1644               DELT               EQUALS   DELX       +2                         #  I(2)TMP
004492,002945: E5,1400  E5,1646               URRECT             EQUALS   DELT       +2                         #  I(6)TMP
004493,002946: E5,1400  E5,1654               RCNORM             EQUALS   URRECT     +6                         #  I(2)TMP
004494,002947: E5,1400  E5,1656               R1VEC              EQUALS   RCNORM     +2                         #  I(6)TMP
004495,002948: E5,1400  E5,1664               R2VEC              EQUALS   R1VEC      +6                         #  I(6)TMP
004496,002949: E5,1400  E5,1672               TDESIRED           EQUALS   R2VEC      +6                         #  I(2)TMP
004497,002950: E5,1400  E5,1674               GEOMSGN            EQUALS   TDESIRED   +2                         #  I(1)TMP
004498,002951: E5,1400  E5,1675               UN                 EQUALS   GEOMSGN    +1                         #  I(6)TMP
004499,002952: E5,1400  E5,1703               VTARGTAG           EQUALS   UN         +6                         #  I(1)TMP
004500,002953: E5,1400  E5,1704               VTARGET            EQUALS   VTARGTAG   +1                         #  I(6)TMP
004501,002954: E5,1400  E5,1712               RTNLAMB            EQUALS   VTARGET    +6                         #  I(1)TMP
004502,002955: E5,1400  E5,1713               U2                 EQUALS   RTNLAMB    +1                         #  I(6)TMP
004503,002956: E5,1400  E5,1721               MAGVEC2            EQUALS   U2         +6                         #  I(2)TMP
004504,002957: E5,1400  E5,1723               UR1                EQUALS   MAGVEC2    +2                         #  I(6)TMP
004505,002958: E5,1400  E5,1731               SNTH               EQUALS   UR1        +6                         #  I(2)TMP
004506,002959: E5,1400  E5,1733               CSTH               EQUALS   SNTH       +2                         #  I(2)TMP
004507,002960: E5,1400  E5,1735               1-CSTH             EQUALS   CSTH       +2                         #  I(2)TMP
004508,002961: E5,1400  E5,1737               CSTH-RHO           EQUALS   1-CSTH     +2                         #  I(2)TMP
004509,002962: E5,1400  E5,1741               P                  EQUALS   CSTH-RHO   +2                         #  I(2)TMP
004510,002963: E5,1400  E5,1743               R1A                EQUALS   P          +2                         #  I(2)TMP
004511,002964: E5,1400  E5,1656               RVEC               EQUALS   R1VEC                                 #  I(6)TMP
004512,002965: E5,1400  E5,1745               VVEC               EQUALS   R1A        +2                         #  I(6)TMP
004513,002966: E5,1400  E5,1712               RTNTT              EQUALS   RTNLAMB                               #  I(1)TMP
004514,002967: E5,1400  E5,1753               ECC                EQUALS   VVEC       +6                         #  I(2)TMP
004515,002968: E5,1400  E5,1712               RTNTR              EQUALS   RTNLAMB                               #  I(1)TMP
004516,002969: E5,1400  E5,1712               RTNAPSE            EQUALS   RTNLAMB                               #  I(1)TMP
004517,002970: E5,1400  E5,1721               R2                 EQUALS   MAGVEC2                               #  I(2)TMP
004518,002971: E5,1400  E5,1755               RTNPRM             EQUALS   ECC        +2                         #  I(1)TMP
004519,002972: E5,1400  E5,1756               SGNRDOT            EQUALS   RTNPRM     +1                         #  I(1)TMP
004520,002973: E5,1400  E5,1757               RDESIRED           EQUALS   SGNRDOT    +1                         #  I(2)TMP
004521,002974: E5,1400  E5,1761               DELDEP             EQUALS   RDESIRED   +2                         #  I(2)TMP
004522,002975: E5,1400  E5,1763               DEPREV             EQUALS   DELDEP     +2                         #  I(2)TMP
004523,002976: E5,1400  E5,1761               TERRLAMB           EQUALS   DELDEP                                #  I(2)TMP
004524,002977: E5,1400  E5,1763               TPREV              EQUALS   DEPREV                                #  I(2)TMP
004525,002978: 

Page 101

004527,002980: 
004528,002981:                                                                                                  #        *-*-*-*-  OVERLAY 3 IN EBANK 5 -*-*-*-*
004529,002982: 
004530,002983:                                                                                                  #        MEASUREMENT INCORPORATION STORAGE.                              (54D)
004531,002984:                                                                                                  #        (CALLED BY P20, P22, P23)
004532,002985: 
004533,002986: E5,1400  E5,1642               OMEGAM1            EQUALS   END-W                                 #  I(6)TMP
004534,002987: E5,1400  E5,1650               OMEGAM2            EQUALS   OMEGAM1    +6                         #  I(6)TMP
004535,002988: E5,1400  E5,1656               OMEGAM3            EQUALS   OMEGAM2    +6                         #  I(6)TMP
004536,002989: E5,1400  E5,1664               HOLDW              EQUALS   OMEGAM3    +6                         #  I(18)TMP
004537,002990: E5,1400  E5,1706               ZI                 EQUALS   HOLDW      +18D                       #  I(18)
004538,002991: 

Page 102

004540,002993: 
004541,002994:                                                                                                  #        *-*-*-*-  OVERLAY 0 IN EBANK 5 -*-*-*-*
004542,002995: 
004543,002996:                                                                                                  #        SYSTEM TEST STORAGE.                                            (174)
004544,002997: 
004545,002998: E5,1400                        AZIMUTH            ERASE    +1                                    
004546,002999: E5,1402                        LATITUDE           ERASE    +1                                    
004547,003000: 
004548,003001: E5,1404                        ERVECTOR           ERASE    +5                                    
004549,003002: E5,1412                        LENGTHOT           ERASE                                          
004550,003003: E5,1413                        LOSVEC             ERASE    +5                                    
004551,003004: 
004552,003005: E5,1421  E5,1413               SXTOPTN            =        LOSVEC                                
004553,003006: E5,1421                        NDXCTR             ERASE                                          
004554,003007: 
004555,003008: E5,1422                        SYSTSPR1           ERASE                                          #  UNUSED
004556,003009: 
004557,003010: E5,1423                        POSITON            ERASE                                          
004558,003011: E5,1424                        QPLAC              ERASE                                          
004559,003012: E5,1425                        QPLACE             ERASE                                          
004560,003013: E5,1426                        QPLACES            ERASE                                          
004561,003014: E5,1427                        RUN                ERASE                                          
004562,003015: 
004563,003016: E5,1430                        SYSTSPR2           ERASE                                          #  UNUSED
004564,003017: 
004565,003018: E5,1431                        SOUTHDR            ERASE                                          
004566,003019: E5,1432  E5,1431               TARG1/2            =        SOUTHDR                               
004567,003020: E5,1432                        TAZEL1             ERASE    +5                                    
004568,003021: E5,1440                        TEMPTIME           ERASE    +1                                    
004569,003022: E5,1442                        TMARK              ERASE    +1                                    
004570,003023: E5,1444                        AINLA              ERASE    +139D                                 #  OPTIMUM CALIB. AND ALIGNMENT
004571,003024: E5,1660  E5,1444               GENPL              =        AINLA                                 
004572,003025: E5,1660  E5,1453               CDULIMIT           =        AINLA      +7                         
004573,003026: E5,1660  E5,1552               COUNTPL            =        AINLA      +70D                       
004574,003027: E5,1660  E5,1444               WANGO              EQUALS   AINLA                                 
004575,003028: E5,1660  E5,1446               WANGI              EQUALS   AINLA      +2D                        
004576,003029: E5,1660  E5,1450               WANGT              EQUALS   AINLA      +4D                        
004577,003030: E5,1660  E5,1450               TORQNDX            =        WANGT                                 
004578,003031: E5,1660  E5,1452               DRIFTT             EQUALS   AINLA      +6D                        
004579,003032: E5,1660  E5,1454               ALX1S              EQUALS   AINLA      +8D                        
004580,003033: E5,1660  E5,1455               CMPX1              EQUALS   AINLA      +9D                        
004581,003034: E5,1660  E5,1456               ALK                EQUALS   AINLA      +10D                       
004582,003035: E5,1660  E5,1472               VLAUNS             EQUALS   AINLA      +22D                       
004583,003036: E5,1660  E5,1460               THETAX             =        ALK        +2                         
004584,003037: E5,1660  E5,1474               WPLATO             EQUALS   AINLA      +24D                       
004585,003038: E5,1660  E5,1500               INTY               EQUALS   AINLA      +28D                       
004586,003039: E5,1660  E5,1466               THETAN             =        THETAX     +6                         
004587,003040: E5,1660  E5,1502               ANGZ               EQUALS   AINLA      +30D                       
004588,003041: E5,1660  E5,1504               INTZ               EQUALS   AINLA      +32D                       
004589,003042: E5,1660  E5,1506               ANGY               EQUALS   AINLA      +34D                       
004590,003043: E5,1660  E5,1510               ANGX               EQUALS   AINLA      +36D                       

Page 103

004592,003045: E5,1660  E5,1512               DRIFTO             EQUALS   AINLA      +38D                       
004593,003046: E5,1660  E5,1514               DRIFTI             EQUALS   AINLA      +40D                       
004594,003047: E5,1660  E5,1520               VLAUN              EQUALS   AINLA      +44D                       
004595,003048: E5,1660  E5,1474               FILDELV            =        THETAN     +6                         
004596,003049: E5,1660  E5,1522               ACCWD              EQUALS   AINLA      +46D                       
004597,003050: E5,1660  E5,1476               INTVEC             =        FILDELV    +2                         
004598,003051: E5,1660  E5,1530               POSNV              EQUALS   AINLA      +52D                       
004599,003052: E5,1660  E5,1532               DPIPAY             EQUALS   AINLA      +54D                       
004600,003053: E5,1660  E5,1536               DPIPAZ             EQUALS   AINLA      +58D                       
004601,003054: E5,1660  E5,1540               ALTIM              EQUALS   AINLA      +60D                       
004602,003055: E5,1660  E5,1541               ALTIMS             EQUALS   AINLA      +61D                       
004603,003056: E5,1660  E5,1542               ALDK               EQUALS   AINLA      +62D                       
004604,003057: E5,1660  E5,1560               DELM               EQUALS   AINLA      +76D                       
004605,003058: E5,1660  E5,1570               WPLATI             EQUALS   AINLA      +84D                       
004606,003059: E5,1660  E5,1577               RESTARPT           =        AINLA      +91D                       
004607,003060: E5,1660  E5,1631               GEOSAVED           =        AINLA      +117D                      
004608,003061: E5,1660  E5,1632               PREMTRXC           =        AINLA      +118D                      
004609,003062: E5,1660  E5,1633               LAUNCHAZ           =        AINLA      +119D                      
004610,003063: E5,1660  E5,1635               NEWAZMTH           =        AINLA      +121D                      
004611,003064: E5,1660  E5,1637               OLDAZMTH           =        AINLA      +123D                      
004612,003065: E5,1660  E5,1641               TOLDAZMT           =        AINLA      +125D                      
004613,003066: E5,1660  E5,1643               GEOCOMPS           =        AINLA      +127D                      
004614,003067: E5,1660  E5,1644               1SECXT             =        AINLA      +128D                      
004615,003068: E5,1660  E5,1645               GTSWTLST           =        AINLA      +129D                      
004616,003069: E5,1660  E5,1646               ERECTIME           =        AINLA      +130D                      
004617,003070: E5,1660  E5,1647               ERCOMP             =        AINLA      +131D                      
004618,003071: E5,1660  E5,1655               ZERONDX            =        AINLA      +137D                      
004619,003072: E5,1660  E5,1655               GTSOPNDZ           =        ZERONDX                               
004620,003073: 
004621,003074: 
004622,003075:                                                                                                  #  THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY.
004623,003076: 
004624,003077: E5,1660  E5,1460               THETAX1            EQUALS   ALK        +2                         
004625,003078: E5,1660  E5,1466               THETAN1            EQUALS   THETAX1    +6                         
004626,003079: E5,1660  E5,1474               FILDELV1           EQUALS   THETAN1    +6                         
004627,003080: E5,1660  E5,1476               INTVEC1            EQUALS   FILDELV1   +2                         
004628,003081: E5,1660  E5,1631               GEOSAVE1           EQUALS   AINLA      +117D                      
004629,003082: E5,1660  E5,1632               PREMTRX1           EQUALS   AINLA      +118D                      
004630,003083: E5,1660  E5,1633               LUNCHAZ1           EQUALS   AINLA      +119D                      
004631,003084: E5,1660  E5,1635               NEWAZ1             EQUALS   LUNCHAZ1   +2                         
004632,003085: E5,1660  E5,1637               OLDAZ1             EQUALS   LUNCHAZ1   +4                         
004633,003086: E5,1660  E5,1641               TOLDAZ1            EQUALS   LUNCHAZ1   +6                         
004634,003087: E5,1660  E5,1643               GEOCOMP1           EQUALS   AINLA      +127D                      
004635,003088: E5,1660  E5,1644               1SECXT1            EQUALS   AINLA      +128D                      
004636,003089: E5,1660  E5,1645               GTSWTLT1           EQUALS   AINLA      +129D                      
004637,003090: E5,1660  E5,1646               ERECTIM1           EQUALS   AINLA      +130D                      
004638,003091: E5,1660  E5,1647               ERCOMP1            EQUALS   AINLA      +131D                      #  I(6)
004639,003092: E5,1660  E5,1655               ZERONDX1           EQUALS   AINLA      +137D                      
004640,003093: E5,1660  E5,1656               PERFDLAY           EQUALS   AINLA      +138D                      #  B(2).........
004641,003094: E5,1660  E5,1657               ENDSYS-5           EQUALS   AINLA      +139D                      #  LAST SYS.TEST STORAGE IN E-5
004642,003095: 

Page 104

004644,003097: 
004645,003098:                                                                                                  #  END OF 504 CAL + ALIGN ERASE.
004646,003099: 

Page 105

004648,003101: 
004649,003102:                                                                                                  #        *-*-*-*-  OVERLAY 4 IN EBANK 5  -*-*-*-*
004650,003103: 
004651,003104:                                                                                                  #        P32 -- P33                                                      (20D)
004652,003105: 
004653,003106: E5,1660  E5,1610               UP1                EQUALS   DVLOS                                 #  I(6)
004654,003107: E5,1660  E5,1616               VPASS2             EQUALS   UP1        +6                         #  I(6)
004655,003108: E5,1660  E5,1624               RPASS2             EQUALS   VPASS2     +6                         #  I(6)
004656,003109: E5,1660  E5,1632               DIFFALT            EQUALS   RPASS2     +6                         #  I(2)
004657,003110: 
004658,003111: 
004659,003112: 
004660,003113:                                                                                                  #  P32,P33 STORAGE OVERLAYING 9X9 W-MATRIX LOCATIONS                     (32D)
004661,003114: 
004662,003115: E5,1660  E5,1444               DELVEET1           EQUALS   9X9LOC1                               #  I(6) DELV FOR CSI
004663,003116: E5,1660  E5,1452               RACT2              EQUALS   DELVEET1   +6                         #  I(6) POS. ACTIVE VEH. AT CDH TIME
004664,003117: E5,1660  E5,1460               TCDH               EQUALS   RACT2      +6                         #  I(2)
004665,003118: E5,1660  E5,1462               TCSI               EQUALS   TCDH       +2                         #  I(2)
004666,003119: E5,1660  E5,1464               TTPI0              EQUALS   TCSI       +2                         #  I(2)
004667,003120: E5,1660  E5,1532               VACT2              EQUALS   9X9LOC2                               #  I(6) VEL. ACTIVE VEH. AT CDH TIME
004668,003121: E5,1660  E5,1540               RACT1              EQUALS   VACT2      +6                         #  I(6) POS. ACTIVE VEH. AT CSI TIME
004669,003122: E5,1660  E5,1546               T1TOT2             EQUALS   RACT1      +6                         #  I(2) TCDH - TCSI
004670,003123: 
004671,003124: 
004672,003125: 
004673,003126:                                                                                                  #        MARK COUNT FOR MINKEY R22, Q RETURN FOR N90/N81 DSP  P31,P36.   (2D)
004674,003127: 
004675,003128: E5,1660  E5,1550               COUNT3MK           EQUALS   T1TOT2     +2                         #  I(1)
004676,003129: E5,1660  E5,1551               N90RET             EQUALS   COUNT3MK   +1                         #  I(1)
004677,003130: 
004678,003131: 
004679,003132:                                                                                                  #      MINKEY AFTERBURN TEMPORARIES FOR RESTART                          (24D)
004680,003133: 
004681,003134: E5,1660  E5,1552               BURNTMP1           EQUALS   N90RET     +1                         #  I(6)
004682,003135: E5,1660  E5,1560               BURNTMP2           EQUALS   BURNTMP1   +6                         #  I(6)
004683,003136: E5,1660  E5,1566               BURNTMP3           EQUALS   BURNTMP2   +6                         #  I(6)
004684,003137: E5,1660  E5,1574               BURNTMP4           EQUALS   BURNTMP3   +6                         #  I(6)
004685,003138: 

Page 106

004687,003140: 
004688,003141:                                                                                                  #                EBANK-6 ASSIGNMENTS
004689,003142: E6,1400                                           SETLOC   3000                                  
004690,003143: 
004691,003144:                                                                                                  #        P23    PAD LOADS***                                             (2D).
004692,003145: 
004693,003146: E6,1400                        WMIDPOS            ERASE                                          #  I(1) PL  INITIAL VALUES FOR W-MATRIX IN
004694,003147: E6,1401                        WMIDVEL            ERASE                                          #  I(1) PL  CISLUNAR (P23) NAVIGATION
004695,003148: 
004696,003149: 
004697,003150: 
004698,003151:                                                                                                  #        R22    PAD LOADS                                                ( 5D ).
004699,003152: 
004700,003153: E6,1402                        RVAR               ERASE    +1                                    #  I(2) PL  VHF RADAR
004701,003154: E6,1404                        RVARMIN            ERASE    +2                                    #  I(3) PL  VHF RADAR
004702,003155: 
004703,003156: 
004704,003157: 
004705,003158:                                                                                                  #  ******** PAD LOADED ENTRY DAP STEERING VARIABLES ********             (3D)
004706,003159: 
004707,003160: E6,1407                        LADPAD             ERASE                                          #  I(1) PL FOR ENTRY.HOLDS CM  NOMINAL L/D
004708,003161: E6,1410                        LODPAD             ERASE                                          #  I(1) PL FOR ENTRY.HOLDS CM  NOMINAL LOD
004709,003162: E6,1411                        ALFAPAD            ERASE                                          #  B(1) PL ALFA TRIM / 180
004710,003163: 
004711,003164: 
004712,003165:                                                                                                  #        P37  PAD LOAD
004713,003166: 
004714,003167: E6,1412                        P37RANGE           ERASE                                          #  I(1)PL
004715,003168: 
004716,003169: 
004717,003170:                                                                                                  #  ******** PAD LOADED TVC DAP VARIABLES.********************************(26D)
004718,003171: 
004719,003172: E6,1413                        ETDECAY            ERASE                                          #  I(1)PL
004720,003173: E6,1414                        EKPRIME            ERASE    +1                                    #  B(2)PL
004721,003174: E6,1416                        EKTLX/I            ERASE    +2                                    #  B(3)PL
004722,003175: E6,1421                        EREPFRAC           ERASE    +1                                    #  B(2)PL
004723,003176: 
004724,003177: E6,1423                        PACTOFF            ERASE                                          #  B(1)PL, DSP N48 R01 = PTRIM, R02 = YTRIM
004725,003178: E6,1424                        YACTOFF            ERASE                                          #  B(1)PL, CONSECUTIVE WITH PACTOFF
004726,003179: 
004727,003180: E6,1425                        HBN10              ERASE                                          #  B(1)
004728,003181: E6,1426                        HBN11/2            ERASE                                          #  B(1)
004729,003182: E6,1427                        HBN12              ERASE                                          #  B(1)
004730,003183: E6,1430                        HBD11/2            ERASE                                          #  B(1)
004731,003184: E6,1431                        HBD12              ERASE                                          #  B(1)
004732,003185: 
004733,003186: E6,1432                        HBN20              ERASE                                          #  B(1)
004734,003187: E6,1433                        HBN21/2            ERASE                                          #  B(1)
004735,003188: E6,1434                        HBN22              ERASE                                          #  B(1)
004736,003189: E6,1435                        HBD21/2            ERASE                                          #  B(1)
004737,003190: E6,1436                        HBD22              ERASE                                          #  B(1)

Page 107

004739,003192: E6,1437                        HBN30              ERASE                                          #  B(1)
004740,003193: E6,1440                        HBN31/2            ERASE                                          #  B(1)
004741,003194: E6,1441                        HBN32              ERASE                                          #  B(1)
004742,003195: E6,1442                        HBD31/2            ERASE                                          #  B(1)
004743,003196: E6,1443                        HBD32              ERASE                                          #  B(1)
004744,003197: 
004745,003198:                                                                                                  #  ******** EXCLUSIVE TVC DAP VARIABLES. **********************************(4D)
004746,003199: 
004747,003200: E6,1444                        TEMPDAP            ERASE    +1                                    #  B(2)
004748,003201: E6,1446  E6,1444               MRKRTMP            =        TEMPDAP                               #       ((B(1)))
004749,003202: E6,1446                        CNTR               ERASE                                          #  B(1)
004750,003203: E6,1447                        OGAD               ERASE                                          #  B(1)
004751,003204: 
004752,003205: 
004753,003206: 
004754,003207:                                                                                                  #  ******** EXCLUSIVE RCS DAP VARIABLES. *********************************(13D)
004755,003208: 
004756,003209: E6,1450                        RWORD1             ERASE    +12D                                  #  B(1)
004757,003210: E6,1465  E6,1451               RWORD2             EQUALS   RWORD1     +1                         #  B(1)
004758,003211: E6,1465  E6,1452               PWORD1             EQUALS   RWORD2     +1                         #  B(1)
004759,003212: E6,1465  E6,1453               PWORD2             EQUALS   PWORD1     +1                         #  B(1)
004760,003213: E6,1465  E6,1454               YWORD1             EQUALS   PWORD2     +1                         #  B(1)
004761,003214: E6,1465  E6,1455               YWORD2             EQUALS   YWORD1     +1                         #  B(1)
004762,003215: E6,1465  E6,1456               BLAST              EQUALS   YWORD2     +1                         #  B(2)
004763,003216: E6,1465  E6,1460               BLAST1             EQUALS   BLAST      +2                         #  B(2)
004764,003217: E6,1465  E6,1462               BLAST2             EQUALS   BLAST1     +2                         #  B(2)
004765,003218: E6,1465  E6,1464               T5PHASE            EQUALS   BLAST2     +2                         #  B(1)
004766,003219: 
004767,003220: 
004768,003221: 
004769,003222:                                                                                                  #  ******** RCS/TVC DAP COMMON STORAGE.************************************(17D)
004770,003223: 
004771,003224: E6,1465                        DAPDATR1           ERASE                                          #  B(1)DSP NOUN 46(R1)
004772,003225: E6,1466                        DAPDATR2           ERASE                                          #  B(1)DSP NOUN 46(R2)
004773,003226: 
004774,003227: E6,1467     4076               DPCONFIG           =        OCT60000                              #  DAP CONFIG BITS
004775,003228: 
004776,003229: E6,1467                        IXX                ERASE                                          #  B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR
004777,003230: E6,1470                        IAVG               ERASE                                          #  B(1)                            MASSPROP
004778,003231: E6,1471                        IAVG/TLX           ERASE                                          #  B(1)
004779,003232: 
004780,003233: E6,1472                        LEMMASS            ERASE                                          #  B(1)DSP NOUN 47(R2)
004781,003234: E6,1473                        CSMMASS            ERASE    +1                                    #  B(2)
004782,003235: E6,1475                        WEIGHT/G           ERASE                                          
004783,003236: E6,1476                        AK                 ERASE                                          
004784,003237: E6,1477                        AK1                ERASE                                          
004785,003238: E6,1500                        AK2                ERASE                                          
004786,003239: 
004787,003240: E6,1501                        RCSFLAGS           ERASE                                          #  B(1) CONSECUTIVE WITH AK2 DOWNLINK
004788,003241: E6,1502                        T5TEMP             ERASE                                          #  B(1)

Page 108

004790,003243: E6,1503                        EDRIVEX            ERASE                                          
004791,003244: E6,1504                        EDRIVEY            ERASE                                          
004792,003245: E6,1505                        EDRIVEZ            ERASE                                          
004793,003246: 
004794,003247: 
004795,003248:                                                                                                  #        INTEMP THRU INTEMP+14D  ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORIES
004796,003249: E6,1506                        INTTEMP            ERASE    +14D                                  #   (15)
004797,003250: 
004798,003251: 
004799,003252:                                                                                                  #        TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES
004800,003253: 
004801,003254: E6,1525                        TVCRCS             ERASE    +11D                                  #  (12)
004802,003255:                                                                                                  #  RCS (WBODYS,ADOTS)
004803,003256:                                                                                                  #  TVC(OMEGACS,OMEGABS)
004804,003257: 
004805,003258: 
004806,003259:                                                                                                  #        TVC DAP TEMPORARY VARIABLES************************************
004807,003260: 
004808,003261:                                                                                                  #        TVC DAP INTERUPT TRUE TEMPORARIES******************************
004809,003262: 
004810,003263: E6,1541  E6,1506               PHI333             EQUALS   INTTEMP                               #  B(1)     COUNTING REGISTER
004811,003264: E6,1541  E6,1507               PSI333             EQUALS   PHI333     +1                         #  B(1)     COUNTING REGISTER
004812,003265: E6,1541  E6,1510               TEMP333            EQUALS   PSI333     +1                         #  B(1)     MASS TEMPORARY
004813,003266: E6,1541  E6,1511               VARST0             EQUALS   TEMP333    +1                         #  B(8)     BREAKPOINTS AND SLOPES
004814,003267: E6,1541  E6,1516               VARST5             =        VARST0     +5                         
004815,003268: E6,1541  E6,1522               LASTMASP           EQUALS   VARST0     +9D                        #  LAST VARST0 WORD
004816,003269: 
004817,003270: 
004818,003271: 
004819,003272: 
004820,003273:                                                                                                  #        *******REGULAR TVC TEMPORARIES*************
004821,003274: 
004822,003275: 
004823,003276:                                                                                                  #        TVC ZEROING LOOP STARTS HERE
004824,003277: 
004825,003278: 
004826,003279: E6,1541  E6,1525               OMEGAC             EQUALS   TVCRCS                                #  I(6)
004827,003280: E6,1541  E6,1525               OMEGAXC            =        OMEGAC                                
004828,003281: E6,1541  E6,1527               OMEGAYC            =        OMEGAC     +2                         
004829,003282: E6,1541  E6,1531               OMEGAZC            =        OMEGAC     +4                         
004830,003283: 
004831,003284: E6,1541  E6,1533               OMEGAB             EQUALS   TVCRCS     +6                         #  B(6)
004832,003285: E6,1541  E6,1533               OMEGAXB            =        OMEGAB                                
004833,003286: E6,1541  E6,1535               OMEGAYB            =        OMEGAB     +2                         
004834,003287: E6,1541  E6,1537               OMEGAZB            =        OMEGAB     +4                         
004835,003288: 
004836,003289: E6,1541  E6,1541               PTMP1              EQUALS   OMEGAC     +12D                       #  B(2)
004837,003290: E6,1541  E6,1543               PTMP2              EQUALS   PTMP1      +2                         #  B(2)
004838,003291: E6,1541  E6,1545               PTMP3              EQUALS   PTMP2      +2                         #  B(2)
004839,003292: E6,1541  E6,1547               PTMP4              EQUALS   PTMP3      +2                         #  B(2)

Page 109

004841,003294: E6,1541  E6,1551               PTMP5              EQUALS   PTMP4      +2                         #  B(2)
004842,003295: E6,1541  E6,1553               PTMP6              EQUALS   PTMP5      +2                         #  B(2)
004843,003296: 
004844,003297: E6,1541  E6,1555               YTMP1              EQUALS   PTMP6      +2                         #  B(2)
004845,003298: E6,1541  E6,1557               YTMP2              EQUALS   YTMP1      +2                         #  B(2)
004846,003299: E6,1541  E6,1561               YTMP3              EQUALS   YTMP2      +2                         #  B(2)
004847,003300: E6,1541  E6,1563               YTMP4              EQUALS   YTMP3      +2                         #  B(2)
004848,003301: E6,1541  E6,1565               YTMP5              EQUALS   YTMP4      +2                         #  B(2)
004849,003302: E6,1541  E6,1567               YTMP6              EQUALS   YTMP5      +2                         #  B(2)
004850,003303: 
004851,003304: E6,1541  E6,1571               ROLLFIRE           EQUALS   YTMP6      +2                         #  B(1)
004852,003305: E6,1541  E6,1572               ROLLWORD           EQUALS   ROLLFIRE   +1                         #  B(1)
004853,003306: E6,1541  E6,1573               TEMREG             EQUALS   ROLLWORD   +1                         #  B(1)
004854,003307: 
004855,003308: E6,1541  E6,1574               TVCDUMMY           EQUALS   TEMREG     +1                         #  DUMMY (NEED EVEN NUMBER OF LOCATIONS)
004856,003309: E6,1541  E6,1575               PERRB              EQUALS   TVCDUMMY   +1                         #  B(2)
004857,003310: E6,1541  E6,1577               YERRB              EQUALS   PERRB      +2                         #  B(2)
004858,003311: 
004859,003312: E6,1541  E6,1601               DELPBAR            EQUALS   YERRB      +2                         #  B(2)
004860,003313: E6,1541  E6,1603               DELYBAR            EQUALS   DELPBAR    +2                         #  B(2)
004861,003314: 
004862,003315: E6,1541  E6,1605               PDELOFF            EQUALS   DELYBAR    +2                         #  B(2)
004863,003316: E6,1541  E6,1607               YDELOFF            EQUALS   PDELOFF    +2                         #  B(2)
004864,003317: 
004865,003318: 
004866,003319:                                                                                                  #        TVC ZEROING LOOP ENDS HERE
004867,003320: 
004868,003321: 
004869,003322: E6,1541  E6,1611               TTMP1              EQUALS   YDELOFF    +2                         #  B(2)
004870,003323: E6,1541  E6,1613               TTMP2              EQUALS   TTMP1      +2                         #  B(2)
004871,003324: 
004872,003325: E6,1541  E6,1615               DAP1               EQUALS   TTMP2      +2                         #  B(2)
004873,003326: E6,1541  E6,1617               DAP2               EQUALS   DAP1       +2                         #  B(2)
004874,003327: E6,1541  E6,1621               DAP3               EQUALS   DAP2       +2                         #  B(2)
004875,003328: 
004876,003329: E6,1541  E6,1623               PCMD               EQUALS   DAP3       +2                         #  B(1)
004877,003330: E6,1541  E6,1624               YCMD               EQUALS   PCMD       +1                         #  B(1),  CONSECUTIVE WITH PCMD
004878,003331: E6,1541  E6,1625               T5TVCDT            EQUALS   YCMD       +1                         #  B(1)
004879,003332: E6,1541  E6,1626               KPRIMEDT           EQUALS   T5TVCDT    +1                         #  I(2)
004880,003333: E6,1541  E6,1630               KTLX/I             EQUALS   KPRIMEDT   +2                         #  B(1)
004881,003334: E6,1541  E6,1631               1/CONACC           EQUALS   KTLX/I     +1                         #  B(1)
004882,003335: E6,1541  E6,1632               VARK               EQUALS   1/CONACC   +1                         #  B(1)
004883,003336: E6,1541  E6,1633               REPFRAC            EQUALS   VARK       +1                         #  B(1)
004884,003337: E6,1541  E6,1634               VCNTR              EQUALS   REPFRAC    +1                         #  B(1)
004885,003338: E6,1541  E6,1635               TVCPHASE           EQUALS   VCNTR      +1                         #  B(1)
004886,003339: E6,1541  E6,1636               PCDUYPST           EQUALS   TVCPHASE   +1                         #  B(1)
004887,003340: E6,1541  E6,1637               PCDUZPST           EQUALS   PCDUYPST   +1                         #  B(1)
004888,003341: E6,1541  E6,1640               YCDUYPST           EQUALS   PCDUZPST   +1                         #  B(1)
004889,003342: E6,1541  E6,1641               YCDUZPST           EQUALS   YCDUYPST   +1                         #  B(1)
004890,003343: E6,1541  E6,1642               MCDUYDOT           EQUALS   YCDUZPST   +1                         #  B(1)
004891,003344: E6,1541  E6,1643               MCDUZDOT           EQUALS   MCDUYDOT   +1                         #  B(1)

Page 110

004893,003346: E6,1541  E6,1644               TVCEXPHS           EQUALS   MCDUZDOT   +1                         #  B(1)
004894,003347:                                                                                                  #        TVC ROLL DAP VARIABLES
004895,003348: 
004896,003349:                                                                                                  #  (8D)
004897,003350: E6,1541  E6,1645               OGANOW             EQUALS   TVCEXPHS   +1                         
004898,003351: E6,1541  E6,1646               OGAPAST            EQUALS   OGANOW     +1                         #  B(1)
004899,003352: E6,1541  E6,1647               OGA                EQUALS   OGAPAST    +1                         #  B(1)TMP
004900,003353: E6,1541  E6,1647               OGAERR             =        OGA                                   #  (ROLL DAP USES OGA, MEANS OGAERROR)
004901,003354: E6,1541  E6,1650               DELOGART           EQUALS   OGA        +1                         #  B(1)TMP
004902,003355: E6,1541  E6,1651               SGNRT              EQUALS   DELOGART   +1                         #  SIGN OF OGA RATE
004903,003356: E6,1541  E6,1652               DELOGA             EQUALS   SGNRT      +1                         #  USED IN ROLL LOGIC
004904,003357: E6,1541  E6,1653               I                  EQUALS   DELOGA     +1                         #  USED IN ROLL LOGIC
004905,003358: E6,1541  E6,1654               IOGARATE           EQUALS   I          +1                         #  USED IN ROLL LOGIC
004906,003359: 
004907,003360:                                                                                                  #        TVC DAP RESTART TEMPORARIES.
004908,003361: 
004909,003362: E6,1541  E6,1655               PACTTMP            EQUALS   IOGARATE   +1                         #  B(2)
004910,003363: E6,1541  E6,1657               YACTTMP            EQUALS   PACTTMP    +2                         #  B(2)
004911,003364: E6,1541  E6,1661               CNTRTMP            EQUALS   YACTTMP    +2                         #  B(1)
004912,003365: E6,1541  E6,1662               DELBRTMP           EQUALS   CNTRTMP    +1                         #  B(2)
004913,003366: E6,1541  E6,1664               ERRBTMP            EQUALS   DELBRTMP   +2                         #  B(2)
004914,003367: E6,1541  E6,1666               CMDTMP             EQUALS   ERRBTMP    +2                         #  B(2)
004915,003368: 
004916,003369: E6,1541  E6,1670               TMP1               EQUALS   CMDTMP     +2                         #  B(2)
004917,003370: E6,1541  E6,1672               TMP2               EQUALS   TMP1       +2                         #  B(2)
004918,003371: E6,1541  E6,1674               TMP3               EQUALS   TMP2       +2                         #  B(2)
004919,003372: E6,1541  E6,1676               TMP4               EQUALS   TMP3       +2                         #  B(2)
004920,003373: E6,1541  E6,1700               TMP5               EQUALS   TMP4       +2                         #  B(2)
004921,003374: E6,1541  E6,1702               TMP6               EQUALS   TMP5       +2                         #  B(2)
004922,003375: 
004923,003376:                                                                                                  #        TVC DAP FILTER COEFFICIENTS TEMPORARIES
004924,003377: 
004925,003378: E6,1541  E6,1704               COEFFADR           EQUALS   TMP6       +2                         #  B(1)
004926,003379: E6,1541  E6,1705               N10                EQUALS   COEFFADR   +1                         #  I(15)
004927,003380: 
004928,003381: 
004929,003382:                                                                                                  #        OVERLAYS WITHIN TVC DAP
004930,003383: 
004931,003384: E6,1541  E6,1533               OGARATE            =        OMEGAB                                #  B(2)
004932,003385: 
004933,003386: E6,1541  E6,1611               PHASETMP           =        TTMP1                                 #  B(1) RESTART FOR CSM/LM V46 SWITCH-OVER
004934,003387: E6,1541  E6,1613               RTRNLOC            =        TTMP2                                 #  B(1) RESTART FOR CSM/LM V46 SWITCH-OVER
004935,003388: 
004936,003389: 
004937,003390: 
004938,003391:                                                                                                  #        S40.9 STORAGE..........
004939,003392: 
004940,003393: E6,1541  E6,1724               NBRCYCLS           EQUALS   N10        +15D                       #  B(1) COUNTER FOR P40,41 STEERING
004941,003394: E6,1541  E6,1725               NBRCYCLP           EQUALS   NBRCYCLS   +1                         #  B(1) MAINTAIN ORDER
004942,003395: E6,1541  E6,1726               DELVSUM            EQUALS   NBRCYCLP   +1                         #  I(6)  P40,P41
004943,003396: E6,1541  E6,1734               DELVSUMP           EQUALS   DELVSUM    +6                         #  I(6) P40,P41
004944,003397: 

Page 111

004946,003399: 
004947,003400:                                                                                                  #        S40.8 TEMPORARY
004948,003401: 
004949,003402: E6,1541  E6,1734               MASSTMP            EQUALS   DELVSUMP                              #  I(2)
004950,003403: 

Page 112

004952,003405: 
004953,003406:                                                                                                  #  ******** RCS DAP TEMPORARY VARIABLES.**********************************(95D)
004954,003407: 
004955,003408:                                                                                                  #           **RCS INTERUPT TRUE TEMPS*************************            15D
004956,003409: 
004957,003410: E6,1541  E6,1506               SPNDX              EQUALS   INTTEMP                               #  B(1)
004958,003411: E6,1541  E6,1507               DPNDX              EQUALS   SPNDX      +1                         #  B(1)TMP
004959,003412: E6,1541  E6,1510               KMPAC              EQUALS   DPNDX      +1                         #  B(2)TMP
004960,003413: E6,1541  E6,1512               KMPTEMP            EQUALS   KMPAC      +2                         #  B(1)TMP
004961,003414: 
004962,003415: E6,1541  E6,1513               XNDX1              EQUALS   KMPTEMP    +1                         #  B(1)TMP  XNDX1 THRU NYJETS ARE OVERLAYED
004963,003416: E6,1541  E6,1514               XNDX2              EQUALS   XNDX1      +1                         #  B(1)TMP  BY OTHER DAP ERASABLES SO
004964,003417: E6,1541  E6,1515               YNDX               EQUALS   XNDX2      +1                         #  B(1)TMP  SHOULD ALWAYS BE DEFINED IN
004965,003418: E6,1541  E6,1516               ZNDX               EQUALS   YNDX       +1                         #  B(1)TMP  A BLOCK
004966,003419: E6,1541  E6,1517               RINDEX             EQUALS   ZNDX       +1                         #  B(1)TMP
004967,003420: E6,1541  E6,1520               PINDEX             EQUALS   RINDEX     +1                         #  B(1)TMP
004968,003421: E6,1541  E6,1521               YINDEX             EQUALS   PINDEX     +1                         #  B(1)TMP
004969,003422: E6,1541  E6,1522               NRJETS             EQUALS   YINDEX     +1                         #  B(1)TMP
004970,003423: E6,1541  E6,1523               NPJETS             EQUALS   NRJETS     +1                         #  B(1)TMP
004971,003424: E6,1541  E6,1524               NYJETS             EQUALS   NPJETS     +1                         #  B(1)TMP
004972,003425: 
004973,003426: E6,1541  E6,1513               WTEMP              EQUALS   XNDX1                                 #  B(2)TMP  WTEMP THRU DELTEMPZ OVERLAY
004974,003427: E6,1541  E6,1515               DELTEMPX           EQUALS   WTEMP      +2                         #  B(2)TMP  XNDX1 THRU NRJETS AND EDOT THRU
004975,003428: E6,1541  E6,1517               DELTEMPY           EQUALS   DELTEMPX   +2                         #  B(2)TMP  ADBVEL
004976,003429: E6,1541  E6,1521               DELTEMPZ           EQUALS   DELTEMPY   +2                         #  B(2)TMP
004977,003430: 
004978,003431: E6,1541  E6,1515               EDOT               EQUALS   YNDX                                  #  B(2)TMP  EDOT THRU ADBVEL OVERLAY
004979,003432: E6,1541  E6,1517               AERR               EQUALS   EDOT       +2                         #  B(1)TMP  YNDX THRU NPJETS AND DELTEMPX
004980,003433: E6,1541  E6,1520               EDOTVEL            EQUALS   AERR       +1                         #  B(2)TMP   THRU DELTEMPZ
004981,003434: E6,1541  E6,1522               AERRVEL            EQUALS   EDOTVEL    +2                         #  B(1)TMP
004982,003435: E6,1541  E6,1523               ADBVEL             EQUALS   AERRVEL    +1                         #  B(1)TMP
004983,003436: 
004984,003437:                                                                                                  #           *** REGULAR RCS TEMPS*****************************           (   ).
004985,003438: 
004986,003439:                                                                                                  #            RCS ZEROING LOOP STARTS HERE**** ** **  ** ***   *** * *    (37)
004987,003440: 
004988,003441: E6,1541  E6,1525               WBODY              EQUALS   TVCRCS                                #  B(2)TMP
004989,003442: E6,1541  E6,1527               WBODY1             EQUALS   WBODY      +2                         #  B(2)TMP
004990,003443: E6,1541  E6,1531               WBODY2             EQUALS   WBODY      +4                         #  B(2)TMP
004991,003444: E6,1541  E6,1533               ADOT               EQUALS   WBODY2     +2                         #  B(2)TMP
004992,003445: E6,1541  E6,1535               ADOT1              EQUALS   ADOT       +2                         #  B(2)TMP
004993,003446: E6,1541  E6,1537               ADOT2              EQUALS   ADOT1      +2                         #  B(2)TMP
004994,003447: 
004995,003448: E6,1541  E6,1541               MERRORX            EQUALS   ADOT2      +2                         #   (2)
004996,003449: E6,1541  E6,1543               MERRORY            EQUALS   MERRORX    +2                         #   (2)
004997,003450: E6,1541  E6,1545               MERRORZ            EQUALS   MERRORY    +2                         #   (2)
004998,003451: E6,1541  E6,1547               DFT                EQUALS   MERRORZ    +2                         #          B(1)TMP
004999,003452: E6,1541  E6,1550               DFT1               EQUALS   DFT        +1                         #  B(1)TMP
005000,003453: E6,1541  E6,1551               DFT2               EQUALS   DFT1       +1                         #  B(1)TMP
005001,003454: E6,1541  E6,1552               DRHO               EQUALS   DFT2       +1                         #  B(2)TMP
005002,003455: E6,1541  E6,1554               DRHO1              EQUALS   DRHO       +2                         #  B(2)TMP

Page 113

005004,003457: E6,1541  E6,1556               DRHO2              EQUALS   DRHO1      +2                         #  B(2)TMP
005005,003458: E6,1541  E6,1560               ATTSEC             EQUALS   DRHO2      +2                         #  B(1)TMP
005006,003459: E6,1541  E6,1561               TAU                EQUALS   ATTSEC     +1                         #  B(1)TMP
005007,003460: E6,1541  E6,1562               TAU1               EQUALS   TAU        +1                         #  B(1)TMP
005008,003461: E6,1541  E6,1563               TAU2               EQUALS   TAU1       +1                         #  B(1)TMP
005009,003462: E6,1541  E6,1564               BIAS               EQUALS   TAU2       +1                         #  B(1)TMP
005010,003463: E6,1541  E6,1565               BIAS1              EQUALS   BIAS       +1                         #  B(1)TMP
005011,003464: E6,1541  E6,1566               BIAS2              EQUALS   BIAS1      +1                         #  B(1)TMP
005012,003465: E6,1541  E6,1567               ERRORX             EQUALS   BIAS2      +1                         #  B(1)TMP
005013,003466: E6,1541  E6,1570               ERRORY             EQUALS   ERRORX     +1                         #  B(1)TMP
005014,003467: E6,1541  E6,1571               ERRORZ             EQUALS   ERRORY     +1                         #  B(1)TMP
005015,003468: 
005016,003469: 
005017,003470: 
005018,003471:                                                                                                  #        RCS ZERO LOOP ENDS HERE
005019,003472: 
005020,003473: 
005021,003474:                                                                                                  #             MORE RCS                                                   (69D)
005022,003475: 
005023,003476: 
005024,003477: E6,1541  E6,1572               THETADX            EQUALS   ERRORZ     +1                         #  B(1)TMP  MUST BE CONSECUTIVE WITH ERRORZ
005025,003478: E6,1541  E6,1573               THETADY            EQUALS   THETADX    +1                         #  B(1)TMP
005026,003479: E6,1541  E6,1574               THETADZ            EQUALS   THETADY    +1                         #  B(1)TMP
005027,003480: 
005028,003481: E6,1541  E6,1575               DELCDUX            EQUALS   THETADZ    +1                         #  B(2)TMP
005029,003482: E6,1541  E6,1577               DELCDUY            EQUALS   DELCDUX    +2                         #  B(2)TMP
005030,003483: E6,1541  E6,1601               DELCDUZ            EQUALS   DELCDUY    +2                         #  B(2)TMP
005031,003484: 
005032,003485: E6,1541  E6,1603               DCDU               EQUALS   DELCDUZ    +2                         #  B(6)TMP USED DURING P20
005033,003486: E6,1541  E6,1611               DTHETASM           EQUALS   DCDU       +6                         #  B(6)TMP STEER LOW OUTPUT.
005034,003487: 
005035,003488: E6,1541  E6,1617               ATTKALMN           EQUALS   DTHETASM   +6                         #  B(1)TMP
005036,003489: E6,1541  E6,1620               KMJ                EQUALS   ATTKALMN   +1                         #  B(1)TMP
005037,003490: E6,1541  E6,1621               KMJ1               EQUALS   KMJ        +1                         #  B(1)TMP
005038,003491: E6,1541  E6,1622               KMJ2               EQUALS   KMJ1       +1                         #  B(1)TMP
005039,003492: E6,1541  E6,1623               J/M                EQUALS   KMJ2       +1                         #  B(1)TMP
005040,003493: E6,1541  E6,1624               J/M1               EQUALS   J/M        +1                         #  B(1)TMP
005041,003494: E6,1541  E6,1625               J/M2               EQUALS   J/M1       +1                         #  B(1)TMP
005042,003495: E6,1541  E6,1626               RACFAIL            EQUALS   J/M2       +1                         #  B(1)TMP
005043,003496: E6,1541  E6,1627               RBDFAIL            EQUALS   RACFAIL    +1                         #  B(1)TMP
005044,003497: E6,1541  E6,1630               ACORBD             EQUALS   RBDFAIL    +1                         #  B(1)TMP
005045,003498: E6,1541  E6,1631               XTRANS             EQUALS   ACORBD     +1                         #  B(1)TMP
005046,003499: E6,1541  E6,1632               CH31TEMP           EQUALS   XTRANS     +1                         #  B(1)TMP
005047,003500: E6,1541  E6,1633               CHANTEMP           EQUALS   CH31TEMP   +1                         #  B(1)TMP
005048,003501: E6,1541  E6,1634               T5TIME             EQUALS   CHANTEMP   +1                         #  B(1)TMP
005049,003502: E6,1541  E6,1635               RHO                EQUALS   T5TIME     +1                         #  B(1)TMP
005050,003503: E6,1541  E6,1636               RHO1               EQUALS   RHO        +1                         #  B(1)TMP
005051,003504: E6,1541  E6,1637               RHO2               EQUALS   RHO1       +1                         #  B(1)TMP
005052,003505: E6,1541  E6,1640               AMGB1              EQUALS   RHO2       +1                         #  B(1)TMP
005053,003506: E6,1541  E6,1641               AMGB4              EQUALS   AMGB1      +1                         #  B(1)TMP

Page 114

005055,003508: E6,1541  E6,1642               AMGB5              EQUALS   AMGB4      +1                         #  B(1)TMP
005056,003509: E6,1541  E6,1643               AMGB7              EQUALS   AMGB5      +1                         #  B(1)TMP
005057,003510: E6,1541  E6,1644               AMGB8              EQUALS   AMGB7      +1                         #  B(1)TMP
005058,003511: E6,1541  E6,1645               CAPSI              EQUALS   AMGB8      +1                         #  B(1)TMP
005059,003512: E6,1541  E6,1646               CDUXD              EQUALS   CAPSI      +1                         #  B(2)TMP
005060,003513: E6,1541  E6,1650               CDUYD              EQUALS   CDUXD      +2                         #  B(2)TMP
005061,003514: E6,1541  E6,1652               CDUZD              EQUALS   CDUYD      +2                         #  B(2)TMP
005062,003515: E6,1541  E6,1654               SLOPE              EQUALS   CDUZD      +2                         #  B(1)TMP
005063,003516: E6,1541  E6,1655               ADB                EQUALS   SLOPE      +1                         #  B(1)TMP
005064,003517: E6,1541  E6,1656               RMANNDX            EQUALS   ADB        +1                         #  B(1)TMP
005065,003518: E6,1541  E6,1657               PMANNDX            EQUALS   RMANNDX    +1                         #  B(1)TMP
005066,003519: E6,1541  E6,1660               YMANNDX            EQUALS   PMANNDX    +1                         #  B(1)TMP  MUST BE LAST VARIABLE IN RCS
005067,003520: 

Page 115

005069,003522: 
005070,003523:                                                                                                  #  ******** ENTRY DAP TEMPORARY VARIABLES.*********************************(69D)
005071,003524: 
005072,003525:                                                                                                  #   ANGLE REGISTERS FOR ENTRY DAPS
005073,003526: 
005074,003527: E6,1541  E6,1661               AOG                EQUALS   BCDU                                  #  1P
005075,003528: E6,1541  E6,1662               AIG                EQUALS   AOG        +1                         #  1P
005076,003529: E6,1541  E6,1663               AMG                EQUALS   AIG        +1                         #  1P
005077,003530: E6,1541  E6,1664               ROLL/180           EQUALS   AMG        +1                         #  1P
005078,003531: E6,1541  E6,1665               ALFA/180           EQUALS   ROLL/180   +1                         #  1P
005079,003532: E6,1541  E6,1666               BETA/180           EQUALS   ALFA/180   +1                         #  1P
005080,003533: E6,1541  E6,1667               AOG/PIP            EQUALS   BETA/180   +1                         #  1P
005081,003534: E6,1541  E6,1670               AIG/PIP            EQUALS   AOG/PIP    +1                         #  1P
005082,003535: E6,1541  E6,1671               AMG/PIP            EQUALS   AIG/PIP    +1                         #  1P
005083,003536: E6,1541  E6,1672               ROLL/PIP           EQUALS   AMG/PIP    +1                         #  1P
005084,003537: E6,1541  E6,1673               ALFA/PIP           EQUALS   ROLL/PIP   +1                         #  1P
005085,003538: E6,1541  E6,1674               BETA/PIP           EQUALS   ALFA/PIP   +1                         #  1P
005086,003539: 
005087,003540:                                                                                                  #  GYMBAL DIFFERENCES OVER INTERVAL TCDU = .1 SEC.
005088,003541: 
005089,003542: E6,1541  E6,1675               -DELAOG            EQUALS   BETA/PIP   +1                         #  1P
005090,003543: E6,1541  E6,1676               -DELAIG            EQUALS   -DELAOG    +1                         #  1P
005091,003544: E6,1541  E6,1677               -DELAMG            EQUALS   -DELAIG    +1                         #  1P
005092,003545: 
005093,003546:                                                                                                  #  ESTIMATED BODY RATES
005094,003547: 
005095,003548: E6,1541  E6,1700               CMDAPMOD           EQUALS   -DELAMG    +1                         #  1P  GOES BEFORE PREL FOR TM.
005096,003549: 
005097,003550: E6,1541  E6,1701               PREL               EQUALS   CMDAPMOD   +1                         #  1P   P TCDU/180      (ROLLDOT)
005098,003551: E6,1541  E6,1702               QREL               EQUALS   PREL       +1                         #  1P   Q TCDU/180     (PITCHDOT)
005099,003552: E6,1541  E6,1703               RREL               EQUALS   QREL       +1                         #  1P   R TCDU/180     (YAWDOT)
005100,003553: 
005101,003554: E6,1541  E6,1704               BETADOT            EQUALS   RREL       +1                         #  1P  MUST FOLLOW RREL. BETADOT TCDU/180
005102,003555: E6,1541  E6,1705               PHIDOT             EQUALS   BETADOT    +1                         #  1P
005103,003556: 
005104,003557:                                                                                                  #  OLD (UNAVERAGED) BODY RATE MEASURE
005105,003558: 
005106,003559: E6,1541  E6,1706               OLDELP             EQUALS   PHIDOT     +1                         #  1P
005107,003560: E6,1541  E6,1707               OLDELQ             EQUALS   OLDELP     +1                         #  1P
005108,003561: E6,1541  E6,1710               OLDELR             EQUALS   OLDELQ     +1                         #  1P
005109,003562: 
005110,003563: E6,1541  E6,1711               JETAG              EQUALS   OLDELR     +1                         #  1P
005111,003564: E6,1541  E6,1712               TUSED              EQUALS   JETAG      +1                         #  1P   ELAPSED TIME SINCE NOMINAL UPDATE.
005112,003565: 
005113,003566: 
005114,003567: 
005115,003568:                                                                                                  #        FOLLOWING 3 SP WORDS IN DOWNLINK.  ROLLTM SENT EACH 1 SEC.
005116,003569: 
005117,003570: E6,1541  E6,1713               PAXERR1            EQUALS   TUSED      +1                         #  1P   INTEGRATED ROLL ERROR/360.
005118,003571: E6,1541  E6,1714               ROLLTM             EQUALS   PAXERR1    +1                         #  1P   ROLL/180 FOR TM.
005119,003572: E6,1541  E6,1715               ROLLC              EQUALS   ROLLTM     +1                         #  2P   ROLLCOM/360 FROM ENTRY (FOR TM)
005120,003573:                                                                                                  #  >> KEEP ROLLC & ROLLHOLD ADJACENT FOR TP

Page 116

005122,003575: E6,1541  E6,1717               ROLLHOLD           EQUALS   ROLLC      +2                         #  1P FOR ATTITUDE HOLD IN CMDAPMOD = +1
005123,003576: 
005124,003577:                                                                                                  #        ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP.
005125,003578: 
005126,003579: E6,1541  E6,1603               ALFACOM            EQUALS   DCDU                                  #  1P  KEEP ADJACENT TO BETACOM.  <<
005127,003580: E6,1541  E6,1604               BETACOM            EQUALS   ALFACOM    +1                         #  1P
005128,003581: 
005129,003582:                                                                                                  #  JET LIST:   DT, JETBITS  IN THIS ORDER.
005130,003583: 
005131,003584: E6,1541  E6,1605               TOFF               EQUALS   BETACOM    +1                         #  1P   DP PAIR
005132,003585: E6,1541  E6,1606               TBITS              EQUALS   TOFF       +1                         #  1P
005133,003586: E6,1541  E6,1607               TON2               EQUALS   TBITS      +1                         #  1P   DP PAIR
005134,003587: E6,1541  E6,1610               T2BITS             EQUALS   TON2       +1                         #  1P
005135,003588: 
005136,003589:                                                                                                  #   MISCELLANEOUS PERMANENT ERASEABLE.
005137,003590: 
005138,003591: E6,1541  E6,1611               OUTTAG             EQUALS   T2BITS     +1                         #  1P
005139,003592: E6,1541  E6,1612               NUJET              EQUALS   OUTTAG     +1                         #  1P
005140,003593:                                                                                                  #     MORE ENTRY DAP QUANTITIES THAT  DO NOT SHARE WITH RCS DAP.
005141,003594: 
005142,003595: E6,1541  E6,1720               JETEM              EQUALS   ROLLHOLD   +1                         #  2P  THIS DP USED IN RATEAVG.
005143,003596: E6,1541  E6,1722               GAMA               EQUALS   JETEM      +2                         #  1P
005144,003597: E6,1541  E6,1723               GAMDOT             EQUALS   GAMA       +1                         #  1P
005145,003598: E6,1541  E6,1724               POSEXIT            EQUALS   GAMDOT     +1                         #  1P
005146,003599: E6,1541  E6,1725               CM/GYMDT           EQUALS   POSEXIT    +1                         #  1P
005147,003600: E6,1541  E6,1726               HEADSUP            EQUALS   CM/GYMDT   +1                         #  1P  DSP NOUN 61 FOR P62,63,64,67.
005148,003601: E6,1541  E6,1727               P63FLAG            EQUALS   HEADSUP    +1                         #  1P  INTERLOCK FOR WAKEP62
005149,003602: 
005150,003603: 
005151,003604:                                                                                                  #                                >> SHARE BELOW WITH RCS RUPT TEMPS (< 15D) <<<
005152,003605: E6,1541  E6,1506               CALFA              EQUALS   SPNDX                                 #  1P
005153,003606: E6,1541  E6,1507               SALFA              EQUALS   CALFA      +1                         #  1P
005154,003607: 
005155,003608: E6,1541  E6,1510               SINM               EQUALS   SALFA      +1                         #  1P
005156,003609: E6,1541  E6,1511               COSM               EQUALS   SINM       +1                         #  1P
005157,003610: E6,1541  E6,1512               SINO               EQUALS   COSM       +1                         #  1P
005158,003611: E6,1541  E6,1513               COSO               EQUALS   SINO       +1                         #  1P
005159,003612: E6,1541  E6,1514               SINOCOSM           EQUALS   COSO       +1                         #  1P
005160,003613: E6,1541  E6,1515               COSOCOSM           EQUALS   SINOCOSM   +1                         #  1P
005161,003614:                                                                                                  #                                >> SHARE ABOVE WITH RCS RUPT TEMPS          <<<
005162,003615: 
005163,003616:                                                                                                  #        THE FOLLOWING FEW REGISTERS USED ONCE EACH 2 SEC.
005164,003617: 
005165,003618: E6,1541  E6,1613               -VT/180            EQUALS   NUJET      +1                         #  1P
005166,003619: E6,1541  E6,1614               LCX/360            EQUALS   -VT/180    +1                         #  1P
005167,003620: E6,1541  E6,1615               XD/360             EQUALS   LCX/360    +1                         #  1P
005168,003621: E6,1541  E6,1616               VSQ/4API           EQUALS   XD/360     +1                         #  1P
005169,003622: E6,1541  E6,1617               JNDX               EQUALS   VSQ/4API   +1                         #  1P
005170,003623: E6,1541  E6,1620               JNDX1              EQUALS   JNDX       +1                         #  1P

Page 117

005172,003625: E6,1541  E6,1621               TON1               EQUALS   JNDX1      +1                         #  1P   DP PAIR
005173,003626: E6,1541  E6,1622               T1BITS             EQUALS   TON1       +1                         #  1P
005174,003627: 
005175,003628:                                                                                                  #        MISCELLANEOUS REGISTERS USED EACH UPDATE.
005176,003629: 
005177,003630: E6,1541  E6,1623               CM/SAVE            EQUALS   T1BITS     +1                         #  1P
005178,003631: E6,1541  E6,1624               JETEM2             EQUALS   CM/SAVE    +1                         #  1P  TEMPORARY STORAGE
005179,003632: 
005180,003633:                                                                                                  #        DAP   QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
005181,003634: 
005182,003635: E6,1541  E6,1567               VDT/180            =        ERRORX                                #  1P   (EDIT)
005183,003636: E6,1541  E6,1570               -VT/180E           =        ERRORY                                #  1P   (EDIT)
005184,003637: 
005185,003638: E6,1541  E6,1476               PAXERR             EQUALS   AK                                    #  1P  ROLL ERROR FOR NEEDLES
005186,003639: E6,1541  E6,1572               QAXERR             =        THETADX                               #  1P  SINCE AK1 IS ZEROED IN ATM DAP.
005187,003640: E6,1541  E6,1573               RAXERR             =        QAXERR     +1                         #  1P  SINCE AK2 IS ZEROED IN TM DAP.
005188,003641: 
005189,003642: 
005190,003643: 
005191,003644:                                                                                                  #        **** COLMANU (R60,R62) ****
005192,003645: 
005193,003646: E6,1541  E6,1710               VECQTEMP           EQUALS   COFSKEW                               
005194,003647: 

Page 118

005196,003649: 
005197,003650:                                                                                                  #  ******** KALCMANU VARIABLES. (71D) *************************************
005198,003651: E6,1541  E6,1661               BCDU               EQUALS   YMANNDX    +1                         #  B(3) TMP
005199,003652: E6,1541  E6,1664               KSPNDX             EQUALS   BCDU       +3                         #  B(1)TMP
005200,003653: E6,1541  E6,1665               KDPNDX             EQUALS   KSPNDX     +1                         #  B(1)TMP
005201,003654: 
005202,003655: E6,1541  E6,1666               TMIS               EQUALS   KDPNDX     +1                         #  I(18) MUST BE IN SAME BANK AS RCS DAP
005203,003656: E6,1541  E6,1710               COFSKEW            EQUALS   TMIS       +18D                       #  I(6)  MUST BE IN SAME BANK AS RCS DAP
005204,003657: E6,1541  E6,1716               CAM                EQUALS   COFSKEW    +6                         #  I(2)  MUST BE IN SAME BANK AS RCS DAP
005205,003658: 
005206,003659: E6,1541  E6,1720               MIS                EQUALS   CAM        +2                         #  I(18)  (THE REST MAY GO ANYWHERE)
005207,003660: E6,1541  E6,1742               COF                EQUALS   MIS        +18D                       #  I(6)TMP
005208,003661: E6,1541  E6,1750               SCAXIS             EQUALS   COF        +6                         #  I(6)TMP
005209,003662: E6,1541  E6,1756               POINTVSM           EQUALS   SCAXIS     +6                         #  I(6)TMP
005210,003663: E6,1541  E6,1764               AM                 EQUALS   POINTVSM   +6                         #  I(2)TMP
005211,003664: E6,1541  E6,1766               RAD                EQUALS   AM         +2                         #  I(2)TMP
005212,003665: 
005213,003666: 
005214,003667:                                                                                                  #  FIRST-ORDER OVERLAYS IN KALCMANU                                      (12D+8D)
005215,003668: 
005216,003669: E6,1541  E6,1666               MFISYM             EQUALS   TMIS                                  #  I   TMP
005217,003670: E6,1541  E6,1666               TMFI               EQUALS   TMIS                                  #  I   TMP
005218,003671: E6,1541  E6,1666               NCDU               EQUALS   TMIS                                  #  B   TMP
005219,003672: E6,1541  E6,1671               NEXTIME            EQUALS   TMIS       +3                         #  B   TMP
005220,003673: E6,1541  E6,1672               TTEMP              EQUALS   TMIS       +4                         #  B   TMP
005221,003674: E6,1541  E6,1674               BIASTEMP           EQUALS   TMIS       +6                         #  B   TMP
005222,003675: E6,1541  E6,1710               BRATE              EQUALS   COFSKEW                               #  B   TMP
005223,003676: E6,1541  E6,1716               TM                 EQUALS   CAM                                   #  B   TMP
005224,003677: 
005225,003678:                                                                                                  #        UT TEMPS
005226,003679: 
005227,003680: E6,1541  E6,1750               UTX                EQUALS   SCAXIS                                #  I(6)
005228,003681: E6,1541  E6,1756               UTY                EQUALS   POINTVSM                              #  I(6)
005229,003682: 
005230,003683: 
005231,003684:                                                                                                  #        SATURN BOOST STORAGE. SAVE TILL RCS DAP OPERATION.              (17D)
005232,003685: 
005233,003686: E6,1541  E6,1661               POLYNUM            EQUALS   BCDU                                  #  B(15) PAD LOADED
005234,003687: E6,1541  E6,1673               POLYLOC            =        POLYNUM    +10D                       
005235,003688: E6,1541  E6,1700               SATRLRT            EQUALS   POLYNUM    +15D                       #  B(2)  PAD LOADED
005236,003689: 
005237,003690: 
005238,003691: 
005239,003692:                                                                                                  #        MORE P11 STORAGE -PAD LOADED-                                   (2D)
005240,003693: 
005241,003694:                                                                                                  #        (NOTE: THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU,
005242,003695:                                                                                                  #         ENTRY DAP AND TVC DAP)
005243,003696: 
005244,003697: E6,1541  E6,1702               RPSTART            EQUALS   SATRLRT    +2                         #  B(1) PITCH ROLL START TIME
005245,003698: E6,1541  E6,1703               POLYSTOP           EQUALS   RPSTART    +1                         #  B(1) POLY CUTOFF MINUS RPSTART SEC
005246,003699: 
005247,003700: 

Page 119

005249,003702: 
005250,003703:                                                                                                  #        P11 STORAGE                                                     (4D)
005251,003704: 
005252,003705: E6,1541  E6,1704               SPOLYARG           EQUALS   POLYSTOP   +1                         #  B(1)TMP ARG FOR POLY
005253,003706: E6,1541  E6,1705               BOOSTEMP           EQUALS   SPOLYARG   +1                         #  B(3)TEMP
005254,003707: 
005255,003708: 
005256,003709:                                                                                                  #  P11 SATURN I/F                                                        (9D)
005257,003710: 
005258,003711: E6,1541  E6,1710               SATRATE            EQUALS   BOOSTEMP   +3                         #  B(4)PL MANEUVER RATES FOR SATURN STICK
005259,003712: E6,1541  E6,1714               SATSW              EQUALS   SATRATE    +4                         #  B(1)TEM STATUS SW FOR BOOST TAKEOVER
005260,003713: E6,1541  E6,1715               BIASAK             EQUALS   SATSW      +1                         #  B(3)TEM STORE AK BIAS FOR BOOST TAKEOVER
005261,003714: E6,1541  E6,1720               SATSCALE           EQUALS   BIASAK     +3                         #  B(1) SCALE FACTOR FOR SATURN STEERING
005262,003715: 
005263,003716: 
005264,003717: 
005265,003718:                                                                                                  #        P21 STORAGE.                                                    (1D)
005266,003719: 
005267,003720: E6,1541  E6,1770               GENRET             EQUALS   RAD        +2                         #  B(1)TMP
005268,003721: 
005269,003722: 
005270,003723:                                                                                                  #        R61CSM STORAGE.                                                 (1D)
005271,003724: 
005272,003725: E6,1541  E6,1771               SAVBNK             EQUALS   GENRET     +1                         #  B(1) S-S SAVE EBANK FOR R61 SUBROUTINE
005273,003726: 
005274,003727: 
005275,003728:                                                                                                  #  R67 STORAGE                                                           (1D)
005276,003729: 
005277,003730: E6,1541  E6,1772               RATEPTC            EQUALS   SAVBNK     +1                         #  B(1)
005278,003731: 
005279,003732: 
005280,003733:                                                                                                  #        PERMANENT STORAGE FOR P20 DEADBAND                              (1D)
005281,003734: 
005282,003735: E6,1541  E6,1773               DBPTC              EQUALS   RATEPTC    +1                         #  B(1)
005283,003736: 
005284,003737: 
005285,003738:                                                                                                  #  R61,R67 STORAGE.                                                      (1D)
005286,003739: 
005287,003740: 
005288,003741: E6,1541  E6,1774               R61CNTR            EQUALS   DBPTC      +1                         #  B(1)
005289,003742:                                                                                                  #        ENTRY RESTART PROTECTION STORAGE. -KEEP TEMPS IN ORDER-         (12D)
005290,003743: 
005291,003744: E6,1541  E6,1770               TEMPROLL           EQUALS   GENRET                                #  B(1)TMP COPY CYCLE REGISTER
005292,003745: E6,1541  E6,1771               TEMPALFA           EQUALS   TEMPROLL   +1                         #  B(1)TMP COPY CYCLE REGISTER
005293,003746: E6,1541  E6,1772               TEMPBETA           EQUALS   TEMPALFA   +1                         #  B(1)TMP COPY CYCLE REGISTER
005294,003747: E6,1541  E6,1773               60GENRET           EQUALS   TEMPBETA   +1                         #  B(1)TMP QSAVE FOR S61.1 AND ENTRY.
005295,003748: E6,1541  E6,1774               S61DT              EQUALS   60GENRET   +1                         #  B(1)TMP VARIABLE DT FOR S61.1 RESTART.
005296,003749: 
005297,003750: 
005298,003751: 
005299,003752:                                                                                                  #        ENTRY TM SHARING FOR ACCELERATION PROFILE.
005300,003753: 

Page 120

005302,003755: E6,1541  E6,1533               XPIPBUF            EQUALS   ADOT                                  #  B(1) PIPA BUFFER FOR TM DURING ENTRY.
005303,003756: E6,1541  E6,1534               YPIPBUF            EQUALS   XPIPBUF    +1                         #  B(1) PIPS FILED HERE EACH .5 SEC APPEAR
005304,003757: E6,1541  E6,1535               ZPIPBUF            EQUALS   YPIPBUF    +1                         #  B(1) ON DOWNLIST ONCE PER SECOND DURING
005305,003758: E6,1541  E6,1536               XOLDBUF            EQUALS   ZPIPBUF    +1                         #  B(1) ENTRY AFTER RCS DAP HAS BEEN DIS-
005306,003759: E6,1541  E6,1537               YOLDBUF            EQUALS   XOLDBUF    +1                         #  B(1) ABLED. NEWEST PIP VALUE REPLACES
005307,003760: E6,1541  E6,1540               ZOLDBUF            EQUALS   YOLDBUF    +1                         #  B(1) PIPBUF,WHICH IS MOVED INTO OLDBUF.
005308,003761: 
005309,003762: 
005310,003763:                                                                                                  #        REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
005311,003764: 
005312,003765: E6,1541  E6,1574               Q7                 =        THETADZ                               #  I(2)   HI-WORD ONLY ON DNLIST.
005313,003766: 
005314,003767: E6,1541  E6,1525               ASPS(TM)           =        WBODY                                 #  I(6) DWN
005315,003768:                                                                                                  #        ASKEP,ASP1,ASPUP,ASPDN,ASP3,ASP3+1
005316,003769: 
005317,003770:                                                                                                  #        P23 PAD LOAD (2D)
005318,003771: 
005319,003772: E6,1541  E6,1775               HORISLP            EQUALS   R61CNTR    +1                         #  I(2)PL
005320,003773: 

Page 121

005322,003775: 
005323,003776:                                                                                                  #                EBANK-7 ASSIGNMENTS
005324,003777: 
005325,003778: E7,1400                                           SETLOC   3400                                  
005326,003779: 
005327,003780: 
005328,003781:                                                                                                  #        *-*-*-*- OVERLAY 0 IN EBANK 7 -*-*-*-*
005329,003782: 
005330,003783:                                                                                                  #        EXTERNAL DELTA-V UPDATE.                                        (21D)
005331,003784: 
005332,003785:                                                                                                  #        (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAMS PICK UP 'LAT(SPL)' WITH A VLOAD.)
005333,003786: 
005334,003787: E7,1400                        LAT(SPL)           ERASE    +20D                                  #  I(2)      DSP NOUN 61 FOR P62,63,64,67
005335,003788: E7,1425  E7,1402               LNG(SPL)           EQUALS   LAT(SPL)   +2                         #  I(2)DSP NOUN 61 FOR P62,63,64,67.
005336,003789: 
005337,003790: E7,1425  E7,1404               DELVSLV            EQUALS   LNG(SPL)   +2                         #  I(6)TMP DELTA VEL VECT, LOC VER COORDS
005338,003791: E7,1425  E7,1412               TIG                EQUALS   DELVSLV    +6                         #  B(2)DSP NOUN 33 FOR X-V84(R32),P30,40.
005339,003792: E7,1425  E7,1414               RTARG              EQUALS   TIG        +2                         #  I(6)IN  DESIRED VEHICHE RADIUS VECTOR
005340,003793: E7,1425  E7,1422               DELLT4             EQUALS   RTARG      +6                         #  I(2)IN  TIME DIFFERENCE FOR INITVEL
005341,003794: E7,1425  E7,1424               ECSTEER            EQUALS   DELLT4     +2                         #  I(1)PL   FOR P40 S
005342,003795: E7,1425  E7,1404               DELVLVC            =        DELVSLV                               
005343,003796: E7,1425                        END-DELV           ERASE                                          #  *NEXT AVAIL LOC AFTER UNSHARED E7*
005344,003797: 
005345,003798: 
005346,003799: 
005347,003800:                                                                                                  #        SERVICER STORAGE.                                               (12D)
005348,003801: 
005349,003802: E7,1426  E7,1425               DVTOTAL            EQUALS   END-DELV                              #  B(2) DSP NOUN 40,99 FOR P30,34,35,40
005350,003803: E7,1426  E7,1427               TGO                EQUALS   DVTOTAL    +2                         #  B(2)
005351,003804: E7,1426  E7,1431               DELVREF            EQUALS   TGO        +2                         #  I(6)TMP
005352,003805: E7,1426  E7,1447               NOMTIG             EQUALS   END-KALC                              #  I(2) (CAN NOT SHARE WITH KALCMANU
005353,003806:                                                                                                  #  OR DELVREF)
005354,003807: E7,1426  E7,1451               END-SVCR           EQUALS   NOMTIG     +2                         #  ***NEXT AVAILABLE AFTER SERVICER
005355,003808: 
005356,003809: 
005357,003810: 
005358,003811:                                                                                                  #        ALIGNMENT STORAGE.                                              (7D)
005359,003812: 
005360,003813: E7,1426  E7,1451               VEL/C              EQUALS   END-SVCR                              #  I(6)TMP
005361,003814: E7,1426  E7,1457               R53EXIT            EQUALS   VEL/C      +6                         #  I(1)TMP
005362,003815: 
005363,003816:                                                                                                  #        ALIGNMENT MARKDATA (DOWNLNK) ******                             (7D)
005364,003817: E7,1426  E7,1460               MARK2DWN           EQUALS   R53EXIT    +1                         #  (7)  USED BY ALLIGNMENT P50S
005365,003818: 

Page 122

005367,003820: 
005368,003821:                                                                                                  #        *-*-*-*- OVERLAY 1 IN EBANK 7 -*-*-*-*
005369,003822: 
005370,003823:                                                                                                  #  REENTRY ERASABLES                                                     (181D+4D)
005371,003824: 
005372,003825: E7,1426  E7,1451               RTINIT             EQUALS   END-SVCR                              #  6P
005373,003826: E7,1426  E7,1457               RTEAST             EQUALS   RTINIT     +6                         #  6P
005374,003827: E7,1426  E7,1465               RTNORM             EQUALS   RTEAST     +6                         #  6P
005375,003828: E7,1426  E7,1473               RT                 EQUALS   RTNORM     +6                         #  6P
005376,003829: E7,1426  E7,1501               UNI                EQUALS   RT         +6                         #  6P
005377,003830: E7,1426  E7,1507               UNITV              EQUALS   UNI        +6                         #  6P
005378,003831: E7,1426  E7,1515               VEL                EQUALS   UNITV      +6                         #  6P
005379,003832: 
005380,003833: E7,1426  E7,1523               TIME/RTO           EQUALS   VEL        +6                         #  2P   TIME OF INITIAL TARGET, RTO.
005381,003834: E7,1426  E7,1525               -VREL              EQUALS   TIME/RTO   +2                         #  6P
005382,003835: E7,1426  E7,1533               OLDUYA             EQUALS   -VREL      +6                         #  6P   USED BY CM/POSE    (ENTRY DAP)
005383,003836: E7,1426  E7,1541               UXA/2              EQUALS   OLDUYA     +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)  -UVA
005384,003837: E7,1426  E7,1541               URH                =        UXA/2                                 #            P61 DISPLAY NOUN
005385,003838: E7,1426  E7,1547               UYA/2              EQUALS   UXA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)   UYA
005386,003839: E7,1426  E7,1555               UZA/2              EQUALS   UYA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)   UNA
005387,003840: E7,1426  E7,1563               UBX/2              EQUALS   UZA/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005388,003841: E7,1426  E7,1571               UBY/2              EQUALS   UBX/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005389,003842: E7,1426  E7,1577               UBZ/2              EQUALS   UBY/2      +6                         #  6P   USED BY CM/POSE  (ENTRY DAP)
005390,003843: 
005391,003844: E7,1426  E7,1605               DTEAROT            EQUALS   UBZ/2      +6                         #  2P
005392,003845: E7,1426  E7,1607               DIFF               EQUALS   DTEAROT    +2                         #  2P
005393,003846: E7,1426  E7,1611               DIFFOLD            EQUALS   DIFF       +2                         #  2P
005394,003847: E7,1426  E7,1613               FACTOR             EQUALS   DIFFOLD    +2                         #  2P
005395,003848: E7,1426  E7,1615               FACT1              EQUALS   FACTOR     +2                         #  2P
005396,003849: E7,1426  E7,1617               FACT2              EQUALS   FACT1      +2                         #  2P
005397,003850:                                                                                                  # Q7             =       THETADZ           2P  SHARED FOR TM.   P64-P66
005398,003851: E7,1426  E7,1621               VSQUARE            EQUALS   FACT2      +2                         #  2P
005399,003852: E7,1426  E7,1623               LAD                EQUALS   VSQUARE    +2                         #  2P
005400,003853: E7,1426  E7,1625               LOD                EQUALS   LAD        +2                         #  2P
005401,003854: E7,1426  E7,1627               L/DCMINR           EQUALS   LOD        +2                         #  2P
005402,003855: E7,1426  E7,1631               KLAT               EQUALS   L/DCMINR   +2                         #  2P
005403,003856: E7,1426  E7,1633               L/D                EQUALS   KLAT       +2                         #  2P
005404,003857: E7,1426  E7,1635               L/D1               EQUALS   L/D        +2                         #  2P
005405,003858: E7,1426  E7,1724               LEWD               =        VIO                                   #  2P   SHARED FOR TM.  P64-P65
005406,003859: E7,1426  E7,1637               D                  EQUALS   L/D1       +2                         #  2P   DSP NOUN 64,66,68 FOR P63,64,67
005407,003860:                                                                                                  # V1             =       ENDBUF +1         2P   SHARED FOR TM.  P64-P65
005408,003861: E7,1426  E7,1641               DLEWD              EQUALS   D          +2                         #  2P
005409,003862: E7,1426  E7,1643               K2ROLL             EQUALS   DLEWD      +2                         #  2 P
005410,003863: E7,1426  E7,1645               GOTOADDR           EQUALS   K2ROLL     +2                         #  1P
005411,003864: E7,1426  E7,1646               TEM1B              EQUALS   GOTOADDR   +1                         #  2 P
005412,003865: E7,1426  E7,1650               MM                 EQUALS   TEM1B      +2                         #  2 P
005413,003866: E7,1426  E7,1651               GRAD               EQUALS   MM         +1                         #  1P
005414,003867: E7,1426  E7,1652               FX                 EQUALS   GRAD       +1                         #  1P   OVERWRITES NEXT 5 LOCS IN P67.
005415,003868: E7,1426  E7,1653               LEQ                EQUALS   FX         +1                         #  2P
005416,003869: E7,1426  E7,1655               DHOOK              EQUALS   LEQ        +2                         #  2P
005417,003870: E7,1426  E7,1657               AHOOKDV            EQUALS   DHOOK      +2                         #  2P

Page 123

005419,003872: E7,1426  E7,1661               DVL                EQUALS   AHOOKDV    +2                         #  2P
005420,003873:                                                                                                  # A0             =       ENDBUF +3         2P    SHARED FOR TM.(HI-WD ) P64-P65
005421,003874: E7,1426  E7,1663               A1                 EQUALS   DVL        +2                         #  2P
005422,003875: E7,1426  E7,1665               VBARS              EQUALS   A1         +2                         #  2P
005423,003876: E7,1426  E7,1667               COSG/2             EQUALS   VBARS      +2                         #  2P
005424,003877: E7,1426                        GAMMAL1            =        22D                                   #  2P
005425,003878: E7,1426  E7,1671               VS1                EQUALS   COSG/2     +2                         #  2P
005426,003879: E7,1426  E7,1673               V                  EQUALS   VS1        +2                         #  2P
005427,003880:                                                                                                  # VREF           =       THETAD +2         2P   SHARED FOR TM    P65
005428,003881: E7,1426  E7,1675               LATANG             EQUALS   V          +2                         #  2P   ADJACENT FOR TM.
005429,003882: E7,1426  E7,1677               RDOT               EQUALS   LATANG     +2                         #  2P   ADJACENT FOR TM.
005430,003883: E7,1426  E7,1701               THETAH             EQUALS   RDOT       +2                         #  2P   DSP NOUN 64,67 FOR P63,64,67
005431,003884:                                                                                                  # RDOTREF        =       THETAD            2P   SHARED FOR TM     P65
005432,003885: E7,1426  E7,1703               ALP                EQUALS   THETAH     +2                         #  2P
005433,003886: 
005434,003887: E7,1426  E7,1730               ASKEP              =        ASPS                                  #  2P)                 THESE ARE STORED IN
005435,003888: E7,1426  E7,1731               ASP1               =        ASPS       +1                         #  2P)                 SEQUENCE,OVERLAPPING
005436,003889: E7,1426  E7,1732               ASPUP              =        ASPS       +2                         #  2P)>HI-WD OF EACH<  HI-WORD ONLY APPEARS
005437,003890: E7,1426  E7,1733               ASPDWN             =        ASPS       +3                         #  2P)                 ON DOWNLIST, EXCEPT 
005438,003891: E7,1426  E7,1734               ASP3               =        ASPS       +4                         #  2P)                 ASP3 IS COMPLETE.
005439,003892: 
005440,003893: E7,1426  E7,1705               C/D0               EQUALS   ALP        +2                         #  2P   -1/D0
005441,003894: E7,1426  E7,1707               D0                 EQUALS   C/D0       +2                         #  I(2)    CONSTANT DRAG
005442,003895: E7,1426  E7,1711               Q2                 EQUALS   D0         +2                         #  2P
005443,003896: 
005444,003897:                                                                                                  #        ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP.
005445,003898: E7,1426  E7,1713               RTGO               EQUALS   Q2         +2                         #  2P   DSP NOUN 66 FOR P64,P67.
005446,003899: E7,1426  E7,1715               DNRNGERR           EQUALS   RTGO       +2                         #  2P DSP NOUN 66 FOR P64,67.
005447,003900: E7,1426  E7,1675               XRNGERR            =        LATANG                                #       FOR DISKY DISPLAY
005448,003901: E7,1426  E7,1717               KAT                EQUALS   DNRNGERR   +2                         #  2P
005449,003902: E7,1426  E7,1721               GMAX               EQUALS   KAT        +2                         #  1P  DSP NOUN 60 FOR P61,62,63.
005450,003903:                                                                                                  #  GMAX IS LOADED IN DOUBLE PRECISION
005451,003904: E7,1426  E7,1726               L/DCALC            =        TTE                                   #  2P  CALCULATED L/D FOR TM:  P64 - P67.
005452,003905: 
005453,003906: 
005454,003907: E7,1426  E7,1756               VL                 =        VPRED                                 #  2P  SHARED FOR TM  P64-P65
005455,003908: E7,1426  E7,1760               GAMMAL             =        GAMMAEI                               #  2P  SHARED FOR TM  P64
005456,003909: E7,1426  E7,1760               PREDANG            =        GAMMAEI                               #       FOR TM IN P67.
005457,003910: E7,1426  E7,1761               JJ                 =        PREDANG    +1                         #       FOR TM IN P67.
005458,003911: 
005459,003912: 
005460,003913:                                                                                                  #     ENTRY P11  P15
005461,003914: 
005462,003915: E7,1426  E7,1722               VMAGI              EQUALS   GMAX       +1                         #  2P DSP NOUN 62,64,68 FOR P11,63,64.
005463,003916: 
005464,003917: E7,1426  E7,1724               VIO                EQUALS   VMAGI      +2                         #  2P  DSP NOUN 63 FOR P61.
005465,003918: E7,1426  E7,1726               TTE                EQUALS   VIO        +2                         #  2P  DSP NOUN 63 FOR P61.
005466,003919: 
005467,003920: 
005468,003921: E7,1426  E7,1730               ASPS               EQUALS   TTE        +2                         #  I(2)     HI-WORD ONLY ON DNLIST FOR TEMP

Page 124

005470,003923: E7,1426  E7,1732               TTE1               EQUALS   ASPS       +2                         #  I(2ETMP HOLDS UNDECREMENTED TTE VALUE
005471,003924: 
005472,003925: 
005473,003926: E7,1426  E7,1734               TTE2               EQUALS   TTE1       +2                         #  I(2) HOLDS COMPENSATED TTE VALUE DURING
005474,003927:                                                                                                  #       P61 THRU P63 FOR  N63 DISPLAY
005475,003928: 
005476,003929:                                                                                                  #        **** P6OS ****                                                  (2D)
005477,003930: 
005478,003931: E7,1426  E7,1713               RTGON64            EQUALS   RTGO                                  #  RANGE ERRORS NEGATIVE IF FALLS SHORT
005479,003932: E7,1426  E7,1713               RTGON67            EQUALS   RTGO                                  #     DSP NOUN 67
005480,003933: 
005481,003934: 
005482,003935: 
005483,003936:                                                                                                  #        REENTRY, RETURN TO EARTH COMMON DISPLAY.                        (4D)
005484,003937: 
005485,003938: E7,1426  E7,1756               VPRED              EQUALS   BETA12     +2                         #  DSP NOUN 60 FOR P61,   ,62,63.
005486,003939: E7,1426  E7,1760               GAMMAEI            EQUALS   VPRED      +2                         #  DSP NOUN 60 FOR P61,   ,62,63.
005487,003940: 
005488,003941: 
005489,003942: 
005490,003943:                                                                                                  #        DISPLAY REGISTER FOR VG                                         (2D)
005491,003944: 
005492,003945: E7,1426  E7,1762               VGDISP             EQUALS   GAMMAEI    +2                         #  B(2)DSP N.40,42,99 FOR P30,34,35,37,40,
005493,003946:                                                                                                  #            41 VG DISPLAY
005494,003947: 
005495,003948: 
005496,003949:                                                                                                  #        SOME P11 DISPLAY REGISTERS.                                     (4D)
005497,003950: 
005498,003951: E7,1426  E7,1736               ALTI               EQUALS   TTE2       +2                         #  2P DSP NOUN 62 FOR P11
005499,003952: E7,1426  E7,1740               HDOT               EQUALS   ALTI       +2                         #  2P DSP NOUN 62 FOR P11.
005500,003953: 
005501,003954:                                                                                                  #        P15,S11.1 INTERFACE                                             (4D)
005502,003955: 
005503,003956: E7,1426  E7,1722               VNOW               =        VMAGI                                 
005504,003957: 
005505,003958: E7,1426  E7,1724               VGTLI              EQUALS   VMAGI      +2                         #  I(2)TMP
005506,003959: 

Page 125

005508,003961: 
005509,003962:                                                                                                  #        *-*-*-*- OVERLAY 2 IN EBANK 7 -*-*-*-*
005510,003963: 
005511,003964:                                                                                                  #        KALCMANU STORAGE.                                               (18D)
005512,003965: 
005513,003966: E7,1426  E7,1425               MFS                EQUALS   END-DELV                              #  I(18)
005514,003967: E7,1426  E7,1425               MFI                EQUALS   MFS                                   #  I   TMP
005515,003968: E7,1426  E7,1425               DEL                EQUALS   MFS                                   #  I   TMP
005516,003969: E7,1426  E7,1447               END-KALC           EQUALS   MFS        +18D                       #  **NEXT AVAIL LOC AFTER KALCMANU **
005517,003970: 
005518,003971: 
005519,003972:                                                                                                  #        MEASUREMENT INCORPORATION STORAGE(R22) STORAGE.                 (56D)
005520,003973: 
005521,003974: E7,1426  E7,1447               TX789              EQUALS   END-KALC                              #  I(6)TMP
005522,003975: E7,1426  E7,1455               GAMMA              EQUALS   TX789      +6                         #  I(2)TMP
005523,003976: E7,1426  E7,1457               OMEGA              EQUALS   GAMMA      +2                         #  I(18)TMP
005524,003977: E7,1426  E7,1501               BVECTOR            EQUALS   OMEGA      +18D                       #  I(18)TMP
005525,003978: E7,1426  E7,1523               DELTAQ             EQUALS   BVECTOR    +18D                       #  I(2)TMP
005526,003979: E7,1426  E7,1525               VARIANCE           EQUALS   DELTAQ     +2                         #  I(3)TMP
005527,003980: E7,1426  E7,1530               RCLP               EQUALS   VARIANCE   +3                         #  I(6)TMP
005528,003981: E7,1426  E7,1536               GRP2SVQ            EQUALS   RCLP       +6                         #  I(1)TMP QSAVE FOR RESTARTS
005529,003982: 
005530,003983: 
005531,003984:                                                                                                  #        P22 TEMP
005532,003985: 
005533,003986: E7,1426  E7,1501               S22UMRL            EQUALS   BVECTOR                               #  I(18)
005534,003987: 
005535,003988: 
005536,003989:                                                                                                  #        P20, P22, P23 DSP NOUN                                          (5D)
005537,003990: 
005538,003991: E7,1426  E7,1501               N49DISP            EQUALS   BVECTOR                               #  B(5)TMP
005539,003992: 
005540,003993: 
005541,003994:                                                                                                  #        S22.1 STORAGE.                                                  (36D)
005542,003995: 
005543,003996: E7,1426  E7,1537               SVMRKDAT           EQUALS   GRP2SVQ    +1                         #  I(36)TMP 5 SETS OF MARK DATA +PAD OF ONE
005544,003997: 
005545,003998: 
005546,003999:                                                                                                  #        **** CISLUNAR NAV. ERAS. (P20S) ****                            (42D)
005547,004000: 
005548,004001: E7,1426  E7,1603               UBAR0              EQUALS   SVMRKDAT   +36D                       
005549,004002: E7,1426  E7,1611               UBAR1              EQUALS   UBAR0      +6                         
005550,004003: E7,1426  E7,1617               UBAR2              EQUALS   UBAR1      +6                         
005551,004004: E7,1426  E7,1625               RZC                EQUALS   UBAR2      +6                         
005552,004005: E7,1426  E7,1633               VZC                EQUALS   RZC        +6                         
005553,004006: E7,1426  E7,1641               UCLSTAR            EQUALS   VZC        +6                         
005554,004007: E7,1426  E7,1647               USSTAR             EQUALS   UCLSTAR    +6                         
005555,004008: 

Page 126

005557,004010: 
005558,004011:                                                                                                  #        *-*-*-*- OVERLAY 3 IN EBANK 7 -*-*-*-*
005559,004012: 
005560,004013:                                                                                                  #        RENDEZVOUS GUIDANCE STORAGE. - P32...P35 -                      (8D)
005561,004014: 
005562,004015: E7,1426  E7,1447               DELTEEO            EQUALS   END-KALC                              #  I(2) S-S BACK VALUES OF DELTA TIME
005563,004016: E7,1426  E7,1451               DELEL              EQUALS   DELTEEO    +2                         #  I(2) S-S
005564,004017: E7,1426  E7,1453               SECMAX             EQUALS   DELEL      +2                         #  I(2) S-S MAX STOP SIZE FOR ROUTINE
005565,004018: E7,1426  E7,1455               XXXALT             EQUALS   SECMAX     +2                         #  I(2)
005566,004019: 
005567,004020: 
005568,004021: 
005569,004022:                                                                                                  #        S40.9 STORAGE.                                                  (16D)
005570,004023: 
005571,004024: E7,1426  E7,1457               VG                 EQUALS   XXXALT     +2                         #  I(6)TMP
005572,004025: E7,1426  E7,1465               VRPREV             EQUALS   VG         +6                         #  I(6)
005573,004026: E7,1426  E7,1473               TNIT               EQUALS   VRPREV     +6                         #  I(2)
005574,004027: E7,1426  E7,1475               TNITPREV           EQUALS   TNIT       +2                         #  I(2)
005575,004028: 
005576,004029: 
005577,004030:                                                                                                  #        P30'S COMMON STORAGE                                            (24D)
005578,004031: 
005579,004032: E7,1426  E7,1537               RACT3              EQUALS   GRP2SVQ    +1                         #  I(6)TMP POSITION OF ACTIVE AT TPI TIME.
005580,004033: E7,1426  E7,1545               VACT3              EQUALS   RACT3      +6                         #  I(6)TMP VELOCITY OF ACTIVE AT TPI TIME.
005581,004034: E7,1426  E7,1553               RPASS3             EQUALS   VACT3      +6                         #  I(6)TMP POSITION OF PASSIVE AT TPI TIME.
005582,004035: E7,1426  E7,1561               VPASS3             EQUALS   RPASS3     +6                         #  I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.
005583,004036: 
005584,004037: 
005585,004038:                                                                                                  #        P76  N84 DISPLAY  -  P32  N82 DISPLAY                           (6D)
005586,004039: E7,1426  E7,1537               DELVOV             EQUALS   RACT3                                 #  I(6)DSP NOUN 84 FOR X-V84, P34-35
005587,004040: 
005588,004041: 
005589,004042:                                                                                                  #        P76 - P77          STORAGE                                      (1D)
005590,004043: 
005591,004044: E7,1426  E7,1545               OPTFLAG            EQUALS   DELVOV     +6                         #  B(1)TMP FLAG FOR P76 OR P77 BRANCHING
005592,004045:                                                                                                  #        INITVEL/MIDGIM STORAGE.                                         (34D)
005593,004046:                                                                                                  #                (CALLED BY S34.1,2, S35.1,2, AND S40.9)
005594,004047:                                                                                                  #                (CALLS LAMBERT, CONIC SUBROUTINES)
005595,004048: 
005596,004049: E7,1426  E7,1567               RINIT              EQUALS   VPASS3     +6                         #  I(6)IN  ACTIVE VEHICLE RADIUS VECTOR
005597,004050: E7,1426  E7,1575               VINIT              EQUALS   RINIT      +6                         #  I(6)IN  ACTIVE VEHICLE VELOCITY VECTOR
005598,004051: E7,1426  E7,1603               RTARG1             EQUALS   VINIT      +6                         #  I(6)TMP SHIFTED RTARG
005599,004052: E7,1426  E7,1611               VIPRIME            EQUALS   RTARG1     +6                         #  I(6)OUT   NEW VEL REQ AT INITIAL RADIUS
005600,004053: E7,1426  E7,1617               VTPRIME            EQUALS   VIPRIME    +6                         #  I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS
005601,004054: E7,1426  E7,1625               +MGA               EQUALS   VTPRIME    +6                         #  I(2)DSP NOUN 45 FOR P30,34,35. +MID GIM.
005602,004055: E7,1426  E7,1627               COZY4              EQUALS   +MGA       +2                         #  I(2)TMP COSINE OF ANGLE WHEN ROT STARTS
005603,004056: 
005604,004057:                                                                                                  #  (THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CANNOT SHARE WITH TPI
005605,004058: E7,1426  E7,1502               INTIME             EQUALS   TNITPREV   +5                         
005606,004059: E7,1426  E7,1504               ITCTR              EQUALS   INTIME     +2                         #  I(1)TMP ITERATION COUNTER

Page 127

005608,004061: E7,1426  E7,1631               END-IN/M           EQUALS   COZY4      +2                         #  **NEXT AVAIL LOC AFTER INITVEL/MIDGIM**
005609,004062: 
005610,004063: 
005611,004064:                                                                                                  #        P34 AND P33 STORAGE.    (OVERLAYS INITVEL/MIDGIM)               (24D)
005612,004065: 
005613,004066: E7,1426  E7,1567               VAPREC             EQUALS   RINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V
005614,004067: E7,1426  E7,1575               RAPREC             EQUALS   VINIT                                 #  I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V
005615,004068: E7,1426  E7,1611               VPPREC             EQUALS   VIPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME (PASS
005616,004069: E7,1426  E7,1617               RPPREC             EQUALS   VTPRIME                               #  I(6) S-S PREC VEC FOR NOM TPI TIME (PASS
005617,004070: 
005618,004071: 
005619,004072: 
005620,004073:                                                                                                  #        P30, P40 INTERFACE.                                             (20D)
005621,004074: 
005622,004075: E7,1426  E7,1631               RTIG               EQUALS   END-IN/M                              #  I(6)TMP
005623,004076: E7,1426  E7,1637               VTIG               EQUALS   RTIG       +6                         #  I(6)TMP
005624,004077: E7,1426  E7,1645               DELVSIN            EQUALS   VTIG       +6                         #  I(6)TMP
005625,004078: E7,1426  E7,1645               DELVEET3           EQUALS   DELVSIN                               #       TMP DELTA VEL VECT INERTIAL COORDS.
005626,004079: E7,1426  E7,1645               VGTEMP             EQUALS   DELVEET3                              
005627,004080: E7,1426  E7,1653               DELVSAB            EQUALS   DELVSIN    +6                         #  I(2)TMP
005628,004081: 
005629,004082: 
005630,004083: 
005631,004084:                                                                                                  #        P35-P40 INTERFACE STORAGE. (OVERLAYS P30-P40 I/F STORAGE)       (6D)
005632,004085: 
005633,004086: E7,1426  E7,1637               VPASS4             EQUALS   VTIG                                  #  I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
005634,004087:                                                                                                  #        P30-P40 COMMON STORAGE.                                         (3D)
005635,004088: 
005636,004089: E7,1426  E7,1655               TPASS4             EQUALS   DELVSAB    +2                         #  I(2)TMP
005637,004090: E7,1426  E7,1657               QTEMP              EQUALS   TPASS4     +2                         #  I(1) TMP
005638,004091: 
005639,004092: 
005640,004093: 
005641,004094:                                                                                                  #        P30-P40 STORAGE.                                                (4D)
005642,004095: 
005643,004096: E7,1426  E7,1660               TTOGO              EQUALS   QTEMP      +1                         #  B(2)DSP NOUN 35,40,45,59,99
005644,004097:                                                                                                  #          FOR P30,34,35,40,41,47,  R30.
005645,004098: E7,1426  E7,1662               TTPI               EQUALS   TTOGO      +2                         #  B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS.
005646,004099: 
005647,004100: E7,1426  E7,1664               END-P30S           EQUALS   TTPI       +2                         #  **NEXT AVAIL LOC AFTER P30-40 STORAGE.**
005648,004101: 
005649,004102: 
005650,004103:                                                                                                  #        P40 STORAGE.                                                    (8D)
005651,004104: 
005652,004105: E7,1426  E7,1664               VGBODY             EQUALS   END-P30S                              #  B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR
005653,004106: E7,1426  E7,1664               DELVCTL            =        VGBODY                                
005654,004107: E7,1426  E7,1672               P40TMP             EQUALS   VGBODY     +6                         #  B(2)TMP
005655,004108: 
005656,004109: 
005657,004110:                                                                                                  #        P47 STORAGE.
005658,004111: 

Page 128

005660,004113: E7,1426  E7,1457               DV47TEMP           EQUALS   VG                                    #  B(6)TMP
005661,004114: E7,1426  E7,1674               DELVIMU            EQUALS   P40TMP     +2                         #  I(6)  DSP  NOUN 83 FOR P47 DELTAV(IMU)
005662,004115: 
005663,004116: 
005664,004117: 
005665,004118:                                                                                                  #        S40.1 STORAGE.                                                  (23D)
005666,004119: 
005667,004120: E7,1426  E7,1702               CSTEER             EQUALS   DELVIMU    +6                         #  I(2)IN
005668,004121: E7,1426  E7,1704               BDT                EQUALS   CSTEER     +2                         #  I(6)IN
005669,004122: E7,1426  E7,1712               UT                 EQUALS   BDT        +6                         #  I(6)OUT THRUST DIRECTION
005670,004123: E7,1426  E7,1720               VGTIG              EQUALS   UT         +6                         #  I(6)OUT
005671,004124: E7,1426  E7,1720               VGPREV             =        VGTIG                                 
005672,004125: E7,1426  E7,1726               F                  EQUALS   VGTIG      +6                         #  I(2)OUT S40.3 NEEDS THIS
005673,004126: 
005674,004127: E7,1426  E7,1730               QTEMP1             EQUALS   F          +2                         #  I(1)TMP HOLDS RETURN
005675,004128: 
005676,004129: 
005677,004130:                                                                                                  #        P15 TEMPORARY STORAGE                                           (6D)
005678,004131: 
005679,004132: E7,1426  E7,1457               AVEGDT             EQUALS   DV47TEMP                              #  B(2)
005680,004133: E7,1426  E7,1461               VPAST              EQUALS   AVEGDT     +2                         #  I(2)
005681,004134: E7,1426  E7,1463               TLITMP             EQUALS   VPAST      +2                         #  B(2)
005682,004135: 
005683,004136: 
005684,004137:                                                                                                  #        R41                                                             (2D)
005685,004138: 
005686,004139: E7,1426  E7,1465               T-TO-ADD           EQUALS   DV47TEMP   +6                         #  I(2) FOR MIDTOAVE
005687,004140: 
005688,004141: 

Page 129

005690,004143: 
005691,004144:                                                                                                  #        *-*-*-*- OVERLAY 4 IN EBANK 7 -*-*-*-*
005692,004145: 
005693,004146:                                                                                                  #        S35.1 STORAGE.                                                  (2D)
005694,004147: 
005695,004148: E7,1426  E7,1664               TSTRT              EQUALS   END-P30S                              #  I(2)IN MIDCOURSE START TIME
005696,004149: 
005697,004150: 
005698,004151:                                                                                                  #        S34.1 STORAGE.          (OVERLAYS S35.1 STORAGE)                (1D)
005699,004152: 
005700,004153: E7,1426  E7,1664               TITER              EQUALS   TSTRT                                 #  I(1)TMP ITERATION COUNTER
005701,004154: 
005702,004155: 
005703,004156:                                                                                                  #        P22 STORAGE.                                                    (5D)
005704,004157: E7,1426  E7,1667               S22TOFF            EQUALS   DELVEET2   +1                         #  2   T SUB OFF
005705,004158:                                                                                                  #  *USED IN SUBROUTINE COMMON TO P22 & P23.
005706,004159: E7,1426  E7,1671               S22TPRIM           EQUALS   S22TOFF    +2                         #  2      SAVE TF
005707,004160: E7,1426  E7,1673               S22EORM            EQUALS   S22TPRIM   +2                         #  0 = EARTH -- NON-ZERO = MOON
005708,004161: 
005709,004162: 
005710,004163: 
005711,004164:                                                                                                  #        DOWNLINK ERASABLES FOR P22,P20 MARK DATA.                       (8D)
005712,004165: 
005713,004166: E7,1426  E7,1674               MARKDOWN           EQUALS   S22EORM    +1                         #  B(7)
005714,004167: E7,1426  E7,1703               RM                 EQUALS   S22RTNEX                              #  DOWNLINK OF VHF RANGE
005715,004168: 
005716,004169: 
005717,004170: 
005718,004171:                                                                                                  #        S22.1                                                           (1D)
005719,004172: 
005720,004173: E7,1426  E7,1703               S22RTNEX           EQUALS   MARKDOWN   +7                         #  B(1)
005721,004174: 
005722,004175: 
005723,004176: 
005724,004177:                                                                                                  #        P22 STORAGE                                                     (6D)
005725,004178: 
005726,004179: E7,1426  E7,1704               STARSAV3           EQUALS   S22RTNEX   +1                         #  I(6)TMP
005727,004180: 
005728,004181: 
005729,004182:                                                                                                  #        CRS61.1 STORAGE.        -A SUBSET OF P20-                       (14D)
005730,004183: 
005731,004184: E7,1426  E7,1704               Q611               EQUALS   RM         +1                         #  I(1) TMP QSAVE
005732,004185: E7,1426  E7,1705               Q6111              EQUALS   Q611       +1                         #  I(1)TMP QSAVE
005733,004186: E7,1426  E7,1706               SAVEPOS            EQUALS   Q6111      +1                         #  I(6)TMP LEM POSITION VECTOR-
005734,004187: E7,1426  E7,1714               SAVEVEL            EQUALS   SAVEPOS    +6                         #  I(6)TMP LEM VELOCITY VECTOR-
005735,004188: 
005736,004189: 
005737,004190:                                                                                                  #        MARK STORAGE AND W MATRIX INIT STORAGE (UNSHARED)               (13D)
005738,004191: 
005739,004192: E7,1426  E7,1722               MRKBUF1            EQUALS   SAVEVEL    +6                         #  B(7)
005740,004193: E7,1426  E7,1731               CNT3TEMP           EQUALS   MRKBUF1    +7                         #  I(2)

Page 130

005742,004195: E7,1426  E7,1733               OLDMKTME           EQUALS   CNT3TEMP   +2                         #  I(2)
005743,004196: E7,1426  E7,1735               AGEOFW             EQUALS   OLDMKTME   +2                         #  I(2)
005744,004197: 
005745,004198: 
005746,004199: 
005747,004200:                                                                                                  #        MORE CONICS STORAGE.                                            (4)
005748,004201: E7,1426  E7,1767               COGA               EQUALS   NN         +2                         #  I(2) COTAN OF INITIAL FLT PATH ANGLE
005749,004202: E7,1426  E7,1767               INDEP              EQUALS   COGA                                  #  I(1) USED BY SUBROUTINE:ITERATOR:
005750,004203: E7,1426  E7,1771               EPSILONL           EQUALS   COGA       +2                         #  I(2) TMP
005751,004204: 
005752,004205: 
005753,004206:                                                                                                  #        UNIVERSAL TRACKING STORAGE                                      (10D)
005754,004207: 
005755,004208: E7,1426  E7,1731               PLANVCUT           EQUALS   CNT3TEMP                              #  I(6) PLANET VECTOR UT
005756,004209: E7,1426  E7,1737               UTPIT              EQUALS   PLANVCUT   +6                         #  I(2)  N78 PITCH
005757,004210: E7,1426  E7,1741               UTYAW              EQUALS   UTPIT      +2                         #     I(2)  N78 YAW
005758,004211: 
005759,004212: 
005760,004213: 
005761,004214:                                                                                                  #        RENDEZVOUS GUIDANCE STORAGE.  - P32...P35 -                     (10D)
005762,004215: 
005763,004216: E7,1426  E7,1743               ELEV               EQUALS   UTYAW      +2                         #  I(2)TMP
005764,004217: E7,1426  E7,1745               RTX1               EQUALS   ELEV       +2                         #   (1)
005765,004218: E7,1426  E7,1746               RTX2               EQUALS   RTX1       +1                         #   (1)
005766,004219: E7,1426  E7,1747               RTMU               EQUALS   RTX2       +1                         #   (2)
005767,004220: E7,1426  E7,1751               RTSR1/MU           EQUALS   RTMU       +2                         #   (2)
005768,004221: E7,1426  E7,1753               CENTANG            EQUALS   RTSR1/MU   +2                         #  I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
005769,004222: 
005770,004223: 

Page 131

005772,004225: 
005773,004226:                                                                                                  #        *-*-*-*- OVERLAY 5 IN EBANK 7 -*-*-*-*
005774,004227: 
005775,004228:                                                                                                  #        P34                                                             (2D)
005776,004229: 
005777,004230: E7,1426  E7,1765               NN1                =        NN                                    #  I(2) DSP NOUN 55, R1
005778,004231: 
005779,004232: 
005780,004233:                                                                                                  #   ************ THE FOLLOWING ARE FOR FLIGHT 504 ONLY ********************
005781,004234: 
005782,004235:                                                                                                  #        RETURN-TO-EARTH STORAGE.                                        (93D)
005783,004236: 
005784,004237: E7,1426  E7,1631               RTEDVD             EQUALS   END-IN/M                              #  I(2)IN DELTA VELOCITY DESIRED   M/CS B7
005785,004238: E7,1426  E7,1633               RTEGAM2D           EQUALS   RTEDVD     +2                         #  I(2)IN REENTRY ANGLE DESIRED    REVS B0
005786,004239: E7,1426  E7,1635               RCON               EQUALS   RTEGAM2D   +2                         #  I(2)TMP CONIC R2 RADIUS            M B29
005787,004240: E7,1426  E7,1637               R(T1)/             EQUALS   RCON       +2                         #  I(6)TMP POSITION VECTOR AT TIG M B29/B27
005788,004241: E7,1426  E7,1645               R(T1)              EQUALS   R(T1)/     +6                         #  I(2)TMP MAGNITUDE OF R(T1)/    M B29/B27
005789,004242: E7,1426  E7,1647               DT21PR             EQUALS   R(T1)      +2                         #  I(2) TMP PREVOUS DT21           CS B30
005790,004243: E7,1426  E7,1651               MAMAX1             EQUALS   DT21PR     +2                         #  I(2) TMP MAJ AXIS LOW BOUND LMT    M B30
005791,004244: E7,1426  E7,1653               MAMAX2             EQUALS   MAMAX1     +2                         #  I(2) TMP MAJ AXIS UP BOUND LMT     M B30
005792,004245: E7,1426  E7,1655               R(T2)/             EQUALS   MAMAX2     +2                         #  I(6)TMP FINAL POSITION VECTOR  M B29/B27
005793,004246: E7,1426  E7,1663               RD                 EQUALS   R(T2)/     +6                         #  I(2)TMP FINAL R DESIRED        M B29/B27
005794,004247: E7,1426  E7,1665               DRCON              EQUALS   RD         +2                         #  I(2)TMP RCON SLOPE ITERATOR    M B29/B27
005795,004248: E7,1426  E7,1667               RPRE,              EQUALS   DRCON      +2                         #  I(2)TMP PREVISOUS RPRE         M B29/B27
005796,004249: E7,1426  E7,1671               V(T1)/             EQUALS   RPRE,      +2                         #  I(6)TMP VEL VECTOR AT TIG     M/CS B7/B5
005797,004250: E7,1426  E7,1677               V2(T1)/            EQUALS   V(T1)/     +6                         #  I(6)TMP POST IMP VEL AT TIG   M/CS B7/B5
005798,004251: E7,1426  E7,1705               DV                 EQUALS   V2(T1)/    +6                         #  I(2)TMP DELTA VELOCITY AT TIG M/CS B7/B5
005799,004252: E7,1426  E7,1707               V(T2)/             EQUALS   DV         +2                         #  I(6)TMP FINAL VELOCITY VECTOR M/CS B7/B5
005800,004253: E7,1426  E7,1715               T1                 EQUALS   V(T2)/     +6                         #  I(2)TMP INITIAL VECTOR TIME       CS B28
005801,004254: E7,1426  E7,1717               PCON               EQUALS   T1         +2                         #  I(2)TMP SEMI-LATUS RECTUM         M B29
005802,004255: E7,1426  E7,1721               X(T1)              EQUALS   PCON       +2                         #  I(2)TMP COTANGENT GAMMA1              B5
005803,004256: E7,1426  E7,1723               T12                EQUALS   X(T1)      +2                         #  I(2)TMP INIT TO FINL POSIT TIME   CS B28
005804,004257: E7,1426  E7,1725               DELTAT             EQUALS   T12        +2                         #  I(2) TMP DELTA T IN SAFE PERILUNE CS B28
005805,004258: E7,1426  E7,1727               NN1A               EQUALS   DELTAT     +2                         #  I(2) TMP ITERATION COUNTER 1
005806,004259: 
005807,004260: 
005808,004261: 
005809,004262: E7,1426  E7,1545               NN2                EQUALS   DELVOV     +6                         #  I(2) TMP ITERATION COUNTER
005810,004263: E7,1426  E7,1547               RTENCKEX           EQUALS   NN2        +2                         #  I(1)TMP RTENCK RETURN ADDRESS
005811,004264: E7,1426  E7,1550               CONICX1            EQUALS   RTENCKEX   +1                         #  I(1) TMP CONICS MU TABLE INDEX
005812,004265: E7,1426  E7,1551               T2                 EQUALS   CONICX1    +1                         #  I(2)TMP FINAL TIME                CS B28
005813,004266: E7,1426  E7,1553               UR1/               EQUALS   T2         +2                         #  I(6)TMP UNIT R(T1)/                   B1
005814,004267: E7,1426  E7,1561               UV1/               EQUALS   UR1/       +6                         #  I(6)TMP UNIT V(T1)/                   B1
005815,004268: 
005816,004269: 
005817,004270: E7,1426  E7,1743               BETA1              EQUALS   UTYAW      +2                         #  I(2) TEMP 1+X(T2)**2                  B1
005818,004271: E7,1426  E7,1745               P(T1)              EQUALS   BETA1      +2                         #  I(1)TMP PRIMARY BODY STATE TIME 1    B14
005819,004272: E7,1426  E7,1746               CFPA               EQUALS   P(T1)      +1                         #  I(2) TMP COSINE FLIGHT PATH ANGLE   B1
005820,004273: E7,1426  E7,1750               PHI2               EQUALS   CFPA       +2                         #  I(2) TMP PERI OR APO INDICATOR       B2
005821,004274: E7,1426  E7,1752               SPRTEX             EQUALS   PHI2       +2                         #  I(1)TMP ROUTINE RETURN ADDRESS

Page 132

005823,004276: E7,1426  E7,1753               VNSTORE            EQUALS   SPRTEX     +1                         #  I(1)TMP VERBNOUN STORAGE
005824,004277: E7,1426  E7,1754               BETA12             EQUALS   VNSTORE    +1                         #  I(2)TMP SIGN FOR TIMERAD
005825,004278:                                                                                                  #                OVERLAYS WITHIN RETURN-TO-EARTH STORAGE.
005826,004279: 
005827,004280:                                                                                                  #        TEMPS WITHIN VAC
005828,004281: 
005829,004282: E7,1426                        RPRE               EQUALS   24D                                   #  I(2)TMP COMPUTED PREC RADIUS   M B29/B27
005830,004283: E7,1426                        P/RPRE             EQUALS   26D                                   #  I(2)TMP P/R                           B4
005831,004284: E7,1426                        R/APRE             EQUALS   28D                                   #  I(2)TMP R/A                           B6
005832,004285: 
005833,004286: E7,1426  E7,1723               X(T2)PRE           EQUALS   T12                                   #  I(2)TMP PREC COTAN GAMMA2             B0
005834,004287: E7,1426  E7,1725               X(T2)              EQUALS   DELTAT                                #  I(2)TMP COTAN GAMMA2                  B0
005835,004288: E7,1426  E7,1561               UH/                EQUALS   UV1/                                  #  I(2)TMP UNIT HORIZONTAL VECTOR.       B1
005836,004289: E7,1426  E7,1412               SPRTETIG           EQUALS   TIG                                   #  I(2)IN  TIME OF IGNITION          CS B28
005837,004290: 
005838,004291: 

Page 133

005840,004293: 
005841,004294:                                                                                                  #        *-*-*-*- OVERLAY 6 IN EBANK 7 -*-*-*-*
005842,004295: 
005843,004296:                                                                                                  #        P32,P33
005844,004297: 
005845,004298: 
005846,004299:                                                                                                  #           THE FOLLOWING OVERLAY MEAS. INCORP. AND ARE IN USE ONLY WHEN (32D)
005847,004300: 
005848,004301: E7,1426  E7,1457               POSTCSI            EQUALS   VG                                    #  I(2)
005849,004302: E7,1426  E7,1461               DELVCSI            EQUALS   POSTCSI    +2                         #  I(2)
005850,004303: E7,1426  E7,1463               DELDV              EQUALS   DELVCSI    +2                         #  I(2)
005851,004304: E7,1426  E7,1465               GAMPREV            EQUALS   DELDV      +2                         #  I(2)
005852,004305: E7,1426  E7,1467               DVPREV             EQUALS   GAMPREV    +2                         #  I(2)
005853,004306: E7,1426  E7,1471               POSTCDH            EQUALS   DVPREV     +2                         #  I(2)
005854,004307: E7,1426  E7,1471               HAFPA1             EQUALS   POSTCDH                               
005855,004308: E7,1426  E7,1473               VACT4              EQUALS   POSTCDH    +2                         #  I(6)
005856,004309: E7,1426  E7,1501               RDOTV              EQUALS   VACT4      +6                         #  I(2)
005857,004310: E7,1426  E7,1503               VACT1              EQUALS   RDOTV      +2                         #  I(6)
005858,004311: E7,1426  E7,1511               VPASS1             EQUALS   VACT1      +6                         #  I(6) VEL. PASSIVE VEH, AT CSI TIME
005859,004312: 
005860,004313: 
005861,004314: E7,1426  E7,1545               UNVEC              EQUALS   VACT3                                 #  I(6)
005862,004315: E7,1426  E7,1655               T2TOT3             EQUALS   TPASS4                                #  I(2) TPI - TCDH
005863,004316: 
005864,004317: E7,1426  E7,1664               CSIALRM            EQUALS   TITER                                 #  I(2) ALARM INDEX
005865,004318: 
005866,004319: E7,1426  E7,1666               DELVEET2           EQUALS   CSIALRM    +2                         #  I(6) VACT3-VACT2 = DVCDH REF.COORD.
005867,004320:                                                                                                  #        P21 STORAGE                                                     (2D)
005868,004321: 
005869,004322: E7,1426  E7,1537               P21TIME            EQUALS   RACT3                                 #  I(2)
005870,004323: 
005871,004324: 
005872,004325:                                                                                                  #        ADDITIONAL CSI - CDH STORAGE.                                   (10D)
005873,004326: 
005874,004327: E7,1426  E7,1755               RPASS1             EQUALS   CENTANG    +2                         #  I(6) POS. PASSIVE VEH. AT CSI TIME.
005875,004328: E7,1426  E7,1763               LOOPCT             EQUALS   RPASS1     +6                         #  I(2) ITERATION COUNTER
005876,004329: E7,1426  E7,1765               NN                 EQUALS   LOOPCT     +2                         #  I(2)
005877,004330: 
005878,004331:                                                                                                  #        P21 STORAGE                                                     (19D)
005879,004332: 
005880,004333: E7,1426  E7,1603               P21ORIG            EQUALS   UBAR0                                 #  I(1)
005881,004334: E7,1426  E7,1604               P21BASER           EQUALS   P21ORIG    +1                         #  I(6)
005882,004335: E7,1426  E7,1612               P21BASEV           EQUALS   P21BASER   +6                         #  I(6)
005883,004336: E7,1426  E7,1620               P21ALT             EQUALS   P21BASEV   +6                         #  I(2) NOUN 73 R1 ALTITUDE
005884,004337: E7,1426  E7,1622               P21VEL             EQUALS   P21ALT     +2                         #  I(2) NOUN 73 R2 VELOCITY
005885,004338: E7,1426  E7,1624               P21GAM             EQUALS   P21VEL     +2                         #  I(2) NOUN 73 R3 FLIGHT PATH ANGLE
005886,004339: 
005887,004340: 
005888,004341: 
005889,004342:                                                                                                  #        P29 ERASABLES                                                   (32D)
005890,004343: 

Page 134

005892,004345: E7,1426  E7,1541               PASSTIME           EQUALS   P21TIME    +2                         #  B(2)TMP
005893,004346: E7,1426  E7,1543               LONGFOR            EQUALS   PASSTIME   +2                         #  B(2)TMP
005894,004347: E7,1426  E7,1545               DELTLONG           EQUALS   LONGFOR    +2                         #  I(2)TMP
005895,004348: E7,1426  E7,1547               FUDGE              EQUALS   DELTLONG   +2                         #  I(2)TMP
005896,004349: E7,1426  E7,1551               MUSUBE             EQUALS   FUDGE      +2                         #  I(6)TMP
005897,004350: E7,1426  E7,1557               MUSUBC             EQUALS   MUSUBE     +6                         #  I(6)TMP
005898,004351: E7,1426  E7,1565               MUSUBS             EQUALS   MUSUBC     +6                         #  I(6)TMP
005899,004352: E7,1426  E7,1573               MUSUBN             EQUALS   MUSUBS     +6                         #  I(6)TMP
005900,004353: 
005901,004354: E7,1426  E7,1537               P29BASET           =        P21TIME                               
005902,004355: E7,1426  E7,1604               P29BASER           =        P21BASER                              
005903,004356: E7,1426  E7,1612               P29BASEV           =        P21BASEV                              
005904,004357: 
005905,004358:                                                                                                  #  P22-P23 STORAGE.                                                      (9D)
005906,004359: 
005907,004360: E7,1426  E7,1743               22SUBSCL           EQUALS   ELEV                                  #  B(1) DE OF ABCDE LANDMARK ID NO
005908,004361: E7,1426  E7,1744               CXOFF              EQUALS   22SUBSCL   +1                         #  B OF ABCDE OFFSET INDICATOR.
005909,004362: E7,1426  E7,1745               8KK                EQUALS   CXOFF      +1                         #  B (2)  TMP   INDEX OF PRESENT MARK.
005910,004363: E7,1426  E7,1747               8NN                EQUALS   8KK        +2                         #  B(1) TMP NO OF MARKS TAKEN IN SXTMARK
005911,004364: E7,1426  E7,1750               S22LOC             EQUALS   8NN        +1                         #  I(1)TMP MARK DATA LOC
005912,004365: E7,1426  E7,1751               LANDMARK           EQUALS   S22LOC     +1                         #  B(1)DSP NOUN 70 FOR P22,51,R52,53.
005913,004366: E7,1426  E7,1752               HORIZON            EQUALS   LANDMARK   +1                         #  B(1)DSP NOUN 70 FOR P22,51,R52,53.
005914,004367: E7,1426  E7,1753               P22DEX             EQUALS   HORIZON    +1                         #  B(1) INDEX FOR SXTMARK IN P22
005915,004368:                                                                                                  #        P23 TRUNION BIAS STORAGE.
005916,004369: 
005917,004370:                                                                                                  #  9(1D)
005918,004371: E7,1426  E7,1754               TRUNION            EQUALS   P22DEX     +1                         #  B(1)
005919,004372: E7,1426                        WHOCARES           =        3777                                  #  A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
005920,004373: 
005921,004374: E7,1426  0003777               END-E7             =        WHOCARES                              #  TAG NEEDED FOR EDITS

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