Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

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

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